HELP - greet :)

[vR|Ar]

<vR|Ar> AI-HELP chanset greet welcome to our channel...
<TESTIBOT> SET #chantest greet welcome to our channel...
<vR|Ar> AI-HELP chanset +greet
<TESTIBOT> SET #chantest +greet 
* Attempting to rejoin channel #chantest
* Rejoined channel #chantest
-TESTIBOT- vR|Ar, welcome to our channel...

CORE

proc join:greet {nick uhost hand chan} {
	if {[channel get $chan greet] && [botisop $chan]} {
	putserv "NOTICE $nick :$nick, [::stats::channel -get $chan greet]"
	}
}
BINDS
bind join -|- * join:greet

i already put ( a:command -add greet pub:greet 1115 618 |N )

proc pub:greet  {hand chan args x mix} { 

	set what [::stats::channel -get $chan greet]
             blablablabla....
}

MY PROBLEM... please help me put some flood protection and
to use %nick% and %chan%

ive tried it but it doesnt work ... i need help.. thank you...

[AdrianK]

set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]

try

set what [string map {%chan% $chan %nick% $nick}]

Thats in ure greet set

[arcade]

add this proc to your code:

proc greet:parse {greet} {
set greet [string map { %nick% $nick %chan% $chan} [split $greet]]
return $greet
}

and in your join process replace this:

putserv "NOTICE $nick :$nick, [::stats::channel -get $chan greet]"

with:

set greet [::stats::channel -get $chan greet]
putserv "NOTICE $nick :[greet:parse $greet]"

also hope you didn't change what AdrianK stated before, because as far as I can tell that line is from the a:tell process and it is used to define the colors that the bot will output your text in. So if you changed it, put it back :P

Enjoy!

[arcade]

proc join:greet {nick uhost hand chan} {
global agrflood
if {[channel get $chan greet] && [botisop $chan] && ![info exists agrflood($nick,$chan)] && ![info exists agrflood($chan)]} {
set greet [::stats::channel -get $chan greet]
putserv "NOTICE $nick :[subst [greetarse $greet]]"
set agrflood($nick,$chan) 1
set agrflood($chan) 1
utimer 10 [unset agrflood($nick,$chan)]
utimer 5 [unset agrflood($chan)]
}
}

a little update, added antiflood protection

[vR|Ar]

script does not contain errors...

but it wont unset..

[vR|Ar]

proc join:greet {nick uhost hand chan} {
global agrflood 
if {[channel get $chan greet] && [botisop $chan]} {
if {[info exists agrflood($nick:$chan)]} {
    return 0
  }
set greet [::stats::channel -get $chan greet]
set agrflood($nick:$chan) 1
timer 2[list unset agrflood($nick:$chan)]
putserv "NOTICE $nick :[subst [greet:parse $greet]]"
}
}

Thanks for the help.. its now working