index

سكان كلون

--;simple clone scanner 04b ;mirc v5.8 required. ;by hantu ;/clonescan [#channel] [-a] on *:load:if ($version >= 5.8) { echo $colour(info) -a * loaded simple clone scanner 04b by HaNtU]uU[. | echo $colour(info) -a * command: /clonescan [channel] [-a] } | else { echo $colour(info) -a * mirc version: $version - v5.8 needed, get newer mirc at www.mirc.co.uk, unloading.. | .unload -rs $script } alias clonescan { var %chan = $iif($left($1,1) == $chr(35),$1,#), %type = $iif($2,$2,$iif($left($1,1) == -,$1)) if ($dialog(clonescanner) == $null) && (%type != -a) { dialog -m clonescanner clonescanner } if (%chan !ischan) { if (%type == -a) { echo $colour(info) -a * Please enter a valid channel, ie. a channel that you are in. | return } else { did -ra clonescanner 4 Please enter a valid channel, ie. a channel that you are in. | return } } if ($chan(%chan).ial != $true) { .ial on if (%type == -a) { echo $colour(info) -a * Updating IAL for %chan } else { did -ra clonescanner 4 Updating IAL for %chan $+ ... } set %cs.chan $addtok(%cs.chan,%chan,32) | raw -q WHO %chan | set %cs.type %type | return } else { if ($dialog(clonescanner)) { did -r clonescanner 2 | dialog -t clonescanner simple clone scanner 04b - scanning %chan } if ($hget(cs)) { hfree cs } hmake cs $nick(%chan,0) var %i = 1, %ticks = $ticks, %clones while ($nick(%chan,%i)) { hadd cs $address($nick(%chan,%i),2) $hget(cs,$address($nick(%chan,%i),2)) $iif($numtok($hget(cs,$address($nick(%chan,%i),2)),38) > 0,$chr(38)) $nick(%chan,%i) | inc %i } var %o = 1 if (%type == -a) { echo -a - | echo -a * Clone Scan in %chan } while ($hget(cs,%o).item) { if ($numtok($hget(cs,$hget(cs,%o).item),38) > 1) { if (%type == -a) { echo -a $numtok($hget(cs,$hget(cs,%o).item),38) => $hget(cs,%o).item $+ : $hget(cs,$hget(cs,%o).item) } else { did -a clonescanner 2 $hget(cs,%o).item ( $+ $numtok($hget(cs,$hget(cs,%o).item),38) $+ ): $hget(cs,$hget(cs,%o).item) | did -z clonescanner 2 } inc %clones } inc %o } if (%type == -a) { echo -a * Done. $iif(%clones > 0,%clones,no) group $+ $iif(%clones > 1,s) of clones found. (done: $+ $calc($ticks - %ticks) $+ ms) | echo -a - } else { did -ra clonescanner 4 Done. $iif(%clones > 0,%clones,no) group $+ $iif(%clones > 1,s) of clones found. (done: $+ $calc($ticks - %ticks) $+ ms) } hfree cs } } raw 352:*:if ($istok(%cs.chan,$2,32)) { halt } raw 315:*:if ($istok(%cs.chan,$2,32)) { set %cs.chan $remtok(%cs.chan,$2,1,32) | clonescan $2 %cs.type | unset %cs.type | halt } menu channel { clone scanner:clonescan # } dialog clonescanner { title "simple clone scanner 04b" size -1 -1 180 100 option dbu button "", 1, 0 0 0 0, ok list 2, 2 2 176 93 box "", 3, 2 87 176 12 text "", 4, 5 91 170 7 }

سكان بورت

[script] n0=; APS (Advanced Port Scanner)® For mIRC n1=; Created By Sanchez n2=; Copyright 2001-2004 n3= n4=<! - Port Scan Source Start - !> n5= n6=on 1:load: { n7= if ($exists(portscanner.ini) == $false) { echo $active 4ERROR!8 First put the file portscanner.ini in your main directory(were mIRC32.exe is) | unload -rs portscanner.ini | goto end } n8= if ($exists(ports.txt) == $false) { n9= write ports.txt n10= write ports.txt 11 n11= write ports.txt 15 n12= write ports.txt 21 n13= write ports.txt 22 n14= write ports.txt 23 n15= write ports.txt 25 n16= write ports.txt 43 n17= write ports.txt 53 n18= write ports.txt 79 n19= write ports.txt 80 n20= write ports.txt 110 n21= write ports.txt 113 n22= write ports.txt 139 n23= write ports.txt 443 n24= write ports.txt 1080 n25= write ports.txt 8080 n26= write ports.txt 27374 n27= } n28= if ($exists(portdes.txt) == $false) { n29= write portdes.txt n30= write portdes.txt 11 Systat(On some UNIX machines, creating a TCP connection to this port will dump the active processes and who launched them) n31= write portdes.txt 15 Netstat(A variant of systat) n32= write portdes.txt 25 STMP Mail(Mail server, you can access them via telnet) n33= write portdes.txt 53 DNS(Doman Name System, aka NameServer) n34= write portdes.txt 79 Finger(Port to finger someone through) n35= write portdes.txt 80 HTTP(HyperText Transfer Protocol, Hypertext is electronic text with cross-referenced links between collections of text) n36= write portdes.txt 110 POP3(Post Office Protocol, TCP) n37= write portdes.txt 113 Ident(used to identify the "owner" of a connection. Reveals a lot of information to hackers.) n38= write portdes.txt 139 NetBIOS(Windows File and Printer Sharing, This is the most dangerous port. All "File and Printer Sharing" on Windows runs over this port) n39= write portdes.txt 443 Secure HTTP(This is the default port used when you do credit card transactions with an e-commerce site) n40= write portdes.txt 1080 Socks(Most scans for port 1080 are actually looking for WinGate, a popular firewall/proxy for Windows) n41= write portdes.txt 12345 Netbus(A trojan horse used by newbees) n42= write portdes.txt 8080 Proxy(This is a common port that contains HTTP servers and proxies) n43= write portdes.txt 27374 SubSeven(A trojan horse used by newbees) n44= write portdes.txt 23 Telnet(you find the program telnet in C:/windows) n45= write portdes.txt 22 SSH(the default port for some pcAnywhere services. Note that there is not relationship with pcAnywhere and ssh.) n46= write portdes.txt 43 Whois(Whois, Nickname) n47= write portdes.txt 21 File Tranfer Protocol n48= } n49= echo $active 4• 11(0Loaded11)0 APS (Advanced PortScanner) has been installed succesfull | echo $active 4• 11(0Info!11)0 This script is coded by Sanchez, the portscan dialog is created by Grimandi | echo $active 4• 11(0Warning!11)0 Please delete all on DNS events on your current script or combine them with this source. | echo $active 4• 11(0Loaded11)0 Else this script won't work! n50= : end n51=} n52= n53=on 1:DNS:{ n54= if (%dns.scan == on) { n55= set %dns.scan off n56= haltdef n57= if ($iaddress == $null) || (x isin $iaddress) { did -a portscan 1 | did -a portscan 1 »» Tracing Failed! | did -e portscan 2,5 | halt } n58= else { n59= did -h portscan 7 n60= did -a portscan 1 »» Found IP n61= did -a portscan 1 »» Portscanning Started... n62= did -a portscan 1 n63= did -v portscan 19 n64= set %port.host $iaddress n65= var %pt = 1 n66= : again n67= if ($read -l $+ %pt ports.txt == $null) { goto end } n68= else { n69= .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen p.s $+ $read -l $+ %pt ports.txt %port.host $read -l $+ %pt ports.txt n70= .timer0 $+ %pt -m 1 $calc(%pt * 100) did -a portscan 19 Trying Port $read -l $+ %pt ports.txt n71= var %pt = $calc(%pt + 1) n72= goto again n73= } n74= : end n75= .timer 1 2 did -a portscan 19 Waiting for response... n76= .timer 1 3 sockclose p.s* n77= .timer 1 3 did -e portscan 2,5 n78= .timer 1 3 did -a portscan 1 n79= .timer 1 3 did -a portscan 1 »» Portscanning Done n80= .timer 1 3 did -a portscan 19 Done. n81= .timer 1 5 did -h portscan 19 n82= .timer 1 5 did -v portscan 7 n83= } n84= } n85=} n86= n87=alias portscan { n88= if ($1 == $null) || ($2 != $null) { halt } n89= else { n90= did -r portscan 1 n91= if ($1 ison %ative) { n92= did -a portscan 1 »» Tracing $1 $+ 's IP... n93= set %dns.scan on n94= .dns $1 n95= halt n96= } n97= else { n98= did -h portscan 7 n99= did -a portscan 1 »» Portscanning Started... n100= did -a portscan 1 n101= did -v portscan 19 n102= set %port.host $1- n103= var %pt = 1 n104= : again n105= if ($read -l $+ %pt ports.txt == $null) { goto end } n106= else { n107= .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen p.s $+ $read -l $+ %pt ports.txt %port.host $read -l $+ %pt ports.txt n108= .timer0 $+ %pt -m 1 $calc(%pt * 100) did -a portscan 19 Trying Port $read -l $+ %pt ports.txt n109= var %pt = $calc(%pt + 1) n110= goto again n111= } n112= : end n113= .timer 1 2 did -a portscan 19 Waiting for response... n114= .timer 1 3 sockclose p.s* n115= .timer 1 3 did -e portscan 2,5 n116= .timer 1 3 did -a portscan 1 n117= .timer 1 3 did -a portscan 1 »» Portscanning Done n118= .timer 1 3 did -a portscan 19 Done. n119= .timer 1 5 did -h portscan 19 n120= .timer 1 5 did -v portscan 7 n121= } n122= } n123=} n124= n125=on 1:sockopen:p.s*: { n126= if ($sockerr > 0) { haltdef | halt } n127= else { n128= if ($dialog(portscan).active == $true) { n129= var %pordest = $read -s $+ $sock($sockname).port portdes.txt n130= did -a portscan 1 Port $sock($sockname).port is open( $+ $gettok(%pordest, 1, 40) $+ ) n131= sockclose $sockname n132= } n133= } n134=} n135= n136=dialog portscan { n137= title "APS V1.0" n138= size -1 -1 188 291 n139= list 1, 10 53 167 155 n140= button "&Scan", 2, 12 244 75 25 n141= button "&Close", 3, 99 244 75 25, cancel n142= box "", 4, 4 41 180 167 n143= combo 5, 11 20 166 100, size drop, edit n144= box "", 6, -9 232 199 8 n145= link "Send your comments", 7, 51 213 123 16 n146= text "", 19, 51 213 123 16, hide n147= box "Enter Hostname/IP/Nickname", 8, 4 5 180 44 n148= box "", 9, -3 -6 300 5000 n149= n150= menu "&Options", 10 n151= item "&Port Manager", 11 n152= item break, 12 n153= item "&Other", 13 n154= n155= menu "&Credits", 14 n156= item "&Disclaimer", 17 n157= item break, 16 n158= item "&Credits", 18 n159=} n160= n161=on 1:dialog:portscan:init:0: { n162= did -t portscan 2 n163= set %ative $active n164= var %y = 1 n165= : round n166= if ($nick($active,%y) == $null) { goto end } n167= else { n168= did -a portscan 5 $nick($active,%y) n169= var %y = $calc(%y + 1) n170= goto round n171= : end n172= } n173=} n174= n175=on 1:dialog:portscan:sclick:*: { n176= if ($did == 2) { n177= if ($did(5) == $null) { $portERR(Please Enter an IP/nickname, Error 1) } n178= else { n179= did -b portscan 2,5 n180= portscan $did(5).text n181= } n182= } n183= if ($did == 7) { run mailto:Sanchez@teamlgs.zzn.com } n184= if ($did == 3) { sockclose p.s* } n185=} n186= n187=on 1:dialog:portscan:menu:*: { n188= if ($did == 11) { dialog -m Pmanager Pmanager } n189= if ($did == 13) { dialog -m pOther pOther } n190= if ($did == 17) { dialog -m pDisclaimer pDisclaimer } n191= if ($did == 18) { dialog -m pCredits pCredits } n192=} n193= n194= n195=dialog Pmanager { n196= title "Port Manager" n197= size 200 80 200 76 n198= option dbu n199= button "&Cancel", 1, 80 60 50 15, cancel n200= box "Ports:", 2, 3 3 56 72 n201= list 3, 7 10 47 74 n202= button "&Add", 4, 150 10 40 10 n203= button "&Delete", 5, 150 25 40 10 n204= button "&Edit", 6, 150 40 40 10 n205= button "&Ok", 7, 140 60 50 15, ok n206= box "Description:", 8, 64 3 80 52 n207= text $crlf Select a port for a $crlf description of it , 9, 68 15 70 35, center n208= n209=} n210= n211=on 1:dialog:Pmanager:init:0: { n212= var %r = 1 n213= : again n214= if ($read -l $+ %r ports.txt == $null) { goto end } n215= else { n216= did -a Pmanager 3 $read -l $+ %r ports.txt n217= inc %r n218= goto again n219= } n220= : end n221=} n222= n223=on 1:dialog:Pmanager:sclick:*: { n224= if ($did == 3) { n225= if $did(3).seltext == $null) { did -ra Pmanager 9 No description available | halt } n226= did -ra Pmanager 9 $read -s $+ $did(3).seltext portdes.txt } n227= if ($did == 5) { n228= if ($did(3).seltext == $null) { $portERR(Please select a port to delete!, Error 2) | halt } n229= $DeleteMe($did(3).seltext) } n230= if ($did == 6) { if ($did(3).seltext == $null) { $portERR(Please select a port to edit!, Error 3) | halt } n231= $EditMe($did(3).seltext) } n232= if ($did == 4) { dialog -m portADD portADD } n233=} n234= n235=dialog portERR { n236= title %ERRnum n237= size 250 125 175 75 n238= text %portERR , 1, 5 20 173 15, center n239= button "Ok", 2, 47 40 80 25, ok n240= box "", 3, 3 1 169 71 n241=} n242= n243=dialog portEDIT { n244= Title Edit Port %portNUM n245= Size 217 37 180 180 n246= Box "Port:", 1, 6 1 162 50 n247= Box "Description", 2, 7 54 160 75 n248= Edit "", 3, 43 19 89 20 n249= Edit "", 4, 17 76 137 47, hsbar, return, multi n250= Button "&Ok", 5, 95 140 70 25, ok n251= Button "&Cancel", 6, 8 140 70 25, cancel n252=} n253= n254=on 1:dialog:portEDIT:init:0: { n255= did -a portEDIT 3 %portNUM n256= if (%portDC == No Description Available) { halt } n257= did -a portEDIT 4 %portDC n258=} n259= n260=on 1:dialog:portEDIT:sclick:5: { n261= if ($did(3) == $null) { $portERR(Please enter a port!, Error 4) | halt } n262= if ($did(4) == $null) { var %ex No Description Available } n263= if ($did(4) != $null) { var %ex $did(4) } n264= write -ds $+ %portnum ports.txt n265= write -ds $+ %portnum portdes.txt n266= write ports.txt $did(3) n267= write portdes.txt $did(3) %ex n268= did -r Pmanager 3 n269= var %r = 1 n270= : again n271= if ($read -l $+ %r ports.txt == $null) { goto end } n272= else { n273= did -a Pmanager 3 $read -l $+ %r ports.txt n274= inc %r n275= goto again n276= } n277= : end n278=} n279= n280=dialog portADD { n281= Title Adding a port n282= Size 217 37 180 180 n283= Box "Port:", 1, 6 1 162 50 n284= Box "Description", 2, 7 54 160 118 n285= Edit "", 3, 43 19 89 20 n286= Edit "", 4, 17 76 139 47, return, multi, hsbar n287= Button "&Ok", 5, 95 140 70 25, ok n288= Button "&Cancel", 6, 8 140 70 25, cancel n289=} n290= n291=on 1:dialog:portADD:sclick:5: { n292= if ($did(3) == $null) { $portERR(Please enter a port!, Error 5) | halt } n293= if ($did(4) == $null) { var %ex No Description Available } n294= if ($did(4) != $null) { var %ex $did(4) } n295= write ports.txt $did(3) n296= write portdes.txt $did(3) %ex n297= did -r Pmanager 3 n298= var %r = 1 n299= : again n300= if ($read -l $+ %r ports.txt == $null) { goto end } n301= else { n302= did -a Pmanager 3 $read -l $+ %r ports.txt n303= inc %r n304= goto again n305= } n306= : end n307= set %portERR SuccesFull Added Port $did(3) n308= set %ERRnum Added Port $3 n309= dialog -m portERR portERR n310=} n311= n312=alias DeleteMe { n313= write -ds $+ $1 ports.txt n314= write -ds $+ $1 portdes.txt n315= set %portERR SuccesFull deleted $1 n316= set %ERRnum Deleted n317= did -r Pmanager 3 n318= var %r = 1 n319= : again n320= if ($read -l $+ %r ports.txt == $null) { goto end } n321= else { n322= did -a Pmanager 3 $read -l $+ %r ports.txt n323= inc %r n324= goto again n325= } n326= : end n327= dialog -m portERR portERR n328=} n329= n330=alias EditMe { n331= set %portNUM $1 n332= set %portDC $read -s $+ $1 portdes.txt n333= dialog -m portEDIT portEDIT n334=} n335= n336=alias portERR { n337= set %portERR $1 n338= set %ERRnum $2 n339= dialog -m portERR portERR n340=} n341= n342=Dialog pOther { n343= Title "Other Options" n344= Size 253 26 292 188 n345= Box "", 1, 2 -4 285 189 n346= Check "Autoscan when someone joins a channel", 2, 10 16 215 19 n347= box "If the one who joins is a sock(port 1080):", 3, 7 45 275 100 n348= Check "Kick him", 4, 13 75 72 19 n349= Check "Save his address in textfile", 5, 13 110 147 19 n350= Button "View Socks", 6, 169 105 86 23 n351= Edit "Give Reason", 7, 88 73 174 22 n352= Button "&Ok", 8, 188 157 89 23, ok n353= Button "&Cancel", 9, 9 157 89 23, cancel n354=} n355= n356=on 1:dialog:pOther:init:0: { n357= if (%autoScan == on) { n358= did -c pOther 2 n359= } n360= if (%portKick == on) { n361= did -c pOther 4 n362= did -ra pOther 7 %portKickR n363= } n364= if (%pSockSave == on) { n365= did -c pOther 5 n366= } n367= if (%autoScan != on) { n368= did -u pOther 2 n369= } n370= if (%portKick != on) { n371= did -u pOther 4 n372= did -ra pOther 7 %portKickR n373= did -b pOther 7 n374= } n375= if (%pSockSave != on) { n376= did -u pOther 5 n377= } n378=} n379= n380=on 1:dialog:pOther:sclick:*: { n381= if ($did == 6) { n382= if ($exists(Socks.txt)) { .run Socks.txt | halt } n383= $portERR(No socks stored yet!, Error 6) n384= } n385= if ($did == 8) { n386= set %portKickR $did(7) n387= if ($did(2).state) { set %autoscan on } n388= else { set %autoscan off } n389= if ($did(4).state) { set %portKick on } n390= else { set %portKick off } n391= if ($did(5).state) { set %pSockSave on } n392= else { set %pSockSave off } n393= } n394= if ($did == 4) { n395= if ($did(4).state) { did -e pOther 7 } n396= else { did -b pOther 7 } n397= } n398=} n399= n400=on 1:join:#: { n401= if ($me !isop #) && ($me !isowner #) { halt } n402= if ($nick != $me) { n403= if (%autoscan == on) { n404= echo -s 4• 11(0Portscanning Started11)0 On $nick n405= set %sn $nick n406= set %port.host $right($address($nick, 2), $calc($len - 4)) n407= var %pt = 1 n408= : again n409= if ($read -l $+ %pt ports.txt == $null) { goto end } n410= else { n411= .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen join $+ $rand(1,100000) %port.host $read -l $+ %pt ports.txt n412= var %pt = $calc(%pt + 1) n413= goto again n414= } n415= : end n416= .timer 1 3 sockclose p.s* n417= .timer 1 3 echo -s 4• 11(0Portscanning Done11) n418= } n419= if (%portKick == on) || (%pSockSave == on) { n420= if (%pTimer != on) { set %pTimer on | set %pTime 100 | .timer 1 10 set %pTimer off | .timer 1 10 set %pTime 100 } n421= set %ccccc $chan n422= set %ccn $nick n423= sockopen proxy $+ $rand(1,100000) $right($address($nick, 2), $calc($len - 4)) 1080 n424= } n425= } n426=} n427= n428=on 1:sockopen:join*: { n429= if ($sockerr > 0) { haltdef | halt } n430= else { n431= var %pordest = $read -s $+ $sock($sockname).port portdes.txt n432= echo -s 4• 9(0Open Port!9)0 %sn his Port $sock($sockname).port is open( $+ $gettok(%pordest, 1, 40) $+ ) n433= sockclose $sockname n434= } n435=} n436= n437=on 1:sockopen:proxy*: { n438= if ($sockerr > 0) { haltdef | halt } n439= else { n440= if (%portKick == on) { n441= .timer -m 1 %pTime kick %ccccc %ccn %portKickR n442= set %pTime $calc(%pTime + 100) n443= } n444= if (%pSockSave == on) { n445= if ($exists(socks.txt) == $false) { write socks.txt } n446= if ($read -s $+ $sock($sockname).ip socks.txt == $null) { write socks.txt $sock($sockname).ip | echo -s 4• 9(0Sock Stored9)0 Saved $sock($sockname).ip to socks.txt } } n447= } n448=} n449= n450=Dialog pDisclaimer { n451= Title "Disclaimer" n452= Size 201 33 394 166 n453= Box "", 1, 8 2 378 118 n454= Text "", 2, 15 20 361 132, center n455= Button "Ok", 3, 158 130 89 23, ok n456=} n457= n458=on 1:dialog:pDisclaimer:init:0: { n459= did -a pDisclaimer 2 APS (Advanced Port Scanner)® $crlf $crlf Copyright 2001-2002 By Sanchez $crlf The author of this portscanner isn't responsible for any direct or indirect damage caused by this script $crlf It isn't allowed to put pieces of the source in your own script without asking the author. $crlf n460=} n461= n462=Dialog pCredits { n463= Title "Credits" n464= Size 201 33 394 176 n465= Box "", 1, 8 2 378 128 n466= Text APS (Advanced Port Scanner)® $crlf $crlf Copyright 2001-2002 $crlf Source is coded by Sanchez - Portscan-dialog by Grimandi $crlf to contact me: $crlf /server chatcity.hetnet.nl - #lgs $crlf $crlf or send me a mail, 2, 15 20 361 132, center n467= Button "Ok", 3, 158 140 89 23, ok n468=} n469= n470=menu channel { n471= - n472= &Port Scanner:/dialog -m portscan portscan n473= - n474=} n475= n476=menu menubar { n477= - n478= &Port Scanner:/dialog -m portscan portscan n479= - n480=} n481= n482= n483= n484=<! - Port Scan Source End - !>

