Re: LE 10LIGNOPAT 2021

[freed]

Attendez j'ai pas dit mon dernier mot hein... Je suis dans l'étape de réduction des lignes sur mon projet pour le coco3 là... Au rythme où j'avance je serai bon pour l'édition 2035

[YannAros]

Il te reste 13 jours, 5 heures et 2 minutes

[freed]

Il te reste 13 jours, 5 heures et 2 minutes

C'est comme les fingers de Cadbury, faudrait les faire un peu plus longs
Pour le moment j'ai la version père Noël est une ordure: ça dépend ça dépasse!

[freed]

Il te reste 13 jours, 5 heures et 2 minutes

C'est comme les fingers de Cadbury, faudrait les faire un peu plus longs
Pour le moment j'ai la version père Noël est une ordure: ça dépend ça dépasse!

Bon... Je progresse... Ca tient en 10 lignes (sans écran de titre, pas la place) mais j'ai des bugs liés au regroupement de lignes... Ca devient intéressant

[wulf]

@YannAros  l'Apple II et son Basic si particulier avec l'instruction HOME. Les listings faisaient rêver dans Tilt, ca faisait vraiment machine de teenager US: un autre monde ! Tu en possèdes vraiment un ou c'est sur émulateur uniquement ?

courage @freed !

J'ai peut être une nouvelle idée sur Spectrum avec une autre routine que je viens de tester, mais pas le courage d'aller au bout pour l'instant et de faire un 10 lignes autour. Trop d'heures passées sur l'ordi au taf.. besoin de s'aérer à côté.

[YannAros]

@wulf, oui j'ai acheté récemment 2 Apple IIc, le premier pour découvrir la machine, le deuxième pour bricoler dessus, voir ici : https://www.gamopat-forum.com/t82330p390-apple-topic-officiel#3466539

[freed]

J'avais un copain qui avait un II+ quand j'avais mon Tandy... C'était une machine impressionnante par la taille (avec les 2 lecteurs 5"1/4) et par ses capacités. Je ne sais pas si elle me faisait rêver, mais ça faisait vraiment "ordinateur" et pas "jouet"

C'était la bonne époque, on avait le temps de jouer sur l'ordi... C'est moins facile aujourd'hui, c'est vrai qu'après avoir passé la journée sous Excel j'ai moins envie


[EDIT] J'ajoute ce lien: https://www.calormen.com/jsbasic/ pour faire de l'APplesoft basic en ligne (il y a des exemples)... Après c'est pas un émulateur hein.

[YannAros]

De mon coté je peaufine ma prochaine (et certainement dernière) contribution sur CPC.

Je suis en train de mettre un thème sonore le plus long possible pour éviter qu'il soit trop répétitif, et pour essayer d'obtenir la récompense pour la "Meilleure bande sonore", j'espère que ce ne sera pas un album de Lorie en téléchargement...

[freed]

De mon coté je peaufine ma prochaine (et certainement dernière) contribution sur CPC.

Je suis en train de mettre un thème sonore le plus long possible pour éviter qu'il soit trop répétitif, et pour essayer d'obtenir la récompense pour la "Meilleure bande sonore", j'espère que ce ne sera pas un album de Lorie en téléchargement...

Tu avais déjà pas mal travaillé la bande sonore dans un de tes jeux... C'est vrai que sur CPC ce serait dommage de ne pas profiter de l'excellent Yamaha   C'est pas sur Tandy que je vais venir te chercher des noises (haha) côté bande sonore, la machine n'en est absolument pas capable en basic
Par contre, je me demande comment tu vas faire tenir tout ça en 10 lignes parce que ce n'est pas évident!

[YannAros]

Par contre, je me demande comment tu vas faire tenir tout ça en 10 lignes parce que ce n'est pas évident!

Ah ah! J'en suis à 1 minute 20 de musique encodée la dedans:

Code:

S$="@BSSCDUUEFTTCBBs@BSSCDUUEFTTCBBs@BSSCEVVFGWWGFGcCDUUVGcCETTECtGIZZJK\\LM[JIIjGIZZJK\\LM[[JIzGIZZJL]]MN^^NMNjJK\\]NjJL[[JIZZ[\\]N\\Jg3^1MJW2DTce1EFWWWGw1VVVFw1WWWGw1VUTsCDuFGVUTUVWvEFwFETUTsDBs"

Le "player" appelé sous interruption me prends 1 ligne de code, et il me faut 140 charactère pour le setup initial, je consacre donc a peut près 25% de la taille dispo à la musique.

[freed]

Ah ah! J'en suis à 1 minute 20 de musique encodée la dedans:

Code:

S$="@BSSCDUUEFTTCBBs@BSSCDUUEFTTCBBs@BSSCEVVFGWWGFGcCDUUVGcCETTECtGIZZJK\\LM[JIIjGIZZJK\\LM[[JIzGIZZJL]]MN^^NMNjJK\\]NjJL[[JIZZ[\\]N\\Jg3^1MJW2DTce1EFWWWGw1VVVFw1WWWGw1VUTsCDuFGVUTUVWvEFwFETUTsDBs"

Le "player" appelé sous interruption me prends 1 ligne de code, et il me faut 140 charactère pour le setup initial, je consacre donc a peut près 25% de la taille dispo à la musique.

Pas mal! 25% c'est ce que je consacre aux sprites dans mon projet actuel (et j'aimerais en mettre plus) En fait on se rend compte que c'est tout ces "à côté" qui prennent de la place dans les 10 lignes. Comme le disait Rocky007 un peu plus haut (je crois que c'est lui), la logique du jeu tient en général sur 1 ou 2 lignes.

C'est une question de choix... Est-ce que je sacrifie le nombre de sprites ou l'écran de titre? Choix cornélien mais j'ai vraiment du mal à me limiter sur les sprites

[Copper]

Ca sert à rien un écran titre

[YannAros]

Ca sert à rien un écran titre

C'est pour faire jolie si il reste de la place, mais autant réserver cette place pour de plus jolie sprite.

[freed]

Bon bah je pense que j'ai terminé
Me reste à faire la vidéo et un bô message d'annonce avec le scenario et tout et tout

Tremblez!!!

[freed]

Ca sert à rien un écran titre

C'est un critère... Ca fait bizarre le jeu qui démarre ou se termine sur le BASIC. Mais bon pas trop le choix... Là j'ai un truc qui affiche GAME OVER, c'est le minimum syndical

[Copper]

Il clignote j'espère le GAME OVER ?

[freed]

Il clignote j'espère le GAME OVER ?

Tu rigoles... J'ai même pas de quoi effacer l'écran en dessous

[freed]

Nom d'un quickshot, c'est pas possible!

Malheureusement si, c'est arrivé. La Japan Corp. a réussi à voler l'ensemble des disquettes de la nouvelle version de Comos Chronicles 43, après avoir soigneusement effacé le disque dur du Mega STE du Doc.

Pas le choix, il faut investir le bâtiment de la Japan Corp. et récupérer toutes les disquettes. Mais attention, les gardes de la Japan Corp. ne le laisseront pas faire aussi facilement!

Vous êtes le doc et vous devez parcourir chacun des 256 étages de la Japan Corp. Tower sans succomber aux blessures infligées par les gardiens.

DIM (Doc's Impossible Mission) est un jeu d'action en 320x200x16 qui aura raison de votre patience

Côté style de jeu: c'est un mix Berzerk/Gauntlet extrêmement répétitif et avec des ennemis à l'intelligence assez faible finalement et il faut vraiment qu'il fasse un temps pourri pour avoir envie de dépasser le 10è niveau  

Côté graphisme, j'ai pris la liberté de pomper les sprites sur la planche réalisée par Johan Vinet en 2015. Le gars est vraiment un super graphiste, je vous invite à regarder l'ensemble de ses publications c'est assez génial. Comme cette planche tourne sur plein de sites et que je n'ai pas l'intention de faire de l'argent avec ce super 10 lignes, je pense que ça ne posera pas de problème J'utilise le Doc, Mario, Sonic et les 2 Bubble Bobble pour représenter les gardiens de la Japan Corp. (l'ambition c'était d'avoir 12 sprites différents, mais ça ne tenait pas en 10 lignes )
Voilà le lien vers une de ses pages, je ne sais pas si vous arrivez à reconnaître tous les personnages

