Re: LE 10LIGNOPAT 2021

par **Copper** Jeu 6 Jan - 15:48

Vetea a écrit:Ahah ! Ces duels et passe d'armes chevaleresques sont de toute beauté !!
Sinon depuis hier, je suis en pleine optimisation de Virus !
On se prend vite au jeu de ces contraintes ! Ca me rappelle celles de mes projets Rétros. Bonne gymnastique cérébrale !!
J'espère vous presenter la nouvelle version très prochainement !
Pour info, j'ai pas touché au Basic Locomotive depuis 1990 ! Il a fallut donc de replonger dans les docs de CPCRulez ...

Ah d'accord moi même avec les cours du professeur Ali Gator j'y arrive vraiment pas Razz

par **Copper** Jeu 6 Jan - 15:55

freed a écrit:
rocky007 a écrit:haha heureusement que ce n'est pas ma première conversion G&W sur TI99... j'avais déjà eu l'idée il y a.. 11 ans
mais j'avoue, ton post m'a influencé... si je gagne l'Amiga 600, je te le donne.

Non on partage: je prends que le pavé numérique (seul truc utile en fait sur le 600) et je te laisse le reste

Après quand on voit que même la boite vide s'arrache à prix d'or Razz

https://www.gamopat-forum.com/t111157-vds-coque-amiga-a600-furia-a600-chipram-1mb#3473070

par freed Jeu 6 Jan - 16:49

Copper a écrit:
freed a écrit:
rocky007 a écrit:haha heureusement que ce n'est pas ma première conversion G&W sur TI99... j'avais déjà eu l'idée il y a.. 11 ans
mais j'avoue, ton post m'a influencé... si je gagne l'Amiga 600, je te le donne.

Non on partage: je prends que le pavé numérique (seul truc utile en fait sur le 600) et je te laisse le reste

Après quand on voit que même la boite vide s'arrache à prix d'or

https://www.gamopat-forum.com/t111157-vds-coque-amiga-a600-furia-a600-chipram-1mb#3473070

Ca te donne une idée de la valeur du contenu effectivement: ça ne vaut rien Mr. Green

par **Copper** Jeu 6 Jan - 16:56

Ah donc tu penses que je peux en trouver un complet pour 60 € ??? Razz

par Invité Jeu 6 Jan - 17:26

Ahah !
Virus a tapé dans l'oeil d'un "officiel" 10L !! Mr. Green

https://mobile.twitter.com/Basic10L

par freed Jeu 6 Jan - 17:46

Copper a écrit:Ah donc tu penses que je peux en trouver un complet pour 60 € ???

Pour moins que ça! C'est que le boulot de virer tout le bazar à l'intérieur, bah ça se facture aussi. Je dirais qu'il y environ 1h de MOE, donc 50€ quoi... Du coup ça doit se trouver autour de 10 balles (selon la présence d'un pavé numérique ou non) Mr. Green

par freed Jeu 6 Jan - 17:49

Vetea a écrit:Ahah !
Virus a tapé dans l'oeil d'un "officiel" 10L !!
https://mobile.twitter.com/Basic10L

Tu fais les 2 concours en même temps maintenant? T'as pas lu les petites lignes: tout projet posté sur Gamopat entraîne automatiquement le transfert de l'ensemble de tes droits sur 4 générations (oui il y a une blague au 25è degré ici) au fonds de financement du site Mr. Green

par **youki** Jeu 6 Jan - 17:53

rocky007 a écrit:
Copper a écrit:Ben oui pourquoi ?

parce que n'importe qui sachant coder peut faire du Basic. Que tu sois codeur Python, C++, PHP, ASM, tu sais forcément faire du BASIC.

Le pb , c'est que pour programmer , il faut un minimum de logique.... ducoup les Amigaistes ,ils sont drolement handicapé de ce côté là...

Rien que le fait d'acheter un Amiga n'est pas logique à la base... ducoup...

par **Copper** Jeu 6 Jan - 18:11

Ah parce que pour faire de l'asm Z80 faut pas de logique ? Razz

par rocky007 Jeu 6 Jan - 20:06

Vetea a écrit:Ahah !
Virus a tapé dans l'oeil d'un "officiel" 10L !!
https://mobile.twitter.com/Basic10L

un version boîte K7 bientôt prévue ? MDR

