/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=/s /sound $$1.wav is playing a wav....... ( $$1.wav )
n13=/u /uwho $$1
n14=/py /play $$1.txt
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  4,6°©¤Netsplit¤©° °©¤Detected¤©° :°¿ $+ %split $+ / $+ %split2 $+ ¿° %ind
n24=    }  
n25=  }
n26=}
n27=/f2 clone
n28=/clone {
n29=  %t = 0
n30=  :start
n31=  inc %t 1
n32=  if $nick(%t,#) == $null goto end
n33=  if $address($nick(%t,#),3) == $null { whois $nick(%t,#) | /set %whois 1 }
n34=  goto start
n35=  :end
n36=  if %whois == $null clone_  | /else timer 1 5 /clone
n37=  unset %t | /unset %whois
n38=}
n39=/clone_ {
n40=  set %u 0 | /set %x 0 | /unset %addlist
n41=  :a
n42=  inc %u 1 | /set %v 0
n43=  if $nick(%u,#) == $null goto out
n44=  :b
n45=  inc %v 1
n46=  if $nick(%v,#) == $null goto a
n47=  if $nick(%u,#) == $nick(%v,#) goto b
n48=  if $address($nick(%u,#),3) == $address($nick(%v,#),3) {
n49=    if $address($nick(%v,#),3) !isin %addlist { set %addlist %addlist $address($nick(%v,#),3) | /inc %x 1 }
n50=  }
n51=  goto b
n52=  :out
n53=  if %x == 1 msg # 15,15?14,14?4,1 $+ There is %x CLONE on # $+ 14,14?15,15? | /else msg # 15,15?14,14?4,1 $+ There are %x CLONES on # $+ 14,14?15,15?
n54=  if %addlist == $null goto end
n55=  set %u 0
n56=  :c
n57=  inc %u 1 | /set %v 0 | /set %w 1 | /unset %clone | /set %add $token(%u,32,%addlist)
n58=  if %add == $null goto end
n59=  :d
n60=  inc %v 1
n61=  if $nick(%v,#) == $null goto c
n62=  if %add == $address($nick(%v,#),3) {
n63=    if %clone == $null set %clone $nick(%v,#) | /else set %clone %clone & $nick(%v,#)
n64=  }
n65=  inc %w 1
n66=  if (($nick(%w,#) == $null) && (%clone != $null)) {
n67=    msg #  $+ %clone $+ 
n68=  }
n69=  goto d
n70=  :end
n71=  msg # 4,0-4,15=4,14(4,1®ÅmPãGë v1.04,14)4,15=4,0-
n72=  unset %u | /unset %v | /unset %w | /unset %x | /unset %addlist | /unset %add | /unset %clone
n73=}
n74=/clonelist {
n75=  remini clone.ini ADDRESSES
n76=  set %chan $chan
n77=  set %info $$1
n78=  enable #easyclone  
n79=  unset %numb  
n80=  unset %number@*
n81=  unset %clones@*
n82=  unset %displayed.addies  
n83=  unset %addy  
n84=  animate [(°Ž Checking and Adding Addresses Ž°)]
n85=  who %info
n86=  if (%info == %star) { set %info $chan }
n87=}
n88=/showclones {
n89=  echo 4 [(°Ž Searching for 04Clones in Domain: 12 $+ %info $+  Ž°)]
n90=  set %addy.read 0
n91=  :beginning
n92=  inc %addy.read 
n93=  set %addy $readini clone.ini ADDRESSES address [ $+ [ %addy.read ] ]
n94=  if (%addy == $null) { echo 4 [(°Ž Clone Listing Complete Ž°)] | if %numb == $null set %numb 0 | unset %nick.name | disable #easyclone | echo 4  [(°Ž %numb Groups of Clones found Ž°)] | timer 1 1 echo 4 [(°Ž %ver Ž°)] | halt }
n95=  if (%number@ [ $+ [ %addy ] ] > 1) { inc %numb | goto show }
n96=  goto beginning
n97=  :show
n98=  if %addy isin %displayed.addies goto no
n99=  echo 4  4[(°Ž $+ %numb $+ Ž°)] [(°Ž  $+ %clones@ [ $+ [ %addy ] ] $+ ( $+ %addy $+ ) Ž°)]
n100=  set %displayed.addies %displayed.addies %addy
n101=  goto beginning
n102=  :no
n103=  dec %numb
n104=  goto beginning
n105=}
n106=/ct {
n107=  %c = *1
n108=  set %c $replace(%c,a,4a)
n109=  set %c $replace(%c,b,3B)
n110=  set %c $replace(%c,c,6C) 
n111=  set %c $replace(%c,d,7D) 
n112=  set %c $replace(%c,e,4e) 
n113=  set %c $replace(%c,f,12F) 
n114=  set %c $replace(%c,g,13G) 
n115=  set %c $replace(%c,h,6H) 
n116=  set %c $replace(%c,i,4i) 
n117=  set %c $replace(%c,j,J) 
n118=  set %c $replace(%c,k,3K) 
n119=  set %c $replace(%c,l,L) 
n120=  set %c $replace(%c,m,4M) 
n121=  set %c $replace(%c,n,6N)
n122=  set %c $replace(%c,o,4o) 
n123=  set %c $replace(%c,p,12P) 
n124=  set %c $replace(%c,q,Q) 
n125=  set %c $replace(%c,r,13R) 
n126=  set %c $replace(%c,s,7S) 
n127=  set %c $replace(%c,t,T) 
n128=  set %c $replace(%c,u,4u) 
n129=  set %c $replace(%c,v,V) 
n130=  set %c $replace(%c,w,12W) 
n131=  set %c $replace(%c,x,7X) 
n132=  set %c $replace(%c,y,Y) 
n133=  set %c $replace(%c,z,6z) 
n134=  set %c $replace(%c,?,12¿15?) 
n135=  say %c
n136=  unset %c  
n137=}
n138=/lo {
n139=  /set %ol 0
n140=  /msg # Channel Statistics for :[ $+ # $+ ]
n141=  set %lo on
n142=  /who #
n143=}