You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
2.1 KiB
70 lines
2.1 KiB
(ns topdown2d.demoscene
|
|
(:require
|
|
[topdown2d.collision :as collision]
|
|
[topdown2d.input :as input]
|
|
[topdown2d.sprites :as sprites]))
|
|
|
|
(defn init [gamestate scenestate]
|
|
(merge
|
|
scenestate
|
|
{:player {:x (- (/ (get-in gamestate [:dimensions :w]) 2) 32)
|
|
:y (- (/ (get-in gamestate [:dimensions :h]) 2) 32)
|
|
:w 64 :h 64
|
|
:d :s
|
|
:sprite
|
|
{:image (.getElementById js/document "demo-player")
|
|
:size 64
|
|
:rows {:w 1 :e 3
|
|
:n 0 :s 2
|
|
:? 2}
|
|
:cycle {:pos 0
|
|
:from 1
|
|
:count 8
|
|
:last-cycle 0
|
|
;; cycles per second
|
|
:cps 10}}}
|
|
:viewport {:image (.getElementById js/document "demo-background")
|
|
:keep-in {:x 0 :y 0
|
|
:w 2239 :h 2235}
|
|
:x 1 :y 1
|
|
:d :?
|
|
;; pixels per second
|
|
:pps 150
|
|
:w (get-in gamestate [:dimensions :w])
|
|
:h (get-in gamestate [:dimensions :h])}}))
|
|
|
|
(defn update-player [gamestate player dir]
|
|
(let [old-dir (:d player)
|
|
new-dir (if (= :? dir) old-dir dir)]
|
|
(as-> player p
|
|
(assoc p :d new-dir)
|
|
(if (= :? dir)
|
|
(sprites/reset player)
|
|
(sprites/proc gamestate p)))))
|
|
|
|
(defn update-viewport [gamestate viewport dir]
|
|
(collision/move-inside
|
|
(assoc viewport :d dir)
|
|
(:keep-in viewport)
|
|
(collision/pps->px gamestate viewport)))
|
|
|
|
(defn update-scene [gamestate scenestate]
|
|
(let [player (:player scenestate)
|
|
viewport (:viewport scenestate)
|
|
dir (get-in gamestate [:input :dir])]
|
|
(assoc scenestate
|
|
:player (update-player gamestate player dir)
|
|
:viewport (update-viewport gamestate viewport dir))))
|
|
|
|
(defn draw-scene [gamestate scenestate]
|
|
(let [viewport (:viewport scenestate)
|
|
{:keys [x y w h background]} viewport]
|
|
(.drawImage
|
|
(:ctx gamestate)
|
|
(:image viewport)
|
|
x y w h
|
|
0 0 w h))
|
|
(sprites/draw
|
|
(:ctx gamestate)
|
|
(:player scenestate)))
|