What about a text file so people could add their own outcomes?
on *:TEXT:!spin:#:{
if $nick(#,0) > 2 {
var %t $v1,%msg,%nick $me,%r $r(1,4)
while %nick = $me || %nick = $nick {
%nick = $nick(#,$r(1,%t))
}
describe # is spinning the bottle..
.timer 1 2 msg # The bottle landed on %nick $+ !
if %r = 1 { %msg = has to kiss }
elseif %r = 2 { %msg = has to make love with }
elseif %r = 3 { %msg = has to date with }
elseif %r = 4 { %msg = has to punch }
.timer 1 3 msg # $nick %msg %nick $+ !
}
}
Could just be:
on *:TEXT:!spin:#:{
if ($nick(#,0) > 2) {
var %t $lines(stb.txt)
var %s $r(1,%t)
var %nick $nick(#,%t)
while (%nick = $me || %nick = $nick) {
var %nick $nick(#,$r(1,%t))
}
describe # is spinning the bottle..
.timer 1 2 msg # The bottle landed on %nick $+ !
.timer 1 3 msg # $nick $read(stb.txt,%s) %nick $+ !
}
}
on owner:TEXT:!add*:*:{
write stb.txt $2-
.msg $nick Added $2-
}