/ScriptServ

[Variables]
n0=%wavedir c:\devastation\music\
n1=%song frkstein.mid
n2=%away getting script ready for distribution
n3=%text ÿøÿøÿø \\'⧧ûp
n4=%joinnick the_red_scare
n5=%nickn 31
n6=%clonenick ^|eXE|^-away
n7=%jointotnick 30
n8=%nick ^|eXE|^-away
n9=%chanstat off
n10=%pplopped 5
n11=%pplvoiced 3
n12=%pplircops 0
n13=%others 3
n14=%overallppl 8
n15=%pplnothere 2
n16=%cloner echo

[Commands]
n0=~~~~~~~~~~CTCP PROTECTION~~~~~~~~~~
n1=#protect start
n2=1:ping:/auser 1,=4 $nick | /timer31 1 10 /ruser $nick
n3=+4:ping:/ignore $nick | /timer32 1 30 /ignore -r $nick
n4=1:finger:/auser 1,=5 $nick | /timer33 1 10 /ruser $nick
n5=+5:finger:/ignore $nick | /timer34 1 30 /ignore -r $nick
n6=1:version:/auser 1,=6 $nick | /timer35 1 10 /ruser $nick
n7=+6:version:/ignore $nick | /timer36 1 30 /ignore -r $nick
n8=1:time:/auser 1,=7 $nick | /timer37 1 10 /ruser $nick
n9=+7:time:/ignore $nick | /timer38 1 30 /ignore -r $nick 
n10=1:trout:/auser 1,=8 $nick | /timer39 1 10 /ruser $nick
n11=+8:trout:/ignore $nick | /timer40 1 30 /ignore -r $nick
n12=1:userinfo:/auser 1,=9 $nick | /timer41 1 10 /ruser $nick
n13=+9:userinfo:/ignore $nick | /timer42 1 30 /ignore -r $nick
n14=1:clientinfo:/auser 1,=10 $nick | /timer43 1 10 /ruser $nick
n15=+10:clientinfo:/ignore $nick | /timer44 1 30 /ignore -r $nick
n16=#protect end
n17=~~~~~~~~~~DCC FLOOD PROTECTION~~~~~~~~~~
n18=#dccprotect start
n19=1:dcc chat:/auser 1,=12 $nick | /timer47 1 10 /ruser $nick
n20=+12:dcc chat:/ignore $nick | /timer48 1 30 /ignore -r $nick
n21=1:dcc send:/auser 1,=13 $nick | /timer49 1 5 /ruser $nick
n22=+13:dcc send:/ignore $nick | /timer50 1 30 /ignore -r $nick
n23=#dccprotect end
n24=~~~~~~~~~~PAGER~~~~~~~~~~
n25=#pager start
n26=1:page:/splay c:\devastation\page.wav | /auser 1,=11 $nick | /timer45 1 10 /ruser $nick
n27=+11:page:/ignore $nick | /timer46 1 30 /ignore -r $nick
n28=#pager end

