wizard1970 Posted August 4, 2008 Report Share Posted August 4, 2008 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.* } Link to comment Share on other sites More sharing options...
Guest X-Fusion Posted August 5, 2008 Report Share Posted August 5, 2008 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now