/ScriptServ

[script]
n0=menu channel {
n1=  .-
n2=  -  
n3=  &Games
n4=  .&Magic Moonball
n5=  ..&Moonball ( $+ $Upper($group(#moonball)) $+ ): { if ( $group(#moonball) == ON ) { .disable #moonball | echo -a $moontxt2(Magic Moonball Is Now OFF) } | else { .enable #moonball | echo -a $moontxt2(Magic Moonball Is Now ON) | .msg # $moontxt2(Magic Moonball Is Now ON) | msg # $moontxt2(Type !moonball <question> To Ask It A Question) } }
n6=  ..&Read/Edit Answers: run moonball.txt
n7=  .&Coin Toss ( $+ $Upper($group(#toss)) $+ ): { if ( $group(#toss) == ON ) { .disable #toss | echo -a $moontxt2(Coin Toss is now OFF) } | else { .enable #toss | echo -a $moontxt2(Coin Toss is now ON) | .msg # $moontxt2(Coin Toss Is Now ON) | msg # $moontxt2(Type !toss <heads/tails> To Play) } }
n8=  .&Number Guess
n9=  ..&Start: { .enable #number | set %guessnumber.chan # | set %guessnumber.what $$?="Choose A Number Between 1 and 25" | say 12Number Guess Has Been Activated! | say 12Type: !guess <number> :To Make A Guess (must be a number between 1 and 25) Each Person Gets 3 Guesses, You have 2mins to guess. | .timer50 1 120 numberoff | .timer51 1 60 .msg %guessnumber.chan 121 minute left to guess | .timer52 1 90 .msg %guessnumber.chan 1230 seconds left to vote! }
n10=  ..&Stop: { .disable #number | unset %guessnumber.* | say 12Number Guess Has Been Deactivated! | say 12There were No winners. | .timer50 off | .timer51 off | .timer52 off }
n11=  .&Spin The Bottle
n12=  ..&Start: { .enable #spin | set %spin # | say 12Spin The Bottle Game Has Been Activated! | say Type !Spin To Play }
n13=  ..&Stop: { .disable #spin | unset %spin* | say 12Spin The Bottle Game Has Been Deactivated! }
n14=  .&Voting Booth
n15=  ..&Start New Vote:vote # $$?="Topic to vote for?"
n16=  ..-
n17=  ..&View votes (Private):showvotes private
n18=  ..&View votes (Channel):showvotes channel
n19=  .&Rock, Paper, Scissors ( $+ $Upper($group(#rps)) $+ ): { if ( $group(#rps) == ON ) { .disable #rps | echo -a 12>>>3 Rock, Paper, Scissors is now OFF 12<<< } | else { .enable #rps | echo -a 12>>>3 Rock, Paper, Scissors is now ON 12<<< | .msg # 12>>>3 Rock, Paper, Scissors is now ON 12<<< | msg # 12>>>3 type !rock to guess rock, !paper to guess paper, or !scissors to guess scissors 12<<< } }
n20=  }
n21=#moonball on
n22=on 3:text:!moonball*:#: {
n23=  if ( $2- == $null ) { msg # 12 $+ $chr(40) $+  $+ $nick $+  $+ $chr(41) $+ : $ircmaker $+ 12 made a magic moonball, not a magic psychic. Why dont you try actually asking something? | halt }
n24=  else { msg # 12 $+ $chr(40) $+  $+ $nick $+  $+ $chr(41) $+ : $me $+ 's magic moonball says:  $+ $read moonball.txt }
n25=}
n26=#moonball end
n27=#toss off
n28=on 3:text:!toss*:#: {
n29=  if ( $2 == $null ) { msg # 12Hrm...would you like to actually guess next time, $nick $+ ? | halt }
n30=  elseif ( $2 != heads ) && ( $2 != tails ) { 
n31=    set %luckyguess $r(1,100) 
n32=    if ( %luckyguess <= 5 ) && ( side isin $2 ) || ( neither isin $2 ) { msg # 12How the hell did you know the coin would land on its side, $nick $+ ? } 
n33=    else { msg # 12 $+ $nick $+ ... Guess heads or tails next time...dumbass | halt }
n34=  }
n35=  elseif ( $3 != $null ) { 12 $+ msg # $nick $+ , why is there more than one word in your answer? are you trying to cheat? } 
n36=  else  {
n37=    set %toss $r(1,2) 
n38=    if ( %toss == 1 ) { set %toss heads | goto next }
n39=    elseif ( %toss ==2 ) { set %toss tails | goto next }
n40=    :next
n41=    if ( %toss == $2 ) { msg # The correct answer was ( $+ %toss $+ )... Congratulations, $nick $+ , you were right! | unset %toss | halt }
n42=    else { msg # The correct answer was ( $+ %toss $+ )...Sorry, $nick $+ , but you were wrong | unset %toss | halt }
n43=  }
n44=}
n45=#toss end
n46=#spin off
n47=on 3:TEXT:!spin:%spin: {
n48=  set %spin.num $r(1,$nick($chan,0))
n49=  set %spin.nick $nick($chan,%spin.num)
n50=  msg %spin 12 $+ $nick Spins The Bottle, And It Stops On %spin.nick
n51=}
n52=#spin end
n53=#number off
n54=on 3:TEXT:!guess*:%guessnumber.chan: {
n55=  if ( %guessnumber. [ $+ [ $nick ] ] == $null ) { set %guessnumber. [ $+ [ $nick ] ] 1 | goto check }
n56=  elseif ( %guessnumber. [ $+ [ $nick ] ] == 1 ) { set %guessnumber. [ $+ [ $nick ] ] 2 | goto check }
n57=  elseif ( %guessnumber. [ $+ [ $nick ] ] == 2 ) { set %guessnumber. [ $+ [ $nick ] ] 3 | goto check }
n58=  elseif ( %guessnumber. [ $+ [ $nick ] ] == 3 ) { set %guessnumber. [ $+ [ $nick ] ] 4 | msg %guessnumber.chan 2Sorry $nick $+ , you already guessed 3 times. | goto end } 
n59=  else { goto end }
n60=  :check
n61=  if ( %guessnumber.what == $2 ) { 
n62=    .disable #number
n63=    .timer50 off
n64=    .timer51 off
n65=    .timer52 off
n66=    msg %guessnumber.chan 12We Have A Winner! $nick guessed the correct number! The correct number was %guessnumber.what - Congratulations! 
n67=    msg %guessnumber.chan 12Number Guess Has Now Been Deactivated
n68=    unset %guessnumber.*
n69=    goto end
n70=  }
n71=  else {
n72=    if ( %guessnumber.what > $2 ) { msg %guessnumber.chan 12Sorry $nick $+ , that is not the correct number. Your guess is too low. }
n73=    if ( %guessnumber.what < $2 ) { msg %guessnumber.chan 12Sorry $nick $+ , that is not the correct number. Your guess is too high. }    
n74=    goto end
n75=  }
n76=  :end
n77=}
n78=#number end
n79=#vote off
n80=on 1:text:!yes*:#:inc %vote.yes | .notice $nick 8,1Your vote of !Yes has been casted - $irc | .guser voted $nick 3
n81=on 1:text:!no*:#:inc %vote.no | .notice $nick 8,1Your vote of !No has been casted - $irc | .guser voted $nick 3
n82=on 1:text:yes*:#:inc %vote.yes | .notice $nick 8,1Your vote of !Yes has been casted - $irc | .guser voted $nick 3
n83=on 1:text:no*:#:inc %vote.no | .notice $nick 8,1Your vote of !No has been casted - $irc | .guser voted $nick 3
n84=on +voted:text:!yes*:#:.notice $nick 8,1You may only vote once! - $irc
n85=on +voted:text:!no*:#:.notice $nick 8,1You may only vote once! - $irc
n86=on +voted:text:yes*:#:.notice $nick 8,1You may only vote once! - $irc
n87=on +voted:text:no*:#:.notice $nick 8,1You may only vote once! - $irc
n88=on 1:text:!dunno:.notice $nick 8,1Don't be so stupid, vote !yes or !no - $irc
n89=on 1:text:!maybe:.notice $nick 8,1Don't be so stupid, vote !yes or !no - $irc
n90=#vote end
n91=
n92=alias vote {
n93=  .enable #vote
n94=  set %vote.chan $1
n95=  set %vote.what $2-
n96=  set %vote.yes 0
n97=  set %vote.no 0
n98=  set %vote.active yes
n99=  msg %vote.chan 8,1 Channel Vote Now Open 
n100=  msg %vote.chan 4Topic:12 %vote.what
n101=  msg %vote.chan 4!yes12 to vote yes - 4!no12 to vote no 14(4 60 Seconds to vote14 ) 
n102=  .timer 1 30 msg %vote.chan 8,1 30 Seconds Left To Vote  | .timer 1 30 msg %vote.chan 4Topic:12 %vote.what
n103=  .timer 1 60 voteresults
n104=}
n105=alias showvotes {
n106=  if ( %vote.active != yes ) { echo -a 12>>> 4Error:3 You do not have a vote running!! 12<<< | goto end }
n107=  if ( $1 == private ) {
n108=    echo -a 12>>> 4View Current Votes
n109=    echo -a 12>>> 4Topic:12 %vote.what
n110=    echo -a 12>>> 4Current Votes:12 Yes:14(02 $+ %vote.yes $+ 14)12 - No:14(02 $+ %vote.no $+ 14)
n111=  }   
n112=  if ( $1 == channel ) {
n113=    msg %vote.chan 8,1 View Current Votes 
n114=    msg %vote.chan 4Topic:12 %vote.what
n115=    msg %vote.chan 4Current Votes:12 Yes:14(02 $+ %vote.yes $+ 14)12 - No:14(02 $+ %vote.no $+ 14)
n116=  }   
n117=  :end
n118=}
n119=alias voteresults {
n120=  .disable #vote 
n121=  msg %vote.chan 8,1Channel Vote Now Closed
n122=  msg %vote.chan 4Topic Was:12 %vote.what
n123=  msg %vote.chan 4Results:12 Yes:14(02 $+ %vote.yes $+ 14)12 - No:14(02 $+ %vote.no $+ 14)
n124=  set %vote.yesperc $calc( ( %vote.yes / ( %vote.yes + %vote.no ) ) * 100 )
n125=  set %vote.noperc $calc( ( %vote.no / ( %vote.yes + %vote.no ) ) * 100 )
n126=  if ( %vote.yes > %vote.no ) { set %vote.winner !Yes vote the winner! }
n127=  elseif ( %vote.yes < %vote.no ) { set %vote.winner !No vote the winner! }
n128=  elseif ( %vote.yes == %vote.no ) { set %vote.winner There was no outright winner... }
n129=  msg %vote.chan 4Vote percentages: 12Yes:14(02 $+ $round(%vote.yesperc, 0) $+ $chr(37) $+ 14)12 - No:14(02 $+ $round(%vote.noperc, 0) $+ $chr(37) $+ 14)
n130=  describe %vote.chan declares %vote.winner
n131=  .rlevel voted
n132=  set %vote.active no
n133=  unset %vote*
n134=}
n135=#rps off
n136=on *:text:!rock*:#:{
n137=  set %rps $r(1,3)
n138=  if ( %rps == 1 ) { set %rps Rock | goto next }
n139=  elseif ( %rps == 2 ) { set %rps Paper | goto next }
n140=  else { set %rps Scissors | goto next }
n141=  :next
n142=  msg # 03You chose Rock, $nick $+ . 
n143=  if ( %rps == Rock ) { msg # 03 $+ $me chose  $+ %rps $+ , too. Its a tie! | halt }
n144=  elseif ( %rps == Paper ) { msg # 03 $+ $me chose  $+ %rps $+ .  $+ %rps $+  covers Rock! You lose! | halt }
n145=  else { msg # 03 $+ $me chose  $+ %rps $+ . Rock breaks  $+ %rps $+ ! You win! | halt }
n146=}
n147=on *:text:!paper*:#:{
n148=  set %rps $r(1,3)
n149=  if ( %rps == 1 ) { set %rps Rock | goto next }
n150=  elseif ( %rps == 2 ) { set %rps Paper | goto next }
n151=  else { set %rps Scissors | goto next }
n152=  :next
n153=  msg # 03You chose Paper, $nick $+ . 
n154=  if ( %rps == Rock ) { msg # 03 $+ $me chose  $+ %rps $+ . Paper covers Rock! You win! | halt }
n155=  elseif ( %rps == Paper ) { msg # 03 $+ $me chose  $+ %rps $+ , too. Its a tie! | halt }
n156=  else { msg # 03 $+ $me chose  $+ %rps $+ . Scissors cut Paper! You lose! | halt }
n157=}
n158=on *:text:!scissors*:#:{
n159=  set %rps $r(1,3)
n160=  if ( %rps == 1 ) { set %rps Rock | goto next }
n161=  elseif ( %rps == 2 ) { set %rps Paper | goto next }
n162=  else { set %rps Scissors | goto next }
n163=  :next
n164=  msg # 03You chose Scissors, $nick $+ . 
n165=  if ( %rps == Rock ) { msg # 03 $+ $me chose  $+ %rps $+ . Rock breaks Scissors! You lose! | halt }
n166=  elseif ( %rps == Paper ) { msg # 03 $+ $me chose  $+ %rps $+ . Scissors cut Paper! You win! | halt }
n167=  else { msg # 03 $+ $me chose  $+ %rps $+ , too. Its a tie! | halt }
n168=} 
n169=#rps end