Add flicker effect

stefandevai · Apr 20, 2020 · 8c8a126 · 8c8a126
1 parent e99c4e0
commit 8c8a126
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/source/main.fnl b/source/main.fnl
@@ -1843,10 +1843,11 @@
 
   ;; Controls which message to display in the game over screen
   (global highscore-flag false)
-  (global *game-state* "menu"))
+  (global *game-state* "win"))
 
 (fn update-win-screen []
   (cls 5)
+  (music 0)
   (local title-string "YOU WON!!!")
   (local width (print title-string 0 -16 12 true 2))
   (print title-string (// (- 240 width) 2) (* 2 8) 12 true 2)
@@ -1942,6 +1943,7 @@
         (= *game-state* "win")
         (if (< *time-elapsed* 10)
             (do (when (> *cam*.speedx 10) (set *cam*.speedx 10))
+                (music)
                 (when (= (% *tick* 45) 0)
                   (sfx 9 24 -1 3 10 0)
                   (local emitter (deepcopy *pexplosion-emitter*))