glife/locations/body

# 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 ---------------------------------