glife/locations/005_onobjsel

# onobjsel
!!!dynamics!!!
$din_show_tits = {
	view
	view 'images/body/t<<tits>>.jpg'
}

$objdescrip = {
	clr
	pl 'Your name is <<$name>> <<$surname>>.'
	pl 'You are <<age>> <<$letgoda>>, but looking at you, people would guess you are <<vidage>> <<$letgoda2>>.'

	!!!0.2.6 extension
	if StoryLine > 0:
		pl 'Friends and family sometimes call you <<$nickname>>'
	else
		pl 'Friends sometimes call you <<$nickname>>'
	end
	!!!

	if birthday > 0 and birthmonth > 0:pl 'Your date of birth is <<birthday>>.0<<birthmonth>>.<<birthyear>>, the'

	pl 'You are <<rost>> cm tall, you weigh <<ves>> pounds.'
	pl '<<$body>>'
	pl '<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>>, <a href="exec:dynamic $din_show_tits">the size of your breasts are <<tits>></a>, the difference between your hips and your waist is <<bedra-talia>> cm'
	pl '<<$anus>>'
	pl '<<$vnesh>>'
	pl '<<$hair>>'
	pl '<<$lip>>'
	pl '<<$skin>>'
	pl '<<$glaza>>'
	pl '<<$mop>>'
	pl '<<$leghair>>'
	pl '<<$lobok>>'
	nl

	if salo = 0 and musle > 0 and dounspell = 0:pl '<b><font color="red">You are showing signs undernourishment. You should probably eat more and more often.</font></b>'
	if salo = 0 and musle = 0 and dounspell = 0:pl "<b><font color="red">You are dangerously malnourished, which has led to a loss in muscle mass. You're in a critical condition and likely to pass out!</font></b>"
	if curly > 0:pl 'Your curls are good for another <<curly>> days.'
	if zub = 1:$zuba = ' tooth'
	if zub >= 2:$zuba = ' teeth'
	if zub > 0:pl 'You have <<zub>><<$zuba>>.'

	!pl 'vnesh <<vnesh>>'
	!pl 'curlykoef <<curlykoef>> a maximum of 1'
	!pl 'tits <<tits>> A maximum of 6'
	!pl 'lip <<lip>> a maximum of 4'
	!pl 'tanKoef <<tanKoef>> a maximum of 1'
	!pl 'skin <<skin>> a maximum of 4'
	!pl 'mop <<mop>> a maximum of 4'
	!pl 'resnic <<resnic>> a maximum of 2'
	!pl 'glaraz <<glaraz>> a maximum of 3'
	!pl 'bodykoef <<bodykoef>> a maximum of 8'
	!pl 'legkoef <<legkoef>> a maximum of 3'
	!pl 'lobkoef <<lobkoef>> a maximum of 3'
	!pl 'odevnesh <<odevnesh>> a maximum of 15'
	!pl 'sweat <<sweat>> the maximum 0'
	!pl 'hapri <<hapri>> a maximum of 1'

	!!!!!!!! Maruda Hair Mod
	if hairlength > 41 and hscrunch >= 1:
		if hscrunchw = 0 and hpingripw = 0:pl 'As you have a scrunchy, you can arrange your hair into a <a href="exec:set hscrunchw = 1 & dynamic $objdescrip">ponytail</a>. You have <<hscrunch>> scrunchies left.'
		if hscrunchw = 1:pl 'Remove the <a href="exec:set hscrunchw = 0 & dynamic $objdescrip">scrunchie</a> to get rid of the ponytail.'
	end
	if hairlength > 41 and hpingrip >= 1:
		if hscrunchw = 0 and hpingripw = 0:pl 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:set hpingripw = 1 & dynamic $objdescrip">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
		if hpingripw = 1:pl 'Let your hair <a href="exec:set hpingripw = 0 & dynamic $objdescrip">flow free</a>.'
	end
	if hairlength > 80 and hscrunch >= 2:
		if hscrunchw = 0 and hpingripw = 0:pl 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & dynamic $objdescrip">pigtails</a>.'
		if hscrunchw = 2:pl '<a href="exec:hpigtail = 0 & hscrunchw = 0 & dynamic $objdescrip">Remove</a> your scrunchies and let your hair flow free again.'
	end

	if hscrunch < 1:set hscrunchw = 0
	if hpingrip < 1:set hpingripw = 0
	if hscrunch < 2:set hpigtail = 0
	!!!!!!!! Maruda Hair Mod

}

$objskills = {
	clr
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
	!if salo > musle * 4:set $fat = 'You have a chubby disposition'
	!if salo <= musle * 4 and fat > musle * 2:set $fat = 'You have a soft curvy body that still carries an elastic finesse.'
	!if salo <= musle * 2 and fat > musle:set $fat = 'You have an average body showing signs that you take care of yourself.'
	!if salo <= musle and fat >= musle / 2:set $fat = 'Your body is slim and trim. You probably workout often '
	!if salo < musle / 2:set $fat = 'Your body is a prayer to the god of fitness! Your skin is taught against your lithe musculature.'

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	pl 'Attractiveness <<vnesh>>'
	pl 'Power <<stren>>'
	pl 'Speed ​​<<speed>>'
	pl 'Agility <<agil>>'
	pl 'Endurance <<vital>>'
	pl 'Intelligence <<intel>>'
	pl 'Willpower <<will>>'
	pl 'Reaction <<react>>'
	pl '<<$fat>>'
	!pl 'Bezstydstvo <<shameless>>'

	if SUB > 0:pl 'Subordination <<SUB>>'
	if DOM > 0:pl 'Dominance <<DOM>>'

	!pl 'Muscles <<$musle>>'

	if magik > 0:pl 'Magic <<magik>>'
	if Jab > 0:pl 'Jab - <<Jab>>'
	if Punch > 0:pl 'Power Strikes - <<Punch>>'
	if Kik > 0:pl 'Kicks - <<Kik>>'
	if KikDef > 0:pl 'Protection against - <<KikDef>>'
	if beg > 0:pl 'Skill Run - <<beg>>'
	if volleyboll > 0:pl 'Skill volleyball - <<volleyboll>>'
	if oficiant > 0:pl 'Skills waitresses - <<oficiant>>'
	if vokal > 0:pl 'Vocal skills <<vokal>>'
	if dance > 0:pl 'Skill Dance - <<dance>>'
	if dancePRO > 0:pl 'Regular dancing skilllevel - <<dancePRO>>'
	if stripdance > 0:pl 'Striptease skilllevel - <<stripdance>>'
	if poledance > 0:pl 'Poledancing skilllevel- <<poledance>>'
	if shoot > 0:pl 'Shooting Accuracy - <<shoot>>'
	if kid = 1:pl 'You have a child, <<$polreb[1]>> name <<$kidname[1]>>. Born <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>y. Age <<kidage[1]>>'

	if SchoolAtestat = 0 and StoryLine > 0:
		if Suspeh >= 90:pl 'You are an A+ student.'
		if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
		if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
		if Suspeh >= 60 and Suspeh < 70:pl "You are the typical average student. You're good in the fields you like, but can't be bothered with the rest."
		if Suspeh >= 50 and Suspeh < 60:pl "You're not very good in school, you wish you could be somewhere else and your grades show it."
		if Suspeh >= 40 and Suspeh < 50:pl "You are not cut out for school, you skip out most of the time. You wonder how you're going to manage to get passing grades."
		if Suspeh < 40:pl "You are the class nitwit. You're still not sure how you got this far in the first place."

		if schoolprogul > 1:pl 'Absenteeism in school <<schoolprogul>>'
	end
}

