# onobjsel
!!!dynamics!!!
$din_show_tits={
view
VIEW 'picb/t<<tits>>.jpg'
}
!$objbody
$objdescrip={
clr
pl'your name <<$name>> <<$surname>>.'
pl'you <<age>> <<$letgoda>>, on the kind you can not give more <<vidage>> <<$letgoda2>>.'
if birthday>0 and birthmonth>0:pl'Date of your birth <<birthday>>.0<<birthmonth>>.<<birthyear>>g.'
pl'growth <<rost>> cm, weight <<ves>> kg.'
pl'<<$body>>'
pl'<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>></a>, <a href="exec:dynamic $din_show_tits">breast size <<tits>></a>, the difference between the hips and waist <<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 start dystrophy.</font></B>'
if salo = 0 and musle = 0 and dounspell = 0:pl'<B><font color=red>You dystrophy.</font></B>'
if curly > 0:pl'Perms enough for another <<curly>> days.'
if zub=1:$zuba=' tooth'
if zub>=2:$zuba='x teeth'
if zub>0:pl'You do not have <<zub>><<$zuba>>.'
!pl'vnesh <<vnesh>>'
!pl'curlykoef <<curlykoef>> maximum 1'
!pl'tits <<tits>> maximum 6'
!pl'lip <<lip>> maximum 4'
!pl'tanKoef <<tanKoef>> maximum 1'
!pl'skin <<skin>> maximum 4'
!pl'mop <<mop>> maximum 4'
!pl'resnic <<resnic>> maximum 2'
!pl'glaraz <<glaraz>> maximum 3'
!pl'bodykoef <<bodykoef>> maximum 8'
!pl'legkoef <<legkoef>> maximum 3'
!pl'lobkoef <<lobkoef>> maximum 3'
!pl'odevnesh <<odevnesh>> maximum 15'
!pl'sweat <<sweat>> maximum 0'
!pl'hapri <<hapri>> maximum 1'
}




$objskills={
clr
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
!if salo > musle*4:set $fat = 'Do you loose fat body'
!if salo <= musle*4 and fat > musle*2:set $fat = 'Your body is soft, but still elastic.'
!if salo <= musle*2 and fat > musle:set $fat = 'You are normal complexion.'
!if salo <= musle and fat >= musle/2:set $fat = 'You slim and trim.'
!if salo < musle/2:set $fat = 'You really are thin, muscles strong stand on the body.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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'is_magical <<magik>>'
if Jab > 0:pl'Jeb - <<Jab>>'
if Punch > 0:pl'power punches - <<Punch>>'
if Kik > 0:pl'kicks - <<Kik>>'
if KikDef > 0:pl'Shock protection - <<KikDef>>'
if beg > 0:pl'Skill run - <<beg>>'
if volleyboll>0:pl'Skill volleyball - <<volleyboll>>'
if oficiant > 0:pl'skills waitress - <<oficiant>>'
if vokal>0:pl'vocal skills <<vokal>>'
if dance>0:pl'dance skills - <<dance>>'
if dancePRO>0:pl'Skill professional dance - <<dancePRO>>'
if stripdance>0:pl'Skill dance striptease - <<stripdance>>'
if poledance>0:pl'Skill dance on a pole - <<poledance>>'
if shoot > 0:pl'shooting skills - <<shoot>>'
if kid=1:pl'Do you have a child, <<$polreb[1]>> by name <<$kidname[1]>>. date of birth <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>g. age <<kidage[1]>>'

if SchoolAtestat=0 and StoryLine>0:
if Suspeh>=90:pl'At school you round excellent student.'
if Suspeh>=80 and Suspeh<90:pl'At school you learn mainly on fine, but there are four.'
if Suspeh>=70 and Suspeh<80:pl'In school, among which sometimes there are five.'
if Suspeh>=60 and Suspeh<70:pl'In school, Five very rare in your diary.'
if Suspeh>=50 and Suspeh<60:pl'At school you learn from the troika, sometimes skips and four.'
if Suspeh>=40 and Suspeh<50:pl'At school you learn bad, you find it difficult to correct twos threes.'
if Suspeh<40:pl'At school you learn disgusting, basically go one of two.'
if schoolprogul>1:pl'Absenteeism at school <<schoolprogul>>'
end
}




