LE 10LIGNOPAT 2021

[drfloyd]

Allez hop on lance notre propre concours de programme basic 8bit en 10 lignes de code maximum !!!!

LE 10LIGNOPAT



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


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


YOUKI avec SUPPO FIGHTER sur C128


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 SUPER AMIGAMAN 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


YANNAROS avec la chasse à la bonne affaire sur Amstrad CPC


Youki avec GURU MASTURBATION sur Commodore 128
VIDEO CLASSE X

[Xorion]

Parfait ! mais on doit déposer son programme avant quelle date ?

[drfloyd]

on fait le point fin janvier

Vous pouvez en déposer 2 ou 3 si vous voulez, no limit

[drfloyd]

Alors bien sur il est conseillé de dev sur emulateur PC. C'est mieux pour copier coller votre listing, ou en fournir une image

[Xorion]

Non moi je fais ça direct sur mon commodore 64 ! mais je passerai le copier collé du listing sans souci.
Bon reste à trouver Un thème en lien direct avec l'univers Gamopat ou le Doc

[drfloyd]

le code est même indispensable à publier...

Le theme direct, c'est surtout le "scénario" du jeu qui doit etre en rapport  Ca peut etre un shoot'em up, un jeu de plateforme, un rpg, un puzzle game....

[F.L]

Sympa l'idée mais je preferais le concours des 1ko
le probleme des 10 lignes c'est que ça va optimiser à mort, 
donc ça va etre quasi illisible, sauf pour celui qui aura crée le code,
Pour du basic c'est ballo
Je vais voir si je peuw faire quelque chose, mais avec ma maniere de coder, rien que les entrées clavier ça va me prendre 5 lignes

[drfloyd]

ah oui faut éviter du code genre :

if inkey$="6" then direction$="GAUCHE"
if direction$="GAUCHE" then personnagex=personnagex+1



Un concours 1ko peut aussi etre sympa ! Là ca permet de faire un vrai jeu plutot qu'une curiosité technique.

[Copper]

Oui il faut plutôt faire des trucs du genre :

Code:

i$=INKEY$:x=x+(i$="6")-(i$="4")

peut-être même sans les parenthèses si ca marche

[drfloyd]

Oui TIPS obligatoire pour gérer les déplacements 

[F.L]

ah oui faut éviter du code genre :

if inkey$="6" then direction$="GAUCHE"
if direction$="GAUCHE" then personnagex=personnagex+1



Un concours 1ko peut aussi etre sympa ! Là ca permet de faire un vrai jeu plutot qu'une curiosité technique.

C'est exactement ça ! Ça fait plaisir que tu qoit allé voir mes codes

Code:

CODE:i$=INKEY$:x=x+(i$="6")-(i$="4")

Ça y est je suis perdu ! Ça me rapelle l'ecole ou comment rendre compliqué quelque chose de simple 

[drfloyd]

J'ai encadré ton code dans mon salon, c'est de l'art 

[youki]

Non moi je fais ça direct sur mon commodore 64 ! mais je passerai le copier collé du listing sans souci.
Bon reste à trouver Un thème en lien direct avec l'univers Gamopat ou le Doc

Tu va avoir un probleme pour copier le listing ici , si tu use les abrevations des instructions...  Je suis pas sur que le forum gere le PETSCII. 

[drfloyd]

Photo d'ecran du listing 
Video youtube, twitter.... 

Sont des possibilites pour montrer vos oeuvres

[youki]

Je touche au but!!...  put*ing , j'avais oublié les joies du basic du C64!... poke poke poke peek...

un petit peu de paufinage et ca sera bon!   L'Amiga n'a qu'a bien ce tenir! 

Ce truc, m'a fait revenir 30 en arriere!

[freed]

Sympa l'idée mais je preferais le concours des 1ko
le probleme des 10 lignes c'est que ça va optimiser à mort, 
donc ça va etre quasi illisible, sauf pour celui qui aura crée le code,
Pour du basic c'est ballo
Je vais voir si je peuw faire quelque chose, mais avec ma maniere de coder, rien que les entrées clavier ça va me prendre 5 lignes

L'idée c'est aussi le partage, donc on peut commenter dans le post ou bien fournir une version "1 instruction par ligne" pour la lisibilité
Plus on va partager les trucs, plus on aura de chances d'avoir des programmes sympas

[freed]

ah oui faut éviter du code genre :

if inkey$="6" then direction$="GAUCHE"
if direction$="GAUCHE" then personnagex=personnagex+1

Ouais bah attention hein, le BASIC d'il y a 35 ans ne gère pas les noms de variables avec autant de lettres (en tout cas pas le BASIC Microsoft sur TRS-80)... Me suis fait avoir (il ne prenait que les 2 ou 3 premières)

[youki]

Sympa l'idée mais je preferais le concours des 1ko
le probleme des 10 lignes c'est que ça va optimiser à mort, 
donc ça va etre quasi illisible, sauf pour celui qui aura crée le code,
Pour du basic c'est ballo
Je vais voir si je peuw faire quelque chose, mais avec ma maniere de coder, rien que les entrées clavier ça va me prendre 5 lignes

