Dump

state.fnl

@@ -0,0 +1,35 @@
+; Handles game-play stateful information
+(local pi math.pi)
+
+; The Player table holds all the player stuff
+; The Inventory table holds the player's inventory
+; [x y] coordinates, [d]irection, [f]ield-of-view
+; [o]xygen and [p]ower
+(var player {:x 3.5 :y 3.5 :d 0 :f (/ pi 3)
+             :o 100 :p 45})
+(var inventory [])
+
+; The Map table holds the map
+(var map [])
+ 
+{:getPlayer (fn getPlayer [] player)
+ :getX (fn getX [] player.x)
+ :setX (fn setX [x] (set player.x x))
+ :getY (fn getY [] player.y)
+ :setY (fn setY [y] (set player.y y))
+ :getD (fn getD [] player.d)
+ :setD (fn setD [d] (set player.d d))
+ :getX (fn getX [] player.x)
+ :getO (fn getO [] player.o)
+ :setO (fn setO [x] (set player.o x))
+ :modO (fn modO [x] 
+         (if (< (+ player.o x) 0)
+           (set player.o 0)
+           (set player.o (+ player.o x))))
+ :getP (fn getP [] player.p)
+ :setP (fn setP [x] (set player.p x))
+ :modP (fn modP [x]
+         (if (< (+ player.p x) 0)
+           (set player.p 0)
+           (set player.p (+ player.p x))))
+}