/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=/e {  
n13=  %text = $replace(*1,a,â)
n14=  %text = $replace(%text,A,Ã)
n15=  %text = $replace(%text,b,ß)
n16=  %text = $replace(%text,ae,æ)
n17=  %text = $replace(%text,c,¢)
n18=  %text = $replace(%text,d,Ð)
n19=  %text = $replace(%text,e, ë)
n20=  %text = $replace(%text,E, ë)
n21=  %text = $replace(%text,i,í)
n22=  %text = $replace(%text,l,£)
n23=  %text = $replace(%text,n, ñ)
n24=  %text = $replace(%text,o,ø)
n25=  %text = $replace(%text,O,ö)
n26=  %text = $replace(%text,w,\\')
n27=  %text = $replace(%text,W,\\')
n28=  %text = $replace(%text,f,f)
n29=  %text = $replace(%text,F,f)
n30=  %text = $replace(%text,cks,X)
n31=  %text = $replace(%text,r,®)
n32=  %text = $replace(%text,s,§ )
n33=  %text = $replace(%text,t,t)
n34=  %text = $replace(%text,T,t)
n35=  %text = $replace(%text,u,û)
n36=  %text = $replace(%text,y,ÿ)
n37=  %text = $replace(%text,?,¿)
n38=  %text = $replace(%text,z,°z°)
n39=  %text = $replace(%text,!,!)
n40=  /say %text 
n41=}  
n42=/c {
n43=  %text = $replace(*1,a,1a)
n44=  %text = $replace(%text,A,2A)
n45=  %text = $replace(%text,b,3b)  
n46=  %text = $replace(%text,C,4C)
n47=  %text = $replace(%text,d,5d)
n48=  %text = $replace(%text,E,6E)
n49=  %text = $replace(%text,f,7f)
n50=  %text = $replace(%text,G,7G)
n51=  %text = $replace(%text,h,9h)
n52=  %text = $replace(%text,I,10I)
n53=  %text = $replace(%text,j,11j)
n54=  %text = $replace(%text,K,12K)
n55=  %text = $replace(%text,l,13l)
n56=  %text = $replace(%text,M,14M)
n57=  %text = $replace(%text,n,15n)
n58=  %text = $replace(%text,O,17O)
n59=  %text = $replace(%text,p,18p)
n60=  %text = $replace(%text,Q,19Q)
n61=  %text = $replace(%text,r,20r)
n62=  %text = $replace(%text,S,21S)
n63=  %text = $replace(%text,t,22t)
n64=  %text = $replace(%text,U,23U)
n65=  %text = $replace(%text,v,23v)
n66=  %text = $replace(%text,W,25W)
n67=  %text = $replace(%text,x,26x)
n68=  %text = $replace(%text,Y,27Y)
n69=  %text = $replace(%text,z,28z)
n70=  /say %text
n71=}
n72=/ec {  
n73=  %text = $replace(*1,a,1â)
n74=  %text = $replace(%text,A,2Ã)
n75=  %text = $replace(%text,b,3ß)
n76=  %text = $replace(%text,ae,4æ)
n77=  %text = $replace(%text,c,5¢)
n78=  %text = $replace(%text,d,6Ð)
n79=  %text = $replace(%text,e, 7ë)
n80=  %text = $replace(%text,E, 7ë)
n81=  %text = $replace(%text,i,9í)
n82=  %text = $replace(%text,l,10£)
n83=  %text = $replace(%text,n, 11ñ)
n84=  %text = $replace(%text,o,12ø)
n85=  %text = $replace(%text,O,13ö)
n86=  %text = $replace(%text,w,14\\')
n87=  %text = $replace(%text,W,14\\')
n88=  %text = $replace(%text,f,12f)
n89=  %text = $replace(%text,F,12f)
n90=  %text = $replace(%text,cks,15X)
n91=  %text = $replace(%text,r,17®)
n92=  %text = $replace(%text,s,18§ )
n93=  %text = $replace(%text,t,19t)
n94=  %text = $replace(%text,T,19t)
n95=  %text = $replace(%text,u,20û)
n96=  %text = $replace(%text,y,21ÿ)
n97=  %text = $replace(%text,?,22¿)
n98=  %text = $replace(%text,z,23°z°)
n99=  %text = $replace(%text,!,23!)
n100=  /say %text 
n101=}  
n102=/poll {
n103=  /set %yes 0
n104=  /set %no 0
n105=  /set %totalvoters 0
n106=  /set %question $$?="Enter the question:"  
n107=  /enable #polls 
n108=  /msg # 6The polls are open the question is 
n109=  /msg # 12[ $+ %question $+ ]
n110=  /msg #  4Type "!yes" for yes and "!no" for no 
n111=  /msg # 2the polls will close in 2 mins. 
n112=  .timer 1 60 /say 4Only 60 sec Left To Vote %popver (!yes or !no)
n113=  .timer 1 120 /polloff
n114=}
n115=/polloff {
n116=  /disable #polls
n117=  /set %yes %yes * 100
n118=  /set %yes %yes / %totalvoters
n119=  /set %no %no * 100
n120=  /set %no %no / %totalvoters
n121=  /set %totalvoters %totalvoters * 100
n122=  /set %totalvoters %totalvoters / $nick(0,#)
n123=  /msg # 4voting is now closed..the votes are being counted..
n124=  /msg # %totalvoters $+ % of the users on # voted on =========>[ $+ %question $+ ]<=========
n125=  /msg # 12of that there were %yes $+ % YES's and %no $+ %  NO's
n126=  if (%yes > %no) goto yes
n127=  if (%yes < %no) goto no
n128=  if (%yes = %no) goto equal
n129=  :yes
n130=  /msg # 4Majority voted YES! 
n131=  goto end
n132=  :no
n133=  /msg # 4Majority voted NO! 
n134=  goto end
n135=  :equal
n136=  /msg # 4It looks like we have a TIE!
n137=  :end
n138=  /unset %no 
n139=  /unset %yes 
n140=  /unset %notagain
n141=  /unset %totalvoters
n142=}
n143=/clone {
n144=  %t = 0
n145=  :start
n146=  inc %t 1
n147=  if $nick(%t,#) == $null goto end
n148=  if $address($nick(%t,#),2) == $null { whois $nick(%t,#) | set %whois 1 }
n149=  goto start
n150=  :end
n151=  if %whois == $null clone_  | else .timer 1 10 clone
n152=  unset %t %whois
n153=}
n154=/clone_ {
n155=  set %u 0 | set %x 0 | unset %addlist
n156=  :a
n157=  inc %u 1 | set %v 0
n158=  if $nick(%u,#) == $null goto out
n159=  :b
n160=  inc %v 1
n161=  if $nick(%v,#) == $null goto a
n162=  if $nick(%u,#) == $nick(%v,#) goto b
n163=  if $address($nick(%u,#),2) == $address($nick(%v,#),2) {
n164=    if $address($nick(%v,#),2) !isin %addlist { set %addlist %addlist $address($nick(%v,#),2) | inc %x 1 }
n165=  }
n166=  goto b
n167=  :out
n168=  %cloner # $chr(160) | %cloner #  $+ CLONE report for # $+ 
n169=  if %x == 1 %cloner #  $+ There is %x CLONE on # $+  | else %cloner #  $+ There are %x CLONES on # $+ 
n170=  if %addlist == $null goto end
n171=  set %u 0
n172=  :c
n173=  inc %u 1 | set %v 0 | set %w 1 | unset %clone | set %add $gettok(%addlist,%u,32)
n174=  if %add == $null goto end
n175=  :d
n176=  inc %v 1
n177=  if $nick(%v,#) == $null goto c
n178=  if %add == $address($nick(%v,#),2) {
n179=    if %clone == $null set %clone $nick(%v,#) | else set %clone %clone & $nick(%v,#)
n180=  }
n181=  inc %w 1
n182=  if (($nick(%w,#) == $null) && (%clone != $null)) { 
n183=    %cloner #  $+ %clone $+    $+ %add $+ 
n184=  }
n185=  goto d
n186=  :end
n187=  %cloner # 12,1 /{}\4,1Ðëvâ§tâtíøñ12,1/{}\ | %cloner # $chr(160) | unset %u %v %w %x %addlist %add %clone
n188=}
n189=/onquit {
n190=  .timer750 1 30 /unset %split
n191=  .timer751 1 30 /unset %splitlist
n192=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
n193=    set %split2 $token(1,46,$parm2)
n194=    set %split $token(1,46,$parm1)
n195=    if %split !isin %splitlist {
n196=      set %splitlist %splitlist %split
n197=      echo 2 $chan Netsplit:  $+ %split $+ / $+ %split2 $+   
n198=    }
n199=  }
n200=}