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

[ipone]

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: Select all

set trigger "!help"
set firstchannel "#test"
set channelmsg "need some help?"

bind pub - $trigger trigger1

proc 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

[r0t3n]

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: Select all

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: Select all

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

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

Code: Select all

putquick "notice $nickname :$channelmsg"

The return 0 is not needed.

So the end code should look like:

Code: Select all

set trigger "!help"
set firstchannel "#test"
set channelmsg "need some help?"

bind pub - $trigger trigger1

proc trigger1 {nickname hostname handle channel text} {
  global firstchannel channelmsg
  if {[string equal -nocase $channel $firstchannel]} {
    putquick "notice $nickname :$channelmsg"
  }
}

Hope this helps

[ipone]

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