Re: LE 10LIGNOPAT 2021

par freed Sam 15 Jan 2022 - 19:38

Copper a écrit:Sur le CPC 464 on ne pouvait pas mettre d'instructions après DATA (seulement avant) mais par contre sur le 664/6128 c'était possible d'en mettre aussi après...

Par contre c'est moyen pour la lisibilité du code Mr. Green

Là j'ai des sprites de 8x8, je vais pas pouvoir en coller plus de 3 par ligne de data (je les encode dans une chaîne de caractères pour gagner de la place)... Donc ça me laisse une 60aine de caractères sur chaque ligne de data pour y mettre quelques instructions. Je sais pas si je vais m'en sortir, j'ai encore eu les yeux plus gros que le ventre Mr. Green

En tout cas si ça marche ce sera ma petite victoire à moi Mr. Green

par rocky007 Sam 15 Jan 2022 - 20:32

wulf a écrit:Bon ça suffit les bêtises, and now this is what the world was waiting for... comme on dit

"Les suppos de Satan" : un 10 lignes pour ZX Spectrum

je suis étonné de la vitesse, c'est vraiment réactif, bravo

par **Copper** Sam 15 Jan 2022 - 20:38

freed a écrit:Par contre c'est moyen pour la lisibilité du code

En même temps le vieux BASIC n'est pas ce qui se fait de mieux question lisibilité du code Razz

par freed Dim 16 Jan 2022 - 9:48

Copper a écrit:
freed a écrit:Par contre c'est moyen pour la lisibilité du code
En même temps le vieux BASIC n'est pas ce qui se fait de mieux question lisibilité du code

Bah c'est comme tout: si tu structures bien ton programme, que tu évites les imbrications, les raccourcis (genre a=(b>0)+2 ) et que tu poses des commentaires régulièrement, ça reste très lisible. Là, l'exercice ne s'y prête pas du tout, mais c'est ce qui le rend intéressant... Sauf quand tu n'arrives plus à relire ton propre code, ce qui m'arrive chaque jour Mr. Green

par **drfloyd** Dim 16 Jan 2022 - 10:11

Génial, le ZX Spectrum rejoint la partie !!!!!!!

En support "historique" il ne manque vraiment que le MSX désormais

par freed Dim 16 Jan 2022 - 10:17

drfloyd a écrit:En support "historique" il ne manque vraiment que le MSX désormais

Et la famille Thomson tout de même, sinon cela voudrait définitivement dire que le PIT n'a servi à rien Mr. Green

LE 10LIGNOPAT 2021 - Page 32 838_000_app2001031625091

par rocky007 Dim 16 Jan 2022 - 10:24

surtout que sur Thomson, j'ai été bluffé par jeu qui avait été proposé, c'était pas en 10 lignes, mais c'est qd même très beau :

https://mobile.twitter.com/basic10l/status/1247609715858825216

par wulf Dim 16 Jan 2022 - 10:42

Oui, il manque un jeu sur TO7/70

et sur Oric Atmos !

Et que dire d'un glorieux barbu qui nous pondrait quelque chose sur Apple II , support qui apparaissait comme le truc le plus pro et le plus cool à la fois. Mais peu répandu en raison de son prix
Y'a pas des fils d'anciens dentistes ou chrirurgiens dans la salle ? cyclops

par **drfloyd** Dim 16 Jan 2022 - 11:34

Dans les gros supports répandus il manque THOMSON, MSX, ORIC et ATARI XL

Sinon oui si un fils de Directeur de l'EDF en 1981 peut nous pondre un 10lignopat APPLE II Mr. Green

Après il y a encore EXL100, Alice, Hector, EINSTEIN, ENTERPRISE 64, etc... Mr. Green

par **Copper** Dim 16 Jan 2022 - 11:44

Il manque surtout le ZX81 mais bon il faut faire un 10INSTRUCTIONOPAT Razz

par YannAros Lun 17 Jan 2022 - 16:45

Une petite adaptation en cours d'une de mes entrées sur une nouvelle machine:

Mais quelle machine?

par wulf Lun 17 Jan 2022 - 18:25

@YannAros c'est sur Thomson ?

par YannAros Lun 17 Jan 2022 - 18:44

wulf a écrit:@YannAros c'est sur Thomson ?

Non, une petit bout du code pour vous mettre sur la piste:

Code:: 10 DIM C(7):FOR I=0 TO 7:READ C(I):NEXT I:M=1000:S=0:DATA 1,2,3,4,6,9,12,13 20 GR:FOR X=1 TO 18:FOR Y=1 TO 18:COLOR=C(8*RND(1)):PLOT X*2,Y*2:NEXT Y:NEXT X:X=9:Y=9