$objstatistika = {
	clr
	if opPRE = 0:pl 'It has been <<daystart>> the game has started.'
	if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area <<ArendHouseSL>> days.'
	if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
		pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
		pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
		nl
	end

	if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
	if KisameDead = 1:pl 'You killed Kisame.'& nl
	if razradKik > 0:pl '<<$razradKik>>' & nl

	if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
		pl 'Amateur Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
		pl '<<KikWinAm>> (<<KikWinAmKO>>KO) - <<KikLossAm>> (<<KikLossAmKO>>KO) - <<KikDrawAm>>'
		nl
	end

	if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kN' & nl
	if Irina > 0:pl 'Friendship with Irene <<Irina>>'
	if Givi > 0:pl 'Friendship Givi K. <<Givi>>'
	if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
	if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
	if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
	if afra > 0:pl 'Friendship with blacks <<afra>>'
	if vika > 0:pl 'Friendship with Vika <<vika>>'
	if kat > 0:pl 'Friendship with Kate <<kat>>'
	if nastjaqw > 0:pl 'Friendship with Nastya <<nastjaqw>>'
	!!!WD: Formatting
	if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
	!!!
	if modelfoto > 0:pl 'You filmed naked <<modelfoto>> times'
	!!!Kept because of community kiosk version
	if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>>'
	!!!
	if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
	if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> professionally.'
	if razradKik = 1:set $razradKik = "You're ranked III in amateur kickboxing"
	if razradKik = 2:set $razradKik = "You're ranked II in amateur kickboxing"
	if razradKik = 3:set $razradKik = "You're ranked I in amateur kickboxing"
	if razradKik = 4:set $razradKik = "You are a candidate for the title of Master in Kickboxing"
	if razradKik = 5:set $razradKik = 'You have the title of Master Kickboxer'
	if SchoolAtestat = 1:pl 'You have finished school.'
	if diplom = 1:pl 'You graduated.'
	if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
	if kolsorev > 0:pl 'You have participate <<kolsorev>> in a running race'
	if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals on the run'
	if silverbeg > 0:pl '<<silverbeg>> - silver medals for event'
	if goldbeg > 0:pl '<<goldbeg>> - gold medals in running'
	if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist of European Championship'
	if razradbegES > 0:pl '<<razradbegES>> fold vice champion of Europe'
	if razradbegEG > 0:pl '<<razradbegEG>> time European champion.'
	if razradbeg = 1:pl 'You have third sports category for event'
	if razradbeg = 2:pl 'You 2nd sports category for event'
	if razradbeg = 3:pl 'You 1st sports category for event'
	if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
	if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
	if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
	!!!WD:FORMATING
	if (razradKik + SchoolAtestat + diplom + teachlevel + kolsorev + bronzebeg + silverbeg + goldbeg + razradbegEG + razradbeg) > 0:nl
	!!!
	if mastr > 0:pl 'Masturbated <<mastr>> time'
	if throat > 0:pl 'Capacity of the throat <<throat>>'
	if vagina > 0:pl 'Elasticity of the vagina <<vagina>>'
	if vagina = 0 and sex = 0:pl 'You are a virgin.'
	if anus > 0:pl '<<$anus>>'
	nl
	if GorSlut = 1:pl 'In the town you are known as a flirt.'
	if GorSlut = 2:pl 'In the town you are known to have sucked a few cocks.'
	if GorSlut = 3:pl 'In the town you are known as a great cocksucker.'
	if GorSlut = 4:pl 'In the town you are known to have fucked several boys.'
	if GorSlut = 5:pl 'In the town you are known the slut that would do anything.'
	if GorSlut = 6:pl 'In the town you are known as a prostitute who will take money for most extreme sex acts.'
	!!!WD:FORMATING
	if GorSlut > 0:nl
	!!!
	if guy > 0:pl 'You had <<guy>> guys.'
	if divorced > 0:pl 'You have <<divorced>> husbands.'
	if suprdolg > 0:pl 'Performed conjugal duty to her husband <<suprdolg>> time'
	if gang > 0:pl 'Group sex <<gang>> times'
	if sex > 0 and sexa = 0:pl 'Vaginal sex <<sex>> times.'
	if sex > 0 and sexa > 0:pl 'Vaginal sex <<sex>> times from them <<sexa>> times with her boyfriend.'
	if bj > 0 and gloryhole = 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times.'
	if bj > 0 and gloryhole = 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
	if bj > 0 and gloryhole > 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall.'
	if bj > 0 and gloryhole > 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Just one <<bja>> times her boyfriend'
	if bj > 0 and gloryhole = 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
	if bj > 0 and gloryhole = 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
	if bj > 0 and gloryhole > 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times.'
	if bj > 0 and gloryhole > 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
	if hj > 0 and hja = 0:pl 'Guys jerking off <<hj>> times'
	if hj > 0 and hja > 0:pl 'Guys jerking off <<hj>> times from them <<hja>> times masturbate her boyfriend'
	if hump > 0:pl 'About you wanker member <<hump>> times'
	if rape > 0:pl 'You have been raped <<rape>> times'
	if anal > 0 and anala = 0:pl 'Anal <<anal>> times'
	if anal > 0 and anala > 0:pl 'Anal <<anal>> times from them <<anala>> times with her boyfriend'
	if kuni > 0:pl 'You did cunnilingus <<kuni>> times'
	if pegging > 0:pl 'Pegging <<pegging>> times'
	if spank > 0:pl 'You ran your ass <<spank>> times'
	!!!WD:FORMATING
	if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0:nl
	!!!

	if slutty > 0 and bordelslutty = 0:pl 'Sold your love <<slutty>> time.'
	if slutty > 0 and bordelslutty > 0:pl 'Sold your love <<slutty>> times, including in a brothel <<bordelslutty>> times.'
	if pfilmSTOP = 1:pl '<<$pfilmstory_new>>'

	if film > 0:
		pl 'In the porn industry you know the name of <<$pfname>>. You starred in porn <<film>> times.'
		pl '<<$pfilmhistory>>'
		nl
	end

	if orgasm > 0:pl'Experienced orgasm <<orgasm>> times.'
	if analorgasm > 0 :pl 'One <<analorgasm>> anal orgasms.'
	if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
	if facial > 0:pl 'Cum on face <<facial>> times.'
	if frot > 0:pl 'Come on you truck <<frot>> times.'
	if VAF > 0:pl 'Vaflizm <<VAF>>.'
	if zoo > 0:pl 'Having sex with animals <<zoo>> times.'
	if pee > 0:pl 'You pissing <<pee>> times.'
	!!!WD:FORMATING
	if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
	!!!
	if girl > 0:pl 'You have <<girl>> girls.'
	if lesbian > 0:pl 'You do lecbiyskim sex <<lesbian>> times.'
	if sexfuta > 0:pl 'You <<sexfuta>> had sex with chlenodevkoy.'
}

