/ScriptServ

[Aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1
n7=/q /query $$1
n8=/hop /part # | /join #$$1
n9=/send /dcc send $1 $2
n10=/chat /dcc chat $1
n11=/ping /ctcp $$1 ping
n12=/IRCop /echo 13 $active <> Scaning $chan for IRCop's %rapto | /set %IO 1 | /set %IRCops 0 | /who $chan
n13=/stats echo 2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°0ž0,1 Operator Statistics for12,1 $chan  | /echo 2[Ops]:12 $opnick(0,#) 1           2,0[Non-Ops]:12 $nopnick(0,#) 1
n14=/info /echo 2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°0ž0,1 Current Information for12 $me 0:  | /echo 2[Time/Date]:12 $fulldate | /echo 2[Host/IP]:12 $host 1:12 $ip | /echo 2 [Server]:12 $server | /echo 2[Version]: 2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°0,2V2,0¹0,2·2,0²2°12¨2¨12°2º12©0,2ñ2,0å0,2§2,0t0,2-2,0ê12©2º12°2¨12¨2°
n15=/onquit {
n16=  .timer750 1 30 /unset %split
n17=  .timer751 1 30 /unset %splitlist
n18=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
n19=    set %split2 $token(1,46,$parm2)
n20=    set %split $token(1,46,$parm1)
n21=    if %split !isin %splitlist {
n22=      set %splitlist %splitlist %split
n23=      amsg 2Netsplit: 12 $+ %split $+ / $+ %split2 $+ 2  2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°
n24=    }
n25=  }
n26=}
n27=klone {
n28=  %clonescount = 0
n29=  %nickcounter = 1
n30=  %clonesfound                             
n31=  %skipnicks = ...
n32=  echo $chan 2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°0ž0,1 Clone Scan for12,1 $chan  
n33=  echo $chan 2Now Checking for Clones on 12 $chan 2at 2°¨¨°º©12 $time 2©º°¨¨°  2°¨¨°º©12 $adate 2©º°¨¨°
n34=  :loop1start
n35=  :nick
n36=  %workingnick = $nick(%nickcounter,$active)
n37=  if ( %workingnick = $null ) { goto loop1end }
n38=  if ( %workingnick isin %clonesfound ) { inc %nickcounter | goto nick }
n39=  %workingaddress = $address(%workingnick,3)
n40=  if ( %workingaddress = $null ) { 
n41=  %skipnicks = %workingnick $+ , $+ %skipnicks | inc %nickcounter | goto nick }
n42=  inc %nickcounter
n43=  %nicksubcounter = %nickcounter
n44=  %clonessubcount = 0
n45=  %clonessubfound = ...
n46=  :loop2start
n47=  %currentnick = $nick(%nicksubcounter,$active)
n48=  if %currentnick = $null goto loop2end
n49=  if ( %workingnick != %currentnick && %workingaddress ) == $address(%currentnick,3) {
n50=    inc %clonessubcount | inc %clonescount | 
n51=    %clonessubfound = %currentnick $+ , $+ %clonessubfound 
n52=  %clonesfound = %currentnick $+ , $+ %clonesfound }
n53=  inc %nicksubcounter
n54=  goto loop2start
n55=  :loop2end
n56=  if ( %clonessubcount > 0 ) { echo 2Clones Detected: 12(  %workingaddress ) 6By 1 $remove(%clonessubfound,...) 6and1  %workingnick  }
n57=  goto loop1start
n58=  :loop1end
n59=  echo $chan 2Number of Clones Detected 2°¨¨°º© $+ 12 %clonescount $+ 2 ©º°¨¨° | /unset %clonesfound | /unset %skipnicks | /unset %clonescount | /unset %nickcounter | /unset %nicksubcounter | /unset %clones | /unset %clonessubcount | /unset clonessubfound,... | /unset %workingaddress
n60=}
n61=/ircopscan {
n62=  if ($1 == $null) { echo 4 -s Error, type: /ircopscan [-e|-c] | halt }
n63=  if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt
n64=  if ($1 == -e) { echo 2 Scanning the entire network for IRCop's. | set %total 0 | set %option 1 | write $mircdir $+ raw.txt /echo 12 %window °¨¨°º© Listing IRCops! ©º°¨¨° | .enable #ircopscan | who 0 o }
n65=  if ($1 == -c) {
n66=    if (# == $null) { echo 2 -s Error, try using this is the channel window. | halt }
n67=    msg # 2°12¨2¨12°2º12©0,2å2,0§0,2¥2,0£0,2ü2,0M12©2º12°2¨12¨2°0ž is now listing visable IRCops on all networks.
n68=    set %total 0 | set %option 2 | write $mircdir $+ raw.txt /msg # °¨¨°º© Listing IRCops! ©º°¨¨° | .enable #ircopscan | who 0 o
n69=  }
n70=}
n71=/rw { %num = 1 | unset %msg  | %num2 = 1 | %msg = 
n72=  :start
n73=  %num2 = $rand(1,15)
n74=  if $mid(%num,1, *1) != $null {
n75=    %msg = %msg $+   $+ %num2  $+  $mid(%num, 1,*1) $+    
n76=    inc %num 
n77=  goto start  }
n78=  say %msg
n79=} 
n80=/rb {
n81=  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n82=  :loop
n83=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
n84=  inc %p
n85=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n86=  if ( %c > 6 ) { set %c 1 }
n87=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n88=  say %o
n89=  unset %o %i %p %c
n90=}
n91=/b0 { %num = 1 | unset %msg  | %msg =  | %color = p
n92=  :start
n93=  if %color == p { %num2 = 4 | %num3 = 1 | %color = y | goto add }
n94=  if %color == y  { %num2 = 1 | %num3 = 4 | %color = p | goto add }
n95=  :add
n96=  if $mid(%num,1, *1) != $null {
n97=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n98=    inc %num 
n99=  goto start  }
n100=  say %msg
n101=}
n102=/b1 { %num = 1 | unset %msg  | %msg =  | %color = p
n103=  :start
n104=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
n105=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n106=  :add
n107=  if $mid(%num,1, *1) != $null {
n108=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n109=    inc %num 
n110=  goto start  }
n111=  say %msg
n112=}
n113=/b2 { %num = 1 | unset %msg  | %msg =  | %color = p
n114=  :start
n115=  if %color == p { %num2 = 0 | %num3 = 1 | %color = y | goto add }
n116=  if %color == y  { %num2 = 0 | %num3 = 4 | %color = p | goto add }
n117=  :add
n118=  if $mid(%num,1, *1) != $null {
n119=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n120=    inc %num 
n121=  goto start  }
n122=  say %msg
n123=}
n124=/b3 { %num = 1 | unset %msg  | %msg =  | %color = p
n125=  :start
n126=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n127=  if %color == y  { %num2 = 0 | %num3 = 1 | %color = p | goto add }
n128=  :add
n129=  if $mid(%num,1, *1) != $null {
n130=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n131=    inc %num 
n132=  goto start  }
n133=  say %msg
n134=}
n135=/b4 { %num = 1 | unset %msg  | %msg =  | %color = p
n136=  :start
n137=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n138=  if %color == y  { %num2 = 0 | %num3 = 2 | %color = p | goto add }
n139=  :add
n140=  if $mid(%num,1, *1) != $null {
n141=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n142=    inc %num 
n143=  goto start  }
n144=  say %msg
n145=}
n146=/b5 { %num = 1 | unset %msg  | %msg =  | %color = p
n147=  :start
n148=  if %color == p { %num2 = 4 | %num3 = 2 | %color = y | goto add }
n149=  if %color == y  { %num2 = 2 | %num3 = 0 | %color = p | goto add }
n150=  :add
n151=  if $mid(%num,1, *1) != $null {
n152=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n153=    inc %num 
n154=  goto start  }
n155=  say %msg
n156=}
n157=/b6 { %num = 1 | unset %msg  | %msg =  | %color = p
n158=  :start
n159=  if %color == p { %num2 = 12 | %num3 = 11 | %color = y | goto add }
n160=  if %color == y  { %num2 = 11 | %num3 = 12 | %color = p | goto add }
n161=  :add
n162=  if $mid(%num,1, *1) != $null {
n163=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n164=    inc %num 
n165=  goto start  }
n166=  say %msg
n167=}
n168=/b7 { %num = 1 | unset %msg  | %msg =  | %color = p
n169=  :start
n170=  if %color == p { %num2 = 12 | %num3 = 11 | %color = y | goto add }
n171=  if %color == y  { %num2 = 12 | %num3 = 15 | %color = p | goto add }
n172=  :add
n173=  if $mid(%num,1, *1) != $null {
n174=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n175=    inc %num 
n176=  goto start  }
n177=  say %msg
n178=}
n179=/b8 { %num = 1 | unset %msg  | %msg =  | %color = p
n180=  :start
n181=  if %color == p { %num2 = 10 | %num3 = 8 | %color = y | goto add }
n182=  if %color == y  { %num2 = 8 | %num3 = 10 | %color = p | goto add }
n183=  :add
n184=  if $mid(%num,1, *1) != $null {
n185=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n186=    inc %num 
n187=  goto start  }
n188=  say %msg
n189=}
n190=/b9 { %num = 1 | unset %msg  | %msg =  | %color = p
n191=  :start
n192=  if %color == p { %num2 = 5 | %num3 = 15 | %color = y | goto add }
n193=  if %color == y  { %num2 = 15 | %num3 = 5 | %color = p | goto add }
n194=  :add
n195=  if $mid(%num,1, *1) != $null {
n196=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n197=    inc %num 
n198=  goto start  }
n199=  say %msg
n200=}
n201=/b10 { %num = 1 | unset %msg  | %msg =  | %color = p
n202=  :start
n203=  if %color == p { %num2 = 0 | %num3 = 1 | %color = y | goto add }
n204=  if %color == y  { %num2 = 1 | %num3 = 0 | %color = p | goto add }
n205=  :add
n206=  if $mid(%num,1, *1) != $null {
n207=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n208=    inc %num 
n209=  goto start  }
n210=  say %msg
n211=}
n212=/b11 { %num = 1 | unset %msg  | %msg =  | %color = p
n213=  :start
n214=  if %color == p { %num2 = 1 | %num3 = 0 | %color = y | goto add }
n215=  if %color == y  { %num2 = 0 | %num3 = 1 | %color = p | goto add }
n216=  :add
n217=  if $mid(%num,1, *1) != $null {
n218=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n219=    inc %num 
n220=  goto start  }
n221=  say %msg
n222=}
n223=/b12 { %num = 1 | unset %msg  | %msg =  | %color = p
n224=  :start
n225=  if %color == p { %num2 = 0 | %num3 = 2 | %color = y | goto add }
n226=  if %color == y  { %num2 = 2 | %num3 = 0 | %color = p | goto add }
n227=  :add
n228=  if $mid(%num,1, *1) != $null {
n229=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n230=    inc %num 
n231=  goto start  }
n232=  say %msg
n233=}
n234=/b13 { %num = 1 | unset %msg  | %msg =  | %color = p
n235=  :start
n236=  if %color == p { %num2 = 0 | %num3 = 12 | %color = y | goto add }
n237=  if %color == y  { %num2 = 12 | %num3 = 0 | %color = p | goto add }
n238=  :add
n239=  if $mid(%num,1, *1) != $null {
n240=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n241=    inc %num 
n242=  goto start  }
n243=  say %msg
n244=}
n245=/b14 { %num = 1 | unset %msg  | %msg =  | %color = p
n246=  :start
n247=  if %color == p { %num2 = 0 | %num3 = 6 | %color = y | goto add }
n248=  if %color == y  { %num2 = 6 | %num3 = 0 | %color = p | goto add }
n249=  :add
n250=  if $mid(%num,1, *1) != $null {
n251=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n252=    inc %num 
n253=  goto start  }
n254=  say %msg
n255=}
n256=/b15 { %num = 1 | unset %msg  | %msg =  | %color = p
n257=  :start
n258=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n259=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
n260=  :add
n261=  if $mid(%num,1, *1) != $null {
n262=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n263=    inc %num 
n264=  goto start  }
n265=  say %msg
n266=}
n267=/b16 { %num = 1 | unset %msg  | %msg =  | %color = p
n268=  :start
n269=  if %color == p { %num2 = 0 | %num3 = 3 | %color = y | goto add }
n270=  if %color == y  { %num2 = 3 | %num3 = 0 | %color = p | goto add }
n271=  :add
n272=  if $mid(%num,1, *1) != $null {
n273=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n274=    inc %num 
n275=  goto start  }
n276=  say %msg
n277=}
n278=/ec {
n279=  %c = *1
n280=  set %c $replace(%c,a,4ª)
n281=  set %c $replace(%c,b,3B)
n282=  set %c $replace(%c,c,6C)
n283=  set %c $replace(%c,d,7D)
n284=  set %c $replace(%c,e,4e)
n285=  set %c $replace(%c,f,12F)
n286=  set %c $replace(%c,g,13G)
n287=  set %c $replace(%c,h,6H)
n288=  set %c $replace(%c,i,4i)
n289=  set %c $replace(%c,j,J)
n290=  set %c $replace(%c,k,3K)
n291=  set %c $replace(%c,l,L)
n292=  set %c $replace(%c,m,4M)
n293=  set %c $replace(%c,n,6N)
n294=  set %c $replace(%c,o,4º)
n295=  set %c $replace(%c,p,12P)
n296=  set %c $replace(%c,q,Q)
n297=  set %c $replace(%c,r,13R)
n298=  set %c $replace(%c,s,7S)
n299=  set %c $replace(%c,t,T)
n300=  set %c $replace(%c,u,4u)
n301=  set %c $replace(%c,v,V)
n302=  set %c $replace(%c,w,12W)
n303=  set %c $replace(%c,x,7X)
n304=  set %c $replace(%c,y,Y)
n305=  set %c $replace(%c,z,6z)
n306=  set %c $replace(%c,?,12¿15?4¿13?)
n307=  set %c $replace(%c,!,4!6¡12!9¡5!15¡)
n308=  say %c
n309=  unset %c
n310=}
n311=/lovwl {
n312=  set %final *1  
n313=  %final = $upper(%final)
n314=  %final = $replace(%final,A,a)
n315=  %final = $replace(%final,E,e)
n316=  %final = $replace(%final,I,i)
n317=  %final = $replace(%final,O,o)
n318=  %final = $replace(%final,U,u)
n319=  say %final
n320=}
n321=/hivwl {
n322=  set %final *1
n323=  %final = $lower(%final)
n324=  %final = $replace(%final,a,A)
n325=  %final = $replace(%final,e,E)
n326=  %final = $replace(%final,i,I)
n327=  %final = $replace(%final,o,O)
n328=  %final = $replace(%final,u,U)
n329=  say %final
n330=}
n331=}
n332=/wt {
n333=%colortext = *1
n334=%colortext = $lower(%colortext)
n335=%colortext = $replace(%colortext,a,12â)
n336=%colortext = $replace(%colortext,b,6ß)
n337=%colortext = $replace(%colortext,c,4ç)
n338=%colortext = $replace(%colortext,d,13Ð)
n339=%colortext = $replace(%colortext,e,2é)
n340=%colortext = $replace(%colortext,f,1f)
n341=%colortext = $replace(%colortext,g,5G)           
n342=%colortext = $replace(%colortext,h,15h)
n343=%colortext = $replace(%colortext,i,10ì)
n344=%colortext = $replace(%colortext,j,1j)
n345=%colortext = $replace(%colortext,k,12K)
n346=%colortext = $replace(%colortext,l,13£)
n347=%colortext = $replace(%colortext,m,14m)
n348=%colortext = $replace(%colortext,n,5Ñ)
n349=%colortext = $replace(%colortext,o,12ø)
n350=%colortext = $replace(%colortext,p,4p)
n351=%colortext = $replace(%colortext,q,3Q)
n352=%colortext = $replace(%colortext,r,4®)
n353=%colortext = $replace(%colortext,s,5§)
n354=%colortext = $replace(%colortext,t,4t)
n355=%colortext = $replace(%colortext,u,7ü)
n356=%colortext = $replace(%colortext,v,15V)
n357=%colortext = $replace(%colortext,w,3W)
n358=%colortext = $replace(%colortext,x,10x)
n359=%colortext = $replace(%colortext,y,14¥)
n360=%colortext = $replace(%colortext,z,12Z)
n361=%colortext = $replace(%colortext,!,12!1¡¡12!)
n362=%colortext = $replace(%colortext,^,4^)
n363=%colortext = $replace(%colortext,?,4?15¿9?6¿3?)
n364=%colortext = $replace(%colortext,@,3@)
n365=%colortext = $replace(%colortext,*,12*)
n366=%colortext = $replace(%colortext,&,12&)
n367=%colortext = $replace(%colortext,<,12<)
n368=%colortext = $replace(%colortext,>,12>)
n369=%colortext = $replace(%colortext,~,4~)
n370=%colortext = $replace(%colortext,-,12-)
n371=%colortext = $replace(%colortext,`,4`)
n372=%colortext = $replace(%colortext,',13')
n373=%colortext = $replace(%colortext,_,9_)
n374=%colortext = $replace(%colortext,;,11;)
n375=say %colortext
n376=unset %colortext
n377=}
n378=/leet {
n379=set %elite *1
n380=%elite = $replace(%elite,a,å)
n381=%elite = $replace(%elite,b,ß)
n382=%elite = $replace(%elite,c,©)
n383=%elite = $replace(%elite,d,Ð)
n384=%elite = $replace(%elite,e,ê)         
n385=%elite = $replace(%elite,f,f)
n386=%elite = $replace(%elite,g,g)
n387=%elite = $replace(%elite,h,h)
n388=%elite = $replace(%elite,i,ï)
n389=%elite = $replace(%elite,j,j)
n390=%elite = $replace(%elite,k,|<)
n391=%elite = $replace(%elite,l,£)
n392=%elite = $replace(%elite,m,M)
n393=%elite = $replace(%elite,n,ñ)
n394=%elite = $replace(%elite,o,ð)
n395=%elite = $replace(%elite,p,þ)
n396=%elite = $replace(%elite,q,q)
n397=%elite = $replace(%elite,r,®)
n398=%elite = $replace(%elite,s,§)
n399=%elite = $replace(%elite,t,t)
n400=%elite = $replace(%elite,u,µ)
n401=%elite = $replace(%elite,v,v)
n402=%elite = $replace(%elite,w,W)
n403=%elite = $replace(%elite,x,×)
n404=%elite = $replace(%elite,y,¥)
n405=%elite = $replace(%elite,z,z)
n406=%elite = $replace(%elite,?,¿)
n407=%elite = $replace(%elite,!,¡)
n408=say %elite