spin the bottle

By littlela45 on Jul 19, 2008

just a simple spin the bottle game that chooses a random target from the channel for the kisser and
also chooses a random person to whistle at the kiss

paste into remotes and type !spin to use

note: i tried to make the action (instead of just kiss) random but could not get it to work so if you have any advice on how to do that please help :)

on 1:TEXT:*!spin*:#: {
  if ($me isop $chan) {
    set %chose $nick($chan,$rand(1,$nick($chan,0)))
    set %other $nick($chan,$rand(1,$nick($chan,0)))
    timer 1 1 msg $chan The bottle spins around and around...
    timer 1 3 msg $chan 10 It slows to a stop and points at %chose !   
    timer 1 5 msg $chan $nick grabs %chose and pulls them closer
    timer 1 7 msg $chan $nick gives %chose a long deep kiss! 
    timer 1 9 msg $chan %other gives a loud whistle!
    timer 1 11 msg $chan 4 %chose blushes bright red!
    unset %kisser
    unset %watch
  }
}

Like Page Follow Author

Comments

SLS10 - Jul 20, 2008

Seen this kind of script lots and lots before. MOAR ORIGINALITY

Respond

guest598594 - Jul 19, 2008

Yea as napa said, I would silence the timers and use local vars (/var).

But when you do use global vars, remember that you can unset multiple variables with one line, like \"unset %a %b %c %d %etc\".

Respond

napa182 - Jul 19, 2008

instead of useing global vars just use local vars and you have it unsetting var\'s that are not even being set. aslo silence the timers by useing a . like .timer as well as useing @ instead of if ($me isop $chan) {. you also had used !spin as a wild card so it would go off anywhere within a sentence. instead of doing !spin just use !spin
you can just do

on @1:TEXT:!spin:#: {
  var %chose $nick(#,$r(1,$nick(#,0))), %other $nick(#,$r(1,$nick(#,0)))
  .timer 1 1 msg $chan The bottle spins around and around...
  .timer 1 3 msg $chan 10 It slows to a stop and points at %chose !   
  .timer 1 5 msg $chan $nick grabs %chose and pulls them closer
  .timer 1 7 msg $chan $nick gives %chose a long deep kiss! 
  .timer 1 9 msg $chan %other gives a loud whistle!
  .timer 1 11 msg $chan 4 %chose blushes bright red!
}

you could also make it so it wont pick ur nick so you are not grabing ur self to kiss lol maybe like this

on @1:TEXT:!spin:#: {
  :pick
  var %chose $nick(#,$r(1,$nick(#,0))), %other $nick(#,$r(1,$nick(#,0)))
  if ($istok(%chose %other,$nick,32)) { goto pick }
  else {
    .timer 1 1 msg $chan The bottle spins around and around...
    .timer 1 3 msg $chan 10 It slows to a stop and points at %chose !   
    .timer 1 5 msg $chan $nick grabs %chose and pulls them closer
    .timer 1 7 msg $chan $nick gives %chose a long deep kiss! 
    .timer 1 9 msg $chan %other gives a loud whistle!
    .timer 1 11 msg $chan 4 %chose blushes bright red!
  }
}

and as for picking a random action you can do this

on @1:TEXT:!spin:#: {
  :pick
  var %chose $nick(#,$r(1,$nick(#,0))), %other $nick(#,$r(1,$nick(#,0))), %action kiss,licking,hump,spanking
  if ($istok(%chose %other,$nick,32)) { goto pick }
  else {
    .timer 1 1 msg $chan The bottle spins around and around...
    .timer 1 3 msg $chan 10 It slows to a stop and points at %chose !   
    .timer 1 5 msg $chan $nick grabs %chose and pulls them closer
    .timer 1 7 msg $chan $nick gives %chose a long $+($gettok(%action,$r(1,4),44),!) 
    .timer 1 9 msg $chan %other gives a loud whistle!
    .timer 1 11 msg $chan 4 %chose blushes bright red!
  }
}

just some things to think about ;x
2/10 just cuz it\'s incomplete

Respond