 Description | Marslander by Haegar of Synergy 2024
Commodore Basic 3.5 - Commodore C16/C116/plus4
13. BASIC 10Liner Contest, Category "PUR-80"
The Game
--------------------------------------------------------------------------------------------
Marslander is a classic landergame.
The world lives in peace and harmony and now wants to colonize Mars. You are the commander of
the first Mars mission and have to land the spaceship safely on the landing platform built by
robots.
You only have a limited amount of fuel. So that your spaceship doesn't break down, the speed
when it touches down must not be more than 1.99998.
You control the spaceship with the joystick on the right and left in joyport 1. To ignite
the braking rockets, press fire. Remember you can only do one thing, steering or brake!!!
Good luck comander
Start program
--------------
how to load marslander
Tape: type LOAD"MARSLANDER" and press Return
Disk: type Dload"MARSLANDER"and press Return
Emulator: Select File marslander.prg
and type RUN and press Return
Variables
--------------
X = X position Lander
Y = Y position Lander
S = Speed
F = Fuel
Z/P = Cache X/Y position
J = Joystick
R$ = marslander shape string
L$ = clear shape string
A$ = String for Keyboard query
Lines
-----------------------
0gR0,1:x=int(rnd(0)*60)+120:y=0:s=0:h=0:i=0:f=35:coL0,1:coL1,2,3:coL4,1:z=x:p=y
clear screen and sets all variables
1chA,7,9,"{green}mars-lander by {brown}haegar/syn":getkeya$:gR1,1:cI,11,11,6,,,,,120
Intro screen, waiting for a key, draw marslander
2pA,12,11:sSr$,8,6,14,13:sSl$,18,16,24,23:chA,0,0,"speed":chA,0,2,"fuel":vol6
Fill marslander, making shapes, write speed an fuel
3dR,0,199to30,199to50,180to70,199to250,199to270,180to290,199to320,199:coL1,4,5
draw landscape, change colour
4bO,155,197,165,205:fori=1to15:coL1,6,4:dR,int(rnd(0)*320),int(rnd(0)*175):next
draw landingplatform, change colour, draw random stars
5j=joy(1):ifj=7tHx=x-1:elseifj=3tHx=x+1:elseiff=0tH6:elseifj=128thens=s-.2:f=f-1
Joystick query
6gSl$,z,p:gSr$,x,y:z=x:p=y:char,1,3," ":chA,0,1,str$(s):chA,0,3,str$(f):s=s+.1
Delet old position an set new position of the marslander, show actuel speed an fuel status
7y=y+s:volj/16:sO3,j+50,10:ify<191goto5elsevol6
new height and speed, sound if fire pressed, are you on the ground, if not go to line 5
8ifx<155orx>159ors>2thencoL4,3,2:char,9,9,"crash":sO3,99,90:pO239,0:getkeya$:gO0
check landing on the platform and speed under 2, if not crash and waiting for a key and start game again
9coL4,4,2:char,12,9,"perfect lading":sO1,100,90:poke239,0:getkeya$:gO0
perfect landig, waiting for a key and start game again
|
|
