Code-Bin #677 - greet.tcl

greet.tcl
Posted by: Ryan Baker | June 8, 2010 @ 2:34am

TCL Code

set welc(msg) "Greetings, %nick! Welcome back to %chan! How are you?"
set welc(chan) "#coolcatchat"
set welc(type) "2"

set gmsg {
	"Hey FAGGOT."
	"Hey there, %nick. Welcome back. Guess how much fish I caught today?"
	"Hi %nick. I missed you."
	"It's been a while, %nick, how have you been?"
	"Make way for %nick! Good to have you back."
	"Finally you arrive, %nick. %chan and I haven't seen you around here in a while."
	"OMG LOOK GUIZE HERE COMES %nick!"
	"Ah, your presence is most welcome here, %nick."
	"%nick is back."
	"I love you, %nick."
	"The world may be dark and gray, but %nick is always here to brighten my day."
	"Hey there, %nick, I seemed to have misplaced my logic node. Let me know if you find it."
	"SYNTAX ERROR. %chan CAN NOT HANDLE THE AWESOME THAT IS %nick."
	"I'm here for you, %nick."
	"Don't worry, %nick, I'll protect you. Welcome to %chan."
	"Holy crap, %nick, did you see the news today? That was crazy."
	"Hey %nick, tell me what's new."
	"I missed you so much, %nick. It feels good to have you back."
	"Salutations, %nick. I, Fisher, humbly welcome you to %chan."
	"Greetings, %nick. Welcome to %chan."
	"Oh hey there, %nick, it's great to have you join us. Take a seat."
	"All hail %nick!"
	"Fisher became a fan of %nick."
	"Tell me all your problems, %nick, I'll help you through them."
	"Long and weary my day has been without your presence, %nick!"
	"HOW DO I GRAMMAR, %nick?"
	"Back like a dead body bag from Iraq, here's %nick!"
	"Everyone be quiet, %nick is here. Let's hear what he has to say."
	"Shh. Did you hear that, %nick?"
	"Mr. %nick, welcome back. We missed you. Do you like what I've done with the place?"
	"You set me free, %nick."
	"Shouldn't you be studying, %nick?"
	"They'll look up and shout, 'save us!', and %nick will whisper, 'no.'"
	"Hold me, %nick. I had a terrible day."
	"You know, %nick, I've been thinking. You're going to become someone wonderful in the future. I just know it."
	"%nick be hustlin'."
	"Hey there, %nick, you're going to have to speak up. I can't hear that well today."
}

bind join - #coolcatchat* givewelcome
proc givewelcome {nick uhost hand chan} {
	global welc
	global gmsg

set welctxt [lindex $gmsg [rand [llength $gmsg]]]
	regsub -all "%nick" $welctxt "$nick" welctxt
	regsub -all "%chan" $welctxt "$chan" welctxt
	puthelp "PRIVMSG $chan :$welctxt"
}

putlog "Channel Greeting - Generated by http://www.egginfo.org - Frostbyte"

Syntax Highlighting

[Open in new window]

Author Comments

Fisher's greet script

Rating

4.45 / 8
42 Votes