glife/locations/onobjsel

# onobjsel
$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>, <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 '<<$throat>>'
	pl '<<$skin>>'
	pl '<<$glaza>>'
	pl '<<$mop>>'
	pl '<<$leghair>>'
	pl '<<$lobok>>'
	pl '<<$vagina>>'
	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:hscrunchw = 1 & dynamic $objdescrip">ponytail</a>. You have <<hscrunch>> scrunchies left.'
		if hscrunchw = 1:pl 'Remove the <a href="exec: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: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: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:hscrunchw = 0
	if hpingrip < 1:hpingripw = 0
	if hscrunch < 2:hpigtail = 0
	!!!!!!!! Maruda Hair Mod
}

$objskills = {
	clr
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
	!!if salo > musle * 4:$fat = 'You have a chubby disposition'
	!!if salo <= musle * 4 and fat > musle * 2:$fat = 'You have a soft curvy body that still carries an elastic finesse.'
	!!if salo <= musle * 2 and fat > musle:$fat = 'You have an average body showing signs that you take care of yourself.'
	!!if salo <= musle and fat >= musle / 2:$fat = 'Your body is slim and trim. You probably workout often '
	!!if salo < musle / 2:$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 workPTU > 1:pl 'Reputation teachers <<teachlevel>>'

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

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

	if razradKik > 0:
		if razradKik = 1:$razradKik = 'You''re ranked III in amateur kickboxing'
		if razradKik = 2:$razradKik = 'You''re ranked II in amateur kickboxing'
		if razradKik = 3:$razradKik = 'You''re ranked I in amateur kickboxing'
		if razradKik = 4:$razradKik = 'You are a candidate for the title of Master in Kickboxing'
		if razradKik = 5:$razradKik = 'You have the title of Master Kickboxer'

		nl
	end

	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 > 0:
		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'

		nl
	end

	if nastjaQW > 0:pl 'Friendship with Nastya <<nastjaqw>>'
	if tanya > 0:pl 'Friendship with Tanya <<tanya>>'
	if kat > 0:pl 'Friendship with Kate <<kat>>'
	if vika > 0:pl 'Friendship with Vika <<vika>>'
	if Irina > 0:pl 'Friendship with Irene <<Irina>>'
	if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
	if alla > 0:pl 'Friendship with Alla <<alla>>'
	if masha > 0:pl 'Friendship with Masha <<masha>>'
	if Givi > 0:pl 'Friendship with Givi K. <<Givi>>'
	if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
	if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
	if afra > 0:pl 'Friendship with blacks <<afra>>'

	!!!WD: Formatting
	if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
	!!!
	if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>>'
	if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kN' & nl
	if modelfoto > 0:pl 'You filmed naked <<modelfoto>> times'

	if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
	if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> professionally.'
	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>>'
	!!!WD:FORMATING
	if (exhibi + maxdamage + modelfoto + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
	!!!
	if mastr > 0:pl 'Masturbated <<mastr>> time'
	if throat > 0:pl '<<$throat>>'
	if vagina > 0:pl '<<$vagina>>'
	if vagina = 0 and sex = 0:pl 'You are a virgin.'
	if anus > 0:pl '<<$anus>>'
	nl

	if GorSlut > 0:
		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.'

		nl
	end

	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:
		if gloryhole = 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times.'
		if gloryhole = 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
		if 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 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 gloryhole = 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
		if gloryhole = 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
		if 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 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'
	end

	if hj > 0:
		if hja = 0:pl 'Guys jerking off <<hj>> times'
		if hja > 0:pl 'Guys jerking off <<hj>> times from them <<hja>> times masturbate her boyfriend'
	end

	if hump > 0:pl 'About you wanker member <<hump>> times'
	if rape > 0:pl 'You have been raped <<rape>> times'

	if anal > 0:
		if anala = 0:pl 'Anal <<anal>> times'
		if anala > 0:pl 'Anal <<anal>> times from them <<anala>> times with her boyfriend'
	end

	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:
		if bordelslutty = 0:pl 'Sold your love <<slutty>> time.'
		if bordelslutty > 0:pl 'Sold your love <<slutty>> times, including in a brothel <<bordelslutty>> times.'
	end

	if pfilmSTOP = 1:
		pl 'In the porn industry you were known by the name of <<$pfname>>. You have retired from the porn business.'
	elseif film > 0:
		pl 'In the porn industry you are known by 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 'You''ve had <<analorgasm>> anal orgasms.'
	if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
	if facial > 0:pl 'You have taken <<facial>> facials.'
	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.'
	if swallowpee > 0:pl 'You swallow urine <<swallowpee>> time.'
	!!!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''ve had sex with tgirls <<sexfuta>> times.'
}

$din_exhibiTakeOffBimbo = {
	cloth_vid = 0
	gs 'stat'
	'You removed the outfit bimbo'
}

$din_exhibiHideNewCloth = {
	exhibiHideNewCloth = 1
	gs 'stat'
}

$din_cheat_work = {
	if cheatWork = 0:
		cheatWork = 1
		dynamic $din_cheat_menu_permanent
		exit
	elseif cheatWork = 1:
		cheatWork = 0
		dynamic $din_cheat_menu_permanent
	end
}
$din_cheat_hapri = {
	if cheatHapri = 0:
		cheatHapri = 1
		gs 'stat'
		dynamic $din_cheat_menu_permanent
		exit
	else
		cheatHapri = 0
		dynamic $din_cheat_menu_permanent

	end
}

$din_cheat_klisma = {
	if cheatKlisma = 0:
		cheatKlisma = 1
		dynamic $din_cheat_menu_permanent
		exit
	elseif cheatKlisma = 1:
		cheatKlisma = 0
		dynamic $din_cheat_menu_permanent
	end
}
$din_cheat_nomakeup = {
	if cheatNomakeup = 0:
		cheatNomakeup = 1
		dynamic $din_cheat_menu_permanent
		exit
	else
		cheatNomakeup = 0
		dynamic $din_cheat_menu_permanent
	end
}

$din_cheat_Nosweat = {
	if cheatNosweat = 0:
		cheatNosweat = 1
		dynamic $din_cheat_menu_permanent
		exit
	else
		cheatNosweat = 0
		dynamic $din_cheat_menu_permanent
	end
}

$din_cheat_NoEat = {
	if cheatNoEat = 0:
		cheatNoEat = 1
		dynamic $din_cheat_menu_permanent
		exit
	else
		cheatNoEat = 0
		dynamic $din_cheat_menu_permanent
	end
}

$din_cheat_age = {
	age = input("How old are you in years?")

	if age <= 15:age = 15

	dynamic $din_cheat_menu_look
}

$din_cheat_agel = {
	vidage = input("How old do you want to look?")

	if vidage <= 14:vidage = 14

	dynamic $din_cheat_menu_look
}

$din_cheat_money = {
	money = input("How much money do you want to have?")

	if money < 0:money = 0

	dynamic $objcheat_menu
}

$din_cheat_menu_permanent = {
	gs 'stat'
	clr

	if cheatWork = 0:$cheatWork = 'TURNED_OFF'
	if cheatWork = 1:$cheatWork = '<b>ON</b>'
	if cheatHapri = 0:$cheatHapri = 'TURNED_OFF'
	if cheatHapri = 1:$cheatHapri = '<b>ON</b>'
	if cheatKlisma = 0:$cheatKlisma = 'TURNED_OFF'
	if cheatKlisma = 1:$cheatKlisma = '<b>ON</b>'
	if cheatNomakeup = 0:$cheatNomakeup = 'TURNED_OFF'
	if cheatNomakeup = 1:$cheatNomakeup = '<b>ON</b>'
	if cheatNosweat = 0:$cheatNosweat = 'TURNED_OFF'
	if cheatNosweat = 1:$cheatNosweat = '<b>ON</b>'
	if cheatNoEat = 0:$cheatNoEat = 'TURNED_OFF'
	if cheatNoEat = 1:$cheatNoEat = '<b>ON</b>'

	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''
	pl '<a href="exec:dynamic $din_cheat_work">Disable the requirement of labor</a>: <<$cheatWork>>'
	pl '<a href="exec:dynamic $din_cheat_hapri">always combed</a>: <<$cheatHapri>>'
	pl '<a href="exec:dynamic $din_cheat_klisma">Always do an enema</a>: <<$cheatKlisma>>'
	pl '<a href="exec:dynamic $din_cheat_nomakeup">Cosmetics never smeared</a>: <<$cheatNomakeup>>'
	pl '<a href="exec:dynamic $din_cheat_Nosweat">Never sweat</a>: <<$cheatNosweat>>'
	pl '<a href="exec:dynamic $din_cheat_NoEat">Never eat or drink</a>: <<$cheatNoEat>>'
}

$din_cheat_menu_look = {
	gs 'stat'
	clr

	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''
	pl '<a href="exec:dynamic $din_cheat_menu_param">Show design parameters of the body</a>'
	pl ''
	pl '<a href=>now you <<age>> years_old</a>'

	if age >= 0:pl '<a href="exec:dynamic $din_cheat_age">change age</a>'

	pl '<a href=>You look for <<vidage>> years_old</a>'

	if vidage >= 0:pl '<a href="exec:dynamic $din_cheat_agel">Change the visibility of age</a>'

	pl ''
	pl '<<$lip>>'

	if lip < 4:pl '<a href="exec:lip += 1 & dynamic $din_cheat_menu_look">augment the lips</a>'
	if lip > 0:pl '<a href="exec:lip -= 1 & dynamic $din_cheat_menu_look">reduce lips</a>'

	pl ''
	pl '<<$skin>>'

	if skin < 4:pl '<a href="exec:skin += 1 & dynamic $din_cheat_menu_look">improve the skin</a>'
	if skin > 0:pl '<a href="exec:skin -= 1 & dynamic $din_cheat_menu_look">worsen the skin</a>'
	if tan >= 0:pl '<a href="exec:tan += 10 & dynamic $din_cheat_menu_look">become sunburnt</a>'
	if tan > 0:pl '<a href="exec:tan = 0 & dynamic $din_cheat_menu_look">remove tan</a>'

	pl ''
	pl '<<$glaza>>'

	if resnic < 2:pl '<a href="exec:resnic += 1 & dynamic $din_cheat_menu_look">Enlarge eyelashes</a>'
	if resnic > 0:pl '<a href="exec:resnic -= 1 & dynamic $din_cheat_menu_look">reduce eyelashes</a>'
	if glaraz < 3:pl '<a href="exec:glaraz += 1 & dynamic $din_cheat_menu_look">Increase the size of the eye</a>'
	if glaraz > 0:pl '<a href="exec:glaraz -= 1 & dynamic $din_cheat_menu_look">Reduce the size of the eye</a>'

	pl ''

	if salo ! fat:pl '<a href="exec:fat = salo & dynamic $din_cheat_menu_look">balance the fat</a>'
	if salo > 0:pl '<a href="exec:salo -= 5 & fat = salo & dynamic $din_cheat_menu_look">reduce fat</a>'
	if salo > 0:pl '<a href="exec:salo = 0 & fat = salo & dynamic $din_cheat_menu_look">reset fat</a>'

	pl 'fat (<<salo>>): <a href="exec:salo += 5 & fat = salo & dynamic $din_cheat_menu_look">+5</a> <a href="exec:salo += 10 & fat = salo & dynamic $din_cheat_menu_look">+10</a> <a href="exec:salo += 25 & fat = salo & dynamic $din_cheat_menu_look">+25</a> <a href="exec:salo += 50 & fat = salo & dynamic $din_cheat_menu_look">+50</a>'
	pl ''
	pl '<a href="exec:dynamic $din_cheat_menu_tatoo">Tattoo Removal</a>'
}
$din_cheat_menu_param = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>Cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_look"><b>Outward Appearance</b></a></center>'
	pl ''
	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_menu_tatoo = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_look"><b>Outward Appearance</b></a></center>'
	pl ''

	if tatlip = 0:pl 'You do not have tattoos on his lips</a>'
	if tatlip >= 1:pl '<a href="exec:tatlip = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a tattoo of lips</a>'
	if tatplech = 0:pl 'You do not have tattoos on their shoulders</a>'
	if tatplech >= 1:pl '<a href="exec:tatplech = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a shoulder tattoo</a>'
	if tatback = 0:pl 'You have not got a tattoo on her back</a>'
	if tatback >= 1:pl '<a href="exec:tatback = 0 & dynamic $din_cheat_menu_tatoo">Flatten with the back tattoo</a>'
	if tatupb = 0:pl 'You do not have tattoos on the lower back</a>'
	if tatupb >= 1:pl '<a href="exec:tatupb = 0 & dynamic $din_cheat_menu_tatoo">Reduce a tattoo with lumbar</a>'
	if tatvag = 0:pl 'You do not have a tattoo in the groin</a>'
	if tatvag >= 1:pl '<a href="exec:tatvag = 0 & dynamic $din_cheat_menu_tatoo">Reduce a tattoo with groin</a>'
	if tatleg = 0:pl 'You do not have a tattoo on the ankle</a>'
	if tatleg >= 1:pl '<a href="exec:tatleg = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a tattoo ankle</a>'
}
$din_cheat_menu_stats = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>Cheat menu</b></a></center>'
	pl ''
	pl 'Power (<<stren>>): <a href="exec:stren += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:stren += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:stren += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:stren += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:stren -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:stren -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:stren -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:stren -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Speed (<<speed>>): <a href="exec:speed += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:speed += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:speed += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:speed += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:speed -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:speed -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:speed -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:speed -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Agility (<<agil>>): <a href="exec:agil += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:agil += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:agil += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:agil += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:agil -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:agil -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:agil -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:agil -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Reaction (<<react>>): <a href="exec:react += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:react += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:react += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:react += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:react -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:react -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:react -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:react -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Endurance (<<vital>>): <a href="exec:vital += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:vital += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:vital += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:vital += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:vital -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:vital -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:vital -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:vital -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Will (<<will>>): <a href="exec:will += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:will += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:will += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:will += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:will -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:will -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:will -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:will -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl 'Intelligence (<<intel>>): <a href="exec:intel += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:intel += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:intel += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:intel += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:intel -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:intel -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:intel -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:intel -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
	pl ''
	pl 'Dominance (<<dom>>): <a href="exec:dom += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:dom += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:dom += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:dom -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:dom -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:dom -= 10 & dynamic $din_cheat_menu_stats">-10</a>'
	pl 'Submission (<<sub>>): <a href="exec:sub += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:sub += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:sub += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:sub -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:sub -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:sub -= 10 & dynamic $din_cheat_menu_stats">-10</a>'
	pl ''

	if beg >= 0:pl '<a href="exec:beg += 25 & dynamic $din_cheat_menu_stats">The_Run: <<beg>></a>'
	if volleyboll >= 0:pl '<a href="exec:volleyboll += 25 & dynamic $din_cheat_menu_stats">volleyball: <<volleyboll>></a>'

	pl ''

	if dance >= 0:pl '<a href="exec:dance += 25 &dynamic $din_cheat_menu_stats">dancing: <<dance>></a>'
	if dancePRO >= 0:pl '<a href="exec:dancePRO += 25 & dynamic $din_cheat_menu_stats">Prof.. dancing: <<dancePRO>></a>'
	if stripdance >= 0:pl '<a href="exec:stripdance += 25 &dynamic $din_cheat_menu_stats">striptease: <<stripdance>></a>'
	if poledance >= 0:pl '<a href="exec:poledance += 25 & dynamic $din_cheat_menu_stats">Dancing in the six: <<poledance>></a>'

	pl ''

	if Jab >= 0:pl '<a href="exec:jab += 25 & dynamic $din_cheat_menu_stats">Jeb: <<jab>></a>'
	if Punch >= 0:pl '<a href="exec:punch += 25 & dynamic $din_cheat_menu_stats">power Strokes: <<punch>></a>'
	if Kik >= 0:pl '<a href="exec:kik += 25 & dynamic $din_cheat_menu_stats">kicks: <<kik>></a>'
	if KikDef >= 0:pl '<a href="exec:kikdef += 25 & dynamic $din_cheat_menu_stats">protection: <<kikdef>></a>'
	if vokal > 0:pl '<a href="exec:vokal += 25 & dynamic $din_cheat_menu_stats">vocal skills: <<vokal>></a>'

	pl ''

	if workPTU > 1:pl '<a href="exec:teachlevel += 10 & dynamic $din_cheat_menu_stats">Reputation teachers: <<teachlevel>></a>'
	if suspeh >= 0:pl '<a href="exec:suspeh += 10 & dynamic $din_cheat_menu_stats">improve their academic performance: <<suspeh>></a>'
	if schoolprogul >= 0:pl '<a href="exec:schoolprogul = 0 & dynamic $din_cheat_menu_stats">reset Absenteeism: <<schoolprogul>></a>'

	pl ''
	pl '<b>Test options</b> are present in the mechanism of the game, but not involved in the game quests.'

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