Côté technique: bon bah on est dans un gloubiboulga de 10 lignes habituel chez moi qui mélange les DATA et le reste. À noter:
On est sur un Tandy Coco3 (émulateur VCC2.1 car la machine n'a jamais été distribuée en France), équipée d'un 6809 à 1,79 MHz en mode turbo (que j'utilise ici).
Notez que la résolution est ici en 320x200x16. Cette résolution n'est pas disponible par défaut, d'où l'utilisation de quelques poke pour passer de la résolution 320x192 du BASIC à la résolution 320x200 (comme la machine dispose d'un écran virtuel, ça ne pose pas de problème au BASIC visiblement ).
Les 13 sprites (12 ennemis+Doc) sont gérés au CPU, et dans ce mode haute résolution, le basic du COCO3 n'a pas d'instruction pour gérer le double buffering...
Pour plus de rapidité (et de simplicité), je gère l'écran en pseudo mode texte, c'est à dire en cases de 8x8 pixels... D'où les sprites de 8x8 évidemment.
Le décor est géré par l'excellente insruction DRAW du basic Microsoft (ici HDRAW dans sa version Haute résolution). Cela me permet de gérer les 256 niveaux à l'aide d'une seule formule (utilisation de DEF FN du basic microsoft) qui permet d'orienter chaque élément du décor en fonction du niveau (4 éléments pouvant avoir 4 orientations, je vous laisse calculer la combinatoire).

Je suppose que le truc doit avoir un comportement étrange à partir du 257è niveau... Je pense que personne n'aura la patience d'aller jusque là

Allez, une vidéo avec Mario et 2 Bubbles (on ne voit pas SONIC sur cette vidéo, j'ai pas fait gaffe: le programme sélectionne les sprites au hasard et pas de chance, sonic est parti se promener ailleurs et flemme de refaire une vidéo ):



Le listing pour ceux qui disposent de l'émulateur VCC2.1 (laissez bien les interlignes car le copier-coller est capricieux avec l'émulateur).

Code:





1 A=57452:POKE A,53:POKEA+1,62:POKEA+2,52:POKEA+3,61:POKE60277,199:POKE59322,200:POKE59326,199:POKE61327,18:A$="BU17L22U5R44D45L44U5R40U35L17":B$="BM136,88R47D31L47U31BR7BD7R33D17L33U17":FORI=0TO15:PALETTEI,0:NEXT:HCOLOR14:I=0:POKE65495,0:HSCREEN2



2 DIMG(20):DIMH(20):G$="GAME OVER":S=320:DATA"F11111F0F111F1FFF111F1FFF11111FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF","011555901A55858911A5111900051510111A4A90511A4A990113339006600660","0004441000044444006568680065566500065550044233701033330900600060"



3D=200:FORK=1TO6:READM$:FORB=0TO7:FORA=0TO7:I=I+1:HSET(A,B,VAL("&H"+MID$(M$,I,1))):NEXTA,B:HBUFF K,32:HGET(0,0)-(7,7),K:I=0:NEXT:FORK=0TO15:READC:PALETTEK,C:NEXT:HCLS:DIMX(20):DIMY(20):DIMS(20):FORK=1TO20:READC,I:G(K)=8*C:H(K)=8*I:S(K)=RND(4)+2:NEXT





4V=100:L=0:DEFFND(U)=INT(4*((L/U)-INT(L/U))):DATA"0007700007733390073383890333838907B79196044333397443111A39344116","0333330033353330033338303339555600336600030355890103080000410960","00077000077BBBC007BB8B8C0BBB8B8C07B7C1C6044BBBBC744B111ABCB44116"




5 O=160:P=80:HCLS:D7=0:HPUT(O,P)-(O+7,P+7),2:HDRAW "BM79,55A"+STR$(FND(4))+"XA$;BM239,55A"+STR$(FND(16))+"XA$;BM79,151A"+STR$(FND(64))+"XA$;BM239,151A"+STR$(FND(128))+A$:HPRINT(0,0),"LEVEL"+STR$(L):HPRINT(30,0),"ENERGY"+STR$(V):DATA0,63,55,29,36,60





6HDRAW B$:HPAINT(60,36),14,14:HPAINT(220,36),14,14:HPAINT(60,130),14,14:HPAINT(220,130),14,14:HPAINT(138,90),14,14:HPAINT(160,100),13,14:FORK=1TO20:X(K)=G(K):Y(K)=H(K):HPUT(X(K),Y(K))-(X(K)+7,Y(K)+7),-S(K)*(K<17)-(K>16):NEXT:DATA34,52,1,57,56,22,21






7IFZ=13THENL=L+1:Z=0:GOTO5:ELSEK=K+1+K*(K>15):X=X(K):Y=Y(K):X(K)=X+8*(O<X)-8*(O>X):Y(K)=Y+8*(P<Y)-8*(P>Y):W=247:R=O:T=P:IFX(K)=O AND Y(K)=P THEN V=V-5:X(K)=X:Y(K)=Y:HLINE (288,0)-(320,7),PRESET,BF:HPRINT(36,0),STR$(V):SOUND255,1




8 P=P+8*(PEEK(341)=W AND P>8)-8*(PEEK(342)=W AND P<191):O=O-8*(PEEK(344)=W AND O<312)+8*(PEEK(343)=W AND O>7):IFHPOINT(X(K)+4,Y(K)+4)=0THEN9:ELSEIF HPOINT(X(K)+4,Y+4)=0THENY(K)=Y:ELSEIFHPOINT(X+4,Y(K)+4)=0THENX(K)=X:ELSEX(K)=X:Y(K)=Y:GOTO10



9 HLINE(X,Y)-(X+7,Y+7),PRESET,BF:HPUT(X(K),Y(K))-(X(K)+7,Y(K)+7),S(K):IF D7>3 THEN HLINE(144,112)-(175,119),PRESET,BF:D7=0:DATA28,56,53,10,5,10,6,10,7,10,8,10,17,10,18,10,19,10,20,30,5,30,6,30,7,30,8,30,17,30,18,30,19,30,20,9,7,9,19,29,7,29,19




10IFV=0THENHLINE(128,80)-(200,88),PRESET,BF:HPRINT(16,10),G$:FORU=0TO55:SOUND255-U,1:NEXT:GOTO4:ELSEIFR=O AND T=P THEN7:ELSEZ=HPOINT(O+4,P+4):IFZ>0 AND Z<15THENO=R:P=T:GOTO7:ELSED7=D7-(Z=15):HLINE(R,T)-(R+7,T+7),PRESET,BF:HPUT(O,P)-(O+7,P+7),2:GOTO7



11 REM DIM - Doc's Impossible Mission - Freed @ Gamopat - 01-2022


[EDIT] Une copie d'écran pour prouver que SONIC existe bien



Alors ça relance le concours ou pas hein? Hein? Oui?

[YannAros]

Joli !
C’est vrai par contre que l’ia des ennemis semble limitée et du coup la durée de vie risque d’être limitée.
Mais 10 lignes c’est très peu pour faire un truc chiadé, déjà qu’avec plus c’est pas simple.

[rocky007]

vraiment cool, la "HD" donne super bien, t'as pas chipoté avec le nbr d'enemis à gérer :mggreen) ...bon il reste 12 jours...tic tac tic tac..