par **Copper** Lun 17 Jan 2022 - 18:53

Apple II ?

par YannAros Lun 17 Jan 2022 - 18:55

Copper a écrit:Apple II ?

Oui!
Le petit « GR » a dû te mettre sur la voie.

par **Copper** Lun 17 Jan 2022 - 19:14

Exactement...

par **drfloyd** Lun 17 Jan 2022 - 19:28

Pour motiver les dev 10Lignopat sur Amstrad :

Vous avez vu ca ! BORDEL !!!! Le Tetris sur CPC en pur basic !

Ce n'est pas en 10 lignes (mais en 30ko), mais sans triche (le listing est disponible)

!!!!!!!!

par Invité Lun 17 Jan 2022 - 19:37

Ouep étonnant

par YannAros Lun 17 Jan 2022 - 19:39

Donc voici ma nouvelle entrée pour Apple II :

Le titre et le scénario sont les même que pour la version Amstrad CPC

Le titre : "Too flashy color lines - not for color blinded nor C64..."

Le but du jeu :
Aligner des cases d'une même couleur pour former des lignes horizontales ou verticales les plus longues possible
La case active se déplace avec les flèches, la case de départ prend la couleur de la case d'arrivée lors d'un déplacement.
Vous avez 1000 déplacements.

Le scénario :
Vous incarnez un Gamopat maniaco-dépressif, votre collection de jeu CIB a été mise sans dessus-dessous par un atariste qui n’a toujours pas digéré que l’amiga ait été une bien meilleure machine. Avec votre camisole vous ne pouvez faire que des mouvements très limités du coup le rangement prend du temps. Alignez les jeux par éditeur (couleur) pour redonner un semblant de gloire à votre collection!

Le code:

Code:: 10 DIM C(7):FOR I=0 TO 7:READ C(I):NEXT I:M=1000:S=0:DATA 1,2,3,4,6,9,12,13 20 GR:FOR X=1 TO 18:FOR Y=1 TO 18:COLOR=C(8*RND(1)):PLOT X*2,Y*2:NEXT Y:NEXT X:X=9:Y=9 30 HOME:?"MOVE LEFT :"M;:COLOR=15:GOSUB 100 40 GET K$:K=ASC(K$):DX=(K=21 AND X<18)-(K=8 AND X>1):DY=(K=10 AND Y<18)-(K=11 AND Y>1) 50 IF (DX OR DY) THEN COLOR=0:GOSUB 100:X=X+DX:Y=Y+DY:M=M-1:COLOR=SCRN(2*X,2*Y):PLOT 2*(X-DX),2*(Y-DY) 60 IF M>0 THEN GOTO 30 70 COLOR=15:FOR I=1 TO 18:DS=0:SP=0:FOR J=1 TO 18:CP=SCRN(2*I,2*J):PLOT 2*I,2*J+1:DS=DS+(CP=SP):DS=DS*(CP=SP):S=S+DS*(CP=SP):SP=CP:HOME:?"SCORE :"S;:NEXT J:NEXT I 80 FOR J=1 TO 18:DS=0:SP=0:FOR I=1 TO 18:CP=SCRN(2*I,2*J):PLOT 2*I+1,2*J:DS=DS+(CP=SP):DS=DS*(CP=SP):S=S+DS*(CP=SP):SP=CP:HOME:?"SCORE :"S;:NEXT I:NEXT J:END 100 A=2*X:B=2*Y:HLIN A-1,A+1 AT B-1:PLOT A-1,B:PLOT A+1,B:HLIN A-1,A+1 AT B+1:RETURN

Une image dsk pour essayer en ligne :

https://sourceforge.net/projects/zunetools/files/10Liners/COLORS.DSK/download

L'émulateur est dispo ici :

https://www.scullinsteel.com/apple2/

par **Copper** Lun 17 Jan 2022 - 19:40

drfloyd a écrit:Pour motiver les dev 10Lignopat sur Amstrad :

Vous avez vu ca ! BORDEL !!!! Le Tetris sur CPC en pur basic !

Ce n'est pas en 10 lignes (mais en 30ko), mais sans triche (le listing est disponible)

!!!!!!!!

Et dire que tu disais que le BASIC Amstrad était pas si bien que ça Razz

par freed Lun 17 Jan 2022 - 19:51

Copper a écrit:
drfloyd a écrit:Pour motiver les dev 10Lignopat sur Amstrad :

Vous avez vu ca ! BORDEL !!!! Le Tetris sur CPC en pur basic !

Ce n'est pas en 10 lignes (mais en 30ko), mais sans triche (le listing est disponible)

