hg.stevelosh.com > antipodes

src/entities/player.lisp @ ebd641c91236 

Start the sidebar fuckery
author Steve Losh <steve@stevelosh.com>
date Sat, 07 Jan 2017 15:09:46 +0000
parents 5560e722bc5c
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+))