body_desc.qsrc 65 KB

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