par rocky007 Jeu 6 Jan - 20:14

Copper a écrit:Ah parce que pour faire de l'asm Z80 faut pas de logique ?

allez, je vais te donner un coup de pouce.. :

10 INPUT "INSEREZ LA DISQUETTE A FORMATER ET APPUYEZ SUR ENTER",a$
20 FOR S=1 TO 79
30 FOR F=1 TO 2
40 FORMAT DF0,S,F
50 PRINT "FORMATAGE SECTEUR ";S;" FACE ";F
60 NEXT F
70 NEXT S
80 PRINT "BRAVO ! FORMATAGE TERMINE"
90 GOTO 10

par **Matari** Jeu 6 Jan - 20:16

Vetea a écrit:Ahah !
Virus a tapé dans l'oeil d'un "officiel" 10L !!
https://mobile.twitter.com/Basic10L

On a du bol, on est vacciné ici ! Mr. Green

par **youki** Jeu 6 Jan - 20:58

Copper a écrit:Ah parce que pour faire de l'asm Z80 faut pas de logique ?

Ben non... c'est du Z80. .. ce qui est logique c'est le 6502.

par **youki** Jeu 6 Jan - 21:10

Allez un special Rocky... fallait pas me chauffer..

the ROCKY HORROR SHOW

Le scenario :
C'est le soir de Noel , Rocky est furax youki l'a encore ridiculisé au 10ligneopat. Frustré, il s'enferme seule dans son studio de developpement...ses chiots..la ou il fait ses plus belle m*rde... il s'assoie sur son TI99 special Development.. qui devient pour le coup une machine 17bits!... prends son bouquin "le BASIC pour les nuls"...et se concentre pour pondre son plus bel Etron!... Mais Youki passe par là armé de son lance roquette tres enervé....et ce qui devait arriver arriva... youki eclate encore une fois Rocky!

Comment jouer :
Appuyer sur Espace pour lancer une Rockette! ... le jeu n'a pas de fin, c'est trop jouissif d'eclater Rocky!

Ce jeu est Nul , C'est fait expres! ... c'est special Rocky!... rambo

La video : VIDEO

le PRG : le PRG

C'est pas la peine de le referencer pour le concours celui là... c'etait juste un defouloire coquin

par rocky007 Jeu 6 Jan - 21:31

je ressens toute ta détresse et ton désespoir...tu es à bout de souffle..reposes toi un peu, tu as encore le temps d'ici le 31 janvier.
j'espère en tous cas que ta femme ne passe pas dans ton bureau et voit ce que tu fous de tes soirées en voyant ça MDR

le pire est qu'en 3 lignes de code pour un jeu minimaliste, tu as réussi à le truffer de bugs MDR

par Invité Jeu 6 Jan - 21:55

Pas besoin de d7 .. un Fan a carrément réalisé la compil !! Mr. Green

https://mobile.twitter.com/cgdaft61/status/1478402594615738376

par **Copper** Jeu 6 Jan - 23:04

rocky007 a écrit:
allez, je vais te donner un coup de pouce.. :

10 INPUT "INSEREZ LA DISQUETTE A FORMATER ET APPUYEZ SUR ENTER",a$
20 FOR S=1 TO 79
30 FOR F=1 TO 2
40 FORMAT DF0,S,F
50 PRINT "FORMATAGE SECTEUR ";S;" FACE ";F
60 NEXT F
70 NEXT S
80 PRINT "BRAVO ! FORMATAGE TERMINE"
90 GOTO 10

T'es trop mauvais il manque une piste (de plus c'est 80 pistes de 11 secteurs par face et non pas 79 secteurs)

Allez je te donne la version Atari ST simple face :

10 INPUT "INSEREZ LA DISQUETTE SIMPLE FACE A FORMATER ET APPUYEZ SUR ENTER",a$
20 FOR P=0 TO 79
30 FORMAT A,P
50 PRINT "FORMATAGE PISTE ";P
60 NEXT P
70 PRINT "BRAVO ! FORMATAGE SIMPLE FACE TERMINE"
80 GOTO 10

par wulf Jeu 6 Jan - 23:20

Euuuuh , vous placez la barre un peu beaucoup très haut quand même (pour du 10 lignes)

Mon projet "ZX Procrastination" est quasiment bouclé.... enfin dans ma tête
Pour de vrai, je commence demain.

