_________________________________________________________________________
Title: RPG
Version: v1.0
Author: Peter Pizzo
Size:
Model: 9850+
Description:
A really cool RPG game for the CASIO...EASILY the best game so far.
you wander around a forest looking for enemies, if an asterix pops up
grabit and it will add more health. Has everything a real RPG offers,
On a calculator!!! During the forest scene press 5 to pause and view
stats, hit EXE to exit.
during the match:
7=slash attack
4=magic attack
1=run away
_________________________________________________________________________
Program :
Lbl Y
ClrText
For 1->A To 6
Locate 9,4,"------"
Locate 8,5,"--------"
Next
For 1->A To 11
Locate 9,4,"SQUARE"
Locate 8,5,"PRESENTS"
Next
ClrText
For 1->A To 8
Locate 9,4,"*****"
Locate 9,4,"~~~~~"
Next
For 1->A To 30
Locate 9,4,"RPG#1"
Next
For 1->A To 8
Locate 6,7,"**********" /11-asterixes
Locate 6,7,"~~~~~~~~~~" /11-Squigglies
Next
Locate 6,7,"PRESS [EXE]"_ /disp command
ClrText
1->K
525->P
25->M
1->L
Lbl R
Int 300Ran#+25->Q ***change to this
QxL->Q ***add this
1->Z
0->S
1->O
0->Y
1->B
1->G
7->H
For 1->A To 7
Locate 1,B,"^^^^^^^^^^^^^^^^^^^^" /21 carrots
B+1->B
Next
While Z=1
Int 40Ran#+1->E
E=40=>Goto 1
Int 75Ran#+1->T
T=35=>Int 21Ran#+1->S
T=35=>Int 7Ran#+1->Y
T=35=>Locate S,Y,"*"
Locate G,H,"O"
If G=S And H=Y And O=1
Then For 1->A To 6
Locate 8,1,"HP+75"
Locate 8,1,"HP+75"
Locate 8,2,"MP+5"
Next
M+5->M
P+75->P
Locate 8,1,"^^^^^"
Locate 8,2,"^^^^"
2->O
IfEnd
If Getkey=38 And G>1
Then Locate G,H,"^"
G-1->G
IfEnd
If Getkey=27 And G<20
Then Locate G,H,"^"
G+1->G
IfEnd
If Getkey=28 And H>1
Then Locate G,H,"^"
H-1->H ***There was an error here in beta...Fixed
IfEnd
If Getkey=37 And H<7 ***These lines were missing...add them
Then Locate G,H,"^"
H+1->H
IfEnd
If Getkey=63
Then Locate 8,1,"PAUSED"
L>1=>(Lx1325)+(Lx1005)->R ***add these two lines
L=1=>(Lx1005)->R
Int R->R ***add this line
While Getkey=/=31
Locate 8,1,"PAUSED"
Locate 3,3,"HP="
Locate 6,3,P
Locate 3,4,"LEVEL="
Locate 9,4,L
Locate 3,5,"NEXT LEV="
Locate 12,5,Int R ***add int to get rid of decimal
Locate 3,6,"EXP POINTS="
Locate 14,6,Int K ***add int
WhileEnd
Locate 8,1,"^^^^^^^" /7 carrots
Locate 2,3,"^^^^^^^^^^^^^" /13 carrots
Locate 2,4,"^^^^^^^^^^^^^^^^^" /17 carrots
Locate 2,5,"^^^^^^^^^^^^^^^^^" /17 carrots
Locate 2,6,"^^^^^^^^^^^^^^^^^" /17 carrots
IfEnd
WhileEnd
Lbl 1
For 1->A To 4
Locate G+1,H,">"
Locate G+1,H,">"
Locate G+1,H,"-"
Locate G+1,H,"-"
Locate G+1,H,"^" ***add this line
Next
Locate G+1,H,"^"
For 1->A To 3
Locate G,H,">"
Locate G,H,">"
Locate G,H,"-"
Locate G,H,"-"
Locate G,H,"^" ***add this line
Next
For 1->A To 10
Locate 5,4,"ENEMY COMES!"
Locate 5,4,"ENEMY COMES!"
Locate 5,4," " /12 spaces
Next
ClrText
Locate 1,5,"^------------------^" /19 -'s
Locate 1,1,"[H.P.= HIT=7" /7 spaces
Locate 1,2,"[M.P.= MGK=4"
Locate 1,3,"[LEVEL= RUN=1" ***fix this area
Locate 1,4,"[ENEMY="
Locate 21,1,"]"
Locate 21,2,"]"
Locate 21,3,"]"
Locate 21,4,"]"
Locate 2,7,"O"
Locate 20,7,"X"
For 1->A To 20
Locate 1,6," " /9 Spaces
Next
2->Z
While Z=2
Lbl G
Locate 3,6," " /17 spaces
P-(Lx5)->P
P=<0=>Goto D
P<100=>Locate 9,1," "
Locate 1,7,"xxx"
Locate 1,7,"xxx"
Locate 1,7," O "
Locate 7,1,Int P ***change abs to Int
Locate 7,2,M
Locate 8,3,L
Locate 8,4,Q
Int 35Ran#+1->I
If Getkey=74
Then Lx11->N
Locate 8,4," " /3 spaces
Q-N->Q
Q=<0=>Goto V
For 1->A To 3
Locate 19,7"xxx"
Locate 19,7"xxx"
Locate 19,7"---"
Locate 19,7"---"
Locate 19,7" X "
Next
For 1->A To 10
Locate 4,6,"YOU SLASHED HIM" ***from 5 to 4
Next
Locate 4,6," " /15 Spaces
IfEnd ***get rid of the 'next'
If Getkey=73 And M>9
Then Lx25->N
Q-N->Q
Locate 8,4," " /3 spaces
For 1->A To 3
Locate 5,7,"***************" /15 of them
Locate 5,7,"///////////////" /15 slashes
Next
Locate 5,7," " /15 spaces
Locate 20,7,"X"
For 1->A To 10
Locate 19,7,"o*o" /where o is the degree mark...OPTN,F6,F5,F1
/and *is the square OPTN,F6,F5,F4
Locate 19,7,"o*o"
Locate 19,7,"---"
Locate 19,7,"---"
next
For 1->A To 3
Locate 19,7,"***"
Locate 19,7,"+++"
Locate 19,7," X "
Next
For 1->A To 10
Locate 5,6,"CASTED A SPELL"
Next
M-5->M
Locate 5,6," " /14 spaces
Locate 7,2," " 2 spaces
Q=<0=>Goto V
IfEnd
If Getkey=72
Then Int 2Ran#+1->Y
Y=1->Locate 5,6,"COULDN'T RUN"
Y=1->For 1->A To 150
Y=1=>Next
Y=1=>Goto G
Y=2=>Locate 3,6,"YOU'VE RETREATED"
For 1->X To 150
Next
Y=2=>Goto R
IfEnd
WhileEnd
Lbl V
Locate 1,1,"^-----------------^ /19 -'s
Locate 1,7,"^-----------------^ /19 -'s
2->B
For 1->A To 5
Locate 1,B,"I"
B+1->B
Next
2->B
For 1->A To 5
Locate 21,B,"I"
B+1->B
Next
Locate 6,2,"VICTORIOUS"
Locate 3,4,"EXP POINTS="
Locate 3,5,"LEVEL="
Locate 9,5,L
PxL->U
Locate 14,4,U
For 1->A To 75
Locate 2,6," " /5 spaces
Next
Goto E
Lbl E
L>1=>(Lx1325)+(Lx1005)->R ***add these lines
L=1=>Lx1005->R
U+K->K
K>R=>L+1->L
K>R=>Locate 6,6,"LEVEL UP"
K>R=>(525+(Lx45))->P
K>R=>(Lx5)->M
If K>R
Then Locate 6,6,"LEVEL UP"
For 1->A To 6
Locate 6,6,"LEVEL UP"
Next
Locate 6,6," " /8 spaces
IfEnd
Goto R
Lbl D
For 1->A To 8
Locate 1,6,"xxxxxxxxxxxxxxxxxxx" /21 x's
Locate 1,7,"xxxxxxxxxxxxxxxxxxx" /21 x's
Locate 1,6,"-------------------" /21 -'s
Locate 1,7,"-------------------" /21 -'s
Next
For 1->A To 25
Locate 2,6,"YOU'VE BEEN KILLED"
Next
Locate 2,6,"-----------------" /18 -'s
For 1->A To 17
Locate 7,6,"GAME OVER!"
Locate 7,6,"GAME OVER!"
Locate 7,6," " /10 spaces
Next
Goto Y
_________________________________________________________________________