$objstatistika={
clr
if opPRE = 0:pl'gone <<daystart>> days from the start of the game.'
if BuyHous=2 and ArendHouseSL>0:pl'The apartment is in a residential area on a rented <<ArendHouseSL>> days.'
if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:pl'professional record. victory-lesions-Drawn (knockout wins)'
if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:pl'<<KikWinPro>> - <<KikLossPro>> - <<KikDrawPro>> (<<KikKOPro>>KO)'
if Win > 0 or Loss > 0:pl'Wins in fights <<Win>>, defeats in fights <<Loss>>'
if KisameDead = 1:pl'You killed Kisame.'
nl
if razradKik > 0:pl'<<$razradKik>>'
if KikWinAm > 0:pl'Wins in kickboxing among fans - <<KikWinAm>>'
if KikLossAm > 0:pl'Lesions in amateur kickboxing - <<KikLossAm>>'
if KikDrawAm > 0:pl'Draws in kickboxing among fans - <<KikDrawAm>>'
nl
if maxdamage > 0:pl'The impact force on the dynamometer <<maxdamage>> kgf'
if Irina > 0:pl'Friendship with Irina <<Irina>>'
if Givi > 0:pl'Friendship with Givi Karapetovich <<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>>'
if modelfoto > 0:pl'You filmed nude <<modelfoto>> time'
if stripdancesum>0:pl'<<stripdancesum>> just dancing a striptease in club'
if profiDanceTime>0:pl'Do_You <<profiDanceTime>> once danced professionally.'
nl
if razradKik = 1:set $razradKik = 'you have III rank amateur kickboxing'
if razradKik = 2:set $razradKik = 'you have II rank amateur kickboxing'
if razradKik = 3:set $razradKik = 'you have I rank amateur kickboxing'
if razradKik = 4:set $razradKik = 'You have the title of Candidate Master of Sports in kickboxing'
if razradKik = 5:set $razradKik = 'You have the title of Master of Sports in kickboxing'
if SchoolAtestat=1:pl'You finished school.'
if diplom = 1:pl'You graduate.'
if teachlevel>0:pl'Your credibility as a teacher <<teachlevel>>'
if kolsorev > 0:pl'<<kolsorev>> once took part in a running race'
if bronzebeg > 0:pl'<<bronzebeg>> - bronze medals on the run'
if silverbeg > 0:pl'<<silverbeg>> - silver medals on the run'
if goldbeg > 0:pl'<<goldbeg>> - gold medals on the run'
if razradbegEB > 0:pl'<<razradbegEB>> double bronze medalist at the European'
if razradbegES > 0:pl'<<razradbegES>> fold vice champion of Europe'
if razradbegEG > 0:pl'<<razradbegEG>> time European champion.'
if razradbeg = 1:pl'you have 3First sports category on the run'
if razradbeg = 2:pl'you have 2First sports category on the run'
if razradbeg = 3:pl'you have 1First sports category on the run'
if razradbeg = 4:pl'You have the title of candidate master on the run'
if razradbeg = 5:pl'You have the title of Master of Sports on the run'
if razradbeg >= 6:pl'You have the title of International Master of Sports on the run'
nl
if mastr > 0:pl'masturbate <<mastr>> time'
if throat > 0:pl'capacity throat <<throat>>'
if vagina > 0:pl'The elasticity of the vagina <<vagina>>'
if vagina = 0 and sex=0:pl'Do you have a hymen.'
if anus > 0:pl'<<$anus>>'
nl
if GorSlut=1:pl'In the town you know how davalku.'
if GorSlut=2:pl'In the town you know how vaflersha who got in her mouth.'
if GorSlut=3:pl'In the town you know how to suck a few cocks vaflersha immediately.'
if GorSlut=4:pl'In the town you know how fucked davalku that several boys.'
if GorSlut=5:pl'In the town you know how to washed- whore which can do everything, anything.'
if GorSlut=6:pl'In the town you know as a prostitute for the money ready for any abomination.'

if guy > 0:pl'you had <<guy>> guys.'
if divorced>0:pl'You have been <<divorced>> husbands.'
if suprdolg>0:pl'Perform conjugal duty with her husband <<suprdolg>> time'
if gang > 0:pl'group sex <<gang>> time'
if sex > 0 and sexa=0:pl'vaginal sex <<sex>> time'
if sex > 0 and sexa>0:pl'vaginal sex <<sex>> just one <<sexa>> time with her boyfriend'
if bj > 0 and gloryhole = 0 and eggs = 0 and bja=0:pl'blowjob done <<bj>> time'
if bj > 0 and gloryhole = 0 and eggs = 0 and bja>0:pl'blowjob done <<bj>> time, are <<bja>> time her boyfriend'
if bj > 0 and gloryhole > 0 and eggs = 0 and bja=0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall.'
if bj > 0 and gloryhole > 0 and eggs = 0 and bja>0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. As one <<bja>> time her boyfriend'
if bj > 0 and gloryhole = 0 and eggs > 0 and bja=0:pl'blowjob done <<bj>> time, eggs sucked <<eggs>> time.'
if bj > 0 and gloryhole = 0 and eggs > 0 and bja>0:pl'blowjob done <<bj>> time, eggs sucked <<eggs>> time. As one <<bja>> time her boyfriend'
if bj > 0 and gloryhole > 0 and eggs > 0 and bja=0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. eggs sucked <<eggs>> time.'
if bj > 0 and gloryhole > 0 and eggs > 0 and bja>0:pl'blowjob done <<bj>> time, are you <<gloryhole>> just suck strangers through a hole in the wall. eggs sucked <<eggs>> time. As one <<bja>> time her boyfriend'
if hj > 0 and hja=0:pl'Fingering guys <<hj>> time'
if hj > 0 and hja>0:pl'Fingering guys <<hj>> just one <<hja>> just masturbate her boyfriend'
if hump>0:pl'About you wanker member <<hump>> time'
if rape > 0:pl'you raped <<rape>> time'
if anal > 0 and anala=0:pl'anal <<anal>> time'
if anal > 0 and anala>0:pl'anal <<anal>> just one <<anala>> time with her boyfriend'
if kuni > 0:pl'You did cunnilingus <<kuni>> time'
if pegging > 0:pl'Pegging <<pegging>> time'
if spank > 0:pl'You ran ass <<spank>> time'
nl
if slutty>0 and bordelslutty=0:pl'Sold their love <<slutty>> time.'
if slutty>0 and bordelslutty>0:pl'Sold their love <<slutty>> time, of them in a brothel <<bordelslutty>> time.'
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>> time. <<$pfilmhistory>>'
if orgasm > 0:pl'orgasm <<orgasm>> time. Of these <<vaginalOrgasm>> vaginal orgasms during sex.'
if analorgasm > 0 : pl 'Of these <<analorgasm>> anal orgasm'
if swallow > 0:pl'sperm swallowed <<swallow>> time'
if facial > 0:pl'Cum on face <<facial>> time'
if frot > 0:pl'Cum on you in transport <<frot>> time'
if VAF > 0:pl'vaflizm <<VAF>>'
if zoo > 0:pl'Sex with animals <<zoo>> time.'
if pee>0:pl'you pissing <<pee>> time.'
nl
if girl > 0:pl'You have been <<girl>> girls.'
if lesbian > 0:pl'You engaged lecBiysk sex <<lesbian>> time.'
if sexfuta>0:pl'Do_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'
pl'<<grudi>> - grudi'
pl'<<bedra>> - bedra'
pl'<<titK>> - titK'
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='included'
if cheatNomakeup=0:$cheatNomakeup='OFF'
if cheatNomakeup=1:$cheatNomakeup='included'
if cheatNosweat=0:$cheatNosweat='OFF'
if cheatNosweat=1:$cheatNosweat='included'
if cheatNoEat=0:$cheatNoEat='OFF'
if cheatNoEat=1:$cheatNoEat='included'
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 <a href="exec:dynamic $din_cheat_hapri">always combed</a> <<$cheatHapri>>'
pl'option <a href="exec:dynamic $din_cheat_nomakeup">cosmetics never smeared</a> <<$cheatNomakeup>>'
pl'option <a href="exec:dynamic $din_cheat_Nosweat">never sweat</a> <<$cheatNosweat>>'
pl'option <a href="exec:dynamic $din_cheat_NoEat">never eat or drink</a> <<$cheatNoEat>>'
pl'<b>Cheats designer body</b>'
if lip<4:pl'option <a href="exec:lip+=1&dynamic $din_cheat">enlarge lips</a>'
if lip>0:pl'option <a href="exec:lip-=1&dynamic $din_cheat">reduce lips</a>'
if skin<4:pl'option <a href="exec:skin+=1&dynamic $din_cheat">improve the skin</a>'
if skin>0:pl'option <a href="exec:skin-=1&dynamic $din_cheat">worsen the skin</a>'
if resnic<2:pl'option <a href="exec:resnic+=1&dynamic $din_cheat">increase eyelashes</a>'
if resnic>0:pl'option <a href="exec:resnic-=1&dynamic $din_cheat">reduce eyelashes</a>'
if glaraz<3:pl'option <a href="exec:glaraz+=1&dynamic $din_cheat">increase the size of the eye</a>'
if glaraz>0:pl'option <a href="exec:glaraz-=1&dynamic $din_cheat">reduce the size of the eye</a>'
if lip<4:pl'option <a href="exec:lip+=1&dynamic $din_cheat">enlarge lips</a>'
if lip>0:pl'option <a href="exec:lip-=1&dynamic $din_cheat">reduce lips</a>'
if salo>0:pl'option <a href="exec:salo-=5&fat=salo&dynamic $din_cheat">reduce fat</a> <a href="exec:salo=0&fat=salo&dynamic $din_cheat">reset fat</a>'
pl'Option to increase fat <a href="exec:salo+=5&fat=salo&dynamic $din_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 the force on the <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>'
if stren>0:pl'Reduce the force on the <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">install 100</a>'
pl'Increase speed <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">install 100</a>'
if speed>0:pl'Decrease speed <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">install 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 the response to <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">install 100</a>'
if react>0:pl'Reduce the response to <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'Enlarge physique on <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">install 100</a>'
if vital>0:pl'Reduce physique on <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'Will increase to <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">install 100</a>'
if will>0:pl'Will reduce to <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 Intellect 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">install 100</a>'
if intel>0:pl'Reduce intelligence on <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'Enlarge money <a href="exec:money+=1000&dynamic $din_cheat">1000</a> <a href="exec:money+=5000&dynamic $din_cheat">5000</a> <a href="exec:money+=10000&dynamic $din_cheat">10000</a>'
pl'<a href="exec:money=0&dynamic $din_cheat">Zero the money</a>'
pl'Increase the dominance on the <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'Zoom on sabmissivnost <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 parameters</b> 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">1level</a>'
if mutagenP = 1:pl'mutagen force <a href="exec:mutagenP = 2&stren=200&dynamic $din_cheat">2level</a>'
if mutagenP = 2:pl'mutagen force <a href="exec:mutagenP = 3&stren=250&dynamic $din_cheat">3level</a>'
if mutagenP > 0:pl'mutagen force <a href="exec:mutagenP = 0&stren=100&dynamic $din_cheat">set_to_zero</a>'
if mutagenV = 0:pl'mutagen endurance <a href="exec:mutagenV = 1&vital=150&dynamic $din_cheat">1level</a>'
if mutagenV = 1:pl'mutagen endurance <a href="exec:mutagenV = 2&vital=200&dynamic $din_cheat">2level</a>'
if mutagenV = 2:pl'mutagen endurance <a href="exec:mutagenV = 3&vital=250&dynamic $din_cheat">3level</a>'
if mutagenV > 0:pl'mutagen endurance <a href="exec:mutagenV = 0&vital=100&dynamic $din_cheat">set_to_zero</a>'
if mutagenA = 0:pl'mutagen Agility <a href="exec:mutagenA = 1&agil=150&dynamic $din_cheat">1level</a>'
if mutagenA = 1:pl'mutagen Agility <a href="exec:mutagenA = 2&agil=200&dynamic $din_cheat">2level</a>'
if mutagenA = 2:pl'mutagen Agility <a href="exec:mutagenA = 3&agil=250&dynamic $din_cheat">3level</a>'
if mutagenA > 0:pl'mutagen Agility <a href="exec:mutagenA = 0&agil=100&dynamic $din_cheat">set_to_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.'
end

if magik > 0:
pl'available to you <<manna>> units of manna.'
!' Rikudo forces available to you <<rikudo>> units'
nl
	 pl'base spell :'
	 nl
     if spelltuman > 0:pl'Cover the area fog, a great way to cover up their offensive actions against the enemy and not a bad way to increase the chance to dodge enemy attacks, since he can not see you in your fog (cost 10 units of manna)'
     nl
     if spellklon > 0:pl'Substitute itself clone, powerful way to avoid enemy attacks substituting itself clone, the enemy gets to clone and not by you, he just wasted power (cost 15 units of manna)'
     nl
     if spellstun > 0:pl'paralyze the enemy, a great way to stop the enemy, he will not be able to defend and attack. ( cost 20 units of manna)'
     nl
     if spellweap > 0 and weapon > 0:pl'Invest in energy weapons '
     if spellwind > 0:pl'blow away the fog, spell dissipating any mist over the battlefield. '
     nl
     if spellklon2 > 0:pl'Substitute itself clones (3 pieces), the enemy will not be able to reach you, until you destroy all of your clones. (cost 45 units of manna)'
     nl
     if spellenergo > 0:pl'Create weak energy shield, spell protects against all attacks of the physical nature, even if the attack of the enemy beyond the capabilities of the shield and shield will be destroyed first strike, you can still protect yourself from damage(cost 50 units of manna)'
     nl
     if spellinit > 0:pl'Write a slight deceleration time, powerful spell allows you to move faster, you will be able to wrest the initiative by means of this spell, that would strike another spell, also increase the probability of hitting, because you will move very quickly (cost 60 units of manna)'
     nl
     if spellhel > 0:pl'Battle Heal, 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 manna)'
     nl
     if spellfire2 = 1:pl'The release of fire. Caused great damage. (cost 100 manna)'
     nl
     if spellfire3 = 1:pl'fire barrier, creates a shield 750 units. (cost 150 manna)'
     nl
     if spellfire4 = 1:pl'firestorm. Causes great damage, difficult to dodge enemy. (cost 250 manna)'
     nl
     if spellfire5 = 1:pl'Flame Shield, creates a shield 2500 units. (cost 500 manna)'
     nl
     
     if stihia = 2:pl'SPELL element of lightning'
     nl
     if spellele1 = 1:pl'discharge. Inflict damage is very small. (cost 10 manna)'
     nl
     if spellele2 = 1:pl'lightning. Inflicts damage above average. (cost 100 manna)'
     nl
     if spellele3 = 1:pl'electric barrier, creates a shield 1500 units. (cost 150 manna)'
     nl
     if spellele4 = 1:pl'Dance of thousands of birds. Deals very high damage. (cost 250 manna)'
     nl
     if spellele5 = 1:pl'Plyaschuschaya sphere, creates a shield 5000 units. (cost 500 manna)'
     nl
     
     if stihia = 3:pl'SPELL earth element'
     nl
     if spellert1 = 1:pl'quicksand, catches the opponent in quicksand trap and causes little damage. (cost 10 manna)'
     nl
     if spellert2 = 1:pl'active protection, creates a protective sphere of the earth, stone and sand 2500 protection units mana and health, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. (cost 100 manna)'
     nl
     if spellert3 = 1:pl'abyss, earth asunder under their feet enemy inflicting damage is above average . (cost 150 manna)'
     nl
     if spellert4 = 1:pl'absolute protection, creates a huge protective sphere of the earth, which regenerates itself every turn and attack the enemy. (cost 250 manna)'
     nl
     if spellert5 = 1:pl'Sando, two huge slabs emerge from the ground and crushing collapse of the enemy inflicting massive damage and depriving him of the ability to move. cost 500 manna.'
     nl
     
     if stihia = 4:pl'Spells with wind energy'
     nl
     if spellwind1 = 1:pl'gust, causes a very small damage and destroy clones and fog, very difficult to dodge. (cost 10 manna)'
     nl
     if spellwind2 = 1:pl'terrifying pressure, inflicts moderate damage and destroy clones and fog, very difficult to dodge. (cost 100 manna)'
     nl
     if spellwind3 = 1:pl'vacuum sphere, creates a shield 1500 units. (cost 150 manna)'
     nl
     if spellwind4 = 1:pl'vacuum shells, more damage and kills clones and fog, very difficult to dodge. (cost 250 manna)'
     nl
     if spellwind5 = 1:pl'devouring vacuum, sucks shield enemy destroying it whatever strength he was not. (cost 500 manna)'
     nl
     
     if stihia = 5:pl'SPELL element of water'
     nl
     if spellwater1 = 1:pl'creek manna, causes very little damage and absorbs a lot of mana. cost 10 manna.'
     nl
     if spellwater2 = 1:pl'flooding, inflicts moderate damage and absorbs manna above average. cost 100 manna.'
     nl
     if spellwater3 = 1:pl'blister, creates a protective sphere of water 1500 units of protection against all impacts, this protection during samovostanavlivaetsya 10 moves absorbing 20 units of manna in the course of. (cost 150 manna)'
     nl
     if spellwater4 = 1:pl'Water shark missile, caused great damage and absorbs a lot of mana. cost 250 manna.'
     nl
     if spellwater5 = 1:pl'The Great Flood, creates a huge field that absorbs water and deflating the enemy manna from it and passing it to strengthen protection. cost 500 manna.'
     nl
     
end
}




