egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-03-18T06:38:57-04:00 https://forum.eggheads.org/app.php/feed/topic/9348 2005-03-18T06:38:57-04:00 2005-03-18T06:38:57-04:00 https://forum.eggheads.org/viewtopic.php?p=47838#p47838 <![CDATA[Help ctc.tcl error]]> Statistics: Posted by twfay — Fri Mar 18, 2005 6:38 am

]]> 2005-03-16T17:46:04-04:00 2005-03-16T17:46:04-04:00 https://forum.eggheads.org/viewtopic.php?p=47770#p47770 <![CDATA[Help ctc.tcl error]]>

Code: 

set tls_code [lindex $text 0 end]
to

Code: 

set tls_code [lindex $text 0]

Statistics: Posted by Sir_Fz — Wed Mar 16, 2005 5:46 pm

]]> 2005-03-16T12:21:21-04:00 2005-03-16T12:21:21-04:00 https://forum.eggheads.org/viewtopic.php?p=47753#p47753 <![CDATA[Help ctc.tcl error]]> when i type !code 123456
Tcl error [tls:code]: wrong # args: should be "lindex list index"
Can any 1 help me settle this prob?
thanks :(

proc tls:code {nick uhost hand chan text} {
global tls_code tls_number tls_game tls_hint tls_chan tls_ctc tls_ctcs
global tls_frase11_1 tls_frase11_2 tls_frase12_1 tls_frase12_2
if {$tls_game == "on"} { return }
if {$tls_chan != $chan} { return }
if {[info exists tls_ctcs($nick)]} {
set score [lindex $tls_ctcs($nick) 0]
set hints [lindex $tls_ctcs($nick) 1]
set wrong [lindex $tls_ctcs($nick) 2]
} else {
tls:update $nick 0 0 0
lappend tls_ctc(nicks) $nick
set score 0;set hints 0; set wrong 0
}
set tls_code [lindex $text 0 end]
if {$tls_code == $tls_number} {
set tls_game "on"
set tls_hint "0"
incr score 1
tls:update $nick $score $hints $wrong
putserv "PRIVMSG $tls_chan :$tls_frase11_1 $nick $tls_frase11_2 \00304$tls_number\003."
foreach j [utimers] {
if {[lindex $j 1] == "tls:answer"} { killutimer [lindex $j 2] }
}
tls:save
return 1
} else {
incr wrong 1
tls:update $nick $score $hints $wrong
putserv "PRIVMSG $tls_chan :$tls_frase12_1 $nick $tls_frase12_2"
tls:save
return 1
}
}

Statistics: Posted by twfay — Wed Mar 16, 2005 12:21 pm

]]>