L'idée c'est aussi le partage, donc on peut commenter dans le post ou bien fournir une version "1 instruction par ligne" pour la lisibilité
Plus on va partager les trucs, plus on aura de chances d'avoir des programmes sympas

Du coup le dernier qui poste sont programme , il va gagner car il aura profiter de toute l'experience des autres et aura pompé toutes les bonnes idées!

Je posterais mon programme le dernier jour! 

[freed]

Bah y a rien à gagner, rien à perdre on a dit. L'enjeu c'est de voir si on est capable de sortir des trucs sympas pour éventuellement faire de la pub au forum non?

[youki]

Ben si il y a "l'etoile du DOC" dans son profil a gagner!  C'est du serieux!  Ca rigole pas!

[Copper]

Ah je croyais qu'y avait un Amiga 600 à gagner

[youki]

Ah je croyais qu'y avait un Amiga 600 à gagner

personne n'aurait participé  si c'etait ca. 

[Copper]

Vu le prix que ca coute actuellement je crois que tout le forum aurait participé

[Xorion]

Moi plus c'est illisible plus je trouve ça fascinant et balaise :-)
Nul doute que le vainqueur aura programmé sur le Commodore 64 !

on a le droit d'utiliser l'instruction REM ? 

[Copper]

REM à part gaspiller des lignes ou de la place (pour les BASIC à taille de ligne limitée) c'est pas très utile surtout quand on ne peut pas stocker de routine en langage machine dedans

[Anarwax]

- ça me rappelle les GFA punchs !! -

[drfloyd]

Les GOTO sont autorisés 

[youki]

Bon voilà un premier jet , si je trouve du temps , je l'ameliorerai un peu.

Le scenario :  vous etes le Doc qui se ballade dans son etablissement dans le couloir reservé au Amigateux.   Se ballader dans le couloir n'est pas chose aisé , car les amigateux laisse trainer leurs disquettes a formatter de partout ,  leur baballes boings , et biensur leurs suppos fournient par l'hopital.   Le doc doit avancer dans le couloir en evitant tout ca, au moindre contact le jeu est fini! .

une video du jeu ici :

Video du jeu

Si vous voulez l'essayer dans l'emulateur charger ce PRG

le jeu

Pour Lancer le jeu , il vous faudra peut etre taper 2 fois run (comme dans la video). 

Pour jouer , ca se joue au JOYSTICK sur le port 2.

Code:

10POKE56334,PEEK(56334) AND 254:PRINTCHR$(147):FORN=0TO25:PRINT:NEXT:S=0:V=53248:POKEV+17,PEEK(V+17)AND247:POKEV+32,0:POKEV+33,1:FORI=0TO63:READD:POKE832+I,D:NEXT:POKE2041,13:POKEV+40,0:X=150:POKEV+21,PEEK(V+21)OR2:POKEV+40,0:POKEV+2,X:POKEV+3,60
20FORA=12288TO12552:POKEA,0:NEXT:POKE53272,PEEK(53272)AND240OR12:FORA=12288TO12319+16:READZ:POKEA,Z:NEXT:POKE646,6
30J=PEEK(56320):B=INT(RND(1)*15):P=INT(RND(1)*25+5):IFX>0ANDJ=123THENX=X-3
40IFX<255ANDJ=119THENX=X+3
50POKEV+2,X:POKEV+4,50:PRINTSPC(INT(RND(1)*6))"E"SPC(26+INT(RND(1)*6))"E":IFB=10THENPOKE1944+P,4:POKE56216+P,7
60IFB=4THENPOKE1944+P,0:POKE1944+P+1,1:POKE1944+40+P,2:POKE1944+40+P+1,3:POKE56216+P,2:POKE56216+P+1,2:POKE56216+40+P,2:POKE56216+40+P+1,2
70IFPEEK(V+31)=2THENPRINTCHR$(147):PRINT"GAMEOVER":PRINT"SCORE:"S:POKE 56334,PEEK(56334) OR 1 :POKE53272,21:END
80S=S+1:GOTO30
90DATA1,240,0,7,248,0,30,126,0,24,127,0,56,63,0,96,31,192,96,0,64,112,1,224,111,254,96,36,98,96,39,254,96,32,96,96,32,96,64,32,0,64,48,0,192,51,252,192,56,0,128,28,97,128,14,103,0,7,254,0,3,252,0,0
100DATA31,51,115,204,204,179,179,204,248,52,50,205,205,51,51,205,204,179,179,204,204,115,51,31,205,51,51,205,205,50,52,248,0,0,0,0,0,126,127,126,63,101,229,255,193,193,193,255

[Xorion]

Wow quel talent ! vraiment génial :-) classique mais superbe graphismes et animation, couleurs et tout.

tu as mis la barre très très haute !

Bravo !

[youki]

Wow quel talent ! vraiment génial :-) classique mais superbe graphismes et animation, couleurs et tout.

tu as mis la barre très très haute !

Bravo !

Merci :)  Bon c'est vraiment basique , c'est le cas de le dire :)..  mais je vais essayer d'ameliorer un peu.

Sinon en parlant de graphisme ,  est ce qu'il y aurait un gamopat talenteux qui pourrait me dessiner une Amiga Boing en  16x16 pixel mieux que la mienne???  Parce que bon , ma boing ca ressemble plus a un ananas qu'autre chose!!