$din_cheat_hapri = {
	if cheatHapri = 0:
		cheatHapri = 1
		gs 'stat'
		dynamic $din_cheat
		exit
	end

	if cheatHapri = 1:
		cheatHapri = 0
		gs 'stat'
		dynamic $din_cheat
	end
}

$din_cheat_nomakeup = {
	if cheatNomakeup = 0:
		cheatNomakeup = 1
		gs 'stat'
		dynamic $din_cheat
		exit
	end

	if cheatNomakeup = 1:
		cheatNomakeup = 0
		gs 'stat'
		dynamic $din_cheat
	end
}

$din_cheat_Nosweat = {
	if cheatNosweat = 0:
		cheatNosweat = 1
		gs 'stat'
		dynamic $din_cheat
		exit
	end

	if cheatNosweat = 1:
		cheatNosweat = 0
		gs 'stat'
		dynamic $din_cheat
	end
}

$din_cheat_NoEat = {
	if cheatNoEat = 0:
		cheatNoEat = 1
		gs 'stat'
		dynamic $din_cheat
		exit
	end

	if cheatNoEat = 1:
		cheatNoEat = 0
		gs 'stat'
		dynamic $din_cheat
	end
}

$din_cheat_param = {
	gs 'stat'
	clr
	pl '<a href="exec:dynamic $din_cheat">Back to the cheat menu</a>'
	pl '<<strenbuf>> - strenbuf'
	pl '<<vitalbuf>> - vitalbuf'
	pl '<<vmeat>> - vmeat'
	pl '<<vfat>> - vfat'
	pl '<<Kves>> - Kves'
	pl '<<krost>> - krost'
	pl '<<ves>> - ves'
	pl '<<talia>> - talia - Waist measurement in cm'
	pl '<<grudi>> - grudi - Chest measurement in cm'
	pl '<<bedra>> - bedra'
	pl '<<titK>> - tits'
	pl '<<silicone>> - silicone'
	pl '<<grudi>> - <<talia>> - <<bedra>>, breast size <<tits>>, the difference between the hips and waist <<bedra-talia>> cm'
	pl 'Indicator muscularity <<musle>> - musle, <<salo>> - salo <<salo * 2>> - salo * 2 <<fat>> - fat'
}

