egghelp/eggheads community

Little problem

2005-04-30T11:40:38-04:00

yup @

But now its retuning nothing and I Get no errors :*(

I can set greeting and trigger but I cant set.. anything after the 'else'

Statistics: Posted by daltonc — Sat Apr 30, 2005 11:40 am

Little problem

2005-04-30T11:24:14-04:00

Looks like the bot doesn't recognize that you're oped, is your net-type setting correct in your bot's config file ?

Statistics: Posted by Sir_Fz — Sat Apr 30, 2005 11:24 am

Little problem

2005-04-30T10:51:26-04:00

Alright sounds good, but the brackets are messed up:

Code:

proc command:main:set {nick uhost hand chan arg} {if {[isop $nick $chan]} {    set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]    foreach row $result {        foreach element $row {            set cmd_trigger $element        }    }    if {[string tolower [lindex [split $arg] 0]] == "${cmd_trigger}set" && [string tolower [lindex $arg 1]] == "greeting" } {       set greeting "[lrange $arg 2 end]"       putnotc $nick "Set greeting to '^B$greeting^B'"     } elseif {[string tolower [lindex [split $arg] 0]] == "${cmd_trigger}set" && [string tolower [lindex [split $arg] 1]] == "trigger"} {       set trigger "[lrange $arg 2 end]"       set save_trigger [mysql_query "UPDATE bot_channels SET chan_trigger='$trigger'"]       putnotc $nick "Set channel trigger to '^B$trigger^B'"     } else {        set command_input [string tolower [lindex $arg 1]]        set command_input_value  "[lrange $arg 2 end]"       set result [mysql_query "SELECT command_name FROM bot_commands WHERE command_chan='$chan' && command_name='$command_input'"]       if {[info exist result]} {        foreach row $result {           foreach element $row {              set update_command [mysql_query "UPDATE bot_commands SET command_value='$command_input_value'"]              putnotc $nick "Updated $command_input to $command_input_value"           }         }       } else {         set insert_command [mysql_query "INSERT INTO bot_commands (command_chan, command_name, command_value) VALUES ('$chan', '$command_input', '$command_input_value'"]         putnotc $nick "Set $command_input to $command_input_value"       }     }     } else {     putnotc $nick "Error(1): You lack access to $chan"     putnotc $nick "Error(2): Unable to proccess command"  }}

The reason I say bracket error is because I am getting this Error(1): You alck access to $chan.. and then the error(2), but I have ops in the channel. Any ideas?

Statistics: Posted by daltonc — Sat Apr 30, 2005 10:51 am

Little problem

2005-04-30T08:15:57-04:00

I think the error is from here

Code:

