egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-04-30T19:54:05-04:00 https://forum.eggheads.org/app.php/feed/topic/4259 2003-04-30T19:54:05-04:00 2003-04-30T19:54:05-04:00 https://forum.eggheads.org/viewtopic.php?p=19682#p19682 <![CDATA[Switch command problem]]>
at the end of the dccsend line i stupid forgot to add this {

/me shoots self in head for not seeing this


thanks =D

Statistics: Posted by SmokeyOne — Wed Apr 30, 2003 7:54 pm

]]> 2003-04-29T04:30:41-04:00 2003-04-29T04:30:41-04:00 https://forum.eggheads.org/viewtopic.php?p=19604#p19604 <![CDATA[Switch command problem]]>
Use the variable to dot he switch on.

Statistics: Posted by ppslim — Tue Apr 29, 2003 4:30 am

]]> 2003-04-29T02:04:41-04:00 2003-04-29T02:04:41-04:00 https://forum.eggheads.org/viewtopic.php?p=19594#p19594 <![CDATA[Switch command problem]]>
This script is just setup to send a file on a trigger but this is the error form the bot
Tcl error [dbzxsf:!tcl]: wrong # args: should be "switch ?switches? string pattern body ... ?default body?"

now here's the code
#set commands
set dbzx_sf(!tcl) doc/tcl-commands.doc
#Routines
#This Sends helpful files
foreach buffer [array names dbzx_sf] {
set buffer2 [string tolower $buffer]
set dbzx_sf($buffer2) $dbzx_sf($buffer)
set buffer $buffer2
bind pubm - "% $buffer" dbzxsf:$buffer
proc dbzxsf:$buffer {nick uhost hand chan args} {
global dbzx_sf
switch -- [dccsend $dbzx_sf([set trigger [string tolower [lindex [lindex $args 0] 0]]]) $nick]
0 {putnot $nick ":Sending $trigger's info to you."}
1 {putnot $nick ":dcc table is full (too many connections)."}
2 {putnot $nick ":can't open a socket for the transfer."}
3 {putnot $nick ":file doesn't exsist."}
4 {putnot $nick ":$trigger's info was queued for last transfer."}
}
}

I'm uesing the tcl comamnds.doc file for testing i get an error saying the switch is [censored] up ( bascily ) but when i change it from Switch -- to Switch --- it sends the file, but i get this error
Tcl error [dbzxsf:!tcl]: bad option "---": must be -exact, -glob, -regexp, or --

any suggestions on where i messed up ?

Statistics: Posted by SmokeyOne — Tue Apr 29, 2003 2:04 am

]]>