PowerFull Impact — File Browser
PowerFullImpactv1.0 / PowerFullImpactv1.0 / ALIASES.INI
ALIASES.INI — 30.88 KB — Download this file
[Aliases]
n0=F12 ignore -a *!*@* | wecho You are set to ignore everything (CTCP,privmsg,notice,invites,channel text). Use F11 to unignore. | %ignore == YeS
n1=backup recho 6 Backing Up and saving all changes! Please Wait... | .save -p $mIRCdirpopups.ini | .save -c $mIRCdircommands.ini | .save -e $mIRCdirevents.ini | .save -a $mIRCdiraliases.ini | .save -u $mIRCdirusers.ini | .save -v $mIRCdirvar.ini | .save -r $mIRCdirraw.ini | .save -p $mIRCdirbackup\popups.ini | .save -c $mIRCdirbackup\commands.ini | .save -e $mIRCdirbackup\events.ini | .save -a $mIRCdirbackup\aliases.ini | .save -u $mIRCdirbackup\users.ini | .save -v $mIRCdirbackup\var.ini | .save -r $mIRCdirbackup\raw.ini | recho 6 Complete.
n2=usall ignore -r %Sadd | ignore -r %Snick 4 | silence - $+ %sadd | recho 4 Unignoring and UnSilencing %snick ( $+ %sadd $+ )
n3=chaninfo %ccn = # | %clist = 0 | %iropn = "" | %clns = 0 | %nclns = "" | %chaniop = 0 | %chanvo = 0 | %chanaway = 0 | %tvo = 0 | unset %meop | unset %mevo | chan.i1
n4=chan.i1 %chitim = 8 | if ($nick(0,#) > 15) { %chitim = 10 } | recho 6 * Getting Channel Infomation for $chan Please wait..( $+ %chitim $+ ) | who # | .timer 1 %chitim chan.i2
n5=lall .load -r $mIRCdirraw.ini | .load -a $mIRCdirAliases.ini | .load -p $mIRCdirPoPups.ini | .load -u $mIRCdirusers.ini | .load -c $mIRCdircommands.ini | .load -e $mIRCdirevents.ini | .load -v $mIRCdirvar.ini | recho 4 %logo is properly configured!
n6=Status echo 5 =============== Your Status ================= | recho 3 Sign-On Time = $fulldate | recho 3 Your Current Sever = $server | recho 3 Your Current Nick = $me | recho 3 Your HOST = $host | recho 3 Your IP Address = $IP | recho 3 Auto-Set Mode = +iw | /echo 5 ================== END =====================
n7=dtog echo 5 =============== %logo Toggles =============== | recho 5 Flood Protection: %Fpro | recho 5 Message Flood Prot: %msgn | recho 5 Clone Protection: %cpro | recho 5 Nick Flood Pro: %npro | recho 5 Channel Text Flood Pro: %tpro | recho 5 ServerOp Protection: %spro | recho 5 Invite Flood Pro: %ipro
n8=op raw -q mode # +oooooo $$1 $2 $3 $4 $5 $6 | raw -q mode # +oooooo $$7 $8 $9 $10 $11 $12
n9=deop raw -q mode # -oooooo $$1 $2 $3 $4 $5 $6 | raw -q mode # -oooooo $$7 $8 $9 $10 $11 $12
n10=v+ raw -q mode # +vvvvvv $$1 $2 $3 $4 $5 $6 | /raw -q mode # +vvvvvv $$7 $8 $9 $10 $11 $12
n11=v- raw -q mode # -vvvvvv $$1 $2 $3 $4 $5 $6 | raw -q mode # -vvvvvv $$7 $8 $9 $10 $11 $12
n12=opdeop mode # +o-o $$1 $$2
n13=ping ctcp $$1 Ping
n14=rctcp raw -q notice $$1 : $+ $$2 $$3 *4 $+
n15=umode mode $me *1
n16=F11 ignore -r *!*@* | wecho Unignored *!*@* | %ignore == No
n17=recho echo 4 $active *2
n18=wecho echo 4 !!! *1 !!!
n19=chan.i2 {
n20= :Start
n21= %tvo = [ $nick(0,#) - $opnick(0,#) ] | %tvo = %tvo - %chanvo
n22= else { %meop = NO }
n23= echo 5 * ----------[ Channel Infomation for # ]----------
n24= recho 3 * Topic: $topic(#)
n25= recho 3 * Modes: $mode(#)
n26= recho 3 * Users: $nick(0,#) [AWAY %chanaway $+ / $+ $nick(0,#) $+ ]
n27= recho 3 * Ops: $opnick(0,#)
n28= recho 3 * NonOps: $nopnick(0,#)
n29= recho 3 * Voice: %chanvo
n30= recho 3 * Non Voice: %tvo
n31= recho 3 * Clones: %clns - %nclns
n32= recho 3 * IRCops: %chaniop - %iropn
n33= if ($me isop #) { recho 3 * Your Status: Op (+o) }
n34= elseif (%mevo == YES) { recho 3 * Your Status: Voice (+v) }
n35= else { recho 3 * Your Status: None. -o -v | goto end }
n36= :end
n37=}
n38=/ops /onotice *1
n39=/time /me says its $time (CET) right now on $day $date
n40=/bye echo 4 $active I have had %ctcp.total CTCP's since i started counting | /bye2
n41=/bye2 echo 4 $active This Session i had %ctcp.ping Pings, %ctcp.version Versions, %ctcp.userinfo Userinfo's, %ctcp.clientinfo Clientinfo's, %ctcp.echo Echo's. %ctcp.finger Finger's and %ctcp.others Other kinds of CTCP's | /bye3
n42=/bye3 echo 4 $active Plus i also ignored %ctcp.dccignored Dcc's, Accepted %ctcp.dccaccepted Dcc's and had a total of %ctcp.dccexploit dcc exploit's sended to me. | /bye4
n43=/bye4 /quit $read c:\power\quit.txt | /flush
n44=/iecho {
n45= /echo $1 -a *2
n46=}
n47=lagchk {
n48= //.msg $me lag $ctime
n49=}
n50=lastseen { if ($readini %path $+ \names.txt *2 seen == $null) { msg $chan I havent seen • $+ *2 $+ •, maybe • $+ $opnick($rand(1,$opnick(0,$1)),$1) $+ • has? | halt } | set %stemp $readini %path $+ \names.txt *2 seen | msg $chan • $+ *2 $+ • was last seen on $asctime(%stemp) $+ . }
n51=clonestopper {
n52= set %nopnick 0
n53= set %c 0
n54= :next
n55= inc %nopnick 1
n56= if $nopnick(%nopnick,$chan) == $null goto done
n57= if $address($nick,2) == $address($nopnick(%nopnick,$chan),2) && $nick != $nopnick(%nopnick,$chan) goto clone
n58= else goto next
n59= :clone
n60= inc %c 1
n61= set %clone $+ [ %c ] $nopnick(%nopnick,$chan)
n62= goto next
n63= :clone1
n64= if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,2)
n65= echo 4 $active = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,2)
n66= notice $nick Clones are not allowed in $chan if you have ghost message an op
n67= notice %clone1 Clones are not allowed in $chan if you have ghost message an op
n68= if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick and %clone1 have been notified
n69= echo 4 $active = $+ CloneStopper $+ = $nick and %clone1 have been notified
n70= goto end
n71= :clone2
n72= inc %ban 1 | ban $chan $nick 2
n73= inc %kick 1 | kick $chan $nick =CloneStopper= I said NO clones !!! %logo
n74= inc %kick 1 | kick $chan %clone1 =CloneStopper= I said NO clones !!! %logo
n75= inc %kick 1 | kick $chan %clone2 =CloneStopper= I said NO clones !!! %logo
n76= if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = Multiple Clones Detected!
n77= echo 4 $active = $+ CloneStopper $+ = Multiple Clones Detected!
n78= if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $address($nick,2) Banned and nicks flushed from channel
n79= echo 4 $active = $+ CloneStopper $+ = $address($nick,2) Banned and nicks flushed from channel
n80= goto end
n81= :done
n82= if %c == 0 goto end
n83= elseif %c == 1 goto clone1
n84= else goto clone2
n85= :end
n86= unset %clone*
n87= unset %nopnick
n88= unset %c
n89= halt
n90=}
n91=mecho {
n92= if ($1 == -a) {
n93= if ($2 isnum 1-15) { echo $2 -a 1···· *3 }
n94= else { echo 10 -a 1···· *2 }
n95= }
n96= elseif ($1 == -s) {
n97= if ($2 isnum 1-15) { echo $2 -s 1···· *3 }
n98= else { echo 10 -s 1···· *2 }
n99= }
n100= elseif ($1 isnum 1-15) { echo $1 1···· *2 }
n101= else { echo 10 1···· *1 }
n102=}
n103=timeon { timer2050 0 1 /seconds }
n104=seconds {
n105= inc %seconds 1
n106= if (%seconds = 60) { %seconds = 0 | inc %minutes 1 }
n107= if (%minutes = 60) { %minutes = 0 | inc %hours 1 | dong }
n108= if (%hours > 24) { %hours = 0 | inc %days 1 }
n109=}
n110=timeoff { timer2050 off }
n111=dong { notice $me I have Been using %logo for %days days , %hours hours , %minutes minutes and %seconds seconds now. =) }
n112=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n113=color {
n114= if ($1 == msg) { %act = msg $2 | %len = *3 }
n115= elseif ($1 == notice) { %act = notice $2 | %len = *3 }
n116= elseif ($1 == sound) { %act = sound $2 | %len = *3 }
n117= elseif ($1 == echo) { %act = echo | %len = *2 }
n118= elseif ($1 == kick) { %act = kick # $2 | %len = *3 }
n119= elseif ($1 == me) { %act = me | %len = *2 }
n120= elseif ($1 == ame) { %act = ame | %len = *2 }
n121= elseif ($1 == ban) { ban $2 3 | %act = kick # $2 | %len = *3 }
n122= elseif ($1 == amsg) { %act = amsg | %len = *2 }
n123= elseif ($1 == quit) { %act = quit | %len = *2 }
n124= elseif ($1 == onotice) { %act = onotice Ops on # $+ : | %len = *2 }
n125= else { %act = say | %len = *1 }
n126= :script
n127= %i = 0
n128= %rsolt = ""
n129= %already = $replace(%len,$chr(32),$chr(1))
n130= :start
n131= inc %i
n132= if (%i > $len(%already)) { goto resolt }
n133= else { set %rsolt %rsolt $colr($r(1,15),$mid(%i,1,%already)) | goto start }
n134= :resolt
n135= %rsolt = $remove(%rsolt,$chr(32))
n136= %rsolt = $replace(%rsolt,$chr(1),$chr(32))
n137= %act %rsolt
n138=}
n139=colr2 { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n140=/nban {
n141= set %c #
n142= notice $$1 This is your ONLY warning! change that nick! %logo | set %ofnick $$1
n143= onotice %ofnick has been notified for the use of an Offencive Nick. If he doesnt change it in 30 secs he will be kicked and banned.
n144= ctcp $$1 Your nick is offencive you have 30 seconds to change it or you will be kicked. | notice $$1 Your nick is offencive you have 30 seconds to change it or you will be kicked and banned. | /msg $$1 Your nick is offencive you have 30 seconds to change it or you will be kicked and banned.
n145= timer300 1 30 /banit
n146=}
n147=/banit {
n148= if (%ofnick ison %c) { ban %c %ofnick 3 | kick %c %ofnick Offencive Nick %logo }
n149= else { echo 4 $active nick changed }
n150= unset %ofnick %c
n151=}
n152=vote {
n153= /enable #voting
n154= %voteno = 0
n155= %voteyes = 0
n156= %votetotal = 0
n157= unset %voteattend
n158= if $1 = $null { set %voteques $$?="what to vote for" }
n159= if $1 != $null { set %voteques *1 }
n160= say >> Question: $+ %voteques
n161= say Vote yes with: /ctcp $me yes
n162= say Vote no with: /ctcp $me no
n163= say You have 180 seconds to vote.
n164= /timer105 1 180 /results
n165= /timer106 1 150 /say You have now 30 seconds left to vote.
n166=}
n167=voteoff {
n168= unset %voteattend
n169= unset %voteyes
n170= unset %voteno
n171= unset %votetotal
n172= unset %voteques
n173= /rlevel -r =58,=59
n174= /disable #voting
n175= say Voting closed by master.
n176=}
n177=results {
n178= /rlevel -r =58,=59
n179= /disable #voting
n180= say Voting is over.
n181= say Question: $+ %voteques
n182= say Yes votes: %voteyes
n183= say No votes: %voteno
n184= say Total votes: %votetotal
n185= if %voteattend != $null { say Attenders: %voteattend }
n186= if %voteattend = $null { say Attenders: none }
n187= if %voteattend != $null && %voteno = %voteyes { say It's a tie! }
n188= if %voteattend != $null && %voteno > %voteyes { say The winning part is NO! }
n189= if %voteattend != $null && %voteno < %voteyes { say The winning part is YES! }
n190= unset %voteattend
n191= unset %voteyes
n192= unset %voteno
n193= unset %votetotal
n194= unset %voteques
n195=}
n196=/badnick {
n197= describe $chan sees that %badnick Has An offensive nick! Change within 20 secs Or Be Kick/Baned! %logo
n198= .timer 1 10 /describe $chan Notices that %badnick hasnt changes his/her name!
n199= .timer 1 15 /describe $chan sees that %badnick 10[2STILL10] hasnt changed the nick.!
n200= .timer 1 20 /ban -un %badnick 3
n201= .timer 1 20 /kick $chan %badnick !¡!¡!) BadNick Kick:---You Should Have Changed Your name liked i Asked!(!¡!¡! %logo
n202=}
n203=/wav /sound c:\power\wavs $$?="filename without .wav" $+ .wav
n204=/mid /sound c:\power\mid $$?="filename without .mid" $+ .mid
n205=/ascii /play c:\power\ascii $$?="filename without .txt" $+ .txt 1000
n206=/dccp {
n207= if %dccp == 4 ignore -tu34 *!*@*
n208= if %dccp == 4 echo 4 $nick haz activated the dcc protection, now ignoreing all dccs for 34 sec.
n209= inc %dccp 1
n210= timer103 1 8 set %dccp 0
n211=}
n212=/offensivenick {
n213= if $level($maddress($address($nick,5))) == 97 {
n214= ban -u30 $chan $nick 3
n215= kick $chan $nick change your nick 12 %logo 4 OFFenSiVeNiCKkICK
n216= echo 4 -a $nick got kicked because he is using an Offensive Nick 12 %logo OFFenSiVeNiCKkICK
n217= .notice $nick You have been kicked because you are using an offensive nick 12 %logo OFFenSiVeNiCKkICK
n218= halt
n219= }
n220=}
n221=/offensiveID {
n222= if $level($maddress($address($nick,5))) == 98 {
n223= ban -u30 $chan $nick 3
n224= kick $chan $nick 12 %logo 4 OFFenSiVeIDkICK
n225= echo 4 -a $nick got kicked for offensive user ID12 %logo OFFenSiVeIDkICK
n226= .notice $nick You have been kicked because you are using an offensive user id (email) 12 %logo OFFenSiVeIDkICK
n227= halt
n228= }
n229=}
n230=idle {
n231= away Idle away: $duration(%idle) of no action
n232= echo 12 -a 2 $+ $me $+ 12 Auto-Away activated, no action for2 $duration(%idle)
n233= if $channel(0) > 0 ame has been marked as away for an idle time of $duration(%idle) $+ %logo
n234= .timer200 off
n235= set %gone %idle
n236= .timer201 0 1 if ( $!idle < 10 ) /idle2
n237= .timer202 0 1 inc %gone
n238=}
n239=idle2 {
n240= echo 12 -a Welcome back2 $me 122 $+ Away for $duration(%gone) $+ 12
n241= away
n242= if $channel(0) > 0 ame has shown movement, Auto-Away deactivated Total time gone: $duration(%gone) $+ %logo $+
n243= .timer201 off
n244= .timer202 off
n245= .timer200 0 1 if ( $!idle == %idle ) /idle
n246=}
n247=/ChannelStats {
n248= set %statnickcheck on
n249= write -c c:\power\servers.txt
n250= write -c c:\power\stats.txt
n251= set %servno 1
n252= :servstart
n253= if %servtype [ $+ [ %servno ] ] != $null {
n254= set %servtype [ $+ [ %servno ] ]
n255= set %servnum [ $+ [ %servno ] ]
n256= inc %servno 1
n257= goto servstart
n258= }
n259= else {
n260= unset %10op
n261= unset %10nop
n262= unset %10away
n263= unset %10here
n264= unset %10vnick
n265= set %pops 0
n266= set %pnops 0
n267= set %paway 0
n268= set %phere 0
n269= set %pvnick 0
n270= unset %stataddress
n271= unset %server
n272= unset %qservernum
n273= unset %nickletter
n274= set %statletter 0
n275= set %anicks 0
n276= set %hnicks 0
n277= set %vnicks 0
n278= set %ircnicks 0
n279= set %servnum 0
n280= set %statnick 1
n281= set %statnickdone 0
n282= set %statclones 0
n283= set %hops 0
n284= set %avehops 0
n285= set %myserver $server
n286= set %nickletter $rand(a,z)
n287= set %totnick $nick(0,%schan)
n288= ;set %stattime 0 | timer101 0 1 inc %stattime 1
n289= :start
n290= if %statnick > %totnick halt
n291= else who $nick(%statnick,%schan)
n292= inc %statnick 1
n293= goto start
n294= }
n295=}
n296=/percent {
n297= %10op = [ $opnick(0,%schan) ] * 100
n298= %10nop = [ $nopnick(0,%schan) ] * 100
n299= %10away = [ %anicks ] * 100
n300= %10here = [ %hnicks ] * 100
n301= %10vnick = [ %vnicks ] * 100
n302= %10ircnick = [ %ircnicks ] * 100
n303= %pops = [ %10op ] / $nick(0,%schan)
n304= %pnops = [ %10nop ] / $nick(0,%schan)
n305= %paway = [ %10away ] / $nick(0,%schan)
n306= %phere = [ %10here ] / $nick(0,%schan)
n307= %pvnick = [ %10vnick ] / $nick(0,%schan)
n308= %pircop = [ %10ircnick ] / $nick(0,%schan)
n309= %avehops = [ %hops ] / $nick(0,%schan)
n310= %ratio = $nopnick(0,%schan) / $opnick(0,%schan)
n311= set %servno 1
n312= :servmsgst
n313= if %servnum [ $+ [ %servno ] ] != $null {
n314= set %100serv %servnum [ $+ [ %servno ] ] * 100
n315= set %servperc [ %100serv ] / $nick(0,%schan)
n316= unset %writestats
n317= if %servtype [ $+ [ %servno ] ] = %myserver {
n318= write c:\power\stats\servers.txt Server %servno $+ ) %servnum [ $+ [ %servno ] ] ppl on $token(1,46, %servtype [ $+ [ %servno ] ] ) $+ * ( $+ %servperc $+ [ % ] usage)
n319= }
n320= if %servtype [ $+ [ %servno ] ] != %myserver {
n321= write c:\power\stats\servers.txt Server %servno $+ ) %servnum [ $+ [ %servno ] ] ppl on $token(1,46, %servtype [ $+ [ %servno ] ] ) ( $+ %servperc $+ [ % ] usage)
n322= }
n323= :nextserv
n324= inc %servno 1
n325= goto servmsgst
n326= }
n327= if %nickstats = on {
n328= write c:\power\stats.txt %schan statistix...
n329= write c:\power\stats.txt Tot ------ <•> [ $nick(0,%schan) ]
n330= write c:\power\stats.txt Ops ------ <•> [ $opnick(0,%schan) ] ( $+ %pops $+ [ % ] $+ )
n331= write c:\power\stats.txt Non-ops -- <•> [ $nopnick(0,%schan) ] ( $+ %pnops $+ [ % ] $+ )
n332= write c:\power\stats.txt IRC ops -- <•> %ircnicks ( $+ %pircop $+ [ % ] $+ )
n333= write c:\power\stats.txt Op:Non-Op Ratio <•> 1: $+ %ratio
n334= write c:\power\stats.txt Here ----- <•> %hnicks ( $+ %phere $+ [ % ] $+ )
n335= write c:\power\stats.txt Away ----- <•> %anicks ( $+ %paway $+ [ % ] $+ )
n336= write c:\power\stats.txt Voiced --- <•> %vnicks ( $+ %pvnick $+ [ % ] $+ )
n337= write c:\power\stats.txt Ave Hops - <•> %avehops
n338= write c:\power\stats.txt Clones --- <•> %statclones
n339= write c:\power\stats.txt Servers -- <•> [ $lines(c:\power\servers.txt) ]
n340= ;Time to compile <•> %stattime seconds
n341= write c:\power\stats.txt Ppl with an ' %nickletter ' in their nick <•> %statletter
n342= play %schan c:\power\stats.txt 2000
n343= }
n344= if %servmsg = on {
n345= msg %schan There are $lines(c:\power\servers.txt) servers in use on %schan (* denotes my own)
n346= play %schan c:\power\servers.txt 2000
n347= }
n348=}
n349=make1 set %p1 on | set %pack1 $$?="Enter Filename:" | set %desc1 $$?="Enter Description:" | set %path1 $$?="Enter Path Of File(include File Name)):" | set %size1 $lof(%path1)
n350=make2 set %p2 on | set %pack2 $$?="Enter Filename:" | set %desc2 $$?="Enter Description:" | set %path2 $$?="Enter Path Of File(include File Name)):" | set %size2 $lof(%path2)
n351=make3 set %p3 on | set %pack3 $$?="Enter Filename:" | set %desc3 $$?="Enter Description:" | set %path3 $$?="Enter Path Of File(include File Name)):" | set %size3 $lof(%path3)
n352=make4 set %p4 on | set %pack4 $$?="Enter Filename:" | set %desc4 $$?="Enter Description:" | set %path4 $$?="Enter Path Of File(include File Name)):" | set %size4 $lof(%path4)
n353=/f1 {
n354= if %away == Off {
n355= set %away On
n356= set %returnnick $me
n357= set %awaynick $$?="Enter Away Nick Here"
n358= set %awaymsg $$?="Enter Away Message Here"
n359= .timer 1 2 /nick %awaynick
n360= amsg [12Status] 2Away [12Doing] 2 $+ %awaymsg $+ 2-=- type /ctcp 12 $+ %awaynick $+ 2 tkpage (message) to page me 11 %logo
n361= .timer909 0 %awaytimer /amsg [12Status] 2Away [12Doing] 2 $+ %awaymsg $+ 2-=- type /ctcp 12 $+ %awaynick $+ 2tkpage (message) to page me 11 %logo
n362= .away %awaymsg
n363= .write -c awaymsg.txt -= -=Message Recorder
n364= .enable #messagerecorder
n365= }
n366= else {
n367= .set %away Off
n368= nick %returnnick
n369= amsg [12Status] 2Back 11 %logo
n370= .away
n371= .timer909 off
n372= run awaymsg.txt
n373= .disable #messagerecorder
n374= }
n375=}
n376=/check {
n377= :top
n378= inc %i
n379= if ($nick(%i,$$1) == $null) { unset %i %idle %t | halt }
n380= else {
n381= set %t $readini idle.ini idlekick $nick(%i,$1)
n382= if (%t == $null) { goto top }
n383= else {
n384= %idle = $ctime - %t
n385= if (%idle > 1800) && ($nick(%i,$$1) !isop $$1) && ($nick(%i,$$1) != $me) && ($nick(%i,$$1) != W) && ($nick(%i,$$1) != X) {
n386= kick $1 $nick(%i,$1) You've been sitting here for a half hour, 4Wake up!!
n387= remini idle.ini idlekick $nick(%i,$1)
n388= goto top
n389= }
n390= else { goto top }
n391= }
n392= }
n393=}
n394=/scan {
n395= echo 4 @== ICMP Scan v2.0 by FA-Q ==@
n396= run c:\power\trace.bat
n397=}
n398=/f9 /scs
n399=/read {
n400= unset %icmp3 | /set %icmp3 $read -l3 c:\power\icmp.txt
n401= unset %icmp4 | /set %icmp4 $read -l4 c:\power\icmp.txt
n402= unset %icmp5 | /set %icmp5 $read -l5 c:\power\icmp.txt
n403= unset %icmp6 | /set %icmp6 $read -l6 c:\power\icmp.txt
n404= unset %icmp7 | /set %icmp7 $read -l7 c:\power\icmp.txt
n405= unset %icmp8 | /set %icmp8 $read -l8 c:\power\icmp.txt
n406= echo 4 $active Completed Processing...
n407= if ( %icmp3 == $null ) { echo 4 $active You are not connected to any servers! | goto end
n408= else { goto next }
n409= :next
n410= echo 4 @== Servers Connected To You ==@
n411= echo 4 $active %icmp3
n412= if ( %icmp4 == $null ) { goto end }
n413= else { echo 4 $active %icmp4 | goto next1 }
n414= :next1
n415= if ( %icmp5 == $null ) { goto end }
n416= else { echo 4 $active %icmp5 | goto next2 }
n417= :next2
n418= if ( %icmp6 == $null ) { goto end }
n419= else { echo 4 $active %icmp6 | goto next3 }
n420= :next3
n421= if ( %icmp7 == $null ) { goto end }
n422= else { echo 4 $active %icmp7 | goto next4 }
n423= :next4
n424= if ( %icmp8 == $null ) { goto end }
n425= else { echo 4 $active %icmp8 | goto end }
n426= :end
n427= }
n428=}
n429=/ccircops { if (Status isin $active) { halt } | else echo 4 -a Listing IRCopz on # $+ ! | .enable #ccircops | .who # }
n430=/gcircops { set %p 0 | echo 4 -s Listing all visible IRCops on NETWORK! | .enable #gcircops | .who 0 o }
n431=/serverm /links | /set -q %missingservers %underservers | /unset -q %%extraservers | /.enable #serverm
n432=/f4 /join %inchan | /unset %inchan
n433=/on {
n434= %onick = 0 | %onicks = $opnick(0,#)
n435= if (%onicks == 0) { echo 5 There are no People with 4,1OPS on # | halt }
n436= if (%onicks > 0) { echo 1 -> OPS on # $+ :OPS: $+ # $+ : *1 }
n437= :next
n438= inc %onick 1
n439= if (%onick > %onicks) { goto end }
n440= :msg
n441= raw -q notice $opnick(%onick,#) :OPS: *1
n442= goto next
n443= :end
n444= halt
n445=}
n446=/vn {
n447= %vnick = 0 | %vnicks = $vnick(0,#)
n448= if (%vnicks == 0) { echo 5 There are no People with 4,1VOICE on # | halt }
n449= if (%vnicks > 0) { echo 1 -> Voices on # $+ :Voices: $+ # $+ : *1 }
n450= :next
n451= inc %vnick 1
n452= if (%vnick > %vnicks) { goto end }
n453= :msg
n454= raw -q notice $vnick(%vnick,#) :VOICES: *1
n455= goto next
n456= :end
n457= halt
n458=}
n459=/non {
n460= %nonick = 0 | %nonicks = $nopnick(0,#)
n461= if (%nonicks == 0) { echo 5 There are no People without 4,1OPS on # | halt }
n462= if (%onicks > 0) { echo 1 -> NON-OPS on # $+ :NON-OPS: $+ # $+ : *1 }
n463= :next
n464= inc %nonick 1
n465= if (%nonick > %nonicks) { goto end }
n466= :msg
n467= raw -q notice $nopnick(%nonick,#) :NON-OPS: *1
n468= goto next
n469= :end
n470= halt
n471=}
n472=/f9 /portscan
n473=/f10 {
n474= if %bestport != $null {
n475= if %bestport != $port {
n476= server $server %bestport
n477= }
n478= else {
n479= echo 2 -a *** You are on this server's best port.
n480= }
n481= }
n482= else {
n483= echo 2 -a *** The best port on this server has not been found, press F9 to find it
n484= }
n485=}
n486=/dping /run ping $gettok($address($$1,1),2,64)
n487=/tracert /run tracert $gettok($address($$1,1),2,64)
n488=/portscan {
n489= /.enable #portscan
n490= stats l
n491= echo 2 %logo PORTSCAN]=[START] Preparing port scan.
n492=}
n493=/atime {
n494= set %hr $token(1,58,$time)
n495= set %min $token(2,58,$time)
n496= set %tr $1
n497= if ($1 == $null) { goto none }
n498= if ($2 != $null) { goto half }
n499= :clock
n500= if (%tr == 0) { goto none }
n501= dec %tr 1
n502= inc %hr 1
n503= if (%hr == 24) { set %hr 0 }
n504= if (%tr != 0) { goto clock }
n505= :none
n506= if (%hr == 12) { set %sub pm }
n507= if (%hr == 0) { set %hr 12 | set %sub am }
n508= if (%hr < 12) { set %sub am }
n509= if (%hr > 12) { set %hr %hr - 12 | set %sub pm }
n510= goto end
n511= :half
n512= if (%min < 30) { inc %min 30 | set %tr $1 | goto clock }
n513= if (%min >= 30) { dec %min 30 | set %tr $2 }
n514= if ($len(%min) == 1) { set %min 0 $+ %min }
n515= goto clock
n516= :end
n517= return %hr $+ : $+ %min %sub
n518=}
n519=/clock2 {
n520= echo -a 01,01.................................8The Time1,1...........................
n521= echo -a 00,00................10,00 $atime(1) EST - $atime Central - $atime(23) Mountain0,0
n522= echo -a 00,00................10,00 $atime(22) Pacific - $atime(21) Alaska - $atime(20) Hawaii0,0
n523= echo -a 00,00................10,00 $atime(16,17) Australia - $atime(9) Moscow - $atime(6) London0,0
n524= echo -a 01,01.................................8The Time1,1...........................
n525=}
n526=/clock {
n527= say 01,01........................................................8The Time1,1..........................................................
n528= say 00,00................10,00 $atime(1) EST - $atime(0) Central - $atime(23) Mountain0,0.................
n529= say 00,00................10,00 $atime(22) Pacific - $atime(21) Alaska - $atime(20) Hawaii0,0.................
n530= say 00,00................10,00 $atime(16,17) Australia - $atime(9) Moscow - $atime(6) London0,0....
n531= say 01,01........................................................8The Time1,1..........................................................
n532=}
n533=stat {
n534= set %an 0
n535= set %iop 0
n536= set %bans 0
n537= if ( $1 == -c ) {
n538= set %way msg
n539= }
n540= if ( $1 == -e ) {
n541= set %way echo
n542= }
n543= set %key $chan(#).key
n544= if ( %key == $null ) {
n545= set %key NO KEY!
n546= }
n547= .enable #chtopic
n548= .enable #sban
n549= .enable #modes
n550= .enable #stat
n551= set %nick $nick(0,#)
n552= set %onick $opnick(0,#)
n553= set %vnick $vnick(0,#)
n554= %nnick = %nick - %onick
n555= %nnick = %nnick - %vnick
n556= set %chan #
n557= topic %chan
n558= mode %chan
n559= mode %chan +b
n560= who %chan
n561= %way %chan %ks1 4«2Researching channel info.....4» %ks2
n562=}
n563=fstat {
n564= if ( $token(0,32,%topic) >= 6 ) {
n565= %topic = $token(1,32,%topic) $token(2,32,%topic) $token(3,32,%topic) $token(4,32,%topic) $token(5,32,%topic) $+ ...
n566= }
n567= %op = %onick * 10000
n568= %op = %op / %nick
n569= %right = $right(2,%op)
n570= %len = $len(%op) - 2
n571= %op = $left(%len,%op) $+ . $+ %right
n572= if ( %onick == 0 ) {
n573= set %op 0
n574= }
n575= %vp = %vnick * 10000
n576= %vp = %vp / %nick
n577= %right = $right(2,%vp)
n578= %len = $len(%vp) - 2
n579= %vp = $left(%len,%vp) $+ . $+ %right
n580= if ( %vnick == 0 ) {
n581= set %vp 0
n582= }
n583= %ap = %an * 10000
n584= %ap = %ap / %nick
n585= %right = $right(2,%ap)
n586= %len = $len(%ap) - 2
n587= %ap = $left(%len,%ap) $+ . $+ %right
n588= if ( %an == 0 ) {
n589= set %ap 0
n590= }
n591= %np = %nnick * 10000
n592= %np = %np / %nick
n593= %right = $right(2,%np)
n594= %len = $len(%np) - 2
n595= %np = $left(%len,%np) $+ . $+ %right
n596= if ( %nnick == 0 ) {
n597= set %np 0
n598= }
n599= %way %chan 2OPS: %onick $+ 4( $+ %op $+ $chr(37) $+ ) 2NON-OPS: %nnick $+ 4( $+ %np $+ $chr(37) $+ )
n600= %way %chan 2VOICED: %vnick $+ 4( $+ %vp $+ $chr(37) $+ ) 16_2TOTAL: %nick
n601= %way %chan 2IRCOPS: %iop $+ 4( $+ %ip $+ $chr(37) $+ ) 16_2MODES: %modes
n602= %way %chan 2KEY: %key 16___2BANS: %bans
n603= %way %chan 2TOPIC: %topic
n604=}
n605=/check.ctcp {
n606= if (%ctcp. [ $+ [ $wildsite ] ] == $null) { .timer 1 5 unset %ctcp. $+ $wildsite }
n607= inc %ctcp. $+ $wildsite
n608= if (%ctcp. [ $+ [ $wildsite ] ] >= 3) {
n609= echo 4 -a *** CTCP Flood by $nick at $wildsite
n610= unset %ctcp. $+ $wildsite
n611= .ignore -tu300 $wildsite
n612= %bchan = $chan(0)
n613= :cont
n614= if $nick ison $chan(%bchan) && $me isop $chan(%bchan) { mode $chan(%bchan) +b $wildsite | kick $chan(%bchan) $nick Trying to 4CTCP Flood me huh? }
n615= dec %bchan
n616= if %bchan > 0 goto cont
n617= }
n618=}
n619=/rctcp { raw -q notice $$1 : $+ $$2 $3 *4 $+ }
n620=nwatime {
n621= set %atime $gettok($time,1,58)
n622= if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm }
n623= else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm }
n624= else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am }
n625= else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
n626=}
n627=/clock {
n628= say 4D12igital4 C12lock
n629= say 12 The Time is:
n630= say 12 $nwatime Here
n631= say 12 On My Clock.
n632=}
n633=/eclock {
n634= echo 1 -a 4D12igital4 C12lock
n635= echo 1 -a 12 The Time is:
n636= echo 1 -a 12 $nwatime Here
n637= echo 1 -a 12 On My Clock.
n638=}
n639=/etoday {
n640= echo 1 -a 4D12igital4 D12ate
n641= echo 1 -a 12Date Follows:
n642= .timer 1 2 echo 3 -a 12 $day
n643= .timer 1 4 echo 3 -a 12 $adate
n644=}
n645=/tom {
n646= /to
n647= echo 2 -a 4D12igital4 C12lock
n648= echo 2 -a 12 Tomorrow is:
n649= .timer980 1 4 echo 2 -a 12 %to
n650= .timer982 1 5 echo 2 -a 12On The Digital Clock
n651=}
n652=/to {
n653= if $day = Sunday { /set %to Monday }
n654= if $day = Monday { /set %to Tuesday }
n655= if $day = Tueday { /set %to Wednesday }
n656= if $day = Wednesday { /set %to Thursday }
n657= if $day = Thursday { /set %to Friday }
n658= if $day = Friday { /set %to Saturday }
n659= if $day = Saturday { /set %to Sunday }
n660=}
n661=/pingout /timer100 0 120 /raw -q pong $server $server
n662=bac {
n663= unset %final
n664= unset %endreverse
n665= set %sections $token(0,32,*1)
n666= :revstart
n667= if (%sections == 0) goto revend
n668= set %reverseme $token(%sections,32,*1)
n669= set %length $len(%reverseme)
n670= set %backtext $mid(%length,1,%reverseme)
n671= dec %length 1
n672= :backstart
n673= if (%length == 0) goto backend
n674= set %tempback $mid(%length,1,%reverseme)
n675= set %backtext %backtext $+ %tempback
n676= dec %length 1
n677= goto backstart
n678= :backend
n679= set %reversed_text %backtext
n680= set %temp %reversed_text
n681= set %final %final %temp
n682= dec %sections 1
n683= goto revstart
n684= :revend
n685= set %endreverse %final
n686= say %final
n687=}
n688=/colorchart {
n689= echo 4 ( ( (12 = = =9 - - -2 Color Chart9 - - -12 = = =4 ) ) )
n690= echo 1black = 1
n691= echo 2dark blue = 2
n692= echo 3dark green = 3
n693= echo 4red = 4
n694= echo 5dark red = 5
n695= echo 6dark purple = 6
n696= echo 7orange = 7
n697= echo 8yellow = 8
n698= echo 9green = 9
n699= echo 10blue-green = 10
n700= echo 11turquoise = 11
n701= echo 12blue = 12
n702= echo 13purple = 13
n703= echo 14gray = 14
n704= echo 15light gray = 15
n705= echo 4 ( ( (12 = = =9 - - -2 Color Chart9 - - -12 = = =4 ) ) )
n706=}