I need help with this? GREETS

[mimic]

Hello..

I've tried to search for a tcl that greets a specific nick with a specific msg onjoin but no success so far. I also need it to determine the person host so the greets will not go for a wrong place .. any ideas

peace

[Papillon]

info <--
then do .chanset #channel +greet

[mimic]

hi again

I know about this. No password is needed. i want the bot to greet the person when he joins the channel, and i need it random, like if he joins now the bot will greet with la la la, then he joins again lets say after a few hours then the bot will greet him with something diff . you know what i mean?
and i want to add a specific host so the bot will not greet the wrong person..


Peace

[Papillon]

Code: Select all

set greetlines {
  "la la la la"
  "le le le le"
  "hmmm.."
}
bind join -|A * greet:special
proc greet:special {nick host hand chan} {
  set greet [lindex $::greetlines [rand [llength $::greetlines]]]
  putserv "PRIVMSG $chan :$greet"
}
[code]
very basic greeting, just add the person to your bot (no need for him to set pass if you don't wan't him to), then do [b].chattr user +A #channel[/b]
note.. +A is a userset flag, and [b]not[/b] the same as the +a flag

[mimic]

this code doesn't seem to work? you mind check it again and correct the broken code.

peace

[caesar]

Any errors or something like this?

[mimic]

the code is not working so no chance to capture an error.

[Dedan]

did you add the nick to the userlist
as Papillon suggested?

[Yoda]

Code: Select all

bind join - * join_tous
proc join_tous {nick host hand chan} {
  if {$chan == "#channel"} {
puthelp "PRIVMSG $nick : "channel rules"
  }
  if {($chan == "#channel") && ([string tolower $nick] == "nick")} {
			putmsg $chan "message"
				}
    }

I use this script to send a pvt msg onjoin to all with channel rules and a customized greet to a specified nick

[caesar]

You should follow Papillon's sugestions.

Yoda: since the #channel is in lower chars then the

Code: Select all

if {$chan == "#channel"} { 

should be in fact:

Code: Select all

if {[strlwr $chan] == #channel} { 

same thing goes to the next $chan == "#channel" check.

[strikelight]

You should follow Papillon's sugestions.

Yoda: since the #channel is in lower chars then the

Code: Select all

if {$chan == "#channel"} { 

should be in fact:

Code: Select all

if {[strlwr $chan] == #channel} { 

same thing goes to the next $chan == "#channel" check.

strlwr is of course not a tcl command, but a procedure provided by alltools.tcl (i believe). If you do not have alltools.tcl loaded, then you should be using 'string tolower' in place of 'strlwr'.