le code en question version durexforh:
Code : Tout sélectionner
: sacaspr
0 indexacido c!
11 0 do
20 0 do
i 2* 2* 2* 2* x2 !
j 2* 2* 2* 2* y2 c!
i j letilebuf
case
2 of \ tile cinza
1 ntiles +! ( <------ le problème)
endof
3 of \ porta
j 2* to vyporta i 2* to vxporta
0 i j ptilebuf
endof
4 of \ acido
i 2* xacido indexacido c@ + c!
j 2* yacido indexacido c@ + c!
1 indexacido +! ( <------ le problème)
endof
11 \ zezito
of
x2 @ dup zx ! zxini !
y2 c@ dup zy c! zyini c!
0 i j ptilebuf
endof
endcase
loop
loop
;
le problème était:
Code : Tout sélectionner
1 ntiles +!
donc la version de la parole en mo5 est:
Code : Tout sélectionner
: SACASPR
11 0 DO
20 0 DO
I 16 * X2 !
J 16 * Y2 C!
I J LETILEBUF DUP DUP
2 = ( TILE CINZA)
IF
( TILE CINZA)
NTILES C@ 1+ NTILES C! ( <------ ou utilisé 1 NTILES +! et je dois considérer la variable comme 16 bits )
ENDIF
3 = ( PORTA)
IF
J 2 * VYPORTA C@
I 2 * VXPORTA C@
0 I J PTILEBUF
ENDIF
11 = ( ZEZITO)
IF
X2 @ DUP ZX ! ZXINI !
Y2 C@ DUP ZY C! ZYINI C!
0 I J PTILEBUF
ENDIF
LOOP
LOOP
;
(merci pour votre patience avec mon français faible)