gistfile1.diff

nori@akagi]~/Desktop/work/cloft/cloft% git diff
diff --git a/src/cloft/core.clj b/src/cloft/core.clj
index 6bea28c..9565b1b 100644
--- a/src/cloft/core.clj
+++ b/src/cloft/core.clj
@@ -362,6 +362,21 @@
 ;            (.setType newblock (.getType block)))))))))
 ;
 
+
+
+(defn fusion-wall [player]
+  (let [world (.getWorld player)
+        loc (.getLocation player)
+        direction (.setY (.getDirection loc) 0)
+        fusion-at (.add loc (.multiply direction 15))
+        ]
+    
+    
+    (.strikeLightningEffect world fusion-at)
+    (.setTypeId (.getBlock fusion-at) 57); Diamond block
+    )
+  )
+
 (defn make-arrow-skill-alchemy [skill-name]
   (fn [player]
     (c/broadcast (.getDisplayName player) " changed arrow-skill to " (last skill-name))
@@ -393,7 +408,7 @@
                  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 fusion-wall
                  Material/SNOW_BLOCK (make-arrow-skill-alchemy [arrow-skill-ice "ICE"])}]
       (prn table)
       (if-let [alchemy (table (.getType block))]