Shmup experiment

.gitignore

@@ -11,3 +11,5 @@ pom.xml
 .lein-plugins/
 .repl
 .nrepl-port
+/.cpcache/
+/.rebel_readline_history

deps.edn

@@ -1,13 +1,14 @@
 {:deps {org.clojure/clojurescript {:mvn/version "1.10.597"}
-        com.bhauman/figwheel-main {:mvn/version "0.2.3"}
+        com.bhauman/figwheel-main {:mvn/version "0.2.7"}
         binaryage/oops {:mvn/version "0.7.0"}
-        cljsjs/pixi {:mvn/version "5.1.4-0"}}
+        cljsjs/pixi {:mvn/version "5.2.0-0"}
+        cljsjs/howler {:mvn/version "2.0.5-0"}}
 
  :paths ["src" "target" "resources"]
 
  :aliases {:dev
            {:main-opts ["-m" "figwheel.main" "-b" "dev" "-r"]
-            :extra-deps {com.bhauman/figwheel-main {:mvn/version "0.2.3"}
+            :extra-deps {com.bhauman/figwheel-main {:mvn/version "0.2.7"}
                          com.bhauman/rebel-readline-cljs {:mvn/version "0.1.4"}}}
-           :awwwliens-min
-           {:main-opts ["-m" "figwheel.main" "-bo" "awwwliens-min"]}}}
+           :min
+           {:main-opts ["-m" "figwheel.main" "-bo" "min" "-O" "advanced"]}}}

project.clj

@@ -10,7 +10,8 @@
                  [org.clojure/clojurescript "1.10.597"]
                  [org.clojure/core.async  "0.4.500"]
                  [binaryage/oops "0.7.0"]
-                 [cljsjs/pixi "5.1.2-0"]]
+                 [cljsjs/pixi "5.1.2-0"]
+                 [cljsjs/howler "2.0.5-0"]]
 
   :plugins [[lein-figwheel "0.5.19"]
             [lein-cljsbuild "1.1.7" :exclusions [[org.clojure/clojure]]]]

resources/public/images/shmup/game/player.json

@@ -0,0 +1,47 @@
+{"frames": {
+
+"player-0.png":
+{
+	"frame": {"x":1,"y":1,"w":42,"h":30},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":30},
+	"sourceSize": {"w":48,"h":32}
+},
+"player-1.png":
+{
+	"frame": {"x":1,"y":65,"w":42,"h":32},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":32},
+	"sourceSize": {"w":48,"h":32}
+},
+"player-2.png":
+{
+	"frame": {"x":1,"y":33,"w":42,"h":30},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":30},
+	"sourceSize": {"w":48,"h":32}
+},
+"player-3.png":
+{
+	"frame": {"x":1,"y":65,"w":42,"h":32},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":32},
+	"sourceSize": {"w":48,"h":32}
+}},
+"animations": {
+	"player": ["player-0.png","player-1.png","player-2.png","player-3.png"]
+},
+"meta": {
+	"app": "https://www.codeandweb.com/texturepacker",
+	"version": "1.0",
+	"image": "player.png",
+	"format": "RGBA8888",
+	"size": {"w":44,"h":98},
+	"scale": "1",
+	"smartupdate": "$TexturePacker:SmartUpdate:d1185eeb86274dab3a81508ace19f526:c1437acec00efe57d100076dc4fe28ad:86d5339b780aedd87b35e2b7c0a7e11b$"
+}
+}

resources/public/images/shmup/game/ufo.json

@@ -0,0 +1,47 @@
+{"frames": {
+
+"ufo-0.png":
+{
+	"frame": {"x":1,"y":1,"w":42,"h":30},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":2,"w":42,"h":30},
+	"sourceSize": {"w":48,"h":32}
+},
+"ufo-1.png":
+{
+	"frame": {"x":1,"y":65,"w":42,"h":32},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":32},
+	"sourceSize": {"w":48,"h":32}
+},
+"ufo-2.png":
+{
+	"frame": {"x":1,"y":33,"w":42,"h":30},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":2,"w":42,"h":30},
+	"sourceSize": {"w":48,"h":32}
+},
+"ufo-3.png":
+{
+	"frame": {"x":1,"y":65,"w":42,"h":32},
+	"rotated": false,
+	"trimmed": true,
+	"spriteSourceSize": {"x":3,"y":0,"w":42,"h":32},
+	"sourceSize": {"w":48,"h":32}
+}},
+"animations": {
+	"ufo": ["ufo-0.png","ufo-1.png","ufo-2.png","ufo-3.png"]
+},
+"meta": {
+	"app": "https://www.codeandweb.com/texturepacker",
+	"version": "1.0",
+	"image": "ufo.png",
+	"format": "RGBA8888",
+	"size": {"w":44,"h":98},
+	"scale": "1",
+	"smartupdate": "$TexturePacker:SmartUpdate:a0b7e703bae679cfdaffbf9c8146d488:2906306c4ca8a91aa6d00bf87ec882d4:9a4865e58023cfbd5f985c000455d470$"
+}
+}

