76 lines
5.5 KiB
Clojure
76 lines
5.5 KiB
Clojure
(ns advent.screens.rooms.outside-castle
|
|
(:require [advent.screens.items :as items]
|
|
[advent.screens.rooms :as rooms]
|
|
[advent.actions :as actions]
|
|
[advent.utils :as utils]
|
|
[clojure.zip :as zip]
|
|
[play-clj.core :refer :all]
|
|
[play-clj.ui :refer :all]
|
|
[play-clj.utils :refer :all]
|
|
[play-clj.g2d :refer :all]))
|
|
|
|
(defn make [screen]
|
|
(let [peddler-sheet (texture! (texture "outside-castle/peddler-talk.png" ) :split 18 36)
|
|
peddler-talk (animation 0.18 (for [i (flatten [2 3 2 3 2 3 6 1 0 1 0 1 0 1 0 1 2 3 2 3 2 3 6 4 5 4 5 4 5 4 5])]
|
|
(aget peddler-sheet 0 i)))
|
|
peddler-stand (animation 0.2 (for [i (flatten [(repeat 5 0) 6])]
|
|
(aget peddler-sheet 0 i)))]
|
|
(rooms/make :music :town-2
|
|
:interactions
|
|
{:right-dir {:box [300 40 320 140]
|
|
:script (actions/get-script
|
|
entities
|
|
(actions/walk-to entities :ego [310 80])
|
|
(actions/transition-background entities :outside-house [0 80]))
|
|
:cursor :right}
|
|
:door {:box [66 180 85 195]
|
|
:script (actions/get-script
|
|
entities
|
|
(actions/walk-to entities :ego [82 180])
|
|
(actions/transition-background entities :inside-castle [280 145])
|
|
(actions/walk-to entities :ego [245 90]))
|
|
:cursor :left}
|
|
:garden {:box [103 170 178 200]
|
|
:script (actions/get-script
|
|
entities
|
|
(if (actions/has-item? @entities items/carrot)
|
|
(actions/talk entities :ego "If I steal any more, I might get caught.")
|
|
(do
|
|
(actions/walk-to entities :ego [128 180])
|
|
(actions/talk entities :ego "Hey! Carrots.")
|
|
(actions/play-animation entities :ego :squat)
|
|
(actions/talk entities :ego "No one will notice one missing.")
|
|
(actions/give entities items/carrot))))}
|
|
:peddler {:box [110 90 128 146]
|
|
:script (actions/get-script
|
|
entities
|
|
(actions/walk-to entities :ego [191 90])
|
|
(actions/update-state entities (fn [state] (assoc state :wants-toy true)))
|
|
(actions/do-dialogue entities
|
|
:ego "Hello there, peddler."
|
|
:peddler "Good day sir! Care to see any of my wares?"
|
|
:peddler "I have only the choicest of wares."
|
|
:ego "What 'wares' are you selling?"
|
|
:peddler "I have the choicest of all types of wares..."
|
|
:peddler "...I'm well stocked on used earplugs..."
|
|
:peddler "...glass eyes, motivational tapes... "
|
|
:peddler "... and this nice, big, red balloon."
|
|
:ego "I sure am interested in that balloon."
|
|
:peddler "An excellent selection! It is the choicest of balloons you'll ever find."
|
|
:peddler "This bundle of joy will only set you back 75 sheckels."
|
|
:ego "But I haven't got any money!"
|
|
:peddler "Then you won't have the choicest of balloons."
|
|
:peddler "I could, however, give you the balloon if you could procure for me a ware I'm missing."
|
|
:peddler "A child's toy. And I mean the choicest of children's toys.")
|
|
(actions/give entities items/balloon))}}
|
|
:layers [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]
|
|
:entities {:peddler (actions/start-animation screen
|
|
(assoc (texture "outside-castle/peddler.png") :x 110 :y 90 :baseline 150 :anim nil
|
|
:talk peddler-talk :stand peddler-stand)
|
|
:stand)
|
|
:steer (assoc (texture "outside-castle/steer.png" ) :x 203 :y 155 :baseline 80
|
|
:script (actions/get-script entities
|
|
(actions/talk entities :ego "That is one buff bull!")))}
|
|
:collision "outside-castle/collision.png"
|
|
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00))))
|