### Russian Roulette Script for eggdrop
### Version 0.3.1 by dozilla <dozilla@gmx.net> aka Dominik Zilliken 
### To get onto the player list type !roulette1 , !roulette2 , !roulette3
### To start game type !roulette
### French version by kooothor @ www.flood.fr 
### Have Fun playing Russian Roulette 

set roulette_channel "#flood-fr"

bind pub - !roulette  russian.roulette
bind pub - !roulette1 roulette.1
bind pub - !roulette2 roulette.2
bind pub - !roulette3 roulette.3

variable nick1 ""
variable nick2 ""
variable nick3 ""
variable player_turn "1"



proc roulette.1 {nick host handle channel args} {
global nick1
if {$nick1 == ""} {
set nick1 "$nick"
putserv "PRIVMSG $channel :$nick1 est désormais le joueur 1"
} else {
putserv "PRIVMSG $channel :$nick1 est déjà le joueur 1"
}
}

proc roulette.2 {nick host handle channel args} {
global nick2
if {$nick2 == ""} {
set nick2 "$nick"
putserv "PRIVMSG $channel :$nick2 est désormais le joueur 2"
} else {
putserv "PRIVMSG $channel :$nick2 est déjà le joueur 2"
}
}

proc roulette.3 {nick host handle channel args} {
global nick3
if {$nick3 == ""} {
set nick3 "$nick"
putserv "PRIVMSG $channel :$nick3 est désormais le joueur 3"
} else {
putserv "PRIVMSG $channel :$nick3 est déjà le joueur 3"
}
} 