$din_cheat_menu_reputation = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''

	if nastjaQW >= 0:pl '<a href="exec:nastjaQW += 10 & dynamic $din_cheat_menu_reputation">Friendship with Nastya: <<nastjaQW>></a>'
	if kat >= 0:pl '<a href="exec:kat += 10 & dynamic $din_cheat_menu_reputation">Friendship with Kate: <<kat>></a>'
	if vika >= 0:pl '<a href="exec:vika += 10 & dynamic $din_cheat_menu_reputation">Friendship with Vika: <<vika>></a>'
	if Irina >= 0:pl '<a href="exec:Irina += 10 & dynamic $din_cheat_menu_reputation">Friendship with Irina: <<Irina>></a>'
	if Tamara >= 0:pl '<a href="exec:Tamara += 10 & dynamic $din_cheat_menu_reputation">Friendship with Tamara: <<Tamara>></a>'
	if alla >= 0:pl '<a href="exec:alla += 10 & dynamic $din_cheat_menu_reputation">Friendship with Alla: <<alla>></a>'
	if masha >= 0:pl '<a href="exec:masha += 10 & dynamic $din_cheat_menu_reputation">Friendship with Masha: <<masha>></a>'
	if Givi >= 0:pl '<a href="exec:Givi += 10 & dynamic $din_cheat_menu_reputation">Friendship with Givi Karapetovich: <<Givi>></a>'
	if Ashot >= 0:pl '<a href="exec:Ashot += 10 & dynamic $din_cheat_menu_reputation">Friendship with Ashot: <<Ashot>></a>'
	if Dmitry >= 0:pl '<a href="exec:Dmitry += 10 & dynamic $din_cheat_menu_reputation">Friendship with Dima: <<Dmitry>></a>'
	if afra >= 0:pl '<a href="exec:afra += 10 & dynamic $din_cheat_menu_reputation">Friendship with blacks: <<afra>></a>'

	pl ''

	if GorSlut > 0:pl 'In the town you are known as <<$gnikname>> (<<GorSlut>>)'
	if GorSlut = 0:pl 'You have a good reputation in the town (0)'
	if GorSlut ! 1:pl '<a href="exec:GorSlut = 1 & dynamic $din_cheat_menu_reputation">Back reputation "davalka" (1)</a>'
	if GorSlut ! 2:pl '<a href="exec:GorSlut = 2 & dynamic $din_cheat_menu_reputation">Back reputation "vaflersha" (2)</a>'
	if GorSlut ! 3:pl '<a href="exec:GorSlut = 3 & dynamic $din_cheat_menu_reputation">Back reputation "Total huesoska" (3)</a>'
	if GorSlut ! 4:pl '<a href="exec:GorSlut = 4 & dynamic $din_cheat_menu_reputation">Back reputation "Total hole" (4)</a>'
	if GorSlut ! 5:pl '<a href="exec:GorSlut = 5 & dynamic $din_cheat_menu_reputation">Back reputation "lowered slut" (5)</a>'
	if GorSlut ! 6:pl '<a href="exec:GorSlut = 6 & dynamic $din_cheat_menu_reputation">Back reputation "prostitute" (6)</a>'
	if GorSlut > 0:pl '<a href="exec:GorSlut = 0 & dynamic $din_cheat_menu_reputation">Clear reputation in town (0)</a>'
	if opusk > 0 or sipovka > 0 or rozetka > 0:pl '<a href="exec:opusk = 0 & sipovka = 0 & rozetka = 0 & dynamic $din_cheat_menu_reputation">Clear reputation with Gopnik</a>'
}

