egghelp.org community :: View topic - Simple Greeting Script

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Simple Greeting Script

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

kisser
Voice

Joined: 20 Feb 2010
Posts: 7

Posted: Sat Feb 20, 2010 3:35 am Post subject: Simple Greeting Script

Code:

#Scripted By KiSsEr
#KiSsEr@k.St
#To use it .chanset #channel +greets

set greeting "Your Msg Here"
set blackl(punish) 3:2

#[ don't edit here if you don't know how!#

bind join - * bl:greet
setudef flag greets

set blackl(lim) [scan $blackl(punish) %\[^:\]]
set blackl(secs) [scan $blackl(punish) %*\[^:\]:%s]

proc bl:greet {nick uhost hand chan} {
global BLNicks blackl blflood greeting botnick
if {![channel get $chan greets]} {return 0}
if {![info exists blflood([set chan [string tolower $chan]])]} { set blflood($chan) 0 }
if {$nick == $botnick} { return }
if {[blfollow $blackl(secs) blflood($chan)] < $blackl(lim)} {
putserv "notice $nick :$greeting"
} else {
return
}
}
proc blfollow {secs blvar} {
upvar $blvar fvar
utimer $secs [list bldicr $blvar]
incr fvar
}

proc bldicr blvar {
upvar $blvar fvar
if {$fvar > 0} {
incr fvar -1
}
}

putlog "Greeting Script KiSsEr"

_________________
•°o.O Wµ¥ ƒîgµT tø LìvÈ µøm¥ îƒ wÊ Øñ£ÿ £îvìñ tÕ ÐïÊ O.o°•

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum