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

Optimize variable and constant, and change color!

Browse Source
This commit is contained in:
Brad Nelson
2022-02-25 19:46:28 -08:00
parent 1af99d92ec
commit be64916eec
11 changed files with 60 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ueforth/examples/heart_game.fs
View File

@ -72,22 +72,22 @@ create arrow-table
: draw-one { e } e ->kind @ { kind }
HEART-GOAL kind = if
$ff0000 128 random dup 8 lshift + + to color
$ff0000 128 random dup 8 lshift + + color!
e ->x @ 100 / e ->y @ 100 / e ->step @ heart
exit
then
FIRE kind = if
$222222 to color
$222222 color!
e ->x @ 100 / 4 - e ->y @ 100 / 4 - 8 8 box
exit
then
SPARK kind = if
$ff7700 128 random 8 lshift + to color
$ff7700 128 random 8 lshift + color!
e ->x @ 100 / 4 - e ->y @ 100 / 4 - 8 8 box
exit
then
ARROW kind = if
$ffff00 256 random + to color
$ffff00 256 random + color!
39 for
e ->x @ 100 / e ->vx @ i 200 */ + i arrow-- 2/ -
e ->y @ 100 / e ->vy @ i 200 */ + i arrow-- 2/ -
@ -99,16 +99,16 @@ create arrow-table
: volcano
height 2/ for
$334400 i 100 height */ + to color
$334400 i 100 height */ + color!
width 2/ i 2/ - i height 2/ + i height 8 / + 1 box
next
0 to color
0 color!
width 2/ height 2/
height 8 / 20 box
;
: draw
$003300 to color 0 0 width height box
$003300 color! 0 0 width height box
volcano
entity-count 0 ?do i entity draw-one loop
flip