LE 10LIGNOPAT 2021
+13
Cormano
YannAros
grostonton
Jacques Atari
goux.m
Matari
Anarwax
freed
youki
Copper
F.L
Xorion
drfloyd
17 participants
GAMOPAT :: PSYCHIATRIE :: LES CODEURS FOUS :: 10LIGNOPAT
Page 4 sur 34
Page 4 sur 34 • 1, 2, 3, 4, 5 ... 19 ... 34
Re: LE 10LIGNOPAT 2021
Anarwax a écrit:hey c'est pas mal du tout en 7 lignes !!!
Et c'est pas dutout optimisé. je pense que ca doit etre possible de gagner encore 1 ligne , si c'est pas 2!
youki- Docteur *
- Nombre de messages : 12647
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
Bon bah voilà. DOCATHLON, inspiré de decathlon...
C'était vraiment la galère de tout faire tenir en 10 lignes... J'ai utilisé plein de bidouilles mais forcément l'optimisation du code est pas trop au rendez-vous. J'ai utilisé le speed poke du TRS80, je sais pas si ça change grand chose
Bref, le jeu est pour un Tandy Color Computer 2 avec le Basic Etendu de Microsoft. Je pense qu'on doit pouvoir le faire tourner sans trop de peine sur un MSX ou un Thomson qui ont le même basic, mais faudra adapter la partie graphique...
J'ai pas de quoi faire une vidéo d'une fenêtre là sous la main... Pour tester il faut enregistrer le code ci-après dans un fichier (au hasard docathlon.bas) et ensuite utiliser l'émulateur en ligne https://www.6809.org.uk/xroar/online/
De là, c'est assez simple:
1. on sélectionne le Tandy Coco2Pal (par défaut c'est le Dragon32) et
2. on clique sur load pour aller chercher le docathlon.bas précédemment enregistré
Ensuite on fait CLOAD puis RUN... Le jeu se lance après quelques secondes...
[EDIT]: on peut aussi charger et lancer automatiquement en choisissant Run... au lieu de Load...
Sur le jeu: j'avais l'idée de faire une parodie de décathlon, ce destructeur de joystick. Mon but était de faire une course entre le doc, mario et sonic. Pas au joystick (ils sont analogiques sur le tandy, donc pas adaptés) mais au clavier.
Malheureusement, en 10 lignes ça tenait pas Donc je me suis rabattu sur une sorte de dino run dans lequel s'affrontent le doc et mario. La touche espace permet au doc de sauter. Mario est un gros lourdeau, donc il court pas trop vite, mais si le doc se prend les obstacles, il perd du temps...
Voilà, c'est pas super fluide, il y a quelques clignotements par moment (pas trop de place pour faire du double buffer ou ajuster les sprites au petit poil) et évidemment il n'y a pas de décor parce que même en tassant comme un débile, ça tenait pas en 10 lignes (pas de son non plus, mais on s'en passe).
Pour mémoire, le color computer ne gère que 4 couleurs en moyenne résolution, mais heureusement il y a les instruction GET et PUT pour copier des blocs de données... La plus grosse limite sur ces 2 fonctions, c'est qu'on ne peut pas utiliser des tableaux. En gros, je ne peux pas faire un PUT SPRITE(1). Faut tout dupliquer, ça allonge le code
Bon assez de bla bla, voilà une image pour montrer ce que ça donne... Attention: l'émulateur web est pas parfait, parfois il déconne au niveau de l'affichage. Faut faire break et run de nouveau et ça passe. Ca ne le fait pas avec la version en client lourd. Si quelqu'un a le temps de faire une vidéo, welcome
Voilà le code (bon courage pour la lecture )
[EDIT]J'ai viré le poke au début... En fait ça ne fait pas de différence notable... C'est plus pur comme ça
[EDIT2] Ajout d'une ligne vide à la fin du fichier. Effectivement, l'émulateur a besoin d'un retour chariot en fin de dernière ligne sinon il ne la prend pas en compte
[EDIT3] Correction cosmétique sur une sprite de Mario: je lui avais enlevé un morceau de pied... Bon, il court pas plus vite, mais il est plus joli comme ça
[EDIT4] Youki a fait une VIDEO ici!!!
C'était vraiment la galère de tout faire tenir en 10 lignes... J'ai utilisé plein de bidouilles mais forcément l'optimisation du code est pas trop au rendez-vous. J'ai utilisé le speed poke du TRS80, je sais pas si ça change grand chose
Bref, le jeu est pour un Tandy Color Computer 2 avec le Basic Etendu de Microsoft. Je pense qu'on doit pouvoir le faire tourner sans trop de peine sur un MSX ou un Thomson qui ont le même basic, mais faudra adapter la partie graphique...
J'ai pas de quoi faire une vidéo d'une fenêtre là sous la main... Pour tester il faut enregistrer le code ci-après dans un fichier (au hasard docathlon.bas) et ensuite utiliser l'émulateur en ligne https://www.6809.org.uk/xroar/online/
De là, c'est assez simple:
1. on sélectionne le Tandy Coco2Pal (par défaut c'est le Dragon32) et
2. on clique sur load pour aller chercher le docathlon.bas précédemment enregistré
Ensuite on fait CLOAD puis RUN... Le jeu se lance après quelques secondes...
[EDIT]: on peut aussi charger et lancer automatiquement en choisissant Run... au lieu de Load...
Sur le jeu: j'avais l'idée de faire une parodie de décathlon, ce destructeur de joystick. Mon but était de faire une course entre le doc, mario et sonic. Pas au joystick (ils sont analogiques sur le tandy, donc pas adaptés) mais au clavier.
Malheureusement, en 10 lignes ça tenait pas Donc je me suis rabattu sur une sorte de dino run dans lequel s'affrontent le doc et mario. La touche espace permet au doc de sauter. Mario est un gros lourdeau, donc il court pas trop vite, mais si le doc se prend les obstacles, il perd du temps...
Voilà, c'est pas super fluide, il y a quelques clignotements par moment (pas trop de place pour faire du double buffer ou ajuster les sprites au petit poil) et évidemment il n'y a pas de décor parce que même en tassant comme un débile, ça tenait pas en 10 lignes (pas de son non plus, mais on s'en passe).
Pour mémoire, le color computer ne gère que 4 couleurs en moyenne résolution, mais heureusement il y a les instruction GET et PUT pour copier des blocs de données... La plus grosse limite sur ces 2 fonctions, c'est qu'on ne peut pas utiliser des tableaux. En gros, je ne peux pas faire un PUT SPRITE(1). Faut tout dupliquer, ça allonge le code
Bon assez de bla bla, voilà une image pour montrer ce que ça donne... Attention: l'émulateur web est pas parfait, parfois il déconne au niveau de l'affichage. Faut faire break et run de nouveau et ça passe. Ca ne le fait pas avec la version en client lourd. Si quelqu'un a le temps de faire une vidéo, welcome
Voilà le code (bon courage pour la lecture )
- Code:
1 DIMD1(7):DIMD2(7):DIMD3(7):DIMM1(11):DIMM2(11):DIMM3(11):DIMO1(7):DIMO2(7):DIMZ1(7):PMODE1,1:PCLS:?"FREED@GAMOPAT FORUM PRESENTE":?"doctor floydSON'S docATHLON":GET(150,0)-(174,12),Z1:DRAW"BM2,180U6M18,170D6":A$(1)="MARIO":A$(0)="DOC"
2 FORB=0TO14:FORA=0TO6:READC:PSET(A*2,B*2,C):NEXTA,B:GET(0,0)-(12,28),D1:FORB=9TO14:FORA=0TO6:READC:PSET(A*2,B*2,C):NEXTA,B:GET(0,0)-(12,28),D2:FORB=9TO14:FORA=0TO6:READC:PSET(A*2,B*2,C):NEXTA,B:GET(0,0)-(12,28),D3:GET(0,168)-(24,180),O1:PCLS
3 FORB=0TO14:FORA=0TO7:READC:PSET(8+A*2,B*2,C):NEXTA,B:GET(0,0)-(28,28),M1:FORB=7TO14:FORA=0TO7:READC:PSET(8+A*2,B*2,C):NEXTA,B:GET(0,0)-(28,28),M2:FORB=7TO14:FORA=0TO7:READC:PSET(8+A*2,B*2,C):NEXTA,B:GET(0,0)-(28,26),M3:DRAW"BM52,180M68,176"
4 GET(50,168)-(74,180),O2:C=-(RND(0)>.5):J=0:K=0:D=-8:X=228:PCLS:SCREEN1,0:DATA 1,1,4,4,4,1,1,1,4,4,2,2,2,1,1,4,2,3,2,3,1,4,4,2,3,2,3,1,4,4,2,2,2,2,2,1,4,2,2,2,2,1,1,4,4,4,4,4,1,1,4,4,4,2,4,1,1,1,4,4,4,1,1,1,1,1,2,1,1,1,1,4,4,4,1,2,1,1,2,1,4,4
5 DATA 4,1,1,1,1,4,4,1,1,1,3,4,1,4,1,1,1,3,1,1,3,3,1,1,1,1,2,1,2,1,1,2,4,4,4,4,1,1,1,1,4,4,1,3,1,1,1,4,4,4,3,1,1,4,1,1,1,1,1,1,3,3,1,1,1,1,1,1,2,1,1,1,1,2,4,4,4,4,2,1,1,1,4,4,1,3,1,3,4,4,4,4,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,1,1,1,4,4
6 DATA 4,4,4,4,4,1,3,3,3,2,3,2,1,3,2,3,2,2,3,2,1,3,2,3,3,2,2,3,2,1,3,2,2,2,3,3,3,1,1,2,2,2,2,2,1,1,3,3,4,3,3,1,1,2,3,3,4,4,3,3,2,2,2,3,4,2,4,3,2,1,1,4,4,4,4,4,1,1,4,4,4,4,4,1,3,1,4,4,1,1,4,4,3,1,3,3,1,1,1,1,1,1,1,3,3,1,1,1,1,1,1,3,3,4,3,1,2,1
7 DATA 2,3,3,3,3,3,2,2,2,4,3,3,3,3,2,1,3,4,4,4,4,4,4,3,3,4,4,4,4,4,4,3,4,4,1,1,4,4,1,3,1,1,1,3,3,1,1,1,1,1,1,3,3,3,3,1,1,3,4,3,4,1,2,1,2,3,4,3,4,3,2,2,2,3,3,4,3,4,1,1,1,4,4,4,4,4,3,1,3,4,2,4,2,4,3,3,3,4,4,4,4,4,3,3,4,4,4,1,1,1,1,3,1,1,1,1,1,1,1
8 FORH=1TO285:GOSUB9:IFX=228THENPUT(6,116)-(20,128),Z1:PUT(6,66)-(20,78),Z1:NEXT:?A$(W);" A GAGNE!":END:ELSE IFH>227THENW=-(D>0):PUT(X,116)-(X+24,128),O2:PUT(X,66)-(X+24,78),O2:NEXT:ELSE PUT(X,116)-(X+24,128),O1:PUT (X,66)-(X+24,78),O1:NEXT
9 X=X-228*(X<5)-4:C=1-C:IFINKEY$=" "THENJ=10:PUT(70,116)-(82,128),Z1:ELSEIFJ>1THENJ=J-1:PUT(70,88)-(82,116),D3:ELSEIFJ=1THENPUT(70,88)-(82,100),Z1:J=0:ELSED=D+4*(X>=60)*(X<=92):IFC THEN PUT(70,100)-(82,128),D1 ELSEPUT(70,100)-(82,128),D2
10 D=D+2*(RND(0)>.8)-2*(D<-48):IF(X>67+D)*(X<93+D)THENPUT(62+D,66)-(86+D,78),Z1:PUT(68+D,38)-(92+D,64),M3:K=1:RETURN:ELSEIFK THENPUT (68+D,38)-(92+D,50),Z1:K=0:RETURN:ELSEIFC THENPUT(68+D,50)-(92+D,78),M1:RETURN:ELSE PUT(68+D,50)-(92+D,78),M2:RETURN
[EDIT]J'ai viré le poke au début... En fait ça ne fait pas de différence notable... C'est plus pur comme ça
[EDIT2] Ajout d'une ligne vide à la fin du fichier. Effectivement, l'émulateur a besoin d'un retour chariot en fin de dernière ligne sinon il ne la prend pas en compte
[EDIT3] Correction cosmétique sur une sprite de Mario: je lui avais enlevé un morceau de pied... Bon, il court pas plus vite, mais il est plus joli comme ça
[EDIT4] Youki a fait une VIDEO ici!!!
Dernière édition par freed le Lun 27 Déc 2021 - 11:30, édité 8 fois
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
ah pas mal !
Anarwax- Docteur *
- Nombre de messages : 18278
Age : 47
Localisation : Bretagne
Date d'inscription : 06/09/2012
Re: LE 10LIGNOPAT 2021
Ca a l'air pas mal du tout, mais j'arrive pas a le faire fonctionner
Je le load , je le lance , je vois le message d'acceuil et le titre du jeu et paf ca flash et revient avec Ok et le curseur
Je le load , je le lance , je vois le message d'acceuil et le titre du jeu et paf ca flash et revient avec Ok et le curseur
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
youki a écrit:Ca a l'air pas mal du tout, mais j'arrive pas a le faire fonctionner
Je le load , je le lance , je vois le message d'acceuil et le titre du jeu et paf ca flash et revient avec Ok et le curseur
Bah c'est étrange. Quand tu fais list tu as le listing?
Ah peut-être que t'as pas sélectionné la bonne machine?
[EDIT]Non même avec le dragon ça marche pour moi (à part le bug d'affichage qui oblige de faire break et run, ça doit être mon poke qu'il aime pas).
Dernière édition par freed le Dim 5 Déc 2021 - 16:37, édité 1 fois
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
freed a écrit:youki a écrit:Ca a l'air pas mal du tout, mais j'arrive pas a le faire fonctionner
Je le load , je le lance , je vois le message d'acceuil et le titre du jeu et paf ca flash et revient avec Ok et le curseur
Bah c'est étrange. Quand tu fais list tu as le listing?
Ah peut-être que t'as pas sélectionné la bonne machine?
oui j'ai bien le listing , le jeu demarre puisque je vois le titre et ton email.
au bout de quelque seconde ca flash , et ca revient au prompt du basic avec Ok.
J'ai pris la bonne machine, et j'ai meme essayé avec toutes les autres machines. sur tout les tandy coco ca fait pareil. sur le MC10, il trouve pas le fichier . j'ai pas essayé les dragon et autres.
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
Sur le MC10 ça passera pas: pas assez de RAM et pas le bon basic pour accéder au mode graphique.
Bah là je vois pas parce que moi ça marche sur l'émulateur en ligne
Je vais vérifier en faisant un copier-coller du listing: j'ai peut-être merdé à ce niveau là.
[EDIT]: Bah non... Copié-collé dans notepad, sauvegarde en toto.bas, load toto.bas, cload, run et ça passe. Je comprends pas pourquoi ça ne marche pas chez toi
Bah là je vois pas parce que moi ça marche sur l'émulateur en ligne
Je vais vérifier en faisant un copier-coller du listing: j'ai peut-être merdé à ce niveau là.
[EDIT]: Bah non... Copié-collé dans notepad, sauvegarde en toto.bas, load toto.bas, cload, run et ça passe. Je comprends pas pourquoi ça ne marche pas chez toi
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
je comprend pas non plus
tu utilises quoi comme navigateur?
moi je suis sur edge... je vais voir avec chrome peut etre que ca fait une difference, mais je doute.
Edit : non ca change rien avec Chrome , ca fait pareil.
tu utilises quoi comme navigateur?
moi je suis sur edge... je vais voir avec chrome peut etre que ca fait une difference, mais je doute.
Edit : non ca change rien avec Chrome , ca fait pareil.
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
HAHA, toi alors, merci pour le compliment. Mais si tu as vraiment besoin que l'on repeigne tes toilettes, j'arrive mdr.youki a écrit:Je t'ai pas demander car ce serait comme si je demandais a leonard devinci ou michelange de venir repeindre en blanc les mur de mes wc ...
Re: LE 10LIGNOPAT 2021
youki a écrit:je comprend pas non plus
tu utilises quoi comme navigateur?
moi je suis sur edge... je vais voir avec chrome peut etre que ca fait une difference, mais je doute.
Edit : non ca change rien avec Chrome , ca fait pareil.
Je suis sous firefox avec windows là, j'ai pas testé sous linux.
C'est marrant qu'il revienne au BASIC direct après avoir affiché le titre. Il affiche OK, pas de message d'erreur?
Il passe en mode graphique dans la ligne 4 avec le SCREEN 1,0
À part un problème de copier-coller qui bouzille les sauts de lignes, je vois pas
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
whaouu un jeu Coco 2.... Le graphisme de Mario est exceptionnel ! Celui du Doc moins
le plus dur c'est de réussit à le faire tourner nous même sur ému....
Tu n'as fait une petite video du jeu ?
le plus dur c'est de réussit à le faire tourner nous même sur ému....
Tu n'as fait une petite video du jeu ?
_______________________________________________________
Re: LE 10LIGNOPAT 2021
je voulais en faire une pour lui , mais j'arrive pas a lancer le jeudrfloyd a écrit:whaouu un jeu Coco 2.... Le graphisme de Mario est exceptionnel ! Celui du Doc moins
le plus dur c'est de réussit à le faire tourner nous même sur ému....
Tu n'as fait une petite video du jeu ?
Heu..sinon Doc, tu as vu que j'ai posté une version Amstrad CPC , 7 lignes de mon jeu C64?
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
j'ai essayé sous firefox aussi , pareilfreed a écrit:youki a écrit:je comprend pas non plus
tu utilises quoi comme navigateur?
moi je suis sur edge... je vais voir avec chrome peut etre que ca fait une difference, mais je doute.
Edit : non ca change rien avec Chrome , ca fait pareil.
Je suis sous firefox avec windows là, j'ai pas testé sous linux.
C'est marrant qu'il revienne au BASIC direct après avoir affiché le titre. Il affiche OK, pas de message d'erreur?
Il passe en mode graphique dans la ligne 4 avec le SCREEN 1,0
À part un problème de copier-coller qui bouzille les sauts de lignes, je vois pas
tiens regarde ce que ca fait sur cette video : VIDEO
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
ouais faut nous faire une vidéo ! le jeu (DOCATHLON) à l'air bien cool :-)
Xorion- Infirmier
- Nombre de messages : 3805
Age : 52
Localisation : Grand Est
Date d'inscription : 25/03/2021
Re: LE 10LIGNOPAT 2021
youki a écrit:
j'ai essayé sous firefox aussi , pareil
tiens regarde ce que ca fait sur cette video : VIDEO
Bizarre, il n'y a que 9 lignes dans le listing! C'est pour ça que ça s'arrête... Il y a un GOSUB mais les RETURN sont en ligne 10.
Il y a un souci dans le copier coller du listing on dirait
Je l'ai modifié pour virer le poke qui fait pas grand chose (et au passage mettre un PCLS qui évite le bug au premier lancement ).
Sinon tu utilises quoi pour faire ta vidéo?
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
C'est vraiment Bizarre, dans le fichier .bas que je charge il y a bien 10 lignes , et dans l'emulateur il en liste que 9... bizarre bizarre... doit y avoir un caractere de controle à la con qui provoque ca , je vais chercher dans ce sens.
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
Faut juste ajouter une ligne vide à la fin du fichier pour que ça fonctionne
Copper- Docteur *
- Nombre de messages : 7401
Age : 47
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021
Copper a écrit:Faut juste ajouter une ligne vide à la fin du fichier pour que ça fonctionne
Yes tu as raison, l'émulateur veut un newline en fin de fichier. Je l'ai ajouté dans le post original pour éviter les mésaventures. Merci, on voit bien l'avantage de l'Amiga: on a l'habitude de gérer les bugs à la con
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
On a surtout l'habitude de gérer les bugs à la con des autres machines
Copper- Docteur *
- Nombre de messages : 7401
Age : 47
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: LE 10LIGNOPAT 2021
Bah pour le coup, c'est l'émulateur qui impose çaCopper a écrit:On a surtout l'habitude de gérer les bugs à la con des autres machines
J'aurais jamais eu la patience de faire un 10 lignes pareil directement sur la machine. Bon, déjà parce que je l'ai plus, mais surtout parce que pour condenser le code en 10 lignes, j'ai utilisé le copier-coller comme un débile
Les IF THEN ELSE et NEXT/RETURN imbriqués, c'est redoutable J'ai passé 2 heures à chercher comment passer de 12 à 10 lignes, je me demande même comment ça peut marcher
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
enfin!!!
ici une video de Docathlon : VIDEO
Le jeu est excellent! J'adore!!! ... mais c'est qui le personnage en haut a coté de celui du DOC?
ici une video de Docathlon : VIDEO
Le jeu est excellent! J'adore!!! ... mais c'est qui le personnage en haut a coté de celui du DOC?
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
Et mince, je viens de perdre ma version CPC ..
Je comprend pas dans l'emulateur Caprice, je faisais save , et apres un CAT , je voyais bien mon fichier sur la disquette. (un .dsk que j'avais ouvert avec l'emulateur).
La j'ai caprice qui a planter, et quand je reouvre mon .dsk , le programme n'y ait pas
Je comprend pas dans l'emulateur Caprice, je faisais save , et apres un CAT , je voyais bien mon fichier sur la disquette. (un .dsk que j'avais ouvert avec l'emulateur).
La j'ai caprice qui a planter, et quand je reouvre mon .dsk , le programme n'y ait pas
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
youki a écrit:enfin!!!
ici une video de Docathlon : VIDEO
Le jeu est excellent! J'adore!!! ... mais c'est qui le personnage en haut a coté de celui du DOC?
Un petit gros moustachu qui passait par là
Merci pour la vidéo c'est top... Malheureusement j'ai corrigé le bug du pied de Mario trop tard, pas grave
Pour ceux que ça intéresse, voici les sprites sous mon éditeur maison (ouais, bon, c'est excel, ok ). La résolution est un peu bâtarde: j'avais pas assez de place en DATA pour faire du 16x16 Vous remarquerez aussi que le haut du corps est toujours le même, du coup j'ai économisé quelques lignes de DATA comme ça aussi
Le Doc est quand même beaucoup plus svelte que le plombier moustachu. On voit bien la différence entre le codeur de homebrews du dimanche et la superstar internationale qui se laisse aller
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
freed a écrit:
Le Doc est quand même beaucoup plus svelte que le plombier moustachu. On voit bien la différence entre le codeur de homebrews du dimanche et la superstar internationale qui se laisse aller
Arrete de faire le faillot envers le doc pour essayer de lui grapiller une victoire... notre genialissime doc n'est pas sensible a ses basses flatteries, il est integre , honetes , incorruptible!!...
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
freed offre 1 suppo à ce post!
Re: LE 10LIGNOPAT 2021
youki a écrit:freed a écrit:
Le Doc est quand même beaucoup plus svelte que le plombier moustachu. On voit bien la différence entre le codeur de homebrews du dimanche et la superstar internationale qui se laisse aller
Arrete de faire le faillot envers le doc pour essayer de lui grapiller une victoire... notre genialissime doc n'est pas sensible a ses basses flatteries, il est integre , honetes , incorruptible!!...
Bah j'ai été le seul sur Tandy pendant des années, je pense que je serai encore le seul sur cette machine pour ce concours... Je suis sûr de finir premier sur le Tandy Coco2
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
Vraiment balaise un tel jeu DOCATHLON avec 2 sprites animés et tout ! vous m'épatez mais alors grave !
Xorion- Infirmier
- Nombre de messages : 3805
Age : 52
Localisation : Grand Est
Date d'inscription : 25/03/2021
Re: LE 10LIGNOPAT 2021
Une autre entrée sur CPC:
Pour sauter d'une plateforme à l'autre il faut appuyer sur la barre espace, le saut se fait lorsque la barre est relâché.
Plus l'appui est long, plus on saute haut.
Les points n'augmentent que lorsque l'on est posé sur la plateforme.
- Code:
10 SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:DIM P(2,2):DATA 239,60,0,10,239,60,0,10,239,30,0,5,239,30,0,5,201,45,0,5,213,30,0,5,213,30,0,5,239,30,0,5,239,30,0,5,253,30,0,5,239,90
20 CLS:PRINT "1: ";CHR$(200);" OR 2: ";CHR$(201):INPUT C: C=199+C:CLS:MODE 1:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0:PEN 3:FOR I=1 TO 40:LOCATE I,20:PRINT CHR$(143):NEXT I
30 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):PRINT " "
40 IF P(I,1)>0 AND P(I,1) < 41 THEN LOCATE P(I,1),P(I,2):PRINT CHR$(143)
50 IF (P(I,1)<-13) THEN P(I,1) = 40:P(I,2)=15+ROUND(RND*9) ELSE P(I,1) = P(I,1) - 1
60 NEXT I:LOCATE 10,Y+1:B$ = COPYCHR$(#0):PEN 2
70 IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y-5-J:J=0:SOUND 7,200+5*J,3,15:IF Y < 1 THEN Y = 1
80 IF Y < 24 AND B$<>CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:LOCATE 35,1: PRINT S
90 IF Y = 24 THEN GOTO 100 ELSE LOCATE 10,Y:PRINT CHR$(C):GOTO 30
100 CLS:LOCATE 15,10:PRINT"GAME OVER":LOCATE 15,12:PRINT "SCORE ";S:FOR I = 1 TO 21: READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20
Pour sauter d'une plateforme à l'autre il faut appuyer sur la barre espace, le saut se fait lorsque la barre est relâché.
Plus l'appui est long, plus on saute haut.
Les points n'augmentent que lorsque l'on est posé sur la plateforme.
YannAros- Patient incurable
- Nombre de messages : 1344
Age : 50
Localisation : Pas assez loin
Date d'inscription : 24/09/2020
Cormano- Docteur *
- Nombre de messages : 3378
Age : 54
Localisation : Italie
Date d'inscription : 01/03/2020
Re: LE 10LIGNOPAT 2021
YannAros a écrit:Une autre entrée sur CPC:
- Code:
10 SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:DIM P(2,2):DATA 239,60,0,10,239,60,0,10,239,30,0,5,239,30,0,5,201,45,0,5,213,30,0,5,213,30,0,5,239,30,0,5,239,30,0,5,253,30,0,5,239,90
20 CLS:PRINT "1: ";CHR$(200);" OR 2: ";CHR$(201):INPUT C: C=199+C:CLS:MODE 1:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0:PEN 3:FOR I=1 TO 40:LOCATE I,20:PRINT CHR$(143):NEXT I
30 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):PRINT " "
40 IF P(I,1)>0 AND P(I,1) < 41 THEN LOCATE P(I,1),P(I,2):PRINT CHR$(143)
50 IF (P(I,1)<-13) THEN P(I,1) = 40:P(I,2)=15+ROUND(RND*9) ELSE P(I,1) = P(I,1) - 1
60 NEXT I:LOCATE 10,Y+1:B$ = COPYCHR$(#0):PEN 2
70 IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y-5-J:J=0:SOUND 7,200+5*J,3,15:IF Y < 1 THEN Y = 1
80 IF Y < 24 AND B$<>CHR$(143) THEN LOCATE 10,Y:PRINT " ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:LOCATE 35,1: PRINT S
90 IF Y = 24 THEN GOTO 100 ELSE LOCATE 10,Y:PRINT CHR$(C):GOTO 30
100 CLS:LOCATE 15,10:PRINT"GAME OVER":LOCATE 15,12:PRINT "SCORE ";S:FOR I = 1 TO 21: READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20
Pour sauter d'une plateforme à l'autre il faut appuyer sur la barre espace, le saut se fait lorsque la barre est relâché.
Plus l'appui est long, plus on saute haut.
Les points n'augmentent que lorsque l'on est posé sur la plateforme.
Super celui ci aussi!!
Par contre, il manque le "scenario" en rapport Gamopat et le Doc . C'est quoi l'histoire? Fait nous rever!
youki- Docteur *
- Nombre de messages : 12647
Age : 52
Date d'inscription : 01/08/2009
Re: LE 10LIGNOPAT 2021
YannAros a écrit:Une autre entrée sur CPC:
Pour sauter d'une plateforme à l'autre il faut appuyer sur la barre espace, le saut se fait lorsque la barre est relâché.
Plus l'appui est long, plus on saute haut.
Les points n'augmentent que lorsque l'on est posé sur la plateforme.
Super! J'aime bien, c'est très classe en mode texte (avec une bonne exploitation de la gestion des chaînes de caractères en BASIC ), c'est surtout original! Bref, c'est simple et efficace: bravo!
Faut que je trouve une autre idée c'est marrant ce concours
freed- Patient incurable
- Nombre de messages : 1596
Age : 102
Localisation : chezmoi
Date d'inscription : 03/02/2021
Re: LE 10LIGNOPAT 2021
youki a écrit: Super celui ci aussi!!
Par contre, il manque le "scenario" en rapport Gamopat et le Doc . C'est quoi l'histoire? Fait nous rever!
Le thème imposé c'est : "Un thème en lien direct avec l'univers Gamopat ou le Doc"
Vu la tournure actuel du forum je pensais à : choisi ton camps, Commodore ou Atari, et montre à l'autre camps qui est le meilleur.
Bon je sors, je reviendrais quand j'aurais mieux
YannAros- Patient incurable
- Nombre de messages : 1344
Age : 50
Localisation : Pas assez loin
Date d'inscription : 24/09/2020
Page 4 sur 34 • 1, 2, 3, 4, 5 ... 19 ... 34
Sujets similaires
» LE 10LIGNOPAT 2021 : RESULTATS !
» 10LIGNOPAT 2022 : LE RIC DE PRE-SAISON !
» PES 2021 10€
» AC 2021
» [WIP] - MSX - Do The Same - 16.06.2021
» 10LIGNOPAT 2022 : LE RIC DE PRE-SAISON !
» PES 2021 10€
» AC 2021
» [WIP] - MSX - Do The Same - 16.06.2021
GAMOPAT :: PSYCHIATRIE :: LES CODEURS FOUS :: 10LIGNOPAT
Page 4 sur 34
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum