server.clj

Bowmap · bowmap.git · Tickets

Branches > main > 6df5a76 > files / src / net / bowmap / server / game / server.clj

(ns net.bowmap.server.game.server
  (:require
   [clojure.spec.alpha :as s]
   [com.wotbrew.relic :as relic]
   [net.bowmap.server.game.player :as player]))

(def max-player-count 1000)

(s/def ::players (s/coll-of ::player/player :kind set?))
(s/def ::server (s/keys :opt [::players]))

(def players-by-uuid
  [[:from ::players]
   [:unique ::player/uuid]])

(defonce state (atom (relic/mat {}
                                players-by-uuid)))