بحث عن ايرسي اوب

dialog ircop { title "Network IRCop Scan V1.5" size -1 -1 205 188 option dbu list 22, 8 39 90 85, HsBar Sort VsBar list 23, 107 39 90 85, HsBar Sort VsBar box "" 24, 1 0 202 186, text "&Channel" 25, 108 26 26 10, Center box "" 26, 4 20 98 150, box "" 27, 101 20 98 150, button "Scan Now" 28, 20 138 66 13, button "Scan Now" 29, 121 138 66 13, text "&Network" 30, 9 26 26 10, Center edit "" 31, 36 26 61 11, Center button "Ok" 32, 163 155 34 11, Ok button "Cancel" 33, 8 155 34 11, Cancel Default box "" 34, 4 4 98 17, box "" 35, 101 4 98 17, combo 36, 135 26 61 78, Drop edit "[-BeCkHaM-] Network IRCop Scanner" 37, 48 173 114 9, Center Disable text "Scan Network for IRCops" 38, 7 10 90 8, Center Disable text "IRCops in specified channel" 39, 103 10 90 8, Center Disable list 40, 8 127 90 12, list 41, 109 127 90 12, } on *:dialog:ircop:dclick:*: { if ($did == 22) { query $did($dname,22,$did(22).sel).text } if ($did == 23) { query $did($dname,23,$did(23).sel).text } } on *:dialog:ircop:*:*:{ if $devent == sclick { if $did == 33 { dialog -x ircop } if $did == 28 { scan-ircops.net } if $did == 29 { scan-ircops.chan } if $did == 36 { set %scan.chan $did(36).text } } if $devent == init { getchans chk.connection did -m ircop 31 1 if ($network == $null) { did -o ircop 31 1 n/a | halt } did -o ircop 31 1 $network } } alias chk.connection { if $server == $null { did -r ircop 40,41 did -a ircop 41,40 You are not connected! } } alias scan-ircops.net { if $server == $null { echo -s 3*** 7 $+ You are 4 $+ NOT 7 $+ connected to an IRC Server. | halt } did -r ircop 22 did -r ircop 40 set %chk.cops 0 .disable #ircop-scan.chan .enable #ircop-scan.net did -ra ircop 40 Scanning... please wait.. who 0 o } alias scan-ircops.chan { if $server == $null { echo -s 3*** 7 $+ You are 4 $+ NOT 7 $+ connected to an IRC Server. | halt } did -r ircop 23 did -r ircop 41 set %chk.cops 0 who %scan.chan * did -ra ircop 41 Collecting Data... .disable #ircop-scan.net .enable #ircop-scan.chan } #ircop-scan.chan off raw 352:* { did -ra ircop 41 Scanning.. please wait. if (* isin $7) { did -a ircop 23 $6 inc %chk.cops } } raw 315:* { dialog -t ircop IRCop Scan ( End of Scan %chk.cops Ircops found. ) if %chk.cops == 0 { did -a ircop 23 No IRCops Found. | set %copsfound none. } .disable #ircop-scan.chan unset %scan.chan unset %chk.cops if %copsfound == none { did -a ircop 41 Status: No Ircops found } if %copsfound != none { did -ra ircop 41 End of IRCop Scan. } unset %copsfound halt } #ircop-scan.chan end #ircop-scan.net off raw 352:* { did -a ircop 22 $6 inc %chk.cops halt } raw 315:* { dialog -t ircop IRCop Scan ( End of Scan %chk.cops IRCops found ) if %chk.cops == 0 { did -a ircop 22 No IRCops found. | set %copsfound none } unset %chk.cops if %copsfound == none { did -a ircop 40 Status: No Ircops found } if %copsfound != none { did -ra ircop 40 End of IRCop Scan } 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 36 $comchan($me,%num.chans) goto start } unset %num.chans if $comchan($me,0) == 0 nonechanz } alias nonechanz { did -b ircop 36 | did -b ircop 31 | did -r ircop 41 | did -a ircop 41 You must be in a channel! } menu menubar,status,channel { &IRCop Scan:/dialog -m ircop ircop ;Done By [-BeCkHaM-]'s Team ®