proc russian.roulette {nick host handle channel args} {
global event nick1 nick2 nick3 player_turn

set random_shoot [list "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12"]
if {$nick1 == "" && $nick2 == "" || $nick1 == "" && $nick3 == "" || $nick2 == "" && $nick3 == ""} {
putserv "PRIVMSG $channel :Il faut au moins deux joueurs pour pouvoir jouer à la roulette Russe !"
return 0
} else {
if {$player_turn == "1"} {
                          if {$nick1 == ""} {
			                     putserv "Les joueurs 1 et 3 sont éliminés, $nick2 est le gagnant !!!"
		         } else {
			  putserv "PRIVMSG $channel :$nick1 c'est ton tour."
                          putserv "PRIVMSG $channel :$nick1 fais tourner le barillet."
                          putserv "PRIVMSG $channel :Le barillet tourne... et s'arrête."
                          putserv "PRIVMSG $channel :$nick1 est sous pression."
                          set random_shoot_1 "[lindex $random_shoot [rand [llength $random_shoot]]]"
                          if {$random_shoot_1 == "1" || $random_shoot_1 == "2" || $random_shoot_1 == "3" || $random_shoot_1 == "4" || $random_shoot_1 == "5" || $random_shoot_1 == "6" || $random_shoot_1 == "7" || $random_shoot_1 == "8"} {
                                                      putserv "PRIVMSG $channel :T'as de la chance cette fois-ci $nick1..."
                                                     } else {
                                                             putserv "PRIVMSG $channel :Et PAN ! dans taggle $nick1..."
                                                             putserv "PRIVMSG $channel :La cervelle de $nick1 éclabousse les autres joueurs D:"
										            putserv "KICK $channel $nick2 :Skull integrity compromised"
                                                             set nick1 ""
							     putserv "PRIVMSG $channel :Un nouveau joueur 1 peut se joindre... (!roulette1)"
							     if {$nick2 == ""} {
							     putserv "PRIVMSG $channel :Les joueurs 1 et 2 sont éliminés, $nick3 est le gagant !!!"
							     set nick3 ""
							     return 0
							     }
							     if {$nick3 == ""} {
							     putserv "PRIVMSG $channel :Les joueurs 1 et 3 sont éliminés, $nick3 est le gagant !!!"
							     return 0       
                                                             set nick2 ""
							    }
							    }
                          putserv "PRIVMSG $channel :Pour continuer, tapez !roulette"
                          if {$nick2 == ""} {
                                             if {$nick3 == ""} {
					                        putserv "PRIVMSG $channel :Les joueurs 2 et 3 sont éliminés, $nick1 est le gagant !!!"
							        return 0
								} else {        
						                        set player_turn "3"
								}
                                            } else {
                                                    set player_turn "2"
                                                   }

                         }
			 } else {
                                 if {$player_turn == "2"} {
				                           if {$nick2 == ""} {
								     putserv "Les joueurs 1 et 2 sont éliminés, $nick3 est le gagnant !!!"
						                              return 0
							  } else {
			  putserv "PRIVMSG $channel :$nick2 c'est ton tour."
                          putserv "PRIVMSG $channel :$nick2 fais tourner le barillet."
                          putserv "PRIVMSG $channel :Le barillet tourne... et s'arrête."
                          putserv "PRIVMSG $channel :$nick2 est sous pression."
							   set random_shoot_2 "[lindex $random_shoot [rand [llength $random_shoot]]]"
							   if {$random_shoot_2 == "1" || $random_shoot_2 == "2" || $random_shoot_2 == "3" || $random_shoot_2 == "4" || $random_shoot_2 == "5" || $random_shoot_2 == "6" || $random_shoot_2 == "7" || $random_shoot_2 == "8"} {
										      putserv "PRIVMSG $channel :T'as de la chance cette fois-ci $nick2..."
										    } else {
										            putserv "PRIVMSG $channel :Et PAN! dans taggle $nick2..."
                                                             putserv "PRIVMSG $channel :La cervelle de $nick2 éclabousse les autres joueurs D:"
										            putserv "KICK $channel $nick2 :Skull integrity compromised"
										            set nick2 ""
										            putserv "PRIVMSG $channel :Un nouveau joueur 2 peut se joindre (!roulette2)"
										            if {$nick1 == ""} {
														putserv "PRIVMSG $channel :Les joueurs 1 et 2 sond éliminés, $nick3 est le gagant !!!"
							                                                       set nick3 ""
										                               return 0
										                              }
							                                    if {$nick3 == ""} {
							                                                       putserv "PRIVMSG $channel :Les cadavres des joueurs 2 et 3 gisent sur le sol, $nick1 remporte la partie, d'la coke et des putes."       
                                                                                                               set nick1 ""
										                               return 0
										                              }
										           }
							   putserv "PRIVMSG $channel: Pour continuer à jouer, tapez !roulette"
							   if {$nick3 == ""} {
							                      if {$nick1 == ""} {
					putserv "PRIVMSG $channel :Les joueurs 1 et 3 sond éliminés, $nick2 est le gagant !!!"
										                 return 0 
										                } else {     
										set player_turn "1"
							                     }
									     } else {
									             set player_turn "3"
										    }
				 
	
	                                                  }
							  } else {
	                                                          if {$nick3 == ""} {
					putserv "PRIVMSG $channel :Les joueurs 2 et 3 sond éliminés, $nick1 est le gagant !!!"
								  } else {
								  putserv "PRIVMSG $channel :$nick3 c'est ton tour !"
								  putserv "PRIVMSG $channel :$nick3 lance le barillet..."
								  putserv "PRIVMSG $channel :Le barillet tourne... et s'arrête..."
								  putserv "PRIVMSG $channel :$nick3 chie dans son froc."
	                                                          set random_shoot_3 "[lindex $random_shoot [rand [llength $random_shoot]]]"
								  if {$random_shoot_3 == "1" || $random_shoot_3 == "2" || $random_shoot_3 == "3" || $random_shoot_3 == "4" || $random_shoot_3 == "5" || $random_shoot_3 == "6" || $random_shoot_3 == "7" || $random_shoot_3 == "8"} {
								                               putserv "PRIVMSG $channel :T'as du cul cette fois $nick3."                
										              } else {
										                      putserv "PRIVMSG $channel :Et PAN! dans taggle $nick3..."
										                      putserv "KICK $channel $nick3 :repeint les murs avec sa cervelle"
										                      set nick3 ""
										                      putserv "PRIVMSG $channel :Un nouveau joueur 3 peut se joindre (!roulette3)"
										                     if {$nick2 == ""} {
							                                               putserv "PRIVMSG $channel :Les joueurs 2 et 3 sond éliminés, $nick1 est le gagant !!!"
										                       return 0
							                                               set nick3 ""
										                                       }
							                                             if {$nick1 == ""} {
							                                               putserv "PRIVMSG $channel :Les joueurs 1 et 3 sond éliminés, $nick2 est le gagant !!!"
										                       return 0       
                                                                                                       set nick2 ""                
										                                       }
										                     }
								  putserv "PRIVMSG $channel :Pour continuer à jouer, tapez !roulette"
								  if {$nick1 == ""} {
								                     if {$nick2 == ""} {
										                        putserv "PRIVMSG $channel :Les joueurs 1 et 2 sond éliminés, $nick3 est le gagant !!!"
										         } else {
										                 set player_turn "2"
										                }
										    } else {
										            set player_turn "1"
										           }
								 }
								 }
                                }





       }
}

