Sorry , error during post , here is the full source code.
That use 19 line of code :
rem **********
rem * lander *
rem **********
Rem
rem Based on the original game from Laser200
Rem code-source book made by Sybex
Rem 19 source code lines !!!!
Rem
Rem define all resolutions settings
set display mode 640,480,16 : sync rate 60 : sync on : hide mouse
Rem Load graphics and setup background
load image "images\ship.jpg",1 : load image "images\lander.jpg",2 : load image "images\ship_crash.jpg",3 : paste image 2,0,0
Rem Define default values
SCORE=0 : playerxcase=rnd(40) : playerycase=2 : set sprite 1,1,1
Rem beginning of the game loop , Now we look if player go left or right . . .
Repeat : playerycase=playerycase+1 : playerxcase=playerxcase+movex : if playerxcase<0 then playerxcase=0
if playerxcase>38 then playerxcase=38
movex=0 : playerxpos=playerxcase*16 : playerypos=playerycase*16 : sprite 1,playerxpos,playerypos,1
Rem If player is on a landing place . . .
if playerycase=27 then if playerxcase=2 or playerxcase=13 or playerxcase=25 or playerxcase=36 then gosub _gagne
Rem If the player landed on bad area . . .
if playerycase=28 then PERDU=1
Rem Display the current score :
ink rgb(0,0,0),rgb(0,0,0) : box 0,0,320,16 : ink rgb(255,255,255),rgb(0,0,0) : set cursor 0,0 : print "SCORE : ";score
Rem Check keyboards for player moves. . .
VITESSE_DE_JEU=30-(score/50) : if VITESSE_DE_JEU<2 then VITESSE_DE_JEU=2
for boucle=1 to VITESSE_DE_JEU : movexinit=rightkey()-leftkey() : if movexinit<>0 then movex=movexinit
if downkey()=1 then if boucle<(VITESSE_DE_JEU-4) then boucle=VITESSE_DE_JEU-4
sync : next boucle
Rem Game loop end here . . .
until PERDU=1 or spacekey()=1
Rem If player lost , then display
if perdu=1 then print "!!!!!!!! GAME-OVER !!!!!!!!!" : print " PRESS A KEY TO QUIT " : sprite 1,playerxpos,playerypos,3 : wait key
Rem Delete all loaded graphics and Quit . . .
for boucle=1 to 3 : if image exist(boucle) then delete image boucle
next boucle : end
Rem IF PLAYER WIN , NEXT GAME
_gagne:
score=score+10 : playerxcase=rnd(40) : playerycase=2 : return
Here is the link for medias :
http://cordierfr.free.fr/bin/laser200-15-lander2D.zip
