travisshears/robot_cleaning_game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

get player rotation working

Browse source
This commit is contained in:
Travis Shears 2026-04-24 00:31:21 +02:00
parent c577295c3e
commit 6bbdbd75df
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
two_player_cleaning_game/src/entities/player.fnl
View file

@ -19,6 +19,29 @@
(local player { :x 50 :y 50 :w 25 :h 25 :speed 80 :battery 100 :rot 0 }) (local player { :x 50 :y 50 :w 25 :h 25 :speed 80 :battery 100 :rot 0 })
(fn player.update [self dt] (fn player.update [self dt]
(let [
d-key (love.keyboard.isDown :d)
a-key (love.keyboard.isDown :a)
e-key (love.keyboard.isDown :e)
q-key (love.keyboard.isDown :q)]
(match {:d-key d-key :a-key a-key :e-key e-key :q-key q-key}
{:d-key true :a-key false :e-key false :q-key false} (set self.rot (+ self.rot (* dt 2)))
{:d-key false :a-key true :e-key false :q-key false} (set self.rot (- self.rot (* dt 2)))
{:d-key false :a-key false :e-key true :q-key false} (set self.rot (- self.rot (* dt 2)))
{:d-key false :a-key false :e-key false :q-key true} (set self.rot (+ self.rot (* dt 2)))
))
; (when (and (> self.battery 0) (or d-key a-key e-key q-key))
; (let [
; dir-fn (if (or d-key a-key) #(+ $1 $2) #(- $1 $2))
; new-x (dir-fn player.x (* player.speed dt (math.cos player.rot)))
; new-y (dir-fn player.y (* player.speed dt (math.sin player.rot)))
; col-filter-fn (lambda [item other]
; (if (= other.behavior "block") :slide :cross))
; (x y cols len) (bump-world:move player new-x new-y col-filter-fn)]
; (tset player :x x)
; (tset player :y y))
; (if (> player.battery 0)
; (set player.battery (- player.battery (* dt 2))))))
(beholder.trigger "PLAYER.POS" self.x self.y)) (beholder.trigger "PLAYER.POS" self.x self.y))
(fn player.load [self level-key] (fn player.load [self level-key]