package.lisp @ 7498a056c40c

Add points
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 13:29:01 +0000
parents 948b58e1569a
children (none)
(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
    :player-eat
    :player-dead-p

    :food
    :make-food
    :food/energy
    :random-food-taste

    :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

    :worth
    :worth?
    :worth/points

    :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))