Mine

on *:TEXT:!truth:#: {
  if (%tad == on) {  
    if (%turn == $nick) { 
      msg $chan $nick Has Chosen Truth. Truth Q: $read(truth.txt) {
        notice $nick When You Have Completed The Truth Question Type !turn <new victim>
      }
    }
  }
}
on *:TEXT:!dare:#:{
  if (%tad == on) {
    if (%turn == $nick) { 
      msg $chan $nick Has Chosen Dare. Dare: $read(dare.txt) {
        notice $nick When You Have Completed The Dare, Type !turn <new victim>
      }
    }
  }
}
on *:TEXT:!turn *:#:{
  if ($2 ison $chan) {
    if (%turn == $nick) { 
      msg %2 Your Turn! Type !truth for truth or !dare for dare.
      set %turn $2
    }
  }
}
on *:TEXT:!tad.on:#: {
  set %tad on
  set %var.spin.num $rand(1,$nick($chan,0))
  set %var.spin.nick $nick($chan,$rand(1,$nick($chan,0))) 
  msg $chan Truth or Dare Has Begun. %var.spin.nick Can Start Us Off!
  notice %var.spin.nick Type !truth for truth or !Dare for a dare.
  set %turn %var.spin.nick
}
on *:TEXT:!tad.off:#: {

  set %tad off
  msg $chan Truth or Dare Has Been Disabled.
}
menu channel {
  TAD
  .on:/set %turn $$?="User To Start Off:" | !tad.on
  .off:!tad.off
  on *:text:!gameon:#:{ if ($nick isop $chan) { set %tad on }
    else { notice $nick you need to be op to do that! }
  }
}
on *:text:!gameoff:#:{ if 9$nick isop $chan) { set %tad off | unset %var.spin.nick }
  else { notice $nick You need to be op to do that! }

  alias chans { set %temp 1 | while ($chan(%temp)) { set %temp2 $addtok(%temp2,$chan(%temp),44) | inc %temp } | return %temp2 }
}