Day 4 progress.

20 files changed, 245 insertions, 104 deletions

diff --git a/assets/images/player-bullets.png b/assets/images/player-bullets.png
index 5aecd50..8f0251c 100644
--- a/assets/images/player-bullets.png
+++ b/assets/images/player-bullets.png
diff --git a/assets/images/player-bullets.xcf b/assets/images/player-bullets.xcf
index 1977d7a..a9db8e1 100644
--- a/assets/images/player-bullets.xcf
+++ b/assets/images/player-bullets.xcf
diff --git a/assets/images/player.xcf b/assets/images/player.xcf
index 4ce0366..a649ef9 100644
--- a/assets/images/player.xcf
+++ b/assets/images/player.xcf
diff --git a/assets/sounds/energy-max.wav b/assets/sounds/energy-max.wav
new file mode 100644
index 0000000..c66ffef
--- /dev/null
+++ b/assets/sounds/energy-max.wav
diff --git a/assets/sounds/hit.wav b/assets/sounds/hit.wav
new file mode 100644
index 0000000..5b26231
--- /dev/null
+++ b/assets/sounds/hit.wav
diff --git a/assets/sounds/max-chain.wav b/assets/sounds/max-chain.wav
new file mode 100644
index 0000000..3b9cfee
--- /dev/null
+++ b/assets/sounds/max-chain.wav
diff --git a/assets/sounds/player-shoot.wav b/assets/sounds/player-shoot.wav
index ec3bb6b..40e3487 100644
--- a/assets/sounds/player-shoot.wav
+++ b/assets/sounds/player-shoot.wav
diff --git a/assets/sounds/voice.aup b/assets/sounds/voice.aup
new file mode 100644
index 0000000..5ac0d35
--- /dev/null
+++ b/assets/sounds/voice.aup
@@ -0,0 +1,65 @@
+<?xml version="1.0" standalone="no" ?>
+<!DOCTYPE project PUBLIC "-//audacityproject-1.3.0//DTD//EN" "http://audacity.sourceforge.net/xml/audacityproject-1.3.0.dtd" >
+<project xmlns="http://audacity.sourceforge.net/xml/" projname="voice_data" version="1.3.0" audacityversion="2.2.1" sel0="0.0188662132" sel1="0.0188662132" vpos="0" h="0.0000000000" zoom="1378.1250000000" rate="44100.0" snapto="off" selectionformat="hh:mm:ss + milliseconds" frequencyformat="Hz" bandwidthformat="octaves">
+	<tags/>
+	<wavetrack name="Audio Track" channel="0" linked="1" mute="1" solo="0" height="150" minimized="0" isSelected="0" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="0.00000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="41757">
+				<waveblock start="0">
+					<simpleblockfile filename="e0000bd0.au" len="41757" min="-0.63126" max="0.680831" rms="0.155765"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+	<wavetrack name="Audio Track" channel="1" linked="0" mute="1" solo="0" height="150" minimized="0" isSelected="0" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="0.00000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="41757">
+				<waveblock start="0">
+					<simpleblockfile filename="e0000e12.au" len="41757" min="-0.639434" max="0.87116" rms="0.154281"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+	<wavetrack name="Audio Track" channel="0" linked="1" mute="1" solo="0" height="150" minimized="0" isSelected="0" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="-0.13000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="46723">
+				<waveblock start="0">
+					<simpleblockfile filename="e0000db0.au" len="46723" min="-0.835926" max="1.001639" rms="0.151111"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+	<wavetrack name="Audio Track" channel="1" linked="0" mute="1" solo="0" height="150" minimized="0" isSelected="0" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="-0.13000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="46723">
+				<waveblock start="0">
+					<simpleblockfile filename="e00004a0.au" len="46723" min="-0.840803" max="1.003011" rms="0.150871"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+	<wavetrack name="Audio Track" channel="0" linked="1" mute="0" solo="1" height="150" minimized="0" isSelected="1" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="-0.13000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="50597">
+				<waveblock start="0">
+					<simpleblockfile filename="e0000325.au" len="50597" min="-0.577908" max="0.889003" rms="0.128997"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+	<wavetrack name="Audio Track" channel="1" linked="0" mute="0" solo="1" height="150" minimized="0" isSelected="1" rate="44100" gain="1.0" pan="0.0" colorindex="0">
+		<waveclip offset="-0.13000000" colorindex="0">
+			<sequence maxsamples="262144" sampleformat="262159" numsamples="50597">
+				<waveblock start="0">
+					<simpleblockfile filename="e0000d0c.au" len="50597" min="-0.575264" max="0.881532" rms="0.128524"/>
+				</waveblock>
+			</sequence>
+			<envelope numpoints="0"/>
+		</waveclip>
+	</wavetrack>
+</project>
diff --git a/assets/sounds/voice_data/e00/d00/e0000325.au b/assets/sounds/voice_data/e00/d00/e0000325.au
new file mode 100644
index 0000000..3faf78d
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e0000325.au
diff --git a/assets/sounds/voice_data/e00/d00/e00004a0.au b/assets/sounds/voice_data/e00/d00/e00004a0.au
new file mode 100644
index 0000000..96779a4
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e00004a0.au
diff --git a/assets/sounds/voice_data/e00/d00/e0000bd0.au b/assets/sounds/voice_data/e00/d00/e0000bd0.au
new file mode 100644
index 0000000..aa6bb24
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e0000bd0.au
diff --git a/assets/sounds/voice_data/e00/d00/e0000d0c.au b/assets/sounds/voice_data/e00/d00/e0000d0c.au
new file mode 100644
index 0000000..6ffc431
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e0000d0c.au
diff --git a/assets/sounds/voice_data/e00/d00/e0000db0.au b/assets/sounds/voice_data/e00/d00/e0000db0.au
new file mode 100644
index 0000000..cdbe9e5
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e0000db0.au
diff --git a/assets/sounds/voice_data/e00/d00/e0000e12.au b/assets/sounds/voice_data/e00/d00/e0000e12.au
new file mode 100644
index 0000000..c0b723e
--- /dev/null
+++ b/assets/sounds/voice_data/e00/d00/e0000e12.au
diff --git a/lisparuga.scm b/lisparuga.scm
index dc611cd..e5fb888 100644
--- a/lisparuga.scm
+++ b/lisparuga.scm
@@ -65,21 +65,22 @@
              (make <sprite>
                #:name 'background
                #:rank 0
-               #:texture background))
+               #:texture background)
+             (make <game>
+               #:name 'game
+               #:rank 1
+               #:position (vec2 80.0 0.0))))
+
+(define-method (on-enter (lisparuga <lisparuga>))
   (new-game-transition lisparuga))
 
-(define (new-game-transition lisparuga)
+(define-method (new-game-transition lisparuga)
   (set! (state lisparuga) 'play)
   (let ((game-over (& lisparuga game-over)))
     (and game-over (detach game-over)))
-  (let ((old-game (& lisparuga game)))
-    (and old-game (detach old-game)))
-  (attach-to lisparuga
-             (make <game>
-               #:name 'game
-               #:rank 1
-               #:position (vec2 80.0 0.0)))
-  (set! (state lisparuga) 'play))
+  (reset (& lisparuga game))
+  (set! (state lisparuga) 'play)
+  (start-stage (& lisparuga game)))
 
 (define-method (game-over-transition (lisparuga <lisparuga>))
   (set! (state lisparuga) 'game-over)
@@ -122,14 +123,13 @@
 (define-method (on-key-press (lisparuga <lisparuga>) key scancode modifiers repeat?)
   (match (state lisparuga)
     ('play
-     (unless repeat?
-       (match key
-         ('z (start-player-shooting (& lisparuga game)))
-         ('x (toggle-player-polarity (& lisparuga game)))
-         ('c (fire-player-homing-missiles (& lisparuga game)))
-         ('r (spawn-enemies (& lisparuga game)))
-         ('e (set! (energy (& lisparuga game player)) 120))
-         (_ #t))))
+     (match key
+       ('z (start-player-shooting (& lisparuga game)))
+       ('x (unless repeat?
+             (toggle-player-polarity (& lisparuga game))))
+       ('c (unless repeat?
+             (fire-player-homing-missiles (& lisparuga game))))
+       (_ #t)))
     ((or 'win 'game-over)
      (match key
        ('return (new-game-transition lisparuga))
diff --git a/lisparuga/enemy.scm b/lisparuga/enemy.scm
index aa5335e..06533ea 100644
--- a/lisparuga/enemy.scm
+++ b/lisparuga/enemy.scm
@@ -49,6 +49,7 @@
 ;;;
 
 (define-asset explosion-sound (load-audio (scope-asset "sounds/explosion.wav")))
+(define-asset hit-sound (load-audio (scope-asset "sounds/hit.wav")))
 
 (define-class <enemy> (<actor>)
   (health #:accessor health #:init-keyword #:health)
@@ -56,15 +57,14 @@
   (parting-shots #:getter parting-shots #:init-keyword #:parting-shots)
   (fire-parting-shots? #:accessor fire-parting-shots? #:init-form #f))
 
-(define-method (on-kill (enemy <enemy>))
-  #t)
-
 (define-method (damage (enemy <enemy>) x)
   (let ((new-health (max (- (health enemy) x) 0)))
     (set! (health enemy) new-health)
-    (when (zero? new-health)
-      (audio-play (asset-ref explosion-sound)
-                  #:volume 0.5))))
+    (if (zero? new-health)
+        (audio-play (asset-ref explosion-sound)
+                    #:volume 0.5)
+        (audio-play (asset-ref hit-sound)
+                    #:volume 0.5))))
 
 (define-method (dead? (enemy <enemy>))
   (zero? (health enemy)))
diff --git a/lisparuga/game.scm b/lisparuga/game.scm
index 9e79898..f5b3082 100644
--- a/lisparuga/game.scm
+++ b/lisparuga/game.scm
@@ -23,6 +23,7 @@
 
 (define-module (lisparuga game)
   #:use-module (chickadee)
+  #:use-module (chickadee math)
   #:use-module (chickadee math rect)
   #:use-module (chickadee math vector)
   #:use-module (chickadee render color)
@@ -62,7 +63,16 @@
 ;; scrolling background
 (define-class <game> (<canvas>)
   (player-control? #:accessor player-control? #:init-value #f)
-  (complete? #:accessor complete? #:init-value #f))
+  (complete? #:accessor complete? #:init-value #f)
+  (skip-tutorial? #:accessor skip-tutorial? #:init-value #f))
+
+(define-method (reset (game <game>))
+  (set! (player-control? game) #f)
+  (set! (complete? game) #f)
+  (reset (& game player))
+  (for-each detach (children (& game enemies)))
+  (let ((battle-report (& game battle-report)))
+    (and battle-report (detach battle-report))))
 
 (define-method (initialize (game <game>) initargs)
   (next-method)
@@ -81,6 +91,7 @@
                            #:rank 2
                            #:capacity 500
                            #:texture-atlas player-bullet-atlas))
+         (player (make-player player-bullets))
          (enemy-bullets (make <bullet-field>
                           #:name 'enemy-bullets
                           #:rank 5
@@ -98,11 +109,13 @@
          (ui (make <node-2d>
                #:name 'ui
                #:rank 999)))
+    (set! (rank player) 1)
     (attach-to game
                (make <sprite>
                  #:name 'clouds
                  #:rank 0
                  #:texture clouds)
+               player
                player-bullets
                (make <node-2d>
                  #:name 'enemies
@@ -128,26 +141,11 @@
                  #:align 'right)
                (make <label>
                  #:name 'lives
-                 #:position (vec2 2.0 2.0)))
-    (start-stage game)))
+                 #:position (vec2 2.0 2.0)))))
 
 (define-method (start-stage (game <game>))
-  (let ((player (make-player (& game player-bullets))))
-    (set! (rank player) 1)
-    (attach-to game player)
-    (update-ui game)
-    (play-stage-1 game)))
-
-(define-method (spawn-enemies (game <game>))
-  ;; Test enemies
-  (spawn-enemy game (make-utatsugumi 'white 10.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'white 30.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'white 50.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'black 70.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'black 90.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'black 110.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'white 130.0 180.0))
-  (spawn-enemy game (make-utatsugumi 'white 150.0 180.0)))
+  (update-ui game)
+  (play-stage-1 game))
 
 (define-method (update-ui (game <game>))
   (set! (text (& game ui score))
@@ -178,26 +176,25 @@
 (define-method (update (game <game>) dt)
   (let ((refresh-ui? #f)
         (player (& game player)))
-    (when player
-      ;; enemy -> player bullet collision
-      ;; enemy -> player collision
-      (for-each (lambda (enemy)
-                  (cond
-                   ((and (collide (& game player-bullets) enemy)
-                         (dead? enemy))
-                    (on-kill player enemy)
-                    (fire-parting-shots-maybe enemy player)
-                    (explode game enemy)
-                    (detach enemy)
-                    (set! refresh-ui? #t))
-                   ((collide player enemy)
-                    (set! refresh-ui? #t))))
-                (children (& game enemies)))
-      ;; player -> enemy bullet collision
-      (when (collide (& game enemy-bullets) (& game player))
-        (set! refresh-ui? #t))
-      (when refresh-ui?
-        (update-ui game)))
+    ;; enemy -> player bullet collision
+    ;; enemy -> player collision
+    (for-each (lambda (enemy)
+                (cond
+                 ((and (collide (& game player-bullets) enemy)
+                       (dead? enemy))
+                  (on-kill player enemy)
+                  (fire-parting-shots-maybe enemy player)
+                  (explode game enemy)
+                  (detach enemy)
+                  (set! refresh-ui? #t))
+                 ((collide player enemy)
+                  (set! refresh-ui? #t))))
+              (children (& game enemies)))
+    ;; player -> enemy bullet collision
+    (when (collide (& game enemy-bullets) (& game player))
+      (set! refresh-ui? #t))
+    (when refresh-ui?
+      (update-ui game))
     (next-method)))
 
 (define-method (spawn-enemy (game <game>) enemy)
@@ -226,8 +223,7 @@
     (update-ui game)))
 
 (define-method (game-over? (game <game>))
-  (let ((player (& game player)))
-    (and player (dead? player))))
+  (dead? (& game player)))
 
 (define-method (play-stage-1 game)
   (run-script game
@@ -244,8 +240,6 @@
   (set! (player-control? game) #t)
   (show (& game ui)))
 
-(define *skip-tutorial?* #t)
-
 (define-method (do-tutorial (game <game>))
   (define* (instruct text continue? #:optional (post-delay 60))
     (let ((instructions (make <label>
@@ -259,7 +253,7 @@
       (sleep post-delay)
       (detach instructions)
       (sleep 60)))
-  (unless *skip-tutorial?*
+  (unless (skip-tutorial? game)
     (sleep 30)
     (instruct "use arrow keys to move"
               (let ((v (velocity (& game player))))
@@ -269,7 +263,7 @@
     (instruct "press Z to shoot"
               (lambda ()
                 (shooting? (& game player))))
-    (instruct "press X to change color"
+    (instruct "press X to change energy"
               (let ((starting-polarity (polarity (& game player))))
                 (lambda ()
                   (not (eq? (polarity (& game player)) starting-polarity)))))
@@ -280,28 +274,72 @@
     (instruct "press C to release energy"
               (lambda ()
                 (zero? (energy (& game player)))))
-    (instruct "get ready!" (const #t) 120)))
+    (instruct "shoot opposite energy" (const #t) 90)
+    (instruct "deal 2x damage" (const #t) 90)
+    (set! (invincible? (& game player)) #t)
+    (spawn-enemy game (make-utatsugumi 'white 48.0 150.0))
+    (spawn-enemy game (make-utatsugumi 'white 80.0 150.0))
+    (spawn-enemy game (make-utatsugumi 'white 112.0 150.0))
+    (instruct "destroy 3 of same energy"
+              (lambda ()
+                (null? (children (& game enemies)))))
+    (spawn-enemy game (make-utatsugumi 'black 48.0 150.0))
+    (spawn-enemy game (make-utatsugumi 'black 80.0 150.0))
+    (spawn-enemy game (make-utatsugumi 'black 112.0 150.0))
+    (instruct "repeat for chain bonus"
+              (lambda ()
+                (null? (children (& game enemies)))))
+    (set! (score (& game player)) 0)
+    (set! (chain (& game player)) 0)
+    (set! (chain-progress (& game player)) '())
+    (set! (max-chain (& game player)) 0)
+    (set! (energy (& game player)) 0)
+    (set! (invincible? (& game player)) #f)
+    (update-ui game)
+    (instruct "get ready!" (const #t) 120)
+    (set! (skip-tutorial? game) #t)))
 
 (define-method (do-phase-1 (game <game>))
-  (define (utatsugumi-sweep x polarity)
-    (let loop ((i 0))
-      (when (< i 6)
-        (let ((utatsugumi (make-utatsugumi polarity x 260.0)))
-          (spawn-enemy game utatsugumi)
-          (set-vec2! (velocity utatsugumi) 0.0 -3.0)
-          (script
-           (sleep (* 10 60))
-           (detach utatsugumi))
-          (sleep 10))
-        (loop (+ i 1)))))
-  (utatsugumi-sweep 140.0 'white)
-  (sleep 60)
-  (utatsugumi-sweep 20.0 'black)
-  (sleep 60)
-  (utatsugumi-sweep 140.0 'white)
-  (sleep 60)
-  (utatsugumi-sweep 20.0 'black)
-  (sleep (* 3 60)))
+  (define (utatsugumi-sweep x dir polarity)
+    (let ((speed 3.0))
+      (let loop ((i 0))
+        (when (< i 6)
+          (let ((utatsugumi (make-utatsugumi polarity x 260.0)))
+            (spawn-enemy game utatsugumi)
+            (set-vec2! (velocity utatsugumi)
+                       (* (cos (* pi 1.5)) speed)
+                       (* (sin (* pi 1.5)) speed))
+            (script
+             (sleep 5)
+             (let loop ((i 0))
+               (when (< i 25)
+                 (let ((theta (+ (* pi 1.5)
+                                 (* dir i (/ (* pi .5) 25.0)))))
+                   (set-vec2! (velocity utatsugumi)
+                              (* (cos theta) speed)
+                              (* (sin theta) speed))
+                   (sleep 3)
+                   (loop (+ i 1)))))
+             (sleep 60)
+             (detach utatsugumi))
+            (sleep 15))
+          (loop (+ i 1))))))
+  (utatsugumi-sweep 140.0 -1.0 'white)
+  (sleep 15)
+  (utatsugumi-sweep 20.0 1.0 'black)
+  (sleep 15)
+  (utatsugumi-sweep 140.0 -1.0 'white)
+  (sleep 15)
+  (utatsugumi-sweep 20.0 1.0 'black)
+  (sleep 15)
+  (utatsugumi-sweep 140.0 -1.0 'white)
+  (sleep 15)
+  (utatsugumi-sweep 20.0 1.0 'black)
+  (sleep 15)
+  (utatsugumi-sweep 140.0 -1.0 'white)
+  (sleep 15)
+  (utatsugumi-sweep 20.0 1.0 'black)
+ (sleep 60))
 
 (define-method (do-win (game <game>))
   (set! (player-control? game) #f)
@@ -331,21 +369,29 @@
              (lambda (c)
                (set! (color backdrop) c))
              #:interpolate color-lerp))
+    (sleep 30)
+    (attach-to battle-report
+               (make <label>
+                 #:rank 999
+                 #:text "STAGE CLEAR!"
+                 #:align 'center
+                 #:position (vec2 80.0 190.0)))
+    (sleep 30)
     (attach-to battle-report
                (make <label>
                  #:rank 999
                  #:text "BATTLE REPORT"
                  #:align 'center
-                 #:position (vec2 80.0 180.0)))
+                 #:position (vec2 80.0 145.0)))
     (sleep 30)
-    (add-row 140.0 "SCORE" (number->string (score (& game player))))
+    (add-row 120.0 "SCORE" (number->string (score (& game player))))
     (sleep 30)
-    (add-row 110.0 "MAX CHAIN" (number->string (max-chain (& game player))))
+    (add-row 100.0 "MAX CHAIN" (number->string (max-chain (& game player))))
     (sleep 30)
     (attach-to battle-report
                (make <label>
                  #:rank 999
                  #:text "press ENTER to play again"
-                 #:position (vec2 80.0 60.0)
+                 #:position (vec2 80.0 40.0)
                  #:align 'center))
     (set! (complete? game) #t)))
diff --git a/lisparuga/node.scm b/lisparuga/node.scm
index 2dbbd41..0939336 100644
--- a/lisparuga/node.scm
+++ b/lisparuga/node.scm
@@ -168,8 +168,9 @@ represented as a ratio in the range [0, 1]."
   ;; First time activating?  We must boot!
   (unless (booted? node) (boot node))
   (set! (active? node) #t)
-  (on-enter node)
-  (for-each-child activate node))
+  (for-each-child activate node)
+  ;; Activate all children, recursively, before calling on-enter hook.
+  (on-enter node))
 
 (define-method (deactivate (node <node>))
   "Mark NODE and all of its children as inactive."
diff --git a/lisparuga/player.scm b/lisparuga/player.scm
index 1265756..6a85cc4 100644
--- a/lisparuga/player.scm
+++ b/lisparuga/player.scm
@@ -54,12 +54,15 @@
             fire-homing-missiles
             kill-maybe
             on-kill
-            add-energy))
+            add-energy
+            reset))
 
 (define-asset ship-atlas (load-tile-atlas (scope-asset "images/player.png") 24 24))
 (define-asset shoot-sound (load-audio (scope-asset "sounds/player-shoot.wav")))
 (define-asset missile-sound (load-audio (scope-asset "sounds/player-missile.wav")))
 (define-asset death-sound (load-audio (scope-asset "sounds/player-death.wav")))
+(define-asset energy-max-sound (load-audio (scope-asset "sounds/energy-max.wav")))
+(define-asset max-chain-sound (load-audio (scope-asset "sounds/max-chain.wav")))
 
 (define kill-hitbox (make-hitbox 'kill (make-rect -2.0 -2.0 4.0 4.0)))
 (define graze-hitbox (make-hitbox 'graze (make-rect -12.0 -12.0 24.0 24.0)))
@@ -76,6 +79,20 @@
   (shooting? #:accessor shooting? #:init-value #f)
   (shoot-time #:accessor shoot-time #:init-value 0))
 
+(define-method (reset (player <player>))
+  (set! (polarity player) 'white)
+  (set-vec2! (velocity player) 0.0 0.0)
+  (set! (score player) 0)
+  (set! (lives player) 3)
+  (set! (energy player) 0)
+  (set! (chain player) 0)
+  (set! (chain-progress player) '())
+  (set! (max-chain player) 0)
+  (set! (invincible? player) #f)
+  (set! (shooting? player) #f)
+  (set! (shoot-time player) 0)
+  (refresh-sprite player))
+
 (define-method (dead? (player <player>))
   (zero? (lives player)))
 
@@ -95,7 +112,7 @@
                #:index 0
                #:origin (vec2 12.0 12.0))))
 
-(define (shoot player ox)
+(define-method (shoot (player <player>) ox)
   (let ((speed 8.0)
         (pos (position player))
         (bullets (bullet-field player))
@@ -151,12 +168,16 @@
     (vec2-mult! v (speed player))))
 
 (define-method (start-shooting (player <player>))
-  (set! (shooting? player) #t)
-  (set! (shoot-time player) 0))
+  (unless (shooting? player)
+    (set! (shooting? player) #t)
+    (set! (shoot-time player) 0)))
 
 (define-method (stop-shooting (player <player>))
   (set! (shooting? player) #f))
 
+(define-method (refresh-sprite (player <player>))
+  (set! (index (& player ship)) (if (eq? (polarity player) 'white) 0 4)))
+
 (define-method (toggle-polarity (player <player>))
   (let ((old (polarity player)))
     ;; If polarity is none it means we are already switching so ignore
@@ -168,8 +189,7 @@
         (set! (polarity player) 'none)
         (sleep 7)
         (set! (polarity player) (if (eq? old 'white) 'black 'white))
-        ;; Change sprite
-        (set! (index (& player ship)) (if (eq? old 'white) 4 0))))))
+        (refresh-sprite player)))))
 
 (define-method (fire-homing-missiles (player <player>) enemies)
   (let* ((e (energy player))
@@ -247,7 +267,12 @@
     #t))
 
 (define-method (add-energy (player <player>) n)
-  (set! (energy player) (min (+ (energy player) n) 120)))
+  (let* ((old-energy (energy player))
+         (new-energy (min (+ old-energy n) 120)))
+    (set! (energy player) new-energy)
+    (when (and (not (= old-energy new-energy))
+               (= new-energy 120))
+      (audio-play (asset-ref energy-max-sound)))))
 
 (define-method (kill-maybe (player <player>))
   (unless (invincible? player)
@@ -255,6 +280,8 @@
     (let ((new-lives (max (- (lives player) 1) 0)))
       (set! (lives player) new-lives)
       (set! (energy player) 0)
+      (set! (chain-progress player) '())
+      (set! (chain player) 0)
       (if (zero? new-lives)
           (begin
             ;; to stop the death events from happening over and over
@@ -317,7 +344,9 @@
               ;; - 7 Chain --- 6,400 points
               ;; - 8 Chain --- 12,800 points
               ;; - 9+ Chain -- 25,600 points
-              (* (expt 2 (- (min new-chain 9) 1)) 100)))))
+              (* (expt 2 (- (min new-chain 9) 1)) 100)))
+         (when (>= new-chain 9)
+           (audio-play (asset-ref max-chain-sound)))))
       ;; 1st or 2nd kill of the chain.
       ((or ('white) ('black) ('white 'white) ('black 'black))
        (set! (chain-progress player) current-chain))
diff --git a/notes.org b/notes.org
index 3fd6d00..4f7e12a 100644
--- a/notes.org
+++ b/notes.org
@@ -19,7 +19,7 @@
     - 7 Chain --- 6,400 points
     - 8 Chain --- 12,800 points
     - Max Chain - 25,600 points
-  - you get points for absorbing bullets but I'm not sure how many
+  - 100 points per bullet absorbed
 
 * Ikaruga Stage 1
 ** Enemy Types