37 lines
1.3 KiB
Plaintext
37 lines
1.3 KiB
Plaintext
|
|
||
|
|
;;variables used in reports
|
||
|
|
;; these variables are used as placeholders as the actual objects are generated, pushed into these variables, then pushed from these variables
|
||
|
|
;; into other streams and files
|
||
|
|
(defvar report-number nil)
|
||
|
|
(defvar report-year nil)
|
||
|
|
(defvar report-month nil)
|
||
|
|
(defvar report-day nil)
|
||
|
|
(defvar report-class nil)
|
||
|
|
(defvar report-type nil)
|
||
|
|
(defvar report-evidence nil)
|
||
|
|
(defvar report-response-a nil)
|
||
|
|
(defvar report-agreement-a nil)
|
||
|
|
(defvar report-counselor-a nil)
|
||
|
|
(defvar report-response-b nil)
|
||
|
|
(defvar report-agreement-b nil)
|
||
|
|
(defvar report-counselor-b nil)
|
||
|
|
(defvar report-response-c nil)
|
||
|
|
(defvar report-agreement-c nil)
|
||
|
|
(defvar report-counselor-c nil)
|
||
|
|
(defvar report-response-d nil)
|
||
|
|
(defvar report-agreement-d nil)
|
||
|
|
(defvar report-counselor-d nil)
|
||
|
|
(defvar report-response-e nil)
|
||
|
|
(defvar report-agreement-e nil)
|
||
|
|
(defvar report-counselor-e nil)
|
||
|
|
(defun alien-group-generator (personality technology biology location ships goals relations)
|
||
|
|
(list :personality a :technology b :biology c :location d :ships e :goals f :relations h))
|
||
|
|
(defun alien-personality-generator ())
|
||
|
|
(defun alien-technology-generator (level techs))
|
||
|
|
(defun alien-biology-generator (type-main))
|
||
|
|
(defun alien-locations-generator (surface orbit systems))
|
||
|
|
(defun alien-ships-generator ())
|
||
|
|
(defun alien-goals-generator ())
|
||
|
|
(defun alien-relations-generator ())
|
||
|
|
|