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


  (-write-int conn eid)
  (-write-byte conn action))


; Writing Wrappers -----------------------------------------------------------------

    (= 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))

