1
0

body 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540
  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 = 'A cup'
  109. elseif pcs_cupsize <= 10:
  110. tits = 1
  111. $titsize = 'B cup'
  112. elseif pcs_cupsize <= 15:
  113. tits = 2
  114. $titsize = 'C cup'
  115. elseif pcs_cupsize <= 20:
  116. tits = 3
  117. $titsize = 'D cup'
  118. elseif pcs_cupsize <= 25:
  119. tits = 4
  120. $titsize = 'E cup'
  121. elseif pcs_cupsize <= 30:
  122. tits = 5
  123. $titsize = 'F cup'
  124. elseif pcs_cupsize <= 35:
  125. tits = 6
  126. $titsize = 'G cup'
  127. elseif pcs_cupsize <= 40:
  128. tits = 7
  129. $titsize = 'H cup'
  130. elseif pcs_cupsize <= 45:
  131. tits = 8
  132. $titsize = 'I cup'
  133. elseif pcs_cupsize <= 50:
  134. tits = 9
  135. $titsize = 'J cup'
  136. else
  137. tits = 10
  138. $titsize = 'K cup'
  139. end
  140. !!!
  141. !!This sets weight
  142. pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
  143. else
  144. fat = 0
  145. pcs_hips = bedraDoun
  146. pcs_waist = TaliaDoun
  147. pcs_bust = pcs_waist + 14 + silicone + nbsize
  148. pcs_weight = TaliaDoun
  149. pcs_cupsize = pcs_bust - pcs_waist
  150. if pcs_cupsize <= 10:
  151. tits = 0
  152. $titsize = 'A cup'
  153. elseif pcs_cupsize <= 15:
  154. tits = 1
  155. $titsize = 'B cup'
  156. elseif pcs_cupsize <= 20:
  157. tits = 2
  158. $titsize = 'C cup'
  159. elseif pcs_cupsize <= 25:
  160. tits = 3
  161. $titsize = 'D cup'
  162. elseif pcs_cupsize <= 30:
  163. tits = 4
  164. $titsize = 'E cup'
  165. elseif pcs_cupsize <= 35:
  166. tits = 5
  167. $titsize = 'F cup'
  168. elseif pcs_cupsize <= 40:
  169. tits = 6
  170. $titsize = 'G cup'
  171. elseif pcs_cupsize <= 45:
  172. tits = 7
  173. $titsize = 'H cup'
  174. elseif pcs_cupsize <= 50:
  175. tits = 8
  176. $titsize = 'I cup'
  177. elseif pcs_cupsize <= 55:
  178. tits = 9
  179. $titsize = 'J cup'
  180. else
  181. tits = 10
  182. $titsize = 'K cup'
  183. end
  184. end
  185. !!! Maruda Hair Mod
  186. if pcs_hairlng <= 80:
  187. hpigtail = 0
  188. hscrunchw = 0
  189. hpingripw = 0
  190. if defcurly = 0:
  191. curly = 0
  192. else
  193. curly = 2147483647
  194. end
  195. hbraids = 0
  196. if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
  197. end
  198. if pcs_hairlng > 400:
  199. hpingripw = 0
  200. hbraids = 0
  201. end
  202. if pcs_hairlng > 400 and hpigtail >= 1:
  203. hscrunchw = 0
  204. hpigtail = 0
  205. end
  206. if hbraids >= 1:
  207. hscrunchw = 0
  208. hpingripw = 0
  209. hbangs = 0
  210. hpigtail = 0
  211. end
  212. if pcs_hairbsh = 0:
  213. if pcs_hairlng > 30:
  214. $pcs_hairbsh = '<b>tangled</b>. You should comb it to keep it healthy'
  215. else
  216. $pcs_hairbsh = '<b>messy</b>. You should style it to keep it looking good'
  217. end
  218. else
  219. $pcs_hairbsh = 'neatly styled'
  220. end
  221. if curly <= 0:$curly = 'straight, slightly wavy '
  222. if curly > 0:$curly = 'curly '
  223. if hbangs <= 0:$hbangs = ''
  224. if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
  225. if hscrunchw <= 0:$hscrunch = ''
  226. if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair in place with a ponytail.'
  227. if hpingripw <= 0:$hpingrip = ''
  228. if hpingripw > 0:$hpingrip = 'The Hair-pins hold your hair in place in an updo hairstyle.'
  229. if hscrunchw <= 0:$hpigtail = ''
  230. if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair in place in twin tail style.'
  231. if hbraids <= 0:$hbraids = ''
  232. if hbraids > 0:$hbraids = ' Your hair is beautifully braided.'
  233. if pcs_haircol = 0:$pcs_haircol = 'black'
  234. if pcs_haircol = 1:$pcs_haircol = 'brown'
  235. if pcs_haircol = 2:$pcs_haircol = 'red'
  236. if pcs_haircol = 3:$pcs_haircol = 'blonde'
  237. if avatar_hair = 1:
  238. $hair = $av_hair
  239. else
  240. 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.'
  241. 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>>.'
  242. 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>>'
  243. 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>>'
  244. 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>>'
  245. if pcs_hairlng > 400:$hair = 'You have very long <<$pcs_haircol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hscrunch>><<$hbraids>>'
  246. end
  247. !!! Maruda Hair Mod
  248. $milk_me = {
  249. cla
  250. *clr
  251. minut += 15
  252. if $location_type ! 'bathroom':
  253. 'You can''t use it here.'
  254. elseif lactatemv > 0 and pain['nipples'] < 60:
  255. '<center><img src="images/pc/body/tits/pump_lactating.jpg"></center>'
  256. 'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<lactatemv>>ml of your milk.'
  257. breastcounter += 1
  258. lactatemv = 0
  259. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  260. breastpumped = 1
  261. temp = rand(0,1)
  262. if bcream_used = 1:temp += 1
  263. pcs_nips += temp
  264. elseif lactate = 0 and pain['nipples'] < 60:
  265. if rand(1,100) + breastcounter >= rand(100,200):
  266. '<center><img src="images/pc/body/tits/lactate_start.jpg"></center>'
  267. 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.<br>You started lactating!'
  268. lactate = 1
  269. lactatemv = 0
  270. lactatemm = 10
  271. else
  272. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.<br>A few droplets of liquid come out of your nipples but it is not milk.'
  273. breastcounter += 1
  274. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  275. breastpumped = 1
  276. temp = rand(0,1)
  277. if bcream_used = 1:temp += 1
  278. pcs_nips += temp
  279. end
  280. else
  281. 'Your nipples feel too sore to use the pump right now.'
  282. end
  283. act 'Finish':gt $locM, $metkaM
  284. }
  285. !! Appearance factors and calculations
  286. if pcs_lip > 4:pcs_lip = 4
  287. if pcs_lip < 0:pcs_lip = 0
  288. if pcs_lipbalm > 0:
  289. if pcs_lip = 0:$pcs_lipbalm = ' shiny'
  290. if pcs_lip = 1:$pcs_lipbalm = ' shiny'
  291. if pcs_lip = 2:$pcs_lipbalm = ' brilliant and juicy'
  292. if pcs_lip = 3:$pcs_lipbalm = ' juicy'
  293. if pcs_lip = 4:$pcs_lipbalm = ' glossy'
  294. else
  295. $pcs_lipbalm = ''
  296. end
  297. if pirsA = 1:$pirsA = 'When you are talking to people, they can get a glimpse of your tongue piercing.'
  298. if pirsA ! 1:$pirsA = ''
  299. if pirsB = 1:$pirsB = 'You lower lip is pierced with a ring.'
  300. if pirsB ! 1:$pirsB = ''
  301. if pcs_lip = 0:$lip = 'You have thin<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
  302. if pcs_lip = 1:$lip = 'You have normal<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
  303. if pcs_lip = 2:$lip = 'You have plump<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
  304. 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'
  305. 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'
  306. if pcs_tan <= 0:$pcs_tan = 'pale'
  307. if pcs_tan > 0:$pcs_tan = 'tanned'
  308. if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
  309. if pirsC ! 1:$pirsC = ''
  310. if pirsD = 1:$pirsD = 'You have a nosering inserted in your nose.'
  311. if pirsD ! 1:$pirsD = ''
  312. if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
  313. if pirsE ! 1:$pirsE = ''
  314. if pcs_skin > 100: pcs_skin = 100
  315. if pcs_skin < 0: pcs_skin = 0
  316. if pcs_skin < 20:
  317. $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
  318. elseif pcs_skin < 40:
  319. $skin = 'Your <<$pcs_tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
  320. elseif pcs_skin < 60:
  321. $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
  322. elseif pcs_skin < 80:
  323. $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
  324. else
  325. $skin = 'You have <<$pcs_tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
  326. end
  327. if pcs_eyecol = 0:$pcs_eyecol = 'brown'
  328. if pcs_eyecol = 1:$pcs_eyecol = 'gray'
  329. if pcs_eyecol = 2:$pcs_eyecol = 'green'
  330. if pcs_eyecol = 3:$pcs_eyecol = 'blue'
  331. if pcs_lashes > 2:pcs_lashes = 2
  332. if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
  333. if pcs_lashes = 1:$pcs_lashes = 'normal eyelashes'
  334. if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
  335. if brow = 0 and browper = 0:$brow = 'natural eyebrows'
  336. if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
  337. if glass <= 0:$glass = '' & glassvnesh = 0
  338. if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
  339. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  340. if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 0
  341. !!!
  342. if pcs_eyesize > 3:pcs_eyesize = 3
  343. if pcs_eyesize = 0:$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  344. if pcs_eyesize = 1:$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  345. if pcs_eyesize = 2:$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  346. 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>>'
  347. mopkoef = pcs_makupskl / 5
  348. if pcs_makeup = 0: mopkoef = -5 & $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  349. if pcs_makeup = 1: mopkoef = 0 & $pcs_makeup = 'You''re not wearing any kind of makeup'
  350. if pcs_makeup = 2: $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
  351. if pcs_makeup = 3: $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
  352. 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'
  353. if pcs_leghair <= 0:
  354. legkoef = 0 & $pcs_leghair = 'You have smooth legs.'
  355. elseif pcs_leghair <= 3:
  356. legkoef = 3 & $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
  357. elseif pcs_leghair <= 6:
  358. legkoef = 6 & $pcs_leghair = 'You have light and just visible hair on your legs.'
  359. else
  360. legkoef = 9 & $pcs_leghair = 'Your legs are hairy.'
  361. end
  362. if pirsG = 1 and pirsGL ! 1:$pirspiz = 'There are several rings hanging from the lips of your vagina.'
  363. if pirsG ! 1 and pirsGL = 1:$pirspiz = 'A barbell is inserted into your clitoris.'
  364. if pirsG = 1 and pirsGL = 1:$pirspiz = 'You have a piercing through your clit and several rings hanging from your labia.'
  365. 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.'
  366. 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.'
  367. 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.'
  368. 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.'
  369. 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.'
  370. 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>>'
  371. if lashair = 0:
  372. if pcs_pubes <= 3:
  373. lobkoef = 3 & $pcs_pubes = 'You have a smoothly <a href="exec:view''images/pc/body/pussy/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  374. elseif pcs_pubes <= 10:
  375. 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>>'
  376. elseif pcs_pubes <= 20:
  377. 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>>'
  378. else
  379. 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>>'
  380. end
  381. end
  382. if pcs_nips < 20:$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
  383. 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.'
  384. 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>.'
  385. 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.'
  386. if pcs_nips >= 80:$nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
  387. If dounspell = 1:
  388. bodytipe = pcs_hips - pcs_waist
  389. if bodytipe < 20: bodykoef = 0
  390. if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
  391. if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
  392. if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
  393. if bodytipe >= 35: bodykoef = 4
  394. end
  395. if pcs_tan > 0:tanKoef = 1
  396. if pcs_tan = 0:tanKoef = 0
  397. !! buzzcut penalty to pcs_apprnc
  398. if pcs_hairlng < 10:
  399. hairkoef = 10
  400. else
  401. hairkoef = 0
  402. end
  403. if pcs_sweat < 22:
  404. sweatKoef = 0
  405. elseif pcs_sweat < 38:
  406. sweatKoef = (pcs_sweat - 10) / 4
  407. elseif pcs_sweat < 54:
  408. sweatKoef = (pcs_sweat - 10) / 2
  409. else
  410. sweatKoef = 3 * (pcs_sweat - 10) / 4
  411. end
  412. if pcs_lipbalm > 0:
  413. lipbalmKoef = 5
  414. else
  415. lipbalmKoef = 0
  416. end
  417. !!This is to force a base update if teeth changed since that is immediate
  418. if zublast ! pcs_teeth:
  419. gs 'body_shape', 'basebeautycalc', 1
  420. zublast = pcs_teeth
  421. end
  422. !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
  423. CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness) * PCloQuality / 5000
  424. !!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
  425. !!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
  426. !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
  427. pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
  428. if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
  429. if pcs_apprnc < 0: pcs_apprnc = 0
  430. !!This sets the "hotness catagory" varibale for use in checks
  431. if pcs_apprnc <= 200:
  432. hotcat = pcs_apprnc / 20
  433. else
  434. hotcat = 11
  435. end
  436. if StrongNarkota <= 0:
  437. if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
  438. if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
  439. end
  440. if StrongNarkota > 0:
  441. if SLomka > 0:SLomka = 0
  442. pcs_mood = 100
  443. end
  444. if pcs_apprnc = -10:
  445. $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.'
  446. elseif pcs_apprnc < 20:
  447. $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
  448. elseif pcs_apprnc < 60:
  449. $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
  450. elseif pcs_apprnc < 120:
  451. $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
  452. elseif pcs_apprnc < 200:
  453. $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
  454. else
  455. $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
  456. end
  457. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  458. !!!!!!!!BODY
  459. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  460. if dounspell = 1:
  461. salocatnow = (pcs_hips / 10) - 5
  462. if bdsetlock = 0:
  463. if strenbuf >= 70:
  464. bodset = 2
  465. elseif strenbuf <= 40:
  466. bodset = 0
  467. else
  468. bodset = 1
  469. end
  470. else
  471. bodset = fixbodset
  472. end
  473. end
  474. if salocatnow <= 7:
  475. $body = $bodimgsets[((bodset * 10) + salocatnow)]
  476. else
  477. $body = $bodimgsets[((bodset * 10) + 7)]
  478. end
  479. !!Since "musle" is used all over the place
  480. musle = strenbuf
  481. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  482. --- body ---------------------------------