voici le code pour réaliser ce sprite:
vous pouvez tester le code en le chargeant dans l'emulateur. Allez dans fichier et restaurer état.
https://www.dropbox.com/s/kwinaerbdz3cp ... e.mrx?dl=0
Code : Tout sélectionner
0 SETET 65,"FFFFFFFFFF3F8FA3A82A"
1 SETET 66,"F7D7D14155D4D3D0D313"
2 SETET 67,"DFD747415517C707C7C4"
3 SETET 68,"FFFFFFFFFFFCF2CA2CA8"
4 SETET 69,"CAC0F3F3CFCFCFCFF3FF"
5 SETET 70,"830F3F3F3F3FCFFFFFFF"
6 SETET 71,"C2F0FCFCFCFCF3FFFFFF"
7 SETET 72,"A303CFCFF3F3F3F3CFFF"
8 SETET 73,"FFFFFFFFFFFFFFFFFFFF"
10 CLEAR 200:A=&"7000"
20 REM MACHINE CODE
21 P$="220E70211470CDEF022A0E70C9000000000000202100288121062882216728832113288400000000214122D8236626082727280000"
30 REM EXE BASIC
31 FORI=1TOLEN(P$)STEP2
32 POKEA,N:A=A+1
90 REM HEX TO DEC
91 N1=ASC(MID$(P$,I,1))-48
92 IF N1>9 THEN N1=N1-7
93 N2=ASC(MID$(P$,I+1,1))-48
94 IF N2>9 THEN N2=N2-7
95 N=16*N1+N2
96 NEXT I
98 FORX=0TO39:IFY>0ANDY<8THENY=8
99 CALL&"7000"
104 POKE&"702A",73:POKE&"7030",Y
105 POKE&"7032",X:NEXTX:Y=Y+1:IFY>31THENY=0
110 IFY<31THENGOTO 98
120 DIM A(20):DIM B(20):DIM C(20)
130 DATA 73,12,20,73,12,21,73,12,22,73,12,23
200 DATA 73,13,19,65,13,20,66,13,21,67,13,22,68,13,23,73,13,24
201 DATA 73,14,19,69,14,20,70,14,21,71,14,22,72,14,23,73,14,24
203 DATA 73,15,20,73,15,21,73,15,22,73,15,23
205 X=0:Y=0
210 FORI=1TO20:READ A(I),B(I),C(I)
230 POKE&"702A",A(I)
232 POKE&"7030",B(I)+Y
234 POKE&"7032",C(I)+X
235 CALL&"7000"
300 NEXTI
310 IFKEY(0)=7THENX=X+1
311 IFKEY(0)=8THENX=X-1
312 IFKEY(0)=9THENY=Y-1
313 IFKEY(0)=10THENY=Y+1
314 IFX<-19THENX=-19
315 IFX>16THENX=16
316 IFY<-5THENY=-5
317 IFY>14THENY=14
320 RESTORE
330 GOTO 210