*********************
THE ALIENS WAR
*********************
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
Listing :
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
Téléchargement : Deuligne RetroPoke 01 THE ALIENS WAR
J'ai beaucoup aimé Macadam Bumper, même si, effectivement, les trajectoires de balles étaient un peu étranges parfois. Le fait de…
Merci noël et bravo pout tout ce que tu fait !
Tchin Tchin les crocos et les crocottes! Que cette année vous apporte la tendresse, la santé et tout le bonheur…
Merci, ça a été un gros travail de recherche et de mise en page, mais ça prouve bien qu'il y…
Merci pour ce résumé qui nous rappelle que bien des choses bougent et évoluent sur la scène Amstrad CPC ...…