# body

if throat = 0:
	thpic = 0
	$throat = 'You have a chaste <a href="exec:view''images/body/th0.jpg''">mouth</a>.'
	$throattipe = 'absolutely unusual'
elseif throat <= 5:
	thpic = 1
	$throat = 'You have an inexperienced <a href="exec:view''images/body/th1.jpg''">mouth</a>.'
	$throattipe = 'virgin'
elseif throat <= 10:
	thpic = 2
	$throat = 'Your working mouth leads to a sensitive <a href="exec:view''images/body/th2.jpg''">throat</a>.'
	$throattipe = 'sensitive'
elseif throat <= 15:
	thpic = 3
	$throat = 'You have an experienced mouth and slightly stretched <a href="exec:view''images/body/th3.jpg''">throat</a>.'
	$throattipe = 'slightly stretched'
elseif throat <= 25:
	thpic = 4
	$throat = 'You have a capacious mouth and trained <a href="exec:view''images/body/th4.jpg''">throat</a>.'
	$throattipe = 'stretched'
elseif throat <= 35:
	thpic = 5
	$throat = 'Your deep tunnel of a <a href="exec:view''images/body/th5.jpg''">throat</a> may adopt any member.'
	$throattipe = 'tinned'
else
	thpic = 6
	$throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/body/th6.jpg''">throat</a> is like a bottomless pit.'
	$throattipe = 'bottomless'
end

if fbreath = 1:$throat += ' Which smelled fresh and minty last time you checked.'


if vagina = 0:
	puspic = 0
	$vagina = 'Your virgin <a href="exec:view''images/body/vag0.jpg''">pussy</a> still has a membrane.'
	$vaginatipe = 'virgin'
elseif vagina <= 5:
	puspic = 1
	$vagina = 'You have a tight <a href="exec:view''images/body/vag1.jpg''">pussy</a>.'
	$vaginatipe = 'narrow'
elseif vagina <= 10:
	puspic = 2
	$vagina = 'You have closed, similar to a slit <a href="exec:view''images/body/vag2.jpg''">vagina</a>.'
	$vaginatipe = 'close'
elseif vagina <= 15:
	puspic = 3
	$vagina = 'You have a slightly stretched, elastic <a href="exec:view''images/body/vag3.jpg''">vagina</a>.'
	$vaginatipe = 'tight'
elseif vagina <= 25:
	puspic = 4
	$vagina = 'You have a well-developed <a href="exec:view''images/body/vag4.jpg''">vagina</a>.'
	$vaginatipe = 'developed'
elseif vagina <= 35:
	puspic = 5
	$vagina = 'Between your legs you have a gaping <a href="exec:view''images/body/vag5.jpg''">tunnel</a>.'
	$vaginatipe = 'broken-down'
else
	puspic = 6
	$vagina = 'The fact is, in place of a pussy, you have a <a href="exec:view''images/body/vag6.jpg''">well</a> as deep as the Mariana Trench.'
	$vaginatipe = 'dimensionless'
end

if analplugIN = 0:
	if anus = 0:
		anpic = 0
		$anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
	elseif anus <= 5:
		anpic = 1
		$anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, and looking at it none would know it was used for sex.'
	elseif anus <= 10:
		anpic = 2
		$anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
	elseif anus <= 15:
		anpic = 3
		$anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is slightly parted, it has been used quite often.'
	elseif anus <= 25:
		anpic = 4
		$anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, anyone would think that the only thing you do is anal sex.'
	elseif 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.'
	else
		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'
	end
elseif analplugIN = 1 and tanga = 1:
	$anus = 'Your <a href="exec:view''images/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
elseif analplugIN = 1 and tanga = 0:
	if pirsG = 1 and pirsGL = 1:
		$anus = 'Your <a href="exec:view''images/picb/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
	elseif pirsG ! 1 and pirsGL = 1:
		$anus = 'Your <a href="exec:view''images/picb/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
	elseif pirsG = 1 and pirsGL ! 1:
		$anus = 'Your <a href="exec:view''images/picb/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
	else
		$anus = 'Your <a href="exec:view''images/picb/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
	end
end

!!!!!!!!!!!!!!!!
!!!!!SIZE AND WEIGHT!!!
!!!!!!!!!!!!!!!!
if dounspell = 0:
	bedra = (rost * hratio) / 100 + vhips
	talia = (bedra * wratio) / 100 + vofat
	grutal = (talia * bratio) / 100 + vofat
	grudi = (talia * bratio) / 100 + nbsize + magicf2b + silicone
	titK = grudi - grutal

	if titK <= 5:
		tits = 0
		$titsize = 'A cup'
	elseif titK <= 10:
		tits = 1
		$titsize = 'B cup'
	elseif titK <= 15:
		tits = 2
		$titsize = 'C cup'
	elseif titK <= 20:
		tits = 3
		$titsize = 'D cup'
	elseif titK <= 25:
		tits = 4
		$titsize = 'E cup'
	elseif titK <= 30:
		tits = 5
		$titsize = 'F cup'
	elseif titK <= 35:
		tits = 6
		$titsize = 'G cup'
	elseif titK <= 40:
		tits = 7
		$titsize = 'H cup'
	elseif titK <= 45:
		tits = 8
		$titsize = 'I cup'
	elseif titK <= 50:
		tits = 9
		$titsize = 'J cup'
	else
		tits = 10
		$titsize = 'K cup'
	end
	!!!
