i try to make this game like this, but obviously doesn't work
someone could help and try to find where the error is?
thank you
menu channel {
Jo-Ken-Po Game - $iif($timer(jkp0),On,Off): $iif($timer(jkp0),.timerjkp0 off,.timerjkp0 0 850 .signal JoKenPo)
}
On *:signal:JoKenPo: {
if ($timer(jkp7)) return
unset %jkp.*
var %mao = $rand(1,99)
var %s = $rand(1,100)
if (%mao > 0 && %mao <= 70) { set jkpbet $rand(50,1000) }
else { set jkpbet $rand(50,1000) }
set jkptotal 0
if (%mao > 0 && %mao <= 33) { set jkp.win rock | set jkp.lose paper | set myplay scissors }
elseif (%mao > 33 && %mao <= 66) { set jkp.win paper | set jkp.lose scissors | set myplay rock }
else { set jkp.win scissors | set jkp.lose rock | set myplay paper }
.enable #jkpinput
.timerjkp1 1 1 mstat *s1 
 Jo-Ken-Po Game $&

 choose between !paper !rock or !scissors
.timerjkp2 1 3 mstat *s1 
 Win or lose points $&

◠Use !paper !rock or !scissors
.timerjkp3 1 13 mstat *s1 you have 20 seconds
.timerjkp4 1 23 mstat *s1 you have 10 seconds
.timerjkp5 1 28 mstat *s1 you have 5 seconds
.timerjkp7 1 33 jkpstop
}
#jkpinput off
on *:text: *:#:{
if (rock isin $1 || scissors isin $1 || paper isin $1) {
if ($2) {
if ($2 isnum) {
if ($2 > 0 && $2 <= $thget(jkpbet)) {
if ($2 <= $stx_points($nick)) {
set jkptotal $calc($get(jkptotal) + 1)
set JTemp.jkp. $+ $get(jkptotal) $nick
if ($1 isin $get(jkp.win)) {
set2 jkp win
set2 jbet $2
}
elseif ($1 isin $get(jkp.lose)) {
set2 jkp lose
set2 jbet $calc((-1) * $2)
}
else {
set2 jkp tie
set2 jbet 0
}
mstat *s1 $nick - chose $1 and bet $2 points!
}
else { .mtime $nick , sorry, but can not bet more than you have! }
}
else { .mtime $nick you can bet between 1 and $thget(jkpbet) $+ ! }
}
else { .mtime $nick Hey, $nick , you already bet }
}
#jkpinput end
alias jkpstop {
.disable #jkpinput
mstat *s1 time to bet is finish, I choose $get(myplay) 
 nice job to who won! - nice try, its a tie! - better next time for those who lost
%ij = 1
.timerst_next 1 $sts(delay_wrong) st question
set jtemp.cng $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1))
setvar $get($eval(JTemp.jkp. $+ %ij,1)) Score $calc($realvar($get($eval(JTemp.jkp. $+ %ij,1)), Score) + $get(jtemp.cng))
set $eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1) $calc($get($eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) + $get(temp.cng))
if ($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) == 0) {
.mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) its a tie!;)
}
else {
.mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) > 0,Win $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)), loses $calc($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) * -1)) ponto $+ $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) != 1,s) $+ ! Points: $stx_points($nick)($get($eval(JTemp.jkp. $+ %ij,1)))
}
inc %ij
}
}
unset %jkp.*
}