if {[$result]} {

This should return a boolean value (0 or 1). and as it seems in your proc, $result contains some different elements so it's probably not 0 or 1.
If you're trying to see if $result exists, then replace that with

Code:

if {[info exists result]} {

Although, I'm sure it'll always exist since the set command is right before it :p

Another simple but important thing to do is to replace

Code:

[lrange $arg 2 end]

with

Code:

[join [lrange [split $arg] 2 end]]

so you won't have problem with some particular characters.

Statistics: Posted by Sir_Fz — Sat Apr 30, 2005 8:15 am

Little problem

2005-04-29T22:50:55-04:00

I need some more help now.

Code:

proc command:main:set {nick uhost hand chan arg} {if {[isop $nick $chan]} {    set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]    foreach row $result {        foreach element $row {            set cmd_trigger $element        }    }    if {[string tolower [lindex [split $arg] 0]] == "${cmd_trigger}set" && [string tolower [lindex $arg 1]] == "greeting" } {       set greeting "[lrange $arg 2 end]"       putnotc $nick "Set greeting to '^B$greeting^B'"     } elseif {[string tolower [lindex [split $arg] 0]] == "${cmd_trigger}set" && [string tolower [lindex [split $arg] 1]] == "trigger"} {       set trigger "[lrange $arg 2 end]"       set save_trigger [mysql_query "UPDATE bot_channels SET chan_trigger='$trigger'"]       putnotc $nick "Set channel trigger to '^B$trigger^B'"     } else {        set command_input [string tolower [lindex $arg 1]]        set command_input_value  "[lrange $arg 2 end]"       set result [mysql_query "SELECT command_name FROM bot_commands WHERE command_chan='$chan' && command_name='$command_input'"]       if {[$result]} {        foreach row $result {           foreach element $row {              set update_command [mysql_query "UPDATE bot_commands SET command_value='$command_input_value'"]              putnotc $nick "Updated $command_input to $command_input_value"           }         }       } else {         set insert_command [mysql_query "INSERT INTO bot_commands (command_chan, command_name, command_value) VALUES ('$chan', '$command_input', '$command_input_value'"]         putnotc $nick "Set $command_input to $command_input_value"       }     }     } else {     putnotc $nick "Error(1): You lack access to $chan"     putnotc $nick "Error(2): Unable to proccess command"  }}

I'm getting this error:
[22:48] Tcl error [command:main:set]: invalid command name ""

Its kinda confusing. I dont know what line its on.. I just know that thats the proc I am getting the error in. I image its somewhere 'set command_input' and 'set command_input_value' .... etc..

Statistics: Posted by daltonc — Fri Apr 29, 2005 10:50 pm

Little problem

2005-04-29T17:41:58-04:00

try ${cmd_trigger}set instead of $(cmd_trigger)set.

Statistics: Posted by Sir_Fz — Fri Apr 29, 2005 5:41 pm

Little problem

2005-04-29T17:30:10-04:00

Ok, another little thing (I think)

Here is my code:

Code:

bind pub -|- * command:main:set### MAIN COMMAND FUNCTION ###proc command:main:set {nick uhost hand chan arg} {    set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]    foreach row $result {        foreach element $row {            putnotc $nick "$element"            set cmd_trigger $element        }    }    putnotc $nick "$cmd_trigger"    if {[string tolower [lindex [split $arg] 0]] == $(cmd_trigger)set} {        putnotc $nick "You ran the 'set' command"    }}

Now, I am trying to do this for 'custom' commands, and trying to obtain a trigger from the database which works correctly, I can obtain the trigger, but the bind isnt registring.. I dunno if * is wildcard but.. its not working.

In the database the chan_trigger is set to @ , and am typing @set and its not returning "You ran the 'set' command"

Statistics: Posted by daltonc — Fri Apr 29, 2005 5:30 pm

Little problem

2005-04-29T11:35:37-04:00

Code:

proc command:main {nick uhost hand chan arg} {    set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]    foreach row $result {        foreach element $row {            putnotc $nick "$element"            set cmd_trigger $element        }    }    if {[string tolower [lindex [split $arg] 0]] == $(cmd_trigger)set} {        putnotc $nick "You ran the 'set' command"    }}

Try this.

Statistics: Posted by ^DooM^ — Fri Apr 29, 2005 11:35 am

Little problem

2005-04-29T10:55:07-04:00

Ok, I am using this code to do my custom commands for my channel.. It doesnt seem to be working... This is what I have:

Code:

proc command:main {nick uhost hand chan arg} {set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]  foreach row $result {    foreach element $row {     putnotc $nick "$element"     set cmd_trigger $element    }  }if ([string tolower [lindex $arg 0]] == $(cmd_trigger}set} {   putnotc $nick "You ran the 'set' command" }}

I am getting this error:

[10:49] extra characters after close-brace
while executing
"proc command:main {nick uhost hand chan arg} {
set result [mysql_query "SELECT chan_trigger FROM bot_channels WHERE chan_name='$chan'"]
foreach row..."
(file "scripts/main.tcl" line 50)
invoked from within
"source scripts/main.tcl"
(file "bot_configs/eggdrop.conf" line 1343)

Statistics: Posted by daltonc — Fri Apr 29, 2005 10:55 am