Re: LE 10LIGNOPAT 2021

[Invité]

Classe dis donc !!
Manque plus que l'animation de l'helico et on aura le gagnant du concours !! 

[rocky007]

merci mais malheureusement la route est encore longue jusqu'au 31 janvier

[drfloyd]

Ce fight de dingue Youki Vs Rocky !!!!

La version Ti est meilleure.. mais c'est du repompage. Est ce fairplay ?

[Invité]

( Entre les blabla n'oublies pas d'enregistrer Chase Doc hein !! )

[rocky007]

Ce fight de dingue Youki Vs Rocky !!!!

La version Ti est meilleure.. mais c'est du repompage. Est ce fairplay ?

c'est pour cela que je n'ai pas indiqué de scénario.. c'était plus un proof of concept pour sécher mes larmes qu'une participation officielle .... et puis il y a l'antécédent Frogger

meilleur ? non, le gameplay est mieux chez youki ainsi que les sprites. Sur C64 ils ont quand même de sacrés avantages : plusieurs couleurs, zoom indépendant sur X ou Y ( ou les deux ). sur TI, 1 seule couleur par sprite, zoom x2 sur XY pour tous les sprites.

[Invité]

Et l'Amstrad n'est pas en reste non plus ! 
Y a un charme indéniable avec ces petits jeux Basic.

[rocky007]

oui, et je suis vraiment étonné de la vitesse de ton jeu

[Invité]

Allez encore un autre !! 
Très inspiré de Chase Doc : 

VIRUS !

Le Doc a été miniaturisé en atome pour débarrasser son 6502 préféré d'un vilain virus. Pour se faire, il doit récupérer un antiviral, le Docamine 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 !

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 !! 

Code :

Code:

10 DEFINT a-z:po=0:CLS:MODE 1:j=0:s=2:ink 0,0:INK 1,24:ink 2,6:T=0:x=20:y=13:pen 1:for i=2 to 37:locate i,2:? chr$(143):locate i,21:? chr$(143):next:for i=2 to 21:locate 2,i:?chr$(143):locate 38,i:?chr$(143):next:t=0:sy=249:u=sc:if sc=0 then w=15:Q=15

11 BO=0:sc=0:v=1:for i=3 to 38 step 2:locate i,1:? chr$(149):locate i,22:? chr$(149):next:locate 3,11:?chr$(143):ink 3,26:locate 35,24:pen 3:? schi:locate 1,24:?" SCORE ":locate 28,24:?"HISCORE ":if u>schi then schi=u:pen 1:locate 35,24:pen 3:?schi

15 if m=0 then 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

30 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

31 locate Q,W:pen s:?chr$(143):if BO=1 and P>4 then pen 3:locate xi,yi:?chr$(fx) else if P<=4 then if (x<=Q and y=w and j=0) then G=-1 else if (x>Q and y=w and j=0) then G=1
 else if (y<W and j=0) then H=-1 else if (y>W and j=0) then H=1


32 if (BT=3 or BT1=3 or BT2=3 or BT3=3)then BO=0:SC=SC+5:po=0:locate 7,24:pen 3:print SC:Sound 2,50+xi,3:locate xi,yi:?" ":j=1 else if BO=0 and t=4 then randomize time:xi=int(rnd*33)+4:yi=int(rnd*17)+3:pen 3:sound 3,200,2:locate xi,yi:? chr$(fx):BO=1:j=0

33 po=po+1:aBT=TEST(Q*16,400-W*16):aBT1=TEST((Q-1)*16,400-(w-1)*16):aBT2=TEST((q-1)*16,400-(w+1)*16):aBT3=TEST((q-2)*16,400-w*16):P=P+v:if p<=4 then if j=0 then P=P+1:SOUND 2,800,1:Q=Q+G:W=W+H else if p>=8 then p=0

34 if po=20 then s=2:j=0 else if (aBT and G>0) then G=-1 else if (aBT3 and G<0) then G=1 else if (aBT2 and H>0) then H=-1 else if (aBT1 and H<0) then h=1 else if
po>50 and BO=1 then locate xi,yi:?" ":BO=0:po=0:s=2 else if j=1 and po<20 then s=0

35 locate Q,W:pen s:?chr$(sx):pen 3:locate x,y:?chr$(sy):t=t+1:if t=1 then sy=249:sx=207:fx=140 else if t=2 then sy=251:fx=215 else if t=3 then sy=249:sx=238:fx=140 else if t=4 then sy=250:fx=214 else if t=5 then t=0:P=0:v=1+int(sc/15):if v>4 then v=4

40 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): if (BT=2 or BT1=2 or BT2=2 or BT3=2) then SOUND 1,0,50,15,,,31:cls:q=x:w=y:goto 10 else goto 15

Toujours basé avec l'usage de la fonction TEST() du puissant Locomative Basic.

Je pense qu'il s'agit du jeu le plus abouti des 3 ... Pour le moment, et vu que je reprend le taf demain, ça sera peut être le dernier ... Ou pas, qui sait ! 

La Ch'tite vidéo :

Amusez vous bien, il est plutôt fun ! 

[Copper]

Sympa et plutôt original...

[drfloyd]

Truc de fou, 21 jeux en compétition !!!!!!!

MAJ de l'entete du topic

[Invité]

Merci Docounet !
N'oublies pas mon dernier jeu Virus ! Grand prétendant au titre !! 

[drfloyd]

j'arrive plus à suivre !

Vetea a terminé sa trilogie, c'est le Peter Jackson du 10lignopat.

[Invité]

Le Retour du Roi tout simplement. 

[rocky007]

Toujours basé avec l'usage de la fonction TEST() du puissant Locomative Basic.[/left]

Je pense qu'il s'agit du jeu le plus abouti des 3 ... Pour le moment, et vu que je reprend le taf demain, ça sera peut être le dernier ... Ou pas, qui sait ! 

La Ch'tite vidéo :

Amusez vous bien, il est plutôt fun ! 

de mieux en mieux ! ça y est tu es tombé dans l'addiction aussi...

[drfloyd]

pas de jeux MSX ou Spectrum pour l'instant.

[rocky007]

ben oui Doc, la preuyve que tu n'arrives plus suivre, tu as oublié celui-ci

A ce rythme, il y aura 50 jeux fin janvier tu pourras sortir un livre de listing à taper

Encore un nouveau jeu pour TI99 Basic Etendu

BOMB DIZ AMIGA


Le scenario:

Atari a envoyé une sonde nucléaire dans les méandres de l'Amiga pour détruire son CPU.
Evitez les attaques de ses chipset : Paula et compagnie. Découvrez un jeu incroyable, avec 7 niveaux tous les plus fous, dotés de graphismes incroyables haute résolution.Les ennemis sont dotés d'une AI quantique hors du commun, le tout servi dans une animation époustouflante 50 FPS et une synthèse sonore à faire pâlir HAL.

Comment jouer :

Manœuvrez votre ogive nucléaire avec le joystick jusqu'au dernier niveau. Attention, c'est du nucléaire hein ! vous n'avez qu'une chance !


La video :

PS: les collisions sont désactivées pour montrer les niveaux...


Techno :
4 Sprites 16x16, routine mirroring
Décor lunaire bitmap 3 plans
Génération niveau avec +1000000000 combinaisons de mouvements des ennemis

