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