$din_cheat = {
	gs 'stat'
	clr
	if cheatHapri = 0:$cheatHapri = 'OFF'
	if cheatHapri = 1:$cheatHapri = 'ON'
	if cheatNomakeup = 0:$cheatNomakeup = 'OFF'
	if cheatNomakeup = 1:$cheatNomakeup = 'ON'
	if cheatNosweat = 0:$cheatNosweat = 'OFF'
	if cheatNosweat = 1:$cheatNosweat = 'ON'
	if cheatNoEat = 0:$cheatNoEat = 'OFF'
	if cheatNoEat = 1:$cheatNoEat = 'ON'

	pl 'If you use the cheats, then remember, It`s your decision and the consequences respond to you.'
	pl '<a href="exec:dynamic $din_cheat_param">Show design parameters of the body.</a>'
	pl '<a href="exec:health = vital * 10 + stren * 5 + 1000 & willpower = intel * 5 + will * 5 + 1000 & manna = (intel * magik) + magik * 100 + vital * 10 + rikudo & dynamic $din_cheat">Complete recovery, manna, reason.</a>'

	if salo ! fat:pl 'option <a href="exec:fat = salo & dynamic $din_cheat">Balance the fat</a>'

	pl '<b>Permanent Cheats</b>'
	pl 'Option to <a href="exec:dynamic $din_cheat_hapri">is always groomed</a> <<$cheatHapri>>'
	pl 'Option to <a href="exec:dynamic $din_cheat_nomakeup">never smeared cosmetics</a> <<$cheatNomakeup>>'
	pl 'Option to <a href="exec:dynamic $din_cheat_Nosweat">never sweat</a> <<$cheatNosweat>>'
	pl 'Option to <a href="exec:dynamic $din_cheat_NoEat">never to eat or drink</a> <<$cheatNoEat>>'
	pl '<b>Cheats designer body</b>'

	if lip < 4:pl 'Option to <a href="exec:lip += 1 & dynamic $din_cheat">enlarge the lips</a>'
	if lip > 0:pl 'Option to <a href="exec:lip -= 1 & dynamic $din_cheat">reduce the lips</a>'
	if skin < 4:pl 'Option to <a href="exec:skin += 1 & dynamic $din_cheat">improve the skin</a>'
	if skin > 0:pl 'Option to <a href="exec:skin -= 1 & dynamic $din_cheat">impair the skin</a>'
	if resnic < 2:pl 'Option to <a href="exec:resnic += 1 & dynamic $d_cheat">increase eyelashes</a>'
	if resnic > 0:pl 'Option to <a href="exec:resnic -= 1 & dynamic $d_cheat">reduce the eyelashes</a>'
	if glaraz < 3:pl 'Option to <a href="exec:glaraz += 1 & dynamic $d_cheat">enlarge the eyes</a>'
	if glaraz > 0:pl 'Option to <a href="exec:glaraz -= 1 & dynamic $din_cheat">shrink the eyes</a>'
	if salo > 0:pl 'Option to <a href="exec:salo -= 5 & fat = salo & dynamic $d_cheat">reduce fat</a> <a href="exec:salo = 0 & fat = salo & dynamic $din_cheat">Zero fat</a>'
	pl 'Option to increase fat by <a href="exec:salo += 5 & fat = salo & dynamic $d_cheat">5</a>, <a href="exec:salo += 25 & fat = salo & dynamic $din_cheat">25</a>, <a href="exec:salo += 50 & fat = salo & dynamic $din_cheat">50</a>, <a href="exec:salo += 100 & fat = salo & dynamic $din_cheat">100</a>'

	pl 'Increase power by <a href="exec:stren += 1 & dynamic $din_cheat">1</a> <a href="exec:stren += 5 & dynamic $din_cheat">5</a> <a href="exec:stren += 10 & dynamic $din_cheat">10</a> <a href="exec:stren = 100 & dynamic $din_cheat">set to 100</a>'
	if stren > 0:pl 'Decrease power by <a href="exec:stren -= 1 & dynamic $d_cheat">1</a> <a href="exec:stren -= 5 & dynamic $din_cheat">5</a> <a href="exec:stren -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase speed by <a href="exec:speed += 1 & dynamic $din_cheat">1</a> <a href="exec:speed += 5 & dynamic $din_cheat">5</a> <a href="exec:speed += 10 & dynamic $din_cheat">10</a> <a href="exec:speed = 100 & dynamic $din_cheat">set to 100</a>'
	if speed > 0:pl 'Decrease speed by <a href="exec:speed -= 1 & dynamic $din_cheat">1</a> <a href="exec:speed -= 5 & dynamic $din_cheat">5</a> <a href="exec:speed -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase agility by <a href="exec:agil += 1 & dynamic $din_cheat">1</a> <a href="exec:agil += 5 & dynamic $din_cheat">5</a> <a href="exec:agil += 10 & dynamic $din_cheat">10</a> <a href="exec:agil = 100 & dynamic $din_cheat">set to 100</a>'
	if agil > 0:pl 'Decrease agility by <a href="exec:agil -= 1 & dynamic $din_cheat">1</a> <a href="exec:agil -= 5 & dynamic $din_cheat">5</a> <a href="exec:agil -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase reaction by <a href="exec:react += 1 & dynamic $din_cheat">1</a> <a href="exec:react += 5 & dynamic $din_cheat">5</a> <a href="exec:react += 10 & dynamic $din_cheat">10</a> <a href="exec:react = 100 & dynamic $din_cheat">set to 100</a>'
	if react > 0:pl 'Decrease reaction by <a href="exec:react -= 1 & dynamic $din_cheat">1</a> <a href="exec:react -= 5 & dynamic $din_cheat">5</a> <a href="exec:react -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase endurance by <a href="exec:vital += 1 & dynamic $din_cheat">1</a> <a href="exec:vital += 5 & dynamic $din_cheat">5</a> <a href="exec:vital += 10 & dynamic $din_cheat">10</a> <a href="exec:vital = 100 & dynamic $din_cheat">set to 100</a>'
	if vital > 0:pl 'Decrease endurance by <a href="exec:vital -= 1 & dynamic $din_cheat">1</a> <a href="exec:vital -= 5 & dynamic $din_cheat">5</a> <a href="exec:vital -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase will by <a href="exec:will += 1 & dynamic $din_cheat">1</a> <a href="exec:will += 5 & dynamic $din_cheat">5</a> <a href="exec:will += 10 & dynamic $din_cheat">10</a> <a href="exec:will = 100 & dynamic $din_cheat">set to 100</a>'
	if will > 0:pl 'Decrease will by <a href="exec:will -= 1 & dynamic $din_cheat">1</a> <a href="exec:will -= 5 & dynamic $din_cheat">5</a> <a href="exec:will -= 10 & dynamic $din_cheat">10</a>'

	pl 'Increase intelligence by <a href="exec:intel += 1 & dynamic $din_cheat">1</a> <a href="exec:intel += 5 & dynamic $din_cheat">5</a> <a href="exec:intel += 10 & dynamic $din_cheat">10</a> <a href="exec:intel = 100 & dynamic $din_cheat">set to 100</a>'
	if intel > 0:pl 'Decrease intelligence by <a href="exec:intel -= 1 & dynamic $din_cheat">1</a> <a href="exec:intel -= 5 & dynamic $din_cheat">5</a> <a href="exec:intel -= 10 & dynamic $din_cheat">10</a>'

	pl '<b>Cheats stats</b>'
	pl 'Increase money by <a href="exec:money += 1, 000 & dynamic $din_cheat">1,000</a> <a href="exec:money += 5000 & dynamic $din_cheat">5,000</a> <a href="exec:money += 10000 & dynamic $din_cheat">10,000</a>'
	pl'<a href="exec:money = 0 & dynamic $din_cheat">Throw away all money</a>'
	pl 'Increase dominance by <a href="exec:dom += 1 & dynamic $din_cheat">1</a> <a href="exec:dom += 5 & dynamic $din_cheat">5</a> <a href="exec:dom += 10 & dynamic $din_cheat">10</a>'
	pl 'Increase submission by <a href="exec:sub += 1 & dynamic $din_cheat">1</a> <a href="exec:sub += 5 & dynamic $din_cheat">5</a> <a href="exec:sub += 10 & dynamic $din_cheat">10</a>'
	pl '<b>Test options</b> are present in the mechanism of the game, but not involved in the game quests.'

	if mutagenP = 0:pl 'Mutagen force <a href="exec:mutagenP = 1 & stren = 150 & dynamic $din_cheat">1st Level</a>'
	if mutagenP = 1:pl 'Mutagen force <a href="exec:mutagenP = 2 & stren = 200 & dynamic $din_cheat">level 2</a>'
	if mutagenP = 2:pl 'Mutagen force <a href="exec:mutagenP = 3 & stren = 250 & dynamic $din_cheat">level 3</a>'
	if mutagenP > 0:pl 'Mutagen force <a href="exec:mutagenP = 0 & stren = 100 & dynamic $din_cheat">Zero</a>'
	if mutagenV = 0:pl 'Mutagen endurance <a href="exec:mutagenV = 1 & vital = 150 & dynamic $din_cheat">1st Level</a>'
	if mutagenV = 1:pl 'Mutagen endurance <a href="exec:mutagenV = 2 & vital = 200 & dynamic $din_cheat">level 2</a>'
	if mutagenV = 2:pl 'Mutagen endurance <a href="exec:mutagenV = 3 & vital = 250 & dynamic $din_cheat">level 3</a>'
	if mutagenV > 0:pl 'Mutagen endurance <a href="exec:mutagenV = 0 & vital = 100 & dynamic $din_cheat">Zero</a>'
	if mutagenA = 0:pl 'Mutagen Agility <a href="exec:mutagenA = 1 & agil = 150 & dynamic $din_cheat">1st Level</a>'
	if mutagenA = 1:pl 'Mutagen Agility <a href="exec:mutagenA = 2 & agil = 200 & dynamic $din_cheat">level 2</a>'
	if mutagenA = 2:pl 'Mutagen Agility <a href="exec:mutagenA = 3 & agil = 250 & dynamic $din_cheat">level 3</a>'
	if mutagenA > 0:pl 'Mutagen Agility <a href="exec:mutagenA = 0 & agil = 100 & dynamic $din_cheat">Zero</a>'
}

