Re: LE 10LIGNOPAT 2021

[YannAros]

   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  

[freed]

Ah, les 4 magnifiques couleurs du Dragon 32, ça c'était de la palette !
Bien joué

Bah en 10 lignes je pouvais pas faire de tramage ou d'éléments de décor malheureusement
Sinon il y a l'autre palette sur fond blanc, mais c'est pour un winter games

[freed]

Qui va nous faire un lode runner avec le doc poursuivi par des amiga?

[Copper]

Sinon tu peux toujours faire un outil bureautique (traitement de texte, tableur) ou mieux un séquenceur MIDI...

Les jeux vidéos c'est un peu secondaire...

[youki]

Sinon tu peux toujours faire un outil bureautique (traitement de texte, tableur) ou mieux un séquenceur MIDI...

Les jeux vidéos c'est un peu secondaire...

Que de la gueule....      

[drfloyd]

Qui va nous faire un lode runner avec le doc poursuivi par des amiga?

du moment que j'ai un phaser pur les pulveriser, et des vies infinies 

[drfloyd]

Excellent Yannaros, mais il faut un titre et un scénario

[drfloyd]

Déjà 3 jeux développés en quelques jours, on va bientot pouvoir éditer une compilation GAMOPAT STUDIO ?????

[freed]

Sinon tu peux toujours faire un outil bureautique (traitement de texte, tableur) ou mieux un séquenceur MIDI...

Les jeux vidéos c'est un peu secondaire...

gna gna gna! Moi j'ai déjà fait un truc. J'attends ton 10 lignes

[youki]

Déjà 3 jeux développés en quelques jours, on va bientot pouvoir éditer une compilation GAMOPAT STUDIO ?????

 4 jeux!  

J'en ai fait 2 moi  ,  une version C64  et une version CPC!

[YannAros]

Excellent Yannaros, mais il faut un titre et un scénario

Je reviens avec une nouvelle version de "16BIT DEATH RACE":

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 BORDER 0:MODE 0:PEN 1:?"  16BIT DEATH RACE  ":?"SELECT YOUR COMPANY":?" 1: ";CHR$(200);" OR 2: ";CHR$(201):INPUT C: C=199+C:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0
30 MODE 1:PEN 3:FOR I=1 TO 40:LOCATE I,20:?CHR$(143):NEXT I:PEN 1:LOCATE 1,25:?"M$-INTEL-IBM-PC-8086-640kB-MSDOS-WINDOW"
40 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):? " "
50 IF P(I,1)>0 AND P(I,1) < 41 THEN LOCATE P(I,1),P(I,2):? CHR$(143) ELSE IF (P(I,1)<-13) THEN P(I,1) = 41:P(I,2)=15+ROUND(RND*9)
60 P(I,1) = P(I,1) - 1:NEXT I:LOCATE 10,Y+1:B$ = COPYCHR$(#0):PEN 2:IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:? " ":Y=Y-8-J:J=0:SOUND 7,200+5*J,3,15:IF Y < 1 THEN Y = 1
70 IF Y < 24 AND B$<>CHR$(143) THEN LOCATE 10,Y:? " ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:IF I<65536 THEN LOCATE 35,1: ? S ELSE LOCATE 10,12:? CHR$(C);" WON THE RACE":END
80 IF Y = 24 THEN GOTO 90 ELSE LOCATE 10,Y:? CHR$(C):GOTO 40
90 MODE 0:LOCATE 5,10:?"GAME OVER":LOCATE 5,12:? "SCORE ";S:FOR I = 1 TO 21: READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20


J'ai condensé en 9 lignes tout en ajoutant du contenu!

Le scénario :
Choisissez votre société, Commodore ou Atari, et essayez de survivre dans le marché du début des années 90
Si vous tombez dans la banalité PC votre société disparaitra!
Le jeu se termine si vous arrivez à accumuler 65536 points.

[rocky007]

allez je me lance avec ce jeu TI99, inspiré de Spy Demise ( Basic étendu vous que les lignes multiples sont impossible en BASIC Simple ) :

Scénario : Ce pauvre DOC doit s’échapper du club Amiga et doit monter au dessus de l'immeuble en évitant les ascenseurs le plus rapidement possible. C''est le meilleur temps qui l'emporte. Chaque ascenseur touché fait perdre du temps à son chrono.
Se joue au Joystick, il faut traverser chaque étage pour monter à l'étage supérieur.


désolé il n'y a pas le superbe son dans la vidéo.

Pour le tester en ligne : https://js99er.net/#/
Choisir option 2 TI EXTENDED BASIC. Ensuite faire copier / coller et RUN.
Sur l'émulateur en ligne, il tourne un peu moins vite qu'en réel...l'idéal est d'utiliser Classic99.

Code:


1 DIM Y(48),YY(8):: FOR I=0 TO 10:: Y(I)=(I*16)+1:: Y(20-I)=Y(I)::NEXT I :: CALL MAGNIFY(4) :: CALL CLEAR ::CALL SPRITE(#8,136,5,176,1):: CALL SCREEN(2)
2 CALL CHAR(65,"00000000000000FF1818181818181818FF81FF81FF81FF81"):: FOR I=1 TO 32:: READ A:: CALL VCHAR(3,I,A+60,22)::  NEXT I :: T=0 ::  CALL COLOR(5,10,2)
3 CALL CHAR(132,"1F3E7C7E7F7F7F55555555555555557FF0F87CFCFCFCFC5454545454545454FC"):: FOR I=1 TO 7 :: YY(I)=INT(RND*19):: CALL SPRITE(#I,132,8,Y(YY(I)),I*32-18) :: NEXT I
4 CALL CHAR(136,"1C3E2A367F3E3E22000000000000000000000000000000000000000000000000") :: A=1:: BX=1::BY=176::BK=241::BXBUF=0
5 CALL JOYST(1,JX,JY) :: Z=BX+JX*2 :: IF (JY>0) AND (BX=BK) THEN BY=BY-16 :: BK=242-BK :: CALL SOUND(1,560,10) ELSE IF Z>0 AND Z<242 THEN BX=Z
6 C=INT((BX+23)/32):: TP=Y(YY(C)) ::IF C>0 AND C<8 AND BY>TP-7 AND BY<TP+31 THEN CALL COLOR(5,10,5)::CALL COLOR(5,10,2)::CALL SOUND(1,220,5)::T=T+100
7 IF BX=241 AND BY=16 THEN CALL CLEAR ::PRINT "YOU WIN !!! YOUR TIME :";T ::END  ELSE YY(A)=YY(A)+1  :: IF YY(A)>19 THEN YY(A)=0
8 CALL LOCATE(#A,Y(YY(A)),(A*32)-18) ::  A=A+1 :: IF A>7 THEN A=1 
9 CALL LOCATE(#8,BY,BX):: T=T+1 :: IF BX<>BXBUF THEN CALL SOUND(1,1950,1):: BXBUF=BX ::GOTO 5 ELSE 5
10 DATA 7,7,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,7,7


[youki]

tu pourrais faire une video?

[drfloyd]

Putain le graphisme !!!! Ca a l'air cool.

Le basic etendu du ti99 est tres sympa

[youki]

Putain le graphisme !!!! 

heu... tu as vu la gueule qu'il t'a fait?? 


sinon ca a l'air bien sympa.  

[rocky007]

voilà j'ai rajouté la vidéo...

[YannAros]

Superbe entrée en matière pour le ti99!

[Anarwax]

allez je me lance avec ce jeu TI99, inspiré de Spy Demise ( Basic étendu vous que les lignes multiples sont impossible en BASIC Simple ) :

Scénario :  Ce pauvre DOC doit s’échapper du club Amiga et doit monter au dessus de l'immeuble en évitant les ascenseurs le plus rapidement possible.   C''est le meilleur temps qui l'emporte.  Chaque ascenseur touché fait perdre du temps à son chrono.
Se joue au Joystick, il faut traverser chaque étage pour monter à l'étage supérieur.


désolé il n'y a pas le superbe son dans la vidéo.

Pour le tester en ligne :  https://js99er.net/#/
Choisir option 2 TI EXTENDED BASIC.  Ensuite faire copier / coller et RUN.
Sur l'émulateur en ligne, il tourne un peu moins vite qu'en réel...l'idéal est d'utiliser Classic99.

Code:


1 DIM Y(48),YY(8):: FOR I=0 TO 10:: Y(I)=(I*16)+1:: Y(20-I)=Y(I)::NEXT I :: CALL MAGNIFY(4) :: CALL CLEAR ::CALL SPRITE(#8,136,5,176,1):: CALL SCREEN(2)
2 CALL CHAR(65,"00000000000000FF1818181818181818FF81FF81FF81FF81"):: FOR I=1 TO 32:: READ A:: CALL VCHAR(3,I,A+60,22)::  NEXT I :: TIME=0 ::  CALL COLOR(5,10,2)
3 CALL CHAR(132,"1F3E7C7E7F7F7F55555555555555557FF0F87CFCFCFCFC5454545454545454FC"):: FOR I=1 TO 7 :: YY(I)=INT(RND*19):: CALL SPRITE(#I,132,8,Y(YY(I)),I*32-18) :: NEXT I
4 CALL CHAR(136,"1C3E2A367F3E3E22000000000000000000000000000000000000000000000000") :: A=1:: BX=1::BY=176::BK=241::BXBUF=0
5 CALL JOYST(1,JX,JY) :: Z=BX+JX*2 :: IF (JY>0) AND (BX=BK) THEN BY=BY-16 :: BK=242-BK :: CALL SOUND(1,560,10)
6 IF Z>0 AND Z<242 THEN BX=Z :: C=INT((BX+23)/32):: TP=Y(YY(C)) ::IF (BY>TP-7) AND (BY<TP+31) THEN CALL COLOR(5,10,5)::CALL COLOR(5,10,2)::CALL SOUND(1,220,5)::T=T-100
7 IF BX=241 AND BY=16 THEN CALL CLEAR ::PRINT "YOU WIN !!! YOUR TIME :";TIME ::END  ELSE YY(A)=YY(A)+1  :: IF YY(A)>19 THEN YY(A)=0
8 CALL LOCATE(#A,Y(YY(A)),(A*32)-18) ::  A=A+1 :: IF A>7 THEN A=1  
9 CALL LOCATE(#8,BY,BX):: TIME=TIME+1 :: IF BX<>BXBUF THEN CALL SOUND(1,1950,1):: BXBUF=BX ::GOTO 5 ELSE 5
10 DATA 7,7,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,5,6,5,5,7,7


bien sympa !!!

[rocky007]

merci :) sacré courage de monter jusqu'au dessus :)

[freed]

voilà j'ai rajouté la vidéo...

Bravo c'est super bien réalisé!
Le niveau est super bon, ça met de la pression à ceux qui n'ont pas encore proposé leur création
J'ai bien une autre idée mais je ne sais pas si ça va tenir en 10 lignes...

En tout cas c'est bon pour le forum ça, on va pouvoir sortir la compil gamopat studio

[Jacques Atari]

Une idée de programme pour ceux qui en manquent:

Un personnage qui a plusieurs Amiga sur des tables et qui doit changer les disquettes formatées. Au début, c'est lent puis ça s'accélère et il faut qu'il passe de plus en plus vite devant les tables qui clignotent, signe qu'il faut changer la disquette avant le "guru meditation"...

Bon, en 10 lignes, je sais que c'est pas simple mais vu ce que je viens de voir sur le TI-99 là, c'est faisable et adaptable selon.

[freed]

Une idée de programme pour ceux qui en manquent:

Un personnage qui a plusieurs Amiga sur des tables et qui doit changer les disquettes formatées. Au début, c'est lent puis ça s'accélère et il faut qu'il passe de plus en plus vite devant les tables qui clignotent, signe qu'il faut changer la disquette avant le "guru meditation"...

Bon, en 10 lignes, je sais que c'est pas simple mais vu ce que je viens de voir sur le TI-99 là, c'est faisable et adaptable selon.

Nan pas possible: on pourra pas jouer un MOD en arrière plan sur un 8 bits stock, du coup on va perdre en réalisme

[YannAros]

Voici une dernière version de "16BIT DEATH RACE", j'ai ajouté quelques concurrent:


Le code est aussi un peu plus condensé, il ne reste que 8  lignes:

Code:

10 BORDER 0:DIM P(2,2):SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:SYMBOL 202,16,124,254,0,124,124,56,16:SYMBOL 203,32,16,124,248,240,248,124,56
20 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:MODE 0:PEN 1:?"  16BIT DEATH RACE  ":?"SELECT YOUR COMPANY":?" ":FOR I=1 TO 4:?I;":";SPC(I);CHR$(199+I):NEXT
30 INPUT C:C=199+C:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0:MODE 1:PEN 3:FOR I=1 TO 40:LOCATE I,20:?CHR$(143):NEXT I:PEN 1:LOCATE 1,25:?" M$-INTEL-IBM-8086-640kB-MS/DOS-WINDOWS"
40 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):?" "
50 IF P(I,1)>0 AND P(I,1)<41 THEN LOCATE P(I,1),P(I,2):?CHR$(143) ELSE IF P(I,1)<-13 THEN P(I,1)=41:P(I,2)=16+ROUND(RND*8)
60 P(I,1)=P(I,1)-1:NEXT I:LOCATE 10,Y+1:B$=COPYCHR$(#0):PEN 2:IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:?" ":Y=MAX(1,Y-8-J):J=0:SOUND 7,200+5*J,3,15
70 IF Y<24 AND B$<>CHR$(143) THEN LOCATE 10,Y:?" ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:IF I<65536 THEN LOCATE 35,1:?S ELSE LOCATE 10,12:?CHR$(C);" WON THE RACE":END
80 IF Y=24 THEN MODE 0:LOCATE 6,10:?"GAME OVER":LOCATE 6,12:?"SCORE ";S:FOR I=1 TO 21:READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20 ELSE LOCATE 10,Y:?CHR$(C):GOTO 40


[Anarwax]

16 bits ou 8 ?

[YannAros]

16 bits ou 8 ?

Bonne question, peut-être la course vers les 16bits qui a, au final, tué la diversité

[rocky007]

Voici une dernière version de "16BIT DEATH RACE", j'ai ajouté quelques concurrent:

tu connais un emulateur en ligne qui permet un copier/coller du code ?

[freed]

16 bits ou 8 ?

Bonne question, peut-être la course vers les 16bits qui à, au final, tué la diversité

C'est l'économie de marché qui a tué la diversité... On standardise pour produire plus et moins cher. Ca vaut pour le matériel comme pour le logiciel: les adaptations de hits d'une machine à l'autre ont également tué la diversité parce qu'au final on a posusé le consommateur à avoir "la même chose" quelle que soit la machine, alors que ce n'est pas toujours pertinent car les caractéristiques matérielles sont différentes.

Ce qui était génial avec les 8 bits "au début", c'est qu'il n'y avait pas que des consommateurs (offre logicielle réduite et assez chère), mais aussi des clients qui étaient créateurs (la machine invitait à la création avec son prompt "Ready" ou "OK?" à l'allumage). Pas besoin d'avoir des performances de malades, la différence se faisait ailleurs. Vous n'avez pas l'impression que c'est quand on a la possibilité de tout faire qu'on en fait le moins? (je vous laisse disserter là-dessus pour l'apéro)

On le voit bien avec les quelques 10 lignes qui sont présentés ici: le fait de travailler avec les limitations de chaque architecture amène une certaine forme de créativité. Ton 8 bits ne sait pas faire des sprites? Peu importe: tu fais un truc totalement différent et pourtant super sympa en mode texte sans chercher à adapter un 10 lignes fait par quelqu'un d'autre.

Continuez à proposer des 10 lignes pour vos machines!

[YannAros]

J'ai pas trouvé un émulateur en ligne, par contre j'utilise Caprice qui ne nécessite pas d'installation sous Windows et qui permet de copier le contenu du clipboard avec une simple clic droit.
https://www.cpc-power.com/cpcarchives/index.php?page=articles&num=445  

[Copper]

J'ai toujours trouvé le langage BASIC frustrant sur l'Amstrad CPC (le seul 8 bits où je l'ai vraiment connu pendant 3 ans)... Certes ça permettait de coder des trucs rapidement en peu de ligne mais cette lenteur c'est vraiment épouvantable surtout avec des graphismes tout moches en 2 couleurs...

[Anarwax]

j'ai pas trop codé sur cpc, mais j'en ai de bons souvenirs quand meme...

si tu veux étoffer tes connaissances Locomotive, plein de liens et livres sympas :

https://cpcrulez.fr/coding_menu-cours_et_initiations.htm

ou

https://www.cpc-power.com/cpcarchives/index.php?page=articles&num=69

[freed]

J'ai pas trouvé un émulateur en ligne, par contre j'utilise Caprice qui ne nécessite pas d'installation sous Windows et qui permet de copier le contenu du clipboard avec une simple clic droit.
https://www.cpc-power.com/cpcarchives/index.php?page=articles&num=445  

Moi j'utilise celui-là mais pas de copier-coller non plus et je sais pas si on peut charger des .bas
http://crocods.org/web/

[EDIT]: ah bah si, il sait charger un fichier .bas donc c'est bon pour les 10 lignes on dirait