Code-Bin #678 - rr.tcl

rr.tcl
Posted by: Ryan Baker | June 8, 2010 @ 2:35am

TCL Code

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."

Syntax Highlighting

[Open in new window]

Author Comments

Fisher's Russian Roulette Script

Rating

4.43 / 8
44 Votes