diff --git a/desktop/gametodos.txt b/desktop/gametodos.txt new file mode 100644 index 00000000..393e0849 --- /dev/null +++ b/desktop/gametodos.txt @@ -0,0 +1,20 @@ ++ Grandma cry? ++ More ways to burn paper ++ drool icon +++ antique position ++ origins are still messed up when scaling ++ loop sounds update every frame instead of each play ++ door open and close animations ++ shitty plates ++ better gross-out animation ++ sudden night befoe switching ++ too small area ++ peddler stuff should be gone at night ++ owl barf effect ++ sack lunch should spoil ++ swinging axe at second doesn't seem right ++ bloodclot isn't hidden at start ++ fight with blergh at end isn't great ++ ending ++ wrong timing for potions ++ secret lever diff --git a/desktop/pom.xml b/desktop/pom.xml new file mode 100644 index 00000000..cb3e6588 --- /dev/null +++ b/desktop/pom.xml @@ -0,0 +1,165 @@ + + 4.0.0 + advent + advent + jar + 0.0.1-SNAPSHOT + advent + FIXME: write description + + src + test + + + resources + + + + + dev-resources + + + resources + + + target + target/classes + + + org.codehaus.mojo + build-helper-maven-plugin + 1.7 + + + add-source + generate-sources + + add-source + + + + src-common + + + + + + + + + + central + https://repo1.maven.org/maven2/ + + false + + + true + + + + clojars + https://clojars.org/repo/ + + true + + + true + + + + + + com.badlogicgames.gdx + gdx + 1.5.3 + + + com.badlogicgames.gdx + gdx-backend-lwjgl + 1.5.3 + + + com.badlogicgames.gdx + gdx-box2d + 1.5.3 + + + com.badlogicgames.gdx + gdx-tools + 1.5.3 + + + com.badlogicgames.gdx + gdx-box2d-platform + 1.5.3 + natives-desktop + + + com.badlogicgames.gdx + gdx-bullet + 1.5.3 + + + com.badlogicgames.gdx + gdx-bullet-platform + 1.5.3 + natives-desktop + + + com.badlogicgames.gdx + gdx-platform + 1.5.3 + natives-desktop + + + org.clojure + clojure + 1.6.0 + + + org.clojure + tools.nrepl + 0.2.6 + + + org.clojure + clojure + + + test + + + play-clj + play-clj + 0.4.5-BRYCE + + + org.clojure + data.priority-map + 0.0.5 + + + org.clojure + core.async + 0.1.338.0-5c5012-alpha + + + clojure-complete + clojure-complete + 0.2.3 + + + org.clojure + clojure + + + test + + + + + diff --git a/desktop/resources/testscreen/subject.png b/desktop/resources/testscreen/subject.png new file mode 100644 index 00000000..306e44dd Binary files /dev/null and b/desktop/resources/testscreen/subject.png differ diff --git a/desktop/resources/testscreen/test.png b/desktop/resources/testscreen/test.png new file mode 100644 index 00000000..c030f455 Binary files /dev/null and b/desktop/resources/testscreen/test.png differ diff --git a/desktop/src-common/advent/screens/test.clj b/desktop/src-common/advent/screens/test.clj new file mode 100644 index 00000000..5fd16515 --- /dev/null +++ b/desktop/src-common/advent/screens/test.clj @@ -0,0 +1,49 @@ +(ns advent.screens.test + (:require [play-clj.core :refer :all] + [play-clj.math :refer :all] + [play-clj.ui :refer :all] + [play-clj.utils :refer :all] + [play-clj.g2d :refer :all] + [advent.utils :as utils] + [advent.tween :as tween] + [advent.screens.scene :as scene] + [advent.screens.dialogue :as dialogue] + [advent.screens.title :as title] + [advent.screens.inventory :as inventory] + [advent.screens.safe :as safe] + [advent.screens.fade :as fade] + ) + (: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.scenes.scene2d.ui Slider$SliderStyle] + [com.badlogic.gdx.scenes.scene2d.utils Align] + [com.badlogic.gdx Application Audio Files Game Gdx Graphics Input + InputMultiplexer InputProcessor Net Preferences Screen])) + + + + + + +(defscreen test-screen + :on-show + (fn [screen entities] + + (utils/setup-viewport screen 320 240) + + {:overlay (assoc (texture "testscreen/test.png" ) :x 0 :y 0 :origin-x 0 :origin-y 0) + :subject (assoc (texture "testscreen/subject.png" ) :x 160 :y 120 :origin-x 7 :origin-y 7 :scale-x 5 :scale-y 5 )}) + + :on-render + (fn [screen [entities]] + + (clear!) + (render! screen [(:overlay entities) (:subject entities)]) + entities) + + :show-screen (fn [entities] + entities) + :on-resize (fn [{:keys [viewport width height]} [entities]] + (.update viewport width height) + nil))