--- a/antipodes.asd Sat Jan 07 19:14:51 2017 +0000
+++ b/antipodes.asd Sat Jan 07 19:17:56 2017 +0000
@@ -22,6 +22,7 @@
(:module "src" :serial t
:components
((:file "utilities")
+ (:file "config")
(:module "aspects" :serial t
:components ((:file "coordinates")
(:file "holdable")
@@ -29,4 +30,5 @@
(:module "entities" :serial t
:components ((:file "food")
(:file "player")))
+ (:file "flavor")
(:file "main")))))--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/config.lisp Sat Jan 07 19:17:56 2017 +0000
@@ -0,0 +1,8 @@
+(in-package :ap)
+
+(defparameter *sidebar-width* 30)
+(defparameter *food-density* 1/6000)
+(defparameter *map-size* 2000)
+(defparameter *noise-scale* 0.03)
+(defparameter *noise-seed-x* (random 1000.0))
+(defparameter *noise-seed-y* (random 1000.0))
--- a/src/main.lisp Sat Jan 07 19:14:51 2017 +0000
+++ b/src/main.lisp Sat Jan 07 19:17:56 2017 +0000
@@ -1,6 +1,5 @@
(in-package :ap)
-
;;;; Data ---------------------------------------------------------------------
(defparameter *logo* (read-file-into-string "data/logo.txt"))
(defparameter *intro1* (read-file-into-string "data/intro1.txt"))
@@ -22,18 +21,11 @@
(defparameter *view-x* nil)
(defparameter *view-y* nil)
-(defparameter *wat* nil)
(defparameter *player* nil)
-(defparameter *sidebar-width* 30)
-(defparameter *food-density* 1/6000)
;;;; Heightmap ----------------------------------------------------------------
;;; TODO: Switch to something less samey
-(defparameter *map-size* 2000)
-(defparameter *noise-scale* 0.03)
-(defparameter *noise-seed-x* (random 1000.0))
-(defparameter *noise-seed-y* (random 1000.0))
(defun make-empty-heightmap ()
(make-array (list *map-size* *map-size*)