Spin the bottle

By IshWittZi on Dec 13, 2010

Enjoy the game :)

on *:load: {
  echo 1 -a ;;;;;;;;;;;;;;;;;;;;;;
  echo 14 -a ;;;;;;;;;;;;;;;;;;;;;;
  echo 0 -a ;; Spin the Bottle! ;;
  echo 1 -a ;;;;;;;;;;;;;;;;;;;;;;
  echo 14 -a ;;; From PINKIAN  ;;;
  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 # 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 $+ !
  }
}

Comments

Sign in to comment.
Abcdefmonkey   -  Dec 25, 2011

Lol. Digging this up because I felt like it after browsing around. This snippet is exactly the same as ZirixZero's which was psoted 2 months prior to this. The only thing that changed was the on load.

http://www.hawkee.com/snippet/8033/ ORIGINAL

 Respond  
IshWittZi   -  Dec 13, 2010

Yep

 Respond  
MixXeduP   -  Dec 13, 2010

IshWittZi Are you Pinkian?

 Respond  
Jethro   -  Dec 13, 2010

Tidum, one thing about using the text file is that you may need to check and see if an added message already exists, so you don't wind up having duplicate messages. Also, you need to check if stb.txt exists before the !spin command is commenced.

 Respond  
MixXeduP   -  Dec 13, 2010

Yea, i agree with Dark|.

 Respond  
Tidum   -  Dec 13, 2010

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-
}
 Respond  
Dark|   -  Dec 13, 2010

Should have added more outcomes

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.