From 8c8a12656c66ecef6f371953ccd1f897d3e6b959 Mon Sep 17 00:00:00 2001
From: stefandevai <stedevai@gmail.com>
Date: Mon, 20 Apr 2020 03:00:28 +0200
Subject: [PATCH] Add flicker effect

---
 source/main.fnl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/main.fnl b/source/main.fnl
index 5b82ede..f74d142 100644
--- 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*))