Quit by ESC.

Now you can quit the game by pressing ESC. But it looks like an exit flag, which I used to implement this feature, is not a part of the world. Maybe we should define a new entity or something.

Author: rexim

src/hyperspace/game.clj

@@ -102,6 +102,10 @@
                                      (- radius 2)))))
       ())))
 
+(defn exit [world]
+  (assoc world
+    :exit true))
+
 (defn update-world
   [{missiles :missiles
     planets :planets

src/hyperspace/ui.clj

@@ -40,6 +40,9 @@
         (= key Keyboard/KEY_DOWN)
         (decrease-power world 1)
 
+        (= key Keyboard/KEY_ESCAPE)
+        (exit world)
+
         (and (= key Keyboard/KEY_SPACE)
              (not (Keyboard/isRepeatEvent)))
         (fire world)
@@ -132,7 +135,8 @@
   [initial-world]
   (loop [time (get-time)
          world initial-world]
-    (if (Display/isCloseRequested)
+    (if (or (Display/isCloseRequested)
+            (:exit world))
       (Display/destroy)
       (let [new-time (get-time)
             delta-time (- new-time time)

src/hyperspace/world.clj

@@ -116,7 +116,8 @@
         :planets ()
         :missiles ()
         :fragments ()
-        :traces []}
+        :traces []
+        :exit false}
        generate-players
        generate-planets
        generate-missiles))