gistfile1.diff

[nori@akagi]~/Desktop/work/cloft/cloft% git diff ujm
diff --git a/src/cloft/core.clj b/src/cloft/core.clj
index 6bea28c..a7aec90 100644
--- a/src/cloft/core.clj
+++ b/src/cloft/core.clj
@@ -362,10 +362,22 @@
 ;            (.setType newblock (.getType block)))))))))
 ;
 
+
+
+(defn summon-giant [player]
+  (let [world (.getWorld player)
+        loc (.getLocation player)
+        direction (.getDirection loc)
+        spawn-at (.add loc (.multiply direction 10))]
+    (.strikeLightningEffect world spawn-at)
+    (.spawn world spawn-at Giant)
+    (c/broadcast (.getDisplayName player) " summoned Giant!")
+    ))
+
 (defn make-arrow-skill-alchemy [skill-name]
   (fn [player]
     (c/broadcast (.getDisplayName player) " changed arrow-skill to " (last skill-name))
-    (swap! arrow-skill assoc (.getDisplayName player) (first skill-name)) 
+    (swap! arrow-skill assoc (.getDisplayName player) (first skill-name))
     ))
 
 
@@ -393,7 +405,8 @@
                  Material/CACTUS (make-arrow-skill-alchemy [arrow-skill-shotgun "SHOTGUN"])
                  Material/RAILS (make-arrow-skill-alchemy ['cart "CART"])
                  Material/BOOKSHELF (make-arrow-skill-alchemy ['mobchange "MOBCHANGE"])
-                 Material/STONE (make-arrow-skill-alchemy ['sniping "SNIPING"])
+                 ;Material/STONE (make-arrow-skill-alchemy ['sniping "SNIPING"])
+                 Material/STONE summon-giant
                  Material/SNOW_BLOCK (make-arrow-skill-alchemy [arrow-skill-ice "ICE"])}]
       (prn table)
       (if-let [alchemy (table (.getType block))]