$objmagic = {
	clr
	pl '<a href="exec:dynamic $din_cheat"><b>Cheat menu</b></a>.'

	if magik = 0:
		pl 'You are unable to use magic.'
	else
		pl 'Available to you <<manna>> units of manna.'
		!' Rikudo forces available to you <<rikudo>> units'
		nl
		pl 'BASIC SPELL:' & nl
		if spelltuman > 0:pl 'Cover the area fog, a great way to hide their actions from the attacking enemy and not a bad way to increase the chance to dodge enemy attacks, as he can not see you in your fog (mana cost of 10 units)' & nl
		if spellklon > 0:pl 'Substitute itself clone powerful way to avoid enemy attacks substituting itself clone opponent gets to clone and not on you, he just wasted power (mana cost of 15 units)' & nl
		if spellstun > 0:pl 'Paralyze a great way to stop the enemy, he will not be able to defend and attack. (Cost 20 mana units)' & nl
		if spellweap > 0 and weapon > 0:pl 'Invest in energy weapons'
		if spellwind > 0:pl 'Blow away the fog, mist spell any scattering over the battlefield.' & nl
		if spellklon2 > 0:pl 'Substitute themselves clones (3 pieces), the enemy will not be able to get to you until you destroy all of your clones. (Cost 45 mana units)' & nl
		if spellenergo > 0:pl 'Create weak energy shield spell protects against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and the shield will be destroyed by the first blow, you can still protect yourself from the damage (cost 50 mana units)' & nl
		if spellinit > 0:pl 'Create weak deceleration time powerful spell allowing you to move faster, you can snatch the initiative with this spell that would strike another spell to increase your chance to hit too, because you will move very quickly (cost 60 mana units)' & nl
		if spellhel > 0:pl 'Martial treatment restores or adds 400 health units in exchange for 400 units of manna.' & nl
		if stihia = 1:pl 'SPELL elements of fire' & nl
		if spellfire1 = 1:pl 'Flame. Inflicts little damage. (Cost 10 mana)' & nl
		if spellfire2 = 1:pl 'Release of fire. A damage. (100 mana cost)' & nl
		if spellfire3 = 1:pl 'Fire barrier, creates a shield of 750 units. (150 mana cost)' & nl
		if spellfire4 = 1:pl 'Firestorm. Causes great damage to an enemy difficult to dodge. (250 mana cost)' & nl
		if spellfire5 = 1:pl 'Flame Shield creates a shield of 2,500 units. (500 mana cost)' & nl
		if stihia = 2:pl 'SPELL element of lightning' & nl
		if spellele1 = 1:pl 'Discharge. Inflicts very little damage. (Cost 10 mana)' & nl
		if spellele2 = 1:pl 'Lightning. Inflicts above average. (100 mana cost)' & nl
		if spellele3 = 1:pl 'Electrical barrier creates a shield of 1,500. (150 mana cost)' & nl
		if spellele4 = 1:pl 'Dance of thousands of birds. Inflicts very high damage. (250 mana cost)' & nl
		if spellele5 = 1:pl 'Plyaschuschaya sphere creates a shield of 5,000 units. (500 mana cost)' & nl

		if stihia = 3:pl 'SPELL Element Earth' & nl
		if spellert1 = 1:pl 'Quicksand trap catches the enemy in quicksand and causes little damage. (Cost 10 mana)' & nl
		if spellert2 = 1:pl 'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (100 mana cost)' & nl
		if spellert3 = 1:pl 'Abyss earth asunder underfoot enemy inflicting damage above average and depriving him of the ability to move. (150 mana cost)' & nl
		if spellert4 = 1:pl 'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. (250 mana cost)' & nl
		if spellert5 = 1:pl 'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting massive damage and depriving him of his ability to move. 500 mana cost.' & nl
		if stihia = 4:pl 'Spells with wind energy' & nl
		if spellwind1 = 1:pl 'A gust of wind, causing very little damage and destroy clones and fog, it is very difficult to dodge. (Cost 10 mana)' & nl
		if spellwind2 = 1:pl 'Horrendous pressure, causing moderate damage and destroying clones and fog, it is very difficult to dodge. (100 mana cost)' & nl
		if spellwind3 = 1:pl 'Vacuum sphere, creates a shield of 1,500. (150 mana cost)' & nl
		if spellwind4 = 1:pl 'Vacuum shells do more damage and destroy clones and fog, it is very difficult to dodge. (250 mana cost)' & nl
		if spellwind5 = 1:pl 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. (500 mana cost)' & nl
		if stihia = 5:pl 'SPELL elements of water' & nl
		if spellwater1 = 1:pl 'Creek manna causes very little damage and absorbs a lot of mana. Cost 10 mana.' & nl
		if spellwater2 = 1:pl 'Flooding, causing moderate damage and absorbs manna above average. 100 mana cost.' & nl
		if spellwater3 = 1:pl 'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (150 mana cost)' & nl
		if spellwater4 = 1:pl 'Water shark missile, causing great damage and absorbs a lot of mana. Cost 250 mana.' & nl
		if spellwater5 = 1:pl 'Great flood, the water creates a huge sphere that absorbs enemy and deflating manna from it and handing it to provide increased protection. 500 mana cost.' & nl
	end
}

$objface = {
	!if hcol = 0 and curly <= 0:view 'images/body/hcol.jpg'
	!if hcol = 1 and curly <= 0:view 'images/body/hcol1.jpg'
	!if hcol = 2 and curly <= 0:view 'images/body/hcol2.jpg'
	!if hcol = 3 and curly <= 0:view 'images/body/hcol3.jpg'
	!if hcol = 0 and curly > 0:view 'images/body/hcolcurly.jpg'
	!if hcol = 1 and curly > 0:view 'images/body/hcolcurly1.jpg'
	!if hcol = 2 and curly > 0:view 'images/body/hcolcurly2.jpg'
	!if hcol = 3 and curly > 0:view 'images/body/hcolcurly3.jpg'

	if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol0.jpg'
		if hcol = 1 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol1.jpg'
		if hcol = 2 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol2.jpg'
		if hcol = 3 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol3.jpg'
		if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol0.jpg'
		if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol1.jpg'
		if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol2.jpg'
		if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol3.jpg'
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol3.jpg'
	end

	if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol3.jpg'
	end

	if hbangs >= 1 and curly <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:	
		if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol3.jpg'
	end
	
	if curly >= 1 and hbangs >= 1 and hpingripw = 0 and hscrunchw <= 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol3.jpg'
	end

	if curly >= 1 and hscrunchw = 1 and hbangs >= 1 and hpingripw <= 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
	end

	if curly >= 1 and hpingripw = 1 and hbangs <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol3.jpg'
	end

	if curly >= 1 and hpingripw = 1 and hbangs >= 1 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol3.jpg'
	end

	if hpingripw = 1 and hbangs = 0 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol3.jpg'
	end

	if hpingripw >= 1 and hbangs >= 1 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol3.jpg'
	end

	if hscrunchw = 1 and hbangs = 0 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol3.jpg'
	end

	if hscrunchw = 1 and hbangs = 0 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol3.jpg'
	end

	if hscrunchw = 1 and hbangs >= 1 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol3.jpg'
	end

	if hscrunchw = 1 and hbangs >= 1 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
		if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
		if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
		if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
		if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
	end

	if hpigtail = 1 and hscrunchw = 2 and hpingripw = 0 and hbraids <= 0 and curly <= 0 and hbraids <= 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol3.jpg'
	end

	if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0:
		if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol0.jpg'
		if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol1.jpg'
		if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol2.jpg'
		if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol3.jpg'
		if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol0.jpg'
		if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol1.jpg'
		if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol2.jpg'
		if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol3.jpg'
		if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol0.jpg'
		if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol1.jpg'
		if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol2.jpg'
		if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol3.jpg'
	end
}
!!! Maruda Hair Mod

