/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=/F1 /play -c $mircdirtxt\begin.txt
n13=/F2 /join $$?="Enter channel for me to put you in, master"
n14=/F3 /wstat 5 Flood Prot = %t1 © NetSplit Watcher = %t2
n15=/F4 /run $mircdirtxt\commands.txt
n16=/F5 /query Cornstats | /wstat 1   | /wstat 1   | /wstat 1   | /wstat 1   | /wstat 1   |  /wstat 3 Welcome to CornStalk, $me | /echo cornstats 16,4 16,5F1-Help16,4 16,5F2-Join16,4 16,5F3-Running?16,4 16,5F4-Commands16,4 16,5F6-Channels16,4 16,5F7-Size16,4 16,7 16,8 
n17=/F7 {
n18=  /wstat 10 © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © ©
n19=  /wstat 12 © © © © © This is how big Cornstats should be © © © © © © © © © © © ©
n20=  /wstat 10 © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © ©
n21=  /wstat 12 © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © ©
n22=  /wstat 10 © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © ©
n23=}
n24=/T /.timer102 11 10 /titlebar Cornstalk Beta 5      | /.timer199 1 5 /.timer103 10 10 /titlebar Written by Cornrow and Frogwinch
n25=/wstat //echo  $1 CornStats  *2
n26=/color say 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 14 14 15 15 16 16 
n27=/corn {
n28=  /say  15,15 14,14 ¯¯¯¯¯¯¯¯¯¯15,15¯
n29=  /say 5,15 5,14   4,1        CornStalk        5,14  16,15  Beta 5
n30=  /say  15,15 14,14 ¯¯¯¯¯¯¯¯¯¯15,15¯
n31=}
n32=; math Stuff
n33=math {  
n34=  if ($3 = $null) { goto $2 } | else { goto $3 } 
n35=  :+ | %a = $1 + $2 | return %a  
n36=  :- |  %a = $1 - $2 | return %a 
n37=  :/  | %a = $1 / $2 | return %a 
n38=  :^ | %a = $1 ^ $2 | return %a 
n39=  :* | %a = $1 * $2 | return %a 
n40=  :$ | %dol = $token(1,46,$1) | %i = $len(%dol) | %ix = %i / 3 | %ix1 = %ix * 3 | %r = %i - %ix1 | %c = 1 | if (%r = 0) { %d = $chr(36) } | else { %d = $chr(36) $+ $left(%r,%dol) $+ , | inc %c %r }  | :dol | if ($mid(%c,3,%dol) != $null) { %d = %d $+ $mid(%c,3,%dol) $+ , | inc %c 3 | goto dol } | %i = $len(%d) | dec %i 1 | %d = $mid(1,%i,%d) | if ($token(2,46,$1) = $null) { %d = %d $+ .00 } | else { %d = %d $+ . $+ $+ $token(2,46,$1) } | return %d
n41=  :p | %a = $1 |  %b = $2  | %t = %a + %b | %a1 = %a * 100 | %a2 = %a1 / %t | %b1 = %b * 100 | %b2 = %b1 / %t | %c = %a2 + %b2 | return %a2
n42=}
n43=/awayon {
n44=  if (%away1 == on) { /wstat 4  "Away" is already active }
n45=  else {
n46=    /.set %away2 $me
n47=    /.write -c $mircdirtxt\away.txt
n48=    /.set %pages no
n49=    /nick $$?="what should your away nick be?"
n50=    /.set %away3 $$?="why are you away?"
n51=    /.away %away3
n52=    /wstat 4 "Away" has been activated
n53=    /ame is away © %away3 © type "/ctcp $me ~page" to page me
n54=    /.timer101 0 540 /ame is away © %away3 © type "/ctcp $me ~page" to page me
n55=    /.enable #page
n56=    /.set %away1 on
n57=  }
n58=}
n59=/awayoff {
n60=  if (%away1 == off) { /wstat 4 © "Away" was not active © }
n61=  else {
n62=    /.timer101 off
n63=    /nick %away2
n64=    /.set %away1 off
n65=    /.away 
n66=    /wstat 4 © "Away" has been deactivated ©
n67=    /ame is back © time to play! kiddies ©
n68=    /.disable #page
n69=    if (%pages == yes) { /play -c $mircdirtxt\away.txt }
n70=  }
n71=}
n72=/spliton {
n73=  if (%t2 == on) { /wstat 14 Split Detector is already active }
n74=  else {
n75=    /.set %t2 ON
n76=    /.enable #netsplit  
n77=    /.mode $me +s
n78=    /wstat 14 NetSplit Detection has been activated 
n79=  }
n80=}
n81=/splitoff {
n82=  if (%t2 == off) { /wstat 14 Split Detector was never active }
n83=  else {
n84=    /.set %t2 off
n85=    /.mode $me -s
n86=    /.disable #netsplit  
n87=    /wstat 14 NetSplit Detection has been deactivated 
n88=  }
n89=}
n90=/f6 {
n91=  /wstat 3 8,4CTL-F2  - $read -l1 chanlst.txt 
n92=  /wstat 3 8,4CTL-F3  - $read -l2 chanlst.txt 
n93=  /wstat 3 8,4CTL-F4  - $read -l3 chanlst.txt
n94=  /wstat 3 8,4CTL-F5  - $read -l4 chanlst.txt
n95=  /wstat 3 8,4CTL-F6  - $read -l5 chanlst.txt
n96=}
n97=/cf2 /join $read -l1 chanlst.txt
n98=/cf3 /join $read -l2 chanlst.txt
n99=/cf4 /join $read -l3 chanlst.txt
n100=/cf5 /join $read -l4 chanlst.txt
n101=/cf6 /join $read -l5 chanlst.txt
n102=/add3  {
n103=  /.notice $$1 © You are now level 3 (+o) ©
n104=  /.guser 3 $$1 3 
n105=  /wstat 12 $$1 has been added as level 3 (+o)
n106=  /mode # +o $$1
n107=}
n108=/add2 {
n109=  /.notice $$1 © You are now level 2 (+v) ©
n110=  /.guser 2 $$1 3
n111=  /wstat 14 $$1 has been added as level 2 (+v)
n112=  /mode # +v $$1
n113=}
n114=/reset1 {
n115=  /.notice $$1 © Your status has been reset ©
n116=  /.guser 1 $$1 3
n117=  /wstat 1 $$1 has been reset
n118=  /mode # -vo $$1 $$1
n119=}
n120=ec say 0 $encode(*1) | /echo 4 < $+ $me $+ > *1
n121=decode { 
n122=  set %bd *1
n123=  set %bd $replace(%bd,±,a)
n124=  set %bd $replace(%bd,_,b)
n125=  set %bd $replace(%bd,Ï,c)
n126=  set %bd $replace(%bd,õ,d)
n127=  set %bd $replace(%bd,ô,e)
n128=  set %bd $replace(%bd,ó,f)
n129=  set %bd $replace(%bd,ñ,g)
n130=  set %bd $replace(%bd,²,h)
n131=  set %bd $replace(%bd,¯,i)
n132=  set %bd $replace(%bd,Í,j)
n133=  set %bd $replace(%bd,ì,k)
n134=  set %bd $replace(%bd,ë,l)
n135=  set %bd $replace(%bd,ê,m)
n136=  set %bd $replace(%bd,É,n)
n137=  set %bd $replace(%bd,Ç,o)
n138=  set %bd $replace(%bd,,Æ,p)
n139=  set %bd $replace(%bd,¦,q)
n140=  set %bd $replace(%bd,§,r)
n141=  set %bd $replace(%bd,à,s)
n142=  set %bd $replace(%bd,À,t)
n143=  set %bd $replace(%bd,¶,u)
n144=  set %bd $replace(%bd,¢,v)
n145=  set %bd $replace(%bd,£,w)
n146=  set %bd $replace(%bd,Þ,x)
n147=  set %bd $replace(%bd,ß,y)
n148=  set %bd $replace(%bd,¿,z)
n149=  return %bd
n150=}
n151=encode { 
n152=  set %bd *1
n153=  set %bd $replace(%bd,a,±)
n154=  set %bd $replace(%bd,b,_)
n155=  set %bd $replace(%bd,c,Ï)
n156=  set %bd $replace(%bd,d,õ)
n157=  set %bd $replace(%bd,e,ô)
n158=  set %bd $replace(%bd,f,ó)
n159=  set %bd $replace(%bd,g,ñ)
n160=  set %bd $replace(%bd,h,²)
n161=  set %bd $replace(%bd,i,¯)
n162=  set %bd $replace(%bd,j,Í)
n163=  set %bd $replace(%bd,k,ì)
n164=  set %bd $replace(%bd,l,ë)
n165=  set %bd $replace(%bd,m,ê)
n166=  set %bd $replace(%bd,n,É)
n167=  set %bd $replace(%bd,o,Ç)
n168=  set %bd $replace(%bd,p,Æ)
n169=  set %bd $replace(%bd,q,¦)
n170=  set %bd $replace(%bd,r,§)
n171=  set %bd $replace(%bd,s,à)
n172=  set %bd $replace(%bd,t,À)
n173=  set %bd $replace(%bd,u,¶)
n174=  set %bd $replace(%bd,v,¢)
n175=  set %bd $replace(%bd,w,£)
n176=  set %bd $replace(%bd,x,Þ)
n177=  set %bd $replace(%bd,y,ß)
n178=  set %bd $replace(%bd,z,¿)
n179=  set %bd ©  %bd
n180=  return %bd
n181=}
n182=nprotect {
n183=  if (%t1 == normal) { /wstat 14 "normal" flood protection was already active }
n184=  elseif (%t1 == high) { noprotect | /.timer102 1 2 /nprotect }
n185=  elseif (%t1 == mIRC's) { noprotect | /.timer102 1 2 /nprotect }
n186=  else {
n187=    .set %t1 normal
n188=    .enable #normalprotection
n189=    /wstat 14 "Normal" flood protection has been activated
n190=  }
n191=}
n192=hprotect {
n193=  if (%t1 == high) { /wstat 14 "high" flood protection was already active }
n194=  elseif (%t1 == normal) { noprotect | /.timer102 1 2 /hprotect }
n195=  elseif (%t1 == mIRC's) { noprotect | /.timer102 1 2 /hprotect }
n196=  else {
n197=    .set %t1 high
n198=    .enable #protection
n199=    /wstat 14 "High" flood protection has been activated
n200=  }
n201=}
n202=mprotect {
n203=  if (%t1 == mIRC's) { /wstat 14 "mIRC's" flood protection was already active }
n204=  elseif (%t1 == high) { noprotect | /.timer102 1 2 /mprotect }
n205=  elseif (%t1 == normal) { noprotect | .timer102 1 2 /mprotect }
n206=  else {
n207=    .set %t1 mIRC's
n208=    .flood on
n209=    /wstat 14 "mIRC's" flood protection has been activated
n210=  }
n211=}
n212=noprotect {
n213=  if (%t1 == none) || (%t1 == $null) { /wstat 14 No flood protection was active }
n214=  elseif (%t1 == normal) { /wstat 14 "Normal" flood protection was deactivated | .set %t1 none | .disable #normalprotection }
n215=  elseif (%t1 == high) { /wstat 14 "High" flood protection was deactivated | .set %t1 none | .disable #protection }
n216=  else { /wstat 14 "mIRC's" flood protection was deactivated | .set %t1 none | /flood off }
n217=}
n218=nspliton {
n219=  if (%t2 == on) { /wstat 14 "netsplit detector" is already active }
n220=  else { .set %t2 on | .enable #netsplit | /wstat 14 "netsplit detector" has been activated }
n221=}
n222=nsplitoff {
n223=  if (%t2 == off) { /wstat 14 "netsplit detector" was not active }
n224=  else { .set %t2 off | .disable #netsplit | /wstat 14 "netsplit detector" has been deactivated }
n225=}