$din_cheat_menu_documents = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''

	if diplom = 0:pl '<a href="exec:diplom = 1 & dynamic $din_cheat_menu_documents">Get Diploma</a>'
	if diplom = 1:pl 'You already have a diploma'
	if secrdiplom = 0:pl '<a href="exec:secrdiplom = 1 & dynamic $din_cheat_menu_documents">Get Secretarial Diploma</a>'
	if secrdiplom = 1:pl 'You already have a diploma Secretary'
	if masash < 10:pl '<a href="exec:masash = 10 & dynamic $din_cheat_menu_documents">Get Certificate Masseur</a>'
	if masash >= 10:pl 'You already have a certificate masseur'
	if prava = 0:pl '<a href="exec:prava = 1 & dynamic $din_cheat_menu_documents">Get the right</a>'
	if prava = 1:pl 'Do you already have rights'
}

$din_cheat_menu_time = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''
	pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
	pl '<a href="exec:dynamic $din_cheat_menu_week">Select Day of the Week</a>'
	pl '<a href="exec:day += 1 & dynamic $din_cheat_menu_time">+1 The_Day</a>'
	pl '<a href="exec:day -= 1 & dynamic $din_cheat_menu_time">-1 The_Day</a>'
	pl '<a href="exec:dynamic $din_cheat_menu_month">select Month</a>'
	pl '<a href="exec:year += 1 & dynamic $din_cheat_menu_time">+1 The_Year</a>'
	pl '<a href="exec:year -= 1 & dynamic $din_cheat_menu_time">-1 The_Year</a>'
}

