Truth or Dare

on *:TEXT:!startgame:#:{
  if (%game. [ $+ [ $chan ] ] == $null) {
    /set %game. [ $+ [ $chan ] ] on
    /set %currentplayer. $nick
    /msg $chan Truth or Dare has begun! %currentplayer. Type !spin to spin the ToD Bottle.
  }
  else { /notice $chan There is already an active Truth or Dare game active in $chan $+ . 
  }
}

on *:TEXT:!spin:#:{
  if (%game. [ $+ [ $chan ] ] != on) {
    /halt
  }
  if (%spun. == %currentplayer.) {
    /halt
  }
  if ($nick != %currentplayer.) {
    /msg $chan Your not the current player!
  }
  if ($nick == %currentplayer.) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  } 
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
  if (%gone. [ $+ [ %currentplayer. ] ] != $null) {
    /unset %currentplayer.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /set %spun. %currentplayer.
    /msg $chan $nick spins the ToD Bottle and it lands on %currentplayer. Type !truth or !dare 
  }
}

on *:TEXT:!truth:#:{
  if (((%game. [ $+ [ $chan ] ] == $null) || ($nick == %dare.) || ($nick == %truth.))) {
    /halt
  }
  if ($nick == %currentplayer.) {
    /set %truth. $nick
    /describe $chan Reaches into the bag of truth cards, and withdraws $read(truth.txt) Type: !tanswer before your answer.
  }
  else {
    /notice $nick Your not the current player!
  }
}
on *:TEXT:!tanswer *:#:{
  if ($nick == %truth.) {
    /msg $chan OK %currentplayer. Type !spin To pass off the spotlight!
    /unset %truth.
    /unset %spun.
  }
}
on *:TEXT:!Dare:#:{
  if (((%game. [ $+ [ $chan ] ] == $null) || (%truth. == $nick) || (%dare. == $nick))) {
    /halt
  }
  if ($nick == %currentplayer.) {
    /set %dare. %currentplayer.
    /describe $chan Reaches into the bag of truth cards, and withdraws $read(dare.txt)
  }
  else {
    /notice $nick Your not the current player!
  }
}
on *:TEXT:!done:#:{
  if ($nick == %dare.) {
    /msg $chan OK $nick Type !spin to pass the spotlight!
    /unset %dare.
    /unset %spun.
  }
}
on *:TEXT:!stopgame:#:{
  if (%game. [ $+ [ $chan ] ] == on) {
    /unset %game. [ $+ [ $chan ] ]
    /unset %truth.
    /unset %dare.
    /unset %spun.
    /unset %currentplayer.    
    /msg $chan Truth or Dare Has been disabled by $nick $+ .
  }
}
on *:TEXT:!newplayer:#:{
    /unset %truth.
    /unset %dare.
    /set %currentplayer. $nick($chan,$rand(1,$nick($chan,0)))
    /describe $chan Blows the bottle a lil bit so that its %currentplayer. $+ 's turn now!
    /set %spun. %currentplayer.
    /msg $chan %currentplayer. $+ : Type !truth or !dare
}