!!!!!!!!
Et dire que tu disais que le BASIC Amstrad était pas si bien que ça

Non, c'est toi qui dit qu'on ne peut rien faire sans une routine assembleur Mr. Green

par YannAros Lun 17 Jan 2022 - 19:52

Copper a écrit:
drfloyd a écrit:Pour motiver les dev 10Lignopat sur Amstrad :

Vous avez vu ca ! BORDEL !!!! Le Tetris sur CPC en pur basic !

Ce n'est pas en 10 lignes (mais en 30ko), mais sans triche (le listing est disponible)

!!!!!!!!
Et dire que tu disais que le BASIC Amstrad était pas si bien que ça

Par contre je ne sais pas si c’est motivant ou plutôt le contraire

par **Copper** Lun 17 Jan 2022 - 20:46

freed a écrit:Non, c'est toi qui dit qu'on ne peut rien faire sans une routine assembleur

Non j'ai dis que moi je ne pouvais rien faire d'intéressant Razz

(mais il est vrai que je ne connaissais pas cette technique)

Après pour mon 10 lignes j'aurais pas pu faire exactement la même chose sans asm.... Razz

par Invité Lun 17 Jan 2022 - 23:34

J'ai pas regardé le listing de 30Ko, je ne suis pas maso à ce point là ... Mais j'imagine qu'il y a des astuces de sioux la derrière ... Bref, belle performance quoiqu'il en soit, mais revenons à nos 10 lignes, merci.

Bien joué YannAros en tout cas !! thumleft

par rocky007 Mar 18 Jan 2022 - 0:37

pfff le mec il est fort.. il a fait un Tetris en ..1 ligne !

https://bbc.godbolt.org/?embedBasic=0G.9%0A1MO.2%3AGC.0%2C-9%3ACLG%3AA%25%3D135%3Ad%3D9%3ATI.%3D0%3AREP.P.CHR%2430TI.%3A%0A2REP.IFUSR-12A.8192P.%3AU.0EL.V.9%3AIFLOGPOS%20V.28%3BVP.%2C9%2C1%2C11%2C26%3AU.0EL.U.VP.%3D26%3A%0A3v%3D3A.RND%3Ai%3D0%3AV.31%2C5%2C4%3AREP.m%3D9-INKEY0MOD3%3AF.r%3DTRUE%20TO1%3At%3Dr%20A.SGNt%3A%0A4IFt%3Dr%20C.v-15%3AV.r%20EORm%3AIFm%3D7i%3Di%2B9-6*r%3AIF0EL.F.n%3D0TO11%3Ad%3Dn%20DIV3OR2EORd%3AV.d%3A%0A5IF2%5E((n%2Bi)MOD12)A.364780DIV8%5Ev%20A.975t%3Dt%2BPO.64*POS%2C1E3-VP.*32)%3AIFr%20V.32%2C8%3AIF0EL.%0A6N.%2C%3AV.20%3AU.t*LOGm%3AU.VP.%3D4%0A9L%3DPA.%2B3%3Ab%3DL%2B1%3AF.a%3Db%2B%3FL%20TOTOP%3A%3Fb%3D%3Fa%3Ab%3Db-(%3Fa%3C%3E32)%3Aa%3Da-4*(a%3F1%3D13)%3AN.%3A%3FL%3D255%3A!(PAGE%2B255)%3D-243%3ARUN

par **drfloyd** Mar 18 Jan 2022 - 8:42

33 programmes en compétition !

par **Copper** Mar 18 Jan 2022 - 9:03

Vetea a écrit:J'ai pas regardé le listing de 30Ko, je ne suis pas maso à ce point là ... Mais j'imagine qu'il y a des astuces de sioux la derrière ... Bref, belle performance quoiqu'il en soit, mais revenons à nos 10 lignes, merci.

Bien joué YannAros en tout cas !!

Je dois être maso alors Razz

par rocky007 Mar 18 Jan 2022 - 10:33

drfloyd a écrit:33 programmes en compétition !

35, tu as oublié :

https://www.gamopat-forum.com/t114624p810-le-10lignopat#3475005

https://www.gamopat-forum.com/t114624p540-le-10lignopat#3472323

par **drfloyd** Mar 18 Jan 2022 - 10:42

je suis débordé. MAJ !

par YannAros Mar 18 Jan 2022 - 15:21

Il doit y avoir beaucoup de monde qui suit ce fils, mon jeu pour Apple II a déjà été téléchargé 80 fois depuis hier!
Ou alors la communauté Apple II ,'a vraiment plus rien à se mettre sous les dents Very Happy

par freed Mar 18 Jan 2022 - 18:55

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 Mr. Green