MSX Village forum

Affichage Public Demande pour tester un petit programme

TurboSEB Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : compte ++ Groupe : Shoutbox

Inscrit le : 08/08/2010 à 20h57

Messages: 5578

Le 08/01/2023 à 21h54
Hello,

Voici des programmes simple, pas très long en basic , si qqun peu me les tester, si vous avez le temps, sur un MSX ou emulateur ? Attention , il y a des espaces en trop dans le code

10 'Space Invaders
20 CLS
30 REM Initialize
40 SCREEN 2,2
50 COLOR 15, 0
60 LOCATE 10, PRINT "***** SPACE INVADERS *****"
70 DIM S$(3)
80 S$(1)=" * ":S$(2)=" *** ":S$(3)=" ***** "
90 GOSUB 130
100 POKE 2070, 224:POKE 2077, 32
110 V=100
120 GOSUB 250
130 REM Initialize Invaders
140 FOR J=1 TO 5
150 FOR I=1 TO 11
160 X=(I-1)*8+20:Y=(J-1)*5+20:LOCATE X,Y:PRINT S$(1)
170 Y=Y+1:LOCATE X,Y:PRINT S$(2)
180 Y=Y+1:LOCATE X,Y:PRINT S$(3)
190 NEXT I:NEXT J
200 RETURN
210 REM Move a column of Invaders
220 X1=X-8:X2=X+48:FOR I=X1 TO X2 STEP 8
230 LOCATE I,Y:PRINT " "
240 LOCATE I+V,Y:PRINT S$(1)
250 LOCATE I+V,Y+1:PRINT S$(2)
260 LOCATE I+V,Y+2:PRINT S$(3)
270 NEXT I
280 RETURN
290 REM Inputs and Collision
300 IF INKEY$="" THEN 300
310 IF INKEY$="K" GOTO 350
320 IF INKEY$="H" GOTO 360
330 GOTO 370
340 ' RIGHT
350 IF V<=0 GOTO 390
360 VO=V:V=V-4:GOSUB 250:V=VO:RETURN
370 ' LEFT
380 IF V>=40 GOTO 390
390 V=V+4:GOSUB 250:RETURN
400 END

D'avance merci :tea Edité par TurboSEB Le 08/01/2023 à 22h18



MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
   
TurboSEB Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : compte ++ Groupe : Shoutbox

Inscrit le : 08/08/2010 à 20h57

Messages: 5578

Le 08/01/2023 à 22h04
10 SCREEN 8
20 PRINT "Centipede!"
30 PRINT
40 PRINT "Avoid the centipede or shoot it down!"
50 GOSUB 500
60 GOTO 70
70 FOR X = 1 TO 4
80 GOSUB 1000
90 NEXT
100 FOR X = 1 TO 7
110 GOSUB 1000
120 NEXT
130 FOR X = 1 TO 9
140 GOSUB 1000
150 NEXT
160 FOR X = 1 TO 11
170 GOSUB 1000
180 NEXT
190 FOR X=1 TO 13
200 GOSUB 1000
210 NEXT
220 'player setup
230 DEFINT A-Z
240 GOSUB 2000
250 CURSOR 6,24
260 CLS
270 'loop game
280 PRINT "";S
290 GOSUB 3000:GOSUB 4000
300 INPUT A$,B$
310 IF A$="" THEN 300
320 B=ASC(A$)
330 IF B<>13 THEN 360
340 CLS:IF S<>0 THEN PRINT "Your Score is:";S
350 END
360 IF B=32 THEN 430
370 IF B=72 THEN 420
380 IF B=74 THEN 410
390 GOTO 300
400 'left
410 IF X=0 THEN 300
420 IF PD(X-1,Y)=0 THEN PD(X-1,Y)=9:PD(X,Y)=0
430 GOTO 300
440 'right
450 IF X=23 THEN 300
460 IF PD(X+1,Y)=0 THEN PD(X+1,Y)=9:PD(X,Y)=0
470 GOTO 300
480 'down
490 IF Y=23 THEN 300
500 IF PD(X,Y+1)=0 THEN PD(X,Y+1)=9:PD(X,Y)=0
510 GOTO 300
520 'if centipede
530 FOR X=0 TO 15
540 IF PD(X,Y)=1 THEN S=S+10:PD(X,Y)=0
550 NEXT
560 GOTO 300
570 'check collision
580 IF PD(X,Y)=2 THEN CLS:PRINT "GAME OVER" :END
590 RETURN
600 'initialize data
610

