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

cafeteria.

Browse Source
This commit is contained in:
Bryce Covert
2014-11-10 13:48:22 -08:00
parent fa79d63ec9
commit 8e87c39d0e
6 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -0,0 +1,26 @@
(ns advent.screens.rooms.inside-cafeteria
(:require [advent.screens.rooms :as rooms]
[advent.screens.items :as items]
[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]
(rooms/make :music :town-1
:interactions
{:right-dir {:box [300 0 320 120]
:script (actions/get-script
entities
(actions/walk-to entities :ego [319 50])
(actions/transition-background entities :inside-castle [65 150])
(actions/walk-to entities :ego [126 80]))
:cursor :right}
}
:layers [(assoc (texture "inside-cafeteria/background.png") :x 0 :y 0 :baseline 0)]
:entities {}
:collision "inside-cafeteria/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.50)))

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

@@ -100,6 +100,12 @@
(actions/walk-to entities :ego [284 145])
(actions/transition-background entities :outside-castle [82 180])
(actions/walk-to entities :ego [129 148]))}
:up-door {:box [50 150 70 170]
:script (actions/get-script entities
(actions/walk-to entities :ego [65 155])
(actions/transition-background entities :inside-cafeteria [319 55])
(actions/walk-to entities :ego [300 55]))
:cursor :up}
:antique-door {:box [154 90 189 150]
:cursor :up
:script (actions/get-script entities