egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-09-20T09:38:25-04:00 https://forum.eggheads.org/app.php/feed/topic/12434 2006-09-19T08:53:33-04:00 2006-09-19T08:53:33-04:00 https://forum.eggheads.org/viewtopic.php?p=66457#p66457 <![CDATA[Trigger lost]]>

Code: 

####################bind pub - !help helpstuffbind msg * germanbind msg * swedishbind msg * faqproc helpstuff {nick uhost hand chan text} {         set text [split $text]          if {[lindex $text 0] == ""} {          puthelp "PRIVMSG $nick :This is the default help, in english"          puthelp "PRIVMSG $nick :You can type !help swedish, !help german, !help support, !help faq"          } elseif {[lindex $text 1] == "german"} {puthelp "PRIVMSG $nick :GERMAN FAQ, select a NR and enter" puthelp "PRIVMSG $nick :1) " puthelp "PRIVMSG $nick :2) " puthelp "PRIVMSG $nick :3) "         } elseif {[lindex $text 1] == "swedish"} {puthelp "PRIVMSG $nick :SWEDISH FAQ, select a NR and enter" puthelp "PRIVMSG $nick :1) " puthelp "PRIVMSG $nick :2) " puthelp "PRIVMSG $nick :3) "          } elseif {[lindex $text 1] == "faq"} {puthelp "PRIVMSG $nick :FAQ select a NR and enter" puthelp "PRIVMSG $nick :1) " puthelp "PRIVMSG $nick :2) " puthelp "PRIVMSG $nick :3) "         if {[lindex $text 2] == ""} {          #here you can make subcategories for "faq" questions          puthelp "PRIVMSG $nick :Please pick a category:"          puthelp "PRIVMSG $nick :!help faq 1 - Category 1 stuff"          puthelp "PRIVMSG $nick :!help faq 2 - Category 2 stuff"          } elseif {[lindex $text 2] == "1"} {          puthelp "PRIVMSG $nick :FAQ Category 1 answers here"          } elseif {[lindex $text 2] == "2"} {          puthelp "PRIVMSG $nick :FAQ Category 2 answers"                     }            } }

Statistics: Posted by Flomsen — Tue Sep 19, 2006 8:53 am

]]> 2006-09-19T07:11:09-04:00 2006-09-19T07:11:09-04:00 https://forum.eggheads.org/viewtopic.php?p=66452#p66452 <![CDATA[Trigger lost]]>
Example:

!help
# Main Interface
!help <topic>
# Info on <topic>
!help <topic2>
set help(goback,$nick) <topic>
# Info on topic2
!help goback
# Info on $help(goback,$nick)

... if you know what i mean...

Statistics: Posted by r0t3n — Tue Sep 19, 2006 7:11 am

]]> 2006-09-19T07:41:09-04:00 2006-09-19T07:02:12-04:00 https://forum.eggheads.org/viewtopic.php?p=66450#p66450 <![CDATA[Trigger lost]]> !help german

Code: 

[12:56:39] (MYBOT) [12:56] Tcl error [addinfo]: can't read "nextinfo(BB@whocare.org)": no such variable[12:56:39] (MYBOT) [12:56] [BB!BB@whocare.org] !help german
i have edit this lines

Line 2
bind pub - !help proc:helpstuff
to
bind pub - !help helpstuff

Line 14
} elseif {([lindex $text 1] == "faq")
to
} elseif {[lindex $text 1] == "faq"} {

Code: 

########################################################################## bind pub - !help helpstuff proc helpstuff {nick uhost hand chan text} {         set text [split $text]          if {[lindex $text 0] == ""} {          puthelp "PRIVMSG $nick :This is the default help, in english"          puthelp "PRIVMSG $nick :You can type !help swedish, !help german, !help support, !help faq"          } elseif {[lindex $text 1] == "german"} {         puthelp "PRIVMSG $nick :German stuff"         #This is where german text would be         } elseif {[lindex $text 1] == "swedish"} {          puthelp "PRIVMSG $nick :Swedish stuff"         #this is where swedish text would be         } elseif {[lindex $text 1] == "faq"} {         if {[lindex $text 2] == ""} {          #here you can make subcategories for "faq" questions         puthelp "PRIVMSG $nick :Please pick a category:"          puthelp "PRIVMSG $nick :!help faq 1 - Category 1 stuff"         puthelp "PRIVMSG $nick :!help faq 2 - Category 2 stuff"         } elseif {[lindex $text 2] == "1"} {         puthelp "PRIVMSG $nick :FAQ Category 1 answers here"         } elseif {[lindex $text 2] == "2"} {          puthelp "PRIVMSG $nick :FAQ Category 2 answers"                    }            } }

Statistics: Posted by Flomsen — Tue Sep 19, 2006 7:02 am

]]> 2006-09-19T05:35:18-04:00 2006-09-19T05:35:18-04:00 https://forum.eggheads.org/viewtopic.php?p=66444#p66444 <![CDATA[Trigger lost]]>
Would be simpler to just make a staggered helpfile, with like:

