     (keyPressed [e]
       (do-action! ship (actions (.getKeyCode e))))
     (keyReleased [e]
-      (do-action! ship (actions (.getKeyCode e)) -1))
+      (do-action! ship (actions (.getKeyCode e)) false))
     (keyTyped [e])
     (getPreferredSize []
       (Dimension. (* (inc width) point-size)


   :direction              0
   :rotation-speed         0

   :life                   ship-life
   :life-colors            [(Color. 255 0 0) (Color. 255 80 75) (Color. 250 160 75) (Color. 160 160 150)]

   :shape                  [[-0.143 1.0] [0.143 1.0] [0.429 0.429] [1.0 0.143] [1.0 -1.0] [0.429 -0.714]
                            [0.143 -1.0] [-0.143 -1.0] [-0.429 -0.714] [-1.0 -1.0] [-1.0 0.143] [-0.429 0.429]]
   :color                  (Color. 160 160 150)
   :paint-method           fill-polygon

   :cockpit-shape          [[-0.143 0.714] [0.143 0.714] [0.286 -0.143] [-0.286 -0.143]]
   :cockpit-color          (Color. 0 0 80)
