Game

[wizard1970]

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.* 
}

[Guest X-Fusion]

I fixed your code to use

 tags. Please use them in the future, it's easier for everyone to read and decypher through. Also, consider keeping all your game related questions in the same topic. It'll be easier for people to search for if they have a problem.