This is basically "Spin The Bottle" but, i made it more fun & changed it to
Spin The Oreo!

Enjoy!

                                                    *DELETE EXTRA SPACE*

on *:load: {
  echo 1 -a 
  echo 14 -a 
  echo 0 -a 
  echo 1 -a 
  echo 14 -a 
echo 0 -a }

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 # 4is spinning the oreo..
    .timer 1 2 msg # 9The oreo is slowing down
    .timer 1 2 msg # 12The oreo cracked 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 $+ !
  }
}