$objface={
if glass<=0:
	 if shorthair=0:
	 if hcol = 0 and curly <= 0:VIEW 'picb/hcol.jpg'
	 if hcol = 1 and curly <= 0:VIEW 'picb/hcol1.jpg'
	 if hcol = 2 and curly <= 0:VIEW 'picb/hcol2.jpg'
	 if hcol = 3 and curly <= 0:VIEW 'picb/hcol3.jpg'
	 if hcol = 0 and curly > 0:VIEW 'picb/hcolcurly.jpg'
	 if hcol = 1 and curly > 0:VIEW 'picb/hcolcurly1.jpg'
	 if hcol = 2 and curly > 0:VIEW 'picb/hcolcurly2.jpg'
	 if hcol = 3 and curly > 0:VIEW 'picb/hcolcurly3.jpg'
	 end
	 if shorthair=1:
	 if hcol = 0:VIEW 'picb/SHhcol.jpg'
	 if hcol = 1:VIEW 'picb/SHhcol1.jpg'
	 if hcol = 2:VIEW 'picb/SHhcol2.jpg'
	 if hcol = 3:VIEW 'picb/SHhcol3.jpg'
	 end
end
if glass>0:
     if glass=1:
     VIEW 'picb/nerd.jpg'
     end
     if glass=2:
     	 if hcol = 0:VIEW 'picb/hcolglass.jpg'
	     if hcol = 1:VIEW 'picb/hcolglass1.jpg'
	     if hcol = 2:VIEW 'picb/hcolglass2.jpg'
	     if hcol = 3:VIEW 'picb/hcolglass3.jpg'
     end
end
}

