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 $+ .
}