Ou plutôt ce week end s'il neige. Sinon, j'irai faire du vélo sans les mains.
On a jusqu'au 32 janvier d'ttes façons, hein ?

par rocky007 Jeu 6 Jan - 23:59

Copper a écrit:
10 INPUT "INSEREZ LA DISQUETTE SIMPLE FACE A FORMATER ET APPUYEZ SUR ENTER",a$
20 FOR P=0 TO 79
30 FORMAT A,P
50 PRINT "FORMATAGE PISTE ";P
60 NEXT P
70 PRINT "BRAVO ! FORMATAGE SIMPLE FACE TERMINE"
80 GOTO 10

c'est ton entrée officielle dans le concours ? MDR

par rocky007 Ven 7 Jan - 0:04

Bon...il n'y a plus aucune pitié apparemment, on tombe dans le gore... on va aussi se défouler sur TI99

Nom du jeu : Run Youki ! Run ! TI99

Selon la chanson Richard Gotainer, votre Youki a encore fait caca partout dans la maison. C'est la fois de trop. Balancez son jouet dans le jardin le plus loin possible pour enfin avoir la paix !

Comment jouer ? faites monter votre barre de puissance en utilisant Gauche / Droite de votre joystick

Code:: 10 CALL CHAR(112,"BBFFFFEDFFFB7FDF",120,"FCFEFFFEFEFEFCFE"):: CALL HCHAR(13,1,112,352):: CALL VCHAR(13,25,32,180):: CALL VCHAR(13,25,120,11) 20 CALL CHAR(128,"00020E473F784CC4",129,"0004024F3F784830",130,"120C0E4E38784890",65,"000042E77EE74200",66,"0060F66F06307830",67,RPT$("7E",8))::B=8 30 CALL COLOR(11,4,9,12,11,8)::CALL SPRITE(#1,65,1,90,1,#2,128,2,90,1)::I=-5::T=.1::F=1 31 DISPLAY AT(1,1) : RPT$("C",INT(F))::CALL KEY(0 ,K,S):: N=N+1::IF N=50 THEN S=MAX(4,F/2)::GOTO 50 ELSE IF K=B THEN B=8-(B=8)::F=F-(F<26):: GOTO 31 ELSE F=F+(F>0)/2 :: GOTO 31 50 CALL MOTION(#1,I,S,#2,0,S-1):: CALL PATTERN(#2,128+Z) ::I=I+T:: T=T*1.1::Z=1-Z:: CALL POSITION(#1,X,Y):: IF X>96 AND Y<192 THEN CALL DELSPRITE(ALL):: N=0::GOTO 30 70 CALL COLOR(#1,16)::CALL POSITION(#2,X,Y):: IF Y>192 THEN CALL MOTION(#2,I*3,S-1)::CALL PATTERN(#2,130)::GOTO 110 ELSE 50 110 CALL POSITION(#2,X,Y):: IF X>192 THEN CALL DELSPRITE(ALL):: CALL SOUND(100,-7,0):: DISPLAY AT(10,10):" YOU WIN ! " ELSE 110 121 CALL SPRITE(#1,66,7,184,Y,-3,-3,#2,66,10,1,Y,-2,-2,#3,66,7,184,Y,-1,1,#4,66,10,184,Y,-3,3) 130 CALL SPRITE(#5,66,7,184,Y,-3,-3,#6,66,10,184,Y,-2,-1,#7,66,7,184,Y,-1,0,#8,66,10,184,Y,-3,2) 140 FOR P=1 TO 150::NEXT P::CALL DELSPRITE(ALL):: GOTO 140

par **Copper** Ven 7 Jan - 0:14

rocky007 a écrit:c'est ton entrée officielle dans le concours ?

Non y a pas de scénario et de plus il faut une machine 8 bits avec le basic fourni avec la machine pour participer Razz

par rocky007 Ven 7 Jan - 0:26

Copper a écrit:
rocky007 a écrit:c'est ton entrée officielle dans le concours ?

Non y a pas de scénario et de plus il faut une machine 8 bits avec le basic fourni avec la machine pour participer

l'amiga c'est 8 bits non ?

par **Copper** Ven 7 Jan - 0:37

Mon "entrée" concernait l'Atari ST (simple face) qui peut effectivement être considéré comme un 8 bits...

par Invité Ven 7 Jan - 1:07

Allez une autre version de VIRUS !
Cette fois beaucoup plus chiadé ! Je dois vous avouer que j'y ai passé du temps dessus à équilibrer le gameplay, optimiser, etc .. Mais qu'importe, j'ai l'habitude et j'aime ça ! MDR

VIRUS !

Le Doc a été miniaturisé en atome pour débarrasser son 6502/Z80 préféré d'un vilain virus qui lui crame ses circuits internes. Pour se faire, il doit récupérer un antiviral, le Docamine, un puissant suppositoire qui va désactiver et neutraliser momentanément le virus jusqu'à ce qu'il se réactive. Chaque récupération du Docamine donnera des points !

Plus vous gagnerez des points, et plus le Virus deviendra actif et agressif !! rambo

Nous avons ici un jeu avec divers concept de gameplay : Survival game, scoring, récupération d'objet et un zest de stratégie ... LE 10LIGNOPAT 2021 - Page 22 Icon_wink

En effet, quand le Virus est neutralisé il va donc sécréter un antiviral qui ira effacer toute trace de son passage ... Mais par contre, le virus restera invisible pendant cette phase, donc soyez sur vos gardes !! LE 10LIGNOPAT 2021 - Page 22 Icon_batman

Vous entendrez en fond, la douce mélodie du CPU et de ses cycles ! LE 10LIGNOPAT 2021 - Page 22 435303

Le Code

Code:: 10 border 0:fx=128:ink 0,0:mode 1:pen 2:n$="ViRuS":while a<15:a=a+1:locate a+2,a+5:?n$:locate a+16,21-a:?n$:wend:while inkey(47)=-1:ink 2,int(rnd*25)+1:wend:cls:ink 3,26:pen 3:locate 2,24:?"SCORE":locate 28,24:?"HISCORE":xi=1:yi=1:if x=0 then q=20:w=18 20 ink 1,24:ink 2,6:a=1:b=1:x=20:y=13:s$=chr$(143):d$=chr$(149):pen 1:while a<38:a=a+1:b=abs(22-a)+3:locate 38,b:?s$:locate 2,b:?s$:locate a,3:?s$:locate a,22:?s$:locate a,2:?d$:locate a,23:?d$:locate 3,12:?s$:wend:pen 3:v=1:s=2:sy=249:if u>k then k=u 30 MY=(INKEY(0)=0 AND y>1)-(INKEY(2)=0 AND y<25):IF MY<>0 THEN LOCATE x,y:PRINT " ":if BT2=1 and My>0 then My=0 else if BT1=1 and My<0 then My=0 else y=y+My:SOUND 3,10+y,1,10:randomize time 40 M =(INKEY(8)=0 AND x>1)-(INKEY(1)=0 AND x<40): IF M<>0 THEN LOCATE x,y:PRINT" ":if BT=1 and M>0 then M=0 else if BT3=1 and M<0 then M=0 else x=x+M:SOUND 3,10+x,1,10 50 locate Q,W:pen s:?chr$(238):pen 3:locate xi,yi:?chr$(fx):if x<=Q and y=w then G=-1 else if x>Q and y=w then G=1 else if y<W then H=-1 else if y>W then H=1 60 if BT=3 or BT1=3 or BT2=3 or BT3=3 then fx=128:bb=0:BO=0:SC=SC+5:v=1+int(sc/25):po=0:Sound 2,50+xi,3:j=1:locate xi,yi:?chr$(fx) else if BO=0 and bb>0 then xi=int(rnd*33)+4:yi=int(rnd*17)+4:pen 3:sound 3,200-yi,3:fx=239:locate xi,yi:?chr$(fx):BO=1:j=0 70 BT=TEST(x*16,400-y*16):BT1=TEST((x-1)*16,400-(y-1)*16):BT2=TEST((x-1)*16,400-(y+1)*16):BT3=TEST((x-2)*16,400-y*16):po=po+1:P=P+v:if p>10 then P=P+1:SOUND 2,800,1,15:Q=Q+G:W=W+H:p=0 80 if po=20 then s=2:j=0 else if q>36 and G>0 then G=-1 else if q<5 and G<0 then G=1 else if w>20 and H>0 then H=-1 else if w<5 and H<0 then h=1 else if po>55 and BO=1 then fx=128:BO=0:po=0:s=2 else if j=1 and po<10 then s=0 90 t=t+1:if t=1 then sy=249:sx=231 else if t=2 then sy=251 else if t=3 then sy=249:sx=230 else if t=4 then sy=250 else t=0:locate 7,24:pen 1:?SC:locate 35,24:?k:if c>26 then c=1:bb=bb+1 100 sound 1,sc+int(400*rnd),2,8:locate Q,W:pen s:?chr$(sx):pen 3:locate x,y:?chr$(sy):c=c+1:ink 2,c:if BT=2 or BT1=2 or BT2=2 or BT3=2 then SOUND 1,0,50,15,,,31:BO=0:e=0:r=0:t=0:j=0:po=0:u=sc:sc=0:q=x:w=y:a=1:goto 10 else goto 30

Longue vidéo de Gameplay :

Le jeu a gagné en maturité ! J'ai vraiment optimisé comme j'ai pu tout en gardant un jeu présentable, jouable et dans le ton du concours !

Personnellement, je trouve que les réalisations CPC de ce concours sont top qualité !! LE 10LIGNOPAT 2021 - Page 22 435303

Amusez vous bien !

DOC n'oublies d'enregistrer cette version en lieu et place de l'ancienne !!! Merci !

par freed Ven 7 Jan - 8:49

wulf a écrit:Euuuuh , vous placez la barre un peu beaucoup très haut quand même (pour du 10 lignes)

Mon projet "ZX Procrastination" est quasiment bouclé.... enfin dans ma tête
Pour de vrai, je commence demain.

Ou plutôt ce week end s'il neige. Sinon, j'irai faire du vélo sans les mains.
On a jusqu'au 32 janvier d'ttes façons, hein ?

Grâce à Microsoft tu as le droit jusqu'au 32 décembre 2021, comme pour le compteur des mises à jour d'Exchange (comme quoi même le closed source commercial peut pondre des bugs complètement débiles)... Mr. Green

par **youki** Ven 7 Jan - 9:12

rocky007 a écrit:je ressens toute ta détresse et ton désespoir...tu es à bout de souffle..reposes toi un peu, tu as encore le temps d'ici le 31 janvier.
j'espère en tous cas que ta femme ne passe pas dans ton bureau et voit ce que tu fous de tes soirées en voyant ça

le pire est qu'en 3 lignes de code pour un jeu minimaliste, tu as réussi à le truffer de bugs

Pfff... c'est juste le Replay... c'est tellement jouissif de te voir exploser dans un amas de chair sanguignolant ... que ca valait bien un replay! ... j'adore ta video d'ailleur!! ... on peut bien en profiter! Very Happy

par **youki** Ven 7 Jan - 9:17

freed a écrit:
wulf a écrit:Euuuuh , vous placez la barre un peu beaucoup très haut quand même (pour du 10 lignes)

Mon projet "ZX Procrastination" est quasiment bouclé.... enfin dans ma tête
Pour de vrai, je commence demain.

Ou plutôt ce week end s'il neige. Sinon, j'irai faire du vélo sans les mains.
On a jusqu'au 32 janvier d'ttes façons, hein ?

Grâce à Microsoft tu as le droit jusqu'au 32 décembre 2021, comme pour le compteur des mises à jour d'Exchange (comme quoi même le closed source commercial peut pondre des bugs complètement débiles)...

rien a voir avec le closed source... c'est un probleme de taille d'integer... qui à l'époque etait en 32bits.... et apres ne venait pas me dire que c'est pas la taille qui compte en matiere de bit! MDR

C'est une sorte de bug de l'an 2000... des tas d'applications sont affecté d'ailleurs... ca va etre une belle pagaille entre 2022 et 2024 ... les OS blackberry par exemple, ne fonctionne plus a cause de ca... si vous avez un vieux blackberry ... il marche plus par exemple.

Et puis critique pas exchange... il y a du code a moi dans les serveurs Exchange!.... non , c'est pas celui qui gere les compteurs! Mr. Green

par **drfloyd** Ven 7 Jan - 9:32

MAJ ! 26 jeux en compétition !!!!!!! cyclops

par **youki** Ven 7 Jan - 10:28

rocky007 a écrit:Bon...il n'y a plus aucune pitié apparemment, on tombe dans le gore... on va aussi se défouler sur TI99

Nom du jeu : Run Youki ! Run ! TI99

Selon la chanson Richard Gotainer, votre Youki a encore fait caca partout dans la maison. C'est la fois de trop. Balancez son jouet dans le jardin le plus loin possible pour enfin avoir la paix !

Comment jouer ? faites monter votre barre de puissance en utilisant Gauche / Droite de votre joystick

Code:
10 CALL CHAR(112,"BBFFFFEDFFFB7FDF",120,"FCFEFFFEFEFEFCFE"):: CALL HCHAR(13,1,112,352):: CALL VCHAR(13,25,32,180):: CALL VCHAR(13,25,120,11) 20 CALL CHAR(128,"00020E473F784CC4",129,"0004024F3F784830",130,"120C0E4E38784890",65,"000042E77EE74200",66,"0060F66F06307830",67,RPT$("7E",8))::B=8 30 CALL COLOR(11,4,9,12,11,8)::CALL SPRITE(#1,65,1,90,1,#2,128,2,90,1)::I=-5::T=.1::F=1 31 DISPLAY AT(1,1) : RPT$("C",INT(F))::CALL KEY(0 ,K,S):: N=N+1::IF N=50 THEN S=MAX(4,F/2)::GOTO 50 ELSE IF K=B THEN B=8-(B=8)::F=F-(F<26):: GOTO 31 ELSE F=F+(F>0)/2 :: GOTO 31 50 CALL MOTION(#1,I,S,#2,0,S-1):: CALL PATTERN(#2,128+Z) ::I=I+T:: T=T*1.1::Z=1-Z:: CALL POSITION(#1,X,Y):: IF X>96 AND Y<192 THEN CALL DELSPRITE(ALL):: N=0::GOTO 30 70 CALL COLOR(#1,16)::CALL POSITION(#2,X,Y):: IF Y>192 THEN CALL MOTION(#2,I*3,S-1)::CALL PATTERN(#2,130)::GOTO 110 ELSE 50 110 CALL POSITION(#2,X,Y):: IF X>192 THEN CALL DELSPRITE(ALL):: CALL SOUND(100,-7,0):: DISPLAY AT(10,10):" YOU WIN ! " ELSE 110 121 CALL SPRITE(#1,66,7,184,Y,-3,-3,#2,66,10,1,Y,-2,-2,#3,66,7,184,Y,-1,1,#4,66,10,184,Y,-3,3) 130 CALL SPRITE(#5,66,7,184,Y,-3,-3,#6,66,10,184,Y,-2,-1,#7,66,7,184,Y,-1,0,#8,66,10,184,Y,-3,2) 140 FOR P=1 TO 150::NEXT P::CALL DELSPRITE(ALL):: GOTO 140

Pfff... completement bugger ce jeux... et apres ca veut me donner des lecons...

Et tu as encore utilisé une Extension Hardware de ton TI... incorrigible... ohnon

par rocky007 Ven 7 Jan - 11:08

youki a écrit:

Pfff... completement bugger ce jeux... et apres ca veut me donner des lecons...

ce n'est pas un bug, le jet est tellement puissante que le jouet a fait le tour du monde.

par rocky007 Ven 7 Jan - 11:11

Vetea a écrit:Allez une autre version de VIRUS !
Cette fois beaucoup plus chiadé ! Je dois vous avouer que j'y ai passé du temps dessus à équilibrer le gameplay, optimiser, etc .. Mais qu'importe, j'ai l'habitude et j'aime ça !

VIRUS !

Le Doc a été miniaturisé en atome pour débarrasser son 6502/Z80 préféré d'un vilain virus qui lui crame ses circuits internes. Pour se faire, il doit récupérer un antiviral, le Docamine, un puissant suppositoire qui va désactiver et neutraliser momentanément le virus jusqu'à ce qu'il se réactive. Chaque récupération du Docamine donnera des points !
Plus vous gagnerez des points, et plus le Virus deviendra actif et agressif !!
Nous avons ici un jeu avec divers concept de gameplay : Survival game, scoring, récupération d'objet et un zest de stratégie ...
En effet, quand le Virus est neutralisé il va donc sécréter un antiviral qui ira effacer toute trace de son passage ... Mais par contre, le virus restera invisible pendant cette phase, donc soyez sur vos gardes !!
Vous entendrez en fond, la douce mélodie du CPU et de ses cycles !

Le Code
Code:
10 border 0:fx=128:ink 0,0:mode 1:pen 2:n$="ViRuS":while a<15:a=a+1:locate a+2,a+5:?n$:locate a+16,21-a:?n$:wend:while inkey(47)=-1:ink 2,int(rnd*25)+1:wend:cls:ink 3,26:pen 3:locate 2,24:?"SCORE":locate 28,24:?"HISCORE":xi=1:yi=1:if x=0 then q=20:w=18 20 ink 1,24:ink 2,6:a=1:b=1:x=20:y=13:s$=chr$(143):d$=chr$(149):pen 1:while a<38:a=a+1:b=abs(22-a)+3:locate 38,b:?s$:locate 2,b:?s$:locate a,3:?s$:locate a,22:?s$:locate a,2:?d$:locate a,23:?d$:locate 3,12:?s$:wend:pen 3:v=1:s=2:sy=249:if u>k then k=u 30 MY=(INKEY(0)=0 AND y>1)-(INKEY(2)=0 AND y<25):IF MY<>0 THEN LOCATE x,y:PRINT " ":if BT2=1 and My>0 then My=0 else if BT1=1 and My<0 then My=0 else y=y+My:SOUND 3,10+y,1,10:randomize time 40 M =(INKEY(8)=0 AND x>1)-(INKEY(1)=0 AND x<40): IF M<>0 THEN LOCATE x,y:PRINT" ":if BT=1 and M>0 then M=0 else if BT3=1 and M<0 then M=0 else x=x+M:SOUND 3,10+x,1,10 50 locate Q,W:pen s:?chr$(238):pen 3:locate xi,yi:?chr$(fx):if x<=Q and y=w then G=-1 else if x>Q and y=w then G=1 else if y<W then H=-1 else if y>W then H=1 60 if BT=3 or BT1=3 or BT2=3 or BT3=3 then fx=128:bb=0:BO=0:SC=SC+5:v=1+int(sc/25):po=0:Sound 2,50+xi,3:j=1:locate xi,yi:?chr$(fx) else if BO=0 and bb>0 then xi=int(rnd*33)+4:yi=int(rnd*17)+4:pen 3:sound 3,200-yi,3:fx=239:locate xi,yi:?chr$(fx):BO=1:j=0 70 BT=TEST(x*16,400-y*16):BT1=TEST((x-1)*16,400-(y-1)*16):BT2=TEST((x-1)*16,400-(y+1)*16):BT3=TEST((x-2)*16,400-y*16):po=po+1:P=P+v:if p>10 then P=P+1:SOUND 2,800,1,15:Q=Q+G:W=W+H:p=0 80 if po=20 then s=2:j=0 else if q>36 and G>0 then G=-1 else if q<5 and G<0 then G=1 else if w>20 and H>0 then H=-1 else if w<5 and H<0 then h=1 else if po>55 and BO=1 then fx=128:BO=0:po=0:s=2 else if j=1 and po<10 then s=0 90 t=t+1:if t=1 then sy=249:sx=231 else if t=2 then sy=251 else if t=3 then sy=249:sx=230 else if t=4 then sy=250 else t=0:locate 7,24:pen 1:?SC:locate 35,24:?k:if c>26 then c=1:bb=bb+1 100 sound 1,sc+int(400*rnd),2,8:locate Q,W:pen s:?chr$(sx):pen 3:locate x,y:?chr$(sy):c=c+1:ink 2,c:if BT=2 or BT1=2 or BT2=2 or BT3=2 then SOUND 1,0,50,15,,,31:BO=0:e=0:r=0:t=0:j=0:po=0:u=sc:sc=0:q=x:w=y:a=1:goto 10 else goto 30

Longue vidéo de Gameplay :

Le jeu a gagné en maturité ! J'ai vraiment optimisé comme j'ai pu tout en gardant un jeu présentable, jouable et dans le ton du concours !
Personnellement, je trouve que les réalisations CPC de ce concours sont top qualité !!

Amusez vous bien !

DOC n'oublies d'enregistrer cette version en lieu et place de l'ancienne !!! Merci !

de mieux en mieux , super ! ..la compétition fait rage !...
j'ai même pensé à un moment que tu avais utilisé un algo style "game of life" , le pattern du monstre y ressemblait