Code: 

##########################################################################bind pub - !help proc:helpstuffproc helpstuff {nick uhost hand chan text} {        set text [split $text]         if {[lindex $text 0] == ""} {                  puthelp "PRIVMSG $nick :This is the default help, in english"                  puthelp "PRIVMSG $nick :You can type !help swedish, !help german, !help support, !help faq, etc etc"          } elseif {[lindex $text 1] == "german"} {                    # This is where german text would be          } elseif {[lindex $text 1] == "swedish"} {                     # this is where swedish text would be          } elseif {([lindex $text 1] == "faq")                   if {[lindex $text 2] == ""} {                        # here you can make subcategories for "faq" questions                         puthelp "PRIVMSG $nick :Please pick a category:"                         puthelp "PRIVMSG $nick :!help faq 1 - Category 1 stuff"                         puthelp "PRIVMSG $nick :!help faq 2 - Category 2 stuff"                    } elseif {[lindex $text 2] == "1"} {                            puthelp "PRIVMSG $nick :FAQ Category 1 answers here"                    } elseif {[lindex $text 2] == "2"} {                            puthelp "PRIVMSG $nick :FAQ Category 2 answers"                    }           }}
and so forth and so on...and no that's not tested and prolly doesn't work as-is :)

Statistics: Posted by rosc2112 — Tue Sep 19, 2006 5:35 am

]]> 2006-09-19T03:48:22-04:00 2006-09-19T03:48:22-04:00 https://forum.eggheads.org/viewtopic.php?p=66439#p66439 <![CDATA[Trigger lost]]>
What he is aiming for is a direct copy of Quakenet's help bot interface.

Being able to go back and forth with the help and it's topics.
Yes that if you run /msg G help on Qnet.

This is however hard in TCL and it requires alot more work than what you have right there ;)
Ok, i guess i need to find a new solution :oops:

Statistics: Posted by Flomsen — Tue Sep 19, 2006 3:48 am

]]> 2006-09-19T03:19:35-04:00 2006-09-19T03:19:35-04:00 https://forum.eggheads.org/viewtopic.php?p=66435#p66435 <![CDATA[Trigger lost]]>
Being able to go back and forth with the help and it's topics.
This is however hard in TCL and it requires alot more work than what you have right there ;)

Statistics: Posted by metroid — Tue Sep 19, 2006 3:19 am

]]> 2006-09-18T19:11:14-04:00 2006-09-18T19:11:14-04:00 https://forum.eggheads.org/viewtopic.php?p=66421#p66421 <![CDATA[Trigger lost]]>
I suggest you change:

Code: 

if {$chan == "#MYCHANNEL"} {
To

Code: 

if {[string match -nocase #mychannel $chan]} {

Statistics: Posted by r0t3n — Mon Sep 18, 2006 7:11 pm

]]> 2006-09-18T18:23:10-04:00 2006-09-18T18:23:10-04:00 https://forum.eggheads.org/viewtopic.php?p=66420#p66420 <![CDATA[Trigger lost]]> Statistics: Posted by Flomsen — Mon Sep 18, 2006 6:23 pm

]]> 2006-09-18T18:01:05-04:00 2006-09-18T18:01:05-04:00 https://forum.eggheads.org/viewtopic.php?p=66418#p66418 <![CDATA[Trigger lost]]> !help (as stated in the script). :P

Code: 

puthelp "NOTICE $nick :!help for commands"
Cycle your channel to see the notice sent to every user that joins.

Statistics: Posted by Alchera — Mon Sep 18, 2006 6:01 pm

]]> 2006-09-20T09:38:25-04:00 2006-09-18T17:23:24-04:00 https://forum.eggheads.org/viewtopic.php?p=66416#p66416 <![CDATA[Trigger lost]]>
Need some help to create get back trigger
i have this script but i'm lost now, i don't now what i have to do :cry:

someone plz help me

sorry for my english

Statistics: Posted by Flomsen — Mon Sep 18, 2006 5:23 pm

]]>