Marslander (Commodore Plus/4) by Haegar of Synergy 2024

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

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