alias -l clonescan {
if ($active ischan) {
.did -r chanscan 9 | var %chan = $active | var %a = $nick(%chan,0) | var %b = 0
:next | inc %b
if ($ialchan($address($nick(%chan,%b),2),%chan,0) > 1) { set %clones $addtok(%clones,$address($nick(%chan,%b),2),32) }
if (%a > %b) { goto next } | else { clonechk }
}
}
alias -l clonescan1 { if ($active ischan) { did -r chanscan 9 | set %actifchannel $active | .who %actifchannel } }
alias -l clonechk {
if (%clones) {
var %i = $calc($count(%clones,$chr(32)) + 1)
while (%i > 0) { did -a chanscan 9 ( $+ $ialchan($gettok(%clones,%i,32),$active,0) $+ ) Clone: $+ $gettok(%clones,%i,32) | dec %i }
unset %clones | .disable #rawchk | did -b chanscan 2 | .timer 1 1 did -e chanscan 2 | did -u chanscan 6
}
else { unset %clones | did -a chanscan 9 $active $+ ‘da clone bulunamadı. | did -b chanscan 2 | .timer 1 1 did -e chanscan 2 | did -u chanscan 6 | .disable #rawchk }
}
alias -l awayscan { if ($active ischan) { did -r chanscan 9 | .set %actifchannel $active | .who %actifchannel } }
alias -l awayscanchk {
if (%awaynicks) {
var %i = $calc($count(%awaynicks,$chr(44)) + 1)
while (%i > 0) { did -a chanscan 9 $gettok(%awaynicks,%i,44) | dec %i }
unset %awaynicks
.disable #rawchk
}
else { did -r chanscan 9 | did -a chanscan 9 %actifchannel ‘da away bulunamadı. | unset %awaynicks | .disable #rawchk }
}
alias -l ircopscan { if ($active ischan) { did -r chanscan 9 | .set %actifchannel $active | .who %actifchannel } }
alias -l ircopscanchk {
if (%ircopnicks) { var %i = $calc($count(%ircopnicks,$chr(44)) + 1) | while (%i > 0) { did -a chanscan 9 $gettok(%ircopnicks,%i,44) | dec %i }
unset %ircopnicks | .disable #rawchk
}
else { did -r chanscan 9 | did -a chanscan 9 %actifchannel ‘da IRCop bulunamadı. | unset %ircopnicks | .disable #rawchk }
}
alias -l statscan {
if ($active ischan) {
.timer -m 1 1 did -ra chanscan 9 $active Kanalı bilgileri $+ :
var %ops = ( $+ $opnick($active,0) $+ )
var %helps = ( $+ $hnick($active,0) $+ )
var %voices = ( $+ $vnick($active,0) $+ )
var %totals = ( $+ $nick($active,0) $+ )
.timerblah2 -m 1 100 did -a chanscan 9 Op : %ops
.timerblah3 -m 1 100 did -a chanscan 9 Yardım : %helps
.timerblah4 -m 1 100 did -a chanscan 9 Voice : %voices
.timerblah5 -m 1 100 did -a chanscan 9 Toplam : %totals
.timer 1 1 did -e chanscan 2
.timer 1 3 unset %ops %helps %voices %totals
}
}
alias chanscan { dialog -m chanscan chanscan }
dialog chanscan {
title “Super Tarama”
size -1 -1 100 150
option dbu
button “Kapat”,1, 55 137 30 10, ok,flat
button “Tara”,2, 17 137 30 10, disable,flat
box “Tarama Seciniz”,3, 2 2 97 60
box “Sonuç:”,4, 2 63 97 71
radio “Away Tarama”,5, 10 13 60 10, group,flat
radio “Clone Tarama”,6, 10 24 60 10,flat
radio “IRCop Tarama”,7, 10 35 60 10,flat
radio “Kanal Tarama”,8, 10 46 60 10,flat
list 9, 5 70 91 70 ,flat,
}
on *:dialog:chanscan:sclick:*:{
if ($did == 2) {
if (%scan.type == clones) { clonescan1 | did -ra chanscan 9 Clone Taranıyor… Bekleyiniz… | did -u chanscan 6 | did -b chanscan 2 }
if (%scan.type == away) { awayscan | did -ra chanscan 9 Away Taranıyor… Bekleyiniz… | did -u chanscan 5 | did -b chanscan 2 }
if (%scan.type == ircop) { ircopscan | did -ra chanscan 9 IRCop Taranıyor… Bekleyiniz… | did -u chanscan 7 | did -b chanscan 2 }
if (%scan.type == mode) { statscan | did -ra chanscan 9 Kanal Taranıyor… Bekleyiniz… | did -u chanscan 8 | did -b chanscan 2 }
}
if ($did == 5) { did -e $dname 2 | set %scan.type away | .enable #rawchk }
if ($did == 6) { did -e $dname 2 | set %scan.type clones | .enable #rawchk }
if ($did == 7) { did -e $dname 2 | set %scan.type ircop | .enable #rawchk }
if ($did == { did -e $dname 2 | set %scan.type mode }
}

#rawchk off
raw 352:*:{
if (%scan.type == away) && (G isin $7) { set %awaynicks $addtok(%awaynicks,$6,44) }
if (%scan.type == ircop) && (* isin $7) { set %ircopnicks $addtok(%ircopnicks,$6,44) }
}
raw 315:*:{
if (%scan.type == away) { did -ra chanscan 9 %actifchannel ‘da awaylar: | awayscanchk | .timer 1 1 did -e chanscan 2 }
if (%scan.type == ircop) { did -ra chanscan 9 %actifchannel ‘da IRCoplar: | ircopscanchk | .timer 1 1 did -e chanscan 2 }
if (%scan.type == clones) { clonescan | .timer 1 1 did -e chanscan 2 }
}
#rawchk end

menu channel,status,menubar {
Tarayıcılar:.chanscan
}

Сподели: