IRCOP Scan

menu status,channel,menubar { 
Scan Control 
.IRCop Scan:dialog -m ircop ircop 
} 

alias scanircops.dialog { dialog -m ircop ircop } 
dialog ircop { 
title "Beta System IRCop Scan.." 
size 201 105 321 287 
list 71, 10 210 150 37, size 
list 45, 10 20 145 177, size,vsbar 
list 35, 165 45 145 152, size,vsbar 
list 81, 160 210 150 37, size 
box "Scan Network:", 14, 6 5 155 195 
box "Scan Channel:", 13, 161 5 155 195 
button "Scan", 19, 10 250 70 25,default 
button "Scan", 16, 240 250 70 25,default 
button "Close", 2, 125 247 70 28,ok 
text "Chan:", 6, 165 25 30 15 
combo 5, 195 20 115 100, drop, size 
box "", 12, 6 200 310 80 
} 
on *:dialog:ircop:*:*:{ 
if $devent == sclick { 
if $did == 2 { dialog -x ircop } 
if $did == 19 { scan-ircops.net } 
if $did == 16 { scan-ircops.chan } 
if $did == 5 { 
set %scan.chan $did(5).text 
} 
} 
if $devent == init { 
getchans 
chk.connection 
} 
} 
alias chk.connection { 
if $server == $null { 
did -r ircop 81,71 
did -a ircop 71,81 Status: Not Connected 
} 
} 
alias scan-ircops.net { 
if $server == $null { echo -s (Script name) Hiç bir server'e baglı değilsiniz.. | halt } 
did -r ircop 45 
did -r ircop 71 
set %chk.cops 0 
.disable #ircop-scan.chan 
.enable #ircop-scan.net 
did -ra ircop 71 Status: Scanning... 
who 0 o 
} 
alias scan-ircops.chan { 
if $server == $null { echo -s (Script name) Hiç bi kanal'da bulunmuyorsunuz.. | halt } 
did -r ircop 35 
did -r ircop 81 
set %chk.cops 0 
who %scan.chan * 
.disable #ircop-scan.net 
.enable #ircop-scan.chan 
} 
#ircop-scan.chan off 
raw 352:* { 
did -ra ircop 81 Status: Scanning... 
if (* isin $7) { did -a ircop 35 $6 
inc %chk.cops 
} 
} 
raw 315:* { 
dialog -t ircop IRCop Scan ( %chk.cops IRCop's ) 
if %chk.cops == 0 { did -a IRCop 35 Status: No IRCop's | set %copsfound none } 
.disable #ircop-scan.chan 
unset %scan.chan 
unset %chk.cops 
if %copsfound == none { did -a ircop 81 Status: No IRCop's } 
if %copsfound != none { 
did -ra ircop 81 Status: Tarama bitti.. 
} 
unset %copsfound 
halt 
} 
#ircop-scan.chan end 
#ircop-scan.net off 
raw 352:* { 
did -a ircop 45 $6 
inc %chk.cops 
halt 
} 
raw 315:* { 
dialog -t ircop IRCop Scan ( %chk.cops IRCop's ) 
if %chk.cops == 0 { did -a IRCop 45 Status: No IRCop's | set %copsfound none } 
unset %chk.cops 
if %copsfound == none { did -a ircop 71 Status: No IRCop's } 
if %copsfound != none { 
did -ra ircop 71 Status: Tarama bitti.. 
} 
unset %copsfound 
.disable #ircop-scan.net 
halt 
} 
#ircop-scan.net end 
alias getchans { 
set %num.chans 0 
:start 
inc %num.chans 
if ($comchan($me,%num.chans)) { 
/did -a ircop 5 $comchan($me,%num.chans) 
goto start 
} 
unset %num.chans 
if $comchan($me,0) == 0 nonechanz 
} 
alias nonechanz { did -b ircop 5 | did -b ircop 6 | did -r ircop 81 | did -a ircop 81 Status: Not Channel! }