$din_cheat_menu_week = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_time"><b>period_Of</b></a></center>'
	pl ''
	pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
	pl '<a href="exec:week = 1 & dynamic $din_cheat_menu_time">Monday</a>'
	pl '<a href="exec:week = 2 & dynamic $din_cheat_menu_time">Tuesday</a>'
	pl '<a href="exec:week = 3 & dynamic $din_cheat_menu_time">Wednesday</a>'
	pl '<a href="exec:week = 4 & dynamic $din_cheat_menu_time">Thursday</a>'
	pl '<a href="exec:week = 5 & dynamic $din_cheat_menu_time">Friday</a>'
	pl '<a href="exec:week = 6 & dynamic $din_cheat_menu_time">Saturday</a>'
	pl '<a href="exec:week = 7 & dynamic $din_cheat_menu_time">Sunday</a>'
}

$din_cheat_menu_month = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_time"><b>period_Of</b></a></center>'
	pl ''
	pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
	pl '<a href="exec:month = 1 & dynamic $din_cheat_menu_time">January</a>'
	pl '<a href="exec:month = 2 & dynamic $din_cheat_menu_time">February</a>'
	pl '<a href="exec:month = 3 & dynamic $din_cheat_menu_time">March</a>'
	pl '<a href="exec:month = 4 & dynamic $din_cheat_menu_time">April</a>'
	pl '<a href="exec:month = 5 & dynamic $din_cheat_menu_time">May</a>'
	pl '<a href="exec:month = 6 & dynamic $din_cheat_menu_time">June</a>'
	pl '<a href="exec:month = 7 & dynamic $din_cheat_menu_time">July</a>'
	pl '<a href="exec:month = 8 & dynamic $din_cheat_menu_time">August</a>'
	pl '<a href="exec:month = 9 & dynamic $din_cheat_menu_time">September</a>'
	pl '<a href="exec:month = 10 & dynamic $din_cheat_menu_time">October</a>'
	pl '<a href="exec:month = 11 & dynamic $din_cheat_menu_time">November</a>'
	pl '<a href="exec:month = 12 & dynamic $din_cheat_menu_time">December</a>'
}

