Jump to content



Photo
* * - - - 1 votes

Whack-A-Mole (Fx-5800P)

fx-5800P

  • Please log in to reply
4 replies to this topic

#1 Krtyski

Krtyski

    Casio Addict

  • Members
  • PipPipPip
  • 64 posts
  • Gender:Male
  • Location:Tokyo, Japan
  • Interests:programming, smooth Jazz and 4-wheel driving.

  • Calculators:
    FX-502P, FX-602P, fx-603P, fx-4500PA, 2x fx-5800P, fx-9860GII-2(SH4A) and fx-cg20.

Posted 28 December 2013 - 09:46 PM

Whack-A-Mole is very traditional action game. fx-5800P is much slower with very limited Casio Basic than fx-9860G II and fx-cf10. So I wanted to know if the action game run on slow fx-5800P by means of CASIO Basic.

The main routine is "WHACK-A-MOLE" and it calls "WAM".

Posted Image
Game title and menu, you can change game settings.
EXE to move to game main.

Posted Image
0 to start the game.

Posted Image
Mole (letter O) appears, and press 1 to 9 key to hit the mole. If you are slow, you will lose LIFE. If you are very slow, you will lose LIFE and PRIZE.

Posted Image
in a mean while (when PRIZE is getting to more than 200 as default), a fake mole (0, zero) appears. If you hit the fake you will lose LIFE.

Posted Image
Sometime fake mole and real mole comes at the same time. Unless you hit only the real mole, you will lose LIFE.

Posted Image
When LIFE is 0 (zero), game is over.

Probably the speed of the mole action is fast enough.

Main Routine "WACK-A-MOLE"
7->M:17->B:25->E
20->F:25->S:200->V

Lbl 0
Cls
" WHACK-A-MOLE"
Locate 5,2,"<0>:SETTINGS"
Locate 6,3,"<EXE>:START"
Locate 8,4,"<AC>:QUIT"

Do
Getkey->K
If K=25:Then
Break:IfEnd
LpWhile K≠47

If K=25:Then Cls
"LIFE"?M
"BURST LIMIT"?B
"TIME-OUT"?E
"FUND"?F
"SHAKE LOSS"?S
"INVOKE FAKE"?V
Goto 0:IfEnd

Prog "WAM"
Goto 0


Game main "WAM"
Lbl 2
M->L:0->P:0->Q
Cls
10->DimZ
35->Z[1]:36->Z[2]
37->Z[3]:21->Z[4]
22->Z[5]:23->Z[6]
31->Z[7]:32->Z[8]
33->Z[9]

For 1->I To 3
Locate 1,I,"[ ][ ][ ]"
Next
Locate 11,2,"PRIZE"
Locate 12,3,P
Locate 1,4,"LIFE:"
Locate 6,4,L
Locate 11,4,"GO:<0>"
While Getkey≠25
WhileEnd
Locate 11,4," "

Lbl 0

RanInt#(1,9)->T
RanInt#(1,3)->X
RanInt#(1,3)->Y
RanInt#(0,3)->Z
RanInt#(1,3)->W
9+X-3Y->N
If P≥V:Then
Z=0=>2->Q
Z=1=>1->Q
Z≥2=>0->Q
Else 0->Q:IfEnd

Lbl 1
Dsz T
Goto 1

0->C
If Q=2:Then
Locate 3X-1,Y,"0"
Else
Q=1=>Locate 3W-1,X,"0"
Locate 3X-1,Y,"O"
IdEnd

Do
Isz C
If C>E:Then
Break:IfEnd
Getkey->K
LpWhile K=0

Q=1=>Locate 3W-1,X," "
Locate 3X-1,Y," "

If Q≤1:Then
If C≤B And K=Z[N]
Then P+F-C->P
Else L-1->L
If C>E:Then
P-S->P:IfEnd
IfEnd
Else
If C≤E:Then
L-1->L:IfEnd
IfEnd

Locate 12,3," "
Locate 12,3,P
Locate 6,4,L

L=>Goto 0

0->DimZ
For 1->I To 3
For 1->J To 3
Locate 3,J-1,I,"0"
Next:Next
Locate 1,2,"GAME OVER"

Locate 10,4,"<EXE> "◣
Cls
Locate 1,2,"GAME OVER"
Locate 2,3,"<0> GO BACK"
Locate 1,4,"<RCL>:TRY AGAIN"
Do
Getkey->K
If K=25 Or K=41
Then Break
IfEnd
LpWhile 1
If K=41:Then
Goto 2:IfEnd
If K=25:Then
Return:IfEnd

Edited by Krtyski, 01 January 2014 - 03:03 PM.


#2 flyingfisch

flyingfisch

    Casio Maniac

  • Deputy
  • PipPipPipPipPipPipPipPip
  • 1891 posts
  • Gender:Male
  • Location:OH,USA
  • Interests:Aviation, Skiing, Programming, Mountain Biking.

  • Calculators:
    fx-9860GII
    fx-CG10 PRIZM

Posted 29 December 2013 - 12:11 AM

Wow, this really looks nice, keep up the good work :)

#3 Krtyski

Krtyski

    Casio Addict

  • Members
  • PipPipPip
  • 64 posts
  • Gender:Male
  • Location:Tokyo, Japan
  • Interests:programming, smooth Jazz and 4-wheel driving.

  • Calculators:
    FX-502P, FX-602P, fx-603P, fx-4500PA, 2x fx-5800P, fx-9860GII-2(SH4A) and fx-cg20.

Posted 29 December 2013 - 08:42 PM

Thank you flyingfisch

The game scenario and settings are as follows;


1. Your are a Mole Buster.

2. You get 7 LIFEs when you start the game (this can be changed at settings).

3. You get FUND each time you engage a mole, the default FUND is 20 .

4. You spend cost to kill each mole, the longer you kill the more cost you spend. The cost is increasing after the mole appears until the mole is killed.

5. You gain PRIZE = Fund - Cost

6. You have to kill the mole within LIMIT which is Cost=17 as default. The LIMIT (BURST LIMIT) can be changed. Unless you kill the mole within the LIMIT, you lose one LIFE. The LIMIT can be changed.

7. Mole shakes when you spend Cost=25 (Time-out) as default, then you lose one LIFE and 25 PRIZEs.

8. When your PRIZE gets 200 (default) at first time, fake mode is invoked. The default can be changed.

9. There are 2 fake modes; one fake mole appears and one fake and one real mole appear at the same time.

10. When you kill the fake mole, you lose one LIFE. You have to leave the fake mole goes back.

11. When your LIFE gets 0 (zero), the game is over.


The Cost is running by a loop timer (Do loop) and this timer controls the game, very simple.

Edited by Krtyski, 07 January 2014 - 05:33 AM.


#4 Tritonio

Tritonio

    Newbie

  • Members
  • Pip
  • 15 posts
  • Gender:Male

  • Calculators:
    FX-5800P, FX-991ES+

Posted 12 November 2014 - 02:49 AM

This looks so nice... Well done!



#5 Krtyski

Krtyski

    Casio Addict

  • Members
  • PipPipPip
  • 64 posts
  • Gender:Male
  • Location:Tokyo, Japan
  • Interests:programming, smooth Jazz and 4-wheel driving.

  • Calculators:
    FX-502P, FX-602P, fx-603P, fx-4500PA, 2x fx-5800P, fx-9860GII-2(SH4A) and fx-cg20.

Posted 15 November 2014 - 06:18 PM

Thanks, did you enjoy it.

I just wanted to rate performance of fx-5800P, and realized Casio Basic is so nice! 







Also tagged with one or more of these keywords: fx-5800P

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users