From 00af64d4e503dd82abf4657ec6fd44b0a418adb2 Mon Sep 17 00:00:00 2001 From: equa Date: Mon, 19 Apr 2021 20:39:21 -0500 Subject: cool bullets --- lib/bullet.fnl | 25 +++++++++++++++++++++++++ lib/cells.fnl | 20 ++++++++++++++------ lib/entity.fnl | 1 + lib/game.fnl | 18 +++++++++++++----- lib/main.fnl | 1 + lib/player.fnl | 16 +++++++++++++++- lib/vec.fnl | 8 +++++++- 7 files changed, 76 insertions(+), 13 deletions(-) create mode 100644 lib/bullet.fnl (limited to 'lib') diff --git a/lib/bullet.fnl b/lib/bullet.fnl new file mode 100644 index 0000000..d7f1b62 --- /dev/null +++ b/lib/bullet.fnl @@ -0,0 +1,25 @@ +(local entity (require :lib.entity)) +(local vec (require :lib.vec)) +(local cell (require :lib.cell)) +(local cells (require :lib.cells)) + +(fn init [self pos vel] + (setmetatable {entity.position pos + entity.velocity vel + entity.duration 120} + self)) + +(fn draw [self game id] + (love.graphics.setColor 1 1 1 (/ (entity.duration self) 120)) + (love.graphics.setLineWidth 0.3) + (love.graphics.line 0 0 + (. self entity.velocity :x) + (. self entity.velocity :y))) + +(fn collide [self game id x y] + (when (> (cell.aliveness (. game.grid x y)) 0) + (tset game.entities id nil) + ;; TODO: less boom-y thing? + (tset game.grid x y (cell.init cells.boom (/ (entity.duration self) 180))))) + +{entity.init init entity.draw draw entity.collide collide} diff --git a/lib/cells.fnl b/lib/cells.fnl index 3a43010..e415f21 100644 --- a/lib/cells.fnl +++ b/lib/cells.fnl @@ -17,18 +17,26 @@ (set x (+ x 1)))) x) +(fn neighbors< [f threshold] + (var x 0) + ;; nnn this could be faster maybe + (for [k 1 8] + (when (< (cell.aliveness (f (. neighbors k))) threshold) + (set x (+ x 1)))) + x) + (local life {cell.init (fn [self] (setmetatable {} self)) cell.birth (fn [self get] - (if (= (neighbors> get 0) 3) + (if (= (neighbors> get 0.5) 3) self nil)) cell.update (fn [self get] - (let [n (neighbors> get 0)] + (let [n (neighbors> get 0.5)] (if (or (= n 3) (= n 2)) self @@ -65,12 +73,12 @@ (local boom {cell.init - (fn [self] - (setmetatable {:life 1} self)) + (fn [self x] + (setmetatable {:life (or x 1)} self)) cell.birth (fn [self get] (if (and (> self.life 0.08) - (> (neighbors> get (* (if (> self.life 0.9) 0.3 0.1) (math.random 7))) 0)) + (> (neighbors< get (* (if (> self.life 0.9) -0.3 -0.1) (math.random 7))) 0)) (do (setmetatable {:life (* self.life 0.8)} (getmetatable self))) nil)) @@ -80,7 +88,7 @@ (setmetatable {:life (* self.life (+ 0.5 (* (math.random 5) 0.1)))} (getmetatable self)) nil)) cell.aliveness - #$.life + #(- $.life) cell.color #[(+ 0.4 (* 0.6 $.life)) (math.max 0 (- 0.8 (* 0.9 (- 1 $.life)))) diff --git a/lib/entity.fnl b/lib/entity.fnl index 2032e65..6771b5e 100644 --- a/lib/entity.fnl +++ b/lib/entity.fnl @@ -3,6 +3,7 @@ {:init (proto.table-method :entity.init) :position (proto.table-value :entity.position) :velocity (proto.table-value :entity.velocity) + :duration (proto.table-value :entity.duration) ;; [self game {: up : down : left : right}] :steer (proto.meta-method :entity.velocity) ;; [self game] diff --git a/lib/game.fnl b/lib/game.fnl index b75a254..3f99550 100644 --- a/lib/game.fnl +++ b/lib/game.fnl @@ -51,7 +51,9 @@ :player {:up (love.keyboard.isDown :up) :right (love.keyboard.isDown :right) - :left (love.keyboard.isDown :left)})) + :left (love.keyboard.isDown :left) + :shoot (love.keyboard.isDown :z) + })) ;; entities (each [id e (pairs self.entities)] (tset e entity.position (vec.wrap @@ -62,7 +64,10 @@ t (. self.grid x y)] (when t (entity.collide e self id x y))) - ) + (when (entity.duration e) + (tset e entity.duration (- (entity.duration e) 1)) + (if (= (entity.duration e) 0) + (tset self.entities id nil)))) ) (fn id [x] x) @@ -128,7 +133,10 @@ (each [id v (pairs self.entities)] (love.graphics.push) (let [pos (entity.position v) - render-pos (vec.lerp camera-a camera-b display-a display-b pos)] + render-pos (vec.lerp camera-a camera-b display-a display-b + (vec.add camera-a + (vec.wrap (vec.sub pos camera-a) + (vec.sub camera-b camera-a))))] (love.graphics.translate render-pos.x render-pos.y) (love.graphics.scale cell-box.x cell-box.y)) @@ -172,9 +180,9 @@ :rate 6 :entities {:player (entity.init player {:x 32 :y 32})} :grid (new-grid width height #(if (= (math.random 6) 1) - (if (> $1 34) + (if (> $1 44) (cell.init cells.life) - (< $1 00) + (< $1 10) (cell.init cells.brain) nil) nil)) diff --git a/lib/main.fnl b/lib/main.fnl index 8e4908a..71319b8 100644 --- a/lib/main.fnl +++ b/lib/main.fnl @@ -11,6 +11,7 @@ ;; TODO: ^ (local hotswap-modules [:lib.player + :lib.bullet :lib.cells :lib.game :lib.main]) diff --git a/lib/player.fnl b/lib/player.fnl index 0633727..8e31a18 100644 --- a/lib/player.fnl +++ b/lib/player.fnl @@ -2,15 +2,19 @@ (local vec (require :lib.vec)) (local cell (require :lib.cell)) (local cells (require :lib.cells)) +(local bullet (require :lib.bullet)) (fn init [self pos] (setmetatable {entity.position pos entity.velocity {:x 0 :y 0} :target-spin 0 + :shot-age 0 :direction 0} self)) (fn steer [self game id controls] + (when (> self.shot-age 0) + (set self.shot-age (- self.shot-age 1))) ;; TODO: smooth turning (when controls.left (set self.target-spin (- self.target-spin 0.15))) @@ -24,7 +28,17 @@ (set v.x (+ v.x (* (math.cos self.direction) 0.02))) (set v.y (+ v.y (* (math.sin self.direction) 0.02))) (when (> (vec.mag v) 0.8) - (tset self entity.velocity (vec.mul v (/ 0.8 (vec.mag v))))))) + (tset self entity.velocity (vec.mul v (/ 0.8 (vec.mag v)))))) + (when (and controls.shoot (= self.shot-age 0)) + (set self.shot-age 10) + (local v (entity.velocity self)) + (table.insert + game.entities + (entity.init + bullet + (vec.clone (entity.position self)) + {:x (+ (* (math.cos self.direction) 0.6)) + :y (+ (* (math.sin self.direction) 0.6))})))) (fn draw [self game id] (love.graphics.setColor 1 1 1) diff --git a/lib/vec.fnl b/lib/vec.fnl index cce9627..943c7dc 100644 --- a/lib/vec.fnl +++ b/lib/vec.fnl @@ -16,6 +16,9 @@ (fn mag [v] (math.sqrt (+ (* v.x v.x) (* v.y v.y)))) +(fn norm [v n] + (mul v (/ (or n 1) (mag v)))) + (fn wrap [a b] {:x (% a.x b.x) :y (% a.y b.y)}) @@ -24,4 +27,7 @@ {:x (ilerp* a.x b.x c.x d.x x.x) :y (ilerp* a.y b.y c.y d.y x.y)}) -{: lerp : add : sub : mul : mag : wrap} +(fn clone [v] + {:x v.x :y v.y}) + +{: lerp : add : sub : mul : mag : wrap : norm : clone} -- cgit 1.3.0-6-gf8a5