MSX Village forum

hello je vous partage un petit programme que j'ai bidouillé sur mon msx2 ce weekend, le listing open source pour msx village, n'hésitez pas a l'améliorer ! (video)

5 DEFINT A-Z
10 SCREEN 0:WIDTH 80:COLOR 2,0,0:KEY OFF
15 N=5: DIM X%(N-1), Y%(N-1), C%(N-1), V%(N-1)
20 FOR I=0 TO N-1
21 X%(I)=INT(I * 80 / N + RND(1) * (80 / N))
22 Y%(I)=INT(RND(1)*24)
23 V%(I)=1+INT(RND(1)*2)
24 C%(I)=0
25 NEXT I
30 FOR I=0 TO N-1
31 C%(I)=C%(I)+1
32 IF C%(I) MOD V%(I)=0 THEN LOCATE X%(I),Y%(I):PRINT CHR$(33+INT(RND(1)*222))
33 IF C%(I) MOD V%(I)=0 THEN Y%(I)=(Y%(I)+1) MOD 24
34 IF Y%(I)=0 THEN X%(I)=INT(I * 80 / N + RND(1) * (80 / N))
35 NEXT I
40 GOTO 30


Edité par yomgui Le 04/05/2025 à 16h06

oui c'est pratique msxpen, il exporte meme en .dsk.

Il fonctionne sur machine et émulateurs, garantie

merci a essayer avec les caractères Katakana, ligne 24 a la fin :PRINT CHR$(160++INT(RND(1)*96)) ca fonctionne pas sur ma machine mais en emulateur msx turbo japonais ca file ! Edité par yomgui Le 07/05/2025 à 09h59