body 77 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756
  1. # body
  2. !! I have gone through and added a new category of string variables, standardised to be used for descriptive writing. You will notice some duplication here -- this is for purposes of backwards compatibility, as if I completely rename and discard some of these strings,
  3. !! extant saved games will irrepairably break, and this would be Bad. One day down the line, most of the duplicated variables here can be culled, when there is a new release that warrants new saves being used, but until then the duplication needs to stay. Use of
  4. !! strings for descriptions that do not begin with $pcdesc_ should be avoided, as it would be best to have everything standardised when moving forward into the present and future.
  5. !! Available strings follow this format: $pcdesc_type, $pcdesc_typewordy, and $pcdesc_typerandom. The last will give a new string each time, to allow for repeatedly referencing something accurately without it becoming repetitive. Not EVERYTHING has a wordy
  6. !! or even random variation, but these should work regardless -- they just may use a non-wordy, or non-random version, if it is something that does not really warrant such.
  7. !! There is also a special string, $pcdesc_typeinsertive, that follows the format " , descriptive text" as in, " , invitingly-glossed". Please check the master string document to see if this exists for the string you need. - xerya, July 2017
  8. if pcs_throat = 0:
  9. thpic = 0
  10. $pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
  11. rand_throat = rand(0)
  12. if rand_throat = 0:$pcdesc_throatrandom = 'virgin'
  13. $pcdesc_throat = 'virgin'
  14. $pcdesc_throatwordy = 'virginal, unused'
  15. $throattipe = 'virgin'
  16. elseif pcs_throat <= 5:
  17. thpic = 1
  18. $pcs_throat = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
  19. rand_throat = rand(0)
  20. if rand_throat = 0:$pcdesc_throatrandom = 'narrow'
  21. $pcdesc_throat = 'narrow'
  22. $pcdesc_throatwordy = 'reluctant, gag-prone'
  23. $throattipe = 'narrow'
  24. elseif pcs_throat <= 10:
  25. thpic = 2
  26. $pcs_throat = 'Your slightly-experienced mouth leads to a sensitive <a href="exec:view''images/pc/body/throat/th2.jpg''">throat</a> with an easily-triggered gag reflex.'
  27. rand_throat = rand(0)
  28. if rand_throat = 0:$pcdesc_throatrandom = 'delicate'
  29. $pcdesc_throat = 'delicate'
  30. $pcdesc_throatwordy = 'delicate, barely-experienced'
  31. $throattipe = 'delicate'
  32. elseif pcs_throat <= 15:
  33. thpic = 3
  34. $pcs_throat = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
  35. rand_throat = rand(0)
  36. if rand_throat = 0:$pcdesc_throatrandom = 'fairly practiced'
  37. $pcdesc_throat = 'fairly practiced'
  38. $pcdesc_throatwordy = 'fairly practiced'
  39. $throattipe = 'fairly practiced'
  40. elseif pcs_throat <= 25:
  41. thpic = 4
  42. $pcs_throat = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
  43. rand_throat = rand(0)
  44. if rand_throat = 0:$pcdesc_throatrandom = 'well-trained'
  45. $pcdesc_throat = 'well-trained'
  46. $pcdesc_throatwordy = 'experienced, well-trained and eager'
  47. $throattipe = 'well-trained'
  48. elseif pcs_throat <= 35:
  49. thpic = 5
  50. $pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
  51. rand_throat = rand(0)
  52. if rand_throat = 0:$pcdesc_throatrandom = 'capacious'
  53. $pcdesc_throat = 'capacious'
  54. $pcdesc_throatwordy = 'seasoned, effortlessly-plumbed'
  55. $throattipe = 'capacious'
  56. else
  57. thpic = 6
  58. $pcs_throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/pc/body/throat/th6.jpg''">throat</a> has seen nearly as much cock as it has food.'
  59. rand_throat = rand(0)
  60. if rand_throat = 0:$pcdesc_throatrandom = 'bottomless'
  61. $pcdesc_throat = 'bottomless'
  62. $pcdesc_throatwordy = 'elastic, oft-fucked'
  63. $throattipe = 'bottomless'
  64. end
  65. if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh and minty.'
  66. if pcs_vag = 0:
  67. puspic = 0
  68. $pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/vag0.jpg''">pussy</a> still has its hymen intact.'
  69. rand_pussy = rand(0)
  70. if rand_pussy = 0:$pcdesc_pussyrandom = 'virgin'
  71. $pcdesc_pussy = 'virgin'
  72. $pcdesc_pussywordy = 'virgin'
  73. $vaginatipe = 'virgin'
  74. elseif pcs_vag <= 5:
  75. puspic = 1
  76. $pcs_vag = 'You have an extremely tight <a href="exec:view''images/pc/body/pussy/vag1.jpg''">pussy</a>.'
  77. rand_pussy = rand(0,2)
  78. if rand_pussy = 0:$pcdesc_pussyrandom = 'narrow'
  79. if rand_pussy = 1:$pcdesc_pussyrandom = 'vice-like'
  80. if rand_pussy = 2:$pcdesc_pussyrandom = 'inexperienced'
  81. $pcdesc_pussy = 'narrow'
  82. $pcdesc_pussywordy = 'squeezingly tight and narrow'
  83. $vaginatipe = 'narrow'
  84. elseif pcs_vag <= 10:
  85. puspic = 2
  86. $pcs_vag = 'You have a tight, youthful little slit of a <a href="exec:view''images/pc/body/pussy/vag2.jpg''">pussy</a>.'
  87. rand_pussy = rand(0,1)
  88. if rand_pussy = 0:$pcdesc_pussyrandom = 'snug'
  89. if rand_pussy = 1:$pcdesc_pussyrandom = 'tight'
  90. $pcdesc_pussy = 'tight'
  91. $pcdesc_pussywordy = 'youthfully tight'
  92. $vaginatipe = 'tight'
  93. elseif pcs_vag <= 15:
  94. puspic = 3
  95. $pcs_vag = 'You have a slightly stretched, elastic <a href="exec:view''images/pc/body/pussy/vag3.jpg''">vagina</a>.'
  96. rand_pussy = rand(0,2)
  97. if rand_pussy = 0:$pcdesc_pussyrandom = 'elastic'
  98. if rand_pussy = 1:$pcdesc_pussyrandom = 'practiced'
  99. if rand_pussy = 2:$pcdesc_pussyrandom = 'snug, if easily pliable'
  100. $pcdesc_pussy = 'pliable'
  101. $pcdesc_pussywordy = 'seasoned, pliable and tight'
  102. $vaginatipe = 'pliable'
  103. elseif pcs_vag <= 25:
  104. puspic = 4
  105. $pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/vag4.jpg''">vagina</a>.'
  106. rand_pussy = rand(0,3)
  107. if rand_pussy = 0:$pcdesc_pussyrandom = 'welcoming'
  108. if rand_pussy = 1:$pcdesc_pussyrandom = 'invitingly ready'
  109. if rand_pussy = 2:$pcdesc_pussyrandom = 'amply-practiced'
  110. if rand_pussy = 3:$pcdesc_pussyrandom = 'plenty experienced'
  111. $pcdesc_pussy = 'experienced'
  112. $pcdesc_pussywordy = 'experienced, welcoming'
  113. $vaginatipe = 'experienced'
  114. elseif pcs_vag <= 35:
  115. puspic = 5
  116. $pcs_vag = 'Between your legs you have a seasoned, regularly-fucked <a href="exec:view''images/pc/body/pussy/vag5.jpg''">playground</a>.'
  117. rand_pussy = rand(0,3)
  118. if rand_pussy = 0:$pcdesc_pussyrandom = 'eager and hungry'
  119. if rand_pussy = 1:$pcdesc_pussyrandom = 'routinely-fucked'
  120. if rand_pussy = 2:$pcdesc_pussyrandom = 'cock-starved'
  121. if rand_pussy = 3:$pcdesc_pussyrandom = 'seemingly constantly-fucked'
  122. $pcdesc_pussy = 'oft-fucked'
  123. $pcdesc_pussywordy = 'well-trained, oft-fucked'
  124. $vaginatipe = 'oft-fucked'
  125. else
  126. puspic = 6
  127. $pcs_vag = 'Hardly a day passes that doesn''t involve getting your over-eager <a href="exec:view''images/pc/body/pussy/vag6.jpg''">pussy</a> fucked or at least filled.'
  128. rand_pussy = rand(0,2)
  129. if rand_pussy = 0:$pcdesc_pussyrandom = 'always-ready'
  130. if rand_pussy = 1:$pcdesc_pussyrandom = 'near daily-stuffed'
  131. if rand_pussy = 2:$pcdesc_pussyrandom = 'overeager, ever-popular'
  132. $pcdesc_pussy = 'overeager'
  133. $pcdesc_pussywordy = 'cock-tamed and ever-ready'
  134. $vaginatipe = 'overeager'
  135. end
  136. !! The original variables are all named for ass, but really, this is just all about the asshole.
  137. if analplugIN = 0:
  138. if pcs_ass = 0:
  139. anpic = 0
  140. $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/0.jpg''">anus</a>.'
  141. rand_anus = rand(0)
  142. if rand_anus = 0:$pcdesc_anusrandom = 'virgin'
  143. $pcdesc_anus = 'virgin'
  144. $pcdesc_anuswordy = 'virgin'
  145. $anustipe = 'virgin'
  146. elseif pcs_ass <= 5:
  147. anpic = 1
  148. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/1.jpg''">anus</a> is barely used, and looking at it none would know it was used for sex.'
  149. rand_anus = rand(0,2)
  150. if rand_anus = 0:$pcdesc_anusrandom = 'tight'
  151. if rand_anus = 1:$pcdesc_anusrandom = 'snug'
  152. if rand_anus = 2:$pcdesc_anusrandom = 'tightly-clenching'
  153. $pcdesc_anus = 'tight'
  154. $pcdesc_anuswordy = 'tight, scarcely-used'
  155. $anustipe = 'tight'
  156. elseif pcs_ass <= 10:
  157. anpic = 2
  158. $pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/2.jpg''">anus</a> has the shape of an asterisk.'
  159. rand_anus = rand(0,2)
  160. if rand_anus = 0:$pcdesc_anusrandom = 'flexible'
  161. if rand_anus = 1:$pcdesc_anusrandom = 'slightly experienced'
  162. if rand_anus = 2:$pcdesc_anusrandom = 'pliable'
  163. $pcdesc_anus = 'flexible'
  164. $pcdesc_anuswordy = 'flexible, still-snug'
  165. $anustipe = 'flexible'
  166. elseif pcs_ass <= 15:
  167. anpic = 3
  168. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/3.jpg''">anus</a> is usually slightly parted, it has been used quite often.'
  169. rand_anus = rand(0,2)
  170. if rand_anus = 0:$pcdesc_anusrandom = 'stretchy'
  171. if rand_anus = 1:$pcdesc_anusrandom = 'experienced'
  172. if rand_anus = 2:$pcdesc_anusrandom = 'welcomingly ready'
  173. $pcdesc_anus = 'stretchy'
  174. $pcdesc_anuswordy = 'stretchy, regularly-fucked'
  175. $anustipe = 'stretchy'
  176. elseif pcs_ass <= 25:
  177. anpic = 4
  178. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/4.jpg''">anus</a> often looks like a wide hole; anyone would think that the only thing you do is anal sex.'
  179. rand_anus = rand(0,2)
  180. if rand_anus = 0:$pcdesc_anusrandom = 'loose'
  181. if rand_anus = 1:$pcdesc_anusrandom = 'casually open'
  182. if rand_anus = 2:$pcdesc_anusrandom = 'routinely-fucked'
  183. $pcdesc_anus = 'loose'
  184. $pcdesc_anuswordy = 'loose, open'
  185. $anustipe = 'loose'
  186. elseif pcs_ass <= 35:
  187. anpic = 5
  188. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/5.jpg''">anus</a> genuinely doesn''t fully close on its own anymore. You could put a fist through it and it would scarcely stretch at all.'
  189. rand_anus = rand(0,2)
  190. if rand_anus = 0:$pcdesc_anusrandom = 'gaping'
  191. if rand_anus = 1:$pcdesc_anusrandom = 'yawning'
  192. if rand_anus = 2:$pcdesc_anusrandom = 'obscenely yawning'
  193. $pcdesc_anus = 'gaping'
  194. $pcdesc_anuswordy = 'gaping, seemingly constantly-fucked'
  195. $anustipe = 'gaping'
  196. else
  197. anpic = 6
  198. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.'
  199. rand_anus = rand(0,4)
  200. if rand_anus = 0:$pcdesc_anusrandom = 'destroyed'
  201. if rand_anus = 1:$pcdesc_anusrandom = 'demolished'
  202. if rand_anus = 2:$pcdesc_anusrandom = 'uselessly loose'
  203. if rand_anus = 3:$pcdesc_anusrandom = 'ruined'
  204. if rand_anus = 4:$pcdesc_anusrandom = 'wrecked'
  205. $pcdesc_anus = 'destroyed'
  206. $pcdesc_anuswordy = 'absolutely fuck-wrecked'
  207. $anustipe = 'destroyed'
  208. end
  209. !! This below was originally missing even the original reference for $anustipe, so I added it in simplistically. Also, tanga means panties, or more specifically, a thong. A lot of duplication on descriptions, but not much to change, the logic is for images.
  210. elseif analplugIN = 1 and tanga = 1:
  211. $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
  212. rand_anus = rand(0)
  213. if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
  214. $pcdesc_anus = 'plugged'
  215. $pcdesc_anuswordy = 'plug-stuffed'
  216. $anustipe = 'plugged'
  217. elseif analplugIN = 1 and tanga = 0:
  218. if pirsG = 1 and pirsGL = 1:
  219. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
  220. rand_anus = rand(0)
  221. if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
  222. $pcdesc_anus = 'plugged'
  223. $pcdesc_anuswordy = 'plug-stuffed'
  224. $anustipe = 'plugged'
  225. elseif pirsG ! 1 and pirsGL = 1:
  226. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
  227. rand_anus = rand(0)
  228. if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
  229. $pcdesc_anus = 'plugged'
  230. $pcdesc_anuswordy = 'plug-stuffed'
  231. $anustipe = 'plugged'
  232. elseif pirsG = 1 and pirsGL ! 1:
  233. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
  234. rand_anus = rand(0)
  235. if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
  236. $pcdesc_anus = 'plugged'
  237. $pcdesc_anuswordy = 'plug-stuffed'
  238. $anustipe = 'plugged'
  239. else
  240. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
  241. rand_anus = rand(0)
  242. if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
  243. $pcdesc_anus = 'plugged'
  244. $pcdesc_anuswordy = 'plug-stuffed'
  245. $anustipe = 'plugged'
  246. end
  247. end
  248. !!!!!!!!!!!!!!!!
  249. !!!!!SIZE AND WEIGHT!!!
  250. !!!!!!!!!!!!!!!!
  251. if dounspell = 0:
  252. pcs_hips = (pcs_hgt * hratio) / 100 + vhips
  253. pcs_waist = (pcs_hips * wratio) / 100 + vofat
  254. pcs_band = (pcs_waist * bratio) / 100 + vofat
  255. pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
  256. pcs_butt = (pcs_hips / 10) + silicone_butt
  257. pcs_cupsize = pcs_bust - pcs_band
  258. !! If the PC has vastly less breast tissue than she does silicone, use a slightly more derogatory term. There is actually not a great way to calculate this; silicone counts almost the same on all body types, even though an increase of 200cc, for example, would be vastly
  259. !! more noticeable on a thinner body than a heavier one. I have experimented with moving where the silicone is factored in to the body shape calculations, but ultimately there is just no better way to do it than how it is now, given the things that increase the amount
  260. !! of silicone in the PC body. The best kludge I can make is working off of stored fat (pcs_weight does actually not do the job at all, as a fat PC and thin PC are almost the same, oddly, in my tests) and making an approximation from there. The amount of the silicone
  261. !! variable does not really equate to any particular real-life cc calculation for implant size, so we cannot go off of that. This will have to do for now.
  262. pcs_bustdisparity = (silicone/10) - salocatnow
  263. if pcs_bustdisparity >=1 and pcs_bustdisparity < 2:
  264. $pcdesc_breastsqualifier = ''
  265. $pcdesc_breastsqualifierinsertive = ''
  266. $pcdesc_breastsword = 'bolt-ons'
  267. pcdesc_breastimplantcheck = 1
  268. elseif pcs_bustdisparity >= 2 and pcs_bustdisparity < 3:
  269. $pcdesc_breastsqualifier = ' semi-spherical'
  270. $pcdesc_breastsqualifierinsertive = ', semi-spherical'
  271. $pcdesc_breastsword = 'bolt-ons'
  272. pcdesc_breastimplantcheck = 1
  273. elseif pcs_bustdisparity >= 3 and pcs_bustdisparity < 4:
  274. $pcdesc_breastsqualifier = ' firm and round'
  275. $pcdesc_breastsqualifierinsertive = ', firm and round'
  276. $pcdesc_breastsword = 'bolt-ons'
  277. pcdesc_breastimplantcheck = 1
  278. !! Already we are about as far as a normal, non-fetishistic human being would get -- the maximum size of implant, the XXL, results in 40 silicone, and an extremely thin and well-kept PC will have a minimum salocatnow of 1.
  279. !! That means that anything below this line means it was a very intentional move toward sexual objectification, as it could only come from fillable or string implants (and on a thin frame, no less), so we can take some liberties.
  280. elseif pcs_bustdisparity >= 4 and pcs_bustdisparity < 5:
  281. $pcdesc_breastsqualifier = ' clearly man-made'
  282. $pcdesc_breastsqualifierinsertive = ', clearly man-made'
  283. $pcdesc_breastsword = 'bolt-ons'
  284. pcdesc_breastimplantcheck = 1
  285. elseif pcs_bustdisparity >= 5 and pcs_bustdisparity < 6:
  286. $pcdesc_breastsqualifier = ' plastic fuckdoll'
  287. $pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
  288. $pcdesc_breastsword = 'bolt-ons'
  289. pcdesc_breastimplantcheck = 1
  290. elseif pcs_bustdisparity >= 6 and pcs_bustdisparity < 7:
  291. $pcdesc_breastsqualifier = ' walking fucktoy'
  292. $pcdesc_breastsqualifierinsertive = ', walking fucktoy'
  293. $pcdesc_breastsword = 'bolt-ons'
  294. pcdesc_breastimplantcheck = 1
  295. elseif pcs_bustdisparity >= 7 and pcs_bustdisparity < 8:
  296. $pcdesc_breastsqualifier = ' laughably overdone fuckdoll'
  297. $pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
  298. $pcdesc_breastsword = 'bolt-ons'
  299. pcdesc_breastimplantcheck = 1
  300. elseif pcs_bustdisparity >= 8:
  301. $pcdesc_breastsqualifier = ' $pcdesc_haircolourwordy overdone fuckdoll'
  302. $pcdesc_breastsqualifierinsertive = ', $pcdesc_haircolourwordy overdone fuckdoll'
  303. $pcdesc_breastsword = 'bolt-ons'
  304. pcdesc_breastimplantcheck = 1
  305. !! This triggers if they have fake breasts, but they are not obviously, blatantly fake breasts. In fact, this should be what triggers most of the time with a PC who has implants, given average cases.
  306. elseif pcs_bustdisparity < 1 and silicone > 0:
  307. if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
  308. if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
  309. $pcdesc_breastsqualifier = ''
  310. $pcdesc_breastsqualifierinsertive = ''
  311. pcdesc_breastimplantcheck = 1
  312. !! For all-natural PCs.
  313. else
  314. if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
  315. if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
  316. $pcdesc_breastsqualifier = ''
  317. $pcdesc_breastsqualifierinsertive = ''
  318. pcdesc_breastimplantcheck = 0
  319. end
  320. !! These will not be used below, but can be referenced by descriptive writers in case they want to be able to quickly reference whether or not the PC has implants, as in "He reaches up and cups your<<$pcdesc_breastsfakeinsertive>> breasts."
  321. if pcdesc_breastimplantcheck = 1:$pcdesc_breastsfakeinsertive = ' fake'
  322. if pcdesc_breastimplantcheck = 0:$pcdesc_breastsfakeinsertive = ''
  323. if pcs_cupsize <= 5:
  324. tits = 0
  325. $titsize = 'AA cup'
  326. rand_breasts = rand(0,1)
  327. if rand_breasts = 0:$pcdesc_breastsrandom = 'tiny'
  328. if rand_breasts = 1:$pcdesc_breastsrandom = 'barely-there'
  329. !! Honestly, I am not even sure it is possible to have silicone and be this small. But just in case...
  330. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  331. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'tiny, mosquito-bite <<$pcdesc_breastsword>>'
  332. $pcdesc_breasts = 'tiny'
  333. elseif pcs_cupsize <= 10:
  334. tits = 1
  335. $titsize = 'A cup'
  336. rand_breasts = rand(0,1)
  337. if rand_breasts = 0:$pcdesc_breastsrandom = 'petite'
  338. if rand_breasts = 1:$pcdesc_breastsrandom = 'smaller than a handful'
  339. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  340. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'petite, puffy little <<$pcdesc_breastsword>>'
  341. $pcdesc_breasts = 'petite'
  342. elseif pcs_cupsize <= 15:
  343. tits = 2
  344. $titsize = 'B cup'
  345. rand_breasts = rand(0,1)
  346. if rand_breasts = 0:$pcdesc_breastsrandom = 'small'
  347. if rand_breasts = 1:$pcdesc_breastsrandom = 'sporty'
  348. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  349. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'small, handful-sized <<$pcdesc_breastsword>>'
  350. $pcdesc_breasts = 'small'
  351. elseif pcs_cupsize <= 20:
  352. tits = 3
  353. $titsize = 'C cup'
  354. rand_breasts = rand(0,1)
  355. if rand_breasts = 0:$pcdesc_breastsrandom = 'ample'
  356. if rand_breasts = 1:$pcdesc_breastsrandom = 'average-sized'
  357. !! At this point PCs should now be able to get the bolted-on look, so we need to be a bit more careful to avoid contradictions in descriptive phrasing. It is OK to have some repetition here for a cup size or two.
  358. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  359. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'ample, handful-sized <<$pcdesc_breastsword>>'
  360. $pcdesc_breasts = 'ample'
  361. elseif pcs_cupsize <= 25:
  362. tits = 4
  363. $titsize = 'D cup'
  364. rand_breasts = rand(0,1)
  365. if rand_breasts = 0:$pcdesc_breastsrandom = 'full'
  366. if rand_breasts = 1:$pcdesc_breastsrandom = 'hefty'
  367. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  368. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'jiggly, womanly full <<$pcdesc_breastsword>>'
  369. $pcdesc_breasts = 'full'
  370. elseif pcs_cupsize <= 30:
  371. tits = 5
  372. $titsize = 'E cup'
  373. rand_breasts = rand(0,2)
  374. if rand_breasts = 0:$pcdesc_breastsrandom = 'generous'
  375. if rand_breasts = 1:$pcdesc_breastsrandom = 'heavy'
  376. if rand_breasts = 2:$pcdesc_breastsrandom = 'fairly large'
  377. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  378. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'soft, generously-sized <<$pcdesc_breastsword>>'
  379. $pcdesc_breasts = 'generous'
  380. elseif pcs_cupsize <= 35:
  381. !! From F cup and onward, breasts are now automatically referred to as tits, since that is how most others will see them. It is a subtle sexualisation, but it should be one that matches with the pre-generated descriptions from here on out.
  382. tits = 6
  383. $titsize = 'F cup'
  384. rand_breasts = rand(0,1)
  385. if rand_breasts = 0:$pcdesc_breastsrandom = 'big'
  386. if rand_breasts = 1:$pcdesc_breastsrandom = 'large'
  387. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  388. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
  389. $pcdesc_breasts = 'big'
  390. elseif pcs_cupsize <= 40:
  391. tits = 7
  392. $titsize = 'G cup'
  393. rand_breasts = rand(0,1)
  394. if rand_breasts = 0:$pcdesc_breastsrandom = 'considerably large'
  395. if rand_breasts = 1:$pcdesc_breastsrandom = 'quite large'
  396. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  397. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'quite large and jiggly <<$pcdesc_breastsword>>'
  398. $pcdesc_breasts = 'considerably large'
  399. elseif pcs_cupsize <= 45:
  400. tits = 8
  401. $titsize = 'H cup'
  402. rand_breasts = rand(0,1)
  403. if rand_breasts = 0:$pcdesc_breastsrandom = 'extremely large'
  404. if rand_breasts = 1:$pcdesc_breastsrandom = 'incredibly stacked'
  405. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  406. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
  407. $pcdesc_breasts = 'extremely large'
  408. elseif pcs_cupsize <= 50:
  409. tits = 9
  410. $titsize = 'I cup'
  411. rand_breasts = rand(0,2)
  412. if rand_breasts = 0:$pcdesc_breastsrandom = 'huge'
  413. if rand_breasts = 1:$pcdesc_breastsrandom = 'impractically big'
  414. if rand_breasts = 2:$pcdesc_breastsrandom = 'figure-dominating'
  415. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  416. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'huge, wholly impractical <<$pcdesc_breastsword>>'
  417. $pcdesc_breasts = 'huge'
  418. elseif pcs_cupsize <= 55:
  419. tits = 10
  420. $titsize = 'J cup'
  421. rand_breasts = rand(0,1)
  422. if rand_breasts = 0:$pcdesc_breastsrandom = 'massive'
  423. if rand_breasts = 1:$pcdesc_breastsrandom = 'enormous'
  424. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  425. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
  426. $pcdesc_breasts = 'massive'
  427. else
  428. tits = 11
  429. $titsize = 'K cup'
  430. rand_breasts = rand(0,2)
  431. if rand_breasts = 0:$pcdesc_breastsrandom = 'whorishly oversized'
  432. if rand_breasts = 1:$pcdesc_breastsrandom = 'fucktoy-appropriate'
  433. if rand_breasts = 2:$pcdesc_breastsrandom = 'ridiculously big'
  434. if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  435. if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
  436. $pcdesc_breasts = 'whorishly oversized'
  437. end
  438. !!This sets weight
  439. !! This variable is actually only used ONCE, when stripping, to see if you fall off the pole from being too heavy. I am reluctant to touch it, since the math is not explained. Maybe later.
  440. pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
  441. end
  442. !!! Maruda Hair Mod
  443. if pcs_hairlng <= 80:
  444. hpigtail = 0
  445. hscrunchw = 0
  446. hpingripw = 0
  447. if defcurly = 0:
  448. curly = 0
  449. else
  450. !! ...Wat?
  451. curly = 2147483647
  452. end
  453. hbraids = 0
  454. if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
  455. end
  456. if pcs_hairlng > 800:
  457. hpingripw = 0
  458. hbraids = 0
  459. end
  460. if pcs_hairlng > 800 and hpigtail >= 1:
  461. hscrunchw = 0
  462. hpigtail = 0
  463. end
  464. if hbraids >= 1:
  465. hscrunchw = 0
  466. hpingripw = 0
  467. hbangs = 0
  468. hpigtail = 0
  469. end
  470. if pcs_hairbsh = 0:
  471. if pcs_hairlng > 30:
  472. $pcs_hairbsh = '<b>tangled</b>. You should comb it to keep it healthy'
  473. rand_hairmess = rand(0,3)
  474. if rand_hairmess = 0:$pcdesc_hairmessrandom = 'tangled'
  475. if rand_hairmess = 1:$pcdesc_hairmessrandom = 'tousled'
  476. if rand_hairmess = 2:$pcdesc_hairmessrandom = 'disheveled'
  477. if rand_hairmess = 3:$pcdesc_hairmessrandom = 'mussed'
  478. $pcdesc_hairmess = 'tangled'
  479. $pcdesc_hairmessinsertive = ', tangled'
  480. $pcdesc_hairmesswordy = 'tangled, poorly-kept'
  481. else
  482. $pcs_hairbsh = '<b>messy</b>. You should style it to keep it looking good'
  483. rand_hairmess = rand(0,1)
  484. if rand_hairmess = 0:$pcdesc_hairmessrandom = 'messy'
  485. if rand_hairmess = 1:$pcdesc_hairmessrandom = 'unkempt'
  486. $pcdesc_hairmess = 'messy'
  487. $pcdesc_hairmessinsertive = ', messy'
  488. $pcdesc_hairmesswordy = 'messy, poorly-kept'
  489. end
  490. else
  491. $pcs_hairbsh = 'neatly styled'
  492. rand_hairmess = rand(0,1)
  493. if rand_hairmess = 0:$pcdesc_hairmessrandom = 'neat'
  494. if rand_hairmess = 1:$pcdesc_hairmessrandom = 'well-kept'
  495. $pcdesc_hairmess = 'neat'
  496. $pcdesc_hairmessinsertive = ', neat'
  497. $pcdesc_hairmesswordy = 'neat, well-maintained'
  498. end
  499. if curly <= 0:
  500. $curly = 'straight, slightly wavy '
  501. !! Not a lot of variety here, I know -- it is for future compatibility, so everything can have be reached in the same fashion.
  502. rand_hairtexture = rand(0)
  503. rand_hairword = rand(0)
  504. if rand_hairtexture = 0:$pcdesc_hairtexturerandom = 'straight'
  505. if rand_hairword = 0:$pcdesc_hairwordrandom = 'locks'
  506. $pcdesc_hairtexturewordy = 'straight, slightly wavy'
  507. $pcdesc_hairwordwordy = 'locks'
  508. $pcdesc_hairtexture = 'straight'
  509. $pcdesc_hairword = 'locks'
  510. else
  511. $curly = 'curly '
  512. rand_hairtexture = rand(0)
  513. rand_hairword = rand(0,1)
  514. if rand_hairtexture = 0:$pcdesc_hairtexturerandom = 'curly'
  515. if rand_hairword = 0:$pcdesc_hairwordrandom = 'curls'
  516. if rand_hairword = 1:$pcdesc_hairwordrandom = 'ringlets'
  517. $pcdesc_hairtexturewordy = 'playfully curly'
  518. $pcdesc_hairwordwordy = 'curls'
  519. $pcdesc_hairtexture = 'curly'
  520. $pcdesc_hairword = 'curls'
  521. end
  522. !! If you are baffled by the need for a forehead descriptor here, it is primarily just for writing about cumshots. I honestly cannot think of another use case. Other variables largely just for compatibility.
  523. if hbangs <= 0:
  524. $hbangs = ''
  525. rand_bangs = rand(0)
  526. if rand_bangs = 0:$pcdesc_foreheadrandom = 'forehead'
  527. $pcdesc_foreheadwordy = 'forehead'
  528. $pcdesc_forehead = 'forehead'
  529. else
  530. $hbangs = ', with a fringe covering your forehead'
  531. rand_bangs = rand(0,1)
  532. if rand_bangs = 0:$pcdesc_foreheadrandom = 'bangs'
  533. if rand_bangs = 1:$pcdesc_foreheadrandom = 'fringe'
  534. $pcdesc_foreheadwordy = 'fringe'
  535. $pcdesc_forehead = 'bangs'
  536. end
  537. !! Be careful when adding random-assigned synonyms to hair colours to ensure that you do not accidentally describe a different shade of the colour you are describing.
  538. !! Honestly, we probably do not need all the light medium dark colour splitting for the bright colours, but it is sadly too late to go back on them.
  539. if pcs_haircol = 0:
  540. $pcs_haircol = 'black'
  541. $pcdesc_haircolour = 'black'
  542. rand_hair = rand(0,9)
  543. if rand_hair = 0:$pcdesc_hairrandom = 'black'
  544. if rand_hair = 1:$pcdesc_hairrandom = 'ebony'
  545. if rand_hair = 2:$pcdesc_hairrandom = 'obsidian'
  546. if rand_hair = 3:$pcdesc_hairrandom = 'jet-black'
  547. if rand_hair = 4:$pcdesc_hairrandom = 'charcoal black'
  548. if rand_hair = 5:$pcdesc_hairrandom = 'raven black'
  549. if rand_hair = 6:$pcdesc_hairrandom = 'sable'
  550. if rand_hair = 7:$pcdesc_hairrandom = 'inky-black'
  551. if rand_hair = 8:$pcdesc_hairrandom = 'coal-black'
  552. if rand_hair = 9:$pcdesc_hairrandom = 'pitch-black'
  553. $pcdesc_haircolourwordy = 'dark, obsidian-black'
  554. elseif pcs_haircol = 1:
  555. $pcs_haircol = 'brown'
  556. $pcdesc_haircolour = 'brown'
  557. rand_hair = rand(0,2)
  558. if rand_hair = 0:$pcdesc_hairrandom = 'brown'
  559. if rand_hair = 1:$pcdesc_hairrandom = 'russet brown'
  560. if rand_hair = 2:$pcdesc_hairrandom = 'chestnut brown'
  561. $pcdesc_haircolourwordy = 'russet brown'
  562. elseif pcs_haircol = 2:
  563. $pcs_haircol = 'red'
  564. $pcdesc_haircolour = 'red'
  565. !! Remember, this is not the vibrant dyed red colour, this is a natural red
  566. rand_hair = rand(0,2)
  567. if rand_hair = 0:$pcdesc_hairrandom = 'fiery red'
  568. if rand_hair = 1:$pcdesc_hairrandom = 'coppery red'
  569. if rand_hair = 2:$pcdesc_hairrandom = 'ginger'
  570. $pcdesc_haircolourwordy = 'fiery red'
  571. elseif pcs_haircol = 3:
  572. $pcs_haircol = 'blonde'
  573. $pcdesc_haircolour = 'blonde'
  574. rand_hair = rand(0,3)
  575. if rand_hair = 0:$pcdesc_hairrandom = 'blonde'
  576. if rand_hair = 1:$pcdesc_hairrandom = 'golden-blonde'
  577. if rand_hair = 2:$pcdesc_hairrandom = 'golden'
  578. if rand_hair = 3:$pcdesc_hairrandom = 'fair, blonde'
  579. $pcdesc_haircolourwordy = 'beautiful golden-blonde'
  580. elseif pcs_haircol = 4:
  581. $pcs_haircol = 'bright red'
  582. $pcdesc_haircolour = 'bright red'
  583. rand_hair = rand(0,2)
  584. if rand_hair = 0:$pcdesc_hairrandom = 'candy-apple red'
  585. if rand_hair = 1:$pcdesc_hairrandom = 'fire-engine red'
  586. if rand_hair = 2:$pcdesc_hairrandom = 'vibrantly-dyed red'
  587. $pcdesc_haircolourwordy = 'vibrant, candy-apple red'
  588. elseif pcs_haircol = 5:
  589. $pcs_haircol = 'dark blue'
  590. $pcdesc_haircolour = 'dark blue'
  591. rand_hair = rand(0,2)
  592. if rand_hair = 0:$pcdesc_hairrandom = 'dark blue'
  593. if rand_hair = 1:$pcdesc_hairrandom = 'blurple'
  594. if rand_hair = 2:$pcdesc_hairrandom = 'midnight blue'
  595. $pcdesc_haircolourwordy = 'rich, purplish-blue'
  596. elseif pcs_haircol = 6:
  597. $pcs_haircol = 'blue'
  598. $pcdesc_haircolour = 'blue'
  599. rand_hair = rand(0,1)
  600. if rand_hair = 0:$pcdesc_hairrandom = 'blue'
  601. if rand_hair = 1:$pcdesc_hairrandom = 'electric blue'
  602. $pcdesc_haircolourwordy = 'vibrant, electric blue'
  603. elseif pcs_haircol = 7:
  604. $pcs_haircol = 'light blue'
  605. $pcdesc_haircolour = 'light blue'
  606. rand_hair = rand(0,3)
  607. if rand_hair = 0:$pcdesc_hairrandom = 'light blue'
  608. if rand_hair = 1:$pcdesc_hairrandom = 'azure'
  609. if rand_hair = 2:$pcdesc_hairrandom = 'pale blue'
  610. if rand_hair = 3:$pcdesc_hairrandom = 'candy-floss blue'
  611. $pcdesc_haircolourwordy = 'pale, candy-coloured blue'
  612. elseif pcs_haircol = 8:
  613. $pcs_haircol = 'dark green'
  614. $pcdesc_haircolour = 'dark green'
  615. rand_hair = rand(0)
  616. if rand_hair = 0:$pcdesc_hairrandom = 'dark green'
  617. !! Emerald green is actually a lighter colour, but with the specific qualifier of deep, it can be used here for lack of a better one.
  618. $pcdesc_haircolourwordy = 'deep, emerald-green'
  619. elseif pcs_haircol = 9:
  620. $pcs_haircol = 'green'
  621. $pcdesc_haircolour = 'green'
  622. rand_hair = rand(0,2)
  623. if rand_hair = 0:$pcdesc_hairrandom = 'green'
  624. if rand_hair = 1:$pcdesc_hairrandom = 'forest green'
  625. if rand_hair = 2:$pcdesc_hairrandom = 'fern-green'
  626. $pcdesc_haircolourwordy = 'vibrant, forest-green'
  627. elseif pcs_haircol = 10:
  628. $pcs_haircol = 'light green'
  629. $pcdesc_haircolour = 'light green'
  630. rand_hair = rand(0,4)
  631. if rand_hair = 0:$pcdesc_hairrandom = 'light green'
  632. if rand_hair = 1:$pcdesc_hairrandom = 'pale green'
  633. if rand_hair = 2:$pcdesc_hairrandom = 'leaf-green'
  634. if rand_hair = 3:$pcdesc_hairrandom = 'minty green'
  635. if rand_hair = 4:$pcdesc_hairrandom = 'candy-floss green'
  636. $pcdesc_haircolourwordy = 'pale, leaf-green'
  637. elseif pcs_haircol = 11:
  638. $pcs_haircol = 'dark pink'
  639. $pcdesc_haircolour = 'dark pink'
  640. rand_hair = rand(0,1)
  641. if rand_hair = 0:$pcdesc_hairrandom = 'dark pink'
  642. if rand_hair = 1:$pcdesc_hairrandom = 'purplish-pink'
  643. $pcdesc_haircolourwordy = 'dark, purplish-pink'
  644. elseif pcs_haircol = 12:
  645. $pcs_haircol = 'pink'
  646. $pcdesc_haircolour = 'pink'
  647. rand_hair = rand(0,4)
  648. if rand_hair = 0:$pcdesc_hairrandom = 'bubblegum-pink'
  649. if rand_hair = 1:$pcdesc_hairrandom = 'Barbie pink'
  650. if rand_hair = 2:$pcdesc_hairrandom = 'fuchsia'
  651. if rand_hair = 3:$pcdesc_hairrandom = 'pink'
  652. if rand_hair = 4:$pcdesc_hairrandom = 'bright pink'
  653. $pcdesc_haircolourwordy = 'bright, bubblegum-pink'
  654. elseif pcs_haircol = 13:
  655. $pcs_haircol = 'light pink'
  656. $pcdesc_haircolour = 'light pink'
  657. rand_hair = rand(0,5)
  658. if rand_hair = 0:$pcdesc_hairrandom = 'light pink'
  659. if rand_hair = 1:$pcdesc_hairrandom = 'pale pink'
  660. if rand_hair = 2:$pcdesc_hairrandom = 'babydoll pink'
  661. if rand_hair = 3:$pcdesc_hairrandom = 'China pink'
  662. if rand_hair = 2:$pcdesc_hairrandom = 'cotton-candy pink'
  663. if rand_hair = 3:$pcdesc_hairrandom = 'candy-floss pink'
  664. $pcdesc_haircolourwordy = 'pale, cotton-candy pink'
  665. elseif pcs_haircol = 14:
  666. $pcs_haircol = 'dark purple'
  667. $pcdesc_haircolour = 'dark purple'
  668. rand_hair = rand(0,3)
  669. if rand_hair = 0:$pcdesc_hairrandom = 'dark purple'
  670. if rand_hair = 1:$pcdesc_hairrandom = 'deep purple'
  671. if rand_hair = 2:$pcdesc_hairrandom = 'midnight purple'
  672. if rand_hair = 3:$pcdesc_hairrandom = 'indigo'
  673. $pcdesc_haircolourwordy = 'deep, bluish-purple'
  674. elseif pcs_haircol = 15:
  675. $pcs_haircol = 'purple'
  676. $pcdesc_haircolour = 'purple'
  677. rand_hair = rand(0,2)
  678. if rand_hair = 0:$pcdesc_hairrandom = 'purple'
  679. if rand_hair = 1:$pcdesc_hairrandom = 'plum purple'
  680. if rand_hair = 2:$pcdesc_hairrandom = 'royal purple'
  681. $pcdesc_haircolourwordy = 'rich, royal purple'
  682. elseif pcs_haircol = 16:
  683. $pcs_haircol = 'light purple'
  684. $pcdesc_haircolour = 'light purple'
  685. rand_hair = rand(0,3)
  686. if rand_hair = 0:$pcdesc_hairrandom = 'light purple'
  687. if rand_hair = 1:$pcdesc_hairrandom = 'pale purple'
  688. if rand_hair = 2:$pcdesc_hairrandom = 'amethyst coloured'
  689. if rand_hair = 3:$pcdesc_hairrandom = 'lavender'
  690. $pcdesc_haircolourwordy = 'pale, floral purple'
  691. elseif pcs_haircol = 17:
  692. $pcs_haircol = 'orange'
  693. $pcdesc_haircolour = 'orange'
  694. rand_hair = rand(0,2)
  695. if rand_hair = 0:$pcdesc_hairrandom = 'orange'
  696. if rand_hair = 1:$pcdesc_hairrandom = 'pumpkin orange'
  697. if rand_hair = 2:$pcdesc_hairrandom = 'bright orange'
  698. $pcdesc_haircolourwordy = 'bright, fiery orange'
  699. !! This below is a catch-all, it should not actually ever wind up occurring, but just in case it does...
  700. else
  701. $pcs_haircol = 'strangely-coloured'
  702. $pcdesc_haircolour = 'strangely-coloured'
  703. rand_hair = rand(0,1)
  704. if rand_hair = 0:$pcdesc_hairrandom = 'strangely-coloured'
  705. if rand_hair = 1:$pcdesc_hairrandom = 'multicoloured'
  706. $pcdesc_haircolourwordy = 'exceptionally variegated'
  707. end
  708. if hscrunchw <= 0:
  709. $hscrunch = ''
  710. $hpigtail = ''
  711. rand_hairstyle = rand(0)
  712. rand_hairobject = rand(0)
  713. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
  714. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
  715. $pcdesc_hairstyle = 'loose'
  716. $pcdesc_hairobject = 'hair'
  717. $pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
  718. elseif hscrunchw = 1:
  719. $hscrunch = ' A hair-tie holds your hair in place with a ponytail.'
  720. $hpigtail = ''
  721. rand_hairstyle = rand(0)
  722. rand_hairobject = rand(0)
  723. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'ponytailed'
  724. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'ponytail'
  725. $pcdesc_hairstyle = 'ponytailed'
  726. $pcdesc_hairobject = 'ponytail'
  727. $pcdesc_hairobjectwordy = 'tight, high-set <<$pcs_haircol>> ponytail'
  728. else
  729. !! The actual, specific setting for hscrunchw when pigtails are desired is 2, but it is better to have a catch-all. Adjust the else above into an elseif set for 2 if more styles involving scrunchies are added.
  730. $hscrunch = ''
  731. $hpigtail = ' Two scrunchies hold your hair up into two cute, playful twin tails.'
  732. rand_hairstyle = rand(0)
  733. rand_hairobject = rand(0)
  734. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'pigtailed'
  735. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'pigtails'
  736. $pcdesc_hairstyle = 'pigtailed'
  737. $pcdesc_hairobject = 'pigtails'
  738. $pcdesc_hairobjectwordy = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
  739. end
  740. if hpingripw <= 0:
  741. $hpingrip = ''
  742. rand_hairstyle = rand(0)
  743. rand_hairobject = rand(0)
  744. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
  745. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
  746. $pcdesc_hairstyle = 'loose'
  747. $pcdesc_hairobject = 'hair'
  748. $pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
  749. else
  750. $hpingrip = ' Hair-pins hold your hair in place in a stylish updo.'
  751. rand_hairstyle = rand(0,1)
  752. rand_hairobject = rand(0)
  753. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'upswept'
  754. if rand_hairstyle = 1:$pcdesc_hairstylerandom = 'ornately-pinned'
  755. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'updo'
  756. $pcdesc_hairstyle = 'upswept'
  757. $pcdesc_hairobject = 'updo'
  758. $pcdesc_hairobjectwordy = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
  759. end
  760. if hbraids <= 0:
  761. $hbraids = ''
  762. rand_hairstyle = rand(0)
  763. rand_hairobject = rand(0)
  764. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
  765. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
  766. $pcdesc_hairstyle = 'loose'
  767. $pcdesc_hairobject = 'hair'
  768. $pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
  769. else
  770. $hbraids = ' Your hair is beautifully braided.'
  771. rand_hairstyle = rand(0,1)
  772. rand_hairobject = rand(0,1)
  773. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'braided'
  774. if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'plaited'
  775. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'braids'
  776. if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'plaits'
  777. $pcdesc_hairstyle = 'braided'
  778. $pcdesc_hairobject = 'braid'
  779. $pcdesc_hairobjectwordy = 'delicately-wound <<$pcs_haircol>> braid'
  780. end
  781. if avatar_hair = 1:
  782. $hair = $av_hair
  783. !! I do not really understand how the avatar system works in terms of hair growth and such, so these descriptors will just have to do
  784. $pcdesc_hairlength = 'normal length'
  785. $pcdesc_hairlengthwordy = 'normal length'
  786. else
  787. if pcs_hairlng <= 30:
  788. $hair = 'You have very short <<$pcs_haircol>> hair. It doesn''t cover your ears, and looks a little masculine. Nevertheless, some people like this style as it''s easy to take care of.'
  789. rand_hairlength = rand(0,1)
  790. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'extremely short'
  791. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'boyishly short'
  792. $pcdesc_hairlength = 'extremely short'
  793. $pcdesc_hairlengthwordy = 'short, and altogether rather boyish'
  794. elseif pcs_hairlng > 30 and pcs_hairlng <= 80:
  795. $hair = 'You have short <<$pcs_haircol>> hair which just covers your ears to their lobes. It''s a modern, classy hairstyle. Currently your hair is <<$pcs_hairbsh>>.'
  796. rand_hairlength = rand(0,2)
  797. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'short'
  798. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'pixie-cut'
  799. if rand_hairlength = 2:$pcdesc_hairlengthrandom = 'androgynously short'
  800. $pcdesc_hairlength = 'short'
  801. $pcdesc_hairlengthwordy = 'short, page-boy'
  802. elseif pcs_hairlng > 80 and pcs_hairlng <= 160:
  803. $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length, which fits almost all face shapes. Your hair is <<$pcs_hairbsh>> at the moment. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
  804. rand_hairlength = rand(0,1)
  805. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'medium'
  806. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'average'
  807. $pcdesc_hairlength = 'medium'
  808. $pcdesc_hairlengthwordy = 'medium-length'
  809. elseif pcs_hairlng > 160 and pcs_hairlng <= 260:
  810. $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair reaches your shoulders with several strands going just beyond. Currently your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  811. rand_hairlength = rand(0)
  812. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'moderate'
  813. $pcdesc_hairlength = 'moderate'
  814. $pcdesc_hairlengthwordy = 'shoulder-length'
  815. elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
  816. $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your bra line, hairdressers would consider this a rather long style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  817. rand_hairlength = rand(0,1)
  818. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'long'
  819. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'lengthy'
  820. $pcdesc_hairlength = 'long'
  821. $pcdesc_hairlengthwordy = 'long, past the shoulders'
  822. elseif pcs_hairlng > 400 and pcs_hairlng <= 600:
  823. $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your back, hairdressers would consider this a rather long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  824. rand_hairlength = rand(0,3)
  825. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'very long'
  826. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'rather lengthy'
  827. if rand_hairlength = 2:$pcdesc_hairlengthrandom = 'quite long'
  828. if rand_hairlength = 3:$pcdesc_hairlengthrandom = 'back-length'
  829. $pcdesc_hairlength = 'very long'
  830. $pcdesc_hairlengthwordy = 'very long, back-length'
  831. elseif pcs_hairlng > 600 and pcs_hairlng <= 800:
  832. $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your butt, hairdressers would consider this a very long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  833. rand_hairlength = rand(0,1)
  834. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'extremely long'
  835. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'waist-length'
  836. $pcdesc_hairlength = 'extremely long'
  837. $pcdesc_hairlengthwordy = 'extremely long and waist-length'
  838. else
  839. $hair = 'You have extremely long <<$pcs_haircol>> hair<<$hbangs>>. Reaching all the way past your butt, even Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hscrunch>><<$hbraids>>'
  840. rand_hairlength = rand(0,1)
  841. if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'exceptionally long'
  842. if rand_hairlength = 1:$pcdesc_hairlengthrandom = 'incredibly lengthy'
  843. $pcdesc_hairlength = 'incredibly long'
  844. $pcdesc_hairlengthwordy = 'exceptionally lengthy and princess-like'
  845. end
  846. end
  847. !! A pair of ready-made long strings for writers to pull from for descriptions
  848. $pcdesc_fullhair = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlength>> <<$pcs_haircol>> <<$pcdesc_hairword>>'
  849. $pcdesc_fullhairwordy = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlengthwordy>> <<$pcdesc_hairword>> of <<$pcdesc_haircolourwordy>>'
  850. !!! Maruda Hair Mod
  851. !! Appearance factors and calculations
  852. !! If, like me, you are confused by the logic of what initially appear to be arbitrary numbers, it turns out the piercing location value is set to a number to indicate which photo it uses, which is tied to what jewelry you have for the piercing. 10000 means pierced, but no jewelry.
  853. if pirsA > 0 and pirsA < 10000:
  854. $pirsA = 'When you talk to people, they can sometimes get a glimpse of your tongue piercing.'
  855. rand_tongue = rand(0,1)
  856. if rand_tongue = 0:$pcdesc_tonguerandom = 'pierced tongue'
  857. if rand_tongue = 1:$pcdesc_tonguerandom = 'pierced licker'
  858. $pcdesc_tonguewordy = 'barbell-pierced tongue'
  859. $pcdesc_tongue = 'pierced tongue'
  860. else
  861. $pirsA = ''
  862. rand_tongue = rand(0,1)
  863. if rand_tongue = 0:$pcdesc_tonguerandom = 'tongue'
  864. if rand_tongue = 1:$pcdesc_tonguerandom = 'licker'
  865. $pcdesc_tonguewordy = 'tongue'
  866. $pcdesc_tongue = 'tongue'
  867. end
  868. if pirsB > 0 and pirsB < 10000:
  869. $pirsB = 'Your lip is pierced.'
  870. rand_lowerlip = rand(0)
  871. if rand_lowerlip = 0:$pcdesc_lowerliprandom = 'pierced lower lip'
  872. $pcdesc_lowerlipwordy = 'jewelry-studded lower lip'
  873. $pcdesc_lowerlip = 'pierced lower lip'
  874. else
  875. $pirsB = ''
  876. rand_lowerlip = rand(0)
  877. if rand_lowerlip = 0:$pcdesc_lowerliprandom = 'lower lip'
  878. $pcdesc_lowerlipwordy = 'lower lip'
  879. $pcdesc_lowerlip = 'lower lip'
  880. end
  881. if pirsC > 0 and pirsC < 10000:
  882. $pirsC = 'You are wearing earrings.'
  883. rand_ears = rand(0)
  884. if rand_ears = 0:$pcdesc_earsrandom = 'pierced ears' & $pcdesc_earrandom = 'pierced ear'
  885. $pcdesc_earswordy = 'pierced ears'
  886. $pcdesc_ears = 'pierced ears'
  887. $pcdesc_earwordy = 'pierced ear'
  888. $pcdesc_ear = 'pierced ear'
  889. else
  890. $pirsC = ''
  891. rand_ears = rand(0)
  892. if rand_ears = 0:$pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
  893. $pcdesc_earswordy = 'ears'
  894. $pcdesc_ears = 'ears'
  895. $pcdesc_earwordy = 'ear'
  896. $pcdesc_ear = 'ear'
  897. end
  898. !! Unfortunately there is no real way to tell if it is a pierced septum or a pierced nostril without overhauling the jewelry and other piercing references for now.
  899. if pirsD > 0 and pirsD < 10000:
  900. $pirsD = 'You have a piercing inserted in your nose.'
  901. rand_nose = rand(0)
  902. if rand_nose = 0:$pcdesc_noserandom = 'pierced nose'
  903. $pcdesc_nosewordy = 'jewelry-studded nose'
  904. $pcdesc_nose = 'pierced nose'
  905. else
  906. $pirsD = ''
  907. rand_nose = rand(0)
  908. if rand_nose = 0:$pcdesc_noserandom = 'nose'
  909. $pcdesc_nosewordy = 'nose'
  910. $pcdesc_nose = 'nose'
  911. end
  912. if pirsE > 0 and pirsE < 10000:
  913. $pirsE = 'Your eyebrow is pierced.'
  914. rand_eyebrow = rand(0)
  915. if rand_eyebrow = 0:$pcdesc_eyebrowrandom = 'pierced eyebrow'
  916. $pcdesc_eyebrowwordy = 'pierced eyebrow'
  917. $pcdesc_eyebrow = 'pierced eyebrow'
  918. else
  919. $pirsE = ''
  920. rand_eyebrow = rand(0)
  921. if rand_eyebrow = 0:$pcdesc_eyebrowrandom = 'eyebrow'
  922. $pcdesc_eyebrowwordy = 'eyebrow'
  923. $pcdesc_eyebrow = 'eyebrow'
  924. end
  925. !! Some of these are labial rings, some of them are hood piercings. No good way to tell without an overhaul.
  926. if pirsG > 0 and pirsG < 10000:
  927. $pirspiz = 'You are wearing a pubic piercing.'
  928. rand_genitals = rand(0)
  929. if rand_genitals = 0:$pcdesc_genitalsrandom = 'pierced pussy'
  930. $pcdesc_genitalswordy = 'jewelry-adorned pussy'
  931. $pcdesc_genitals = 'pierced pussy'
  932. else
  933. $pirspiz = ''
  934. rand_genitals = rand(0)
  935. if rand_genitals = 0:$pcdesc_genitalsrandom = 'pussy'
  936. $pcdesc_genitalswordy = 'pussy'
  937. $pcdesc_genitals = 'pussy'
  938. end
  939. !! There were already checks to set the PC lip size to fit between 0 and 4, so I folded them into this check so as not to needlessly check the same variable multiple times. There was also some duplicate logic; it has since been culled.
  940. !! When I got here, the $liptalk strings were all bafflingly identical, but were used interchangeably. I think it was probably something lost in translation. The intent was probably to reference lips without sounding repetitive, so for reasons of backward compatibility only,
  941. !! I have gone ahead and added some variety to each category to help with that. In general, please do not use the $liptalk strings (I will not be documenting them), they are effectively replaced by $pcsdesc_lipsrandom.
  942. if pcs_lip <= 0:
  943. pcs_lip = 0
  944. rand_lips = rand(0,2)
  945. if rand_lips = 0:$pcdesc_lipsrandom = 'thin'
  946. if rand_lips = 1:$pcdesc_lipsrandom = 'narrow'
  947. if rand_lips = 2:$pcdesc_lipsrandom = 'slender'
  948. $pcdesc_lips = 'thin'
  949. $pcdesc_lipswordy = 'thin, scarcely-noticeable'
  950. $liptalk = 'thin lips'
  951. $liptalk2 = 'narrow lips'
  952. $liptalk3 = 'slender lips'
  953. $lip1 = 'thin'
  954. elseif pcs_lip = 1:
  955. !! These are average lips, originally described as normal in the calculations I first came across. I suppose you could theoretically have blistered and sunburnt lips, not soft ones, but, you know, let us worry about that use case sometime later.
  956. rand_lips = rand(0,1)
  957. if rand_lips = 0:$pcdesc_lipsrandom = 'kissable'
  958. if rand_lips = 1:$pcdesc_lipsrandom = 'average'
  959. $pcdesc_lips = 'average'
  960. $pcdesc_lipswordy = 'kissable, if average'
  961. $liptalk = 'kissable lips'
  962. $liptalk2 = 'kissable lips'
  963. $liptalk3 = 'kissable lips'
  964. $lip1 = 'normal'
  965. elseif pcs_lip = 2:
  966. rand_lips = rand(0,2)
  967. if rand_lips = 0:$pcdesc_lipsrandom = 'plump'
  968. if rand_lips = 1:$pcdesc_lipsrandom = 'full'
  969. if rand_lips = 2:$pcdesc_lipsrandom = 'inviting'
  970. $pcdesc_lips = 'plump'
  971. $pcdesc_lipswordy = 'invitingly full'
  972. $liptalk = 'plump lips'
  973. $liptalk2 = 'full lips'
  974. $liptalk3 = 'inviting lips'
  975. $lip1 = 'plump'
  976. elseif pcs_lip = 3:
  977. rand_lips = rand(0,2)
  978. if rand_lips = 0:$pcdesc_lipsrandom = 'thick'
  979. if rand_lips = 1:$pcdesc_lipsrandom = 'big'
  980. if rand_lips = 2:$pcdesc_lipsrandom = 'pouty'
  981. $pcdesc_lips = 'pouty'
  982. $pcdesc_lipswordy = 'big, pouty and full'
  983. $liptalk = 'pouting lips'
  984. $liptalk2 = 'big lips'
  985. $liptalk3 = 'thick lips'
  986. $lip1 = 'pouting'
  987. else
  988. pcs_lip = 4
  989. rand_lips = rand(0,3)
  990. if rand_lips = 0:$pcdesc_lipsrandom = 'plump'
  991. if rand_lips = 1:$pcdesc_lipsrandom = 'pillowy'
  992. if rand_lips = 2:$pcdesc_lipsrandom = 'plush'
  993. if rand_lips = 3:$pcdesc_lipsrandom = 'fat'
  994. $pcdesc_lips = 'pillowy'
  995. $pcdesc_lipswordy = 'plush, pillowy and inviting'
  996. $liptalk = 'plush lips'
  997. $liptalk2 = 'pillowy lips'
  998. $liptalk3 = 'fat lips'
  999. $lip1 = 'plump, pillowy'
  1000. end
  1001. !! Lip balm is used OVER makeup, and given the descriptions already provided for what it does to lips, I feel with some certainty it is meant to be lip gloss, not lip BALM. Still, cannot change the old variables...
  1002. !! $pcdesc_lipglossed is used for a past-tense descriptive, present-tense descriptives will use $pcdesc_lipgloss. In most cases, the lip balm descriptors should only add options when looking at random choices, as the additional random options are merely indicative of
  1003. !! a more suggestive lip shape and fullness, not necessarily a different type of gloss. Only shiny is culled past 1, because it is boring. $pcs_lipbalm is left for backwards compatibility.
  1004. if pcs_lipbalm > 0:
  1005. if pcs_lip = 1:
  1006. rand_lipgloss = rand(0,1)
  1007. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'shiny'
  1008. if rand_lipgloss = 1:$pcdesc_lipglossrandom = 'glossy'
  1009. $pcs_lipbalm = 'shiny'
  1010. $pcdesc_lipgloss = 'shiny'
  1011. $pcdesc_lipglossinsertive = ', shiny'
  1012. $pcdesc_lipglossed = 'glossed'
  1013. $pcdesc_lipglosswordy = 'gloss-slicked'
  1014. $lip = 'You have normal<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
  1015. elseif pcs_lip = 2:
  1016. rand_lipgloss = rand(0,2)
  1017. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'juicy'
  1018. if rand_lipgloss = 1:$pcdesc_lipglossrandom = 'glossy'
  1019. if rand_lipgloss = 2:$pcdesc_lipglossrandom = 'slippery'
  1020. $pcs_lipbalm = 'brilliant and juicy'
  1021. $pcdesc_lipgloss = 'brilliant and juicy'
  1022. $pcdesc_lipglossinsertive = ', brilliant and juicy'
  1023. $pcdesc_lipglossed = 'glossed'
  1024. $pcdesc_lipglosswordy = 'invitingly glossed'
  1025. $lip = 'You have plump<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
  1026. elseif pcs_lip = 3:
  1027. rand_lipgloss = rand(0,4)
  1028. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'juicy'
  1029. if rand_lipgloss = 1:$pcdesc_lipglossrandom = 'glossy'
  1030. if rand_lipgloss = 2:$pcdesc_lipglossrandom = 'slippery'
  1031. if rand_lipgloss = 3:$pcdesc_lipglossrandom = 'gloss-slicked'
  1032. if rand_lipgloss = 4:$pcdesc_lipglossrandom = 'gloss-stickied'
  1033. $pcs_lipbalm = 'juicy and full'
  1034. $pcdesc_lipgloss = 'juicy and full'
  1035. $pcdesc_lipglossinsertive = ', juicy and full'
  1036. $pcdesc_lipglossed = 'glossed'
  1037. $pcdesc_lipglosswordy = 'wetly-glossed'
  1038. $lip = 'You have big, pouting, <<$pcdesc_lipgloss>> lips. <<$pirsB>> <<$pirsA>>'
  1039. elseif pcs_lip = 4:
  1040. rand_lipgloss = rand(0,6)
  1041. !! I know what you are thinking -- dripping? But believe me; past a certain point it really will. It is far from the least realistic thing we would have in here anyway.
  1042. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'juicy'
  1043. if rand_lipgloss = 1:$pcdesc_lipglossrandom = 'glossy'
  1044. if rand_lipgloss = 2:$pcdesc_lipglossrandom = 'gloss-slicked'
  1045. if rand_lipgloss = 3:$pcdesc_lipglossrandom = 'gloss-stickied'
  1046. if rand_lipgloss = 4:$pcdesc_lipglossrandom = 'gloss-dripping'
  1047. if rand_lipgloss = 5:$pcdesc_lipglossrandom = 'glisteningly wet'
  1048. if rand_lipgloss = 6:$pcdesc_lipglossrandom = 'slippery'
  1049. $pcs_lipbalm = 'wet and glossy'
  1050. $pcdesc_lipgloss = 'wet and glossy'
  1051. $pcdesc_lipglossinsertive = ', wet and glossy'
  1052. $pcdesc_lipglossed = 'glossed'
  1053. $pcdesc_lipglosswordy = 'suggestively gloss-glazed'
  1054. $lip = 'You have pillowy, <<$pcdesc_lipgloss>>, suggestively full lips. <<$pirsB>> <<$pirsA>>'
  1055. else
  1056. !! Lip size 0
  1057. rand_lipgloss = rand(0)
  1058. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'shiny'
  1059. $pcs_lipbalm = 'shiny'
  1060. $pcdesc_lipgloss = 'shiny'
  1061. $pcdesc_lipglossinsertive = ', shiny'
  1062. $pcdesc_lipglossed = 'glossed'
  1063. $pcdesc_lipglosswordy = 'gloss-slicked'
  1064. $lip = 'You have thin<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
  1065. end
  1066. else
  1067. !! No gloss
  1068. rand_lipgloss = rand(0)
  1069. if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'soft'
  1070. $pcs_lipbalm = 'soft'
  1071. $pcdesc_lipgloss = 'soft'
  1072. $pcdesc_lipglossinsertive = ''
  1073. $pcdesc_lipglossed = 'softened'
  1074. $pcdesc_lipglosswordy = 'soft'
  1075. end
  1076. !! A pair of ready-made lip strings for writers to use if they are unsure how to construct them themselves. Again, these are not great and should preferably not be relied on, but they are here.
  1077. $pcdesc_fulllips = '<<$pcdesc_lips>><<$pcdesc_lipglossinsertive>> lips'
  1078. $pcdesc_fulllipswordy = '<<$pcdesc_lipglossrandom>>, <<$pcdesc_lipswordy>> lips'
  1079. !! The solarium increases tan value by 10, and the beach increases it by 1 or 3 based on whether or not you use sunblock (counterintuitively, sunblock increases it by 3, not 1 -- I think suntan lotion was meant, which is actually a different thing)
  1080. if pcs_tan > 0:
  1081. if pcs_tan > 0 and pcs_tan <= 5:
  1082. rand_tan = rand(0,2)
  1083. if rand_tan = 0:$pcdesc_tanrandom = 'lightly tanned'
  1084. if rand_tan = 1:$pcdesc_tanrandom = 'barely tanned'
  1085. if rand_tan = 2:$pcdesc_tanrandom = 'scarcely darkened'
  1086. $pcdesc_tan = 'faintly tanned'
  1087. $pcdesc_tanwordy = 'just barely sun-kissed'
  1088. $pcs_tan = 'faintly tanned'
  1089. elseif pcs_tan > 5 and pcs_tan <= 10:
  1090. rand_tan = rand(0,3)
  1091. if rand_tan = 0:$pcdesc_tanrandom = 'tanned'
  1092. if rand_tan = 1:$pcdesc_tanrandom = 'lightly bronzed'
  1093. if rand_tan = 2:$pcdesc_tanrandom = 'sun-kissed'
  1094. if rand_tan = 3:$pcdesc_tanrandom = 'lightly browned'
  1095. $pcdesc_tan = 'tanned'
  1096. $pcdesc_tanwordy = 'gently sun-kissed'
  1097. $pcs_tan = 'tanned'
  1098. elseif pcs_tan > 10 and pcs_tan <= 25:
  1099. rand_tan = rand(0,2)
  1100. if rand_tan = 0:$pcdesc_tanrandom = 'bronzed'
  1101. if rand_tan = 1:$pcdesc_tanrandom = 'browned'
  1102. if rand_tan = 2:$pcdesc_tanrandom = 'light caramel'
  1103. $pcdesc_tan = 'bronzed'
  1104. $pcdesc_tanwordy = 'sun-swept, beach-bunny brown'
  1105. $pcs_tan = 'bronzed'
  1106. elseif pcs_tan > 25 and pcs_tan <= 50:
  1107. rand_tan = rand(0,3)
  1108. if rand_tan = 0:$pcdesc_tanrandom = 'deeply tanned'
  1109. if rand_tan = 1:$pcdesc_tanrandom = 'very dark'
  1110. if rand_tan = 2:$pcdesc_tanrandom = 'richly browned'
  1111. if rand_tan = 3:$pcdesc_tanrandom = 'tawny'
  1112. $pcdesc_tan = 'deeply tanned'
  1113. $pcdesc_tanwordy = 'dark, richly browned'
  1114. $pcs_tan = 'deeply tanned'
  1115. else
  1116. !! This would take some very intentional tanorexia
  1117. rand_tan = rand(0,2)
  1118. if rand_tan = 0:$pcdesc_tanrandom = 'extremely darkly tanned'
  1119. if rand_tan = 1:$pcdesc_tanrandom = 'nearly unnaturally darkened'
  1120. if rand_tan = 2:$pcdesc_tanrandom = 'dark, desert-tanned'
  1121. $pcdesc_tan = 'extremely darkly tanned'
  1122. $pcdesc_tanwordy = 'practically swarthy'
  1123. $pcs_tan = 'extremely darkly tanned'
  1124. end
  1125. else
  1126. rand_tan = rand(0,3)
  1127. if rand_tan = 0:$pcdesc_tanrandom = 'pale'
  1128. if rand_tan = 1:$pcdesc_tanrandom = 'alabaster'
  1129. if rand_tan = 2:$pcdesc_tanrandom = 'porcelain'
  1130. if rand_tan = 3:$pcdesc_tanrandom = 'fair'
  1131. $pcdesc_tan = 'pale'
  1132. $pcdesc_tanwordy = 'pale, alabaster'
  1133. $pcs_tan = 'pale'
  1134. end
  1135. !! Skin1 is only used in the foto location, and can be replaced at a later date. From here on out, do not use it.
  1136. if pcs_skin > 100: pcs_skin = 100
  1137. if pcs_skin < 0: pcs_skin = 0
  1138. if pcs_skin < 20:
  1139. rand_skin = rand(0,3)
  1140. if rand_skin = 0:$pcdesc_skinrandom = 'terrible'
  1141. if rand_skin = 1:$pcdesc_skinrandom = 'awful'
  1142. if rand_skin = 2:$pcdesc_skinrandom = 'greasy'
  1143. if rand_skin = 3:$pcdesc_skinrandom = 'pimple-strewn'
  1144. $pcdesc_skin = 'terrible'
  1145. $pcdesc_skinwordy = 'awful, greasy and pimply'
  1146. $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
  1147. $skin1 = 'terrible'
  1148. elseif pcs_skin < 40:
  1149. rand_skin = rand(0,3)
  1150. if rand_skin = 0:$pcdesc_skinrandom = 'bad'
  1151. if rand_skin = 1:$pcdesc_skinrandom = 'greasy'
  1152. if rand_skin = 2:$pcdesc_skinrandom = 'rough'
  1153. if rand_skin = 3:$pcdesc_skinrandom = 'unappealing'
  1154. $pcdesc_skin = 'bad'
  1155. $pcdesc_skinwordy = 'poorly-kept, unappealing'
  1156. $skin = 'Your <<$pcs_tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
  1157. $skin1 = 'bad'
  1158. elseif pcs_skin < 60:
  1159. rand_skin = rand(0,2)
  1160. if rand_skin = 0:$pcdesc_skinrandom = 'average'
  1161. if rand_skin = 1:$pcdesc_skinrandom = 'normal'
  1162. if rand_skin = 2:$pcdesc_skinrandom = 'clear'
  1163. $pcdesc_skin = 'average'
  1164. $pcdesc_skinwordy = 'normal, slightly rough'
  1165. $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
  1166. $skin1 = 'average'
  1167. elseif pcs_skin < 80:
  1168. rand_skin = rand(0,4)
  1169. if rand_skin = 0:$pcdesc_skinrandom = 'good'
  1170. if rand_skin = 1:$pcdesc_skinrandom = 'nice'
  1171. if rand_skin = 2:$pcdesc_skinrandom = 'smooth'
  1172. if rand_skin = 3:$pcdesc_skinrandom = 'well-kept'
  1173. if rand_skin = 4:$pcdesc_skinrandom = 'great'
  1174. $pcdesc_skin = 'good'
  1175. $pcdesc_skinwordy = 'smooth, well-kept'
  1176. $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
  1177. $skin1 = 'good'
  1178. else
  1179. rand_skin = rand(0,4)
  1180. if rand_skin = 0:$pcdesc_skinrandom = 'excellent'
  1181. if rand_skin = 1:$pcdesc_skinrandom = 'silken'
  1182. if rand_skin = 2:$pcdesc_skinrandom = 'soft'
  1183. if rand_skin = 3:$pcdesc_skinrandom = 'silky'
  1184. if rand_skin = 4:$pcdesc_skinrandom = 'immaculate'
  1185. $pcdesc_skin = 'excellent'
  1186. $pcdesc_skinwordy = 'immaculate, silky-soft'
  1187. $skin = 'You have <<$pcs_tan>> and very smooth skin which almost feels like silk to the touch. <<$pirsC>> <<$pirsD>> <<$pirsE>>'
  1188. $skin1 = 'excellent'
  1189. end
  1190. if pcs_eyecol = 0:
  1191. rand_eyecol = rand(0,1)
  1192. if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'brown'
  1193. if rand_eyecol = 1:$pcdesc_eyecolourrandom = 'hazel'
  1194. $pcdesc_eyecolour = 'brown'
  1195. $pcdesc_eyecolourwordy = 'warm, hazel'
  1196. $pcs_eyecol = 'brown'
  1197. elseif pcs_eyecol = 1:
  1198. rand_eyecol = rand(0,2)
  1199. if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'pale'
  1200. if rand_eyecol = 1:$pcdesc_eyecolourrandom = 'grey'
  1201. if rand_eyecol = 2:$pcdesc_eyecolourrandom = 'silvery'
  1202. $pcdesc_eyecolour = 'grey'
  1203. $pcdesc_eyecolourwordy = 'pale, silvery-grey'
  1204. $pcs_eyecol = 'grey'
  1205. elseif pcs_eyecol = 2:
  1206. rand_eyecol = rand(0,1)
  1207. if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'green'
  1208. if rand_eyecol = 1:$pcdesc_eyecolourrandom = 'emerald'
  1209. $pcdesc_eyecolour = 'green'
  1210. $pcdesc_eyecolourwordy = 'sparkling green'
  1211. $pcs_eyecol = 'green'
  1212. elseif pcs_eyecol = 3:
  1213. rand_eyecol = rand(0,1)
  1214. if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'blue'
  1215. if rand_eyecol = 1:$pcdesc_eyecolourrandom = 'sapphire'
  1216. $pcdesc_eyecolour = 'blue'
  1217. $pcdesc_eyecolourwordy = 'vibrant, crystal blue'
  1218. $pcs_eyecol = 'blue'
  1219. else
  1220. rand_eyecol = rand(0)
  1221. if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'attractive'
  1222. $pcdesc_eyecolour = 'attractive'
  1223. $pcdesc_eyecolourwordy = 'attractive'
  1224. $pcs_eyecol = 'attractive'
  1225. end
  1226. !! extended lash functionality; pcs_lashes = n are: {2, largest natural size}, {3, with temporary false lashes on or basic 2D lash extensions}, {4, with ornate false lashes on or lavish 4D extensions}, {5, with extremely ornate, 6D-style extensions} - xerya
  1227. !! If players do not have a pcs_naturallashes value, extrapolate one as best as possible from what they currently have.
  1228. if pcs_naturallashes <= 0 and pcs_lashes <= 2 and retroactivenaturallashes <= 0:
  1229. pcs_naturallashes = pcs_lashes
  1230. retroactivenaturallashes = 1
  1231. end
  1232. if pcs_lashes >= 5:
  1233. rand_lashes = rand(0,3)
  1234. if rand_lashes = 0:$pcdesc_lashesrandom = 'long, jewel-dusted'
  1235. if rand_lashes = 1:$pcdesc_lashesrandom = 'incredibly extravagant'
  1236. if rand_lashes = 2:$pcdesc_lashesrandom = 'overwhelmingly indulgent'
  1237. if rand_lashes = 3:$pcdesc_lashesrandom = 'jewel-sparkled, showgirl'
  1238. $pcdesc_lashes = 'long, jewel-dusted'
  1239. $pcdesc_lasheswordy = 'incredibly extravagant, jewel-dusted'
  1240. $pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
  1241. elseif pcs_lashes = 4:
  1242. rand_lashes = rand(0,3)
  1243. if false_lashes >= 1:
  1244. if rand_lashes = 0:$pcdesc_lashesrandom = 'mink-feathered'
  1245. if rand_lashes = 1:$pcdesc_lashesrandom = 'attention-grabbing'
  1246. if rand_lashes = 2:$pcdesc_lashesrandom = 'intoxicatingly seductive false'
  1247. if rand_lashes = 3:$pcdesc_lashesrandom = 'wildly flirtatious false'
  1248. $pcdesc_lashes = 'mink-feathered false'
  1249. $pcs_lashes = 'with fabulous, mink-feathered false lashes'
  1250. $pcdesc_lasheswordy = 'fabulous, mink-feathered false'
  1251. else
  1252. if rand_lashes = 0:$pcdesc_lashesrandom = 'amazingly lengthy'
  1253. if rand_lashes = 1:$pcdesc_lashesrandom = 'show-stealing'
  1254. if rand_lashes = 2:$pcdesc_lashesrandom = 'incredibly lush'
  1255. if rand_lashes = 3:$pcdesc_lashesrandom = 'stunningly dark and full'
  1256. $pcdesc_lashes = 'show-stealing'
  1257. $pcs_lashes = 'with stunningly dark and full lash extensions'
  1258. $pcdesc_lasheswordy = 'stunningly dark and full, show-stealing'
  1259. end
  1260. elseif pcs_lashes = 3:
  1261. rand_lashes = rand(0,3)
  1262. if rand_lashes = 0:$pcdesc_lashesrandom = 'lavish'
  1263. if rand_lashes = 1:$pcdesc_lashesrandom = 'lush, dark'
  1264. if rand_lashes = 2:$pcdesc_lashesrandom = 'seductively-curled'
  1265. if rand_lashes = 3:$pcdesc_lashesrandom = 'flirtatiously lengthy'
  1266. $pcdesc_lashes = 'lavish'
  1267. if false_lashes >= 1:
  1268. $pcs_lashes = 'with lavish, fluttery false lashes'
  1269. $pcdesc_lasheswordy = 'lavish, attention-grabbing false'
  1270. else
  1271. $pcs_lashes = 'with lavishly seductive lash extensions'
  1272. $pcdesc_lasheswordy = 'lavish, seductively dark'
  1273. end
  1274. elseif pcs_lashes = 2:
  1275. rand_lashes = rand(0,3)
  1276. if rand_lashes = 0:$pcdesc_lashesrandom = 'lengthy'
  1277. if rand_lashes = 1:$pcdesc_lashesrandom = 'long'
  1278. if rand_lashes = 2:$pcdesc_lashesrandom = 'fluttery'
  1279. if rand_lashes = 3:$pcdesc_lashesrandom = 'seductive'
  1280. $pcdesc_lashes = 'long'
  1281. $pcdesc_lasheswordy = 'long, fluttery'
  1282. $pcs_lashes = 'with long eyelashes'
  1283. elseif pcs_lashes = 1:
  1284. rand_lashes = rand(0)
  1285. if rand_lashes = 0:$pcdesc_lashesrandom = 'average'
  1286. $pcdesc_lashes = 'average'
  1287. $pcdesc_lasheswordy = 'average'
  1288. $pcs_lashes = 'with average eyelashes'
  1289. else
  1290. pcs_lashes = 0
  1291. rand_lashes = rand(0,2)
  1292. if rand_lashes = 0:$pcdesc_lashesrandom = 'short'
  1293. if rand_lashes = 1:$pcdesc_lashesrandom = 'scarce'
  1294. if rand_lashes = 2:$pcdesc_lashesrandom = 'faint'
  1295. $pcdesc_lashes = 'short'
  1296. $pcdesc_lasheswordy = 'short, barely-noticeable'
  1297. $pcs_lashes = 'with short eyelashes'
  1298. end
  1299. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  1300. !! I changed glassvnesh back to 5 for wearing basic glasses. Boys do not make passes at girls who wear glasses.
  1301. !! Most of these descriptive variables are for describing cum, they would not be reliable for much else. They are used in the context of looking through something.
  1302. if glass >= 2:
  1303. rand_vision = rand(0,1)
  1304. if rand_vision = 0:$pcdesc_visionrandom = 'glasses'
  1305. if rand_vision = 1:$pcdesc_visionrandom = 'lenses'
  1306. $pcdesc_vision = 'glasses'
  1307. $pcdesc_visionwordy = 'chic, stylish glasses'
  1308. $glass = ' You wear glasses.'
  1309. glassvnesh = 5
  1310. elseif glass = 1:
  1311. rand_vision = rand(0,3)
  1312. if rand_vision = 0:$pcdesc_visionrandom = 'glasses'
  1313. if rand_vision = 1:$pcdesc_visionrandom = 'lenses'
  1314. if rand_vision = 2:$pcdesc_visionrandom = 'dorky glasses'
  1315. if rand_vision = 3:$pcdesc_visionrandom = 'geeky lenses'
  1316. $pcdesc_vision = 'nerdy glasses'
  1317. $pcdesc_visionwordy = 'cheap, utilitarian glasses'
  1318. $glass = ' You wear silly glasses in a cheap frame.'
  1319. glassvnesh = 10
  1320. else
  1321. glass = 0
  1322. rand_vision = rand(0,1)
  1323. if rand_vision = 0:$pcdesc_visionrandom = 'lashes'
  1324. if rand_vision = 1:$pcdesc_visionrandom = 'eyelashes'
  1325. $pcdesc_vision = 'lashes'
  1326. $pcdesc_visionwordy = '<<$$pcdesc_lasheswordy>> lashes'
  1327. $glass = ''
  1328. glassvnesh = 0
  1329. end
  1330. !! Most of these sound really terrible. Would REALLY recommend only using the insertive context, as the less-flowery versions will simply not return anything at all.
  1331. if pcs_eyesize = 0:
  1332. rand_eyesize = rand(0)
  1333. if rand_eyesize = 0:$pcdesc_eyesizerandom = 'tiny'
  1334. $pcdesc_eyesize = 'small'
  1335. $pcdesc_eyesizeinsertive = ''
  1336. $pcdesc_eyesizewordy = 'little'
  1337. $glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  1338. elseif pcs_eyesize = 1:
  1339. rand_eyesize = rand(0)
  1340. if rand_eyesize = 0:$pcdesc_eyesizerandom = 'medium'
  1341. if rand_eyesize = 0:$pcdesc_eyesizerandom = 'average-sized'
  1342. $pcdesc_eyesize = 'medium-sized'
  1343. $pcdesc_eyesizeinsertive = ''
  1344. $pcdesc_eyesizewordy = 'medium-sized'
  1345. $glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  1346. elseif pcs_eyesize = 2:
  1347. rand_eyesize = rand(0,3)
  1348. if rand_eyesize = 0:$pcdesc_eyesizerandom = 'big'
  1349. if rand_eyesize = 1:$pcdesc_eyesizerandom = 'expressive'
  1350. if rand_eyesize = 2:$pcdesc_eyesizerandom = 'wide'
  1351. if rand_eyesize = 3:$pcdesc_eyesizerandom = 'large'
  1352. $pcdesc_eyesize = 'large'
  1353. $pcdesc_eyesizeinsertive = ' large,'
  1354. $pcdesc_eyesizewordy = 'large, expressive'
  1355. $glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  1356. else
  1357. pcs_eyesize = 3
  1358. rand_eyesize = rand(0,3)
  1359. if rand_eyesize = 0:$pcdesc_eyesizerandom = 'wide'
  1360. if rand_eyesize = 1:$pcdesc_eyesizerandom = 'huge'
  1361. if rand_eyesize = 2:$pcdesc_eyesizerandom = 'doll-like'
  1362. if rand_eyesize = 3:$pcdesc_eyesizerandom = 'incredibly expressive'
  1363. $pcdesc_eyesize = 'huge'
  1364. $pcdesc_eyesizeinsertive = ' big, doll-like'
  1365. $pcdesc_eyesizewordy = 'huge'
  1366. $glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
  1367. end
  1368. mopkoef = pcs_makupskl / 5
  1369. if pcs_makeup = 0:
  1370. rand_makeup = rand(0,2)
  1371. if rand_makeup = 0:$pcdesc_makeuprandom = 'makeup-ruined'
  1372. if rand_makeup = 1:$pcdesc_makeuprandom = 'makeup-smeared'
  1373. if rand_makeup = 2:$pcdesc_makeuprandom = 'makeup-trashed'
  1374. $pcdesc_makeup = 'makeup-smeared'
  1375. $pcdesc_makeupwordy = 'clownishly makeup-smeared'
  1376. mopkoef = -5
  1377. $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  1378. elseif pcs_makeup = 1:
  1379. rand_makeup = rand(0,1)
  1380. if rand_makeup = 0:$pcdesc_makeuprandom = 'natural'
  1381. if rand_makeup = 1:$pcdesc_makeuprandom = 'bare'
  1382. $pcdesc_makeup = 'natural'
  1383. $pcdesc_makeupwordy = 'bare, natural'
  1384. mopkoef = 0
  1385. $pcs_makeup = 'You''re not wearing any kind of makeup'
  1386. elseif pcs_makeup = 2:
  1387. rand_makeup = rand(0,1)
  1388. if rand_makeup = 0:$pcdesc_makeuprandom = 'lightly-accented'
  1389. if rand_makeup = 1:$pcdesc_makeuprandom = 'subtly-highlighted'
  1390. $pcdesc_makeup = 'subtly-accented'
  1391. $pcdesc_makeupwordy = 'almost natural, subtly-accented'
  1392. $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
  1393. elseif pcs_makeup = 3:
  1394. rand_makeup = rand(0,1)
  1395. if rand_makeup = 0:$pcdesc_makeuprandom = 'colourfully done-up'
  1396. if rand_makeup = 1:$pcdesc_makeuprandom = 'vibrantly done-up'
  1397. $pcdesc_makeup = 'vibrantly done-up'
  1398. $pcdesc_makeupwordy = 'colourful, tastefully done-up'
  1399. $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
  1400. else
  1401. pcs_makeup = 4
  1402. rand_makeup = rand(0,3)
  1403. if rand_makeup = 0:$pcdesc_makeuprandom = 'painted-on'
  1404. if rand_makeup = 1:$pcdesc_makeuprandom = 'makeup-caked'
  1405. if rand_makeup = 2:$pcdesc_makeuprandom = 'dolled-up'
  1406. if rand_makeup = 3:$pcdesc_makeuprandom = 'sultry, dramatically done-up'
  1407. $pcdesc_makeup = 'dolled-up'
  1408. $pcdesc_makeupwordy = 'heavily dolled-up and painted'
  1409. $pcs_makeup = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
  1410. end
  1411. if pcs_leghair <= 0:
  1412. rand_legs = rand(0,2)
  1413. if rand_legs = 0:$pcdesc_legsrandom = 'smooth'
  1414. if rand_legs = 0:$pcdesc_legsrandom = 'silky'
  1415. if rand_legs = 0:$pcdesc_legsrandom = 'soft'
  1416. $pcdesc_legs = 'smooth'
  1417. $pcdesc_legswordy = 'soft and silky-smooth'
  1418. legkoef = 0
  1419. $pcs_leghair = 'You have smooth legs.'
  1420. elseif pcs_leghair <= 3:
  1421. rand_legs = rand(0,1)
  1422. if rand_legs = 0:$pcdesc_legsrandom = 'slightly scratchy'
  1423. if rand_legs = 1:$pcdesc_legsrandom = 'faintly stubbly'
  1424. $pcdesc_legs = 'faintly stubbly'
  1425. $pcdesc_legswordy = 'slightly rough, invisibly-stubbled'
  1426. legkoef = 3
  1427. $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
  1428. elseif pcs_leghair <= 6:
  1429. rand_legs = rand(0,1)
  1430. if rand_legs = 0:$pcdesc_legsrandom = 'somewhat hairy'
  1431. if rand_legs = 1:$pcdesc_legsrandom = 'lightly-furred'
  1432. $pcdesc_legs = 'slightly hairy'
  1433. $pcdesc_legswordy = 'lightly-furred, soft-haired'
  1434. legkoef = 6
  1435. $pcs_leghair = 'You have light and just barely visible hair on your legs.'
  1436. else
  1437. rand_legs = rand(0,2)
  1438. if rand_legs = 0:$pcdesc_legsrandom = 'hairy'
  1439. if rand_legs = 1:$pcdesc_legsrandom = 'unshaven'
  1440. if rand_legs = 2:$pcdesc_legsrandom = 'ungroomed'
  1441. $pcdesc_legs = 'hairy'
  1442. $pcdesc_legswordy = 'hairy, unshaven'
  1443. legkoef = 9
  1444. $pcs_leghair = 'Your legs are hairy.'
  1445. end
  1446. if clit_size < 20:
  1447. rand_clit = rand(0,1)
  1448. if rand_clit = 0:$pcdesc_clitrandom = 'small'
  1449. if rand_clit = 1:$pcdesc_clitrandom = 'tiny'
  1450. $pcdesc_clit = 'small'
  1451. $pcdesc_clitwordy = 'small, oft-hidden'
  1452. $clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
  1453. elseif clit_size >= 20 and clit_size < 40:
  1454. rand_clit = rand(0,2)
  1455. if rand_clit = 0:$pcdesc_clitrandom = 'large'
  1456. if rand_clit = 1:$pcdesc_clitrandom = 'big'
  1457. if rand_clit = 2:$pcdesc_clitrandom = 'engorged'
  1458. $pcdesc_clit = 'big'
  1459. $pcdesc_clitwordy = 'big, easily-found'
  1460. $clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
  1461. elseif clit_size >= 40 and clit_size < 60:
  1462. rand_clit = rand(0,2)
  1463. if rand_clit = 0:$pcdesc_clitrandom = 'meaty'
  1464. if rand_clit = 1:$pcdesc_clitrandom = 'thick'
  1465. if rand_clit = 2:$pcdesc_clitrandom = 'swollen'
  1466. $pcdesc_clit = 'meaty'
  1467. $pcdesc_clitwordy = 'thick, meaty'
  1468. $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
  1469. elseif clit_size >= 60 and clit_size < 80:
  1470. rand_clit = rand(0,1)
  1471. if rand_clit = 0:$pcdesc_clitrandom = 'oversized'
  1472. if rand_clit = 1:$pcdesc_clitrandom = 'huge'
  1473. $pcdesc_clit = 'oversized'
  1474. $pcdesc_clitwordy = 'big, practically phallic'
  1475. $clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
  1476. else
  1477. !! If greater or equal to 80
  1478. rand_clit = rand(0,2)
  1479. if rand_clit = 0:$pcdesc_clitrandom = 'huge'
  1480. if rand_clit = 1:$pcdesc_clitrandom = 'cock-like'
  1481. if rand_clit = 2:$pcdesc_clitrandom = 'massive'
  1482. $pcdesc_clit = 'phallic'
  1483. $pcdesc_clitwordy = 'enormous, phallic'
  1484. $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
  1485. end
  1486. if lashair = 1:
  1487. rand_pubes = rand(0,3)
  1488. if rand_pubes = 0:$pcdesc_pubesrandom = 'silky-smooth'
  1489. if rand_pubes = 1:$pcdesc_pubesrandom = 'hairless'
  1490. if rand_pubes = 2:$pcdesc_pubesrandom = 'smooth'
  1491. if rand_pubes = 3:$pcdesc_pubesrandom = 'bald'
  1492. $pcdesc_pubes = 'hairless'
  1493. $pcdesc_pubeswordy = 'eternally silky-smooth'
  1494. $pcs_pubes = 'You have a smooth, <a href="exec:view''images/pc/body/pussy/pussy.jpg''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  1495. end
  1496. if lashair = 0:
  1497. if pcs_pubes <= 3:
  1498. lobkoef = 3
  1499. $pcs_pubes = 'You have a smoothly <a href="exec:view''images/pc/body/pussy/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  1500. rand_pubes = rand(0,3)
  1501. if rand_pubes = 0:$pcdesc_pubesrandom = 'silky'
  1502. if rand_pubes = 1:$pcdesc_pubesrandom = 'hairless'
  1503. if rand_pubes = 2:$pcdesc_pubesrandom = 'smooth-shaven'
  1504. if rand_pubes = 3:$pcdesc_pubesrandom = 'freshly-shaven'
  1505. $pcdesc_pubes = 'smooth-shaven'
  1506. $pcdesc_pubeswordy = 'silky, freshly-shaven'
  1507. elseif pcs_pubes <= 10:
  1508. lobkoef = 0
  1509. $pcs_pubes = 'You have stubble growing around your <a href="exec:view''images/pc/body/pussy/stpussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  1510. rand_pubes = rand(0,2)
  1511. if rand_pubes = 0:$pcdesc_pubesrandom = 'stubbly'
  1512. if rand_pubes = 1:$pcdesc_pubesrandom = 'scratchy'
  1513. if rand_pubes = 2:$pcdesc_pubesrandom = 'roughly-stubbled'
  1514. $pcdesc_pubes = 'stubbly'
  1515. $pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
  1516. elseif pcs_pubes <= 20:
  1517. lobkoef = 0
  1518. $pcs_pubes = 'You have light, wispy hair around your <a href="exec:view''images/pc/body/pussy/spussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  1519. rand_pubes = rand(0,3)
  1520. if rand_pubes = 0:$pcdesc_pubesrandom = 'wispy-haired'
  1521. if rand_pubes = 1:$pcdesc_pubesrandom = 'lightly-furred'
  1522. if rand_pubes = 2:$pcdesc_pubesrandom = 'trimmed'
  1523. if rand_pubes = 3:$pcdesc_pubesrandom = 'well-kept'
  1524. $pcdesc_pubes = 'neatly-trimmed'
  1525. $pcdesc_pubeswordy = 'trimmed, well-kept'
  1526. else
  1527. lobkoef = 0
  1528. $pcs_pubes = 'You have a thick bush of <a href="exec:view''images/pc/body/pussy/hpussy.jpg''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
  1529. rand_pubes = rand(0,2)
  1530. if rand_pubes = 0:$pcdesc_pubesrandom = 'thickly-furred'
  1531. if rand_pubes = 1:$pcdesc_pubesrandom = 'hairy'
  1532. if rand_pubes = 2:$pcdesc_pubesrandom = 'ill-maintained'
  1533. $pcdesc_pubes = 'hairy'
  1534. $pcdesc_pubeswordy = 'hairy, wild-maned'
  1535. end
  1536. end
  1537. if pcs_nips < 20:
  1538. $nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
  1539. rand_nipples = rand(0,2)
  1540. if rand_nipples = 0:$pcdesc_nipplesrandom = 'small'
  1541. if rand_nipples = 1:$pcdesc_nipplesrandom = 'tiny'
  1542. if rand_nipples = 2:$pcdesc_nipplesrandom = 'little'
  1543. $pcdesc_nipples = 'small'
  1544. $pcdesc_nippleswordy = 'small, tiny'
  1545. elseif pcs_nips >= 20 and pcs_nips < 40:
  1546. $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
  1547. rand_nipples = rand(0,1)
  1548. if rand_nipples = 0:$pcdesc_nipplesrandom = 'slightly large'
  1549. if rand_nipples = 1:$pcdesc_nipplesrandom = 'decently-sized'
  1550. $pcdesc_nipples = 'slightly large'
  1551. $pcdesc_nippleswordy = 'slightly large'
  1552. elseif pcs_nips >= 40 and pcs_nips < 60:
  1553. $nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
  1554. rand_nipples = rand(0,2)
  1555. if rand_nipples = 0:$pcdesc_nipplesrandom = 'puffy'
  1556. if rand_nipples = 1:$pcdesc_nipplesrandom = 'swollen'
  1557. if rand_nipples = 2:$pcdesc_nipplesrandom = 'large'
  1558. $pcdesc_nipples = 'puffy'
  1559. $pcdesc_nippleswordy = 'large, puffy'
  1560. elseif pcs_nips >= 60 and pcs_nips < 80:
  1561. $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
  1562. rand_nipples = rand(0,1)
  1563. if rand_nipples = 0:$pcdesc_nipplesrandom = 'big'
  1564. if rand_nipples = 1:$pcdesc_nipplesrandom = 'thick'
  1565. $pcdesc_nipples = 'big'
  1566. $pcdesc_nippleswordy = 'big, thick'
  1567. else
  1568. !! If greater or equal to 80
  1569. $nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
  1570. rand_nipples = rand(0,3)
  1571. if rand_nipples = 0:$pcdesc_nipplesrandom = 'huge'
  1572. if rand_nipples = 1:$pcdesc_nipplesrandom = 'unmistakably big'
  1573. if rand_nipples = 2:$pcdesc_nipplesrandom = 'meaty'
  1574. if rand_nipples = 3:$pcdesc_nipplesrandom = 'enormous'
  1575. $pcdesc_nipples = 'meaty'
  1576. $pcdesc_nippleswordy = 'huge, meaty'
  1577. end
  1578. If dounspell = 1:
  1579. bodytipe = pcs_hips - pcs_waist
  1580. if bodytipe < 20: bodykoef = 0
  1581. if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
  1582. if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
  1583. if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
  1584. if bodytipe >= 35: bodykoef = 4
  1585. end
  1586. if pcs_tan > 0:tanKoef = 1
  1587. if pcs_tan = 0:tanKoef = 0
  1588. !! buzzcut penalty to pcs_apprnc
  1589. if pcs_hairlng < 10:
  1590. hairkoef = 10
  1591. else
  1592. hairkoef = 0
  1593. end
  1594. if pcs_sweat < 22:
  1595. sweatKoef = 0
  1596. elseif pcs_sweat < 38:
  1597. sweatKoef = (pcs_sweat - 10) / 4
  1598. elseif pcs_sweat < 54:
  1599. sweatKoef = (pcs_sweat - 10) / 2
  1600. else
  1601. sweatKoef = 3 * (pcs_sweat - 10) / 4
  1602. end
  1603. if pcs_lipbalm > 0:
  1604. lipbalmKoef = 5
  1605. else
  1606. lipbalmKoef = 0
  1607. end
  1608. !!This is to force a base update if teeth changed since that is immediate
  1609. if zublast ! pcs_teeth:
  1610. gs 'body_shape', 'basebeautycalc', 1
  1611. zublast = pcs_teeth
  1612. end
  1613. !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
  1614. if $clothingworntype = 'nude':
  1615. CloAdjustedBeauty = pcs_apprncbase
  1616. else
  1617. CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness + (PCloBra*5) + (CloPanties*6)) * PCloQuality / 5000 + PShoQuality
  1618. end
  1619. if $wornclothingtype = 'exercise': CloAdjustedBeauty = CloAdjustedBeauty * 2 / 3
  1620. !!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
  1621. !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
  1622. !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
  1623. pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
  1624. if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
  1625. if pcs_apprnc < 0: pcs_apprnc = 0
  1626. !!This sets the "hotness catagory" varibale for use in checks
  1627. if pcs_apprnc <= 200:
  1628. hotcat = pcs_apprnc / 20
  1629. else
  1630. hotcat = 11
  1631. end
  1632. if StrongNarkota <= 0:
  1633. if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
  1634. if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
  1635. end
  1636. if StrongNarkota > 0:
  1637. if SLomka > 0:SLomka = 0
  1638. pcs_mood = 100
  1639. end
  1640. if pcs_apprnc = -10:
  1641. $pcs_apprnc = 'Your looks are even worse than terrible. It''s god-awful. No one wants to see or talk to you and people avoid you at any cost.'
  1642. elseif pcs_apprnc < 20:
  1643. $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
  1644. elseif pcs_apprnc < 60:
  1645. $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
  1646. elseif pcs_apprnc < 120:
  1647. $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
  1648. elseif pcs_apprnc < 160:
  1649. $pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring by you and their girlfriends.'
  1650. elseif pcs_apprnc < 200:
  1651. $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
  1652. else
  1653. $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
  1654. end
  1655. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1656. !!!!!!!!BODY
  1657. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1658. if dounspell = 1:
  1659. salocatnow = (pcs_hips / 10) - 5
  1660. if bdsetlock = 0:
  1661. if strenbuf >= 70:
  1662. bodset = 2
  1663. elseif strenbuf <= 40:
  1664. bodset = 0
  1665. else
  1666. bodset = 1
  1667. end
  1668. else
  1669. bodset = fixbodset
  1670. end
  1671. end
  1672. if salocatnow <= 7:
  1673. $body = $bodimgsets[((bodset * 10) + salocatnow)]
  1674. else
  1675. $body = $bodimgsets[((bodset * 10) + 7)]
  1676. end
  1677. !!Since "musle" is used all over the place
  1678. musle = strenbuf
  1679. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1680. --- body ---------------------------------