jiMMy
Kayıtlı Üye
Kayıt: 18.11.2006
Üye no: 190
Mesaj: 43
Başlık: 0
Şehir: Türkiye
0 Aşk puanı
|
|
 ajoin sistemi |
|
|
alias setup.ajoin { dialog -m ajoin ajoin }
dialog ajoin {
size -1 -1 295 130
title "AJoin Sistemi"
tab "auto &join",12, 5 5 270 125
tab "auto &ident",13
button "&Tamam",1, 210 100 60 20, cancel
box "Kanallar",3, 10 35 120 80, tab12
list 4, 15 50 110 85, disable, tab12
text "&KanaL:",5, 135 40 35 20, tab12
edit "",6, 170 38 100 20, autohs, disable, tab12
button "&Ekle ",9, 140 65 60 20, disable, tab12
button "&siL ",10, 210 65 60 20, disable, tab12
check "&Acık",11, 145 100 60 20, tab12
box "NickLer",14, 10 35 120 80, tab13
list 15, 15 50 110 85, disable, tab13
text "&Nick:",16, 135 35 30 20, tab13
edit "",17, 165 32 105 20, autohs, disable, tab13
text "&Sifre:",18, 135 55 30 20, tab13
edit "",19, 165 53 105 20, pass, autohs, disable, tab13
button "&EkLe ",20, 135 75 60 20, disable, tab13
button "&SiL ",21, 210 75 60 20, disable, tab13
check "&Acık",22, 145 100 60 20, tab13
}
on 1:dialog:ajoin:init:*: {
var %ctr1 = 1 | while (%ctr1 <= $numtok(%ajoin.chans,32)) { did -a $dname 4 $Gettok(%ajoin.chans,%ctr1,32) | inc %ctr1 }
if (%var1 == on) { did -c ajoin 11 | did -e ajoin 4,6,9 }
var %ctr = 1 | while (%ctr <= $numtok(%AutoID.nicks,32)) { did -a $dname 15 $Gettok(%AutoID.nicks,%ctr,32) | inc %ctr }
if (%var == on) { did -c ajoin 22 | did -e ajoin 15,17,19,20 }
}
on 1:dialog:ajoin:sclick:*: {
if ($did == 4) { did -ra $dname 6 $did(4).seltext | did -e $dname 10 }
if ($did == 9) { set %ajoin.chans [ %ajoin.chans ] $did(6) | did -a $dname 4 $did(6) | did -ra $dname 6 }
if ($did == 10) { set %ajoin.chans $deltok(%ajoin.chans,$findtok(%ajoin.chans,$did(6) ,32),32) | did -d $dname 4 $did(4).sel | did -ra $dname 6 | did -b $dname 10 }
if ($did == 11) { if ($did(11).state == 1) { set %var1 on | set %ajoin $true | did -e ajoin 4,6,9 } | else { set %var1 off | set %ajoin $false | did -b ajoin 4,6,9 } }
if ($did == 15) { did -ra $dname 17 $did(15).seltext | did -ra $dname 19 $Gettok(%AutoID.sifrem,$findtok(%AutoID.nicks,$did (15).seltext,32),32) | did -e $dname 21 }
if ($did == 20) { set %AutoID.nicks [ %AutoID.nicks ] $did(17) | set %AutoID.sifrem [ %AutoID.sifrem ] $did(19) | did -a $dname 15 $did(17) | did -ra $dname 17,19 }
if ($did == 21) { set %AutoID.nicks $deltok(%AutoID.nicks,$findtok(%AutoID.nicks,$did( 17),32),32) | set %AutoID.sifrem $deltok(%AutoID.sifrem,$findtok(%AutoID.sifrem,$di d(19),32),32) | did -d $dname 15 $did(15).sel | did -ra $dname 17,19 | did -b $dname 21 }
if ($did == 22) { if ($did(22).state == 1) { set %var on | set %AutoID $true | did -e ajoin 15,17,19,20 } | else { set %var off | set %AutoID $false | did -b ajoin 15,17,19,20 } }
}
On *:Connect:{
if (%ajoin == $true) { var %i = $numtok(%ajoin.chans,32) | while (%i) { join $gettok(%ajoin.chans,%i,32) | dec %i } }
.remote on
}
umarım işinize yarar Arkadaslar
|
| |
|