[Invité]

Très joli !! 
Pour ma part j'ai quelques idées en tête, mais je n'ai plus trop la tête au délire, étant revenu un peu sur d'autres points d'intérêts ... Mais qui sait. 

[wulf]

Très joli !! 
Pour ma part j'ai quelques idées en tête, mais je n'ai plus trop la tête au délire, étant revenu un peu sur d'autres points d'intérêts ... Mais qui sait. 

Yep, tout pareil de mon côté

Joli soft @freed , les ennemis sont nombreux mais semblent peu rapides, pourquoi ne pas en mettre moins et des plus véloces ?
L'idée est chouette en tout cas

[freed]

Très joli !! 
Pour ma part j'ai quelques idées en tête, mais je n'ai plus trop la tête au délire, étant revenu un peu sur d'autres points d'intérêts ... Mais qui sait. 

Yep, tout pareil de mon côté

Joli soft @freed , les ennemis sont nombreux mais semblent peu rapides, pourquoi ne pas en mettre moins et des plus véloces ?
L'idée est chouette en tout cas

Leur IA est toute bête effectivement: ils avancent dans la direction du joueur: en diagonale si c'est possible, en X ou en Y sinon... mais uniquement si ce mouvement les rapproche du joueur. Dans la version >10 lignes, ça marchait pas mal parce que pour les personnages bloqués, j'avais suffisamment de place pour mettre des GOTO évitant les tests divers: du coup, les personnages qui étaient "libres" se déplaçaient plus vite.

