body 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321
  1. # body
  2. if analplugIN = 0:
  3. if anus = 0:anpic = 0 & $anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
  4. if anus > 0 and anus <= 5:anpic = 1 & $anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
  5. if anus > 5 and anus <= 10:anpic = 2 & $anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
  6. if anus > 10 and anus <= 15:anpic = 3 & $anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
  7. if anus > 15 and anus <= 25:anpic = 4 & $anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.'
  8. if anus > 25 and anus <= 35:anpic = 5 & $anus = 'Your <a href="exec:view''images/body/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.'
  9. if anus > 35:anpic = 6 & $anus = 'Your <a href="exec:view''images/body/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
  10. else
  11. $anus = 'Your <a href="exec:view''picb/analplug.jpg''">anus</a> is currently filled with your butt plug.'
  12. end
  13. !!'<a href="exec:view''images/body/1.jpg''">anus</a>'
  14. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  15. !!!!!SIZE AND WEIGHT
  16. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  17. if dounspell = 0:
  18. strenbuf = stren
  19. vitalbuf = vital
  20. vmeat = (strenbuf + vitalbuf) / 8
  21. vfat = salo / 10
  22. Kves = vmeat + vfat
  23. krost = rost - 130
  24. ves = Kves + krost - (agilbuf / 10)
  25. talia = ves - (agilbuf / 10)
  26. grudi = talia + 10 + vfat + silicone
  27. grutal = talia
  28. bedra = talia + 15 + (vmeat / 2) + vfat
  29. titK = grudi - talia
  30. if (bedra - talia) > 45 and musle < salo:
  31. if ves < 70:koefvesbt = 0
  32. if ves >= 70:koefvesbt = ves - 70
  33. koefbt = koefvesbt + ((bedra - talia) - 45)
  34. talia += koefbt
  35. end
  36. if titK <= 10:tits = 0
  37. if titK > 10 and titK <= 15:tits = 1
  38. if titK > 15 and titK <= 20:tits = 2
  39. if titK > 20 and titK <= 25:tits = 3
  40. if titK > 25 and titK <= 30:tits = 4
  41. if titK > 30 and titK <= 35:tits = 5
  42. !!!Probably CV edition
  43. if titK > 35 and titK <= 40:tits = 6
  44. if titK > 40 and titK <= 45:tits = 7
  45. if titK > 45 and titK <= 50:tits = 8
  46. if titK > 50 and titK <= 55:tits = 9
  47. if titK > 55:tits = 10
  48. !!!
  49. else
  50. fat = 0
  51. bedra = bedraDoun
  52. talia = TaliaDoun
  53. grudi = talia + 14 + silicone
  54. ves = TaliaDoun
  55. titK = grudi - talia
  56. if titK <= 10:tits = 0
  57. if titK > 10 and titK <= 15:tits = 1
  58. if titK > 15 and titK <= 20:tits = 2
  59. if titK > 20 and titK <= 25:tits = 3
  60. if titK > 25 and titK <= 30:tits = 4
  61. if titK > 30 and titK <= 35:tits = 5
  62. !!!Probably CV edition
  63. if titK > 35 and titK <= 40:tits = 6
  64. if titK > 40 and titK <= 45:tits = 7
  65. if titK > 45 and titK <= 50:tits = 8
  66. if titK > 50 and titK <= 55:tits = 9
  67. if titK > 55:tits = 10
  68. !!!
  69. end
  70. !!! Maruda Hair Mod
  71. if hairlength <= 80:
  72. hpigtail = 0
  73. hscrunchw = 0
  74. hpingripw = 0
  75. curly = 0
  76. end
  77. if hairlength > 400:hpingripw = 0
  78. if hairlength > 400 and hpigtail >= 1:
  79. hscrunchw = 0
  80. hpigtail = 0
  81. end
  82. if hairlength <= 80:hbraids = 0
  83. if hbraids >= 1:
  84. curly = 0
  85. hscrunchw = 0
  86. hpingripw = 0
  87. hbangs = 0
  88. hpigtail = 0
  89. end
  90. if hapri = 0:$hapri = '<b>tangled</b>, you should comb it, to keep it healthy'
  91. if hapri = 1:$hapri = 'neatly arranged'
  92. if curly <= 0:$curly = 'straight, slightly wavy '
  93. if curly > 0:$curly = 'curly '
  94. if hbangs <= 0:$hbangs = ''
  95. if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
  96. if hscrunchw <= 0:$hscrunch = ''
  97. if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair as a ponytail in place.'
  98. if hpingripw <= 0:$hpingrip = ''
  99. if hpingripw > 0:$hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'
  100. if hscrunchw <= 0:$hpigtail = ''
  101. if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'
  102. if hbraids <= 0:$hbraids = ''
  103. if hbraids > 0:$hbraids = ' You have your hair beautifully braided.'
  104. if hcol = 0:$hcol = 'black'
  105. if hcol = 1:$hcol = 'brown'
  106. if hcol = 2:$hcol = 'red'
  107. if hcol = 3:$hcol = 'blonde'
  108. if hairlength <= 30:$hair = 'You have very short, <<$hcol>> 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.'
  109. if hairlength > 30 and hairlength <= 80:$hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
  110. if hairlength > 80 and hairlength <= 160:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
  111. if hairlength > 160 and hairlength <= 260:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  112. if hairlength > 260 and hairlength <= 400:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
  113. if hairlength > 400:$hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
  114. !!if hcol = 0 and curly <= 0:$hair = 'You have <<$hapri>> straight, black hair.'
  115. !!if hcol = 1 and curly <= 0:$hair = 'You have <<$hapri>> straight, brown hair.'
  116. !!if hcol = 2 and curly <= 0:$hair = 'You have <<$hapri>> straight, red hair.'
  117. !!if hcol = 3 and curly <= 0:$hair = 'You have <<$hapri>> straight, blonde hair.'
  118. !!if hcol = 0 and curly > 0:$hair = 'You have <<$hapri>> curly, black hair.'
  119. !!if hcol = 1 and curly > 0:$hair = 'You have <<$hapri>> curly, brown hair.'
  120. !!if hcol = 2 and curly > 0:$hair = 'You have <<$hapri>> curly red hair.'
  121. !!if hcol = 3 and curly > 0:$hair = 'You have <<$hapri>> curly blonde hair.'
  122. !!if hcol = 0:$hair = 'You have <<$hapri>> <<$curly>>, black hair.'
  123. !!if hcol = 1:$hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
  124. !!if hcol = 2:$hair = 'You have <<$hapri>> <<$curly>>, red hair.'
  125. !!if hcol = 3:$hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'
  126. !!! Maruda Hair Mod
  127. if lip > 4:lip = 4
  128. if lip > 4:lip = 4
  129. if lip < 0:lip = 0
  130. if lipbalmstat > 0:
  131. if lip = 0:$lipbalmstat = ' shiny'
  132. if lip = 1:$lipbalmstat = ' shiny'
  133. if lip = 2:$lipbalmstat = ' brilliant and juicy'
  134. if lip = 3:$lipbalmstat = ' juicy'
  135. if lip = 4:$lipbalmstat = ' glossy'
  136. else
  137. $lipbalmstat = ''
  138. end
  139. if pirsA = 1:$pirsA = 'When you talk, your conversation partner can get a glance at your tongue piercing.'
  140. if pirsA = 0:$pirsA = ''
  141. if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
  142. if pirsB = 0:$pirsB = ''
  143. if lip = 0:$lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
  144. if lip = 1:$lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
  145. if lip = 2:$lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
  146. if lip = 3:$lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
  147. if lip = 4:$lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
  148. if tan <= 0:$tan = 'pale'
  149. if tan > 0:$tan = 'Tanned'
  150. if skin > 4:skin = 4
  151. if skin < 0:skin = 0
  152. if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
  153. if pirsC = 0:$pirsC = ''
  154. if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
  155. if pirsD = 0:$pirsD = ''
  156. if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
  157. if pirsE = 0:$pirsE = ''
  158. if skin = 0:$skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
  159. if skin = 1:$skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
  160. if skin = 2:$skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
  161. if skin = 3:$skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
  162. if skin = 4:$skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
  163. if glacol = 0:$glacol = 'brown'
  164. if glacol = 1:$glacol = 'gray'
  165. if glacol = 2:$glacol = 'green'
  166. if glacol = 3:$glacol = 'blue'
  167. if resnic > 2:resnic = 2
  168. if resnic = 0:$resnic = 'with short eyelashes'
  169. if resnic = 1:$resnic = 'normal eyelashes'
  170. if resnic = 2:$resnic = 'with long eyelashes'
  171. if brow = 0 and browper = 0:$brow = 'little neat eyebrows'
  172. if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
  173. if browper > 0:$brow = 'permanent tattooed eyebrows' & brokoef = 2
  174. if glass <= 0:$glass = '' & glassvnesh = 0
  175. if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
  176. !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
  177. if glass = 2:$glass = ' Do you wear glasses.' & glassvnesh = 0
  178. !!!
  179. if glaraz > 3:glaraz = 3
  180. if glaraz = 0:$glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
  181. if glaraz = 1:$glaza = 'You have a medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
  182. if glaraz = 2:$glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
  183. if glaraz = 3:$glaza = 'You have a huge <<$glacol>> eyes that almost look like they''re out of anime, <<$resnic>> and <<$brow>>.<<$glass>>'
  184. if mop = 0:$mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
  185. if mop = 1:$mop = 'You''re not wearing any kind of makeup'
  186. if mop = 2:$mop = 'Your makeup is very light, just a very few touch-ups here and there'
  187. if mop = 3:$mop = 'You have "everyday"-like makeup applied'
  188. if mop = 4:$mop = 'You have thick makeup, possible a bit too flashy for daytime wear'
  189. if leghair <= 0:legkoef = 3 & $leghair = 'You have smooth legs.'
  190. if leghair > 0 and leghair <= 2:legkoef = 0 & $leghair = 'You do not see with our eyes but rough to the touch bristles on his feet.'
  191. if leghair > 2 and leghair <= 5:legkoef = 0 & $leghair = 'You clearly visible thin hairs on the legs.'
  192. if leghair > 5:legkoef = 0 & $leghair = 'Do you have long hair standing out on his feet.'
  193. if pirsG = 1:$pirsG = 'There are several piercings hanging from your vaginas lips.'
  194. if pirsG = 0:$pirsG = ''
  195. if lobok <= 0:lobkoef = 3 & $lobok = 'You have a smoothly <a href="exec:view ''images/body/pussy.jpg''">shaved mound</a>. <<$pirsG>>'
  196. if lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have a light but visible thatch of hair above your <a href="exec:view ''images/body/spussy.jpg''">crotch</a>. <<$pirsG>>'
  197. if lobok > 2:lobkoef = 0 & $lobok = 'You have a thick, full delta of <a href="exec:view ''images/body/hpussy.jpg''">pubic hair</a>. <<$pirsG>>'
  198. bodytipe = bedra - talia
  199. if bodytipe < 20:bodykoef = 0
  200. if bodytipe >= 20 and bodytipe < 25:bodykoef = 2
  201. if bodytipe >= 25 and bodytipe < 30:bodykoef = 4
  202. if bodytipe >= 30 and bodytipe < 35:bodykoef = 8
  203. if bodytipe >= 35:bodykoef = 4
  204. if tan > 0:
  205. tanKoef = 1
  206. else
  207. tanKoef = 0
  208. end
  209. if curly > 0:
  210. curlykoef = 1
  211. else
  212. curlykoef = 0
  213. end
  214. if sweat <= 0:
  215. sweatKoef = 0
  216. else
  217. sweatKoef = sweat * 5
  218. end
  219. if lipbalmstat > 0:
  220. lipbalmKoef = 1
  221. else
  222. lipbalmKoef = 0
  223. end
  224. if vidage < 21:vidagebonus = 0
  225. if vidage >= 21 and vidage < 26:vidagebonus = 1
  226. if vidage >= 26 and vidage < 30:vidagebonus = 3
  227. if vidage >= 30 and vidage < 34:vidagebonus = 6
  228. if vidage >= 34 and vidage < 36:vidagebonus = 9
  229. if vidage >= 36 and vidage < 38:vidagebonus = 12
  230. if vidage >= 38 and vidage < 40:vidagebonus = 16
  231. if vidage >= 40 and vidage < 45:vidagebonus = 25
  232. if vidage >= 45:vidagebonus = 50
  233. if age < 18:leghair = -5
  234. !!CV edition: tits and lobkoef (pubic hair) removed from calc, replaced with flat bonus of 9 (6 tits, 3 hair)
  235. vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - sweatKoef + vidagebonus - (zub * 2) + tatKeof - glassvnesh
  236. !!!
  237. if vnesh < 0:vnesh = 0
  238. if StrongNarkota <= 0:
  239. if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
  240. if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:vnesh = -10
  241. end
  242. if StrongNarkota > 0:
  243. if SLomka > 0:SLomka = 0
  244. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  245. end
  246. if vnesh = -10:$vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
  247. if vnesh < 5 and vnesh> - 10:$vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
  248. if vnesh >= 5 and vnesh < 15:$vnesh = 'You''re a wallflower. Barely anyone notices you.'
  249. if vnesh >= 15 and vnesh < 30:$vnesh = 'You have good looks. Men and women like to take a glance at you.'
  250. if vnesh >= 30 and vnesh < 50:$vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
  251. if vnesh >= 50:$vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
  252. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  253. !!!!!!!!BODY
  254. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  255. musle = strenbuf + vitalbuf
  256. if musle >= salo:
  257. !!muscular type
  258. if bedra < 60:$body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
  259. if bedra >= 60 and bedra < 70:$body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
  260. if bedra >= 70 and bedra < 80:$body = 'You are thin, fat on the body virtually no muscles act through the skin.'
  261. if bedra >= 80 and bedra < 90:$body = 'You are thin, fat on the body virtually no muscles act through the skin.'
  262. if bedra >= 90 and bedra < 100:$body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
  263. if bedra >= 100 and bedra < 110:$body = 'Body fat there is little, through the skin are the large muscles.'
  264. if bedra >= 110 and bedra < 120:$body = 'Body fat there is little, through the skin are the massive muscles.'
  265. if bedra >= 120:$body = 'Body fat there is little, through the skin are the massive muscles.'
  266. else
  267. !!bold type
  268. if bedra < 60:$body = 'You are very lean and you have virtually no muscle.'
  269. if bedra >= 60 and bedra < 70:$body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
  270. if bedra >= 70 and bedra < 80:$body = 'You are very skinny girl.'
  271. if bedra >= 80 and bedra < 90:$body = 'You skinny girl.'
  272. if bedra >= 90 and bedra < 100:$body = 'You skater girl.'
  273. if bedra >= 100 and bedra < 110:$body = 'You formastaya girl.'
  274. if bedra >= 110 and bedra < 120:$body = 'You zhirnovat girl.'
  275. if bedra >= 120:$body = 'You are very fat.'
  276. end
  277. $fat = $body
  278. --- body ---------------------------------