     (= packet-type :usebed)               (write-packet-usebed conn payload)
     (= packet-type :animation)            (write-packet-animation conn payload)
     (= packet-type :entityaction)         (write-packet-entityaction conn payload)
+    (= packet-type :pickupspawn)          (write-packet-pickupspawn conn payload)
     )
   (flushc conn))
 

        (= packet-type :usebed)               (read-packet-usebed conn)
        (= packet-type :animate)              (read-packet-animate conn)
        (= packet-type :entityaction)         (read-packet-entityaction conn)
        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))
    (println "\n\n\n")))

  0x11 :usebed
  0x12 :animation
  0x13 :entityaction
  0x14 :namedentityspawn
  0x15 :pickupspawn
})
(def packet-ids (apply assoc {} (mapcat reverse packet-types)))