$din_cheat_menu_magic = {
	gs 'stat'
	clr
	pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
	pl ''
	pl '<a href="exec:magik += 1 & dynamic $din_cheat_menu_magic">is_magical: <<magik>></a>'
	pl ''

	if spelltuman = 0:pl '<a href="exec:spelltuman = 1 & dynamic $din_cheat_menu_magic">Cover the area fog</a>'
	if spellklon = 0:pl '<a href="exec:spellklon = 1 & dynamic $din_cheat_menu_magic">Substitute itself clone</a>'
	if spellstun = 0:pl '<a href="exec:spellstun = 1 & dynamic $din_cheat_menu_magic">paralyze the enemy</a>'
	if spellweap = 0:pl '<a href="exec:spellweap = 1 & dynamic $din_cheat_menu_magic">Invest in energy weapons (requires weapons)</a>'
	if spellwind = 0:pl '<a href="exec:spellwind = 1 & dynamic $din_cheat_menu_magic">blow away the fog</a>'
	if spellklon2 = 0:pl '<a href="exec:spellklon2 = 1 & dynamic $din_cheat_menu_magic">Substitute itself clones (3 pieces)</a>'
	if spellenergo = 0:pl '<a href="exec:spellenergo = 1 & dynamic $din_cheat_menu_magic">Create weak energy shield</a>'
	if spellinit = 0:pl '<a href="exec:spellinit = 1 & dynamic $din_cheat_menu_magic">Write a slight deceleration time</a>'
	if spellhel = 0:pl '<a href="exec:spellhel = 1 & dynamic $din_cheat_menu_magic">Battle Heal</a>'

	if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
		pl ''
		pl '<b>Elements of Fire Spells:</b></a>'
	end

	if spellfire0 = 0:pl '<a href="exec:spellfire0 = 1 & dynamic $din_cheat_menu_magic">Flame</a>'
	if spellfire2 = 0:pl '<a href="exec:spellfire2 = 1 & dynamic $din_cheat_menu_magic">The release of fire</a>'
	if spellfire3 = 0:pl '<a href="exec:spellfire3 = 1 & dynamic $din_cheat_menu_magic">fire barrier</a>'
	if spellfire4 = 0:pl '<a href="exec:spellfire4 = 1 & dynamic $din_cheat_menu_magic">firestorm</a>'
	if spellfire5 = 0:pl '<a href="exec:spellfire5 = 1 & dynamic $din_cheat_menu_magic">Flame Shield</a>'

	if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
		pl ''
		pl '<b>Elements Lightning Spells:</b></a>'
	end

	if spellele0 = 0:pl '<a href="exec:spellele0 = 1 & dynamic $din_cheat_menu_magic">discharge</a>'
	if spellele2 = 0:pl '<a href="exec:spellele2 = 1 & dynamic $din_cheat_menu_magic">lightning</a>'
	if spellele3 = 0:pl '<a href="exec:spellele3 = 1 & dynamic $din_cheat_menu_magic">electric barrier</a>'
	if spellele4 = 0:pl '<a href="exec:spellele4 = 1 & dynamic $din_cheat_menu_magic">Dance of thousands of birds</a>'
	if spellele5 = 0:pl '<a href="exec:spellele5 = 1 & dynamic $din_cheat_menu_magic">dancing sphere</a>'

	if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
		pl ''
		pl '<b>Spells Earth Elements:</b></a>'
	end

	if spellert0 = 0:pl '<a href="exec:spellert0 = 1 & dynamic $din_cheat_menu_magic">quicksand</a>'
	if spellert2 = 0:pl '<a href="exec:spellert2 = 1 & dynamic $din_cheat_menu_magic">active protection</a>'
	if spellert3 = 0:pl '<a href="exec:spellert3 = 1 & dynamic $din_cheat_menu_magic">abyss</a>'
	if spellert4 = 0:pl '<a href="exec:spellert4 = 1 & dynamic $din_cheat_menu_magic">absolute protection</a>'
	if spellert5 = 0:pl '<a href="exec:spellert5 = 1 & dynamic $din_cheat_menu_magic">Sando</a>'

	if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
		pl ''
		pl '<b>Spells with wind energy:</b></a>'
	end

	if spellwind0 = 0:pl '<a href="exec:spellwind0 = 1 & dynamic $din_cheat_menu_magic">wind gust</a>'
	if spellwind2 = 0:pl '<a href="exec:spellwind2 = 1 & dynamic $din_cheat_menu_magic">terrifying pressure</a>'
	if spellwind3 = 0:pl '<a href="exec:spellwind3 = 1 & dynamic $din_cheat_menu_magic">vacuum sphere</a>'
	if spellwind4 = 0:pl '<a href="exec:spellwind4 = 1 & dynamic $din_cheat_menu_magic">vacuum shells</a>'
	if spellwind5 = 0:pl '<a href="exec:spellwind5 = 1 & dynamic $din_cheat_menu_magic">devouring vacuum</a>'

	if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
		pl ''
		pl '<b>Water Elemental spells:</b></a>'
	end

	if spellwater0 = 0:pl '<a href="exec:spellwater0 = 1 & dynamic $din_cheat_menu_magic">creek manna</a>'
	if spellwater2 = 0:pl '<a href="exec:spellwater2 = 1 & dynamic $din_cheat_menu_magic">flooding</a>'
	if spellwater3 = 0:pl '<a href="exec:spellwater3 = 1 & dynamic $din_cheat_menu_magic">blister</a>'
	if spellwater4 = 0:pl '<a href="exec:spellwater4 = 1 & dynamic $din_cheat_menu_magic">Water shark missile</a>'
	if spellwater5 = 0:pl '<a href="exec:spellwater5 = 1 & dynamic $din_cheat_menu_magic">The Great Flood'
}