[Events]
n0=1:ON TEXT:ping me*:*:/ctcp $nick ping
n1=1:ON CTCPREPLY:PING*:%time = $ctime - $parm2 | notice $nick [ $nick your ping reply was %time secs 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\ ] | unset %time 
n2=+2:ON TEXT:*:#:/kick $chan $nick You have been kicked because of your big mouth. I told you to SHUT UP! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n3=+3:ON JOIN:*:/mode $chan +b $nick | /kick $chan $nick I thought I said you were shitlisted, so go the fuck away! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n4=~~~~~~~~~~REFRESHMENT BAR~~~~~~~~~~
n5=#bar disabled
n6=1:ON TEXT:!soda:#:/msg $chan 0,1 $me gives $nick a ice cold soda. 
n7=1:ON TEXT:!beer:#:/msg $chan 11,1 $me gives $nick an Ice cold beer. Drink up!
n8=1:ON TEXT:!screwdriver:#:/msg $chan 3,1 $me mixes $nick an Ice cold screwdriver. Drink up!
n9=1:ON TEXT:!bong:#:/msg $chan 10,1 $me gives $nick the bong. Now all you need is the weed!
n10=1:ON TEXT:!weed:#:/msg $chan 5,1 $me gives $nick the weed now Smoke Up!
n11=1:ON TEXT:!smoke:#:/msg $chan 6,1 $me gives $nick a Cigarette. Smoke Up!
n12=1:ON TEXT:!mudslide:#:/msg $chan 7,1 $me mixes $nick a mudslide. Drink up!
n13=1:ON TEXT:!cigar:#:/msg $chan 14,1 $me gives $nick a big, fat, Cuban Cigar!
n14=1:ON TEXT:!snickers:#:/msg $chan 9,1 $me gives $nick a Snickers.
n15=1:ON TEXT:!skittles:#:/msg $chan 4,1 $me gives $nick a bag of skittles. "Taste the Rainbow"
n16=1:ON TEXT:!lemonade:#:/msg $chan 8,1 $me gives $nick a ice cold glass of lemonade.
n17=1:ON TEXT:!6pack:#:/msg $chan 12,1 $me gives $nick an ice cold six pack of Bud!
n18=#bar end
n19=~~~~~~~~~~OP BEGGING KICK~~~~~~~~~~
n20=#opbegging disabled
n21=1:ON TEXT:op me*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n22=1:ON TEXT:opme*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n23=1:ON TEXT:o p m e*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n24=1:ON TEXT:can i have ops*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n25=1:ON TEXT:o.p m.e*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n26=1:ON TEXT:+o me*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n27=1:ON TEXT:op me!*:*:/kick $chan $nick If you want ops then start your own channel! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n28=#opbegging end
n29=~~~~~~~~~~MUSIC PLAYER/SENDER~~~~~~~~~~
n30=#music start
n31=1:ON TEXT:!get*:#:/dcc send $nick %wavedir $+ / $+ $parm2 | /notice $nick I am now sending you $parm2 . Hope you enjoy it! 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\
n32=#music end
n33=~~~~~~~~~~NETSPLIT DETECTOR~~~~~~~~~~
n34=#split start
n35=!1:ON QUIT:/onquit
n36=#split end
n37=~~~~~~~~~~GAMES~~~~~~~~~~
n38=~~8BALL~~
n39=#8ball disabled
n40=1:ON TEXT:*!8ball*:#:/play -r $chan c:\Devastation\games\8ball.txt 1500
n41=#8ball end
n42=~~RUSSIAN~~
n43=#russian disabled
n44=1:ON NICK: {
n45=  if ($nick isin %rusplay) /set %rusplay $newnick
n46=  if ($nick isin %rusplay2) /set %rusplay2 $newnick
n47=}
n48=1:ON TEXT:!quit*:#: {
n49=  if ($nick = %rusplay) { /msg $chan 4HAHA %rusplay $+ ,12chicken why could'nt you go all the way?? | /msg $chan 12Looks like4 %rusplay2 Wins!!! | /goto end }
n50=  if ($nick = %rusplay2) { /msg $chan HAHA %rusplay2 $+ ,chicken why could'nt you go all the way?? | /msg $chan 12Looks like4 %rusplay Wins!!! | /goto end }
n51=  unset %landon
n52=  unset %chanber
n53=  unset %rusplay
n54=  unset %rusplay2
n55=  disable #trigger
n56=}
n57=1:ON TEXT:!russian*:#: {
n58=  if (%rusplay = $null) goto start
n59=  if (%rusplay2 = $null) goto start2
n60=  if ($nick = %rusplay) { /notice $nick Your already playing! | /halt }
n61=  if ($nick = %rusplay2) { /notice $nick Your already playing! | /halt }
n62=  if (($nick !isin %rusplay) && ($nick !isin %rusplay2)) { /notice $nick Try again later (its busy) | /halt }
n63=  :start
n64=  set %rusplay $nick
n65=  set %chanber $rand(1,8)
n66=  msg $chan 12Russian Roulette has started player one is4 $nick
n67=  msg $chan 2We need another player!!!! 4type !russian
n68=  halt
n69=  :start2
n70=  set %rusplay2 $nick
n71=  msg $chan 12We have our players!! they are4 %rusplay 12and4 %rusplay2
n72=  msg $chan 12okay %rusplay you go first type 4!trigger 12to continue and 4!quit 12to quit
n73=  set %player 1
n74=  enable #trigger 
n75=  halt
n76=}
n77=#russian end
n78=#trigger start
n79=1:ON TEXT:!trigger*:#: {
n80=  if (($nick !isin %rusplay) && ($nick !isin %rusplay2)) { /notice $nick Try again later (its busy) | /halt }
n81=  if (%player = 2) {
n82=    if ($nick = %rusplay2) {
n83=      inc %landon
n84=      if (%landon = %chanber) /goto pow
n85=      goto else
n86=    } 
n87=    /notice $nick its not your turn!!! | /halt 
n88=  }
n89=  if (%player = 1) {
n90=    if ($nick = %rusplay) {
n91=      inc %landon
n92=      if (%landon = %chanber) /goto pow
n93=      goto else
n94=    } 
n95=    /notice $nick its not your turn!!! | /halt 
n96=  }
n97=  :else
n98=  if ((%player = 1) && ($nick = %rusplay)) { /msg $chan 4CLICK....2well $nick You made it!!! | /msg $chan 12Its your turn4 %rusplay2 | /set %player 2 | /halt }
n99=  if ((%player = 2) && ($nick = %rusplay2)) { /msg $chan 4CLICK....2well $nick You made it!!! | /msg $chan 12Its your turn4 %rusplay | /set %player 1 | /halt }
n100=  :pow
n101=  if ((%player = 1) && ($nick = %rusplay)) { /msg $chan 4POW!!!!..2well $nick YOUR DEAD | /msg $chan 4Looks Like12 %rusplay2 WINS!!! | /kick $chan $nick ><POW!! your DEAD>< 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\ | /goto end }
n102=  if ((%player = 2) && ($nick = %rusplay2)) { /msg $chan 4POW!!!!..2well $nick YOUR DEAD | /msg $chan 4Looks Like12 %rusplay WINS!!! | /kick $chan $nick ><POW!! your DEAD>< 12,1/{}\4,1Ðëvâ§tâtíøñ12,1/{}\ | /goto end }
n103=  :end
n104=  unset %chanber | /unset %rusplay | /unset %rusplay2 | /unset %player | /unset %landon | /disable #trigger | /halt
n105=}
n106=#trigger end
n107=~~VOTING~~
n108=#polls disabled
n109=1:ON NICK: {
n110=  if ($newnick isin %notagain) /halt
n111=  if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!!  | /set %notagain %notagain $newnick }
n112=}
n113=1:ON TEXT:!yes*:#: {
n114=  if ($nick isin %notagain) { /notice $nick you can only vote once!  | /halt }
n115=  /notice $nick Thank you for voting YES!
n116=  /set %notagain %notagain $nick
n117=  /inc %yes
n118=  /inc %totalvoters
n119=}
n120=1:ON TEXT:!no*:#: {
n121=  if ($nick isin %notagain) { /notice $nick you can only vote once!  | /halt }
n122=  /notice $nick Thank you for voting NO! 
n123=  /set %notagain %notagain $nick
n124=  /inc %no
n125=  /inc %totalvoters
n126=}
n127=#poll end

