Add menu, dropping
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 08 Jan 2017 11:31:17 +0000 |
parents |
083f3f90f805 |
children |
8fc9b2aad98b |
(defpackage :ap.utilities
(:use
:cl
:iterate
:cl-arrows
:losh
:beast
:ap.quickutils)
(:export
:with-window
:with-windows
:with-panels
:with-panel
:with-panel-and-window
:with-panels-and-windows
:center
:border
:redraw
:write-string-left
:write-string-right
:write-string-centered
:write-lines-left
:write-lines-centered
:with-dims
:with-window-dims
:defcolors
:with-color
:init-colors
:read-file-into-form
))
(defpackage :ap.entities
(:use
:cl
:iterate
:cl-arrows
:losh
:beast
:ap.utilities
:ap.quickutils)
(:export
:player
:make-player
:tick-player
:player/health
:health-description
:player/energy
:energy-description
:player/inventory
:player-inventory-full-p
:player-inventory-empty-p
:player-get
:player-drop
:food
:make-food
:food/energy
:clothing
:make-clothing
:jewelery
:make-jewelery
:trigger
:trigger?
:trigger/text
:ruin
:make-ruin
:coords
:coords/x
:coords/y
:coords?
:coords-lookup
:coords-nearby
:coords-move-entity
:holdable
:holdable?
:holdable/description
:visible
:visible?
:visible/glyph
:visible/color
))
(defpackage :ap.flavor
(:use
:cl
:iterate
:cl-arrows
:losh
:ap.utilities
:ap.quickutils)
(:export
:flavorp
:random-flavor))
(defpackage :ap
(:use
:cl
:iterate
:cl-arrows
:losh
:beast
:ap.entities
:ap.utilities
:ap.quickutils)
(:export
:main))