egghelp/eggheads community

!map

2006-09-01T12:48:15-04:00

Then you've most likely got a pair of [] to many

Statistics: Posted by nml375 — Fri Sep 01, 2006 12:48 pm

!map

2006-09-01T12:45:56-04:00

Now it say Tcl error [pub_kartta]: invalid command name "lol - http://asd.com/lol.asd". :S

Statistics: Posted by Kuukkeli — Fri Sep 01, 2006 12:45 pm

!map

2006-09-01T12:08:57-04:00

Simply, use lists and strings properly. Specially, when printing the contents of allEntrys, convert it to a string ({} are used to set the boundaries for each list-item).
Something like:

Code:

join $allEntrys ", "

should do the trick...

Also, don't use "args" as a parameter name when building procs, as this one is interpreted in a special fashion (allows dynamic number of arguments to be supplied to a process, each argument will be a list-item in "args"). Pub-binds will call the associated function with a fixed number of arguments, so there's no need for it here.. And frankly, your mangling of args in the code really does'nt make much sense either.

Statistics: Posted by nml375 — Fri Sep 01, 2006 12:08 pm

!map

2006-09-01T11:01:33-04:00

Hi, this script finds map @ kartta.dat file.

Code:

bind pub - !kartta pub_karttaproc pub_kartta { nick uhost hand chan args } {global kartta_dbset kartta_db "data/kartta.dat"   set args [split [lindex $args 0] " "]    if {$args == ""} { puthelp "PRIVMSG $chan :$nick !kartta  ohjeet: hakusanan tulee olla kolme merkkiä pitkä tai pitempi, eikä siinä saa käyttää$return}    if {$args == "kz"} { puthelp "PRIVMSG $chan :$nick !kartta  ohjeet: hakusanan tulee olla kolme merkkiä pitkä tai pitempi, eikä siinä saa käytt$return}    set explain [string tolower [lindex $args 0]] set chan [string tolower $chan] set init_t [clock clicks -milliseconds] set fp [open $kartta_db r]set matches ""set allEntrys "" while {![eof $fp]} {  gets $fp curEntryif {[info exists curEntry]&&$curEntry!=""} {   set curEntry [split [string tolower $curEntry] " "] set thisEntry [join [lrange $curEntry 0 end] " "]   if { [string match -nocase "*${args}*" $thisEntry] } {    if { [lsearch $allEntrys [lindex curEntry 1]]==-1 } {lappend allEntrys [lrange $thisEntry 0 end] set allEntrys [lsort -unique $allEntrys]} } } }set init_t [expr double(([clock clicks -milliseconds] - $init_t))/1000] if {$allEntrys==""} { puthelp "PRIVMSG $chan :Karttaa ei löytynyt." } else {  if {[llength $allEntrys]>5} {puthelp "PRIVMSG $chan :Liian monta karttaa löytyi, kokeille muulla hakusanalla."  } else {set jee1 "[lrange $allEntrys 0 1]"puthelp "PRIVMSG $chan :Löytyi [llength $allEntrys] kartta(a). $allEntrys"  }}}

It works, but answer is [@Romuloota] Löytyi 1 kartta(a). {lol - http://asd.com/lol.asd}. How i delete these {}. Sry my bad english, i hope you understand.

Statistics: Posted by Kuukkeli — Fri Sep 01, 2006 11:01 am