notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding new screen.

Browse Source
This commit is contained in:
Bryce Covert
2014-11-06 17:33:53 -08:00
parent 4b3851e32b
commit 96c82393fe
4 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
desktop/resources/inside-antique/background.psd
View File

Binary file not shown.

26
desktop/src-common/advent/screens/rooms/inside_antique.clj Normal file
View File

@@ -0,0 +1,26 @@
(ns advent.screens.rooms.inside-antique
(:require [advent.screens.rooms :as rooms]
[advent.actions :as actions]
[advent.screens.items :as items]
[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]
(rooms/make :music :town-1
:interactions
{:down {:box [60 0 290 25]
:cursor :down
:script (actions/get-script entities
(actions/walk-to entities :ego [222 3])
(actions/transition-background entities :inside-castle [182 90]))}}
:layers [(assoc (texture "inside-antique/background.png") :x 0 :y 0 :baseline 0)]
:entities {}
:collision "inside-antique/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.20)))

6
desktop/src-common/advent/screens/rooms/inside_castle.clj
View File

@@ -100,6 +100,12 @@
(actions/walk-to entities :ego [284 145]) (actions/walk-to entities :ego [284 145])
(actions/transition-background entities :outside-castle [82 180]) (actions/transition-background entities :outside-castle [82 180])
(actions/walk-to entities :ego [129 148]))} (actions/walk-to entities :ego [129 148]))}
:antique-door {:box [154 90 189 150]
:cursor :up
:script (actions/get-script entities
(actions/walk-to entities :ego [182 90] :face :left)
(actions/play-animation entities :ego :reach)
(actions/transition-background entities :inside-antique [222 15]))}
:sword {:box [0 130 39 165] :sword {:box [0 130 39 165]
:script (actions/get-script entities :script (actions/get-script entities
(actions/talk entities :ego "That's the coolest sword I've ever seen!!") (actions/talk entities :ego "That's the coolest sword I've ever seen!!")

2
desktop/src-common/advent/screens/scene.clj
View File

@@ -15,6 +15,7 @@
[advent.screens.rooms.outside-house :as rooms.outside-house] [advent.screens.rooms.outside-house :as rooms.outside-house]
[advent.screens.rooms.inside-house :as rooms.inside-house] [advent.screens.rooms.inside-house :as rooms.inside-house]
[advent.screens.rooms.inside-castle :as rooms.inside-castle] [advent.screens.rooms.inside-castle :as rooms.inside-castle]
[advent.screens.rooms.inside-antique :as rooms.inside-antique]
[advent.screens.rooms.behind-house :as rooms.behind-house] [advent.screens.rooms.behind-house :as rooms.behind-house]
[advent.screens.rooms.outside-castle :as rooms.outside-castle] [advent.screens.rooms.outside-castle :as rooms.outside-castle]
[advent.screens.rooms.cat-tree :as rooms.cat-tree] [advent.screens.rooms.cat-tree :as rooms.cat-tree]
@@ -171,6 +172,7 @@
:behind-house (rooms.behind-house/make screen) :behind-house (rooms.behind-house/make screen)
:cat-tree (rooms.cat-tree/make screen) :cat-tree (rooms.cat-tree/make screen)
:inside-castle (rooms.inside-castle/make screen) :inside-castle (rooms.inside-castle/make screen)
:inside-antique (rooms.inside-antique/make screen)
:outside-castle (rooms.outside-castle/make screen)}] :outside-castle (rooms.outside-castle/make screen)}]
{:rooms rooms {:rooms rooms
:musics {:object nil :musics {:object nil