!!This sets weight
	ves = (rost * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
else
	fat = 0
	bedra = bedraDoun
	talia = TaliaDoun
	grudi = talia + 14 + silicone + nbsize
	ves = TaliaDoun
	titK = grudi - talia

	if titK <= 10:
		tits = 0
		$titsize = 'A cup'
	elseif titK <= 15:
		tits = 1
		$titsize = 'B cup'
	elseif titK <= 20:
		tits = 2
		$titsize = 'C cup'
	elseif titK <= 25:
		tits = 3
		$titsize = 'D cup'
	elseif titK <= 30:
		tits = 4
		$titsize = 'E cup'
	elseif titK <= 35:
		tits = 5
		$titsize = 'F cup'
	elseif titK <= 40:
		tits = 6
		$titsize = 'G cup'
	elseif titK <= 45:
		tits = 7
		$titsize = 'H cup'
	elseif titK <= 50:
		tits = 8
		$titsize = 'I cup'
	elseif titK <= 55:
		tits = 9
		$titsize = 'J cup'
	else
		tits = 10
		$titsize = 'K cup'
	end
end

!!! Maruda Hair Mod
if hairlength <= 80:
	hpigtail = 0
	hscrunchw = 0
	hpingripw = 0
	curly = 0
	hbraids = 0
	if hairlength <= 30 and hbangs = 1:hbangs = 0
end

if hairlength > 400:
	hpingripw = 0
	hbraids = 0
end

if hairlength > 400 and hpigtail >= 1:
	hscrunchw = 0
	hpigtail = 0
end

if hbraids >= 1:
	curly = 0
	hscrunchw = 0
	hpingripw = 0
	hbangs = 0
	hpigtail = 0
end

if hapri = 0:$hapri = '<b>tangled</b>. You should comb it to keep it healthy'
if hapri = 1:$hapri = 'neatly arranged'

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 hcol = 0:$hcol = 'black'
if hcol = 1:$hcol = 'brown'
if hcol = 2:$hcol = 'red'
if hcol = 3:$hcol = 'blonde'

if avatar_hair = 1:
   $hair = $av_hair
else
	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.'
	if hairlength > 30 and hairlength <= 80:$hair = 'You have short <<$hcol>> hair which may cover your ears to the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
	if hairlength > 80 and hairlength <= 160:$hair = 'You have <<$curly>><<$hcol>> 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 <<$hapri>>. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
	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>>'
	if hairlength > 260 and hairlength <= 400:$hair = 'You have <<$curly>><<$hcol>> 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 <<$hapri>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
	if hairlength > 400:$hair = 'You have very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>. <<$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 src="images/pics/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
		nipple_size += temp
            
	elseif lactate = 0 and pain['nipples'] < 60:
		if rand(1,100) + breastcounter >= rand(100,200):
			'<center><img src="images/pics/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
			nipple_size += 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 lip > 4:lip = 4
if lip < 0:lip = 0

if lipbalmstat > 0:
	if lip = 0:$lipbalmstat = ' shiny'
	if lip = 1:$lipbalmstat = ' shiny'
	if lip = 2:$lipbalmstat = ' brilliant and juicy'
	if lip = 3:$lipbalmstat = ' juicy'
	if lip = 4:$lipbalmstat = ' glossy'
else
	$lipbalmstat = ''
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 lip = 0:$lip = 'You have thin<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
if lip = 1:$lip = 'You have normal<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
if lip = 2:$lip = 'You have plump<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
if lip = 3:$lip = 'You have big, pouting,<<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
if lip = 4:$lip = 'You have thick<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
if tan <= 0:$tan = 'pale'
if tan > 0:$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 skinvan > 100: skinvan = 100
if skinvan < 0: skinvan = 0
if skinvan < 20:
	$skin = 'Your <<$tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
elseif skinvan < 40:
	$skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
elseif skinvan < 60:
	$skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
elseif skinvan < 80:
	$skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
else
	$skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
end
if glacol = 0:$glacol = 'brown'
if glacol = 1:$glacol = 'gray'
if glacol = 2:$glacol = 'green'
if glacol = 3:$glacol = 'blue'
if resnic > 2:resnic = 2
if resnic = 0:$resnic = 'with short eyelashes'
if resnic = 1:$resnic = 'normal eyelashes'
if resnic = 2:$resnic = '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 glaraz > 3:glaraz = 3
if glaraz = 0:$glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 1:$glaza = 'You have medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 2:$glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
if glaraz = 3:$glaza = 'You have huge <<$glacol>> eyes that almost look like they''re out of an anime, <<$resnic>> and <<$brow>>.<<$glass>>'

if mop = 0: mopkoef = -5 & $mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
if mop = 1: mopkoef = 0 & $mop = 'You''re not wearing any kind of makeup'
if mop = 2: mopkoef = 5 & $mop = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
if mop = 3: mopkoef = 10 & $mop = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
if mop = 4: mopkoef = 20 & $mop = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'

if age < 18: leghair = -5
if leghair <= 0: legkoef = 0 & $leghair = 'You have smooth legs.'
if leghair > 0 and leghair <= 2: legkoef = 3 & $leghair = 'You can''t see any hair, but your legs are rough to the touch'
if leghair > 2 and leghair <= 5: legkoef = 6 & $leghair = 'You clearly have visible thin hairs on the legs.'
if leghair > 5: legkoef = 9 & $leghair = 'You have long hair standing out on your legs.'

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/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/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/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/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
if clit_size >= 80:$clitsize = 'Your <a href="exec:view''images/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'

! WD: Move missing Image ~ "pussy.jpg" from "images/picb" to "images/body"
if lashair = 1:$lobok = 'You have a smooth, <a href="exec:view''images/body/pussy.jpg''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
if lashair = 0 and lobok <= 0:lobkoef = 3 & $lobok = 'You have a smoothly <a href="exec:view''images/body/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
if lashair = 0 and lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have light but visible hair above your <a href="exec:view''images/body/spussy.jpg''">crotch</a>. <<$pirspiz>><br><<$clitsize>>'

if nipple_size < 20:$nipplesize = 'You have average <a href="exec:view''images/body/nipples/nipples1.jpg''">nipples</a>.'
if nipple_size >= 20 and nipple_size < 40:$nipplesize = 'Your <a href="exec:view''images/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
if nipple_size >= 40 and nipple_size < 60:$nipplesize = 'You have large, puffy <a href="exec:view''images/body/nipples/nipples3.jpg''">nipples</a>.'
if nipple_size >= 60 and nipple_size < 80:$nipplesize = 'Your <a href="exec:view''images/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
if nipple_size >= 80:$nipplesize = 'You have huge <a href="exec:view''images/body/nipples/nipples5.jpg''">nipples</a>.'

! WD: Move missing Image ~ "hpussy.jpg" from "images/picb" to "images/body"
if lobok > 2:lobkoef = 0 & $lobok = 'You have a full triangle of thick <a href="exec:view''images/body/hpussy.jpg''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'

If dounspell = 1:
	bodytipe = bedra - talia
	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 tan > 0:tanKoef = 1
if tan = 0:tanKoef = 0

!! buzzcut penalty to vnesh
if hairlength < 10:
	hairkoef = 10
else
	hairkoef = 0
end

if sweat < 22:
	sweatKoef = 0
elseif sweat < 38:
	sweatKoef = (sweat - 10) / 4
elseif sweat < 54:
	sweatKoef = (sweat - 10) / 2
else
	sweatKoef = 3 * (sweat - 10) / 4
end

if lipbalmstat > 0:
	lipbalmKoef = 5
else
	lipbalmKoef = 0
end

!!This is to force a base update if teeth changed since that is immediate
if zublast ! zub:
	gs 'body_shape', 'basebeautycalc', 1
	zublast = zub
end

!!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
CloAdjustedBeauty = bonusZ + vneshbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness) / 1500

