1. set dmsg {
  2. "%nick just capped himself."
  3. "%nick has passed away by his own hand."
  4. "%nick's brains have painted the wall."
  5. "Dibs on %nick's corpse!"
  6. "%nick extinguished himself."
  7. "%nick will be missed. Quite the gentleman was he."
  8. "Lady fate was not on %nick's side."
  9. "%nick is dead."
  10. "Ouch. %nick is dead. Let the shit talking begin."
  11. "%nick has died. Don't tell him, but I'm glad he's gone."
  12. "%nick was a fine ass nigga. Luck ain't his homie, though."
  13. "%nick has shot themselves."
  14. "%nick's skull fragments have decorated the room."
  15. "This game is stupid. We lost %nick."
  16. "I never got to tell %nick good bye."
  17. }
  18.  
  19. set smsg {
  20. "%nick pulls the trigger ... and nothing. Whew. Safe."
  21. "%nick tries his luck and finds himself to still be alive."
  22. "What a relief! %nick is still alive."
  23. "BANG! Just kidding. You're still alive, %nick."
  24. "Nothing but an empty chamber, %nick, you're alive."
  25. "I'm happy you're still alive, %nick."
  26. "%nick has lived."
  27. "Aww look, %nick has lived."
  28. "%nick has lived. Try again?"
  29. "%nick, you're pointing the gun the wrong way. Regardless, you still lived."
  30. "How does it feel to have cheated death, %nick?"
  31. }
  32.  
  33. bind pub - !rr rr_game
  34.  
  35.  
  36. proc rr_game {nick uhost hand chan args} {
  37.  
  38. global rr_game
  39. global dmsg
  40. global smsg
  41. set deadtxt [lindex $dmsg [rand [llength $dmsg]]]
  42. set safetxt [lindex $smsg [rand [llength $smsg]]]
  43.  
  44.  
  45. set rr_play [rand 5]
  46. if {$rr_play == "1"} {
  47. regsub -all "%nick" $deadtxt "$nick" deadtxt
  48.  
  49. putserv "KICK #coolcatchat $nick :BANG!"
  50.  
  51. putserv "PRIVMSG #coolcatchat :$deadtxt"
  52.  
  53. } else {
  54. regsub -all "%nick" $safetxt "$nick" safetxt
  55.  
  56. putserv "PRIVMSG #coolcatchat :$safetxt"
  57.  
  58. }
  59.  
  60. }
  61.  
  62. putlog "Russian Roulette has been loaded."