Scanner IRCop`s

[script]
n0=alias scanircops.dialog { dialog -m ircop ircop }
n1=dialog ircop {
n2= title "Dialog IRCop Scan By StaFF"
n3=
n4= size -1 -1 500 360
n5=
n6= text "Dialog IRCop Scan", 1, 10 10 120 20
n7= text "( BiGHacK )", 9, 370 10 100 20
n8= text "Scan for ircops in the network", 77, 10 50 190 20
n9= text "Scan for ircops in channel", 88, 252 50 190 20
n10= text "Chose chan", 6, 252 90 130 100
n11= text "Dialog IRCop Scan byBiGHacK", 4, 10 335 170 19
n12= text "( BiGHacK )", 10, 240 10 100 19
n13= list 71, 10 290 160 38, autohs
n14= list 81, 252 290 160 38, autohs
n15=
n16= box "", 3, 3 28 242 300
n17= box "", 11, 242 28 242 300
n18= combo 5, 322 87 80 50, drop
n19= list 35, 253 123 200 180, autohs
n20= list 45, 10 123 200 180, autohs
n21=
n22= button "&Close", 2, 430 333 60 25, ok
n23=
n24= button "&Scan", 19, 178 300 60 25, default
n25= button "&Scan", 16, 418 300 60 25, default
n26=
n27=}
n28=on *:dialog:ircop:dclick:45:{
n29= var %cop.sel $did(ircop,45).sel
n30= if noircops !iswm $did(ircop,45,%cop.sel).text whois $did(ircop,45,%cop.sel).text
n31=}
n32=on *:dialog:ircop:dclick:35:{
n33= var %cop.sel $did(ircop,35).sel
n34= if noircops !iswm $did(ircop,35,%cop.sel).text whois $did(ircop,35,%cop.sel).text
n35=}
n36=on *:dialog:ircop:*:*:{
n37= if $devent == sclick {
n38= if $did == 2 { dialog -x ircop }
n39= if $did == 19 { scan-ircops.net }
n40= if $did == 16 { scan-ircops.chan }
n41= if $did == 5 {
n42= set %scan.chan $did(5).text
n43= }
n44= }
n45= if $devent == init {
n46= getchans
n47= chk.connection
n48= }
n49=}
n50=alias chk.connection {
n51= if $server == $null {
n52= did -r ircop 81,71
n53= did -a ircop 71,81 *** you are NOT connected
n54= }
n55=}
n56=alias scan-ircops.net {
n57= if $server == $null { echo -s *** you are not connected to an IRC server | halt }
n58= did -r ircop 45
n59= did -r ircop 71
n60= set %chk.cops 0
n61= .disable #ircop-scan.chan
n62= .enable #ircop-scan.net
n63= did -ra ircop 71 Status: Scanning.. please wait.
n64= who 0 o
n65=}
n66=alias scan-ircops.chan {
n67= if $server == $null { echo -s *** you are not connected to an IRC server | halt }
n68= did -r ircop 35
n69= did -r ircop 81
n70= set %chk.cops 0
n71= who %scan.chan *
n72= .disable #ircop-scan.net
n73= .enable #ircop-scan.chan
n74=}
n75=#ircop-scan.chan off
n76=raw 352:* {
n77= did -ra ircop 81 Status: Scanning.. please wait.
n78= if (* isin $7) { did -a ircop 35 $6
n79= inc %chk.cops
n80= }
n81=}
n82=raw 315:* {
n83= dialog -t ircop Dialog IRCop Scan v2.0 ( end of scan %chk.cops ircops found )
n84= if %chk.cops == 0 { did -a ircop 35 no ircops found. | set %copsfound none }
n85= .disable #ircop-scan.chan
n86= unset %scan.chan
n87= unset %chk.cops
n88= if %copsfound == none { did -a ircop 81 Status: No ircops found }
n89= if %copsfound != none {
n90= did -ra ircop 81 end of scan: DOUBLE click
n91= did -a ircop 81 on nick to whois
n92= }
n93= unset %copsfound
n94= halt
n95=}
n96=#ircop-scan.chan end
n97=#ircop-scan.net off
n98=raw 352:* {
n99= did -a ircop 45 $6
n100= inc %chk.cops
n101= halt
n102=}
n103=raw 315:* {
n104= dialog -t ircop Dialog IRCop Scan ( end of scan %chk.cops ircops found )
n105= if %chk.cops == 0 { did -a ircop 45 no ircops found. | set %copsfound none }
n106= unset %chk.cops
n107= if %copsfound == none { did -a ircop 71 Status: No ircops found }
n108= if %copsfound != none {
n109= did -ra ircop 71 end of scan: DOUBLE click
n110= did -a ircop 71 on nick to whois
n111= }
n112= unset %copsfound
n113= .disable #ircop-scan.net
n114= halt
n115=}
n116=#ircop-scan.net end
n117=alias getchans {
n118= set %num.chans 0
n119= :start
n120= inc %num.chans
n121= if ($comchan($me,%num.chans)) {
n122= /did -a ircop 5 $comchan($me,%num.chans)
n123= goto start
n124= }
n125= unset %num.chans
n126= if $comchan($me,0) == 0 nonechanz
n127=}
n128=alias nonechanz { did -b ircop 5 | did -b ircop 6 | did -r ircop 81 | did -a ircop 81 *** you must in a channel }