Re: LE 10LIGNOPAT 2021

[Copper]

Le problème c'est qu'il n'y a pas assez de monde pour faire plusieurs catégories...

Les 10 lignes je préférais quand je les tapais à partir du magazine d'époque (surtout que l'on découvrait le truc qu'au moment de faire RUN)

[rocky007]

ben sans vouloir jeter des fleurs à Gamopat, mais qd on voit le niveau des jeux ici, ion n'a pas à rougir face au concours officiel

[rocky007]

[*]Le basic livré avec la machine + routines ASM (mais le tout en 10 lignes quand même)

le problème est que tous les BASIC ne peuvent pas appeler des routines ASM ou les intégrer directement dans le code BASIC.

[YannAros]

Il ne faut pas non plus tout miser dans la démonstration technique.
L'intérêt d'une telle contrainte est aussi de savoir adapter le jeu au limitations de machine et du langage (avec ici en plus la contrainte de taille de code).
C'est pas parce qu'il y a des sprites HW colorés qui bougent de façon fluide que le jeu est intéressant a jouer.

De tout mes petits jeu c'est celui ci qui à mon sens montre le plus grand intérêt ( https://www.gamopat-forum.com/t114624p240-le-10lignopat#3467529 ):

Pas d'animation, pas de fioriture, mais un challenge intellectuel et des stratégies à découvrir.

[rocky007]

ça c'est certain, un TETRIS est bien plus marrant à jouer qu'un Shadow of The Beast

[Copper]

D'un point de vue graphique on voit quand même bien que le CPC ne fait pas le poids en 100% BASIC (c'est quand même moche et lent) et ça donne pas forcément envie de jouer... Même un jeu de puzzle c'est mieux quand y'a des effets graphiques...

[Invité]

Rooo ... C'est pas forcément beau, mais ça a du charme !! 
Si je gagne l'A600, vu que je n'ai pas de place pour ca, j'en ferai don au 2ème, c'est a dire YannAros ! 

[Copper]

T'es sur ? Même si c'est l'A600 qui servait au sélections de motus ???

[freed]

[*]Le basic livré avec la machine + routines ASM (mais le tout en 10 lignes quand même)

[*]

le problème est que tous les BASIC ne peuvent pas appeler des routines ASM ou les intégrer directement dans le code BASIC.

[*]

C'est vrai que tous les basic n'ont pas un EXEC ou un USR(n)

[freed]

D'un point de vue graphique on voit quand même bien que le CPC ne fait pas le poids en 100% BASIC (c'est quand même moche et lent) et ça donne pas forcément envie de jouer... Même un jeu de puzzle c'est mieux quand y'a des effets graphiques...

Ce n'est pas si moche que ça. Le jeu de puzzle de YannAros est chouette graphiquement je trouve.
Un simple de jeu de "machine à sous" avec les symboles des constructeurs serait un bel exercice.

Franchement mon regret là (mais ça va peut-être changer si on arrive à faire un peu plus de pub sur gamopat et au-delà ) c'est le faible nombre de machines représentées. On a un Spectrum en route (merci Wulf!) mais je m'attendais à voir du MSX et du Thomson en plus grande quantité. Même de l'Alice ou du ZX81 pourquoi pas.

[YannAros]

Rooo ... C'est pas forcément beau, mais ça a du charme !! 
Si je gagne l'A600, vu que je n'ai pas de place pour ca, j'en ferai don au 2ème, c'est a dire YannAros ! 

Merci,
Contrairement à beaucoup ici j'étais et reste fan de l'Amiga, et pas seulement pour le jeu!
J'ai pas mal programmé avec, fais du dessin, de la modélisation 3D. J'ai aussi participé au développement d'Aros le système open source reprenant AmigaOS.
Pour moi son système d'exploitation, une fois sur une machine un peu upgradée, est une merveille.
Les mécanismes sous jacent sont très bien pensés et étaient en 1985/1990 assez novateurs.

[Copper]

C'est vrai que tous les basic n'ont pas un EXEC ou un USR(n)

Oui c'est vrai sur le CPC ça s'appelle CALL

Après faut voir quelles machines sont concernées... Si c'est le TI nonante neuf c'est pas trop grave vu que c'est un 16 bits

Le ZX81 avec seulement 10 lignes et donc 10 instructions j'ai même pas essayé...

[Invité]

