|
;***************************************************************;
; Créer par : Herumor
;
; Email : Herumor_mk@hotmail.com
;***************************************************************;
dialog autojoin {
title "Auto Join By Dj`Ph3oNiX5`93"
size -1 -1 412 252
button "Fermer / Enregistrer", 1, 210 204 176 24, ok
box "Option Auto Join", 2, 198 21 202 217
list 3, 8 26 176 214
edit "", 4, 232 38 134 22, autohs
button "&Ajouter", 5, 264 68 74 24
button "&Modifier", 6, 264 100 74 24
button "&Supprimer", 7, 264 132 74 24
button "&Joindre tout", 8, 264 164 74 24
check "Activer (Coché) / Désactiver (Décoché)", 10, 84 2 235 21
}
on *:dialog:autojoin:init:*:{
did -b autojoin 5,6,7
if ($group(#autojoin) == ON) { did -c autojoin 10 }
if (%autojoin.delai !== $null) { did -a autojoin 13 %autojoin.delai }
autojoin.update
}
on *:dialog:autojoin:edit:*:{
if ($did(4) == $null) { did -b autojoin 5,6 }
else { did -e autojoin 5,6 }
if ($did(3).sel == $null) { did -b autojoin 6 }
else { did -e autojoin 6 }
if ($left($did(4),1) !== $chr(35)) { var %autojoin.edit = $chr(35) $+ $did(4) }
else { var %autojoin.edit = $did(4) }
if ($findtok(%autojoin.canaux,%autojoin.edit,0,44) == 1) { did -b autojoin 5,6 }
if ($did == 13) {
if ($did(13) !isnum) { did -r autojoin 13 | unset %autojoin.delai }
else { set %autojoin.delai $did(13) }
} }
on *:dialog:autojoin:sclick:*:{
if ($did == 5) {
if ($left($did(4),1) !== $chr(35)) { var %autojoin.ajout = $chr(35) $+ $did(4) }
else { var %autojoin.ajout = $did(4) }
set %autojoin.canaux $sorttok($addtok(%autojoin.canaux,%autojoin.ajout,44),44)
autojoin.update
}
elseif ($did == 6) {
if ($left($did(autojoin,4),1) !== $chr(35)) { var %autojoin.modif = $chr(35) $+ $did(4) }
else { var %autojoin.modif = $did(4) }
set %autojoin.canaux $sorttok($reptok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),%autojoin.modif,1,44),44)
autojoin.update
}
elseif ($did == 7) {
set %autojoin.canaux $remtok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),44)
autojoin.update
}
if ($did == 3 && $did(3).sel !== $null) { did -ra autojoin 4 $did(3,$did(3).sel) }
elseif ($did == 8) { if ($server != $null) { autojoin.join } }
elseif ($did == 10) {
if ($did(10).state == 0) { .disable #autojoin }
else { .enable #autojoin }
}
if ($did(3).sel == $null) { did -b autojoin 5,6,7 }
else { did -e autojoin 6,7 }
if ($did == 3) { did -b autojoin 6 }
}
alias autojoin.update {
did -r autojoin 3,4
if (%autojoin.canaux !== $null) {
did -e autojoin 8,10
var %autojoin.loop.n = 1
:loop
did -a autojoin 3 $gettok(%autojoin.canaux,%autojoin.loop.n,44)
inc %autojoin.loop.n
if ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { goto loop }
}
else {
unset %autojoin.canaux
.disable #autojoin
did -ub autojoin 8,10
} }
alias autojoin.join {
var %autojoin.loop.n = 1
while ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) {
if (%autojoin.delai !== $null) { .timer 1 $calc(%autojoin.delai * %autojoin.loop.n) join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
else { join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
inc %autojoin.loop.n
} }
#autojoin on
on *:connect:autojoin.join
#autojoin end
}
|
Rubriques