added new shooter program; commented out because writing to SHOT not working

src/robotwar/handler.clj

@@ -11,7 +11,8 @@
 ; TODO: have this source-code-picking be done in requests from the UI
 ; in the browser, not hard-coded here.
 (def progs 
-  (repeat 3 (:moving-to-spot source-programs/programs)))
+  (conj (repeat 3 (:moving-to-spot source-programs/programs))
+        (:shooter source-programs/programs)))
 
 (defn add-game
   "a function to update the games store agent state. 

src/robotwar/source_programs.clj

@@ -64,4 +64,14 @@
    MOVEY
        B - Y TO SPEEDY        ; Take distance from destination in meters and use
                               ; it to set SPEEDY, which is measured in decimeters/second.
-       ENDSUB "}) 
+       ENDSUB "
+  
+ :shooter
+ "
+       90 TO AIM
+       Y TO RANDOM
+       RANDOM TO S
+   SHOOT
+       ; S TO SHOT
+       GOTO SHOOT "
+   })