123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507 |
- # body
- if pcs_throat = 0:
- thpic = 0
- $pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
- $throattipe = 'absolutely unusual'
- elseif pcs_throat <= 5:
- thpic = 1
- $pcs_throat = 'You have an inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
- $throattipe = 'virgin'
- elseif pcs_throat <= 10:
- thpic = 2
- $pcs_throat = 'Your working mouth leads to a sensitive <a href="exec:view''images/pc/body/throat/th2.jpg''">throat</a>.'
- $throattipe = 'sensitive'
- elseif pcs_throat <= 15:
- thpic = 3
- $pcs_throat = 'You have an experienced mouth and slightly stretched <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
- $throattipe = 'slightly stretched'
- elseif pcs_throat <= 25:
- thpic = 4
- $pcs_throat = 'You have a capacious mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
- $throattipe = 'stretched'
- elseif pcs_throat <= 35:
- thpic = 5
- $pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
- $throattipe = 'tinned'
- else
- thpic = 6
- $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.'
- $throattipe = 'bottomless'
- end
- if pcs_breath = 1:$pcs_throat += ' Which smelled fresh and minty last time you checked.'
- if pcs_vag = 0:
- puspic = 0
- $pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/vag0.jpg''">pussy</a> still has a membrane.'
- $vaginatipe = 'virgin'
- elseif pcs_vag <= 5:
- puspic = 1
- $pcs_vag = 'You have a tight <a href="exec:view''images/pc/body/pussy/vag1.jpg''">pussy</a>.'
- $vaginatipe = 'narrow'
- elseif pcs_vag <= 10:
- puspic = 2
- $pcs_vag = 'You have closed, similar to a slit <a href="exec:view''images/pc/body/pussy/vag2.jpg''">vagina</a>.'
- $vaginatipe = 'close'
- elseif pcs_vag <= 15:
- puspic = 3
- $pcs_vag = 'You have a slightly stretched, elastic <a href="exec:view''images/pc/body/pussy/vag3.jpg''">vagina</a>.'
- $vaginatipe = 'tight'
- elseif pcs_vag <= 25:
- puspic = 4
- $pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/vag4.jpg''">vagina</a>.'
- $vaginatipe = 'developed'
- elseif pcs_vag <= 35:
- puspic = 5
- $pcs_vag = 'Between your legs you have a gaping <a href="exec:view''images/pc/body/pussy/vag5.jpg''">tunnel</a>.'
- $vaginatipe = 'broken-down'
- else
- puspic = 6
- $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.'
- $vaginatipe = 'dimensionless'
- end
- if analplugIN = 0:
- if pcs_ass = 0:
- anpic = 0
- $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/0.jpg''">anus</a>.'
- elseif pcs_ass <= 5:
- anpic = 1
- $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.'
- elseif pcs_ass <= 10:
- anpic = 2
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/2.jpg''">anus</a> has the shape of an asterisk.'
- elseif pcs_ass <= 15:
- anpic = 3
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/3.jpg''">anus</a> is slightly parted, it has been used quite often.'
- elseif pcs_ass <= 25:
- anpic = 4
- $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.'
- elseif pcs_ass <= 35:
- anpic = 5
- $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.'
- else
- anpic = 6
- $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'
- end
- elseif analplugIN = 1 and tanga = 1:
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
- elseif analplugIN = 1 and tanga = 0:
- if pirsG = 1 and pirsGL = 1:
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
- elseif pirsG ! 1 and pirsGL = 1:
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
- elseif pirsG = 1 and pirsGL ! 1:
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
- else
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
- end
- end
- !!!!!!!!!!!!!!!!
- !!!!!SIZE AND WEIGHT!!!
- !!!!!!!!!!!!!!!!
- if dounspell = 0:
- pcs_hips = (pcs_hgt * hratio) / 100 + vhips
- pcs_waist = (pcs_hips * wratio) / 100 + vofat
- pcs_band = (pcs_waist * bratio) / 100 + vofat
- pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
- pcs_cupsize = pcs_bust - pcs_band
- if pcs_cupsize <= 5:
- tits = 0
- $titsize = 'AA cup'
- elseif pcs_cupsize <= 10:
- tits = 1
- $titsize = 'A cup'
- elseif pcs_cupsize <= 15:
- tits = 2
- $titsize = 'B cup'
- elseif pcs_cupsize <= 20:
- tits = 3
- $titsize = 'C cup'
- elseif pcs_cupsize <= 25:
- tits = 4
- $titsize = 'D cup'
- elseif pcs_cupsize <= 30:
- tits = 5
- $titsize = 'E cup'
- elseif pcs_cupsize <= 35:
- tits = 6
- $titsize = 'F cup'
- elseif pcs_cupsize <= 40:
- tits = 7
- $titsize = 'G cup'
- elseif pcs_cupsize <= 45:
- tits = 8
- $titsize = 'H cup'
- elseif pcs_cupsize <= 50:
- tits = 9
- $titsize = 'I cup'
- elseif pcs_cupsize <= 55:
- tits = 10
- $titsize = 'J cup'
- else
- tits = 11
- $titsize = 'K cup'
- end
- !!!
- !!This sets weight
- pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
- end
- !!! Maruda Hair Mod
- if pcs_hairlng <= 80:
- hpigtail = 0
- hscrunchw = 0
- hpingripw = 0
- if defcurly = 0:
- curly = 0
- else
- curly = 2147483647
- end
- hbraids = 0
- if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
- end
- if pcs_hairlng > 800:
- hpingripw = 0
- hbraids = 0
- end
- if pcs_hairlng > 800 and hpigtail >= 1:
- hscrunchw = 0
- hpigtail = 0
- end
- if hbraids >= 1:
- hscrunchw = 0
- hpingripw = 0
- hbangs = 0
- hpigtail = 0
- end
- if pcs_hairbsh = 0:
- if pcs_hairlng > 30:
- $pcs_hairbsh = '<b>tangled</b>. You should comb it to keep it healthy'
- else
- $pcs_hairbsh = '<b>messy</b>. You should style it to keep it looking good'
- end
- else
- $pcs_hairbsh = 'neatly styled'
- end
- if curly <= 0:$curly = 'straight, slightly wavy '
- if curly > 0:$curly = 'curly '
- if hbangs <= 0:$hbangs = ''
- if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
- if hscrunchw <= 0:$hscrunch = ''
- if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair in place with a ponytail.'
- if hpingripw <= 0:$hpingrip = ''
- if hpingripw > 0:$hpingrip = 'The Hair-pins hold your hair in place in an updo hairstyle.'
- if hscrunchw <= 0:$hpigtail = ''
- if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair in place in twin tail style.'
- if hbraids <= 0:$hbraids = ''
- if hbraids > 0:$hbraids = ' Your hair is beautifully braided.'
- if pcs_haircol = 0:$pcs_haircol = 'black'
- if pcs_haircol = 1:$pcs_haircol = 'brown'
- if pcs_haircol = 2:$pcs_haircol = 'red'
- if pcs_haircol = 3:$pcs_haircol = 'blonde'
- if avatar_hair = 1:
- $hair = $av_hair
- else
- 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.'
- 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>>.'
- 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>>'
- 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>>'
- 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>>'
- 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>>'
- 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>>'
- 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>>'
- end
- !!! Maruda Hair Mod
- $milk_me = {
- cla
- *clr
- minut += 15
-
- if $location_type ! 'bathroom':
- 'You can''t use it here.'
- elseif lactatemv > 0 and pain['nipples'] < 60:
- '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
- '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.'
- breastcounter += 1
- lactatemv = 0
- if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
- breastpumped = 1
- temp = rand(0,1)
- if bcream_used = 1:temp += 1
- pcs_nips += temp
-
- elseif lactate = 0 and pain['nipples'] < 60:
- if rand(1,100) + breastcounter >= rand(100,200):
- '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
- 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.<br>You started lactating!'
- lactate = 1
- lactatemv = 0
- lactatemm = 10
- else
- '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.'
- breastcounter += 1
- if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
- breastpumped = 1
- temp = rand(0,1)
- if bcream_used = 1:temp += 1
- pcs_nips += temp
- end
- else
- 'Your nipples feel too sore to use the pump right now.'
- end
- act 'Finish':gt $locM, $metkaM
- }
- !! Appearance factors and calculations
- if pcs_lip > 4:pcs_lip = 4
- if pcs_lip < 0:pcs_lip = 0
- if pcs_lipbalm > 0:
- if pcs_lip = 0:$pcs_lipbalm = ' shiny'
- if pcs_lip = 1:$pcs_lipbalm = ' shiny'
- if pcs_lip = 2:$pcs_lipbalm = ' brilliant and juicy'
- if pcs_lip = 3:$pcs_lipbalm = ' juicy'
- if pcs_lip = 4:$pcs_lipbalm = ' glossy'
- else
- $pcs_lipbalm = ''
- end
- if pirsA = 1:$pirsA = 'When you are talking to people, they can get a glimpse of your tongue piercing.'
- if pirsA ! 1:$pirsA = ''
- if pirsB = 1:$pirsB = 'You lower lip is pierced with a ring.'
- if pirsB ! 1:$pirsB = ''
- if pcs_lip = 0:$lip = 'You have thin<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
- if pcs_lip = 1:$lip = 'You have normal<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
- if pcs_lip = 2:$lip = 'You have plump<<$pcs_lipbalm>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
- 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'
- 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'
- if pcs_tan <= 0:$pcs_tan = 'pale'
- if pcs_tan > 0:$pcs_tan = 'tanned'
- if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
- if pirsC ! 1:$pirsC = ''
- if pirsD = 1:$pirsD = 'You have a nosering inserted in your nose.'
- if pirsD ! 1:$pirsD = ''
- if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
- if pirsE ! 1:$pirsE = ''
- if pcs_skin > 100: pcs_skin = 100
- if pcs_skin < 0: pcs_skin = 0
- if pcs_skin < 20:
- $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
- elseif pcs_skin < 40:
- $skin = 'Your <<$pcs_tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
- elseif pcs_skin < 60:
- $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
- elseif pcs_skin < 80:
- $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
- else
- $skin = 'You have <<$pcs_tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
- end
- if pcs_eyecol = 0:$pcs_eyecol = 'brown'
- if pcs_eyecol = 1:$pcs_eyecol = 'gray'
- if pcs_eyecol = 2:$pcs_eyecol = 'green'
- if pcs_eyecol = 3:$pcs_eyecol = 'blue'
- if pcs_lashes > 2:pcs_lashes = 2
- if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
- if pcs_lashes = 1:$pcs_lashes = 'normal eyelashes'
- if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
- if brow = 0 and browper = 0:$brow = 'natural eyebrows'
- if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
- if glass <= 0:$glass = '' & glassvnesh = 0
- if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
- !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
- if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 0
- !!!
- if pcs_eyesize > 3:pcs_eyesize = 3
- if pcs_eyesize = 0:$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
- if pcs_eyesize = 1:$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
- if pcs_eyesize = 2:$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>> and <<$brow>>.<<$glass>>'
- 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>>'
- mopkoef = pcs_makupskl / 5
- if pcs_makeup = 0: mopkoef = -5 & $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
- if pcs_makeup = 1: mopkoef = 0 & $pcs_makeup = 'You''re not wearing any kind of makeup'
- if pcs_makeup = 2: $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
- if pcs_makeup = 3: $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
- 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'
- if pcs_leghair <= 0:
- legkoef = 0 & $pcs_leghair = 'You have smooth legs.'
- elseif pcs_leghair <= 3:
- legkoef = 3 & $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
- elseif pcs_leghair <= 6:
- legkoef = 6 & $pcs_leghair = 'You have light and just visible hair on your legs.'
- else
- legkoef = 9 & $pcs_leghair = 'Your legs are hairy.'
- end
- if pirsG = 1 and pirsGL ! 1:$pirspiz = 'There are several rings hanging from the lips of your vagina.'
- if pirsG ! 1 and pirsGL = 1:$pirspiz = 'A barbell is inserted into your clitoris.'
- if pirsG = 1 and pirsGL = 1:$pirspiz = 'You have a piercing through your clit and several rings hanging from your labia.'
- 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.'
- 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.'
- 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.'
- 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.'
- 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.'
- 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>>'
- if lashair = 0:
- if pcs_pubes <= 3:
- lobkoef = 3 & $pcs_pubes = 'You have a smoothly <a href="exec:view''images/pc/body/pussy/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
- elseif pcs_pubes <= 10:
- 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>>'
- elseif pcs_pubes <= 20:
- 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>>'
- else
- 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>>'
- end
- end
- if pcs_nips < 20:$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
- 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.'
- 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>.'
- 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.'
- if pcs_nips >= 80:$nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
- If dounspell = 1:
- bodytipe = pcs_hips - pcs_waist
- if bodytipe < 20: bodykoef = 0
- if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
- if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
- if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
- if bodytipe >= 35: bodykoef = 4
- end
- if pcs_tan > 0:tanKoef = 1
- if pcs_tan = 0:tanKoef = 0
- !! buzzcut penalty to pcs_apprnc
- if pcs_hairlng < 10:
- hairkoef = 10
- else
- hairkoef = 0
- end
- if pcs_sweat < 22:
- sweatKoef = 0
- elseif pcs_sweat < 38:
- sweatKoef = (pcs_sweat - 10) / 4
- elseif pcs_sweat < 54:
- sweatKoef = (pcs_sweat - 10) / 2
- else
- sweatKoef = 3 * (pcs_sweat - 10) / 4
- end
- if pcs_lipbalm > 0:
- lipbalmKoef = 5
- else
- lipbalmKoef = 0
- end
- !!This is to force a base update if teeth changed since that is immediate
- if zublast ! pcs_teeth:
- gs 'body_shape', 'basebeautycalc', 1
- zublast = pcs_teeth
- end
- !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
- if $clothingworntype = 'nude':
- CloAdjustedBeauty = pcs_apprncbase
- else
- CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness) * PCloQuality / 5000
- end
- !!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
- !!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
- !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
- pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
- if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
- if pcs_apprnc < 0: pcs_apprnc = 0
- !!This sets the "hotness catagory" varibale for use in checks
- if pcs_apprnc <= 200:
- hotcat = pcs_apprnc / 20
- else
- hotcat = 11
- end
- if StrongNarkota <= 0:
- if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
- if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
- end
- if StrongNarkota > 0:
- if SLomka > 0:SLomka = 0
- pcs_mood = 100
- end
- if pcs_apprnc = -10:
- $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.'
- elseif pcs_apprnc < 20:
- $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
- elseif pcs_apprnc < 60:
- $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
- elseif pcs_apprnc < 120:
- $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
- elseif pcs_apprnc < 200:
- $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
- else
- $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!BODY
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if dounspell = 1:
- salocatnow = (pcs_hips / 10) - 5
- if bdsetlock = 0:
- if strenbuf >= 70:
- bodset = 2
- elseif strenbuf <= 40:
- bodset = 0
- else
- bodset = 1
- end
- else
- bodset = fixbodset
- end
- end
- if salocatnow <= 7:
- $body = $bodimgsets[((bodset * 10) + salocatnow)]
- else
- $body = $bodimgsets[((bodset * 10) + 7)]
- end
- !!Since "musle" is used all over the place
- musle = strenbuf
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- --- body ---------------------------------
|