Je n'ai jamais été un FAN d'aucune machine pour ma part. J'aime et j'utilise ici le CPC, car ce fut mon premier Micro que j'ai gardé 7 ans avant de passer à l'univers du PC. Les micros 16 bits ( ST/AMIGA/etc ... ) me faisaient clairement rêver, mais je restais avec mon vieux CPC et je dois dire, qu'il a été bien amorti !!  

Ici, j'ai vraiment une carence de place pour agencer un micro et sa boite ...
Si d'aventure je gagne ce concours, je cèderai volontiers le prix à qui de droit ( Ou le Doc décidera ... ) !  

Je participe car je trouve le concept fun et stimulant !

[freed]

Rooo ... C'est pas forcément beau, mais ça a du charme !! 
Si je gagne l'A600, vu que je n'ai pas de place pour ca, j'en ferai don au 2ème, c'est a dire YannAros ! 

Merci,
Contrairement à beaucoup ici j'étais et reste fan de l'Amiga, et pas seulement pour le jeu!
J'ai pas mal programmé avec, fais du dessin, de la modélisation 3D. J'ai aussi participé au développement d'Aros le système open source reprenant AmigaOS.
Pour moi son système d'exploitation, une fois sur une machine un peu upgradée, est une merveille.
Les mécanismes sous jacent sont très bien pensés et étaient en 1985/1990 assez novateurs.

Je veux bien te croire. C'était une période assez intéressante pour unix et ses dérivés. J'ai un peu regardé (de loin j'avoue) ce que Microware avait fait autour d'OS-9 (sur 6809, donc 8 bits) et c'était pas mal aussi pour des machines très peu puissantes finalement. Après, si l'OS de l'Amiga était si bon, je ne comprends pas pourquoi Commodore a cherché à sortir une version d'Unix pour ses machines... Mais c'est une autre histoire et c'est pas le sujet ici (sauf si on fait un OS en 10 lignes de BASIC ? ).

[Invité]

Bon j'ai opti ma formule !

Code:

Q=Q-(t/15 and (len(M$) or len(M2$)))

Le "ABS" était dispensable. :) 
De plus, j'ai bloqué les déplacements en présence de monstres, pour forcer le joueur à combattre et nos à fuir ! On est sur CPC là, un micro d'homme !! 
Toujours sur 8 lignes !! 
Me manque plus qu'à coder un moteur de combat sur une ligne ! 

[freed]

Bon j'ai opti ma formule !

Code:

Q=Q-(t/15 and (len(M$) or len(M2$)))

Le "ABS" était dispensable. :) 
De plus, j'ai bloqué les déplacements en présence de monstres, pour forcer le joueur à combattre et nos à fuir ! On est sur CPC là, un micro d'homme !! 
Toujours sur 8 lignes !! 
Me manque plus qu'à coder un moteur de combat sur une ligne ! 

Avec gestion des points de XP et des sortilèges divers bien-sûr

[rocky007]

Je n'ai jamais été un FAN d'aucune machine pour ma part. J'aime et j'utilise ici le CPC, car ce fut mon premier Micro que j'ai gardé 7 ans avant de passer à l'univers du PC. Les micros 16 bits ( ST/AMIGA/etc ... ) me faisaient clairement rêver, mais je restais avec mon vieux CPC et je dois dire, qu'il a été bien amorti !!  

Ici, j'ai vraiment une carence de place pour agencer un micro et sa boite ...
Si d'aventure je gagne ce concours, je cèderai volontiers le prix à qui de droit ( Ou le Doc décidera ... ) !  

Je participe car je trouve le concept fun et stimulant !

sauf erreur, le A600 c'était un joke, il n'y a rien à gagner à part toute l'estime que tu auras pour toi même :)

[YannAros]

On est bien d’accord, l’estime de nos pairs est tout ce qu’on recherche!
Par contre il faut un gage pour les perdants

[drfloyd]

ben sans vouloir jeter des fleurs à Gamopat, mais qd on voit le niveau des jeux ici, ion n'a pas à rougir face au concours officiel

Carrement, faites gaffe à pas vous faire piquer votre code !

le concours officiel c'est désormais ici 

[youki]

Si d'aventure je gagne ce concours, je cèderai volontiers le prix à qui de droit ( Ou le Doc décidera ... ) !  

Bon , reve pas c'est pas toi qui va gagner malgres la grande qualité de tes réalisations... c'est ce tricheur de Rocky..