$din_cheat_dynamic = {
	$dynamicCommand = input("Enter command to execute.")
	if $dynamicCommand = '':exit
	dynamic $dynamicCommand
}

$objcheat_menu = {
	gs 'stat'
	clr
	pl '<center><a href="exec:gs ''stat''"><b>Get out of the cheat menu</b></a></center>'
	pl ''
	pl '<a href="exec:dynamic $din_cheat_menu_permanent"><b>permanent</b></a>'
	pl '<a href="exec:dynamic $din_cheat_menu_look"><b>Appearance</b></a>'
	pl '<a href="exec:dynamic $din_cheat_menu_stats"><b>Characteristics of</b></a>'
	pl '<a href="exec:dynamic $din_cheat_menu_reputation"><b>Relationships and Reputation</b></a>'
	pl '<a href="exec:dynamic $din_cheat_menu_documents"><b>documents</b></a>'
	pl '<a href="exec:dynamic $din_cheat_menu_time"><b>manipulation of time</b></a>'

	if StoryLine = 0:pl '<a href="exec:dynamic $din_cheat_menu_magic"><b>Magic</b></a>'

	pl ''
	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 $objcheat_menu">Complete recovery, manna, reason.</a>'
	pl '<a href="exec:dynamic $din_cheat_money">Change the amount of money</a>'
	pl '<a href="exec:money = 0 & dynamic $din_cheat_money">Zero the money</a>'

	pl ''
	pl '<a href="exec:dynamic $din_cheat_dynamic">Dynamic Input Command</a>'
}
$objmagic = {
	clr

	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 '<b>BASIC SPELL:</b>' & 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
}

