gistfile1.lisp

(defn fusion-wall [player]
  (let [world (.getWorld player)
        loc (.getLocation player)
        direction (.normalize (.setY (.getDirection loc) 0))
        perpendicular (.normalize ( .setZ (.setY (.setX direction ;fixme
                                                        (.getZ direction)
                                                        )
                                                0.0 )
                                          (* -1 (.getX direction))
                                         ))
        height (.normalize (
                 .setZ (.setY (.setX (.clone direction) ;FIXME (Vector. 1 2 3) fails.
                                          0.0)
                                        1.0)
                           0.0
                           ))
        fusion-at (.add (.clone loc) (.multiply (.clone direction) 10))
        ]
    (prn fusion-wall loc)
    (prn fusion-at height perpendicular)
    (doseq [i (range 1 10) j [-1 0 1]]
                         (let [x
                               (.add (.add  (.clone fusion-at) (.multiply (.clone perpendicular) j) ) (.multiply (.clone height) i)) 
                               ]
                           (prn x)
                           (.strikeLightningEffect world x)
                           (.setType (.getBlock x) Material/STONE)
                           ;(Thread/sleep 40) ;(+ 30 (rand-int 50)))
                           )
     )
    ))