Code:

   
1 Z$="KKJMMNMMPPPNSKKJPMLNPPLQMiKKLKMKQOMOQNQ7KJKMLOMQNSNKK#JKMKRMMMRLN#_KKLLMMNNOLK"::DIM H(78),M(26),N(26)::FOR I=1 TO 78::H(I)=ASC(SEG$(Z$,I,1))-75::NEXT I
2 CAll CLEAR::CALL COLOR(1,16,2, 2,10,2, 3,9,10, 4,7,9):: CALL CHAR(33,"1"):: FOR i=1 to 50::CALL HCHAR(INT(RND*23)+1,INT(RND*32)+1,33):: NEXT I:: L=1
3 FOR I=0 TO 7 :: A$=RPT$("00",I)&RPT$("FF",8-I)::CALL CHAR(40+I,A$,48+I,A$,56+I,A$):: NEXT I:: Z$="084C2A6E195D3B7F"::Y$="0123456789ABCDEF"::S,P,C=64:: CALL SCREEN(2)
4  FOR J=1 TO 4::READ A$::FOR I=1 TO 32 STEP 2::B$=B$&SEG$(Z$,POS(Y$,SEG$(A$,I+1,1),1),1)&SEG$(Z$,POS(Y$,SEG$(A$,I,1),1),1) ::NEXT I::CALL CHAR(C,A$&B$)::C=C+4::B$=""::NEXT J
5 Y=150::FOR J=40 to 56 STEP 8::FOR I=1 TO 32:: X=INT(Y/8):: C=Y-(X*8):: Y=Y+INT(RND*3)-1::CALL VCHAR(X,I,J,24-X)::CALL HCHAR(X,I,C+J)::NEXT I::Y=Y+4::NEXT J::CALL MAGNIFY(3)
6 CALL DELSPRITE(ALL)::CALL SAY("SCREEN "&STR$(L))::L=L+1:: CALL SPRITE(#28,64,12,134,1)::Z=Z+1::S=H(Z)::Q=H(Z+1)::W=H(Z+2):: Z=Z+3::F=INT(RND*4)*4::FOR I=1 TO 4
7 CALL SPRITE(#I,64+F,16-L,H(Z)*32+16,H(Z+1)*32)::Z=Z+2:: NEXT I::FOR I=1 TO 26:: T=INT(SIN(I/2)*H(Z+1))::M(I)=T*(H(Z)<>1) :: N(I)=T*(H(Z)<>2) ::NEXT I::I=0::Z=Z+1
8 I=I+1::CALL MOTION(#1,Q+M(I+3)*W,S+N(I),#2,Q+M(I+6),S+N(I+3),#3,Q+M(I+9)*W,S+N(I+6),#4,Q+M(I+12),S+N(I+9))::CALL COINC(ALL,P)::IF I=13 THEN I=0
9 CALL JOYST(1,Y,x)::SX=MIN(SX+2-X,16)::SY=SY+Y:: CALL MOTION(#28,SX*2,SY*2):: CALL POSITION(#28,Y,X)::IF X>225 AND L<8 THEN SX,SY=0:: GOTO 6 ELSE IF P=-1 OR L=7 OR Y>150 THEN END ELSE 8
10 DATA 0010080403070F7F0F07030408100000,010103070F0F0703070F0C3C38383030,00000000073F64FFFF643F0700000000,44AA110044AA110044AA110044AA1100


[YannAros]

Un petit teaser, le "title screen" de ma prochaine entrée sur CPC:


La mécanique du jeu est terminée, il me reste à finaliser le design de quelques niveaux (il devrait y en avoir 12 si tout rentre comme prévu dans les 10 lignes)

[Invité]

Ah génial un Cpciste de plus !! 

[Copper]

Ben non il était déjà là

Après le CPC reste la machine la plus utilisée avec 3 participants différents

[Invité]

Normal, c'etait la meilleure et la plus facile à prendre en main ! 

[YannAros]

Et voici "The Antidote"

Le scénario :
Après avoir échappé à la tempête de boulette géante orchestrée par les Ataristes, voir https://www.gamopat-forum.com/t114624p390-le-10lignopat#3470423, Super AmigaMan est tombé dans un piège dressé par la secte des admirateurs du  "Gland Vert". Il se retrouve transformé en une ridicule boulette.
L'antidote est dispersé sur 12 niveaux de jeu, renfermant chacun 8 doses, et oui il en faut 96, c'est un virus à base d'ARM messager très puissant qu'ont utilisé les Glandeurs Vert.

Vous avez un temps limité dans chaque niveau pour collecter les 8 doses de vaccin, l'avancement du temps est indiqué par la puissance et la hauteur du son, les trois dernières secondes l'écran clignote pour ajouter de la tension...
A chaque nouveau niveau vous avez un peu moins de temps pour terminer.
Saurez-vous redevenir  Super AmiganMan ou allez-vous rester cette boulette infâme jusqu'à la fin de vos jours...

Code:

1 MODE 0:PAPER 0:BORDER 0:DEFINT A-Z:FOR I=0TO 15:INK I,ASC(MID$("@KBAIRVYXOFCDHQT",I+1,1))-64:NEXT:WHILE INKEY(47):P=(P+1)MOD 15:PEN P+1:H=(H+1)MOD 18:LOCATE VAL(MID$("568899886542211224",H+1,1)),1:?"The Antidote"CHR$(30)CHR$(11):WEND
2 SYMBOL 240,219,255,121,255,159,247,255,188:SYMBOL 241,24,52,118,126,126,126,60,24:SYMBOL 242,24,60,126,126,122,122,60,24:SYMBOL 243,24,60,126,126,126,110,44,24:SYMBOL 244,24,60,94,94,126,126,60,24:SYMBOL 245,0,0,188,255,188
3 PAPER 1:DIM S$(64):DIM C(64):PEN 4:FOR I=1TO 64:S$(I)=" ":C(I)=4:NEXT:A$=CHR$(240):DATA 52,164,120,10,245,145,26,98,104,8,212,13,130,40,36,69,55,9,245,82,69,132,35,194,163,236,258,177,12,96,9,34,4,128,19,66,147,11,290,211,178,108,66,164,2,224,81,37
4 CLS:?L+1:BORDER 0:X=4:Y=2:T=30-L:FOR I=1TO 64STEP 8:READ A:S$(I)=SPACE$(A\16)+STRING$(A MOD 16,240):S$(I+1)=S$(I):READ A:S$(I+2)=SPACE$(A MOD 32)+CHR$(245):C(I+2)=6+A\32:NEXT:FOR I=1TO 25:PEN C(I):LOCATE 1,26-I:?S$(I);:NEXT
5 I=25:B=0:EVERY 50GOSUB 10:WHILE(Y>0AND T>0AND B<8):t$=MID$(S$(Y),X,1):DY=-4*((INKEY(47)=0)AND(t$=A$))-MAX(-1,(DY-1))*(INKEY(47)<>0OR (t$<>A$)):DY=MIN(DY,63-Y,0-9*(MID$(S$(MIN(64,Y+DY+1)),X,1)<>A$)):IF(DY<0AND MID$(S$(Y+DY+1),X,1)=A$)THEN DY=0
6 DX=(INKEY(8)=0AND X>1)-(INKEY(1)=0AND X<20):DX=-DX*(MID$(S$(Y+DY+1),X+DX,1)<>A$):IF(DX OR DY) THEN LOCATE X,I-Y:?" ";:X=X+DX:Y=Y+DY:DATA 54,135,2,64,2,0,99,199,210,110,67,166,193,236,8,32,52,229,195,205,290,179,290,51,134,10,2,128,2,96,134,77
7 IF(I-Y<14AND I<64)THEN I=I+1:LOCATE 1,1:PEN C(I):?CHR$(11)S$(I) ELSE IF(I-Y>14AND I>25)THEN I=I-1:LOCATE 1,25:PEN C(I):?CHR$(10)S$(I-24);:DATA 12,96,275,83,147,41,18,1,18,34,135,78,18,97,140,147,4,96,150,45,33,34,114,72,242,80,290,179,178
8 LOCATE X,I-Y:PEN 0:?CHR$(241+X MOD 4);:B=B-(MID$(S$(Y+1),X,1)=CHR$(245)):MID$(S$(Y+1),X,1)=" ":WEND:L=L+1:S=S-T*(Y>0)+B*L:T=REMAIN(0):IF(L<12AND B=8)THEN GOTO 4:DATA 139,178,107,50,36,130,73,226,111,290,19,242,48,193,76,129,200,2,128
9 CLS:PEN 1-(L=12AND B=8):LOCATE 8,8:?"SUCCESS":PEN 0:LOCATE 4,10:?"FINAL SCORE"S:RESTORE:S=0:L=0:WHILE INKEY(47):WEND:GOTO 4:DATA 63,49,15,68,47,107,31,2,2,32,130,73,245,211,9,128,4,224,147,234,275,177,146,170,3,0,131,41,145,73,145,137
10 T=T+(T>0):SOUND 1,100+T*10,30-T,(30-T)\2:IF(T=3)THEN BORDER 0,6:RETURN ELSE RETURN:DATA 34,194,146,234,258,16,146,41,34,66,146,106,258,145,145,169,50,4,50,35,162,75,162,106,274,146,274,177,162,202,5,224


[Invité]

Techniquement chiadé !! Félicitations !!
Excellente maîtrise du Basic de plus, j'ai rien capté au code ! 

EDIT :
Un fan a carrément une compilation de mes 2 "jeux" !! 
youtu.be/Mrgg-wB_GEo
La vache, c'est beau d'être célèbre quand même .. 

[youki]

Ce fight de dingue Youki Vs Rocky !!!!

La version Ti est meilleure.. mais c'est du repompage. Est ce fairplay ?

c'est pour cela que je n'ai pas indiqué de scénario.. c'était plus un proof of concept pour sécher mes larmes qu'une participation officielle .... et puis il y a l'antécédent Frogger  

meilleur ? non, le gameplay est mieux chez youki ainsi que les sprites.   Sur C64 ils ont quand même de sacrés avantages : plusieurs couleurs, zoom indépendant sur X ou Y ( ou les deux ). sur TI, 1 seule couleur par sprite, zoom x2 sur XY pour tous les sprites.

Ouais, c'est juste du plagia,  meme pas capable d'imaginer un jeu original::
C'est la triche... mais bon il n'est pas a une tricherie pret...

Et puis ce qu'il dit pas, c'est que moi j'ai que 8 sprites là ou lui il en a 32....   et graphiquement il peut faire des trucs bien mieux que moi avec son TI...

Regarde ce que j'ai fait sur coleco avec exactement le meme chip graphique...  ils ont beau dos les sprites monochromes...



Bon sinon, je dois avouer que j'ai bien aimé l'animation de la destruction des murs!

Mais bon moi toute la puissance de calcul de C128 je l'ai utilisé pour arriver a faire tenir les disquettes sur la tranche!     toi c'est juste des cubes , c'est plus facile!!!

Sinon Doc, dans le topic au debut, il manque plein de trucs ,  ...pourquoi il y a le Blitz horrible et injouable de Rocky et pas le miens?  Il manque aussi des liens sur mes video pour certain jeux.  Bref, c'est le bordel!!!

 Ah et puis pour "Frogger",  moi au moins alors que j'avais fait moi aussi un Frogger, j'ai tout changé pour faire chickenDOC! ..car au depart , j'avais vraiment un frogger aussi... sauf que la grenouille c'etait le doc!

Bon Rocky m'a ennervé là , il va falloir que j'en sorte un autre.... comme si j'avais que ca a foutre... 

Ca va saigner...

Et aussi,  tres tres sympa les entrees sur CPC!!!  Bravo!

[Invité]

Yess ! Un bon duel comme on les aime !! 

[drfloyd]

Un fan a carrément une compilation de mes 2 "jeux" !! 
youtu.be/Mrgg-wB_GEo
La vache, c'est beau d'être célèbre quand même .. 

Il est allé trop vite, il savait pas que c'etait une trilogie !!!!!! Le 10lignopat de Gamopat commence a faire le buzz sur les réseaux ?

[Invité]

Faut réécrire les belles pages Rétro d'avant !

[drfloyd]

Rajout de Gamojet, je l'avais oublié en entête de topic.

[rocky007]

Et puis ce qu'il dit pas, c'est que moi j'ai que 8 sprites là ou lui il en a 32....   et graphiquement il peut faire des trucs bien mieux que moi avec son TI...

Regarde ce que j'ai fait sur coleco avec exactement le meme chip graphique...  ils ont beau dos les sprites monochromes...

En TI Basic, il ne reste que 28 sprites sur les 32. Tes sprites C64 ont 3 couleurs, si je veux l'équivalent il me faut 3 sprites... donc 28 / 3 : 9 sprites dispo contre 8 sur C64. De plus, si j'utilise 3 sprites pour faire les 3 couleurs, je n'ai plus qu'un sprite de dispo sur la même ligne contrairement au C64.
alors hein calimero ça suffit maintenant...

Ah et puis pour "Frogger", moi au moins alors que j'avais fait moi aussi un Frogger, j'ai tout changé pour faire chickenDOC! ..car au depart , j'avais vraiment un frogger aussi... sauf que la grenouille c'etait le doc!

ben oui, idem..moi c'est pas GamoJet, c'est GamoHelico

Sinon top The Antidote,bravo

[freed]

Non mais on peut pas s'absenter 1 journée ici. Ca devient difficile à suivre là!
Et comment font ceux qui dorment la nuit ou ne passent pas leur temps sur leur smartphone au feu rouge hein?

En tout cas il y a du niveau, ça fait plaisir! J'espère qu'on va en voir d'autres, parce qu'à ce rythme on va détrôner le concours 10liners qui a inspiré ce challenge gamopat  

Allez les gamopats! À force, on pourra même faire un live YT en mondiovision de 2 heures avec tous les tests

[youki]

Rajout de Gamojet, je l'avais oublié en entête de topic.

il manque le liens sur la video de lotus challenge  et Suppo fighter.

www.atomicfe.com/divers/c64/suppofighter.mp4

www.atomicfe.com/divers/c64/lotuschallenge.mp4

Et le liens sur la video de couloiramigateux sur c64, il faut mettre celui ci , a la place l'AVI.  Et ducoup la copie d'ecran il faudrait la changer.

www.atomicfe.com/divers/c64/couloiramigateuxc64.mp4

[YannAros]

Pour être complet il faudrait que pour chaque entrée du premier post il y ait un lien vers le post de présentation du jeu, comme ça on peut voir aussi le scénario et le code.

A propos de scénario, Bombajet est hors concours car il n'en a pas!