$objbody={
     if musle >= salo:
     !muscular type
         if bedra < 60:
         VIEW 'picb/fit.jpg'
         end
         if bedra >= 60 and bedra < 70:
         VIEW 'picb/fit1.jpg'
         end
         if bedra >= 70 and bedra < 80:
         VIEW 'picb/fit2.jpg'
         end
         if bedra >= 80 and bedra < 90:
         VIEW 'picb/fit3.jpg'
         end
         if bedra >= 90 and bedra < 100:
         VIEW 'picb/fit4.jpg'
         end
         if bedra >= 100 and bedra < 110:
         VIEW 'picb/fit5.jpg'
         end
         if bedra >= 110 and bedra < 120:
         VIEW 'picb/fit6.jpg'
         end
         if bedra >= 120:
         VIEW 'picb/fit7.jpg'
         end
     end
     if musle < salo:
     !bold type
         if bedra < 60:
         VIEW 'picb/body/0.jpg'
         end
         if bedra >= 60 and bedra < 65:
         VIEW 'picb/body/1.jpg'
         end
         if bedra >= 65 and bedra < 70:
         VIEW 'picb/body/2.jpg'
         end
          if bedra >= 70 and bedra < 75:
         VIEW 'picb/body/3.jpg'
         end
         if bedra >= 75 and bedra < 80:
         VIEW 'picb/body/4.jpg'
         end
         if bedra >= 80 and bedra < 85:
         VIEW 'picb/body/5.jpg'
         end
         if bedra >= 85 and bedra < 90:
         VIEW 'picb/body/6.jpg'
         end
         if bedra >= 90 and bedra < 95:
         VIEW 'picb/body/7.jpg'
         end
         if bedra >= 95 and bedra < 100:
         VIEW 'picb/body/8.jpg'
         end
         if bedra >= 100 and bedra < 105:
         VIEW 'picb/body/9.jpg'
         end
         if bedra >= 105 and bedra < 110:
         VIEW 'picb/body/10.jpg'
         end
         if bedra >= 110 and bedra < 115:
         VIEW 'picb/body/11.jpg'
         end
         if bedra >= 115 and bedra < 120:
         VIEW 'picb/body/12.jpg'
         end
         if bedra >= 120:
         VIEW 'picb/body/13.jpg'
         end
     end
}




