egghelp/eggheads community

A trigger notice script (newb need some help)[SOLVED]

2007-06-27T18:02:45-04:00

ooh sweet. thanks. now i know little more about tcl-scripting. this forum is going to be verry usefull

Statistics: Posted by ipone — Wed Jun 27, 2007 6:02 pm

A trigger notice script (newb need some help)[SOLVED]

2007-06-27T10:42:08-04:00

the reason it does not work is that the firstchannel and channelmsg variables are set outside the proc, meaning they are in global space. The firstchannel and channelmsg variables are within the proc, which is not in global space. You need to import the firstchannel and channelmsg variables from global space into the proc. For this you use:

Code:

global firstchannel channelmsg

This will import the global space variables firstchannel and channelmsg into proc space variables firstchannel and channelmsg.

For the if statement, it would be better to use a string equal -nocase, otherwise if the channels dont match case, it wont continue.

Code:

if {[string equal -nocase $channel $firstchannel]} {

You also need another " if your putquick statement at the end.

Code:

putquick "notice $nickname :$channelmsg"

The return 0 is not needed.

So the end code should look like:

Code:

set trigger "!help"set firstchannel "#test"set channelmsg "need some help?"bind pub - $trigger trigger1proc trigger1 {nickname hostname handle channel text} {  global firstchannel channelmsg  if {[string equal -nocase $channel $firstchannel]} {    putquick "notice $nickname :$channelmsg"  }}

Hope this helps

Statistics: Posted by r0t3n — Wed Jun 27, 2007 10:42 am

A trigger notice script (newb need some help)[SOLVED]

2007-06-27T18:03:00-04:00

Hey im a total newb when it comes to tcl scripting for eggdrops.

I was trying to make a simpel trigger script for multiple channels

i know its already have been done and i can download it and add it to the bot.
but i figerd that if i want to learn tcl i need to do i myself.

Code:

set trigger "!help"set firstchannel "#test"set channelmsg "need some help?"bind pub - $trigger trigger1proc trigger1 {nickname hostname handle channel text} {  if {$channel == $firstchannel} {    putquick "notice $nickname :$channelmsg    } return 0}

ive would be verry happy if someone can help me with this. not just say how the code must be, also maybe try to explain why and so on.

btw. sry for bad english

Statistics: Posted by ipone — Wed Jun 27, 2007 3:27 am