[Raw]
n0=352:*: { 
n1=  if (%chanstat == on) { goto stats }
n2=  else { halt }
n3=  :stats
n4=  inc %overallppl 1 
n5=  if $chr(43) isin $parm7 { inc %pplvoiced 1 }
n6=  if $chr(64) isin $parm7 { inc %pplopped 1 }
n7=  if $chr(42) isin $parm7 { inc %pplircops 1 }
n8=  if ($chr(64) !isin $parm7) { inc %others 1 }
n9=  goto parttwo
n10=  :parttwo
n11=  if G isin $parm7 { inc %pplnothere 1 }
n12=  else { halt }
n13=}
n14=315:*: {
n15=  if (%chanstat == on) { goto echoit }
n16=  else { halt }
n17=  :echoit
n18=  echo 4 ChanStats 12Channel Stats for17 $parm2 $+
n19=  echo 4 ChanStats 12Ops 17------------>13 %pplopped 
n20=  echo 4 ChanStats 12Non Ops 17-------->13 %others
n21=  echo 4 ChanStats 12Voiced 17--------->13 %pplvoiced 
n22=  echo 4 ChanStats 12IRCops 17--------->13 %pplircops
n23=  echo 4 ChanStats 12Total People 17--->13 %overallppl
n24=  echo 4 ChanStats 12People Away 17---->13 %pplnothere 
n25=  echo 4 ChanStats 12[End of stats]
n26=  set %chanstat off
n27=}