on 1: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 1: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 1:TEXT:!turn*:#:{
  if ($2 ison $chan) {
    if (%turn == $nick) { 
      msg $2 Your Turn! Type !truth for truth or !dare for dare.
      set %turn $2
    }
  }
}
alias 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
}
alias 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
}
