PHP Kodu:
alias scanaway { .dialog -m scanaway scanaway }
dialog scanaway {
title "iRC Script Away Tarayıcı"
size -1 -1 274 215
combo 1, 11 11 160 100, drop, edit, size
list 2, 10 40 162 102, size
button "Tara Away", 3, 55 180 75 25
edit "", 5, 10 146 162 23, disabled, multi, return, autohs
button "Kapat", 4, 193 190 48 26, ok
box "İ ş l e m l e r", 6, 180 30 80 90
button "Uyar", 7, 191 49 55 18
button "Kick+Ban", 8, 191 95 55 18
button "Kick", 9, 191 72 55 18
button "Ayarlar", 10, 195 124 48 18
}
alias warns { .dialog -m warn warn }
dialog warn {
size -1 -1 320 170
title "iRC Script Away TarayıcıSı"
button "Kapat", 1, 260 140 48 18, ok
radio "Uyar", 2, 10 10 60 18
edit "", 3, 10 30 300 18, autohs
radio "Kick", 4, 10 50 60 18
edit "", 5, 10 70 300 18, autohs
radio "Kick + Ban", 6, 10 90 60 18
edit "", 7, 10 110 300 18, autohs
}
on *:dialog:scanaway:*:*: {
if ($devent == init) { .awaychans | .did -f scanaway 3 | .did -c scanaway 1 1 | .set %scan.chan $did(1).text }
if ($devent == sclick) {
if ($did == 10) { .warns }
if ($did == 1) { .set %scan.chan $did(1).text }
if ($did == 3) { .did -r scanaway 2,5 | .enable #scanaway | .who %scan.chan * }
if ($did == 7) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .notice %y %away.warn }
if ($did == 9) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .kick %scan.chan %y %away.kick }
if ($did == 8) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .mode %scan.chan +b %y 2 | .kick %scan.chan %y %away.kb }
}
}
alias awaychans {
set %num.chans 0
:start
inc %num.chans
if ($comchan($me,%num.chans)) { .did -a scanaway 1 $comchan($me,%num.chans) | goto start }
unset %num.chans
if ($comchan($me,0) == 0) { .did -r scanaway 1,2,5 | .did -a scanaway 5 Kanala baglı Değilsiniz }
}
#scanaway off
raw 352:* { did -a scanaway 5 Scanning... | if (G isin $7) { did -a scanaway 2 $nick(%scan.chan,$6).pnick | cnick -r $nick(%scan.chan,$6).pnick | cnick $nick(%scan.chan,$6).pnick 0 | inc %scan.aways } }
raw 315:* { if (%scan.aways == 0) { .did -r scanaway 5 | .did -a scanaway 5 Away Olan Yok | set %awaysfound None } | .disable #scanaway | unset %scan.aways | if (%awaysfound == None) { .did -r scanaway 5 | .did -a scanaway 5 away Bulunamadı } | if (%awaysfound != None) { .did -r scanaway 5 | .did -a scanaway 5 Away Taraması Tamamlandı. } | unset %awaysfound | halt }
#scanaway end
on *:load: {
if ($version == 5.9) { .echo -a Düşük Versiyon! | .unload $script | halt }
if ($version < 5.8) { .echo -a Düşük Versiyon! | .unload $script | halt }
else { .echo -a $nopath($script) iRC Script away TarayıCı Menu Listesine Eklendi. | .echo -a iRC Script Download: http://www.DoruKirC.tK | .set %away.warn No Away’s Here... Please, Come Back Soon!! =P | .set %away.kick I Remmember You... Here, Isn’t Alowed Away’s!! =) | .set %away.kb $server serverinde cinsel içerikli mesaj yasaktır. }
}
on *:dialog:warn:*:*: {
if ($devent == init) { .did -m $dname 3,5,7 | .did -a $dname 3 %away.warn | .did -a $dname 5 %away.kick | .did -a $dname 7 %away.kb }
if ($devent == sclick) {
if ($did == 2) { .did -n $dname 3 | .did -m $dname 5,7 | .did -f $dname 3 }
if ($did == 4) { .did -n $dname 5 | .did -m $dname 3,7 | .did -f $dname 5 }
if ($did == 6) { .did -n $dname 7 | .did -m $dname 3,5 | .did -f $dname 7 }
}
if ($devent == edit) {
if ($did == 3) { .set %away.warn $did(3) }
if ($did == 5) { .set %away.kick $did(5) }
if ($did == 7) { .set %away.kb $did(7) }
}
}
__________________
Y orulmaz
L ider
A şkım
Sana Söz... ßir Ömrü Yanında,ßir Ömrü Kollarında Geçirmeye Varlığımın Anlamına, Hayatımın Tadına Söz...
08-09-2007, 17:13
Away Scan
Linear Mode
