i have this game, but the messages don't appear, I think it's because of this
; $1 = chan or this ;$getboxescore(#chan,box)
there is a possibility of change for msg #?
thanks
alias -l getboxes {
; $1 = chan
if ( !$1 ) return
var %f = $boxes, %a = 6, %b = 5, %c = 1, %d, %h, %j = 0
while %a {
%d = $gettok(%f,$r(1,$numtok(%f,44)),44)
hadd -m $tbl $+(boxes:,$1,:1) $hget($tbl,$+(boxes:,$1,:1)) $+($iif(%j < 3,good,bad),:,%d,:,$+($iif($r(1,2) == 2,-),$r($score.min,$score.max)))
hadd $tbl $+(boxes:,$1,:2) $hget($tbl,$+(boxes:,$1,:2)) %d
hadd $tbl $+(boxes:,$1,:3) $hget($tbl,$+(boxes:,$1,:3)) %d
%f = $remtok(%f,%d,1,44)
inc %j
dec %a
}
return $sorttok($hget($tbl,$+(boxes:,$1,:2)),32)
}
alias -l startboxes {
; $1 = chan, $2 = roundlimit
var %a = $1
if ( $2 ) hadd -m $tbl $+(rounds:,$1,:limit) $2
if ( $hget($tbl,$+(rounds:,$1,:limit)) ) {
hinc $tbl $+(rounds:,$1,:current) 1
msg $1 ** ROUND $hget($tbl,$+(rounds:,$1,:current)) of $hget($tbl,$+(rounds:,$1,:limit)) **
}
msg $1 Each box is worth a certain score and can be chosen only once. You must enter one of the following box available. Be careful, as there are empty boxes
tokenize 32 $getboxes($1)
msg %a The boxes available are: $1 $2 $3 $4 $5 $6
$+(.timerboxes.,%a,.END) 1 $time.limit endboxes %a 1
}
alias -l endboxes {
if ( $timer($+(boxes.,$1,.END)) ) $+(.timerboxes.,$1,.END) off
if ( !$2 ) $+(.timerboxes.,$1,.*) off
var %t = $1, %e = $2
if ( %e ) {
msg %t Box A: ( $+ $getscoreorempty(%t,A) $+ ) Box D: ( $+ $getscoreorempty(%t,D) $+ )
msg %t Box B: ( $+ $getscoreorempty(%t,B) $+ ) Box E: ( $+ $getscoreorempty(%t,E) $+ )
msg %t Box C: ( $+ $getscoreorempty(%t,C) $+ ) Box F: ( $+ $getscoreorempty(%t,F) $+ )
}
scorenickboxes %t %e
}
alias -l getboxescore {
var %a = $hfind($tbl,$+(*:,$2,:*),0,w).data, %b
while %a {
if ( $1 == $gettok($hfind($tbl,$+(*:,$2,:*),%a,w).data,2,58) ) return $gettok($wildtok($hget($tbl,$+(boxes:,$v2,:1)),$+(*:,$2,:*),1,32),3,58)
dec %a
}
}
;$getboxescore(#chan,box)
alias -l getscoreorempty return $iif($goodorbadbox($1,$2) == bad,Empty,$getboxescore($1,$2))
;$getscoreorempty(#chan,box)
alias -l getnickscore return $iif($hget($tbl,scores: $+ $iif($2,$+($1,:,$2),$1)),$v1,0)
;$getnickscore(nick,[#chan])
Message