Menu * {
  Wheel of dis-Fortune
  .Set protect nick: set %wof.mynick $?"What nick would you like to be protected from being kicked?" | echo Safe nick set to %wof.mynick
  .Set active channel: set %wof.channel $?"In what channel would you like to use the Wheel of dis-Fortune?" | echo Channel use set to %wof.channel
}

on *:TEXT:.WodF:%wof.channel: {
  .set %wof.victim $nick(#,$rand(1,$nick(#,0)))
  if (%wof.spamprotect == on) || (%wof.victim == %wof.mynick) { halt }
  /msg $chan 10 $+ $nick has spun the Wheel of dis-fortune!
  .timer2 1 1 /msg $chan Spinning...
  .timer3 1 3 /msg $chan The Wheel of dis-fortune has decided10 %wof.victim is the next victim!
  .timer4 1 4 /kick $chan %wof.victim $read(wodfkicktext.txt)
  .timer5 1 5 /unset %wof.victim
  .timer6 1 6 .set -u10 %wof.spamprotect on
  .timer7 1 6 /msg $chan 10 second cooldown set to prevent the script from being flooded.
}


alias setchan {
  /set %wof.channel $1
  /echo Wheel of dis-fortune set to $1 $+ .
}

alias setnick {
  /set %wof.mynick $1
  /echo Wheel of dis-fortune safe nick set to $1 $+ .
}