glife/locations/012_body

# body
if anus = 0: anpic = 0 & set $anus = 'You have a virgin <a href="exec:view''images\body\0.jpg''">anus</a>.'
if anus > 0 and anus <= 5: anpic = 1 & set $anus = 'Your <a href="exec:view''images\body\1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
if anus > 5 and anus <= 10: anpic = 2 & set $anus = 'Your <a href="exec:view''images\body\2.jpg''">anus</a> has the shape of an asterisk.'
if anus > 10 and anus <= 15: anpic = 3 & set $anus = 'Your <a href="exec:view''images\body\3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
if anus > 15 and anus <= 20: anpic = 4 & set $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.'
if anus > 25: anpic = 5 & set $anus = 'Your <a href="exec:view''images\body\5.jpg''">anus</a> does not close anymore, you could put a fist through it and it wouldn''t stretch at all.'

!'<a href="exec:view''images\body\1.jpg''">anus</a>'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!РОСТ И ВЕС
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!! grudi = breast => chest girth or chest measurement
if dounspell = 0:
	strenbuf  = stren
	vitalbuf  = vital
	set vmeat = (strenbuf + vitalbuf) / 8
	set vfat  = salo / 10
	set Kves  = vmeat + vfat
	set krost = rost - 130
	set ves   = Kves + krost - (agilbuf/10)
!!! 	talia = waist measurement in cm
	set talia = ves - (agilbuf/10) + waistShrink
!!! 	grudi = chest measurement !PROBABLY! in cm
	set grudi = talia + 10 + vfat + silicone - waistShrink + brgrow
!!! 	bedra = hip size 
	set bedra = talia + 15 + (vmeat/2) + vfat + hipGrow
	set titK  = grudi - talia + bgrow + brgrow
	if titK <= 10: set tits = 0
	if titK > 10 and titK <= 15: set tits = 1
	if titK > 15 and titK <= 20: set tits = 2
	if titK > 20 and titK <= 25: set tits = 3
	if titK > 25 and titK <= 30: set tits = 4
	if titK > 30 and titK <= 35: set tits = 5
	if titK > 35 and titK <= 40: set tits = 6
	if titK > 40 and titK <= 45: set tits = 7
	if titK > 45 and titK <= 50: set tits = 8
	if titK > 50 and titK <= 55: set tits = 9
	if titK > 55: set tits = 10
end


if dounspell = 1:
	set fat   = 0
	set bedra = bedraDoun
	set talia = TaliaDoun + waistShrink
	set grudi = talia + 14 + silicone - waistShrink + brgrow
	set ves   = TaliaDoun + hipGrow
	set titK  = grudi - talia + bgrow + brgrow
	if titK <= 10: set tits = 0
	if titK > 10 and titK <= 15: set tits = 1
	if titK > 15 and titK <= 20: set tits = 2
	if titK > 20 and titK <= 25: set tits = 3
	if titK > 25 and titK <= 30: set tits = 4
	if titK > 30 and titK <= 35: set tits = 5
	if titK > 35 and titK <= 40: set tits = 6
	if titK > 40 and titK <= 45: set tits = 7
	if titK > 45 and titK <= 50: set tits = 8
	if titK > 50 and titK <= 55: set tits = 9
	if titK > 55: set tits = 10
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!! Maruda Hair Mod
if hairlength <= 80:
	set hpigtail = 0
	set hscrunchw = 0
	set hpingripw = 0
	set curly = 0
end

if hairlength > 400: set hpingripw = 0

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

if hairlength <= 80: set hbraids = 0

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

if hapri = 0: set $hapri = '<B>tangled</B>, you should comb it, to keep it healthy'
if hapri = 1: set $hapri = 'neatly arranged'

if curly <= 0: set $curly = 'straight, slightly wavy '
if curly > 0: set $curly = 'curly '

if hbangs <= 0: set $hbangs = ''
if hbangs > 0: set $hbangs = ', with a fringe covering your forehead'

if hscrunchw <= 0: set $hscrunch = ''
if hscrunchw = 1: set $hscrunch = ' A hair-tie holds your hair as a ponytail in place.'

if hpingripw <= 0: set $hpingrip = ''
if hpingripw > 0: set $hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'

if hscrunchw <= 0: set $hpigtail = ''
if hscrunchw = 2: set $hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'

if hbraids <= 0: set $hbraids = ''
if hbraids > 0: set $hbraids = ' You have your hair beautifully braided.'

if hcol = 0: set $hcol = 'black'
if hcol = 1: set $hcol = 'brown'
if hcol = 2: set $hcol = 'red'
if hcol = 3: set $hcol = 'blonde'

if hairlength <= 30: set $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: set $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>>.'
if hairlength > 80 and hairlength <= 160: set $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>>'
if hairlength > 160 and hairlength <= 260: set $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: set $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>>'
if hairlength > 400: set $hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
!if hcol = 0 and curly <= 0: set $hair = 'You have <<$hapri>> straight, black hair.'
!if hcol = 1 and curly <= 0: set $hair = 'You have <<$hapri>> straight, brown hair.'
!if hcol = 2 and curly <= 0: set $hair = 'You have <<$hapri>> straight, red hair.'
!if hcol = 3 and curly <= 0: set $hair = 'You have <<$hapri>> straight, blonde hair.'
!if hcol = 0 and curly > 0: set $hair = 'You have <<$hapri>> curly, black hair.'
!if hcol = 1 and curly > 0: set $hair = 'You have <<$hapri>> curly, brown hair.'
!if hcol = 2 and curly > 0: set $hair = 'You have <<$hapri>> curly red hair.'
!if hcol = 3 and curly > 0: set $hair = 'You have <<$hapri>> curly blonde hair.'
!if hcol = 0: set $hair = 'You have <<$hapri>> <<$curly>>, black hair.'
!if hcol = 1: set $hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
!if hcol = 2: set $hair = 'You have <<$hapri>> <<$curly>>, red hair.'
!if hcol = 3: set $hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'


!!! Maruda Hair Mod

if lip > 4: set lip = 4
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 talk, your conversation partner can get a glance at your tongue piercing.'
if pirsA = 0:$pirsA = ''
if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
if pirsB = 0:$pirsB = ''
if lip = 0: set $lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
if lip = 1: set $lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
if lip = 2: set $lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
if lip = 3: set $lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
if lip = 4: set $lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
if tan <= 0: set $tan = 'pale'
if tan > 0: set $tan = 'Tanned'
if skin > 4: set skin = 4
if skin < 0: skin = 0
if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
if pirsC = 0:$pirsC = ''
if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
if pirsD = 0:$pirsD = ''
if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
if pirsE = 0:$pirsE = ''
if skin = 0: set $skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
if skin = 1: set $skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
if skin = 2: set $skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
if skin = 3: set $skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
if skin = 4: set $skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
if glacol = 0: set $glacol = 'brown'
if glacol = 1: set $glacol = 'gray'
if glacol = 2: set $glacol = 'green'
if glacol = 3: set $glacol = 'blue'
if resnic > 2: set resnic = 2
if resnic = 0: set $resnic = 'with short eyelashes'
if resnic = 1: set $resnic = 'normal eyelashes'
if resnic = 2: set $resnic = 'with long eyelashes'
if glaraz > 3: set glaraz = 3
if glaraz = 0: set $glaza = 'You have little <<$glacol>> eyes <<$resnic>>.'
if glaraz = 1: set $glaza = 'You have a medium-sized <<$glacol>> eyes <<$resnic>>.'
if glaraz = 2: set $glaza = 'You have large <<$glacol>> eyes <<$resnic>>.'
if glaraz = 3: set $glaza = 'You have a huge <<$glacol>> eyes <<$resnic>>. They almost look like they''re out of an anime.'

if mop = 0: set $mop = '<B><font color = red>Your make-up is smeared all over your face</font></B>'
if mop = 1: set $mop = 'You''re not wearing any kind of makeup'
if mop = 2: set $mop = 'Your makeup is very light, just a very few touch-up here and there'
if mop = 3: set $mop = 'You have "everyday"-like makeup applied'
if mop = 4: set $mop = 'You have thick makeup, which is definitely flashy during the day'

if leghair <= 0: set legkoef = 3 & set $leghair = 'You have smooth legs.'
if leghair > 0 and leghair <= 2: set legkoef = 0 & set $leghair = 'You do not see with our eyes but rough to the touch bristles on his feet.'
if leghair > 2 and leghair <= 5: set legkoef = 0 & set $leghair = 'You clearly visible thin hairs on the legs.'
if leghair > 5: set legkoef = 0 & set $leghair = 'Do you have long hair standing out on his feet.'

if pirsG = 1:$pirsG = 'There are several piercings hanging from your vaginas lips.'
if pirsG = 0:$pirsG = ''

