Canalblog
Editer l'article Suivre ce blog Administration + Créer mon blog
Publicité
Rétro Poke
5 février 2023

DEUULIGNE#10 POUR AMSTRAD.EU : OPERATION SUICIDE

*********************
****************


Le Deuuligne de

RetroPoke #10


****************
*********************
titre
Lorsque j'étais môme, je voulais être le héros des temps modernes. Ce que je ne savais pas, c'est que maintenant, je suis le héros de moi même et c'est déjà ça !
.

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
OPERATION SUICIDE (RETROPOKE)
Vous vous portez volontaire pour sauver les survivants du canyon intergalactique qui est le seul passage à sens unique pour rejoindre la planète Kepler.
Ce canyon est hélas entouré de fortes ondes solaires neutralisantes, et une tempête électro-cosmique a provoqué un dérèglement des moteurs des vaisseaux de transport, les projetants contre les parois solarisées.

Beaucoup y ont laissé leur vie, mais beaucoup aussi se retrouvent prisonniers dans cet interminable canyon intergalactique.

Votre mission est d'aller récupérer les survivants représentés par un point bleu sur la carte, tout en évitant les parois et les éclats de vaisseaux détruits qui eux, apparaitront en rouge.
Les commandes :
Touche [HAUT] pour reprendre de l'altitude et touche [ESPACE] pour lancer votre vaisseau.
La traversée de tous les canyons s'effectue de gauche à droite.

s1

s2alire

 

Vidéo :
Listing & Téléchargement
1 DEFINT a-y:MODE 0:FOR l=1 TO 2:PLOT 9,99*l,3:FOR c=1 TO 31:DRAW c*25,99*l+RND*80:NEXT c,l:FOR c=1 TO 22:PLOT 36+c*26,130+RND*90,2+RND:NEXT:x=0:y=192:PLOT x,y,14:PRINT" "d"KMs"SPC(6)CHR$(&F8)v:WHILE INKEY(47):WEND:WHILE x<644:z=1+INKEY(0):y=y-1+3*z:x=x+4
2 SOUND z,5,1:t=TEST(x,y)+TEST(x,y-2):DRAW x,y,1:WHILE t>2:SOUND 1,0,49,15,9,,31:WHILE z<50:PLOT -z+x+RND*z*2,-z+y+RND*z*2,15:z=z+0.4:WEND:TAG:MOVE 170,80:PRINT"GAME OVER";:WHILE INKEY(47):WEND:RUN:WEND:v=v-(t<3 AND t>0):SOUND t,9,9,,,,9:WEND:d=d+1:GOTO 1

Publicité
Publicité
Commentaires
Favoris

cheshirecats logo

amsnews logo

amsnews logo

amstradeu logo

cpcpower logo

crazi

acme logo

amstradfunlogo

amstradfunlogo

amstradMuseum

amstrad

 

 

 

me contacter

votre banniere ici

 


Publicité
Rétro Poke
Derniers commentaires
Archives
Visiteurs
Depuis la création 16 078
Publicité