Updates example, allows lambdas w/o params.

10 files changed, 31 insertions, 49 deletions

diff --git a/data/examples/monster_battle/include/creatures.fate b/data/examples/monster_battle/include/creatures.fate
index 2ce30c9..393473e 100644
--- a/data/examples/monster_battle/include/creatures.fate
+++ b/data/examples/monster_battle/include/creatures.fate
@@ -2,29 +2,24 @@
 
 (require types/creature.fate)
 
-(declare_variable creature monster_0)
-(declare_variable creature monster_1)
-(declare_variable creature monster_2)
-(declare_variable creature monster_3)
-(declare_variable creature monster_4)
-(declare_variable creature monster_5)
+(global creature monster_0)
+(global creature monster_1)
+(global creature monster_2)
+(global creature monster_3)
+(global creature monster_4)
+(global creature monster_5)
 
-(declare_variable int i)
+(global (lambda creature ()) random_creature)
 
-(define_macro generate_random_creature
-   (
-      (creature creature)
-   )
-
-   (set i (rand 0 5))
-   (set (param creature)
-      (cond
-         ((= (var i) 0) (var monster_0))
-         ((= (var i) 1) (var monster_1))
-         ((= (var i) 2) (var monster_2))
-         ((= (var i) 3) (var monster_3))
-         ((= (var i) 4) (var monster_4))
-         ((= (var i) 5) (var monster_5))
+(set random_creature
+   (lambda ()
+      (switch (rand 0 5)
+         (0 (var monster_0))
+         (1 (var monster_0))
+         (2 (var monster_0))
+         (3 (var monster_0))
+         (4 (var monster_0))
+         (var monster_5)
       )
    )
 )
diff --git a/data/examples/monster_battle/include/items.fate b/data/examples/monster_battle/include/items.fate
index 3ddca93..b5100ba 100644
--- a/data/examples/monster_battle/include/items.fate
+++ b/data/examples/monster_battle/include/items.fate
@@ -3,11 +3,11 @@
 (require types/item.fate)
 (require player.fate)
 
-(declare_variable item potion)
+(global item potion)
 
-(define_macro get_item
+(define_procedure get_item
    (
-      (item_ptr item)
+      ((ptr item) item)
    )
-   (add (param item) player.inventory)
+   (add (var item) player.inventory)
 )
diff --git a/data/examples/monster_battle/include/player.fate b/data/examples/monster_battle/include/player.fate
index 18e46dc..1d1a1ef 100644
--- a/data/examples/monster_battle/include/player.fate
+++ b/data/examples/monster_battle/include/player.fate
@@ -2,4 +2,4 @@
 
 (require types/player.fate)
 
-(define_variable player player)
+(global player player)
diff --git a/data/examples/monster_battle/include/progress.fate b/data/examples/monster_battle/include/progress.fate
index ee08320..3db8884 100644
--- a/data/examples/monster_battle/include/progress.fate
+++ b/data/examples/monster_battle/include/progress.fate
@@ -2,4 +2,4 @@
 
 (require types/tag.fate)
 
-(define_variable tag_collection progress)
+(global (list tag) progress)
diff --git a/data/examples/monster_battle/include/types/attack.fate b/data/examples/monster_battle/include/types/attack.fate
index da273ad..2e35187 100644
--- a/data/examples/monster_battle/include/types/attack.fate
+++ b/data/examples/monster_battle/include/types/attack.fate
@@ -4,8 +4,6 @@
 
 (declare_dict_type attack
    (string name)
-   (element_ptr element)
+   ((ptr element) element)
    (int power)
 )
-
-(declare_ref_type attack attack_ptr)
diff --git a/data/examples/monster_battle/include/types/creature.fate b/data/examples/monster_battle/include/types/creature.fate
index ad7c957..72237c3 100644
--- a/data/examples/monster_battle/include/types/creature.fate
+++ b/data/examples/monster_battle/include/types/creature.fate
@@ -7,11 +7,9 @@
    (string name)
    (int current_health)
    (int max_health)
-   (element_ptr element)
-   (attack_ptr attack_0)
-   (attack_ptr attack_1)
-   (attack_ptr attack_2)
-   (attack_ptr attack_3)
+   ((ptr element) element)
+   ((ptr attack) attack_0)
+   ((ptr attack) attack_1)
+   ((ptr attack) attack_2)
+   ((ptr attack) attack_3)
 )
-
-(declare_ref_type creature creature_ptr)
diff --git a/data/examples/monster_battle/include/types/element.fate b/data/examples/monster_battle/include/types/element.fate
index 7500b16..75ff2e0 100644
--- a/data/examples/monster_battle/include/types/element.fate
+++ b/data/examples/monster_battle/include/types/element.fate
@@ -2,12 +2,8 @@
 
 (declare_subtype string element_name)
 
-(declare_set_type element_name element_name_set)
-
 (declare_dict_type element
    (element_name name)
-   (element_name_set strong_against)
-   (element_name_set weak_against)
+   ((set element_name) strong_against)
+   ((set element_name) weak_against)
 )
-
-(declare_ref_type element element_ptr)
diff --git a/data/examples/monster_battle/include/types/item.fate b/data/examples/monster_battle/include/types/item.fate
index 0b50475..3062861 100644
--- a/data/examples/monster_battle/include/types/item.fate
+++ b/data/examples/monster_battle/include/types/item.fate
@@ -4,6 +4,3 @@
    (string name)
    (int price)
 )
-
-(declare_ref_type item item_ptr)
-(declare_list_type item_ptr item_ptr_list)
diff --git a/data/examples/monster_battle/include/types/player.fate b/data/examples/monster_battle/include/types/player.fate
index 2573c38..83a9c36 100644
--- a/data/examples/monster_battle/include/types/player.fate
+++ b/data/examples/monster_battle/include/types/player.fate
@@ -5,6 +5,6 @@
 
 (define_dict_type player
    (creature creature)
-   (item_ptr_list inventory)
+   ((list (ptr item)) inventory)
    (int money)
 )
diff --git a/data/examples/monster_battle/include/types/tag.fate b/data/examples/monster_battle/include/types/tag.fate
index 8cca7fe..04a6b00 100644
--- a/data/examples/monster_battle/include/types/tag.fate
+++ b/data/examples/monster_battle/include/types/tag.fate
@@ -1,5 +1,3 @@
 (fate_version 1)
 
 (define_subtype string tag)
-
-(define_set_type tag tag_collection)