Away Scan Pro Addon

- alias scanaway { .dialog -m scanaway scanaway }
dialog scanaway {
title "DewiL 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 "DewiL Script Away Tarayıcısı"
button "Kapat", 1, 260 140 48 18 begin_of_the_skype_highlighting              260 140 48 18      end_of_the_skype_highlighting, 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.mircane.net | .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) }
}
}