d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(amiga.tal) Do not flip rotation direction on floor collision

This commit is contained in:
Devine Lu Linvega 2023-05-04 16:25:41 -07:00
parent 64f2692734
commit 204805b586
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
projects/examples/demos/amiga.tal
View File

@ -50,19 +50,18 @@ BRK
@flip-direction ( zp^ -- ) @flip-direction ( zp^ -- )
LDZ2k #ffff EOR2 INC2 ROT STZ2 LDZ2k #ffff EOR2 INC2 ROT STZ2
.direction LDZk #0a EOR SWP STZ
JMP2r JMP2r
@check-flip-vx ( x -- x ) @check-flip-vx ( x -- x )
( left ) DUP2 #0010 LTH2 ?&flip ( left ) DUP2 #0010 LTH2 ?&flip
( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip !&else ( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip
&flip .ball/vx !flip-direction
&else
JMP2r JMP2r
&flip
.direction LDZk #0a EOR SWP STZ
.ball/vx !flip-direction
@check-flip-vy ( y -- y ) @check-flip-vy ( y -- y )
@ -91,7 +90,6 @@ JMP2r
&pull #00 .timer STZ .ball/vy LDZ2k INC2 STH2k ROT STZ2 !&end &pull #00 .timer STZ .ball/vy LDZ2k INC2 STH2k ROT STZ2 !&end
&pass .ball/vy LDZ2k STH2k ROT STZ2 !&end &pass .ball/vy LDZ2k STH2k ROT STZ2 !&end
&end .ball/y LDZ2k STH2r ADD2 check-flip-vy ROT STZ2 &end .ball/y LDZ2k STH2r ADD2 check-flip-vy ROT STZ2
@draw-ball ( -- ) @draw-ball ( -- )