egghelp/eggheads community

moxquizz

2006-09-21T20:55:28-04:00

You do not edit any Tcl file you edit the .rc file as per instructions.

## Defaults for bot configuration. Don't edit here, edit the file
## moxquizz.rc instead!

Statistics: Posted by Alchera — Thu Sep 21, 2006 8:55 pm

sorry

2006-09-21T05:42:09-04:00

# say Hi to "known" users
proc moxquiz_purr {nick host handle channel action arg} {
global quizconf allstarsarray
global botnick
# [pending] translate this
set tlist [list "purrs." \
"meows." \
"happily hops around."]

if {$action == "ACTION" && $arg == "pats $botnick" &&
[mx_str_ieq $channel $quizconf(quizchannel)] &&
([validuser $handle] || [info exists allstarsarray($nick)]) } {
mxirc_action $quizconf(quizchannel) [lindex $tlist [rand [llength $tlist]]]
}
}

Statistics: Posted by Thanhas — Thu Sep 21, 2006 5:42 am

i don't know why i can'

2006-09-21T05:31:53-04:00

i don't know why its not pasting all ?

Statistics: Posted by Thanhas — Thu Sep 21, 2006 5:31 am

moxquizz

2006-09-21T05:16:32-04:00

Add:

Code:

global botnick

After the:

global quizconf allstarsarray

line

Statistics: Posted by r0t3n — Thu Sep 21, 2006 5:16 am

heay

2006-09-21T04:23:48-04:00

it was fine but suddenly i see this Errer 2 don't know where shuold i FIND the prob.,.,.,.,.,

Errer
-------------------------------------------------------------------
Tcl error [moxquiz_purr]: can't read "botnick": no such variable
--------------------------------------------------------------------

## Version:
set version_moxquizz "0.8.1"

package require msgcat

namespace import -force msgcat::*

###########################################################################
##
## ATTENTION:
##
## Defaults for bot configuration. Don't edit here, edit the file
## moxquizz.rc instead!
##
###########################################################################

# system stuff
variable quizbasedir moxquizz
variable datadir $quizbasedir/quizdata
variable configfile $quizbasedir/moxquizz.rc
variable intldir $quizbasedir/intl

variable rankfile $datadir/rank.data
variable allstarsfile $datadir/rankallstars.data
variable statsfile $datadir/stats.data
variable userqfile $datadir/questions.user.new
variable commentsfile $datadir/comments.txt

variable quizhelp

# these will be searched in $intldir/$quizconf(language)
variable channeltipfile channeltips.txt
variable channelrulesfile channelrules.txt
variable pricesfile prices.txt
variable helpfile help.txt

what am i do ?

Statistics: Posted by Thanhas — Thu Sep 21, 2006 4:23 am

Thanks

2006-09-19T13:17:46-04:00

Thanks it works thanks alot
Regards

Statistics: Posted by Thanhas — Tue Sep 19, 2006 1:17 pm

moxquizz

2006-09-19T10:52:10-04:00

the problem is afaik mainly the unescaped newline. I bypassed by simply putting it into one line:

Code:

    if {$action == "ACTION" && $arg == "pats $botnick" && [mx_str_ieq $channel $quizconf(quizchannel)] && ([validuser $handle] || [info exists allstarsarray($nick)]) } {        mxirc_action $quizconf(quizchannel) [lindex $tlist [rand [llength $tlist]]]    }

PS: I sent in this fix more than a year ago to the creator... but either email failed or he nolonger responds to them .

Statistics: Posted by De Kus — Tue Sep 19, 2006 10:52 am

moxquizz

2006-09-19T08:26:02-04:00

Your missing the $ before arg:

Code:

if {$action == "ACTION" && $arg == "pats $botnick" && [mx_str_ieq $channel $quizconf(quizchannel)] && ([validuser $handle] || [info exists allstarsarray($nick)]) } {

Statistics: Posted by r0t3n — Tue Sep 19, 2006 8:26 am

moxquizz

2006-09-19T07:38:23-04:00

Code:

-----------------------------[b]# mini funstuffbind pub - !hi moxquiz_pub_hibind ctcp - action moxquiz_purr[/b]------------------------------# say Hi to "known" usersproc moxquiz_purr {nick host handle channel action arg} {    global quizconf allstarsarray    # [pending] translate this    set tlist [list "purrs." \                   "meows." \                   "happily hops around."]    if {$action == "ACTION" && arg == "pats $botnick" &&        [mx_str_ieq $channel $quizconf(quizchannel)] &&        ([validuser $handle] || [info exists allstarsarray($nick)]) } {        mxirc_action $quizconf(quizchannel) [lindex $tlist [rand [llength $tlist]]]    }}

Errer is on action when someone type /me anything the BOT in has DCC type

Tcl error [moxquiz_purr]: syntax error in expression "$action == "ACTION" && arg == "pats $botnick" &&

i hope someone will find the reason of Errer i try my best on it
regards

Statistics: Posted by Thanhas — Tue Sep 19, 2006 7:38 am