A downloadable game

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

StatusReleased
Rating
Rated 4.0 out of 5 stars
(1 total ratings)
AuthorBASIC 10Liner
GenreAction
Tags10liner, basic, commodore, commodore-16, plus4

Download

Download
marslander.prg 649 bytes
Download
marslander instruction.txt 2.6 kB

Install instructions

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

Leave a comment

Log in with itch.io to leave a comment.