/bottleon turns the game on
/bottleoff turns it off











alias bottleon .enable #bottle | echo 4 -a Spin-the-bottle script is now ON.
alias bottleoff .disable #bottle | echo 4 -a Spin-the-bottle script is now OFF.
#bottle off
on *:text:*!bottle:#ROOM_GOES_HERE: {
  if (*!bottle !iswm $$1) halt
  inc -e %bottle.running [ $+ [ $chan ] $+ . $+ [ $network ] ]
  if (%bottle.running [ $+ [ $chan ] $+ . $+ [ $network ] ] == 1) {
    var %phrases kiss.kiss.kiss.smooch.snog.lapdance for.slap.hug.thumb war.tickle.snuggle with.massage.buy a gift for.buy a drink for.snog.poke.dance with.do a teaser for.lick.grope.send a picture to.stuff happiness down the throat of
    var %lander $nick($chan,$r(1,$nick($chan,0,a)),a)
    .timer 1 0 msg $chan 2 $+ $nick is now spinning the bottle...
    .timer 1 1 msg $chan 12The bottle goes round and round the merry-go-round..
    if (%lander != $nick) .timer 1 2 msg $chan 10The Bottle lands on4 %lander 10-4 $nick 10now has to12 $gettok(%phrases,$r(1,$numtok(%phrases,46)),46) %lander $+ 10! 
    elseif (%lander == $nick) .timer 1 2 msg $chan 7The Bottle landed on you (4 $+ %lander $+ 7) - Kiss your arm.
    unset %bottle.running [ $+ [ $chan ] $+ . $+ [ $network ] ]
  }
  if (%bottle.running [ $+ [ $chan ] $+ . $+ [ $network ] ] > 1) msg $chan 4Please wait your turn,12 $nick $+ 4.
}
#bottle end