$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
		! Updated to be consistent with current images
		if bedra < 60:
			view 'images/body/fat.jpg'
		elseif bedra < 70:
			view 'images/body/fat1.jpg'
		elseif bedra < 80:
			view 'images/body/fat2.jpg'
		elseif bedra < 90:
			view 'images/body/fat3.jpg'
		elseif bedra < 100:
			view 'images/body/fat4.jpg'
		elseif bedra < 110:
			view 'images/body/fat5.jpg'
		elseif bedra < 120:
			view 'images/body/fat6.jpg'
		else
			view 'images/body/fat7.jpg'
		end
	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 = 1 or cheatWork = 1) 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 = 1 or cheatWork = 1) 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 = 1 or cheatWork = 1) 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 = 1 or cheatWork = 1) 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 = 1 or cheatWork = 1) and tanwork > 0:pl 'I work as a governess at Tani. Salary is automatically transferred to the 25th number.' & nl
	if (work = 1 or cheatWork = 1) 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 bumtolik = 4:pl 'Service for the Homeless is located in the Northern Region.' & nl
	if bumtolik = 5:pl 'You volunteer to help the homeless service. Office hours 9 prior_to 17, Weekend Saturday and Sunday.' & 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:
		i = 1
		if kid = 1:
			pl 'I have a child named <<$kidname[i]>>, aged <<kidage[i]>>.'
		else
			p 'I have children'
			:LoopKidCounter
			if i <= kid:
				if i > 1: p ','
				p ' <<$kidname[i]>>, aged <<kidage[i]>>'
				i += 1
				jump 'LoopKidCounter'
			end
			pl '.'
		end
		nl
	end
	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 today', '', '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 an entry from the 2nd row', '', 'MenuLoc', 'diszapis2'
	gs 'Menu.Add', 'disMenu', 'Delete an entry from the 3rd 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 an entry from 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
	oldobjmenu = 0
	addobj 'Character'
	addobj 'See'
	addobj 'Others'
	addobj 'Menu'
}

