DEUULIGNE#01 POUR AMSTRAD.EU MARS 2022: THE ALIENS WAR

********************* **************** Le Deuuligne de RetroPoke #01 **************** *********************

J'ai proposais à amstrad.eu de publier un deuuligne tous les mois afin d'agrémenter son site. Bien sur, il a accepté, cela me permet aussi d'agrémenter mon blog puisque je le publierais aussi le mois suivant.

Voici le réglement si vous voulez vous aussi participer au deuuligne du mois ?

* Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE)
* Un seul deux lignes par disquette
* Un petit résumé et explicatif du programme dans un fichier ALIRE.BAS si nécessaire.
* Envoyez le tout à: concours(@)amstrad.eu avant le 20 du mois en cours pour l’édito du mois d’après.

amstrad.eu vous récompensera en affichant votre programme sur la page principale du site.

RetroPoke

THE ALIENS WAR

Résumé: - Ca y est, les aliens ont découvert une nouvelle planète à conquérir... La terre ! - Vous vous portez volontaire pour externuer les invahisseurs un par un et le monde entier ne compte plus que sur vous pour sauver l'humanité. - Utilisez les touche fléchées [GAUCHE] et [DROITE] pour vous déplacer et la [BARRE D'ESPACE] pour tirer.

Listing & Téléchargement

10 DEFINT a-z:MODE 0:x=10:WINDOW#2,4,17,2,24:WHILE x:z=1+z MOD 10:LOCATE#2,2+z MOD 2,1:PEN#2,2+Z:PRINT#2,CHR$(11) »* * * * * * « :b=0:WHILE b<99:x=MIN(15,MAX(4,x-INKEY(8)+INKEY(1))):PEN 1:LOCATE x,25:PRINT » ï « :l=24:WHILE INKEY(47)=0:b=b+20:WHILE l>1:PEN 4
40 t=TEST(x*32+12,407-l*16):LOCATE x+1,l:PRINT »! »CHR$(8);:SOUND 3,t*50+50-l,2:l=l*-(t<2)-1:s=s+t:PRINT » « :WEND:LOCATE 9,1:PRINT s:WEND:b=b+1:WEND:FOR a=4 TO 16:IF TEST(a*32+12,22)>0 THEN LOCATE 6,10:PRINT »GAME OVER »:WHILE INKEY(47):WEND:RUN ELSE NEXT:WEND

  TELECHARGEMENT