7815bf5

src/net/bowmap/server/logic.clj modified (view file)

@@ -31,9 +31,9 @@   (dosync     (let [username (::player/username (server/player uuid))]       (commute server/players dissoc uuid)-      (for [[recpient-uuid] @server/players]+      (for [[recipient] @server/players]         {::effect/id ::effect/send-chat-message-         ::player/uuid recpient-uuid+         ::player/uuid recipient          :message {:text (str (or username "Unknown Player") " Left.")}}))))  (defmethod handle-event ::event/updated-player-movement [{:keys! [::player/uuid ::position/position] :as e}]@@ -47,11 +47,11 @@     (commute server/players update-in [uuid ::position/position] merge position)     [])) -(defmethod handle-event ::event/player-sent-chat-message [{:keys! [message]}]-  (for [[uuid] @server/players]+(defmethod handle-event ::event/player-sent-chat-message [{:keys! [message ::player/uuid]}]+  (for [[recipient] @server/players]     {::effect/id ::effect/send-chat-message-     ::player/uuid uuid-     :message {:text message}}))+     ::player/uuid recipient+     :message {:text (str (::player/username (server/player uuid)) ": " message)}}))  (defn handle-events   "Handles the supplied event, and all events returned recursively from this one.