(ns advent.core (:require [play-clj.core :refer :all] [play-clj.ui :refer :all] [play-clj.utils :refer :all] [play-clj.g2d :refer :all] [clojure.pprint] [advent.pathfind]) (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter])) (def scale 2) (def +screen-width+ 320) (def +screen-height+ 240) (def +num-cursors+ 4) (def +next-cursor+ (into {} (map vector (range +num-cursors+) (drop 1 (cycle (range +num-cursors+)))))) (defn +next-cursor+ [x] (first (drop 1 (drop-while #(not= x %) (cycle (range +num-cursors+)))))) (defn cursor [filename index] (let [base-cursor (pixmap filename) target-width (* 16 scale) target-height (* 16 scale) resized (Pixmap. target-width target-height (.getFormat base-cursor))] (Pixmap/setFilter Pixmap$Filter/NearestNeighbour) (pixmap! resized :draw-pixmap base-cursor (* index 16) 0 16 16 0 0 target-width target-height) resized )) (defn right-click [screen entities] (let [entities (update-in entities [:cursor] #(assoc % :cursor-index (+next-cursor+ (:cursor-index %))))] (input! :set-cursor-image (cursor "cursor.png" (get-in entities [:cursor :cursor-index])) 0 0) entities)) (defn move-to [screen entities entity [x y]] (let [scale-fn (-> entities :background :scale-fn) entity (assoc entity :x x :y y :baseline (- 240 y))] (if (:scaled entity) (assoc entity :scale-x (scale-fn y) :scale-y (scale-fn y)) entity))) (defn walk-to-fn [[x y] target-id] (fn [screen entities] (let [{:keys [left right anim] :as target-entity} (entities target-id) target-loc {:x x :y y}] (let [delta-x (- x (:x target-entity)) delta-y (- y (:y target-entity)) mag (Math/sqrt (+ (* delta-x delta-x) (* delta-y delta-y))) vector-x (* 1.5 (/ delta-x mag)) vector-y (* 1.5 (/ delta-y mag))] (if (< mag 1) (assoc entities target-id (assoc target-entity :actions (rest (:actions target-entity)) :anim nil)) (assoc entities target-id (assoc (move-to screen entities target-entity [(+ vector-x (:x target-entity)) (+ vector-y (:y target-entity))]) :anim (if (< vector-x 0) left right)))))))) (defn stop-fn [target-id] (fn [screen entities] (let [target (target-id entities)] (assoc-in entities [target-id] (merge target {:anim nil} (when (:anim target) (texture (animation! (:anim target) :get-key-frame 0.25)))))))) (defn left-click [screen entities] (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)}) path (vec (take-nth 2 (advent.pathfind/visit-all (:collision (:background entities)) [(int (:x (:ego entities))) (int (:y (:ego entities)))] [(int x) (int y)])))] (assoc-in entities [:ego :actions] (when (seq path) (concat (vec (map #(walk-to-fn % :ego) (conj path [x y]))) [(stop-fn :ego)]))))) (defn get-ego [screen] (let [player-sheet (texture! (texture "player.png") :split 18 36) ego {:right (animation 0.075 (for [i (range 8)] (texture (aget player-sheet 0 i)))) :left (animation 0.075 (for [i (range 8)] (texture (aget player-sheet 1 i)))) :baseline 95 :origin-x 9 :origin-y 0 :scaled true :actions [] :x 150 :y 95 :id "ego"}] (merge (texture (animation! (:right ego) :get-key-frame 0.25)) ego))) (defn update-ego [screen entities ego] (if-let [action (first (:actions ego))] (:ego (action screen entities)) ego)) (defn scaler-fn-with-baseline [baseline minimum-size & [maximum-size]] (let [maximum-size (or maximum-size 1.0)] (fn [y] (if (< y baseline) maximum-size (let [percent-complete (- 1.0 (/ (- y baseline) (- +screen-height+ baseline))) range (+ (* percent-complete (- maximum-size minimum-size)) minimum-size)] range))))) (defn box-maker-fn [x1 y1 x2 y2] (fn [x y] (and (< x1 x x2) (< y1 y y2)))) (defscreen main-screen :on-show (fn [screen entities] (update! screen :renderer (stage) :camera (orthographic)) (let [ _ (input! :set-cursor-image (cursor "cursor.png" 0) 0 0) background (texture "bg5.png") background-trees (texture "background-trees.png") house (texture "house.png") overdirt (texture "overdirt.png") music (sound "outside-house.mp3") ;; _ (sound! music :loop) ] { :cursor {:id "cursor" :cursor-index 0 } :background (assoc background :id "background" :x 0 :y 0 :collision (advent.pathfind/map-from-resource "pathfind-test-big.png") :baseline 0 :mouse-overrides [{:mouse-in? (box-maker-fn 290 131 320 224) :cursor-override 4} {:mouse-in? (box-maker-fn 60 180 224 240) :cursor-override 7} {:mouse-in? (box-maker-fn 0 40 30 140) :cursor-override 6}] :scale-fn (scaler-fn-with-baseline 110 0.10 1.00)) :house (assoc house :x 0 :y 0 :baseline 122) :overdirt (assoc overdirt :x 0 :y 0 :baseline 240) :background-trees (assoc background-trees :x 0 :y 0 :baseline 44) :ego (get-ego screen) :fps (assoc (label "0" (color :white) ) :x 5 :baseline 9000) })) :on-render (fn [screen [entities]] (clear!) (let [entities (assoc entities :ego (update-ego screen entities (:ego entities))) _ (label! (:fps entities) :set-text (str (game :fps))) entities (if (get-in entities [:ego :anim]) (update-in entities [:ego] #(merge % (animation->texture screen (:anim %)))) entities)] (render! screen (sort-by :baseline (vals entities))) entities)) :on-resize (fn [screen entities] (size! screen 320 240)) :on-mouse-moved (fn [screen [entities]] (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})] (if-let [mouse-override (first (filter #((:mouse-in? %) x y) (get-in entities [:background :mouse-overrides])))] (when (not (get-in entities [:cursor :override])) (do (input! :set-cursor-image (cursor "cursor.png" (:cursor-override mouse-override)) 0 0) (assoc-in entities [:cursor :override] true))) (when (get-in entities [:cursor :override]) (do (input! :set-cursor-image (cursor "cursor.png" (get-in entities [:cursor :cursor-index])) 0 0) (assoc-in entities [:cursor :override] false)))))) :on-touch-down (fn [screen [entities]] (if (= (button-code :right) (:button screen)) (right-click screen entities) (left-click screen entities)))) (defgame advent :on-create (fn [this] (set-screen! this main-screen) #_(input! :set-cursor-catched true)))