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-
}