hg.stevelosh.com > antipodes

src/entities/player.lisp @ 5560e722bc5c 

Add a player
author Steve Losh <steve@stevelosh.com>
date Sat, 07 Jan 2017 15:00:20 +0000
parents 9a486239bf46
children 4922d66cbba5 
(in-package :ap.entities)


(define-entity player (coords visible))

(defun make-player ()
  (create-entity 'player
                 :coords/x (round (* 0.5 ap.generation::*map-size*))
                 :coords/y (round (* 0.9 ap.generation::*map-size*))
                 :visible/glyph "@"
                 :visible/color ap::+black-white+))