LE 10LIGNOPAT 2021 : RESULTATS !
+17
sebchoq
goux.m
TotOOntHeMooN
Papy cpc
Kristof
oiseau de proie
Xorion
Matari
Templeton
Anarwax
rocky007
wulf
youki
freed
Copper
drfloyd
YannAros
21 participants
GAMOPAT :: PSYCHIATRIE :: LES CODEURS FOUS :: 10LIGNOPAT
Page 1 sur 27
Page 1 sur 27 • 1, 2, 3 ... 14 ... 27
Quel est selon vous le meilleur 10LINOPAT 2021 ? (meilleur jeu selon vous, en tenant aussi compte de la machine utilisée)
LE 10LIGNOPAT 2021 : RESULTATS !
Le topic précédent (si vous voulez retrouver des infos sur chaque jeu : le scénario, le code, comment jouer, comment émuler le jeu....) :
https://www.gamopat-forum.com/t114624-le-10lignopat
Pour le vote vous devez choisir le jeu qui correspond le plus à ces critères :
1 - fun du jeu
2 - optimisation de la puissance de la machine
3 - respect du thème
Le meilleur mix selon vous
Bon vote ! Ils se termineront dimanche 13 février à 14h !
_______________________________________________________________________________________________________________________________
Allez hop on lance notre propre concours de programme basic 8bit en 10 lignes de code maximum !!!!
LE 10LIGNOPAT édition 2021
Les règles :
- N'importe quel ordinateur 8 bit (de préfèrence CPC, Spectrum, MSX, Thomson ou C64 pour tester plus facilement en réel ou sur ému)
- Utiliser le BASIC standard livré avec la machine
- 10 lignes maximum avec autant de caractères que chaque lignes puisse supporter
- PEEK et POKE autorisés (mais pas pour encoder une routine Assembleur bien sur)
- Un thème en lien direct avec l'univers Gamopat ou le Doc
On fait le point le 31 janvier 2022 sur les programmes proposés avec la cérémonie des 10LIGNOPAT D'OR 2021
- Meilleurs graphismes (hors animations, sur ecran fixe)
- Meilleures animations
- Meilleure bande sonore
- Meilleur scénario
- 10Lignopat d'Or du meilleur jeu 1ere génération (machines : Amstrad, Spectrum, C64, Oric, Thomson, MSX...)
- 10Lignopat d'Or du meilleur jeu 2eme génération (machines : C128, Ti99 étendu, MSX2/2+)
Etoile de Doc pour les gagnants du 10lignopat d'Or
+ un cadeau à choisir parmi ces 5 jeux :
Vous pouvez proposer autant de programmes que vous voulez.
C'est un concours pour le fun où il n'y a rien d'important à gagner, donc ne cherchez pas à repomper un code sur le web, créez votre propre programme... L'important c'est de participer et de s'amuser !
Vu que les programmes seront très court, vous pouvez publier directement le code en mode texte sur votre post en utilisant le bouton CODE
Bon 10LIGNOPAT !!!!!!
LES PARTICIPANTS :
YOUKI avec "GAMOPAT Hospital: Le couloir des Amigateux", sur C64
VIDEO
FREED avec "DOCATHLON" sur TRS Coco 2
et sa suite, DOCATHLON 2
FREED avec BOMB CHASE sur TRS Coco 2
YANNAROS avec 16BIT DEATH RACE SUR Amstrad CPC
YANNAROS avec THE COMMODORE BASHING EXPERIENCE sur Amstrad CPC[/b]
YANNAROS avec MY BOULETTE IS BIGGER THAN YOURS sur Amstrad CPC
YOUKI avec la version Amstrad CPC du Couloir des Amigateux
Couloir des amigateux CPC
YANNAROS avec "Too flashy color lines - not for color blinded nor C64..." sur Amstrad CPC
sur Apple II
et sur le MO5 de Thomson
VETEA avec BAD DOC sur Amstrad CPC
VETEA avec CHASEDOC sur Amstrad CPC :
VETEA avec VIRUS! version 2 sur Amstrad CPC
VETEA avec APOS'DOC sur Amstrad CPC
YANNAROS avec THE ANTIDOTE sur Amstrad CPC
YANNAROS avec COOPERLIST sur Amstrad CPC
ROCKY007 avec DOC'N RUSH SUR TI 99 BASIC ETENDU
ROCKY007 avec AMIGA FORMAT toujours sur TI99 BASIC ETENDU
ROCKY007 avec FROGOPAT encore sur TI99 basic étendu
ROCKY007 avec AMIGA EXPLORER sur Ti99 étendu
ROCKY007 avec Bombajet sur TI99 étendu :
ROCKY007 avec ASH*HOLE sur TI99 Basic étendu
ROCKY007 avec YOUKI GO! sur Ti99 basic étendu
YOUKI avec CHICKENDOC sur Commodore 128
chickenDoc la video
YOUKI avec LOTUS CHALLENGE SUR C128
http://www.atomicfe.com/divers/c64/lotuschallenge.mp4
YOUKI avec SUPPO FIGHTER sur C128
http://www.atomicfe.com/divers/c64/suppofighter.mp4
YOUKI avec Shadow of the B*te sur C128
shadow.mp4
YOUKI avec THE SUPPO GAMES sur C128
video de suppo games
YOUKI avec GAMOJET sur C128
Video gamojet
YOUKI avec YOUSKI sur C128
VIDEO de YOUSKI
VETEA avec DONJON sur Amstrad CPC
YANNAROS avec GET ME OUT sur Amstrad CPC
WULF avec les SUPPOS DE SATAN sur ZX Spectrum
ROCKYOO7 avec COMMODORE BREAKER sur TI99 étendu
ROCK007 avec BOMB DIZ AMIGA sur TI99étendu
Freed avec DIM (DOC's IMPOSSIBLE MISSION) sur un micro 8bit rare : le COCO 3 !
YANNAROS avec Amiga Extraction sur Amstrad CPC
Youki avec SHIFUPSTRIP sur Commodore +4/16
Video du jeu
YOUKI avec GAMOSTRIP sur C128 (sans Sprite ni POKE)
Video de Maria Mediumlolo
http://www.atomicfe.com/divers/c64/strip_sam.mp4
http://www.atomicfe.com/divers/c64/strip_maria.mp4
http://www.atomicfe.com/divers/c64/strip_geisha.mp4
YANNAROS avec La chasse à la bonne affaire sur Amstrad CPC
Youki avec GURU MASTURBATION sur Commodore 128
VIDEO CLASSE X
ROCKY007 avec SAVE MY APPLES sur TI99 étendu
TEMPLETON avec BUGGY DOC sur C128
Video de Buggy C128
YANNAROS avec ROADKILL sur Amstrad CPC
COPPER avec BLITZX sur ZX81 (16ko)
COPPER avec DOCOBAN sur Amstrad CPC
ROCKY007 avec DEEPER & DEEPER sur Ti99étendu
https://www.gamopat-forum.com/t114624-le-10lignopat
Pour le vote vous devez choisir le jeu qui correspond le plus à ces critères :
1 - fun du jeu
2 - optimisation de la puissance de la machine
3 - respect du thème
Le meilleur mix selon vous
Bon vote ! Ils se termineront dimanche 13 février à 14h !
_______________________________________________________________________________________________________________________________
Allez hop on lance notre propre concours de programme basic 8bit en 10 lignes de code maximum !!!!
LE 10LIGNOPAT édition 2021
Les règles :
- N'importe quel ordinateur 8 bit (de préfèrence CPC, Spectrum, MSX, Thomson ou C64 pour tester plus facilement en réel ou sur ému)
- Utiliser le BASIC standard livré avec la machine
- 10 lignes maximum avec autant de caractères que chaque lignes puisse supporter
- PEEK et POKE autorisés (mais pas pour encoder une routine Assembleur bien sur)
- Un thème en lien direct avec l'univers Gamopat ou le Doc
On fait le point le 31 janvier 2022 sur les programmes proposés avec la cérémonie des 10LIGNOPAT D'OR 2021
- Meilleurs graphismes (hors animations, sur ecran fixe)
- Meilleures animations
- Meilleure bande sonore
- Meilleur scénario
- 10Lignopat d'Or du meilleur jeu 1ere génération (machines : Amstrad, Spectrum, C64, Oric, Thomson, MSX...)
- 10Lignopat d'Or du meilleur jeu 2eme génération (machines : C128, Ti99 étendu, MSX2/2+)
Etoile de Doc pour les gagnants du 10lignopat d'Or
+ un cadeau à choisir parmi ces 5 jeux :
Vous pouvez proposer autant de programmes que vous voulez.
C'est un concours pour le fun où il n'y a rien d'important à gagner, donc ne cherchez pas à repomper un code sur le web, créez votre propre programme... L'important c'est de participer et de s'amuser !
Vu que les programmes seront très court, vous pouvez publier directement le code en mode texte sur votre post en utilisant le bouton CODE
Bon 10LIGNOPAT !!!!!!
LES PARTICIPANTS :
YOUKI avec "GAMOPAT Hospital: Le couloir des Amigateux", sur C64
VIDEO
FREED avec "DOCATHLON" sur TRS Coco 2
et sa suite, DOCATHLON 2
FREED avec BOMB CHASE sur TRS Coco 2
YANNAROS avec 16BIT DEATH RACE SUR Amstrad CPC
YANNAROS avec THE COMMODORE BASHING EXPERIENCE sur Amstrad CPC[/b]
YANNAROS avec MY BOULETTE IS BIGGER THAN YOURS sur Amstrad CPC
YOUKI avec la version Amstrad CPC du Couloir des Amigateux
Couloir des amigateux CPC
YANNAROS avec "Too flashy color lines - not for color blinded nor C64..." sur Amstrad CPC
sur Apple II
et sur le MO5 de Thomson
VETEA avec BAD DOC sur Amstrad CPC
VETEA avec CHASEDOC sur Amstrad CPC :
VETEA avec VIRUS! version 2 sur Amstrad CPC
VETEA avec APOS'DOC sur Amstrad CPC
YANNAROS avec THE ANTIDOTE sur Amstrad CPC
YANNAROS avec COOPERLIST sur Amstrad CPC
ROCKY007 avec DOC'N RUSH SUR TI 99 BASIC ETENDU
ROCKY007 avec AMIGA FORMAT toujours sur TI99 BASIC ETENDU
ROCKY007 avec FROGOPAT encore sur TI99 basic étendu
ROCKY007 avec AMIGA EXPLORER sur Ti99 étendu
ROCKY007 avec Bombajet sur TI99 étendu :
ROCKY007 avec ASH*HOLE sur TI99 Basic étendu
ROCKY007 avec YOUKI GO! sur Ti99 basic étendu
YOUKI avec CHICKENDOC sur Commodore 128
chickenDoc la video
YOUKI avec LOTUS CHALLENGE SUR C128
http://www.atomicfe.com/divers/c64/lotuschallenge.mp4
YOUKI avec SUPPO FIGHTER sur C128
http://www.atomicfe.com/divers/c64/suppofighter.mp4
YOUKI avec Shadow of the B*te sur C128
shadow.mp4
YOUKI avec THE SUPPO GAMES sur C128
video de suppo games
YOUKI avec GAMOJET sur C128
Video gamojet
YOUKI avec YOUSKI sur C128
VIDEO de YOUSKI
VETEA avec DONJON sur Amstrad CPC
YANNAROS avec GET ME OUT sur Amstrad CPC
WULF avec les SUPPOS DE SATAN sur ZX Spectrum
ROCKYOO7 avec COMMODORE BREAKER sur TI99 étendu
ROCK007 avec BOMB DIZ AMIGA sur TI99étendu
Freed avec DIM (DOC's IMPOSSIBLE MISSION) sur un micro 8bit rare : le COCO 3 !
YANNAROS avec Amiga Extraction sur Amstrad CPC
Youki avec SHIFUPSTRIP sur Commodore +4/16
Video du jeu
YOUKI avec GAMOSTRIP sur C128 (sans Sprite ni POKE)
Video de Maria Mediumlolo
http://www.atomicfe.com/divers/c64/strip_sam.mp4
http://www.atomicfe.com/divers/c64/strip_maria.mp4
http://www.atomicfe.com/divers/c64/strip_geisha.mp4
YANNAROS avec La chasse à la bonne affaire sur Amstrad CPC
Youki avec GURU MASTURBATION sur Commodore 128
VIDEO CLASSE X
ROCKY007 avec SAVE MY APPLES sur TI99 étendu
TEMPLETON avec BUGGY DOC sur C128
Video de Buggy C128
YANNAROS avec ROADKILL sur Amstrad CPC
COPPER avec BLITZX sur ZX81 (16ko)
COPPER avec DOCOBAN sur Amstrad CPC
ROCKY007 avec DEEPER & DEEPER sur Ti99étendu
Dernière édition par YannAros le Mar 1 Fév 2022 - 12:51, édité 5 fois
YannAros- Patient incurable
- Nombre de messages : 1494
Age : 50
Localisation : Pas assez loin
Date d'inscription : 24/09/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Chapeau pour DIM sur un ordinateur pour le moins original et rare : le COCO 3 ! Un 8bit tardif et assez puissant qu'on peut peut etre placer dans la catégorie Level 2 avec les 10Lignes sur C128 et Ti99 étendu ?
Le basic semble très très interessant sur cette machine !
j'ai toujours révé d'en avoir un... de Coco 3... pas réussi... et aussi on sait qu'il y a des soucis en France avec son alimentation spéciale qui peut cramer la machine (ce qu'on m'a expliqué)
Le basic semble très très interessant sur cette machine !
j'ai toujours révé d'en avoir un... de Coco 3... pas réussi... et aussi on sait qu'il y a des soucis en France avec son alimentation spéciale qui peut cramer la machine (ce qu'on m'a expliqué)
_______________________________________________________
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Tu risques d'être déçufreed a écrit:Vivement ce week-end que Copper nous présente son 10 lignes
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
drfloyd a écrit:Chapeau pour DIM sur un ordinateur pour le moins original et rare : le COCO 3 ! Un 8bit tardif et assez puissant qu'on peut peut etre placer dans la catégorie Level 2 avec les 10Lignes sur C128 et Ti99 étendu ?
Le basic semble très très interessant sur cette machine !
j'ai toujours révé d'en avoir un... de Coco 3... pas réussi... et aussi on sait qu'il y a des soucis en France avec son alimentation spéciale qui peut cramer la machine (ce qu'on m'a expliqué)
Effectivement c'est une très belle machine et je trouve que les ingénieurs de chez Tandy et Microware ont vraiment bien travailler pour faire un ordinateur à la fois compatible avec le modèle précédent (et c'est pas simple) et en même temps capable d'atteindre des performances assez intéressantes pour un 8 bits: un CPU à 1,79MHz (après un poke), jusqu'à 640x225 pixels en très haute résolution (avec plein de combinaisons intermédiaires possibles et la présence d'un écran virtuel qui permet du scroll vertical et horizontal), la plus classique étant 320x200 en 16 couleurs parmi 64 et surtout une RAM extensible à 512Ko (même 2Mo par la suite).
Sur la RAM, il y a une gestion par banques et c'est vraiment transparent vu du basic avec la commande LPOKE (long poke) qui permet de taper au-delà des classiques 65535...
Maintenant c'est aussi une machine d'entrée de gamme pour l'époque (sortie en 86) et qui a donc ses limitations aussi:
- Pas d'amélioration du côté du son: pas de chipset dédié sauf à utiliser la cartouche "orchestra" optionnelle qui existait déjà pour le coco
- Pour ne pas avoir à payer de nouvelles licences BASIC à Microsoft, Tandy a confié le développement des extension au Basic Etendu à Microware. Du coup au moment du boot le BASIC est copié en RAM puis patché en live pour ajouter les nouvelles instructions. Ca fonctionne même s'il y a quelques bugs (listés et patchés dans la littérature) mais il y a parfois des différences de logique. Par exemple sur les modes graphiques "compatibles" Coco1/2, l'écran fait toujours 256x192 quel que soit le mode graphique: c'est le basic qui convertit les coordonnées pour les résolutions inférieures. Ce n'est pas le cas avec les nouveaux modes graphiques du Coco3.
- On a maintenant accès à des modes textes en 40 et 80 colonnes et on peut afficher du texte dans des graphiques avec la commande HPRINT... Sauf qu'en mode graphique, HPRINT n'efface pas l'écran en dessous. C'est bien ou pas bien, faut juste le savoir
- On peut brancher 3 types d'écrans sur la machine: Composite, RGB et TV (antenne). Et la palette est différente selon l'écran. Ca fait bizarre de lire la doc du BASIC et de ne pas avoir de nom pour chacune des 64 couleurs Cet aspect est assez étrange en fait. Heureusement la commande RGB ou CMP en basic permet de forcer la palette. https://exstructus.com/tags/coco/australia-colour-palette/
- Le Basic ne gère que 4 modes graphiques en plus: 320x192x4, 320x192x16, 640x192x2 et 640x192x4. Les autres modes intermédiaires ne sont pas accessibles (128, 160, 256, 320, 512 et 640 en résolution horizontale). C'est dommage: ça permettrait de faire des jeux basse résolution en 16 couleurs bien plus rapides
- Pas de PCOPY sur les nouveaux modes graphiques. Ca c'est le plus pénible pour la programmation en BASIC. Sur le Coco1/2, la mémoire vidéo est divisée en pages et on peut, depuis le BASIC, dessiner dans n'importe quelle page (même si elle n'est pas affichée à l'écran). C'est assez pratique pour faire des animations mais surtout des jeux car cela permet de gérer plusieurs plans: le décor et les sprites. Et comme PCOPY (pour copier une page sur l'autre) est très rapide, c'est vraiment un plus. Pour les modes graphiques du Coco3, il faut procéder différemment: faire un GET là où on va poser le sprite pour sauvegarder l'arrière plan, poser le sprite, puis une fois que le sprite n'est plus là, poser la sauvegarde. Ca fait beaucoup d'opérations de copier/coller et ça rame (heureusement que les opérations sur les sprites en haute résolution sont plus rapide grâce à une copie mémoire directe et non le passage par une variable).
Bon voilà après 2 semaines sur l'émulateur, je n'ai pas fait le tour de toutes les spécificités de la machine... Mais si elle avait été commercialisée en France, je pense que j'aurais aimé l'avoir après mon Coco2
Dernière édition par freed le Ven 21 Jan 2022 - 9:40, édité 1 fois
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Copper a écrit:Tu risques d'être déçufreed a écrit:Vivement ce week-end que Copper nous présente son 10 lignes
Non je suis sûr que ce sera très bien!
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Copper a écrit:C'est pas grave mais c'est l'occasion d'apprendreF.L a écrit:En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?
Moi je ne comprend meme pas ce que je code , optimisé ou pas!
youki- Docteur *
- Nombre de messages : 13302
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021 : RESULTATS !
youki a écrit:Copper a écrit:C'est pas grave mais c'est l'occasion d'apprendreF.L a écrit:En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?
Moi je ne comprend meme pas ce que je code , optimisé ou pas!
Si Rocky007 n'était pas à la fête du chocolat (Belge), il te répondrait qu'il n'est absolument pas étonné.
De mon côté, j'évite tout commentaire de la sorte car ce n'est pas du tout mon style
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
le seul truc ou ils ils ont vraiment déconné sur le Coco 3, c'est le chipset sonore.... Vraiment étrange.
_______________________________________________________
Re: LE 10LIGNOPAT 2021 : RESULTATS !
drfloyd a écrit:le seul truc ou ils ils ont vraiment déconné sur le Coco 3, c'est le chipset sonore.... Vraiment étrange.
Des rumeurs disent que Tandy ne voulait pas faire d'ombre au Tandy 1000: il fallait cantonner le Coco3 aux possesseurs de Coco2 souhaitant monter en gamme.... Un mode 160x192 en 256 couleurs aurait été prévu mais annulé à cause de ça... donc peut-être qu'il n'y a pas eu d'amélioration côté audio pour ces mêmes raisons, qui sait?
Après, le Coco3 avait 2 modes d'interruptions (contrairement aux modèles précédents) et pouvait donc mieux gérer le chiptune. Mais c'est vrai qu'une puce dédiée aurait vraiment aidé...
Quand on voit ce que des mecs arrivent à faire sur cette bécane en 2020, on se dit qu'on avait un beau 8 bits quand même!
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
ah oui possible, car le Coco 3 s'en sort beaucoup mieux que le Tandy 1000 pour jouer !
T'achete un PC TANDY 1000 équipé d'une carte graphique et sonore et tu vois qu'à côté le mini Coco fait mieux ? Ca fait tache effectivement !
Bon c'est un jeu Coco 3 de 512ko quand meme... Y a celui la aussi, 100% arcade perfect !
Mais bon c'est le grille pain de Commodore a qui a tout raflé
T'achete un PC TANDY 1000 équipé d'une carte graphique et sonore et tu vois qu'à côté le mini Coco fait mieux ? Ca fait tache effectivement !
Bon c'est un jeu Coco 3 de 512ko quand meme... Y a celui la aussi, 100% arcade perfect !
Mais bon c'est le grille pain de Commodore a qui a tout raflé
_______________________________________________________
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Ouais mais pour les 10 lignes, c'est pas dit que le C64 l'emporte, surtout qu'on a réussi à lui tordre le bras au Youki
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Je vote pour le DIGGER III ou le DONKEY KONG parce que pour des 10 lignes c'est impressionnant
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Copper a écrit:Je vote pour le DIGGER III ou le DONKEY KONG parce que pour des 10 lignes c'est impressionnant
Non mais fais pas le modeste, on sait que le jeu que tu vas nous présenter demain sera 10x mieux
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Il va falloir que je publie les regles finales pour le vote (plus que 9 jours)
_______________________________________________________
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Le doc a enfin décidé d'informatiser la saisie de ses fiches patients, pour cela il a acheté un superbe outil de saisie de fiche "ZXFile" pour son ZX81 avec 16Ko de mémoire...
Le code peut-être compilé en .p avec zxtext2p (les % indiquent les caractères en vidéo inversée)
- Code:
10 LET R$="%P%S%E%U%D%O%: %S%E%X%E%: %A%G%E%: %V%I%L%L%E%: %V%O%T%R%E% %C%O%N%S%O%L%E% %R%E%T%R%O% %C%U%L%T%E%:% % % % % % %V%O%T%R%E% %C%O%N%S%O%L%E% %R%E%C%E%N%T%E% %P%R%E%F%E%R%E%E%:% %V%O%T%R%E% %M%I%C%R%O% %R%E%T%R%O% %C%U%L%T%E%:% % % % % % % % %V%O%S% %3% %J%E%U%X% %V%I%D%E%O% %C%U%L%T%E%S%:% % % % % % % % %2% %L%I%V%R%E%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% % % %2% %D%I%S%Q%U%E%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% % %2% %F%I%L%M%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% % % % 7 8 32 37 38 56 61 62 64 70 71 96 128129160192193224256257288320321416448449512544545608640641704"
20 CLS
30 FOR I=1 TO 11
40 PRINT AT 0,0;R$( TO VAL R$(I*9-8+704 TO I*9-6+704))
50 INPUT A$
60 LET R$(VAL R$(I*9-5+704 TO I*9-3+704) TO VAL R$(I*9-2+704 TO I*9+704))=A$
70 NEXT I
80 PRINT AT 0,0;R$( TO 704)
90 PAUSE 32768
100 GOTO 20
Le code peut-être compilé en .p avec zxtext2p (les % indiquent les caractères en vidéo inversée)
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
En 8 instructions cela donne (avec quelques améliorations) :
- Code:
10 DIM O(3)
20 PRINT AT 0,0;" -------------------------------- ";AT 20,O(3);"\':%F%O%C%H\''\''";AT O(1),O(2);"\ .\:.\..%=\..*";AT O(1)+1,O(2)+3;"O"
30 LET O(2)=O(2)-(27.5 AND O(2)>24)+2.5
40 LET O(1)=O(1)+(INKEY$="6")-(INKEY$="7" AND O(1)>0)
50 LET O(3)=O(3)+1-(26 AND O(3)>24)
60 GOTO 20+(50 AND O(1)=19 AND (O(2)+3=O(3) OR O(2)+3=O(3)+1 OR O(2)+3=O(3)+5 OR O(2)+3=O(3)+6))+(60 AND (O(1)>20 OR (O(1)=19 AND (O(2)+3=O(3)+2 OR O(2)+3=O(3)+3 OR O(2)+3=O(3)+4))))
70 PRINT AT O(1),O(2);"ECRASE"
80 IF O(1)>20 THEN PRINT AT O(1),O(2);"PLOUF"
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
wulf offre 1 suppo à ce post!
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Sympa l'utilisation du GOTO!
Par contre je comprends pas le .5 dans
Ca marcherait pas pareil avec 27 au lieu de 27.5?
Par contre je comprends pas le .5 dans
- Code:
LET O(2)=O(2)-(27.5 AND O(2)>24)+2.5
Ca marcherait pas pareil avec 27 au lieu de 27.5?
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
On ajoute 2.5 à chaque fois donc à un moment donné on est à 27.5 d'ou le -27.5 pour revenir à 0.0
Si tu met 27 tu dois revenir à 0.5 logiquement...
Si tu met 27 tu dois revenir à 0.5 logiquement...
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Puree de patates , du ZX81 ! L'ordi qui arrive a forcer les programmeurs a faire tenir un jeu d'échecs avec IA en 1ko
Ta ligne 60, c'est vraiment du furieux de chez furieux. Je n'avais jamais vu un tel enchainement. J'avoue ne pas tout comprendre comment ça fonctionne, si ce n'est que cela remplace des If en cascades.
Bravo.
Ta ligne 60, c'est vraiment du furieux de chez furieux. Je n'avais jamais vu un tel enchainement. J'avoue ne pas tout comprendre comment ça fonctionne, si ce n'est que cela remplace des If en cascades.
Bravo.
Dernière édition par wulf le Dim 23 Jan 2022 - 9:21, édité 1 fois
wulf- Patient incurable
- Nombre de messages : 1544
Age : 53
Localisation : --
Date d'inscription : 28/08/2008
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Copper a écrit:On ajoute 2.5 à chaque fois donc à un moment donné on est à 27.5 d'ou le -27.5 pour revenir à 0.0
Si tu met 27 tu dois revenir à 0.5 logiquement...
Bah sur mon ordi, si je fais un print (27.5 AND -1) ou print (27 AND -1) il me donne le même résultat, à savoir 27
Ca dépend peut-être du BASIC...
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Le ZX81 donne bien 27.5 et le CPC 28
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Copper a écrit:Le doc a enfin décidé d'informatiser la saisie de ses fiches patients, pour cela il a acheté un superbe outil de saisie de fiche "ZXFile" pour son ZX81 avec 16Ko de mémoire...
j'ai pas bien compris le truc...c'est une base de donnée ou un jeu ?
rocky007- Interne
- Nombre de messages : 9277
Age : 50
Date d'inscription : 29/01/2011
Re: LE 10LIGNOPAT 2021 : RESULTATS !
C'est un simulateur de gestion de fichier...
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Un simulateur en 10 lignes sur ZX81 c'est quand même le truc extraordinaire non?
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Je poste la dernière partie de ma Pentalogie "Super AmigaMan".
Après avoir :
- Récolté les disquettes de Démos dans "My boulette is bigger than yours".
- Retrouvé sa forme normal suite à l'attaque fourbe de la secte des admirateurs du "Gland Vert" dans "The Antidote"
- Ecrasé un maximum d'Atarist en amenant à temps les disquettes de Démo à la convention Amiga dans "Road Kill"
- et remplacé le copper d'Agnus suite à son vol par des extrémistes Atarist dans "Copper List"
Il faut maintenant que Super AmigaMan sorte de L'Amiga dans lequel il avait pris la place du Copper.
Pour cela il va devoir se faufiler à l'intérieur d'un câble MIDI jusqu'à la sortie.
Le câble, que des Atarist on laissé trainé est de très mauvaise qualité, et de plus des notes son injectés au fur et a mesure par les Atarist pour éliminer une fois pour toute Super AmigaMan.
Saurez-vous éviter toutes les embuches et faire faire sortir Super AmigaMan vivant de cette dernière épreuve...
Le jeu se déroule sur 25 niveaux, de plus en plus chargés en obstacle, sur la vidéo, pour montrer l'écran final, j'ai réduit ce nombre:
Le code:
EDIT du 24/01 : modification de la musique de fin pour la rendre un peu plus rapide.
Après avoir :
- Récolté les disquettes de Démos dans "My boulette is bigger than yours".
- Retrouvé sa forme normal suite à l'attaque fourbe de la secte des admirateurs du "Gland Vert" dans "The Antidote"
- Ecrasé un maximum d'Atarist en amenant à temps les disquettes de Démo à la convention Amiga dans "Road Kill"
- et remplacé le copper d'Agnus suite à son vol par des extrémistes Atarist dans "Copper List"
Il faut maintenant que Super AmigaMan sorte de L'Amiga dans lequel il avait pris la place du Copper.
Pour cela il va devoir se faufiler à l'intérieur d'un câble MIDI jusqu'à la sortie.
Le câble, que des Atarist on laissé trainé est de très mauvaise qualité, et de plus des notes son injectés au fur et a mesure par les Atarist pour éliminer une fois pour toute Super AmigaMan.
Saurez-vous éviter toutes les embuches et faire faire sortir Super AmigaMan vivant de cette dernière épreuve...
Le jeu se déroule sur 25 niveaux, de plus en plus chargés en obstacle, sur la vidéo, pour montrer l'écran final, j'ai réduit ce nombre:
Le code:
- Code:
10 DEFINT A-Z:DIM P(20):P(0)=956:FOR I=1TO 20:P(I)=P(I-1)*(0.891-((I MOD 7)=0OR(I MOD 7)=3)*0.054):NEXT:MODE 1:BORDER 0:INK 0,0:INK 1,26:INK 2,6:INK 3,9:INK 4,18:INK 5,21:INK 6,24:INK 7,15:INK 8,6:l=1:ENV 2,1,15,1,1,0,10,15,-1,10
20 ENV 1,1,-1,2,1,-5,30,6,-1,50:ENT -1,1,-2,2,2,2,2,1,-2,2:LOCATE 12,1:?"Amiga Extraction":LOCATE 2,5:?"Avoid the evil Atarists, and slide to":LOCATE 3,6:?"the even more dangerous next screen":LOCATE 12,13:?"Use SPACE to go up":GOSUB 99
30 MOVE 0,300,1,0:FOR X=32TO 640STEP 32:DRAW X,250-l+RND*100:NEXT X:MOVE 0,399:FILL 2:MOVE 0,100:FOR X=32TO 640STEP 32:DRAW X,50+l+RND*100:NEXT X:MOVE 0,0:FILL 2:TAG:FOR s=1 TO 2*l:MOVE 50+RND*561,100+RND*200,2,3:?CHR$(230);:NEXT:TAGOFF
40 MOVE -2,200,1,1:WHILE XPOS<640:DRAWR 2,dy:dy=2+4*INKEY(47):t=TESTR(2,dy):IF t THEN SOUND 2,0,200,0,2,,31:FOR I=0TO 99:INK 2,26*RND:PLOTR 4-INT(9*RND),4-INT(9*RND),2:NEXT:CLS:?TAB(17);"YOU DIED":LOCATE 12,13:?"Levels completed"l-1:GOSUB 99:RUN
50 WHILE((SQ(2)AND 1)=0AND dy>0):SOUND 2,800,10,8,,,15:WEND:MOVER -2,-dy:WEND:l=l+1:CLS:? TAB(16);"WELL DONE":IF(l<26) THEN LOCATE 14,13:?"Next level "+STR$(l):GOSUB 99:GOTO 30 ELSE LOCATE 6,13:?"You defeated the evil Atarists":GOSUB 99
60 MODE 0:INK 1,2:INK 2,11:FOR I=0TO 149:MOVE 70+I,190-I,1+I\50,0:DRAWR 50,0:MOVE 140+I,190-I:DRAWR 50,0:NEXT:FOR I=0TO 249:MOVE 220+I,I+40,4+I\50:DRAWR 50,0:MOVE 290+I,I+40:DRAWR 50,0:NEXT:LOCATE 2,2:PEN 8:?"AMIGA WILL SURVIVE":PEN 1
70 S$="GGGGGWHIHW1GGGGFFFGFFEEDT1DDDDDDDTDDDCCCDCCCt1DDDFFFGHFFFw1GGGw1GGGGFFFGFFFGFFFgDDDDDDDDDDDDCCCDCDD1DDDDDDDFFFGHFFFw1GGGw1GGGGv1FFFGFFFwDDDDDDDDCCCTCDDt1DDD":MS=LEN(S$):WHILE INKEY$<>"":WEND:WHILE INKEY$="":GOSUB 80:WEND:RUN
80 WHILE (SQ(2) AND 7):N=ASC(MID$(S$,Z+1,1))-64:Z=Z+1:Z=-Z*(Z<>MS):E=-(N>-1):N=E*N+(1-E)*16*(N+16):PE=P(5 + N MOD 16):D=25*(N\16 + 1):SOUND 2,PE,D,15*E,E,1:WEND:RETURN
99 LOCATE 9,25:?"Press any key to continue":WHILE INKEY$<>"":WEND:WHILE INKEY$="":WEND:CLS:RETURN
EDIT du 24/01 : modification de la musique de fin pour la rendre un peu plus rapide.
Dernière édition par YannAros le Lun 24 Jan 2022 - 9:47, édité 1 fois
YannAros- Patient incurable
- Nombre de messages : 1494
Age : 50
Localisation : Pas assez loin
Date d'inscription : 24/09/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Bonjour,
Une petite modif' dans les "Suppos de Satan" afin d'éviter le "scintillement" de la tête du Doc quand il est immobile.
Je n'efface la tête que si on la bouge. Ça me répète une commande, mais je supprime un PRINT dans la boucle principale, et du coup les diablotins vont encore plus vite. Héhéhé..
1 FLASH 0: LET best=0: BORDER 0: PAPER 0: DIM h(4): DIM c(4): RESTORE : FOR A=0 TO 15: READ D: POKE USR "P"+A,D: NEXT A: DATA 66,66,60,126,90,126,36,24,56,124,124,84,254,214,108,56
2 INK 4: FOR n=6 TO 18: PRINT AT n,1;CHR$ (137): NEXT n: PRINT AT 5,1;CHR$ (134): PRINT AT 19,1;CHR$ (134): LET w=0: LET r=1: LET sc=0: FLASH 0: INK 1: PRINT AT 1,1;"Score=";sc: PRINT AT 1,15;"Hi-Score=";best: FLASH 1: INK 3: PRINT AT 2,1;"wave=";r: FLASH 0: LET old=13: LET doc=12: INK 1: PRINT AT doc,3;CHR$ (160)
3 LET start=30-w: FOR n=1 TO 4: LET h(n)=n*4+2: LET c(n)=start: INK 3: PRINT AT h(n),c(n)+1;"<": INK 2: PRINT AT h(n),c(n);CHR$ (159): NEXT n
4 INK 2: LET pos=INT (RND*4)+1: LET val=c(pos)-1: LET c(pos)=val: PRINT AT h(pos),c(pos);CHR$ (159): PRINT AT h(pos),val+1;" ": IF ATTR (doc,3)=2 THEN GO TO 9
5 IF INKEY$="s" THEN LET doc=doc+1: PRINT AT old, 3;" ":IF doc>18 THEN LET doc=18
6 IF INKEY$="t" THEN LET doc=doc-1: PRINT AT old,3; " ":IF doc<6 THEN LET doc=6
7 INK 1: PRINT AT doc,3;CHR$ (160): LET old=doc: IF c(pos)<3 THEN GO TO 10
8 GO TO 4
9 BEEP 0.1,sc: LET w=w+1: LET r=r+1: LET sc=sc+1: PRINT AT 1,8;sc: PRINT AT 2,6;r: FOR a=1 TO 4: PRINT AT h(a),c(a);" ": NEXT a: INK 1: PRINT AT doc,3;CHR$ (160): GO TO 3
10 FLASH 1: PAUSE 0: PRINT AT 20,12;"GaMe OvEr": BEEP 1.4,4: IF sc>best THEN LET best=sc: PRINT AT 1,24;best: PAUSE 0: FLASH 0: CLS : LET sc=0: GO TO 2
Une petite modif' dans les "Suppos de Satan" afin d'éviter le "scintillement" de la tête du Doc quand il est immobile.
Je n'efface la tête que si on la bouge. Ça me répète une commande, mais je supprime un PRINT dans la boucle principale, et du coup les diablotins vont encore plus vite. Héhéhé..
1 FLASH 0: LET best=0: BORDER 0: PAPER 0: DIM h(4): DIM c(4): RESTORE : FOR A=0 TO 15: READ D: POKE USR "P"+A,D: NEXT A: DATA 66,66,60,126,90,126,36,24,56,124,124,84,254,214,108,56
2 INK 4: FOR n=6 TO 18: PRINT AT n,1;CHR$ (137): NEXT n: PRINT AT 5,1;CHR$ (134): PRINT AT 19,1;CHR$ (134): LET w=0: LET r=1: LET sc=0: FLASH 0: INK 1: PRINT AT 1,1;"Score=";sc: PRINT AT 1,15;"Hi-Score=";best: FLASH 1: INK 3: PRINT AT 2,1;"wave=";r: FLASH 0: LET old=13: LET doc=12: INK 1: PRINT AT doc,3;CHR$ (160)
3 LET start=30-w: FOR n=1 TO 4: LET h(n)=n*4+2: LET c(n)=start: INK 3: PRINT AT h(n),c(n)+1;"<": INK 2: PRINT AT h(n),c(n);CHR$ (159): NEXT n
4 INK 2: LET pos=INT (RND*4)+1: LET val=c(pos)-1: LET c(pos)=val: PRINT AT h(pos),c(pos);CHR$ (159): PRINT AT h(pos),val+1;" ": IF ATTR (doc,3)=2 THEN GO TO 9
5 IF INKEY$="s" THEN LET doc=doc+1: PRINT AT old, 3;" ":IF doc>18 THEN LET doc=18
6 IF INKEY$="t" THEN LET doc=doc-1: PRINT AT old,3; " ":IF doc<6 THEN LET doc=6
7 INK 1: PRINT AT doc,3;CHR$ (160): LET old=doc: IF c(pos)<3 THEN GO TO 10
8 GO TO 4
9 BEEP 0.1,sc: LET w=w+1: LET r=r+1: LET sc=sc+1: PRINT AT 1,8;sc: PRINT AT 2,6;r: FOR a=1 TO 4: PRINT AT h(a),c(a);" ": NEXT a: INK 1: PRINT AT doc,3;CHR$ (160): GO TO 3
10 FLASH 1: PAUSE 0: PRINT AT 20,12;"GaMe OvEr": BEEP 1.4,4: IF sc>best THEN LET best=sc: PRINT AT 1,24;best: PAUSE 0: FLASH 0: CLS : LET sc=0: GO TO 2
Dernière édition par wulf le Dim 23 Jan 2022 - 16:32, édité 1 fois
wulf- Patient incurable
- Nombre de messages : 1544
Age : 53
Localisation : --
Date d'inscription : 28/08/2008
Re: LE 10LIGNOPAT 2021 : RESULTATS !
bien vu @YannAros le concept de Scrambler, c'est bien foutu
Avec un écran de fin en plus.. mais je suis sûr que tu peux nous faire une meilleure musique plus rythmée et enjouée.
Avec un écran de fin en plus.. mais je suis sûr que tu peux nous faire une meilleure musique plus rythmée et enjouée.
wulf- Patient incurable
- Nombre de messages : 1544
Age : 53
Localisation : --
Date d'inscription : 28/08/2008
Re: LE 10LIGNOPAT 2021 : RESULTATS !
En 10 instructions mêmefreed a écrit:Un simulateur en 10 lignes sur ZX81 c'est quand même le truc extraordinaire non?
Copper- Docteur *
- Nombre de messages : 7885
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021 : RESULTATS !
Oui faut que j’améliore ça, mais je suis nul en musique…wulf a écrit:bien vu @YannAros le concept de Scrambler, c'est bien foutu
Avec un écran de fin en plus.. mais je suis sûr que tu peux nous faire une meilleure musique plus rythmée et enjouée.
J’aurais du prendre un ST au lieu d’un Amiga
EDIT : j'ai modifié le code pour rendre la musique plus rapide at ajuster la hauteur des notes.
YannAros- Patient incurable
- Nombre de messages : 1494
Age : 50
Localisation : Pas assez loin
Date d'inscription : 24/09/2020
wulf offre 1 suppo à ce post!
Re: LE 10LIGNOPAT 2021 : RESULTATS !
ZXFile c'est pour le fun ou il rentre en compet ?????????
_______________________________________________________
Page 1 sur 27 • 1, 2, 3 ... 14 ... 27
Sujets similaires
» LE 10LIGNOPAT 2021
» 10LIGNOPAT 2022 : LE RIC DE PRE-SAISON !
» *** RESULTATS DU CONCOURS F.E.A.R 2 ***
» *** RESULTATS CONCOURS GEARS OF WAR 2 ***
» RESULTATS DU CONCOURS PIERSOLAR
» 10LIGNOPAT 2022 : LE RIC DE PRE-SAISON !
» *** RESULTATS DU CONCOURS F.E.A.R 2 ***
» *** RESULTATS CONCOURS GEARS OF WAR 2 ***
» RESULTATS DU CONCOURS PIERSOLAR
GAMOPAT :: PSYCHIATRIE :: LES CODEURS FOUS :: 10LIGNOPAT
Page 1 sur 27
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum