Main

XenoPoliticsSim002.lisp

@@ -0,0 +1,85 @@
+;; Xeno Report Chances and Roll Variables
+;; Grey Variables
+(defparameter *xeno-grey-rand* 35)
+(defparameter *xeno-grey-roll* 1)
+(defparameter *xeno-grey-height-min* 5.0)
+(defparameter *xeno-grey-height-max* 7.5)
+(defparameter *xeno-grey-height-result* 0.0)
+(defparameter *xeno-grey-stance-straight* 90)
+(defparameter *xeno-grey-stance-hunched* 100)
+(defparameter *xeno-grey-stance-list* (list *xeno-grey-stance-straight* *xeno-grey-stance-hunched*))
+(defparameter *xeno-grey-walk-normal* 10)
+(defparameter *xeno-grey-walk-slow* 50)
+(defparameter *xeno-grey-walk-fluid* 70)
+(defparameter *xeno-grey-walk-floating* 100)
+(defparameter *xeno-grey-walk-list* (list *xeno-grey-walk-normal* *xeno-grey-walk-slow* *xeno-grey-walk-fluid* *xeno-grey-walk-floating*))
+(defparameter *xeno-grey-skin-lightgrey* 40)
+(defparameter *xeno-grey-skin-darkgrey* 90)
+(defparameter *xeno-grey-skin-fleshtone* 100)
+(defparameter *xeno-grey-skin-list (list *xeno-grey-skin-lightgrey* *xeno-grey-skin-darkgrey* *xeno-grey-skin-fleshtone*))
+(defparameter *xeno-grey-skintype-sharkskin* 40)
+(defparameter *xeno-grey-skintype-smooth* 90)
+(defparameter *xeno-grey-skintype-humanlike* 100)
+(defparameter *xeno-grey-skintype-list* (list *xeno-grey-skintype-sharkskin* *xeno-grey-skintype-smooth* *xeno-grey-skintype-humanlike*))
+(defparameter *xeno-grey-eyes-ellipticallarge* 90)
+(defparameter *xeno-grey-eyes-ellipticalsmall* 95)
+(defparameter *xeno-grey-eyes-humanlike* 100)
+(defparameter *xeno-grey-eyes-list (list *xeno-grey-eyes-ellipticallarge* *xeno-grey-eyes-ellipticalsmall* *xeno-grey-eyes-ellpitcalhumanlike*))
+;; Reptoid Variables
+(defparameter *xeno-reptoid-rand* 80)
+(defparameter *xeno-reptoid-roll* 2)
+(defparameter *xeno-reptoid-height-min* 6.5)
+(defparameter *xeno-reptoid-height-max* 8.5)
+(defparameter *xeno-reptoid-height-result* 0.0)
+(defparameter *xeno-reptoid-stances* (list :a straight :b slightly-hunched :c hunched :d hands-and-feet))
+(defparameter *xeno-reptoid-walkingpattern* (list :a normal :b rapid))
+;; Nordic Variables
+(defparameter *xeno-nordic-rand* 90)
+(defparameter *xeno-nordic-roll* 3)
+(defparameter *xeno-nordic-height-min* 5.0)
+(defparameter *xeno-nordic-height-max* 7.0)
+(defparameter *xeno-nordic-height-result* 0.0)
+(defparameter *xeno-nordic-stances* (list :a straight))
+(defparameter *xeno-nordic-walkingpattern* (list :a normal :b fluid :c floating))
+(defparameter *xeno-liquidmetal-rand* 93)
+(defparameter *xeno-liquidmetal-roll* 4)
+(defparameter *xeno-liquidmetal-size-min* 1.0)
+(defparameter *xeno-liquidmetal-size-max* 5.0)
+(defparameter *xeno-liquidmetal-size-result* 0.0)
+(defparameter *xeno-artificalint-rand* 96)
+(defparameter *xeno-artificalint-roll* 5)
+(defparameter *xeno-artificalint-size-min* 1.0)
+(defparameter *xeno-artificalint-size-max* 10.0)
+(defparameter *xeno-artificalint-size-result* 0.0)
+(defparameter *xeno-monsterous-rand* 100)
+(defparameter *xeno-monsterous-roll* 6)
+(defparameter *xeno-monsterous-size-min* 6.0)
+(defparameter *xeno-monsterous-size-max* 15.0)
+(defparameter *xeno-monsterous-size-result* 0.0)
+(defparameter *xeno-report-roll* 0)
+(defparameter *xeno-report-roll-number* 0)
+(defparameter *xeno-report-result* nil)
+(defparameter *xeno-report-types* (list *xeno-grey-rand* *xeno-reptoid-rand* *xeno-nordic-rand* *xeno-liquidmetal-rand* *xeno-artificalint-rand* *xeno-monsterous-rand*))
+
+(defun xeno-random-type ()
+  (setf *xeno-report-roll* (random 100))
+  (dolist (x *xeno-report-types*) (incf *xeno-report-roll-number*) (when (>= x *xeno-report-roll*) (return x))))
+(defun xeno-random-type-var ()
+  (cond ((= *xeno-report-roll-number* 1) (setq *xeno-report-result* 'Grey))
+        ((= *xeno-report-roll-number* 2) (setq *xeno-report-result* 'Reptoid))
+        ((= *xeno-report-roll-number* 3) (setq *xeno-report-result* 'Nordic))
+        ((= *xeno-report-roll-number* 4) (setq *xeno-report-result* 'Liquidmetal))
+        ((= *xeno-report-roll-number* 5) (setq *xeno-report-result* 'Artificalint))
+        ((= *xeno-report-roll-number* 6) (setq *xeno-report-result* 'Monsterous))))
+(defun xeno-biology-rand-grey ()
+  (setq *xeno-grey-height-result* (+ *xeno-grey-height-min* (random (- *xeno-grey-height-max* *xeno-grey-height-min*)))))
+(defun xeno-biology-rand-reptoid ()
+  (setq *xeno-reptoid-height-result* (+ *xeno-reptoid-height-min* (random (- *xeno-grey-height-max* *xeno-grey-height-min*)))))
+(defun xeno-biology-rand-nordic ()
+  (setq *xeno-nordic-height-result* (+ *xeno-nordic-height-min* (random (- *xeno-nordic-height-max* *xeno-grey-height-min*)))))
+(defun xeno-biology-rand-liquidmetal ()
+  (setq *xeno-liquidmetal-size-result* (+ *xeno-liquidmetal-size-min* (random (- *xeno-liquidmetal-size-max* *xeno-liquidmetal-size-min*)))))
+(defun xeno-biology-rand-artificalint ()
+  (setq *xeno-artificalint-size-result* (+ *xeno-artificalint-size-min* (random (- *xeno-artificalint-size-max* *xeno-grey-height-min*)))))
+(defun xeno-biology-rand-monsterous ()
+  (setq *xeno-monsterous-size-result* (+ *xeno-monsterous-size-min* (random (- *xeno-monsterous-size-max* *xeno-monsterous-size-min*)))))

XeonPoliticsSim001

@@ -0,0 +1,36 @@
+
+;;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 ())
+