$objbody = {
	if musle >= salo:
		!muscular type
		if bedra < 60:view 'images/body/fit.jpg'
		if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
		if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
		if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
		if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
		if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
		if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
		if bedra >= 120:view 'images/body/fit7.jpg'
	else
		!bold type
		if bedra < 60:view 'images/body/fat.jpg'
		if bedra >= 60 and bedra < 65:view 'images/body/fat1.jpg'
		if bedra >= 65 and bedra < 70:view 'images/body/fat2.jpg'
		if bedra >= 70 and bedra < 75:view 'images/body/fat3.jpg'
		if bedra >= 75 and bedra < 80:view 'images/body/fat4.jpg'
		if bedra >= 80 and bedra < 85:view 'images/body/fat5.jpg'
		if bedra >= 85 and bedra < 90:view 'images/body/fat6.jpg'
		if bedra >= 90 and bedra < 95:view 'images/body/fat7.jpg'
		if bedra >= 95 and bedra < 100:view 'images/body/fat8.jpg'
		if bedra >= 100 and bedra < 105:view 'images/body/fat9.jpg'
		if bedra >= 105 and bedra < 110:view 'images/body/fat10.jpg'
		if bedra >= 110 and bedra < 115:view 'images/body/fat11.jpg'
		if bedra >= 115 and bedra < 120:view 'images/body/fat12.jpg'
		if bedra >= 120:view 'images/body/fat13.jpg'
	end
}

$objclothes = {
	clr

	if nude = 0:
		if vatnik = 2:view 'images/clothes/vatnik.jpg'

		if odetjeans > 0:
			view 'images/clothes/jeans<<numdress>>.jpg'
			pl '(strength <<jeansH[numdress]>>, hip size <<jeansB[numdress]>>)'
		end

		if odetyoga > 0:
			view 'images/clothes/yoga<<numdress>>.jpg'
			pl '(strength <<yogaH[numdress]>>)'
		end

		if odetsarafan > 0:
			view 'images/clothes/sarafan<<numdress>>.jpg'
			pl '(strength <<sarafanH[numdress]>>)'
		end

		if odetshort > 0:
			view 'images/clothes/short<<numdress>>.jpg'
			pl '(strength <<shortH[numdress]>>, hip size <<shortB[numdress]>>)'
		end

		if odetskirt > 0:
			view 'images/clothes/skirt<<numdress>>.jpg'
			pl '(strength <<skirtH[numdress]>>, hip size <<skirtB[numdress]>>)'
		end

		if odetdress > 0:
			view 'images/clothes/dress<<numdress>>.jpg'
			pl '(strength <<dressH[numdress]>>, hip size <<dressB[numdress]>>)'
		end

		if odetprofi > 0:
			view 'images/clothes/profi<<numdress>>.jpg'
			pl '(strength <<profiH[numdress]>>, hip size <<profiB[numdress]>>)'
		end

		if odetpants > 0:
			view 'images/clothes/pants<<numdress>>.jpg'
			pl '(strength <<pantsH[numdress]>>, hip size <<pantsB[numdress]>>)'
		end

		if odetlatex > 0:
			view 'images/clothes/latex<<numdress>>.jpg'
			pl '(strength <<latexH[numdress]>>, hip size <<latexB[numdress]>>)'
		end

		if odethooker > 0:
			view 'images/clothes/hooker<<numdress>>.jpg'
			pl '(strength <<hookerH[numdress]>>, hip size <<hookerB[numdress]>>)'
		end

		if odetkis > 0:
			view 'images/clothes/k<<numdress>>.jpg'
			pl '(strength <<odekisH[numdress]>>, hip size <<odekisB[numdress]>>)'
		end

		if odetnewclo > 0:
			view 'images/clothes/newclo/<<numdress>>.jpg'
			pl '(strength <<newcloH[numdress]>>, hip size <<newcloB[numdress]>>)'
		end

		if odetero > 0:view 'images/img/dress/ero<<numdress>>.jpg'
	else
		pl 'You´re not dressed.'
		view 'images/clothes/nude.jpg'
	end
}

$objtattoos = {
	$tatlipdi = {
		view 'images/Body/tatlip<<tatlip>>.jpg'
	}

	$tatpledi = {
		view 'images/body/tatplech<<tatplech>>.jpg'
	}

	$tatbackdi = {
		view 'images/body/tatb<<tatback>>.jpg'
	}

	$tatupbdi = {
		view 'images/body/tatupb<<tatupb>>.jpg'
	}

	$tatvagdi = {
		view 'images/body/tatvag<<tatvag>>.jpg'
	}

	$tatlegdi = {
		view 'images/body/tatleg<<tatleg>>.jpg'
	}
	clr
	if tatlip > 0:pl '<a href="exec:dynamic $tatlipdi ">tattoo on the lip</a>.'
	if tatplech > 0:pl '<a href="exec:dynamic $tatpledi">tattoo on the shoulders</a>'
	if tatback > 0:pl '<a href="exec:dynamic $tatbackdi">tattoo on the back</a>'
	if tatupb > 0:pl '<a href="exec:dynamic $tatupbdi">tattoo on the lower back</a>'
	if tatvag > 0:pl '<a href="exec:dynamic $tatvagdi">Tattoos in the groin</a>'
	if tatleg > 0:pl '<a href="exec:dynamic $tatlegdi">tattoo on the legs</a>'
	if tatvag = 0 and tatlip = 0 and tatplech = 0 and tatback = 0 and tatupb = 0 and tatleg = 0:pl 'You pristine pure body. Not in terms of corruption, but in terms of tattoos.'
}

