From edfc09de60d145539cd235aa51014e610d1f370b Mon Sep 17 00:00:00 2001
From: e8051 <mosssebastion660@gmail.com>
Date: Sun, 2 Jan 2022 17:28:22 -0500
Subject: [PATCH] Main

---
 #XenoPoliticsSim002#    |   0
 XenoPoliticsSim002.fasl | Bin 0 -> 4599 bytes
 XenoPoliticsSim002.lisp |  85 ++++++++++++++++++++++++++++++++++++++++++++++++
 XeonPoliticsSim001      |  36 ++++++++++++++++++++
 4 files changed, 121 insertions(+)
 create mode 100644 #XenoPoliticsSim002#
 create mode 100644 XenoPoliticsSim002.fasl
 create mode 100644 XenoPoliticsSim002.lisp
 create mode 100644 XeonPoliticsSim001

diff --git a/#XenoPoliticsSim002# b/#XenoPoliticsSim002#
new file mode 100644
index 0000000..e69de29
diff --git a/XenoPoliticsSim002.fasl b/XenoPoliticsSim002.fasl
new file mode 100644
index 0000000000000000000000000000000000000000..6a02d8746dc847e56873df92a949a47f4b9d9345
GIT binary patch
literal 4599
zcmbVPTWlOx8J^2Iv%7ZeU9V%gZkn<gJNU+W*QJhKph?ENv))N&cGi1w?KDBSjuRYw
zi!VuNOR%+Zg*!FH5)U+efru9*UMdj~kszfNsFAEtMM%){5(Nb%Y7mYfl@p1Y|C}?s
zUXQ&H7}?`<=6wHk{_p?C^?O2JpBNhs4R?h*+C$Naq1mzF@tNsRa%$q_)Zo~3Xmn&e
zI5{yjGdMIl94ai}X=wVTq0!Jw_974rP7h6uOwN?m2VzQEFAD^QCdMX5Mu(3FPE1XV
z1?2x|XKZBrWT=05d?Gn9Ix;gdG@Tw93x}U+8y%URltI_*GynqW?uZ^ZGdwjtGBF-_
zrY+nSE?bv4j_dE*7u@%30#@Y0@JkQdVA0g0CL%o%5Dg}k$YG^N4eDm(aGE^G#8avg
zC97;gi<nWhIqiatW+ZiU7q>U6#*#`(G1QEjO8X+FVVH@auBDT~Y+6m3dxVyLHDLyO
zQtCi3r6i&)_4UV}`@f^aGCv3Y!u1Ut7I2q{c!vp7*IPc1kj!&D#i0T&SnNt%)q3KY
zprIvNAOSx-h>6JDV~HsJL}ZnTaDv0i7q_vJQqx&IL!=<@)R0rE(UwZ7$&9H*?Mx+U
z9HPU*7Ay(5k*ak<^UmbeZjSmxI|Sq~P)dpg?p9a`PO0Y{A=tL;*pZLMLaL7AHr~lz
zTPR_sqFTfb`v{HYzd=dV^&-_us=HWg`(~|0QKK@d`!NMrz&GtQxg1tHx3#h<-Z`gC
z$d=Ky-mDe{(kQwe^f4NV+hJo{JdGUDK%DrzPsRGv+7UHh=yM0?%i}x_JEi3y2X@k&
zGS6=l3$?W=1zefKRQ}~Csf-rWB8sjhGIkEWMq_$B0h$CBOu55Cz7jWCC}aV(Q7iw0
z5G#WKt9x#T!`cBm4O^{k%EO#fF5ixzU#6jVn%T6Sh2yjmDja6EgVP*HG#n?q!}h93
zdm#hRhu*boy3%2#q!`P=q|JS&*q2LK+mr#$>oArlKXfNE1vNmz*-N8wB8xgw9vMtz
zjczr?1UR2Vb+heIUNvjL0#)wB7WGr2JTs6~(=CPvW?06kOAi>`rXK85^sI`+P9CL^
zpWdIQ_hx#3mfjC^@}2Z$a8<?Lm=$zLW)m=|=qMyp&@`x>{V$|3%+fx?tbPGTu$qD%
z_`J+tqw-wQ!~OF7l`Rij<@wX>p;5t<%333PfcgX>Es-&u$e7hf)3IzKlF`hBU|=(4
zcoJD%huE}4kFEw|x~V{<Q8U|J*j1$z0$20}oWrf2WkD=MHPw|hPhoTz8L0Ot!pj)F
zSOvRY*!MwV+wZ?}n-~|yaahEt?<j{`@jE@??(d4YDN&WqK-fwuD!YFra!r5(7h5yS
zJzY@_*9a08&@K_lFwaF)DWVDyc|i<I7^4#|wA+QtToQJn${QY!J1Qc{CGajJ+>j&@
zxkP~%{aEDuBIf;~O8{M?a`>vqxnUj(Q#kCxv*gw)UcUR$d$&HghvoWPjE-YC3>HpR
zPKe~j`|3Uf4_FEd_jXq8h5ehVJHBwuyRZzv_|ouA&6@Sa7iZVvxqH4V9{}u^WV*)}
zzt9l3?%g3`aSOk>zP@fvKG2qCI@WXN`N6n1x*A{X<KtGxt8f&x5)VvkN3)W9IH-H0
z2_6=`-V0$c@jYef^uvRn{?6-NcnY@K{KHz#m-Jq6!^W_BAL@(QJDPQx*RAWItdrR3
zdvM6w*^+xitn~4@N1*90xS=l^t5=C{)G6J{-q9^%6`T`FJNL)Wh;uP;4mBycHR4<h
zoLd8xZ&8)%O=W57KKRGaRv(=EtZb%&_&R$^nS1&E?z2P6(&W~|L(1GaIE)a7H0y?D
zt=S%_H}hV7d-s+@=B{_)9=HTjaqITlvG-T{11tSaS4c`e`P)iQ!-{X^$tTzk;kl1<
zb3B^e3AZy{0?L}rTQ~^ZPVGO3`eptS2*3r)`8NtnezvfjKUP@svBGj5+9|ovSwTR@
z1f#-GNn<j-g8kKH)(S=A*sKvYda_{F3B_~6tPt3jkm(V~7xQ-r`+UnhZgqKUKi3#)
zar>SKG=(uTk#STc6g1E)uz3}|jJ}1wiO!?5Xas&wG3NaY;U=Jh`!9$wjvSnLhf=OV
zlrW(YZlJu9%5g)vgv*iS#SLBwdy!O)8>%H-jf7g<P%GhDB=Av;q&n1EgIcRlTLo(K
zpf>DpC&Y6B@yZ3i=oS59HS&wKgjIxvw-I9@8V3TRNy0+uvi$2y@5|RNU6=nLe}v_R
zAK2q$8o21&GlwOp>`hm@f76!BGq4ki85p>xSt>A4U4v4dC#9S$s{bUb|4M*v)V}w^
zb+7^OR0;SkIKE20aA{$BFPvuZ`V#P;6FB*(wBb7${GU*%+d1<(fx9>0zknq;^V<^e
zuM#-<Dx%tF1_64p1au#PlGetc<&+qVDRHY}2BhLv%`g#Gpch5)dhQ(UMZbwJCZQMA
z9D<`yeh*NMLCL-ZG(@032I$ia+E^O81CH*Vf!qOl^<UHnzBKx;fVdlH==T`<&+w;&
z8}AbIlMMZRhQ3@HeUYF^10j8abNtY+h$`AKUgt^6uz1=tf~;qBYo>1Yu>WG||Fip-
zcyvUbAAoejg<h1erP;D*a0g{xV-L|Ayxkz!mkTi44Rf{H@2L_HMqcDWJJ?u-1sSbg
zkN`Hr&8G8Dct+<x@r=&&q@In?0VH9BeT3E6MaF4#m)|1*GZFtW5^OSl%x@v1czN#c
z!arP}VtMb|jAe+@ux^zXp_VpXr3T?o0R=RKR&EbMtK&z6C^4WRYJ#BwV<^VcnUN#V
zMHPll$7=+#Wm3(YgrgyHbRML?63VR;>GOPUy?4f>MNP)+HWT(y+{&&pfQ7$A6l^<f
d>CD)e5i~wBC~D|ye~Z5Mi}2bH?0=g-_-_~WW!?Y)

literal 0
HcmV?d00001

diff --git a/XenoPoliticsSim002.lisp b/XenoPoliticsSim002.lisp
new file mode 100644
index 0000000..e404c5b
--- /dev/null
+++ b/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*)))))
diff --git a/XeonPoliticsSim001 b/XeonPoliticsSim001
new file mode 100644
index 0000000..5ee7c26
--- /dev/null
+++ b/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 ())
+