body_desc.qsrc 60 KB

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