$objpirsing = {
	$dipirsA = {
		view 'images/body/pirsA.jpg'
	}

	$dipirsB = {
		view 'images/body/pirsB.jpg'
	}

	$dipirsC = {
		view 'images/body/pirsC.jpg'
	}

	$dipirsD = {
		view 'images/body/pirsD.jpg'
	}

	$dipirsE = {
		view 'images/body/pirsE.jpg'
	}

	$dipirsF = {
		view 'images/body/pirsF.jpg'
	}

	$dipirsG = {
		view 'images/body/pirsG.jpg'
	}

	$dipirsN = {
		view 'images/body/pirsN.jpg'
	}

	clr

	if pirsA = 1:pl 'Your tongue pierced and there is inserted a small bar that is constantly felt in the mouth. <a href="exec:dynamic $dipirsA">view</a>'
	if pirsB = 1:pl 'You pierced lower lip and there vdet ring. <a href="exec:dynamic $dipirsB">view</a>'
	if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">view</a>'
	if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">view</a>'
	if pirsE = 1:pl 'In your eyebrow barbell inserted. <a href="exec:dynamic $dipirsE">view</a>'
	if pirsF = 1:pl 'You have pierced nipples and inserted them in small metal rod. <a href="exec:dynamic $dipirsF">view</a>'
	if pirsG = 1:pl 'You pierced lips on the vagina and there inserted rings. <a href="exec:dynamic $dipirsG">view</a>'
	if pirsN = 1:pl 'You pierced navel, and there is inserted rod. <a href="exec:dynamic $dipirsN">view</a>'
}

$objobnovit = {
	gs 'stat'
}

$objbloknot = {
	clr
	pl '<center><b><font color="maroon">Diary</font></b></center>'
	if housr > 0:pl 'I live in a two-room apartment in a residential area. Payment for the apartment is taken automatically in the amount of 3,000 rubles each 25e number. Plus a light bill.' & nl
	if work > 0 or stripwork > 0 or workPTU > 2:pl '<center><font color="maroon">-- My Job --</font></center>'
	if workPTU > 2:pl'I work as a teacher in the Lyceum. Working days Mon-Sat from 14.00 to 16.00. Salary 300 rubles / day. Dress code - office, strict. The road from the apartment to the Lyceum takes 2 hours and 10 minutes.' & nl
	if work > 0 and workKafe > 0:pl'I work as a waitress in a cafe. Need to come to work with 11 to 12 working days, Tuesday, Wednesday, Thursday. At work every day you get tips from customers and automatically transferred to the 25th salary number.' & nl
	if work > 0 and workhosp > 0:pl'I work as a nurse in the clinic. Need to come to work from 8 to 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
	if work > 0 and worksalon > 0:pl'I work as a masseuse in the cabin. Need to come to work from 9 to 10 working days, Monday, Wednesday and Friday. Salary is automatically transferred to the 25th number.' & nl
	if work > 0 and workhosp > 0:pl'I work as a secretary in the office. Need to come to work until 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
	if work > 0 and tanwork > 0:pl'I work as a governess at Tani. Salary is automatically transferred to the 25th number.' & nl
	if work > 0 and young_shop_work = 1:pl'I work in a store saleswoman Keys Pussy. Need to come to work in 15 workdays all except Saturday and Sunday. Salary is issued once a week on Fridays.' & nl

	if workrin = 1:pl 'I work in a tent on the market Arthur clothing saleswoman. Work on Tuesdays, Thursdays and Saturdays, come at 8 o´clock. Salary depends on the sales.' & nl
	if stripwork >= 1:pl 'I work as a stripper, schedule a free, on any day from 15 up to 2 nights. Salary only tip.' & nl
	if husband > 0 or kid > 0 :'<center><font color="maroon">-- My Family --</font></center>'

	if husband > 0:pl 'I ve been married for <<husbanday>> days. My husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationships <<husband>>' & nl
	if kid > 0:pl 'I have a child <<$kidname[kidDiary]>>, age <<kid[kidDiary]>> days.' & nl
	if $bfsex > 0:pl '<<$bfsex>>'
	if bfA > 1:pl 'My current boyfriend, <<$boyA>>, is a <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>. He is usually <<$boyCloA>> Our relationship is <<bfA>> and we have met <<dayA>> times.' & nl
	if harakBoyA = 0 and bfA > 1:pl 'He is calm and self-possessed character.' & nl
	if harakBoyA = 1 and bfA > 1:pl 'He is cheerful and sociable nature.' & nl
	if harakBoyA = 2 and bfA > 1:pl 'He is irascible and very rigid.' & nl
	if bfB > 1:pl 'Another boyfriend, <<$boyB>>, is a <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>. He is usually <<$boyCloB>>. Our relationship is <<bfB>> and we have met <<dayB>> times.' & nl
	if bfC > 1:pl 'My third boyfriend, <<$boyC>>, is a <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>. He is usually <<$boyCloC>>. Our relationship is <<bfC>> and we have met <<dayC>> times.' & nl

	GS 'Menu.Create', 'zapisMenu'
	GS 'Menu.Add', 'zapisMenu', 'Recording from avtodatoy', '', 'MenuLoc', 'zapisosn'
	GS 'Menu.Add', 'zapisMenu', 'To record on 1th line', '', 'MenuLoc', 'zapis'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 1th line', '', 'MenuLoc', 'ot'
	GS 'Menu.Add', 'zapisMenu', 'To record on 2th line', '', 'MenuLoc', 'zapis2'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 2th line', '', 'MenuLoc', 'ot2'
	GS 'Menu.Add', 'zapisMenu', 'To record on 3th line', '', 'MenuLoc', 'zapis3'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 3th line', '', 'MenuLoc', 'ot3'
	GS 'Menu.Add', 'zapisMenu', 'To record on 4th line', '', 'MenuLoc', 'zapis4'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 4th line', '', 'MenuLoc', 'ot4'
	GS 'Menu.Add', 'zapisMenu', 'To record on 5th line', '', 'MenuLoc', 'zapis5'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 5th line', '', 'MenuLoc', 'ot5'
	GS 'Menu.Add', 'zapisMenu', 'To record on 6th line', '', 'MenuLoc', 'zapis6'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 6th line', '', 'MenuLoc', 'ot6'
	GS 'Menu.Add', 'zapisMenu', 'To record on 7th line', '', 'MenuLoc', 'zapis7'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 7th line', '', 'MenuLoc', 'ot7'
	GS 'Menu.Add', 'zapisMenu', 'To record on 8th line', '', 'MenuLoc', 'zapis8'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 8th line', '', 'MenuLoc', 'ot8'
	GS 'Menu.Add', 'zapisMenu', 'To record on 9th line', '', 'MenuLoc', 'zapis9'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 9th line', '', 'MenuLoc', 'ot9'
	GS 'Menu.Add', 'zapisMenu', 'To record on 10th line', '', 'MenuLoc', 'zapis10'
	GS 'Menu.Add', 'zapisMenu', 'With a red line 10th line', '', 'MenuLoc', 'ot10'
	GS 'Menu.Create', 'disMenu'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 1st row', '', 'MenuLoc', 'diszapis'
	GS 'Menu.Add', 'disMenu', 'Delete Record with 2nd row', '', 'MenuLoc', 'diszapis2'
	GS 'Menu.Add', 'disMenu', 'Delete record with third row', '', 'MenuLoc', 'diszapis3'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 4th row', '', 'MenuLoc', 'diszapis4'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 5th row', '', 'MenuLoc', 'diszapis5'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 6th row', '', 'MenuLoc', 'diszapis6'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 7th row', '', 'MenuLoc', 'diszapis7'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 8th row', '', 'MenuLoc', 'diszapis8'
	GS 'Menu.Add', 'disMenu', 'Delete an entry from the 9th row', '', 'MenuLoc', 'diszapis9'
	GS 'Menu.Add', 'disMenu', 'Delete record with the 10th row', '', 'MenuLoc', 'diszapis10'

	pl '<a href="exec:gs ''Menu.Call'', ''zapisMenu''">Make an entry</a> or <a href="exec:gs ''Menu.Call'', ''disMenu''">delete the record</a>'
	pl '<<$zapisOsn>>'
	pl '<<$zapis>>'
	pl '<<$zapis2>>'
	pl '<<$zapis3>>'
	pl '<<$zapis4>>'
	pl '<<$zapis5>>'
	pl '<<$zapis6>>'
	pl '<<$zapis7>>'
	pl '<<$zapis8>>'
	pl '<<$zapis9>>'
	pl '<<$zapis10>>'
}

