1
0

body 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467
  1. # body
  2. if pcs_throat = 0:
  3. thpic = 0
  4. $pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
  5. $throattipe = 'absolutely unusual'
  6. elseif pcs_throat <= 5:
  7. thpic = 1
  8. $pcs_throat = 'You have an inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
  9. $throattipe = 'virgin'
  10. elseif pcs_throat <= 10:
  11. thpic = 2
  12. $pcs_throat = 'Your working mouth leads to a sensitive <a href="exec:view''images/pc/body/throat/th2.jpg''">throat</a>.'
  13. $throattipe = 'sensitive'
  14. elseif pcs_throat <= 15:
  15. thpic = 3
  16. $pcs_throat = 'You have an experienced mouth and slightly stretched <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
  17. $throattipe = 'slightly stretched'
  18. elseif pcs_throat <= 25:
  19. thpic = 4
  20. $pcs_throat = 'You have a capacious mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
  21. $throattipe = 'stretched'
  22. elseif pcs_throat <= 35:
  23. thpic = 5
  24. $pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
  25. $throattipe = 'tinned'
  26. else
  27. thpic = 6
  28. $pcs_throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/pc/body/throat/th6.jpg''">throat</a> is like a bottomless pit.'
  29. $throattipe = 'bottomless'
  30. end
  31. if pcs_breath = 1:$pcs_throat += ' Which smelled fresh and minty last time you checked.'
  32. if pcs_vag = 0:
  33. puspic = 0
  34. $pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/vag0.jpg''">pussy</a> still has a membrane.'
  35. $vaginatipe = 'virgin'
  36. elseif pcs_vag <= 5:
  37. puspic = 1
  38. $pcs_vag = 'You have a tight <a href="exec:view''images/pc/body/pussy/vag1.jpg''">pussy</a>.'
  39. $vaginatipe = 'narrow'
  40. elseif pcs_vag <= 10:
  41. puspic = 2
  42. $pcs_vag = 'You have closed, similar to a slit <a href="exec:view''images/pc/body/pussy/vag2.jpg''">vagina</a>.'
  43. $vaginatipe = 'close'
  44. elseif pcs_vag <= 15:
  45. puspic = 3
  46. $pcs_vag = 'You have a slightly stretched, elastic <a href="exec:view''images/pc/body/pussy/vag3.jpg''">vagina</a>.'
  47. $vaginatipe = 'tight'
  48. elseif pcs_vag <= 25:
  49. puspic = 4
  50. $pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/vag4.jpg''">vagina</a>.'
  51. $vaginatipe = 'developed'
  52. elseif pcs_vag <= 35:
  53. puspic = 5
  54. $pcs_vag = 'Between your legs you have a gaping <a href="exec:view''images/pc/body/pussy/vag5.jpg''">tunnel</a>.'
  55. $vaginatipe = 'broken-down'
  56. else
  57. puspic = 6
  58. $pcs_vag = 'The fact is, in place of a pussy, you have a <a href="exec:view''images/pc/body/pussy/vag6.jpg''">well</a> as deep as the Mariana Trench.'
  59. $vaginatipe = 'dimensionless'
  60. end
  61. if analplugIN = 0:
  62. if pcs_ass = 0:
  63. anpic = 0
  64. $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/0.jpg''">anus</a>.'
  65. elseif pcs_ass <= 5:
  66. anpic = 1
  67. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/1.jpg''">anus</a> is barely used, and looking at it none would know it was used for sex.'
  68. elseif pcs_ass <= 10:
  69. anpic = 2
  70. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/2.jpg''">anus</a> has the shape of an asterisk.'
  71. elseif pcs_ass <= 15:
  72. anpic = 3
  73. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/3.jpg''">anus</a> is slightly parted, it has been used quite often.'
  74. elseif pcs_ass <= 25:
  75. anpic = 4
  76. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/4.jpg''">anus</a> look like a wide hole, anyone would think that the only thing you do is anal sex.'
  77. elseif pcs_ass <= 35:
  78. anpic = 5
  79. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
  80. else
  81. anpic = 6
  82. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
  83. end
  84. elseif analplugIN = 1 and tanga = 1:
  85. $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
  86. elseif analplugIN = 1 and tanga = 0:
  87. if pirsG = 1 and pirsGL = 1:
  88. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
  89. elseif pirsG ! 1 and pirsGL = 1:
  90. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
  91. elseif pirsG = 1 and pirsGL ! 1:
  92. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
  93. else
  94. $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
  95. end
  96. end
  97. !!!!!!!!!!!!!!!!
  98. !!!!!SIZE AND WEIGHT!!!
  99. !!!!!!!!!!!!!!!!
  100. if dounspell = 0:
  101. pcs_hips = (pcs_hgt * hratio) / 100 + vhips
  102. pcs_waist = (pcs_hips * wratio) / 100 + vofat
  103. pcs_band = (pcs_waist * bratio) / 100 + vofat
  104. pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
  105. pcs_cupsize = pcs_bust - pcs_band
  106. if pcs_cupsize <= 5:
  107. tits = 0
  108. $titsize = 'AA cup'
  109. elseif pcs_cupsize <= 10:
  110. tits = 1
  111. $titsize = 'A cup'
  112. elseif pcs_cupsize <= 15:
  113. tits = 2
  114. $titsize = 'B cup'
  115. elseif pcs_cupsize <= 20:
  116. tits = 3
  117. $titsize = 'C cup'
  118. elseif pcs_cupsize <= 25:
  119. tits = 4
  120. $titsize = 'D cup'
  121. elseif pcs_cupsize <= 30:
  122. tits = 5
  123. $titsize = 'E cup'
  124. elseif pcs_cupsize <= 35:
  125. tits = 6
  126. $titsize = 'F cup'
  127. elseif pcs_cupsize <= 40:
  128. tits = 7
  129. $titsize = 'G cup'
  130. elseif pcs_cupsize <= 45:
  131. tits = 8
  132. $titsize = 'H cup'
  133. elseif pcs_cupsize <= 50:
  134. tits = 9
  135. $titsize = 'I cup'
  136. elseif pcs_cupsize <= 55:
  137. tits = 10
  138. $titsize = 'J cup'
  139. else
  140. tits = 11
  141. $titsize = 'K cup'
  142. end
  143. !!!
  144. !!This sets weight
  145. pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
  146. end
  147. !!! Maruda Hair Mod
  148. if pcs_hairlng <= 80:
  149. hpigtail = 0
  150. hscrunchw = 0
  151. hpingripw = 0
  152. if defcurly = 0:
  153. curly = 0
  154. else
  155. curly = 2147483647
  156. end
  157. hbraids = 0
  158. if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
  159. end
  160. if pcs_hairlng > 800:
  161. hpingripw = 0
  162. hbraids = 0
  163. end
  164. if pcs_hairlng > 800 and hpigtail >= 1:
  165. hscrunchw = 0
  166. hpigtail = 0
  167. end
  168. if hbraids >= 1:
  169. hscrunchw = 0
  170. hpingripw = 0
  171. hbangs = 0
  172. hpigtail = 0
  173. end
  174. if pcs_hairbsh = 0:
  175. if pcs_hairlng > 30:
  176. $pcs_hairbsh = '<b>tangled</b>. You should comb it to keep it healthy'
  177. else
  178. $pcs_hairbsh = '<b>messy</b>. You should style it to keep it looking good'
  179. end
  180. else
  181. $pcs_hairbsh = 'neatly styled'
  182. end
  183. if curly <= 0:$curly = 'straight, slightly wavy '
  184. if curly > 0:$curly = 'curly '
  185. if hbangs <= 0:$hbangs = ''
  186. if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
  187. if hscrunchw <= 0:$hscrunch = ''
  188. if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair in place with a ponytail.'
  189. if hpingripw <= 0:$hpingrip = ''
  190. if hpingripw > 0:$hpingrip = 'The Hair-pins hold your hair in place in an updo hairstyle.'
  191. if hscrunchw <= 0:$hpigtail = ''
  192. if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair in place in twin tail style.'
  193. if hbraids <= 0:$hbraids = ''
  194. if hbraids > 0:$hbraids = ' Your hair is beautifully braided.'
  195. if pcs_haircol = 0:$pcs_haircol = 'black'
  196. if pcs_haircol = 1:$pcs_haircol = 'brown'
  197. if pcs_haircol = 2:$pcs_haircol = 'red'
  198. if pcs_haircol = 3:$pcs_haircol = 'blonde'
  199. if avatar_hair = 1:
  200. $hair = $av_hair
  201. else
  202. if pcs_hairlng <= 30:$hair = 'You have very short <<$pcs_haircol>> hair. It doesn''t cover your ears, with some masculine complexions. One might mistake you for a man. Nonetheless, some people like this style as it''s easy to take care off.'
  203. if pcs_hairlng > 30 and pcs_hairlng <= 80:$hair = 'You have short <<$pcs_haircol>> hair which may cover your ears to the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$pcs_hairbsh>>.'
  204. if pcs_hairlng > 80 and pcs_hairlng <= 160:$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length. It fits almost all face shapes. Your hair is at the moment <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
  205. if pcs_hairlng > 160 and pcs_hairlng <= 260:$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair reaches your shoulders with several strains going beyond. Currently your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  206. if pcs_hairlng > 260 and pcs_hairlng <= 400:$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your bra strap line, hairdressers would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  207. if pcs_hairlng > 400 and pcs_hairlng <= 600:$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 styles are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  208. if pcs_hairlng > 600 and pcs_hairlng <= 800:$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 styles are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  209. if pcs_hairlng > 800:$hair = 'You have extremely long <<$pcs_haircol>> hair<<$hbangs>>, that goes past your butt. Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hscrunch>><<$hbraids>>'
  210. end
  211. !!! Maruda Hair Mod
  212. !! Appearance factors and calculations
  213. if pcs_lip > 4:pcs_lip = 4
  214. if pcs_lip < 0:pcs_lip = 0
  215. if pcs_lipbalm > 0:
  216. if pcs_lip = 0:$pcs_lipbalm = ' shiny'
  217. if pcs_lip = 1:$pcs_lipbalm = ' shiny'
  218. if pcs_lip = 2:$pcs_lipbalm = ' brilliant and juicy'
  219. if pcs_lip = 3:$pcs_lipbalm = ' juicy'
  220. if pcs_lip = 4:$pcs_lipbalm = ' glossy'
  221. else
  222. $pcs_lipbalm = ''
  223. end
  224. if pirsA > 0 and pirsA < 10000:$pirsA = 'When you are talking to people, they can get a glimpse of your tongue piercing.'
  225. if pirsA ! 1:$pirsA = ''
  226. if pirsB > 0 and pirsB < 10000:$pirsB = 'You lip is pierced.'
  227. if pirsB ! 1:$pirsB = ''
  228. if pcs_lip = 0:$lip = 'You have thin<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
  229. if pcs_lip = 1:$lip = 'You have normal<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
  230. if pcs_lip = 2:$lip = 'You have plump<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
  231. if pcs_lip = 3:$lip = 'You have big, pouting,<<$pcs_lipbalm>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
  232. if pcs_lip = 4:$lip = 'You have thick<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
  233. if pcs_tan <= 0:$pcs_tan = 'pale'
  234. if pcs_tan > 0:$pcs_tan = 'tanned'
  235. if pirsC > 0 and pirsC < 10000:$pirsC = 'You are wearing earrings.'
  236. if pirsC ! 1:$pirsC = ''
  237. if pirsD > 0 and pirsD < 10000:$pirsD = 'You have a piercing inserted in your nose.'
  238. if pirsD ! 1:$pirsD = ''
  239. if pirsE > 0 and pirsE < 10000:$pirsE = 'Your eyebrow is pierced.'
  240. if pirsE ! 1:$pirsE = ''
  241. if pcs_skin > 100: pcs_skin = 100
  242. if pcs_skin < 0: pcs_skin = 0
  243. if pcs_skin < 20:
  244. $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
  245. elseif pcs_skin < 40:
  246. $skin = 'Your <<$pcs_tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
  247. elseif pcs_skin < 60:
  248. $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
  249. elseif pcs_skin < 80:
  250. $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
  251. else
  252. $skin = 'You have <<$pcs_tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
  253. end
  254. if pcs_eyecol = 0:$pcs_eyecol = 'brown'
  255. if pcs_eyecol = 1:$pcs_eyecol = 'gray'
  256. if pcs_eyecol = 2:$pcs_eyecol = 'green'
  257. if pcs_eyecol = 3:$pcs_eyecol = 'blue'
  258. if pcs_lashes > 2:pcs_lashes = 2
  259. if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
  260. if pcs_lashes = 1:$pcs_lashes = 'normal eyelashes'
  261. if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
  262. if brow = 0 and browper = 0:$brow = 'natural eyebrows'
  263. if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
  264. if glass <= 0:$glass = '' & glassvnesh = 0
  265. if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
  266. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  267. if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 0
  268. !!!
  269. if pcs_eyesize > 3:pcs_eyesize = 3
  270. if pcs_eyesize = 0:$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  271. if pcs_eyesize = 1:$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  272. if pcs_eyesize = 2:$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  273. if pcs_eyesize = 3:$glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  274. mopkoef = pcs_makupskl / 5
  275. if pcs_makeup = 0: mopkoef = -5 & $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  276. if pcs_makeup = 1: mopkoef = 0 & $pcs_makeup = 'You''re not wearing any kind of makeup'
  277. if pcs_makeup = 2: $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
  278. if pcs_makeup = 3: $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
  279. if pcs_makeup = 4: $pcs_makeup = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
  280. if pcs_leghair <= 0:
  281. legkoef = 0 & $pcs_leghair = 'You have smooth legs.'
  282. elseif pcs_leghair <= 3:
  283. legkoef = 3 & $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
  284. elseif pcs_leghair <= 6:
  285. legkoef = 6 & $pcs_leghair = 'You have light and just visible hair on your legs.'
  286. else
  287. legkoef = 9 & $pcs_leghair = 'Your legs are hairy.'
  288. end
  289. if pirsG > 0 and pirsG < 10000:$pirspiz = 'You are wearing a pubic piercing.'
  290. if clit_size < 20:$clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
  291. if clit_size >= 20 and clit_size < 40:$clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
  292. if clit_size >= 40 and clit_size < 60:$clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
  293. if clit_size >= 60 and clit_size < 80:$clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
  294. if clit_size >= 80:$clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
  295. if lashair = 1:$pcs_pubes = 'You have a smooth, <a href="exec:view''images/pc/body/pussy/pussy.jpg''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  296. if lashair = 0:
  297. if pcs_pubes <= 3:
  298. lobkoef = 3 & $pcs_pubes = 'You have a smoothly <a href="exec:view''images/pc/body/pussy/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  299. elseif pcs_pubes <= 10:
  300. lobkoef = 0 & $pcs_pubes = 'You have stubble growing around your <a href="exec:view''images/pc/body/pussy/stpussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  301. elseif pcs_pubes <= 20:
  302. lobkoef = 0 & $pcs_pubes = 'You have light, wispy hair around your <a href="exec:view''images/pc/body/pussy/spussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  303. else
  304. lobkoef = 0 & $pcs_pubes = 'You have a thick bush of <a href="exec:view''images/pc/body/pussy/hpussy.jpg''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
  305. end
  306. end
  307. if pcs_nips < 20:$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
  308. if pcs_nips >= 20 and pcs_nips < 40:$nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
  309. if pcs_nips >= 40 and pcs_nips < 60:$nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
  310. if pcs_nips >= 60 and pcs_nips < 80:$nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
  311. if pcs_nips >= 80:$nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
  312. If dounspell = 1:
  313. bodytipe = pcs_hips - pcs_waist
  314. if bodytipe < 20: bodykoef = 0
  315. if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
  316. if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
  317. if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
  318. if bodytipe >= 35: bodykoef = 4
  319. end
  320. if pcs_tan > 0:tanKoef = 1
  321. if pcs_tan = 0:tanKoef = 0
  322. !! buzzcut penalty to pcs_apprnc
  323. if pcs_hairlng < 10:
  324. hairkoef = 10
  325. else
  326. hairkoef = 0
  327. end
  328. if pcs_sweat < 22:
  329. sweatKoef = 0
  330. elseif pcs_sweat < 38:
  331. sweatKoef = (pcs_sweat - 10) / 4
  332. elseif pcs_sweat < 54:
  333. sweatKoef = (pcs_sweat - 10) / 2
  334. else
  335. sweatKoef = 3 * (pcs_sweat - 10) / 4
  336. end
  337. if pcs_lipbalm > 0:
  338. lipbalmKoef = 5
  339. else
  340. lipbalmKoef = 0
  341. end
  342. !!This is to force a base update if teeth changed since that is immediate
  343. if zublast ! pcs_teeth:
  344. gs 'body_shape', 'basebeautycalc', 1
  345. zublast = pcs_teeth
  346. end
  347. !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
  348. if $clothingworntype = 'nude':
  349. CloAdjustedBeauty = pcs_apprncbase
  350. else
  351. CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness + (PCloBra*5) + (CloPanties*6)) * PCloQuality / 5000 + PShoQuality
  352. end
  353. if $wornclothingtype = 'exercise': CloAdjustedBeauty = CloAdjustedBeauty * 2 / 3
  354. !!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
  355. !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
  356. !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
  357. pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
  358. if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
  359. if pcs_apprnc < 0: pcs_apprnc = 0
  360. !!This sets the "hotness catagory" varibale for use in checks
  361. if pcs_apprnc <= 200:
  362. hotcat = pcs_apprnc / 20
  363. else
  364. hotcat = 11
  365. end
  366. if StrongNarkota <= 0:
  367. if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
  368. if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
  369. end
  370. if StrongNarkota > 0:
  371. if SLomka > 0:SLomka = 0
  372. pcs_mood = 100
  373. end
  374. if pcs_apprnc = -10:
  375. $pcs_apprnc = 'Your looks are even worse than terrible. It''s terribad. No one wants to see or talk to you and people avoid you at any cost.'
  376. elseif pcs_apprnc < 20:
  377. $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
  378. elseif pcs_apprnc < 60:
  379. $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
  380. elseif pcs_apprnc < 120:
  381. $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
  382. elseif pcs_apprnc < 200:
  383. $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
  384. else
  385. $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
  386. end
  387. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  388. !!!!!!!!BODY
  389. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  390. if dounspell = 1:
  391. salocatnow = (pcs_hips / 10) - 5
  392. if bdsetlock = 0:
  393. if strenbuf >= 70:
  394. bodset = 2
  395. elseif strenbuf <= 40:
  396. bodset = 0
  397. else
  398. bodset = 1
  399. end
  400. else
  401. bodset = fixbodset
  402. end
  403. end
  404. if salocatnow <= 7:
  405. $body = $bodimgsets[((bodset * 10) + salocatnow)]
  406. else
  407. $body = $bodimgsets[((bodset * 10) + 7)]
  408. end
  409. !!Since "musle" is used all over the place
  410. musle = strenbuf
  411. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  412. --- body ---------------------------------