| View previous topic :: View next topic |
| Author |
Message |
whittinghamj
Op
Joined: 21 May 2006
Posts: 103
|
 Posted: Wed May 24, 2006 6:44 am Post subject: missing close-brace |
 |
|
any ideas what is wrong with this code guys n girlers?
| Code: | bind pub -|o !age age
proc age {nick uhost hand channel text} {
if {[llength $text] > 1} {
puthelp "PRIVMSG $chan :You were supposed to look for a nick.. not more"
} elseif {![lsearch $::backupfile $text]} {
puthelp "PRIVMSG $chan :I don't remember seing $text
} else {
puthelp "PRIVMSG $chan :$text has been in $chan since [lindex $::userjoindata [lsearch $::backupfile $nick] 2]
} |
error message is this
| Code: | [04:45] Tcl error in file 'zeus.conf':
[04:45] missing close-brace
while executing
"proc age {nick uhost hand channel text} {
if {[llength $text] > 1} {
puthelp "PRIVMSG $chan :You were supposed to look for a nick.. not more..."
(file "scripts/lobby/test.tcl" line 2)
invoked from within
"source scripts/lobby/test.tcl"
(file "zeus.conf" line 84)
[04:45] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
[f4w@lobby-poseidon eggdrop]$
|
|
|
| Back to top |
|
 |
oxygen
Voice
Joined: 05 Sep 2005
Posts: 22
Location: Germany
|
| Posted: Wed May 24, 2006 7:04 am Post subject: |
|
|
Hello whittinghamj.
I didn't test the script, but it should work now:
| Code: | bind pub -|o !age age
proc age {nick uhost hand channel text} {
if {[llength $text] > 1} {
puthelp "PRIVMSG $chan :You were supposed to look for a nick.. not more"
} elseif {![lsearch $::backupfile $text]} {
puthelp "PRIVMSG $chan :I don't remember seing $text"
} else {
puthelp "PRIVMSG $chan :$text has been in $chan since [lindex $::userjoindata [lsearch $::backupfile $nick] 2]"
}
}
putlog "age.tcl loaded" |
Regards,
~oxygen |
|
| Back to top |
|
|
whittinghamj
Op
Joined: 21 May 2006
Posts: 103
|
| Posted: Wed May 24, 2006 8:42 pm Post subject: |
|
|
| thanks - god bless you my son |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
