Added some music

Author: lockie

README.org

@@ -44,6 +44,7 @@ To run manually:
 + [[https://mounirtohami.itch.io/pixel-art-gui-elements][Pixel Art GUI Elements by Mounir Tohami]], [[https://creativecommons.org/publicdomain/zero/1.0][CC0]]
 + [[https://howyoudoing.itch.io/bookxel][Bookxel font by HowYouDoing]]
 + [[https://opengameart.org/content/male-gotcha][Male gotcha sound by TaniCorn]], [[https://creativecommons.org/licenses/by/4.0][CC-BY 4.0]]
++ [[https://makotohiramatsu.itch.io/lost][Soundscape and Ambient Music Pack: LOST by Makoto Hiramatsu]], [[https://creativecommons.org/licenses/by/4.0][CC-BY 4.0]]
 
 ** Copyright
 

Resources/sounds/alone.ogg

@@ -30,6 +30,10 @@
   (setf *player-entity* (player-entity *storage* 1)
         *deathp* nil
         *restart* nil)
+  (let ((music (ecs:make-entity *storage*)))
+    (add-sound *storage* music :alone :oncep nil)
+    (with-sound () *storage* music
+      (setf gain 0.05)))
   ;; HACK: prime system bitmaps
   (ecs:run-systems *storage* :dt 0d0))
 

src/main.lisp

@@ -22,9 +22,11 @@
     (when playing
       (incf sound-play-time dt)
       (when (> sound-play-time sound-length)
-        (setf sound-play-time 0d0
-              sound-playing 0
-              playing 0)))
+        (setf sound-play-time 0d0)
+        (unless (eq (al:get-sample-instance-playmode sound-sample-instance)
+                  :loop)
+          (setf sound-playing 0
+                playing nil))))
     (unless (eq playing (al:get-sample-instance-playing sound-sample-instance))
       (al:set-sample-instance-playing sound-sample-instance playing))
     (when playing

src/sounds.lisp

@@ -1,5 +1,5 @@
 (defsystem "thoughtbound"
-  :version "0.0.1"
+  :version "0.0.2"
   :author "Andrew Kravchuk"
   :license "MIT"
   :depends-on (#:alexandria