body_desc.qsrc 72 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602
  1. # body_desc
  2. !{
  3. 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,
  4. extant saved games will irreparably 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
  5. 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.
  6. Available strings follow this format: $pc_desc['type'], $pc_descWordy['type']
  7. Available 'type':
  8. throat, pussy, anus, butt, breasts, lips, lip size, lip gloss hair, hair style, hair status, hair length, hair colour, hair texture, hair bang tan, skin, eye color, eyelashes, glasses, eye size, makeup, nipples, clit, pubes, legs
  9. }
  10. if $ARGS[0] = '':
  11. gs 'body_desc', 'throat'
  12. gs 'body_desc', 'pussy'
  13. gs 'body_desc', 'anus'
  14. if dounspell = 0:
  15. gs 'body_desc', 'butt'
  16. gs 'body_desc', 'breasts'
  17. gs 'body_desc', 'BMI'
  18. end
  19. gs 'body_desc', 'lips'
  20. gs 'body_desc', 'hair'
  21. gs 'body_desc', 'tan'
  22. gs 'body_desc', 'skin'
  23. gs 'body_desc', 'eye_color'
  24. gs 'body_desc', 'eyelashes'
  25. gs 'body_desc', 'glasses'
  26. gs 'body_desc', 'eye_size'
  27. gs 'body_desc', 'makeup'
  28. gs 'body_desc', 'nipples'
  29. gs 'body_desc', 'clit'
  30. gs 'body_desc', 'pubes'
  31. gs 'body_desc', 'legs'
  32. gs 'body_desc', 'appearance'
  33. end
  34. if $ARGS[0] = 'ChooseDescWord':
  35. !{
  36. This function picks a random descriptive word from $ARGS array and returns back the word
  37. To implement, call func('body_desc', 'ChooseDescWord', [desc word1], [desc word2], [desc word3], etc.)
  38. return a string
  39. }
  40. $result = $ARGS[rand(2, arrsize('$ARGS')-1)]
  41. end
  42. if $ARGS[0] = 'throat':
  43. if pcs_throat = 0:
  44. $pc_descFull['throat'] = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
  45. $pc_desc['throat'] = 'virgin'
  46. $pc_descWordy['throat'] = 'virginal, unused'
  47. $throattipe = 'virgin'
  48. elseif pcs_throat <= 5:
  49. $pc_descFull['throat'] = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
  50. $pc_desc['throat'] = 'narrow'
  51. $pc_descWordy['throat'] = 'reluctant, gag-prone'
  52. $throattipe = 'narrow'
  53. elseif pcs_throat <= 10:
  54. $pc_descFull['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.'
  55. $pc_desc['throat'] = 'delicate'
  56. $pc_descWordy['throat'] = 'delicate, barely-experienced'
  57. $throattipe = 'delicate'
  58. elseif pcs_throat <= 15:
  59. $pc_descFull['throat'] = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
  60. $pc_desc['throat'] = 'fairly practiced'
  61. $pc_descWordy['throat'] = 'fairly practiced'
  62. $throattipe = 'fairly practiced'
  63. elseif pcs_throat <= 25:
  64. $pc_descFull['throat'] = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
  65. $pc_desc['throat'] = 'well-trained'
  66. $pc_descWordy['throat'] = 'experienced, well-trained and eager'
  67. $throattipe = 'well-trained'
  68. elseif pcs_throat <= 35:
  69. $pc_descFull['throat'] = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
  70. $pc_desc['throat'] = 'capacious'
  71. $pc_descWordy['throat'] = 'seasoned, effortlessly-plumbed'
  72. $throattipe = 'capacious'
  73. else
  74. $pc_descFull['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.'
  75. $pc_desc['throat'] = 'bottomless'
  76. $pc_descWordy['throat'] = 'elastic, oft-fucked'
  77. $throattipe = 'bottomless'
  78. end
  79. if pcs_breath = 1: $pc_descFull['throat'] += ' Last you checked, your breath smelled fresh and minty.'
  80. end
  81. if $ARGS[0] = 'pussy':
  82. if pcs_piercings['pussy'] > 0 and pcs_tattoos['pussy'] > 0:
  83. $pc_desc['pussy'] = 'pierced and tattooed '
  84. $pc_descWordy['pussy'] = 'pierced and tattooed '
  85. elseif pcs_piercings['pussy'] > 0:
  86. $pc_desc['pussy'] = 'pierced '
  87. $pc_descWordy['pussy'] = 'pierced '
  88. elseif pcs_tattoos['pussy'] > 0:
  89. $pc_desc['pussy'] = 'tattooed '
  90. $pc_descWordy['pussy'] = 'tattooed '
  91. else
  92. $pc_desc['pussy'] = ''
  93. $pc_descWordy['pussy'] = ''
  94. end
  95. if vgape >= 4:
  96. $pcs_vag_image = 'images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg'
  97. if rand(0,1) = 0:
  98. $pcs_vag = 'Your regularly-fucked <<$pc_desc[''pussy'']>><a href="exec: view ''<<$pcs_vag_image>>''">playground</a> can take most things you force up there, ' + iif(stat['think_virgin'] = 0,'maybe you should skip the next gangbang?.','this can''t be right. What could be doing this to me?')
  99. else
  100. $pcs_vag = 'Your poor little <a href="exec: view ''<<$pcs_vag_image>>''">pussy</a> is broken from too much stuffing, it''ll need time to recover, ' + iif(stat['think_virgin'] = 0,'maybe you should skip the next gangbang?.','this can''t be right. What could be doing this to me?')
  101. end
  102. $pc_desc['pussy'] += func('body_desc', 'ChooseDescWord', 'ruined', 'broken', 'proplapsed', 'destroyed', 'annihilated', 'obliterated','decimated')
  103. $pc_descWordy['pussy'] += 'prolapsed, ruined, chasm of a'
  104. $vaginatipe = 'ruined'
  105. elseif vgape = 3:
  106. $pcs_vag_image = 'images/pc/body/pussy/stage4/' + rand(1,5) + '.jpg'
  107. $pcs_vag = 'You have a <<$pc_desc[''pussy'']>>gaping hole of a <a href="exec: view ''<<$pcs_vag_image>>''">vagina</a>, ' + iif(stat['think_virgin'] = 0,'it has seen a lot of action.','how though? Maybe something is wrong with you, virgins don''t look like this.')
  108. $pc_desc['pussy'] += func('body_desc', 'ChooseDescWord', 'gaping', 'open', 'extended', 'wide')
  109. $pc_descWordy['pussy'] += 'gaping and well used'
  110. $vaginatipe = 'gaping'
  111. elseif vgape = 2:
  112. $pcs_vag_image = 'images/pc/body/pussy/stage3/' + rand(1,5) + '.jpg'
  113. $pcs_vag = 'Your <<$pc_desc[''pussy'']>><a href="exec: view ''<<$pcs_vag_image>>''">vagina</a> looks like it has seen some action, ' + iif(stat['think_virgin'] = 0,'which it totally has.','which doesn''t make sense. You''re still a virgin.')
  114. $pc_desc['pussy'] += func('body_desc', 'ChooseDescWord', 'recovering', 'recently used', 'welcoming')
  115. $pc_descWordy['pussy'] += 'experienced, welcoming'
  116. $vaginatipe = 'welcoming'
  117. elseif vgape = 1 or pcs_vag > 10:
  118. $pcs_vag_image = 'images/pc/body/pussy/stage2/' + rand(1,5) + '.jpg'
  119. $pcs_vag = 'Your <<$pc_desc[''pussy'']>><a href="exec: view ''<<$pcs_vag_image>>''">pussy</a> looks like it has been used recently or is just well worn in, ' + iif(stat['think_virgin'] = 0,'maybe you''ve been over doing it?','which seems unfair for a virgin like yourself.')
  120. $pc_desc['pussy'] += func('body_desc', 'ChooseDescWord', 'pliable', 'used')
  121. $pc_descWordy['pussy'] += 'worn in'
  122. $vaginatipe = 'used'
  123. elseif pcs_vag > 0:
  124. $pcs_vag_image = 'images/pc/body/pussy/stage1/' + rand(1,5) + '.jpg'
  125. $pcs_vag = 'Your <<$pc_desc[''pussy'']>><a href="exec: view ''<<$pcs_vag_image>>''">pussy</a> looks perfectly normal, ' + iif(stat['think_virgin'] = 0,'for someone sexually active.','just not as virginal as you would expect.')
  126. $pc_desc['pussy'] += func('body_desc', 'ChooseDescWord', 'snug', 'tight', 'cosy')
  127. $pc_descWordy['pussy'] += 'tight and unused'
  128. $vaginatipe = 'unused'
  129. else
  130. $pcs_vag_image = 'images/pc/body/pussy/stage0/' + rand(1,5) + '.jpg'
  131. $pcs_vag = 'Your <<$pc_desc[''pussy'']>>virgin <a href="exec: view ''<<$pcs_vag_image>>''">pussy</a> still has its hymen intact, ' + iif(stat['think_virgin'] = 0,'even though you are not a virgin.','which makes sense for a virgin.')
  132. $pc_desc['pussy'] += 'virgin'
  133. $pc_descWordy['pussy'] += 'virgin'
  134. $vaginatipe = 'virgin'
  135. end
  136. end
  137. if $ARGS[0] = 'anus':
  138. !! The original variables are all named for ass, but really, this is just all about the asshole.
  139. if analplugIN = 0:
  140. if agape >= 4:
  141. anpic = 5
  142. if rand(0,1) = 0:
  143. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> genuinely doesn''t fully close on its own currently. You could put a fist through it and it would scarcely stretch at all.'
  144. else
  145. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> is almost completely wrecked at this time. Even with conscious effort it''s hard to close it.'
  146. end
  147. $pc_desc['anus'] = func('body_desc', 'ChooseDescWord', 'gaping', 'yawning', 'destroyed', 'demolished', 'uselessly loose','ruined', 'wrecked')
  148. $pc_descWordy['anus'] = 'gaping, seemingly constantly-fucked'
  149. $anustipe = 'gaping'
  150. elseif agape = 3:
  151. anpic = 4
  152. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage4/' + rand(1,5) + '.jpg''">anus</a> looks like a wide hole, it is clear you have recently been penetrated.'
  153. $pc_desc['anus'] = func('body_desc', 'ChooseDescWord', 'loose', 'casually open', 'routinely-fucked')
  154. $pc_descWordy['anus'] = 'loose, open'
  155. $anustipe = 'loose'
  156. elseif agape = 2:
  157. anpic = 3
  158. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage3/' + rand(1,5) + '.jpg''">anus</a> gapes a little from anal penetration, it should recover soon.'
  159. $pc_desc['anus'] = func('body_desc', 'ChooseDescWord', 'stretchy', 'welcomingly ready', 'experienced')
  160. $pc_descWordy['anus'] = 'stretchy, regularly-fucked'
  161. $anustipe = 'stretchy'
  162. elseif agape = 1 or pcs_ass > 10:
  163. anpic = 2
  164. $pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/stage2/' + rand(1,5) + '.jpg''">anus</a> has the shape of an asterisk and has clearly been used.'
  165. $pc_desc['anus'] = func('body_desc', 'ChooseDescWord', 'flexible', 'slightly experienced', 'pliable')
  166. $pc_descWordy['anus'] = 'flexible, still-snug'
  167. $anustipe = 'flexible'
  168. elseif pcs_ass > 0:
  169. anpic = 1
  170. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage1/' + rand(1,5) + '.jpg''">anus</a> shows no sign of having been penetrated.'
  171. $pc_desc['anus'] = func('body_desc', 'ChooseDescWord', 'tight', 'tightly-clenching', 'snug')
  172. $pc_descWordy['anus'] = 'tight, scarcely-used'
  173. $anustipe = 'tight'
  174. else
  175. anpic = 0
  176. $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/stage0/' + rand(1,5) + '.jpg''">anus</a>.'
  177. $pc_desc['anus'] = 'virgin'
  178. $pc_descWordy['anus'] = 'virgin'
  179. $anustipe = 'virgin'
  180. end
  181. !! 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.
  182. else
  183. $pc_desc['anus'] = 'plugged'
  184. $pc_descWordy['anus'] = 'plug-stuffed'
  185. $anustipe = 'plugged'
  186. if $pantyworntype ! 'none':
  187. $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
  188. else
  189. if pcs_piercings['pussy'] > 0:
  190. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/pirs' + rand(1,3) + '.jpg''">anus</a> is currently filled with your butt plug.'
  191. else
  192. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
  193. end
  194. end
  195. end
  196. end
  197. if $ARGS[0] = 'BMI':
  198. $bodyVars['bmi_desc'] = func('body_structure', 'bmi_desc')
  199. end
  200. if $ARGS[0] = 'breasts':
  201. !! 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
  202. !! 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
  203. !! 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
  204. !! 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.
  205. pcs_bustdisparity = (bodyVars['bust_silicone'] - pcs_mass['bust']) / 10
  206. $pcdesc_breastsqualifierinsertive = ''
  207. !! For all-natural PCs.
  208. if bodyVars['bust_silicone'] <= 0:
  209. pcdesc_breastimplantcheck = 0
  210. else
  211. pcdesc_breastimplantcheck = 1
  212. end
  213. if pcs_bustdisparity <= 0:
  214. !! This triggers if they have natural breasts, or fake breasts but they are not obviously, blatantly fake breasts.
  215. !! In fact, this should be what triggers most of the time with a PC who has implants, given average cases.
  216. if pcs_cupsize <= 30:
  217. $pcdesc_breastsword = 'breasts'
  218. else
  219. $pcdesc_breastsword = 'tits'
  220. end
  221. else
  222. $pcdesc_breastsword = 'bolt-ons'
  223. if pcs_bustdisparity = 2:
  224. $pcdesc_breastsqualifierinsertive = ', semi-spherical'
  225. elseif pcs_bustdisparity = 3:
  226. $pcdesc_breastsqualifierinsertive = ', firm and round'
  227. !! 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 pcs_mass['bust'] of 1.
  228. !! 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.
  229. elseif pcs_bustdisparity = 4:
  230. $pcdesc_breastsqualifierinsertive = ', clearly man-made'
  231. elseif pcs_bustdisparity = 5:
  232. $pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
  233. elseif pcs_bustdisparity = 6:
  234. $pcdesc_breastsqualifierinsertive = ', walking fucktoy'
  235. elseif pcs_bustdisparity = 7:
  236. $pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
  237. elseif pcs_bustdisparity >= 8:
  238. $pcdesc_breastsqualifierinsertive = ', <<$pc_descWordy[''hair colour'']>> overdone fuckdoll'
  239. end
  240. end
  241. !! 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."
  242. if pcdesc_breastimplantcheck = 1:
  243. $pcdesc_breastsfakeinsertive = ' fake'
  244. else
  245. $pcdesc_breastsfakeinsertive = ''
  246. end
  247. if pcs_cupsize <= 5:
  248. tits = 0
  249. $titsize = 'AA cup'
  250. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'tiny', 'barely-there')
  251. !! Honestly, I am not even sure it is possible to have silicone and be this small. But just in case...
  252. if pcdesc_breastimplantcheck = 1:
  253. $pc_descWordy['breast'] = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  254. else
  255. $pc_descWordy['breast'] = 'tiny, mosquito-bite <<$pcdesc_breastsword>>'
  256. end
  257. $pcdesc_breasts = 'tiny'
  258. elseif pcs_cupsize <= 10:
  259. tits = 1
  260. $titsize = 'A cup'
  261. rand_breasts = rand(0,1)
  262. if rand_breasts = 0:
  263. $pcdesc_breastsrandom = 'petite'
  264. elseif rand_breasts = 1:
  265. $pcdesc_breastsrandom = 'smaller than a handful'
  266. end
  267. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'petite', 'smaller than a handful')
  268. if pcdesc_breastimplantcheck = 1:
  269. $pc_descWordy['breast'] = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  270. else
  271. $pc_descWordy['breast'] = 'petite, puffy little <<$pcdesc_breastsword>>'
  272. end
  273. $pcdesc_breasts = 'petite'
  274. elseif pcs_cupsize <= 15:
  275. tits = 2
  276. $titsize = 'B cup'
  277. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'small', 'sporty')
  278. if pcdesc_breastimplantcheck = 1:
  279. $pc_descWordy['breast'] = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  280. else
  281. $pc_descWordy['breast'] = 'small, handful-sized <<$pcdesc_breastsword>>'
  282. end
  283. $pcdesc_breasts = 'small'
  284. elseif pcs_cupsize <= 20:
  285. tits = 3
  286. $titsize = 'C cup'
  287. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'ample', 'average-sized')
  288. !! 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.
  289. if pcdesc_breastimplantcheck = 1:
  290. $pc_descWordy['breast'] = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  291. else
  292. $pc_descWordy['breast'] = 'ample, handful-sized <<$pcdesc_breastsword>>'
  293. end
  294. $pcdesc_breasts = 'ample'
  295. elseif pcs_cupsize <= 25:
  296. tits = 4
  297. $titsize = 'D cup'
  298. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'full', 'hefty')
  299. if pcdesc_breastimplantcheck = 1:
  300. $pc_descWordy['breast'] = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  301. else
  302. $pc_descWordy['breast'] = 'jiggly, womanly full <<$pcdesc_breastsword>>'
  303. end
  304. $pcdesc_breasts = 'full'
  305. elseif pcs_cupsize <= 30:
  306. tits = 5
  307. $titsize = 'E cup'
  308. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'generous', 'heavy', 'fairly large')
  309. if pcdesc_breastimplantcheck = 1:
  310. $pc_descWordy['breast'] = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  311. else
  312. $pc_descWordy['breast'] = 'soft, generously-sized <<$pcdesc_breastsword>>'
  313. end
  314. $pcdesc_breasts = 'generous'
  315. elseif pcs_cupsize <= 35:
  316. !! 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.
  317. tits = 6
  318. $titsize = 'F cup'
  319. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'big', 'large')
  320. if pcdesc_breastimplantcheck = 1:
  321. $pc_descWordy['breast'] = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  322. else
  323. $pc_descWordy['breast'] = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
  324. end
  325. $pcdesc_breasts = 'big'
  326. elseif pcs_cupsize <= 40:
  327. tits = 7
  328. $titsize = 'G cup'
  329. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'considerably large', 'quite large')
  330. if pcdesc_breastimplantcheck = 1:
  331. $pc_descWordy['breast'] = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  332. else
  333. $pc_descWordy['breast'] = 'quite large and jiggly <<$pcdesc_breastsword>>'
  334. end
  335. $pcdesc_breasts = 'considerably large'
  336. elseif pcs_cupsize <= 45:
  337. tits = 8
  338. $titsize = 'H cup'
  339. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'extremely large', 'incredibly stacked')
  340. if pcdesc_breastimplantcheck = 1:
  341. $pc_descWordy['breast'] = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  342. else
  343. $pc_descWordy['breast'] = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
  344. end
  345. $pcdesc_breasts = 'extremely large'
  346. elseif pcs_cupsize <= 50:
  347. tits = 9
  348. $titsize = 'I cup'
  349. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'huge', 'impractically big', 'figure-dominating')
  350. if pcdesc_breastimplantcheck = 1:
  351. $pc_descWordy['breast'] = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  352. else
  353. $pc_descWordy['breast'] = 'huge, wholly impractical <<$pcdesc_breastsword>>'
  354. end
  355. $pcdesc_breasts = 'huge'
  356. elseif pcs_cupsize <= 55:
  357. tits = 10
  358. $titsize = 'J cup'
  359. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'massive', 'enormous')
  360. if pcdesc_breastimplantcheck = 1:
  361. $pc_descWordy['breast'] = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  362. else
  363. $pc_descWordy['breast'] = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
  364. end
  365. $pcdesc_breasts = 'massive'
  366. else
  367. tits = 11
  368. $titsize = 'K cup'
  369. $pc_desc['breast'] = func('body_desc', 'ChooseDescWord', 'whorishly oversized', 'fucktoy-appropriate','ridiculously big')
  370. if pcdesc_breastimplantcheck = 1:
  371. $pc_descWordy['breast'] = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
  372. else
  373. $pc_descWordy['breast'] = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
  374. end
  375. $pcdesc_breasts = 'whorishly oversized'
  376. end
  377. end
  378. if $ARGS[0] = 'butt':
  379. !have butt implant
  380. $temp_img = func('$body_image', 'butt')
  381. if bodyVars['butt_silicone'] > 0:
  382. $pc_desc['butt'] = 'jiggly bubble'
  383. $pcs_butt = 'Through the use of implants, you have given yourself a jiggly bubble <a href="exec: view ''<<$temp_img>>''">butt</a>.'
  384. !natural butt
  385. elseif pcs_buttsize <= 7:
  386. $pc_desc['butt'] = 'square and flat'
  387. $pc_descFull['butt'] = 'Your <a href="exec: view ''<<$temp_img>>'' ">ass</a> is square and as flat as a plank.'
  388. elseif pcs_buttsize <= 14:
  389. $pc_desc['butt'] = 'square'
  390. $pc_descFull['butt'] = 'Your <a href="exec: view ''<<$temp_img>>'' ">ass</a> is square but not completely flat.'
  391. elseif pcs_buttsize <= 21:
  392. $pc_desc['butt'] = 'average'
  393. $pc_descFull['butt'] = 'You have an average, feminine looking <a href="exec: view ''<<$temp_img>>'' ">ass</a>.'
  394. elseif pcs_buttsize <= 29:
  395. $pc_desc['butt'] = 'above average'
  396. $pc_descFull['butt'] = 'You have an above-average, feminine looking <a href="exec: view ''<<$temp_img>>'' ">ass</a>.'
  397. elseif pcs_buttsize <= 36:
  398. $pc_desc['butt'] = 'big'
  399. $pc_descFull['butt'] = 'Your <a href="exec:view''<<$temp_img>>'' ">ass</a> is bigger, rounder and firmer than average.'
  400. elseif pcs_buttsize <= 44:
  401. $pc_desc['butt'] = 'ample'
  402. $pc_descFull['butt'] = 'Your ample <a href="exec: view ''<<$temp_img>>'' ">ass</a> is bigger, rounder and firmer than most.'
  403. elseif pcs_buttsize <= 51:
  404. $pc_desc['butt'] = 'heart-shaped'
  405. $pc_descFull['butt'] = 'You have a heart-shaped <a href="exec: view ''<<$temp_img>>'' ">butt</a> that jiggles as you walk.'
  406. elseif pcs_buttsize <= 59:
  407. $pc_desc['butt'] = 'large heart-shaped'
  408. $pc_descFull['butt'] = 'You have a large heart-shaped <a href="exec: view ''<<$temp_img>>'' ">butt</a> that jiggles and sways as you walk.'
  409. else
  410. $pc_desc['butt'] = 'large bubble'
  411. $pc_descFull['butt'] = 'You have a large bubble <a href="exec: view ''<<$temp_img>>'' ">butt</a> that jiggles and sways as you walk.'
  412. end
  413. killvar '$temp_img'
  414. end
  415. if $ARGS[0] = 'lips':
  416. if pcs_lip <= 0:
  417. pcs_lip = 0
  418. $pc_desc['lip size'] = func('body_desc', 'ChooseDescWord', 'thin', 'narrow', 'slender')
  419. $pcs_lipSize = 'thin'
  420. $pc_descWordy['lip size'] = 'thin, scarcely-noticeable'
  421. elseif pcs_lip = 1:
  422. $pc_desc['lip size'] = func('body_desc', 'ChooseDescWord', 'kissable', 'normal')
  423. $pcs_lipSize = 'normal'
  424. $pc_descWordy['lip size'] = 'kissable, if average'
  425. elseif pcs_lip = 2:
  426. $pc_desc['lip size'] = func('body_desc', 'ChooseDescWord', 'plump', 'full', 'inviting')
  427. $pcs_lipSize = 'plump'
  428. $pc_descWordy['lip size'] = 'invitingly full'
  429. elseif pcs_lip = 3:
  430. $pc_desc['lip size'] = func('body_desc', 'ChooseDescWord', 'thick', 'big', 'pouty')
  431. $pcs_lipSize = 'big, pouting'
  432. $pc_descWordy['lip size'] = 'big, pouty and full'
  433. else
  434. pcs_lip = 4
  435. $pc_desc['lip size'] = func('body_desc', 'ChooseDescWord', 'fat', 'pillowy', 'plush')
  436. $pcs_lipSize = 'pillowy'
  437. $pc_descWordy['lip size'] = 'plush, pillowy and inviting'
  438. end
  439. !! 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...
  440. !! $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
  441. !! 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.
  442. if pcs_lipbalm > 0:
  443. $pc_desc['lip gloss'] = func('body_desc', 'ChooseDescWord', 'shiny', 'glossy', 'juicy', 'slippery')
  444. $pc_desc['lip glossed'] = 'glossed'
  445. if pcs_lip = 1:
  446. $pcs_lipbalm = 'shiny'
  447. $pc_descWordy['lip glossed'] = 'gloss-slicked'
  448. elseif pcs_lip = 2:
  449. $pcs_lipbalm = 'brilliant and juicy'
  450. $pc_descWordy['lip glossed'] = 'invitingly glossed'
  451. elseif pcs_lip = 3:
  452. $pcs_lipbalm = 'juicy and full'
  453. $pc_descWordy['lip glossed'] = 'wetly-glossed'
  454. elseif pcs_lip = 4:
  455. $pcs_lipbalm = 'wet and glossy'
  456. $pc_descWordy['lip glossed'] = 'suggestively gloss-glazed'
  457. else
  458. !! Lip size 0
  459. $pcs_lipbalm = 'shiny'
  460. $pc_descWordy['lip glossed'] = 'gloss-slicked'
  461. end
  462. else
  463. !! No gloss
  464. $pc_desc['lip gloss'] = 'soft'
  465. $pcs_lipbalm = 'soft'
  466. $pc_desc['lip glossed'] = 'softened'
  467. end
  468. $pc_descFull['lip'] = 'You have <<$pcs_lipSize>>, <<$pc_desc[''lip gloss'']>> ' + iif(pcs_lip = 4, 'suggestively full ', '') + 'lips. <<$pcs_piercings[''lip_desc'']>> <<$pcs_piercings[''tongue_desc'']>>'
  469. !! 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.
  470. $pc_desc['lips'] = '<<$pc_desc[''lip size'']>> <<$pc_desc[''lip gloss'']>>'
  471. $pc_descWordy['lips'] = '<<$pc_desc[''lip gloss'']>>, <<$pc_descWordy[''lip size'']>>'
  472. end
  473. if $ARGS[0] = 'tan':
  474. !! 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)
  475. if pcs_tan = 0:
  476. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'pale', 'alabaster', 'porcelain', 'fair')
  477. $pc_descWordy['tan'] = 'pale, alabaster'
  478. $pcs_tan = 'pale'
  479. elseif pcs_tan > 0 and pcs_tan <= 5:
  480. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'lightly tanned', 'barely tanned', 'scarcely darkened')
  481. $pc_descWordy['tan'] = 'just barely sun-kissed'
  482. $pcs_tan = 'faintly tanned'
  483. elseif pcs_tan > 5 and pcs_tan <= 10:
  484. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'tanned', 'lightly bronzed', 'sun-kissed', 'lightly browned')
  485. $pc_descWordy['tan'] = 'gently sun-kissed'
  486. $pcs_tan = 'tanned'
  487. elseif pcs_tan > 10 and pcs_tan <= 25:
  488. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'bronzed', 'browned', 'light caramel')
  489. $pc_descWordy['tan'] = 'sun-swept, beach-bunny brown'
  490. $pcs_tan = 'bronzed'
  491. elseif pcs_tan > 25 and pcs_tan <= 50:
  492. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'deeply tanned', 'very dark', 'richly browned', 'tawny')
  493. $pc_descWordy['tan'] = 'dark, richly browned'
  494. $pcs_tan = 'deeply tanned'
  495. else
  496. !! This would take some very intentional tanorexia
  497. $pc_desc['tan'] = func('body_desc', 'ChooseDescWord', 'extremely darkly tanned', 'nearly unnaturally darkened', 'dark, desert-tanned')
  498. $pc_descWordy['tan'] = 'practically swarthy'
  499. $pcs_tan = 'extremely darkly tanned'
  500. end
  501. end
  502. if $ARGS[0] = 'skin':
  503. if pcs_skin < 200:
  504. $pc_desc['skin'] = func('body_desc', 'ChooseDescWord', 'terrible', 'awful', 'greasy', 'pimple-strewn')
  505. $pc_descWordy['skin'] = 'awful, greasy and pimply'
  506. $pc_descFull['skin'] = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pcs_piercings[''ears_desc'']>> <<$pcs_piercings[''nose_desc'']>> <<$pcs_piercings[''brow_desc'']>> <<$pcs_piercings[''navel_desc'']>>'
  507. elseif pcs_skin < 400:
  508. $pc_desc['skin'] = func('body_desc', 'ChooseDescWord', 'bad', 'greasy', 'rough', 'unappealing')
  509. $pc_descWordy['skin'] = 'poorly-kept, unappealing'
  510. $pc_descFull['skin'] = 'Your <<$pcs_tan>> skin is rough and has a few pimples. <<$pcs_piercings[''ears_desc'']>> <<$pcs_piercings[''nose_desc'']>> <<$pcs_piercings[''brow_desc'']>> <<$pcs_piercings[''navel_desc'']>>'
  511. elseif pcs_skin < 600:
  512. $pc_desc['skin'] = func('body_desc', 'ChooseDescWord', 'average', 'normal', 'clear')
  513. $pc_descWordy['skin'] = 'normal, slightly rough'
  514. $pc_descFull['skin'] = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pcs_piercings[''ears_desc'']>> <<$pcs_piercings[''nose_desc'']>> <<$pcs_piercings[''brow_desc'']>> <<$pcs_piercings[''navel_desc'']>>'
  515. elseif pcs_skin < 800:
  516. $pc_desc['skin'] = func('body_desc', 'ChooseDescWord', 'good', 'nice', 'smooth', 'great', 'well-kept')
  517. $pc_descWordy['skin'] = 'smooth, well-kept'
  518. $pc_descFull['skin'] = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pcs_piercings[''ears_desc'']>> <<$pcs_piercings[''nose_desc'']>> <<$pcs_piercings[''brow_desc'']>> <<$pcs_piercings[''navel_desc'']>>'
  519. else
  520. $pc_desc['skin'] = func('body_desc', 'ChooseDescWord', 'excellent', 'silken', 'soft', 'silky', 'immaculate')
  521. $pc_descWordy['skin'] = 'immaculate, silky-soft'
  522. $pc_descFull['skin'] = 'You have <<$pcs_tan>> and very smooth skin which almost feels like silk to the touch. <<$pcs_piercings[''ears_desc'']>> <<$pcs_piercings[''nose_desc'']>> <<$pcs_piercings[''brow_desc'']>> <<$pcs_piercings[''navel_desc'']>>'
  523. end
  524. end
  525. if $ARGS[0] = 'eyelashes':
  526. !! 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
  527. !! If players do not have a pcs_naturallashes value, extrapolate one as best as possible from what they currently have.
  528. if pcs_naturallashes <= 0 and pcs_lashes <= 2 and retroactivenaturallashes <= 0:
  529. pcs_naturallashes = pcs_lashes
  530. retroactivenaturallashes = 1
  531. end
  532. if pcs_lashes >= 5:
  533. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'long, jewel-dusted', 'incredibly extravagant','overwhelmingly indulgent','jewel-sparkled, showgirl')
  534. $pc_descWordy['eyelashes'] = 'incredibly extravagant, jewel-dusted'
  535. $pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
  536. elseif pcs_lashes = 4:
  537. if false_lashes >= 1:
  538. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'mink-feathered', 'attention-grabbing','intoxicatingly seductive false','wildly flirtatious false')
  539. $pcs_lashes = 'with fabulous, mink-feathered false lashes'
  540. $pc_descWordy['eyelashes'] = 'fabulous, mink-feathered false'
  541. else
  542. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'amazingly lengthy', 'show-stealing','incredibly lush','stunningly dark and full')
  543. $pcs_lashes = 'with stunningly dark and full lash extensions'
  544. $pc_descWordy['eyelashes'] = 'stunningly dark and full, show-stealing'
  545. end
  546. elseif pcs_lashes = 3:
  547. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'lavish', 'lush, dark','seductively-curled','flirtatiously lengthy')
  548. if false_lashes >= 1:
  549. $pcs_lashes = 'with lavish, fluttery false lashes'
  550. $pc_descWordy['eyelashes'] = 'lavish, attention-grabbing false'
  551. else
  552. $pcs_lashes = 'with lavishly seductive lash extensions'
  553. $pc_descWordy['eyelashes'] = 'lavish, seductively dark'
  554. end
  555. elseif pcs_lashes = 2:
  556. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'lengthy', 'long','fluttery','seductive')
  557. $pc_descWordy['eyelashes'] = 'long, fluttery'
  558. $pcs_lashes = 'with long eyelashes'
  559. elseif pcs_lashes = 1:
  560. $pc_desc['eyelashes'] = 'average'
  561. $pc_descWordy['eyelashes'] = 'average'
  562. $pcs_lashes = 'with average eyelashes'
  563. elseif pcs_lashes = 0:
  564. $pc_desc['eyelashes'] = func('body_desc', 'ChooseDescWord', 'short', 'scarce','faint')
  565. $pc_descWordy['eyelashes'] = 'short, barely-noticeable'
  566. $pcs_lashes = 'with short eyelashes'
  567. end
  568. end
  569. if $ARGS[0] = 'glasses':
  570. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  571. !! I changed glassvnesh back to 5 for wearing basic glasses. Boys do not make passes at girls who wear glasses.
  572. !! 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.
  573. if glass >= 2:
  574. $pc_desc['vision'] = func('body_desc', 'ChooseDescWord', 'glasses', 'lenses')
  575. $pc_descWordy['vision'] = 'chic, stylish glasses'
  576. $glass = ' You wear glasses.'
  577. elseif glass = 1:
  578. $pc_desc['vision'] = func('body_desc', 'ChooseDescWord', 'glasses', 'lenses', 'dorky glasses', 'geeky lenses')
  579. $pc_descWordy['vision'] = 'cheap, utilitarian glasses'
  580. $glass = ' You wear silly glasses in a cheap frame.'
  581. else
  582. glass = 0
  583. $pc_descWordy['vision'] = ''
  584. $glass = ''
  585. end
  586. end
  587. if $ARGS[0] = 'eye_color':
  588. if pcs_eyecol = 0:
  589. $pc_desc['eye colour'] = func('body_desc', 'ChooseDescWord', 'brown', 'hazel')
  590. $pc_descWordy['eye colour'] = 'warm, hazel'
  591. $pcs_eyecol = 'brown'
  592. elseif pcs_eyecol = 1:
  593. $pc_desc['eye colour'] = func('body_desc', 'ChooseDescWord', 'pale', 'grey', 'silvery')
  594. $pc_descWordy['eye colour'] = 'pale, silvery-grey'
  595. $pcs_eyecol = 'grey'
  596. elseif pcs_eyecol = 2:
  597. $pc_desc['eye colour'] = func('body_desc', 'ChooseDescWord', 'green', 'emerald')
  598. $pc_descWordy['eye colour'] = 'sparkling green'
  599. $pcs_eyecol = 'green'
  600. elseif pcs_eyecol = 3:
  601. $pc_desc['eye colour'] = func('body_desc', 'ChooseDescWord', 'blue', 'sapphire')
  602. $pc_descWordy['eye colour'] = 'vibrant, crystal blue'
  603. $pcs_eyecol = 'blue'
  604. else
  605. $pc_desc['eye colour'] = 'attractive'
  606. $pc_descWordy['eye colour'] = 'attractive'
  607. $pcs_eyecol = 'attractive'
  608. end
  609. end
  610. if $ARGS[0] = 'eye_size':
  611. !! 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.
  612. if pcs_eyesize = 0:
  613. $pc_desc['eye size'] = ''
  614. $pc_descWordy['eye size'] = 'little'
  615. $pc_descFull['eyes'] = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  616. elseif pcs_eyesize = 1:
  617. $pc_desc['eye size'] = ''
  618. $pc_descWordy['eye size'] = 'medium-sized'
  619. $pc_descFull['eyes'] = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  620. elseif pcs_eyesize = 2:
  621. $pc_desc['eye size'] = 'large'
  622. $pc_descWordy['eye size'] = 'large, expressive'
  623. $pc_descFull['eyes'] = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
  624. else
  625. pcs_eyesize = 3
  626. $pc_desc['eye size'] = 'huge'
  627. $pc_descWordy['eye size'] = 'huge'
  628. $pc_descFull['eyes'] = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
  629. end
  630. end
  631. if $ARGS[0] = 'piercing':
  632. !! 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. Netative means pierced, but no jewelry.
  633. if pcs_piercings['ears'] > 0:
  634. $pcs_piercings['ears_desc'] = 'You are wearing earrings.'
  635. if 1:
  636. $pc_descRandom['ears'] = 'pierced'
  637. end
  638. $pc_descWordy['ears'] = 'pierced'
  639. $pc_desc['ears'] = 'pierced'
  640. else
  641. $pcs_piercings['ears_desc'] = ''
  642. if 1:
  643. $pc_descRandom['ears'] = ''
  644. end
  645. $pc_descWordy['ears'] = ''
  646. $pc_desc['ears'] = ''
  647. end
  648. !! 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.
  649. if pcs_piercings['nose'] > 0:
  650. $pcs_piercings['nose_desc'] = 'You have a piercing inserted in your nose.'
  651. $pc_descRandom['nose'] = 'pierced'
  652. $pc_descWordy['nose'] = 'jewelry-studded'
  653. $pc_desc['nose'] = 'pierced'
  654. else
  655. $pcs_piercings['nose_desc'] = ''
  656. $pc_descRandom['nose'] = ''
  657. $pc_descWordy['nose'] = ''
  658. $pc_desc['nose'] = ''
  659. end
  660. if pcs_piercings['brow'] > 0:
  661. $pcs_piercings['brow_desc'] = 'Your eyebrow is pierced.'
  662. $pc_descRandom['brow'] = 'pierced'
  663. $pc_descWordy['brow'] = 'pierced'
  664. $pc_desc['brow'] = 'pierced'
  665. else
  666. $pcs_piercings['brow_desc'] = ''
  667. $pc_descRandom['brow'] = ''
  668. $pc_descWordy['brow'] = ''
  669. $pc_desc['brow'] = ''
  670. end
  671. if pcs_piercings['lip'] > 0:
  672. $pcs_piercings['lip_desc'] = 'Your lip is pierced.'
  673. $pc_descRandom['lower_lip'] = 'pierced'
  674. $pc_descWordy['lower_lip'] = 'jewelry-studded'
  675. $pc_desc['lower_lip'] = 'pierced'
  676. else
  677. $pcs_piercings['lip_desc'] = ''
  678. $pc_descRandom['lower_lip'] = ''
  679. $pc_descWordy['lower_lip'] = ''
  680. $pc_desc['lower_lip'] = ''
  681. end
  682. if pcs_piercings['tongue'] > 0:
  683. $pcs_piercings['tongue_desc'] = 'When you talk to people, they can sometimes get a glimpse of your tongue piercing.'
  684. $pc_descRandom['tongue'] = 'pierced'
  685. $pc_descWordy['tongue'] = 'barbell-pierced'
  686. $pc_desc['tongue'] = 'pierced'
  687. else
  688. $pcs_piercings['tongue_desc'] = ''
  689. $pc_descRandom['tongue'] = ''
  690. $pc_descWordy['tongue'] = ''
  691. $pc_desc['tongue'] = ''
  692. end
  693. if pcs_piercings['navel'] > 0:
  694. $pcs_piercings['navel_desc'] = 'You are wearing a navel piercing.'
  695. $pc_descRandom['navel'] = 'pierced'
  696. $pc_descWordy['navel'] = 'pierced'
  697. $pc_desc['navel'] = 'pierced'
  698. else
  699. $pcs_piercings['navel_desc'] = ''
  700. $pc_descRandom['navel'] = ''
  701. $pc_descWordy['navel'] = ''
  702. $pc_desc['navel'] = ''
  703. end
  704. !! Some of these are labial rings, some of them are hood piercings. No good way to tell without an overhaul.
  705. !{
  706. if pcs_piercings['pussy'] > 0:
  707. $pcs_piercings['pussy_desc'] = 'You are wearing a pubic piercing.'
  708. $pc_descRandom['pussy'] = 'pierced'
  709. $pc_descWordy['pussy'] = 'jewelry-adorned'
  710. $pc_desc['pussy'] = 'pierced'
  711. else
  712. $pcs_piercings['pussy_desc'] = ''
  713. $pc_descRandom['pussy'] = ''
  714. $pc_descWordy['pussy'] = ''
  715. $pc_desc['pussy'] = ''
  716. end
  717. }
  718. end
  719. if $ARGS[0] = 'tattoo':
  720. !! If, like me, you are confused by the logic of what initially appear to be arbitrary numbers, it turns out the tattoo location value is set to a number to indicate which photo it uses, which is tied to what tattoo you have. Netative means that the tatto is removed.
  721. if pcs_tattoos['ankle'] > 0:
  722. $pcs_tattoos['aankle_desc'] = ''
  723. if 1:
  724. $pc_descRandom['ankle'] = 'tattooed'
  725. end
  726. $pc_descWordy['ankle'] = 'tattooed'
  727. $pc_desc['ankle'] = 'tattooed'
  728. else
  729. $pcs_tattoos['ankle_desc'] = ''
  730. if 1:
  731. $pc_descRandom['ankle'] = ''
  732. end
  733. $pc_descWordy['ankle'] = ''
  734. $pc_desc['ankle'] = ''
  735. end
  736. if pcs_tattoos['arm'] > 0:
  737. $pcs_tattoos['arm_desc'] = ''
  738. if 1:
  739. $pc_descRandom['arm'] = 'tattooed'
  740. end
  741. $pc_descWordy['arm'] = 'tattooed'
  742. $pc_desc['arm'] = 'tattooed'
  743. else
  744. $pcs_tattoos['arm_desc'] = ''
  745. if 1:
  746. $pc_descRandom['arm'] = ''
  747. end
  748. $pc_descWordy['arm'] = ''
  749. $pc_desc['arm'] = ''
  750. end
  751. if pcs_tattoos['ass'] > 0:
  752. $pcs_tattoos['ass_desc'] = ''
  753. if 1:
  754. $pc_descRandom['ass'] = 'tattooed'
  755. end
  756. $pc_descWordy['ass'] = 'tattooed'
  757. $pc_desc['ass'] = 'tattooed'
  758. else
  759. $pcs_tattoos['ass_desc'] = ''
  760. if 1:
  761. $pc_descRandom['ass'] = ''
  762. end
  763. $pc_descWordy['ass'] = ''
  764. $pc_desc['ass'] = ''
  765. end
  766. if pcs_tattoos['back'] > 0:
  767. $pcs_tattoos['back_desc'] = ''
  768. if 1:
  769. $pc_descRandom['back'] = 'tattooed'
  770. end
  771. $pc_descWordy['back'] = 'tattooed'
  772. $pc_desc['back'] = 'tattooed'
  773. else
  774. $pcs_tattoos['back_desc'] = ''
  775. if 1:
  776. $pc_descRandom['back'] = ''
  777. end
  778. $pc_descWordy['back'] = ''
  779. $pc_desc['back'] = ''
  780. end
  781. if pcs_tattoos['belly'] > 0:
  782. $pcs_tattoos['belly_desc'] = ''
  783. if 1:
  784. $pc_descRandom['belly'] = 'tattooed'
  785. end
  786. $pc_descWordy['belly'] = 'tattooed'
  787. $pc_desc['belly'] = 'tattooed'
  788. else
  789. $pcs_tattoos['belly_desc'] = ''
  790. if 1:
  791. $pc_descRandom['belly'] = ''
  792. end
  793. $pc_descWordy['belly'] = ''
  794. $pc_desc['belly'] = ''
  795. end
  796. !{
  797. if pcs_tattoos['breast'] > 0:
  798. $pcs_tattoos['breast_desc'] = ''
  799. if 1:
  800. $pc_descRandom['breast'] = 'tattooed'
  801. end
  802. $pc_descWordy['breast'] = 'tattooed'
  803. $pc_desc['breast'] = 'tattooed'
  804. else
  805. $pcs_tattoos['breast_desc'] = ''
  806. if 1:
  807. $pc_descRandom['breast'] = ''
  808. end
  809. $pc_descWordy['breast'] = ''
  810. $pc_desc['breast'] = ''
  811. end
  812. }
  813. if pcs_tattoos['chest'] > 0:
  814. $pcs_tattoos['chest_desc'] = ''
  815. if 1:
  816. $pc_descRandom['chest'] = 'tattooed'
  817. end
  818. $pc_descWordy['chest'] = 'tattooed'
  819. $pc_desc['chest'] = 'tattooed'
  820. else
  821. $pcs_tattoos['chest_desc'] = ''
  822. if 1:
  823. $pc_descRandom['chest'] = ''
  824. end
  825. $pc_descWordy['chest'] = ''
  826. $pc_desc['chest'] = ''
  827. end
  828. if pcs_tattoos['face'] > 0:
  829. $pcs_tattoos['face_desc'] = ''
  830. if 1:
  831. $pc_descRandom['face'] = 'tattooed'
  832. end
  833. $pc_descWordy['face'] = 'tattooed'
  834. $pc_desc['face'] = 'tattooed'
  835. else
  836. $pcs_tattoos['face_desc'] = ''
  837. if 1:
  838. $pc_descRandom['face'] = ''
  839. end
  840. $pc_descWordy['face'] = ''
  841. $pc_desc['face'] = ''
  842. end
  843. if pcs_tattoos['hand'] > 0:
  844. $pcs_tattoos['hand_desc'] = ''
  845. if 1:
  846. $pc_descRandom['hand'] = 'tattooed'
  847. end
  848. $pc_descWordy['hand'] = 'tattooed'
  849. $pc_desc['hand'] = 'tattooed'
  850. else
  851. $pcs_tattoos['hand_desc'] = ''
  852. if 1:
  853. $pc_descRandom['hand'] = ''
  854. end
  855. $pc_descWordy['hand'] = ''
  856. $pc_desc['hand'] = ''
  857. end
  858. if pcs_tattoos['leg'] > 0:
  859. $pcs_tattoos['leg_desc'] = ''
  860. if 1:
  861. $pc_descRandom['leg'] = 'tattooed'
  862. end
  863. $pc_descWordy['leg'] = 'tattooed'
  864. $pc_desc['leg'] = 'tattooed'
  865. else
  866. $pcs_tattoos['leg_desc'] = ''
  867. if 1:
  868. $pc_descRandom['leg'] = ''
  869. end
  870. $pc_descWordy['leg'] = ''
  871. $pc_desc['leg'] = ''
  872. end
  873. !{
  874. if pcs_tattoos['lip'] > 0:
  875. $pcs_tattoos['lip_desc'] = ''
  876. if 1:
  877. $pc_descRandom['lip'] = 'tattooed'
  878. end
  879. $pc_descWordy['lip'] = 'tattooed'
  880. $pc_desc['lip'] = 'tattooed'
  881. else
  882. $pcs_tattoos['lip_desc'] = ''
  883. if 1:
  884. $pc_descRandom['lip'] = ''
  885. end
  886. $pc_descWordy['lip'] = ''
  887. $pc_desc['lip'] = ''
  888. end
  889. }
  890. if pcs_tattoos['neck'] > 0:
  891. $pcs_tattoos['neck_desc'] = ''
  892. if 1:
  893. $pc_descRandom['neck'] = 'tattooed'
  894. end
  895. $pc_descWordy['neck'] = 'tattooed'
  896. $pc_desc['neck'] = 'tattooed'
  897. else
  898. $pcs_tattoos['neck_desc'] = ''
  899. if 1:
  900. $pc_descRandom['neck'] = ''
  901. end
  902. $pc_descWordy['neck'] = ''
  903. $pc_desc['neck'] = ''
  904. end
  905. if pcs_tattoos['shoulder'] > 0:
  906. $pcs_tattoos['shoulder_desc'] = ''
  907. if 1:
  908. $pc_descRandom['shoulder'] = 'tattooed'
  909. end
  910. $pc_descWordy['shoulder'] = 'tattooed'
  911. $pc_desc['shoulder'] = 'tattooed'
  912. else
  913. $pcs_tattoos['shoulder_desc'] = ''
  914. if 1:
  915. $pc_descRandom['shoulder'] = ''
  916. end
  917. $pc_descWordy['shoulder'] = ''
  918. $pc_desc['shoulder'] = ''
  919. end
  920. if pcs_tattoos['side'] > 0:
  921. $pcs_tattoos['side_desc'] = ''
  922. if 1:
  923. $pc_descRandom['side'] = 'tattooed'
  924. end
  925. $pc_descWordy['side'] = 'tattooed'
  926. $pc_desc['side'] = 'tattooed'
  927. else
  928. $pcs_tattoos['side_desc'] = ''
  929. if 1:
  930. $pc_descRandom['side'] = ''
  931. end
  932. $pc_descWordy['side'] = ''
  933. $pc_desc['side'] = ''
  934. end
  935. if pcs_tattoos['tramp'] > 0:
  936. $pcs_tattoos['tramp_desc'] = ''
  937. if 1:
  938. $pc_descRandom['tramp'] = 'tattooed'
  939. end
  940. $pc_descWordy['tramp'] = 'tattooed'
  941. $pc_desc['tramp'] = 'tattooed'
  942. else
  943. $pcs_tattoos['tramp_desc'] = ''
  944. if 1:
  945. $pc_descRandom['tramp'] = ''
  946. end
  947. $pc_descWordy['tramp'] = ''
  948. $pc_desc['tramp'] = ''
  949. end
  950. if pcs_tattoos['under'] > 0:
  951. $pcs_tattoos['under_desc'] = ''
  952. if 1:
  953. $pc_descRandom['under'] = 'tattooed'
  954. end
  955. $pc_descWordy['under'] = 'tattooed'
  956. $pc_desc['under'] = 'tattooed'
  957. else
  958. $pcs_tattoos['under_desc'] = ''
  959. if 1:
  960. $pc_descRandom['under'] = ''
  961. end
  962. $pc_descWordy['under'] = ''
  963. $pc_desc['under'] = ''
  964. end
  965. if pcs_tattoos['wrist'] > 0:
  966. $pcs_tattoos['wrist_desc'] = ''
  967. if 1:
  968. $pc_descRandom['wrist'] = 'tattooed'
  969. end
  970. $pc_descWordy['wrist'] = 'tattooed'
  971. $pc_desc['wrist'] = 'tattooed'
  972. else
  973. $pcs_tattoos['wrist_desc'] = ''
  974. if 1:
  975. $pc_descRandom['wrist'] = ''
  976. end
  977. $pc_descWordy['wrist'] = ''
  978. $pc_desc['wrist'] = ''
  979. end
  980. end
  981. if $ARGS[0] = 'makeup':
  982. if pcs_makeup = 0:
  983. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'makeup-ruined', 'makeup-smeared', 'makeup-trashed')
  984. $pc_descWordy['makeup'] = 'clownishly makeup-smeared'
  985. $pc_descFull['makeup'] = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  986. $pcs_makeup_msg = 'Your makeup is smeared all over your face.'
  987. $pcs_makeup_tooltip = 'Your makeup is ruined.'
  988. elseif pcs_makeup = 1:
  989. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'natural', 'bare')
  990. $pc_descWordy['makeup'] = 'bare, natural'
  991. $pc_descFull['makeup'] = 'You''re not wearing any kind of makeup'
  992. $pcs_makeup_msg = 'You''re not wearing any kind of makeup.'
  993. $pcs_makeup_tooltip = 'You''re not wearing makeup.'
  994. elseif pcs_makeup = 2:
  995. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'lightly-accented', 'subtly-highlighted')
  996. $pc_descWordy['makeup'] = 'almost natural, subtly-accented'
  997. $pc_descFull['makeup'] = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
  998. $pcs_makeup_msg = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty.'
  999. $pcs_makeup_tooltip = 'Your makeup is light and subtle.'
  1000. elseif pcs_makeup = 3:
  1001. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'colourfully done-up', 'vibrantly done-up')
  1002. $pc_descWordy['makeup'] = 'colourful, tastefully done-up'
  1003. $pc_descFull['makeup'] = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
  1004. $pcs_makeup_msg = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features.'
  1005. $pcs_makeup_tooltip = 'Your makeup has some mildly vibrant tones.'
  1006. elseif pcs_makeup = 4:
  1007. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'painted-on', 'makeup-caked', 'dolled-up', 'sultry, dramatically done-up')
  1008. $pc_descWordy['makeup'] = 'heavily dolled-up and painted'
  1009. $pc_descFull['makeup'] = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
  1010. $pcs_makeup_msg = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips.'
  1011. $pcs_makeup_tooltip = 'Your makeup is thick enough to cover most imperfections.'
  1012. elseif pcs_makeup = 5:
  1013. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'painted-on', 'makeup-caked', 'dolled-up', 'sultry, dramatically done-up')
  1014. $pc_descWordy['makeup'] = 'heavily dolled-up and painted'
  1015. $pc_descFull['makeup'] = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair'
  1016. $pcs_makeup_msg = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair.'
  1017. $pcs_makeup_tooltip = 'Your makeup is professional grade.'
  1018. elseif pcs_makeup = 6:
  1019. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'bimbo', 'hawt', 'O M G', 'just, the best')
  1020. $pc_descWordy['makeup'] = 'really fucking bimbo-y'
  1021. $pc_descFull['makeup'] = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
  1022. $pcs_makeup_msg = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
  1023. $pcs_makeup_tooltip = 'OMG! your makeup is sooo bimbo fine.'
  1024. elseif pcs_makeup = 7:
  1025. $pc_desc['makeup'] = func('body_desc', 'ChooseDescWord', 'goth', 'dark', 'heavy')
  1026. $pc_descWordy['makeup'] = 'completely obscured and goth'
  1027. $pc_descFull['makeup'] = 'Your makeup is goth style, covering up any and all imperfections and fully obscures your natural features.'
  1028. $pcs_makeup_msg = 'Your makeup is goth style, covering up any and all imperfections and fully obscures your natural features.'
  1029. $pcs_makeup_tooltip = 'Your makeup is goth style.'
  1030. end
  1031. end
  1032. if $ARGS[0] = 'nipples':
  1033. if pcs_nips < 20:
  1034. $nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
  1035. $pc_desc['nipples'] = func('body_desc', 'ChooseDescWord', 'small', 'tiny', 'little')
  1036. $pc_descWordy['nipples'] = 'small, tiny'
  1037. elseif pcs_nips >= 20 and pcs_nips < 40:
  1038. $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
  1039. $pc_desc['nipples'] = func('body_desc', 'ChooseDescWord', 'slightly large', 'decently-sized')
  1040. $pc_descWordy['nipples'] = 'slightly large'
  1041. elseif pcs_nips >= 40 and pcs_nips < 60:
  1042. $nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
  1043. $pc_desc['nipples'] = func('body_desc', 'ChooseDescWord', 'puffy', 'swollen', 'large')
  1044. $pc_descWordy['nipples'] = 'large, puffy'
  1045. elseif pcs_nips >= 60 and pcs_nips < 80:
  1046. $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
  1047. $pc_desc['nipples'] = func('body_desc', 'ChooseDescWord', 'big', 'thick')
  1048. $pc_descWordy['nipples'] = 'big, thick'
  1049. else
  1050. !! If greater or equal to 80
  1051. $nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
  1052. $pc_desc['nipples'] = func('body_desc', 'ChooseDescWord', 'enormous', 'meaty', 'huge', 'unmistakably big')
  1053. $pc_descWordy['nipples'] = 'huge, meaty'
  1054. end
  1055. end
  1056. if $ARGS[0] = 'clit':
  1057. if clit_size < 20:
  1058. $pc_descWordy['clit'] = 'small, oft-hidden'
  1059. $pc_desc['clit'] = func('body_desc', 'ChooseDescWord', 'small', 'tiny')
  1060. $clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
  1061. elseif clit_size >= 20 and clit_size < 40:
  1062. $pc_descWordy['clit'] = 'big, easily-found'
  1063. $pc_desc['clit'] = func('body_desc', 'ChooseDescWord', 'large', 'big', 'engorged')
  1064. $clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
  1065. elseif clit_size >= 40 and clit_size < 60:
  1066. $pc_descWordy['clit'] = 'thick, meaty'
  1067. $pc_desc['clit'] = func('body_desc', 'ChooseDescWord', 'meaty', 'thick', 'swollen')
  1068. $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
  1069. elseif clit_size >= 60 and clit_size < 80:
  1070. $pc_descWordy['clit'] = 'big, practically phallic'
  1071. $pc_desc['clit'] = func('body_desc', 'ChooseDescWord', 'oversized', 'huge')
  1072. $clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
  1073. else
  1074. !! If greater or equal to 80
  1075. $pc_desc['clit'] = func('body_desc', 'ChooseDescWord', 'huge', 'massive', 'cock-like')
  1076. $pc_descWordy['clit'] = 'enormous, phallic'
  1077. $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
  1078. end
  1079. end
  1080. if $ARGS[0] = 'pubes':
  1081. if lashair = 1:
  1082. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'hairless', 'smooth', 'bald', 'silky-smooth')
  1083. $pc_descWordy['pubes'] = 'eternally silky-smooth'
  1084. $pcs_pubes = 'You have a smooth, <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">bald pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1085. $pube_style['word'] = 'shaved'
  1086. else
  1087. $pube_style['shape'] = ''
  1088. if pcs_pubes <= 3:
  1089. lobkoef = 3
  1090. $pcs_pubes = 'You have a smoothly <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shaved pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1091. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'silky', 'hairless', 'smooth-shaven', 'freshly-shaven')
  1092. $pc_descWordy['pubes'] = 'silky, freshly-shaven'
  1093. $pube_style['word'] = 'shaved'
  1094. elseif pcs_pubes <= 10:
  1095. lobkoef = 0
  1096. $pcs_pubes = 'You have stubble growing around your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1097. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'stubbly', 'scratchy', 'roughly-stubbled')
  1098. $pc_descWordy['pubes'] = 'scratchy, roughly-stubbled'
  1099. $pube_style['word'] = 'stubble'
  1100. elseif pcs_pubes <= 15:
  1101. lobkoef = 0
  1102. $pcs_pubes = 'You have a tidy patch of hair growing above your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1103. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'almost bare', 'barely-haired', 'well-kept')
  1104. $pc_descWordy['pubes'] = 'scratchy, roughly-stubbled'
  1105. $pube_style['word'] = 'patch'
  1106. elseif pcs_pubes <= 25:
  1107. lobkoef = 0
  1108. $pube_style['word'] = 'trimmed'
  1109. if pubestyle = 9:
  1110. $pube_style['shape'] = 'bush'
  1111. $pcs_pubes = 'You have neatly trimmed section of hair around your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1112. elseif pubestyle = 12:
  1113. $pube_style['word'] = 'patch'
  1114. $pcs_pubes = 'You have cute little patch of bush at the top of your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1115. elseif pubestyle = 13:
  1116. $pube_style['shape'] = 'strip'
  1117. $pcs_pubes = 'You have tidy strip of bush covering your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1118. elseif pubestyle = 14:
  1119. $pube_style['shape'] = 'rectangle'
  1120. $pcs_pubes = 'You have neatly trimmed rectangle of hair just above your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1121. else
  1122. if pubestyle = 2:
  1123. $pube_style['shape'] = 'V'
  1124. $pcs_pubes = 'You have a cleanly trimmed mat of pubic hair in the <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shape of a V</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1125. elseif pubestyle = 3:
  1126. $pube_style['shape'] = 'triangle'
  1127. $pcs_pubes = 'You have a cleanly trimmed mat of pubic hair in the <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shape of a triangle</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1128. elseif pubestyle = 4:
  1129. $pube_style['shape'] = 'landing strip'
  1130. $pcs_pubes = 'You have a cleanly trimmed <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">landing strip</a> between your legs. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1131. elseif pubestyle = 5:
  1132. $pube_style['shape'] = 'heart'
  1133. $pcs_pubes = 'You have a cleanly trimmed mat of pubic hair in the <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shape of a heart</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1134. elseif pubestyle = 6:
  1135. $pube_style['shape'] = 'flame'
  1136. $pcs_pubes = 'You have a cleanly trimmed mat of pubic hair in the <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shape of a flame</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1137. elseif pubestyle = 7:
  1138. $pube_style['shape'] = 'cross'
  1139. $pcs_pubes = 'You have a cleanly trimmed mat of pubic hair in the <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">shape of a cross</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1140. elseif pubestyle = 8:
  1141. $pube_style['shape'] = 'bush'
  1142. $pcs_pubes = 'You have a close-cropped lawn of pubic hair covering your <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pussy</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1143. end
  1144. end
  1145. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'wispy-haired', 'lightly-furred', 'trimmed', 'well-maintained')
  1146. $pc_descWordy['pubes'] = 'trimmed, well-kept'
  1147. elseif pcs_pubes <= 30:
  1148. lobkoef = 0
  1149. $pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pubic hair</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1150. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'furred', 'bushy', 'partially-maintained')
  1151. $pc_descWordy['pubes'] = 'bushy, thick'
  1152. $pube_style['word'] = 'bush'
  1153. else
  1154. lobkoef = 0
  1155. $pcs_pubes = 'You have a wild and unkempt jungle of <a href="exec:view''<<func(''$body_image'', ''pubes'')>>''">pubic hair</a>. <<$pcs_piercings[''pussy_desc'']>><br><<$clitsize>>'
  1156. $pc_desc['pubes'] = func('body_desc', 'ChooseDescWord', 'thickly-furred', 'very hairy', 'ill-maintained')
  1157. $pc_descWordy['pubes'] = 'hairy, wild-maned'
  1158. $pube_style['word'] = 'untrimmed'
  1159. end
  1160. end
  1161. gs 'body_desc', 'pube_desc_update'
  1162. end
  1163. if $ARGS[0] = 'pube_desc_update':
  1164. if pcs_pubes <= 3:
  1165. if lashair = 1:
  1166. $pube_desc = 'lasered'
  1167. else
  1168. $pube_desc = 'shaved'
  1169. end
  1170. elseif pcs_pubes <= 10:
  1171. $pube_desc = 'stubbly'
  1172. elseif pcs_pubes <= 15:
  1173. $pube_desc = 'mini bush'
  1174. elseif pcs_pubes <= 25:
  1175. if pubestyle = 2:
  1176. $pube_desc = 'little V'
  1177. elseif pubestyle = 3:
  1178. $pube_desc = 'little triangle'
  1179. elseif pubestyle = 4:
  1180. $pube_desc = 'landing strip'
  1181. elseif pubestyle = 5:
  1182. $pube_desc = 'heart shape'
  1183. elseif pubestyle = 6:
  1184. $pube_desc = 'fire shape'
  1185. elseif pubestyle = 7:
  1186. $pube_desc = 'cross shape'
  1187. elseif pubestyle = 8:
  1188. $pube_desc = 'trimmed'
  1189. elseif pubestyle = 9:
  1190. $pube_desc = 'small bush'
  1191. elseif pubestyle = 12:
  1192. $pube_desc = 'mini bush'
  1193. elseif pubestyle = 13:
  1194. $pube_desc = 'strip of bush'
  1195. elseif pubestyle = 14:
  1196. $pube_desc = 'rectangle'
  1197. end
  1198. elseif pcs_pubes <= 30:
  1199. $pube_desc = 'full bush'
  1200. else
  1201. $pube_desc = 'wild bush'
  1202. end
  1203. end
  1204. if $ARGS[0] = 'legs':
  1205. if pcs_leghair <= 0:
  1206. $pc_desc['legs'] = func('body_desc', 'ChooseDescWord', 'smooth', 'silky', 'soft')
  1207. $pc_descWordy['legs'] = 'soft and silky-smooth'
  1208. $pcs_leghair = 'You have smooth legs.'
  1209. elseif pcs_leghair <= 3:
  1210. $pc_desc['legs'] = func('body_desc', 'ChooseDescWord', 'slightly scratchy', 'faintly stubbly')
  1211. $pc_descWordy['legs'] = 'slightly rough, invisibly-stubbled'
  1212. $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
  1213. elseif pcs_leghair <= 6:
  1214. $pc_desc['legs'] = func('body_desc', 'ChooseDescWord', 'somewhat hairy', 'lightly-furred')
  1215. $pc_descWordy['legs'] = 'lightly-furred, soft-haired'
  1216. $pcs_leghair = 'You have light and just barely visible hair on your legs.'
  1217. else
  1218. $pc_desc['legs'] = func('body_desc', 'ChooseDescWord', 'hairy', 'unshaven', 'ungroomed')
  1219. $pc_descWordy['legs'] = 'hairy, unshaven'
  1220. $pcs_leghair = 'Your legs are hairy.'
  1221. end
  1222. end
  1223. if $ARGS[0] = 'hair':
  1224. !!! Maruda Hair Mod
  1225. if pcs_hairlng <= 80:
  1226. hpigtail = 0
  1227. hscrunchw = 0
  1228. hpingripw = 0
  1229. if defcurly = 0:
  1230. curly = 0
  1231. else
  1232. !! This sets curly hair to as high a number as possible to prevent it straightening in error
  1233. curly = 2147483647
  1234. end
  1235. hbraids = 0
  1236. if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
  1237. end
  1238. if pcs_hairlng > 800:
  1239. hpingripw = 0
  1240. hbraids = 0
  1241. end
  1242. if pcs_hairlng > 800 and hpigtail >= 1:
  1243. hscrunchw = 0
  1244. hpigtail = 0
  1245. end
  1246. if hbraids >= 1:
  1247. hscrunchw = 0
  1248. hpingripw = 0
  1249. hpigtail = 0
  1250. end
  1251. !Hair status - whether hair is tangled or combed
  1252. if pcs_hairbsh = -1:
  1253. $pcs_hairbsh = 'messy from sex. You should brush it so everyone doesn''t know you what you''ve been up to'
  1254. $pc_desc['hair status'] = func('body_desc', 'ChooseDescWord', 'bed-tangled', 'sex-tousled', 'disheveled', 'mussed')
  1255. $pc_descWordy['hair status'] = 'messy, just-fucked'
  1256. elseif pcs_hairbsh = 0:
  1257. if pcs_hairlng > 30:
  1258. $pcs_hairbsh = 'tangled. You should comb it to keep it healthy'
  1259. $pc_desc['hair status'] = func('body_desc', 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
  1260. $pcdesc_hairmessinsertive = ', tangled'
  1261. $pc_descWordy['hair status'] = 'tangled, poorly-kept'
  1262. else
  1263. $pcs_hairbsh = 'messy. You should style it to keep it looking good'
  1264. $pc_desc['hair status'] = func('body_desc', 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
  1265. $pc_descWordy['hair status'] = 'messy, poorly-kept'
  1266. end
  1267. else
  1268. $pcs_hairbsh = 'neatly styled'
  1269. $pc_desc['hair status'] = func('body_desc', 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
  1270. $pcdesc_hairmessinsertive = ', neat'
  1271. $pc_descWordy['hair status'] = 'neat, well-maintained'
  1272. end
  1273. !Hair texture - straight or curly
  1274. if curly <= 0:
  1275. $curly = 'straight, slightly wavy '
  1276. !! Not a lot of variety here, I know -- it is for future compatibility, so everything can have be reached in the same fashion.
  1277. $pc_desc['hair texture'] = 'straight'
  1278. $pc_descWordy['hair texture'] = 'locks'
  1279. else
  1280. $curly = 'curly '
  1281. $pc_desc['hair texture'] = func('body_desc', 'ChooseDescWord', 'curls', 'ringlets')
  1282. $pc_descWordy['hair texture'] = 'playfully curly'
  1283. end
  1284. !! 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.
  1285. if hbangs <= 0:
  1286. $hbangs = ''
  1287. $pc_desc['hair bang'] = 'forehead'
  1288. $pc_descWordy['hair bang'] = 'forehead'
  1289. else
  1290. $hbangs = ', with a fringe covering your forehead'
  1291. $pc_desc['hair bang'] = func('body_desc', 'ChooseDescWord', 'bangs', 'fringe')
  1292. $pc_descWordy['hair bang'] = 'fringe'
  1293. end
  1294. !! 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.
  1295. !! 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.
  1296. if pcs_haircol = 0:
  1297. $pcs_haircol = 'black'
  1298. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'black', 'ebony', 'obsidian', 'jet-black', 'charcoal black', 'ravenblack','sable')
  1299. $pc_descWordy['hair colour'] = 'dark, obsidian-black'
  1300. elseif pcs_haircol = 1:
  1301. $pcs_haircol = 'brown'
  1302. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'brown', 'russet brown', 'chestnut brown')
  1303. $pc_descWordy['hair colour'] = 'russet brown'
  1304. elseif pcs_haircol = 2:
  1305. $pcs_haircol = 'red'
  1306. !! Remember, this is not the vibrant dyed red colour, this is a natural red
  1307. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'fiery red', 'coppery red', 'ginger')
  1308. $pc_descWordy['hair colour'] = 'fiery red'
  1309. elseif pcs_haircol = 3:
  1310. $pcs_haircol = 'blonde'
  1311. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'blonde', 'golden-blonde', 'golden', 'fair, blonde')
  1312. $pc_descWordy['hair colour'] = 'beautiful golden-blonde'
  1313. elseif pcs_haircol = 4:
  1314. $pcs_haircol = 'light red'
  1315. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'strawberry blonde', 'fire-engine red', 'scarlet')
  1316. $pc_descWordy['hair colour'] = 'glowing, pale red'
  1317. elseif pcs_haircol = 5:
  1318. $pcs_haircol = 'dark blue'
  1319. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'dark blue', 'blurple', 'midnight blue')
  1320. $pc_descWordy['hair colour'] = 'rich, purplish-blue'
  1321. elseif pcs_haircol = 6:
  1322. $pcs_haircol = 'blue'
  1323. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'blue', 'electric blue')
  1324. $pc_descWordy['hair colour'] = 'vibrant, electric blue'
  1325. elseif pcs_haircol = 7:
  1326. $pcs_haircol = 'light blue'
  1327. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'light blue', 'azure', 'pale blue', 'candy-floss blue')
  1328. $pc_descWordy['hair colour'] = 'pale, candy-coloured blue'
  1329. elseif pcs_haircol = 8:
  1330. $pcs_haircol = 'dark green'
  1331. $pc_desc['hair colour'] = 'dark green'
  1332. !! 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.
  1333. $pc_descWordy['hair colour'] = 'deep, emerald-green'
  1334. elseif pcs_haircol = 9:
  1335. $pcs_haircol = 'green'
  1336. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'green', 'forest green', 'fern-green')
  1337. $pc_descWordy['hair colour'] = 'vibrant, forest-green'
  1338. elseif pcs_haircol = 10:
  1339. $pcs_haircol = 'light green'
  1340. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'light green', 'pale green', 'leaf-green', 'minty green', 'candy-floss green')
  1341. $pc_descWordy['hair colour'] = 'pale, leaf-green'
  1342. elseif pcs_haircol = 11:
  1343. $pcs_haircol = 'dark pink'
  1344. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'dark pink', 'purplish-pink')
  1345. $pc_descWordy['hair colour'] = 'dark, purplish-pink'
  1346. elseif pcs_haircol = 12:
  1347. $pcs_haircol = 'pink'
  1348. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'bubblegum-pink', 'Barbie pink', 'fuchsia', 'pink', 'bright pink')
  1349. $pc_descWordy['hair colour'] = 'bright, bubblegum-pink'
  1350. elseif pcs_haircol = 13:
  1351. $pcs_haircol = 'light pink'
  1352. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'light pink', 'pale pink', 'babydoll pink', 'China pink', 'cotton-candy pink', 'candy-floss pink')
  1353. $pc_descWordy['hair colour'] = 'pale, cotton-candy pink'
  1354. elseif pcs_haircol = 14:
  1355. $pcs_haircol = 'dark purple'
  1356. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'dark purple', 'deep purple', 'midnight purple', 'indigo')
  1357. $pc_descWordy['hair colour'] = 'deep, bluish-purple'
  1358. elseif pcs_haircol = 15:
  1359. $pcs_haircol = 'purple'
  1360. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'purple', 'plum purple', 'royal purple')
  1361. $pc_descWordy['hair colour'] = 'rich, royal purple'
  1362. elseif pcs_haircol = 16:
  1363. $pcs_haircol = 'light purple'
  1364. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'light purple', 'pale purple', 'amethyst coloured', 'lavender')
  1365. $pc_descWordy['hair colour'] = 'pale, floral purple'
  1366. elseif pcs_haircol = 17:
  1367. $pcs_haircol = 'light orange'
  1368. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'light orange', 'pumpkin orange', 'bright orange')
  1369. $pc_descWordy['hair colour'] = 'bright, fiery orange'
  1370. elseif pcs_haircol = 18:
  1371. $pcs_haircol = 'dark red'
  1372. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'dark red', 'wine red', 'auburn')
  1373. $pc_descWordy['hair colour'] = 'deep, seductive red'
  1374. elseif pcs_haircol = 19:
  1375. $pcs_haircol = 'medium red'
  1376. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'medium red', 'cherry red', 'bronze')
  1377. $pc_descWordy['hair colour'] = 'strong, fiery red'
  1378. elseif pcs_haircol = 20:
  1379. $pcs_haircol = 'turquoise'
  1380. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'turquoise', 'ultramarine', 'aquamarine', 'sea green')
  1381. $pc_descWordy['hair colour'] = 'soft milky blue'
  1382. elseif pcs_haircol = 21:
  1383. $pcs_haircol = 'medium orange'
  1384. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'medium orange', 'pumpkin orange', 'carrot orange')
  1385. $pc_descWordy['hair colour'] = 'strong, fiery orange'
  1386. elseif pcs_haircol = 22:
  1387. $pcs_haircol = 'dark orange'
  1388. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'dark orange', 'burnt Orange', 'rust')
  1389. $pc_descWordy['hair colour'] = 'strong, burnt orange'
  1390. !! This below is a catch-all, it should not actually ever wind up occurring, but just in case it does...
  1391. else
  1392. $pcs_haircol = 'strangely-coloured'
  1393. $pc_desc['hair colour'] = func('body_desc', 'ChooseDescWord', 'strangely-coloured', 'multicoloured')
  1394. $pc_descWordy['hair colour'] = 'exceptionally variegated'
  1395. end
  1396. !hair style
  1397. if hscrunchw = 1:
  1398. $hairstyle = 'A hair-tie holds your hair in place with a ponytail.'
  1399. $pc_desc['hair style'] = 'ponytail'
  1400. $pc_descWordy['hair style'] = 'tight, high-set <<$pcs_haircol>> ponytail'
  1401. elseif hscrunchw = 2:
  1402. !Pigtails
  1403. $hairstyle = 'Two scrunchies hold your hair up into two cute, playful twin tails.'
  1404. $pc_desc['hair style'] = 'pigtails'
  1405. $pc_descWordy['hair style'] = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
  1406. elseif hbraids > 0:
  1407. $hairstyle = 'Your hair is beautifully braided.'
  1408. $pc_desc['hair style'] = 'braid'
  1409. $pc_descWordy['hair style'] = 'delicately-wound <<$pcs_haircol>> braid'
  1410. elseif hpingripw > 0:
  1411. $hairstyle = 'Hair-pins hold your hair in place in a stylish updo.'
  1412. $pc_desc['hair style'] = 'upswept'
  1413. $pc_descWordy['hair style'] = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
  1414. else
  1415. $hairstyle = ''
  1416. $pc_desc['hair style'] = 'loose'
  1417. $pc_descWordy['hair style'] = 'loose and free <<$pcs_haircol>> hair'
  1418. end
  1419. !Hair length
  1420. if $face_style['avatar_hair'] ! '':
  1421. $hair = $face_style['avatar_hair']
  1422. !! 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
  1423. $pc_desc['hair length'] = 'normal length'
  1424. $pc_descWordy['hair length'] = 'normal length'
  1425. else
  1426. if pcs_hairlng <= 30:
  1427. $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.'
  1428. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'extremly short', 'boyishly short')
  1429. $pc_descWordy['hair length'] = 'short, and altogether rather boyish'
  1430. elseif pcs_hairlng > 30 and pcs_hairlng <= 80:
  1431. $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>>.'
  1432. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'short', 'pixie-cut', 'androgynously short')
  1433. $pc_descWordy['hair length'] = 'short, page-boy'
  1434. elseif pcs_hairlng > 80 and pcs_hairlng <= 160:
  1435. $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. <<$hairstyle>>'
  1436. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'medium', 'average')
  1437. $pc_descWordy['hair length'] = 'medium-length'
  1438. elseif pcs_hairlng > 160 and pcs_hairlng <= 260:
  1439. $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>>. <<$hairstyle>>'
  1440. $pc_desc['hair length'] = 'moderate'
  1441. $pc_descWordy['hair length'] = 'shoulder-length'
  1442. elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
  1443. $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>>. <<$hairstyle>>'
  1444. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'long', 'lengthy')
  1445. $pc_descWordy['hair length'] = 'long, past the shoulders'
  1446. elseif pcs_hairlng > 400 and pcs_hairlng <= 600:
  1447. $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>>. <<$hairstyle>>'
  1448. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'very long', 'rather lengthy', 'quite long', 'back-length')
  1449. $pc_descWordy['hair length'] = 'very long, back-length'
  1450. elseif pcs_hairlng > 600 and pcs_hairlng <= 800:
  1451. $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>>. <<$hairstyle>>'
  1452. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'extremely long', 'waist-length')
  1453. $pc_descWordy['hair length'] = 'extremely long and waist-length'
  1454. else
  1455. $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>>. <<$hairstyle>>'
  1456. $pc_desc['hair length'] = func('body_desc', 'ChooseDescWord', 'exceptionally long', 'incredibly lengthy')
  1457. $pc_descWordy['hair length'] = 'exceptionally lengthy and princess-like'
  1458. end
  1459. end
  1460. !! A pair of ready-made long strings for writers to pull from for descriptions
  1461. $pc_desc['hair'] = '<<$pc_desc[''hair status'']>>, <<$pc_desc[''hair length'']>> <<$pc_desc[''hair colour'']>> <<$pc_descWordy[''hair texture'']>>'
  1462. $pc_descWordy['hair'] = '<<$pc_desc[''hair status'']>>, <<$pc_descWordy[''hair length'']>> <<$pc_descWordy[''hair texture'']>> of <<$pc_descWordy[''hair colour'']>>'
  1463. end
  1464. if $ARGS[0] = 'appearance':
  1465. if pcs_apprnc < 40:
  1466. $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.'
  1467. elseif pcs_apprnc < 60:
  1468. $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you, unless they are making fun of the way you look.'
  1469. elseif pcs_apprnc < 80:
  1470. $pcs_apprnc = 'Your looks are bad. People often tease you about your looks or just ignore you exist.'
  1471. elseif pcs_apprnc < 100:
  1472. $pcs_apprnc = 'Your looks are below average. Hardly anyone notices you, except to occasionally tease you about your looks.'
  1473. elseif pcs_apprnc < 125:
  1474. $pcs_apprnc = 'Your looks are average. Hardly anyone notices you.'
  1475. elseif pcs_apprnc < 150:
  1476. $pcs_apprnc = 'You are considered cute. Most guys and some girls find you cute, in a cute girl next door look.'
  1477. elseif pcs_apprnc < 165:
  1478. $pcs_apprnc = 'You are considered attractive. You sometimes catch guys and even some other girls checking you out.'
  1479. elseif pcs_apprnc < 180:
  1480. $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking, you often get asked if you are a model.'
  1481. elseif pcs_apprnc < 199:
  1482. $pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring at you by their girlfriends.'
  1483. elseif pcs_apprnc < 220:
  1484. $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
  1485. else
  1486. $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
  1487. end
  1488. end
  1489. --- body_desc ---------------------------------