Program name: Snake Run
(v. 1.0)
|
|
CTF file name:
|
snakerun.ctf
|
Author:
|
Tom Lynn
|
Date:
|
1997-8
|
Models:
|
9750, 9850, 9940, 9950
|
Description:
A snake circles around the outside of the screen, while you're trapped in
the middle with only your courage, wits, strength, cunning, and 12 guided
missiles to protect you... :)
Unfortunately it's an invulnerable snake. Sure, you can blow holes in it,
but they grow back. Luckily for you, though, even this monster has an
Achilles heel. Except that snakes don't have heels, so it's its tail.
Keep blasting its tail off until you get to the head, and you might stand a
chance...
If you run out of missiles, it'll get you. So don't.
* How to play *
Use the arrow keys to fire and guide the missiles and aim for the tail.
The keys are a little insensitive, so hold them down rather than tap them.
The number in the centre of the screen is how many missiles you have left.
* What it looks like *
It looks something like this:
________________
| oOOOOOOOO|
| O|
| 6 * |
| |
|________________|
|
Program source code:
Program "~SNAKRUN"
ClrText
Locate 7,1,"SNAKE RUN"
Locate 6,7,"PRESS A KEY"
Do
LpWhile Not Getkey
Locate 6,7," " ;11 spaces
10->P
12->Z:'<-- MISSILES
21->A:1->B
18->C:7->D
0->H~I
11->E
4->F
Lbl 1
LocateE,F,"\*"
Getkey->G
G<>27 And G<>28 And G<>37 And G<>38=>Goto N
If Not H And Not I
Then Dsz Z:0
Not Z=>Goto L
IfEnd
G=27=>1->H
G=38=>(-)1->H
G=28=>(-)1->I
G=37=>1->I
Lbl N
If Not (H=0 And I=0
Then Locate E,F," "
If E+H>=1 And E+H<=21 And F+I>=1 And F+I<=7
Then Locate E+H,F+I,"\*"
Else 11->E:4->F
0->H~I
IfEnd
IfEnd
Z=9=>Locate 12,4," "
Locate 11,4,Z
E+H->E
F+I->F
E=C=>F=D=>Goto Z
'MOVESNK
Locate A,B,"O"
0->X~Y
A=1=>B<7=>Isz Y
B=7=>A<21=>Y=0=>Isz X
A=21=>B>1=>X=0=>Dsz Y
B=1=>A>1=>Y=0=>Dsz X
A+X->A
B+Y->B
Locate A,B,"\th"
Lbl X
Locate C,D," "
0->X~Y
C=1=>D<7=>Isz Y
D=7=>C<21=>Y=0=>Isz X
C=21=>D>1=>X=0=>Dsz Y
D=1=>C>1=>Y=0=>Dsz X
C+X->C
D+Y->D
Goto 1
Lbl Z
Dsz P
Goto X
Locate 8,4,"YOU WIN"
Stop
Lbl L
Locate 8,4,"YOU LOSE"
|
This page was created by Tom Lynn (tom-calcs@mythic-beasts.com).
This page last updated: Friday, 30 April, 1999
Written in notepad and compiled with
WTA,
for clean, consistent HTML.
Part of the Casio Graphical Calculator Encyclopaedia.
|