Skip to content
Snippets Groups Projects
command.clj 554 B
Newer Older
(ns com.proximyst.bukkitforclojure.example.command
Mariell's avatar
Mariell committed
  (:gen-class
    :main false)
Mariell's avatar
Mariell committed
  (:import [org.bukkit.command CommandSender Command]
           [org.bukkit.entity Player]
           [org.bukkit Sound]))

(defn clojureCommand
  [^CommandSender sender
   ^Command command
   ^String label
Mariell's avatar
Mariell committed
  (.sendMessage sender "You successfully ran a command in Clojure.")
  (when (instance? Player sender)
    (let [^Player player (cast Player sender)]
      (.playSound player (.getLocation player) (Sound/BLOCK_NOTE_BASEDRUM) (float 1.0) (float 1.0))))
Mariell's avatar
Mariell committed
  )