set dmsg {
"%nick just capped himself."
"%nick has passed away by his own hand."
"%nick's brains have painted the wall."
"Dibs on %nick's corpse!"
"%nick extinguished himself."
"%nick will be missed. Quite the gentleman was he."
"Lady fate was not on %nick's side."
"%nick is dead."
"Ouch. %nick is dead. Let the shit talking begin."
"%nick has died. Don't tell him, but I'm glad he's gone."
"%nick was a fine ass nigga. Luck ain't his homie, though."
"%nick has shot themselves."
"%nick's skull fragments have decorated the room."
"This game is stupid. We lost %nick."
"I never got to tell %nick good bye."
}
set smsg {
"%nick pulls the trigger ... and nothing. Whew. Safe."
"%nick tries his luck and finds himself to still be alive."
"What a relief! %nick is still alive."
"BANG! Just kidding. You're still alive, %nick."
"Nothing but an empty chamber, %nick, you're alive."
"I'm happy you're still alive, %nick."
"%nick has lived."
"Aww look, %nick has lived."
"%nick has lived. Try again?"
"%nick, you're pointing the gun the wrong way. Regardless, you still lived."
"How does it feel to have cheated death, %nick?"
}
bind pub - !rr rr_game
proc rr_game {nick uhost hand chan args} {
global rr_game
global dmsg
global smsg
set deadtxt [lindex $dmsg [rand [llength $dmsg]]]
set safetxt [lindex $smsg [rand [llength $smsg]]]
set rr_play [rand 5]
if {$rr_play == "1"} {
regsub -all "%nick" $deadtxt "$nick" deadtxt
putserv "KICK #coolcatchat $nick :BANG!"
putserv "PRIVMSG #coolcatchat :$deadtxt"
} else {
regsub -all "%nick" $safetxt "$nick" safetxt
putserv "PRIVMSG #coolcatchat :$safetxt"
}
}
putlog "Russian Roulette has been loaded."