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

Fiddle with volcano.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-24 16:31:22 -08:00
parent 9ebd2d59b5
commit 66f96c0659
1 changed files with 43 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
ueforth/examples/heart_game.fs
View File

@ -97,8 +97,19 @@ create arrow-table
then then
; ;
: volcano
height 2/ for
$334400 i 100 height */ + to color
width 2/ i 2/ - i height 2/ + i height 8 / + 1 box
next
0 to color
width 2/ height 2/
height 8 / 20 box
;
: draw : draw
$003300 to color 0 0 width height box $003300 to color 0 0 width height box
volcano
entity-count 0 ?do i entity draw-one loop entity-count 0 ?do i entity draw-one loop
flip flip
; ;
@ -141,10 +152,10 @@ create arrow-table
: random-fire { e } : random-fire { e }
FIRE e ->kind ! FIRE e ->kind !
width 100 * random e ->x ! width 10 * random width 50 * + e ->x !
height 100 * random e ->y ! height 1 * random height 50 * + 100 + e ->y !
200 random 100 - e ->vx ! 200 random 100 - e ->vx !
200 random 200 - e ->vy ! 200 random 400 - e ->vy !
; ;
: random-arrow { e } : random-arrow { e }
@ -155,16 +166,44 @@ create arrow-table
200 random 200 - e ->vy ! 200 random 200 - e ->vy !
; ;
: mouse-direction ( -- x y )
mouse-x 3 2 */
height mouse-y - negate 3 2 */ ;
: targeted-arrow
new entity { e }
ARROW e ->kind !
0 e ->x !
height 100 * e ->y !
mouse-direction e ->vy ! e ->vx !
;
: init : init
10 for new entity random-heart next 10 for new entity random-heart next
10 for new entity random-fire next 10 for new entity random-fire next
10 for new entity random-arrow next 10 for new entity random-arrow next
; ;
: volcano-spew
1 for new entity random-fire next
;
: fire
targeted-arrow
;
: run : run
begin begin
PRESSED event = if init then PRESSED event = if
65 last-key = if
init
then
LEFT-BUTTON last-key = if
fire
then
then
poll poll
100 random 0= if volcano-spew then
draw draw
tick tick
cleanup cleanup