alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix heart game for 32-bit.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-27 13:27:40 -08:00
parent a4610dfd19
commit a26786d7ef
1 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
ueforth/examples/heart_game.fs
View File

@ -31,6 +31,7 @@ struct EntityStruct
ptr field ->vx ptr field ->vx
ptr field ->vy ptr field ->vy
ptr field ->kind ptr field ->kind
ptr field ->radius
ptr field ->step ptr field ->step
0 constant DEAD 0 constant DEAD
@ -74,20 +75,15 @@ create arrow-table
: draw-one { e } e ->kind @ { kind } : draw-one { e } e ->kind @ { kind }
HEART-GOAL kind = if HEART-GOAL kind = if
$ff0000 128 random dup 8 lshift + + to color $ff0000 128 random dup 8 lshift + + to color
e ->x @ e ->y @ e ->step @ heart e ->x @ e ->y @ e ->radius @ heart
exit exit
then then
HEART-HIT kind = if HEART-HIT kind = if
$ffff00 256 random + to color $ffff00 256 random + to color
e ->x @ e ->y @ e ->step @ heart e ->x @ e ->y @ e ->radius @ heart
exit exit
then then
FIRE kind = if FIRE kind = SPARK kind = or if
$222222 to color
e ->x @ 400 - e ->y @ 400 - 800 800 box
exit
then
SPARK kind = if
$ff7700 128 random 8 lshift + to color $ff7700 128 random 8 lshift + to color
e ->x @ 400 - e ->y @ 400 - 800 800 box e ->x @ 400 - e ->y @ 400 - 800 800 box
exit exit
@ -134,14 +130,15 @@ create arrow-table
e ->vx @ 200 random 100 - + s ->vx ! e ->vx @ 200 random 100 - + s ->vx !
e ->vy @ 200 random 200 - + s ->vy ! e ->vy @ 200 random 200 - + s ->vy !
0 s ->step ! 0 s ->step !
800 s ->radius !
; ;
: square ( n -- n2 ) dup * ; : square ( n -- n2 ) dup * ;
: distance2 { e f } : distance2 { e f }
e ->x @ f ->x @ - square e ->x @ f ->x @ - 100 / square
e ->y @ f ->y @ - square + e ->y @ f ->y @ - 100 / square +
e ->step @ square - f ->step @ square - ; e ->radius @ f ->radius @ + 100 / square - ;
: tick-one { e } : tick-one { e }
-4 e ->vy +! -4 e ->vy +!
@ -189,7 +186,7 @@ create arrow-table
10000 random 1000 + e ->y ! 10000 random 1000 + e ->y !
200 random 100 - e ->vx ! 200 random 100 - e ->vx !
300 random e ->vy ! 300 random e ->vy !
40 random 40 + 100 * e ->step ! 40 random 40 + 100 * e ->radius !
; ;
: random-fire { e } : random-fire { e }
@ -198,7 +195,7 @@ create arrow-table
24000 1000 random + 2000 - e ->y ! 24000 1000 random + 2000 - e ->y !
200 random 100 - e ->vx ! 200 random 100 - e ->vx !
200 random 300 + e ->vy ! 200 random 300 + e ->vy !
800 e ->step ! 800 e ->radius !
; ;
: random-arrow { e } : random-arrow { e }
@ -207,7 +204,7 @@ create arrow-table
48000 random e ->y ! 48000 random e ->y !
200 random 100 - e ->vx ! 200 random 100 - e ->vx !
200 random e ->vy ! 200 random e ->vy !
800 e ->step ! 800 e ->radius !
; ;
: mouse-direction ( -- x y ) mouse-x mouse-y screen>g ; : mouse-direction ( -- x y ) mouse-x mouse-y screen>g ;