Modify colors and player codepoint

src/crypts-and-corpses.lisp

@@ -33,18 +33,18 @@
   ((width :initarg :width :type fixnum :initform 1)
    (height :initarg :height :type fixnum :initform 1)
    (location :initarg :location :initform 0 :type fixnum)
-   (color :initarg :color :initform (color-from-name "white"))))
+   (color :initarg :color :initform (color-from-name "#ffffff"))))
 
 (defclass tile-entity (entity)
   ((codepoint :initarg :codepoint :initform #x3f :type fixnum)))
 
 (defclass wall (tile-entity)
   ((codepoint :initarg :codepoint :initform #x23 :type fixnum)
-   (color :initarg :color :initform (color-from-name "grey"))))
+   (color :initarg :color :initform (color-from-name "#999999"))))
 
 (defclass floor-tile (tile-entity)
   ((codepoint :initarg :codepoint :initform #xb7 :type fixnum)
-   (color :initarg :color :initform (color-from-name "grey"))))
+   (color :initarg :color :initform (color-from-name "#3f3f3f"))))
 
 (defclass viewport (entity)
   ((width :initarg :width :type fixnum :initform 99)
@@ -62,18 +62,18 @@
 (defclass player-character (mobile)
   ((health :initarg :health :type fixnum :initform 10)
    (mana :initarg :mana :type fixnum :initform 10)
-   (codepoint :initform #x263a)
+   (codepoint :initform #x2639)
    (ranged-attack-damage :initarg :ranged-attack-damage :initform 5 :type fixnum)
    (melee-attack-damage :initarg :ranged-attack-damage :initform 2 :type fixnum)
    (ranged-attack-cost :initarg :ranged-attack-cost :initform 5 :type fixnum)
    (mana-regen :initarg :mana-regen :initform 3 :type fixnum)
-   (color :initarg :color :initform (color-from-name "green"))))
+   (color :initarg :color :initform (color-from-name "#800080"))))
 
 (defclass enemy (mobile)
   ((codepoint :initform #x263a)
    (melee-attack-damage :initarg :ranged-attack-damage :initform 1 :type fixnum)
    (health-regen :initarg :health-regen :initform 1 :type fixnum)
-   (color :initarg :color :initform (color-from-name "red"))))
+   (color :initarg :color :initform (color-from-name "#1919ff"))))
 
 (defclass minion (mobile)
   ((color :initarg :color :initform (color-from-name "yellow"))))
@@ -387,7 +387,10 @@
                (setf (gethash (calc-location x y map) terrain) wall)))
             ((eq (crawler:map-feature tile) :stairs-up)
              (set-location player x y map)
-             (setf (gethash (calc-location x y map) mobiles) player))
+             (setf (gethash (calc-location x y map) mobiles) player)
+             (let ((floor (make-instance 'floor-tile)))
+               (set-location floor x y map)
+               (setf (gethash (calc-location x y map) terrain) floor)))
             (:otherwise
              (let ((floor (make-instance 'floor-tile)))
                (set-location floor x y map)