egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-07-12T13:47:36-04:00 https://forum.eggheads.org/app.php/feed/topic/19027 2012-07-12T13:47:36-04:00 2012-07-12T13:47:36-04:00 https://forum.eggheads.org/viewtopic.php?p=99721#p99721 <![CDATA[combining if text]]>

Code: 

if {test} {  code if test is TRUE} {  code if test is FALSE}
In order to do string comparisons, the simplest approach would be to use the string command with the match option:

Code: 

string match "*.id" $text
In order to evaluate and test the string match command, we need to use command substitutions, which is done using brackets [ ]

Code: 

if {[string match "*.id" $text]} {  ...} {  ...}
Printing text to stdout is done using the puts command, though that won't make much sense with eggdrops. In order to send text to the irc server, you can use the puthelp and putserv commands; if you'd rather like to log the message, use putlog for that:

Code: 

if {[string match "*.id" $text]} {  puthelp "PRIVMSG #Somechannel :The string \"${text}\" matches!"} {  putlog "The string \"${text}\" does not match the test!"}
Next, in order to use this with a public trigger, we need a binding, and place the above code in a proc:

Code: 

bind pub !whois - pubWhoisproc pubWhois {nick host handle channel text} {  if {[string match "*.id" $text]} {    puthelp "PRIVMSG #Somechannel :The string \"${text}\" matches!"  } {    putlog "The string \"${text}\" does not match the test!"  }}

Statistics: Posted by nml375 — Thu Jul 12, 2012 1:47 pm

]]> 2012-07-12T05:38:58-04:00 2012-07-12T05:38:58-04:00 https://forum.eggheads.org/viewtopic.php?p=99720#p99720 <![CDATA[combining if text]]>
How to make

if ($text = *.id) { echo x } else { echo z }; in tcl ?

everyting they do !whois domain.id go to first x and else goto z

thanks

Statistics: Posted by gembels — Thu Jul 12, 2012 5:38 am

]]>