egghelp/eggheads community

New to tcl, need help with a simple trigger script

2010-02-18T22:13:53-04:00

I actually ended up expanding mine to something similar doggo. i made it so that I can !hug to make my bot hug that person, or !hug to hug someone else. I'm slowly learning.

Statistics: Posted by Luminous — Thu Feb 18, 2010 10:13 pm

New to tcl, need help with a simple trigger script

2010-02-15T19:17:39-04:00

Code:

#############################################################                    simple cmd tcl - doggo                #############################################################set userflag "-"set huggle "!hug"bind PUB $userflag $huggle hugcomproc hugcom {nick uhost hand chan text} {   global botnick   puthelp "PRIVMSG $chan :\001ACTION huggles $text\001"}############################################################putlog "hug script by doggo"

Code:

 [11:16pm]  !hug hub[11:16pm] * various huggles hub[11:19pm]  !hug egghelp.forum[11:19pm] * various huggles egghelp.forum

Statistics: Posted by doggo — Mon Feb 15, 2010 7:17 pm

New to tcl, need help with a simple trigger script

2010-02-14T05:35:51-04:00

proc pub:hug {nick uhost chan hand text} {

should be:

proc pub:hug {nick uhost hand chan text} {

Statistics: Posted by tsukeh — Sun Feb 14, 2010 5:35 am

New to tcl, need help with a simple trigger script

2010-02-13T20:46:51-04:00

http://suninet.the-demon.de/a2.htm covers it.

and there is a lot of other VERY good info there - easy to read, easy to follow.

Statistics: Posted by willyw — Sat Feb 13, 2010 8:46 pm

New to tcl, need help with a simple trigger script

2010-02-13T11:25:35-04:00

Ah! I was close! Thanks, works great now. And I will read through that stuff you mentioned.

Statistics: Posted by Luminous — Sat Feb 13, 2010 11:25 am

New to tcl, need help with a simple trigger script

2010-02-13T06:45:15-04:00

You should read the "TCL FAQ" part of the forum, it has alot of things that cover this. And I'd strongly recommend you read upon IRC Raws at least.

But good work. You can do actions with

Code:

puthelp "PRIVMSG $chan :\001ACTION $text\001"

There is a putact command provided by the alltools.tcl if you have it loaded, so you can use

Code:

putact $chan "action"

Statistics: Posted by TCL_no_TK — Sat Feb 13, 2010 6:45 am

New to tcl, need help with a simple trigger script

2010-02-13T02:18:40-04:00

Hi everyone.

Just started using eggdrop a few days ago, and I am starting to get the hang of how the bot works. I am a novice at tcl coming into it, but I am trying to write some scripts to learn. Trying out very basic ones first... like trying to use public triggers to make my bot say things. But I cannot figure out to use actions like, for example "/me hugs $nick" when someone uses !hug. The way I would write that script is:

bind pub - !hug pub:hug
proc pub:hug {nick uhost chan hand text} {
puthelp "ACTION :hugs $nick"

Which doesn't work I've tried it several different ways... without the :, etc, but no go. It has to be close... If someone can help me to understand how to use actions in triggers, it would be greatly appreciated. Thanks in advance.

Statistics: Posted by Luminous — Sat Feb 13, 2010 2:18 am