L'autre option aurait été effectivement de mettre moins de gardes, mais comme ils sont trop faciles à bloquer le jeu perdait en intérêt... Difficile de trouver le bon équilibre en 10 lignes.

Ceci dit, ça fonctionne assez bien car selon les niveaux et l'orientation de chaque pièce, les gardes sont plus ou moins cantonnés à la protection de chaque disquette. Il faut alors user d'un peu de stratégie pour détourner leur attention et les attirer ailleurs. C'est là aussi que j'ai été obligé de faire un choix: gérer un score basé sur le temps (sous forme de bonus) était prévu, mais je n'avais pas trop la place pour ça dans les 10 lignes

Mon dernier regret principal, c'est l'orientation des sprites qui est figée: je n'avais là encore pas la place pour les orienter à droite ou à gauche selon le sens du déplacement (c'est tout con à faire mais il me fallait environ 150 caractères de libres sur 2 lignes différentes - à l'init et au déplacement).

Je pense que le concept (très classique je le reconnais) a du potentiel parce qu'il est simple et efficace: en version un peu plus véloce et avec des niveaux mieux construits, je pense qu'il y a moyen de faire un jeu d'action qui nécessite une dose de stratégie

[F.L]

Impressionnant de faire ça en 10 lignes ! 
Il m'en faudrait 200 pour faire la meme chose

[drfloyd]

Impressionnant de faire ça en 10 lignes ! 
Il m'en faudrait 200 pour faire la meme chose

Bah en optimisant ton code

TOUCHEDECLAVIERAPPUYEE$=INKEY$
IF TOUCHEDECLAVIERAPPUYEE$="S" THEN DIRECTIONCHOISIE$="ALLER A GAUCHE"
IF DIRECTIONCHOISIE$="ALLER A GAUCHE" THEN DIRECTIONX=DIRECTIONX+INT(ABS(1))

[freed]

Impressionnant de faire ça en 10 lignes ! 
Il m'en faudrait 200 pour faire la meme chose

Bah en optimisant ton code

TOUCHEDECLAVIERAPPUYEE$=INKEY$
IF TOUCHEDECLAVIERAPPUYEE$="S" THEN DIRECTIONCHOISIE$="ALLER A GAUCHE"
IF DIRECTIONCHOISIE$="ALLER A GAUCHE" THEN DIRECTIONX=DIRECTIONX+INT(ABS(1))

Genre X=X-(INKEY$="S")*(X>0) quoi
(avec le test pour pas avoir X<0 sinon c'est pas drôle, sachant qu'on décrémente X pour aller à gauche en général).

[drfloyd]

Alors là les programmes de FL passent de 250ko à 3ko 

[freed]

En plus ils deviennent automatiquement des œuvres d'art parce qu'avec ce type d'écriture, on est quasiment en token NFT intégré

[F.L]

En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?

[freed]

En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?

Oh bah non.. D'autant que le code est pas si optimisé que ça en fait... Enfin si, pour tenir en 10 lignes... Mais c'est un critère assez arbitraire

[Copper]

En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?

C'est pas grave mais c'est l'occasion d'apprendre