if lobok <= 0: set lobkoef = 3 & set $lobok = 'You have a smoothly shaved pubis. <<$pirsG>>'
if lobok > 0 and lobok <= 2: set lobkoef = 0 & set $lobok = 'One can see now, that you haven''t shaved yourself in a while now. <<$pirsG>>'
if lobok > 2: set lobkoef = 0 & set $lobok = 'It''s like a jungle down there! You should definitely shave yourself soon. <<$pirsG>>'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set bodytipe = bedra - talia
if bodytipe < 20: set bodykoef = 0
if bodytipe >= 20 and bodytipe < 25: set bodykoef = 2
if bodytipe >= 25 and bodytipe < 30: set bodykoef = 4
if bodytipe >= 30 and bodytipe < 35: set bodykoef = 8
if bodytipe >= 35: set bodykoef = 4

if tan > 0: set tanKoef = 1
if tan = 0: set tanKoef = 0

if curly > 0: curlykoef = 1
if curly = 0: curlykoef = 0

if sweat <= -6:
	set sweatKoef = -1
elseif sweat <= 0:
	set sweatKoef = 0
else
	set sweatKoef = sweat * 5
end

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

if vidage < 21: vidagebonus = 0
if vidage >= 21 and vidage < 26: vidagebonus = 1
if vidage >= 26 and vidage < 30: vidagebonus = 3
if vidage >= 30 and vidage < 34: vidagebonus = 6
if vidage >= 34 and vidage < 36: vidagebonus = 9
if vidage >= 36 and vidage < 38: vidagebonus = 12
if vidage >= 38 and vidage < 40: vidagebonus = 16
if vidage >= 40 and vidage < 45: vidagebonus = 25
if vidage >= 45: vidagebonus = 50

if age < 18: leghair = -5
if age < 18: lobok = -5

set tatKeof = kendra * 5
if tatvag >= 3: set tatKeof += 5
if tatleg >= 1: set tatKeof += 5
set vnesh = (curlykoef + tits + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + lobkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - (sweatKoef + vidagebonus) - (zub * 2) + tatKeof

if vnesh < 0: vnesh = 0
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: set $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.'
if vnesh < 5 and vnesh>-10: set $vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
if vnesh >= 5 and vnesh < 15: set $vnesh = 'You''re a wallflower. Barely anyone notices you.'
if vnesh >= 15 and vnesh < 30: set $vnesh = 'You have good looks. Men and women like to take a glance at you.'
if vnesh >= 30 and vnesh < 50: set $vnesh = 'You have a simply stunning appearence. Other girls are abit jealous and guys constantly check you out.'
if vnesh >= 50: set $vnesh = 'Your appearence is divine! Noone is able to take his or her eyes off of you.'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!ТЕЛО
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
musle = strenbuf + vitalbuf
	if musle >= salo:
	!мускулистый тип
		if bedra < 60:
		set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
		end
		if bedra >= 60 and bedra < 70:
		set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
		end
		if bedra >= 70 and bedra < 80:
		set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
		end
		if bedra >= 80 and bedra < 90:
		set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
		end
		if bedra >= 90 and bedra < 100:
		set $body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
		end
		if bedra >= 100 and bedra < 110:
		set $body = 'Body fat there is little, through the skin are the large muscles.'
		end
		if bedra >= 110 and bedra < 120:
		set $body = 'Body fat there is little, through the skin are the massive muscles.'
		end
		if bedra >= 120:
		set $body = 'Body fat there is little, through the skin are the massive muscles.'
		end
	end
	if musle < salo:
	!жирный тип
		if bedra < 60:
		set $body = 'You are very lean and you have virtually no muscle.'
		end
		if bedra >= 60 and bedra < 70:
		set $body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
		end
		if bedra >= 70 and bedra < 80:
		set $body = 'You are very skinny girl.'
		end
		if bedra >= 80 and bedra < 90:
		set $body = 'You skinny girl.'
		end
		if bedra >= 90 and bedra < 100:
		set $body = 'You skater girl.'
		end
		if bedra >= 100 and bedra < 110:
		set $body = 'You formastaya girl.'
		end
		if bedra >= 110 and bedra < 120:
		set $body = 'You zhirnovat girl.'
		end
		if bedra >= 120:
		set $body = 'You are very fat.'
		end
	end
	$fat = $body
--- body ---------------------------------