Lokalizacja: Reading w UK
@pisklak,
post #70
z filmu, który zapodał:
@jimiche, post #16
[youtube]https://youtu.be/hCtDPojVUvQ?si=-vMh15msokJbALy4[/youtube]
Sprawdziłem na real Amidze i dupa blada.
Screen Open 0,384,320,4,LORES
Flash Off : Curs Off : Cls 0
Hide
Dim SHT(31)
Palette $0,$600,$60,$6
For I=0 To 31
Read P : SHT(I)=P
Next I
Data 0,16,8,24,4,20,12,28,2,18,10,6,26,14,22,30
Data 1,17,9,25,5,21,13,29,3,19,11,7,27,15,23,31
Double Buffer
Autoback 0
Randomize Timer
POS=0
Repeat
SHIFT=SHT(POS)
Add POS,1,0 To 31
Ink Rnd(2)+1 : Bar 158,165 To 159,166
For Y=0 To 8
YP=8-Y
YO=Y
Rol.l 5,YO
For X=0 To 10
XO=X
Rol.l 5,XO
XD=XO+SHIFT
YD=YO+SHIFT+8
XS=XO+SHIFT+YP-X
YS=YO+SHIFT+YP+X
Screen Copy Logic,XS,YS,XS+32,YS+32 To Physic,XD,YD
Next X
Next Y
Wait Vbl
Screen Swap
Until Mouse Key
End