Et puis , C'est pas parce que toi non plus tu n'en veut pas de l' AMIGA qu'il faut etre cruel et le refiler a quelqu'un d'autre!   ..  c'est un concours Amical, ca se fait des trucs comme ca entre Amis...   si tu gagne l'Amiga et que tu en veux pas.. ben tu fais comme tout le monde , tu le fou a la poubelle!

[freed]

On est bien d’accord, l’estime de nos pairs est tout ce qu’on recherche!
Par contre il faut un gage pour les perdants

T'es pas sympa avec Copper je trouve.  




 

[freed]

ben sans vouloir jeter des fleurs à Gamopat, mais qd on voit le niveau des jeux ici, ion n'a pas à rougir face au concours officiel

Carrement, faites gaffe à pas vous faire piquer votre code !

le concours officiel c'est désormais ici 

Bah le code il risque rien, mais ce sont nos concepts de gameplay et le reste qu'on va nous piquer pour faire les nouveaux jeux à la mode sur smartphone

[Copper]

On est bien d’accord, l’estime de nos pairs est tout ce qu’on recherche!
Par contre il faut un gage pour les perdants

T'es pas sympa avec Copper je trouve.  




 

Je ne peux pas perdre en déclarant forfait.. Toi par contre...

[freed]

On est bien d’accord, l’estime de nos pairs est tout ce qu’on recherche!
Par contre il faut un gage pour les perdants

T'es pas sympa avec Copper je trouve.  




 

Je ne peux pas perdre en déclarant forfait.. Toi par contre...

Moi quoi? J'ai été le premier à proposer un truc sur Tandy. Donc je suis au moins premier à quelque chose

[rocky007]

ben sans vouloir jeter des fleurs à Gamopat, mais qd on voit le niveau des jeux ici, ion n'a pas à rougir face au concours officiel

Carrement, faites gaffe à pas vous faire piquer votre code !

le concours officiel c'est désormais ici 

perso je pense convertir mes codes en NFT... Youki a déjà posé une option :)

[Invité]

DONJON

Le Doc a été emprisonné dans le DONJON, l'antre des rageux du RétroGaving. Il doit trouver la sortie, la fameuse échelle, en tachant de survivre face aux rageux présents !

Il devra combattre et chercher des coffres pour se soigner.

- Appuyer sur ESPACE pour intéragir ( Coffre, Combat monstre ). Lors des combats, vous aurez des risques d'être blessé, si mort, vous recommencerez !

- Touches fléchées pour vous déplacez.

- En présence de monstre, vous ne pourrez pas fuir !

Code :

Code:

10 Mode 1:ink 0,0:border 0:ink 1,26:ink 2,6:ink 3,24:dim t(30,30):pen 2:locate 17,13:? "<DONJON>":for i=1 to 25:for j=1 to 25:v=1:randomize time:t(i,j)=int(rnd*4)+3:q=t(i,j):border j:next:next:x=12:y=25: U2$=chr$(221):U1$=chr$(220):U$=chr$(207)

20 T$=chr$(8):Y$=chr$(10):a=1:xx=int(rnd*20)+1:yy=int(rnd*20)+1:t(xx,yy)=10:cls:P1$=chr$(143):while(a<6):a=a+1:F$=F$+P1$+P1$+P1$+y$+t$+t$+t$:D$=D$+U$+U1$+y$+t$+t$+t$:S$=S$+U2$+U$+y$+t$:wend:border 0:if m1=0 then Ch=int(rnd*22):t=0 else CH=99

30 Z$=p1$+y$+t$+P1$+y$+t$+chr$(212)+y$+t$:E$=p1$+y$+t$+P1$+y$+t$+chr$(213)+y$+t$:C$=chr$(222)+U$+chr$(223)+y$+t$+t$+t$+P1$+chr$(232)+P1$+y$+t$+t$+t$+P1$+P1$+P1$:M1$=chr$(235):pen 3:locate 15,10:? f$:locate 18,10:?f$:if jj>=1 then border 6:q=q-jj:jj=0

40 if CH<>99 then m1=0:M$=chr$(225)+y$+t$+t$+chr$(151)+M1$+chr$(182)+y$+t$+t$+chr$(191):M2$=M$:l=0:TR=CH:if CH<=2 then M$="":M2$="" else if CH<=5 then C$="":M$="" else if CH<=7 then C$="":M2$="" else if CH<=9 then C$=""else C$="":M$=""
:M2$=""

