moxquizz

[Thanhas]

Code: Select all

-----------------------------
[b]# mini funstuff
bind pub - !hi moxquiz_pub_hi
bind ctcp - action moxquiz_purr[/b]
------------------------------

# say Hi to "known" users
proc 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

[r0t3n]

Your missing the $ before arg:

Code: Select all

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

[De Kus]

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

Code: Select all

    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 .

[Thanhas]

Thanks it works thanks alot
Regards

[Thanhas]

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 ?

[r0t3n]

Add:

Code: Select all

global botnick

After the:

global quizconf allstarsarray

line

[Thanhas]

i don't know why its not pasting all ?

[Thanhas]

# 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]]]
}
}

[Alchera]

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!