credits screen and stuff.

desktop/src-common/advent/screens/credits.clj

@@ -15,29 +15,105 @@
            [com.badlogic.gdx Application Audio Files Game Gdx Graphics Input
             InputMultiplexer InputProcessor Net Preferences Screen]))
 
+(defn center [e]
+  (assoc e :x (- (/ 1280 2) (/ (or (:width e) (.getWidth (:object e))) 2))))
+
+(def credit-messages
+  [["\"Tick's Tales\" Created By"
+    "Bryce Covert"]
+   ["Artwork"
+    "Bryce Covert"]
+   ["Programming"
+    "Bryce Covert"]
+   ["Music"
+    "Bryce Covert"]
+   ["Sound Effects"
+    "Bryce Covert"]
+   ["Frog Legs"
+    "Marya Yama"]
+   ["Perspective Tutorials"
+    "Jana Covert"]
+   ["Motivational Tapes"
+    "Eriq Chang"]
+   ["In Loving Memory Of"
+    "Took, son of Luke, son of Puke"]])
+
+(defn get-role-style [entities opacity]
+  (style :label (:font entities) (color 1.0 1.0 1.0 opacity)))
+
+(defn style-role [entities]
+  (when-let [opacity (:opacity (:role entities))]
+    (label! (:role entities) :set-style (get-role-style entities opacity))))
+
+(defn get-person-style [entities opacity]
+  (style :label (:font entities) (color 0.6 1.0 1.0 opacity)))
+
+(defn style-person [entities]
+  (when-let [opacity (:opacity (:person entities))]
+    (label! (:person entities) :set-style (get-person-style entities opacity))))
+
+(defn chain-tweens [screen entities id]
+  (let [fade-out (tween/tween [:fade id :out]
+                              (assoc screen :total-time (+ 4.0 (:total-time screen)))
+                              [id :opacity]
+                              1.0 0.0
+                              2.0
+                              :finish #(dissoc % id))
+        pause (tween/tween [:fade id :pause]
+                           (assoc screen :total-time (+ 2.0 (:total-time screen)))
+                             [id :opacity]
+                             1.0 1.0
+                             2.0
+                             :finish (fn [e] (assoc-in e [:tweens [:fade id :out]] fade-out)))
+        fade-in (tween/tween [:fade id :in] screen
+                             [id :opacity]
+                             0.0 1.0
+                             2.0
+                             :finish (fn [e] (assoc-in e [:tweens [:fade id :pause]] pause)))]
+    fade-in))
+
+(defn start-message-if-necessary [screen entities]
+  (if (and (not (get-in entities [:role]))
+           (= 0.0 (get-in entities [:fade :opacity])))
+    (let [[[next-role next-person] & remaining-messages] (:remaining-messages entities)]
+      (if next-role
+        (-> entities 
+            (assoc :role (center (assoc (label next-role (get-role-style entities 0.0) :set-alignment Align/center) :x 640 :y 480 )))
+            (assoc :person (center (assoc (label next-person  (get-person-style entities 0.0) :set-alignment Align/center) :x 640 :y 440 )))
+            (assoc-in [:tweens [:fade :role :in]] (chain-tweens screen entities :role))
+            (assoc-in [:tweens [:fade :person :in]] (chain-tweens screen entities :person))
+            (assoc :remaining-messages remaining-messages))
+        entities))
+    entities))
+
 
 (defscreen credits
   :on-show
   (fn [screen entities]
-    (utils/setup-viewport screen 320 240)
+    (utils/setup-viewport screen 1280 960)
     (input! :set-cursor-image (utils/cursor "cursor.png" :main) 0 0)
-    {:fade (assoc (texture "black.png")
-             :scale-x 80
-             :scale-y 80 
-             :opacity 0.0
-             :origin-x 0
-             :origin-y 0)
-     :the-end (assoc (texture "the-end.png") :x 0 :y 0)
-     :tweens {:fade-in
-              (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 5.0 :ease tween/ease-out-cubic)}}
-    )
+    (let [font (bitmap-font "ego/font.fnt" )]
+      {:font font
+       :fade (assoc (texture "black.png")
+               :scale-x 80
+               :scale-y 80 
+               :opacity 0.0
+               :origin-x 0
+               :origin-y 0)
+       :remaining-messages credit-messages
+       :the-end (assoc (texture "the-end.png") :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0)
+       :tweens {:fade-in
+                (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 5.0 :ease tween/ease-out-cubic)}}))
   
   :on-render
   (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
     (.apply viewport)
-    (let [entities (utils/apply-tweens screen entities (:tweens entities))]
+    (let [entities (utils/apply-tweens screen entities (:tweens entities))
+          entities (start-message-if-necessary screen entities)]
+      (style-role entities)
+      (style-person entities)
       
-      (render! screen [(:the-end entities) (:fade entities)]) 
+      (render! screen [(:the-end entities) (:role entities) (:person entities) (:fade entities)]) 
       entities))