add special event to indicate we're waiting for connections

Author: atomicptr

src/mobdap/adapter.clj

@@ -32,15 +32,15 @@
       (let [buffer (char-array length)]
         (.read reader buffer 0 length)
         (let [message (json/parse-string (String/new buffer) keyword)]
-          (log/debug "Received Message:" message)
+          (log/debug "Adapter: Received Message:" message)
           message)))))
 
 (defn send-message! [adapter message]
   (let [writer (:writer adapter)
         json-str (json/generate-string message)
         length   (count json-str)]
     (assert (and (some? writer) (instance? BufferedWriter writer)))
-    (log/debug "Send Message:" message)
+    (log/debug "Adapter: Send Message:" message)
     (doto writer
       (.write (str "Content-Length: " length "\r\n\r\n" json-str))
       (.flush))))

src/mobdap/handler.clj

@@ -310,6 +310,9 @@
     (let [server-channel (debug-server/run-server! (int port) to-handler)]
       (log/info "Handler: Waiting for server to finish setup...")
 
+      ; send a special event indicating to the editor that it could start the game now
+      (adapter/send-message! adapter (event "mobdap_waiting_for_connection"))
+
       (go-loop [setup-done false]
         (cond
           (not setup-done)