50 while(b<6):b=b+1:pen 3:locate 13,9+b:? D$:locate 21,9+b:? s$:wend:x$=chr$(245):O$=P1$+P1$+y$+t$+t$+P1$+P1$:pen 1:for i=1 to 6:locate 17,16-i:? h$:next:if m1=2 then m1=0:C$="" else m1=0:if TR>2 or CH=99 then c$=""

60 R$=M$+M2$:MY=(INKEY(0)=0 AND y>1 and O$<>"" and R$="")-(INKEY(2)=0 AND y<25 and x$<>"" and R$=""):MX=(INKEY(8)=0 AND x>1 and z$<>"" and R$="")-(INKEY(1)=0 AND x<25 and e$<>"" and R$=""):L=MX+MY:x=x+MX:Y=Y+MY:H=T(X,Y):if INKEY(47)=0 and ff=0 then ff=1

70 randomize time:border 0:t=t+1-(t and 8):pen 1:locate 1,1:?"SANTE ":pen 2:for i=1 to q:locate i+6,1:?chr$(228);" ":next:pen 1:locate 17,18:?C$:if Y=1 then O$="" else if X=1 then z$="" else if X=25 then e$="" else if Y=25 then x$=""

80 if h$<>"" then end else if ff then ff=0:jj=0:if M$<>"" and m1=0 then M$="":m1=1:jj=t/6:SOUND 1,0,25,12,,,25 else if M2$<>"" and m1=0 then M2$="":m1=1:jj=t/6:SOUND 1,0,25,12,,,25 else if C$<>"" and m1=0 then C$="":Q=Q+1:m1=2:SOUND 2,100,7,15:border 26

90 if Q<=1 then clear:pen 1:goto 10 else locate 17,22:? x$:pen 2:locate 15,16:?M$:locate 20,15:?M2$:if h=4 then E$="":Z$="" else if h=5 then O$="" else if h=6 then O$="":E$="" else if h=7 then E$="":O$="" else if h=10 then O$="":h$=chr$(151)+chr$(157)

100 sound 3,600-rnd*200,q/2,7:pen 0:locate 17,13:? O$:pen 0:locate 12,15:? Z$:locate 23,15:? E$:while (l=0 and M1=0):randomize time:goto 60:wend:cls:b=1:a=1:F$="":S$="":D$="":ww=0:goto 20



Vidéo :

Bon il s'agit du jeu le plus abouti et sur lequel j'ai passé le plus de temps !! 

J'en suis assez content et ça sera un bon challenger pour le titre !! 

Bon jeu !!

[wulf]

D'un point de vue graphique on voit quand même bien que le CPC ne fait pas le poids en 100% BASIC (c'est quand même moche et lent) et ça donne pas forcément envie de jouer... Même un jeu de puzzle c'est mieux quand y'a des effets graphiques...

Ce n'est pas si moche que ça. Le jeu de puzzle de YannAros est chouette graphiquement je trouve.
Un simple de jeu de "machine à sous" avec les symboles des constructeurs serait un bel exercice.

Franchement mon regret là (mais ça va peut-être changer si on arrive à faire un peu plus de pub sur gamopat et au-delà ) c'est le faible nombre de machines représentées. On a un Spectrum en route (merci Wulf!) mais je m'attendais à voir du MSX et du Thomson en plus grande quantité. Même de l'Alice ou du ZX81 pourquoi pas.

Merci @freed

Le ZX81 est un ordi interessant, il y avait (il y a) une foultitude de petits jeux possibles sur 1 Ko, mais par contre , il ne tolère qu'une instruction par ligne, ce qui rend difficile un 10 lignes. Pour un For/Next, tu vas bouffer 3 lignes différentes : 
5 DIM A(10)
10 For N=1 TO 10
20 LET A(N) = INT(RND*10)+1
30 NEXT N

Alors que sur les autres ordis, tout cela rentre sur une seule ligne de commandes
Mais sur le ZX81, ça n'empêchait pas une optimisation à mort pour rester dans une limite de 1024 octets de prog (et encore)

[Invité]

Le Donjon Master du pauvre a fait forte impression !
Ce soir on en parlera sur le live Twitch de Mo5.com !

[drfloyd]

Prise en compte de DONJON pour le concours, excellent.

Imagine ce jeu en 40ko au lieu de 10 lignes ! L'entail de possibilités infinies 

[Copper]

Après y a quand même eu bloodwych sur le CPC ...

[freed]

Le Donjon Master du pauvre a fait forte impression !
Ce soir on en parlera sur le live Twitch de Mo5.com !

Bonne pub pour Gamopat ça, bravo!