179 lines
8.3 KiB
Clojure
179 lines
8.3 KiB
Clojure
(ns advent.screens.inventory
|
|
(:require [play-clj.core :refer :all]
|
|
[play-clj.ui :refer :all]
|
|
[play-clj.utils :refer :all]
|
|
[play-clj.g2d :refer :all]
|
|
[clojure.tools.logging :as log]
|
|
[clojure.pprint]
|
|
[advent.pathfind]
|
|
[advent.zone :as zone]
|
|
[advent.tween :as tween]
|
|
[advent.utils :as utils])
|
|
(:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
|
|
[com.badlogic.gdx.graphics.g2d TextureRegion]
|
|
[com.badlogic.gdx.utils.viewport FitViewport]
|
|
[com.badlogic.gdx.utils Align]
|
|
[com.badlogic.gdx Application Audio Files Game Gdx Graphics Input
|
|
InputMultiplexer InputProcessor Net Preferences Screen]))
|
|
|
|
|
|
(defn close [screen entities script-started?]
|
|
(log/info "closing inventory")
|
|
(screen! @(resolve 'advent.screens.scene/scene) :on-reactivate :script-started? script-started?)
|
|
(-> entities
|
|
(assoc-in [:tweens :fade-out] (tween/tween :fade-out screen [:opacity] 1.0 0.0 0.2 :ease tween/ease-out-cubic
|
|
:finish #(assoc % :shown? false)))))
|
|
|
|
(defn mouse-down [screen [entities]]
|
|
(let [[x y] (utils/unproject screen)
|
|
selected-entity (first (filter #((:box %) x y) (vals (:items entities))))]
|
|
(assoc entities :selected-item (:item selected-entity))))
|
|
|
|
(defn mouse-drag [screen [{:keys [selected-item] :as entities}]]
|
|
(let [[x y] (utils/unproject screen)
|
|
hovered-entity (first (filter #((:box %) x y) (vals (:items entities))))
|
|
]
|
|
(if selected-item
|
|
(-> entities
|
|
(assoc-in [:items selected-item :x] (- x 32))
|
|
(assoc-in [:items selected-item :y] (- y 32))
|
|
(assoc :hovered-item (:item hovered-entity)))
|
|
(assoc entities :hovered-item (:item hovered-entity)))))
|
|
|
|
|
|
(defn mouse-move [screen [entities]]
|
|
(let [[x y] (utils/unproject screen)
|
|
hovered-entity (first (filter #((:box %) x y) (vals (:items entities))))]
|
|
(assoc entities :hovered-item (:item hovered-entity))))
|
|
|
|
(defn left-click [screen {:keys [selected-item hovered-item] :as entities}]
|
|
(let [room-entities (-> @(resolve 'advent.screens.scene/scene)
|
|
:entities
|
|
deref
|
|
first)
|
|
current-cursor (get-in room-entities [:cursor :current])]
|
|
|
|
(log/info "chose inventory item" selected-item)
|
|
(if selected-item
|
|
(if (= :main current-cursor)
|
|
(do (screen! @(resolve 'advent.screens.scene/scene) :on-chose-item :item selected-item)
|
|
(close screen entities false))
|
|
(when-let [interaction-script ((or (:scripts selected-item) (constantly nil)) (:value current-cursor))]
|
|
(interaction-script room-entities)
|
|
(close screen entities true)))
|
|
(close screen entities false))))
|
|
|
|
(defn right-click [screen {:keys [selected-item] :as entities} ]
|
|
(let [
|
|
room-entities (-> @(resolve 'advent.screens.scene/scene)
|
|
:entities
|
|
deref
|
|
first)
|
|
current-cursor (get-in room-entities [:cursor :current])
|
|
ego (get-in room-entities [:room :entities :ego])]
|
|
(when (and selected-item (= :main current-cursor))
|
|
(((:get-script ego) selected-item [0 0]) room-entities)
|
|
(close screen entities))))
|
|
|
|
(defn update-hovered-text [screen {:keys [hovered-text hovered-item selected-item] :as entities}]
|
|
(cond
|
|
(and hovered-item selected-item (not= hovered-item selected-item))
|
|
(label! (:hovered-text entities) :set-text (str "Use " (:name selected-item) " with " (:name hovered-item)))
|
|
|
|
hovered-item
|
|
(label! (:hovered-text entities) :set-text (:name hovered-item))
|
|
|
|
:else
|
|
(label! (:hovered-text entities) :set-text "")))
|
|
|
|
(defscreen inventory-screen
|
|
:on-show
|
|
(fn [screen entities]
|
|
(utils/setup-viewport screen 1280 960)
|
|
|
|
(let [hovered-text (assoc (label "Hello" (style :label (utils/get-font "ego/font.fnt") (color :white)) :set-font-scale 0.25) :x 0 :y 850 :width 1280 )]
|
|
(label! hovered-text :set-alignment Align/bottom)
|
|
{:overlay (assoc (utils/get-texture "inventory-overlay.png" ) :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0 :opacity 0.0)
|
|
:fade (assoc (utils/get-texture "black.png")
|
|
:scale-x 80
|
|
:scale-y 80
|
|
:opacity 0.7
|
|
:origin-x 0
|
|
:origin-y 0)
|
|
:all-items (texture! (texture (pixmap "cursor.png")) :split 18 16)
|
|
:items []
|
|
:shown? false
|
|
:hovered-item nil
|
|
:opacity 0.0
|
|
:tweens {}
|
|
:hovered-text hovered-text}))
|
|
|
|
:on-render
|
|
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
|
|
(.apply viewport)
|
|
(let [
|
|
entities (utils/apply-tweens screen entities (:tweens entities))
|
|
opacity (get-in entities [:opacity])
|
|
entities (-> entities
|
|
(assoc-in [:overlay :opacity] opacity)
|
|
(assoc-in [:fade :opacity] (* 0.6 opacity))
|
|
(assoc-in [:hovered-text :opacity] opacity)
|
|
(update-in [:items] (fn [items]
|
|
(reduce-kv (fn [c k i]
|
|
(assoc c k (assoc i :opacity opacity)))
|
|
|
|
items items))))]
|
|
|
|
(when (:shown? entities)
|
|
(doto (:hovered-text entities)
|
|
(label! :set-color (color 1 1 1 opacity)))
|
|
(render! screen [(:fade entities) (:overlay entities)])
|
|
(render! screen (vals (:items entities)))
|
|
(update-hovered-text screen entities)
|
|
|
|
(render! screen [(:hovered-text entities)]))
|
|
entities))
|
|
|
|
:show-screen (fn [{items :items :as screen} [entities]]
|
|
(log/info "showing inventory")
|
|
(if (:shown? entities)
|
|
entities
|
|
|
|
(-> entities
|
|
(assoc :shown? true
|
|
:opacity 0.0
|
|
:items (into {} (for [[item index] (map vector items (range))
|
|
:let [row (int (/ index 8))
|
|
column (mod index 8)
|
|
base-x (* 79 4)
|
|
base-y (* 180 4)
|
|
x (+ base-x (* column (* 24 4)))
|
|
y (- base-y (* row (* 24 4)))
|
|
item-width 18
|
|
offset-x (+ x (/ item-width 2))
|
|
offset-y (+ y (/ item-width 2))
|
|
padding (/ item-width 2)
|
|
padding (* 4 padding)]]
|
|
[item (assoc (texture (aget (:all-items entities) 0 (.indexOf utils/+all-cursors+ (:cursor item))))
|
|
:x x :y y
|
|
:scale-x 4
|
|
:scale-y 4
|
|
:origin-x 0
|
|
:origin-y 0
|
|
:item item
|
|
:box (zone/box (- offset-x padding) (- offset-y padding) (+ offset-x item-width padding padding) (+ offset-y item-width padding padding)))])))
|
|
(assoc-in [:tweens :fade-in] (tween/tween :fade-in screen [:opacity] 0.0 1.0 0.2 :ease tween/ease-out-cubic)))))
|
|
|
|
:on-mouse-moved mouse-move
|
|
:on-touch-dragged mouse-drag
|
|
:on-touch-down mouse-down
|
|
|
|
:on-touch-up (fn [screen [entities]]
|
|
(when (and (:shown? entities) (= 1.0 (:opacity entities)))
|
|
(if (= (button-code :left) (:button screen))
|
|
(left-click screen entities)
|
|
(right-click screen entities))))
|
|
|
|
:on-resize (fn [screen entities]
|
|
(.update (:viewport screen) (:width screen) (:height screen) true)))
|