Also load player object from map

Author: lockie

Resources/maps/test.tmx

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="40" height="23" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="7">
+<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="40" height="23" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="8">
  <tileset firstgid="1" name="Dungeon tiles" tilewidth="16" tileheight="16" tilecount="625" columns="25">
  <image source="../images/Environment/Dungeon Prison/Assets/Tiles.png" width="400" height="400"/>
  <tile id="0">
@@ -279,5 +279,15 @@
  </properties>
  <point/>
  </object>
+ <object id="7" name="player" x="80.6667" y="82">
+ <properties>
+ <property name="object">((:player)
+ (:character :speed 75.0)
+ (:animation-state :sprite :player)
+ (:sprite-sheet)
+ (:size))</property>
+ </properties>
+ <point/>
+ </object>
  </objectgroup>
 </map>

src/characters.lisp

@@ -1,7 +1,8 @@
 (in-package #:lisp-jam-spring-2023)
 
 
-(ecs:defcomponent player)
+(ecs:defcomponent player
+ (player 1 :type bit :index player :unique t))
 
 (ecs:defcomponent character
  (speed 0.0 :type single-float)

src/main.lisp

@@ -87,19 +87,8 @@
  (load-sounds)
  (load-map "../Resources/maps/test.tmx")
  ;; TODO : create player object last (render order purposes)
- (let ((player (ecs:make-object
- *storage*
- `((:player)
- (:character :speed 75.0
- :target-x 160.0
- :target-y 160.0)
- (:animation-state :sprite :player)
- (:sprite-sheet)
- (:size)
- (:position :x 160.0 :y 160.0)))))
- (change-animation *storage* player :idle)
- (setf *player-entity* player
- *deathp* nil))
+ (setf *player-entity* (player-entity *storage* 1)
+ *deathp* nil)
  (ecs:run-systems *storage* :dt 0d0) ;; HACK: prime system bitmaps
  (setf *ui-context*
  (nk:allegro-init