egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-07-25T15:59:22-04:00 https://forum.eggheads.org/app.php/feed/topic/12180 2006-07-25T15:59:22-04:00 2006-07-25T15:59:22-04:00 https://forum.eggheads.org/viewtopic.php?p=64860#p64860 <![CDATA[Trouble with args, *PROB SOLVED*]]>

Code: 

bind - pub !help myprocproc myproc {nick uhost hand chan text} {     set cmd [lindex [split $text] 0]     if {$cmd == "google"} {              puthelp "PRIVMSG $nick :Google help line 1"              puthelp "PRIVMSG $nick :Google help line 2 etc."              return       }     if {$cmd == "something"} {              # more stuff here              return     }     if {$cmd == ""} {              # Whatever you want..              # could also just use the next "else" part after any "if", for default help..               return     } else {              # default help stuff here...              return     }}

Statistics: Posted by rosc2112 — Tue Jul 25, 2006 3:59 pm

]]> 2006-07-25T04:58:26-04:00 2006-07-25T04:58:26-04:00 https://forum.eggheads.org/viewtopic.php?p=64840#p64840 <![CDATA[Trouble with args, *PROB SOLVED*]]>

Code: 

proc send:help {nick uhost hand chan {args ""}}
Just isn't working :?

I'm at a total loss. [llength $args] didn't work either.

*UPDATE* I said the hell with it and just rewrote the code. Thanks for your suggestions, and sorry for the trouble. *mutters to himself*

Statistics: Posted by Vexor — Tue Jul 25, 2006 4:58 am

]]> 2006-07-25T04:32:46-04:00 2006-07-25T04:32:46-04:00 https://forum.eggheads.org/viewtopic.php?p=64837#p64837 <![CDATA[Trouble with args, *PROB SOLVED*]]>

Code: 

proc send:help {nick uhost hand chan {args ""}}

Statistics: Posted by krimson — Tue Jul 25, 2006 4:32 am

]]> 2006-07-25T04:19:26-04:00 2006-07-25T04:19:26-04:00 https://forum.eggheads.org/viewtopic.php?p=64836#p64836 <![CDATA[Trouble with args, *PROB SOLVED*]]>

Code: 

proc send:help {nick uhost hand chan args} {        #Bring in the default list        global helplist        if { [llength $args] > 0 } {                put:help $args $nick        } else {                putserv "privmsg $nick :Current general commands include: $helplist"                putserv "privmsg $nick :For more information on a topic use \"!help topic\" (such as !help google)"        }}
Maybe llength $args works...

Statistics: Posted by Zero — Tue Jul 25, 2006 4:19 am

]]> 2006-07-25T05:40:48-04:00 2006-07-25T00:19:43-04:00 https://forum.eggheads.org/viewtopic.php?p=64834#p64834 <![CDATA[Trouble with args, *PROB SOLVED*]]>
I'm creating a small user's help guide for my bot so people can know all channel commands for the bot. This works to some degree. If I type in "!help google" I get the small help text that explains how to use it. But if I just use "!help" I get no response at all. It's probably just a total brain fart but I can't put my finger on it.

Code: 

proc send:help {nick uhost hand chan args} {        #Bring in the default list        global helplist        if { $args != "" } {                put:help $args $nick        } else {                putserv "privmsg $nick :Current general commands include: $helplist"                putserv "privmsg $nick :For more information on a topic use \"!help topic\" (such as !help google)"        }}
put:help is what calls if args is not blank, (ie, the "!help google", which works) What's not working is the else statement block. :?

Any suggestions?

Statistics: Posted by Vexor — Tue Jul 25, 2006 12:19 am

]]>