$objclothes={
clr
if nude = 0:
	 if vatnik = 2:VIEW 'ode/vatnik.jpg'
	 if odetjeans>0:
		 VIEW 'ode/jeans<<numdress>>.jpg'
		 pl'(remaining strength <<jeansH[numdress]>> , The size of the hips <<jeansB[numdress]>>)'
		 end
	 if odetyoga>0:
		 VIEW 'ode/yoga<<numdress>>.jpg'
		 pl'(remaining strength <<yogaH[numdress]>> , The size of the hips <<yogaB[numdress]>>)'
		 end
	 if odetsarafan>0:
		 VIEW 'ode/sarafan<<numdress>>.jpg'
		 pl'(remaining strength <<sarafanH[numdress]>> , The size of the hips <<sarafanB[numdress]>>)'
		 end
	 if odetshort>0:
		 VIEW 'ode/short<<numdress>>.jpg'
		 pl'(remaining strength <<shortH[numdress]>> , The size of the hips <<shortB[numdress]>>)'
		 end
	 if odetskirt>0:
		 VIEW 'ode/skirt<<numdress>>.jpg'
		 pl'(remaining strength <<skirtH[numdress]>> , The size of the hips <<skirtB[numdress]>>)'
		 end
	 if odetdress>0:
		 VIEW 'ode/dress<<numdress>>.jpg'
		 pl'(remaining strength <<dressH[numdress]>> , The size of the hips <<dressB[numdress]>>)'
		 end
	 if odetprofi>0:
		 VIEW 'ode/profi<<numdress>>.jpg'
		 pl'(remaining strength <<profiH[numdress]>> , The size of the hips <<profiB[numdress]>>)'
		 end
	 if odetpants>0:
		 VIEW 'ode/pants<<numdress>>.jpg'
		 pl'(remaining strength <<pantsH[numdress]>> , The size of the hips <<pantsB[numdress]>>)'
		 end
	 if odetlatex>0:
		 VIEW 'ode/latex<<numdress>>.jpg'
		 pl'(remaining strength <<latexH[numdress]>> , The size of the hips <<latexB[numdress]>>)'
		 end
	 if odethooker>0:
		 VIEW 'ode/hooker<<numdress>>.jpg'
		 pl'(remaining strength <<hookerH[numdress]>> , The size of the hips <<hookerB[numdress]>>)'
		 end
	 if odetkis>0:
		 VIEW 'kis/k<<numdress>>.jpg'
		 pl'(remaining strength <<odekisH[numdress]>> , The size of the hips <<odekisB[numdress]>>)'
		 end
	 if odetnewclo>0:
		 VIEW 'ode/newclo/<<numdress>>.jpg'
		 pl'(remaining strength <<newcloH[numdress]>> , The size of the hips <<newcloB[numdress]>>)'
		 end
	 if odetero>0:VIEW 'img/dress/ero<<numdress>>.jpg'
	 end
if nude = 1:
	 pl'You do not wear.'
	 VIEW 'ode/nude.jpg'
	 end
}