!!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / hapri = Hair brushed / lipbalmKoef = lip balm / fbreath = freash breath / sweatKoef = sweat / glassvnesh = glasses / dyevmod = hair dye fading
!!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; lip = lip size; skin = skin condition; resnic = eyelashes; glaraz = eyes; bodykoef = hips:waist ratio; zub = missing teeth; vidagebonus = youth
!!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
vnesh = vneshbase + CloAdjustedBeauty + mopkoef + (hapri * 10) + lipbalmKoef + (fbreath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef

if vnesh >= 200: vnesh = 200 + supnatvnesh
if vnesh < 0: vnesh = 0

!!This sets the "hotness catagory" varibale for use in checks
if vnesh <= 200:
	hotcat = vnesh / 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:vnesh = -10
end

if StrongNarkota > 0:
	if SLomka > 0:SLomka = 0

	manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
end

if vnesh = -10:
	$vnesh = '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 vnesh < 20:
	$vnesh = 'Your looks are terrible. People try to avoid looking and talking to you.'
elseif vnesh < 60:
	$vnesh = 'You''re a wallflower. Hardly anyone notices you.'
elseif vnesh < 120:
	$vnesh = 'You have good looks. Men and women check you out when they think you aren''t looking.'
elseif vnesh < 200:
	$vnesh = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
else
	$vnesh = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!BODY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if dounspell = 1:
	salocatnow = (bedra / 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 ---------------------------------
