*************************************
Le Deuuligne de
RetroPoke #01
*************************************
Chaque mois je vous proposerais un nouveau programme tenant sur 2 lignes BASIC maximum.
Le règlement est simple.
– 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.
En espérant que vous apporterez de l’eau au moulin pour participer à l’édition de l’édito du mois.
RetroPoke
THE ALIENS WAR
Listing et 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
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
ouah, bonne nouvelle ! Félicitations pour ce deux-lignes. Franchement, je suis époustouflé de voir ce qu’il est possible de faire avec si peu. Bravo, ça me donne envie d’en faire un!
Cool, le mois prochain il y en aura au moins deux alors !
Et hop, ma modeste contribution pour le mois de mars a été envoyée. Ce n’est pas le jeu du siècle, mais ça a le mérite de faire travailler les méninges 😉