Code : Tout sélectionner
1 DEFINT a-z:t=INT(3.99+9*RND): MODE 1:BORDER 0: INK 0,0:C=20:L=13:a=(a+1) MOD 15:c$=CHR$(-((a=0)*205+(a=1)*238+(a=2)*233+(a=3)*200+(a=4)*159+(a=5)*144+(a=6)*201+(a=7)*204+(a=8)*127+(a=9)*206+(a=10)*207+(a=11)*212+(a=12)*202+(a=13)*253+(a=14)*61))
2 PEN RND*5:i=RND*t:j=RND*t:LOCATE c-i,l-j:PRINT c$:LOCATE c-j,l-i:PRINT c$:LOCATE c+i,l+j:PRINT c$:LOCATE c+j,l+i:PRINT c$:LOCATE c+j,l-i:PRINT c$:LOCATE c+i,l-j:PRINT c$:LOCATE c-j,l+i:PRINT c$:LOCATE c-i,l+j:PRINT c$:IF RND<0.001 THEN 1 ELSE 2
https://youtu.be/Qlr-a08hwLs
A voir en HD (et je ne plaisante pas lol ). Je voulais ajouter une heure de musique Amstrad 8 bits mais pas sur des copyright... Mais vous pouvez passer celles-là dans une autre fenetre de voytre PC https://youtu.be/gjceB_tdhfw?t=95