15 replies to this topic

[Hyuji]

I'm trying a paper scissors rock game on my calculator, just for fun, but I can't seem to get it to work properly. Whenever I try to execute it, I can get it to give me the numbers that the calculator randomly chooses, but I can't get it to say whether I win, lose, or get a tie.
This is my code:

Lbl 0
"Paper=1, Scissors=2, Rock=3"?->A
Fix 0
2Ran# +1->B
If A/B=1/2
Then "LOSE"
Else If A/B=1/3
Then "WIN"
Else If A/B=2
Then "WIN"
Else If A/B=2/3
Then "LOSE"
Else If A/B=3
Then "LOSE"
Else If A/B=3/2
Then "WIN"
Else If A=B
Then "TIE"⊿
Goto 0

Here I'm saying that paper is 1, scissors is 2 and rock is 3, and if you pick 1 and it randomly picks 2, then you lose because A/B=1/2, and you chose paper while it chose scissors, so its supposed to say LOSE. I read on another thread about someone who had a whole bunch of if statements, too, and someone solved the problem by using strings. I took what he did and tried to use strings here, but I don't really understand them that much and so I'm not sure how to apply it here.

[flyingfisch]

I think your problem is that the if statement should end with an IfEnd command.

So like this:

Lbl 0
"Paper=1, Scissors=2, Rock=3"?->A
Fix 0
2Ran# +1->B
If A/B=1/2
Then "LOSE"
Else If A/B=1/3
Then "WIN"
Else If A/B=2
Then "WIN"
Else If A/B=2/3
Then "LOSE"
Else If A/B=3
Then "LOSE"
Else If A/B=3/2
Then "WIN"
Else If A=B
Then "TIE"⊿
'My added line below (BTW, this is a comment in casio basic)
IfEnd
Goto 0

[Hyuji]

I knew I would've forgotten something, but when I tried it didn't change anything.

[naib864]

Try this:

Lbl 0
"Paper=1, Scissors=2, Rock=3"?->A
Fix 0
2Ran# +1->B
If A/B=1/2
Then "LOSE"
Else If A/B=1/3
Then "WIN"
Else If A/B=2
Then "WIN"
Else If A/B=2/3
Then "LOSE"
Else If A/B=3
Then "LOSE"
Else If A/B=3/2
Then "WIN"
Else If A=B
Then "TIE"
IfEnd
IfEnd
IfEnd
IfEnd
IfEnd
IfEnd
IfEnd
Goto 0

Every If-command needs an IfEnd.

[flyingfisch]

Every If-command needs an IfEnd.

Ah, yes, I forgot that casio-BASIC doesn't have an ElseIf command.

[MicroPro]

Ah, yes, I forgot that casio-BASIC doesn't have an ElseIf command.

How limiting... It's strange because CP does have it.

Switch seems a better alternative here.

Edited by MicroPro, 05 February 2013 - 04:56 PM.

[Casimo]

There is no switch on the fx9860

[MicroPro]

There is no switch on the fx9860

How more limiting... At least in this specific program look-up tables can be used. (luckily )

[flyingfisch]

just for the record, lua doesn't have a switch-case function either...

[MicroPro]

Because it doesn't require multiple ends. Some variations even add the elif keyword (instead of the lengthy elseif keyword) to make if-then-else ladders as short as switch statements.

[flyingfisch]

also, to optimize this program, the use of the => command may help.

usage:

statement => command if statement is true

so, this code

If A/B=1/2
Then "LOSE"

can be changed to

A/B=1/2 => "LOSE"

Hope that helps

[Hyuji]

Adding in the rest of the IfEnd's did manage to get the Goto 0 to work, but it still won't say whether I win, lose, or get a tie. I tried using the double arrow instead of if statements but it didn't work, just kept returning 0.

[flyingfisch]

Ran# produces a number from .0 to 1.0.

Maybe RanInt() is better?

[Hyuji]

Of course! The Fix 0 only displays it as an integer, but it's still technically a decimal. I should've thought of that. It finally works now, thank you!

[flyingfisch]

no problem!

[2MB26]

I'm trying a paper scissors rock game on my calculator, just for fun, but I can't seem to get it to work properly. Whenever I try to execute it, I can get it to give me the numbers that the calculator randomly chooses, but I can't get it to say whether I win, lose, or get a tie.
This is my code:
 

