This is an advanced spin the bottle script it requires the players to be voiced in the channel to be a part of the game the bot or person running this must be oped to run for it has to be able to voice and un-voice players copy the code below into a mirc scrip and then load the script for users to be in the game they must type !play if they dont want to play they can type !stop and they will be devoiced..
the spinner will not itself, the person who spun, or anyone who is not voiced.

Enjoy

on *:text:!play:#:{
 /mode $chan +v $nick
 /msg $chan $nick Is Now Playing And will be included in the Spin Selection 
 /msg $chan $nick Please Type !stop If you No Longer Wish To Be Part Of The Game
 %count.attempt 1
 }
}

on *:text:!stop:#: {
   /mode $chan -v $nick
   /msg $chan $nick Has Stop Playing
 }

on 1:text:!spin:#: {
  if ( $nick !isvoice $chan ) { /msg $chan Sorry $nick You Are Not Part Of The Game Please Type !play To Join In }
  else if ( $nick isvoice $chan ) {
  if (%spinbottle == on) { notice $nick Game in progress... Please WAIT For Your Turn! | halt }
     set %spinbottle on
     set %count.attempt 1
  :1 
    set %s $nick(#,$rand(1,$nick(#,0)),a) 
    inc -u60 %count.attempt 1
   if ( %s isvoice $chan ) && ( %s != $nick ) && ( %s != $me ) { 
     msg $chan 12*** 4It's time To Pick The Next Victem 12***
    .timer 1 3 msg $chan 12 $+ $nick 10Flicks The Spinner And It Lands On.... 
    .timer 1 5 msg $chan 10 %s $+ , 10 $nick 10 You Must Kiss 4 %s
    .timer 1 8 set %spinbottle off
    .timer 1 9 set %count.attempt 1 
  }
  else { if ( %s == $nick ) { goto 1 }
         else if ( %s == $me ) { goto 1 }
           else {  
             if ( %count.attempt >= 50 ) { goto 2 }
             if ( %count.attempt <= 50 ) { goto 3 }
  :2
    /msg $chan No One Else Is Playing Spin Halted ( or The Pick Count was exceded If somone is playing Please Type !spin Again )
    set %spinbottle off
    set %count.attempt 1
    halt
  :3
   goto 1    
  }  
 } 
}