$objavariya = {
	'<center><b>YOU HAVE JUST BEEN USED EMERGENCY LEAVE BLANK SCREEN Bagan</b></center>'
	*nl
	'<center><b>not use this feature without a good reason, can cause STABLE ERROR THAT WILL RUIN YOUR CONSERVATION</b></center>'
	*nl

	if StoryLine = 1:gt 'gorodok'

	gt 'street'
}

$objnewmenu = {
	killobj
	set oldobjmenu = 0
	addobj 'Character'
	addobj 'See'
	addobj 'Others'
	addobj 'Menu'
}

$objoldmenu = {
	killobj
	set oldobjmenu = 1
	addobj '<font color="green">Character</font>'
	addobj 'Skills'
	addobj 'Statistics'
	addobj 'Magic'
	addobj 'Face'
	addobj 'Body'
	addobj 'Clothing'
	addobj 'Tattoos'
	addobj 'Piercing'

	if mobila > 0:addobj 'Phone'

	addobj 'Diary'
	addobj 'Emergency exit'
	addobj 'Update'
	addobj 'Menu'
	addobj 'New Menu'
}

$menu_character[0] = 'Description:$menu_descrip'
$menu_character[1] = 'Characteristics:$menu_skills'
$menu_character[2] = 'Usage:$menu_statistika'
$menu_character[3] = 'Magic:$menu_magic'
$menu_lookon[0] = 'Person:$menu_face'
$menu_lookon[1] = 'Body:$menu_body'
$menu_lookon[2] = 'Clothing:$menu_clothes'
$menu_lookon[3] = 'Tattoos:$menu_tattoos'
$menu_lookon[4] = 'Piercing:$menu_pirs'

$menu_other[0] = 'Update:$menu_obnovit'
$menu_other[1] = 'Diary:$menu_bloknot'
$menu_other[2] = 'Emergency exit:$menu_avariya'
$menu_other[3] = 'Old menu:$menu_addoldmenu'

if mobila > 0:$menu_other[4] = 'Phone:$menu_mobila'

!old menu: beginning
if $selobj = '<font color="green">Character</font>':dynamic $objdescrip
if $selobj = 'Skills':dynamic $objskills
if $selobj = 'Statistics':dynamic $objstatistika
if $selobj = 'Magic':dynamic $objmagic
if $selobj = 'Face':dynamic $objface
if $selobj = 'Body':dynamic $objbody
if $selobj = 'Clothing':dynamic $objclothes
if $selobj = 'Tattoos':dynamic $objtattoos
if $selobj = 'Piercing':dynamic $objpirsing
if $selobj = 'Diary':dynamic $objbloknot
if $selobj = 'Emergency exit':dynamic $objavariya
if $selobj = 'Update':gs 'stat'
if $selobj = 'New Menu':dynamic $objnewmenu
!old menu: end
!The new menu: beginning
if $selobj = 'Character':menu '$menu_character'
if $selobj = 'See':menu '$menu_lookon'
if $selobj = 'Others':menu '$menu_other'
!The new menu: end

if $selobj = 'Player':
	clr
	pl 'Your name <<$name>> <<$surname>>. You <<age>> years. <<$vneshPRE>>'
	pl 'You have short black hair and flashing starting gray, small brown eyes and willed jaw covered by blue Shaved bristle.'
	pl 'Growth <<rost>> cm, weight 100 kg.'
end

if $selobj = 'Menu':
	clr
	GS 'Menu.Create', 'mainMenu'
	GS 'Menu.Add', 'mainMenu', 'status bar', '', 'MenuMainLoc', '0'
	GS 'Menu.Add', 'mainMenu', 'text notation', '', 'MenuMainLoc', '1'
	GS 'Menu.Call', 'mainMenu'
end

unselect

--- onobjsel ---------------------------------

# scale.table
!'
"
Scale rendering using the table:
"

$func ('scale.table', 275, 420) + ' 275 / 420'
$func ('scale.table', 400, 420) + ' 400 / 420'
$func ('scale.table', 420, 420) + ' 420 / 420'
$func ('scale.table', 157, 420) + ' 157 / 420'
$func ('scale.table', 42, 420) + ' 42 / 420'
$func ('scale.table', 0, 420) + ' 0 / 420'

'

!-----scale.table------
args[0] = args[0] & ! the current value of the parameter
args[1] = args[1] & ! the maximum value

if args[2] = 0:args[2] = 200 & ! Span (tables) pixels. default 350 px
if $args[3] = "":$args[3] = "FF0000" & ! the color of the filled part of the scale in the format RRGGBB. default - red

! at_first "create" corresponding table
$args['table'] = '<table width="<<args[2]>>" border="0" cellspacing="0" cellpadding="0"><tr>'
! calculate the width as a percentage of the filled part
args['x'] = (args[0] * 100) / args[1]
! calculate the percentage widths ullage
args['empty'] = 100 - args['x']

! If the width of the filled part of more than zero percent, added to the table cell with the specified color (red on-default)
if args['x'] > 0:
	$args['table'] += '<td width="<<args['x']>>%" bgcolor="#' + $args[3] + '">&nbsp;</td>'
end

! If the width of the unfilled part of the scale is greater than zero percent, added to the table cell with another color (gray).
if args['empty'] > 0:
	$args['table'] + = "<td width="<<args['empty']>>%" bgcolor="#888888">&nbsp;</td>"
end

! "close" table
$args['table'] += '</tr></table>'
! the_result
$result = $args['table']

--- scale.table ---------------------------------