$objoldmenu = {
	killobj
	oldobjmenu = 1
	addobj '<font color="green">Character</font>'
	addobj 'Skills'
	addobj 'Statistics'

	if magik > 0:addobj 'The_Magic'

	addobj 'Face'
	addobj 'Body'
	addobj 'Clothing'
	addobj 'Tattoos'
	addobj 'Piercing'

	! WD: Uninitialised ~ 'mobila'
	if mobila > 0:addobj 'Phone'

	addobj 'Diary'
	addobj 'Emergency exit'
	addobj 'Update'
	addobj 'Menu'
	addobj 'New Menu'
	addobj 'Cheat menu'

	if disable_autosave = 1:
		addobj 'Enable autosave'
	else
		addobj 'Disable autosave'
	end
}

$objautosave = {
	if oldobjmenu = 0:
		if disable_autosave = 1:
			disable_autosave = 0
		else
			disable_autosave = 1
		end
	elseif oldobjmenu = 1:
		if disable_autosave = 1:
			disable_autosave = 0
			delobj 'Enable autosave'
			addobj 'Disable autosave'
		else
			disable_autosave = 1
			delobj 'Disable autosave'
			addobj 'Enable autosave'
		end
	end

	gs 'stat'
}

$menu_character[0] = 'Description:$menu_descrip'
$menu_character[1] = 'Characteristics:$menu_skills'
$menu_character[2] = 'Usage:$menu_statistika'

if magik > 0:$menu_character[3] = 'Magic:$menu_magic'

$menu_lookon[0] = 'Face:$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'
$menu_other[4] = 'Cheat menu:$menu_cheat'

if disable_autosave = 1:
	$menu_other[5] = 'Enable autosave:$menu_autosave'
else
	$menu_other[5] = 'Disable autosave:$menu_autosave'
end

! WD: Uninitialised ~ 'mobila'
if mobila > 0:$menu_other[6] = '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  magik > 0:if $selobj = 'Magic':dynamic $objmagic
if $selobj = 'Face':view FUNC('$face_image')
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
if $selobj = 'Cheat menu':dynamic $objcheat_menu

if disable_autosave = 1:
	if $selobj = 'Enable autosave':dynamic $objautosave
else
	if $selobj = 'Disable autosave':dynamic $objautosave
end
!!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

! WD: broken 'Menu' fix, remove Menu.Builder
$menu_mainMenu[0] = 'Statusbar:MenuMainLoc'
$menu_mainMenu[1] = 'Text notation:MenuMainLoc'
if $selobj = 'Menu':menu '$menu_mainMenu'
!'
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 ---------------------------------