$objtattoos={
$tatlipdi={
if tatlip=1:VIEW 'picBody/tatlip1.jpg'
if tatlip=2:VIEW 'picBody/tatlip2.jpg'
if tatlip=3:VIEW 'picBody/tatlip3.jpg'
}
$tatpledi={
if tatplech=1:VIEW 'picBody/tatplech1.jpg'
if tatplech=2:VIEW 'picBody/tatplech2.jpg'
if tatplech=3:VIEW 'picBody/tatplech3.jpg'
if tatplech=4:VIEW 'picBody/tatplech4.jpg'
}
$tatbackdi={
if tatback=1:VIEW 'picBody/tatb1.jpg'
if tatback=2:VIEW 'picBody/tatb2.jpg'
if tatback=3:VIEW 'picBody/tatb3.jpg'
if tatback=4:VIEW 'picBody/tatb4.jpg'
}
$tatupbdi={
if tatupb=1:VIEW 'picBody/tatupb1.jpg'
if tatupb=2:VIEW 'picBody/tatupb2.jpg'
if tatupb=3:VIEW 'picBody/tatupb3.jpg'
if tatupb=4:VIEW 'picBody/tatupb4.jpg'
}
$tatvagdi={
if tatvag=1:VIEW 'picBody/tatvag.jpg'
if tatvag=2:VIEW 'picBody/tatvag2.jpg'
if tatvag=3:VIEW 'picBody/tatvag3.jpg'
if tatvag=4:VIEW 'picBody/tatvag4.jpg'
if tatvag=5:VIEW 'picBody/tatvag5.jpg'
if tatvag=6:VIEW 'picBody/tatvag6.jpg'
}
$tatlegdi={
if tatleg=1:VIEW 'picBody/tatleg1.jpg'
if tatleg=2:VIEW 'picBody/tatleg2.jpg'
if tatleg=3:VIEW 'picBody/tatleg3.jpg'
if tatleg=4:VIEW 'picBody/tatleg4.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 shoulder</a>'
if tatback>0: pl'<a href="exec: dynamic $tatbackdi">Tattoo on her back</a>'
if tatupb>0: pl'<a href="exec: dynamic $tatupbdi">Tattoo on lower back</a>'
if tatvag>0: pl'<a href="exec: dynamic $tatvagdi">Tattoo in the groin</a>'
if tatleg>0: pl'<a href="exec: dynamic $tatlegdi">Tattoo on his feet</a>'
if tatvag=0 and tatlip=0 and tatplech=0 and tatback=0 and tatupb=0 and tatleg=0:
pl'You pristine body. Not in terms of debauchery, but in terms of tattoo.'
end
}




$objpirsing={
$dipirsA={
VIEW 'picb/pirsA.jpg'
}
$dipirsB={
VIEW 'picb/pirsB.jpg'
}
$dipirsC={
VIEW 'picb/pirsC.jpg'
}
$dipirsD={
VIEW 'picb/pirsD.jpg'
}
$dipirsE={
VIEW 'picb/pirsE.jpg'
}
$dipirsF={
VIEW 'picb/pirsF.jpg'
}
$dipirsG={
VIEW 'picb/pirsG.jpg'
}
$dipirsN={
VIEW 'picb/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">see</a>'
if pirsB = 1:pl 'You have pierced lower lip and there vdet ring. <a href="exec:dynamic $dipirsB">see</a>'
if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">see</a>'
if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">see</a>'
if pirsE = 1:pl 'In your eyebrow barbell inserted. <a href="exec:dynamic $dipirsE">see</a>'
if pirsF = 1:pl 'You have pierced nipples and they inserted small metal rod. <a href="exec:dynamic $dipirsF">see</a>'
if pirsG = 1:pl 'You have pierced lips on the vagina and inserted back rings. <a href="exec:dynamic $dipirsG">see</a>'
if pirsN = 1:pl 'You pierced navel and there inserted rod. <a href="exec:dynamic $dipirsN">see</a>'
}




$objobnovit={
gs 'stat'
}




$objbloknot={
clr
if housr > 0:pl'You live in a two- room apartment, in a residential area. Payment for the apartment is removed automatically, in total 3000 rubles each 25e number. Plus another bill for the light.'
nl
if workPTU>2:pl'You worked as a teacher at the LycГ©e. Working days Mon-Security, with 14.00 prior_to 16.00. salary 300r/day. dress - office, strict. The road from the apartment to the Lyceum takes 2 hours 10 minutes.'
nl
if work > 0 and workKafe > 0:pl'You are working as a waitress in a cafe. Need to come to work with 11 prior_to 12, working days, Tuesday, Wednesday, Thursday. On the job every day you get tips from customers and salary automatically transferred 25th of.'
nl
if work > 0 and workhosp > 0:pl'You work as a nurse in the clinic. Need to come to work with 8 prior_to 9, during the week. Salary automatically transferred 25th of.'
nl
if work > 0 and worksalon > 0:pl'You work as a masseuse in the cabin. Need to come to work with 9 prior_to 10, working days, Monday, Wednesday, Friday. Salary automatically transferred 25th of.'
nl
if work > 0 and workhosp > 0:pl'You worked as a secretary in the office. Work need to come up 9, during the week. Salary automatically transferred 25th of.'
nl
if work > 0 and tanwork > 0:pl'You work as a governess Tanya. Salary automatically transferred 25th of.'
nl
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if work > 0 and young_shop_work = 1:pl'You work in a store clerk Keys Pussy. Need to come to work in 15, all working days except Saturdays and Sundays. Salary is issued once a week on Fridays.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
nl
if workrin=1:pl'You work in the market in a tent Arthur clothing saleswoman. Work on Tuesdays, Thursday and Saturday, come to 8 hours. The salary depends on sales.'
nl
if stripwork>=1:pl'You work as a stripper, schedule free, every day from 15 prior_to 2x night. Salary only tip.'
nl
if husband>0:pl'Are you married <<husbanday>> days. your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. member <<husDick>> relationship <<husband>>'
if kid>0:pl'Do you have a child <<$kidname>>, age <<kid>> days.'
nl
if $bfsex>0:pl'<<$bfsex>>'
nl
if bfA > 1:pl'your guy <<$boyA>> <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>.<<$boyA>> <<$boyCloA>> relationship <<bfA>>, met <<dayA>> time.'
if harakBoyA = 0 and bfA > 1:pl'He has a calm and self-possessed character.'
if harakBoyA = 1 and bfA > 1:pl'His cheerful and sociable character.'
if harakBoyA = 2 and bfA > 1:pl'His irascible character and hard.'
if bfB > 1:pl'your guy <<$boyB>> <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>.<<$boyB>> <<$boyCloB>> relationship <<bfB>>, met <<dayB>> time.'
if bfC > 1:pl'your guy <<$boyC>> <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>.<<$boyC>> <<$boyCloC>> relationship <<bfC>>, met <<dayC>> time.'
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 entry to 1th row','','MenuLoc','diszapis'
GS 'Menu.Add','disMenu','Delete entry to 2th row','','MenuLoc','diszapis2'
GS 'Menu.Add','disMenu','Delete entry to 3th row','','MenuLoc','diszapis3'
GS 'Menu.Add','disMenu','Delete entry to 4th row','','MenuLoc','diszapis4'
GS 'Menu.Add','disMenu','Delete entry to 5th row','','MenuLoc','diszapis5'
GS 'Menu.Add','disMenu','Delete entry to 6th row','','MenuLoc','diszapis6'
GS 'Menu.Add','disMenu','Delete entry to 7th row','','MenuLoc','diszapis7'
GS 'Menu.Add','disMenu','Delete entry to 8th row','','MenuLoc','diszapis8'
GS 'Menu.Add','disMenu','Delete entry to 9th row','','MenuLoc','diszapis9'
GS 'Menu.Add','disMenu','Delete entry to 10th row','','MenuLoc','diszapis10'

pl'<a href="exec: gs ''Menu.Call'',''zapisMenu''">to record</a> or <a href="exec: gs ''Menu.Call'',''disMenu''">delete the entry</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 JUST had to use emergency shutdown of Bagan BLANK SCREEN</B></center>'
*nl
'<center><B>Not use this feature without a good reason, May cause STABLE ERROR who destroyed your saved</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 'notebook'
addobj 'emergency exit'
addobj 'Refresh'
addobj 'menu'
addobj 'The new menu'
}




$menu_character[0] = 'description:$menu_descrip'
$menu_character[1] = 'characteristics_of:$menu_skills'
$menu_character[2] = 'statistics:$menu_statistika'
$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] = 'Refresh:$menu_obnovit'
$menu_other[1] = 'notebook:$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 = 'notebook': dynamic $objbloknot
if $selobj = 'emergency exit': dynamic $objavariya
if $selobj = 'Refresh': gs 'stat'
if $selobj = 'The 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>> year_old. <<$vneshPRE>>'
pl'You have short black hair with gray hair gleams starting, little brown eyes and willed jaw covered by blue shaved stubble.'
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','labels are','','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 ---------------------------------

