explosions

xong/base.lisp

@@ -488,8 +488,8 @@ reach new areas and items. The puck also picks up the color.")
     (dotimes (i height)
       (dotimes (j width)
 	[drop-cell self (clone =floor=) i j]))
-    ;; (dotimes (i 10)
-    ;;   [drop-cell self (clone =karma= :clock nil) (random height) (random width)])
+    (dotimes (i 10)
+      [drop-cell self (clone =karma= :clock nil) (random height) (random width)])
     (let ((beckoner (clone =beckoner=))
 	  (urhere (clone =balloon= 
 			 :style :flat

xong/enemy.lisp

@@ -278,7 +278,16 @@ explode with deadly plasma radiation!"))
       (assert (and row column))
       (dotimes (n (+ 9 (random 10)))
 	(let ((karma (clone =karma=)))
-;;	  [set-color karma color]
+	  (labels ((do-circle (image)
+		     (prog1 t
+		       (multiple-value-bind (x y) 
+			   [viewport-coordinates self]
+			 (let ((x0 (+ x 8))
+			       (y0 (+ y 8)))
+			   (draw-circle x0 y0 40 :destination image)
+			   (draw-circle x0 y0 35 :destination image))))))
+	    [>>add-overlay :viewport #'do-circle])
+	  [play-sample self "explode"]
 	  [set-clock karma (+ 10 (random 10))]
 	  (let ((limit 10))
 	    (block placing

xong/xong.pak

@@ -2,6 +2,7 @@
  (:name ".default-font" :type :font :properties (:height 14 :width 7) :data "7x14b")
 
  (:name "npc" :type :image :file "npc.png")
+ (:name "explode" :type :sample :file "explode.wav" :properties (:volume 10))
  (:name "player" :type :image :file "player.png")
  (:name "player-empty" :type :image :file "player-empty.png")
  (:name "gate-open" :type :image :file "gate-open.png")