Lbl 0
"Paper=1, Scissors=2, Rock=3"?->A
Fix 0
2Ran# +1->B
If A/B=1/2
Then "LOSE"
Else If A/B=1/3
Then "WIN"
Else If A/B=2
Then "WIN"
Else If A/B=2/3
Then "LOSE"
Else If A/B=3
Then "LOSE"
Else If A/B=3/2
Then "WIN"
Else If A=B
Then "TIE"⊿
Goto 0

Here I'm saying that paper is 1, scissors is 2 and rock is 3, and if you pick 1 and it randomly picks 2, then you lose because A/B=1/2, and you chose paper while it chose scissors, so its supposed to say LOSE. I read on another thread about someone who had a whole bunch of if statements, too, and someone solved the problem by using strings. I took what he did and tried to use strings here, but I don't really understand them that much and so I'm not sure how to apply it here.

 

Hi, I used this code (plus all the fixes you got) and I've added a lot to it so now it offers single/multi player and asks if you want to play again amongst other things

I've attached the skeleton code if you anyone wants to use it

Any advice on what I can improve etc. would be welcome!

 

Lbl 0

"SINGLE PLAYER = 1"

"MULTIPLAYER = 2"

? -> Y:

If (Y≠1 And Y≠2)

Then "ERROR"

GoTo 0

IfENd

If(Y=1)

Then Lbl 1

"ROCK = 1"

"PAPER = 2"

"SCISSORS = 3"

? -> A:

If (A>3 Or A<1)

Then ""

"ERROR"

""

GoTo 1

IfEnd

If (A=1)

Then "ROCK"

IfEnd

If (A=2)

Then "PAPER"

IfEnd

If (A=3)

Then "SCISSORS"

IfEnd

"VS"

Int (Ran# x3) +1 -> B

If(B=1)

Then "ROCK"

IfEnd

If (B=2)

Then  "PAPER"

IfEnd

If (B=3)

Then "SCISSORS"

IfEnd

""⊿

IF (A÷B=1/2 Or A÷B=2/3 Or A÷B=3)

Then "LOSE":

IfEnd

If (A÷B=1/3 Or A÷B=2 Or A÷B=3/2)

Then "WIN":

IfEnd

If (A=B )

Then "TIE"

IfEnd

""

Lbl 2

"PLAY AGAIN?"

"Y=1 N=2”

? -> X:

If (X=1)

Then GoTo1

IfEnd

If (X=2)

Then Break

IfEnd

If (X≠ 1 And X ≠2)

Then "ERROR"

""

GoTo2

IfEnd

IfEnd

 

If (Y=2)

Then Lbl 3

"PLAYER ONE"

"ROCK = 1"

"PAPER = 2"

"SCISSORS = 3"

? -> A:

If (A>3 Or A<1)

Then ""

"ERROR"

""

GoTo3

IfEnd

"PRESS ENTER TO HIDE YOUR SELECTION"⊿

""

""

""

Lbl 4

"PLAYER TWO"

"ROCK = 1"

"PAPER = 2"

"SCISSORS = 3"

? -> B:

If (A>3 Or A<1)

Then ""

"ERROR"

""

GoTo4

IfEnd

"PRESS ENTER TO HIDE YOUR SELECTION"⊿

""

""

""

If (A=1)

Then "ROCK"

IfEnd

If (A=2)

Then "PAPER"

IfEnd

If (A=3)

Then "SCISSORS"

IfEnd

"VS"

If (B=1)

Then "ROCK"

IfEnd

If (B=2)

Then "PAPER"

IfEnd

If (B=3)

Then "SCISSORS"

IfEnd

""⊿

If (A÷B=1 /2 Or A÷B=2/3 Or A÷B=3)

Then "PLAYER TWO WINS!":

IfEnd

If (A÷B=1/3 Or A÷B=2 Or A÷B=3/2)

Then "PLAYER ONE WINS":

IfEnd

If (A=B )

Then "TIE"

IfEnd

""

Lbl 5

"PLAY AGAIN?"

"Y=1 N=2"

? -> X:

If (X=1)

Then GoTo 3

IfEnd

If (X=2)

Then Break

IfEnd

If (X≠1 And X≠2)

Then "ERROR"

""

GoTo5

IfEnd

IfEnd

Edited by 2MB26, 18 November 2016 - 11:05 AM.