egghelp/eggheads community

Different bot responses on private and public channels

2005-12-26T19:25:18-04:00

Thanks demond, a little bit of re-organising in my script, adding your suggestion and now it all works as i wanted

Re: "-nocase"

do i just add this inline like...
Code:
if {[string compare -nocase $chan #somechannel] == 0} { 
or somewhere else?

check out Tcl docs ("manpage") for [string] command at tcl.tk website

Statistics: Posted by demond — Mon Dec 26, 2005 7:25 pm

Different bot responses on private and public channels

2005-12-26T18:34:25-04:00

It may be just me (that or it's my paranoia) but you may want to do something with your $extra field in the way of quoting things like apostrophes, ec., in the input.

Statistics: Posted by Ehlanna — Mon Dec 26, 2005 6:34 pm

Different bot responses on private and public channels

2005-12-26T16:25:00-04:00

Thanks demond, a little bit of re-organising in my script, adding your suggestion and now it all works as i wanted

Re: "-nocase"

do i just add this inline like...

Code:

if {[string compare -nocase $chan #somechannel] == 0} {

or somewhere else?

Statistics: Posted by Reserve — Mon Dec 26, 2005 4:25 pm

Different bot responses on private and public channels

2005-12-26T13:37:02-04:00

[string compare] returns 0 if the strings are identical, otherwise 1 or -1; so you need to change your if's to:

Code:

if {[string compare $chan #somechannel] == 0} {# do stuff for that channel}

you might also want to include -nocase option for [string] command, for case-insensitive comparison

Statistics: Posted by demond — Mon Dec 26, 2005 1:37 pm

Different bot responses on private and public channels

2005-12-26T13:00:34-04:00

Ive searched and seen several questions about this kind of thing but with my limited tcl skills i just cant seem to get it working on my bot.

My bot sits in a private channel for gameserver admins and several public channels including a public channel for gameserver players. I want to use the same trigger in different channels but the responses will be different depending on what channel the trigger was called from.

In its current form, the trigger is

Code:

!link

the bot then compares the arg to a sql table and if a match for is found then a url is sent as a notice to the user that called the trigger.

My current script is as follows

Code:

bind pub - !link pub_linkproc pub_link {nick host hand chan arg} {    if {[string compare $chan #admin-channel]} {      return    }    global mysql    if {[llength $arg] < 1} then {        putquick "NOTICE $nick : You might want to tell me what link you want to look for....."        return    }set extra [lindex $arg 0]    mysqlsel $mysql "SELECT trigger,link,details from irc_bot_links where trigger='$extra'"    set mycount [mysqlresult $mysql rows?]    mysqlmap $mysql {trigger link details} {putquick "NOTICE $nick :$link - $details"    }    if {$mycount == 0} {    putquick "NOTICE $nick : No URL found for link $extra, for a list of links type !links"    }}

What im trying to do is something like..

Code:

bind pub - !link pub_linkproc pub_link {nick host hand chan arg} {    if {[string compare $chan #admin-channel]} {      return    }    global mysql    if {[llength $arg] < 1} then {        putquick "NOTICE $nick : You might want to tell me what link you want to look for....."        return    }set extra [lindex $arg 0]    mysqlsel $mysql "SELECT trigger,link,details from irc_bot_links where trigger='$extra' and status='private'"    set mycount [mysqlresult $mysql rows?]    mysqlmap $mysql {trigger link details} {putquick "NOTICE $nick :$link - $details"    }    if {$mycount == 0} {    putquick "NOTICE $nick : No URL found for link $extra, for a list of links type !links"    }   elseif {[string compare $chan #public-channel]} {      return    }    global mysql    if {[llength $arg] < 1} then {        putquick "NOTICE $nick : You might want to tell me what link you want to look for....."        return    }set extra [lindex $arg 0]    mysqlsel $mysql "SELECT trigger,link,details from irc_bot_links where trigger='$extra' and status='public'"    set mycount [mysqlresult $mysql rows?]    mysqlmap $mysql {trigger link details} {putquick "NOTICE $nick :$link - $details"    }    if {$mycount == 0} {    putquick "NOTICE $nick : No URL found for link $extra, for a list of links type !links"    }  }}

I cant seem to figure out how to achieve this, the above example doest work. Ive tried putting the if chan and elseif commands in various places but at best only get the script to work in one of the channels.

Can anyone offer any help or suggestions?

Regards

Reserve

Statistics: Posted by Reserve — Mon Dec 26, 2005 1:00 pm