src/minasss_games/collision.cljs

@@ -0,0 +1,25 @@
+(ns minasss-games.collision
+  "Utility functions for (simple, bounding rect based) collision detection")
+
+(defn make-rect-bounds
+  "Make a bounding rect based on provided position and rect size; rect is
+  centered around position"
+  [[x y] [width height]]
+  (let [hw (/ width 2)
+        hh (/ height 2)]
+    [(- x hw) (- y hh) (+ x hw) (+ y hh)]))
+
+(defn rects-overlap
+  "Returns true if the provided rects overlaps"
+  [[ax-top ay-top ax-bottom ay-bottom] [bx-top by-top bx-bottom by-bottom]]
+  (and (< ax-top bx-bottom) (< ay-top by-bottom) (> ax-bottom bx-top) (> ay-bottom by-top)))
+
+(comment
+  (make-rect-bounds [100 100] [10 10])
+  (make-rect-bounds [105 105] [10 10])
+
+  (rects-overlap
+    (make-rect-bounds [100 100] [10 10])
+    (make-rect-bounds [125 125] [10 10])
+    )
+  )

src/minasss_games/core.cljs

@@ -2,8 +2,7 @@
   "A small experiment with PIXI javascript library"
   (:require [minasss-games.pixi :as pixi]
             [minasss-games.director :as director]
-            [minasss-games.experiments.awwwliens.intro :as awwwliens]))
-            ;; [minasss-games.experiments.harvest-bot :as harvest-bot]))
+            [minasss-games.experiments.shmup.game :as shmup]))
 
 (enable-console-print!)
 
@@ -12,7 +11,7 @@
   (let [app (pixi/make-app {:width (.-innerWidth js/window)
                             :height (.-innerHeight js/window)})]
     (director/init app)
-    (director/start-scene awwwliens/scene)
+    (director/start-scene shmup/scene)
     app))
 
 (defonce ^:export app (init))

src/minasss_games/element.cljs

@@ -78,8 +78,11 @@
 (defmethod make-element :animated-sprite
   [tag attrs]
   (let [container (pixi/make-animated-sprite (:spritesheet attrs) (:animation-name attrs))
-        cleaned-attrs (dissoc attrs :spritesheet :animation-name)]
-    (pixi/set-attributes container cleaned-attrs)))
+        cleaned-attrs (dissoc attrs :spritesheet :animation-name :autostart)]
+    (pixi/set-attributes container cleaned-attrs)
+    (when (:autostart attrs)
+      (.play container))
+    container))
 
 (defmethod make-element :text
   [tag attrs]

src/minasss_games/experiments/shmup/enemy_behaviour.cljs

@@ -0,0 +1,40 @@
+(ns minasss-games.experiments.shmup.enemy-behaviour
+  "This namespace collects all enemy ai related functions and
+  state management. Still not sure how this is going to be
+  implemented, I expect it to be higlhy experimental and prone
+  to changes in structure and functionality.")
+
+(defmulti update-state
+  (fn [entity] (get-in entity [::ai ::behaviour-type])))
+
+(defmethod update-state :default
+  [entity]
+  entity)
+
+(defmethod update-state ::horizontal-ping-pong
+  [{:keys [position direction] :as entity}]
+  (let [dir-x (first direction)
+        pos-x (first position)]
+    (cond
+      (> dir-x 0) (if (< 350 pos-x)
+                    (assoc entity :direction [-1 0])
+                    entity)
+      (< dir-x 0) (if (> 200 pos-x)
+                    (assoc entity :direction [1 0])
+                    entity)
+      :else entity)))
+
+;; this multi method is used to create the initial state
+;; for the specified behaviour type and "attach" it to the ::ai key
+;; of the entity; this is needed because the main idea, for now,
+;; is to change entity properties to reflect selected behaviour.
+(defmulti init-state
+  (fn [behaviour-type _entity] behaviour-type))
+
+(defmethod init-state ::horizontal-ping-pong
+  [behaviour-type entity]
+  (-> entity
+    (assoc
+      ::ai {::behaviour-type behaviour-type}
+      :direction [1 0]
+      :speed 10)))