body 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507
  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. $milk_me = {
  213. cla
  214. *clr
  215. minut += 15
  216. if $location_type ! 'bathroom':
  217. 'You can''t use it here.'
  218. elseif lactatemv > 0 and pain['nipples'] < 60:
  219. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
  220. '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.'
  221. breastcounter += 1
  222. lactatemv = 0
  223. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  224. breastpumped = 1
  225. temp = rand(0,1)
  226. if bcream_used = 1:temp += 1
  227. pcs_nips += temp
  228. elseif lactate = 0 and pain['nipples'] < 60:
  229. if rand(1,100) + breastcounter >= rand(100,200):
  230. '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
  231. 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.<br>You started lactating!'
  232. lactate = 1
  233. lactatemv = 0
  234. lactatemm = 10
  235. else
  236. '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.'
  237. breastcounter += 1
  238. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  239. breastpumped = 1
  240. temp = rand(0,1)
  241. if bcream_used = 1:temp += 1
  242. pcs_nips += temp
  243. end
  244. else
  245. 'Your nipples feel too sore to use the pump right now.'
  246. end
  247. act 'Finish':gt $locM, $metkaM
  248. }
  249. !! Appearance factors and calculations
  250. if pcs_lip > 4:pcs_lip = 4
  251. if pcs_lip < 0:pcs_lip = 0
  252. if pcs_lipbalm > 0:
  253. if pcs_lip = 0:$pcs_lipbalm = ' shiny'
  254. if pcs_lip = 1:$pcs_lipbalm = ' shiny'
  255. if pcs_lip = 2:$pcs_lipbalm = ' brilliant and juicy'
  256. if pcs_lip = 3:$pcs_lipbalm = ' juicy'
  257. if pcs_lip = 4:$pcs_lipbalm = ' glossy'
  258. else
  259. $pcs_lipbalm = ''
  260. end
  261. if pirsA = 1:$pirsA = 'When you are talking to people, they can get a glimpse of your tongue piercing.'
  262. if pirsA ! 1:$pirsA = ''
  263. if pirsB = 1:$pirsB = 'You lower lip is pierced with a ring.'
  264. if pirsB ! 1:$pirsB = ''
  265. if pcs_lip = 0:$lip = 'You have thin<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
  266. if pcs_lip = 1:$lip = 'You have normal<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
  267. if pcs_lip = 2:$lip = 'You have plump<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
  268. 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'
  269. 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'
  270. if pcs_tan <= 0:$pcs_tan = 'pale'
  271. if pcs_tan > 0:$pcs_tan = 'tanned'
  272. if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
  273. if pirsC ! 1:$pirsC = ''
  274. if pirsD = 1:$pirsD = 'You have a nosering inserted in your nose.'
  275. if pirsD ! 1:$pirsD = ''
  276. if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
  277. if pirsE ! 1:$pirsE = ''
  278. if pcs_skin > 100: pcs_skin = 100
  279. if pcs_skin < 0: pcs_skin = 0
  280. if pcs_skin < 20:
  281. $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
  282. elseif pcs_skin < 40:
  283. $skin = 'Your <<$pcs_tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
  284. elseif pcs_skin < 60:
  285. $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
  286. elseif pcs_skin < 80:
  287. $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
  288. else
  289. $skin = 'You have <<$pcs_tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
  290. end
  291. if pcs_eyecol = 0:$pcs_eyecol = 'brown'
  292. if pcs_eyecol = 1:$pcs_eyecol = 'gray'
  293. if pcs_eyecol = 2:$pcs_eyecol = 'green'
  294. if pcs_eyecol = 3:$pcs_eyecol = 'blue'
  295. if pcs_lashes > 2:pcs_lashes = 2
  296. if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
  297. if pcs_lashes = 1:$pcs_lashes = 'normal eyelashes'
  298. if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
  299. if brow = 0 and browper = 0:$brow = 'natural eyebrows'
  300. if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
  301. if glass <= 0:$glass = '' & glassvnesh = 0
  302. if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
  303. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  304. if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 0
  305. !!!
  306. if pcs_eyesize > 3:pcs_eyesize = 3
  307. if pcs_eyesize = 0:$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  308. if pcs_eyesize = 1:$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  309. if pcs_eyesize = 2:$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
  310. 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>>'
  311. mopkoef = pcs_makupskl / 5
  312. if pcs_makeup = 0: mopkoef = -5 & $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  313. if pcs_makeup = 1: mopkoef = 0 & $pcs_makeup = 'You''re not wearing any kind of makeup'
  314. if pcs_makeup = 2: $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
  315. if pcs_makeup = 3: $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
  316. 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'
  317. if pcs_leghair <= 0:
  318. legkoef = 0 & $pcs_leghair = 'You have smooth legs.'
  319. elseif pcs_leghair <= 3:
  320. legkoef = 3 & $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
  321. elseif pcs_leghair <= 6:
  322. legkoef = 6 & $pcs_leghair = 'You have light and just visible hair on your legs.'
  323. else
  324. legkoef = 9 & $pcs_leghair = 'Your legs are hairy.'
  325. end
  326. if pirsG = 1 and pirsGL ! 1:$pirspiz = 'There are several rings hanging from the lips of your vagina.'
  327. if pirsG ! 1 and pirsGL = 1:$pirspiz = 'A barbell is inserted into your clitoris.'
  328. if pirsG = 1 and pirsGL = 1:$pirspiz = 'You have a piercing through your clit and several rings hanging from your labia.'
  329. 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.'
  330. 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.'
  331. 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.'
  332. 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.'
  333. 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.'
  334. 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>>'
  335. if lashair = 0:
  336. if pcs_pubes <= 3:
  337. lobkoef = 3 & $pcs_pubes = 'You have a smoothly <a href="exec:view''images/pc/body/pussy/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
  338. elseif pcs_pubes <= 10:
  339. 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>>'
  340. elseif pcs_pubes <= 20:
  341. 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>>'
  342. else
  343. 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>>'
  344. end
  345. end
  346. if pcs_nips < 20:$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
  347. 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.'
  348. 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>.'
  349. 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.'
  350. if pcs_nips >= 80:$nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
  351. If dounspell = 1:
  352. bodytipe = pcs_hips - pcs_waist
  353. if bodytipe < 20: bodykoef = 0
  354. if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
  355. if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
  356. if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
  357. if bodytipe >= 35: bodykoef = 4
  358. end
  359. if pcs_tan > 0:tanKoef = 1
  360. if pcs_tan = 0:tanKoef = 0
  361. !! buzzcut penalty to pcs_apprnc
  362. if pcs_hairlng < 10:
  363. hairkoef = 10
  364. else
  365. hairkoef = 0
  366. end
  367. if pcs_sweat < 22:
  368. sweatKoef = 0
  369. elseif pcs_sweat < 38:
  370. sweatKoef = (pcs_sweat - 10) / 4
  371. elseif pcs_sweat < 54:
  372. sweatKoef = (pcs_sweat - 10) / 2
  373. else
  374. sweatKoef = 3 * (pcs_sweat - 10) / 4
  375. end
  376. if pcs_lipbalm > 0:
  377. lipbalmKoef = 5
  378. else
  379. lipbalmKoef = 0
  380. end
  381. !!This is to force a base update if teeth changed since that is immediate
  382. if zublast ! pcs_teeth:
  383. gs 'body_shape', 'basebeautycalc', 1
  384. zublast = pcs_teeth
  385. end
  386. !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
  387. if $clothingworntype = 'nude':
  388. CloAdjustedBeauty = pcs_apprncbase
  389. else
  390. CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness) * PCloQuality / 5000
  391. end
  392. !!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
  393. !!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
  394. !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
  395. pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
  396. if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
  397. if pcs_apprnc < 0: pcs_apprnc = 0
  398. !!This sets the "hotness catagory" varibale for use in checks
  399. if pcs_apprnc <= 200:
  400. hotcat = pcs_apprnc / 20
  401. else
  402. hotcat = 11
  403. end
  404. if StrongNarkota <= 0:
  405. if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
  406. if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
  407. end
  408. if StrongNarkota > 0:
  409. if SLomka > 0:SLomka = 0
  410. pcs_mood = 100
  411. end
  412. if pcs_apprnc = -10:
  413. $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.'
  414. elseif pcs_apprnc < 20:
  415. $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
  416. elseif pcs_apprnc < 60:
  417. $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
  418. elseif pcs_apprnc < 120:
  419. $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
  420. elseif pcs_apprnc < 200:
  421. $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
  422. else
  423. $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
  424. end
  425. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  426. !!!!!!!!BODY
  427. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  428. if dounspell = 1:
  429. salocatnow = (pcs_hips / 10) - 5
  430. if bdsetlock = 0:
  431. if strenbuf >= 70:
  432. bodset = 2
  433. elseif strenbuf <= 40:
  434. bodset = 0
  435. else
  436. bodset = 1
  437. end
  438. else
  439. bodset = fixbodset
  440. end
  441. end
  442. if salocatnow <= 7:
  443. $body = $bodimgsets[((bodset * 10) + salocatnow)]
  444. else
  445. $body = $bodimgsets[((bodset * 10) + 7)]
  446. end
  447. !!Since "musle" is used all over the place
  448. musle = strenbuf
  449. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  450. --- body ---------------------------------