Bizarre ces GOSUB 3000...4000... manque t il des lignes ? Edité par TurboSEB Le 08/01/2023 à 23h11



MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
   
TurboSEB Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : compte ++ Groupe : Shoutbox

Inscrit le : 08/08/2010 à 20h57

Messages: 5578

Le 08/01/2023 à 22h14
C'est sensé être un space invader

10 SCREEN 8
20 FOR I=0 TO 255
30 READ Z
40 POKE &HA000+I,Z
50 NEXT I
60 CALL &HA000
70 X=50:Y=35
80 LOCATE X,Y: PRINT CHR$(4);
90 SPEED=10
100 SCORE=0
110 LCS=5
120 DIR=1
130 SOUND 0,50,20,8
140 J=0
150 FOR I=0 TO 15
160 S(I)=INT (RND*32)+10
170 NEXT I
180 GOTO 600
190 'STRENGTH
210 FOR I=0 TO 15
220 IF S(I)<1 THEN 400
230 NEXT I
240 SCORE=SCORE+LC
250 LCS=LCS-LC
260 IF LCS=0 THEN 300
270 CLS:LOCATE 10,2:PRINT "SCORE: ";SCORE; 280 C = INT (RND * 4) + 1
290 CLS:LOCATE 10,2:PRINT "SCORE: ";SCORE;
300 DRAWSTRING 0,0,"YOU WIN!!"
310 END
400 CLS:LOCATE 10,2:PRINT "SCORE: ";SCORE;
410 DRAWSTRING 0,0,"GAME OVER"
420 END
500 'BULLET
510 LOCATE X,Y: PRINT CHR$(6);
520 Y=Y-1
530 IF Y<2 THEN 600
540 IF INPUT(X,Y)<>0 THEN SCORE=SCORE+4:GOTO 600
550 GOTO 500
600 CLS
610 X=X+DIR
620 IF X>70 THEN DIR=-1 ELSE IF X<2 THEN DIR=1
630 CLS:LOCATE 10,2:PRINT "SCORE: ";SCORE; 640 FOR I=0 TO 15
650 S(I)=S(I)-1
660 IF S(I)-1=0 THEN 700
670 IF ABS(S(I)-Y)<3 THEN LC=1:GOTO 190
680 IF S(I)=2 THEN DRAWSTRING S(I),17,"="
690 NEXT I
700 IF J=0 THEN XM Edité par TurboSEB Le 08/01/2023 à 22h15



MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
   
TurboSEB Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : compte ++ Groupe : Shoutbox

Inscrit le : 08/08/2010 à 20h57

Messages: 5578

Le 08/01/2023 à 22h37
Pour info , je ne suis en rien le créateur de ces programmes , même si c'est moi l'instigateur :D
explication , j'ai utilisé une IA , en l'occurrence GPT-3 pour les faire . Un peu dubitatif je me demande si c'est pas trop beau comme façon de créé en quelques secondes un programme :| :siffle ^^

De la même façon, on peu obtenir le programme en C ou en assembleur et ce sans même rien connaître en programmation.

Des applis gratuite GPT-3 sont dispo pour vos smartphones sur les stores :tea

GPT-3 est utilisé en tant que IA conversationnelle, il suffit de lui posé des questions pour obtenir conseils, réponses et pourquoi pas un programme pour MSX :glass Edité par TurboSEB Le 08/01/2023 à 23h12



MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
   
aoineko Membre non connecté

Maire-adjoint

Rang

Avatar

Association

Inscrit le : 02/01/2011 à 21h17

Messages: 2392

Le 08/01/2023 à 23h51
J'adore ChatGPT, mais ce n'est pas (encore) magique.
Aucun des 3 programmes ne fonctionnent.
Tu peux tester facilement sur MSXPen : https://msxpen.com

J'ai aussi fait beaucoup mumuse avec ChatGPT et on arrive a lui faire faire des trucs simples, mais il faut lui expliquer toutes ses erreurs.
J'ai eu besoin de 3~4 itérations pour lui faire faire une simple boucle 16-bits en assembleur z80.
Mais c'est sur que c'est l'avenir.
Certainement boite utilisent déjà l'équivalent comme aide à la saisie (après avoir éduquer le bot à leur propre contexte).


On est toujours ignorant avant de savoir.
Github    
TurboSEB Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : compte ++ Groupe : Shoutbox

Inscrit le : 08/08/2010 à 20h57

Messages: 5578

Le 09/01/2023 à 07h29
Effectivement ça fonctionne pas :(

Merci pour le lien, c'est très pratique :top



MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
   
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie