# start
killall
close all

usehtml = 1
showstat 0
showobjs 0
showinput 0

$ongload = 'loadg'
$ongsave = 'saveg'
$onnewloc  = 'LOCA'
$onobjsel = 'onobjsel'
$counter = 'counter'
$usercom = 'inputProcessing'

debug = 1
disablescroll = 1
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
lcolor = rgb(106,90,205)
fsize = 12
$fname = 'Tahoma'

$version = "0.2.5e (Minor G&M bugfix) (If you haven't updated your image library recently, you may need to do so for hairstyles to work properly)"

*nl
*nl
'<center><h2>Girl Life'
'[English Community Version]</h2></center>'

'<hr align="left" color="red" size="3" width="1200">'
*nl
'<center>This is game is based on the russian game ЭТО by DeGross.</center>'
*nl
'<hr align="left" color="red" size="3" width="1200">'
*nl
'<center>Version <b><<$version>></b></center>'
*nl
*nl
'<center><font color=red><b>Children under 18 years are strictly forbidden to play</b></font></center>'
*nl
*nl

'This game is about the simulated life of a woman containing elements of RPG, strategy, porn and magical combat.'
'You may choose what kind of life the character will leave according to your play style, conscience or even personal beliefs.'
'We will try to avoid rights and wrongs during the game.'


!!!! Recent Version Tracking Block !!!!!
*nl
'Recent Version Tracking:'
*nl
"0.2.5e"
"- Fixed bug making G&M officewear un-buyable"
'- Fixed bang-less buns not calling images correctly'
'- Updated start-selection screen to be actually <i>relevant</i>'
*nl
'0.2.5d:' 
'- Fixed a bug that prevented you to work as a Prostitute at the street near the park'
'- Created subfolders for the different hairstyles. It makes it easier to find missing pictures or replace them. (Image library update!)'
*nl
'0.2.5c (released by TFGS-User centerflag982, accidently named 0.2.5b aswell):'
'- Fixed a bug, that prevented your from removing your pigtails.'
*nl
'0.2.5b (released by TFGS-User Maruda):'
'- Added the Hairsalon in the Citycenter and the Barbershop in the small town.'
'- Fixed a bug with the tailor, who bought some of your clothes instead of resizing them.'
*nl
'0.2.5a:'
'- Fixed a bug, which didn''t allow you to see your breasts.'
'- Fixed a bug, which caused a DEBUG-Error to appear at the tailor and the nightclub.'
*nl
'0.2.5:'
'- Added a lot more hairstyles'
'-- For the numberphiles between you, there are 216 ways to style your hair, 175 have pictures.'
'-- Cheat Menu to tinker around with your hair, it also tells you how your current hair looks.'
'- Added the Hairsalon in the Mall'
'- Added the Barbershop in the small town, cheaper & faster than the hairsalon, but doesn''t do braided hair'
"- While I'm not a native english speaker, I tried to fix some of the broken english"
'-- Done in following locations: street, down, Nord, club, park'
'- Additional conditions to get into the club.'
'-- Jeans, Shorts, Pants and Kis-Clothes can get you in.'
'--- Jeans, Shorts and Pants require a certain level of looks/beauty (vnesh) to get you in.'
'---- When you wear a skirt or shorts, you now should make sure, you shaved your legs. The folks guarding the entrance don''t like hairy legs.'
'- Excluded the rape events at the home street for now.'
'- VIP-Card price at the night club lowered from 50.000 to 10.000 rubles, as the price of one card stood in no, for me at least, comprehensible relation to other prices.'
'- The park is now a central park, from where you can walk to the others citys districts if you so desire.'
'-- Homestreet -> Park => roughly 20 Minute Walk'
'-- City Center -> Park => roughly 48 Minute Walk'
'-- Northern District -> Park => roughly an hour of walking.'
'--- Once you are in the park, it takes the same amount of time to get to another respectable area.'
'- Excluded the direction argument ''prost'' inside the location ''park'', as nothing links to it (anymore). Prostitution itself takes place in a location called ''prostitute''. ''prost'' seems to be the remnant of an older version of ETO. It should be safe to remove, if no gamebreaking bugs appear.'
'- TFGS-user "kevlar" pointed out a bug in the fitness studio, you get a Debug-Message once you win the amateur fight. This bug occured due to a spelling mistake and has been fixed.'

!!!! Recent Version Tracking Block !!!!!
StoryLine = 0
MagikDostup = 0

set $name = 'Michael'
set $surname = 'Kuznetsov'
set age = 35
set vidage = 35
set year = 2010
set month = 5
set week = 1
set hour = 7
set day = 25
set rost = 186
set fat = 130
set dick = 0
set energy = 15
set water = 15
set son = 16
set stren = 160
set speed = 50
set agil = 50
set vital = 160
set intel = 50
set will = 100
set react = 50
set health = vital * 10
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + vital * 5
set BDSMfilm = 0
set pornstudio = 0
set pfilmSTOP = 0
set money = 1500
set karta = 4000
set opPRE = 1
tanga = 1
clrbelo = 1

GameUpdate = 1
update_2014_08_28 = 1

month_end[1]=31
month_end[2]=28
month_end[3]=31
month_end[4]=30
month_end[5]=31
month_end[6]=30
month_end[7]=31
month_end[8]=31
month_end[9]=30
month_end[10]=31
month_end[11]=30
month_end[12]=31

$month_name[1] = 'January'
$month_name[2] = 'February'
$month_name[3] = 'March'
$month_name[4] = 'April'
$month_name[5] = 'May'
$month_name[6] = 'June'
$month_name[7] = 'July'
$month_name[8] = 'August'
$month_name[9] = 'September'
$month_name[10] = 'October'
$month_name[11] = 'November'
$month_name[12] = 'December'

$week_name[1] = 'Monday'
$week_name[2] = 'Tuesday'
$week_name[3] = 'Wednesday'
$week_name[4] = 'Thursday'
$week_name[5] = 'Friday'
$week_name[6] = 'Saturday'
$week_name[7] = 'Sunday'

act '<center><b>Start</b></center>':
	cla
	gt 'begin'
end
--- start ---------------------------------

# gameover
'<center><B><font color = maroon>GAME OVER</font></B></center>'

if over = 1:
	gs 'stat'
	'You died'
end

if over = 2:
	'<center><img src="images\etogame\over.jpg"></center>'
	"You're mad and started to run around town naked screaming 'I am a man!'. You quickly alerted the police and you were taken to a metal hospital. There you got put in a straitjacket and placed in a room with soft walls. You spent the rest of your days in happy delusions about your family and about being a man again. But the delusions never became reality."
	*nl
	'Hint:'
	'When your mood falls, your mind weakens and finally breaks. Do not forget, it is difficult for a normal man to come to terms with the fact that he is now a woman. In order to keep your mood and psyche at an acceptable level make sure you are of healthy weight, have at least a TV and visit the psychotherapist. Strengthening your will and intellect also increases the maximum value of your mood, such that the harmful effects will not be as devastating.'
end

if over = 3:
	'You have died of starvation. A stupid way to die, but apparently it´s one of the consequences of anorexia.'
end

if over = 4:
	'You died from complications in childbirth.'
end

if over = 5:
	'You tried to jump, but immediately found themselves in a strange place around some dilapidated walls with obscene graffiti, you could not move do not cry, when suddenly the door opened and entered what that fat guy, he undid his pants and turned his back to you situated above you your ass. Here you´ve got it, witch kept her promise and turned you into a jerk at the station.'
	'So you spent the rest of your days swallowing shit until 50 years later, the train station is not started to repair and you just broke and took the pieces to the dump.'
end

if over = 6:
	'You suddenly feel a sharp piercing pain in the abdomen, then another and another. "Greetings to you from the boys" says a figure with downcast eyes while it moves away. You realize you are standing in a puddle of your own blood, and have multiple stab wounds in your stomach. The last thing you saw was the fast approaching land.'
end

if over = 7:
	'The last thing you saw was a police baton, flying into your face. You were beaten to death, and your early surmise was written in as an accident.'
end
--- gameover ---------------------------------

# begin
'<center><B><font color = maroon>CHOOSE GAME START</font></B></center>'
*nl
'<B>Original Start:</B>'
'You are Michael Kuznetsov, a fairly average, 35 year old businessman whose life is about to be turned inside out. Features magic and an (incomplete) over-arching plot. Beware of unintelligible translations.'
*nl
'<B>Alternate Start:</B>'
"You are a 15-year-old small-town girl about to start her first year of high school. Name and starting stats are customizable, no magic and no major 'plot' other than <i>life</i>. Not to say that your classmates and family don't have their own stories, though!" 

act '<center><b>Original start</b></center>':
	cla
	showstat 1
	showobjs 1
	addobj 'Player'
	gt 'roomPRE'
end

act '<center>Original start (skip intro)</center>':
	gs 'begin1'
	gt 'street'
end

act '<center><b>Start the alternative game</b></center>':
	cla
	showstat 1
	showobjs 1
	!addobj 'Player'
	gt 'alterStart'
end
--- begin ---------------------------------

# begin1
showstat 1
showobjs 1

set $name = 'Svetlana'
set $surname = 'Lebedev'
set $name = input("What is your first name?")
if $name = '':
	set $name = 'Svetlana'
end
set $surname = input("What is your last name?")
if $surname = '':
	set $surname = 'Lebedev'
end
set age = 18
set vidage = 16
set year = 2010
set month = 5
set week = 3
set hour = 13
set rost = 170
set fat = 60
set salo = 60
set dick = 0
set energy = 15
set water = 15
set son = 16
set stren = 10
set strenbuf = 10
set speed = 10
set agil = 10
set agilbuf = 10
set vital = 10
set vitalbuf = 10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
!etogame
set nastjaqw = 0
!etogame
set money = 16500
set vidageday = 300
set housrA = 1
set sarafan[1] = 1
set nude = 0
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair = 3
set mop = 1
set housr = 1
set housr['Street'] = 1
set BuyHous['Street'] = 1
set tanga = 1

!!!!!!!!!!!!!! Maruda Hair Mod
set hairlength = 165
!!!!!!!!!!!!!! Maruda Hair Mod
set hcol = 1

clr
gs 'stat'

set numdres = 1
set odetjeans = 1
set numdress = 1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70
set cltarelka = 1
set fairy = 10
set eda = 5
set clrbelo = 2
set poroshok = 5
set shampoo = 5
set nude = 0

gs 'stat'

set opPRE = 0
set daystart = 0

addobj 'Character'
addobj 'See'
addobj 'Others'
--- begin1 ---------------------------------

# 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>>.'
if birthday > 0 and birthmonth > 0: pl 'Your date of birth is <<birthday>>.0<<birthmonth>>.<<birthyear>>, the'
pl '<<$vnesh>>'
pl '<<$hair>>'
pl '<<$lip>>'
pl '<<$skin>>'
pl '<<$glaza>>'
pl '<<$mop>>'
pl '<<$leghair>>'
pl '<<$lobok>>'
pl 'You are <<rost>> cm tall, you weigh <<ves>> pounds.'
pl '<<$body>>'
pl '<<grudi>> - <<talia>> - <<bedra>>, <a href="exec:dynamic $din_show_tits">the size of your breasts are <<tits>></a>, the difference between your hips and your waist is <<bedra-talia>> cm'
pl '<<$anus>>'
nl
if salo = 0 and musle > 0 and dounspell = 0: pl '<B><font color = red>You are showing signs undernourishment. You should probably eat more and more often.</font></B>'
if salo = 0 and musle = 0 and dounspell = 0: pl "<B><font color = red>You are dangerously malnourished, which has led to a loss in muscle mass. You're in a critical condition and likely to pass out!</font></B>"
if curly > 0: pl 'Your curls are good for another <<curly>> days.'
if zub = 1:$zuba = ' tooth'
if zub >= 2:$zuba = ' teeth'
if zub > 0: pl 'You have <<zub>><<$zuba>>.'
!pl 'vnesh <<vnesh>>'
!pl 'curlykoef <<curlykoef>> a maximum of 1'
!pl 'tits <<tits>> A maximum of 6'
!pl 'lip <<lip>> a maximum of 4'
!pl 'tanKoef <<tanKoef>> a maximum of 1'
!pl 'skin <<skin>> a maximum of 4'
!pl 'mop <<mop>> a maximum of 4'
!pl 'resnic <<resnic>> a maximum of 2'
!pl 'glaraz <<glaraz>> a maximum of 3'
!pl 'bodykoef <<bodykoef>> a maximum of 8'
!pl 'legkoef <<legkoef>> a maximum of 3'
!pl 'lobkoef <<lobkoef>> a maximum of 3'
!pl 'odevnesh <<odevnesh>> a maximum of 15'
!pl 'sweat <<sweat>> the maximum 0'
!pl 'hapri <<hapri>> a maximum of 1'

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


$objskills = {
clr
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1Переделать
!if salo > musle*4: set $fat = 'You have a chubby disposition'
!if salo <= musle * 4 and fat > musle*2: set $fat = 'You have a soft curvy body that still carries an elastic finesse.'
!if salo <= musle * 2 and fat > musle: set $fat = 'You have an average body showing signs that you take care of yourself.'
!if salo <= musle and fat >= musle/2: set $fat = 'Your body is slim and trim. You probably workout often '
!if salo < musle/2: set $fat = 'Your body is a prayer to the god of fitness! Your skin is taught against your lithe musculature.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
pl 'Attractiveness <<vnesh>>'
pl 'Power <<stren>>'
pl 'Speed ​​<<speed>>'
pl 'Agility <<agil>>'
pl 'Endurance <<vital>>'
pl 'Intelligence <<intel>>'
pl 'Willpower <<will>>'
pl 'Reaction <<react>>'
pl '<<$fat>>'
!pl 'Bezstydstvo <<shameless>>'
if SUB > 0: pl 'Subordination <<SUB>>'
if DOM > 0: pl 'Dominance <<DOM>>'
!pl 'Muscles <<$musle>>'
if magik > 0: pl 'Magery <<magik>>'
if Jab > 0: pl 'Jab - <<Jab>>'
if Punch > 0: pl 'Power Strikes - <<Punch>>'
if Kik > 0: pl 'Kicks - <<Kik>>'
if KikDef > 0: pl 'Protection against - <<KikDef>>'
if beg > 0: pl 'Skill Run - <<beg>>'
if volleyboll > 0: pl 'Skill volleyball - <<volleyboll>>'
if oficiant > 0: pl 'Skills waitresses - <<oficiant>>'
if vokal > 0: pl 'Vocal skills <<vokal>>'
if dance > 0: pl 'Skill Dance - <<dance>>'
if dancePRO > 0: pl 'Regular dancing skilllevel - <<dancePRO>>'
if stripdance > 0: pl 'Striptease skilllevel - <<stripdance>>'
if poledance > 0: pl 'Poledancing skilllevel- <<poledance>>'
if shoot > 0: pl 'Shooting Accuracy - <<shoot>>'
if kid = 1: pl 'You have a child, <<$polreb[1]>> name <<$kidname[1]>>. Born <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>y. Age <<kidage[1]>>'

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

}

$objstatistika = {
clr
if opPRE = 0: pl 'It has been <<daystart>> the game has started.'
nl

if BuyHous['Street'] = 2 and ArendHouseSL['Street']>0: pl 'You have rented an apartment in the residential area <<ArendHouseSL[''Street'']>> days.'
if BuyHous['Down'] = 2 and ArendHouseSL['Down']>0: pl 'You have rented an apartment in the downtown area <<ArendHouseSL[''Down'']>> days.'
if BuyHous['Nord'] = 2 and ArendHouseSL['Nord']>0: pl 'You have rented an apartment in the northern region <<ArendHouseSL[''Nord'']>> days.'
nl

if Win > 0 or Loss > 0: pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl

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

if razradKik > 0: pl '<<$razradKik>>' & nl

if KisameDead = 1: pl 'You killed Kisame.'& nl

if maxdamage > 0: pl 'The impact force on the dynamometer <<maxdamage>> kN' & nl

if Irina > 0: pl 'Friendship with Irene <<Irina>>'
if Givi > 0: pl 'Friendship Givi K. <<Givi>>'
if Ashot > 0: pl 'Friendship with Ashot <<Ashot>>'
if Tamara > 0: pl 'Friendship with Tamara <<Tamara>>'
if Dmitry > 0: pl 'Friendship with Dima <<Dmitry>>'
if afra > 0: pl 'Friendship with blacks <<afra>>'
if gosh > 0: pl 'Friendship with Gosha <<gosh>>'
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 tanya > 0: pl 'Friendship with Tanya <<tanya>>'
if nik > 0: pl 'Friendship with Nikolai <<nik>>'
if klofQW > 0: pl 'Friendship with sporty guys <<klofQW>>'
if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0: nl

if modelfoto > 0: pl 'You filmed naked <<modelfoto>> times'
if exhibi > 0: pl 'Experienced exhibitionism <<exhibi>>'
if stripdancesum > 0: pl '<<stripdancesum>> times dancing in the stripclub'
if profiDanceTime > 0: pl 'You danced <<profiDanceTime>> professionally.'
if (modelfoto + exhibi + stripdancesum + profiDanceTime) > 0: nl

if razradKik = 1: set $razradKik = "You're ranked III in amateur kickboxing"
if razradKik = 2: set $razradKik = "You're ranked II in amateur kickboxing"
if razradKik = 3: set $razradKik = "You're ranked I in amateur kickboxing"
if razradKik = 4: set $razradKik = "You are a candidate for the title of Master in Kickboxing"
if razradKik = 5: set $razradKik = 'You have the title of Master Kickboxer'
if SchoolAtestat = 1: pl 'You have finished school.'
if diplom = 1: pl 'You graduated.'
if teachlevel > 0: pl 'Your credibility as a teacher is <<teachlevel>>'
if kolsorev > 0: pl 'You have participate <<kolsorev>> in a running race'
if bronzebeg > 0: pl '<<bronzebeg>> - bronze medals on the run'
if silverbeg > 0: pl '<<silverbeg>> - silver medals for event'
if goldbeg > 0: pl '<<goldbeg>> - gold medals in running'
if razradbegEB > 0: pl '<<razradbegEB>> times bronze medalist of European Championship'
if razradbegES > 0: pl '<<razradbegES>> fold vice champion of Europe'
if razradbegEG > 0: pl '<<razradbegEG>> time European champion.'
if razradbeg = 1: pl 'You have third sports category for event'
if razradbeg = 2: pl 'You 2nd sports category for event'
if razradbeg = 3: pl 'You 1st sports category for event'
if razradbeg = 4: pl 'You have the title of Candidate Master of Sports for event'
if razradbeg = 5: pl 'You have the title of Master of Sports in the run'
if razradbeg >= 6: pl 'You have the title of International Master of Sports for event'

!WD: FORMATING
if (razradKik + SchoolAtestat + diplom + teachlevel + kolsorev + bronzebeg + silverbeg + goldbeg + razradbegEG + razradbeg) > 0: nl

if mastr > 0: pl 'Masturbated <<mastr>> time'
if throat > 0: pl 'Capacity of the throat <<throat>>'
if vagina > 0: pl 'Elasticity of the vagina <<vagina>>'
if vagina = 0 and sex = 0: pl 'Do you have a hymen.'
if anus > 0: pl '<<$anus>>'
nl
if GorSlut = 1: pl 'In the town you known as a flirt.'
if GorSlut = 2: pl 'In the town you known to have sucked a few cocks.'
if GorSlut = 3: pl 'In the town you known great cocksucker.'
if GorSlut = 4: pl 'In the town you known to have fucked several boys.'
if GorSlut = 5: pl 'In the town you known the slut that would do anything.'
if GorSlut = 6: pl 'In the town you known as a prostitute who will take money for most extreme sex acts.'

!WD: FORMATING
if GorSlut > 0: nl

if guy > 0: pl 'You had <<guy>> guys.'
if divorced > 0: pl 'You have <<divorced>> husbands.'
if suprdolg > 0: pl 'Performed conjugal duty to her husband <<suprdolg>> time'
if gang > 0: pl 'Group sex <<gang>> times'
if sex > 0 and sexa = 0: pl 'Vaginal sex <<sex>> times.'
if sex > 0 and sexa > 0: pl 'Vaginal sex <<sex>> times from them <<sexa>> times with her boyfriend.'
if bj > 0 and gloryhole = 0 and balls = 0 and bja = 0: pl 'Blowjob done <<bj>> times.'
if bj > 0 and gloryhole = 0 and balls = 0 and bja > 0: pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
if bj > 0 and gloryhole > 0 and balls = 0 and bja = 0: pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall.'
if bj > 0 and gloryhole > 0 and balls = 0 and bja > 0: pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Just one <<bja>> times her boyfriend'
if bj > 0 and gloryhole = 0 and balls > 0 and bja = 0: pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
if bj > 0 and gloryhole = 0 and balls > 0 and bja > 0: pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
if bj > 0 and gloryhole > 0 and balls > 0 and bja = 0: pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times.'
if bj > 0 and gloryhole > 0 and balls > 0 and bja > 0: pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
if hj > 0 and hja = 0: pl 'Guys jerking off <<hj>> times'
if hj > 0 and hja > 0: pl 'Guys jerking off <<hj>> times from them <<hja>> times masturbate her boyfriend'
if hump > 0: pl 'About you wanker member <<hump>> times'
if rape > 0: pl 'You have been raped <<rape>> times'
if anal > 0 and anala = 0: pl 'Anal <<anal>> times'
if anal > 0 and anala > 0: pl 'Anal <<anal>> times from them <<anala>> times with her boyfriend'
if kuni > 0: pl 'You did cunnilingus <<kuni>> times'
if pegging > 0: pl 'Pegging <<pegging>> times'
if spank > 0: pl 'You ran your ass <<spank>> times'

!WD: FORMATING
if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0: nl

if selfPornvid > 0: pl 'You have made and uploaded <<selfPornvid>> amateur porn videos.'

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

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

if orgasm > 0:
	pl'Experienced orgasm <<orgasm>> times.'
	if analorgasm > 0 : pl 'One <<analorgasm>> anal orgasms.'
	if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
	if facial > 0:pl 'Cum on face <<facial>> times.'
	if frot > 0:pl 'Come on you truck <<frot>> times.'
	if VAF > 0:pl 'Vaflizm <<VAF>>.'
	if zoo > 0: pl 'Having sex with animals <<zoo>> times.'
	if pee > 0: pl 'You pissing <<pee>> times.'
	nl
end

!WD: FORMATING
if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0: nl

if girl > 0: pl 'You have <<girl>> girls.'
if lesbian > 0: pl 'You do lecbiyskim sex <<lesbian>> times.'
if sexfuta > 0: pl 'You <<sexfuta>> had sex with chlenodevkoy.'
}
$din_cheat_hapri = {
if cheatHapri = 0:
cheatHapri = 1
gs 'stat'
dynamic $d_cheats_menu_Perm
exit
end
if cheatHapri = 1:
cheatHapri = 0
gs 'stat'
dynamic $d_cheats_menu_Perm
end
}
$din_cheat_nomakeup = {
if cheatNomakeup = 0:
cheatNomakeup = 1
gs 'stat'
dynamic $d_cheats_menu_Perm
exit
end
if cheatNomakeup = 1:
cheatNomakeup = 0
gs 'stat'
dynamic $d_cheats_menu_Perm
end
}
$din_cheat_Nosweat = {
if cheatNosweat = 0:
cheatNosweat = 1
gs 'stat'
dynamic $d_cheats_menu_Perm
exit
end
if cheatNosweat = 1:
cheatNosweat = 0
gs 'stat'
dynamic $d_cheats_menu_Perm
end
}
$din_cheat_NoEat = {
if cheatNoEat = 0:
cheatNoEat = 1
gs 'stat'
dynamic $d_cheats_menu_Perm
exit
end
if cheatNoEat = 1:
cheatNoEat = 0
gs 'stat'
dynamic $d_cheats_menu_Perm
end
}
gs 'dexcheats'
$din_cheat_param = {
gs 'stat'
clr
pl '<a href="exec:dynamic $d_cheats_menu_vnesh">Back to the cheat menu</a>'
pl '<<strenbuf>> - strenbuf'
pl '<<vitalbuf>> - vitalbuf'
pl '<<vmeat>> - vmeat'
pl '<<vfat>> - vfat'
pl '<<Kves>> - Kves'
pl '<<krost>> - krost'
pl '<<ves>> - ves'
pl '<<talia>> - talia - Waist measurement in cm'
pl '<<grudi>> - grudi - Chest measurement in cm'
pl '<<bedra>> - bedra'
pl '<<titK>> - Chest - Waist (+ brgrow (which is only editable through cheats)'
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'
if salo ! fat: pl 'Option to <a href="exec:fat = salo & dynamic $d_cheats_menu_vnesh">balance the fat</a>'}
$din_cheat = {
gs 'stat'
clr
pl '<a href="exec:gs ''stat''"><B>Close Cheat menu</B></a>'
nl
pl '<b>If you use cheats, remember, it´s your decision and respond to the consequences of YOU.</b>'
nl
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">Full restoration of health, mana mind.</a>'
if leghair >= 1 or lobok >= 1: pl '<a href="exec:leghair=-50 & lobok=-50 & dynamic $din_cheat">Shave all body hair.</a>'
if mesec > 0 and isprok = 0: pl '<a href="exec:mesec = 0 & isprok = 0 & dynamic $din_cheat">Remove monthly</a>'
if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumface > 0 or cumanus > 0 or cumfrot > 0 or cumlip > 0: pl '<a href="exec:cumpussy = 0 & cumbelly = 0 & cumass = 0 & cumlip = 0 & cumface = 0 & cumanus = 0 & cumfrot = 0 & dynamic $din_cheat">Clean sperm</a>'
nl
pl '<a href="exec:dynamic $d_cheats_menu_perm"><B>Permanent Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_vnesh"><B>Appearance Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_stat"><B>Stats Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_nav"><B>Skills Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_rep"><B>Reputation Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_money"><B>Money Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_doc"><B>Documents Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_tel"><B>Teleportation Cheat Menu</B></a>'
pl '<a href="exec:dynamic $d_cheats_menu_time"><B>Time Cheat Menu</B></a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_perm = {
gs 'stat'
clr
if cheatHapri = 0:$cheatHapri = 'OFF'
if cheatHapri = 1:$cheatHapri = 'ON'
if cheatNomakeup = 0:$cheatNomakeup = 'OFF'
if cheatNomakeup = 1:$cheatNomakeup = 'ON'
if cheatNosweat = 0:$cheatNosweat = 'OFF'
if cheatNosweat = 1:$cheatNosweat = 'ON'
if cheatNoEat = 0:$cheatNoEat = 'OFF'
if cheatNoEat = 1:$cheatNoEat = 'ON'
pl '<a href="exec:dynamic $dex_cheat">DeX cheat menu</a>'
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
pl 'Option to <a href="exec:dynamic $din_cheat_hapri">is always groomed</a> <<$cheatHapri>>'
pl 'Option to <a href="exec:dynamic $din_cheat_nomakeup">never smeared cosmetics</a> <<$cheatNomakeup>>'
pl 'Option to <a href="exec:dynamic $din_cheat_Nosweat">never sweat</a> <<$cheatNosweat>>'
pl 'Option to <a href="exec:dynamic $din_cheat_NoEat">never to eat or drink</a> <<$cheatNoEat>>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_vnesh = {
gs 'stat'
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
pl '<a href="exec:dynamic $din_cheat_param">See the design parameters of the body.</a>'
nl
pl 'Your <<$lip1>> lips.'
if lip < 4: pl 'Option to <a href="exec:lip += 1 & dynamic $d_cheats_menu_vnesh">enlarge the lips</a>'
if lip > 0: pl 'Option to <a href="exec:lip -= 1 & dynamic $d_cheats_menu_vnesh">reduce the lips</a>'
nl
pl 'Your <<$skin1>>, <<$tan>> skin.'
if skin < 4: pl 'Option to <a href="exec:skin += 1 & dynamic $d_cheats_menu_vnesh">improve the skin</a>'
if skin > 0: pl 'Option to <a href="exec:skin -= 1 & dynamic $d_cheats_menu_vnesh">impair the skin</a>'
if tan >= 0: pl 'Option to <a href="exec:tan += 10 & dynamic $d_cheats_menu_vnesh">add tan</a>'
if tan > 0: pl 'Option to <a href="exec:tan = 0 & dynamic $d_cheats_menu_vnesh">remove tan</a>'
nl
pl '<<$glaza>>'
if resnic < 2: pl 'Option to <a href="exec:resnic += 1 & dynamic $d_cheats_menu_vnesh">increase eyelashes</a>'
if resnic > 0: pl 'Option to <a href="exec:resnic -= 1 & dynamic $d_cheats_menu_vnesh">reduce the eyelashes</a>'
if glaraz < 3: pl 'Option to <a href="exec:glaraz += 1 & dynamic $d_cheats_menu_vnesh">enlarge the eyes</a>'
if glaraz > 0: pl 'Option to <a href="exec:glaraz -= 1 & dynamic $d_cheats_menu_vnesh">shrink the eyes</a>'
nl
if salo > 0: pl 'Option to <a href="exec:salo -= 5 & fat = salo & dynamic $d_cheats_menu_vnesh">reduce fat</a> <a href="exec:salo = 0 & fat = salo & dynamic $d_cheats_menu_vnesh">Zero fat</a>'
pl 'Option to increase fat by <a href="exec:salo += 5 & fat = salo & dynamic $d_cheats_menu_vnesh">5</a>, <a href="exec:salo += 10 & fat = salo & dynamic $d_cheats_menu_vnesh">10</a>, <a href="exec:salo += 25 & fat = salo & dynamic $d_cheats_menu_vnesh">25</a>, <a href="exec:salo += 50 & fat = salo & dynamic $d_cheats_menu_vnesh">50</a>, <a href="exec:salo += 100 & fat = salo & dynamic $d_cheats_menu_vnesh">100</a>'
nl
pl 'Current age is <<age>>, apparent age is <<vidage>>'
if age >= 0: pl 'Option to <a href="exec:dynamic $vozr1">change the age</a>'
if vidage >= 0: pl 'Option to <a href="exec:dynamic $vozr2">change apparent age</a>'

pl 'Option to <a href="exec:dynamic $d_cheats_menu_tatoo">remove tattoo</a>'
}
$vozr1 = {
clr
age = input ("Enter actual age. Minimum is 15 years?")
if age <= 15: age = 15
pl '<a href="exec:dynamic $d_cheats_menu_vnesh"><B>Update</B></a>'
}
$vozr2 = {
clr
vidage = input ("Enter apparent age. Minimum is 13 years?")
if vidage <= 13: vidage = 13
pl '<a href="exec:dynamic $d_cheats_menu_vnesh"><B>Update</B></a>'
}
$d_cheats_menu_tatoo = {
clr
pl '<a href="exec:dynamic $d_cheats_menu_vnesh"><B>Tattoo Cheat Menu</B></a>'
nl
if tatlip >= 1: pl 'Option to <a href="exec:tatlip = 0 & dynamic $d_cheats_menu_tatoo">remove lip tattoo</a>'
if tatlip = 0: pl 'No tattoo on lip</a>'
if tatplech >= 1: pl 'Option to <a href="exec:tatplech = 0 & dynamic $d_cheats_menu_tatoo">remove shoulder tattoo</a>'
if tatplech = 0: pl 'No tattoo on shoulder</a>'
if tatback >= 1: pl 'Option to <a href="exec:tatback = 0 & dynamic $d_cheats_menu_tatoo">remove back tattoo</a>'
if tatback = 0: pl 'No tattoo on back</a>'
if tatupb >= 1: pl 'Option to <a href="exec:tatupb = 0 & dynamic $d_cheats_menu_tatoo">remove lower back tattoo</a>'
if tatupb = 0: pl 'No tattoo on lower back</a>'
if tatvag >= 1: pl 'Option to <a href="exec:tatvag = 0 & dynamic $d_cheats_menu_tatoo">remove groin tattoo</a>'
if tatvag = 0: pl 'No tattoo on groin</a>'
if tatleg >= 1: pl 'Option to <a href="exec:tatleg = 0 & dynamic $d_cheats_menu_tatoo">remove ankle tattoo</a>'
if tatleg = 0: pl 'No tattoo on ankle</a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_stat = {
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
pl 'Increase dominance by <a href="exec:dom += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:dom += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:dom += 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase submission by <a href="exec:sub += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:sub += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:sub += 10 & dynamic $d_cheats_menu_stat">10</a>'
nl
pl '<a href="exec:horny = val(input(''New Value'')) & dynamic $d_cheats_menu_stat">Arousal: <<horny>></a>'
nl
pl 'Increase power by <a href="exec:stren += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:stren += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:stren += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:stren = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if stren > 0: pl 'Decrease power by <a href="exec:stren -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:stren -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:stren -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase speed by <a href="exec:speed += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:speed += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:speed += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:speed = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if speed > 0: pl 'Decrease speed by <a href="exec:speed -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:speed -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:speed -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase agility by <a href="exec:agil += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:agil += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:agil += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:agil = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if agil > 0: pl 'Decrease agility by <a href="exec:agil -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:agil -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:agil -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase reaction by <a href="exec: react += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec: react += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec: react += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec: react = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if react > 0: pl 'Decrease reaction by <a href="exec: react -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec: react -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec: react -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase endurance by <a href="exec:vital += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:vital += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:vital += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:vital = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if vital > 0: pl 'Decrease endurance by <a href="exec:vital -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:vital -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:vital -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase will by <a href="exec:will += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:will += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:will += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:will = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if will > 0: pl 'Decrease will by <a href="exec:will -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:will -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:will -= 10 & dynamic $d_cheats_menu_stat">10</a>'
pl 'Increase intelligence by <a href="exec:intel += 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:intel += 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:intel += 10 & dynamic $d_cheats_menu_stat">10</a> <a href="exec:intel = 100 & dynamic $d_cheats_menu_stat">set to 100</a>'
if intel > 0: pl 'Decrease intelligence by <a href="exec:intel -= 1 & dynamic $d_cheats_menu_stat">1</a> <a href="exec:intel -= 5 & dynamic $d_cheats_menu_stat">5</a> <a href="exec:intel -= 10 & dynamic $d_cheats_menu_stat">10</a>'
nl
pl '<b>Test options</b> are present in the mechanism of the game, but not involved in the game quests.'


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

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_nav = {
gs 'stat'
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
if beg >= 0: pl '<a href="exec:beg = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Running: <<beg>></a>'
if volleyboll >= 0: pl '<a href="exec:volleyboll = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Volleyball: <<volleyboll>></a>'
nl
if dance >= 0: pl '<a href="exec:dance = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Dancing: <<dance>></a>'
if dancePRO >= 0: pl '<a href="exec:dancePRO = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Prof. Dancing: <<dancePRO>></a>'
if stripdance >= 0: pl '<a href="exec:stripdance = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Striptease: <<stripdance>></a>'
if poledance >= 0: pl '<a href="exec:poledance = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Poledancing: <<poledance>></a>'
nl
if jab >= 0: pl '<a href="exec:jab = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Jab: <<jab>></a>'
if punch >= 0: pl '<a href="exec:punch = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Punch: <<punch>></a>'
if kik >= 0: pl '<a href="exec:kik = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Kick: <<kik>></a>'
if kikdef >= 0: pl '<a href="exec:kikdef = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Defence: <<kikdef>></a>'
nl
if suspeh >= 0: pl '<a href="exec:suspeh = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Achievement: <<suspeh>></a>'
if schoolprogul >= 0: pl '<a href="exec:schoolprogul = val(input(''New Value'')) & dynamic $d_cheats_menu_nav">Absenteeism: <<schoolprogul>></a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_rep = {
gs 'stat'
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
if gorslut > 0: pl 'In town you are known as <<$gnikname>>'
if gorslut = 0: pl 'You have a good reputation in the town'
if gorslut ! 1: pl '<a href="exec:gorslut = 1 & dynamic $d_cheats_menu_rep">Change reputation to "flirt"</a>'
if gorslut ! 2: pl '<a href="exec:gorslut = 2 & dynamic $d_cheats_menu_rep"> Change reputation to "cocksucker"</a>'
if gorslut ! 3: pl '<a href="exec:gorslut = 3 & dynamic $d_cheats_menu_rep">Change reputation on to "total cocksucker"</a>'
if gorslut ! 4: pl '<a href="exec:gorslut = 4 & dynamic $d_cheats_menu_rep">Change reputation to "easy"</a>'
if gorslut ! 5: pl '<a href="exec: gorslut = 5 & dynamic $d_cheats_menu_rep">Change reputation to "slut"</a>'
if gorslut ! 6: pl '<a href="exec:gorslut = 6 & dynamic $d_cheats_menu_rep">Change reputation to "prostitute"</a>'
if gorslut > 0: pl '<a href="exec:gorslut = 0 & dynamic $d_cheats_menu_rep">Clear reputation in town</a>'
if opusk > 0 or sipovka > 0 or rozetka > 0: pl '<a href="exec:opusk = 0 & sipovka = 0 & rozetka = 0 & dynamic $d_cheats_menu_rep">Clear reputation with Gopnik</a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_Money = {
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
pl 'You have <<money>> rubles'
if vnesh >= 0: pl '<a href="exec:money += 1000 & dynamic $d_cheats_menu_money">+1 thousand rubles.</a>'
if vnesh >= 0: pl '<a href="exec:money += 10000 & dynamic $d_cheats_menu_money">+10 thousand rubles.</a>'
if vnesh >= 0: pl '<a href="exec:money += 100000 & dynamic $d_cheats_menu_money">+100 thousand rubles.</a>'
if vnesh >= 0: pl '<a href="exec:money += 1000000 & dynamic $d_cheats_menu_money">+1 million rubles.</B></a>'
if vnesh >= 0: pl '<a href="exec:money = 0 & dynamic $d_cheats_menu_money">Zero Money.</a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_doc = {
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat menu</B></a>'
nl
if diplom = 0: pl '<a href="exec:diplom = 1 & dynamic $d_cheats_menu_doc">Get Diploma</a>'
if diplom = 1: pl 'You already have a Diploma'
if secrdiplom = 0: pl '<a href="exec:secrdiplom = 1 & dynamic $d_cheats_menu_doc">Get Secretarial Diploma</a>'
if secrdiplom = 1: pl 'You already have a Secretarial Diploma'
if masash < 10: pl '<a href="exec:masash = 10 & dynamic $d_cheats_menu_doc">Get Masseur Certificate</a>'
if masash >= 10: pl 'You already have a Masseur Certificate'
if prava = 0: pl '<a href="exec:prava = 1 & dynamic $d_cheats_menu_doc">Get Drivers License</a>'
if prava = 1: pl 'You already have a Drivers License'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_tel = {
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
if vnesh >= 0: pl '<a href="exec:gt ''street''">Residential District</a>'
if vnesh >= 0: pl '<a href="exec:gt ''down''">Central District</a>'
if vnesh >= 0: pl '<a href="exec:gt ''nord''">North District</a>'
if vnesh >= 0: pl '<a href="exec:gt ''gorodok''">Town</a>'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$d_cheats_menu_time = {
gs 'stat'
clr
pl '<a href="exec:dynamic $din_cheat"><B>Cheat Menu</B></a>'
nl
pl 'Time: <<$week>> <<day>> number, <<$month>>, <<year>> year.'
pl '<a href="exec:dynamic $d_cheats_menu_time_week">Select day of the week.</a>'
pl '<a href="exec:day += 1 & dynamic $d_cheats_menu_time">+1 Day.</a>'
pl '<a href="exec:day -= 1 & dynamic $d_cheats_menu_time">-1 Day.</a>'
pl '<a href="exec:dynamic $d_cheats_menu_time_month">Select Month.</a>'
pl '<a href="exec:year += 1 & dynamic $d_cheats_menu_time">+1 Year.</a>'
pl '<a href="exec:year -= 1 & dynamic $d_cheats_menu_time">-1 Year.</a>'
}
$d_cheats_menu_time_week = {
clr
pl '<a href="exec:dynamic $d_cheats_menu_time"><B>Time Cheat Menu</B></a>'
nl
pl 'Time: <<$week>> <<day>> number, <<$month>>, <<year>> year.'
pl '<a href="exec:week = 1 & dynamic $d_cheats_menu_time">Monday.</a>'
pl '<a href="exec:week = 2 & dynamic $d_cheats_menu_time">Tuesday.</a>'
pl '<a href="exec:week = 3 & dynamic $d_cheats_menu_time">Wednesday.</a>'
pl '<a href="exec:week = 4 & dynamic $d_cheats_menu_time">Thursday.</a>'
pl '<a href="exec:week = 5 & dynamic $d_cheats_menu_time">Friday.</a>'
pl '<a href="exec:week = 6 & dynamic $d_cheats_menu_time">Saturday.</a>'
pl '<a href="exec:week = 7 & dynamic $d_cheats_menu_time">Sunday.</a>'
}
$d_cheats_menu_time_month = {
clr
pl '<a href="exec:dynamic $d_cheats_menu_time"><B>Time Cheat Menu</B></a>'
nl
pl 'Time: <<$week>> <<day>> number, <<$month>>, <<year>> year.'
pl '<a href="exec:month = 1 & dynamic $d_cheats_menu_time">January.</a>'
pl '<a href="exec:month = 2 & dynamic $d_cheats_menu_time">February.</a>'
pl '<a href="exec:month = 3 & dynamic $d_cheats_menu_time">March.</a>'
pl '<a href="exec:month = 4 & dynamic $d_cheats_menu_time">April.</a>'
pl '<a href="exec:month = 5 & dynamic $d_cheats_menu_time">May.</a>'
pl '<a href="exec:month = 6 & dynamic $d_cheats_menu_time">June.</a>'
pl '<a href="exec:month = 7 & dynamic $d_cheats_menu_time">July.</a>'
pl '<a href="exec:month = 8 & dynamic $d_cheats_menu_time">August.</a>'
pl '<a href="exec:month = 9 & dynamic $d_cheats_menu_time">September.</a>'
pl '<a href="exec:month = 10 & dynamic $d_cheats_menu_time">October.</a>'
pl '<a href="exec:month = 11 & dynamic $d_cheats_menu_time">November.</a>'
pl '<a href="exec:month = 12 & dynamic $d_cheats_menu_time">December.</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 'BASIC SPELL:'
	nl
	if spelltuman > 0: pl 'Cover the area fog, a great way to hide their actions from the attacking enemy and not a bad way to increase the chance to dodge enemy attacks, as he can not see you in your fog (mana cost of 10 units)'
	nl
	if spellklon > 0: pl 'Substitute itself clone powerful way to avoid enemy attacks substituting itself clone opponent gets to clone and not on you, he just wasted power (mana cost of 15 units)'
	nl
	if spellstun > 0: pl 'Paralyze a great way to stop the enemy, he will not be able to defend and attack. (Cost 20 mana units)'
	nl
	if spellweap > 0 and weapon > 0: pl 'Invest in energy weapons'
	if spellwind > 0: pl 'Blow away the fog, mist spell any scattering over the battlefield.'
	nl
	if spellklon2 > 0: pl 'Substitute themselves clones (3 pieces), the enemy will not be able to get to you until you destroy all of your clones. (Cost 45 mana units)'
	nl
	if spellenergo > 0: pl 'Create weak energy shield spell protects against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and the shield will be destroyed by the first blow, you can still protect yourself from the damage (cost 50 mana units)'
	nl
	if spellinit > 0: pl 'Create weak deceleration time powerful spell allowing you to move faster, you can snatch the initiative with this spell that would strike another spell to increase your chance to hit too, because you will move very quickly (cost 60 mana units)'
	nl
	if spellhel > 0: pl 'Martial treatment restores or adds 400 health units in exchange for 400 units of manna.'
	nl

	if stihia = 1: pl 'SPELL elements of fire'
	nl
	if spellfire1 = 1: pl 'Flame. Inflicts little damage. (Cost 10 mana)'
	nl
	if spellfire2 = 1: pl 'Release of fire. A damage. (100 mana cost)'
	nl
	if spellfire3 = 1: pl 'Fire barrier, creates a shield of 750 units. (150 mana cost)'
	nl
	if spellfire4 = 1: pl 'Firestorm. Causes great damage to an enemy difficult to dodge. (250 mana cost)'
	nl
	if spellfire5 = 1: pl 'Flame Shield creates a shield of 2,500 units. (500 mana cost)'
	nl

	if stihia = 2: pl 'SPELL element of lightning'
	nl
	if spellele1 = 1: pl 'Discharge. Inflicts very little damage. (Cost 10 mana)'
	nl
	if spellele2 = 1: pl 'Lightning. Inflicts above average. (100 mana cost)'
	nl
	if spellele3 = 1: pl 'Electrical barrier creates a shield of 1,500. (150 mana cost)'
	nl
	if spellele4 = 1: pl 'Dance of thousands of birds. Inflicts very high damage. (250 mana cost)'
	nl
	if spellele5 = 1: pl 'Plyaschuschaya sphere creates a shield of 5,000 units. (500 mana cost)'
	nl

	if stihia = 3: pl 'SPELL Element Earth'
	nl
	if spellert1 = 1: pl 'Quicksand trap catches the enemy in quicksand and causes little damage. (Cost 10 mana)'
	nl
	if spellert2 = 1: pl 'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (100 mana cost)'
	nl
	if spellert3 = 1: pl 'Abyss earth asunder underfoot enemy inflicting damage above average and depriving him of the ability to move. (150 mana cost)'
	nl
	if spellert4 = 1: pl 'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. (250 mana cost)'
	nl
	if spellert5 = 1: pl 'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting massive damage and depriving him of his ability to move. 500 mana cost.'
	nl

	if stihia = 4: pl 'Spells with wind energy'
	nl
	if spellwind1 = 1: pl 'A gust of wind, causing very little damage and destroy clones and fog, it is very difficult to dodge. (Cost 10 mana)'
	nl
	if spellwind2 = 1: pl 'Horrendous pressure, causing moderate damage and destroying clones and fog, it is very difficult to dodge. (100 mana cost)'
	nl
	if spellwind3 = 1: pl 'Vacuum sphere, creates a shield of 1,500. (150 mana cost)'
	nl
	if spellwind4 = 1: pl 'Vacuum shells do more damage and destroy clones and fog, it is very difficult to dodge. (250 mana cost)'
	nl
	if spellwind5 = 1: pl 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. (500 mana cost)'
	nl

	if stihia = 5: pl 'SPELL elements of water'
	nl
	if spellwater1 = 1: pl 'Creek manna causes very little damage and absorbs a lot of mana. Cost 10 mana.'
	nl
	if spellwater2 = 1: pl 'Flooding, causing moderate damage and absorbs manna above average. 100 mana cost.'
	nl
	if spellwater3 = 1: pl 'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (150 mana cost)'
	nl
	if spellwater4 = 1: pl 'Water shark missile, causing great damage and absorbs a lot of mana. Cost 250 mana.'
	nl
	if spellwater5 = 1: pl 'Great flood, the water creates a huge sphere that absorbs enemy and deflating manna from it and handing it to provide increased protection. 500 mana cost.'
	nl

end
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


$objbody = {
	if musle >= salo:
	!мускулистый тип
		if bedra < 60:
		VIEW 'images\body\fit.jpg'
		end
		if bedra >= 60 and bedra < 70:
		VIEW 'images\body\fit1.jpg'
		end
		if bedra >= 70 and bedra < 80:
		VIEW 'images\body\fit2.jpg'
		end
		if bedra >= 80 and bedra < 90:
		VIEW 'images\body\fit3.jpg'
		end
		if bedra >= 90 and bedra < 100:
		VIEW 'images\body\fit4.jpg'
		end
		if bedra >= 100 and bedra < 110:
		VIEW 'images\body\fit5.jpg'
		end
		if bedra >= 110 and bedra < 120:
		VIEW 'images\body\fit6.jpg'
		end
		if bedra >= 120:
		VIEW 'images\body\fit7.jpg'
		end
	end
	if musle < salo:
	!жирный тип
		if bedra < 60:
		VIEW 'images\body\fat.jpg'
		end
		if bedra >= 60 and bedra < 70:
		VIEW 'images\body\fat1.jpg'
		end
		if bedra >= 70 and bedra < 80:
		VIEW 'images\body\fat2.jpg'
		end
		if bedra >= 80 and bedra < 90:
		VIEW 'images\body\fat3.jpg'
		end
		if bedra >= 90 and bedra < 100:
		VIEW 'images\body\fat4.jpg'
		end
		if bedra >= 100 and bedra < 110:
		VIEW 'images\body\fat5.jpg'
		end
		if bedra >= 110 and bedra < 120:
		VIEW 'images\body\fat6.jpg'
		end
		if bedra >= 120:
		VIEW 'images\body\fat7.jpg'
		end
	end
}

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

$objtattoos = {
$tatlipdi = {
VIEW 'images\Body\tatlip<<tatlip>>.jpg'
}
$tatpledi = {
VIEW 'images\body\tatplech<<tatplech>>.jpg'
}
$tatbackdi = {
VIEW 'images\body\tatb<<tatback>>.jpg'
}
$tatupbdi = {
VIEW 'images\body\tatupb<<tatupb>>.jpg'
}
$tatvagdi = {
VIEW 'images\body\tatvag<<tatvag>>.jpg'
}
$tatlegdi = {
VIEW 'images\body\tatleg<<tatleg>>.jpg'
}

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

$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 300r \ day. Dress code - office, strict. The road from the apartment to the Lyceum takes 2 hours and 10 minutes.'&nl
if work > 0 and workKafe > 0:pl'I work as a waitress in a cafe. Need to come to work with 11 to 12 working days, Tuesday, Wednesday, Thursday. At work every day you get tips from customers and automatically transferred to the 25th salary number.'&nl
if work > 0 and workhosp > 0:pl'I work as a nurse in the clinic. Need to come to work from 8 to 9 on weekdays. Salary is automatically transferred to the 25th number.'&nl
if work > 0 and worksalon > 0:pl'I work as a masseuse in the cabin. Need to come to work from 9 to 10 working days, Monday, Wednesday and Friday. Salary is automatically transferred to the 25th number.'&nl
if work > 0 and workhosp > 0:pl'I work as a secretary in the office. Need to come to work until 9 on weekdays. Salary is automatically transferred to the 25th number.'&nl
if work > 0 and tanwork > 0:pl'I work as a governess at Tani. Salary is automatically transferred to the 25th number.'&nl
if work > 0 and young_shop_work = 1:pl'I work in a store saleswoman Keys Pussy. Need to come to work in 15 workdays all except Saturday and Sunday. Salary is issued once a week on Fridays.'&nl

if workrin = 1: pl 'I work in a tent on the market Arthur clothing saleswoman. Work on Tuesdays, Thursdays and Saturdays, come at 8 o´clock. Salary depends on the sales.'&nl
if stripwork >= 1: pl 'I work as a stripper, schedule a free, on any day from 15 up to 2 nights. Salary only tip.'&nl

if bumtolik = 4: pl 'Service for homeless located in the northern area.'&nl
if bumtolik = 5: pl 'I volunteer to help the homeless service. Rab.chasy from 9 to 17, Weekend Sat. and Sun.'&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:
	set kidDiary = 1
	:kidDiaryLoop
	pl 'I have a child <<$kidname[kidDiary]>>, age <<kid[kidDiary]>> days.'&nl
	set kidDiary += 1
	if kidDiary <= numkid:
		jump 'kidDiaryLoop'
	end
end


if $bfsex > 0:
	pl '<center><font color = maroon>-- My Boyfriends --</font></center>'
	pl '<<$bfsex>>'
end

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 harakBoyB = 0 and bfB > 1: pl 'He is calm and self-possessed character.'&nl
if harakBoyB = 1 and bfB > 1: pl 'He is cheerful and sociable nature.'&nl
if harakBoyB = 2 and bfB > 1: pl 'He is irascible and very rigid.'&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
if harakBoyC = 0 and bfC > 1: pl 'He is calm and self-possessed character.'&nl
if harakBoyC = 1 and bfC > 1: pl 'He is cheerful and sociable nature.'&nl
if harakBoyC = 2 and bfC > 1: pl 'He is irascible and very rigid.'&nl

GS 'Menu.Create','zapisMenu'
GS 'Menu.Add','zapisMenu','Record on the line 1yu','','MenuLoc','zapis'
GS 'Menu.Add','zapisMenu','Record for the 2nd line','','MenuLoc','zapis2'
GS 'Menu.Add','zapisMenu','Record on the third line','','MenuLoc','zapis3'
GS 'Menu.Add','zapisMenu','Record on the line 4yu','','MenuLoc','zapis4'
GS 'Menu.Add','zapisMenu','Record on the line 5yu','','MenuLoc','zapis5'
GS 'Menu.Add','zapisMenu','6 pcs of record on line','','MenuLoc','zapis6'
GS 'Menu.Add','zapisMenu','Record on the line 7yu','','MenuLoc','zapis7'
GS 'Menu.Add','zapisMenu','Record on the line occupies 8','','MenuLoc','zapis8'
GS 'Menu.Add','zapisMenu','Record on the line 9yu','','MenuLoc','zapis9'
GS 'Menu.Add','zapisMenu','Record on the line 10yu','','MenuLoc','zapis10'

GS 'Menu.Create','disMenu'
GS 'Menu.Add','disMenu','Delete an entry from the 1st row','','MenuLoc','diszapis'
GS 'Menu.Add','disMenu','Delete Record with 2nd row','','MenuLoc','diszapis2'
GS 'Menu.Add','disMenu','Delete record with third row','','MenuLoc','diszapis3'
GS 'Menu.Add','disMenu','Delete an entry from the 4th row','','MenuLoc','diszapis4'
GS 'Menu.Add','disMenu','Delete an entry from the 5th row','','MenuLoc','diszapis5'
GS 'Menu.Add','disMenu','Delete an entry from the 6th row','','MenuLoc','diszapis6'
GS 'Menu.Add','disMenu','Delete an entry from the 7th row','','MenuLoc','diszapis7'
GS 'Menu.Add','disMenu','Delete an entry from the 8th row','','MenuLoc','diszapis8'
GS 'Menu.Add','disMenu','Delete an entry from the 9th row','','MenuLoc','diszapis9'
GS 'Menu.Add','disMenu','Delete record with the 10th row','','MenuLoc','diszapis10'

pl '<a href="exec: gs ''Menu.Call'',''zapisMenu''">Make an entry</a> or <a href="exec: gs ''Menu.Call'',''disMenu''">delete the record</a>'

pl '<<$zapis>>'
pl '<<$zapis2>>'
pl '<<$zapis3>>'
pl '<<$zapis4>>'
pl '<<$zapis5>>'
pl '<<$zapis6>>'
pl '<<$zapis7>>'
pl '<<$zapis8>>'
pl '<<$zapis9>>'
pl '<<$zapis10>>'
}

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

if StoryLine = 1: gt 'gorodok'
gt 'street'
}

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

$objoldmenu = {
killobj
set oldobjmenu = 1
addobj '<font color=green>Character</font>'
addobj 'Skills'
addobj 'Statistics'
addobj 'Magic'
addobj 'Face'
addobj 'Body'
addobj 'Clothing'
addobj 'Tattoos'
addobj 'Piercing'
if mobila > 0: addobj 'Phone'
addobj 'Diary'
addobj 'Emergency exit'
addobj 'Update'
addobj 'Menu'
addobj 'New Menu'
}

$menu_character[0] = 'Description: $menu_descrip'
$menu_character[1] = 'Characteristics: $menu_skills'
$menu_character[2] = 'Usage: $menu_statistika'
$menu_character[3] = 'Magic: $menu_magic'
$menu_character[4] = 'Automatic: $menu_automatica'
$menu_character[5] = 'Cheats: $menu_dex_cheat'

$menu_lookon[0] = 'Person: $menu_face'
$menu_lookon[1] = 'Body: $menu_body'
$menu_lookon[2] = 'Clothing: $menu_clothes'
$menu_lookon[3] = 'Tattoos: $menu_tattoos'
$menu_lookon[4] = 'Piercing: $menu_pirs'

$menu_other[0] = 'Update: $menu_obnovit'
$menu_other[1] = 'Diary: $menu_bloknot'
$menu_other[2] = 'Emergency exit: $menu_avariya'
$menu_other[3] = 'Old menu: $menu_addoldmenu'
$menu_other[4] = 'OPTIONS: $menu_options'
$menu_other[5] = 'HELPER: $menu_helper'
$menu_other[6] = 'Testing: $menu_test'

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

!Старое меню: начало
if $selobj = '<font color=green>Character</font>': dynamic $objdescrip
if $selobj = 'Skills': dynamic $objskills
if $selobj = 'Statistics': dynamic $objstatistika
if $selobj = 'Magic': dynamic $objmagic
if $selobj = 'Face': dynamic $objface
if $selobj = 'Body': dynamic $objbody
if $selobj = 'Clothing': dynamic $objclothes
if $selobj = 'Tattoos': dynamic $objtattoos
if $selobj = 'Piercing': dynamic $objpirsing
if $selobj = 'Diary': dynamic $objbloknot
if $selobj = 'Emergency exit': dynamic $objavariya
if $selobj = 'Update': gs 'stat'
if $selobj = 'New Menu': dynamic $objnewmenu
if $selobj = 'Automatic': dynamic $automatica
!Старое меню: конец

!Новое меню: начало
if $selobj = 'Character': menu '$menu_character'
if $selobj = 'See': menu '$menu_lookon'
if $selobj = 'Others': menu '$menu_other'
!Новое меню: конец

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

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

unselect
--- onobjsel ---------------------------------

# scale.table
!{
"
Отрисовка шкалы с помощью таблицы:
"

$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]   &   ! текущее значение параметра
args[1] = args[1]   &   ! максимальное значение параметра
if args[2] = 0: args[2] = 200   &   ! ширина шкалы (таблицы) в пикселях. По умолчанию 350 px
if $args[3] = "": $args[3]="FF0000" &   ! цвет заполненной части шкалы в формате RRGGBB. По умолчанию - красный
! сначала "создаём" соответствующую таблицу
$args['table'] = '<TABLE width=<<args[2]>> border = 0 cellspacing = 0 cellpadding = 0><TR>'
! вычисляем ширину в процентах заполненной части
args['x'] = (args[0] * 100) / args[1]
! вычисляем ширину в процентах незаполненной части
args['empty'] = 100 - args['x']
! Если ширина заполненной части больше нуля процентов, добавляем в таблицу ячейку с указанным цветом (красный по-умолчанию)
if args['x']>0:
	$args['table']+="<TD width=<<args['x']>>% bgcolor=#"+$args[3]+">&nbsp;</TD>"
end
! Если ширина незаполненной части шкалы больше нуля процентов, добавляем в таблицу ячейку с другим цветом (серый).
if args['empty']>0:
	$args['table']+="<TD width=<<args['empty']>>% bgcolor=#888888>&nbsp;</TD>"
end
! "закрываем" таблицу
$args['table'] += '</TR></TABLE>'
! результат
$result = $args['table']
--- scale.table ---------------------------------

# counter

--- counter ---------------------------------

# loadg
if GameUpdate = 0 and StoryLine = 0:
	karta += 4000
	GameUpdate = 1
end

!Ремонт одежды, для старых сохранений.
if remdrop = 0:
	set remdrop = 1
	if jeans = 1: set jeans[1] = 1 & set jeansH[1] = 50 & set jeansB[1] = bedra
	if jeans2 = 1: set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
	if jeans3 = 1: set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
	if jeans4 = 1: set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
	if jeans5 = 1: set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
	if yoga = 1: set yoga[1] = 1 & set yogaH[1] = 50
	if yoga2 = 1: set yoga[2] = 1 & set yogaH[2] = 50
	if yoga3 = 1: set yoga[3] = 1 & set yogaH[3] = 50
	if yoga4 = 1: set yoga[4] = 1 & set yogaH[4] = 50
	if yoga5 = 1: set yoga[5] = 1 & set yogaH[5] = 50
	if yoga6 = 1: set yoga[6] = 1 & set yogaH[6] = 50
	if yoga7 = 1: set yoga[7] = 1 & set yogaH[7] = 50
	if yoga8 = 1: set yoga[8] = 1 & set yogaH[8] = 50
	if yoga9 = 1: set yoga[9] = 1 & set yogaH[9] = 50
	if yoga10 = 1: set yoga[10] = 1 & set yogaH[10] = 50
	if yoga11 = 1: set yoga[11] = 1 & set yogaH[11] = 50
	if yoga12 = 1: set yoga[12] = 1 & set yogaH[12] = 50
	if yoga13 = 1: set yoga[13] = 1 & set yogaH[13] = 50
	if yoga14 = 1: set yoga[14] = 1 & set yogaH[14] = 50
	if yoga15 = 1: set yoga[15] = 1 & set yogaH[15] = 50
	if yoga16 = 1: set yoga[16] = 1 & set yogaH[16] = 50
	if yoga17 = 1: set yoga[17] = 1 & set yogaH[17] = 50
	if yoga18 = 1: set yoga[18] = 1 & set yogaH[18] = 50
	if sarafan = 1: set sarafan[1] = 1 & set sarafanH[1] = 50
	if sarafan2 = 1: set sarafan[2] = 1 & set sarafanH[2] = 50
	if short = 1: set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
	if short2 = 1: set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
	if short3 = 1: set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
	if short4 = 1: set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
	if short5 = 1: set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
	if skirt = 1: set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
	if skirt2 = 1: set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
	if skirt3 = 1: set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
	if skirt4 = 1: set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
	if skirt5 = 1: set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
	if dress = 1: set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
	if dress2 = 1: set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
	if dress3 = 1: set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
	if dress4 = 1: set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
	if dress5 = 1: set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
	if dress6 = 1: set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
	if dress7 = 1: set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
	if dress8 = 1: set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
	if dress9 = 1: set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
	if dress10 = 1: set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
	if dress11 = 1: set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
	if dress12 = 1: set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
	if dress13 = 1: set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
	if dress14 = 1: set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
	if dress15 = 1: set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
	if dress16 = 1: set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
	if dress17 = 1: set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
	if dress18 = 1: set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
	if dress19 = 1: set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
	if dress20 = 1: set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
	if dress21 = 1: set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
	if dress22 = 1: set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
	if dress23 = 1: set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
	if dress24 = 1: set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
	if profi = 1: set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
	if profi2 = 1: set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
	if pants = 1: set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
	if pants2 = 1: set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
	if pants3 = 1: set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
	if pants4 = 1: set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
	if pants5 = 1: set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
	if latex = 1: set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
	if latex2 = 1: set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
	if hooker = 1: set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
	if hooker2 = 1: set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
	if hooker3 = 1: set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
	if hooker4 = 1: set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
	if hooker5 = 1: set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
	if dressel1 = 1: set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
	if odekis1 = 1: set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
	if odekis2 = 1: set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
	if odekis3 = 1: set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
	if odekis4 = 1: set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
	if odekis5 = 1: set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
	if odekis6 = 1: set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
	if odekis7 = 1: set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
	if odekis8 = 1: set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
	if odekis9 = 1: set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
	
		if jeans201 = 1:set jeans[201]=1&set jeansH[201]=50&set jeansB[201]=bedra
	if jeans202 = 1:set jeans[202]=1&set jeansH[202]=50&set jeansB[202]=bedra
	if jeans203 = 1:set jeans[203]=1&set jeansH[203]=50&set jeansB[203]=bedra
	if jeans204 = 1:set jeans[204]=1&set jeansH[204]=50&set jeansB[204]=bedra
	if jeans205 = 1:set jeans[205]=1&set jeansH[205]=50&set jeansB[205]=bedra
	if jeans206 = 1:set jeans[206]=1&set jeansH[206]=50&set jeansB[206]=bedra
	if jeans207 = 1:set jeans[207]=1&set jeansH[207]=50&set jeansB[207]=bedra
	if jeans208 = 1:set jeans[208]=1&set jeansH[208]=50&set jeansB[208]=bedra
	if jeans209 = 1:set jeans[209]=1&set jeansH[209]=50&set jeansB[209]=bedra
	if jeans210 = 1:set jeans[210]=1&set jeansH[210]=50&set jeansB[210]=bedra
	if jeans211 = 1:set jeans[211]=1&set jeansH[211]=50&set jeansB[211]=bedra
	if jeans212 = 1:set jeans[212]=1&set jeansH[212]=50&set jeansB[212]=bedra
	if jeans213 = 1:set jeans[213]=1&set jeansH[213]=50&set jeansB[213]=bedra
	if jeans214 = 1:set jeans[214]=1&set jeansH[214]=50&set jeansB[214]=bedra
	if jeans215 = 1:set jeans[215]=1&set jeansH[215]=50&set jeansB[215]=bedra
	if jeans216 = 1:set jeans[216]=1&set jeansH[216]=50&set jeansB[216]=bedra
	if jeans217 = 1:set jeans[217]=1&set jeansH[217]=50&set jeansB[217]=bedra
	if jeans218 = 1:set jeans[218]=1&set jeansH[218]=50&set jeansB[218]=bedra
	if jeans219 = 1:set jeans[219]=1&set jeansH[219]=50&set jeansB[219]=bedra
	if jeans220 = 1:set jeans[220]=1&set jeansH[220]=50&set jeansB[220]=bedra
	if jeans221 = 1:set jeans[221]=1&set jeansH[221]=50&set jeansB[221]=bedra
	if jeans222 = 1:set jeans[222]=1&set jeansH[222]=50&set jeansB[222]=bedra
	if jeans223 = 1:set jeans[223]=1&set jeansH[223]=50&set jeansB[223]=bedra
	if jeans224 = 1:set jeans[224]=1&set jeansH[224]=50&set jeansB[224]=bedra
	if jeans225 = 1:set jeans[225]=1&set jeansH[225]=50&set jeansB[225]=bedra
	if jeans226 = 1:set jeans[226]=1&set jeansH[226]=50&set jeansB[226]=bedra
	if jeans227 = 1:set jeans[227]=1&set jeansH[227]=50&set jeansB[227]=bedra
	if jeans228 = 1:set jeans[228]=1&set jeansH[228]=50&set jeansB[228]=bedra
	if jeans229 = 1:set jeans[229]=1&set jeansH[229]=50&set jeansB[229]=bedra
	if jeans230 = 1:set jeans[230]=1&set jeansH[230]=50&set jeansB[230]=bedra
	if jeans231 = 1:set jeans[231]=1&set jeansH[231]=50&set jeansB[231]=bedra
	if jeans232 = 1:set jeans[232]=1&set jeansH[232]=50&set jeansB[232]=bedra
	if jeans236 = 1:set jeans[236]=1&set jeansH[236]=50&set jeansB[236]=bedra
	if jeans237 = 1:set jeans[237]=1&set jeansH[237]=50&set jeansB[237]=bedra
	if jeans238 = 1:set jeans[238]=1&set jeansH[238]=50&set jeansB[238]=bedra
	if jeans239 = 1:set jeans[239]=1&set jeansH[239]=50&set jeansB[239]=bedra
	if jeans240 = 1:set jeans[240]=1&set jeansH[240]=50&set jeansB[240]=bedra
	if jeans241 = 1:set jeans[241]=1&set jeansH[241]=50&set jeansB[241]=bedra
	if jeans243 = 1:set jeans[243]=1&set jeansH[243]=50&set jeansB[243]=bedra
	if jeans244 = 1:set jeans[244]=1&set jeansH[244]=50&set jeansB[244]=bedra
	if jeans245 = 1:set jeans[245]=1&set jeansH[245]=50&set jeansB[245]=bedra
	if jeans246 = 1:set jeans[246]=1&set jeansH[246]=50&set jeansB[246]=bedra
	if jeans247 = 1:set jeans[247]=1&set jeansH[247]=50&set jeansB[247]=bedra
	if jeans248 = 1:set jeans[248]=1&set jeansH[248]=50&set jeansB[248]=bedra
	if jeans249 = 1:set jeans[249]=1&set jeansH[249]=50&set jeansB[249]=bedra
	if jeans250 = 1:set jeans[250]=1&set jeansH[250]=50&set jeansB[250]=bedra
	if jeans251 = 1:set jeans[251]=1&set jeansH[251]=50&set jeansB[251]=bedra
	if jeans252 = 1:set jeans[252]=1&set jeansH[252]=50&set jeansB[252]=bedra
	if jeans253 = 1:set jeans[253]=1&set jeansH[253]=50&set jeansB[253]=bedra
	if jeans254 = 1:set jeans[254]=1&set jeansH[254]=50&set jeansB[254]=bedra
	if jeans255 = 1:set jeans[255]=1&set jeansH[255]=50&set jeansB[255]=bedra
	if jeans256 = 1:set jeans[256]=1&set jeansH[256]=50&set jeansB[256]=bedra
	if jeans257 = 1:set jeans[257]=1&set jeansH[257]=50&set jeansB[257]=bedra
	if jeans258 = 1:set jeans[258]=1&set jeansH[258]=50&set jeansB[258]=bedra
	if jeans259 = 1:set jeans[259]=1&set jeansH[259]=50&set jeansB[259]=bedra
	if jeans260 = 1:set jeans[260]=1&set jeansH[260]=50&set jeansB[260]=bedra
	if jeans261 = 1:set jeans[261]=1&set jeansH[261]=50&set jeansB[261]=bedra
	if jeans262 = 1:set jeans[262]=1&set jeansH[262]=50&set jeansB[262]=bedra
	if jeans263 = 1:set jeans[263]=1&set jeansH[263]=50&set jeansB[263]=bedra
	if jeans264 = 1:set jeans[264]=1&set jeansH[264]=50&set jeansB[264]=bedra
	if jeans265 = 1:set jeans[265]=1&set jeansH[265]=50&set jeansB[265]=bedra
	if jeans266 = 1:set jeans[266]=1&set jeansH[266]=50&set jeansB[266]=bedra
	if jeans267 = 1:set jeans[267]=1&set jeansH[267]=50&set jeansB[267]=bedra
	if jeans268 = 1:set jeans[268]=1&set jeansH[268]=50&set jeansB[268]=bedra
	if jeans269 = 1:set jeans[269]=1&set jeansH[269]=50&set jeansB[269]=bedra
	if jeans270 = 1:set jeans[270]=1&set jeansH[270]=50&set jeansB[270]=bedra
	if jeans271 = 1:set jeans[271]=1&set jeansH[271]=50&set jeansB[271]=bedra
	if jeans272 = 1:set jeans[272]=1&set jeansH[272]=50&set jeansB[272]=bedra
	if jeans273 = 1:set jeans[273]=1&set jeansH[273]=50&set jeansB[273]=bedra
	if jeans274 = 1:set jeans[274]=1&set jeansH[274]=50&set jeansB[274]=bedra
	if jeans275 = 1:set jeans[275]=1&set jeansH[275]=50&set jeansB[275]=bedra
	if jeans276 = 1:set jeans[276]=1&set jeansH[276]=50&set jeansB[276]=bedra
	if jeans278 = 1:set jeans[278]=1&set jeansH[278]=50&set jeansB[278]=bedra
	if jeans279 = 1:set jeans[279]=1&set jeansH[279]=50&set jeansB[279]=bedra
	if jeans280 = 1:set jeans[280]=1&set jeansH[280]=50&set jeansB[280]=bedra
	if jeans281 = 1:set jeans[281]=1&set jeansH[281]=50&set jeansB[281]=bedra
	if jeans282 = 1:set jeans[282]=1&set jeansH[282]=50&set jeansB[282]=bedra
	if jeans283 = 1:set jeans[283]=1&set jeansH[283]=50&set jeansB[283]=bedra
	if jeans285 = 1:set jeans[285]=1&set jeansH[285]=50&set jeansB[285]=bedra
	if jeans286 = 1:set jeans[286]=1&set jeansH[286]=50&set jeansB[286]=bedra
	if jeans287 = 1:set jeans[287]=1&set jeansH[287]=50&set jeansB[287]=bedra
	if jeans289 = 1:set jeans[289]=1&set jeansH[289]=50&set jeansB[289]=bedra
	if jeans290 = 1:set jeans[290]=1&set jeansH[290]=50&set jeansB[290]=bedra
	if jeans291 = 1:set jeans[291]=1&set jeansH[291]=50&set jeansB[291]=bedra
	if jeans292 = 1:set jeans[292]=1&set jeansH[292]=50&set jeansB[292]=bedra
	if jeans293 = 1:set jeans[293]=1&set jeansH[293]=50&set jeansB[293]=bedra
	if jeans294 = 1:set jeans[294]=1&set jeansH[294]=50&set jeansB[294]=bedra
	if jeans295 = 1:set jeans[295]=1&set jeansH[295]=50&set jeansB[295]=bedra
	if jeans297 = 1:set jeans[297]=1&set jeansH[297]=50&set jeansB[297]=bedra

	if short201 = 1:set short[201]=1&set shortH[201]=50&set shortB[201]=bedra
	if short202 = 1:set short[202]=1&set shortH[202]=50&set shortB[202]=bedra
	if short203 = 1:set short[203]=1&set shortH[203]=50&set shortB[203]=bedra
	if short204 = 1:set short[204]=1&set shortH[204]=50&set shortB[204]=bedra
	if short205 = 1:set short[205]=1&set shortH[205]=50&set shortB[205]=bedra
	if short206 = 1:set short[206]=1&set shortH[206]=50&set shortB[206]=bedra
	if short207 = 1:set short[207]=1&set shortH[207]=50&set shortB[207]=bedra
	if short208 = 1:set short[208]=1&set shortH[208]=50&set shortB[208]=bedra
	if short209 = 1:set short[209]=1&set shortH[209]=50&set shortB[209]=bedra
	if short210 = 1:set short[210]=1&set shortH[210]=50&set shortB[210]=bedra
	if short211 = 1:set short[211]=1&set shortH[211]=50&set shortB[211]=bedra
	if short212 = 1:set short[212]=1&set shortH[212]=50&set shortB[212]=bedra
	if short213 = 1:set short[213]=1&set shortH[213]=50&set shortB[213]=bedra
	if short214 = 1:set short[214]=1&set shortH[214]=50&set shortB[214]=bedra
	if short215 = 1:set short[215]=1&set shortH[215]=50&set shortB[215]=bedra
	if short216 = 1:set short[216]=1&set shortH[216]=50&set shortB[216]=bedra
	if short217 = 1:set short[217]=1&set shortH[217]=50&set shortB[217]=bedra
	if short218 = 1:set short[218]=1&set shortH[218]=50&set shortB[218]=bedra
	if short219 = 1:set short[219]=1&set shortH[219]=50&set shortB[219]=bedra
	if short220 = 1:set short[220]=1&set shortH[220]=50&set shortB[220]=bedra
	if short221 = 1:set short[221]=1&set shortH[221]=50&set shortB[221]=bedra
	if short222 = 1:set short[222]=1&set shortH[222]=50&set shortB[222]=bedra
	if short223 = 1:set short[223]=1&set shortH[223]=50&set shortB[223]=bedra
	if short224 = 1:set short[224]=1&set shortH[224]=50&set shortB[224]=bedra
	if short225 = 1:set short[225]=1&set shortH[225]=50&set shortB[225]=bedra
	if short226 = 1:set short[226]=1&set shortH[226]=50&set shortB[226]=bedra
	if short227 = 1:set short[227]=1&set shortH[227]=50&set shortB[227]=bedra
	if short228 = 1:set short[228]=1&set shortH[228]=50&set shortB[228]=bedra
	if short229 = 1:set short[229]=1&set shortH[229]=50&set shortB[229]=bedra
	if short230 = 1:set short[230]=1&set shortH[230]=50&set shortB[230]=bedra
	if short231 = 1:set short[231]=1&set shortH[231]=50&set shortB[231]=bedra
	if short232 = 1:set short[232]=1&set shortH[232]=50&set shortB[232]=bedra
	if short233 = 1:set short[233]=1&set shortH[233]=50&set shortB[233]=bedra
	if short234 = 1:set short[234]=1&set shortH[234]=50&set shortB[234]=bedra
	if short235 = 1:set short[235]=1&set shortH[235]=50&set shortB[235]=bedra
	if short236 = 1:set short[236]=1&set shortH[236]=50&set shortB[236]=bedra
	if short237 = 1:set short[237]=1&set shortH[237]=50&set shortB[237]=bedra
	if short238 = 1:set short[238]=1&set shortH[238]=50&set shortB[238]=bedra
	if short239 = 1:set short[239]=1&set shortH[239]=50&set shortB[239]=bedra
	if short240 = 1:set short[240]=1&set shortH[240]=50&set shortB[240]=bedra
	if short241 = 1:set short[241]=1&set shortH[241]=50&set shortB[241]=bedra
	if short242 = 1:set short[242]=1&set shortH[242]=50&set shortB[242]=bedra
	if short244 = 1:set short[244]=1&set shortH[244]=50&set shortB[244]=bedra
	if short245 = 1:set short[245]=1&set shortH[245]=50&set shortB[245]=bedra
	if short246 = 1:set short[246]=1&set shortH[246]=50&set shortB[246]=bedra
	if short247 = 1:set short[247]=1&set shortH[247]=50&set shortB[247]=bedra
	if short248 = 1:set short[248]=1&set shortH[248]=50&set shortB[248]=bedra
	if short249 = 1:set short[249]=1&set shortH[249]=50&set shortB[249]=bedra
	if short250 = 1:set short[250]=1&set shortH[250]=50&set shortB[250]=bedra
	if short251 = 1:set short[251]=1&set shortH[251]=50&set shortB[251]=bedra
	if short252 = 1:set short[252]=1&set shortH[252]=50&set shortB[252]=bedra
	if short253 = 1:set short[253]=1&set shortH[253]=50&set shortB[253]=bedra
	if short255 = 1:set short[255]=1&set shortH[255]=50&set shortB[255]=bedra
	if short256 = 1:set short[256]=1&set shortH[256]=50&set shortB[256]=bedra

	if skirt201 = 1:set skirt[201]=1&set skirtH[201]=50&set skirtB[201]=bedra
	if skirt202 = 1:set skirt[202]=1&set skirtH[202]=50&set skirtB[202]=bedra
	if skirt203 = 1:set skirt[203]=1&set skirtH[203]=50&set skirtB[203]=bedra
	if skirt204 = 1:set skirt[204]=1&set skirtH[204]=50&set skirtB[204]=bedra
	if skirt205 = 1:set skirt[205]=1&set skirtH[205]=50&set skirtB[205]=bedra
	if skirt206 = 1:set skirt[206]=1&set skirtH[206]=50&set skirtB[206]=bedra
	if skirt207 = 1:set skirt[207]=1&set skirtH[207]=50&set skirtB[207]=bedra
	if skirt208 = 1:set skirt[208]=1&set skirtH[208]=50&set skirtB[208]=bedra
	if skirt209 = 1:set skirt[209]=1&set skirtH[209]=50&set skirtB[209]=bedra
	if skirt210 = 1:set skirt[210]=1&set skirtH[210]=50&set skirtB[210]=bedra
	if skirt211 = 1:set skirt[211]=1&set skirtH[211]=50&set skirtB[211]=bedra
	if skirt212 = 1:set skirt[212]=1&set skirtH[212]=50&set skirtB[212]=bedra
	if skirt213 = 1:set skirt[213]=1&set skirtH[213]=50&set skirtB[213]=bedra
	if skirt214 = 1:set skirt[214]=1&set skirtH[214]=50&set skirtB[214]=bedra
	if skirt215 = 1:set skirt[215]=1&set skirtH[215]=50&set skirtB[215]=bedra
	if skirt216 = 1:set skirt[216]=1&set skirtH[216]=50&set skirtB[216]=bedra
	if skirt217 = 1:set skirt[217]=1&set skirtH[217]=50&set skirtB[217]=bedra
	if skirt218 = 1:set skirt[218]=1&set skirtH[218]=50&set skirtB[218]=bedra
	if skirt219 = 1:set skirt[219]=1&set skirtH[219]=50&set skirtB[219]=bedra
	if skirt221 = 1:set skirt[221]=1&set skirtH[221]=50&set skirtB[221]=bedra
	if skirt222 = 1:set skirt[222]=1&set skirtH[222]=50&set skirtB[222]=bedra
	if skirt223 = 1:set skirt[223]=1&set skirtH[223]=50&set skirtB[223]=bedra
	if skirt224 = 1:set skirt[224]=1&set skirtH[224]=50&set skirtB[224]=bedra
	if skirt225 = 1:set skirt[225]=1&set skirtH[225]=50&set skirtB[225]=bedra
	if skirt226 = 1:set skirt[226]=1&set skirtH[226]=50&set skirtB[226]=bedra
	if skirt227 = 1:set skirt[227]=1&set skirtH[227]=50&set skirtB[227]=bedra
	if skirt228 = 1:set skirt[228]=1&set skirtH[228]=50&set skirtB[228]=bedra
	if skirt229 = 1:set skirt[229]=1&set skirtH[229]=50&set skirtB[229]=bedra
	if skirt230 = 1:set skirt[230]=1&set skirtH[230]=50&set skirtB[230]=bedra
	if skirt232 = 1:set skirt[232]=1&set skirtH[232]=50&set skirtB[232]=bedra
	if skirt233 = 1:set skirt[233]=1&set skirtH[233]=50&set skirtB[233]=bedra
	if skirt234 = 1:set skirt[234]=1&set skirtH[234]=50&set skirtB[234]=bedra
	if skirt235 = 1:set skirt[235]=1&set skirtH[235]=50&set skirtB[235]=bedra
	if skirt237 = 1:set skirt[237]=1&set skirtH[237]=50&set skirtB[237]=bedra
	if skirt238 = 1:set skirt[238]=1&set skirtH[238]=50&set skirtB[238]=bedra
	if skirt239 = 1:set skirt[239]=1&set skirtH[239]=50&set skirtB[239]=bedra
	if skirt240 = 1:set skirt[240]=1&set skirtH[240]=50&set skirtB[240]=bedra
	if skirt242 = 1:set skirt[242]=1&set skirtH[242]=50&set skirtB[242]=bedra
	if skirt243 = 1:set skirt[243]=1&set skirtH[243]=50&set skirtB[243]=bedra
	if skirt245 = 1:set skirt[245]=1&set skirtH[245]=50&set skirtB[245]=bedra
	if skirt246 = 1:set skirt[246]=1&set skirtH[246]=50&set skirtB[246]=bedra
	if skirt247 = 1:set skirt[247]=1&set skirtH[247]=50&set skirtB[247]=bedra
	if skirt248 = 1:set skirt[248]=1&set skirtH[248]=50&set skirtB[248]=bedra
	if skirt249 = 1:set skirt[249]=1&set skirtH[249]=50&set skirtB[249]=bedra
	if skirt250 = 1:set skirt[250]=1&set skirtH[250]=50&set skirtB[250]=bedra
	if skirt251 = 1:set skirt[251]=1&set skirtH[251]=50&set skirtB[251]=bedra
	if skirt252 = 1:set skirt[252]=1&set skirtH[252]=50&set skirtB[252]=bedra
	if skirt253 = 1:set skirt[253]=1&set skirtH[253]=50&set skirtB[253]=bedra
	if skirt254 = 1:set skirt[254]=1&set skirtH[254]=50&set skirtB[254]=bedra
	if skirt255 = 1:set skirt[255]=1&set skirtH[255]=50&set skirtB[255]=bedra
	if skirt256 = 1:set skirt[256]=1&set skirtH[256]=50&set skirtB[256]=bedra
	if skirt257 = 1:set skirt[257]=1&set skirtH[257]=50&set skirtB[257]=bedra
	if skirt258 = 1:set skirt[258]=1&set skirtH[258]=50&set skirtB[258]=bedra
	if skirt259 = 1:set skirt[259]=1&set skirtH[259]=50&set skirtB[259]=bedra
	if skirt260 = 1:set skirt[260]=1&set skirtH[260]=50&set skirtB[260]=bedra
	if skirt261 = 1:set skirt[261]=1&set skirtH[261]=50&set skirtB[261]=bedra
	if skirt262 = 1:set skirt[262]=1&set skirtH[262]=50&set skirtB[262]=bedra
	if skirt263 = 1:set skirt[263]=1&set skirtH[263]=50&set skirtB[263]=bedra
	if skirt264 = 1:set skirt[264]=1&set skirtH[264]=50&set skirtB[264]=bedra
	if skirt265 = 1:set skirt[265]=1&set skirtH[265]=50&set skirtB[265]=bedra
	if skirt266 = 1:set skirt[266]=1&set skirtH[266]=50&set skirtB[266]=bedra
	if skirt267 = 1:set skirt[267]=1&set skirtH[267]=50&set skirtB[267]=bedra
	if skirt268 = 1:set skirt[268]=1&set skirtH[268]=50&set skirtB[268]=bedra
	if skirt269 = 1:set skirt[269]=1&set skirtH[269]=50&set skirtB[269]=bedra
	if skirt270 = 1:set skirt[270]=1&set skirtH[270]=50&set skirtB[270]=bedra	
	if skirt271 = 1:set skirt[271]=1&set skirtH[271]=50&set skirtB[271]=bedra
	if skirt272 = 1:set skirt[272]=1&set skirtH[272]=50&set skirtB[272]=bedra
	if skirt273 = 1:set skirt[273]=1&set skirtH[273]=50&set skirtB[273]=bedra

	if dress201 = 1:set dress[201]=1&set dressH[201]=100&set dressB[201]=bedra
	if dress202 = 1:set dress[202]=1&set dressH[202]=100&set dressB[202]=bedra
	if dress203 = 1:set dress[203]=1&set dressH[203]=100&set dressB[203]=bedra
	if dress204 = 1:set dress[204]=1&set dressH[204]=100&set dressB[204]=bedra
	if dress205 = 1:set dress[205]=1&set dressH[205]=100&set dressB[205]=bedra
	if dress206 = 1:set dress[206]=1&set dressH[206]=100&set dressB[206]=bedra
	if dress207 = 1:set dress[207]=1&set dressH[207]=100&set dressB[207]=bedra
	if dress208 = 1:set dress[208]=1&set dressH[208]=100&set dressB[208]=bedra
	if dress209 = 1:set dress[209]=1&set dressH[209]=100&set dressB[209]=bedra
	if dress210 = 1:set dress[210]=1&set dressH[210]=100&set dressB[210]=bedra
	if dress211 = 1:set dress[211]=1&set dressH[211]=100&set dressB[211]=bedra
	if dress212 = 1:set dress[212]=1&set dressH[212]=100&set dressB[212]=bedra
	if dress213 = 1:set dress[213]=1&set dressH[213]=100&set dressB[213]=bedra
	if dress214 = 1:set dress[214]=1&set dressH[214]=100&set dressB[214]=bedra
	if dress215 = 1:set dress[215]=1&set dressH[215]=100&set dressB[215]=bedra
	if dress216 = 1:set dress[216]=1&set dressH[216]=100&set dressB[216]=bedra
	if dress217 = 1:set dress[217]=1&set dressH[217]=100&set dressB[217]=bedra
	if dress218 = 1:set dress[218]=1&set dressH[218]=100&set dressB[218]=bedra
	if dress219 = 1:set dress[219]=1&set dressH[219]=100&set dressB[219]=bedra
	if dress220 = 1:set dress[220]=1&set dressH[220]=100&set dressB[220]=bedra
	if dress221 = 1:set dress[221]=1&set dressH[221]=100&set dressB[221]=bedra
	if dress222 = 1:set dress[222]=1&set dressH[222]=100&set dressB[222]=bedra
	if dress223 = 1:set dress[223]=1&set dressH[223]=100&set dressB[223]=bedra
	if dress224 = 1:set dress[224]=1&set dressH[224]=100&set dressB[224]=bedra
	if dress225 = 1:set dress[225]=1&set dressH[225]=100&set dressB[225]=bedra

	if pants201 = 1:set pants[201]=1&set pantsH[201]=50&set pantsB[201]=bedra
	if pants202 = 1:set pants[202]=1&set pantsH[202]=50&set pantsB[202]=bedra
	if pants203 = 1:set pants[203]=1&set pantsH[203]=50&set pantsB[203]=bedra
	if pants204 = 1:set pants[204]=1&set pantsH[204]=50&set pantsB[204]=bedra
	if pants205 = 1:set pants[205]=1&set pantsH[205]=50&set pantsB[205]=bedra
	if pants206 = 1:set pants[206]=1&set pantsH[206]=50&set pantsB[206]=bedra
	if pants207 = 1:set pants[207]=1&set pantsH[207]=50&set pantsB[207]=bedra
	if pants208 = 1:set pants[208]=1&set pantsH[208]=50&set pantsB[208]=bedra
	if pants210 = 1:set pants[210]=1&set pantsH[210]=50&set pantsB[210]=bedra
	if pants211 = 1:set pants[211]=1&set pantsH[211]=50&set pantsB[211]=bedra
	if pants212 = 1:set pants[212]=1&set pantsH[212]=50&set pantsB[212]=bedra
	if pants213 = 1:set pants[213]=1&set pantsH[213]=50&set pantsB[213]=bedra
	if pants214 = 1:set pants[214]=1&set pantsH[214]=50&set pantsB[214]=bedra
	if pants215 = 1:set pants[215]=1&set pantsH[215]=50&set pantsB[215]=bedra
	if pants216 = 1:set pants[216]=1&set pantsH[216]=50&set pantsB[216]=bedra
	if pants217 = 1:set pants[217]=1&set pantsH[217]=50&set pantsB[217]=bedra
	if pants218 = 1:set pants[218]=1&set pantsH[218]=50&set pantsB[218]=bedra
	if pants219 = 1:set pants[219]=1&set pantsH[219]=50&set pantsB[219]=bedra
	if pants220 = 1:set pants[220]=1&set pantsH[220]=50&set pantsB[220]=bedra
	if pants221 = 1:set pants[221]=1&set pantsH[221]=50&set pantsB[221]=bedra
	if pants222 = 1:set pants[222]=1&set pantsH[222]=50&set pantsB[222]=bedra
	if pants223 = 1:set pants[223]=1&set pantsH[223]=50&set pantsB[223]=bedra
	if pants226 = 1:set pants[226]=1&set pantsH[226]=50&set pantsB[226]=bedra
	if pants227 = 1:set pants[227]=1&set pantsH[227]=50&set pantsB[227]=bedra
	if pants228 = 1:set pants[228]=1&set pantsH[228]=50&set pantsB[228]=bedra
	if pants230 = 1:set pants[230]=1&set pantsH[230]=50&set pantsB[230]=bedra
	if pants231 = 1:set pants[231]=1&set pantsH[231]=50&set pantsB[231]=bedra
	if pants232 = 1:set pants[232]=1&set pantsH[232]=50&set pantsB[232]=bedra
	if pants233 = 1:set pants[233]=1&set pantsH[233]=50&set pantsB[233]=bedra
	if pants234 = 1:set pants[234]=1&set pantsH[234]=50&set pantsB[234]=bedra
	if pants235 = 1:set pants[235]=1&set pantsH[235]=50&set pantsB[235]=bedra
	if pants236 = 1:set pants[236]=1&set pantsH[236]=50&set pantsB[236]=bedra
	if pants237 = 1:set pants[237]=1&set pantsH[237]=50&set pantsB[237]=bedra
	if pants238 = 1:set pants[238]=1&set pantsH[238]=50&set pantsB[238]=bedra
	if pants239 = 1:set pants[239]=1&set pantsH[239]=50&set pantsB[239]=bedra
	if pants240 = 1:set pants[240]=1&set pantsH[240]=50&set pantsB[240]=bedra
	if pants241 = 1:set pants[241]=1&set pantsH[241]=50&set pantsB[241]=bedra
	if pants242 = 1:set pants[242]=1&set pantsH[242]=50&set pantsB[242]=bedra
	if pants243 = 1:set pants[243]=1&set pantsH[243]=50&set pantsB[243]=bedra
	if pants244 = 1:set pants[244]=1&set pantsH[244]=50&set pantsB[244]=bedra
	if pants245 = 1:set pants[245]=1&set pantsH[245]=50&set pantsB[245]=bedra
	if pants246 = 1:set pants[246]=1&set pantsH[246]=50&set pantsB[246]=bedra
	if pants247 = 1:set pants[247]=1&set pantsH[247]=50&set pantsB[247]=bedra
	if pants248 = 1:set pants[248]=1&set pantsH[248]=50&set pantsB[248]=bedra
	if pants249 = 1:set pants[249]=1&set pantsH[249]=50&set pantsB[249]=bedra
	if pants250 = 1:set pants[250]=1&set pantsH[250]=50&set pantsB[250]=bedra
	if pants251 = 1:set pants[251]=1&set pantsH[251]=50&set pantsB[251]=bedra
	if pants252 = 1:set pants[252]=1&set pantsH[252]=50&set pantsB[252]=bedra
	if pants253 = 1:set pants[253]=1&set pantsH[253]=50&set pantsB[253]=bedra
	if pants254 = 1:set pants[254]=1&set pantsH[254]=50&set pantsB[254]=bedra
	if pants255 = 1:set pants[255]=1&set pantsH[255]=50&set pantsB[255]=bedra
	if pants256 = 1:set pants[256]=1&set pantsH[256]=50&set pantsB[256]=bedra
	if pants257 = 1:set pants[257]=1&set pantsH[257]=50&set pantsB[257]=bedra
	if pants258 = 1:set pants[258]=1&set pantsH[258]=50&set pantsB[258]=bedra
	if pants259 = 1:set pants[259]=1&set pantsH[259]=50&set pantsB[259]=bedra
	if pants260 = 1:set pants[260]=1&set pantsH[260]=50&set pantsB[260]=bedra
	if pants261 = 1:set pants[261]=1&set pantsH[261]=50&set pantsB[261]=bedra
	if pants262 = 1:set pants[262]=1&set pantsH[262]=50&set pantsB[262]=bedra
	if pants263 = 1:set pants[263]=1&set pantsH[263]=50&set pantsB[263]=bedra
	if pants264 = 1:set pants[264]=1&set pantsH[264]=50&set pantsB[264]=bedra
	if pants265 = 1:set pants[265]=1&set pantsH[265]=50&set pantsB[265]=bedra
	if pants266 = 1:set pants[266]=1&set pantsH[266]=50&set pantsB[266]=bedra
	if pants267 = 1:set pants[267]=1&set pantsH[267]=50&set pantsB[267]=bedra
	if pants268 = 1:set pants[268]=1&set pantsH[268]=50&set pantsB[268]=bedra
	if pants269 = 1:set pants[269]=1&set pantsH[269]=50&set pantsB[269]=bedra
	if pants270 = 1:set pants[270]=1&set pantsH[270]=50&set pantsB[270]=bedra
	if pants271 = 1:set pants[271]=1&set pantsH[271]=50&set pantsB[271]=bedra
	if pants273 = 1:set pants[273]=1&set pantsH[273]=50&set pantsB[273]=bedra
	if pants274 = 1:set pants[274]=1&set pantsH[274]=50&set pantsB[274]=bedra
	if pants275 = 1:set pants[275]=1&set pantsH[275]=50&set pantsB[275]=bedra
	if pants276 = 1:set pants[276]=1&set pantsH[276]=50&set pantsB[276]=bedra
	if pants277 = 1:set pants[277]=1&set pantsH[277]=50&set pantsB[277]=bedra
	if pants278 = 1:set pants[278]=1&set pantsH[278]=50&set pantsB[278]=bedra
	if pants279 = 1:set pants[279]=1&set pantsH[279]=50&set pantsB[279]=bedra
	if pants280 = 1:set pants[280]=1&set pantsH[280]=50&set pantsB[280]=bedra
	if pants281 = 1:set pants[281]=1&set pantsH[281]=50&set pantsB[281]=bedra
	if pants282 = 1:set pants[282]=1&set pantsH[282]=50&set pantsB[282]=bedra
	if pants283 = 1:set pants[283]=1&set pantsH[283]=50&set pantsB[283]=bedra
	if pants284 = 1:set pants[284]=1&set pantsH[284]=50&set pantsB[284]=bedra
	if pants285 = 1:set pants[285]=1&set pantsH[285]=50&set pantsB[285]=bedra
	if pants286 = 1:set pants[286]=1&set pantsH[286]=50&set pantsB[286]=bedra
	if pants287 = 1:set pants[287]=1&set pantsH[287]=50&set pantsB[287]=bedra
	if pants288 = 1:set pants[288]=1&set pantsH[288]=50&set pantsB[288]=bedra
	if pants289 = 1:set pants[289]=1&set pantsH[289]=50&set pantsB[289]=bedra
	if pants290 = 1:set pants[290]=1&set pantsH[290]=50&set pantsB[290]=bedra
	if pants291 = 1:set pants[291]=1&set pantsH[291]=50&set pantsB[291]=bedra
	if pants292 = 1:set pants[292]=1&set pantsH[292]=50&set pantsB[292]=bedra
	if pants293 = 1:set pants[293]=1&set pantsH[293]=50&set pantsB[293]=bedra
	if pants294 = 1:set pants[294]=1&set pantsH[294]=50&set pantsB[294]=bedra
	if pants295 = 1:set pants[295]=1&set pantsH[295]=50&set pantsB[295]=bedra
	if pants296 = 1:set pants[296]=1&set pantsH[296]=50&set pantsB[296]=bedra
	if pants297 = 1:set pants[297]=1&set pantsH[297]=50&set pantsB[297]=bedra
	if pants298 = 1:set pants[298]=1&set pantsH[298]=50&set pantsB[298]=bedra
	if pants299 = 1:set pants[299]=1&set pantsH[299]=50&set pantsB[299]=bedra
	if pants300 = 1:set pants[300]=1&set pantsH[300]=50&set pantsB[300]=bedra
	if pants301 = 1:set pants[301]=1&set pantsH[301]=50&set pantsB[301]=bedra
	if pants302 = 1:set pants[302]=1&set pantsH[302]=50&set pantsB[302]=bedra
	if pants303 = 1:set pants[303]=1&set pantsH[303]=50&set pantsB[303]=bedra
	if pants304 = 1:set pants[304]=1&set pantsH[304]=50&set pantsB[304]=bedra
	if pants305 = 1:set pants[305]=1&set pantsH[305]=50&set pantsB[305]=bedra
	if pants306 = 1:set pants[306]=1&set pantsH[306]=50&set pantsB[306]=bedra
	if pants307 = 1:set pants[307]=1&set pantsH[307]=50&set pantsB[307]=bedra
	if pants309 = 1:set pants[309]=1&set pantsH[309]=50&set pantsB[309]=bedra
	if pants311 = 1:set pants[311]=1&set pantsH[311]=50&set pantsB[311]=bedra
	if pants312 = 1:set pants[312]=1&set pantsH[312]=50&set pantsB[312]=bedra
	if pants313 = 1:set pants[313]=1&set pantsH[313]=50&set pantsB[313]=bedra
	if pants314 = 1:set pants[314]=1&set pantsH[314]=50&set pantsB[314]=bedra
	if pants315 = 1:set pants[315]=1&set pantsH[315]=50&set pantsB[315]=bedra
	if pants316 = 1:set pants[316]=1&set pantsH[316]=50&set pantsB[316]=bedra
	if pants317 = 1:set pants[317]=1&set pantsH[317]=50&set pantsB[317]=bedra
	if pants318 = 1:set pants[318]=1&set pantsH[318]=50&set pantsB[318]=bedra
	if pants319 = 1:set pants[319]=1&set pantsH[319]=50&set pantsB[319]=bedra
	if pants320 = 1:set pants[320]=1&set pantsH[320]=50&set pantsB[320]=bedra
	if pants321 = 1:set pants[321]=1&set pantsH[321]=50&set pantsB[321]=bedra
	if pants322 = 1:set pants[322]=1&set pantsH[322]=50&set pantsB[322]=bedra
	if pants324 = 1:set pants[324]=1&set pantsH[324]=50&set pantsB[324]=bedra
	if pants325 = 1:set pants[325]=1&set pantsH[325]=50&set pantsB[325]=bedra
	if pants326 = 1:set pants[326]=1&set pantsH[326]=50&set pantsB[326]=bedra
	if pants327 = 1:set pants[327]=1&set pantsH[327]=50&set pantsB[327]=bedra
	if pants328 = 1:set pants[328]=1&set pantsH[328]=50&set pantsB[328]=bedra
	if pants329 = 1:set pants[329]=1&set pantsH[329]=50&set pantsB[329]=bedra
	if pants330 = 1:set pants[330]=1&set pantsH[330]=50&set pantsB[330]=bedra
	if pants331 = 1:set pants[331]=1&set pantsH[331]=50&set pantsB[331]=bedra
	if pants332 = 1:set pants[332]=1&set pantsH[332]=50&set pantsB[332]=bedra
	if pants333 = 1:set pants[333]=1&set pantsH[333]=50&set pantsB[333]=bedra
	if pants334 = 1:set pants[334]=1&set pantsH[334]=50&set pantsB[334]=bedra
	if pants335 = 1:set pants[335]=1&set pantsH[335]=50&set pantsB[335]=bedra
	if pants336 = 1:set pants[336]=1&set pantsH[336]=50&set pantsB[336]=bedra
	if pants337 = 1:set pants[337]=1&set pantsH[337]=50&set pantsB[337]=bedra
	if pants338 = 1:set pants[338]=1&set pantsH[338]=50&set pantsB[338]=bedra
	if pants339 = 1:set pants[339]=1&set pantsH[339]=50&set pantsB[339]=bedra
	if pants341 = 1:set pants[341]=1&set pantsH[341]=50&set pantsB[341]=bedra
	if pants342 = 1:set pants[342]=1&set pantsH[342]=50&set pantsB[342]=bedra
	if pants343 = 1:set pants[343]=1&set pantsH[343]=50&set pantsB[343]=bedra
	if pants344 = 1:set pants[344]=1&set pantsH[344]=50&set pantsB[344]=bedra
	if pants345 = 1:set pants[345]=1&set pantsH[345]=50&set pantsB[345]=bedra
	if pants346 = 1:set pants[346]=1&set pantsH[346]=50&set pantsB[346]=bedra

	if hooker201 = 1: set hooker[201] = 1 & set hookerH[201] = 50 & set hookerB[201] = bedra
	if hooker202 = 1: set hooker[202] = 1 & set hookerH[202] = 50 & set hookerB[202] = bedra
	if hooker203 = 1: set hooker[203] = 1 & set hookerH[203] = 50 & set hookerB[203] = bedra
	if hooker204 = 1: set hooker[204] = 1 & set hookerH[204] = 50 & set hookerB[204] = bedra
	if hooker205 = 1: set hooker[205] = 1 & set hookerH[205] = 50 & set hookerB[205] = bedra
	
	if profi201 = 1: set profi[201] = 1 & set profiH[201] = 50 & set profiB[201] = bedra
	if profi202 = 1: set profi[202] = 1 & set profiH[202] = 50 & set profiB[202] = bedra
	if profi203 = 1: set profi[203] = 1 & set profiH[203] = 50 & set profiB[203] = bedra
	if profi204 = 1: set profi[204] = 1 & set profiH[204] = 50 & set profiB[204] = bedra
	if profi205 = 1: set profi[205] = 1 & set profiH[205] = 50 & set profiB[205] = bedra
	if profi206 = 1: set profi[206] = 1 & set profiH[206] = 50 & set profiB[206] = bedra
	if profi207 = 1: set profi[207] = 1 & set profiH[207] = 50 & set profiB[207] = bedra
	if profi208 = 1: set profi[208] = 1 & set profiH[208] = 50 & set profiB[208] = bedra

end

if update_2014_08_28 = 0:
	update_2014_08_28 = 1

	month_end[1]=31
	month_end[2]=28
	month_end[3]=31
	month_end[4]=30
	month_end[5]=31
	month_end[6]=30
	month_end[7]=31
	month_end[8]=31
	month_end[9]=30
	month_end[10]=31
	month_end[11]=30
	month_end[12]=31

	$month_name[1] = 'January'
	$month_name[2] = 'February'
	$month_name[3] = 'March'
	$month_name[4] = 'April'
	$month_name[5] = 'May'
	$month_name[6] = 'June'
	$month_name[7] = 'July'
	$month_name[8] = 'August'
	$month_name[9] = 'September'
	$month_name[10] = 'October'
	$month_name[11] = 'November'
	$month_name[12] = 'December'

	$week_name[1] = 'Monday'
	$week_name[2] = 'Tuesday'
	$week_name[3] = 'Wednesday'
	$week_name[4] = 'Thursday'
	$week_name[5] = 'Friday'
	$week_name[6] = 'Saturday'
	$week_name[7] = 'Sunday'
end

if month > 12:
	month = month mod 12
	if month = 0: month = 12
end

KikWinProKO = KikKOPro
--- loadg ---------------------------------

# LOCA
if $MAINTXT = '':
	'<center><B><font color = red>Error</font></B></center>'

	*nl
	*nl

	'<center>Please report this error this error informing the line below.</center>'
	'<center>Area:<<$loc>> Location:<<$curloc>> Sub:<<$args[0]>></center>'

	!gs 'dexcheats'

	dynamic $dex_debug_loc
	dynamic $dex_cheat_character_stats

	act 'ESCAPE TO STREET': gt 'street'
	act 'GO TO START': gt $CurLoc,'start'
end

--- LOCA ---------------------------------

# saveg
KikKOPro = KikWinProKO
--- saveg ---------------------------------

# inputProcessing

--- inputProcessing ---------------------------------

# cikl
!циклы
if curly > 0: set curly -= 1
set sweat += 1
if tan > 0: set tan -= 1
if tabletki > 0: set tabletki -= 1
set leghair += 1
set lobok += 1
if suhbelo > 0: set suhbelo2 = suhbelo & set suhbelo = 0
set manna -= 10

!{
if salo>fat:
salo -= 1
fat += 1
end
if salo < fat:
salo += 1
fat -= 1
end
if strenbuf > stren: set strenbuf -= 1
if strenbuf < stren: set strenbuf += 1
if vitalbuf > vital: set vitalbuf -= 1
if vitalbuf < vital: set vitalbuf += 1
if agilbuf > agil: set agilbuf -= 1
if agilbuf < agil: set agilbuf += 1
}

if anus > 1 and anusK < 0: set anusK = 0
if anus > 1 and anusK < 3: set anusK += 1
if anus > 1 and anusK >= 3: set anus -= 1 & set anusK = 0
if vagina > 10 and vaginaK < 0: set vaginaK = 0
if vagina > 10 and vaginaK < 6: set vaginaK += 1
if vagina > 10 and vaginaK >= 6: set vaginaK = 0 & set vagina -= 1

set lipkoef -= 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!Работы
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!ВЫБРОС ПРОКЛАДКИ
if isprok = 1: Set isprok = 0 & 'You threw used tampon.'

!ЦИКЛ 28 дней 4 дней ментсруация
if preg = 0:
if mesec > 0: Set mesec -= 1
if mesec = 0: Set cikl += 1
if cikl >= 23 and preg ! 1: Set mesec = 4 & Set cikl = 0
end
if preg = 1 and pregtime < 280:
set pregtime += 1
end

if preg = 1 and pregtime = 280 and hourpreg ! hour:
hourpreg = hour
'<center><B>A sharp pain ran through your stomach, and something flows down your legs. Snap, you water broke! You have to get to the clinic fast!</B></center>'
end

if preg = 1 and pregtime > 280:
cla
*clr
set over = 4
'<center><B>A horrible pain shots through your body.</B></center>'
xgt 'gameover'
exit
end

if horny < 100: set horny += vagina
if horny < 0: set horny = 0

if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
!Падение мускулистости
	if downmusl >= 5:
		downmusl   = 0
		set stren -= 1
		set vital -= 1
		set fat   += 4
		salo      += 4
	else
		downmusl  += 1
	end
end

!!! Maruda Hair Mod
!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area. 
!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
if hairlength < 601: set hairlength += 1

if hscrunch > 0:
	set hscrunchRAND = RAND (1,100)
		if hscrunchRAND <= 8: set hscrunch -= 1
end
!!! Maruda Hair Mod

gs 'starenie'
--- cikl ---------------------------------

# body
if anus = 0: anpic = 0 & set $anus = 'You have a virgin <a href="exec:view''images\body\0.jpg''">anus</a>.'
if anus > 0 and anus <= 5: anpic = 1 & set $anus = 'Your <a href="exec:view''images\body\1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
if anus > 5 and anus <= 10: anpic = 2 & set $anus = 'Your <a href="exec:view''images\body\2.jpg''">anus</a> has the shape of an asterisk.'
if anus > 10 and anus <= 15: anpic = 3 & set $anus = 'Your <a href="exec:view''images\body\3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
if anus > 15 and anus <= 20: anpic = 4 & set $anus = 'Your <a href="exec:view''images\body\4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.'
if anus > 25: anpic = 5 & set $anus = 'Your <a href="exec:view''images\body\5.jpg''">anus</a> does not close anymore, you could put a fist through it and it wouldn''t stretch at all.'

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

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


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

if hairlength > 400: set hpingripw = 0

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

if hairlength <= 80: set hbraids = 0

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

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

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

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

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

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

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

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

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

if hairlength <= 30: set $hair = 'You have very short, <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, one might mistake you for a man. Nonetheless, some people like this style, as it''s easy to take care off.'
if hairlength > 30 and hairlength <= 80: set $hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
if hairlength > 80 and hairlength <= 160: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
if hairlength > 160 and hairlength <= 260: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
if hairlength > 260 and hairlength <= 400: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
if hairlength > 400: set $hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
!if hcol = 0 and curly <= 0: set $hair = 'You have <<$hapri>> straight, black hair.'
!if hcol = 1 and curly <= 0: set $hair = 'You have <<$hapri>> straight, brown hair.'
!if hcol = 2 and curly <= 0: set $hair = 'You have <<$hapri>> straight, red hair.'
!if hcol = 3 and curly <= 0: set $hair = 'You have <<$hapri>> straight, blonde hair.'
!if hcol = 0 and curly > 0: set $hair = 'You have <<$hapri>> curly, black hair.'
!if hcol = 1 and curly > 0: set $hair = 'You have <<$hapri>> curly, brown hair.'
!if hcol = 2 and curly > 0: set $hair = 'You have <<$hapri>> curly red hair.'
!if hcol = 3 and curly > 0: set $hair = 'You have <<$hapri>> curly blonde hair.'
!if hcol = 0: set $hair = 'You have <<$hapri>> <<$curly>>, black hair.'
!if hcol = 1: set $hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
!if hcol = 2: set $hair = 'You have <<$hapri>> <<$curly>>, red hair.'
!if hcol = 3: set $hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'


!!! Maruda Hair Mod

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

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

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

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

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

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

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

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

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

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

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

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

if vnesh < 0: vnesh = 0
if StrongNarkota <= 0:
if SNarkTimes >= 3 and SLomka = 0: SLomka = 1
if Gerpes >= 3 or Sifilis >= 21 or Triper > 2: vnesh = -10
end

if StrongNarkota > 0:
if SLomka > 0: SLomka = 0
manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
end
if vnesh = -10: set $vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
if vnesh < 5 and vnesh>-10: set $vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
if vnesh >= 5 and vnesh < 15: set $vnesh = 'You''re a wallflower. Barely anyone notices you.'
if vnesh >= 15 and vnesh < 30: set $vnesh = 'You have good looks. Men and women like to take a glance at you.'
if vnesh >= 30 and vnesh < 50: set $vnesh = 'You have a simply stunning appearence. Other girls are abit jealous and guys constantly check you out.'
if vnesh >= 50: set $vnesh = 'Your appearence is divine! Noone is able to take his or her eyes off of you.'

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

# dina
gs 'dinSex'
gs 'dinBoroda'

$sitr_tread_d = {
	cla
	*clr
	set minut += 15
	set treadmillday = day
	set agil  += 2
	set sweat += 1
	set beg   += 1
	set manna -= 1
	set fat   -= 2

	'<center><img src="images\etogame\fit3.jpg"></center>'
	'You''ve spent fifteen minutes running in the treadmill.'

	act 'Exit': gt $curloc
}

$sitrobrd = {
	cla
	*clr
	set minut    += 15
	set obruchday = day
	set agil     += 1
	set sweat    += 1
	set manna    -= 1
	set fat      -= 1

	'<center><img src="images\etogame\obruch.gif"></center>'
	'You develop your dexterity by using the hula hoop.'

	act 'Exit': gt $curloc
}

$sitryogd = {
	cla
	*clr
	set minut     += 15
	set bookYogday = day
	set will      += 1
	set manna     += 5

	!'<center><img src="images\etogame\bookYog.jpg"></center>'

	if nude = 0:
		'<center><img src="images\community\yoga_dressed.jpg"></center>'
	end
	if nude = 1 and tanga = 1:
		'<center><img src="images\community\yoga_underwear.jpg"></center>'
	end
	if nude = 1 and tanga = 0:
		'<center><img src="images\community\yoga_naked.png"></center>'
	end

	'You meditate for fifteen minutes, developing your will.'

	act 'Exit': gt $curloc
}

$sitrskakd = {
	cla
	*clr
	set minut  += 15
	set skakday = day
	set speed  += 1
	set sweat  += 1
	set manna  -= 1
	set fat    -= 1

	!'<center><img src="images\etogame\skak.jpg"></center>'

	if nude = 0:
		'<center><img src="images\community\rope_dressed.jpg"></center>'
	end
	if nude = 1 and tanga = 0:
		'<center><img src="images\community\rope_naked.jpg"></center>'
	end
	if nude = 1 and tanga = 1:
		'<center><img src="images\community\rope_underwear.jpg"></center>'
	end

	'You''re rope jumping for fifteen minutes, developing your speed.'

	act 'Exit': gt $curloc
}

$sitrpressd = {
	cla
	*clr
	set minut   += 15
	set pressday = day
	set vital   += 1
	set sweat   += 1
	set manna   -= 1
	set fat     -= 1

	!'<center><img src="images\etogame\press.jpg"></center>'

	if nude = 0:
		'<center><img src="images\community\abdominal_dressed.jpg"></center>'
	end
	if nude = 1 and tanga = 1:
		'<center><img src="images\community\abdominal_underwear.jpg"></center>'
	end
	if nude = 1 and tanga = 0:
		'<center><img src="images\community\abdominal_naked.jpg"></center>'
	end

	'You do abdominal exercises for fifteen minutes, developing your endurance.'

	act 'Exit': gt $curloc
}

$sitrpushd = {
	cla
	*clr
	set minut  += 15
	set pushday = day
	set stren  += 1
	set sweat  += 1
	set manna  -= 1
	set fat    -= 1

	if nude = 0:
		!'<center><img src="images\etogame\push.jpg"></center>'
		'<center><img src="images\community\push_dressed.jpg"></center>'
	end
	if nude = 1 and tanga = 1:
		'<center><img src="images\community\push_underwear.jpg"></center>'
	end
	if nude = 1 and tanga = 0:
		'<center><img src="images\community\push_naked.jpg"></center>'
	end

	'You do push-ups for fifteen minutes, developing your strenght.'

	pushnum = RAND(stren/10, stren/5)
	'You''ve managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
	if pushrecord < pushnum: pushrecord = pushnum & 'This is a new record.'

	act 'Exit': gt $curloc
}

$gladbelo = {
	cla
	*clr
	set minut   += suhbelo2 * 3
	set clrbelo += suhbelo2
	set suhbelo2 = 0
	set manna   -= 10
	set elektro += 10

	!'<center><img src="images\etogame\belo.jpg"></center>'

	if nude = 0:
		'<center><img src="images\community\iron_dressed.jpg"></center>'
	end
	if nude = 1 and tanga = 1:
		'<center><img src="images\community\iron_underwear.jpg"></center>'
	end
	if nude = 1 and tanga = 0:
		'<center><img src="images\community\iron_naked.jpg"></center>'
	end

	'You iron your underwear.'

	act 'Exit': gt $curloc
}

$showerdin = {
	set cumpussy = 0
	set cumbelly = 0
	set cumass   = 0
	set cumanus  = 0
	set cumlip   = 0
	set cumface  = 0
	set cumanus  = 0
}

!WD: Replaced with new code from Przemar
!$kiosksig = {
	cls

	'<center><img src="images\community\kiosk.jpg"></center>'
	'A pack of cigarettes costs 50 rubles.'

	if money >= 50:
		act 'Buy a pack of cigarettes':
			siga  += 20
			money -= 50
			minut += 5
			gt $curloc
		end
	end

	act 'Leave': gt $curloc
	exit
}


!Przemar: ** KIOSK ** ver 02
!Przemar: IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles'
!WD: Set  "SUB >= 15" for act - Will need balancing / playtesting
$kiosksig = {
	cls
	gs'stat'
	'<center><img src="images\community\kiosk.jpg"></center>'
	'A pack of cigarettes costs 50 rubles.'
	*pl

	if money >= 50:
		if hour >= 12 and hour <= 15:
			'<center><img src="images\community\queue.jpg"></center>'
			'There''s a long queue infron of the kiosk.'

			act 'Wait in line and buy cigarettes (30 Minutes)':
				minut += 30
				siga  += 20
				money -= 50
				gt $curloc
				act 'Leave': gt $curloc
			end

			if exhibi >= 4:
				act 'Flash both your tits and your pussy':
					cls
					gs'stat'
					minut  += 10
					siga   += 20
					money  -= 50
					if kioskflash = 0:
						set exhibi += 1
						set kioskflash = 1
					end
					'<center><img src="images\community\flash_tits_pus.jpg"></center>'
					'The people infront of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up in the queue.'
					act 'Buy and leave': gt $curloc
				end
			end

			if exhibi >= 3:
				act 'Flash your pussy':
					cls
					gs'stat'
					minut  += 10
					siga   += 20
					money  -= 50
					if kioskflash = 0:
						set exhibi += 1
						set kioskflash = 1
					end
					if lobok >= 2:'<center><img src="images\community\flash_hairy.jpg"></center>'
					if lobok <= 2:'<center><img src="images\community\flash_nohairy.jpg"></center>'
					'The people infront of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up in the queue.'
					act 'Buy and leave': gt $curloc
				end
			end

			if exhibi >= 2:
				act 'Flash your tits':
					cls
					gs'stat'
					minut  += 10
					siga   += 20
					money  -= 50
					if kioskflash = 0:
						set exhibi += 1
						set kioskflash = 1
					end
					'<center><img src="images\community\flash_tits.jpg"></center>'
					'The people infront of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up in the queue.'
					act 'Buy and leave': gt $curloc
				end
			end

			if SUB >= 15:
				act 'Suggest to blow someone infront of you':
					cls
					gs'stat'
					minut  += 10
					siga   += 20
					money  -= 50
					throat += 1
					bj     += 1

					if cumlip = 0:
						'<center><img src="images\community\kiosk_blowjob.jpg"></center>'
						'A man agreed to your suggestion and let''s you move infront of him.'

						act 'Cum on face':
							cls
							'<center><img src="images\body\cumface.jpg"></center>'
							'The man cums on your face.'
							cumface += 1
							act 'Go away and buy cigarettes': gt $curloc
						end

						act 'Cum in mouth':
							cls
							'<center><img src="images\etogame\cumlip.jpg"></center>'
							'The man cums inside your mouth.'
							cumlip += 1
							act 'Go away and buy cigarettes': gt $curloc
						end

					!if cumlip = 1:
					else

						!Przemar: IMAGE NEEDED
						'<center><img src="images\community\Image_needed.png"></center>'
						'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles.'
						minut += 240
						siga  += 20
						money -= 200
						act 'Leave': gt $curloc
					end
				end
			end

		!if money >= 50 and hour > 15 or hour < 12:
		else
			act 'Buy a pack of cigarettes':
				siga  += 20
				money -= 50
				minut += 5
				gt $curloc
			end
		end

	!if money < 50
	else

		'Not enough money to buy cigarettes.'
	end

	act 'Leave': gt $curloc
	exit
}


$budilnik = {
	'<B><center><font size = 4><font color = black> Clock</font></center></B>'
	'Clock wound <<alarm1>> hours <<alarm2>> minutes'
	'<B><center><font size = 3><font color = black> Hours Minutes</font></center></B>'
	'<center><a href="exec:set alarm1 = 01 & gt $curloc">01</a> <a href="exec:set alarm1 = 02 & gt $curloc">02</a><a href="exec:set alarm1 = 03 & gt $curloc">03</a><a href="exec:set alarm1 = 04 & gt $curloc">04</a><a href="exec:set alarm1 = 05 & gt $curloc">05</a></center>'
	'<center><a href="exec:set alarm1 = 06 & gt $curloc">06</a> <a href="exec:set alarm1 = 07 & gt $curloc">07</a><a href="exec:set alarm1 = 08 & gt $curloc">08</a><a href="exec:set alarm1 = 09 & gt $curloc">09</a><a href="exec:set alarm1 = 10 & gt $curloc">10</a><a href="exec:set alarm2 = 00 & gt $curloc">00</a><a href="exec:set alarm2 = 05 & gt $curloc">05 ( 3)<a href="exec:set alarm2 = 10 & gt $curloc">10</a><a href="exec:set alarm2 = 15 & gt $curloc">15</a></center>'
	'<center><a href="exec:set alarm1 = 11 & gt $curloc">11</a> <a href="exec:set alarm1 = 12 & gt $curloc">12</a><a href="exec:set alarm1 = 13 & gt $curloc">13</a><a href="exec:set alarm1 = 14 & gt $curloc">14</a><a href="exec:set alarm1 = 15 & gt $curloc">15</a><a href="exec:set alarm2 = 20 & gt $curloc">20</a><a href="exec:set alarm2 = 25 & gt $curloc">25 ( 3)<a href="exec:set alarm2 = 30 & gt $curloc">30</a><a href="exec:set alarm2 = 35 & gt $curloc">35</a></center>'
	'<center><a href="exec:set alarm1 = 16 & gt $curloc">16</a> <a href="exec:set alarm1 = 17 & gt $curloc">17</a><a href="exec:set alarm1 = 18 & gt $curloc">18</a><a href="exec:set alarm1 = 19 & gt $curloc">19</a><a href="exec:set alarm1 = 20 & gt $curloc">20</a><a href="exec:set alarm2 = 40 & gt $curloc">40</a><a href="exec:set alarm2 = 45 & gt $curloc">45 ( 3)<a href="exec:set alarm2 = 50 & gt $curloc">50</a><a href="exec:set alarm2 = 55 & gt $curloc">55</a></center>'
	'<center><a href="exec:set alarm1 = 21 & gt $curloc">21</a> <a href="exec:set alarm1 = 22 & gt $curloc">22</a><a href="exec:set alarm1 = 23 & gt $curloc">23</a><a href="exec:set alarm1 = 00 & gt $curloc">00</a></center>'
}

$margoroomdiDush = {
	cls
	minut += 15
	QWdogreiqTimer = 7
	QWdogReiq = 2
	gs 'stat'
	'You undress and go to the track for Margarita in shower.There not really had time to Pick up the bathroom as Marguerite in pilas in your lips with a kiss.'

	act 'Lick my nipples':
		cls
		minut += 15
		horny += 50
		if MargoSex = 0: MargoSex = 1 & girl += 1
		lesbian += 1
		gs 'stat'
		'<center><img src="images\zoo\margo2.jpg"></center>'
		'Margarita took the swollen nipples on alternate SG in his mouth, he began to lick them and their sharp little teeth biting'
		act 'Hold it': gt 'korr'
	end

	act 'Lick my vagina':
		cls
		minut += 15
		horny += 20
		if MargoSex = 0: MargoSex = 1 & girl += 1
		lesbian += 1
		gs 'stat'
		'<center><img src="images\zoo\margo3.jpg"></center>'
		'Margarita kneels and nachenaet his tongue oblizovat vagina of her actions in the body run by a pleasant body wave.'
		if horny >= 90: horny = 0 & orgasm += 1 & 'You covered orgasm.'
		act 'Hold it': gt 'korr'
		end

	act 'Lick my ass':
		cls
		minut += 15
		horny += 20
		if MargoSex = 0: MargoSex = 1 & girl += 1
		lesbian += 1
		gs 'stat'
		'<center><img src="images\zoo\margo4.jpg"></center>'
		'nimble and agile tongue Margarita began oblizovat anus, causing a pleasant languor all in the body, it seemed a little margarita hole she slowly inserted a finger into her ass and began to make rhythmic movements.'
		if horny >= 99: horny = 0 & orgasm += 1 & 'You covered orgasm.'
		act 'Hold it': gt 'korr'
		if anus > 15 and horny > 0:
			act 'Stick me in the ass hand':
			cls
			minut += 15
			horny += 60
			anus += 5
			gs 'stat'
			'<center><img src="images\zoo\margo5.jpg"></center>'
			'First one paeets, then two, three and so the whole entire hand. She quickly found herself in the depths of ass. It´s incredible. I still had no hand in its entirety. And so it happened. Margarita penetrated deeper and deeper and I was in seventh heaven. Supple ass took a hand. Was incredibly good. She massaged me inside like a real iskusstnitsa, causing me to moan loudly and wagging his ass with pleasure.'
			if horny >= 90: horny = 0 & orgasm += 1 & 'You covered orgasm.'
			act 'Hold it': gt 'korr'
			end
		end
	end
}

$margoroomdi3 = {
	cls
	minut += 15
	gs 'stat'
	'You undress and go to the track for Margarita in shower.There not really had time to Pick up the bathroom as Marguerite in pilas in your lips with a kiss.'
	act 'Lick my nipples':
	cls
	minut += 15
	horny += 50
	if MargoSex = 0: MargoSex = 1 & girl += 1
	lesbian += 1
	gs 'stat'
	'<center><img src="images\zoo\margo2.jpg"></center>'
	'Margarita took your swollen nipples into his mouth on the next, taking them to lick and nibble on their sharp little teeth'
	act 'Walk into a room': dynamic $margoroomdi2
	end

	act 'Lick my vagina':
	cls
	minut += 15
	horny += 20
	if MargoSex = 0: MargoSex = 1 & girl += 1
	lesbian += 1
	gs 'stat'
	'<center><img src="images\zoo\margo3.jpg"></center>'
	'Margarita kneels and nachenaet his tongue oblizovat vagina of her actions in the body run by a pleasant body wave.'
	if horny >= 90: horny = 0 & orgasm += 1 & 'You covered orgasm.'
	act 'Walk into a room': dynamic $margoroomdi2
	end

	act 'Lick my ass':
	cls
	minut += 15
	horny += 20
	if MargoSex = 0: MargoSex = 1 & girl += 1
	lesbian += 1
	gs 'stat'
	'<center><img src="images\zoo\margo4.jpg"></center>'
	'nimble and agile tongue Margarita began oblizovat anus, causing a pleasant languor all in the body, it seemed a little margarita hole she slowly inserted a finger into her ass and began to make rhythmic movements.'
	if horny >= 99: horny = 0 & orgasm += 1 & 'You covered orgasm.'
	act 'Walk into a room': dynamic $margoroomdi2
		if anus > 15 and horny > 0:
			act 'Stick me in the ass hand':
			cls
			minut += 15
			horny += 60
			anus  += 5
			gs 'stat'
			'<center><img src="images\zoo\margo5.jpg"></center>'
			'First one paeets, then two, three and so the whole entire hand. She quickly found herself in the depths of ass. It´s incredible. I still had no hand in its entirety. And so it happened. Margarita penetrated deeper and deeper and I was in seventh heaven. Supple ass took a hand. Was incredibly good. She massaged me inside like a real iskusstnitsa, causing me to moan loudly and wagging his ass with pleasure.'
			if horny >= 90: horny = 0 & orgasm += 1 & 'You covered orgasm.'
			act 'Walk into a room': dynamic $margoroomdi2
			end
		end
	end
}

$margoroomdi2 = {
	cls
	minut += 15
	gs 'stat'
	'-I´m ready: Margarita says entering the hall'
	'very good start, you answer Margarita.'

	act 'Suck in males':
	cls
	minut += 15
	horny += 30
	gs 'stat'
	'<center><img src="images\zoo\margo6.jpg"></center>'
	'Margot leans towards male and settled for an excellent start to suck him. Finally a member of the dog in the alert.'

		act 'Insert dog dick in her ass.':
		cls
		minut += 15
		horny += 30
		gs 'stat'
		'<center><img src="images\zoo\anal.jpg"></center>'
		'Maragrita becomes chetverenki on and you naprvlyaete cock into her anus, pochuvstovat that hoditsya anus cable nachel rhythmic action 2 times faster, Margarita already squealed as the most natural bitch.'
		'Margarita suddenly sobbed and then abruptly as nadtyazhno groaned and rolled her eyes with tears.'
		'Margaret, what happened, you got closer.'
		'<<$name>> it stuck in me-quite said Margarita and licked her lips, feeling unusual, something to push against the walls of the anus and turns odnovremnno painful and pleasant, I did not yet ispytovala.'
		'yes, unusual and pleasant feelings, then I completely agree Stobie, just do not make any sudden movements and jerk dog can break you, your wonderful ass-vyreshili show some care towards Margarita.'
		'<<$name>> you know I looked so there zooporno girl 19 years pools overlook 3 hours 17 males, then she ate moved Margarita licked her lips: this will trenirovatsya that would kill her record.'
		'Rit, you like a little video is certainly postonovochnoe-skeptical otveteli you no light on this video my father personally for himself zakazaval Margarita tried to change position but the dog viciously zarychla and Margaita left-poytki be freed so that not what postovki.'
		'unexpected knot in anus Margarita opal, and a member of the dog with a strange sound "PSCs" vyskochil.Iz ass margaritas flowed sperm peremeshku blood.'
		'Ohrenet Margarita delighted, I now will often proktikovat zoo, bath, and all I´m going home.'
		act 'Walk-in shower with Margarita': dynamic $margoroomdiDush
		end
	end
}

$margoroomdi = {
	cls
	minut += 15
	gs 'stat'
	'YOU a little bit ajar and look after her but nothing happens Margarita just moetsya.Vy mark that she beautiful body.'
	act 'Walk into a room': dynamic $margoroomdi2
}

$margokafedin = {
	cls
	minut += 15
	gs 'stat'
	'<center><img src="images\zoo\margo.jpg"></center>'
	'You are going to summon the waitress but here comes the Cafe Margarita, you noticing it immediately comes to your table.'
	'Hi sorry that lingered unforeseen circumstances Margarita sits at a table.'

	if MargoSex = 0:
		'And so ochem you wanted to talk to me? Once you took the bull by the horns.'
		'About zoosekse, you´re practicing it?-Asked Margarita.'
		'Yeah, no, you shit?-YOU decided to show a bit of character.'
		'I like the zoo-last words Margarita said not very confident - and I would like to try.'
		'Do you have a dog? - Her words you amused, causing slight smirk.'
		'In that case there is, I live with my parents and they are not allowed to start a dog - those words Margarita sighed sadly.'
		'And you want to go under my dog? - You´ve already undisguised sarcasm.'
		'Well, yes - Margarita missed your sarcasm on deaf ears'
	else
		'You sat at the table with Margot and she admitted that she liked with the dog and she wants more.'
	end

	act 'Disassemble itself (Go)': gt 'street'

	if husbandMark <= 0 and husband <= 0:
		act 'Come then to me':
			cls
			minut += 15
			gs 'stat'
			'You and Margaret rose from the table and went to your home. Already in the apartment Margarita went into the shower.'
			act 'Peek into the soul': dynamic $margoroomdi
			act 'Wait in the room': dynamic $margoroomdi2
			if horny >= 50: act 'Login to Margarita in shower': dynamic $margoroomdi3
		end
	end
}

$butikreiqdi = {
	cls
	minut += 5
	gs 'stat'
	'Starting to turn my head, you nobody unnoticed, but your actions have attracted prodovtsa, dealer young girl in a shirt with a little too narrow logotpom Boutique enough that her shirt was so testnovata and had to unbutton the top button (MDA-YOU think whether it is men´s boutique shirt obtyag would be understandable, but in the female? for what and what the administration is thinking?) coming to you a little bit inconsistent and quickly asked:'
	'Seller: I can help you or what?'
	act 'No, thank you': gt 'butik','start'
	act 'Silently leave': gt 'down'

	act 'Staring at her breasts':
		cls
		minut += 5
		horny += 50
		gs 'stat'
		'Seeing that the saleswoman novichik and you will most likely her first client decided on it poizgolyatsya.Vy only opened his mouth to say that what some harsh sentence, his eyes rested on his chest. Bra compartment jacketed successfully emphasized breasts, and although there was visible only upper chest, your imagination has completed everything for you. (Interesting and what her nipples? Neozhidonno flashed in the brain)'
		'yes, goaorite YOU give me a few minutes of your time.'
		'Your words made vpechetlenie on saleswoman she was embarrassed and blushed slightly.'
		'YES, YES, YES-set against it: what exactly the color of the dress, the neckline of the dress form, you freer dress or turnover pocherknut YOU want your ideal figure?'
		'Stop, stop, you say: first I Quam to contact YOU are all the same person and not an impersonal suschesstvo? Your words made the girl vpechetlenie, ord yavna flattered by your words.'
		'Irina-says the girl, and then poprovlyaetsya: shopper Rima.'
		'I can call you Rima? Ask you-and I´m <<$name>>.'
		'Yes, of course as you see fit, and meets Rima you smiling shyly.'

		act 'Choose a dress with Rimma':
			cls
			minut += 5
			gs 'stat'

			if hapri = 1 and mop > 1 and leghair <= 0 and sweat <= 0 and curly > 0 and glamur > 0:
				'You choose things evaluate them together with Rimma and just hang out.'
				'Rima, where fitting? Suddenly ask you'
				'Come-Rima herself as invisible barrier between you gone: the seller by the buyer.'

				act 'Go into the fitting room':
					cls
					minut += 5
					gs 'stat'
					'You together with Rimma went into the dressing room.'

					act 'You do not like it.':
						cls
						minut += 5
						gs 'stat'
						'As a result, spending time in an empty head you left butik.V 2 thoughts: Rima and her body imeeno mysterious and curious observer.'
						'You go home again suddenly feel eyes on me'
						act 'Ignore': gt 'down'

						act 'Look around':
							cls
							minut += 5
							gs 'stat'
							'You started to turn my head sharply looking around.'
							'You notice that the girl looks at you.'

							act 'Approach her':
								cls
								minut += 5
								gs 'stat'
								'YOU silently come and rest against a girl look:'
								*nl
								'Good afternoon, it is pronounced, you do not remember me?'
								'Good day, she says, you do not remember me?'
								'The girl does not respond to your sharpness'
								'In principle, there is no out of the situation that you had?-Must-not the girl answers'
								'What is the situation where when? You will not hide anger.'
								'Yes, in a vacant lot where you are "fun" with a dog-girl replied with a grin.'
								act 'Yes you ohereli! (Go)': gt 'down'

								act 'Extort taken in head? What do you want?':
									cls
									minut         += 5
									QWdogReiq      = 2
									QWdogreiqTimer = 7
									gs 'stat'
									'Decided to blackmail me? Clitoris with one hand plucking another rented? And how much do you want? Viciously proiznositi you: think yourself a damn how much it wants.'
									'Again, your words vyzymele action on devushku.skloniv head to the side, she asked: Tantrum over?'
									'You told her irritably that have not even begun to hysteria.'
									'NO, you´re still on the nerves let´s meet next week, suddenly the girl is pronounced.'
									'let´s you usalo shook his head.'
									'that´s fine my name is Margarita and says the girl looks at you expectantly.'
									'<<$name>>-you reply.'
									'Prior to the meeting, said Margarita and leaves.'
									act 'Leave': gt 'down'
								end
							end
						end
					end

					act 'Remove panties before Rima.':
						cls
						minut += 5
						gs 'stat'
						'You have removed her panties before Rimma and noticed how her cheeks glowed and quickened breathing.'

						act 'Do you like me?':
							cls
							minut   += 5
							orgasm  += 1
							horny    = 0
							lesbian += 1
							if RimmaSex = 0: RimmaSex = 1 & girl += 1
							rimmaday = day
							gs 'stat'
							'<center><img src="images\zoo\primer.jpg"></center>'
							'Rima, do you like me? Quiet you ask a question'
							'yes, very Rimma meets with excitation'
							'Then I lick you require-'
							'Rimma kneels down and begins to kiss not very skillfully body, starting with belly kiss her timid steel turn into a more confident, and covering potsuluyaim oblizovaya Language, Rima reached holmika.Potselovav wet crotch and oblizov it Rimma it slightly prikusla.ot surprises the body flowed sweet languor.'
							'-smell what you smell, Rimma for a few seconds looked up from petting.'
							'After spending the right palm gently on the pubis Rimma fingers spread wet sponge, poked his tongue and ran inside.'
							'Soft reciprocating action of the tongue on the clitoris vyzyvli Rima, mild spasmodic vozbuzhdenie.Neozhidanno Rima has become the language on nadavlevat klitor.Telo already weakly subordinate in the brain stoyalla only one program not to moan for the whole store.'
							'Your body suddenly became sotresat wave spasms, with the last spasm came Orgazm.Slabo moan you knelt.'
							'You are in the light of prostration, and the body in a pleasant languor.'

							act 'Exit out of the dressing':
								cls
								minut         += 5
								QWdogReiq      = 2
								QWdogreiqTimer = 7
								gs 'stat'
								'Rima took you to the door.'
								'<<$name>>, you liked it, Rima asked, blushing.'
								'What do you think? Gone to me, you crave continue.'
								'No, I can `t wait for parents, telling you it looks Rima Rastroenie'
								'Then meet next week?-Ozvuchevaete Offer'
								'let´s Rima looks very happy.'
								'You go home, suddenly behind a woman´s voice:'
								'Goodnight-priznesla stranger.'
								'Looking closely you recognize her girl with a vacant lot.'
								'Hi-fun answered you is you zamnoy all day watching?'
								'Yes, she smiled in response, I saw you in the boutique, go unresolved and there´s decided to wait for you outside.'
								'but why wait? Ask your urgent problem'
								'now too late to meet me next week and talk vyzhydyusche girl looking at you'
								'let´s you easily agreed-way I´m <<$name>>'
								'Margarita had the girl'
								act 'Leave': gt 'down'
							end
						end
					end
				end
			else
				'YOU Rimma perereberaete dress, but could not go nahodite.Vy, Rima is not a lot you sad goodbye'
				act 'Leave': gt 'down'
			end
		end
	end
}

$polactdog = {
	cls
	streetdogday = day
	!if QWdogReiq = 0:QWdogReiq = 1 & QWdogreiqTimer = 7
	zoo   += 1
	minut += 10
	gs 'stat'
	'<center><img src="images\zoo\first.jpg"></center>'
	'After looking around and making sure that no one has you take off clothes:'
	'Soft dog stuck but also rough tongue and began oblizovat pussy, rhythmic action of the dog´s entire body went soft wave excitation, causing a light moan involuntarily.'
	'A few minutes later the dog stops licking and nachinaetsya attempts to capture his bitch, the better to make you stand on chetverenki.Kobel habitual movement on skakivaet you:'

	act 'Send a member of the vagina':
		cls
		minut  += 10
		orgasm += 3
		horny   = 0
		vagina += 3
		gs 'stat'
		'<center><img src="images\zoo\vag.jpg"></center>'
		'You turned to him and began to massage his bag, from which it seemed member, you began to masturbate him, he grew up before our eyes, turning into a formidable club 27sm.Vzyav his penis in her hand, you sent him a little and entered, he did the rest himself, he abruptly pushed and member went hungry pussy. You groaned the first blow, and after three strikes you were already fully strung on a member. Dog began to fuck long but strong strokes, stringing each time member to the hilt with a single blow. Member of the dog almost completely out, left 2 cm, and he abruptly pushed it to its full length with a member of the champ went into the vagina, sex lips tightly wraps it in vozvrate.Orgazmy followed one another, surging waves. Dog all gained pace and more come on, gripped his paws pounding cock in the depths of the vagina.'

		act '....':
			cls
			minut    += 10
			cumpussy += 1
			gs 'stat'
			'<center><img src="images\zoo\vag2.jpg"></center>'
			'You pushed the legs stronger and rested his hands on the ground, becoming more comfortable for males pose pussy greedily swallowing every centimeter of this member, milking him, squeezed along the entire length. Pussy burning and dripping with love juice, selection trickled down his thighs and dripped to the ground. Come on dog became more violent and stronger. Soon he nachel grow site and you began to push her ass towards the penis, trying to swallow it more. Pussy walls you feel that his cock began to grow, and he drove his cock to the base and a little faded. His unit was expanded in pussy, pushing her wall, and binds tightly knot. The dog began to attempt to be freed but the member firmly stuck in her pussy, and she squeezed it tight at the bottom and ringlet not released until it is to pump sperm bitch. You screamed when the sperm hit, filling your pussy completely, his hot sperm that burned inside. A member of the finished and throbbing in your depths, pussy milked him of his boy sucked every last drop. Cum began to flow in the legs trickle. You were completely filled with his sperm. Dog cranked and started back to you pressed it to her a few minutes and stood with him in the castle with a knot in his dick pizde.Kogdaya little opal and you could be released from the site, you fell to the ground, and it flowed from pussy cum, filling all around.'
			if QWdogReiq > 0: act 'Leave': gt 'korr'
			if QWdogReiq = 0: act 'Leave': dynamic $dogreiqdi
		end
	end

	act 'Send dick in the ass':
		cls
		minut  += 10
		orgasm += 3
		horny   = 0
		anus   += 3
		gs 'stat'
		'<center><img src="images\zoo\anal.jpg"></center>'
		'Kneeling in the excited state, a member of the Dog came into the ass. Anus was ajar because of the uncomfortable position and strongly relaxed muscles and his cock slipped inside ass very easily. Sharp rhythmic movements dostovlyaet both pain and pleasure, orgasm followed orgasm. But then he went completely sharp movement in the anus sphincter tightly wraps it, thereby sealing the anus completely.'

		act '....':
			cls
			minut   += 10
			cumanus += 1
			gs 'stat'
			'<center><img src="images\zoo\anal2.jpg"></center>'
			'You felt as he started down the liquid inside ass. Having stood in the castle a few minutes, but the ball on his penis did not decrease and bored dog stand, began to pull out of the anus growling his penis. In pain you started yelling, feeling his huge cock rips anus into 2 parts. Then listen distinctive sound "chpok" and his cock popped out of ass torn from which gushed down the belly of his sperm mixed with secretions from the anus.'
			if QWdogReiq > 0: act 'Leave': gt 'korr'
			if QWdogReiq = 0: act 'Leave': dynamic $dogreiqdi
		end
	end
}

$dogreiqdi = {
	cls
	QWdogReiq      = 1
	QWdogreiqTimer = 7
	minut         += 10
	gs 'stat'
	'<center><img src="images\zoo\girl.jpg"></center>'
	'Vstatv with knees and adjusting shalt you kissed a dog and went home, recovering himself after intercourse, difficulty rising, adjusting his clothes you notice the girl. Girl with curiosity and excitement explicitly looked for all your shows. The girl opens her mouth and wants to say that, but each razvorachevaetsya and escapes. You stay in a mild surprise but also the fact that you were looking for you filed. He called the dog you went home.'
	act 'Leave': gt 'korr'
}

$youriqwest = {
	act 'Go with Yuri':
		cls
		jouryQwNo = 0
		minut    += 30
		gs 'stat'
		'You walked down the street with Yuri, came to the metro, where you went in the car and drove in silence with him in the northern part of the city. Coming out of the subway Yuri led you in the direction of new buildings, all the way you walked in silence and Yuri looked tense. Finally you come to a new nine-story, Yuri opened the front door and you walked in the entrance. Yuri called the elevator and you have arrived at his pad.'

		act 'Enter the apartment':
			cla
			minut += 30
			gs 'stat'
			'You entered a small cozy, one-bedroom apartment. Catches the eye is that lives here, albeit very neat, but a bachelor.'
			'Yuri led you into the hall and seated on a chair. He went into the kitchen and brought champagne with grapes and put it on the table between the two chairs. He sat in a nearby chair and turned on the music control.'
			'It was noticeable that Yuri is not as it can not come up with topics for conversation. The conversation did not jell and finally Yuri resolutely stood up and going to hand you filed "Shall we dance?"'

			act 'Dance with Yuri':
				cla
				minut += 10
				horny += 50
				gs 'stat'
				'You already rather plucked a bit of champagne and you covered intoxication and what that sweet bliss. You took his hand with a smile and Yuri standing with a chair out into the middle of the room. Yuri walked up to you and hugging, began to dance with you. His hands gently glided over your body. You embraced the excitement and you also began to stroke Yuri hands. Yuri pressed to you and how you feel through the fabric, your stomach rests on his hard cock.'

				act 'Touch his crotch':
					cla
					minut += 10
					gs 'stat'
					'You practically without any intention slid his hand over the body of George and stayed on his crotch feeling his standing member. Yuri stifled a sigh from your touch.'

					act 'Unbutton his pants':
						cla
						minut += 10
						gs 'stat'
						'You undid his pants and his hands in his pants to Yuri groped his hard, as if an iron dick and got him out of his pants. His head was hidden under the skin, which fits closely to the head, you prick the skin on the penis revealing crimson, hard head.'

						act 'Squat down and take in the mouth':
							cls
							guy     += 1
							jourySex = 1
							bj      += 1
							minut   += 10
							gs 'stat'
							'<center><img src="images\qwest\youri\bjdance.jpg"></center>'
							'Little hand caressed member Yuri you squatted in front of him and your face was right on standing against the member. You cupped his purple head <<$liptalk>> and started to suck dick. Your lips slid across the smooth and hot cock sucking it. Yuri was moaning and looked down into your eyes. Finally, he choked hissed, "Come to bed."'
							gs 'oral','0'

							act 'Go to bed':
								cls
								minut      += 10
								set $nameV  = 'Yuri'
								$boy        = $nameV
								set dick    = 18
								set silavag = 2
								pose        = 1
								gs 'stat'
								'<center><img src="images\qwest\youri\sex.jpg"></center>'
								'The bed Yuri helped you to undress and put you on all fours ready to enter you.'
								dynamic $sexstart
								'You feel like something solid Bound you pussy.'
								dynamic $sexstart2
								'Yuri rammed so hard you that you broke and fell onto the bed feeding.'

								act 'Moan':
									cls
									minut += 10
									pose   = 1
									gs 'stat'
									'<center><img src="images\qwest\youri\sex1.jpg"></center>'
									'Yuri is not paying attention, the fact that you fell on the bed feeding continued to thrust his cock in you.'
									'He furiously pecked your body and you besspomoschno groaned under him, feeling his cock ramming your insides, pushing his every move.'
									dynamic $sexcum
									'Yuri froze on you kiss on the cheek and went to the bathroom.'

									act 'Go to the bathroom':
										cls
										minut += 10
										horny += 10
										gs 'stat'
										'<center><img src="images\qwest\youri\van.jpg"></center>'
										'You went into the bathroom, where is bathed Yuri, he invited you wash with it. You shrug wearily climbed into the shower.'
										'Yuri began to lather you and you feel like a member of his soft rubbing against your hip began to harden suffused with blood, and rising.'

										act 'Tselovatsya Yuri':
											cls
											minut += 10
											horny += 10
											gs 'stat'
											'<center><img src="images\qwest\youri\shower.jpg"></center>'
											'Yuri attracted you to her and started to kiss you. You already got tired, but the situation excites you and you responded to caress Yuri, too, began to stroke his body.'

											act 'Sucking dick':
												cls
												minut += 10
												horny += 10
												bj    += 1
												gs 'stat'
												'<center><img src="images\qwest\youri\shower1.jpg"></center>'
												'Yuri put you in the bathroom on his haunches and put his still soft dick in your mouth. You started to suck cock, which rose directly in your mouth, filling it. Soon the cock was like a steel and Yuri began to moan. Finally he took a member of your mouth and prepared to stop.'
												gs 'oral','0'

												act 'Substitute person':
													cls
													minut   += 10
													horny   += 10
													cumface += 1
													facial  += 1
													gs 'stat'
													'<center><img src="images\qwest\youri\shower2.jpg"></center>'
													'Cum Yuri slapped you in the face, but it was not much and the flow soon stopped.'

													act 'Take a shower':
														cla
														*clr
														set minut   += 15
														if sweat > -3: set sweat = -3
														set horny   += 1
														set hapri    = 1
														set mop      = 1
														set cumpussy = 0
														set cumbelly = 0
														set cumass   = 0
														set cumlip   = 0
														set cumface  = 0
														set cumanus  = 0
														gs 'stat'
														'<center><img src="images\pics\dush.jpg"></center>'
														'Finally you could get here before the shower and clean up. You showered and went out into the hall prichesyvatsya. There have been expecting you, Yuri, who again was nervous and it was immediately clear that he wants you to show the door.'
														act 'Leave': gt 'nord'
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
}

$meet_boyfriend ={
	set streetrand = RAND(0,100)

	if streetrand >= 10 and bfa < 1:
		set vnerand = RAND(0,300)

		if vnerand <= vnesh:
			gs 'boy'
			'To you came <<$boybody>> <<$boybod>> <<$boyface>>. One <<$boyClo>>'
			'The guy introduced as <<$boy>> and asked your number.'

			act 'Tell him to phone':
				cla
				gs 'boyfrend','start'
				set stopboy = 0
				'<<$boyA>> recorded your phone and left.'
				act 'Complete walk': gt $loc
			end
		end
	end
}

$vladimir_driver={
	if vladimirday = day and vladimirQW = 30 and hour >= 16 and week = 6: '<a href="exec: GT ''qwmeet2''">Before your porch worth audit and near stolidly worth waiting for you driver Glory</a>.'
	if vladimirday = day and vladimirQW = 40 and hour >= 16 and week = 6: '<a href="exec: GT ''qwmeet3''">Before your porch worth audit and near stolidly worth waiting for you driver Glory</a>.'
}
--- dina ---------------------------------

# dinBoroda
$borodachNo = {
	act 'I have enough.':
	cla
	minut += 15
	gs 'stat'
	'You refused to drink and steel This collection of leave. The guard began to persuade you as well stay with him and continue.'
	if SUB < 10: act 'Leave': dom += 1 & gt 'clener','start'
	dynamic $borodachDrink
	end
}
$borodachNo2 = {
	act 'I have to go.':
	cla
	minut += 15
	gs 'stat'
	'This collection of you started but Sasha became persuade you as well stay with him and continue.'
	if DOM > 0 and horny < 50: act 'Leave': dom += 1 & gt 'clener','start'
	dynamic $borodachSex
	end
}
$borodachDrink = {
	act 'Another drink.':
	cla
	minut += 15
	horny += 20
	gs 'stat'
	'You drank some more and eating curds realized that sharply drunk. Hand guard is not looking caressed your ass.'
	dynamic $borodachNo2
	dynamic $borodachSex
	end
}
$borodachSex = {
	act 'Relax.':
	cla
	if borodachSex = 0: borodachSex = 1 & guy += 1
	minut += 5
	horny += 5
	gs 'stat'
	'You are relaxed and began to enjoy hands caressing you. Sasha has openly embraced and started kissing you.'
	'His hands slid under your clothes unbuttoning and removing it. Soon he got to your chest and began to suck your nipples.'
		act 'Lie down on the sofa.':
		cls
		minut += 5
		horny += 20
		gs 'stat'
		borodachSexDay = day
		set sex += 1
		set minut += 30
		set pose = 0
		set $nameV = 'Sasha'
		$boy = $nameV
		set dick = 15
		set silavag = 0
		'<center><img src="images\picV\vag.jpg"></center>'
		'<<$nameV>> put you on the sofa, spread your legs and pull out my hands <<dick>> centimeter dick fingers began to caress your pussy getting ready to enter her.'
		gs 'orgazm','start'
		act 'Leave': gt 'street'
		end
	end
}
$ohrhj = {
	act 'Masturbate him.':
	cla
	minut += 15
	horny += dom
	gs 'stat'
	hj += 1
	'You started stroking his cock her soft handles. Soon Sasha groaned, "I finish soon."'
	dynamic $ohrbj
	dynamic $ohrhjcum
	dynamic $ohrsex
	end
}
$ohrhjcum = {
	act 'Masturbate him further.':
	cls
	minut += 15
	horny += dom
	borodachSexDay = day
	gs 'stat'
	'<center><img src="images\qwest\ohrannik\hjcum.jpg"></center>'
	'Sasha groaned and his cock began to fly jet of sperm in your palm.'
	act 'Leave': gt 'street'
	end
}
$ohrbj = {
	act 'To take by mouth.':
	cls
	minut += 15
	horny += 5
	gs 'stat'
	bj += 1
	picrand = RAND(0,4)
	if picrand = 0: '<center><img src="images\qwest\ohrannik\bj.jpg"></center>'
	if picrand = 1: '<center><img src="images\qwest\ohrannik\bj1.jpg"></center>'
	if picrand = 2: '<center><img src="images\qwest\ohrannik\bj2.jpg"></center>'
	if picrand = 3: '<center><img src="images\qwest\ohrannik\bj3.jpg"></center>'
	if picrand = 4: '<center><img src="images\qwest\ohrannik\bj4.jpg"></center>'
	'You clasped 15 centimeter, strong and warm his dick <<$liptalk>> and began to suck the head caressing tongue and lips treating solid phallus. Sasha groaned, "I´m going to come."'
	dynamic $ohrbjcum
	dynamic $ohrsex
	end
}
$ohrbjcum = {
	act 'Embrace even stronger lips.':
	cls
	minut += 15
	horny += 5 + vaf
	cumlip += 1
	gs 'stat'
	picrand = RAND(0,4)
	if picrand = 0: '<center><img src="images\qwest\ohrannik\bjcum.jpg"></center>'
	if picrand = 1: '<center><img src="images\qwest\ohrannik\bjcum1.jpg"></center>'
	if picrand = 2: '<center><img src="images\qwest\ohrannik\bjcum2.jpg"></center>'
	if picrand = 3: '<center><img src="images\qwest\ohrannik\bjcum3.jpg"></center>'
	if picrand = 4: '<center><img src="images\qwest\ohrannik\bjcum4.jpg"></center>'
	'You redouble their efforts processing your hard cock <<$liptalk>>. Hot jet hit you in the mouth, then another and another. You continued to suck ignoring the fact that you have a mouth full of vigorous sperm. Finally stream dried up.'
	gs 'oral','0'
		act 'Swallow sperm.':
		cls
		minut += 15
		horny += 5
		vaf += 1
		borodachSexDay = day
		gs 'stat'
		picrand = RAND(0,2)
		if picrand = 0: '<center><img src="images\qwest\ohrannik\swallow.jpg"></center>'
		if picrand = 1: '<center><img src="images\qwest\ohrannik\swallow1.jpg"></center>'
		if picrand = 2: '<center><img src="images\qwest\ohrannik\swallow2.jpg"></center>'
		'You have opened my mouth filled with sperm and obliznuvshis swallowed it.'
		act 'Leave': gt 'street'
		end

		act 'Spit sperm.':
		cls
		minut += 15
		horny += 5
		if vaf > 0: vaf -= 1
		borodachSexDay = day
		gs 'stat'
		'<center><img src="images\qwest\ohrannik\spit.jpg"></center>'
		'You have opened my mouth filled with sperm cum spat into the sink.'
		act 'Leave': gt 'street'
		end

	end
}
$ohrsex = {
	act 'Sex.':
	cls
	minut += 5
	horny += 20
	gs 'stat'
	borodachSexDay = day
	set sex += 1
	set minut += 30
	set pose = 0
	set $nameV = 'Sasha'
	set dick = 15
	set silavag = 0
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$nameV>> put you on the sofa, spread your legs and pull out my hands <<dick>> centimeter dick fingers began to caress your pussy getting ready to enter her.'
	gs 'orgazm','start'
	act 'Leave': gt 'street'
	end
}
rikudootvet = 1415
--- dinBoroda ---------------------------------

# dinSex
$universalklient = {
	if klient_needs = 0:$klientwanttext = 'blow job'
	if klient_needs = 1:$klientwanttext = 'sex'
	if klient_needs = 2:$klientwanttext = 'anal'
	'<center><img src="images\etogame\park2.jpg"></center>'
	'You told the client that <<$klientwanttext>> will cost <<ProsMoney * 100>> rubles.'
	dynamic $dinprostable

	if vnpr >= 0:
		if ProsMoney = 1:
			clientPRyes = 1
		end

		if ProsMoney > 1:
			if KlientMON >= ProsMoney:
				if vnpr >= klienVNPR:
					clientPRyes = 1
				else

					clientPRyes = 0
				end
			end

			if KlientMON < ProsMoney:
				if vnpr >= klienVNPR:
					torgklirand = RAND(0,1)

					if torgklirand = 0:
						clientPRyes = 0
					end

					if torgklirand = 1:
						'Client grins and offers <<KlientMON*100>> per job.'

						act 'Agree':
							cla
							clientPRyes = 1
							ProsMoney = KlientMON
							dynamic $dinklient
						end

						act 'Refuse': gt 'prostitute','start'
						exit
					end
				else

					clientPRyes = 0
				end
			end
		end
	end

	if vnpr < 0: clientPRyes = 0
	dynamic $dinklient
}

$dinprostable = {
	vnpr = 0
	if vidage >= 40: vnpr -= 20
	if vidage >= 35 and vidage < 40: vnpr -= 10
	if vidage >= 30 and vidage < 35: vnpr -= 5
	if vidage >= 25 and vidage < 30: vnpr += 1
	if vidage >= 20 and vidage < 25: vnpr += 5
	if vidage >= 18 and vidage < 20: vnpr += 10
	if vidage < 18: vnpr += 15

	if vnesh = -10: vnpr -= 100
	if vnesh < 5 and vnesh>-10: vnpr -= 10
	if vnesh >= 5 and vnesh < 15: vnpr -= 5
	if vnesh >= 15 and vnesh < 30: vnpr += 1
	if vnesh >= 30 and vnesh < 50: vnpr += 5
	if vnesh >= 50: vnpr += 10

	if cumSUM > 0: vnpr -= 10

	if mop = 0: vnpr -= 10
	if mop = 1: vnpr -= 1
	if mop = 2: vnpr += 1
	if mop = 3: vnpr += 5
	if mop = 4: vnpr += 10

	if leghair <= 0: vnpr += 1
	if leghair > 0: vnpr -= 5

	if lobok > 0: vnpr -= 5
	if lobok <= 0: vnpr += 1

	if tan > 0: vnpr += 1

	if curly > 0: vnpr += 1

	if sweat > 0: vnpr -= 10

	if hapri = 0: vnpr -= 1

	if lip = 4: vnpr += 1

	!максимум 40
	!минимум -161
}


$dinklient = {
	if clientPRyes = 1:
		'Client you head nods and opens the door of his car.'
		if klient_needs = 0: dynamic $din_prost_bj
		if klient_needs = 1: dynamic $din_prost_sex
		if klient_needs = 2: dynamic $din_prost_anal
	end

	if clientPRyes = 0:
		'Client meticulously examined you and said, "No, fuck." After that, he started the car and drove away.'
		act 'Leave': gt 'prostitute','start'
	end
}


$din_prost_bj       = {
	act 'Get into the client machine':
		vidageday  -= 5
		set $nameV  = 'stranger'
		set $boy    = 'Client'
		set slutty += 1
		set dick    = RAND(12,21)
		set money  += ProsMoney * 100
		gt 'blowPR','start'
	end
}


$din_prost_sex = {
	act 'Get into the client machine':
		vidageday  -= 10
		set $nameV  = 'stranger'
		set $boy    = 'Client'
		set dick    = RAND(12,21)
		set money  += ProsMoney * 100
		set prosti  = 1
		set slutty += 1
		gt 'blowPR','start'
	end
}


$din_prost_anal = {
	act 'Get into the client machine':
		vidageday      -= 20
		gs 'boy'
		set prosti      = 2
		set analprotect = 0
		set slutty     += 1
		gt 'blowPR','start'
	end
}


$dinrandbj = {
	tperbjran = RAND(0,3)
	if tperbjran = 0:$tperbj = 'You cupped his <<$liptalk>> <<dick>> centimeter member.'
	if tperbjran = 1:$tperbj = 'You cupped his <<$liptalk>> purple head <<dick>> centimeter member'
	if tperbjran = 2:$tperbj = 'You spent your <<$liptalk>> on the head <<dick>> centimeter member and absorbed it into his mouth'
	if tperbjran = 3:$tperbj = '<<dick>> centimeter dick rested you in your <<$liptalk>>you have slightly opened them and let the dick in your mouth.'
	if tperbjran = 4:$tperbj = ''
	if tperbjran = 5:$tperbj = ''
	tperbjran2 = RAND(0,2)
	if tperbjran2 = 0:$tperbj2 = 'Your mouth is filled quickly turned slightly salty and hard cock which you started to suck.'
	if tperbjran2 = 1:$tperbj2 = 'In your mouth went hard and hot cock sucking you started'
	if tperbjran2 = 2:$tperbj2 = 'Hard cock filling your whole mouth, cupping his lips every move you to absorb his throat.'
	if tperbjran2 = 3:$tperbj2 = ''
	if tperbjran2 = 4:$tperbj2 = ''
	if tperbjran2 = 5:$tperbj2 = ''
	'<<$tperbj>>. <<$tperbj2>>'
}


$dinrandswallow = {
	tperswalrand = RAND(0,2)
	if tperswalrand = 0:$tperswal = 'Suddenly your mouth shot a jet of viscous semen.'
	if tperswalrand = 1:$tperswal = 'Cock twitched and jet of sperm flew between your lips into your mouth.'
	if tperswalrand = 2:$tperswal = 'Your mouth filled with sperm when dick between your lips began to finish.'
	tperswalrand2 = RAND(0,2)
	if tperswalrand2 = 0:$tperswal2 = 'Your mouth quickly filled with warm sperm and you feel its sharp taste.'
	if tperswalrand2 = 1:$tperswal2 = 'Cum filled your mouth and began to run down your <<$liptalk2>>'
	if tperswalrand2 = 2:$tperswal2 = 'Hot seed quickly filled mouth making your working experience the whole gamut and sharp tart taste of sperm.'
	tperswalrand3 = RAND(0,2)
	if tperswalrand3 = 0:$tperswal3 = 'You gulped and swallowed the sperm located in your working her mouth. In the mouth, the taste of semen left and felt her scent.'
	if tperswalrand3 = 1:$tperswal3 = 'You swallow warm cum fills your mouth and licked her <<$liptalk3>> licking the remnants of the seed with them.'
	if tperswalrand3 = 2:$tperswal3 = 'You swallowed viscous semen filling your mouth working, and then licked.'
	'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
}


$dinrandfacial = {
}


$venerasiak = {
	if NoSTD = 0:
		tipvenerarand = RAND(0,10)

		if prezik > 0:
			venrand = RAND(0,1000)
			if venrand = 1000: dynamic $veneradinitog
		end

		if prezik <= 0:
			venrand = RAND(0,100)
			if venrand >= 80: dynamic $veneradinitog
		end
	end
}


$veneradinitog = {
	if tipvenerarand >= 8:
		!герпес
		set gerprand = RAND(0,100)

		if gerprand > 90:
			if GerpesOnce = 0: set GerpesOnce = 1
			Venera += 1
			Gerpes += 1
		end
	end

	if tipvenerarand = 7:
		!сифилис
		venerarand = RAND(0,100)

		if venerarand > 95:
			Venera += 1
			if SifacOnce = 0: SifacOnce = 1
			Sifilis += 1
		end
	end

	if tipvenerarand >= 5 and tipvenerarand < 7:
		!гонорея/трипер
		venerarand = RAND(0,100)

		if venerarand > 95:
			Venera += 1
			if TriperOnce = 0: TriperOnce = 1
			Triper += 1
		end
	end

	if tipvenerarand < 5:
		!кандидоз/молочница
		venerarand = RAND(0,100)

		if venerarand > 85:
			if KandidozOnce = 0: KandidozOnce = 1
			Kandidoz += 1
		end
	end
}


$sexstart = {
	set protect    = 0
	set vidageday -= 1

	if prezik > 0 and NoCondomUse = 0:
		!if tabletki <= 0 and prezik > 0 and NoCondomUse = 0:
		set prezik -= 1
		set protect = 1
		'<<$boy>> you took a condom and put it on his <<dick>> centimeter member.'
	end
}


$sexstart2 = {
	frost = 0

	if mesec > 0:
		!Menstruation makes orgasm impossible
		set horny = 0
		set manna -= 10
		set willpower -= 10
		'Mentruation blood slowly flows from your vagina while he fucks you. I´t feels painful and also pleasant. You moan while his <<dick>> centimeter dick fucks your pussy.'
	end

	if mesec <= 0 and vagina > 0:
		!No Menstruatsion
		!horny - excitement
		!vagina - vagina elasticity
		!silavag - male skill: 0-clumsy, 1-middle, 2-stud
		!dick - his penis size
		!orgazm - what kind of orgasm
		!0 - very painful, 1 - hurts, 2 - unpleasant, 3 - so-so, 4 - little orgasm, 5 - orgasm
		set smazka = horny/10
		set prinat = smazka + vagina

		if dick >= prinat * 2:
			!член критично больше возможностей гг
			if silavag = 0: set orgazm = 0
			if silavag = 1: set orgazm = 1
			if silavag = 2: set orgazm = 2
		end

		if dick < prinat*2 and dick > prinat:
			!член больше возможностей гг
			tempval = silavag * 10
			if horny >= (100 - tempval): set orgazm = 5
			if horny < (100 - tempval): set orgazm = 4
			if horny < (90 - tempval): set orgazm = 3
			if horny < (80 - tempval): set orgazm = 2
			if horny < (70 - tempval): set orgazm = 1
			if horny < (60 - tempval): set orgazm = 0
		end

		if dick <= prinat and dick >= vagina:
			!член меньше возможностей гг
			tempval = silavag * 10
			if horny >= (80 - tempval): set orgazm = 5
			if horny < (80 - tempval): set orgazm = 4
			if horny < (60 - tempval): set orgazm = 3
			if horny < (40 - tempval): set orgazm = 2
		end

		if dick <= prinat and dick < vagina:
			tempval = silavag * 10
			if horny >= (100 - tempval): set orgazm = 5
			if horny < (100 - tempval): set orgazm = 4
			if horny < (90 - tempval): set orgazm = 6
		end

		if orgazm = 0:
			vgape = 3
			vgapetime      = totminut
			set horny      = 0
			set manna     -= 15
			set willpower -= 15
			'You groaned in pain when <<$boy>> entered, tears flowed from your eyes and it feel like someone drove a red-hot rod in your vagina. You cry and moan while his <<dick>> centimeter dick fucks your pussy.'
		end

		if orgazm = 1:
			if vgape < 2: vgape = 2
			vgapetime      = totminut
			set horny     -= 10
			set manna     -= 10
			set willpower -= 10
			'You bite your lip in pain when <<$boy>> entered, it is very painful. You are (! frowning !) and moaning in pain while his <<dick>> centimeter dick fucks your pussy.'
		end

		if orgazm = 2:
			if vgape < 1: vgape = 1
			vgapetime      = totminut
			set horny     -= 5
			set manna     -= 5
			set willpower -= 5
			'You winced at the sudden pain when <<$boy>> entered, it hurt but it gradually become quite tolerable. You trying to get aroused while his <<dick>> centimeter dick fucks your pussy, but you did not manage.'
		end

		if orgazm = 3:
			set manna     += 5
			set willpower += 5
			'You are startled by the feeling when your pussy is stretched as <<$boy>> entered. It feels good when his <<dick>> centimeter dick fucks your pussy.'
		end

		if orgazm = 4:
			set manna     += 10
			set willpower += 10
			'You are startled by the feeling when your pussy is stretched as <<$boy>> entered. It feels good when his <<dick>> centimeter dick fucks your pussy. (! Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end. !)'
		end

		if orgazm = 5:
			set horny      = 0
			set manna     += 15
			set willpower += 15
			set orgasm    += 1
			'You flinched from a pleasant feeling when your pussy is stretched by his dick. It feels good when his <<dick>> centimeter dick fucks your pussy. (! Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm !), you scream with pleasure.'
		end

		if orgazm = 6:
			set horny     += 5
			set manna     += 5
			set willpower += 5
			'You feel as his penis enters your pussy. (! Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end. !)'
		end

		if vagina <= dick: set vagina += 1
	end


	if vagina = 0 and mesec <= 0:
		set horny      = 0
		set manna     -= 15
		set willpower -= 15
		set vagina    += 1
		'You bite my lip in pain and tears started to flow from your eyes when <<$boy>> entered, breaking your hymen. You moan while crying and his <<dick>> centimeter dick fucks your bloody pussy.'
	end
	if vagina < dick: vagina += 1
	sex += 1
}


$sexstart3 = {
	frost = 0
	if mesec > 0:
		!месячные, оргазм не возможен
		set horny      = 0
		set manna     -= 10
		set willpower -= 10
		'Do you monthly and while until you jump on the penis from the vagina slowly follows the blood. Painful sensations and pleasant. You moan while strong <<dick>> centimeter penis enters you.'
	end

	if mesec <= 0 and vagina > 0:
		!месячных нет
		!horny - возбужденность
		!vagina - эластичность вагины
		!silavag - умение парня 0-неумеха, 1-середняк 2-ебарь
		!dick - размер члена парня
		!orgazm - коэфициент удовольствия Итог
		!0 - очень больно, 1 - больно, 2 - не приятно, 3 - так себе, 4 - недооргазм 5 - оргазм
		set smazka = horny/10
		set prinat = smazka + vagina

		if dick >= prinat * 2:
		!член критично больше возможностей гг
			if silavag = 0: set orgazm = 0
			if silavag = 1: set orgazm = 1
			if silavag = 2: set orgazm = 2
		end

		if dick < prinat*2 and dick > prinat:
			!член больше возможностей гг
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny >= 80 and horny < 90: set orgazm = 3
				if horny >= 70 and horny < 80: set orgazm = 2
				if horny >= 60 and horny < 70: set orgazm = 1
				if horny < 60: set orgazm = 0
			end

			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny >= 70 and horny < 80: set orgazm = 3
				if horny >= 60 and horny < 70: set orgazm = 2
				if horny >= 50 and horny < 60: set orgazm = 1
				if horny < 50: set orgazm = 0
			end

			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny >= 60 and horny < 70: set orgazm = 3
				if horny >= 50 and horny < 60: set orgazm = 2
				if horny >= 40 and horny < 50: set orgazm = 1
				if horny < 40: set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
			!член меньше возможностей гг
			if silavag = 0:
				if horny >= 80: set orgazm = 5
				if horny >= 60 and horny < 80: set orgazm = 4
				if horny >= 40 and horny < 60: set orgazm = 3
				if horny < 40: set orgazm = 2
			end

			if silavag = 1:
				if horny >= 70: set orgazm = 5
				if horny >= 50 and horny < 70: set orgazm = 4
				if horny >= 30 and horny < 50: set orgazm = 3
				if horny < 30: set orgazm = 2
			end

			if silavag = 2:
				if horny >= 60: set orgazm = 5
				if horny >= 40 and horny < 60: set orgazm = 4
				if horny >= 20 and horny < 40: set orgazm = 3
				if horny < 20: set orgazm = 2
			end
		end

		if dick <= prinat and dick < vagina:
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny < 90: set orgazm = 6
			end

			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny < 80: set orgazm = 6
			end

			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny < 70: set orgazm = 6
			end
		end

		if orgazm = 0:
			if vgape < 3: vgape = 3
			vgapetime      = totminut
			set horny      = 0
			set manna     -= 15
			set willpower -= 15
			'You groaned in pain when sat on and felt like a member of <<$boy>> has entered into you. Tears streamed from his eyes and between my legs feeling as if you drove a red-hot rod. You shed tears while <<dick>> centimeter penis enters you.'
		end

		if orgazm = 1:
			if vgape < 2: vgape = 2
			vgapetime      = totminut
			set horny     -= 10
			set manna     -= 10
			set willpower -= 10
		'You bite my lip in pain when we got on the penis and felt like <<$boy>> entered into you, between your legs painful. You are frowning and moaning in pain while jumping on strong <<dick>> centimeter penis.'
		end

		if orgazm = 2:
			if vgape < 1: vgape = 1
			vgapetime      = totminut
			set horny     -= 5
			set manna     -= 5
			set willpower -= 5
			'You winced at the sudden pain when sat on and felt like a member of <<$boy>> has entered into you, between your legs pain that gradually become calm and quite tolerable. Are you trying to get aroused while jumping on strong <<dick>> centimeter term trahayaschim your pussy, but you do not go out.'
		end

		if orgazm = 3:
			!set horny    += 5
			set manna     += 5
			set willpower += 5
			'You startled by the feeling that your pussy is stretched when sat on and felt like a member of <<$boy>> has entered into you. Between the legs gets a little nice when you jump on strong <<dick>> centimeter penis.'
		end

		if orgazm = 4:
			!set horny    += 10
			set manna     += 10
			set willpower += 10
			'You startled by the feeling that your pussy is stretched when sat on and felt like a member of <<$boy>> has entered into you. Between the legs gets a little nice when you jump on strong <<dick>> centimeter penis. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end

		if orgazm = 5:
			set horny      = 0
			set manna     += 15
			set willpower += 15
			set orgasm    += 1
			'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when you jump on the strong <<dick>> centimeter penis. Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
		end

		if orgazm = 6:
			set horny     += 5
			set manna     += 5
			set willpower += 5
			'You feel as a member enters your pussy when sat on and felt like a member of <<$boy>> has entered into you. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end

		if vagina <= dick: set vagina += 1
	end

	if vagina = 0 and mesec <= 0:
		set horny      = 0
		set manna     -= 15
		set willpower -= 15
		set vagina    += 1
		'You bite my lip in pain and tears gushed from my eyes when we got on the penis and felt like <<$boy>> entered in you break your hymen. You Weep and moan until you jump on strong <<dick>> members of his bloody centimeter pussy.'
	end

	if vagina < dick: vagina += 1
	sex += 1
}


$sexudo = {
	set protect    = 0
	set vidageday -= 1
	frost          = 0

	if prezik > 0 and NoCondomUse = 0:
		!if tabletki <= 0 and prezik > 0 and NoCondomUse = 0:
		set prezik -= 1
		set protect = 1
		'<<$boy>> you took a condom and put it on your <<dick>> centimeter member.'
	end


	if mesec > 0:
		!месячные, оргазм не возможен
		set horny      = 0
		set manna     -= 10
		set willpower -= 10
		'Do you monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> centimeter dick fuck your pussy.'
	end

	if mesec <= 0 and vagina > 0:
		!месячных нет
		!horny - возбужденность
		!vagina - эластичность вагины
		!silavag - умение парня 0-неумеха, 1-середняк 2-ебарь
		!dick - размер члена парня
		!orgazm - коэфициент удовольствия Итог
		!0 - очень больно, 1 - больно, 2 - не приятно, 3 - так себе, 4 - недооргазм 5 - оргазм
		set smazka = horny/10
		set prinat = smazka + vagina

		if dick >= prinat * 2:
			!член критично больше возможностей гг
			if silavag = 0: set orgazm = 0
			if silavag = 1: set orgazm = 1
			if silavag = 2: set orgazm = 2
		end

		if dick < prinat*2 and dick > prinat:
			!член больше возможностей гг
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny >= 80 and horny < 90: set orgazm = 3
				if horny >= 70 and horny < 80: set orgazm = 2
				if horny >= 60 and horny < 70: set orgazm = 1
				if horny < 60: set orgazm = 0
			end

			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny >= 70 and horny < 80: set orgazm = 3
				if horny >= 60 and horny < 70: set orgazm = 2
				if horny >= 50 and horny < 60: set orgazm = 1
				if horny < 50: set orgazm = 0
			end

			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny >= 60 and horny < 70: set orgazm = 3
				if horny >= 50 and horny < 60: set orgazm = 2
				if horny >= 40 and horny < 50: set orgazm = 1
				if horny < 40: set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
			!член меньше возможностей гг
			if silavag = 0:
				if horny >= 80: set orgazm = 5
				if horny >= 60 and horny < 80: set orgazm = 4
				if horny >= 40 and horny < 60: set orgazm = 3
				if horny < 40: set orgazm = 2
			end

			if silavag = 1:
				if horny >= 70: set orgazm = 5
				if horny >= 50 and horny < 70: set orgazm = 4
				if horny >= 30 and horny < 50: set orgazm = 3
				if horny < 30: set orgazm = 2
			end

			if silavag = 2:
				if horny >= 60: set orgazm = 5
				if horny >= 40 and horny < 60: set orgazm = 4
				if horny >= 20 and horny < 40: set orgazm = 3
				if horny < 20: set orgazm = 2
			end
		end

		if dick <= prinat and dick < vagina:

			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny < 90: set orgazm = 6
			end

			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny < 80: set orgazm = 6
			end

			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny < 70: set orgazm = 6
			end
		end

		if orgazm = 0:
		if vgape < 3: vgape = 3
		vgapetime         = totminut
		set horny         = 0
		set manna        -= 15
		set willpower    -= 15
		'You groaned in pain when <<$boy>> you entered, tears flowed from her eyes and between her legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> centimeter dick fuck your pussy.'
		end

		if orgazm = 1:
		if vgape < 2: vgape = 2
		vgapetime        = totminut
		set horny        -= 10
		set manna        -= 10
		set willpower    -= 10
		'You bite my lip in pain when <<$boy>> you entered, between the legs painful. You are frowning and moaning in pain while strong <<dick>> centimeter dick fucks your pussy.'
		end

		if orgazm = 2:
		if vgape < 1: vgape = 1
		vgapetime         = totminut
		set horny        -= 5
		set manna        -= 5
		set willpower    -= 5
		'You winced at the sudden pain when <<$boy>> you entered, between the legs pain that gradually become calm and quite tolerable. Are you trying to get aroused while strong <<dick>> centimeter dick fucks your pussy, but you do not go out.'
		end

		if orgazm = 3:
		!set horny        += 5
		set manna         += 5
		set willpower     += 5
		'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy.'
		end

		if orgazm = 4:
		!set horny        += 10
		set manna         += 10
		set willpower     += 10
		'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end

		if orgazm = 5:
			set horny      = 0
			set manna     += 15
			set willpower += 15
			set orgasm    += 1
			'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> centimeter dick fuck your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
		end

		if orgazm = 6:
			set horny     += 5
			set manna     += 5
			set willpower += 5
			'You feel as a member enters your pussy when <<$boy>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end
		if vagina <= dick: set vagina += 1
	end

	if vagina = 0 and mesec <= 0:
		set horny      = 0
		set manna     -= 15
		set willpower -= 15
		set vagina    += 1
		'You bite my lip in pain and tears gushed from his eyes when <<$boy>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
	end
	if vagina < dick: vagina += 1
	sex += 1

}


$sexcum = {
	frost = 0

	if protect ! 1:
		!Unprotected sex
		set finrand = RAND(0,1)

		if finrand = 0:
			!Inside
			set cumpussy += 1
			'<<$boy>> groaned and you feel a jet of sperm fill your pussy.'

			if tabletki <= 0 and mesec <= 0:
				gs 'preg'
				set manna     -= 15
				set willpower -= 15
				'Damn, (! because after all, you can fly, you thought with horror. !)'
			end
		end

		if finrand = 1:
			!Out

			if pose = 0:
				set cumbelly += 1
				'<<$boy>> groaned and after pulling out came on your stomach.'
			end

			if pose = 1:
				set cumass += 1
				'<<$boy>> groaned and after pulling out came on your ass.'
			end
		end
	end

	if protect = 1:
		set protect = 0
		'<<$boy>> groaned and you realized that he had came in the condom.'
	end
	set pose = 0
}


$analsex = {
	frost = 0
	if analplugin = 1:
		!WD: No Anal Lube if Anal Plug
		!analpluginbonus = 10
		lubonus    = 10
		analplugin = 0
		'<<$boy>> has pulled out of your ass plug'
	end

	if dick >=anus: set anus += 3
	'<<$boy>> began to massage your anus with his fingers.'

	if (lubonus = 0 and lubri > 0):
		lubri   -= 1
		lubonus += RAND(1,5)
		'You squeezed anal lube on your hand and began to smear it in your ass.'
		'Then you gave it to him and he smeared it on his dick'
	end

	if anus < 10: 'When he entered three fingers in your ass you groaned in pain.'
	if anus >= 10: 'He started to stretch your anus with three fingers.'
	'<<$boy>> pulled his fingers out of your ass and you felt his hard cock near your hole.'
	if anus + lubonus + 7 < dick: 'You screamed and bit your lip from a sharp pain when his <<dick>> centimeter dick entered your ass.'
	if anus + lubonus + 7 >= dick: 'You moaned when his <<dick>> centimeter dick entered your ass.'
	'<<$boy>> stopped for a moment, giving your ass time to adjust to his cock in it, and then started to slowly move, stretching your anus.'

	if anus + lubonus + 7 < dick:
		if mop > 1: set mop = 0
		horny -= 20
		manna -= 20
		if agape < 3: agape = 3
		agapetime = totminut
		'You cried and bit your lip when <<dick>> centimeter cock began to fuck your ass on (! full force !). Your ass felt like it was on fire and all you wanted was that this torture was over quickly.'

	elseif (anus + lubonus + 2 < dick) and (anus + lubonus + 7 >= dick):
		horny += 10
		if anal >= 10 and orgasm > 0: manna += 20

		if horny < 70:
			if agape < 2 and lubonus = 0: agape = 2
			if agepe < 2 and lubonus > 0: agape = 1
			agapetime = totminut
			'You started to moan rhythmically in time with the his cock movements inside you. You feel like your anus is stretched when his penis enters you.'
		end

		if horny >= 70:
			!if anal>=10 and orgasm>0:
			!manna+=20
			if agape < 1 and lubonus = 0: agape = 1
			agapetime = totminut
			'Slight pain with far exceeds your arousal and you moan rhythmically in time with the movements of a member within you'
			!'You moan in pleasure while his dick moves inside your ass.'
		end

	!anus + lubonus + 2 >= dick
	else
		horny += 20
		if anal >= 10 and orgasm > 0: manna += 20

		if horny < 70:
			if agape < 1 and lubonus = 0: agape = 1
			agapetime = totminut
			'You actively podmahivat guy and moans in time with the movement members inside you.'
		end

		if horny >= 70: 'Dick in your ass gives you an indescribable pleasure and you will enjoy every second of this sex.'
	end

	lubonus = 0
	!'Through some time man groaned and you feel like your ass fills a pleasant warmth.'
	anal += 1
}
--- dinSex ---------------------------------

# din2
$din_street_cum = {
if cumfrot > 0 or cumface > 0:
	if hour >= 7 and hour <= 21:
	manna -= 10
	'Passers puzzled turn around staring at you. Some pictures on the phone you do not entirely hiding and giggling at you. You clearly noticeable sperm.'
	end
end
}
--- din2 ---------------------------------

# MenuLoc
if $ARGS[0] = 'zapis':
$zapis+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis2':
$zapis2+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis3':
$zapis3+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis4':
$zapis4+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis5':
$zapis5+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis6':
$zapis6+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis7':
$zapis7+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis8':
$zapis8+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis9':
$zapis9+= input ("What do you want to record?")
gs 'stat'
end

if $ARGS[0] = 'zapis10':
$zapis10+= input ("What do you want to record?")
gs 'stat'
end


if $ARGS[0] = 'diszapis':
$zapis = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis2':
$zapis2 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis3':
$zapis3 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis4':
$zapis4 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis5':
$zapis5 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis6':
$zapis6 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis7':
$zapis7 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis8':
$zapis8 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis9':
$zapis9 = ''
gs 'stat'
end

if $ARGS[0] = 'diszapis10':
$zapis10 = ''
gs 'stat'
end
--- MenuLoc ---------------------------------

# MenuMainLoc
if $ARGS[0] = '0':
ETOmenu = 0
gs 'stat'
end
if $ARGS[0] = '1':
ETOmenu = 1
gs 'stat'
end
--- MenuMainLoc ---------------------------------

# oral
if $ARGS[0] = 'start':
frost = 0
'You little fingers caress <<dick>> centimeter term then cupped his mouth and began to suck.'
	if harakBoy = 0:
	'<<$nameV>> closed his eyes in pleasure and enjoying the caress of your lips.'
	end
	if harakBoy = 1:
	'<<$nameV>> staring you in the face until your lips glide over his hard dick.'
	end
	if harakBoy = 2:
	if mop > 1: set mop = 0
	set hapri = 0
	set throat += 1
	'<<$nameV>> to take you by the hair and began to fuck you in the mouth, from blows to the throat member you tears flowed from his eyes.'
	end
	set horny += throat + SUB + VAF - DOM

	if horny >= 100:
	set VAF += 1
	set orgasm += 1
	set horny = 20
	set manna += 15
	set willpower += 15
	set lipkoef += 1
		if lipkoef > 50:
		set lipkoef = 0
		set lip += 1
		end
	'Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.'
	end
'Finally <<$nameV>> groaned and you realize that now he will start to finish.'
end

if $ARGS[0] = '0':

	set horny += throat + SUB + VAF - DOM

	if horny >= 100:
	set VAF += 1
	set orgasm += 1
	set horny = 20
	set manna += 15
	set willpower += 15
	set lipkoef += 1
		if lipkoef > 50:
		set lipkoef = 0
		set lip += 1
		end
	'Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.'
	end

end
--- oral ---------------------------------

# orgazm
if $ARGS[0] = 'start':
!set protect = 0
set vidageday -= 1
frost = 0
	if tabletki <= 0 and prezik > 0 and prosta = 0 and NoCondomUse = 0 and usecondom = 0:
	set prezik -= 1
	set protect = 1
	'You gave the guy a condom and he dressed him in silence.'
	end

	if tabletki >= 0 and prezik > 0 and prosta > 0 and NoCondomUse = 0 and usecondom = 0:
	set prezik -= 1
	set protect = 1
	end

	if tabletki <= 0 and prezik > 0 and NoCondomUse = 0 and usecondom = 0:
	set prezik -= 1
	set protect = 1
	end
	usecondom = 0

	if mesec > 0:
	!месячные, оргазм не возможен
	set horny = 0
	set manna -= 10
	set willpower -= 10
	'Do you monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> centimeter dick fuck your pussy.'
	end

	if mesec <= 0 and vagina > 0:
	!месячных нет
	!horny - возбужденность
	!vagina - эластичность вагины
	!silavag - умение парня 0-неумеха, 1-середняк 2-ебарь
	!dick - размер члена парня
	!orgazm - коэфициент удовольствия Итог
	!0 - очень больно, 1 - больно, 2 - не приятно, 3 - так себе, 4 - недооргазм 5 - оргазм
	set smazka = horny/10
	set prinat = smazka + vagina
		if dick >= prinat * 2:
		!член критично больше возможностей гг
			if silavag = 0: set orgazm = 0
			if silavag = 1: set orgazm = 1
			if silavag = 2: set orgazm = 2
		end

		if dick < prinat*2 and dick > prinat:
		!член больше возможностей гг
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny >= 80 and horny < 90: set orgazm = 3
				if horny >= 70 and horny < 80: set orgazm = 2
				if horny >= 60 and horny < 70: set orgazm = 1
				if horny < 60: set orgazm = 0
			end
			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny >= 70 and horny < 80: set orgazm = 3
				if horny >= 60 and horny < 70: set orgazm = 2
				if horny >= 50 and horny < 60: set orgazm = 1
				if horny < 50: set orgazm = 0
			end
			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny >= 60 and horny < 70: set orgazm = 3
				if horny >= 50 and horny < 60: set orgazm = 2
				if horny >= 40 and horny < 50: set orgazm = 1
				if horny < 40: set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
		!член меньше возможностей гг
			if silavag = 0:
				if horny >= 80: set orgazm = 5
				if horny >= 60 and horny < 80: set orgazm = 4
				if horny >= 40 and horny < 60: set orgazm = 3
				if horny < 40: set orgazm = 2
			end
			if silavag = 1:
				if horny >= 70: set orgazm = 5
				if horny >= 50 and horny < 70: set orgazm = 4
				if horny >= 30 and horny < 50: set orgazm = 3
				if horny < 30: set orgazm = 2
			end
			if silavag = 2:
				if horny >= 60: set orgazm = 5
				if horny >= 40 and horny < 60: set orgazm = 4
				if horny >= 20 and horny < 40: set orgazm = 3
				if horny < 20: set orgazm = 2
			end
		end
		if dick <= prinat and dick < vagina:
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny < 90: set orgazm = 6
			end
			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny < 80: set orgazm = 6
			end
			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny < 70: set orgazm = 6
			end
		end

		if orgazm = 0:
		set horny = 0
		set manna -= 15
		set willpower -= 15
		'You groaned in pain when <<$nameV>> you entered, tears flowed from her eyes and between her legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> centimeter dick fuck your pussy.'
		end
		if orgazm = 1:
		set horny -= 10
		set manna -= 10
		set willpower -= 10
		'You bite my lip in pain when <<$nameV>> you entered, between the legs painful. You are frowning and moaning in pain while strong <<dick>> centimeter dick fucks your pussy.'
		end
		if orgazm = 2:
		set horny -= 5
		set manna -= 5
		set willpower -= 5
		'You winced at the sudden pain when <<$nameV>> you entered, between the legs pain that gradually become calm and quite tolerable. Are you trying to get aroused while strong <<dick>> centimeter dick fucks your pussy, but you do not go out.'
		end
		if orgazm = 3:
		!set horny += 5
		set manna += 5
		set willpower += 5
		'You startled by the feeling that your pussy is stretched when <<$nameV>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy.'
		end
		if orgazm = 4:
		!set horny += 10
		set manna += 10
		set willpower += 10
		'You startled by the feeling that your pussy is stretched when <<$nameV>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and ripple grow in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end
		if orgazm = 5:
		set horny = 0
		set manna += 15
		set willpower += 15
		set orgasm += 1
		'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> centimeter dick fuck your pussy. Gradually a pleasant warmth and ripple grow in the lower abdomen, and then the feeling came down on you and your whole body cover hot waves of orgasm, you can not help screaming pleasure writhing on edge.'
		end
		if orgazm = 6:
		set horny += 5
		set manna += 5
		set willpower += 5
		'You feel as a member enters your pussy when <<$nameV>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Gradually a pleasant warmth and ripple grow in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end
		if vagina <= dick: set vagina += 1
	end

	if vagina = 0 and mesec <= 0:
	set horny = 0
	set manna -= 15
	set willpower -= 15
	set vagina += 1
	'You bite my lip in pain and tears gushed from his eyes when <<$nameV>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
	end

	if protect ! 1:
	!не защищенный секс
	set finrand = RAND(0,1)
		if finrand = 0:
		!внутрь
		set cumpussy += 1
		'<<$nameV>> groaned and you feel like jet of sperm hit you inside your body.'
			if tabletki <= 0 and mesec <= 0:
			gs 'preg'
			set manna -= 15
			set willpower -= 15
			'Hell, because after all, you can fly, you thought with horror.'
			end
		end
		if finrand = 1:
		!наружу
			if pose = 0:
			set cumbelly += 1
			'<<$nameV>> groaned and removing a member of you finished your stomach.'
			end
			if pose = 1:
			set cumass += 1
			'<<$nameV>> groaned and removing a member of you finished on your ass.'
			end
		end
	end
	if protect = 1:
	set protect = 0
	'<<$nameV>> groaned and you realized that he had finished in the condom.'
	end
set pose = 0
end
--- orgazm ---------------------------------

# preg
if mesec = 0 and preg = 0 and tabletki = 0:
!нет месячных
Set pregrand = RAND(0,100)
	if pregrand + fertBonus >= 93:
	$father = $boy
	set preg = 1

	end
end
--- preg ---------------------------------

# starenie
if odetjeans = 1: set jeansH[numdress] -= 1
if odetyoga = 1: set yogaH[numdress] -= 1
if odetsarafan = 1: set sarafanH[numdress] -= 1
if odetshort = 1: set shortH[numdress] -= 1
if odetskirt = 1: set skirtH[numdress] -= 1
if odetdress = 1: set dressH[numdress] -= 1
if odetprofi = 1: set profiH[numdress] -= 1
if odetpants = 1: set pantsH[numdress] -= 1
if odetlatex = 1: set latexH[numdress] -= 1
if odethooker = 1: set hookerH[numdress] -= 1
if odetkis = 1: set odekisH[numdress] -= 1
if odetnewclo = 1: set newcloH[numdress] -= 1
--- starenie ---------------------------------

# stat
clr

view

if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1: newclo[131] = 0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
if AutoMakeupType < 2: AutoMakeupType = 2
if AutoHapri = 1 and greben > 0 and hapri = 0 and InSleep = 0:
	set hapri = 1
	'You brush your hair.'
end

if $HouseLocation = '':$HouseLocation = 'street'
if housr = 1: housr['Street'] = 1
if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
	set mop = AutoMakeupType
	if $CurLoc = vanr or $CurLoc = vanrPar or bag > 0:
		if kosmetica < 3 and mop = 4: set mop = 3
		if kosmetica < 2 and mop = 3: set mop = 2
		if kosmetica < 1 and mop ! 1:
			set mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				set kosmetica -= 1
			end
			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				set kosmetica -= 2
			end
			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				set vidageday -= 1
				set kosmetica -= 3
			end
		end
	else
		if kosmetitka < 3 and mop = 4: set mop = 3
		if kosmetitka < 2 and mop = 3: set mop = 2
		if kosmetitka < 1 and mop ! 1:
			set mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				set kosmetitka -= 1
			end
			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				set kosmetitka -= 2
			end
			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				set vidageday -= 1
				set kosmetitka -= 3
			end
		end
	end
end

if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
	if $CurLoc = vanr or $CurLoc = vanrPar:
		set vibratorIN = 1
		if vagina < 30:
			set vagina = vagina + 2
		end
	end
end

if AutoButtPlug = 1 and analplug = 1 and analplugIN = 0:
	if $CurLoc = vanr or $CurLoc = vanrPar:
		set analplugIN = 1
		if anus < 30:
			set anus = anus + 5
		end
	end
end

if AutoEnema = 1 and klismaday ! day:
	if $CurLoc = vanr or $CurLoc = vanrPar:
		!set minut = minut + 5
		set klismaday = day
		set klismaday1= 1
		set AEnema = 0
		!'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
	end
end

if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
	set minut -= 10
	set lipbalm -= 1
	set lipkoef += RAND(5,15)
	if lipkoef > 50:
		set lipkoef = 0
		set lip += 1
	end
	set lipbalmstat += 8
	'You apply a lip balm, to moisterize them.'
end

if AutoVitamins=1:
	if vitamin>0 and vitaminday!day:
		vitaminday=day
		vitamin-=1
		frost=0
		if KandidozOnce=1:Kandidoz-=2
		if GerpesOnce=1:Gerpes-=2
		if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
		set skinvan = skinvan + 1
		if skinvan = 20:set skinvan = 0&set skin = skin + 1
	end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DeX Cheats
if cheatNewMovieDay = 1:
	if pffilmday ! -1: pffilmday = -1
end
if cheatNewPhotoDay = 1:
	if modelmon = month: modelmon = month - 1
end
if cheatYoungForever = 1:
	if vidageday ! 300: vidageday = 300
end
if cheatHealthMaxed = 1:
	set tempval = vital * 10 + stren * 5 + 1000
	if health ! tempval: health = tempval
end
if cheatWillMaxed = 1:
	set tempval = intel * 5 + will * 5 + 1000
	if willpower ! tempval: willpower = tempval
end
if cheatManaMaxed = 1:
	set tempval = (intel * magik) + magik * 100 + vital * 10 + rikudo
	if manna ! tempval: manna = tempval
end
if cheatNeverHorny = 1:
	if horny ! 0: horny = 0
end
if cheatModelStudent = 1:
	if suspeh ! 100: suspeh = 100
end
if freezetime = 1:
	if hour ! dctth: hour = dctth
	if minut ! dcttm: minut = dctth
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Author Cheats
if cheatHapri = 1: hapri = 1
if cheatNomakeup = 1:
if mop = 0: mop = 1
end

if cheatNosweat = 1 and sweat > -3: set sweat = -3
if cheatNoEat = 1:
if energy ! 19: energy = 19
if water ! 19: water = 19
end

if cheatAlwaysHorny=1:
	if horny ! 100: horny = 100
end

if cheatNoLegHair=1:
	if leghair ! 0: leghair = 0
end

if cheatNoPussyHair=1:
	if lobok ! 0: lobok = 0
end

if cheatNeverTired=1:
	if son < 25: son = 25
end

if cheatNeverThirsty=1:
	if water < 25: water = 25
end

if cheatNeverHungry=1:
	if energy < 25: energy = 25
end

if cheatAlwaysVirgin=1:
	if vagina ! 0: vagina = 0
end

if cheatVaginaHealth=1:
	if mosol ! 0: mosol = 0
end

if cheatAlwaysMarried=1:
	if husband ! 100: husband = 100
end

if cheatNoSTDs=1:
	if venera ! 0: venera = 0
	if GerpesOnce ! 0: GerpesOnce = 0
	if Gerpes ! 0: Gerpes = 0
	if SifacOnce ! 0: SifacOnce = 0
	if Sifilis ! 0: Sifilis = 0
	if KandidozOnce ! 0: KandidozOnce = 0
	if Kandidoz ! 0: Kandidoz = 0
	if TriperOnce ! 0: TriperOnce = 0
	if Triper ! 0: Triper = 0
end

if cheatNoSweat=1:
	if sweat ! -3: sweat = -3
end

if cheatNoPeriods=1:
	if mesec ! 0: mesec = 0
end

if cheatBrushedHair=1:
	if hapri ! 1: hapri = 1
end

if cheatAlwaysMakeup=1:
	if kosmetica=0:kosmetica+=50
	if cheatMakeupSelect=1:set mop=1
	if cheatMakeupSelect=2:set mop=2
	if cheatMakeupSelect=3:set mop=3
	if cheatMakeupSelect=4:set mop=4
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!TRACKER
if $DBCurLoc ! $CURLOC:
	i = arrsize ('$DBPrevLoc')
	if i = 20:
		killvar '$DBPrevLoc', 0
	end
	$DBPrevLoc[i] = $DBCurLoc
	$DBCurLoc = $CURLOC
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if alko > 0 and frost > 0: frost = 0

if lernSkill >= 8: intel += 1 & lernSkill = 0

if numdress ! 131 and Sforma > 0: set Sforma = 0
if numdress = 131 and Sforma = 0: set Sforma = 1

if lern >= 10: intel += 1 & lern = 0

if GorSlut = 1:$gnikname = 'flirt'
if GorSlut = 2:$gnikname = 'easy A'
if GorSlut = 3:$gnikname = 'cocksucker'
if GorSlut = 4:$gnikname = 'sex addict'
if GorSlut = 5:$gnikname = 'slut'
if GorSlut = 6:$gnikname = 'talking pussy'

	if film > 0 and kompromatLife < 10:
	!порноактрисса
	if kompromatLife < 10: kompromatLife = 10
	$kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
	end
	if fotoyousuck = 1 and kompromatLife < 9:
	!сосала в паре у парней и была сфотографированна
	if kompromatLife < 9: kompromatLife = 9
	$kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
	end
	if fotoCFNMsex > 0 and kompromatLife < 8:
	kompromatLife = 8
	$kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
	end
	if fotoCFNMblowjobCum > 0 and kompromatLife < 7:
	!кончили на лицо в стрипклубе
	kompromatLife = 7
	$kompromatFoto = 'In this photo you are sitting infront of a guy, kissing his cock. There seems to be cum in your face. This photo must have been taken in the stripclub.'
	end
	if fotoCFNMblowjob > 0 and kompromatLife < 6:
	!сосала на глазах у всех
	kompromatLife = 6
	$kompromatFoto = 'In this photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'
	end

	if stripdancesum > 0 and kompromatLife < 2:
	!стриптизерша
	if kompromatLife < 2: kompromatLife = 2
	$kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
	end
	if modelfoto > 0 and kompromatLife < 1:
	!фото модель
	if kompromatLife < 1: kompromatLife = 1
	$kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
	end


shameless = guy + bj + anal + hj+(slutty * 2)+(gang * 2)
moneySUM = money + karta + stolmoney
cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus

gs 'dina'
gs 'din2'

if husbizvradd > 5: izvratH = 1
if husbharmin > 10: harakHusb = 0
if clrbelo <= 0: clrbelo = 0 & tanga = 0

if husband = 0:
	set husbizvradd = 0
	set husbharmin = 0
	set husbandMark = 0
	set houseslut = 0
end

if SNarkvnesh = 0: SNarkvnesh = 1
if SNarkTimes >= SNarkvnesh * 25:
	SNarkvnesh += 1
	vidage += 1
end

if gopota >= 20 and gnewQW = 1: set gnewQW = 2

if horny > hornyStat:
	hornyStat = horny
	if pirsA > 0:
		horny += 1
	end
	if pirsB > 0:
		horny += 1
	end
	if pirsC > 0:
		horny += 1
	end
	if pirsD > 0:
		horny += 1
	end
	if pirsE > 0:
		horny += 1
	end
	if pirsF > 0:
		horny += 5
	end
	if pirsG > 0:
		horny += 5
	end
	if pirsN > 0:
		horny += 1
	end
end

if horny < hornyStat:
	hornyStat = horny
end

if workDisk = 4 and week > 5: workDisk = 1
if workDisk = 3 and week > 5: workDiskAtkPlayer = 1


VeneraN = 0
if VeneraOnce > 0: VeneraOnce = 0
if SifacOnce = 1: VeneraN += 1
if GerpesOnce = 1: VeneraN += 1
if TriperOnce = 1: VeneraN += 1
Venera = VeneraN

if fat < 0: fat = 0
if vokal < 0: vokal = 0
if vokal > 100: vokal = 100
if dance > 100: dance = 100
if stripdance > 100: stripdance = 100
if poledance > 100: poledance = 100
if dancePRO > 100: dancePRO = 100
if bfa < 0: bfa = 0

if painQW = 0: set painweather = 6

if beg < 0: set beg = 0
if beg > 2000: set beg = 2000

if oficiant > 100: set oficiant = 100
if vagina > 30: set vagina = 30
if throat > 30: set throat = 30
if anus > 30: set anus = 30

if Jab > 120: set Jab = 120
if Punch > 120: set Punch = 120
if Kik > 120: set Kik = 120
if KikDef > 120: set KikDef = 120


if nark >= 30 and narkoman = 0:
	set narkoman = 1
end
if nark = 0 and narkoman = 0:
	set narkoman = 0
end

set boxing = Jab + Punch + Kik + KikDef
if boxing > 100: set boxing = 100

if stren > 100 and mutagenP = 0: set stren = 100
if speed > 100 and mutagenS = 0: set speed = 100
if agil > 100 and mutagenA = 0: set agil = 100
if react > 100 and mutagenR = 0: set react = 100
if vital > 100 and mutagenV = 0: set vital = 100
if will > 100 and mutagenW = 0: set will = 100
if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0: set intel = 100

if stren > 150 and mutagenP = 1: set stren = 150
if speed > 150 and mutagenS = 1: set speed = 150
if agil > 150 and mutagenA = 1: set agil = 150
if react > 150 and mutagenR = 1: set react = 150
if vital > 150 and mutagenV = 1: set vital = 150
if will > 150 and mutagenW = 1: set will = 150
if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0: set intel = 150

if stren > 200 and mutagenP = 2: set stren = 200
if speed > 200 and mutagenS = 2: set speed = 200
if agil > 200 and mutagenA = 2: set agil = 200
if react > 200 and mutagenR = 2: set react = 200
if vital > 200 and mutagenV = 2: set vital = 200
if will > 200 and mutagenW = 2: set will = 200
if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0: set intel = 200

if stren > 250 and mutagenP = 3: set stren = 250
if speed > 250 and mutagenS = 3: set speed = 250
if agil > 250 and mutagenA = 3: set agil = 250
if react > 250 and mutagenR = 3: set react = 250
if vital > 250 and mutagenV = 3: set vital = 250
if will > 250 and mutagenW = 3: set will = 250
if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0: set intel = 250
if intel > 250: set intel = 250

if MagikDostup = 0:
	$levelUpString = '<B>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</B>'
	if orgasm >= 1 and magik < 1: set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 2 and magik < 2: set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 4 and magik < 3: set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 8 and magik < 4: set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 16 and magik < 5: set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 32 and magik < 6: set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 64 and magik < 7: set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 100 and magik < 8: set magik = 8 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 200 and magik < 9: set magik = 9 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 300 and magik < 10: set magik = 10 & set rikudo += 2000 & pl $levelUpString
	if orgasm >= 400 and magik < 11: set magik = 11 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 500 and magik < 12: set magik = 12 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 600 and magik < 13: set magik = 13 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 700 and magik < 14: set magik = 14 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 800 and magik < 15: set magik = 15 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 900 and magik < 16: set magik = 16 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1000 and magik < 17: set magik = 17 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1100 and magik < 18: set magik = 18 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1200 and magik < 19: set magik = 19 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1300 and magik < 20: set magik = 20 & set rikudo += 16000 & pl $levelUpString
	if orgasm >= 1400 and magik < 20: set magik = 21 & set rikudo += 21000 & pl $levelUpString
end

if exhibi >= 4: pl '<B>You opened a new outfit ready</B>'

if SUB >= DOM and DOM > 0: set SUB -= DOM & set DOM = 0
if DOM >= SUB and SUB > 0: set DOM -= SUB & set SUB = 0


if horny < 0: set horny = 0
if health > vital*10 + stren*5: set health = vital * 10 + stren * 5
if willpower > intel*5 + will*5: set willpower = intel * 5 + will * 5
if manna > (intel*magik) + magik*100 + vital*10 + rikudo: set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
!set musle = strenbuf + vitalbuf
if vidageday <= 0:
	set vidageday = 360
	set vidage += 1
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!ВРЕМЯ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if nminut ! minut:
	!totminut время игры в минутах
	totminut += minut
	nminut = minut
end

if vgape > 0:
	if vgape = 3:
	if manna>(mannamax/4):manna = mannamax/4
	end
	if vgape = 2:
	if manna>(mannamax/2):manna = mannamax/2
	end
end

if agape > 0:
	if agape = 3:
	if manna>(mannamax/6):manna = mannamax/6
	end
	if agape = 2:
	if manna>(mannamax/3):manna = mannamax/3
	end
end

if vgape > 0:
	if vgapetime+1500 <= totminut:
	if vgape = 1: vgape = 0
	if vgape = 2: vgape = 1 & vgapetime = totminut
	if vgape = 3: vgape = 2 & vgapetime = totminut
	end
end

if agape > 0:
	if agapetime+2500 <= totminut:
	if agape = 1: agape = 0
	if agape = 2: agape = 1 & agapetime = totminut
	if agape = 3: agape = 2 & agapetime = totminut
	end
end

:loopsec
if sec >= 60:
	minut+= 1
	sec -= 60
	jump 'loopsec'
end

:loopmin
if minut >= 60:
	if CompCheckedResponses = 1:
		CompCheckedResponses = 0
		if obkvsdam['Street']>0: set obkvsdam['Street'] = RAND(2,5)
		if obkvsdam['Down']>0: set obkvsdam['Down'] = RAND(2,5)
		if obkvsdam['Nord']>0: set obkvsdam['Nord'] = RAND(2,5)
	end

	set hour += 1
	set energy -= 1
	set water -= 1
	set son -= 1
	set minut -= 60

	if alko > 0:
		if alko >= 4:
		if beg > 0: beg -= 1
		if volleyboll > 0: volleyboll -= 1
			if alko >= 6:
			if stren > 10: stren -= 1 & salo += 3
			if vital > 10: vital -= 1 & salo += 3
			if intel > 10: intel -= 1
			end
		end
		alko -= 1
	end

	if shame > 0: shame -= 1 & manna -= 5
	if smoker >= 20: smokerNeed += 1
	if smokerNeed > 10 and InSleep = 0: manna -= manna * 10/100
	if smokerNeed > 300: smokerNeed = 0 & smoker = 0
	if StrongNarkota > 0: StrongNarkota -= 1
	if SLomka > 0: SLomka += 1 & manna -= 500
	if SLomka > 100 and StrongNarkota <= 0: SLomka = 0 & SNarkTimes = 0
	set LCWorkRand = RAND(1,6)

	if narkoman = 1 and narkday ! day:
		set health -= 5
		set willpower -= 5
		set manna -= 10
	end

	if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:
		if nude = 0: mosolpred += 1
	end

	if mosolpred >= 10:
		set mosol += 1
		set mosolpred -= 10
	end

	if mosol >= 50:
		manna -= 5
	end

	if energy >= 25: energy -= 5 & fat += 1

	if tanga = 1 and mosol > 0: mosol -= 1
	if lipbalmstat > 0: lipbalmstat -= 1
	if sickstage = 1: sick += 1 & sicktimer += 1
	if sickstage = 1 and sicktimer >= 80: sicktimer = 0 & sickstage = 2
	if sickstage = 2 and sick > 0: sick -= 1
	if sickstage = 2 and sick <= 0: sick = 0 & sickstage = 0
	if perkice > 0: perkice -= 1
	if frost > 0: frost -= 1

	if KGOLpers > 0:
		if KGHP < KGHPMAX: KGHP += 10
		if KGManna < KGMannaMax: KGManna += 10
	end

	jump 'loopmin'
end

if hour >= 24:
	if KatjaOTN > 0:
		if KatjaHorny > 0: KatjaHorny -= rand(1,3)
		if KatjaHorny < 0: KatjaHorny = 0
		if KatjaHorny >= 100: KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
	end

	if volleysostav > 0: trenerepa -= 1

	if birthday = day and birthmonth = month:
		!день рождения
		set age += 1
		set vidage += 1
	end

	if kanikuli = 0: Suspeh -= 1
	set dmishaevent = 0

	if BuyHous['Street'] = 2 and ArendHouseSL['Street'] <= 0: ArendHouseSL['Street'] = 0 & BuyHous['Street'] = 0 & housr['Street'] = 0
	if BuyHous['Street'] = 2 and ArendHouseSL['Street']>0: ArendHouseSL['Street'] -= 1
	if BuyHous['Down'] = 2 and ArendHouseSL['Down'] <= 0: ArendHouseSL['Down'] = 0 & BuyHous['Down'] = 0 & housr['Down'] = 0
	if BuyHous['Down'] = 2 and ArendHouseSL['Down']>0: ArendHouseSL['Down'] -= 1
	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] <= 0: ArendHouseSL['Nord'] = 0 & BuyHous['Nord'] = 0 & housr['Nord'] = 0
	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord']>0: ArendHouseSL['Nord'] -= 1

	if Gspravka <= 0 and GspravkaT > 0: GspravkaT = 0 & Gspravka = 0
	if GspravkaT > 0: Gspravka -= 1
	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30: IvanPodstavaQW = 3
	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30: PodpiskaNeviezd += 1

	if salo > fat:
		salo -= 1
		fat += 1
	end

	if salo < fat:
		salo += 1
		fat -= 1
	end

	if strenbuf > stren: set strenbuf -= 1
	if strenbuf < stren: set strenbuf += 1
	if vitalbuf > vital: set vitalbuf -= 1
	if vitalbuf < vital: set vitalbuf += 1
	if agilbuf > agil: set agilbuf -= 1
	if agilbuf < agil: set agilbuf += 1
	if husband > 0 and husbandrink ! 11: set husbandrink = rand(0,10)
	set inWorkYoungShop = 0
	set husbandsexday = 0
	set borsexkol = 0
	set givisexday = 0

	if shantsr > 0:
		set pay = shantsr * 5000
		set karta += pay
		set shantsr = 0
	end

	if shantbog > 0:
		:shantftb
		set shantftbgrand = rand(0,10)
		if shantftbgrand > 2:
			set shantpopala += 1
			set shantbog -= 1
			if shantbog > 0: jump 'shantftb'
		end
		if shantftbgrand <= 2:
			set karta += 30000
			set shantbog -= 1
			if shantbog > 0: jump 'shantftb'
		end
	end

	set petersexday = 0
	set klismaday1= 0
	set opusksexday = 0

	:loop
	set day += 1
	set daystart += 1
	set week += 1
	set hour -= 24
	!ЗПП
	if SifacOnce = 1: Sifilis += 1
	if GerpesOnce = 1: Gerpes += 1
	if TriperOnce = 1: Triper += 1
	if KandidozOnce = 1: Kandidoz += 1
	if beg >= 100 and beg < 1000: beg -= 1
	if beg >= 1000 and beg < 1500: beg -= 2
	if beg >= 1500 and beg < 2000: beg -= 3
	if beg >= 2000: beg -= 4

	set vidageday -= 1
	if workDolgDay > 0: workDolgDay -= 1
	if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
	if husband > 0: husbanday += 1
	!if kid > 0:kid += 1
	if husband > 10 and husbanday > 0: husband -= 15
	if fingal > 0: fingal -= 1

	if husbandMark = 1 and husband <= 10:
		set husbizvradd = 0
		set husbharmin = 0
		set husbandMark = 0
		set husband = 0
		set divorced += 1
		if KFOnLineReaga > 0: KFOnLineReaga -= 1
		'<B><font color = red>Your husband has filed for a divorce.</font></B>'
	end

	gs 'cikl'

	if nark > 0:
		set nark -= 1
	end

	if pregtime > 10: fat += 1

	if hour >= 24:
		jump 'loop'
	end
end

:loopday
if month > 12:
	month -= 12
	year += 1
	jump 'loopday'
end

if day > month_end[month]:
	day -= month_end[month]
	month += 1
	jump 'loopday'
end
$month = $month_name[month]

:loopweek
if week > 7:
	set week -= 7
	set husbandrink = 0
	if military = 1: set military = 0
	jump 'loopweek'
end
$week = $week_name[week]

!Выплаты
if day = 25:
	interest = (karta/100)
	if (interest>0) and (interestPay=0):
		karta += interest
		interestPay = 1
		'<B><font color=green>You have received <<interest>> rubles as interest on your bank account deposit.</font></B>'
	end

	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
	Pay = PersSecWorkTimes * 2500
	PersSecWorkTimes = 0
	karta += Pay
	paydaybistrosec = 1
	'<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
	end

	if workKafe = 1 and paydayKafe = 0:
	set paydayKafe = 1
	set pay = smenaKafe * 600
	set karta += pay
	set smenaKafe = 0
	'<B><font color = green>You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></B>'
	end

	if workhosp = 1 and nopaypoly = 0:
	set pay = smena * 1000
	set karta += pay
	set smena = 0
	nopaypoly = 1
	'<B><font color = green>You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></B>'
	end

	if worksalon = 1 and nopaysalon = 0:
	set pay = smena * 800
	set karta += pay
	set smena = 0
	nopaysalon = 1
	'<B><font color = green>You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></B>'
	end

	if tanwork = 1 and nopaytanwork = 0:
	nopaytanwork = 1
	set karta += 25000
	'<B><font color = green>You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</font></B>'
	end

	if workSec = 1 and paydaySec = 0:
	set paydaySec = 1
	set pay = sekDay * 800
	if officebestslut >= 3: set pay += 20000
	set karta += pay
	set sekDay = 0
	'<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
	end

	if selfPornVidMoney>0 and paydaySelfPorn=0:
		set paydaySelfPorn=1
		set karta += selfPornVidMoney
		'<B><font color = green>You have received <<selfPornVidMoney>> rubles on your bank account for your self-made porn videos.</font></B>'
		set selfPornVidMoney=0
	end

	if husband > 0 and paydayHusb = 0:
	paydayHusb = 1
		if husbFin = 0: huspay = 30000
		if husbFin = 1: huspay = 60000
		if husbFin = 2: huspay = 90000
		karta += huspay
		'<B><font color = green>Your husband has sent you <<huspay>> rubles to your bank account.</font></B>'
	end

	if stipuha = 1 and stipuhaday = 0: set stipuhaday = 1 & set karta += 1200 & '<B><font color = green>You have received 1,200 rubles scholarship on your bank account.</font></B>'
	if housr = 1 and haday = 0 and ArendHouseSL = 0: set haday = 1 & set karta -= 3000 & '<B><font color = red>You paid 3000 rubles for your apartment.</font></B>'
	if housr = 1 and electroday = 0:
		set electroday = 1
		if elektro >= 800: set elektro = 800 + RAND(0,100)
		set karta -= elektro

		'<B><font color = red>You paid <<elektro>> for electricity.</font></B>'

		set elektro = 0
	end

	if housr = 1 and kabel > 0 and kabelday = 0:
		set kabelday = 1
		set karta -= 300
		'<B><font color = red>You have paid 300 rubles for cable TV.</font></B>'
	end
else
	if interestPay = 1: interestPay = 0
	if paydayHusb = 1: paydayHusb = 0
	if workKafe = 1 and paydayKafe = 1: set paydayKafe = 0
	if workSec = 1 and paydaySec = 1: set paydaySec = 0
	if housr = 1 and haday = 1: set haday = 0
	if housr = 1 and electroday = 1: set electroday = 0
	if housr = 1 and kabel > 0 and kabelday = 1: set kabelday = 0
	if stipuhaday = 1: set stipuhaday = 0
	if nopaytanwork = 1: nopaytanwork = 0
	if nopaypoly = 1: nopaypoly = 0
	if nopaysalon = 1: nopaysalon = 0
	if paydaybistrosec = 1: paydaybistrosec = 0
end

if sdaday['Street'] = day and sdamonth['Street'] = month and houserent['Street'] = 1:
	set houserent['Street'] = 0
	'<B><font color = red>The term of your residental apartment lease expired.</font></B>'
end
if sdaday['Down'] = day and sdamonth['Down'] = month and houserent['Down'] = 1:
	set houserent['Down'] = 0
	'<B><font color = red>The term of your downtown apartment lease expired.</font></B>'
end
if sdaday['Nord'] = day and sdamonth['Nord'] = month and houserent['Nord'] = 1:
	set houserent['Nord'] = 0
	'<B><font color = red>The term of your northern apartment lease expired.</font></B>'
end

!{
if kid > 0:
	if year > yearkid[1] and markyear[1]!year:
		if monthkid[1] = month and daykid[1] = day:
		markyear[1] = year
		kidage[1] += 1
		end
	end
}

if kid > 0:
	set kI = 1
	:kidBirthday
	if year > yearkid[kI] and markyear[kI]!year:
		if monthkid[kI] = month and daykid[kI] = day:
			markyear[kI] = year
			kidage[kI] += 1
		end
	end
	set kI += 1
	if kI <= numkid:
		jump 'kidBirthday'
	end
end

if numkids > 0:
	i = 0
	:agethekids
	if (kidbornyear2[i] + kidage2[i] + 1) < year: kidage2[i] += 1
	if (kidbornyear2[i] + kidage2[i]) < year:
		if kidbornmonth2[i] < month: kidage2[i] += 1
		if kidbornmonth2[i] = month and kidbornday2[i] <= day: kidage2[i] += 1
	end
	i += 1
	if i < numkids: jump 'agethekids'
end

if Mud >= totminut:
	manna = mannamax
	$mud = 'You feel buoyed.'
else
	$mud = ''
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!КОНЕЦ ВРЕМЕНИ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subage = 0
:metakasubage
subage += 10
if subage + 10 < age:
	JUMP 'metakasubage'
else
	subage = age - subage
end

if subage = 0 or subage >= 5:
	$letgoda = 'years'
elseif subage = 1:
	$letgoda = 'year'
else
	$letgoda = 'year'
end

subagevne = 0
:metakasubagevne
subagevne += 10
if subagevne + 10 < vidage:
	JUMP 'metakasubagevne'
else
	subagevne = vidage - subagevne
end

if subagevne ! 1:
	$letgoda2 = 'years'
else
	$letgoda2 = 'year'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!ЭНЕРГИЯ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if son < 0:
	set son = 0
	set manna -= 5
end

if energy < 0:
	set energy = 0
	set health -= 1

	if fat = 0 and stren + vital > 0:
		set stren -= 1
		set vital -= 1
		set energy += 2
	end

	if fat = 0 and stren + vital <= 0:
		set over = 3
		gt 'gameover'
		exit
	end

	if fat > 0:
		set fat -= 1
		set energy += 2
	end
end

if water < 0:
	set water = 1
	set health -= 5
	set willpower -= 1
end

if manna <= 0:
	set manna = 1
	set health -= 5
	set willpower -= 5
	!set fat += 1
end

if health < 0:
	set over = 1
	gt 'gameover'
	exit
end

if willpower < 0 and StoryLine = 0:
	set over = 2
	gt 'gameover'
	exit
end

if saloonce = 0 and opPRE = 0:
	set saloonce = 1
	set salo = fat
	set strenbuf = stren
	set vitalbuf = vital
	set agilbuf = agil
end

gs 'body'

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if health = vital * 10 + stren * 5: set $health = '<font color = green>You are very healthy.</font>'
if willpower = intel * 5 + will * 5: set $willpower = '<font color = green>Your mind is clear.</font>'
if manna = (intel * magik) + magik * 100 + vital * 10 + rikudo: set $manna = '<font color = green>You are in a good mood.</font>'

if health < vital*10 + stren*5 and health >= (vital * 10 + stren * 5)*75/100: set $health = '<font color = blue>You are healthy.</font>'
if health < (vital*10 + stren*5)*75/100 and health >= (vital * 10 + stren * 5)*50/100: set $health = '<font color = brown>you are not healthy.</font>'
if health < (vital*10 + stren*5)*50/100 and health >= (vital * 10 + stren * 5)*25/100: set $health = '<font color = red>You are sick.</font>'
if health < (vital*10 + stren*5)*25/100: set $health = '<font color = red>You are on the verge of death.'

if willpower < intel*5 + will*5 and willpower >= (intel * 5 + will * 5)*75/100: set $willpower = '<font color = blue>You are mostly in thought.</font>'
if willpower < (intel*5 + will*5)*75/100 and willpower >= (intel * 5 + will * 5)*50/100: set $willpower = '<font color = brown>You are depressed.</font>'
if willpower < (intel*5 + will*5)*50/100 and willpower >= (intel * 5 + will * 5)*25/100: set $willpower = '<font color = red>You are in depression.</font>'
if willpower < (intel*5 + will*5)*25/100: set $willpower = '<font color = red>You are on the verge of madness.</font>'

if manna < (intel*magik) + magik*100 + vital*10 + rikudo and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*75/100: set $manna = '<font color = blue>You have a normal mood.</font>'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*50/100: set $manna = '<font color = brown>You are in a bad mood.</font>'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*25/100: set $manna = '<font color = red>You are in a terrible mood.</font>'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100: set $manna = '<font color = red>Your mood is below any skirting and urban sanitation.</font>'


if energy >= 20: set $energy = '<font color = green>You couldn''t eat one more bite.</font>'
if energy < 20 and energy >= 10: set $energy = '<font color = blue>You''re not really hungry, but a small snack would be very welcome.</font>'
if energy < 10 and energy >= 2: set $energy = '<font color = brown>You are hungry.</font>'
if energy < 2: set $energy = '<font color = red>You are very hungry.</font>'

if water >= 20: set $water = '<font color = green>You are not thirtsy at all.</font>'
if water < 20 and water >= 10: set $water = '<font color = blue>You are slightly thirsty.</font>'
if water < 10 and water >= 2: set $water = '<font color = brown>You are thirsty.</font>'
if water < 2: set $water = '<font color = red>You are very thirsty.</font>'

if son >= 20: set $son = '<font color = green>You are well rested.</font>'
if son < 20 and son >= 10: set $son = '<font color = blue>You are slightly tired.</font>'
if son < 10 and son >= 2: set $son = '<font color = brown>You are tired.</font>'
if son < 2: set $son = '<font color = red>You are very tired.</font>'

$din_shame = {
!dynamic din_shame
!shame += 1
!if shame >= 5:shame = 4 & shameless += 1
!if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
!if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
!if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
!if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'
!gs 'stat'
}

!if shame >= 5:shame = 4 & shameless += 1
!if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
!if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
!if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
!if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'

set $holyday = ''
kanikuli = 0
if (month = 10 and day >= 27) or (month = 11 and day <= 4): set $holyday = '<b>Autumn holidays.</b>'&kanikuli = 1
if (month = 12 and day >= 29) or (month = 1 and day <= 13): set $holyday = '<b>Winter Break.</b>'&kanikuli = 2
if (month = 3 and day >= 25): set $holyday = '<b>Spring Break.</b>'&kanikuli = 3
if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8: set $holyday = '<b>Summer holidays.</b>'&kanikuli = 4
if month = 1 and day = 1: set $holyday = '<b>New Year</b>'&kanikuli = 5


if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
	!прогул школы
	schoolprogul += 1
	schoolProgulDay = day
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!НАЧАЛО ОПИСАНИЯ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if hour > 9 :
	if minut > 9 :
		pl '<B><<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<B><<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	end
else
	if minut > 9 :
		pl '<B>0<<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<B>0<<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	end
end

pl '<b><<money>></b> rubles in your wallet.'
if karta > 0: pl '<b><<karta>></b> rubles in your bank account.'
if stolmoney > 0: pl '<b><<stolmoney>></b> rubles in the table in your hall.'

if StoryLine > 0 and SchoolAtestat = 0: pl '<<$holyday>>'
if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>'
!if shame > 0:pl '<<$shame>>'

if ETOmenu = 1:
pl '<B><<$manna>></B>'
if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
pl '<B><<$health>></B>'
pl '<B><<$willpower>></B>'
pl '<B><<$energy>></B>'
pl '<B><<$water>></B>'
pl '<B><<$son>></B>'
end
if ETOmenu = 0:
if ShowStatsAs = 0:
	pl '<B><<$manna>></B>'
	if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
end
set a = horny
!set a1 = horny
if ShowStatsAs ! 2:
	gs 'indik','2'
	pl '<<$ind>> Arousal'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0:
	if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
end

healthmax=(vital * 10 + stren * 5)
set a = ( health * 100 /healthmax )
set a1 = health
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Health'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$health>></B>'

willpowermax =(intel * 5 + will * 5)
set a = ( willpower * 100 / willpowermax )
set a1 = willpower
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Willpower'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$willpower>></B>'

set a = ( manna *100 / mannamax )
set a1 = manna
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Mood'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$manna>></B>'

set a = energy * 4
set a1 = energy
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Hunger'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$energy>></B>'

set a = water * 5
set a1 = water
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Thirst'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$water>></B>'

set a = son * 4
set a1 = son
if ShowStatsAs ! 2:
	gs 'indik','1'
	pl '<<$ind>> Sleep'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$son>></B>'
end


$strip_dress={
	if stripdress=0:
		stripdress=1
		nude=1
		odedosna=numdress
		numdress=0
		gs'stat'
		'You remove your clothes.'
		exit
	end
	if stripdress=1:
		stripdress=0
		numdress=odedosna
		nude=0
		gs'stat'
		'You get dressed.'
		exit
	end
}


nl
if nude=1:stripdress=1
if nude=0:stripdress=0
if stripdress=0:$stripDress='Strip'
if stripdress=1:$stripDress='Dress'
pl'<a href="exec:dynamic $strip_dress"><B><<$stripDress>></B></a>'


$smoker = {
	siga -= 1
	smoker += 1
	smokeHour = hour
	smokeDay = day
	smokeminut = minut + 5
	smokerNeed = 0
	manna += 100
	wipo += 100
	if energy < 20: energy += 3
	gs 'stat'
}

if $mud ! '': pl '<font color = green><b><<$mud>></b></font>'
if siga <= 0 and smoker >= 20: pl '<font color = red><b>You have run out of cigarettes.</b></font>'
if smokerNeed > 0 and siga > 0 and smoker >= 20:
	pl '<a href="exec:dynamic $smoker"><font color = red><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
elseif siga > 0 and smoker >= 20:
	pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
end

if siga > 0 and smoker < 20:
	if smokeHour = hour and smokeday = day and smokeminut >= minut:
	else
		pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
	end
end

if smokeHour = hour and smokeday = day and smokeminut >= minut: pl '<font color = green>You are smoking a cigarette</font>'
if ReminderSystem = 1:
	if tampon < ReminderNumber: pl '<font color = red>I should go buy some tampons</font>'
	if stanok < ReminderNumber: pl '<font color = red>I should go buy some razors</font>'
	if poroshok < ReminderNumber: pl '<font color = red>I should go buy some washing powder</font>'
	if clrbelo < ReminderNumber: pl '<font color = red>I should go buy some clean underwear</font>'
	if shampoo < ReminderNumber: pl '<font color = red>I should go buy some shampoo</font>'
	if fairy < ReminderNumber: pl '<font color = red>I should go buy some dishwashing detergent</font>'
	if (eda + edaD) < ReminderNumber: pl '<font color = red>I should go buy some food</font>'
end

if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.'
!!!!!!!!!!!!!!!!!!!
if sweat = 1: pl '<font color = brown>You´re sweating.</font>'
if sweat = 2: pl '<font color = red>You are a little smelly.</font>'
if sweat = 3: pl '<font color = red>You stink.</font>'
if sweat > 3: pl '<B><font color = red>You stink.</font></B>'
if isprok = 0 and mesec > 0 and preg = 0: pl '<B><font color = red>You are bleeding between your legs, urgently need a tampon.</font></B>'
if isprok = 1 and mesec > 0 and preg = 0: pl 'You are having your period.'
if preg = 1 and pregtime = 280: pl '<B><font color = red>You urgently need to go to the hospital</font></B>'
if preg = 1: Set rodtime = 280 - pregtime
if preg = 1 and pregtime < 280 and pregtime > 6: pl '<B><font color = blue>You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></B>'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1: pl '<B><font color = red>You have a work shift as a waitress in a cafe</font></B>'
if hour >= 8 and hour < 9 and week < 5 and workSec >= 1: pl '<B><font color = red>You have a work shift as a secretary</font></B>'
if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5: pl '<B><font color = red>You have a work shift as a secretary</font></B>'

$cumeater = {
cumlip += 1
vaf += 1
cumbelly = 0
gs 'stat'
'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
}
$cumeater2 = {
cumlip += 1
vaf += 1
cumpussy = 0
gs 'stat'
'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
}
$cumeater3 = {
cumlip += 1
vaf += 1
cumass = 0
gs 'stat'
'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
}
$cumeater4 = {
cumlip += 1
vaf += 1
cumface = 0
gs 'stat'
'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
}
$cumeater5 = {
cumlip += 1
vaf += 1
cumfrot = 0
gs 'stat'
'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
}
$cumeater6 = {
cumlip += 1
vaf += 1
cumanus = 0
gs 'stat'
'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!'<a href="exec:view''images\body\cumface.jpg''">лицо</a>'
!'<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Ваше лицо</font></B></a>'
!'<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Ваша попа</font></B></a>'


if cumbelly > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumbelly.jpg''">stomach</a> is smeared with sperm.</font></B>'
if cumbelly > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumbelly.jpg''"><B><font color = red>Your stomach</font></B></a> <a href="exec:dynamic $cumeater"><B><font color = red>is smeared with sperm.</font></B></a>'

if cumpussy > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumpussy.jpg''">pussy</a>.</font></B>'
if cumpussy > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumpussy.jpg''"><B><font color = red><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></B></a>.'

if cumass > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumass.jpg''">ass</a> is smeared with semen.</font></B>'
if cumass > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Your ass</font></B></a> <a href="exec:dynamic $cumeater3"><B><font color = red>is smeared with semen.</font></B></a>'

if cumlip > 0: pl '<B><font color = red>Your mouth smells like sperm.</font></B>'
if cumface > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumface.jpg''">face</a> and hair are smeared with sperm.</font></B>'
if cumface > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Your face</font></B></a> <a href="exec:dynamic $cumeater4"><B><font color = red>and hair are smeared with sperm.</font></B></a>'
if cumfrot > 0 and swallow < 10: pl '<B><font color = red>You have semen stains on your <a href="exec:view''images\body\cumfrot.jpg''">clothes</a>.</font></B>'
if cumfrot > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumfrot.jpg''"><B><font color = redYou have <a href="exec:dynamic $cumeater5"><B><font color = red>semen stains</font></B></a> on your clothes</font></B></a>.'
if cumanus > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumanal.jpg''">ass</a>.</font></B>'
if cumanus > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumanal.jpg''"><B><font color = red><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></B></a>.'
if vgape = 3: pl '<B><font color = red>You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></B>'
if vgape = 2: pl '<B><font color = red>You have a sore vagina and you can hardly keep your feet together.</font></B>'
if vgape = 1: pl '<B><font color = red>You have a slightly sore vagina.</font></B>'
if agape = 3: pl '<B><font color = red>You have very sore anus and it emits blood.</font></B>'
if agape = 2: pl '<B><font color = red>You have a sore anus.</font></B>'
if agape = 1: pl '<B><font color = red>You have a slightly sore and itchy anus.</font></B>'

if Gerpes >= 3: pl '<B><font color = red>On your lips sores. All signs of genital herpes.</font></B>'
if Gerpes < 10 and Gerpes >= 5: pl '<B><font color = red>Your pussy flushed and highly itchy. This genital herpes.</font></B>'
if Gerpes >= 10: pl '<B><font color = red>On your pussy sores appeared. This genital herpes.</font></B>'
if Gerpes >= 20: pl '<B><font color = red>cover your ass sores of genital herpes.</font></B>'
if Sifilis >= 21 and Sifilis < 50: pl '<B><font color = red>You have jumped big, hard sore on the lip.</font></B>'
if Sifilis >= 50: pl '<B><font color = red>syphilitic rash covers your whole body.</font></B>'
if Triper > 2: pl '<B><font color = red>From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></B>'
if Kandidoz > 30: pl '<B><font color = red>Do you thrush.</font></B>'
if SLomka > 0: pl '<B><font color = red>You are very bad and hurt all the bones. Do you break-up</font></B>'
if narkday ! day and narkoman = 1: pl '<B><font color = red>You are very bad and hurt all the bones. Urgently need pale lady</font></B>'
if fingal > 0: pl '<B><font color = red>You have a black eye on the face.</font></B>'
if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
pl '<B><font color = red>blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></B>'
end
if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:
pl '<B><font color = red>you do not put panties.</font></B>'
end
if mosol >= 30 and mosol < 50: pl '<B><font color = red>Pisya flushed and itchy, it seems you are rubbed by clothing.</font></B>'
if mosol >= 50: pl '<B><font color = red>Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></B>'
if analplugIN = 1: pl '<B><font color = red>Do you in the ass anal plug is inserted.</font></B>'
if vibratorin = 1: pl '<B><font color = red>Do you work in the vagina vibrator.</font></B>'

if young_shop_work = 1 and hour = 14 and week < 6: pl '<B><font color = red>Within 15 hours you have to be at work in the shop Keys Puss.</font></B>'
if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0: young_shop_miss += 1 & pl '<B><font color = red>You squandered work.</font></B>'

if workrin = 1:
	if week = 2 or week = 4 or week = 6:
		if hour = 7: pl '<B><font color = red > 8m hours you work on the market.</font></B>'
		if hour = 8: pl '<B><font color = red>You need to work on the market.</font></B>'
	end
end

if frost > 0 and frost <= 5: pl '<B><font>You have a little chilly.</font></B>'
if frost > 5 and frost < 11: pl '<B><font color = red>Are you cold.</font></B>'
if frost >= 11: pl '<B><font color = red>You are very cold.</font></B>'
if sick = 1: pl '<B><font color = red>you that is not good, tickle in the throat and a little runny nose.</font></B>'
if sick > 1 and sick < 24: pl '<B><font color = red>you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></B>'
if sick >= 24 and sick < 48: pl '<B><font color = red>You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></B>'
if sick >= 48 and sick < 72: pl '<B><font color = red>You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it´s the flu.</font></B>'
if sick >= 72: pl '<B><font color = red>you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it´s a sore throat.</font></B>'

if $meetloc = 'street': $meetlocation = 'residential'
if $meetloc = 'down': $meetlocation = 'downtown'
if $meetloc = 'Nord': $meetlocation = 'northern'
if hour < meethour and svidanieA = 1: pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
if hour = meethour and svidanieA = 1: pl '<B><font color = red><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></B>'

if meetday < daystart and svidanieA = 1: bfA -= 10 & svidanieA = 0
if StrongNarkota > 20: pl '<B><font color = red>You are stoned.</font></B>'

if alko > 0:
	if alko < 3: pl '<B><font color = red>You´re a little dizzy.</font></B>'
	if alko >= 3 and alko < 6: pl '<B><font color = red>You´re drunk.</font></B>'
	if alko >= 6: pl '<B><font color = red>You´re wasted.</font></B>'
end

gs 'din_bad'

if bag > 0:
	pl '<a href="exec:dynamic $d_bag"><B>Handbag</B></a>'
end

!обнуление проверок на замужество
set proverka1 = 0
set proverka2 = 0
set proverka3 = 0
set proverka4 = 0
set proverka5 = 0

!!!!!!!!!!!!!!!!!!!!



--- stat ---------------------------------

# din_bad
$d_salf = {
clr
salfetka -= 1
pl '<a href="exec:gs ''stat''"><B>Throw out tissue</B></a>'
if cumface > 0: pl '<a href="exec:cumface = 0 & gs ''stat''"><B>Wipe your face</B></a>'
if cumfrot > 0: pl '<a href="exec:cumfrot = 0 & gs ''stat''"><B>Wipe clothing</B></a>'
if mop ! 1: pl '<a href="exec:mop = 1 & gs ''stat''"><B>Wipe cosmetics</B></a>'
}

$d_kosmetitka = {
clr
pl '<a href="exec:gs ''stat''"><B>Close makeup bag</B></a>'
if kosmetitka >= 1: pl '<a href="exec:mop = 2 & kosmetitka -= 1 & gs ''stat''"><B>Light make-up</B></a>'
if kosmetitka >= 2: pl '<a href="exec:mop = 3 & kosmetitka -= 2 & gs ''stat''"><B>Natural make-up</B></a>'
if kosmetitka >= 3: pl '<a href="exec:mop = 4 & kosmetitka -= 3 & gs ''stat''"><B>Heavy make-up</B></a>'
}

$d_bag_heroin = {
clr
heroin -= 1
minut += 5
StrongNarkota += 25
SNarkTimes += 1
gs 'stat'
$tempval = ''
if narkoman ! 0: $tempval = ' with trembling hands'
'You injected yourself<<$tempval>>'
}

$d_bag = {
clr
pl '<a href="exec:gs ''stat''"><B>Close bag</B></a>'

if salfetka > 0: pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><B>Take tissue</B></a>'
if kosmetitka > 0 and mop = 1: pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>. <a href="exec:dynamic $d_kosmetitka"><B>Put on makeup</B></a>'
if kosmetitka > 0 and mop ! 1: pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
if greben > 0 and hapri = 0: pl 'You have a hairbrush. <a href="exec:hapri = 1 & gs ''stat''"><B>Brush your hair</B></a>'
if greben > 0 and hapri = 1: pl 'You have a hairbrush.'
if prezik > 0: pl 'You have <<prezik>> condoms. <a href="exec:prezik = 0& gs ''stat''"><B>Throw away</B></a>'
if tabletki > 0: pl 'You have <<tabletki>> birth control pills. <a href="exec:tabletki = 0 & gs ''stat''"><B>Throw away</B></a>'
if lubri > 0: pl 'Lubricant enough for <<lubri>> applications.'
if bottle > 0: pl 'You have a bottle of water. <a href="exec:bottle = 0 & water = 20 & cumlip = 0 & gs ''stat''"><B>Drink</B></a>'
if buterbrod > 0: pl 'You have a sandwich. <a href="exec:buterbrod = 0 & energy+= 20 & cumlip = 0 & salo += 1 & gs ''stat''"><B>Eat</B></a>'
if heroin > 0: pl 'You have <<heroin>> doses of heroin. <a href="exec:dynamic $d_bag_heroin"><B>Inject</B></a>'
if selfPornvidDVDCarry > 0: pl 'You are carrying <<selfPornvidDVDCarry>> of your amateur porn DVDs.'
}
--- din_bad ---------------------------------

# statBat
clr

if tobiPic = 1: pl '<center><img src="images\picBat\tobi.jpg"></center>'
if kisamePic = 1: pl '<center><img src="images\picBat\kisame.jpg"></center>'
if sasoriPic = 1: pl '<center><img src="images\picBat\sasori.jpg"></center>'
if konanPic = 1: pl '<center><img src="images\picBat\konan.jpg"></center>'
if kakuzuPic = 1: pl '<center><img src="images\picBat\kakuzu.jpg"></center>'
if hidanPic = 1: pl '<center><img src="images\picBat\hidan.jpg"></center>'
if itachiPic = 1: pl '<center><img src="images\picBat\itachi.jpg"></center>'
if deidaraPic = 1: pl '<center><img src="images\picBat\deidara.jpg"></center>'
if zetsuPic = 1: pl '<center><img src="images\picBat\zetsu.jpg"></center>'
if orotimaruPic = 1: pl '<center><img src="images\picBat\orotimaru.jpg"></center>'
if painPic = 1: pl '<center><img src="images\picBat\pain.jpg"></center>'
if pain2Pic = 1: pl '<center><img src="images\picBat\pain2.jpg"></center>'
if pain3Pic = 1: pl '<center><img src="images\picBat\pain3.jpg"></center>'
if pain4Pic = 1: pl '<center><img src="images\picBat\pain4.jpg"></center>'
if pain5Pic = 1: pl '<center><img src="images\picBat\pain5.jpg"></center>'
if pain6Pic = 1: pl '<center><img src="images\picBat\pain6.jpg"></center>'
--- statBat ---------------------------------

# statPRE
gs 'stat'

set $vneshPRE = 'You are a strong man with broad shoulders and big muscles slightly swollen with fat.'
--- statPRE ---------------------------------

# time
If month = 1 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear.'
		end
		if osadki >= painweather:
		set $osadki = 'Goes fluffy snow.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 2 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-35,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Cloudy and windy.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 3 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-20,17)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear and cloudless.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 4 and pogodaday ! day:
set pogodaday = day
set temper = RAND(2,20)
set osadki = RAND(0,10)
	if osadki < painweather:
		if hour >= 7 and hour <= 20:
		set $osadki = 'Clear.'
		end
		if hour < 7 or hour > 20:
		set $osadki = 'Clear.'
		end
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

set $pogoda = 'On the street the snow melts, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 5 and pogodaday ! day:
set pogodaday = day
set temper = RAND(7,25)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

set $pogoda = 'From puddles in the street rastaevshego snow, dirt and debris all around seem after winter, something where new grass pleases the eye with its greenery, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 6 and pogodaday ! day:
set pogodaday = day
set temper = RAND(15,35)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

set $pogoda = 'On the street the green grass, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 7 and pogodaday ! day:
set pogodaday = day
set temper = RAND(20,40)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Warm rain comes.'
	end

set $pogoda = 'Green grass on the street, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 8 and pogodaday ! day:
set pogodaday = day
set temper = RAND(20,35)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Warm rain comes.'
	end

set $pogoda = 'Outdoors green grass, where some are already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 9 and pogodaday ! day:
set pogodaday = day
set temper = RAND(10,30)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

set $pogoda = 'Street zhuhnet grass, visible yellow leaves, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 10 and pogodaday ! day:
set pogodaday = day
set temper = RAND(2,20)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Goes cold rain.'
	end

set $pogoda = 'On the street faded grass, falling yellow leaves, mud and puddles around, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 11 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-20,17)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear and cloudless.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Cold rain.'
		end
	end
set $pogoda = 'The street is dirty and thin snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 12 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Cloudy and windy.'
		end
		if osadki >= painweather:
		set $osadki = 'Goes fluffy snow.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

pl '<<$pogoda>>'
if osadki >= painweather and umbrella = 0 and mop > 1:
set mop = 0
'You do not have an umbrella and on the moisture flowed your cosmetics.'
end

if osadki >= painweather and umbrella = 0 and hapri = 1:
set hapri = 0
if curly > 0: set curly -= 1
'You do not have an umbrella and on the moisture your hair has deteriorated.'
end

if isprok = 0 and mesec > 0 and preg = 0:
'<B><font color = red>You have the blood flowing in the legs and staining the linen clothes.</font></B>'
if clrbelo > 0: set clrbelo -= 1
set sweat += 1
set manna -= 10
set willpower -= 10
gs 'starenie'
end

if hour = 0:
fcolor = rgb(255,255,255)
bcolor = rgb(0,0,0)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 1:
fcolor = rgb(255,255,255)
bcolor = rgb(5,5,5)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 2:
fcolor = rgb(255,255,255)
bcolor = rgb(10,10,10)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 3:
fcolor = rgb(255,255,255)
bcolor = rgb(30,15,15)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 4:
fcolor = rgb(255,255,255)
bcolor = rgb(60,20,20)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 5:
fcolor = rgb(255,255,255)
bcolor = rgb(100,40,40)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 6:
fcolor = rgb(0,0,0)
bcolor = rgb(200,100,100)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 7:
fcolor = rgb(0,0,0)
bcolor = rgb(250,150,150)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 8:
fcolor = rgb(0,0,0)
bcolor = rgb(250,200,200)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 9:
fcolor = rgb(0,0,0)
bcolor = rgb(250,245,245)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 10:
fcolor = rgb(0,0,0)
bcolor = rgb(255,250,250)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 11:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 12:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 13:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 14:
fcolor = rgb(0,0,0)
bcolor = rgb(255,250,250)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 15:
fcolor = rgb(0,0,0)
bcolor = rgb(255,245,245)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 16:
fcolor = rgb(0,0,0)
bcolor = rgb(250,240,240)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 17:
fcolor = rgb(0,0,0)
bcolor = rgb(250,230,230)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 18:
fcolor = rgb(0,0,0)
bcolor = rgb(250,220,220)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 19:
fcolor = rgb(0,0,0)
bcolor = rgb(250,210,210)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 20:
fcolor = rgb(0,0,0)
bcolor = rgb(250,200,200)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 21:
fcolor = rgb(0,0,0)
bcolor = rgb(250,150,150)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 22:
fcolor = rgb(255,255,255)
bcolor = rgb(25,25,25)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 23:
fcolor = rgb(255,255,255)
bcolor = rgb(5,5,5)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if temper <= 0:
	if palto = 1: bonusZ = -3
	if palto = 2: bonusZ = 0
	if palto = 3: bonusZ = 3
	if temper<-10 and palto = 1:
		set frost += 1
		if energy < 5: set frost += 1
		if tanga = 0: set frost += 1
		if sweat > 0: set frost += 1
		end
	if temper<-20 and palto = 2:
		set frost += 1
		if energy < 5: set frost += 1
		if sweat > 0: set frost += 1
		end
	if temper<-30 and palto = 3: set frost += 1
	if palto <= 0:
		if temper<-10: frost += 1
		if temper<-20: frost += 2
		if temper<-30: frost += 5
		end
	if frost >= 12: set sick += 1
	if sick > 0 and sickstage = 0: set sickstage = 1
end
--- time ---------------------------------

# kid
if $ARGS[0] = 'start':
	clr
	gs 'stat'
	if kid > 0:
		set kidIteration = 1
		set kidSelected = 0
		!set kidLoops = 0
		:loop
		if polkid[kidIteration] = 0:
			$kidPosPro[kidIteration] = 'her'
		end
		else:
			$kidPosPro[kidIteration] = 'his'
		end
		"Your child, a <<$polreb[kidIteration]>> named <<$kidname[kidIteration]>>. The child's date of birth is <<daykid[kidIteration]>>-<<monthkid[kidSelected]>>-<<yearkid[kidSelected]>>. The child's age is <<kidage[kidIteration]>>"
		if kidage[kidIteration]<1: '<<$kidname[kidIteration]>> is a baby lying in <<$kidPosPro[kidIteration]>> crib.'
		if kidage[kidIteration] >= 1 and kidage[kidIteration]<7:
			if hour >= 9 and hour <= 21:
				'<<$kidname[kidIteration]>> is playing with toys.'
			end
			else
				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> crib.'
			end
		end
		if kidage[kidIteration] >= 7 and kidage[kidIteration]<18:
			if hour >= 21 or hour <= 8:
				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> bed.'
			end
			else
				'<<$kidname[kidIteration]>> watching TV.'
			end
		end
		''
		set kidIteration += 1
		!set kidLoops += 1
		if kidIteration <= numkid:
			jump 'loop'
		end
	end
	act 'Leave.':
		cla
		gt 'sitr'
	end
end
--- kid ---------------------------------

# subkid
if kid > 0:
	set kidIteration = 1
	set kidSelected = 0
	set kidLoops = 0
	:loop
	set kidSelected[kidLoops] = kidIteration
	pl '<a href="exec:kidSelected = kidSelected[kidLoops]& gt ''kid'',''start'' ">In the crib lies <<$kidname[kidIteration]>>.</a>'
	set kidIteration += 1
	set kidLoops += 1
	if kidIteration <= numkid:
		jump 'loop'
	end
end
--- subkid ---------------------------------

# alterStart
StoryLine = 1
MagikDostup = 1

umbrella = 1
birthday = 5
birthmonth = 3
set $name = 'Svetlana'
set $surname = 'Lebedev'
set age = 15
set vidage = 14
!set age = 17
!set vidage = 16
set year = 2010
!set month = 8
set week = 6
set hour = 10
!day = 30
set month = 3
day = 9
!!!!!!!!!!!!!!!
!month = 3
!day = 9
!week = 6
!hour = 10
!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!
month = 8
day = 30
week = 6
hour = 9
!!!!!!!!!!!!!!
birthyear = year - age
!тело
set rost = 170
set fat = 60
set salo = 60
set dick = 0
set energy = 15
set water = 15
set son = 16
!Статы
set stren = 10
set strenbuf = 10
set speed = 10
set agil = 10
set agilbuf = 10
set vital = 10
set vitalbuf = 10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
!etogame
set nastjaqw = 0
!etogame
set money = 50
set vidageday = 300
set housrA = 0
set sarafan[1] = 1
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair -= 5
set mop = 1
set recmop = 1
set usemop = 0
set usehapri = 0
set uselipbalm = 0
set housr = 0
tanga = 1
karta = 0


clr
gs 'stat'
set numdres = 1
set odetjeans = 1
set numdress = 1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70


set cltarelka = 0
set fairy = 0
set eda = 0
set clrbelo = 10
set poroshok = 0
set shampoo = 0
tampon = 20
set nude = 0
gs 'stat'
set opPRE = 0
set daystart = 0
!addobj 'Character'
!addobj 'See'
!addobj 'Others'

newclo[131] = 1
yoga[15] = 1
yogaH[15] = 100

glacol = 1
glaraz = 2
hcol = 1
lip = 2

!hcol = black
!hcol1 = brunette
!hcol2 = red
!hcol3 = blonde

gs 'stat'
clr

dress[5] = 1
dressH[5] = 100
dressB[5] = 70

palto = 1
$palto = 'Chinese wear'

father = 50
mother = 50
sister = 50
brother = 50
Suspeh = 75

$npcName[1] = 'Dimka'
$npcSurName[1] = 'Nosov'
$npcText[1] = 'Dimka is a cute guy and all the girls adore him.'
grupNPC[1] = 50
npcPol[1] = 0
grupTipe[1] = 3
$npcGo[1] = '<a href="exec:numnpc = 1 & GT ''Snpc''"><<$npcName[1]>> <<$npcSurName[1]>></a>'

$npcName[2] = 'Artem'
$npcSurName[2] = 'Chebotarev'
$npcText[2] = 'Artem is a typical nerd, but not a bad looking one.'
grupNPC[2] = 50
npcPol[2] = 0
grupTipe[2] = 1
$npcGo[2] = '<a href="exec:numnpc = 2 & GT ''Snpc''"><<$npcName[2]>> <<$npcSurName[2]>></a>'

$npcName[3] = 'Ivan'
$npcSurName[3] = 'Prokhorov'
$npcText[3] = 'Ivan is an excellent athlete, who is able to succeed in any sport.'
grupNPC[3] = 50
npcPol[3] = 0
grupTipe[3] = 2
$npcGo[3] = '<a href="exec:numnpc = 3 & GT ''Snpc''"><<$npcName[3]>> <<$npcSurName[3]>></a>'

$npcName[4] = 'Igor'
$npcSurName[4] = 'Kruglov'
$npcText[4] = 'Igor Nosov is a friend of Dimka and they are always together.'
grupNPC[4] = 50
npcPol[4] = 0
grupTipe[4] = 3
$npcGo[4] = '<a href="exec:numnpc = 4 & GT ''Snpc''"><<$npcName[4]>> <<$npcSurName[4]>></a>'

$npcName[5] = 'Fedor'
$npcSurName[5] = 'Kozlov'
$npcText[5] = 'Fedor is not a bad athlete and he''S best friends with Vanya Prokhorov.'
grupNPC[5] = 50
npcPol[5] = 0
grupTipe[5] = 2
$npcGo[5] = '<a href="exec:numnpc = 5 & GT ''Snpc''"><<$npcName[5]>> <<$npcSurName[5]>></a>'

$npcName[6] = 'Petka'
$npcSurName[6] = 'Klyuyev'
$npcText[6] = 'Petka is a nerd and can''t see beyond his textbook.'
grupNPC[6] = 50
npcPol[6] = 0
grupTipe[6] = 1
$npcGo[6] = '<a href="exec:numnpc = 6 & GT ''Snpc''"><<$npcName[6]>> <<$npcSurName[6]>></a>'

$npcName[7] = 'Lesco'
$npcSurName[7] = 'Tsarev'
$npcText[7] = 'Lesco always gets bullied for some reason.'
grupNPC[7] = 50
npcPol[7] = 0
grupTipe[7] = -1
$npcGo[7] = '<a href="exec:numnpc = 7 & GT ''Snpc''"><<$npcName[7]>> <<$npcSurName[7]>></a>'

$npcName[8] = 'Svyatoslav'
$npcSurName[8] = 'Warriors'
$npcText[8] = 'Svyatoslav is a athletic guy, who is persistently engaged in sports.'
grupNPC[8] = 50
npcPol[8] = 0
grupTipe[8] = 2
$npcGo[8] = '<a href="exec:numnpc = 8 & GT ''Snpc''"><<$npcName[8]>> <<$npcSurName[8]>></a>'

$npcName[9] = 'Witek'
$npcSurName[9] = 'Cats'
$npcText[9] = 'Witek is aggressive and a strong guy, who considers himself a gangsta. But his personality is pretty much see-through. Lena is his twin-sister.'
grupNPC[9] = 50
npcPol[9] = 0
grupTipe[9] = 4
$npcGo[9] = '<a href="exec:numnpc = 9 & GT ''Snpc''"><<$npcName[9]>> <<$npcSurName[9]>></a>'

$npcName[10] = 'Dan'
$npcSurName[10] = 'Ryzhov'
$npcText[10] = 'Dan is a tall and skinny guy who communicates to others with contempt and is always ready to expand on the concept. Just as he utvezhdeniyu, Dan knows the boys on the block clear that if that vpryagutsya for him.'
grupNPC[10] = 50
npcPol[10] = 0
grupTipe[10] = 4
$npcGo[10] = '<a href="exec:numnpc = 10 & GT ''Snpc''"><<$npcName[10]>> <<$npcSurName[10]>></a>'

$npcName[11] = 'Bob'
$npcSurName[11] = 'Shulgin'
$npcText[11] = 'Bob is always with Dan and Vic, mostly watching their six, but Witek makes continously fun of him.'
grupNPC[11] = 50
npcPol[11] = 0
grupTipe[11] = 4
$npcGo[11] = '<a href="exec:numnpc = 11 & GT ''Snpc''"><<$npcName[11]>> <<$npcSurName[11]>></a>'

$npcName[12] = 'Julia'
$npcSurName[12] = 'Milov'
$npcText[12] = 'Julia is a diligent and silent girl. She´s a really nerdy and almost no one talks to her.'
grupNPC[12] = 50
npcPol[12] = 1
grupTipe[12] = 1
$npcGo[12] = '<a href="exec:numnpc = 12 & GT ''Snpc''"><<$npcName[12]>> <<$npcSurName[12]>></a>'

$npcName[13] = 'Lariska'
$npcSurName[13] = 'Gruzdeva'
$npcText[13] = 'Lariska is a very sportive girl, but is very dependent on other people´s opinions.'
grupNPC[13] = 50
npcPol[13] = 1
grupTipe[13] = 2
$npcGo[13] = '<a href="exec:numnpc = 13 & GT ''Snpc''"><<$npcName[13]>> <<$npcSurName[13]>></a>'

$npcName[14] = 'Katia'
$npcSurName[14] = 'Meynold'
$npcText[14] = 'Katia is a hot, but impulsive girl. Vick is her twin-sister.'
grupNPC[14] = 50
npcPol[14] = 1
grupTipe[14] = 3
$npcGo[14] = '<a href="exec:numnpc = 14 & GT ''Snpc''"><<$npcName[14]>> <<$npcSurName[14]>></a>'

$npcName[15] = 'Vick'
$npcSurName[15] = 'Meynold'
$npcText[15] = 'Vick is a very sensible girl. Katia is her twin sister.'
grupNPC[15] = 50
npcPol[15] = 1
grupTipe[15] = 3
$npcGo[15] = '<a href="exec:numnpc = 15 & GT ''Snpc''"><<$npcName[15]>> <<$npcSurName[15]>></a>'

$npcName[16] = 'Natasha'
$npcSurName[16] = 'Belova'
$npcText[16] = 'Natasha is an excellent student, but she barely speaks to anyone.'
grupNPC[16] = 50
npcPol[16] = 1
grupTipe[16] = 1
$npcGo[16] = '<a href="exec:numnpc = 16 & GT ''Snpc''"><<$npcName[16]>> <<$npcSurName[16]>></a>'

$npcName[17] = 'Inna'
$npcSurName[17] = 'Devyatova'
$npcText[17] = 'Inna is a tall and pretty girl, her sweet smile hides her arrogance.'
grupNPC[17] = 50
npcPol[17] = 1
grupTipe[17] = 3
$npcGo[17] = '<a href="exec:numnpc = 17 & GT ''Snpc''"><<$npcName[17]>> <<$npcSurName[17]>></a>'

$npcName[18] = 'Christina'
$npcSurName[18] = 'Zvereva'
$npcText[18] = 'Christina tall and strong girl. She´s a great athlete and has leadership abilities who, together with her tenacity and intelligence make it a very serious figure.'
grupNPC[18] = 50
npcPol[18] = 1
grupTipe[18] = 2
$npcGo[18] = '<a href="exec:numnpc = 18 & GT ''Snpc''"><<$npcName[18]>> <<$npcSurName[18]>></a>'

$npcName[19] = 'Lina'
$npcSurName[19] = 'Starov'
$npcText[19] = 'Lina is an athlete and a fully fledged Christian.'
grupNPC[19] = 50
npcPol[19] = 1
grupTipe[19] = 2
$npcGo[19] = '<a href="exec:numnpc = 19 & GT ''Snpc''"><<$npcName[19]>> <<$npcSurName[19]>></a>'

$npcName[20] = 'Lena'
$npcSurName[20] = 'Kotova'
$npcText[20] = 'She''s the twin-sister to Witek. She is aggressive too and best of friends with Lera. Both tend to smoke in the bathrooms on a regular basis.'
grupNPC[20] = 50
npcPol[20] = 1
grupTipe[20] = 4
$npcGo[20] = '<a href="exec:numnpc = 20 & GT ''Snpc''"><<$npcName[20]>> <<$npcSurName[20]>></a>'

$npcName[21] = 'Lera'
$npcSurName[21] = 'Tsarev'
$npcText[21] = 'Lera comes from a poor family, she quickly made friends with Lena and both are regulary smoking on the toilets.'
grupNPC[21] = 50
npcPol[21] = 1
grupTipe[21] = 4
$npcGo[21] = '<a href="exec:numnpc = 21 & GT ''Snpc''"><<$npcName[21]>> <<$npcSurName[21]>></a>'

$npcName[22] = 'Bella'
$npcSurName[22] = 'Artamonov'
$npcText[22] = 'Bella is beautiful and arrogant girl.'
grupNPC[22] = 50
npcPol[22] = 1
grupTipe[22] = 2
$npcGo[22] = '<a href="exec:numnpc = 22 & GT ''Snpc''"><<$npcName[22]>> <<$npcSurName[22]>></a>'

$npcName[23] = 'Albina'
$npcSurName[23] = 'Barlovskaya'
$npcText[23] = 'Albina from a wealthy family and always knew how to look good and dress well.'
grupNPC[23] = 50
npcPol[23] = 1
grupTipe[23] = 3
$npcGo[23] = '<a href="exec:numnpc = 23 & GT ''Snpc''"><<$npcName[23]>> <<$npcSurName[23]>></a>'

$npcName[24] = 'Pauline'
$npcSurName[24] = 'Sebagotulina'
$npcText[24] = 'Pauline like pain in the ass who does not let her sit still, she and dvoechnitsa hooligan.'
grupNPC[24] = 50
npcPol[24] = 1
grupTipe[24] = 4
$npcGo[24] = '<a href="exec:numnpc = 24 & GT ''Snpc''"><<$npcName[24]>> <<$npcSurName[24]>></a>'

$npcName[25] = 'Sonia'
$npcSurName[25] = 'Ivanko'
!$npcText[25] = 'Sonia once inadvertently drunk and fucked her in a circle Witek Kotov and his friends. After that, the girls shunned Sonya, and the boys thought she was a whore. Local gopota regularly drove to Sonia proposals have sex.'
$npcText[25] = 'Sonia an ordinary girl.'
grupNPC[25] = 50
npcPol[25] = 1
grupTipe[25] = 0
$npcGo[25] = '<a href="exec:numnpc = 25 & GT ''Snpc''"><<$npcName[25]>> <<$npcSurName[25]>></a>'

SHOWSTAT 0
SHOWOBJS 0

$din_alter_start_ev = {
cls
'When you were 13 years old, your period started like most other girls in your class. Your breasts started to grow and your armpit and pubic hair began to sprout. Your skin became covered with acne. When you finished 9th class, you did not drop out of school, and continued to study in the 10th grade.'

'The summer holiday ends soon and you will go to your new class to start your first of the two years you''re going to study.'

act 'Start the game':
	SHOWSTAT 1
	SHOWOBJS 1
	health = vital * 10 + stren * 5 + 1000
	willpower = intel * 5 + will * 5 + 1000
	manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
	addobj 'Character'
	addobj 'See'
	addobj 'Others'
	gt 'bedrPar'
end
}

'You were born in <<birthyear>>.'
'Your mother and father, Natasha Mikhail <<$surname>>, were quite young and probably didn''t know how to protect themselves.'
'You have a sister, Anne, who is 2 years older than you.'
'You do not remember your real father because your parents divorced when you were still too young to remember. Your mom found another man and they had your little brother Nick.'
set $name = input("What is your first name?")
if $name = '':
	set $name = 'Svetlana'
end
set $surname = input("What is your last name?")
if $surname = '':
	set $surname = 'Lebedev'
end
act 'Further':
	cls

	'In the kindergarten where you went everything was fine, but you don''t remember it. When you were 7 years old, you finished kindergarten and went to school.'

	act 'You are a good student':
		cls
		fat = 150
		salo = 150
		intel = 50
		Suspeh = 110
		!!!!!!!!!!!!!! Maruda Hair Mod
		set hairlength = 162
		set hcol = 0
		set hpingrip = 10
		set hpingripw = 1
		!!!!!!!!!!!!!! Maruda Hair Mod
		gs 'stat'
		clr
		dressB[5] = bedra
		jeansB[1] = bedra
		mother = 100
		'In school, you put a lot of effort to be an excellent pupil. You didn''t make any friends because you weren''t engaged in sports, but you have excellent grades and your mom is very proud of you.'

		act 'Further': dynamic $din_alter_start_ev
	end

	act 'You are actively engaged in volleyball':
		cls
		stren = 25
		vital = 25
		speed = 25
		agil = 25
		fat = 20
		salo = 20
		volleyboll = 70
		beg = 40
		gsAboVolley = 120
		!!!!!!!!!!!!!! Maruda Hair Mod
		set hairlength = 97
		set hcol = 3
		set hscrunch = 10
		set hscrunchw = 0
		!!!!!!!!!!!!!! Maruda Hair Mod
		gs 'stat'
		clr
		dressB[5] = bedra
		jeansB[1] = bedra
		'You spent all your free time training your volleyball skills. Because of that you weren''t that good in school and had less friends.'
		act 'Further': dynamic $din_alter_start_ev
	end

	act 'You spent time outdoors':
		cls
		stren = 10
		vital = 10
		agil = 20
		fat = 30
		salo = 30
		dom = 50
		!!!!!!!!!!!!!! Maruda Hair Mod
		set hairlength = 19
		set hcol = 2
		!!!!!!!!!!!!!! Maruda Hair Mod
		gs 'stat'
		clr
		dressB[5] = bedra
		jeansB[1] = bedra
		'You spent almost all your free time outdoors playing with other girls and boys. As a result, you know how to get yourself out of trouble. You aren''t interested in School and sports.'
		act 'Further': dynamic $din_alter_start_ev
	end
	
end
--- alterStart ---------------------------------

# event
if $ARGS[0] = 'klof 2':
cla
*clr
set minut += 5
cla
*clr
gs 'stat'
'<center><img src="images\klof\15 1.jpg"></center>'
'Well baby come to us and get more entertainment, and if you will behave and you can earn more'
'- Okay, guys leave address.'
act 'Get dressed': gt 'event','klof 3'
!act 'Move away': gt 'park','start'
end

if $ARGS[0] = 'klof 3':
cla
*clr
set minut += 5
set klofQW = 2
clr
gs 'stat'
'<center><"klof\15 1.jpg"></center>'
'You suddenly gripped interest and you asked:'
'- Ryabyata help you earn money?'
'- Of course, come in tomorrow after 10 hours of talk (said with a grin guy).'
'(It turned out that they live in the house next door)'
act 'Leave': gt 'park','start'
end


if $ARGS[0] = 'park':
cla
*clr
!'<center><img src="images\picVA\event.jpg"></center>'
'You find a quiet, deserted dead end against the wall and start to kiss, but you want more.'

	act 'Masturbate.': gt 'event','hand'
	act 'Suck.': gt 'event','blow'
	act 'Sex.': gt 'event','sex'
end

if $ARGS[0] = 'hand':
cla
*clr
'<center><img src="images\picVA\event.jpg"></center>'
set hj += 1
set DOM += 1
set bfa += 1
'Without breaking the kiss you deftly unzips pants <<$boyA>> and start it nadrachivat <<dickA>> centimeter friend. Unable to withstand such pressure it ends right on the ground.'
act 'Complete walk': gt 'park','start'
end

if $ARGS[0] = 'blow':
cla
*clr
set bfa += 2
'<center><img src="images\picVA\event1.jpg"></center>'
set bj += 1

'You get up on his knees, unzips his pants partner and member of the dip sharply in his mouth, looking up at his relaxed face. After a few minutes the face <<$boyA>> tenses in anticipation of orgasm'

	act 'Continue to suck.':
	cla
	set swallow += 1
	set cumlip += 1
	!'<center><img src="images\picV\swallow.jpg"></center>'
	'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
		act 'Leave.':
		cla
		gt 'park','start'
		end
	end

	act 'Remove the mouth.':
	cla
		if harakBoyA = 0:
		!'<center><img src="images\picV\hand.jpg"></center>'
		'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
		end
		if harakBoyA = 1:
		set tiprand = RAND(0,3)
			if tiprand < 3:
			!'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
			end
			if tiprand = 3:
			set facial += 1
			set cumface += 1
			!'<center><img src="images\picV\facial.jpg"></center>'
			'You took out a member and at this point <<$boyA>> is dead right on your face, covering it with warm and sticky cum.'
			end
		end
		if harakBoyA = 2:
		set facial += 1
		set cumface += 1
		!'<center><img src="images\picV\facial.jpg"></center>'
		'<<$boyA>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
		end

		act 'Leave.':
		cla
		gt 'park','start'
		end
	end
end


if $ARGS[0] = 'sex':
cla
*clr
'<center><img src="images\picVA\event2.jpg"></center>'
set sex += 1
set bfa += 3
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<center><img src="images\picV\dog.jpg"></center>'
'"You find clean pjatochek and tightens pants, shaking her ass invitingly. <<$boyA>> pushes you, putting cancer and dramatically enters you.'
gs 'orgazm','start'
'.'
act 'Complete walk': gt 'park','start'
end

if $ARGS[0] = 'dima':
cla
*clr
clr
gs 'stat'
'Seeing that you are considering it, the man went to you.'
'he came up to you and asked politely:'
'-Girl, I´m sorry, but can you invite? Just you, I see lonely.'
act 'No': gt 'shop','start'
	act 'Where invite?':
	cla
	'Where invite? you asked.'
	'Understand us and his wife arrived boyfriend and I thought you could join us, sit down, let´s talk. You won´t be bored, I promise!'
		act 'No': gt 'shop','start'

		act 'Yes':
		cla
		*clr
		set minut += 60
		'"That´s fine, My name is Dmitry".'
		'You stretched out your hand to him - "<<$name>>".'
		'It was a man in his forties, of medium height, fairly strong build, dark short hair, nose slightly aquiline. You were talking about the weather, and all sorts of other things. Finally Dima told you to come, he brought you into their home. The house was a two-story, quite pretty. In the living room there was a man with a beer bottle in hand.'
		'"Oh Dimon, and I´m already bored I do not know what to do", he said and added, "What a beautiful woman you have brought with you tonight, this lovely girl will really brighten up this evening?". His eyes looking all over your body and stopping on your breasts.'
		'"<<$name>> meet Aleksei, my friend. Wife is not home yet, she went to her mother, the train should arrive at 24.00, Luda should be here soon and we will be at full strength" told me Dima smiling.'
		'"Aleksei, you can simply call me Alex" introduced his friend. He was slightly taller than Dima and looked a little older. Dark-haired with blue eyes, rather handsome man. You thought to yourself, "What am I doing here? Probably, there is no wife, not yet too late to get out of here! But Dmitry put his arm around your waist and led you to the kitchen. "Alex, you have organized the table without me, well done!" told Dmitry. "Yes, have a seat in the middle <<$name>>, you will be with us until one, we will look after you" said Alex while helping you sit. On the table were plates with a snacks and a bottle of vodka. Dima poured vodka. You asked:'
		'"I generally do not drink vodka. Maybe you have something poslabzhe?"'
		act 'Excuse me I have to go': gt 'street'
		act 'Drink vodka': gt 'event','dima2'
		end
	end
end

if $ARGS[0] = 'dima2':
cla
*clr
set minut += 60
clr
gs 'stat'
'You drink once, then again, and again, until you are a little tipsy. Men took turns to tell entertaining stories, you had a lot of fun. The wife did not come of course, but you´ve never thought to ask about it. Dima turned on the music, and invited you to dance. Alexei protested:'
'"I do not want to miss one, you can join me?!"'
'You smiled back. Dima immediately began to grope your ass, you danced slowly, he held you close to himself, so that you felt his erect penis, he pressed it against your crotch. Alexei came up from behind, grabbed your shoulders and his hands began to slowly lower to your chest. Drunk and the presence of two excited men had an effect. You shamelessly twisted your hips, pushing your ass against Alexei´s penis and then to Dima´s penis. Alexei caressed and squeezed your breasts, pinching your nipples through the fabric, Dima began caressing your pussy through clothes. You softly moaned with excitement. Then the men began to undress you. You stood between the two men in panties and terribly desired each of them.'
'"You´re beautiful. Look Alex, what kind of lustful bitch I have brought!"'
'"Yes, good friend. You will be our whore today. Want us to fuck you?" asked Alex.'
'"Yes, this whore is already wet and she´s waiting for us to fuck her!" Dima roughly pushed aside your panties and began to thrust his fingers in your pussy.'
act 'Moan with pleasure': gt 'event','dima3'
end

if $ARGS[0] = 'dima3':
cla
*clr
set minut += 10
clr
gs 'stat'
'They took you to the bedroom. In an instant, your amorous gentlemen turned into some kind of loons, and you into a whore. But you admit it is great pleasure. In the bedroom stood a large bed, men unzipped their pants and took out their huge cocks.'
'"Go on start sucking, I see that you cannot wait" said Alex.'
act 'Kneel down': gt 'event','dima4'
end

if $ARGS[0] = 'dima4':
cla
*clr
set minut += 10
set guy += 2
set bj += 2
set throat += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima.jpg"></center>'
'They stood next to the bed, you knelt down and took first Alex´s dick in your mouth the Dima. You sucked and licked the heads, then started swallowing their cocks. Dima took you by the chin, spit in his mouth and began to whip her cheeks, then sat down on the bed, grabbed you by the hair and began to roughly fuck you in the mouth, periodically pohlestyvaya cheeks. "Come on bitch, cocksucker" - he spoke to you, tears flowing down your cheeks, he humiliated you and called you names. And tougher skewer your mouth on his dick. You tried to please him. And Alex put you on your knees, ripped your panties, put my fingers in pussy and ass began to lubricate your holes with his spit, then directed his penis and roughly entered your ass.'
act 'Scream in pain': gt 'event','dima5'
end

if $ARGS[0] = 'dima5':
cla
*clr
set minut += 10
set group += 1
set throat += 1
set anus += 1
set cumass += 1
set cumlip += 1
set orgasm += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima1.jpg"></center>'
'You wanted to scream, but near my mouth was Dima´s cock, you uttered incomprehensible sounds. Swallowing cock deep into your throat. Your anus burning in pain, Alex fucks you in the ass and Dima is fucking your mouth.'
'"Slut we will fuck you all night in all holes" said Alex.'
'The room was full of fucking noises. You have experienced an orgasm. Dima sometimes pulled his dick from your mouth spit in your mouth and started fucking your mouth again. And Alex started beating your ass, with every thrust his balls beat against your pussy, bringing you to all new pleasures. "Fuck me boys, I´ll do whatever you want" you thought to yourself. Dima stiffened and said:'
'"Swallow all that! Understood, bitch!"'
'And cum began to pour down your throat, you almost choked by swallowing it. You swallowed it all and licked his cock.'
'"Come on Alex, stretch this slut.'
'Alex also started to cum, his sperm was hot inside. He pulled out his dick and ordered:'
'"Lick it, bitch".'
act 'Lick': gt 'event','dima6'
end

if $ARGS[0] = 'dima6':
cla
*clr
if mop > 1: set mop = 0
set minut += 10
set cumlip += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima2.jpg"></center>'
'You turned around and took in his dick in your mouth and began to suck it thoroughly. When finished we all went together to the kitchen and started drinking again.'
'"Did you like how we fucked you?"'
act 'Very much': gt 'event','dima7'
end

if $ARGS[0] = 'dima7':
cla
*clr
set minut += 10
set group += 1
set vagina += 1
set anus += 1
set cumpussy += 1
set cumass += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima3.jpg"></center>'
'"And you a proper slut now, will will fuck you from both sides" said Dima.'
'Dima squeezing your chest and biting your nipples and Alex began greasing your ass. You slowly got up and went back into the bedroom. Alex lay back, you sat down, sending his dick in your pussy yourself, fucking, he pulled himself to kiss you, you bent down and Dima roughly entered your ass. As you had two huge dicks in you, you started moaning. "More, more, fuck me, I´m your whore! Fuck my hole!" You cried. It was amazing delight having two dicks in your holes, two strangers fucked you and you moaned as the last whore. And asked them to not stop. You were finishing and finishing. They finished almost simultaneously right into you. You got up and went back to the kitchen, with cum flowing from your ass and pussy. You could hardly walk.'
'"Alex, you have two more days, and I will come back next week, you can have this bitch to yourself, you will fuck her?'
'"Of course leave. Only need to properly spank her for her obedience."'
'Dima said:'
'"Do what you want, I need to go to work in the morning, I´m going to sleep."'
'Alex went for a belt, grabbed you by your hand and led you into the hall. Dima went to sleep.'
act 'Don´t ... I´ll do whatever you want!': gt 'event','dima8'
end

if $ARGS[0] = 'dima8':
cla
*clr
set spank += 1
set minut += 10
clr
gs 'stat'
'<center><img src="images\qwest\dima4.jpg"></center>'
'"Not necessary" you begged with tears in your eyes, "I will do whatever you want."'
'"Sure you do, but we need to spank you for the future.'
'He put you doggy-style on the floor and started beating your ass with the belt, you cried and begged him to stop. Ass burning with pain. Each hit was getting more painful.'
'"Get up bitch!" he tied your hands with the belt, "suck my dick before bedtime."'
act 'Suck': gt 'event','dima9'
end

if $ARGS[0] = 'dima9':
cla
*clr
set minut += 30
set throat += 1
set bj += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima5.jpg"></center>'
'Lech took you by the head and started to fuck in the mouth, it did not last very long. His dick was bigger and went deep in his throat, he held your hair. Then he still finished, you tied to a radiator and fell on the sofa bed.'
act 'Cry from the battery': gt 'event','dima10'
end

if $ARGS[0] = 'dima10':
cla
*clr
set minut += 30
set dimaQW = 2
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'You lay hands tied at the battery and wept. Ass on fire after undergoing whipping. Drunken peasants went to bed. Finally you hear the mighty snoring.'
act 'Leave': gt 'street'
act 'Fall asleep': gt 'event','dima11'
end

if $ARGS[0] = 'dima11':
cla
*clr
set minut += 480
set datster = 1
set bj += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima7.jpg"></center>'
'You awoke from the fact that someone grabbed you by the hair and began shamelessly fuck you in the mouth.'
'"Hungy, I bet?", your recognize Dima´s voice, "Breakfast must be earned!"'
act 'Suck': gt 'event','dima12'
end

if $ARGS[0] = 'dima12':
cla
*clr
set minut += 10
set throat += 1
set bj += 1
set swallow += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima8.jpg"></center>'
'You felt his cock stiffened and began to wring out streams of warm sperm. As soon as he finished with a contented sigh - came Lech besprikoslovno tone ordered to lick his balls to shine, otherwise no breakfast you can not see'
act 'Dutifully fulfill': gt 'event','dima13'
act 'Comply with the enthusiasm': gt 'event','dima14'
act 'Try to bite': gt 'event','dima31'
end

if $ARGS[0] = 'dima13':
cla
*clr
set minut += 5
set balls += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima9.jpg"></center>'
'You lick and suck shaved Lehina balls, but he did not enjoy it. After a couple of minutes, he slaps you across the face and says:'
'"What is this bullshit? I´ll teach you how to perform!"'
act 'Look down': gt 'event','dima39'
end

if $ARGS[0] = 'dima14':
cla
*clr
set minut += 10
set balls += 1
set throat += 1
set bj += 1
set swallow += 1
clr
gs 'stat'
'<center><img src="images\qwest\dima9.jpg"></center>'
'Do you remember anything seen before, and try to repeat the same thing. Your tongue and lips lick and kiss each millimeter, thoroughly moisturizing the delicate skin. Then gradually move on to Lehina member and swallow whole, he immediately pushes you on the head and rapidly discharged in your throat, not letting up until his cock stops shudder convulsed'
act 'Swallow': gt 'event','dima15'
end

if $ARGS[0] = 'dima15':
cla
*clr
set minut += 30
set runrnd = RAND(0,10)
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'Dima unties you from the battery, throws you a bundle and tells him to go to the bathroom to freshen up. Meanwhile They Lehoy discussing something'
	act 'Try to escape':
		if runrnd < 9:
		gt 'event','dima18'
		else
		gt 'street'
		end
	end
act 'Go to the bathroom': gt 'event','dima16'
end


if $ARGS[0] = 'dima16':
cla
*clr
set minut += 30
set lobkoef = 3
set legkoef = 3
set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'In convolution you find mesh bodysuit that you will wear. In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, and then apply the war paint on his face.'
act 'Wear net': gt 'event','dima19'
act 'Do not wear out of the tub': gt 'event','dima17'
end

if $ARGS[0] = 'dima17':
cla
*clr
set dom += 2
set minut += 30
set runrnd = RAND(0,10)
set lobkoef = 3
set legkoef = 3
set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, but do not dress mesh. You come out of the bathroom in the buff, in spite of instructions'
	act 'Look at the guys with the call':
		if runrnd < 9:
		gt 'event','dima18'
		else
		gt 'event','dima21'
		end
	end
end

if $ARGS[0] = 'dima18':
cla
*clr
set minut += 30
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'"Oh Well bitch disobedient! Thought, you can do what you want? Fuck thou nobody here, and you will do what you tell us!" - With these words Lech sprinkled in your face some spray and you passed out'
act 'Fall asleep': gt 'event','dima49'
end

if $ARGS[0] = 'dima19':
set minut += 5
clr
gs 'stat'
'"Here, boy, think you already vnikla what to do?"'
act 'Men serve on the highest level': gt 'event','dima20'
end

if $ARGS[0] = 'dima20':
cla
*clr
set minut += 30
clr
gs 'stat'
'"Here, boy, think you already vnikla what to do?"'
act 'Men serve on the highest level': gt 'event','dima21'
end

if $ARGS[0] = 'dima21':
cla
*clr
Set hour += 3
clr
gs 'stat'
'<center><img src="images\qwest\dima3.jpg"></center>'
'You long to fuck in various poses, some of which would be the envy of the ardent lovers of kinky sex. After all this, you release'
set dimaqw = 2
act 'Leave': gt 'street'
end

if $ARGS[0] = 'dima30':
cla
*clr
Set hour += 3
clr
gs 'stat'
'I confess, I am a sinner, a writer from me worthless, and all my dark little thoughts went to the recent arrival of women. If there are interesting ideas/scenarios to continue - fling in a personal, zabubenyu'
set dimaqw = 2
act 'Leave': gt 'street'
end


	if $ARGS[0] = 'dima31':
	cla
	*clr
	set minut += 30
	set dimaQW = 2
	clr
	gs 'stat'
	'<center><img src="images\qwest\dima6.jpg"></center>'
	'You squeeze teeth, but Lech lightning grabs your face and jaw power disconnects.'
	'-Bitch, what are you up to?!'
	'You get a strong blow to the face and lose consciousness.'
	act 'Wake up': gt 'event','dima32'
	end

	if $ARGS[0] = 'dima32':
	cla
	*clr
	set minut += 30
	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_180.jpg"></center>'
	'You came from a bright light batter on the eyes. My mouth was dry. Something just did not allow you to close your mouth. Body ached.'
	'Oh, awake! And here I figured out how to re-educate you! - Lech said.'
	'You looked around. It seems that while you were unconscious, you threw some clothes and took him outside. Metallic taste in the mouth. Hands tied behind their backs.'
	'-And now, bitch, I´ll show you what a "safe sex."'
	'With these words, Lech put you on your knees in front of him, pulled out his penis and sent to you in the mouth.'
	act 'Resist': gt 'event','dima33'
	If Kik > 50:
	act 'Kick': gt 'event','dima37'
	end
	end



	if $ARGS[0] = 'dima33':
	cla
	*clr
	set minut += 10
	set throat += 1
	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_183.jpg"></center>'
	'Despite your attempts to resist, gave Lech and put your head in your mouth his dick. Device in the mouth did not give you close it, so you attempt to push him. But a ride failed. It seems that the device was securely fastened, and your movements of the tongue only provoke Lech.'
	'- Oh, I see you like "safe sex"? Come on, do not stop!'

	act 'continue to please': gt 'event','dima38'
	act 'Stop tongue movement': gt 'event','dima34'
	end


	if $ARGS[0] = 'dima34':
	cla
	*clr
	set minut += 30
	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_187.jpg"></center>'
	'Lech realized that you are not going to continue his humor:'
	'-Yesterday you did it with pleasure! Okay, so we´re still nowhere would come. A lesson that the mouth should be open, you´ve learned!'
	'With these words he pulled his cock, lifted your hair and led her down.'
	'You are trapped in an empty underground passage. Lech took the gag out of your mouth, and you were finally able to close it. Then your eyes closed bandage. Lech slightly bent you and povernull back to him.'
	act 'stand still': gt 'event','dima35'
	end


	if $ARGS[0] = 'dima35':
	cla
	*clr
	set minut += 30
	set vagina += 1
	set rape += 1
	set cumface += 1
	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_301.jpg"></center>'
	'Lech smash you entered. Happened on the stairs has brought you, and now he easily slid publishing squish. After a while you covered orgasm.'
	'-So I had to start the morning. And no risk! - Said Lech, increasing the tempo.'
	'Suddenly he stopped, turned sharply and put you on your knees. You hurt hit the marble floor, and felt something warm began to beat and run down your face.'
	'-Your Stuff for the urn. I hope you learned a lesson - with these words Lech loosened the straps on your hands, and you heard postpones steps.'

	act 'Recover': gt 'event','dima36'
	end

	if $ARGS[0] = 'dima36':
	cla
	*clr
	set minut += 5

	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_352.jpg"></center>'
	'After sitting in that position for a few minutes, you started releasing hands. When you succeed, you tore the bandage from his face, wiped her face with sperm and pushed as far as possible. Looking around, you notice an urn, which lie in your stuff. You get dressed and get out of the transition.'
	act 'Leave': gt 'street'
	end


	if $ARGS[0] = 'dima37':
	cla
	*clr
	set minut += 30

	set money = 0
	clr
	gs 'stat'
	'<center><img src="images\etogame\Kik.jpg"></center>'
	'Things in the fitness center were not in vain. You manage to hit Lech foot so that it falls and loses consciousness. You start to run, and only remove staying far enough, and start looking for a way to free your hands. Eye catches you pointed stone, and when your hands are free, you remove the gag from his mouth, and finally, you can close it. Teeth creak from the dust that nabilas in the mouth while running. Dress trampled and torn in places, but still able to cover your body. You manage to find the right direction, and after a while you find yourself close to the supermarket, which met Dima. Then you realize that Lehi left all your money.'
	act 'Relax': gt ' street'
	end


	if $ARGS[0] = 'dima38':
	cla
	*clr
	set minut += 30
	Set bj += 1
	set cumlip += 1
	set throat += 1
	clr
	gs 'stat'
	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_184.jpg"></center>'
	'You begin to carefully caress member Lehi language, while trying to periodically swallow it as deep as possible. Limiting device in the mouth of your abilities and you seemed to be an eternity before you managed to get to Lech finish.'
	'Yes, now a lesson learned. I think in the future you will have no problems. After all, am I right? - He said, clutching your hair.'
	'You nodded. Lech then loosened the ties on your hands and pointing to the bushes, said:'
	'-There you will find your things.'
	'After Lech retired, you free your hands, mouth, and find their stuff in the specified location.'
	act 'Leave': gt 'street'
	end

	if $ARGS[0] = 'dima39':
	cla
	*clr
	set minut += 30

	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet085.jpg"></center>'
	'Lech suits you and inserts the mouth gag. Then displays the apartment, and you take the bus to the center. It is surprisingly empty.'
	'-Look, I´ve remembered you yesterday tried, and I thought maybe you just do not get enough sleep today? Can correct the mistake right there?'
	act 'Beckon': gt 'event','dima40'
	act 'Refuse': gt 'event','dima45'
	end


	if $ARGS[0] = 'dima40':
	cla
	*clr
	set minut += 30
	set vagina += 2
	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet113.jpg"></center>'
	'-That´s great - with these words Lech pulls you dress, pulls already got stronger member and skewer you.'
	'You start to move rhythmically, but rough road knocks you adding new sensations.'
	act 'change of station': gt 'event','dima41'
	end

	if $ARGS[0] = 'dima41':
	cla
	*clr
	set minut += 30

	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet154.jpg"></center>'
	'You park between the seats, and Lech adjusts rear, removing the gag with the words:'
	'-You do me now not going to disappoint?'
	'Looks like Lehi not like sex on the go, and he stops and asks the driver to stop the bus between stops in the park area. The driver did not mind, he stops, and you leave the transport. Looks like he´s noticed your nakedness, and you feel his gaze until Lehoy hiding among the trees.'
	'Soon you will find a clearing near the road.'
	'-And now prove that morning showed not all that is capable of!'
	act 'To kneel': gt 'event','dima42'
	end

	if $ARGS[0] = 'dima42':
	cla
	*clr
	set minut += 30
	Set bj += 1
	set cumlip += 1
	set throat += 1
	set cumface += 1
	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet231.jpg"></center>'
	'I knelt down, you start diligently to please Lech then completely swallowing, then fully releasing member. Your diligence now could envy the best porn actress. Not surprisingly, soon Lech breathing hard, and finished removing the member on your face.'
	'-That´s clever - he said - because you can, whenever you want! Think about your ability to have to learn everything!'
	'Lech ties your hands, naked and takes you on the road. Put you on your knees, he took a marker and wrote on your stomach "Cum" and the up arrow, and said:'
	'- I am away for a couple of hours when I come back, bring your stuff. And yet you sit here and boast about his skill.'
	act 'wait for the return': gt 'event','dima43'
	act 'Leave': gt 'event','dima44'
	end

	if $ARGS[0] = 'dima43':
	cla
	*clr
	set minut += 50
	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet263.jpg"></center>'
	'You decided to wait for the return of Lehi. The first 15 minutes passed quietly. On the road was deserted. But then began the most unpleasant pastime in your life. Passed a crowd of young people to notice you. They took a few photos, obsmeyali you, and losing interest gone. You seemed like an eternity held grandmother told me about morality, and that in its time, this was unacceptable. There were other personality, which you tried not to think.'
	'When Lech returned, he untied you handed your things, and said that he was sorry about his imminent departure from the city as would be very happy new "rendezvous" with you.'
	'You got dressed, took their belongings and hurriedly left his company.'
	act 'Go to the yard': gt 'street'
	end


	if $ARGS[0] = 'dima44':
	cla
	*clr
	set minut += 15
	set money = 0
	clr
	gs 'stat'
	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet264.jpg"></center>'
	'You decide that sit covered with sperm, naked on the road - too humiliating for you. When Lech hidden from view, you go up, grab his clothes, left nearby, and run into the grounds. Unfortunately your purse he prehvatil ssoboy. Eye catches you pointed stone, and when your hands are free, you carefully wipe the traces of semen from her face. You manage to find the right direction, and after a while you find yourself close to the supermarket, where you met Dima'

	act 'Relax': gt ' street'
	end


if $ARGS[0] = 'dima45':
cla
*clr
set minut += 30

clr
gs 'stat'
'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet084.jpg"></center>'
'How you want. So you will get new experience. Lots of new experiences! And I benefit - Lech said, smiling.'
'After that he was silent all the way until you have passed the desired stop. Lech brought you out of the bus and led to sex shops.'
'-There you are - you are greeted by a girl. She unceremoniously grabs you and leads to the back room. There she undresses and connects you.'
'-And now for me - the girl you brought to the stairs.'
act 'Go to the basement': gt 'event','dima46'
end

if $ARGS[0] = 'dima46':
cla
*clr
set minut += 5
set throat += 1
set cumlip += 1
set swallow += 1
Set bj += 1
set gloryhole += 1
clr
gs 'stat'
'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_447.jpg"></center>'
'When you went down, the girl has got you in a dark room with a round hole in one wall. Almost immediately, there is a hole in someone´s penis.'
'-Nigh - commanded girl.'
'After your failure, it grabbed you by the neck, and pressed to the opening force.'
'Attempts to shove dick out of your mouth, just very excited stranger behind the wall, and not stand a minute it ends. Because your head is firmly against, you are not able to spit, and are forced to swallow.'
'-Your companion got the money for a certain number of customers. Next she right, or should I stay and check?'
act 'agree to suck': gt 'event','dima47'
act 'refuse to continue': gt 'event','dima48'
end

if $ARGS[0] = 'dima47':
cla
*clr
set minut += 50
set throat += 5
set cumlip += 8
set swallow += 8
Set bj += 8
set gloryhole += 8
set vagina += 1
set money += 1000
clr
gs 'stat'
'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_494.jpg"></center>'
'Here-and miraculously, - she said, - I call your friend, even if it is followed. And you do not get distracted - with these words the girl pointed to the hole, which has a new member.'
'You obediently bent over and began to please the next stranger. You tried. Men erupted one after another.'
'Looks like you got so carried away that have not heard, as Lech walked into the room.'
'The realization that you are not alone in the room at that moment came when he forcefully entered you.'
'You decided not to get distracted, and continued to suck, regardless of ramming you from behind Lech.'
'When the man you served, finished, you as before, swallowed, and were ready to accept the new, but the hole remained empty. It seems that money received Lehoy you worked.'
'Lehi efforts were not lost, and soon you shook in orgasm. Almost immediately, he pulled out his penis, and expanding you poked your face. You are already in a couple of habitual movements could make him cum.'
'Once you have cleaned his cock, he came out of the booth and you a few minutes to recover. Oklemavshis you out of the room. At the door of the girl you met, which led you to this basement. She took you to the restroom, where you could wash your face and rinse your mouth. When you are out, she handed you a package with your things, and a few notes, adding that it is you asked me to tell your friend, for a job well done. You dressed.'
act 'Get Outside' : gt 'nord'
end

if $ARGS[0] = 'dima48':
cla
*clr
set minut += 50
set throat += 5
set cumlip += 8
set swallow += 8
Set bj += 8
set gloryhole += 8
clr
gs 'stat'
'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_481.jpg"></center>'
'It seems that the girl did not satisfy your refusal.'
'-Do you want to good, then continue on the poor.'
'With these words, the girl again summed up your head to the hole.'
'When it has a new member, she put it to you in the mouth, and began to drive your head. The impression that she fucks a stranger behind the wall of your head. It took more time, but this ended in your mouth. At this time, she shrank your head into the wall without letting you spit on the floor. This was repeated several times.'
'When the last "client" disappeared into the hole, she let go of your head, and left the room. Very soon she returned to your dealer. You dressed up, and she put you out of the room.'
act 'Get Outside' : gt 'nord'
end

if $ARGS[0] = 'dima49':
cla
*clr
set minut += 50
clr
gs 'stat'
'<center><img src="images\qwest\10022_ParisTommy_021.jpg"></center>'
'You came to the middle of a square. Your hands were chained to a pole, and things found in a step away from you. In the mouth gag. In the distance there were people, but no one dared to approach you. And their okriknut you too could not. So it took about an hour. Similarly, you could not tell. Your legs are tired, but his hands behind his back did not give you the opportunity to sit down.'
'Suddenly you notice that some guy is coming to you.'
'-Do you need help? - He asked'
act 'Nod': gt 'event','dima50'
end

if $ARGS[0] = 'dima50':
cla
*clr
set minut += 30

clr
gs 'stat'
'<center><img src="images\qwest\10022_ParisTommy_028.jpg"></center>'
'The guy came closer, keep your hands and pulled the gag out of his mouth.'
'He helped collect your things, and offered to withdraw from the area as soon as possible. Was very close to the river, and he offered you a dress under the bridge.'
'When you went down, the guy said:'
'- Can you repay the savior?'
act 'Suck': gt 'event','dima51'
if agil < 50:
act 'Send': gt 'event','dima52'
end
if agil > 49:
act 'Send': gt 'event','dima53'
end
end

if $ARGS[0] = 'dima51':
cla
*clr
set minut += 5
set throat += 1
set cumlip += 1
set swallow += 1
set cumface += 1
Set bj += 1
clr
gs 'stat'
'<center><img src="images\qwest\10022_ParisTommy_088.jpg"></center>'
'You knew immediately that hints at the guy. Kneeling, you rastegnula fly guy, and went to work. Barely a couple of minutes, the guy began to finish. When finished, he said goodbye to you, and quickly departed.'
act 'Freshen up' : gt 'nord'
end

if $ARGS[0] = 'dima52':
cla
*clr
set minut += 20
set throat += 2
set cumlip += 1
set swallow += 2
set cumface += 1
Set bj += 2
set money = 0
clr
gs 'stat'
'<center><img src="images\qwest\10022_ParisTommy_308.jpg"></center>'
'Enraged your refusal, the guy pushes you, grabs your stuff, throwing them into the river, and you have time to grab clothes, but handbag goes to the bottom with your savings and keys.'
'When you go up to the bridge, from the air as there are few guys. They grab you and tie your hands. Judging by their actions, they are watching you from the square.'
'When you find yourself on your lap, they lowered his pants. It seems you have no choice. You start to appease them.'
'When you finish with the last guys free your hands and run away.'
'Back in the present, you will find the right direction, and after a while find yourself far from the supermarket, which met Dima'
act 'Relax': gt ' street'
end


if $ARGS[0] = 'dima53':
cla
*clr
set minut += 30

clr
gs 'stat'
'<center><img src="images\clothes\skirt1.jpg"></center>'
'Enraged your refusal, the guy pushes you, but you stand firmly on his feet. Realizing that you do not mess, the guy runs away.'
act 'Freshen up' : gt 'nord'
end

if $ARGS[0] = 'scoreslut1':
cla
*clr
set minut += 30
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'You woke up, tied hands of the battery. From the sofa looked expectantly at you Dima.'
act 'Frightened look': gt 'event','scoreslut2'
act 'Trying to escape': gt 'event','scoreslut3'
end

if $ARGS[0] = 'scoreslut2':
cla
*clr
SUB = SUB + 2
set minut += 5
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'"Woke up, bitch? We´ll say?.'
act 'Frightened look': gt 'event','dima30'
end

if $ARGS[0] = 'scoreslut3':
cla
*clr
SUB = SUB + 2
set minut += 5
clr
gs 'stat'
'<center><img src="images\qwest\dima6.jpg"></center>'
'"Oh, you kicking"'
act 'Frightened look': gt 'event','dima30'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'lesbi':
cla
*clr
set minut += 5
gs 'stat'
'<center><img src="images\qwest\lesbi.jpg"></center>'
'Woman staring at you, caught your eye. Appreciatively examining you, she smiled and held fast to his lips tongue.'
act 'Turn': gt 'butik','start'
act 'Become acquainted': gt 'event','lesbi1'
end

if $ARGS[0] = 'lesbi1':
cla
*clr
set minut += 5
set lesbiQW = 1
gs 'stat'
'<center><img src="images\qwest\lesbi.jpg"></center>'
'You came to the woman. She looked at you with a twinkle in his eye, "I Natalya Petrovna, and you´re nothing on my card, call me anything as we descend in an interesting place." After that the woman comes out of the boutique graceful and confident gait.'
act 'Move away': gt 'butik','start'
end

if $ARGS[0] = 'lesbi2':
cla
*clr
set minut += 5
gs 'stat'
'<center><img src="images\qwest\lesbi.jpg"></center>'
'- Malyavki? yes I have had more guys than you! you misbehaved.'
'- Guys? YES they can twist as you want, if sicki, yes cute little face. Did you ever ever tried to force'
'another girl to live so that she is ready to do anything for your attention?'
if lesbian > 0: '- Nuu .. no .. I do not understand this - you mumbled. The girl I tried, but that so ..'
if lesbian = 0: '- Nuu .. no .. I do not understand this - you mumbled. I´m a woman and some really did not try ..'
act 'Move away': gt 'park','start'
act 'Ask teach': gt 'event','lesbi3'
end

if $ARGS[0] = 'lesbi3':
cla
*clr
set minut += 5
set lesbiQW = 2
clr
gs 'stat'
'<center><img src="images\qwest\lesbi.jpg"></center>'
'You suddenly gripped interest how does it make the other girls so you read? Can ask this woman to teach me.'
'Then you can find yourself very docile simpleton that will make your small chores and help you escape'
'from the guys. And deciding you asked:'
'- And can you teach me that?'
'- Teach? - She asked in surprise. - Teach .. hmm .. let´s try! - The lady said with a grin. - Come back tomorrow at 10 am in my'
'apartment (oddly enough, it turned out that she lives on the floor below you'
act 'Go in turmoil': gt 'park','start'
end
--- event ---------------------------------

# frot
if $ARGS[0] = 'a':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frot.jpg"></center>'
'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
act 'Go to another place': gt 'frot','fin'

	act 'Disregard':
	cla
	*clr
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\picV\frot1.jpg"></center>'
	'The guy standing behind no matter how vznachay Regarding your buttocks his hand and pressed harder you as a member to the ass.'
	act 'Go to another place': gt 'frot','fin'
	act 'Disregard':
		cla
		*clr
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\picV\frot2.jpg"></center>'
		'You feel like a man behind you got penis and began to rub them on your ass clinging to you and squeezing your buttocks with his hands.'
		act 'Go to another place': gt 'frot','fin'
		act 'Disregard':
			cla
			*clr
			set horny += 10
			set frot += 1
			set cumfrot += 1
			set SUB += 5
			gs 'starenie'
			clr
			gs 'stat'
			'<center><img src="images\picV\frot3.jpg"></center>'
			'Man jerked back and you feel like something warm and viscous flowed over you. Guy finished you on your ass, then he moved on to another place.'
			act 'Get out of the car': gt 'frot','fin2'
			end
		end
	end
end

if $ARGS[0] = 'b':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frot.jpg"></center>'
'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
act 'Go to another place': gt 'frot','fin'
	act 'Disregard':
	cla
	*clr
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\picV\frot1.jpg"></center>'
	'The guy standing behind your buttocks squeezes hands and even more pressed his cock you to the ass.'
	act 'Go to another place': gt 'frot','fin'
	act 'Disregard':
		cla
		*clr
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\picV\frotA1.jpg"></center>'
		'The man lifted her skirt and you started to caress your bare buttocks with his strong hands.'
		act 'Disregard':
			cla
			*clr
			set horny += 10
			clr
			gs 'stat'
			'<center><img src="images\picV\frotA2.jpg"></center>'
			'Man lowered your panties between your naked buttocks slid his hand that caressed your wet pussy.'
			act 'Disregard':
				cla
				*clr
				set horny += 10
				clr
				gs 'stat'
				set horny += 10
				set frot += 1
				set cumfrot += 1
				set SUB += 1
				gs 'starenie'
				clr
				gs 'stat'
				'<center><img src="images\picV\frot3.jpg"></center>'
				'The man pulled on below your skirt at your panties down on your knees and took his hand your hand. He forced you to take your dick with your hand. You cupped hot and hard cock and began stroking it. After you feel like a man cums on your skirt.'
				act 'Get out of the car': gt 'frot','fin2'
				end
			end
		end
	end
end

if $ARGS[0] = 'c':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frotP.jpg"></center>'
'You feel like a man standing behind you started poking his hand in his pants you.'
act 'Go to another place': gt 'frot','fin'
	act 'Disregard':
	cla
	*clr
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\picV\frotP1.jpg"></center>'
	'You become a nice addition to the stranger under pants caresses your ass, suddenly you see how he pulled out a small pair of scissors to cut the ribbon wants your bra.'
	act 'Go to another place': gt 'frot','fin'
	act 'Disregard':
		cla
		*clr
		set horny += 10
		set clrbelo -= 1
		set SUB += 1
		clr
		gs 'stat'
		'<center><img src="images\picV\frotP2.jpg"></center>'
		'Man cut the ribbon of your bra and pulled it off with you. Freeing you from bra he began to fondle your breasts'
		act 'Enjoy':
			cla
			*clr
			set horny += 10
			clr
			gs 'stat'
			'<center><img src="images\picV\frotP3.jpg"></center>'
			'Man you bent forward and began to caress your ass, you feel that his hands clutching your pants trying to break them.'
			act 'Go to another place': gt 'frot','fin'
			act 'Allow it to':
				cla
				*clr
				set SUB += 1
				set horny += 10
				clr
				gs 'stat'
				set horny += 10
				!set frot += 1
				set cumfrot += 1
				set SUB += 5
				gs 'starenie'
				gs 'starenie'
				gs 'starenie'
				gs 'starenie'
				gs 'starenie'
				clr
				gs 'stat'
				'<center><img src="images\picV\frotP4.jpg"></center>'
				'Man ripped your pants between your legs, thereby exposing your wet pussy.'
				act 'Allow it to':
					cla
					*clr
					set SUB += 1
					set horny += 10
					set guy += 1
					set sex += 1
					set vagina += 1
					clr
					gs 'stat'
					'<center><img src="images\picV\frotP5.jpg"></center>'
					'He turned you around to face him and cocked up your leg came into your sweaty pussy with his hard cock.'
					if horny >= 100:
						set horny = 0
						set manna += 15
						set willpower += 15
						set orgasm += 1
						'You started to cum almost immediately as he entered you.'
						end
					if horny < 100:
						'You cover the wild excitement of sex with a stranger in a public place.'
						end
						act 'Further':
						cla
						*clr
						set horny += 10
						set frot += 1
						set cumfrot += 1
						set frot += 1
						set cumpussy += 1
						gs 'preg'
						set SUB += 1
						gs 'stat'
						'<center><img src="images\picV\frotP6.jpg"></center>'
						'Stranger is not pulling out of your pussy juices flowing term ends right inside. You feel like you beat jet of sperm into the uterus.'
						act 'Get out of the car': gt 'frot','fin2'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'd':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frotP.jpg"></center>'
'You feel like a man standing behind you started poking his hand in his pants you.'
act 'Go to another place': gt 'frot','fin'
act 'Disregard':
	cla
	*clr
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\picV\frotD.jpg"></center>'
	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
	act 'Go to another place': gt 'frot','fin'
		act 'Stroking his cock':
		cla
		*clr
		set horny += 10
		set hj += 1
		set cumass += 1
		set SUB += 1
		set frot += 1
		clr
		gs 'stat'
		'<center><img src="images\picV\frotD1.jpg"></center>'
		'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
		act 'Get out of the car': gt 'frot','fin2'
		end
	end
end

if $ARGS[0] = 'e':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frotP.jpg"></center>'
'You feel like a man standing behind you started poking his hand in his pants you.'
act 'Go to another place': gt 'frot','fin'
act 'Disregard':
	cla
	*clr
	set horny += 60
	clr
	gs 'stat'
	'<center><img src="images\picV\frotE.jpg"></center>'
	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, you feel like you gets his hand between her legs and starts to masturbate your pussy.'
	!act 'Go to another place': gt 'frot','fin'
		if horny >= 90:
		set horny = 0
		set manna += 15
		set willpower += 15
		set orgasm += 1
		'You can no longer tolerate and you cover powerful orgasm. Your legs give way.'
			act 'Squat':
			cla
			*clr
			set horny += 10
			set SUB += 1
			clr
			gs 'stat'
			'<center><img src="images\picV\frotE1.jpg"></center>'
			'You could no longer stand and squatted. The man pulled a member who was standing right in front of your face and you took his head began to direct your face to the member.'
				act 'Take by mouth':
				cla
				*clr
				set horny += 10
				set bj += 1
				set guy += 1
				!set cumface += 1
				set SUB += 1
				set frot += 1
				clr
				gs 'stat'
				'<center><img src="images\picV\frotE2.jpg"></center>'
				'Man held his cock you lips a few times then sent a purple head between your lips, you obediently opened his mouth and took it hard cock. You sit on their haunches in the middle of a crowded subway car and sucks dick from a stranger.'
				act 'Continue to suck':
					cla
					*clr
					set horny += 10
					!set bj += 1
					!set guy += 1
					set cumface += 1
					set facial += 1
					set SUB += 1
					!set frot += 1
					clr
					gs 'stat'
					'<center><img src="images\picV\frotE3.jpg"></center>'
					'The man pulls his cock out of your mouth and ends at your lips, hot cum dripping on your lips chin.'
						act 'Sit on the floor':
						cla
						*clr
						set horny += 10 + SUB + VAF
						set cumlip += 1
						set swallow += 1
						set SUB += 5
						gs 'stat'
						'<center><img src="images\picV\frotE4.jpg"></center>'
						'Male fingers collects sperm from your face and puts them into your mouth, and you dutifully licked them and swallow sperm.'
						act 'Get out of the car': gt 'frot','fin2'
						end
					end
				end
			end
		exit
		end
		if horny < 90:
		'You are very nervous and you thought comes to mind to masturbate his penis.'
			act 'Stroking his cock':
			cla
			*clr
			set horny += 10
			set hj += 1
			set cumass += 1
			set SUB += 1
			set frot += 1
			clr
			gs 'stat'
			'<center><img src="images\picV\frotD1.jpg"></center>'
			'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
			act 'Get out of the car': gt 'frot','fin2'
			end
		end
	end
end

if $ARGS[0] = 'd1':
cla
*clr
gs 'stat'
'<center><img src="images\picV\frotD2.jpg"></center>'
'You feel like a man standing behind you become bullying your skirt.'
act 'Go to another place': gt 'frot','fin'
act 'Disregard':
	cla
	*clr
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\picV\frotD.jpg"></center>'
	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
	act 'Go to another place': gt 'frot','fin'
	act 'Stroking his cock':
		cla
		*clr
		set horny += 10
		set hj += 1
		set cumass += 1
		set SUB += 1
		set frot += 1
		clr
		gs 'stat'
		'<center><img src="images\picV\frotD1.jpg"></center>'
		'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
		act 'Get out of the car': gt 'frot','fin2'
		end
	end
end

if $ARGS[0] = 'fin':
cla
'You barely squeezed in another place, away from the horny idiot. After a while you come to your station'
act 'Get out of the car': gt 'metro','start'
end

if $ARGS[0] = 'fin2':
gt 'metro','start'
end
--- frot ---------------------------------

# kisameQW
if $ARGS[0] = 'start':
cla
set horny += 20
clr
gs 'stat'
'<center><img src="images\qwest\kisame1.jpg"></center>'
'You swim in the pool, underwater turns Kisame constantly touching your body. He rips off your swimsuit and pushes you to the bottom of the pool.'
'Kisame plunges to you and pushing your feet.'
	act 'Trying to push him away':
	cla
	*clr
	set horny += 60
	if sweat > -3: set sweat = -3
	set manna += 5
	set willpower += 5
	clr
	gs 'stat'
	'<center><img src="images\qwest\kisame2.jpg"></center>'
	'Kisame despite your attempts to resist pushing your feet in your mouth bites a piece of his tongue gets you into the vagina and caresses you like. You feel on top of the world.'
		act 'Submit':
		cla
		*clr
		set horny += 60
		if sweat > -3: set sweat = -3
		set manna += 5
		set willpower += 5
		set guy += 1
		set sex += 1
		set vagina += 1
		if KisameSex = 0: set KisameSex = 1 & Set guy += 1
		clr
		gs 'stat'
		'<center><img src="images\qwest\kisame3.jpg"></center>'
		'Kisame playing with you like a toy, he swam under you and skewer your pussy on his cock. You simultaneously on the verge of orgasm and fainting from suffocation. You hear the voice of Kisame, you can breathe underwater. He hard fucks you in the pussy and you can not breathe and soak up water. Suddenly, instead of water in your lungs misses completely normal air.'
		'Sighing you immediately covers orgasm, you can be bent in convulsions of pleasure. Kisame also ends up in you.'
		act 'Further': gt 'kisameQW','after'
		end

		act 'Attack (Kisame mag10)':
		cla
		*clr
		'<center><img src="images\qwest\kisameV.jpg"></center>'
		set horny += 60
		set $nameV = 'Kisame'
		!Статы
		set strenV = 300
		set speedV = 100
		set agilV = 100
		set reactV = 100
		set vitalV = 200
		set intelV = 100
		set willV = 50
		!Навыки
		set magikV = 10
		set boxingV = 100
		set shootV = 100
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 5
		!!!!!!!!!!!!!!!!!!!!
		set kisamePic = 1
		!!!!!!!!!!!!!!!!!!!!
		set KisaFight = 1
		set klonV = 5
		!set defenceV = 10000
		if spellavtoklon = 1: set klon = 3
		if spellbefshild = 1: set defence = 500
		gt 'fight','start'
		'You kicked in the face Kisame. He showed his teeth, and his appearance began to change through instantaneous he was already blue gills on the face and shark teeth. He whispered with a smile, "You wanna play baby? Let´s play!"'
		act 'Fight': gt 'fight','start'
		end
	end
end

if $ARGS[0] = 'after':
cla
set horny += 20
clr
gs 'stat'
'<center><img src="images\qwest\kisameV.jpg"></center>'
'Kisame transformed lightning in senee akulopodobnoe creature. He smiled and said, "Thank you baby." With these words he slapped you on the ass and went to the men´s locker room.'
act 'Find a swimsuit and go in the locker room': gt 'bass','start'
end
--- kisameQW ---------------------------------

# lesbidomhouse
gs 'stat'

if $ARGS[0] = 'start':
cla
*clr
set minut += 5
set lesrand = RAND(1,3)
clr
gs 'stat'
	if lesrand = 1:
	'You called, but the door no one answered you. To re-call too, no one responded'
	act 'Leave': gt 'street'
	end
	if lesrand >= 2:
	'You rang the doorbell several times. Once you opened the third.'
	act 'Stop by': gt 'lesbidomhouse','ev1'
	act 'Leave': gt 'street'
	end
end

if $args[0] = 'ev1':
cla
*clr
set minut += 5
'<center><img src="images\qwest\lesbi.jpg"></center>'
'Rang the doorbell.'
'You do not open and you want to leave, but the desire to learn povelevaniyu girls overpower you and you called again.'
'And finally you have opened.'
'-Hello - told <<$name>>'
'Ah, it´s you, the lady said dismissively, come.'
act 'Stop by': gt 'lesbidomhouse','ev2'
end

if $args[0] = 'ev2':
cla
*clr
set minut += 5
'<center><img src="images\etogame\irinaroom.jpg"></center>'
'You looked around the apartment was very clean, but it did not cause comfort.'
'How something is not cozy at you - you said, and immediately met with a cold stare ladies.'
'You become very uncomfortable.'
'-Sorry - you said'
'Nothing, you have to get used to this situation. After all, what would make a girl, you need to make her feel uncomfortable, weak, defenseless.'
'-Well, I remember that. I never asked your name.'
'- Call me Mistress.'
act 'Agree': gt 'lesbidomhouse','ev4'
if sub < 30 and horny < 75:
act 'Brawl': gt 'lesbidomhouse','ev3'
end
end

if $args[0] = 'ev3':
cla
*clr
set minut += 5
set lesbiqw = -1
if dom > 0: set dom += 5
if sub > 0: set sub -= 5
'<center><img src="images\qwest\pnx.jpg"></center>'
'You´ve decided that she wants to make you a slave and nothing more, so you yell at the woman and went'
act 'Leave': gt 'street'
end

if $args[0] = 'ev4':
cla
*clr
set minut += 5
'<center><img src="images\qwest\lesbi.jpg"></center>'
'You think she wants to make you a slave, not to teach. But still did not say anything.'
'-good hostess. And where do we start my training?'
'-The first thing is not to hurry. You should know well the victim. For example, to begin with, have a drink and rub in credibility. With this'
'and start, you´ll be the object on which I´ll show you all my tricks.'
act 'Play on': gt 'lesbidomhouse','ev5'
end

if $args[0] = 'ev5':
cla
*clr
set minut += 5
'<center><img src="images\qwest\zst.jpg"></center>'
'You agreed, went into the room where there were already cooked drinking and snack.'
act 'Drink': gt 'lesbidomhouse','ev6'
end

if $args[0] = 'ev6':
cla
*clr
set hour += 23
set minut += 5
set lesbiqw = 3
'<center><img src="images\qwest\zst.jpg"></center>'
'You started drinking and soon your stiffness and uncertainty disappeared and you began to tell his adventures Mistress,'
'how much you guys have many times given in the ass as otsasali and drinking even told that sex was even'
'unfamiliar guys in clubs and other park and your adventures.'
'End drunk you decided to go home. The hostess did not accompany you, but you were so drunk that scored it.'
if oral >= anal and oral >= sex:
set callnm = 1
end
if anal >= oral and anal >= sex:
set callnm = 2
end
if Sex >= oral and Sex >= anal:
set callnm = 3
end
if vaf >= 100:
set callnm = 4
end
act 'Go home': gt 'korr'
end

if $ARGS[0] = 'start1':
cla
*clr
set minut += 5
set lesrand = RAND(1,3)
clr
gs 'stat'
	if lesrand = 1:
	'You called, but the door no one answered you. To re-call too, no one responded'
	act 'Leave': gt 'street'
	end
	if lesrand >= 2:
	'You rang the doorbell several times. Once you opened the third.'
	act 'Stop by': gt 'lesbidomhouse','ev7'
	act 'Leave': gt 'street'
	end
end

if $args[0] = 'ev7':
cla
*clr
set minut += 5
'<center><img src="images\qwest\lesbi.jpg"></center>'
'You decided to go to, hmmm, Mistress? find out whether there was something to be ashamed of yesterday and what lesson you should train'
'had to endure? as you remember little from that day.'
act 'Hello': gt 'lesbidomhouse','ev8'
end

if $args[0] = 'ev8':
cla
*clr
set minut += 5
if callnm = 1:
$callnm = 'nipple'
end
if callnm = 2:
$callnm = 'analschitsa'
end
if callnm = 3:
$callnm = 'davalka'
end
if callnm = 4:
$callnm = 'spermoedka'
end
'<center><img src="images\qwest\lesbi.jpg"></center>'
'-Hello, Mistress.'
'Hi <<$callnm>>'

'-as you call me? - You were taken aback. And blushed, because the hostess told the truth.'
'-This is lesson number 2. Humiliate their target. Use what you learned about it.'
act 'Ask not to call you that': gt 'lesbidomhouse','ev9'
end

if $args[0] = 'ev9':
cla
*clr
set minut += 5
if callnm = 1:
$callnm = 'nipple'
end
if callnm = 2:
$callnm = 'analschitsa'
end
if callnm = 3:
$callnm = 'davalka'
end
if callnm = 4:
$callnm = 'spermoedka'
end
'-No, you should feel on their skin all <<$callnm>>'
'-Continue training. If what you know about the girl, touches her, I believe that it´s yours. Make it do what it'
'loves most.'
'-but if she loves anal and eblyu members or suck and swallow cum, I´ll make her do it? I havent a member and I do not'
'any thread is fantasy feet.'
'On this account, do not worry, I´ll give you (maybe) a special strap, he may issue streams of sperm.'
act 'Try to ask': gt 'lesbidomhouse','ev10'
end

if $args[0] = 'ev10':
cla
*clr
set minut += 5
'On and I did not know about these, you can try it on?'
'-Not yet, I told you, first you try everything on myself.'
'-Well - you said uncertainly.'
'-Proceed.'
act 'Start': gt 'lesbidomhouse','ev10a'
end

if $args[0] = 'ev10a':
cla
*clr
set minut += 35
set horny = 95
'<center><img src="images\qwest\lesbi2.jpg"></center>'
if callnm = 1 or callnm = 4:
'Hostess beginning you have. First, it made you suck plastic cock and then shoved a plastic dick in your throat and began shamelessly fuck you there. You were close to the peak of pleasure as hostess suddenly stopped.'
end
if callnm = 2:
'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly fuck your pussy. You were close to the peak of pleasure as hostess suddenly stopped.'
end
if callnm = 3:
'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly nasilovt your ass. You were close to the peak of pleasure as hostess suddenly stopped.'
end
act 'Indignant': gt 'lesbidomhouse','ev11'
end

if $args[0] = 'ev11':
cla
*clr
set minut += 5
set lesbiqw = 4
set sub += 2
set lesbian += 1
if ldmistresex = 0: ldmistresex = 1 & girl += 1
set lesbiday = day
'Well, I´m almost finished - you moaned.'
'-Next lesson - do not let the girl that she has not earned it. Want to come? Please lick my pussy.'
'You started with a zeal to lick pussy Mistress, resignedly and without question.'
'After due pleasure hostess put her hand on your head and let down your tongue to her anus.'
act 'Protest': gt 'lesbidomhouse','ev12'
act 'Lick ass': gt 'lesbidomhouse','ev13'
end

if $args[0] = 'ev12':
cla
*clr
set minut += 5
'Fu, he´s not washed, then callas - you started to step back.'
'Requirements should not be easy, otherwise the girl will not be so submissive. But then it will wait for a very good encouragement.'
act 'Leave':
set lesbiqw = -1
gt 'street'
end
act 'Lick ass': gt 'lesbidomhouse','ev13'
end

if $args[0] = 'ev13':
cla
*clr
set anllick += 1
set anllicka += 1
set minut += 5
set energy += 1
'<center><img src="images\qwest\lesbi3.jpg"></center>'
'You reluctantly began to lick the anus Mistress. You almost puked, but more excitement and a desire to know what kind of reward awaits her after forced you to continue.'
'Mistress of all shuddered, grabbing you by the hair. She finished.'
'-Well, what reward awaits me, Mistress?'
'-No ...'
act 'Uncomprehending look': gt 'lesbidomhouse','ev14'
act 'Leave':
set lesbiqw = -1
gt 'street'
end
end

if $args[0] = 'ev14':
cla
*clr
set lesbiqw = 5
'<center><img src="images\qwest\lesbi9.jpg"></center>'
'-Chtoooo? You told me then that will be rewarded!'
'-This is another lesson, the girl can not give awards at once. She must understand that to get something not so easy. All go.'
'I´ll meet you tomorrow!'
act 'Leave': gt 'street'
end

if $args[0] = 'ev15':
cla
*clr
set lesbiday = day
Set minut += 30
'-Come,'
if callnm = 1:
'nipple'
end
if callnm = 2:
'analschitsa'
end
if callnm = 3:
'davalka'
end
if callnm = 4:
'spermoedka'
end
'-Hello, Mistress.'
'-Well, you know what to do to get the reward.'
act 'Lick Mistress': gt 'lesbidomhouse','ev16'
end

if $args[0] = 'ev16':
cla
*clr
set minut += 5
set anllick += 1
set anllicka += 1
set horny += 20
set energy += 1
'<center><img src="images\qwest\lesbi4.jpg"></center>'
'You began to lick pussy Mistress first and then unwashed anus ... you could not understand why, but you start to like it.'
'When the hostess enjoyed in abundance, she stood up and said:'
'-Well, slut, and now it´s time to reward you.'
'-And what is the reward? - <<$name>> did not even resent her so called, just so she felt.'
'Get up-cancer.'
act 'Do as told': gt 'lesbidomhouse','ev17'
end

if $args[0] = 'ev17':
cla
*clr
set minut += 5
Set horny = 95
'<center><img src="images\qwest\lesbi5.jpg"></center>'
'You, in anticipation of bliss, got on all fours and relaxed.'
'First pussy entered one finger and began to move her.'
'then the second.'
'Him third.'
'You started having fun ... and were on the verge, as in pussy entered the fourth finger.'
'Vagina start to move apart more and you hit the pain, you cried.'
'But if he had not heard the hostess, she began to insert whole hand.'
'You screamed in pain again and were ready to jump to his feet.'
act 'Yell and go': gt 'lesbidomhouse','ev18'
act 'Meekly tolerate': gt 'lesbidomhouse','ev19'
end

if $args[0] = 'ev18':
cla
*clr
set horny = 0
set minut += 5
set lesbiqw = 6
'<center><img src="images\qwest\pnx.jpg"></center>'
'-Fuck you, pervert crappy!! and is a reward for your fucking ass! Fuck you!'
'You grabbed clothes and rushed naked in his apartment.'
act 'Leave': gt 'street'
end

if $args[0] = 'ev19':
cla
*clr
set minut += 5
set lesbiqw = 7
set sub += 5
set vagina += 5
set lesbian += 1
set horny = 5
set orgasm += 1
'<center><img src="images\qwest\lesbi6.jpg"></center>'
'You were wildly painful, but you, no matter what, suffered pain. Even the tears gushed from his eyes. But the hostess continued to move his hand, and you did not even know that your pussy can get into a fist. But in the end, you even felt like it, and you hit an orgasm.'
act 'Leave': gt 'street'
act 'Thank mistress': gt 'lesbidomhouse','ev20'
end

if $args[0] = 'ev20':
cla
*clr
set lesbiqw = 8
set minut += 3
'<center><img src="images\qwest\lesbi4.jpg"></center>'
'You have got to the vagina mistress, so thank her for such a powerful orgasm, which she grinned and said:'
'"And you´re a quick study, Svetsik Do you just learn, or you just like to do whatever you ordered?"'
act 'Indignant': gt 'lesbidomhouse','ev18'
act 'Silently licking pussy': gt 'lesbidomhouse','ev21'
end

if $args[0] = 'ev21':
cla
*clr
set lesbiqw = 9
set sub += 5
set lesbian += 1
set minut += 30
'<center><img src="images\qwest\lesbi4.jpg"></center>'
'After a few minutes of work vvash skillful tongue, Mistress shuddered in orgasm. You said nothing, got up and went home'
act 'Leave': gt 'street'
end

if $args[0] = 'ev22':
cla
*clr
set minut += 5
Set horny += 50
'<center><img src="images\qwest\lesbi.jpg"></center>'
'By thought, "fuck this bitch." But after all the stairs, remembered how dirty ass licked and how do you like it ...'
'Damn, she used me, and not taught ... And to hell with it ..'
'thought you decided to visit pervert, but just to lick her.'
'-Mistress, I came here this .. well .. in general ..'
'-Like to obey me? - The hostess asked - well, but you insulted me. This is not good!'
'-I am ready to lick his guilt in front of you ... but without it, your fisting ..'
'-That would be little need to do something else!'
'I hope no-battering?'
'-do not worry.'
act 'Correct their actions': gt 'lesbidomhouse','ev23'
end

if $args[0] = 'ev23':
cla
*clr
set lesbiday = day
set lesbiqw = 8
set sub += 1
set lesbian += 1
set minut += 30
set anllick += 1
set anllicka += 1
'<center><img src="images\qwest\lesbi7.jpg"></center>'
'You have again started to lick Mistress of all places and you will definitely like it.'
if sub < 50 or vaf < 100: '"What does it mean to me" - you thought'
'-Well, now on his knees and open your mouth - Hostess said.'
act 'Get on your knees and open your mouth': gt 'lesbidomhouse','ev24'
end

if $args[0] = 'ev24':
cla
*clr
set minut += 5
set goldenrain += 1
set goldenraina += 1
set orgasm += 1
set horny += 5
set water += 1
'<center><img src="images\qwest\lesbi8.jpg"></center>'
'Mistress stood over you and start writing your mouth. Urine hit all over the face, mouth and body.'
'You covered indescribable orgasm seems like you become obey.'
'Thank you once again licked pussy dripping with drops of urine. Pocle this hostess pointed to the door.'
act 'Leave': gt 'street'
end

if $args[0] = 'ev25':
cla
*clr
set minut += 5
set horny += 25
'<center><img src="images\qwest\lesbi.jpg"></center>'
'You came to the hostess for a new portion of fisting, but she said that you did very poorly, without thanking her, and so do not get anything.'
'Strange, but such a ban have filed nly'
act 'Learn how to make amends': gt 'lesbidomhouse','ev26'
end

if $args[0] = 'ev26':
cla
*clr
set minut += 5
set horny += 25
'<center><img src="images\qwest\lesbi10.jpg"></center>'
'To start the hostess took off panties (smell of a dirty hit out of the vagina), and ordered you to do regular work tab.'
act 'Lick': gt 'lesbidomhouse','ev23'
end

if $args[0] = 'ev28':
cla
*clr
set minut += 5
set horny += 25
set lesbiday = day
set energy += 1
'<center><img src="images\qwest\lesbi11.jpg"></center>'
'You came to the hostess for a new portion of feces and golden rain, among other things - her pussy licked'
set lrnd = rand(1,10)
if lrnd > 7:
'During all these perversions you covered orgasm'
set orgasm += 1
end
if lrnd <= 7:
set horny += 75
'Unfortunately, you do not get an orgasm, but very excited.'
end
set goldenrain += 1
set goldenraina += 1
set anllick += 1
set anllicka += 1
set lesbian += 1
set lesbimeet += 1
act 'Leave': gt 'street'
end

if $args[0] = 'ev29':
cla
*clr
set minut += 5
set horny += 25
'<center><img src="images\qwest\lesbi3.jpg"></center>'
'You came to the hostess once again to lick her all that you can, but she said that she had a small gift for such a nice girl like you, but the tongue to start work will still have to'
act 'Do what you came for': gt 'lesbidomhouse','ev23'
end

--- lesbidomhouse ---------------------------------

# mainQW
'<center><img src="images\qwest\main.jpg"></center>'
set minut += 15
'(Karin) - "Hmm, strange. Seems I begin to understand what was happening. Get in the car, you´ll go check."'
'You sat in the back seat black jeep. Juugo sat behind the wheel, and Karin village near you. Karin began to feel you. "Interesting. I understand you had an orgasm and orgasm during part of the force Rikudo, male power, transformed into your power."'
!'(Karin) -'
act 'I am now a magician?':
cla
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'(You) - I am now a magician?'
'(Karin) - Yeah, and you´re still the world champion on the run, you also have the legs and still you juggler, you also have hands. You catch? Mag is the person administering the magic power you have it there, but it does not manage you know how.'
	act 'So teach me!':
	cla
	'(You) - So teach me!'
	'(Karin) - Teach? I am in life nobody taught magic. Besides, I do not battle mage. I rather magical gift. I feel better all the magic, and at any distance. Plus fly and can modify organic life forms. But understand, to a greater extent is a gift, not learning. I´m just learning honed his gift.'
	'(You) - Well, at least what it is you can teach me.'
	'(Karin) - Just the basics.'
	'(Juugo) - come, come out, ladies.'
	'You got out and slammed the door. Gone to the lane of metal doors. They opened Juugo and Karin missed you forward.'
		act 'Enter the door':
		cla
		*clr
		'<center><img src="images\qwest\lab.jpg"></center>'
		'The building was the laboratory. A wide variety of stands and equipment racks with different flasks and bottles.'
		'(Karin) - Welcome to my lab. Here I explore and live. Undressed and lie down on the couch, I will search for you.'
		set health = vital * 10
		set willpower = intel * 5 + will * 5
		set manna = (intel * magik) + vital * 5 + rikudo
		clr
		gs 'stat'
			act 'Lie on the couch':
			cla
			*clr
			clr
			gs 'stat'
			set minut += 30
			killobj
			if oldobjmenu = 0:
			addobj 'Character'
			addobj 'See'
			addobj 'Others'
			addobj 'Menu'
			else
			addobj '<font color=green>Character</font>'
			addobj 'Skills'
			addobj 'Statistics'
			addobj 'Magic'
			addobj 'Face'
			addobj 'Body'
			addobj 'Clothing'
			addobj 'Tattoos'
			addobj 'Piercing'
			addobj 'Diary'
			addobj 'Emergency exit'
			addobj 'Update'
			addobj 'Menu'
			addobj 'New Menu'
			end
			'<center><img src="images\qwest\main1.jpg"></center>'
			'You undressed and lay down on the couch, Karin began to examine you. She dabbed what that charms to you and use a variety of devices. Cherz half hour examination, she sighed and told you to get dressed.'
			'You got up from the couch and dressed. You asked Karin "So what? Teach me anything else?"'
			'(Karin) - Okay. But only in theory. Listen closely and listen hard, I will not repeat. To begin to tell about magic. Magical energy in Asian culture it is called chakra is produced by all living organisms. This vital energy, deprived her body begins to slowly die. Striking symptom of the lack of magical energy is in a bad mood. In itself it can not kill, but it undermines the mind, body and the mind exhausting, eventually either the body does not survive, or mind.'
			'That is magical energy there in the grass, and trees, and people do not have it in dead matter. It is the energy of life itself, what awakens the lifeless living. She and you have been and there, the body protects itself by itself, prohibiting use this energy. This exhausts the body and can kill him. Mages are able to simply bypass the body´s defenses and separating themselves from the magical energy to convert it into what that action. The main task of a magician is the maximum their potential and learn to draw your energy as much as possible. But mages can not scoop up more energy than they contain. In something you´re lucky you came in as much energy as none magician asked. You just need to learn how to use it. As I have understood, your orgasms are capable of handling energy Rikudo in his own. But each new stage will be harder given. Maybe there are some ways to recycle what Rikudo energy in your own. But most importantly, your magical energy supply is almost exhausted, unlike other magicians. You know, you´re theoretically the most powerful magician in the world, as the Rikudo was the strongest in history. Perhaps there is art of magic that can only work with the force Rikudo. Most likely in the scrolls are in the dungeon were just what that spells.'
			'(You) - Igor! Igor took one of the scrolls!'
			'(Karin) - Just do not think I´ll be for you to solve your problems. If you want to look for his own Igor.'
			'(You) - I have no idea where he lives. May pay a visit to the trench.'
			'(Karin) - Do you think the Order of Dawn retreated from such findings? Hey, I see you do not quite understand what the Order of Dawn. This is not what that whipping boys. There all the magicians of the highest level. Neither I nor Juugo no good even hold a candle to any of them. Any one of them with us razotret Juugo without straining. They force their combat experience and unique technology. Do not mess with these guys, they are pros in their field. Their main business of destruction of other magicians and capture demons.'
			'(You) - What else for demons?'
			'(Karin) - Demons demons, creatures come to us from other worlds. Possible and Rikudo was a demon, but demons unlike him being though with terrible force, but blunt and aggressive. Something like beasts woven from pure magic.'
			'(You) - a fig. Hey, you can turn me back into a man?'
			'(Karin) - Can. But I will not. You have no idea how much energy it took me, I squeezed myself to dry and Juugo. I barely had enough energy. Now I do not have enough of her physically on the energy consumption of such mad I lost four of her forever. And there´s more to consider now that your body begins to prisposablivatsya magic and I have even harder. This will be possible only if you Bleed is magical at least level 10 and pass me all your energy forever. I can make you again the same, but you´ll never be a magician, this path will be forever closed to you.'
			'(Karin) - You are not to look too far into the future. Develop your body, learn to fight, copy magical force coaches mind. Gradually everything will rise to the location at which all should be.'
			act 'Exit': gt 'down'
			end

		end

	end
end
--- mainQW ---------------------------------

# tobiQW
if $ARGS[0] = 'start':
cla
*clr
set tobiQW = 1
set minut += 60
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(Toby) - Mishan Hi, how´s it going?'
'You just dumbfounded surprise in your bedroom is Toby and he obviously knows who you are.'

act 'How did you find me?': gt 'tobiQW','1'
end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - How did you find me?'
'(Toby) - Oh, okay, not that it was difficult. Our organization is not always strongly underestimate. Even the owner Karin miscalculated.'
act 'The owner Karin?': gt 'tobiQW','2'
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - The owner Karin?'
'(Toby) - Oh, holy simplicity. Of course, Karin saved you from the evil Toby and teach you magic. She Horoshoo and ugly Toby bad. What naivety. Karin is a pawn in someone else´s game.'
'(Toby) - sit down, we have a long conversation to kill you I´m not going, if built, would not you sharpen fritters.'
'You sat down on the bed. Toby began to talk.'
'(Toby) - When I took the amulet is not taking you, I miscalculated, I did not know that the power passed to you. When I returned to the room, you were gone, there was no trace of who is clearly very well cleaned up all traces. This someone is not weaker than me. Remember this fact, Karin silenok not enough so close to me.'
'(Toby) - The next day I find out about your alleged death. And here the owner Karin made his biggest mistake.'
'(You) - what? Everything seems to go smoothly.'
'(Toby) - Yes, all passed smoothly, we waited for the funeral of the body and then it got. Perfect copy, master work, Karin can not do it, but I did not even know about its existence.'
'(Toby) - But the owner Karin though knows a lot about the Order of Dawn, but still not enough. He did not know that Payne has the ability to find the souls of the dead and bring them back to life. We got the body for life and it turned out that this man has nothing to do with you. Someone just took a passerby in the street, he created your appearance and killed him. Payne also has the ability to see everything in a person, even when he is born, and the eyes of this man, unfortunately it kills guinea spell. Payne saw everything.'
'(You) - Nifiga yourself is that even for such Payne?'
'(Toby) - Payne, the true owner of all that is in the tomb. He is a true master of the force that is in you. He avatar Rikudo, the living embodiment of God, capable of destroying the city in one motion, raise the dead, to see through people, to change their body as he pleases, to have as many bodies at the same time, control the weather, gravity, live in several worlds, to see whole continents his eyes so that even the mouse does not slip from his sight, and God knows what he owns, it is incomprehensible even to me.'
'You shake your head, puzzled. This very cool guy Payne has managed the same way for him to pass me.'
act 'So who´s the boss and that Karin does he want?': gt 'tobiQW','3'
end

if $ARGS[0] = '3':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - So who´s the boss and that Karin does he want?'
'(Toby) - This is the fun part! But to continue in order. When Payne checked memory corpse depicting you, he did not see the face of magician, but I heard his voice, vile snake hiss, it could only be Orochimaru.'
'(You) - Orochimaru? Never heard of such a thing.'
'(Toby) - not surprising. He was not looking for that would head off to tear only dead mages and lazy. But his name did not even try to say out loud, and then suddenly courted him on his head, he is a real threat to the powerful magicians. We were once close friends with him, he was in the Dawn.'
'(Toby) - He is an exceptionally gifted magician, a very wise, ancient and immortal sorcerer. Owns nearly all the possible techniques of magic, many of his techniques beyond comprehension.'
'(Toby) - But Orochimaru pay dearly for immortality. There is no eternal life without eternal fee for it. His real body has long been dead, he lives in the wrong bodies. These bodies are called donor vessels, they receptacle of his soul. Vessels but do not live long, only three or four years, then the vessel rejects soul Orochimaru. And Orochimaru is limited by the strength of the vessel.'
'(Toby) - So, after examination of the body, it became clear you out from under our nose led Orochimaru. We began to stalk him, Payne can differentiate amongst all that is in the rain, it was he who sheds it so often. We tracked down Orochimaru manner he once showed his face snake in the rain. But there was no sign that he took power himself. We have concluded that, as before, you alive, Orochimaru technology allow crank most unexpected focus.'
'(You) - Since you tracked me and why I need Orochimaru.'
'(Toby) - Ah youth stupid. Yes Orochimaru wants to make your body a vessel for the soul. He trained with the help of Karin and you developed, what would your body came into full force, do not forget, its level is tied to the strength of the vessel.'
'(Toby) - Karin spit at you like, it develops your body for what would be her master Orochimaru could use it as a new vessel. Do you even know what fate has prepared for you, Karin? You just erase your place and take Orochimaru.'
'You think "Damn, I´m in between a rock and a hard place Toby as Orochimaru, and what to do now?"'
'(Toby) - To change your floor Orochimaru made you useless for Payne and me, we do not need you or do not need. Frankly, we spit on you now. I continued to look for you, but out of a desire to razobratsya situation. Understand Orochimaru plans to this effect.'
'(Toby) - I had to use and Zetsu as a spy, and that would force Payne track all magicians, we found Karin, but it is not known to us, but we found Juugo, and only then we will know exactly what he represents. He experiment Orochimaru.'
'(Toby) - Then Payne saw you. How do you go to Karin and she teaches you, Paine saw as you leap through the levels magicity. Any magician decades to grow your current level. How old are you this time it took? You were practicing a technique for an hour, and magicians for years they are taught. It became clear that you imagine yourself out. So I came to visit you.'

act 'And you can not make me a man again?': gt 'tobiQW','4'
end

if $ARGS[0] = '4':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - And you can not make me a man again?'
'Toby shook his head.'
'(Toby) - Do not think that magicians are all the same, if one could that something else can accurately. No, I have no idea how Orochimaru did what he did to you. And it was he, not Karin. Did not you surprised that she even treat you can not? It is too weak for such tricks with the body.'
'(Toby) - And now to the point. Yeah, you´re not interested in us, we really can not take your power now. But this does not mean that we just give up such a powerful vessel Orochimaru.'
'(Toby) - I would have already tried to kill Orochimaru, or sent Payne to do it, I think Payne would have easily killed him in battle. The problem is that Orochimaru is too great and he is able to avoid fighting.'
'(Toby) - We can not corny podobratsya him for what would kill him.'
act 'I doubt that I could do it': gt 'tobiQW','5'
end

if $ARGS[0] = '5':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - I doubt that I could do it'
'(Toby) - I have no doubt. You can not do it. But we are of you and do not require this. We want to drive Orochimaru trapped.'
'(Toby) - You prodolzhish as if nothing had happened with Karin will learn. We will prepare you parallel that you could cope with Karin and Juugo. When the time comes, you go and kill Karin and Juugo. If it makes any of the Dawn who, Orochimaru all understand, and so he will try to grab you myself. He needs you as a vessel, and so it just did not unhook from you.'
'(Toby) - Here we are, and will lay the ancient serpent, put a point in its history. Well, how´s the plan?'

act 'And if I refuse?': gt 'tobiQW','6'
end

if $ARGS[0] = '6':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - And if I refuse?'
'(Toby) - Then I´m sorry, nothing personal, but I´m going to kill you right now. Orochimaru did not want you to give me, I do not want to give it you.'

act 'If Orochimaru die, I´ll always be a woman?': gt 'tobiQW','7'
end

if $ARGS[0] = '7':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - If Orochimaru die, I´ll always be a woman?'
'(Toby) - In any case, you´ll always be a woman. Orochimaru never will refuse the temptation to take power into their own hands Rikudo and return you to your previous form will mean for him to give this power to me, to which he would not, even under pain of death.'

act 'What about Tsukuemi? Is that true?': gt 'tobiQW','8'
end

if $ARGS[0] = '8':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - What about Tsukuemi? Is that true?'
'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. You just can not imagine a world in which almost all magicians with forces capable of destroying entire cities. Banal drunken brawl in a bar wrapped in a bloody mess with thousands of victims. People ran wild and destroy each other. Mankind fell on the edge of a precipice. Then I decided to put an end to this massacre not died.'
'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all.'
'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies. We took upon themselves the burden and bear your cross for mankind as a whole.'

act 'You´re going to teach me?': gt 'tobiQW','9'
end

if $ARGS[0] = '9':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - What about Tsukuemi? Is that true?'
'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I threw a dying friend, but I´m not dead, I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. Then I decided to put an end to this massacre not died.'
'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all. I stripped the magic world of magic. People are not ready for this level of forces.'
'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies but we still have a whole bunch of magicians who managed to avoid the influence Tsukuemi example preserved a Hidden Order Foliage, they at every opportunity we try to insert a stick in the wheel. But we shouldered this burden voluntarily accept his cross for the sake of humanity as a whole, and not wanting to assert themselves a handful of magicians. Particularly zealous mages going to seize power we consume, those who try to intrude into the work Tsukuemi we also consume. Others do not touch until they climb on the rampage. Well, except for the order hidden in the foliage, with them we did not reconcilable war.'

act 'You´re going to teach me?': gt 'tobiQW','10'
end


if $ARGS[0] = '10':
cla
*clr
'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
'(You) - You´re gonna teach me?'
'(Toby) - With this, there is something which challenges. My techniques you can not learn. They are too high. Payne forces generally something otherworldly, what can you´ll be able to learn something from him, but not now. I wish that you would teach Kakuzu. But he has a very nasty character. He will not teach you for free, even if I asked. He is the oldest of living on the planet, and the most greedy, I will ask him what he would have taught you, but not anger him, and he will kill you, no joke. I´m not just saying that Kakuzu most harmful of all the old man living, he did not just kill his teammates. I forgive him everything only from the fact that he owns the only light at the same time by all schools of magic.'
'(Toby) - Here is harmful to this old man, I want you to send. Find him in the northern region. Here´s a piece of paper with his address. And I have to go.'
'After these words around the eye Toby creates a vortex in which it pulled into seconds.'

act 'Get out of bed': gt 'bedr'

act 'Try to sleep': gt 'bed2','dosip'

end

--- tobiQW ---------------------------------

# Kafe2
if $ARGS[0] = 'start':
cla
*clr
'<<$boybody>> <<$boybod>> <<$boyface>>, introduced as <<$boy>>.'
Set deyst = RAND(1,100)
	if deyst <= 25:
	'<<$boy>> has invited you to dance.'
	act 'Dance': gt 'Kafe2','dance'
	act 'Otshit': gt 'street'
	end
	if deyst > 25 and deyst <= 50:
	'<<$boy>> sat down at your table and ordered a drink and a snack.'
	act 'Drink': gt 'Kafe2','booze'
	act 'Otshit': gt 'street'
	end
	if deyst > 50 and deyst <= 75:
	'<<$boy>> has invited you to join the party on which he walks.'
	act 'Agree': gt 'Kafe2','kampashka'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
	if deyst > 75:
	'<<$boy>> began to stick to you and try to take pictures. <<$boy>> offered to go with him to the toilet.'
	act 'Agree': gt 'Kafe3','WC'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'dance':
cla
dance += 1
minut += 3
gs 'stat'
Set deyst = RAND(1,100)
'<center><img src="images\etogame\dance.jpg"></center>'
''
	if deyst <= 25:
	'During the dance <<$boy>> you confidently and correctly conducted and not molested. His strong hands held tightly your waist. Finally the song ended.'
	act 'Finish the dance': gt 'Kafe2','tanets2'
	end

	if deyst > 25 and deyst <= 80:
	Set horny += 5
	clr
	gs 'stat'
	if dick > 15 and dick < 18:
	$didanc = 'During the dance, you feel like something hard between his legs pressed against your stomach.'
	elseif dick >= 18:
	$didanc = 'During the dance, you feel his cock pushing against your stomach hardens and grows, you feel that he´s a big, vskidku about <<dick>> centimeters.'
	elseif dick <= 15:
	$didanc = ''
	end
	'During the dance <<$boy>> gently hugged you and stroking your back down to the hips. His strong hands pressed against your fragile body to him, pressing your soft breasts <<tits>> the size of his body. <<$didanc>> Finally, the song ends.'
	act 'Finish the dance': gt 'Kafe2','tanets2'
	end

	if deyst > 80:
	Set horny += 8
	clr
	gs 'stat'
	'During the dance <<$boy>> paw is the ass, you clung to his vzhimaya your tender flesh in his and wants to kiss you.'
		act 'Kiss':
		cla
		if lip = 0: set $lipdance = 'thin lips'
		if lip = 1: set $lipdance = 'lips'
		if lip = 2: set $lipdance = 'plump lips'
		if lip = 3: set $lipdance = 'plump lips'
		if lip = 4: set $lipdance = 'thick lips'
		'<<$boy>> your kisses <<$lipdance>> pushing them and poking his wet tongue in your mouth.'
			act 'Chew language':
			cla
			Set horny += 8
			if lip = 0: set $lipdance = 'thin lips'
			if lip = 1: set $lipdance = 'lips'
			if lip = 2: set $lipdance = 'plump lips'
			if lip = 3: set $lipdance = 'plump lips'
			if lip = 4: set $lipdance = 'thick lips'
				if dick > 15 and dick < 18:
				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
				elseif dick >= 18:
				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
				elseif dick <= 15:
				$didanc = 'in his pants that is uvilichivaetsya'
				end
			'You started passionately suck tongue kissing a guy and his own <<$lipdance>>. You feel like <<$didanc>>'
			'Finally the song ends and you break the kiss.'
			Set deyst = RAND(1,100)
				if deyst <= 75:
				'Keeping your waist and hold <<$boy>> offers to go to his home.'
				act 'Agree': gt 'Kafe3','house'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end
				if deyst > 75:
				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
				act 'Agree': gt 'Kafe3','WC'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end

			end

			act 'Avoid kissing':
			cla
			Set horny += 8
			if lip = 0: set $lipdance = 'thin lips'
			if lip = 1: set $lipdance = 'lips'
			if lip = 2: set $lipdance = 'plump lips'
			if lip = 3: set $lipdance = 'plump lips'
			if lip = 4: set $lipdance = 'thick lips'
				if dick > 15 and dick < 18:
				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
				elseif dick >= 18:
				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
				elseif dick <= 15:
				$didanc = 'in his pants that is uvilichivaetsya'
				end
			'You behave passively and try to clean your mouth away from the annoying guy first, but it takes him a little and you feel his hands firmly squeeze your ass, then his hands raised above and it takes you to his chest. You feel like <<$didanc>>'
			'Finally the song ends and you break his arms.'
			Set deyst = RAND(1,100)
				if deyst <= 75:
				'Keeping your waist and hold <<$boy>> offers to go to his home.'
				act 'Agree': gt 'Kafe3','house'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end
				if deyst > 75:
				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
				act 'Agree': gt 'Kafe3','WC'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end

			end
		end


		if horny < 75:
		act 'Stop dancing and leave': gt 'street'
		end
	end

end

if $ARGS[0] = 'tanets2':
cla
Set deyst = RAND(1,70)
	if deyst >= vnesh:
	'The dance ended, and <<$boy>> kiss you goodbye'
	act 'Say goodbye':
	gt 'kafe','start'
	end
	end
	if deyst < vnesh:
	'The dance ended, and <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'booze':
cla
minut += 30
gs 'stat'
Set deyst = RAND(1,100)
'You drink with a guy, and <<$boy>> tells a lot of interesting and interested in you.'
	if deyst < 75:
	'It seems you´ve had enough and should go home. <<$boy>> kiss you goodbye'
		act 'Say goodbye':
		gt 'kafe','start'
		end
	end

	if deyst >= 75 and deyst < 95:
	'It seems you´ve had enough and should go home. <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end

	if deyst >= 95:
	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go with him to the toilet.'
	act 'Agree': gt 'Kafe3','WC'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'kampashka':
cla
minut += 30
gs 'stat'
Set deyst = RAND(1,100)
'You drink in society guys and girls. <<$boy>> obschaetsya and flirts with you.'
	if deyst < 60:
	'Think you´ve had enough and should go home. <<$boy>> kiss you goodbye'
	act 'Say goodbye':
	gt 'kafe','start'
	end
	end
	if deyst >= 60 and deyst < 90:
	'Think you´ve had enough and should go home. <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
	if deyst >= 90:
	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go to rest with the company.'
	act 'Agree': gt 'Kafe3','kampashka'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end






--- Kafe2 ---------------------------------

# Kafe3
if $ARGS[0] = 'house':
cla
*clr
money += 100
minut += 15
gs 'stat'
'<<$boy>> pay your bill and hailed a taxi.'
'You sat down with him in the backseat of the car. <<$boy>> put his hand on your knee and began stroking it getting higher to your pussy.'

	act 'Enjoy caresses':
	cla
	minut += 15
	horny += 15
	gs 'stat'
	dynamic $venerasiak
	'<<$boy>> made it to your pussy and started to caress her fingers.'

		act 'Try to remove his hands':
		cla
		minut += 15
		horny += 10
		gs 'stat'
		'You tried to remove his hands from the crotch guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
		act 'Come': gt 'BDsex','start'
		end

		act 'Hands caress his cock':
		cla
		minut += 15
		horny += 10
		gs 'stat'
		'You got into the pants to the guy and got him <<dick>> centimeter members began to caress his hands.'
		derand = RAND(0,100)
			if derand >= 95:
			'<<$boy>> groaned and took you by the neck began to move your face to its members.'
				act 'Take by mouth':
				cla
				*clr
				minut += 15
				horny += 10
				guy += 1
				bj += 1
				gs 'stat'
				'<center><img src="images\studia\car.gif"></center>'
				'You bent bringing her face to the groin guy and his lips wrapped around his cock started sucking him.'
				gs 'oral','0'
				'Finally the guy filled your mouth with his hot sperm that you had nowhere to go and you swallow it. The taxi stopped. And <<$boy>> you put it out on the street.'
				swallow += 1
				cumlip += 1
				act 'Leave': gt 'street'
				end

				act 'Try to remove his hands':
				cla
				minut += 15
				horny += 10
				gs 'stat'
				'You tried to remove his hands from his head guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
				act 'Come': gt 'BDsex','start'
				end
			else
			act 'Come': gt 'BDsex','start'
			end
		end
	end

	act 'Try to remove his hands':
	cla
	minut += 15
	horny += 10
	gs 'stat'
	'You tried to remove his hands from the crotch guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
	act 'Come': gt 'BDsex','start'
	end

end

if $ARGS[0] = '0':
cla
*clr
$nameV = $boy



minut += 15
gs 'stat'
Set deyst = RAND(1,100)
	if deyst < 70:
	:vag
	'<<$boy>> puts you on the bed and undressed.'
	Set deysts = RAND(1,3)
		if deysts = 1:
		Set guy += 1
		Set sex += 1
		vagina += 1
		'<<$boy>> pushes your legs and enters you.'
		set picrand = RAND(1,5)
		'<center><img src="images\pics\vagmis<<picrand>>.jpg"></center>'
		pose = 0
		gs 'orgasm','start'
		!'Dick like a hammer hammer inside you, you are very nice and you are ready to finish.'
		act 'Leave': gt 'street'
		end
		if deysts = 2:
		'<<$boy>> cancer puts you and enters you'
		Set guy += 1
		Set sex += 1
		vagina += 1

		Set cumass += 1
		!'<<$boy>> pushes your legs and enters you.'

		set picrand = RAND(1,5)
		'<center><img src="images\pics\vagdog<<picrand>>.jpg"></center>'

		pose = 1
		gs 'orgasm','start'
		act 'Leave': gt 'street'
		end

		if deysts = 3:
		'<<$boy>> lays down on the bed and puts you over the top, you feel his penis enters you'
		Set guy += 1
		Set sex += 1

		Set cumass += 1
		'His cock went in you and you started to jump on his elde.'

		set picrand = RAND(1,6)
		'<center><img src="images\pics\vagcow<<picrand>>.jpg"></center>'

		pose = 0
		gs 'orgasm','start'
		act 'Leave': gt 'street'
		end
	end
	if deyst >= 70 and deyst < 85:
	'<<$boy>> tells you that he wants you to suck it'
		act 'Refuse': gt 'Kafe3','0'

		act 'Take by mouth':
		'<<$boy>> pulls his dick'
		Set guy += 1
		Set bj += 1

		Set throat += 1
		Set vaf += 1
		'You took his penis in her mouth and began to suck.'
		set picrand = RAND(1,10)
			if picrand = 1: '<center><img src="images\pics\bj.jpg"></center>'
			if picrand = 2: '<center><img src="images\pics\bj2.jpg"></center>'
			if picrand = 3: '<center><img src="images\pics\bj3.jpg"></center>'
			if picrand = 4: '<center><img src="images\pics\bj4.jpg"></center>'
			if picrand = 5: '<center><img src="images\pics\bj5.jpg"></center>'
			if picrand = 6: '<center><img src="images\pics\bj6.jpg"></center>'
			if picrand = 7: '<center><img src="images\pics\bj7.jpg"></center>'
			if picrand = 8: '<center><img src="images\pics\bj8.jpg"></center>'
			if picrand = 9: '<center><img src="images\pics\bj9.jpg"></center>'
			if picrand = 10: '<center><img src="images\pics\bj10.jpg"></center>'
		'<<$boy>> moans and that´s to finish.'
		*clr
			act 'Remove the member of his mouth':
			cla
			Set bjrand = RAND(1,100)
			if bjrand < 50 and vaf > 100: 'You have time to take out of his mouth and a member <<$boy>> commits past you.'
			if bjrand >= 50 or vaf <= 100: Set cumface += 1 & '<<$boy>> ends up on your face.'
			set picrand = RAND(1,5)
				if picrand = 1 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial.jpg"></center>'
				if picrand = 2 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial2.jpg"></center>'
				if picrand = 3 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial3.jpg"></center>'
				if picrand = 4 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial4.jpg"></center>'
				if picrand = 5 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial5.jpg"></center>'
			'You try to wipe off the face of the sperm, but the sperm erased bad.'
			act 'Leave': gt 'street'
			end

			act 'Suck on':
			cla
			Set vaf += 1
			'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
			set picrand = RAND(1,10)
			if picrand = 1: '<center><img src="images\pics\cum.jpg"></center>'
			if picrand = 2: '<center><img src="images\pics\cum2.jpg"></center>'
			if picrand = 3: '<center><img src="images\pics\cum3.jpg"></center>'
			if picrand = 4: '<center><img src="images\pics\cum4.jpg"></center>'
			if picrand = 5: '<center><img src="images\pics\cum5.jpg"></center>'
			if picrand = 6: '<center><img src="images\pics\cum6.jpg"></center>'
			if picrand = 7: '<center><img src="images\pics\cum7.jpg"></center>'
			if picrand = 8: '<center><img src="images\pics\cum8.jpg"></center>'
			if picrand = 9: '<center><img src="images\pics\cum9.jpg"></center>'
			if picrand = 10: '<center><img src="images\pics\cum10.jpg"></center>'
				act 'swallow':
				cla
				Set vaf += 2
				Set cumlip += 1
				'<<$boy>> looks like you swallow sperm.'
				act 'Leave': gt 'street'
				end

				act 'spit out':
				cla
				'You go into the bathroom and there spits cum'
				act 'Leave': gt 'street'
				end
			end


		!act 'Leave': gt 'street'
		end
	end
	if deyst >= 85:
	'<<$boy>> tells you that he wants you in the ass otimet'
		act 'Refuse': gt 'Kafe3','0'

		act 'Agree':
		cla
		'<<$boy>> puts you cancer and lubricates your ass somehow cream. You feel like that it boils down to you in tight anus.'
		'Sharp pain in the anus smenyaetsya easy to treat. <<$boy>> you fucked in the ass smoothly, that would not break anything.'
		Set guy += 1
		Set anal += 1
		anus += 1
		if lubri > 0: Set lubri  = lubri  - 1
		Set cumass += 1
		set picrand = RAND(1,10)
			if picrand = 1: '<center><img src="images\pics\anal.jpg"></center>'
			if picrand = 2: '<center><img src="images\pics\anal2.jpg"></center>'
			if picrand = 3: '<center><img src="images\pics\anal3.jpg"></center>'
			if picrand = 4: '<center><img src="images\pics\anal4.jpg"></center>'
			if picrand = 5: '<center><img src="images\pics\anal5.jpg"></center>'
			if picrand = 6: '<center><img src="images\pics\anal6.jpg"></center>'
			if picrand = 7: '<center><img src="images\pics\anal7.jpg"></center>'
			if picrand = 8: '<center><img src="images\pics\anal8.jpg"></center>'
			if picrand = 9: '<center><img src="images\pics\anal9.jpg"></center>'
			if picrand = 10: '<center><img src="images\pics\anal10.jpg"></center>'
			'You feel like your anus is filled with what that warm liquid. You bring yourself up in the bathroom and get dressed.'
			act 'Leave': gt 'street'
		end
	end
end

if $ARGS[0] = 'WC':
cla
$nameV = $boy
dynamic $venerasiak
'You went to the toilet with a guy. <<$boy>> you began to kiss and caress. Then he offered you suck at it.'
	act 'Refuse':
	cla
	'You abandoned your hot lover but is not confused, he turned you back to him and bent.'
	'You feel that <<$boy>> bared your ass and something solid upiraetsya your vagina'
	Set guy += 1
	Set sex += 1
	Set cumass += 1
	vagina += 1
	'You fuck cancer in the outhouse.'
	'<center><img src="images\pics\vagtualet.jpg"></center>'
	pose = 1
	gs 'orgazm','start'
	act 'Leave': gt 'street'
	end

	act 'Take by mouth':
	cla
	Set vaf += 1
	'<<$boy>> pulls his dick'
	Set guy += 1
	Set bj+= 1

	Set throat += 1
	'You took his penis in her mouth and began to suck.'
	set picrand = RAND(1,10)
		if picrand = 1: '<center><img src="images\pics\bj.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\bj2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\bj3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\bj4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\bj5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\bj6.jpg"></center>'
		if picrand = 7: '<center><img src="images\pics\bj7.jpg"></center>'
		if picrand = 8: '<center><img src="images\pics\bj8.jpg"></center>'
		if picrand = 9: '<center><img src="images\pics\bj9.jpg"></center>'
		if picrand = 10: '<center><img src="images\pics\bj10.jpg"></center>'
	'<<$boy>> moans and that´s to finish.'

		act 'Remove the member of his mouth':
		cla
		*clr
		Set bjrand = RAND(1,100)
			if bjrand < 50 and vaf < 100: 'You have time to take out of his mouth and a member <<$boy>> commits past you.'
			if bjrand >= 50 or vaf >= 100: Set cumface += 1 & '<<$boy>> ends up on your face.'
			set picrand = RAND(1,5)
				if picrand = 1 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial.jpg"></center>'
				if picrand = 2 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial2.jpg"></center>'
				if picrand = 3 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial3.jpg"></center>'
				if picrand = 4 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial4.jpg"></center>'
				if picrand = 5 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial5.jpg"></center>'
			act 'Leave': gt 'street'

		end

		act 'Suck on':
		cla
		*clr
		Set vaf += 2
		'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
		set picrand = RAND(1,10)
		if picrand = 1: '<center><img src="images\pics\cum.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\cum2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\cum3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\cum4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\cum5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\cum6.jpg"></center>'
		if picrand = 7: '<center><img src="images\pics\cum7.jpg"></center>'
		if picrand = 8: '<center><img src="images\pics\cum8.jpg"></center>'
		if picrand = 9: '<center><img src="images\pics\cum9.jpg"></center>'
		if picrand = 10: '<center><img src="images\pics\cum10.jpg"></center>'
			act 'swallow':
			cla
			Set vaf += 1
			Set cumlip += 1
			swallow += 1
			'<<$boy>> looks like you swallow sperm.'
			act 'Leave': gt 'street'
			end

			act 'spit out':
			cla
			'You go into the bathroom and there spits cum'
			act 'Leave': gt 'street'
			end
		end


	end
end

if $ARGS[0] = 'kampashka':
cla
dynamic $venerasiak
'You edete somewhere with the guys on the car. You´re drunk and you pat on the back seat just two guys. Finally, the machine stops and you take out of the car.'
'Undress you, and you feel like you are part of a member, you are trying to say something, at this point you inserted with cock in her mouth.'
set picrand = RAND(1,15)
if picrand = 1: '<center><img src="images\pics\gang.jpg"></center>'
if picrand = 2: '<center><img src="images\pics\gang2.jpg"></center>'
if picrand = 3: '<center><img src="images\pics\gang3.jpg"></center>'
if picrand = 4: '<center><img src="images\pics\gang4.jpg"></center>'
if picrand = 5: '<center><img src="images\pics\gang5.jpg"></center>'
if picrand = 6: '<center><img src="images\pics\gang6.jpg"></center>'
if picrand = 7: '<center><img src="images\pics\gang7.jpg"></center>'
if picrand = 8: '<center><img src="images\pics\gang8.jpg"></center>'
if picrand = 9: '<center><img src="images\pics\gang9.jpg"></center>'
if picrand = 10: '<center><img src="images\pics\gang10.jpg"></center>'
if picrand = 11: '<center><img src="images\pics\gang11.jpg"></center>'
if picrand = 12: '<center><img src="images\pics\gang12.jpg"></center>'
if picrand = 13: '<center><img src="images\pics\gang13.jpg"></center>'
if picrand = 14: '<center><img src="images\pics\gang14.jpg"></center>'
if picrand = 15: '<center><img src="images\pics\gang15.jpg"></center>'
'You ripped into all the cracks, and even more than once. Heavily drunk and you can not concentrate and remember details. What that vague feeling throughout the body, hands, members. Then you dovezli and thrown at the entrance.'
Set guy += 3
Set sex += 1
Set bj+= 1
Set anal += 1
Set throat += 1
Set cumlip += 1
Set cumface += 1
Set cumbutt += 1
Set cumass += 1
set cumpussy += 1
set rape += 1
set gang += 1
vagina += 1
anus += 1
act 'Leave': gt 'street'
end

if $ARGS[0] = 'coffee':
cla
dynamic $venerasiak
$nameV = $boy
minut += 30
gs 'stat'
'<<$boy>> agree to your proposal. You brought him home, there´s a long embraced and continued to snuggle on the bed. <<$boy>> you entered with full force.'
set picrand = RAND(1,5)
'<center><img src="images\pics\vagmis<<picrand>>.jpg"></center>'
pose = 0
gs 'orgasm','start'
Set guy += 1
Set sex += 1
vagina += 1
act 'Wash': gt 'Vanr'
end

--- Kafe3 ---------------------------------

# ParkKafe

if $args[0] = 'food':
	if money < 100:
	'You do not have enough money for the cafe.'
	act 'Leave': gt 'park','start'
	exit
	end
set health += 10
set money -= 100
set manna += 5
set willpower += 5

	if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end

	if energy < 20:
	set energy += 20
	set fat += 1
	'You gladly ate the food.'
	end

	if water >= 20:
	'Tea in you no longer climbs.'
	end

	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end


'You sat at the table in summer cafe. Soon you brought your order.'
cla
Set arand = RAND(1,7)
if arand = 1: 'You look around and notice the cafe visitors strolling company <a href="exec: GT ''ParkKafe'',''youth''">Youth</a>'
if arand = 2: 'You look around and notice the cafe visitors sitting alone young <a href="exec: GT ''ParkKafe'',''guy''">Man</a>'
if arand = 3: 'You are viewing a cafe visitors and students notice campaign <a href="exec: GT ''ParkKafe'',''negros''">Africans</a>'
if arand = 4: 'You look around and notice the cafe visitors <a href="exec: GT ''ParkKafe'',''woman''">woman</a> imperious form'
if arand = 5: 'You look around and notice the cafe visitors solid <a href="exec: GT ''ParkKafe'',''man''">man</a> aged'
if arand = 6: 'You are viewing a cafe visitors and notice two <a href="exec: GT ''ParkKafe'',''Armenians''">Genocide</a> sitting at the table'
if arand = 7: 'You are viewing a cafe visitors and notice two <a href="exec: GT ''ParkKafe'',''boys''">sporty guys</a> sitting at the table and beer pschih'

act 'Leave': gt 'park','start'
end

if $ARGS[0] = 'boys':
cla
Set rrand = RAND(1,2)
	if rrand = 1:
	'You´re looking at them intently, but they think you do not notice.'
	act 'Go home': gt 'park','start'
	end
	if rrand = 2:
		if parkara > 0:
		'Jora Senya notice you, but continued to drink beer with friends.'
		act 'Leave': gt 'park','start'
		end
		if parkara = 0:
		'Your views were seen guys and one of them rolled up to you and asked to join them.'
		act 'Leave': gt 'park','start'
			act 'Drink beer with the guys':
			cla
			'You guys drank a glass of beer for guys ordered another. One of the guys that you quietly slipped it into the glass. You get drunk and you guys took in the nearest woods.'
			Set deyrand = RAND(1,2)
				if deyrand = 1:
				if parkara = 0: Set guy += 2 & Set parkara = 1
				Set sex += 1
				Set bj += 2
				Set cumlip += 2
				'Guys put you on your knees and take out their members. you do not understand what is going on at once both start sucking cock.'
				'<center><img src="images\klof\022.jpg"></center>'
				Set horand = RAND(1,100)
				if horand <= bj: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
				if horand > bj: Set horny += 10 & 'You were not satisfied'
				'They end up in your mouth, you swallow sperm greed'
				act 'Become acquainted': gt 'parkkafe','klof 1'
				end

				if deyrand = 2:
				if parkara = 0: Set guy += 2 & Set parkara = 1
				Set sex += 1
				set cumpussy += 1
				set vagina += 1
				set gang += 1
				Set cumass += 1
				anus += 1
				anal += 1
				'Guy fucks you in the pussy. Another time, too, does not lose his penis and shoves you in the ass.'
				'<center><img src="images\klof\004.jpg"></center>'
				Set horand = RAND(1,100)
				if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
				if horand > horny: Set horny += 10 & 'You were not satisfied'
				'One of them ends up in you, and the other is discharged you on your ass.'
				act 'Become acquainted': gt 'parkkafe','klof 1'
				end
			end
		end
	end
end

if $ARGS[0] = 'klof 1':
cla
*clr
set minut += 5
set klofQW = 1
clr
gs 'stat'
'<center><img src="images\klof\11 1.jpg"></center>'
'In rose from the grass in front of the guys legs and hands were shaking from sex between her legs itched all. "Did you like it baby?" asked one of the guys.'
act 'Yes': gt 'event','klof 2'
act 'Leave': gt 'park','start'
end




if $ARGS[0] = 'Armenians':
cla
Set rrand = RAND(1,2)
	if rrand = 1:
	'You´re looking at them intently, but they think you do not notice.'
	act 'Go home': gt 'park','start'
	end

	if rrand = 2:
	'Your views were seen by Armenians and one of them rolled to your table with a bottle of champagne.'
	act 'Leave': gt 'park','start'
		act 'Drink together':
		cla
		*clr
		'You drank champagne with Armenian. His friend moved smoothly for your table. You drank and made merry. You get drunk and Armenians took you into the back room cafe.'
		Set deyrand = RAND(1,2)
			if deyrand = 1:
			if parkarman = 0: Set guy += 2 & Set parkarman = 1
			Set bj+= 2
			Set cumlip += 2
			'Armenians put you on your knees and take out their mighty members. They dvoem poke them in your face, you start to suck at once both members.'
			'<center><img src="images\pics2\ara.jpg"></center>'
			Set horand = RAND(1,100)
			if horand <= bj: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
			if horand > bj: Set horny += 10 & 'You were not satisfied'
			'They end up in your mouth with laughter and go'
			act 'Leave': gt 'park','start'
			end

			if deyrand = 2:
			if parkarman = 0: Set guy += 2 & Set parkarman = 1
			Set sex += 1
			Set bj+= 1
			set gang += 1
			Set cumlip += 1
			Set cumass += 1
			vagina += 1
			'Armenians bend over you and puts you one cock in her mouth. Another time, too, does not lose his penis and shoves you into the vagina.'
			'<center><img src="images\pics2\ara2.jpg"></center>'
			Set horand = RAND(1,100)
			if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
			if horand > horny: Set horny += 10 & 'You were not satisfied'
			'One of them ends up in your mouth and swallow all causes, and the other is discharged you on your ass.'
			act 'Leave': gt 'park','start'
			end
		end
	end
end

if $ARGS[0] = 'man':
cla
set mrand = RAND(1,2)
if mrand = 1: 'You glanced surreptitiously at respectable man, but it seems you did not notice.'
act 'Leave': gt 'park','start'
	if mrand = 2:
	cla
	'A man walks up to you and invites you to dance.'
		act 'Dance':
		cla
		'He dances well and confidently leads you during the dance. After the dance, you sit down at a table with a man, he orders an expensive wine and various snacks, you relax with gallant compliments showered on you.'
		'Cavalier offers to go to the sauna.'
			act 'In the sauna':
			cla
			if saunasex = 0: Set saunasex = 1 & Set guy += 1
			Set sex += 1
			!Set oral += 1
			Set cumlip += 1
			Set cumass += 1
			set horny = 0
			vagina += 1
			'<center><img src="images\pics2\sauna.jpg"></center>'
			'In the sauna you two completely naked, have fun and enjoying yourself, gradually turns into a very passionate sex'
			if horny > 75: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
			if horny <= 75: Set horny += 10 & 'You were not satisfied'
			act 'Leave': gt 'street'
			end
		end
	act 'Leave': gt 'park','start'
	end

end

if $ARGS[0] = 'woman':
cla
'You glanced surreptitiously at the imperious woman, but it seems you did not notice.'
act 'Leave': gt 'park','start'
end

if $ARGS[0] = 'youth':
cla
Set rrand = RAND(1,2)
if rrand = 1:
'You looked at the campaign secretly laughing youth, but they seem to have overlooked.'
act 'Leave': gt 'park','start'
end
	if rrand = 2:
	'To you tipsy man approached and invited you to the company.'
	act 'Leave': gt 'park','start'
		act 'Company':
		cla
		'You sat at the table where walking cheerful and noisy group of young people, it was very fun and late night parties kompashka went to continue the fun at the apartment'
		act 'Leave': gt 'park','start'
			act 'To go along with all':
			cla
			*clr
			'<center><img src="images\pics2\Student.jpg"></center>'
			'You continued to splash out on the flat. Most went home, but the girl was left alone, and six guys. Guys started to kiss a girl and she sat on his knees in front of them boys got members, girl stroking their hands, and guys masturbate members on the girl´s face'
			act 'Leave': gt 'park','start'
				act 'Kneel down next to the girl in the lap of the guys':
				cla
				*clr
				set hour += 6
				if hour >= 22: Set hour = 22 & Set minut = 0
				set son -= 10
				if son < 02: Set son = 2

				if studentsex = 0: Set studentsex = 1 & Set guy += 6
				Set bj += 6
				Set cumlip += 6
				set swallow += 6
				'<center><img src="images\pics2\Student2.jpg"></center>'
				'Boys jerking off on your face, and you Girl caressed and kissed members finally the boys began to lower you in their mouths. Your co-worker also nakonchal mouthful, she turns to you with a mouth full of sperm and wants to kiss you.'
					act 'Kissing Girl':
					cla
					*clr
					'<center><img src="images\pics2\Student3.jpg"></center>'
					'You kiss a girl, you both mouthfuls of sperm and you are sharing it with a kiss, you finally get tired and you both swallow cum in your mouths.'
					act 'Leave': gt 'street'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'negros':
cla
Set rrand = RAND(1,2)
	if rrand = 1 or afra >= 1:
	'You glanced surreptitiously at the Africans, but they seem to have overlooked.'
	act 'Leave': gt 'park','start'
	end
	if rrand = 2 and afra = 0:
	Set afra = 1
	Set obs = 1
	'To fit your table a few Africans, they behave not quite restrained, talk a lot in English, grabs you by the back and chest. One of the Africans who introduced DeMarcus tells you that they are students from Africa and live in the dorm, so he tells you how to get to the hostel and find them.'
	act 'Leave': gt 'park','start'
	end
end

if $ARGS[0] = 'guy':
cla
Set rrand = RAND(1,2)
	if rrand = 1 or gosh = 1:
	'You secretly looked at the young boy, but it seems you did not notice.'
	act 'Leave': gt 'park','start'
	end
	if rrand =2 or gosh = 1:
	'You secretly looked at the young boy. Gosh it, but it seems you did not notice.'
	act 'Leave': gt 'park','start'
	end
	if rrand = 2 and gosh = 0:
	Set gosh = 1
	Set obs = 1
	'For your table fit young man and introduces himself as Gosha, you become acquainted with him, he is a student and lives in obschege. Ghosh tells you how to get to the hostel and how to find it.'
	act 'Leave': gt 'park','start'
	end
end
--- ParkKafe ---------------------------------

# roomPRE
'<center><B><font color = maroon>Apartment</font></B></center>'
'<center><img src="images\picPRE\room.jpg"></center>'
clr
gs 'statPRE'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)


if pre = 0:
set pre = 1
'Alarm rang. Wife Luda sluggishly rolled over. Habitual movement you have it turned off. God, how can you not want to work. Okay, enough rassusolivat.'
	act 'Go to the bathroom':
	cla
	*clr
	set minut += 30
	clr
	gs 'statPRE'
	'<center><img src="images\picPRE\self.jpg"></center>'
	'Quietly, that would not wake up daughter, you have gone to the bathroom and began to brush up.'
		act 'Leave the apartment':
		cla
		*clr
		set minut += 5
		clr
		gs 'statPRE'
		'<center><img src="images\picPRE\carPRE1.jpg"></center>'
		'In the parking lot near the house was your car. You went to her and pressed a button on the key fob opening the central locking and removing the alarm.'
		act 'Go to work':
			cla
			*clr
			set minut += 25
			clr
		gs 'statPRE'
		'<center><img src="images\picPRE\carPRE.jpg"></center>'
		'You got behind the wheel, started the car and drove to work. On the road, as was always going to jam you and dragged themselves on something like a traffic jam to the office.'
			act 'Park at the office':
				cla
				*clr
				set minut += 60
				clr
				gs 'statPRE'
				'<center><img src="images\picPRE\officePRE.jpg"></center>'
				'You put the car to the parking lot near the office and went into the building. Greeted with a security guard and went upstairs to his office.'
				'To you the director´s secretary came and brought you travel documents. You looked at her. "Did I go to business trip?" you asked. "Probably yes. Vsyevolodovitch ears stands in the morning, what that PE in the construction industry. More I do not know." Oksana said. You have prepared travel documents, now we have to sign the director.'
					act 'By Director':
					cla
					*clr
					set minut += 20
					clr
					gs 'statPRE'
					'<center><img src="images\picPRE\man.jpg"></center>'
					'Going to the office of the Director, you greeted him and submitting papers to sign sat in the chair. Roman Gromov ran the text and paper podmahnul wide authoritative stroke.'
					'"Glavbukh probably already in place, go get travel. While I make a few calls, and then come back to me, discuss your trip." director said thoughtfully.'
						act 'Go to the chief accountant for travel.':
						cla
						*clr
						set minut += 30
						set money += 15000
						clr
						gs 'statPRE'
						'<center><img src="images\picPRE\glavbuh.jpg"></center>'
						'Marina was already in his office, you have filed her application, she grumbled a bit, but has given you money. Did you get their names in the statements, and came out of her office.'
							act 'Go to the director.':
							cla
							*clr
							set minut += 15
							clr
							gs 'statPRE'
							'<center><img src="images\picPRE\man.jpg"></center>'
							'When you entered the director Roman Gromov gestured you to a chair, and he continued to talk on the phone.'
							'"Yes, I understand. Utryasem Once all the questions so I will immediately send you Michael, my deputy. Tell workers that they output. Igor, set a guard at the pit and let no one there no fuss, take care that would nobody got wind, you know, may prohibit the construction and this can not be allowed. Okay, let´s be engaged. " Roman hung up.'
							'He turned and spoke to you. "Tonight, during operations in the pit at our complex construction workers stumbled upon what that space. Backhoe struck the wall there. Okay Igor was close by and realized stop the excavations. Damn, is not clear on what we would encounter. Maybe abandoned bunker or something . But in any case there is any voids under pits and further construction of the complex may not be possible. So what you need as quickly as possible to go to the construction site. Understand that there´s what. Zanochuesh in hotel. general, solve itself, according to circumstances. "'
								act 'I should at least meet.':
								cla
								*clr
								set minut += 5
								clr
								gs 'statPRE'
								'<center><img src="images\picPRE\man.jpg"></center>'
								'"I though we should get" had begun to pull you bagpipes, but the director interrupted you. "Michael, do not you catch up? We scored credits on the ears on this construction, we still have not even agreed on a construction project, and we dig a pit. You understand, moreover, that if a foundation pit of emptiness, we can not continue to build and find ourselves on the brink of ruin, so we can still what important object destroyed while still on trial zagremit. situation must be addressed urgently. This force majeure. I have to be here to catch in which case someone should grease the time, so you go . "'
								act 'Okay, then I will not waste any more time.': gt 'roadPRE'
								end

							end

						end

					end

				end
		end

		end
	end
end
--- roomPRE ---------------------------------

# roadPRE
'<center><img src="images\picPRE\carPRE.jpg"></center>'
set minut += 5
clr
gs 'statPRE'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Once in the car you will immediately dial the phone your wife Luda. Explained the situation to her and finished the conversation went to the construction of the complex.'

act 'Ride.':
cla
*clr
set minut += 500
clr
gs 'statPRE'
'<center><img src="images\picPRE\kotPRE.jpg"></center>'
'You´ve been traveling on the highway and tired, but before the rest in a hotel, you need to visit the pit. So you come to the site. Igor called and he said to run you protection on the scene.'
'Putting the car you saw that coming to you, Igor.'
	act 'Say hello to Igor.':
	cla
	*clr
	set minut += 15
	clr
	gs 'statPRE'
	'<center><img src="images\picPRE\igor.jpg"></center>'
	'You are greeted with Igor. He was obviously concerned about the situation and so without much delay led you to the enclosure in the pit, around which hovered dejectedly guard.'
	'"I made a staircase that would descend into the break. Air there, I already checked threw a burning piece of paper. It´s not like a bunker or a natural cave, but rather what that ancient catacombs." said Igor until you waded through the mud to failure.'
	'You came to the hole in the ground and looked back. Floor-five meters, you thought. "Vidisha Michael seems certainly to a natural cave, but it´s not too pravilnae form. Well, go down?" said Igor.'
		act 'Descend.':
		cla
		*clr
		set minut += 15
		clr
		gs 'statPRE'
		'<center><img src="images\picPRE\dunPRE.jpg"></center>'
		'You took a powerful torch Igor until the guard lowered a staircase in failure. Igor then first started down there. Behind him, you went down on an aluminum ladder into the cave.'
		'The cave musty and gloomy, but you can breathe and not bad lantern illuminates the walls. You sent a beam into the corridor and saw in the distance something like a door.'
		'"Damn. Now just any historians ponabegut here with your stupid research." Igor muttered.'
		'You came to the door and saw her what that drawings like characters.'
			act 'Open the door.':
			cla
			*clr
			set minut += 15
			clr
			gs 'statPRE'
			'<center><img src="images\picPRE\dunPRE1.jpg"></center>'
			'Leaning against the door you managed to open it. "Your mother. Mish, look here. This same human bones." Igor said nervously.'
			'Looking around that a lot of which poked his finger Igor you are convinced that it is really a bunch of bones and skull on top. "Tomb, I suppose." Igor muttered looking bone.'
				act 'Go further.':
				cla
				*clr
				set minut += 15
				clr
				gs 'statPRE'
				'<center><img src="images\picPRE\dunPRE2.jpg"></center>'
				'Going further, you have found a dilapidated gallery. In the gallery walls were stone recess in which lay the dusty scrolls of something resembling pergamet.'
				'Igor took one of the rolls and spread it. "The hell it is not clear what that cuneiform. Ka I´ll take with me, what I find something special on ancient languages, even decipher" said Igor'
				'Have you noticed a door in the wall and opened it.'
					act 'Enter the room.':
					cla
					*clr
					set minut += 15
					clr
					gs 'statPRE'
					'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
					'The room on the stone dais in the center stood a variety of vessels. You have come to see them trying to figure out what exactly is you came.'
					'Looking at the room you notice a strange little sculpture standing at the top of the stone elevations with vessels.'
						act 'Mark sculpture.':
						cla
						*clr
						set energy = 21
						set water = 21
						set son = 21
						set minut += 15
						set magik = 1
						set manna = (intel * magik) + vital * 5
						clr
						gs 'statPRE'
						'<center><img src="images\picPRE\amuletPRE.jpg"></center>'
						'You picked up a strange sculpture and began to examine her. This is clearly something very ancient. Holding the amulet, you realize that it´s warm, almost hot and instinctively felt like some sort of strange power comes into you.'
						'You feel a surge of strength. As if there was a long road. Do you even have a drink and did not want to.'
						'Igor entered the room holding a piece of parchment. "Hmm. Interesting little room. On what is not clear, we came. And most importantly, what we do with this find. Whether destroy and build complex, or public."'
							act 'You´ve got to think and consult with the chief.':
							cla
							*clr
							set minut += 15
							clr
							gs 'statPRE'
							'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
							'"You´ve got to think and consult with the chief." you said thrusting a strange amulet in his pocket.'
							'"Well, here´s for sure you can not call the boss, let´s get out of this crypt." Igor said grimly.'
								act 'Come to the surface.':
								cla
								*clr
								set minut += 15
								clr
								gs 'statPRE'
								'<center><img src="images\picPRE\kotPRE.jpg"></center>'
								'You got together with Igor and climbed up ladders to the surface. Igor said, "It´s late, go to the hotel. Sozvonishsya there and with Vsyevolodovitch."'
								act 'Go to the hotel.': gt 'otelPRE'
								end
							end
						end

					end
				end
			end
		end
	end
end
--- roadPRE ---------------------------------

# otelPRE
'<center><img src="images\picPRE\otelPRE.jpg"></center>'
set minut += 30
clr
gs 'statPRE'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set money -= 3000
'You uneventful found sparkling lights Hotels and putting the car went to the bar to get a room.'
'Availability in a hotel was only a double room you have paid in full, what would you have settled inadvertently nobody.'

act 'Up to the room.':
cla
*clr
set minut += 5
clr
gs 'statPRE'
'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
'You lay on the bed. They began to speculate on what happened. And what a mysterious amulet you find there. After it you feel just wonderful.'
	act 'Call the director.':
	cla
	*clr
	set minut += 30
	clr
	gs 'statPRE'
	'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
	'You dialed the number of Roman Vsevolodovicha and after a few rings, he responded. You said that under some sort of foundation pit ancient tomb, bones, what - what vessels, scrolls. Director pokumekali a little while and decided to stop the construction. He instructed while you stay, watch and wait for further instructions.'
		act 'Go to bed.':
		cla
		*clr
		set minut += 600
		clr
		gs 'statPRE'
		'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
		'You lay on the bed and fell asleep. You dream of as vidili amulet what that force was a ghost and gives you than what unimaginable. You vidili moon his bloody eye looks at the world and people see the world not as it is. Suddenly, in a dream, you feel that the room who that is.'
			act 'Open your eyes.':
			cla
			*clr
			set minut += 5
			clr
			gs 'statPRE'
			'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
			'Opening his eyes, you will see a black figure beside him. A man in a long black coat with an orange mask on the face in which there was only one hole for the eyes. A man came up to you and asked, "Where is the statue?"'
				act 'Who are you?':
				cla
				*clr
				set minut += 5
				clr
				gs 'statPRE'
				'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
				'"Who are you?" you asked puzzled. "Listen, man, do not look for problems currently on level ground, give the statue and close construction. This place belongs to us." stranger said in a firm voice.'
				'You´re thinking, who is this, and what it all means. "I see no small show of force, we do not reach an agreement." the man said, and at this point you feel as if you saw a stranger through and felt a burning desire to give him a statue.'
					act 'Give him a statue':
					cla
					*clr
					set minut += 5
					clr
					gs 'statPRE'
					'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
					'You got out of bed and gave him a statue. The man picked it up, turned around and then his eyes like a whirlwind formed tightening it in your eyes the same as in the funnel. A few seconds and the man disappeared. You rubbed his eyes, "what the hell is going on here. Do I have dreamed it. No, I do not like a lunatic that would walk around the room in a dream, and the statue was gone." you pondered.'
					'At this point, knock on the door. You came to the door and asked who was there. A woman´s voice from behind the door you said that the hotel receptionist and she wants to talk to you on an urgent matter.'
						act 'Answer the door':
						cla
						*clr
						set minut += 5
						clr
						gs 'statPRE'
						'<center><img src="images\picPRE\karinPRE.jpg"></center>'
						'You opened the door and entered the room not much confident step woman with red hair and glasses. She walked into the room quickly examined the situation and finally stopped his eyes on you.'
						'"Michael? Correctly I suppose?" You nodded. "Last night you found what the place and took out something very valuable and powerful." said the girl stroking your eyes.'
							act 'Listen, comrade came here already on this issue.':
							cla
							*clr
							set minut += 5
							clr
							gs 'statPRE'
							'<center><img src="images\picPRE\karinPRE.jpg"></center>'
							'You embraced a mild irritation that these idiots can not even agree among themselves who come and take away the statue? So you girl blurted, "Listen, you have already started to bother me. That one will come with this damn statue, another administrator as well."'
							'She looked at you with surprise. How? I had already come up to someone? Who was it?'
								act 'Share':
								cla
								*clr
								set minut += 5
								clr
								gs 'statPRE'
								'<center><img src="images\picPRE\karinPRE.jpg"></center>'
								'"What is a man in a black cloak with red clouds and orange mask with one hole for the eyes. He already took the statue." you answered.'
								'Girl´s face fell. "Curse. Ahead. Okay Michael, we will continue in another place. Juugo, Vyazhi it." said the girl at the door.'
								'Came into the room a tall man.'
									act 'Prepare to fight':
									cla
									*clr
									set minut += 5
									clr
									gs 'statPRE'
									'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
									'The man across the right side of his face was visible tattoo. Red hair stood on end.'
									set $nameV = 'Juugo'
									!Статы
									set strenV = 600
									set speedV = 60
									set agilV = 60
									set reactV = 50
									set vitalV = 200
									set intelV = 50
									set willV = 50
									!Навыки
									set magikV = 100
									set boxingV = 100
									set shootV = 100
									!Параметры
									set healthV = vitalV * 10 + strenV * 5
									set mannaV = intelV * 10 + magikV * 10
									set willpowerV = willV * 10
									set BonusAtakV = 0
									set BonusDefV = 0
									!программа действий
									set program = 0
									set jugoFight = 1
									act 'Fight': gt 'fight','start'
									end
								end
							end
						end
					end
				end
			end
		end
	end
end
--- otelPRE ---------------------------------

# karinPRE
'<center><img src="images\picPRE\karinPRE.jpg"></center>'
set minut += 120
clr
gs 'statPRE'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You woke up in what is not a familiar place, standing near you is the same red-haired girl. "And woke up. I told this jerk Juugo that he would have treated you more careful. But does he listen to you. As a result, I had you pull from the world, he almost did not kill you."'
'"But there are pros, while you lay unconscious, I researched a little you. Amulet of Power passed to you. As you pull it out have no idea. This way bad news for you. Toby, well, that guy in the mask. He ''ve probably realized that the amulet worked and gave his power and now he´s looking for you. "'
set nudity = 0
act 'What´s going on?':
cla
*clr
set minut += 5
clr
gs 'statPRE'
'<center><img src="images\picPRE\karinPRE.jpg"></center>'
'"What´s all the hell´s going on?" you interrupted the girl and tried to move his hand, but you were tied to the bed.'
'"Um, okay, I´ll start from the beginning." said the girl. "Magic exists and is real. Earlier the world was not the same range were magicians and this can not be a surprise to anyone. Day when everything changed. Order of Dawn, whose head came to see you in person. That masked man named Toby. So this award captured several demons and use their power zakolodoval moon. Now the whole world lives in illusions moon and sends Toby directly. Someone may rebel by illusion, but it is powerful mages, but most of the world has simply forgotten about magic and went to live in an illusory world, which they believe only a reality. "'
'"Recently there was a powerful burst of magical energy, which even caused a malfunction Tsukuemi. Tsukuemi so called spell of illusion imposed on the moon. How can you guess magicians felt this surge. He walked out of that cave you found. Apparently surge occurred in the time of activation amulet. Who is this amulet hunting began. Mages of all stripes are looking for such a thing mad force capable disrupt Tsukuemi.'
'As you know, Toby wants to protect your order from destruction Tsukuemi. And perhaps due to the force of the amulet to strengthen it. Tsukuemi weakens over time. "'
	act 'The whole world is an illusion Corrupts this Toby?':
	cla
	*clr
	set minut += 5
	clr
	gs 'statPRE'
	'<center><img src="images\picPRE\karinPRE.jpg"></center>'
	'"The whole world is an illusion that Toby sent down?" you asked. The girl nodded. "Yes. But only an illusion specific. Around all quite material. Magical nature only has escaped the attention of the person. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people will see how I threw a grenade or shot from a flamethrower. Once the human mind meets miracle triggered Tsukuemi and begins to affect the mind, forbidding him to perceive how the miracle miracle, hence any little green men, UFOs, poltergeists, samovozgaraniya, mind on the impact Tsukuemi forced to look for exits in the form of all rave at the sight of a miracle, if the mind can not cope with the influence Tsukuemi, then the person can go crazy and then no one would believe him. "'
		act 'And who are you?':
		cla
		*clr
		set minut += 5
		clr
		gs 'statPRE'
		'<center><img src="images\picPRE\karinPRE.jpg"></center>'
		'"And who are you?" you asked. The girl smiled. "I? I Karin. Mag, but certainly not a magician Toby. More I specialize in the treatment of, for mutations, changes in the body. I have little combat techniques, so that would certainly grab you, I used the services of Juugo. Mutant He, his mutation caused by the magical nature. His terrible physical strength which is very hard to resist. It can bear fists goal. But this power, combined with the effects Tsukuemi driving him crazy. We cooperate with it, I keep it in a state of sanity, and it performs my orders. "'
			act 'Why do you need?':
			cla
			*clr
			set minut += 5
			clr
			gs 'statPRE'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'"Why do you need me?" you asked. The girl replied. "Hmm, obviously mine. When I lock you, I was hoping to get this effect. But now the situation has changed. Amulet vobschem became useless. Power passed to you. But it´s bad news for you. If you think that once you force amulet, so you can do anything. Figa with two. Naked without the ability to force anything. Toby and easily beat your will and forced to obey, and Juugo beat you like a puppy. Not so simple with this force. You yourself become amulet in force contained but you use it you can not do. "'
				act 'What is this amulet? Where did he come from?':
				cla
				*clr
				set minut += 5
				clr
				gs 'statPRE'
				'<center><img src="images\picPRE\karinPRE.jpg"></center>'
				'"And what is this amulet? Where did he come from?" you asked. Karin thought. "Most likely this is what is the trick Rikudo, the ancient magician stunning force. I do not know precisely. Similarly only know that the amulet was created in a special way, he could give his force only one in whom there is no magic. And he could give effect only man. Rather it was what that amulet Rikudo for emergency restoration force at the time when she had finished.'
				'You know, you´re already dead. In your footsteps is Toby and his gang of thugs and bastards. When he finds you, he will turn you inside out, but you would get out of force. Apply your strength in the form in which it exists is the same as a call Toby and tell you where nahodishsya. Tsukuemi on you can no longer act, so you probably saw Toby moves. Times, and he was there where he wanted, convenient and fast. "'
				'Karin thought. "You know. I do not want to give you Toby. And I think I know how to bring down the trail this bloodhound. Rikudo Power only works if it is in a man´s body. You´re a man and she works there, regardless of your will. Enormous effort I should destroy and dispel traces of this force that would hide our place position. "'
					act 'Uh, I do not understand, what do you suggest?':
					cla
					*clr
					set minut += 5
					clr
					gs 'statPRE'
					'<center><img src="images\picPRE\karinPRE.jpg"></center>'
					'"Uh, I do not understand, what do you suggest?" you asked. Karin giggled. "I´ll make you a pretty, young girl and Toby never find you. Well, no, there is another way, I´m just going to stop your heart and your strength will dissolve in nature, and you will die. Toby Giving you I´m not going. And admit killing you do not want. Maybe with time udastsja something sensible to do with your strength. "'
						act 'Hey, I do not want to be a woman, then I have a family, wife, daughter.':
						cla
						*clr
						set minut += 5
						clr
						gs 'statPRE'
						'<center><img src="images\picPRE\karinPRE.jpg"></center>'
						'"Hey, I do not want to be a woman, then I have a family, wife, daughter," you are afraid. Karin smiled sadly. "Here the choice is simple, either you die or you live without a penis. Never understood men, so that they are shaking their rattles around. During his family not to worry. I´ll arrange everything. You will be dead for all the tragedy, but what to do, but Toby unhooked. I´ll erase your memory of the family, will be only the ghostly memories, you can not even remember where you zhil.Tselikom erase the memory I will not leave you in prevratishsya useless vegetable. "'
							act 'There must be another way!':
							cla
							*clr
							set minut += 5
							clr
							gs 'statPRE'
							'<center><img src="images\picPRE\karinPRE.jpg"></center>'
							'"There must be another way!" you panicked. Karin became serious. "Do not argue. But is the only way available to me. Now go to sleep." said Karin putting your hand on his chest.'

							act 'Sleep': gt 'sleepPRE'
							end

						end
					end
				end

			end
		end
	end
end
--- karinPRE ---------------------------------

# sleepPRE
'<center><img src="images\picPRE\karinPRE.jpg"></center>'
set minut += 120
set day += 1
set week += 1

!clr
!gs 'stat'
killobj

fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set $name = 'Svetlana'
set $surname = 'Lebedev'
set age = 18
set vidage = 16
set year = 2010
!set month = 6
!set week = 5
!set hour = 8
!тело
set rost = 170
set fat = 60
set salo = 60
set dick = 0
set energy = 15
set water = 15
set son = 16
!Статы
set stren = 10
set strenbuf = 10
set speed = 10
set agil = 10
set agilbuf = 10
set vital = 10
set vitalbuf = 10
set intel = 10
set will = 10
set react = 10
set magik = 0
set health = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
!etogame
set nastjaqw = 0
!etogame

!!!!!!!!!!!!!! Maruda Hair Mod
set hairlength = 17
set hcol = 1
!!!!!!!!!!!!!! Maruda Hair Mod

set vidageday = 300
set housrA = 1
set sarafan[1] = 1
set nude = 0
set sarafanH[1] = 30
set odevnesh = 0
set lobok = 3
set leghair = 3
set mop = 1
set recmop = 1
set usemop = 0
set usehapri = 0
set uselipbalm = 0
set housr = 1
set housr['Street'] = 1
set BuyHous['Street'] = 1
set tanga = 1
clr
gs 'stat'
set numdres = 1
set odetjeans = 1
set numdress = 1
set jeans[1] = 1
set jeansH[1] = 100
set jeansB[1] = 70

set cltarelka = 1
set fairy = 10
set eda = 5
set clrbelo = 2
set poroshok = 5
set shampoo = 5
set nude = 0
set $nude = 'In the corridor'
clr
gs 'stat'

'"You´re awake? Rather woke up." Karin said looking into your eyes.'

act 'Look at yourself':
cla
*clr
set minut += 5
clr
gs 'stat'
'<center><img src="images\picPRE\povPRE.jpg"></center>'
'"Fuck," you said and shut his mouth. Voice was too feminine. Karin giggled. "The first time I changed the gender of the person. Therefore waited with curiosity how you´d react to his new body. Masterpiece. Course in something I miscalculated, for example due to sharply increased hormonal status you went pimples on the face. Failed to change the eyes and lips, but your body will be much easier to change than the body of an ordinary woman, you will be easier to gain weight, lose weight, can change facial features. Nothing, you live now in the women´s clothing. Yes, you are quite normal woman, you can fly. "'
'You angrily looked at Karin, "You think I´m here and so turned into a woman and immediately ran to find eldu which can jump? I´m still the same old tridtsatipyati man."'
'"Well, yes. Do not argue." Karin agreed. "Actually, it´s your life and only you decide what to do with it. Yeah, I already took care of alibi. Today you in his car fell into the pit and died, now just on the TV show." With these words, Karin pressed a button on the remote and the TV has earned.'
set $name = input("What is your first name?")
if $name = '':
	set $name = 'Svetlana'
end
set $surname = input("What is your last name?")
if $surname = '':
	set $surname = 'Lebedev'
end
	act 'Watch TV':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	'<center><img src="images\picPRE\car2.jpg"></center>'
	'On TV is reporting that as a businessman who arrived on a mission yesterday afternoon breaking the fence fell into the pit. Businessman died in hospital without regaining consciousness.'
	'You dumbfounded looked at Karin. She smiled enigmatically, "Well, I still magician and something that I can. Toby Now even lose track forever. Whoever killed in BMW, at the time of death was perfect your copy of Energy and to fillings in his teeth. Yeah, here´s the documents on apartment, passport, passport. Now you <<$name>> <<$surname>>, 18 years old girl in the city nobody knows you, but you at least have an apartment in the property. This is a gift to you from Juugo. Now get up, you´ve got to go to his new home and equip a new life. "'
	'Entered the room Juugo redhead with a tattoo on his face. He looked at you and said, "I´ll take you."'
		act 'Go with Juugo':
		cla
		*clr
		set minut += 5
		clr
		gs 'stat'
		'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
		'Juugo silently carried you to the garage and there you sat in a huge black jeep. Juugo sat behind the wheel and raced around the track. You silently speculated about what you do now.'
		'Juugo is not looking at you said. "I´m sorry I beat you so much. I can not control himself during a fight. You were a little grow larger and for a second I thought you might be dangerous for me, so I hit with full force." You looked at him. "Forget it, listen Juugo that I do now?" Juugo nodded and said, "Well, I would advise you to start to buy food at the store, all sorts of washing powders, detergents, dish and laundry. The apartment has a little something of course, but not enough. There´s even no TV. Then get a job. Podaleku not from your house there is a restaurant, she works with 12, every day except Monday. approach a master, he will take the job for you, it just requires a waitress. Do not forget to monitor the health status, mood and mind. Now your mind is very weak, you can not survive and go crazy. You need to eat well, sleep regularly, have fun, do not generally become despondent, but then ended his days in a madhouse. Karin We do not seek, you will not find in the first place, and secondly, if you give us need you, we ourselves will find you. "'
		'You arrived at the five-story home Khrushchev era buildings. Juugo stopped the car and pointed a finger at the entrance. "Your apartment number 69, are the key. Go. Thing to remember is you it´s not unusual, but not give up, keep an eye on the health and life will improve. How ever I look in on you."'
			act 'Out of the car':
			cla
			set opPRE = 0
			set daystart = 0
			addobj 'Character'
			addobj 'See'
			addobj 'Others'
			gt 'street'
			end
		end
	end
end

--- sleepPRE ---------------------------------

# fight
if $ARGS[0] = 'start':
cla
inFight = 1
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

gs 'defence'

gs 'statBat'


if SasoriBody > 2 and healthV <= 0 or SasoriBody > 2 and mannaV <= 0 or SasoriBody > 2 and willpowerV <= 0:
set SasoriBody -= 1
gs 'priziv','sasori'
'<B><font color = red>Doll crumbled into parts, and immediately entered into battle other doll Sasori.</font></B>'
'<B><font color = red>You´ve heard the sonorous voice Sasori "I have a lot of dolls, you can not win."</font></B>'
end
if SasoriBody = 2 and healthV <= 0 or SasoriBody = 2 and mannaV <= 0 or SasoriBody = 2 and willpowerV <= 0:
set SasoriBody -= 1
gs 'priziv','sasori1'
'<B><font color = red>Last doll crumbled into pieces and entered the fight Sasori himself.</font></B>'
end
if stunV > 0 and SasoriBody > 1:
set stunV = 0
'<B><font color = red>Doll began to move again.</font></B>'
end
if stunV > 0 and SasoriBody = 1:
set stunV = 0
'<B><font color = red>again moves Sasori.</font></B>'
end

if GedoMazo = 1 and healthV <= 0 or GedoMazo = 1 and mannaV <= 0 or GedoMazo = 1 and willpowerV <= 0:
set GedoMazo = 2
set barierV = 0
'<B><font color = green><<$nameV>> fell to the ground turning into ashes</font></B>'
gs 'priziv','tobi'
'<B><font color = green><<$nameV>> attacked you</font></B>'
end

if health <= 0 and heart = 0 and izanagi = 0:
'<B><font color = red>you lose</font></B>'
xgt 'ender','loss'
exit
end

if healthV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color = green><<$nameV>> lost</font></B>'
xgt 'ender','win'
exit
end
if manna <= 0 and heart = 0 and izanagi = 0:
'<B><font color = red>you lose</font></B>'
xgt 'ender','loss'
exit
end
if mannaV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color = green><<$nameV>> lost</font></B>'
xgt 'ender','win'
exit
end
if willpower <= 0 and heart = 0 and izanagi = 0:
'<B><font color = red>you lose</font></B>'
xgt 'ender','loss'
exit
end
if willpowerV <= 0 and heartV = 0 and izanagiV = 0:
'<B><font color = green><<$nameV>> lost</font></B>'
xgt 'ender','win'
exit
end
if izanagiV > 0 and healthV <= 0 or izanagiV > 0 and mannaV <= 0 or izanagiV > 0 and willpowerV <= 0:
set izanagiV -= 1
'<B><font color = red><<$nameV>> simply disappeared</font></B>'
set healthV = vitalV * 10 + strenV * 5
set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
set willpowerV = willV * 10
set stunV = 0
	if program = 6 and izanagiOnce = 0: set izanagiOnce = 1 & set unmaterialV = 40 & set tobizanagi = 0
'<B><font color = red><<$nameV>> was in front of you completely healthy. He folded his hands and Arcanum said Izanagi - perfect illusion.</font></B>'
'<B><font color = red>One of his eyes closed for ever, paying for it with a spell.</font></B>'
end
if heartV > 0 and healthV <= 0 or heartV > 0 and mannaV <= 0 or heartV > 0 and willpowerV <= 0:
set heartV -= 1
'<B><font color = red><<$nameV>> staggered and his heart burst</font></B>'
set healthV = vitalV * 10 + strenV * 5
set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
set willpowerV = willV * 10
set stunV = 0
'<B><font color = red><<$nameV>> stood up and rushed into the fray. He has run another heart.</font></B>'
end
if izanagi > 0 and health <= 0 or izanagi > 0 and manna <= 0 or izanagi > 0 and willpower <= 0:
set izanagi -= 1
'<B><font color = green>You are gone</font></B>'
set health = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
set stun = 0
set zerkaloV = 0
set poisonV = 0
set bloodV = 0
'<B><font color = green>Immediately before the enemy appeared completely healthy.</font></B>'
end
if heart > 0 and health <= 0 or heart > 0 and manna <= 0 or heart > 0 and willpower <= 0:
set heart -= 1
set zerkaloV = 0
set poisonV = 0
set bloodV = 0
'<B><font color = green>Your heart gave out and snapped.</font></B>'
set health = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
set stun = 0
'<B><font color = green>You´re not dead, you run another heart.</font></B>'
end

gs 'before'
'<B>=============================================== ===========</B>'
'<B>======================== (ROUND <<round>>) ================= ==========</B>'
'<B>=============================================== ===========</B>'
'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, manna <B><font color = blue><<mannaV>></font></B>, the force will <B>(9 )<<willpowerV>></font></B>'
if defenceV > 0: '<B><font color = red>Protection <<defenceV>> units</font></B>'
if defenceMV > 0: '<B><font color = red>Protection of manna <<defenceMV>> units</font></B>'
if defenceWV > 0: '<B><font color = red>will protection <<defenceWV>> units</font></B>'
'Your life <B><font color = red><<health>></font></B>, the manna <B><font color = blue><<manna>></font></B>, willpower <B><font color = green><<willpower>></font> ( 5)'
if defence > 0: '<B><font color = green>Protection <<defence>> units</font></B>'
if defenceM > 0: '<B><font color = green>Protection from the effects of manna <<defenceM>> units</font></B>'
if defenceW > 0: '<B><font color = green>Protection from the effects at will <<defenceW>> units</font></B>'
if defenceAct > 0: '<B><font color = green><<defenceAct>> moves the regeneration of protection</font></B>'
if defenceActM > 0: '<B><font color = green><<defenceActM>> moves the protection from the effects of regeneration manna</font></B>'
if unmaterial > 0: '<B><font color = green>, Left <<unmaterial>> moves not materiality.</font></B>'
'<B>=============================================== ===========</B>'
gs 'init'

	if hod = 0:
	!игрок атакует
	'<font color = green>You can attack</font>'
	if gun > 0:
		!огнестрел
			if bulletIn > 0:
			'<<bulletIn>> load cartridges in gun'
				act 'Shoot a gun':
				cla
				bulletIn -= 1
				gunpower = 150
				buu = 1
				gunpricel = 1
				Gcrime += 1
				gt 'strelba'
				end

		end
		if bulletIn <= 0:

		if bullet = 0:
		'Ammunition for the gun ran.'
		end
		if bullet > 0:
		'<<bullet>> ammunition for the pistol'
		act 'Reload':
		cla
		if bullet < 7:
		bulletIn = bullet
		bullet = 0
		'You loaded any remaining bullets in the gun.'
		end
		if bullet >= 7:
		bullet -= 7
		bulletIn = 7
		'You loaded 7m rounds in the gun.'
		end
		act 'Further': gt 'fight','sta'
					end
		end
		end

		end
		if Mgun > 0:
		!огнестрел
			if mbulletIn > 0:
			'<<mbulletIn>> load cartridges in the machine'
				act 'Of single machine':
				cla
				mbulletIn -= 1
				buu = 1
				gunpower = 300
				gunpricel = 2
				Gcrime += 1
				gt 'strelba'
				end

				if mbulletIn >= 3:
					act 'A short burst of machine':
					cla
					mbulletIn -= 3
					buu = 3
					gunpower = 300
					gunpricel = 1
					Gcrime += buu
					gt 'strelba'
					end
				end

				if mbulletIn >= 3:
					act 'Long queue of machine':
					cla
					buu = mbulletIn
					mbulletIn = 0
					gunpower = 300
					gunpricel = 0
					Gcrime += buu
					gt 'strelba'
					end
				end
		end
		if mbulletIn <= 0:

		if mbullet = 0:
		'Chucks for machine ran.'
		end
		if mbullet > 0:
		'<<mbullet>> ammunition for the machine'
		act 'Reload':
		cla
		if mbullet < 7:
		mbulletIn = mbullet
		mbullet = 0
		'You loaded any remaining ammunition into the machine.'
		end
		if mbullet >= 30:
		mbullet -= 30
		mbulletIn = 30
		'You loaded the 30 rounds in the machine.'
		end
		act 'Further': gt 'fight','sta'
					end
		end
		end
		end
		if tragun > 0:
		!травматик
		if tbulletIn > 0:
			'travmatik loaded'
				act 'Shoot a gun':
				cla
				tbulletIn -= 1
				gunpower = 50
				buu = 1
				gunpricel = 0
				gt 'strelba'
				end

		end
		if tbulletIn <= 0:

		if tbullet = 0:
		'Cartridges ran travmatika.'
		end
		if tbullet > 0:
		'<<tbullet>> cartridges for travmatika'
		act 'Reload':
		cla
		if tbullet >= 1:
		tbullet -= 1
		tbulletIn = 1
		'You loaded the cartridge in travmatik.'
		end
		act 'Further': gt 'fight','sta'
					end
		end
		end
		end
	act 'Physical Attack': xgt 'boxing'
		if magik > 0:
		act 'Magical Attack': gt 'magik'
		end

	end
	if hod = 1:
	!противник атакует
	'<font color = red><<$nameV>> attacks</font>'
	act 'Further': xgt 'enemy','start'
	end
end


if $ARGS[0] = 'sta':
cla
set damTip = 0
set damTipM = 0
set damTipV = 0
set damTipMV = 0
set magweapbonus = 0
set magweapbonusV = 0
set bonusSh = 0
set bonusShV = 0
set eleSh = 0
set eleShV = 0
set poisonAV = 0
set hidanAtk = 0
'<B>=============================================== ===========</B>'
'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, manna <B><font color = blue><<mannaV>></font></B>, the force will <B>(9 )<<willpowerV>></font></B>'
if defenceV > 0: '<B><font color = red>Protection <<defenceV>> units</font></B>'
if defenceMV > 0: '<B><font color = red>Protection of manna <<defenceMV>> units</font></B>'
if defenceWV > 0: '<B><font color = red>will protection <<defenceWV>> units</font></B>'
'Your life <B><font color = red><<health>></font></B>, the manna <B><font color = blue><<manna>></font></B>, willpower <B><font color = green><<willpower>></font> ( 5)'
if defence > 0: '<B><font color = green>Protection <<defence>> units</font></B>'
if defenceM > 0: '<B><font color = green>Protection from the effects of manna <<defenceM>> units</font></B>'
if defenceW > 0: '<B><font color = green>Protection from the effects at will <<defenceW>> units</font></B>'
if defenceAct > 0: '<B><font color = green><<defenceAct>> moves the regeneration of protection</font></B>'
if defenceActM > 0: '<B><font color = green><<defenceActM>> moves the protection from the effects of regeneration manna</font></B>'
'<B>=============================================== ===========</B>'
act 'Further': gt 'fight','start'
end
--- fight ---------------------------------

# strelba
!gunpricel = 0 не прицельно
	!gunpricel = 1 прицельно
	!gunpricel = 2 очень точно

	!gunpower урон от оружия
	!buu количество выстрелов
	!shoot навык стрельбы
	:markstrelba
	!рейты попадания
	buurand = rand(0,100)
	if buu = 0: xgt 'fight','sta'
		if shoot = 0:
		if gunpricel = 0:
		if buurand = 100:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 100:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 95:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 95:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 90:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 90:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot > 0 and shoot < 20:
		if gunpricel = 0:
		if buurand >= 95:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 95:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 90:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 90:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 85:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 85:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 20 and shoot < 40:
		if gunpricel = 0:
		if buurand >= 90:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 90:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 85:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 85:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 80:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 80:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 40 and shoot < 60:
		if gunpricel = 0:
		if buurand >= 85:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 85:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 80:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 80:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 75:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 75:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 60 and shoot < 80:
		if gunpricel = 0:
		if buurand >= 80:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 80:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 75:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 75:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 70:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 70:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 80 and shoot < 100:
		if gunpricel = 0:
		if buurand >= 75:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 75:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 70:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 70:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 65:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 65:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 100 and shoot < 150:
		if gunpricel = 0:
		if buurand >= 70:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 70:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 65:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 65:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 60:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 60:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 150 and shoot < 200:
		if gunpricel = 0:
		if buurand >= 65:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 65:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 60:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 60:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 55:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 55:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 200 and shoot < 300:
		if gunpricel = 0:
		if buurand >= 60:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 60:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 55:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 55:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 45:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 45:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 300 and shoot < 400:
		if gunpricel = 0:
		if buurand >= 55:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 55:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 50:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 50:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 45:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 45:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 400 and shoot < 500:
		if gunpricel = 0:
		if buurand >= 50:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 50:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 45:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 45:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 40:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 40:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end
		if shoot >= 500:
		if gunpricel = 0:
		if buurand >= 45:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 45:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 1:
		if buurand >= 40:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 40:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		if gunpricel = 2:
		if buurand >= 35:
		damage = gunpower
		jump 'markstelokpopal'
		end
		if buurand < 35:
		buu -= 1
		'bloomer'
		jump 'markstrelba'
		end
		end
		end

	:markstelokpopal
	!если попал


	!расчет урона
		if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
		if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
		if damage < 0: set damage = 0
		Set healthV -= damage
		Gcrimein += 1
		'<B><font color = green>harmed <<damage>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected damage and you got <<damage>> points of damage</font></B>'
		end
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end

		if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		Set defenceV -= damage
		'<B><font color = green>Protection enemy harmed <<damage>> units</font></B>'
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end

		if klonV > 0 and unmaterialV <= 0:
		set klonV -= 1
		'<B><font color = green>Clone destroyed enemy, he still had <<KlonV>> clones</font></B>'
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end

		if unmaterialV > 0:
		set unmaterialV -= 1
		'<B><font color = red>Your bullet went straight through the opponent´s body. <<$nameV>> none Materials</font></B>'
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end

		if barierV > 0:
		!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood hit</font></B>'
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end
		if barierV < damage:
		Set healthV -= damage
		Gcrimein += 1
		'<B><font color = green>harmed <<damage>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected damage and you got <<damage>> points of damage</font></B>'
		end
		end
		if buu = 0: xgt 'fight','sta'
		if buu > 0: buu -= 1 & jump 'markstrelba'
		end
--- strelba ---------------------------------

# before
!Просчет событий на начало раунда.
!У кого защиты, клоны и так далее
set knife = 0
set knifeV = 0
set BonusAtak = 0
set BonusDef = 0
set BonusAtakV = 0
set BonusDefV = 0
!set stunner = 0
!set stunnerV = 0
kisamePro = 0


set round += 1
if tuman > 0: '<font color = green>The battlefield covers your fog. Apparently, he still hold <<tuman>> moves.</font>'
if tumanV > 0: '<font color = red>The battlefield fog covers the enemy. Apparently, he still hold <<tumanV>> moves.</font>'
if stun > 0: '<font color = red>Are you still unable to move.</font>'
if stunV > 0: '<font color = green><<$nameV>> is still unable to move.</font>'

if unmaterialV > 0:
set unmaterialV -= 1
set mannaV -= 20
end

if unmaterial > 0:
set unmaterial -= 1
set manna -= 20
'<font color = green>You do not stand another materiality maximum <<unmaterial>> moves.</font>'
end

if klon > 0:
'<font color = green>You <<klon>> clones that will protect you in case of attack.</font>'
end

if poison > 0:
set healthV -= poison
'<font color = green><<$nameV>> becomes poisoned and <<poison>> units of life.</font>'
set poison -= 1
end

if poisonV > 0:
set health -= poisonV
'<font color = red>You are poisoned and lose <<poisonV>> units of life.</font>'
set poisonV -= 1
end

if blood > 0:
set healthV -= blood
'<font color = green><<$nameV>> becomes <<blood>> units of life from bleeding.</font>'
set blood -= 1
if blood < 0: set blood = 0
end

if bloodV > 0:
set health -= bloodV
'<font color = red>You lose <<bloodV>> units of life from bleeding.</font>'
set bloodV -= 1
if bloodV < 0: set bloodV = 0
end

if dospehEnV <= 0 and dospehV > 0:
set dospehEnV = 0
set dospehV = 0
set dospehDefV = 0
set dospehVesV = 0
'<font color = green>Armor enemy destroyed.</font>'
end

if dospehEn <= 0 and dospeh > 0:
set dospehEn = 0
set dospeh = 0
set dospehDef = 0
set dospehVes = 0
'<font color = red>Your armor destroyed.</font>'
end


if initBonusA > 0: set initBonusA = 0
--- before ---------------------------------

# init
!Расчет инициативы
!Обязательно проверять наличие станов
!hod переменная отвечающая за то кто будет атаковать
!hod = 0 игрок атакует hod = 1 противник атакует
!<font color = red><<$name>></font>

if GedoMazo = 1 and stunV > 0: set stunV = 0 & set mannaV -= 1000 & '<font color = red><<$nameV>> with a deafening roar, emits large amounts of energy allowing you to attack him again.</font>'

set initi = react * 20/100
set initi -= dospehVes
if initi < 0: set initi = 0
set init = RAND(react - initi, react + initi) + initBonus
set initiV = reactV * 20/100
set initiV -= dospehVesV
if initiV < 0: set initiV = 0
set initV = RAND(reactV - initiV, reactV + initiV) + initBonusV

if hodtime >= 3 and stun = 0 and stunV = 0 and initBonus = 0:
!игрок уже трижды атаковал
'<font color = red><<$nameV>> took the initiative</font>'
set hod = 1
set hodtime = 0
exit
end
if hodtimeV >= 3 and stun = 0 and stunV = 0 and initBonusV = 0:
!противник уже трижды атаковал
'<font color = green>You took the lead</font>'
set hod = 0
set hodtimeV = 0
exit
end


if stun = 0 and stunV = 0 and hodtime < 3 and hodtimeV < 3 or stun = 0 and stunV = 0 and initBonus > 0 or stun = 0 and stunV = 0 and initBonusV > 0:
!оба не в стане
	if tuman = 0 and tumanV = 0:
	!нет тумана
		if init > initV:
		!инициативу захватил игрок
		'<font color = green>You took the initiative</font>'
		set hod = 0
		set hodtime += 1
		exit
		end
		if init < initV:
		!инициативу захватил противник
		'<font color = red><<$nameV>> took the initiative</font>'
		set hod = 1
		set hodtimeV += 1
		exit
		end
		if init = initV:
		set hod = RAND(0,1)
		if hod = 0: '<font color = green>You hardly seized the initiative</font>'
		if hod = 1: '<font color = red><<$nameV>> hardly took the initiative</font>'
		exit
		end
	end
	if tuman > 0:
	!туман игрока
	set tuman -= 1
	set initV = reactV - initiV
		if init > initV:
		!инициативу захватил игрок
		'<font color = green>In your fog <<$nameV>> does not have time for you and you took the initiative</font>'
		set hod = 0
		set hodtime += 1
		exit
		end
		if init < initV:
		!инициативу захватил противник
		'<font color = red>In spite of your fog <<$nameV>> took the initiative</font>'
		set hod = 1
		set hodtimeV += 1
		exit
		end
		if init = initV:
		set hod = RAND(0,1)
		if hod = 0: '<font color = green>You hardly seized the initiative in spite of your fog</font>'
		if hod = 1: '<font color = red><<$nameV>> in spite of your fog still took the initiative</font>'
		exit
		end
	end
	if tumanV > 0:
	!туман противника
	set tumanV -= 1
	set init = react - initi
		if init > initV:
		!инициативу захватил игрок
		'<font color = green>In spite of the fog, you took the initiative</font>'
		set hod = 0
		set hodtime += 1
		exit
		end
		if init < initV:
		!инициативу захватил противник
		'<font color = red><<$nameV>> use your fog easily captures initiative</font>'
		set hod = 1
		set hodtimeV += 1
		exit
		end
		if init = initV:
		set hod = RAND(0,1)
		if hod = 0: '<font color = green>You hardly seized the initiative in spite of the fog</font>'
		if hod = 1: '<font color = red><<$nameV>> use your fog took the initiative</font>'
		exit
		end
	end
end

if stun > 0:
!игрок в стане
set stun -= 1
set hod = 1
if tuman > 0: set tuman -= 1
if tumanV > 0: set tumanV -= 1
'<font color = red>You can not move, and <<$nameV>> easily captures initiative</font>'
exit
end

if stunV > 0:
!противник в стане
set stunV -= 1
set hod = 0
if tuman > 0: set tuman -= 1
if tumanV > 0: set tumanV -= 1
'<font color = green><<$nameV>> can not move and you can easily grab the initiative</font>'
exit
end

--- init ---------------------------------

# boxing
!Выбор физической атаки

if weapon = 0:
	act 'Fist':
	cla
	!gs 'atak'
	xgt 'atak','player'
	end
end

if weapon > 0:
if weaponTipe = 1: set $weap = 'sword'
if weaponTipe = 2: set $weap = 'mace'
if weaponTipe = 3: set $weap = 'ax'
	act 'Strike <<$weap>>':
	cla
	!gs 'atak'
	xgt 'atak','player'
	end
end

if kunai > 0:
'You have <<kunai>> throwing knives.'
	act 'Throw a knife':
	cla
	knife = input ("How to throw a knife?")
		if knife > kunai:
		set knife = kunai
		set kunai = 0
		end
		if knife <= kunai:
		set kunai -= knife
		end
	'<font color = green>You are flashed <<knife>> knives.</font>'
	xgt 'atak','player'
	end
end

if magik > 0:
act 'Magical Attack': gt 'magik'
end
--- boxing ---------------------------------

# magik
!Выбор магической атаки

'Spells:'

if round >= 0:
	if spelltuman > 0: 'Cover terrain fog <a href="exec: GT ''spell'',''tuman''">create the spell</a>'
	if spellklon > 0: 'Substitute itself clone <a href="exec: GT ''spell'',''klon''">create the spell</a>'
	if spellstun > 0: 'Paralyze the enemy <a href="exec: GT ''spell'',''stun''">create the spell</a>'
	if spellweap > 0 and weapon > 0: 'Invest in energy weapons <a href="exec: GT ''spell'',''weap''">create the spell</a>'
	if spellwind > 0: 'Blow the mist <a href="exec: GT ''spell'',''wind''">create the spell</a>'
	if spellklon2 > 0: 'Substitute themselves clones (3 pieces) <a href="exec: GT ''spell'',''klon2''">to create a spell</a>'
	if spellenergo > 0: 'Create weak energy shield <a href="exec: GT ''spell'',''energo''">create the spell</a>'
	if spellinit > 0: 'Create weak deceleration time <a href="exec: GT ''spell'',''init''">create the spell</a>'
	if spellhel > 0: 'Treat yourself to <a href="exec: GT ''spell'',''hel''">create the spell</a>'
	if spellhand > 0: 'Striking hand <a href="exec: GT ''spell'',''hand''">create the spell</a>'
	if spellreset > 0 or spellunmat > 0: '<B><font color = red>POWER Rikudo</font></B>'
	if spellreset > 0: 'Power Rikudo "podcherpnut collected energy" <a href="exec: GT ''spell'',''reset''">to create a spell</a>'
	if spellunmat > 0: 'Power Rikudo "not material" <a href="exec: GT ''spell'',''unmat''">to create a spell</a>'
	if spellfire1 > 0: '<B><font color = red>SCHOOL FIRE</font></B>'
	if spellfire1 > 0: 'The Flame <a href="exec: GT ''spell'',''fire1''">create the spell</a>'
	if round >= 3:
	if spellfire2 > 0: 'Release of fire <a href="exec: GT ''spell'',''fire2''">create the spell</a>'
	if spellfire3 > 0: 'Fire barrier <a href="exec: GT ''spell'',''fire3''">create the spell</a>'
	end
	if round >= 6:
	if spellfire4 > 0: 'Firestorm <a href="exec: GT ''spell'',''fire4''">create the spell</a>'
	if spellfire5 > 0: 'Flame Shield <a href="exec: GT ''spell'',''fire5''">create the spell</a>'
	end
	if spellele1 > 0: '<B><font color = red>SCHOOL OF ELECTRICITY</font></B>'
	if spellele1 > 0: 'Rank <a href="exec: GT ''spell'',''ele1''">to create a spell</a>'
	if round >= 3:
	if spellele2 > 0: 'Lightning <a href="exec: GT ''spell'',''ele2''">create the spell</a>'
	if spellele3 > 0: 'Electric barrier <a href="exec: GT ''spell'',''ele3''">create the spell</a>'
	end
	if round >= 6:
	if spellele4 > 0: 'Dance of thousands of birds <a href="exec: GT ''spell'',''ele4''">create the spell</a>'
	if spellele5 > 0: 'Plyaschuschaya scope <a href="exec: GT ''spell'',''ele5''">create the spell</a>'
	end
	if spellert1 > 0: '<B><font color = red>SCHOOL LAND</font></B>'
	if spellert1 > 0: 'Quicksand <a href="exec: GT ''spell'',''ert1''">create the spell</a>'
	if round >= 3:
	if spellert2 > 0: 'Active Protection <a href="exec: GT ''spell'',''ert2''">create the spell</a>'
	if spellert3 > 0: 'The Abyss <a href="exec: GT ''spell'',''ert3''">create the spell</a>'
	end
	if round >= 6:
	if spellert4 > 0: 'Absolute protection <a href="exec: GT ''spell'',''ert4''">to create a spell</a>'
	if spellert5 > 0: 'Sando <a href="exec: GT ''spell'',''ert5''">create the spell</a>'
	end
	if spellwind1 > 0: '<B><font color = red>SCHOOL WIND</font></B>'
	if spellwind1 > 0: 'Gust <a href="exec: GT ''spell'',''wind1''">create the spell</a>'
	if round >= 3:
	if spellwind2 > 0: 'Horrendous pressure <a href="exec: GT ''spell'',''wind2''">create the spell</a>'
	if spellwind3 > 0: 'Vacuum protective sphere <a href="exec: GT ''spell'',''wind3''">create the spell</a>'
	end
	if round >= 6:
	if spellwind4 > 0: 'Vacuum Rockets <a href="exec: GT ''spell'',''wind4''">create the spell</a>'
	if spellwind5 > 0: 'Devouring vacuum <a href="exec: GT ''spell'',''wind5''">create the spell</a>'
	end
	if spellwater1 > 0: '<B><font color = red>SCHOOL WATER</font></B>'
	if spellwater1 > 0: 'Creek manna <a href="exec: GT ''spell'',''water1''">create the spell</a>'
	if round >= 3:
	if spellwater2 > 0: 'Flooding <a href="exec: GT ''spell'',''water2''">create the spell</a>'
	if spellwater3 > 0: 'Blister <a href="exec: GT ''spell'',''water3''">create the spell</a>'
	end
	if round >= 6:
	if spellwater4 > 0: 'Water shark missile <a href="exec: GT ''spell'',''water4''">create a spell</a>'
	if spellwater5 > 0: 'Great Flood <a href="exec: GT ''spell'',''water5''">create the spell</a>'
	end
end

act 'Physical Attack': gt 'boxing'
--- magik ---------------------------------

# enemy
!Расчет атаки противника

if $ARGS[0] = 'start':
cla
!в этом блоке на основании переменной выбирается программа атаки противника
	if program = 0:
	!программа действий простых атакеров физухой
	xgt 'enemy','fighter'
	end
	if program = 1:
	!программа действий физуха и ножи
	xgt 'enemy','fighter2'
	end
	if program = 2:
	!программа действий физуха, ножи, туман
	xgt 'enemy','fighter3'
	end
	if program = 3:
	!программа действий физуха, ножи, туман, клоны
	xgt 'enemy','fighter4'
	end
	if program = 4:
	!программа действий физуха, ножи, туман, клоны, паралич
	xgt 'enemy','fighter5'
	end
	if program = 5:
	!программа действий Кисаме
	xgt 'enemy','kisame'
	end
	if program = 6:
	!программа действий Тоби
	xgt 'enemy','tobi'
	end
	if program = 7:
	!программа действий Тоби
	xgt 'enemy','gedomazo'
	end
	if program = 8:
	!программа действий Огнестрела
	xgt 'enemy','gun'
	end
	if program = 9:
	!программа действий Сасори
	xgt 'enemy','sasori'
	end
	if program = 10:
	!программа действий Конан
	xgt 'enemy','konan'
	end
	if program = 11:
	!программа действий Хидан
	xgt 'enemy','hidan'
	end

end

if $ARGS[0] = 'hidan':
cla
	if zerkaloV > 0: set barierV = 0
	if zerkaloV <= 0: set barierV = 5500
if healthV < vitalV*10 + strenV*5: set healthV = vitalV * 10 + strenV * 5
	if zerkaloV > 0:
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set health -= 400
	set manna -= 500
	'<B><font color = red><<$nameV>> yells "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></B>'
	'<B><font color = red>He stabs himself and you feel like the pain pierces the body.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if zerkaloV <= 0 and defence > 0:
	set damTipV = 5000
	set bonusShV = 100
	set hidanAtk = 1
	'<B><font color = red><<$nameV>> yells "Your existence offends DZHASHINA MY GOD!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></B>'
	if klon > 0: set klon = klon / 2 & '<B><font color = red><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></B>'
	xgt 'atakA1','atak'
	exit
	end
	if zerkaloV <= 0 and defence <= 0:
	set damTipV = 300
	set bonusShV = 100
	set hidanAtk = 1
	'<B><font color = red><<$nameV>> yells "You will die a blasphemer!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></B>'
	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from the blow spit. <<$nameV>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></B>'
	if tuman > 0: set tuman = 0 & '<B><font color = red><<$nameV>> yells "You´re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></B>'
	xgt 'atakA1','atak'
	exit
	end
end

if $ARGS[0] = 'konan':
cla
	if round < 6:
	set mannaV -= 10
	set damTipV = 500
	'<B><font color = red><<$nameV>> adds signs hands and you are flying sheets of paper.</font></B>'
	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the paper.</font></B>'
	xgt 'atakA1','atak'
	exit
	end
	if round >= 6:
		if unmaterialV > 5 and defence > 0:
		set mannaV -= 250
		set damTipV = 15000
		set bonusShV = 100
		'<B><font color = red><<$nameV>> takes to the air on the white wings and pulled out from her wings paper falls on you in a flood of flying with terrible speed paper swords.</font></B>'
		if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the paper.</font></B>'
		xgt 'atakA1','atak'
		exit
		end
		if unmaterialV > 5 and defence <= 0:
		set mannaV -= 20
		set damTipV = 450
		'<B><font color = red><<$nameV>> creates a paper boomerangs that fly in your direction.</font></B>'
		xgt 'atakA1','atak'
		exit
		end
		if defenceV <= 0 and unmaterialV <= 5:
		set mannaV -= 250
		set defenceV += 3000
		set defenceMV += 3000
		set defenceWV += 3000
		'<B><font color = red>Conan shoots up to its paper wings like an angel. Around it starts spinning paper creating her protection.</font></B>'
		xgt 'fight','sta'
		exit
		end
		if unmaterialV <= 2 and konanD < 3:
		set mannaV -= 150
		set konanD += 1
		'<B><font color = red>Conan stops meditating in the air.</font></B>'
		xgt 'fight','sta'
		exit
		end
		if konanD >= 3:
		set mannaV -= 250
		set konanD = 0
		set unmaterialV = 20
		'<B><font color = red>Conan crumbles in the air for thousands of sheets of paper.</font></B>'
		xgt 'fight','sta'
		exit
		end
	end
end

if $ARGS[0] = 'sasori':
cla
if SasoriBody > 1: set damTipV = 1000
if SasoriBody = 1: set damTipV = 2000
set poisonAV = 1
set defenceV += 10
set defenceMV += 20
set defenceWV += 50
set mannaV -= 10
	if SasoriBody = 1 and defence > 0:
	set defSasori = defence * 20/100
	set defence -= defSasori
	'<B><font color = red>of rain falls on top of steel needles greatly weaken your defenses.</font></B>'
	end
'<B><font color = red><<$nameV>> shoots at you the whole cloud of poisonous spines.</font></B>'
if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from the blow needle.</font></B>'
xgt 'atakA1','atak'
end

if $ARGS[0] = 'gedomazo':
cla
	if klon <= 0 and tuman <= 0:
	set magweapbonusV = 5000
	'<B><font color = red><<$nameV>> with a furious roar of effort on you for its huge stone fist.</font></B>'
	xgt 'atak','enemy'
	exit
	end
	if klon > 0 or tuman > 0:
	set klon = 0
	set tuman = 0
	set mannaV -= 500
	'<B><font color = red><<$nameV>> makes a terrible roar and air shock wave sweeps over the battlefield.</font></B>'
	xgt 'fight','sta'
	exit
	end

end

if $ARGS[0] = 'tobi':
cla
!программа атаки Тоби
	if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
	*clr
	'<B><font color = red><<$nameV>> fingers to his lips and said quietly, "KUCHIE SAINT BUT JITSU."</font></B>'
	'<B><font color = red>you will see Huge stone statue of a demon, and you rushed to the attack.</font></B>'
	set GedoMazo = 1
	set $nameV = 'Gedo Mazo'
	!Статы
	set strenV = 1000
	set speedV = 100
	set agilV = 90
	set reactV = 100
	set vitalV = 5000
	set intelV = 50
	set willV = 50
	!Навыки
	set magikV = 1
	set boxingV = 100
	set shootV = 100
	!Параметры
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV = 0
	!программа действий
	set barierV = 1500
	set program = 7
	xgt 'fight','start'
	exit
	end

	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
	set mannaV -= 500
	set TobiStena = 1
	set defenceV += 25000
	'<B><font color = red><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></B>'
	set barierV = 2000
	xgt 'fight','sta'
	exit
	end

	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
	set mannaV += 6000
	set TobiStena = 2
	'<B><font color = red><<$nameV>> makes the magic sign and you feel like it´s magical energy increases sharply.</font></B>'
	xgt 'fight','sta'
	exit
	end


	if stun > 0:
	set magweapbonusV = 2000
	'<B><font color = red><<$nameV>> triumphantly said, "Now you´re dead."</font></B>'
	'<B><font color = red>He grabs you by the throat and lifts his hand in the air.</font></B>'
	'<B><font color = red>His fingers like steel and they squeeze your throat with terrible force.</font></B>'
	xgt 'atak','enemy'
	exit
	end

	if defence >= 5000:
	set defence = 0
	set defenceM = 0
	set defenceActPar = 0
	set defenceActParM = 0
	set defenceAct = 0
	set defenceActM = 0
	set defAtk = 0
	set mannaV -= 100
	set stunV = 1
	'<B><font color = red><<$nameV>> close your eyes and you saw of him as a tear ran down a drop of blood.</font></B>'
	'<B><font color = red>He opened his eyes become completely red with black veins and said Amaterasu</font></B>'
	'<B><font color = red>In your face rushed black devouring flames destroy your lightning protection.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if tuman > 0:
	set tumanV += tuman
	set tuman = 0
	'<B><font color = red><<$nameV>> adds the magic signs your hands and mist coming under his control enveloping the review of you.</font></B>'
	'<B><font color = red>He will attack you.</font></B>'
	xgt 'atak','enemy'
	exit
	end
	if unmaterialV > 0 and klon <= 0:
	set stunnerV = 1
	set mannaV -= 20
	set magweapbonusV = 800
	'<B><font color = red><<$nameV>> attacks you gathered the manna in the hand.</font></B>'
	xgt 'atak','enemy'
	exit
	end
	if unmaterialV > 0 and klon > 0:
	set klon = 0
	set stunV = 1
	'<B><font color = red><<$nameV>> adds signs hands and all your clones just turn into steam.</font></B>'
	xgt 'atak','enemy'
	exit
	end
	if unmaterialV <= 0 and tobizanagi < 2:
	set mannaV -= 250
	set tobizanagi += 1
	!set unmaterialV = 10
	'<B><font color = red><<$nameV>> adds the characters by hand.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if unmaterialV <= 0 and tobizanagi = 2:
	set mannaV -= 250
	set tobizanagi = 0
	set unmaterialV = 20
	set stunV = 1
	'<B><font color = red><<$nameV>> folds his hands and marks around his eyes twisted vortex.</font></B>'
	xgt 'fight','sta'
	exit
	end

end

if $ARGS[0] = 'kisame':
cla
!программа атаки Кисаме
	if defenceV <= 0 and kisamePro = 0:
	set kisamePro = 1
	set mannaV -= 150
	set defenceV += 1500
	set defenceMV += 1500
	set defenceWV += 1500
	set defenceActParV = 500
	set defenceActParMV = 500
	set defenceActV = 10
	set defenceActMV = 10
	'<B><font color = red><<$nameV>> adds the marks around his hands and formed water sphere protecting it from damage.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if defenceV <= 1000 and kisamePro > 0:
	set mannaV -= 500
	set defenceV += 5000
	set defenceMV += 5000
	set defenceWV += 5000
	set defenceActParV = 500
	set defenceActParMV = 500
	set defenceActV = 10
	set defenceActMV = 10
	set defAtkMV = 10
	'<B><font color = red><<$nameV>> adds the marks and the space around the hands begins pogruzhatsya water.</font></B>'
	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the water.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if defenceV > 1000:
	set kisameRAND = RAND(0,3)
		if kisameRAND = 0:
		set klonV += 3
		'<B><font color = red><<$nameV>> adds the characters by hand.</font></B>'
		xgt 'fight','sta'
		exit
		end
		if kisameRAND > 0:
		set mannaV -= 250
		set damTipV = 1500
		set damTipMV = 2500
		set bonusShV = 50
		'<B><font color = red><<$nameV>> adds the characters in the hands and fly sharks have created from the water.</font></B>'
		if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the water.</font></B>'
		xgt 'atakA1','atak'
		exit
		end
	end
	'<B><font color = red><<$nameV>> attacks.</font></B>'
	xgt 'enemy','fighter'
end

if $ARGS[0] = 'gun':
cla
!непосредственно программа атаки
!gs 'atak'
set damTipV = 1500
'<B><font color = red><<$nameV>> shoots at you.</font></B>'
xgt 'atakA1','atak'
end

if $ARGS[0] = 'fighter':
cla
!непосредственно программа атаки
!gs 'atak'
xgt 'atak','enemy'
end

if $ARGS[0] = 'fighter2':
cla
!непосредственно программа атаки
set deystrand = RAND(0,1)
	if deystrand = 0:
	xgt 'atak','enemy'
	end
	if deystrand = 1:
	set knifeV = RAND(1,3)
	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
	xgt 'atak','enemy'
	end
end

if $ARGS[0] = 'fighter3':
cla
!непосредственно программа атаки
	if tuman = 0 and tumanV < 5 and mannaV > 10:
	set mannaV -= 10
	set tumanV += 10
	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
	xgt 'fight','sta'
	exit
	end
set deystrand = RAND(0,1)
	if deystrand = 0:
	xgt 'atak','enemy'
	end
	if deystrand = 1:
	set knifeV = RAND(1,3)
	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
	xgt 'atak','enemy'
	end
end

if $ARGS[0] = 'fighter4':
cla
!непосредственно программа атаки
	if tuman = 0 and tumanV < 5 and mannaV > 10:
	set mannaV -= 10
	set tumanV += 10
	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if klonV < 1 and mannaV > 15:
	set mannaV -= 15
	set klonV += 1
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	exit
	end
set deystrand = RAND(0,1)
	if deystrand = 0:
	xgt 'atak','enemy'
	end
	if deystrand = 1:
	set knifeV = RAND(1,3)
	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
	xgt 'atak','enemy'
	end
end

if $ARGS[0] = 'fighter5':
cla
!непосредственно программа атаки
	if tuman = 0 and tumanV < 5 and mannaV > 10:
	set mannaV -= 10
	set tumanV += 10
	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
	xgt 'fight','sta'
	exit
	end
	if klonV < 1 and mannaV > 15:
	set mannaV -= 15
	set klonV += 1
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	exit
	end
	if stun < 1 and manna > 20:
	set stunnerV = 1
	set mannaV -= 20
	'<B><font color = red><<$nameV>> attacks you Gouge.</font></B>'
	xgt 'atak','enemy'
	end
set deystrand = RAND(0,1)
	if deystrand = 0:
	xgt 'atak','enemy'
	end
	if deystrand = 1:
	set knifeV = RAND(1,3)
	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
	xgt 'atak','enemy'
	end
end
--- enemy ---------------------------------

# atak
if $ARGS[0] = 'player':
cla
!!!!!!!
set tip = 0
!!!!!!!
set strenA = stren
set speedA = speed
set agilA = agil
set vitalA = vital
!Навыки
set boxingA = boxing
!Параметры
set healthA = health
set BonusA = BonusAtak
!!!!!!!!!
set strenD = strenV
set speedD = speedV
set agilD = agilV
set vitalD = vitalV
!Навыки
set boxingD = boxingV
!Параметры
set healthD = healthV
set initBonusA = initBonus
set initBonus = 0
set initBonusV = 0
set BonusD = BonusDefV
	if stunV <= 0:
	xgt 'atak','popad'
	end
	if stunV > 0:
	'<B><font color = green><<$nameV>> can not move a critical hit</font></B>'
	xgt 'atak','uronKrit'
	end
end

if $ARGS[0] = 'enemy':
cla
!!!!!!!
set tip = 1
!!!!!!!
set strenA = strenV
set speedA = speedV
set agilA = agilV
set vitalA = vitalV
!Навыки
set boxingA = boxingV
!Параметры
set healthA = healthV
set BonusA = BonusAtakV
!!!!!!!!!!!!!!
set strenD = stren
set speedD = speed
set agilD = agil
set vitalD = vital
!Навыки
set boxingD = boxing
!Параметры
set healthD = health
set BonusD = BonusDef
set initBonusA = initBonusV
set initBonus = 0
set initBonusV = 0
	if stun <= 0:
	xgt 'atak','popad'
	end
	if stun > 0:
	'<B><font color = red>You can not move a critical hit</font></B>'
	xgt 'atak','uronKritV'
	end
end

if $ARGS[0] = 'popad':
cla
!расчет попадания уворота
set poSp = speedA * 20/100
set uvAg = agilD * 20/100
set poBox = boxingA * 20/100
set uvBox = boxingD * 20/100
set popad = RAND(boxingA - poBox, boxingA + poBox) + RAND(speedA-poSp, speedA + poSp) + BonusA + initBonusA
set uvorot = RAND(boxingD - uvBox, boxingD + uvBox) + RAND(agilD-uvAg, agilD + uvAg) + BonusD
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
			if tip = 0:
			!атаковал игрок
			'<B><font color = green>critical hits</font></B>'
			xgt 'atak','uronKrit'
			end
			if tip = 1:
			!атаковал противник
			'<B><font color = red>critical hits</font></B>'
			xgt 'atak','uronKritV'
			end
		end
		if popad < uvorot+uvorKoef:
		!нормальное попадание
			if tip = 0:
			!атаковал игрок
			'<B><font color = green>Contact</font></B>'
			xgt 'atak','uron'
			end
			if tip = 1:
			!атаковал противник
			'<B><font color = red>Contact</font></B>'
			xgt 'atak','uronV'
			end
		end
	end
	if popad <= uvorot:
		if popad+popKoef <= uvorot:
		!критический промах
			if tip = 0:
			!атаковал игрок
			'<B><font color = red>CRITICAL SLIP</font></B>'
			xgt 'atak','uronKritV'
			end
			if tip = 1:
			!атаковал противник
			'<B><font color = green>CRITICAL SLIP</font></B>'
			xgt 'atak','uronKrit'
			end
		end
		if popad+popKoef > uvorot:
		!промах
			if tip = 0:
			!атаковал игрок
			'<B><font color = red>is washed</font></B>'
			xgt 'fight','sta'
			end
			if tip = 1:
			!атаковал противник
			'<B><font color = green>is washed</font></B>'
			xgt 'fight','sta'
			end
		end
	end
end

if $ARGS[0] = 'uronKrit':
cla
set damage = RAND(stren, stren * 2) + weapbonus + magweapbonus
	if knife > 0:
	set knibon = knife + 1
	set knife = 0
	set damage = damage * knibon
	set knibon = 0
	'<B><font color = green>your opponent flies throwing knife</font></B>'
	end
	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
	if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
	if damage < 0: set damage = 0
	Set healthV -= damage
		if weaponTipe = 1: set bloodV += RAND(weapon/4, weapon/2)
		if weaponTipe = 2: set stun += RAND(1,2)
		if weaponTipe = 3: set bloodV += RAND(weapon/4, weapon/2)
		if stunner > 0:
		set stunner = 0
		set stunV = RAND(3,6)
		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
		end
	'<B><font color = green>Apply Done <<damage>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end
	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	Set defenceV -= damage
	'<B><font color = green>Protection of the enemy harmed <<damage>> units</font></B>'
	xgt 'fight','sta'
	end
	if klonV > 0 and unmaterialV <= 0:
	set klonV -= 1
	'<B><font color = green>Destroyed clone enemy, he still had <<KlonV>> clones</font></B>'
	xgt 'fight','sta'
	end
	if unmaterialV > 0:
	set unmaterialV -= 1
	'<B><font color = red>Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></B>'
	xgt 'fight','sta'
	end
	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		Set healthV -= damage
		if weaponTipe = 1: set bloodV += RAND(weapon/4, weapon/2)
		if weaponTipe = 2: set stun += RAND(1,2)
		if weaponTipe = 3: set bloodV += RAND(weapon/4, weapon/2)
		if stunner > 0:
		set stunV = RAND(3,6)
		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
		end
		'<B><font color = green>Apply Done <<damage>> units</font></B>'
			if zerkaloV > 0:
			set zerkaloV -= 1
			set health -= damage
			'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end


if $ARGS[0] = 'uron':
cla
set stKo = stren * 20/100
set damage = RAND(stren - stKo, stren + stKo) + weapbonus + magweapbonus
	if knife > 0:
	set knibon = knife + 1
	set knife = 0
	set damage = damage * knibon
	set knibon = 0
	'<B><font color = green>your opponent flies throwing knife</font></B>'
	end
	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
	if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
	if damage < 0: set damage = 0
	Set healthV -= damage
		if stunner > 0:
		set stunner = 0
		set stunV = RAND(1,3)
		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
		end
	'<B><font color = green>Apply Done <<damage>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end
	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	Set defenceV -= damage
	'<B><font color = green>Protection of the enemy harmed <<damage>> units</font></B>'
	xgt 'fight','sta'
	end
	if klonV > 0 and unmaterialV <= 0:
	set klonV -= 1
	'<B><font color = green>Destroyed clone enemy, he still had <<KlonV>> clones</font></B>'
	xgt 'fight','sta'
	end
	if unmaterialV > 0:
	set unmaterialV -= 1
	'<B><font color = red>Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></B>'
	xgt 'fight','sta'
	end
	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		Set healthV -= damage
		if stunner > 0:
		set stunV = RAND(1,3)
		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
		end
		'<B><font color = green>Apply Done <<damage>> units</font></B>'
			if zerkaloV > 0:
			set zerkaloV -= 1
			set health -= damage
			'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end



if $ARGS[0] = 'uronKritV':
cla
set damage = RAND(strenV, strenV * 2) + weapbonusV + magweapbonusV
	if knifeV > 0:
	set knibonV = knifeV + 1
	set knifeV = 0
	set damage = damage * knibonV
	set knibonV = 0
	'<B><font color = red>you throwing knife flies</font></B>'
	end
	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
		if weaponTipeV = 1: set blood += RAND(weaponV/4, weaponV/2)
		if weaponTipeV = 2: set stunV += RAND(1,2)
		if weaponTipeV = 3: set blood += RAND(weaponV/4, weaponV/2)
		if stunnerV > 0:
		set stunnerV = 0
		set stun = RAND(3,6)
		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
		end
	'<B><font color = red>You harmed <<damage>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set healthV -= damage
		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end
	if defence > 0 and klon <= 0 and unmaterial <= 0:
	Set defence -= damage
	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
	xgt 'fight','sta'
	end
	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
	xgt 'fight','sta'
	end
	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
	xgt 'fight','sta'
	end
	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		Set health -= damage
		if weaponTipeV = 1: set blood += RAND(weaponV/4, weaponV/2)
		if weaponTipeV = 2: set stunV += RAND(1,2)
		if weaponTipeV = 3: set blood += RAND(weaponV/4, weaponV/2)
		if stunnerV > 0:
		set stun = RAND(3,6)
		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
		end
		'<B><font color = red>You harmed <<damage>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end


if $ARGS[0] = 'uronV':
cla
set stKo = strenV * 20/100
set damage = RAND(strenV - stKo, strenV + stKo) + weapbonusV + magweapbonusV
	if knifeV > 0:
	set knibonV = knifeV + 1
	set knifeV = 0
	set damage = damage * knibonV
	set knibonV = 0
	'<B><font color = red>you throwing knife flies</font></B>'
	end
	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
		if stunnerV > 0:
		set stunnerV = 0
		set stun = RAND(3,6)
		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
		end
	'<B><font color = red>You harmed <<damage>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set healthV -= damage
		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end
	if defence > 0 and klon <= 0 and unmaterial <= 0:
	Set defence -= damage
	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
	xgt 'fight','sta'
	end
	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
	xgt 'fight','sta'
	end
	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
	xgt 'fight','sta'
	end
	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		Set health -= damage
		if stunnerV > 0:
		set stun = RAND(3,6)
		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
		end
		'<B><font color = red>You harmed <<damage>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end
--- atak ---------------------------------

# atakA
if $ARGS[0] = 'atak':
cla
!расчет попадания уворота
set poSp = speed * 20/100
set uvAg = agilV * 20/100
set poBox = react * 20/100
set uvBox = reactV * 20/100
set popad = RAND(react - poBox, react + poBox) + RAND(speed-poSp, speed + poSp) + bonusSh
set uvorot = RAND(reactV - uvBox, reactV + uvBox) + RAND(agilV-uvAg, agilV + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = green>critical hits</font></B>'
		xgt 'atakA','uronKrit'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		!атаковал противник
		'<B><font color = green>Contact</font></B>'
		xgt 'atakA','uron'
		end
	end

	if popad <= uvorot:
	'<B><font color = red>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKrit':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
	if damTipM > 0:
	set damKoefM = damTipM * 20/100
	set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
	end
xgt 'atakA','damage'
end

if $ARGS[0] = 'uron':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip - damKoef, damTip + damKoef)
	if damTipM > 0:
	set damKoefM = damTipM * 20/100
	set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
	end
xgt 'atakA','damage'
end

if $ARGS[0] = 'damage':
cla
	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
	if dospehV > 0: set damageV -= dospehDefV & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set healthV -= damage
		if damTipM > 0:
		set mannaV -= damageM
		set manna += damageM
		'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
		end
	!Set manna -= damageM
		if eleSh > 0:
		set stunV = RAND(eleSh, eleSh * 3)
		'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
		end
	'<B><font color = green>You have caused damage <<damage>> units</font></B>'

	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	!set damSum = damage + damageM
	!Set defence -= damSum
	Set defenceV -= damage
	'<B><font color = green>You have caused damage <<damage>> Protection of the enemy units</font></B>'
	xgt 'fight','sta'
	end

	if klonV > 0 and unmaterialV <= 0:
	set klonV -= 1
	'<B><font color = green>Destroyed enemy clone</font></B>'
	xgt 'fight','sta'
	end

	if unmaterialV > 0:
	set unmaterialV -= 1
	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
	xgt 'fight','sta'
	end

	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		!Set manna -= damageM
		!Set health -= damage
		set damage -= barierV
		Set healthV -= damage
			if damTipM > 0:
			set mannaV -= damageM
			set manna += damageM
			'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
			end
			if eleSh > 0:
			set stunV = RAND(eleSh, eleSh * 3)
			'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
			end
		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkaloV > 0:
			set zerkaloV -= 1
			set health -= damage
			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end

if $ARGS[0] = 'atakW':
cla
!расчет попадания уворота
set poSp = speed * 20/100
set uvAg = agilV * 20/100
set poBox = react * 20/100
set uvBox = reactV * 20/100
set popad = RAND(react - poBox, react + poBox) + RAND(speed-poSp, speed + poSp)
set uvorot = RAND(reactV - uvBox, reactV + uvBox) + RAND(agilV-uvAg, agilV + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = red>critical hits</font></B>'
		xgt 'atakA','uronKritW'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		'<B><font color = red>Contact</font></B>'
		xgt 'atakA','uronW'
		end
	end

	if popad <= uvorot:
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKritW':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
set damKoefM = damTipM * 20/100
set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
xgt 'atakA','damageW'
end

if $ARGS[0] = 'uronW':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip - damKoef, damTip + damKoef)
set damKoefM = damTipM * 20/100
set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
xgt 'atakA','damageW'
end

if $ARGS[0] = 'damageW':
cla
	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
	if dospehV > 0: set damageV -= dospehDefV & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set healthV -= damage
	Set mannaV -= damageM
	'<B><font color = green>You are harmed <<damage>> units</font></B>'
	'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	set damSum = damage + damageM
	Set defenceV -= damSum
	!Set defenceV -= damage
	'<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
	xgt 'fight','sta'
	end

	if klonV > 0 and unmaterialV <= 0:
	set klonV -= 1
	'<B><font color = green>Destroyed enemy clone</font></B>'
	xgt 'fight','sta'
	end

	if unmaterialV > 0:
	set unmaterialV -= 1
	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
	xgt 'fight','sta'
	end

	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		Set mannaV -= damageM
		Set healthV -= damage
		!Set healthV -= damage
		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
		'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
			if zerkaloV > 0:
			set zerkaloV -= 1
			set health -= damage
			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end
--- atakA ---------------------------------

# atakA1
if $ARGS[0] = 'atak':
cla
!расчет попадания уворота
set poSp = speedV * 20/100
set uvAg = agil * 20/100
set poBox = reactV * 20/100
set uvBox = react * 20/100
set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp) + bonusShV
set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = red>critical hits</font></B>'
		xgt 'atakA1','uronKrit'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		!атаковал противник
		'<B><font color = red>Contact</font></B>'
		xgt 'atakA1','uron'
		end
	end

	if popad <= uvorot:
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKrit':
cla
set damKoef = damTipV * 20/100
set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
	if damTipMV > 0:
	set damKoefM = damTipMV * 20/100
	set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
	end
xgt 'atakA1','damage'
end

if $ARGS[0] = 'uron':
cla
set damKoef = damTipV * 20/100
set damage = RAND(damTipV - damKoef, damTipV + damKoef)
	if damTipMV > 0:
	set damKoefM = damTipMV * 20/100
	set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
	end
xgt 'atakA1','damage'
end

if $ARGS[0] = 'damage':
cla
	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
		if hidanAtk = 1:
		set hidanAtk = 0
		set zerkaloV += 50
		set bloodV += 50
		'<B><font color = red><<$nameV>> drink your blood.</font></B>'
		end
		if damTipMV > 0:
		set manna -= damageM
		set manna += damageM
		'<B><font color = red><<$nameV>> absorbed <<damageM>> units of manna you.</font></B>'
		end
		if poisonAV = 1:
		set poisonV = 50
		'<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
		end
	!Set manna -= damageM
		if eleShV > 0:
		set stun = RAND(eleShV, eleShV * 3)
		'<B><font color = red>You are paralyzed <<stunV>> rounds</font></B>'
		end
	'<B><font color = red><<$nameV>> damage caused you <<damage>> units</font></B>'

	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set healthV -= damage
		'<B><font color = green>You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
	!set damSum = damage + damageM
	!Set defence -= damSum
	Set defence -= damage
	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
	xgt 'fight','sta'
	end

	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone</font></B>'
	xgt 'fight','sta'
	end

	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Strike the enemy passed through you. YOU is not material</font></B>'
	xgt 'fight','sta'
	end

	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		!Set manna -= damageM
		!Set health -= damage
		Set health -= damage
			if damTipM > 0:
			set manna -= damageM
			set mannaV += damageM
			'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
			end
			if eleShV > 0:
			set stun = RAND(eleShV, eleShV * 3)
			'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
			end
			if poisonAV = 1:
			set poisonV = 50
			'<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
			end
		'<B><font color = red>you have caused damage <<damage>> units</font></B>'
		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = green>You are repelled enemy damage and received <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end

if $ARGS[0] = 'atakW':
cla
!расчет попадания уворота
set poSp = speedV * 20/100
set uvAg = agil * 20/100
set poBox = reactV * 20/100
set uvBox = react * 20/100
set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp)
set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = red>critical hits</font></B>'
		xgt 'atakA1','uronKritW'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		'<B><font color = red>Contact</font></B>'
		xgt 'atakA1','uronW'
		end
	end

	if popad <= uvorot:
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKritW':
cla
set damKoef = damTipV * 20/100
set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
set damKoefM = damTipMV * 20/100
set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
xgt 'atakA1','damageW'
end

if $ARGS[0] = 'uronW':
cla
set damKoef = damTipV * 20/100
set damage = RAND(damTipV - damKoef, damTipV + damKoef)
set damKoefM = damTipMV * 20/100
set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
xgt 'atakA1','damageW'
end

if $ARGS[0] = 'damageW':
cla
	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
	Set manna -= damageM
	'<B><font color = green>You are harmed <<damage>> units</font></B>'
	'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set health -= damage
		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
	set damSum = damage + damageM
	Set defence -= damSum
	!Set defenceV -= damage
	'<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
	xgt 'fight','sta'
	end

	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = green>Destroyed enemy clone</font></B>'
	xgt 'fight','sta'
	end

	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
	xgt 'fight','sta'
	end

	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		Set manna -= damageM
		Set health -= damage
		!Set healthV -= damage
		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
		'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end
--- atakA1 ---------------------------------

# atakB
if $ARGS[0] = 'atak':
cla
!расчет попадания уворота
set poSp = speed * 20/100
set uvAg = agilV * 20/100
set poBox = react * 20/100
set uvBox = reactV * 20/100
set popad = RAND(react - poBox, react + poBox) + RAND(speed-poSp, speed + poSp) + bonusSh
set uvorot = RAND(reactV - uvBox, reactV + uvBox) + RAND(agilV-uvAg, agilV + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = green>critical hits</font></B>'
		gs 'atakB','uronKrit'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		!атаковал противник
		'<B><font color = green>Contact</font></B>'
		gs 'atakB','uron'
		end
	end

	if popad <= uvorot:
	'<B><font color = red>is washed</font></B>'
	end
end


if $ARGS[0] = 'uronKrit':
cla
set damDef = defence/100
set damKoef = damDef * 20/100
set damage = RAND(damDef + damKoef, damDef + damKoef * 2)
gs 'atakB','damage'
end

if $ARGS[0] = 'uron':
cla
set damDef = defence/100
set damKoef = damDef * 20/100
set damage = RAND(damDef - damKoef, damDef + damKoef)
gs 'atakB','damage'
end

if $ARGS[0] = 'damage':
cla
	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
	if dospehV > 0: set damageV -= dospehDefV & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set healthV -= damage
	!Set manna -= damageM
		if eleSh > 0:
		set stunV = RAND(eleSh, eleSh * 3)
		'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
		end
	'<B><font color = green>You have caused damage <<damage>> units</font></B>'
	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkaloV > 0:
		set zerkaloV -= 1
		set defence -= damage
		'<B><font color = red><<$nameV>> reflected the damage and your defense has received <<damage>> points of damage</font></B>'
		end
	!xgt 'fight','sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	!set damSum = damage + damageM
	!Set defence -= damSum
	Set defenceV -= damage
	'<B><font color = green>caused damage to your defense <<damage>> Protection of the enemy units</font></B>'
	!xgt 'fight','sta'
	end

	if klonV > 0 and unmaterialV <= 0:
	set klonV -= 1
	'<B><font color = green>Destroyed enemy clone</font></B>'
	!xgt 'fight','sta'
	end

	if unmaterialV > 0:
	set unmaterialV -= 1
	'<B><font color = red>Blow your protection passed through the body of the opponent. Opponents do not materials</font></B>'
	!xgt 'fight','sta'
	end

	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood kick your protection</font></B>'
		!xgt 'fight','sta'
		end
		if barierV < damage:
		!Set manna -= damageM
		!Set health -= damage
		Set healthV -= damage
			if eleSh > 0:
			set stunV = RAND(eleSh, eleSh * 3)
			'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
			end
		'<B><font color = green>caused damage to your defense <<damage>> units</font></B>'
		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkaloV > 0:
			set zerkaloV -= 1
			set defence -= damage
			'<B><font color = red>Enemy reflected damage and your defense received <<damage>> points of damage</font></B>'
			end
		end
	!xgt 'fight','sta'
	end

end
--- atakB ---------------------------------

# atakB1
if $ARGS[0] = 'atak':
cla
!расчет попадания уворота
set poSp = speedV * 20/100
set uvAg = agil * 20/100
set poBox = reactV * 20/100
set uvBox = react * 20/100
set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp) + bonusShV
set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = green>critical hits</font></B>'
		gs 'atakB1','uronKrit'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		!атаковал противник
		'<B><font color = green>Contact</font></B>'
		gs 'atakB1','uron'
		end
	end

	if popad <= uvorot:
	'<B><font color = red>is washed</font></B>'
	end
end


if $ARGS[0] = 'uronKrit':
cla
set damDef = defenceV/100
set damKoef = damDef * 20/100
set damage = RAND(damDef + damKoef, damDef + damKoef * 2)
gs 'atakB1','damage'
end

if $ARGS[0] = 'uron':
cla
set damDef = defenceV/100
set damKoef = damDef * 20/100
set damage = RAND(damDef - damKoef, damDef + damKoef)
gs 'atakB1','damage'
end

if $ARGS[0] = 'damage':
cla
	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDefV & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
	!Set manna -= damageM
		if eleShV > 0:
		set stun = RAND(eleShV, eleShV * 3)
		'<B><font color = red>Protection of the enemy paralyze you <<stun>> rounds</font></B>'
		end
	'<B><font color = red>Protection of the enemy caused you damage <<damage>> units</font></B>'
	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set defenceV -= damage
		'<B><font color = green>You are reflected damage from the defense and protection of the enemy received <<damage>> points of damage</font></B>'
		end
	!xgt 'fight','sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
	!set damSum = damage + damageM
	!Set defence -= damSum
	Set defence -= damage
	'<B><font color = red>your defense harmed <<damage>> units from the defense</font></B>'
	!xgt 'fight','sta'
	end

	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone</font></B>'
	!xgt 'fight','sta'
	end

	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Beat the defense went through you. YOU is not material</font></B>'
	!xgt 'fight','sta'
	end

	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstand the impact of the defense</font></B>'
		!xgt 'fight','sta'
		end
		if barier < damage:
		!Set manna -= damageM
		!Set health -= damage
		Set health -= damage
			if eleShV > 0:
			set stun = RAND(eleShV, eleShV * 3)
			'<B><font color = red>Protection of the enemy paralyze you <<stun>> rounds</font></B>'
			end
		'<B><font color = red>You have harmed <<damage>> units from the defense</font></B>'
		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set defenceV -= damage
			'<B><font color = green>You are repelled enemy damage and protection received <<damage>> points of damage</font></B>'
			end
		end
	!xgt 'fight','sta'
	end

end
--- atakB1 ---------------------------------

# atakM
if $ARGS[0] = 'atakVmanna':
cla
!расчет попадания уворота
set poSp = speedV * 20/100
set uvAg = agil * 20/100
set poBox = reactV * 20/100
set uvBox = react * 20/100
set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp)
set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
set uvorKoef = uvorot * 50/100
set popKoef = popad * 50/100
	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
		!крит, очень точное попадание
		'<B><font color = red>critical hits</font></B>'
		xgt 'atakM','uronKritV'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		!атаковал противник
		'<B><font color = red>Contact</font></B>'
		xgt 'atakM','uronV'
		end
	end

	if popad <= uvorot:
	'<B><font color = green>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKritV':
cla
set damage = RAND(1000,2000)
set damageM = RAND(1000,2000)


	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
	Set manna -= damageM
	'<B><font color = red>caused damage your health <<damage>> units</font></B>'
	'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set healthV -= damage
		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
	set damSum = damage + damageM
	Set defence -= damSum
	'<B><font color = red>Protection of your harmed <<damSum>> units</font></B>'
	xgt 'fight','sta'
	end

	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
	xgt 'fight','sta'
	end

	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
	xgt 'fight','sta'
	end

	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		Set manna -= damageM
		Set health -= damage
		'<B><font color = red>You harmed <<damage>> units</font></B>'
		'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end


if $ARGS[0] = 'uronV':
cla
set damage = RAND(500,1000)
set damageM = RAND(500,1000)


	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
	if damage < 0: set damage = 0
	Set health -= damage
	Set manna -= damageM
	'<B><font color = red>caused damage your health <<damage>> units</font></B>'
	'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
		if zerkalo > 0:
		set zerkalo -= 1
		set healthV -= damage
		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
		end
	xgt 'fight','sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
	set damSum = damage + damageM
	Set defence -= damSum
	'<B><font color = red>Protection of your harmed <<damSum>> units</font></B>'
	xgt 'fight','sta'
	end

	if klon > 0 and unmaterial <= 0:
	set klon -= 1
	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
	xgt 'fight','sta'
	end

	if unmaterial > 0:
	set unmaterial -= 1
	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
	xgt 'fight','sta'
	end

	if barier > 0:
	!барьер именитета для урона
		if barier >= damage:
		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
		xgt 'fight','sta'
		end
		if barier < damage:
		Set manna -= damageM
		Set health -= damage
		'<B><font color = red>You harmed <<damage>> units</font></B>'
		'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
			if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end
--- atakM ---------------------------------

# spell
if $ARGS[0] = 'reset':
cla
!Создание тумана
'Accumulated manna <<mannaReset>> units.'
	act 'Absorb accumulated manna':
	cla
	*clr
	set manna += mannaReset
	set mannaReset = 0
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'

	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'unmat':
cla
!Создание тумана
'You can become incorporeal for 30 moves, in exchange for 3,000 units Rikudo forces. This part of the force will be lost to you forever after using spells.'
'Not materiality allows you to skip through your body without getting any impact damage, while slightly reduced longevity spells.'
	if rikudo >= 3000:
		act 'Become a disembodied':
		cla
		*clr
		set unmaterial = 31
		set rikudo += 3000
		set mannaReset = 0
		xgt 'fight','sta'
		end
	end
	if rikudo < 3000:
	'You have too little strength Rikudo for this spell.'
	end
act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end



if $ARGS[0] = 'tuman':
cla
!Создание тумана
	if tumanV > 0:
	'It is not possible to impose your fog on the existing fog enemy.'

	end
	if tumanV <= 0:
	'Create a fog on the battlefield, the enemy closing review. Cost 10 mana.'
		act 'Create a fog (10 mana)':
		cla
		*clr
		set manna -= 10
		set tuman += 10
		gt 'fight','sta'
		end

	end
act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'klon':
cla
'You can create a clone exactly copying you, and themselves to escape from the enemy. 15 mana cost 1 clone.'
	act 'Create a clone':
	cla
	*clr
	set manna -= 15
	set klon += 1
	gt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'stun':
cla
'You need to touch up the enemy, then he will be paralyzed. Cost 20 mana.'
	act 'Paralytic stroke':
	cla
	*clr
	set manna -= 20
	set stunner = 1
	xgt 'atak','player'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end


if $ARGS[0] = 'weap':
cla
'You can invest in the magical power of the weapon increasing its damage. Cost 20 mana.'
	act 'Invest energy':
	cla
	*clr
	set manna -= 20
	set magweapbonus = weapbonus * 4
	xgt 'atak','player'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind':
cla
'Corrupts wind that would blow away the fog. Cost 40 mana.'
	act 'Apply':
	cla
	*clr
	set manna -= 40
	set tumanV = 0
	set tuman = 0
	'<B><font color = green>You sent against the wind on the battlefield and destroyed fog.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'klon2':
cla
'You can create three clones exactly copying you, and themselves to escape from the enemy. 45 mana cost 3 clone.'
	act 'Create clones':
	cla
	*clr
	set manna -= 45
	set klon += 3
	gt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'energo':
cla
'You can create an energy shield to protect against attacks on health. 100 units of protection costs 50 mana.'
	act 'Create energy shield':
	cla
	*clr
	set manna -= 50
	set defence += 100
	'<B><font color = green>You have imposed energy shield, you now have <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'init':
cla
'You can create a slight slowing of time to get the advantage in speed of reaction and seize the initiative. Costs 60 mana.'
	act 'Create a slowdown':
	cla
	*clr
	set manna -= 60
	set initBonus = 120
	'<B><font color = green>You put the manna in the amplification reaction.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'hel':
cla
!Создание тумана
'Cure yourself or add 400 units of health. 400 mana cost.'
	act 'Treated (400 mana)':
	cla
	*clr
	set manna -= 400
	set health += 400
	'<B><font color = green>You put the manna in the acceleration of regenerative processes in the body.</font></B>'
	gt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'hand':
cla
!Создание тумана
'Striking hand increases damage 10 times per attack. 100 mana cost.'
	act 'Striking hand (100 mana)':
	cla
	*clr
	set manna -= 100
	set strenK = stren * 20/100
	set magweapbonus = RAND(stren * 10 - strenK, stren * 10 + strenK)
	'<B><font color = green>You put the manna in the palm for applying a devastating blow.</font></B>'
	xgt 'atak','player'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'fire1':
cla
!Создание тумана
'Flame. Cost 10 mana.'
	act 'Flame (10 mana)':
	cla
	*clr
	set manna -= 10
	set damTip = 250
	'<B><font color = green>You have created a torrent of flames pouring out of your hand.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'fire2':
cla
!Создание тумана
'Release of fire. 100 mana cost.'
	act 'Release of fire (100 mana)':
	cla
	*clr
	set manna -= 100
	set damTip = 2500
	'<B><font color = green>You have created a huge stream of fire pouring out of your hand.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'fire3':
cla
!Создание тумана
'Fire barrier, creates a shield of 750 units. 150 mana cost.'
	act 'Fire barrier (150 mana)':
	cla
	*clr
	set manna -= 150
	set defence += 750
	'<B><font color = green>You have created a fire barrier around him, now you <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'fire4':
cla
!Создание тумана
'Firestorm. Cost 250 mana.'
	act 'Firestorm (250 mana)':
	cla
	*clr
	set manna -= 250
	set damTip = 6250
	set bonusSh = 100
	'<B><font color = green>The air around you is red-hot and inflamed, a sea of ​​fire fell upon the enemy.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'fire5':
cla
!Создание тумана
'Flame Shield creates a shield of 2,500 units. 500 mana cost.'
	act 'Flame Shield (500 mana)':
	cla
	*clr
	set manna -= 500
	set defence += 2500
	'<B><font color = green>You have created a wall of fire around it absorbs damage, you now have <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ele1':
cla

!Создание тумана
'Discharge. Cost 10 mana.'
	act 'Discharge (10 mana)':
	cla
	*clr
	set manna -= 10
	set damTip = 150
	set eleSh = 1
	'<B><font color = green>You have created an electrical discharge pouring out of your hand.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ele2':
cla
!Создание тумана
'Lightning. 100 mana cost.'
	act 'Lightning (100 mana)':
	cla
	*clr
	set manna -= 100
	set damTip = 1500
	set eleSh = 1
	'<B><font color = green>You have created a lightning rattled vystrelevshuyu from your hand.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ele3':
cla
!Создание тумана
'Electrical barrier creates a shield of 1,500. 150 mana cost.'
	act 'Electric barrier (150 mana)':
	cla
	*clr
	set manna -= 150
	set defence += 1500
	'<B><font color = green>You have created a wall around himself dancing lightning, you now have <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ele4':
cla
!Создание тумана
'Dance of thousands of birds. Cost 250 mana.'
	act 'Dance of thousands of birds (250 mana)':
	cla
	*clr
	set manna -= 250
	set damTip = 3750
	set bonusSh = 30
	set eleSh = 1
	'<B><font color = green>you have gathered the manna in the hand and danced around the palm of your hand lightning leaping through the air with shrieks.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ele5':
cla
!Создание тумана
'Plyaschuschaya sphere creates a shield of 5,000 units. 500 mana cost.'
	act 'Plyaschuschaya sphere (500 mana)':
	cla
	*clr
	set manna -= 500
	set defence += 5000
	'<B><font color = green>you have created around him a large sphere of lightning dancing, you now have <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ert1':
cla
!Создание тумана
'Quicksand trap catches the enemy in quicksand and inflicts 100 units. Cost 10 mana.'
	act 'Quicksand (10 mana)':
	cla
	*clr
	set manna -= 10
	set damTip = 100
	set eleSh = 5
	'<B><font color = green>you have created under enemy addictive quicksand.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ert2':
cla
!Создание тумана
'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.'
	act 'Active Protection (100 mana)':
	cla
	*clr
	set manna -= 100
	set defence += 2500
	set defenceM += 2500
	set defenceActPar = 1000
	set defenceActParM = 1000
	set defenceAct = 10
	set defenceActM = 10
	'<B><font color = green>Land surrounded you, giving you protection.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ert3':
cla
!Создание тумана
'Abyss earth asunder underfoot enemy inflicting damage 1,500 and depriving him of the ability to move. 150 mana cost.'
	act 'Quicksand (150 mana)':
	cla
	*clr
	set manna -= 150
	set damTip = 1500
	set eleSh = 5
	'<B><font color = green>You are the earth underfoot opponents.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ert4':
cla
!Создание тумана
'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. Cost 250 mana.'
	act 'Absolute protection (250 mana)':
	cla
	*clr
	set manna -= 250
	set defence += 6250
	set defenceM += 6250
	set defenceW += 6250
	set defenceActPar = 1000
	set defenceActParM = 1000
	set defenceActParW = 1000
	set defenceAct = 15
	set defenceActM = 15
	set defenceActW = 15
	set defAtk = 15
	'<B><font color = green>Land surrounded you, giving you protection.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'ert5':
cla
!Создание тумана
'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting damage to 5,000 units and depriving him of the ability to move. 500 mana cost.'
	act 'Sando (500 mana)':
	cla
	*clr
	set manna -= 500
	set damTip = 5000
	set bonusSh = 50
	set eleSh = 5
	'<B><font color = green>Two huge plate with a roar came from the earth and imploded.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind1':
cla
!Создание тумана
'A gust of wind, inflicts 100 units destroys clones and fog, it is very difficult to dodge. Cost 10 mana.'
	act 'Wind gusts (10 mana)':
	cla
	*clr
	set manna -= 10
	set damTip = 100
	set bonusSh = 50
	'<B><font color = green>You have created a gust of wind.</font></B>'
	if klonV > 0: set klonV = 0 & '<B><font color = green>Clone opponent turned into steam.</font></B>'
	if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn to shreds by the wind.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind2':
cla
!Создание тумана
'Horrendous pressure inflicts 1,000 clones and destroys the fog is very difficult to dodge. 100 mana cost.'
	act 'Horrendous pressure (100 mana)':
	cla
	*clr
	set manna -= 100
	set damTip = 1000
	set bonusSh = 100
	'<B><font color = green>You are sharply raised air pressure.</font></B>'
	if klonV > 0: set klonV = 0 & '<B><font color = green>Clone the enemy broke and turned into steam.</font></B>'
	if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn apart pressure.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind3':
cla
!Создание тумана
'Vacuum sphere, creates a shield of 1,500. 150 mana cost.'
	act 'Vacuum sphere (150 mana)':
	cla
	*clr
	set manna -= 150
	set defence += 1500
	'<B><font color = green>you have created around themselves the vacuum, you now have <<defence>> protection units.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind4':
cla
!Создание тумана
'Vacuum shells cause damage destroys 2,500 clones and fog, it is very difficult to dodge. Cost 250 mana.'
	act 'Vacuum Rockets (250 mana)':
	cla
	*clr
	set manna -= 250
	set damTip = 2500
	set bonusSh = 100
	'<B><font color = green>you have created around themselves many areas and they vacuum at high speed with a whistle flew over the battlefield.</font></B>'
	if klonV > 0: set klonV = 0 & '<B><font color = green>Clone the enemy broke and turned into steam.</font></B>'
	if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn apart pressure.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'wind5':
cla
!Создание тумана
'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. 500 mana cost.'
	if defenceV > 0:
		act 'Devouring vacuum (500 mana)':
		cla
		*clr
		set manna -= 500
		set defenceV = 0
		set defenceMV = 0
		set defenceWV = 0
		set defenceActParV = 0
		set defenceActParMV = 0
		set defenceActV = 0
		set defenceActMV = 0
		set defAtkMV = 0
		'<B><font color = green>you have created around themselves the vacuum that sucked in the defense of the enemy to destroy it.</font></B>'
		xgt 'fight','sta'
		end
	end
	if defenceV <= 0:
	'The enemy is no shield that can destroy this spell.'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'water1':
cla
!Создание тумана
'Creek manna, inflicts 100 units and 1,000 units absorbs manna. Cost 10 mana.'
	act 'Creek mana (10 mana)':
	cla
	*clr
	set manna -= 10
	set damTip = 100
	set damTipM = 1000
	'<B><font color = green>you have created in his hand a small stream of water which was shot at the enemy.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'water2':
cla
!Создание тумана
'Flooding, inflicts 1,000 units and absorbs 500 units of manna. 100 mana cost.'
	act 'Flooding (100 mana)':
	cla
	*clr
	set manna -= 100
	set damTip = 1000
	set damTipM = 500
	'<B><font color = green>From your mouth a flood of water flooded the countryside.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'water3':
cla
!Создание тумана
'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.'
	act 'Blister (150 mana)':
	cla
	*clr
	set manna -= 150
	set defence += 1500
	set defenceM += 1500
	set defenceW += 1500
	set defenceActPar = 500
	set defenceActParM = 500
	set defenceAct = 10
	set defenceActM = 10
	'<B><font color = green>Water has created around you the scope of protection.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'water4':
cla
!Создание тумана
'Water shark missile inflicts 1,500 units and 2,500 units consumes mana. Cost 250 mana.'
	act 'Water shark missile (250 mana)':
	cla
	*clr
	set manna -= 250
	set damTip = 1500
	set damTipM = 2500
	set bonusSh = 50
	'<B><font color = green>You released a pack of sharks consist of water flying towards the enemy like a torpedo.</font></B>'
	if klonV > 0: set klonV = 0 & '<B><font color = green>Clones enemy disappeared.</font></B>'
	xgt 'atakA','atak'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end

if $ARGS[0] = 'water5':
cla
!Создание тумана
'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.'
	act 'Great Flood (500 mana)':
	cla
	*clr
	set manna -= 500
	set defence += 5000
	set defenceM += 5000
	set defenceW += 5000
	set defenceActPar = 500
	set defenceActParM = 500
	set defenceAct = 10
	set defenceActM = 10
	set defAtkM = 10
	'<B><font color = green>you have filled out all the water district that protects you and devour enemy mana.</font></B>'
	if klonV > 0: set klonV = 0 & '<B><font color = green>Clones enemy disappeared.</font></B>'
	xgt 'fight','sta'
	end

act 'Physical attacks': gt 'boxing'
	if magik > 0:
	act 'Magical attacks': gt 'magik'
	end
end
--- spell ---------------------------------

# ender
if $ARGS[0] = 'loss':
cla
gs 'nill'

	if test = 1:
	set test = 0
	act 'further': gt 'test'
	exit
	end

	if jugoFight = 1:
	set health = 100
	set jugoFight = 0
	'You fell to the floor and consciousness began to slip away from you.'
	act 'further': gt 'karinPRE'
	exit
	end
	if jugoFight = 2:
	set health = vital * 10
	set jugoFight = 0
	'You fell to the floor is no longer able to fight Juugo.'
	act 'further': gt 'lab','start'
	exit
	end
	if karinFight = 1:
	set health = vital * 10
	set karinFight = 0
	'You fell to the floor is no longer able to fight with Karin.'
	act 'further': gt 'lab','start'
	exit
	end
	if prostitutFight = 1:
	set health = 100
	set prostitutFight = 0
	set money = 0
	set SUB += 1
	set Loss += 1
	if rikudo > 10: set rikudo -= 10
	'<center><img src="images\pics\spit.jpg"></center>'
	'You fell to the ground. Prostitute kicked you a couple more times. She searched and you took all the money. Then she leaned over and you relish spat in your face.'
	act 'further': gt 'park','start'
	exit
	end
	if prostitutFight = 2:
	set health = 100
	set prostitutFight = 0
	set money = 0
	set SUB += 1
	set Loss += 1
	set bandfight -= 1
	if rikudo > 10: set rikudo -= 10
	'<center><img src="images\etogame\band.jpg"></center>'
	'You fell to the ground. Bandit lit and searched you took all your money, then ordered, "Open your mouth bitch." You obeyed and opened her mouth. He inhaled and shook the ashes in your mouth. "I hope you learned a lesson slut in the next time I will not be so kind, I will punish the present."'
	act 'further': gt 'park','start'
	exit
	end
	if prostitutFight = 3:
	set health = 100
	set prostitutFight = 0
	set money = 100
	set SUB += 2
	set Loss += 1
	set stellfight -= 1
	if rikudo > 10: set rikudo -= 10
	'<center><img src="images\picVA\irinaQW7.jpg"></center>'
	'You fell to the ground. Prostitute kicked you a couple more times. She searched and you took all the money. Her that was not enough, he ordered you to kneel. Pulled off her panties, she sat on your face, making licking smelling secretions and semen pussy. Fearing new battery, you carefully polished her crotch with his tongue. After a few minutes, were satisfied, she left you to recover.'
	act 'further': gt 'park','start'
	exit
	end

	if KisaFight = 1:
	set health = 100
	set KisaFight = 0
	set SUB += 1
	set Loss += 1
	if rikudo > 10: set rikudo -= 10
	if KisameSex = 0: set KisameSex = 1 & Set guy += 1
	set sex += 1
	set vagina += 1
	set rape += 1
	set horny = 0
	'<center><img src="images\qwest\kisameSex.jpg"></center>'
	'Kisame swims around you and laughs, I had fun baby perfectly. He grabbed you for utyanul legs to the bottom of the pool, where you thrust your dick in pussy, you try not to drown in the water until you fucks Kisame, he aimed his cock your insides like a jackhammer and you feel that you can no longer hold your breath in the eyes dark, Kisame ulybaetsya and leans towards you, kiss me, you have stuck my lips to his mouth and he breathed in you a new batch of air. Finally he finished and his seed shark was swimming in the water.'
	act 'Crawl out of the pool': gt 'street'
	exit
	end

	if RapistFight = 1:
	set RapistFight = 0
	set health = 100
	set RapistFight = 0
	set SUB += 1
	set Loss += 1
	if rikudo > 10: set rikudo -= 10
	set sex += 1
	set vagina += 1
	Set guy += 1
	set cumpussy += 1
	set manna = 20
	set willpower = 20
	set rape += 1
	set picrand = RAND(1,6)
		if picrand = 1: '<center><img src="images\pics\gopslut.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\gopslut2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\gopslut3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\gopslut4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\gopslut5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\gopslut6.jpg"></center>'
		Set horand = RAND(1,100)
	'Swollen from the blows lips whispered, "do not have to beg," "I beg you." All was in vain, the words were absorbed relentless darkness of the night benevolent, as we know the most ruthless and lost to the light of day people. You lost, was a pathetic attempt to fight but, alas, it is seen today you will look at the starry sky, while your body will be a docile instrument meet the dirtiest fantasies. Since you ripped clothes, leaving the body defenseless before the cold hands touched inaccessible to outsiders places you roared in frustration. Through closed eyelids, you have not seen that over excite you with stump hung your tormentor. Seconds later you feel bad breath body unceremoniously subjugate, toxic cloud enveloped the nostrils, perhaps, was not so disgusting to feel rhythmic violence between his legs, how to feel the smell of the stench of omnipotence. Overcoming disgust you unstuck swollen eyes from crying, face the beast you have not considered, he was the son of darkness, and she gave him his protection. Time of silence diluted filthy curses in your address changed cries and moans of pleasure. And struggled, you portrayed that he brought you to the highest peak of passion, although he was only filled with pain your crotch ravaged literally every piece of delicate skin. Trick brought you relief, rapist soon finished, poured over your stomach and crotch his scalding seed, quickly dressed, he threw himself off disappearing as suddenly as it had appeared. Do you still have pain, humiliating, over you cutting fire traces sky star fell, giving you the chance to make a wish.'
	act 'Cry': gt 'street','start'
	exit
	end
	if gangrapeFight = 1:
	set gangrapeFight = 0
	set health = 100
	set SUB += 1
	set Loss += 1
	if rikudo > 10: set rikudo -= 10
	'Drunken mug threw you on the floor spit-covered porch and began to tear your clothes, you no longer have the strength to rebel by.'
	act 'Cry': gt 'sexm','gangbang'
	end
end

if $ARGS[0] = 'win':
cla
gs 'nill'

	if test = 1:
	set test = 0
	act 'further': gt 'test'
	exit
	end

	if jugoFight = 2:
	set health = vital * 10
	set rikudo += 10
	set jugoFight = 0
		if winJugo = 0: set winJugo = 1
	'Juugo fell to the floor and can no longer sparingovat.'
	act 'further': gt 'lab','start'
	exit
	end
	if karinFight = 1:
	set health = vital * 10
	set karinFight = 0
	set rikudo += 10
		if winKarin = 0: set winKarin = 1
	'Karin fell to the floor and can no longer sparingovat.'
	act 'further': gt 'lab','start'
	exit
	end
	if prostitutFight = 1:
	set prostitutFight = 0
	set whoreQW = 1
	set DOM += 1
	set Win += 1
	set rikudo += 10
	'Prostitute fell to the ground and began to plead with you not to beat her more.'
	act 'further': gt 'park','start'
	exit
	end
	if prostitutFight = 2:
	set prostitutFight = 0
	set DOM += 1
	set Win += 1
	set bandfight += 1
	set rikudo += 10
	if prostOnce = 0: set prostOnce = 1 & set money += RAND(500,5000)
	'Bandit fell to the ground with a groan, you took his wallet and adding a couple of times in the ribs footed left him.'
	act 'further': gt 'park','start'
	exit
	end
	if prostitutFight = 3:
	set prostitutFight = 0
	set DOM += 1
	set Win += 1
	set stellfight += 1
	set rikudo += 10
	set money += RAND(300,500)
	'Battered prostitute fell to the ground, you bump it again in the ribs and she took all his money and gave you, if only you did not beat her anymore.'
	act 'further': gt 'park','start'
	exit
	end
	if KisaFight = 1:
	set KisameDead = 1
	KisaFight = 2
	set DOM += 1
	set Win += 1
	if rikudo > 10: set rikudo += 3000
	set money += 5000
	'You killed Kisame and took away his body 5000 rubles.'
	act 'further': gt 'street'
	exit
	end

	if RapistFight = 1:
	set RapistFight = 0
	if rikudo > 10: set rikudo += 100
	set DOM += 1
	set Win += 1
	if rapistOnce = 0: set rapistOnce = 1 & set money += RAND(500,2000)
	'You beat the rapist and took his wallet.'
	act 'Exit': gt 'park','start'
	exit
	end

	if gangrapeFight = 1:
	set gangrapeFight = 0
	if rikudo > 10: set rikudo += 100
	set DOM += 1
	set Win += 1
	if gangrapeOnce = 0: set gangrapeOnce = 1 & set money += RAND(500,2000)
	'Drunken mug broken snout stuck in spit-covered floor in the entryway, you got his money from his pocket saying it damages. Guys looking at you warily stepped aside.'
	act 'Exit': gt 'street'
	end
end
--- ender ---------------------------------

# nill
inFight = 0


set stun            = 0
set stunV           = 0
set tuman           = 0
set tumanV          = 0
set klon            = 0
set klonV           = 0
set blood           = 0
set bloodV          = 0
set defence         = 0
set defenceV        = 0
set izanagiV        = 0
set round           = 0
set heartV          = 0
set hodtimeV        = 0
set hodtime         = 0
set damTip          = 0
set damTipV         = 0
set unmaterialV     = 0
set unmaterial      = 0
set defenceM        = 0
set defenceW        = 0
set defenceActPar   = 0
set defenceActParM  = 0
set defenceAct      = 0
set defenceActM     = 0
set defenceMV       = 0
set defenceWV       = 0
set defenceActParV  = 0
set defenceActParMV = 0
set defenceActV     = 0
set defenceActMV    = 0
set defAtk          = 0
set defAtkV         = 0
set defAtkM         = 0
set defAtkMV        = 0
set damTipM         = 0
set damTipMV        = 0
set kisamePro       = 0
set poisonAV        = 0
set SasoriBody      = 0
set tobiPic         = 0
set kisamePic       = 0
set sasoriPic       = 0
set konanPic        = 0
set hidanPic        = 0
set barierV         = 0
set hidanAtk        = 0
set hidanPic        = 0
--- nill ---------------------------------

# test
set rost = 170
set fat = 110

!Статы
set rikudo    = 9000
set stren     = 100
set speed     = 100
set react     = 100
set agil      = 100
set vital     = 100
set intel     = 100
set will      = 100
set boxing    = 100
set magik     = 10
set health    = vital * 10 + stren * 5
set willpower = intel * 5 + will * 5
set manna     = (intel * magik) + magik * 100 + vital * 10 + rikudo
!!!!!!!!!!!!!!!!!!!!!!
set vmeat = (stren + vital) / 8
!!!set vmeat = vmeat / 8
set vfat  = fat / 10
set Kves  = vmeat + vfat
set krost = rost - 130
set ves   = Kves + krost - (agil/10)
set talia = ves - (agil/10)
set grudi = talia + 10 + vfat + silicone
set bedra = talia + 15 + (vmeat/2) + vfat
set titK  = grudi - talia
if titK <= 10: set tits = 0
if titK > 10 and titK <= 15: set tits = 1
if titK > 15 and titK <= 20: set tits = 2
if titK > 20 and titK <= 25: set tits = 3
if titK > 25 and titK <= 30: set tits = 4
if titK > 30 and titK <= 35: set tits = 5
if titK > 35: set tits = 6

!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set spelltuman    = 1
set spellklon     = 1
set spellstun     = 1
set spellweap     = 1
set spellwind     = 1
set spellklon2    = 1
set spellenergo   = 1
set spellinit     = 1
set spellhel      = 1
set spellreset    = 1
set spellavtoklon = 1
set spellhand     = 1
set spellfire1    = 1
set spellfire2    = 1
set spellfire3    = 1
set spellfire4    = 1
set spellfire5    = 1
set spellele1     = 1
set spellele2     = 1
set spellele3     = 1
set spellele4     = 1
set spellele5     = 1
set spellert1     = 1
set spellert2     = 1
set spellert3     = 1
set spellert4     = 1
set spellert5     = 1
set spellwind1    = 1
set spellwind2    = 1
set spellwind3    = 1
set spellwind4    = 1
set spellwind5    = 1
set spellwater1   = 1
set spellwater2   = 1
set spellwater3   = 1
set spellwater4   = 1
set spellwater5   = 1
set spellunmat    = 1
set spellbefshild = 1
'<<rost>>cm <<ves>>kg <<grudi>>-<<talia>>-<<bedra>> the size of the breast <<tits>>'
'All articles on the 100, all spells, magical about the 10 forces Rikudo 9000'
'Do you have any second shadow sedtse that may once to die for you.'
set heart = 1

set mannaReset = 10000


	act '(Toby mag12)':
	cla
	set $nameV      = 'Toby'
	!Статы
	set strenV      = 300
	set speedV      = 100
	set agilV       = 100
	set reactV      = 100
	set vitalV      = 100
	set intelV      = 100
	set willV       = 200
	!Навыки
	set magikV      = 12
	set boxingV     = 100
	set shootV      = 100
	!Параметры
	set healthV     = vitalV * 10 + strenV * 5
	set mannaV      = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV  = willV * 10
	set BonusAtakV  = 0
	set BonusDefV   = 0
	!программа действий
	set program     = 6
	!!!!!!!!!!!!!!!!!!!!
	set test        = 1
	set tobiPic     = 1
	!!!!!!!!!!!!!!!!!!!!
	set unmaterialV = 40
	set izanagiOnce = 0
	set tobizanagi  = 0
	set izanagiV    = 1
	set GedoMazo    = 0
	set TobiStena   = 0
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Kisame mag10)':
	cla
	set horny 	  += 10
	set $nameV     = 'Kisame'
	!Статы
	set strenV     = 300
	set speedV     = 100
	set agilV      = 100
	set reactV     = 100
	set vitalV     = 200
	set intelV     = 100
	set willV      = 50
	!Навыки
	set magikV     = 10
	set boxingV    = 100
	set shootV     = 100
	!Параметры
	set healthV    = vitalV * 10 + strenV * 5
	set mannaV     = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV  = 0
	!программа действий
	set program    = 5
	!!!!!!!!!!!!!!!!!!!!
	set test       = 1
	set kisamePic  = 1
	!!!!!!!!!!!!!!!!!!!!
	set KisaFight  = 1
	set klonV      = 5
	!set defenceV  = 10000
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Sasori mag10)':
	cla
	set $nameV     = 'Sasori doll'
	!Статы
	set strenV     = 100
	set speedV     = 50
	set agilV      = 50
	set reactV     = 50
	set vitalV     = 100
	set intelV     = 100
	set willV      = 100
	!Навыки
	set magikV     = 10
	set boxingV    = 50
	set shootV     = 100
	!Параметры
	set healthV    = vitalV * 10 + strenV * 5
	set mannaV     = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV  = 0
	!программа действий
	set program    = 9
	!!!!!!!!!!!!!!!!!!!!
	set test       = 1
	set sasoriPic  = 1
	!!!!!!!!!!!!!!!!!!!!
	set klonV      = 3
	set SasoriBody = 6
	!set defenceV  = 10000
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Conan mag10)':
	cla
	set $nameV = 'Conan'
	!Статы
	set strenV      = 60
	set speedV      = 105
	set agilV       = 100
	set reactV      = 100
	set vitalV      = 60
	set intelV      = 100
	set willV       = 100
	!Навыки
	set magikV      = 10
	set boxingV     = 100
	set shootV      = 100
	!Параметры
	set healthV     = vitalV * 10 + strenV * 5
	set mannaV      = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV  = willV * 10
	set BonusAtakV  = 0
	set BonusDefV   = 0
	!программа действий
	set program     = 10
	!!!!!!!!!!!!!!!!!!!!
	set test        = 1
	set konanPic    = 1
	!!!!!!!!!!!!!!!!!!!!
	!set klonV      = 3
	!set defenceV   = 10000
	set unmaterialV = 20
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Hidan mag9)':
	cla
	set $nameV       = 'Hidan'
	!Статы
	set strenV       = 500
	set speedV       = 100
	set agilV        = 80
	set reactV       = 100
	set vitalV       = 600
	set intelV       = 100
	set willV        = 100
	!Навыки
	set magikV       = 9
	set boxingV      = 110
	set shootV       = 100
	!Параметры
	set healthV      = vitalV * 10 + strenV * 5
	set mannaV       = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV   = willV * 10
	set BonusAtakV   = 0
	set BonusDefV    = 0
	!программа действий
	set program      = 11
	!!!!!!!!!!!!!!!!!!!!
	set test         = 1
	set hidanPic     = 1
	!!!!!!!!!!!!!!!!!!!!
	!set klonV       = 3
	!set defenceV    = 10000
	set barierV      = 5500
	set hidanAtk     = 1
	!set unmaterialV = 20
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end



	act '(Juugo, mutant power 600)':
	cla
	!set judosparday = day
	set $nameV       = 'Juugo'
	!Статы
	set strenV       = 600
	set speedV       = 60
	set agilV        = 60
	set reactV       = 50
	set vitalV       = 200
	set intelV       = 50
	set willV        = 50
	!Навыки
	set magikV       = 1
	set boxingV      = 100
	set shootV       = 100
	!Параметры
	set healthV      = vitalV * 10 + strenV * 5
	set mannaV       = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV   = willV * 10
	set BonusAtakV   = 0
	set BonusDefV    = 0
	!программа действий
	set program      = 0
	!!!!!!!!!!!!!!!!!!!!
	set test         = 1
	!!!!!!!!!!!!!!!!!!!!
	set jugoFight    = 2
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Karin mag6)':
	cla
	set $nameV       = 'Karin'
	!Статы
	set strenV       = 60
	set speedV       = 90
	set agilV        = 90
	set reactV       = 60
	set vitalV       = 100
	set intelV       = 100
	set willV        = 100
	!Навыки
	set magikV       = 6
	set boxingV      = 100
	set shootV       = 100
	!Параметры
	set healthV      = vitalV * 10 + strenV * 5
	set mannaV       = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV   = willV * 10
	set BonusAtakV   = 0
	set BonusDefV    = 0
	!программа действий
	set program      = 4
	!!!!!!!!!!!!!!!!!!!!
	set test         = 1
	!!!!!!!!!!!!!!!!!!!!
	set karinFight   = 1
	set klonV        = 3
	set tumanV       = 10
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Throwing knives mag1)':
	cla
	set $nameV       = 'Knife thrower'
	!Статы
	set strenV       = 40
	set speedV       = 40
	set agilV        = 40
	set reactV       = 40
	set vitalV       = 60
	set intelV       = 60
	set willV        = 60
	!Навыки
	set magikV       = 1
	set boxingV      = 60
	set shootV       = 60
	!Параметры
	set healthV      = vitalV * 10 + strenV * 5
	set mannaV       = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV   = willV * 10
	set BonusAtakV   = 0
	set BonusDefV    = 0
	!программа действий
	set program      = 1
	!!!!!!!!!!!!!!!!!!!!
	set test         = 1
	!!!!!!!!!!!!!!!!!!!!
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Misty thrower, mag2)':
	cla
	set $nameV     = 'Misty thrower'
	!Статы
	set strenV     = 50
	set speedV     = 50
	set agilV      = 50
	set reactV     = 50
	set vitalV     = 60
	set intelV     = 60
	set willV      = 60
	!Навыки
	set magikV     = 2
	set boxingV    = 60
	set shootV     = 60
	!Параметры
	set healthV    = vitalV * 10 + strenV * 5
	set mannaV     = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV  = 0
	!программа действий
	set program    = 2
	!!!!!!!!!!!!!!!!!!!!
	set test       = 1
	!!!!!!!!!!!!!!!!!!!!
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Misty lord clones mag3)':
	cla
	set $nameV = 'Misty lord clones'
	!Статы
	set strenV     = 60
	set speedV     = 60
	set agilV      = 60
	set reactV     = 60
	set vitalV     = 70
	set intelV     = 70
	set willV      = 70
	!Навыки
	set magikV     = 3
	set boxingV    = 70
	set shootV     = 70
	!Параметры
	set healthV    = vitalV * 10 + strenV * 5
	set mannaV     = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV  = 0
	!программа действий
	set program    = 3
	!!!!!!!!!!!!!!!!!!!!
	set test       = 1
	!!!!!!!!!!!!!!!!!!!!
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Gouge magician mag4)':
	cla
	set $nameV     = 'Gouge magician'
	!Статы
	set strenV     = 70
	set speedV     = 70
	set agilV      = 70
	set reactV     = 70
	set vitalV     = 80
	set intelV     = 80
	set willV      = 80
	!Навыки
	set magikV     = 4
	set boxingV    = 80
	set shootV     = 80
	!Параметры
	set healthV    = vitalV * 10 + strenV * 5
	set mannaV     = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV  = 0
	!программа действий
	set program    = 4
	!!!!!!!!!!!!!!!!!!!!
	set test       = 1
	!!!!!!!!!!!!!!!!!!!!
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end

	act '(Commando)':
	cla
	set $nameV       = 'Commando'
	!Статы
	set strenV       = 200
	set speedV       = 100
	set agilV        = 100
	set reactV       = 100
	set vitalV       = 200
	set intelV       = 10
	set willV        = 10
	!Навыки
	set magikV       = 0
	set boxingV      = 100
	set shootV       = 80
	!Параметры
	set healthV      = vitalV * 10 + strenV * 5
	set mannaV       = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV   = willV * 10
	set BonusAtakV   = 0
	set BonusDefV    = 0
	!программа действий
	set program      = 8
	set dospehV      = 800
	set dospehEnV    = 10
	!!!!!!!!!!!!!!!!!!!!
	set test         = 1
	!!!!!!!!!!!!!!!!!!!!
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end
--- test ---------------------------------

# priziv
if $ARGS[0] = 'tobi':
	set $nameV      = 'Toby'
	!Статы
	set strenV      = 300
	set speedV      = 100
	set agilV       = 100
	set reactV      = 100
	set vitalV      = 100
	set intelV      = 100
	set willV       = 200
	!Навыки
	set magikV      = 12
	set boxingV     = 100
	set shootV      = 100
	!Параметры
	set healthV     = vitalV * 10 + strenV * 5
	set mannaV      = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV  = willV * 10
	set BonusAtakV  = 0
	set BonusDefV   = 0
	!программа действий
	set program     = 6
	set unmaterialV = 40

	set stunV       = 0
end


if $ARGS[0] = 'sasori':
		set $nameV = 'Sasori doll'
		!Статы
		set strenV = 100
	if SasoriBody = 5:
		set speedV = 100
		set agilV = 100
		set reactV = 100
	end
	if SasoriBody = 4:
		set speedV = 110
		set agilV = 100
		set reactV = 100
	end
	if SasoriBody = 3:
		set speedV = 120
		set agilV = 105
		set reactV = 105
	end
	if SasoriBody = 2:
		set speedV = 130
		set agilV = 110
		set reactV = 110
	end
	set vitalV = 100
	set intelV = 100
	set willV = 100
	!Навыки
	set magikV = 10
	set boxingV = 100
	set shootV = 100
	!Параметры
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV = 0
	!программа действий
	set program = 9
	set klonV = 3
	set stunV = 0
end

if $ARGS[0] = 'sasori1':
	set $nameV = 'Sasori'
	!Статы
	set strenV = 500
	set speedV = 140
	set agilV = 120
	set reactV = 110
	set vitalV = 500
	set intelV = 100
	set willV = 100
	!Навыки
	set magikV = 10
	set boxingV = 105
	set shootV = 100
	!Параметры
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV = 0
	!программа действий
	set program = 9
	set klonV = 3
	set stunV = 0
end


--- priziv ---------------------------------

# defence
if defence <= 0:
	set defence = 0
	set defenceM = 0
	set defenceW = 0
	set defenceActPar = 0
	set defenceActParM = 0
	set defenceAct = 0
	set defenceActM = 0
	set defAtk = 0
	set defAtkM = 0
end

if defenceV <= 0:
	set defenceV = 0
	set defenceMV = 0
	set defenceWV = 0
	set defenceActParV = 0
	set defenceActParMV = 0
	set defenceActV = 0
	set defenceActMV = 0
	set defAtkV = 0
	set defAtkMV = 0
end




if defenceAct > 0:
	set defence += defenceActPar
	set defenceAct -= 1
	set defActParK = defenceActPar/100
	set manna -= defActParK
	'<B><font color = green>Regeneration consumes Protection <<defActParK>> units manna.</font></B>'
end

if defenceActM > 0:
	set defenceM += defenceActParM
	set defenceActM -= 1
	set defActParKM = defenceActParM/100
	set manna -= defActParKM
	'<B><font color = green>Regeneration consumes magical protection <<defActParKM>> units of manna.</font></B>'
end

if defenceActV > 0:
	set defenceV += defenceActParV
	set defenceActV -= 1
	set mannaV -= (defenceActParV/100)
end

if defenceActMV > 0:
	set defenceMV += defenceActParMV
	set defenceActMV -= 1
	set mannaV -= (defenceActParMV/100)
end

if defAtk > 0:
	set defAtk -= 1
	'<B><font color = green>Your defense is attacking the enemy.</font></B>'
	gs 'atakB','atak'
end

if defAtkV > 0:
	set defAtkV -= 1
	'<B><font color = red>Protection of the enemy attacks you.</font></B>'
	gs 'atakB1','atak'
end

if defAtkM > 0:
set defAtkM -= 1
	if defenceMV <= 0 and unmaterialV = 0:
		set defDamM = RAND(defenceActParM/2, defenceActParM)
		set mannaV -= defDamM
		set defence += defDamM
		'<B><font color = green>Your defense absorbed <<defDamM>> mana from an enemy, this manna went to strengthen your defenses.</font></B>'
	end
	if defenceMV > 0:
		set defenceMV += defenceActParM
		'<B><font color = green>Your defense caused <<defenceActParM>> points of damage protection from damage enemy mana.</font></B>'
	end
	if unmaterialV > 0:
		'<B><font color = green>Your defense is trying to absorb the manna but it does not work, the enemy is not material.</font></B>'
	end
end

if defAtkMV > 0:
	set defAtkMV -= 1
	if defenceM <= 0 and unmaterial = 0:
		set defDamMV = RAND(defenceActParMV/2, defenceActParMV)
		set manna -= defDamMV
		set defenceV += defDamMV
		'<B><font color = red>Protection of the enemy swallow <<defDamMV>> manna from you and this manna went to strengthen the defense.</font></B>'
	end
	if defenceM > 0:
		set defenceM += defenceActParMV
		'<B><font color = red>Protection against your magic damage inflicted damage <<defenceActParMV>> units.</font></B>'
	end
	if unmaterial > 0:
		'<B><font color = red>Protection of the enemy is trying to absorb your manna but it does not work.</font></B>'
	end
end
--- defence ---------------------------------

# kikbox
if $args[0] = 'start':
	'<center><b>Round 1</b></center>'
	*nl
	'<center><img src="images\community\ring1.jpg"></center>'

	act 'Start Fight':
		gt 'kikbox','fight'
	end
end

if $ARGS[0] = 'fight':
gs 'befKik'

'<B>======================== (ROUND <<round>>) ================= ==========</B>'
if minround = 1: '<B>the fight 0:30</B>'
if minround = 2: '<B>the fight 1:00</B>'
if minround = 3: '<B>the fight 1:30</B>'
if minround = 4: '<B>the fight 2:00</B>'
if minround = 5: '<B>the fight 2:30</B>'
'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, Endurance <B><font color = green><<staminaV>></font></B>'
'Your life <B><font color = red><<health>></font></B>, Endurance <B><font color = green><<stamina>></font></B>'
'<B>=============================================== ===========</B>'
'Your points <<pointKik>>Points opponent <<pointKikV>>'
'<B>=============================================== ===========</B>'

gs 'initKik'

	if hod = 0:
	!игрок атакует
	'<font color = green>You can attack</font>'
		act 'Apply fast Jeb':
			cla
			set damage = RAND(stren/12, stren/8)
				if damage <= 0: set damage = 1
			set koefatak = (speed + reakt + jab)*2
			set koefpop = koefatak * 20/100
			set popad = RAND(koefatak - koefpop, koefatak + koefpop)
			'<font color = green>You deal with a quick jab step forward.</font>'
			gs 'Kikatak','player'
			xgt 'kikbox','sta'
		end

		act 'Apply power punch':
			cla
			set damkoef = stren * 20/100
			set damage = RAND(stren - damkoef, stren + damkoef)
				if damage <= 0: set damage = 1
			set koefatak = (speed + reakt + punch)
			set koefpop = koefatak * 20/100
			set popad = RAND(koefatak - koefpop, koefatak + koefpop)
			'<font color = green>You apply a powerful punch.</font>'
			gs 'Kikatak','player'
			xgt 'kikbox','sta'
		end

		act 'Footed strike':
			cla
			set damkoef = stren * 20/100
			set damage = RAND ((stren - damkoef)*3,(stren + damkoef)*3)
				if damage <= 0: set damage = 1
			set koefatak = (speed + reakt + kik)/2
			set koefpop = koefatak * 20/100
			set popad = RAND(koefatak - koefpop, koefatak + koefpop)
			'<font color = green>You apply a kick powerful.</font>'
			gs 'Kikatak','player'
			xgt 'kikbox','sta'
		end
	end

	if hod = 1:
	!противник атакует
	'<font color = red><<$nameV>> attacks</font>'
	set tiprand = RAND(0,2)
	if tiprand = 0:
		set damage = RAND(strenV/12, strenV/8)
			if damage <= 0: set damage = 1
		set koefatak = (speedV + reaktV + JabV)*2
		set koefpop = koefatak * 20/100
		set popad = RAND(koefatak - koefpop, koefatak + koefpop)
		'<font color = red><<$nameV>> deals with quick jab step forward.</font>'
		gs 'Kikatak','enemy'
		xgt 'kikbox','sta'
	end

	if tiprand = 1:
		set damkoef = strenV * 20/100
		set damage = RAND(strenV - damkoef, strenV + damkoef)
			if damage <= 0: set damage = 1
		set koefatak = (speedV + reaktV + punchV)
		set koefpop = koefatak * 20/100
		set popad = RAND(koefatak - koefpop, koefatak + koefpop)
		'<font color = red><<$nameV>> applies the power punch.</font>'
		gs 'Kikatak','enemy'
		xgt 'kikbox','sta'
	end

	if tiprand = 2:
		set damkoef = strenV * 20/100
		set damage = RAND ((strenV - damkoef)*3,(strenV + damkoef)*3)
			if damage <= 0: set damage = 1
		set koefatak = (speedV + reaktV + kikV)/2
		set koefpop = koefatak * 20/100
		set popad = RAND(koefatak - koefpop, koefatak + koefpop)
		'<font color = red><<$nameV>> tries for a kick.</font>'
		gs 'Kikatak','enemy'
		xgt 'kikbox','sta'
		end
	end
end


if $ARGS[0] = 'sta':
	cla

	set ionce = 0

	'<B>=============================================== ===========</B>'
	if minround = 1: '<B>the fight 1:00</B>'
	if minround = 2: '<B>the fight 1:30</B>'
	if minround = 3: '<B>the fight 2:00</B>'
	if minround = 4: '<B>the fight 2:30</B>'
	if minround = 5: '<B>the fight 3:00</B>'
	'<B>=============================================== ===========</B>'
	'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, Endurance <B><font color = green><<staminaV>></font></B>'
	'Your life <B><font color = red><<health>></font></B>, Endurance <B><font color = green><<stamina>></font></B>'
	'<B>=============================================== ===========</B>'

	if health <= 0:
		'<B><font color = red>You lost by TKO</font></B>'
		gt 'enderKik','lossKO'
		exit
	end

	if healthV <= 0:
		'<B><font color = green><<$nameV>> lost by TKO</font></B>'
		gt 'enderKik','winKO'
		exit
	end

	act 'Further': gt 'kikbox','fight'

	if minround = 5:
		cla
		*clr

		'Rang the gong indicating the end of the round <<round>>.'

		set minround = 0
		set round += 1

		act 'Back to the corner':
			cla
			*clr
			'<center><img src="images\community\kickboxing_corner.jpg"></center>'
			'You try to rest as best as you can.'

			act 'Prepare':
				if round <= formula:
					cla
					*clr
					'<center><b>Round <<round>></b></center>'
					*nl
					'<center><img src="images\community\ring<<round>>.jpg"></center>'

					act 'In the ring': gt 'kikbox','fight'
				else
					if pointKik > pointKikV:
						gt 'enderKik','win'
					end

					if pointKik < pointKikV:
						gt 'enderKik','loss'
					end

					if pointKik = pointKikV:
						gt 'enderKik','draw'
					end
				end
			end
		end
	end
end
--- kikbox ---------------------------------

# befKik
if round > 0:
	if minround < 5:
		set minround += 1
	end
end

if round = 0: set round = 1
--- befKik ---------------------------------

# initKik

set init = speed + reakt
set initKoef = init * 20/100
set initi = RAND(initi - initKoef, initi + initKoef)
set initV = speedV + reaktV
set initKoefV = initV * 20/100
set initiV = RAND(initiV - initKoefV, initiV + initKoefV)

if initi > initiV and hodtime < 3 and ionce = 0 or hodtimeV >= 3 and ionce = 0:
set hod = 0
set hodtime += 1
if hodtimeV >= 3: set hodtimeV = 0
'<font color = green>You took the initiative</font>'
set ionce = 1
end

if initi < initiV and hodtimeV < 3 and ionce = 0 or hodtime >= 3 and ionce = 0:
set hod = 1
set hodtimeV += 1
if hodtime >= 3: set hodtime = 0
'<font color = red><<$nameV>> took the initiative</font>'
set ionce = 1
end

if initi = initiV and hodtime < 3 and hodtimeV < 3 and ionce = 0:
set inrand = RAND(0,1)
set ionce = 1
	if inrand = 0:
	set hod = 0
	set hodtime += 1
	'<font color = green>You took the lead</font>'
	end
	if inrand = 1:
	set hod = 1
	set hodtimeV += 1
	'<font color = red><<$nameV>> took the initiative</font>'
	end
end

if initi = initiV and hodtime >= 3 and ionce = 0 or initi = initiV and hodtimeV >= 3 and ionce = 0:
set hodtime = 0
set hodtimeV = 0
set inrand = RAND(0,1)
set ionce = 1
	if inrand = 0:
	set hod = 0
	set hodtime += 1
	'<font color = green>You took the lead</font>'
	end
	if inrand = 1:
	set hod = 1
	set hodtimeV += 1
	'<font color = red><<$nameV>> took the initiative</font>'
	end
end
--- initKik ---------------------------------

# Kikatak
if $ARGS[0] = 'player':
set defsumV = agilV + reaktV + KikDefV
set defkofV = defsumV * 20/100
set defV = RAND(defsumV - defkofV, defsumV + defkofV)
	if popad >= defV * 2:
	'<B><font color = green>CRETE</font></B>'
	set damageKrit = damage * 20/100
	set damage += damageKrit
	set healthV -= damage
	set pointKik += 1
	'<font color = green>You applied <<damage>> points of damage</font>'
		if damage >= healthV * 20/100:
		set pointKik += 1
		'<font color = green><<$nameV>> fell to the ring</font>'
			if healthV < (vitalV*10 + strenV*5)/4:
			'<font color = green><<$nameV>> in a knockout. This is a victory!</font>'
			xgt 'enderKik','winKO'
			exit
			end
		end
	end
	if popad < defV*2 and popad >= defV:
	'<font color = green>Contact</font>'
	set healthV -= damage
	set pointKik += 1
	'<font color = green>You applied <<damage>> points of damage</font>'
		if damage >= healthV * 20/100:
		set pointKik += 1
		'<font color = green><<$nameV>> fell to the ring</font>'
			if healthV < (vitalV*10 + strenV*5)/4:
			'<font color = green><<$nameV>> in a knockout. This is a victory!</font>'
			xgt 'enderKik','winKO'
			exit
			end
		end
	end
	if popad < defV:
	'<font color = red>Slip</font>'
	end

end

if $ARGS[0] = 'enemy':
set defsum = agil + reakt + KikDef
set defkof = defsum * 20/100
set def = RAND(defsum - defkof, defsum + defkof)
	if popad >= def * 2:
	'<B><font color = red>CRETE</font></B>'
	set damageKrit = damage * 20/100
	set damage += damageKrit
	set health -= damage
	set pointKikV += 1
	'<font color = red>You have caused <<damage>> points of damage</font>'
		if damage >= health * 20/100:
		set pointKikV += 1
		'<font color = red>You have fallen into the ring</font>'
			if health < (vital*10 + stren*5)/4:
			'<font color = red>You are in a knockout. This defeat</font>'
			xgt 'enderKik','loss'
			exit
			end
		end
	end
	if popad < def*2 and popad >= def:
	'<font color = red>Contact</font>'
	set health -= damage
	set pointKikV += 1
	'<font color = red>You have caused <<damage>> points of damage</font>'
		if damage >= health * 20/100:
		set pointKikV += 1
		'<font color = red>You have fallen into the ring</font>'
			if health < (vital*10 + stren*5)/4:
			'<font color = red>You are in a knockout. This defeat</font>'
			xgt 'enderKik','loss'
			exit
			end
		end
	end
	if popad < def:
	'<font color = green>Slip</font>'
	end

end
--- Kikatak ---------------------------------

# enderKik
set pointKik = 0
set pointKikV = 0
set round = 0
set minround = 0

if health < 10: set health = 10

cla
*clr

if profi = 1:
	set profi = 0

	'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
	'Time to the announcement ...'

	act 'Exit to the middle to announce the winner':
		if $ARGS[0] = 'win':
			'<center><img src="images\community\kickboxing_win.jpg"></center>'
			'Congratulations! You win!'
			set KikWinPro += 1
			set rikudo += 5
		end

		if $ARGS[0] = 'winKO':
			'<center><img src="images\community\kickboxing_win_ko.jpg"></center>'
			'Congratulations! You win!'
			'And it is a knockout!!'

			set KikWinPro += 1
			set KikWinProKO += 1
			set rikudo += 10
		end

		if $ARGS[0] = 'loss':
			'<center><img src="images\community\kickboxing_loss.jpg"></center>'
			'You lose.'
			set KikLossPro += 1
		end

		if $ARGS[0] = 'lossKO':
			'<center><img src="images\community\kickboxing_loss_ko.jpg"></center>'
			'Suddendly the room starts getting darker and darker ...'
			set KikLossPro += 1
			set KikLossProKO += 1
		end

		if $ARGS[0] = 'draw':
			'And it is a draw !!'
			set KikDrawPro += 1
		end

		act 'Leave the ring': gt 'fit','razd'
	end
end

if amateur = 1:
	set amateur = 0

	'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
	'Time to the announcement ...'

	act 'Exit to the middle to announce the winner':
		if $ARGS[0] = 'win':
			cla
			*clr
			'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
			'Time to the announcement ...'
			'<center><img src="images\community\kickboxing_win.jpg"></center>'
			'Congratulations! You win!'

			set KikWinAm += 1
			set amateur = 0
			set amatReit += 1
			set money += 500 + kikmoney
			set rikudo += 5
			'You handed over a prize of 500 rubles.'
			gs 'razrKik'
		end

		if $ARGS[0] = 'winKO':
			cla
			*clr
			'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
			'Time to the announcement ...'
			'<center><img src="images\community\kickboxing_win_ko.jpg"></center>'
			'Congratulations! You win!'
			'Great victory!'

			KikWinAm += 1
			KikWinAmKO += 1
			set amatReit += 1
			set amateur = 0
			set money += 500
			set rikudo += 10
			'You handed over a prize of 500 rubles.'
		end

		if $ARGS[0] = 'loss':
			cla
			*clr
			'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
			'Time to the announcement ...'
			'<center><img src="images\community\kickboxing_loss.jpg"></center>'
			'You lose.'
			set KikLossAm += 1
			if amatReit > 0: set amatReit -= 1
		end

		if $ARGS[0] = 'lossKO':
			cla
			*clr
			'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
			'Time to the announcement ...'
			'<center><img src="images\community\kickboxing_loss_ko.jpg"></center>'
			'Suddendly the room starts getting darker and darker ...'
			set KikLossAm += 1
			set KikLossAmKO += 1
			if amatReit > 0: set amatReit -= 1
		end

		if $ARGS[0] = 'draw':
			cla
			*clr
			'<center><img src="images\community\kickboxing_speaker.jpg"></center>'
			'Time to the announcement ...'
			'And it is a draw !!'
			set KikDrawAm += 1
		end

		act 'Leave the ring': gt 'fit','razd'
	end
end

if sparing = 1:
	set sparing = 0

	if $ARGS[0] = 'win':
		'<center><img src="images\community\kickboxing_rival.jpg"></center>'
		'The section is over.'
		'Your rival came to you and said:'
		'- "Nice job on the ring."'
		'She turned around and left to the dressing room.'
	end

	if $ARGS[0] = 'winKO':
		'<center><img src="images\community\kickboxing_win_ko.jpg"></center>'
		'The section is over.'
		'You had to knock her off .... Did you??'
	end

	if $ARGS[0] = 'loss':
		'<center><img src="images\community\kickboxing_rival.jpg"></center>'
		'The section is over.'
		' Your rival came to you and said:'
		'- "Keep practicing."'
		'She turned around and left to the dressing room.'
	end

	if $ARGS[0] = 'lossKO':
		'<center><img src="images\community\kickboxing_loss_ko.jpg"></center>'
		'The section is over.'
		'Suddendly the room starts getting darker and darker ...'
	end

	if $ARGS[0] = 'draw':
		'<center><img src="images\community\kickboxing_rival.jpg"></center>'
		'The section is over.'
		' Your rival came to you and said:'
		'- "Looks like both of us need to keep practicing"'
		'She turned around and left to the dressing room.'
	end

	act 'Leave the ring': gt 'fit','razd'
	exit
end
--- enderKik ---------------------------------

# razrKik
if razradKik = 0:
	if amatReit >= 5:
	set razradKik = 1
	set amatReit = 0
	set kikmoney = 200
	'You have assigned the third rank amateur kickboxing.'
	end
end
if razradKik = 1:
	if amatReit >= 10:
	set razradKik = 2
	set amatReit = 0
	set kikmoney = 500
	'You have assigned the 2nd rank amateur kickboxing.'
	end
end
if razradKik = 2:
	if amatReit >= 15:
	set razradKik = 3
	set amatReit = 0
	set kikmoney = 1500
	'You assigned 1st rank amateur kickboxing.'
	end
end
if razradKik = 3:
	if amatReit >= 20:
	set razradKik = 4
	set amatReit = 0
	set kikmoney = 3500
	'You awarded the title of Candidate Master of Sports in kickboxing.'
	end
end
if razradKik = 4:
	if amatReit >= 25:
	set razradKik = 5
	set amatReit = 0
	set kikmoney = 7500
	'You awarded the title of Master of Sports in kickboxing.'
	end
end
--- razrKik ---------------------------------

# bobka
$bobka_bj = {
	'<center><img src="images\qwest\sosed\bj.jpg"></center>'
	$tempval = 'You'
	$tempval2 = ''
	if HaveMetBobka = 1: $tempval = 'You desperately need a fix so you'
	if bobrand = 0: $tempval2 = ' He tucked his dick in his pants and threw you a syringe.'
	'<<$tempval>> dropped down on your knees in front of the guy and started sucking his flaccid penis. His penis started to get erect in your mouth as you actively sucked it. Suddenly you feel a jet of sperm hit you in the mouth. You continued sucking while swallowing sperm. Finally it stopped and he pulled his cock out of your mouth.<<$tempval2>>'
}
$bobka_inject = {
	act 'Inject.':
		cls
		minut += 5
		StrongNarkota += 25
		SNarkTimes += 1
		NarkShmaraTimes += 1
		gs 'stat'
		$tempval = ''
		if narkoman ! 0: $tempval = ' with trembling hands'
		'You grabbed the syringe and injected yourself<<$tempval>>. While <<$tempname>> was looking at you with a smile.'
		if HaveMetBobka = 0: '"By the way I´m Bobka, and you are?" You mumbled "<<$name>>."'&HaveMetBobka = 1
		act 'Leave': minut += 15 & gt 'street'
	end
}
if bobrand = 0:
	minut += 5
	bj += 1
	swallow += 1
	cumlip += 1
	gs 'stat'
	dynamic $venerasiak
	dynamic $bobka_bj
	dynamic $bobka_inject
end
if bobrand = 1:
	minut += 5
	bj += 1
	gs 'stat'
	dynamic $venerasiak
	dynamic $bobka_bj
	'(SOMETHING TO LEAD TO NEXT SCENE FROM HERE)'
	act '(Continue)':
		cls
		minut += 5
		sex += 1
		$boy = 'Bobka'
		dick = 16
		silavag = 1
		gs 'stat'
		'<center><img src="images\qwest\sosed\doggy.jpg"></center>'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		'He threw you a syringe.'
		dynamic $bobka_inject
	end
end
if bobrand = 2:
	minut += 5
	bj += 1
	gs 'stat'
	dynamic $venerasiak
	dynamic $bobka_bj
	'(SOMETHING TO LEAD TO NEXT SCENE FROM HERE)'
	act '(Continue)':
		cls
		minut += 5
		$boy = 'Bobka'
		dick = 16
		silavag = 1
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\sosed\anal.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		'Finally <<$tempname>> stops and you feel like your ass filling with warm sperm.'
		'He threw you a syringe.'
		dynamic $bobka_inject
	end
end
if bobrand = 3:
	minut += 5
	pee += 1
	gs 'stat'
	dynamic $venerasiak
	'<center><img src="images\qwest\sosed\pee.jpg"></center>'
	$tempval = 'You'
	if HaveMetBobka = 1: $tempval = 'You desperately need a fix so you'
	'<<$tempval>> dropped down on your knees in front of the guy. Bobka pulled out his flaccid cock and hot stream of urine hit you on the lips. He pissed on your face for quite some time. Finally <<$tempname>> shook off the last drops on your face. He tucked his dick in his pants and threw you a syringe.'
	dynamic $bobka_inject
end
--- bobka ---------------------------------

# clener
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>office building</font></B></center>'
'<center><img src="images\etogame\clener.jpg"></center>'
'On the walls there are different ads, one of which says: "Cleaner Wanted".'
'Above one of the doors a sign says, Jacob Solomonovich Schneersohn, tailor, 7:00--15:00'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
act 'QUIT': gt 'street'

if SVqw >= 1:
	if hour >= 8 and hour <= 16 and week < 6:
	'The door to the<a href="exec:GT ''torgpred''">Trade Mission</a> is open.'
	else
	'The door of the trade mission is closed and the schedule is visible: Sat and Sun 8:00--16:00'
	end
end

if jouryQwNo = 1 and hour = 17:
'Yuri goes through the corridor (the same office worker who offered you walk, but you refused). He look at you and starts walking closer.'
	act 'Talk to Yuri':
	cla
	minut += 15
	gs 'stat'
	'Yuri walks up to you and says, "<<$name>>, want to grab a cup of coffee?"'
	act 'No': jouryQwNo = 1 & gt 'clener','start'
		act 'Drink coffee':
		cls
		minut += 30
		gs 'stat'
		'You go to the café, where Yuri orders coffee. You sit down at the table and begin to drink. Yuri is painfully quiet. He has no sense of humor and is very stiff. Obviously he likes you, but he does not know what to do. When you are done with the coffee Yuri suggests (going with him?).'
		act 'No': jouryQwNo = 1 & gt 'clener','start'
		dynamic $youriqwest
		end
	end
end

if borodachQW > 0 and borodachSex = 0 and hour >= 19: 'The security guard, Sasha,  nods at you.'
if borodachQW > 0 and borodachSex > 0 and hour >= 19: 'The security guard, Sasha, smiles and says: "Hi Svetsik!"'
if borodachQW > 0 and hour >= 19:
	act 'Approach Sasha':
		cls
		minut += 5
		gs 'stat'
		if borodachSexDay = day: 'You approach the security guard and say hello. You chat with him a bit, then Sasha was going to crawl and you´re away without becoming disturb him.'
		if borodachSexDay ! day:
			'You approach the security guard and say hello. He winks at you, I stashed the bubble here, as you look at the cult of mass leisure?'
			act 'Come':
				cla
				minut += 5
				gs 'stat'
				'Sasha takes you into his cubbyhole and pulls out a bottle of vodka from under the table. He then reaches into a drawer and pulls out a piece of liver sausage and some cheese. He pours some of the vodka out into two glasses.'
				act 'Have a drink':
					cla
					"You drink the shitty vodka and it burns your throat. Breath you perlo of shit and you quickly grabbed cheese zanyuhivat friendship. Sasha casually downs the glass and doesn't even blink. 'Ah, good one.'"
					'While you are leaning over to eat the sausage, you feel a light touch as the guard pats you on the ass.'
					act 'Smile':
						cla
						minut += 15
						horny += 10
						gs 'stat'
						'You smile and Sasha pours more vodka, not stopping from caressing your buttocks.'
						if horny < 50: dynamic $borodachNo2
						dynamic $borodachDrink
						end
					act 'Put your hand on his pants':
						cls
						minut += 15
						horny += 10
						gs 'stat'
						borodachTimes += 1
						picrand = RAND(0,2)
						if picrand = 0: '<center><img src="images\qwest\ohrannik\hj.jpg"></center>'
						if picrand = 1: '<center><img src="images\qwest\ohrannik\hj1.jpg"></center>'
						if picrand = 2: '<center><img src="images\qwest\ohrannik\hj2.jpg"></center>'
						'You put your hand on his crotch and feel his erection harden. Your thin fingers slide over his hardon and find the zipper. You unzip him and get his cock out of his pants. Sasha relaxes on the couch waiting for you to continue what you started.'
						dynamic $ohrhj
						dynamic $ohrbj
						end
					end
				end
			end
		act 'Leave': gt 'clener','start'
		end
	end
if clenerT >= 3 and borodachQW = 0 and hour >= 19:
	'On a chair in front of the guard sits with crosswords and painfully remembers something. He asks to see you. "Bad ending the case, and the second letter."'
	act 'Reply guard':
		cls
		borodachQW = 1
		'(You) - Fiasco'
		'(Guard) - Exactly what I think PIZDETS can not be the answer.'
		act 'Leave': gt 'clener','start'
		act 'Zasmeyatsya':
			cla
			borodachQW = 2
			'You laughed at the security guard, he smiled and put aside crosswords. "I love you there is no longer seen. Cleaning lady work?"'
			'You nodded, "yes, moonlighting, then pay that kind of money that would not call it work."'
			'(Guard) - by the way I´m Sasha, and you?'
			'(You) - My World.'
			'(Sasha) - Very nice. I´ve got a bottle and have zakus, sostavish business?'
			act 'Sorry, I have to go': gt 'clener','start'
			act 'Why not?':
				cla
				minut += 5
				gs 'stat'
				'Sasha took you into his cubbyhole and took out a bottle of vodka under the table, reached into a drawer and pulled out a piece of liver sausage and cheese friendship. Took out a couple of glasses of vodka and poured there.'
				act 'Have a drink':
					cla
					'You drank vodka give zhzhonoy rubber and booze. Breath you perlo of shit and you quickly grabbed cheese zanyuhivat friendship. Sasha habitually slammed the glass and not even pomorschalsya. "Ah, well gone."'
					'While you are leaning to the table and nibbled zanyuhivali, you feel like a hand guard as if by chance, you stroking light touch on the ass.'
					act 'Hey! What are you doing?':
						cla
						minut += 15
						horny += 10
						gs 'stat'
						'(You) - Hey! What are you doing?'
						'"C´mon, I accidentally." Sasha began to mutter pouring more vodka. "Let´s have a drink."'
						if horny < 50: dynamic $borodachNo
						dynamic $borodachDrink
						end
					act 'To pretend not to notice':
						cla
						minut += 15
						horny += 15 + SUB
						gs 'stat'
						'You ate, trying not to pay attention to, as it were casual touch. Sasha poured more vodka and say "Between the first and second pereryvchik not great" knocked over a glass.'
						if horny < 50: dynamic $borodachNo
						dynamic $borodachDrink
						end
					end
				end
			end
		end
	end
if hour >= 7 and hour <= 15:
	act 'Go to the tailor':
		cla
		*clr
		'Elderly Jew makes a pattern at the table, he´s a bit down glasses and looking at you on top of the points.'
		act 'QUIT': gt 'clener','start'
		if portnoyQW > 0:
			'Aah Svetochka, come, come again cut down?'
			if money >= 500:
				act 'Wear clothes to take in 500 rubles':
					cla
					*clr
					minut += 15
					money -= 500
					gs 'portnoi'
					'You undressed and filed for shirmochka clothes Jacob Solomonovich it fifteen minutes ushil your clothes and returned to you.'
					act 'QUIT': gt 'clener','start'
					end
				end
			if money >= 500:
				act 'Take in different clothes': gt 'portnoi1','start'
				act 'Take in all the clothes': gt 'portnoi2'
				end
			end
		if portnoyQW = 0:
			'Hello young lady. I am Solomonovich Jacob, for you simply Yasha. And what is your name?'
			act '<<$name>>':
				cla
				portnoyQW = 1
				'(You) - Lights up.'
				'(Yasha) - What pgekgasnoe name. <<$name>>, come, sit here on this chair. Any way than I can be useful to you?'
				act 'Can you tailor my clothes?':
					cla
					*clr
					minut += 15
					gs 'stat'
					'(You) - Can you tailor my clothes to fit me better?'
					"(Yasha) - Of course I can! Otherwise, what kind of tailor would I be? Here, let me see that you're wearing."
					'Jacob Solomonovich you jumped smartly and flexible by removing the meter from the neck began obmeryat your chest, waist and hips.'
					'Well Well, I can take in this product, you will be 500 rubles.'
					if money >= 500:
						act 'Take in 500 rubles':
							cla
							*clr
							minut += 15
							money -= 500
							gs 'portnoi'
							'You undressed and filed for shirmochka clothes Jacob Solomonovich it fifteen minutes ushal your clothes and returned to you.'
							act 'QUIT': gt 'clener','start'
							end
						end
					act 'QUIT': gt 'clener','start'
					end
				end
			end
		end
	end
if clener >= 10 and clenerT = 0:
	act 'Ask whether there is more work':
		cla
		'You ask Boris Ivanovich whether he has more work for you. He says that he needs a cleaner for cleaning the toilets. You can work almost every day. Cleaning toilets for an hour gets you 100 rubles immediately on hand.'
		act 'Refuse and leave': gt 'street'
		act 'Agree to work':
			cla
			set clenerT = 1
			'You agreed to work.'
			act 'Exit': gt 'clener','start'
			end
		end
	end
if clener = 1:
	act 'Talk about available jobs':
		cla
		'You go into the office that advertised the job. You meet a large man in a jacket. He tells you you can work almost every day. Office cleaning 100 rubles per hour, cash.'
		act 'Refuse and leave': gt 'street'
		act 'Agree to work':
			cla
			set clener = 2
			'You agreed to work.'
			act 'Exit': gt 'clener','start'
			end
		end
	end
if clener > 1 and clenday ! day:
	act 'Mop the floor in the office (1:00)':
		cla
		*clr
		!set clenday = day
		set minut += 60
		set clener += 1
		set manna -= 15
		set money += 100
		set sweat += 2
		'<center><img src="images\etogame\clener1.jpg"></center>'
		if clener < 5:
			if hour >= 9 and hour <= 16: 'You fill a bucket of water and go to the office with a mop. The office staff keeps out of the way while you clean the floor.'
			end
		if clener >= 5 and clener < 10:
			if hour >= 9 and hour <= 16:
				jouryQw += 1
				'You fill a bucket of water and go to the office with a mop. The office staff keeps out of the way while you clean the floor. One of the office workers, a man with blond hair and a red face looks at you and tries to hide it, but you feel his burning gaze.'
				end
			end
		if clener >= 10:
				if hour >= 9 and hour <= 16 and jouryQw < 7:
				jouryQw += 1
				'You fill a bucket of water and go to the office with a mop. The office staff keeps out of the way while you clean the floor. One of the office workers, a man with blond hair and a red face looks at you and tries to hide it, but you feel his burning gaze.'
				end
				if jouryQw = 7 and hour >= 9 and hour <= 16:
				cls
				gs 'stat'
				'<center><img src="images\etogame\clener1.jpg"></center>'
				jouryQw += 1
				'You scored in a bucket of water and went to the office with a rag mop capturing. All the staff went out of the office, except for a red-blond. He walked up to you and told you visibly nervous quiet "Hi. My name Jura. You loved me. Can converge to something after work?"'
					act 'No':
					cla
					jouryQwNo = 1
					'After the work performed you come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for the work.'
					act 'Exit': gt 'clener','start'
					end

					act 'Yes':
					cla
					minut += 15
					gs 'stat'
					'Yuri said that he now exits and greet you at the entrance to the building.'
					'After the work performed you come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for the work.'
					'Code you are out of the commandant at the entrance to the building was already waiting for you, Yuri. He´s pretty strong emotions and it seems as if he swallowed scrap. Not knowing what to say, he blurted out, "Maybe we´ll go to me, the movie´s look, drink champagne, we´ll talk."'
					act 'No': jouryQwNo = 1 & gt 'clener','start'
					dynamic $youriqwest
					end
				exit
				end
			if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex = 0: 'You scored in a bucket of water and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. Yuri looked at you groping look at your figure.'
			if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex > 0: 'You scored in a bucket of water and went to the office with a rag mop capturing. Sotrudnikiki office parted and gave you clean the floor. Yuri pretending not to notice you left the office.'
			end
		if hour < 9 or hour > 16: 'In the office is unoccupied, you quietly washed the floor and wiped the floor in the office.'
		'After the work performed you come to the commandant of the building Boris Ivanovich. He gave you 100 rubles for the work.'
		act 'Exit': gt 'clener','start'
		end
	end
if clenerT >= 1 and clendayT ! day:
	act 'Clean toilets (1:00)':
		cla
		*clr
		!set clendayT = day
		set minut += 60
		set clenerT += 1
		set manna -= 25
		set money += 100
		set sweat += 3
		'<center><img src="images\etogame\clener2.jpg"></center>'
			if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex > 0 and jouryResult = 0:
			'You entered the booth and began to scrub the toilet bowl. In tulet slammed the door and somebody came in, you looked out of the booth and saw George. He, too, saw you and came to you. "<<$name>>, do not come to me in the office, well, you know, the team does not understand what I´m meeting with the cleaner."'
				act 'You make me ashamed?':
				cla
				'You come off the toilet and looked into the eyes of Yuri asked, "You stesnyaeshsya me?" Yuri stammered, "Well, not that that would be embarrassed, but you must understand, I am a manager, you lady. We must not be seen together. But I want you to continue on. You know where I live, came to see me after 4 pm."'
					act 'Fuck you.':
					cla
					dom += 1
					jouryResult = 1
					'Such behavior has offended you and Yuri you without hesitation sent him. He turned and walked out of the closet.'
					'You washed the floor in the toilet and kicked all the toilets and urinals to shine. After that you were given 100 rubles for his work.'
					act 'Exit': gt 'clener','start'
					end

					act 'Okay.':
					cla
					sub += 1
					jouryResult = 10
					'Jury sees you only hole drya its members. But you put up with it and agreed to go to his home. Yuri nodded in satisfaction and walked out of the toilet.'
					'You washed the floor in the toilet and kicked all the toilets and urinals to shine. After that you were given 100 rubles for his work.'
					act 'Exit': gt 'clener','start'
					end
				end
			exit
			end
			if StasikValera > 0 and SVqw = 0:
			'You nadraivali toilet to shine in this moment heard the toilet as someone walked in, turned around you saw a man. Suddenly you´ve learned it, it Stasik, with him and his friend Valera you met at the beach. Stasik also apparently recognize you and come up to you, "Hi Svetsik thou is a cleaner work?"'
				act 'I earn the money needed.':
				cls
				gs 'stat'
				'<center><img src="images\etogame\clener2.jpg"></center>'
				'You shrugged. "I earn. I need the money." Stasik smiled "Well, for an attractive girl I can find a decent part-time job. I just need merchandisers."'
				act 'Can be more?':
					cls
					SVqw = 1
					gs 'stat'
					'<center><img src="images\etogame\clener2.jpg"></center>'
					'You asked about the details of Stas. Stasik you said "It´s very simple. In northern, central and residential areas are supermarkets. Thou shalt come to our office to take a job to work, then go to all these stores and arrange our products there charges according assignment. At the checkout take receipt confirming that that you were at work. Thereafter yavlyaeshsya you to our office and we will pay you compensation. 500 rubles. works you will have a few hours. Labour I´m not asking. So what? "'
					act 'Not interested': gt 'clener','start'
						act 'I agree.':
						cls
						SVqw = 2
						gs 'stat'
						'<center><img src="images\etogame\clener2.jpg"></center>'
						'You agreed and Stas fairly nodded, then walked out of the toilet.'
						act 'Leave': gt 'clener','start'
						end
					end
				end
			exit
			end
		'You washed the floor in the toilet and kicked all the toilets and urinals to shine. After that you were given 100 rubles for his work.'
		act 'Exit': gt 'clener','start'
		end
	end
end
--- clener ---------------------------------

# dima
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Entrance where he lives Dima</font></B></center>'
	'<center><img src="images\etogame\podezdhr.jpg"></center>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	act 'QUIT':
		cla
		set minut += 5
		gt 'street'
	end
end
--- dima ---------------------------------

# dinsexgivi
$threesomedin = {
act 'Sit on the penis':
cls
minut += 5
gs 'stat'
tiprand = RAND(0,1)
picrand = RAND(1,2)
'<center><img src="images\picKav\threeC<<picrand>>.jpg "></center>'
'You take the top of the Givi and sit on his cock her pussy.'
dynamic $sexstart2
dynamic $giviirasexdivibor2
end

act 'Tselovatsya more':
cls
minut += 5
gs 'stat'
tiprand = RAND(0,1)
picrand = RAND(1,2)
'<center><img src="images\picKav\threeC<<picrand>>.jpg "></center>'
'Ira sits on member Givi her pussy and begins to frantically jump on his thick and solid horseradish.'
dynamic $giviirasexdivibor
end

}

$threesomedin2 = {
act 'Tselovatsya more':
cls
minut += 5
gs 'stat'
tiprand = RAND(0,1)
picrand = RAND(1,2)
'<center><img src="images\picKav\threeC<<picrand>>.jpg "></center>'
'Ira sits on member Givi her pussy and begins to frantically jump on his thick and solid horseradish.'
dynamic $giviirasexdivibor
end
}
$giviirasexdivibor = {
!выбор ГГ
act 'Licking breasts Ira':
cls
minut += 5
horny += 10
gs 'stat'
tiprand = RAND(0,1)
picrand = RAND(1,2)
if picrand = 1: '<center><img src="images\picKav\threeD.jpg"></center>'
if picrand = 2: '<center><img src="images\picKav\threeD1.jpg"></center>'
'While Ira jumped on a thick cock you wrapped around his lips to her nipple and started sucking him.'
'Givi groaned and dropped Ira member.'
dynamic $giviirasexdivibor3
end

act 'Substitute pussy Ira':
cls
minut += 5
horny += 20
gs 'stat'
tiprand = RAND(0,1)
picrand = RAND(1,2)
'<center><img src="images\picKav\threeE.jpg"></center>'
'You framed her pussy Ira and she began to lick her active without stopping skakt on a limb.'
if horny >= 90: horny = 0 & orgasm += 1 & 'Ohata you orgasm and you moan with pleasure.'
'Givi groaned and dropped Ira member.'
dynamic $giviirasexdivibor3
end
}
$giviirasexdivibor2 = {
!выбор Иры
act 'Jump on a limb':
cls
minut += 5
horny += 10
gs 'stat'
tiprand = RAND(0,2)
picrand = RAND(1,2)
	if tiprand = 0:
	'<center><img src="images\picKav\threeF.jpg"></center>'
	'You skip a member Givi and Ira decided not indifferent ostavatsya dug my lips you nipple began to suck and nibble.'
	end
	if tiprand = 1:
	'<center><img src="images\picKav\threeF1.jpg"></center>'
	'You jump out on a limb and Givi Ira starts to kiss you on the mouth while caressing finger your pussy.'
	end
'Givi groaned and threw you to the member.'
dynamic $giviirasexdivibor3
end
}
$giviirasexdivibor3 = {
!выбор Иры
act 'Further':
cls
minut += 5
horny += 10
cumlip += 1
cumface += 1
gs 'stat'
'<center><img src="images\picKav\threeFin.jpg"></center>'
'Givi put you on your knees with Irina and began to finish you on the face. You finish with a lick and a member of individuals to each other and kissed.'
act 'Leave': dynamic $endirinaaftergang
end
}

$endirinaaftergang = {
cls
minut += 5
gs 'stat'
'Exhausted, tired and with a heavy smell of sperm you get home with Irina after a hard day. You get to the entrance of Ira and she kisses you on the lips enveloping aroma sperm goodbye, then goes to his home.'
act 'Leave': gt 'street'
}
--- dinsexgivi ---------------------------------

# IrinaRoom
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Entrance where your girlfriend lives Ira</font></B></center>'
'<center><img src="images\etogame\podezdhr.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end

	act 'Ring the doorbell Irina':
	cla
		if hour >= 16 and hour <= 21 and week >= 6 and IrinaQW ! 2:
		'You have reached the door and you opened the IRA, she smiled and invited you to join.'
			act 'Take the apartment': gt 'IrinaRoom','first'
		else
		'You rang the doorbell but no one answers.'
			act 'QUIT':
			cla
			set minut += 5
			gt 'street'
			end
		end
	end

end

if $ARGS[0] = 'first':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Apartment Ira</font></B></center>'
'<center><img src="images\etogame\IrinaRoom.jpg"></center>'
'Small studio apartment Ira neat and tidy'
clr
gs 'stat'
	act 'Drinking in the kitchen': gt 'IrinaRoom','first1'
end

if $ARGS[0] = 'first1':
cla
*clr
set minut += 60
set manna += 50
'<center><img src="images\picVA\IrinaQW.jpg"></center>'
'You Ira settled in the kitchen with a bottle of wine and a snack of fruit, you talked and chatted merrily.'
'And Ira and you´re a bit tipsy and the conversation became more candid flow into shape.'
clr
gs 'stat'
	act 'Leave':
	cla
	set minut += 60
	set manna += 50
	gt 'street'
	end

	if IrinaQW = 1:
		act 'Suggest drink brotherhood': gt 'IrinaRoom','first2'
	end
	if IrinaQW >= 10:
		act 'Tselovatsya': gt 'IrinaRoom','kiss'
	end
end

if $ARGS[0] = 'kiss':
cla
*clr
set minut += 10
set manna += 50
set horny += 20
'<center><img src="images\picVA\IrinaKiss.jpg"></center>'
'You passionately kissing with Ira, and caress her firm breasts with his hands.'
clr
gs 'stat'
	act 'Sex': gt 'IrinaRoom','sex'
end

if $ARGS[0] = 'sex':
cla
*clr
set minut += 60
set manna += 50
set lesbian += 1
set manna += 100
set willpower += 100
'<center><img src="images\picVA\IrinaSex.jpg"></center>'
	if horny < 50:
	horny -= 10
	'Once in bed you caress each other with passion and lick wet pussies each other. But the excitement gradually disappears and you feel that the orgasm you will not be.'
	end
	if horny >= 50:
	horny = 0
	set orgasm += 1
	'Once in bed you caress each other with passion and lick wet pussies each other. Finally you are both satisfied.'
	end
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end


if $ARGS[0] = 'first2':
cla
*clr
set minut += 60
set manna += 50
'<center><img src="images\picVA\IrinaQW1.jpg"></center>'
'You offered Ira drink brotherhood, after dating.'
clr
gs 'stat'
	act 'Kiss': gt 'IrinaRoom','first3'
end

if $ARGS[0] = 'first3':
cla
*clr
set manna += 50
set horny += 20
'<center><img src="images\picVA\IrinaQW2.jpg"></center>'
'You kissed Il in her warm, soft, smelling wine lips. Irina flushed after the kiss and looks at you a little embarrassed and frightened.'
clr
gs 'stat'
	act 'Ira undress': gt 'IrinaRoom','first4'
	act 'Ira drink more': gt 'IrinaRoom','first5'
end

if $ARGS[0] = 'first4':
cla
*clr
set IrinaQW = 2
'You started filming blouse with Ira, she jumped up and jumped from his chair screaming "What are you doing? I´m not a lesbian!"'
'She was very afraid of your attack and you pointed to the door.'
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end

if $ARGS[0] = 'first5':
cla
*clr
set IrinaQW = 10
set horny += 20
'<center><img src="images\picVA\IrinaQW3.jpg"></center>'
'You pumped Er wine, it is highly intoxicated and spilled wine on myself. She went into the bathroom to change. You, too, went in and spredlozhili help her.'
'She undressed and you have decided to follow suit and also undressed climbed into the shower. You started lathering body Ira and saw how she stood erect nipples.'
clr
gs 'stat'
	act 'Kiss': gt 'IrinaRoom','first6'
end

if $ARGS[0] = 'first6':
cla
*clr
set horny += 20
'<center><img src="images\picVA\IrinaQW4.jpg"></center>'
'You passionately dug lips in luscious lips Ira, she suddenly said, your kiss very passionately.'
clr
gs 'stat'
	act 'Fondle breasts': gt 'IrinaRoom','first7'
end

if $ARGS[0] = 'first7':
cla
*clr
set horny += 20
'<center><img src="images\picVA\IrinaQW5.jpg"></center>'
'You lowered his head to his chest and Ira began to suck and lick her hard nipples Ira zastonalya pleasure.'
clr
gs 'stat'
	act 'Licking pussy': gt 'IrinaRoom','first8'
end

if $ARGS[0] = 'first8':
cla
*clr
set horny += 20
set girl += 1
set lesbian += 1
'<center><img src="images\picVA\IrinaQW6.jpg"></center>'
'You began to kiss lower and lower until it fell to the level of moisture seeping pussy Ira. Your reed began to caress her clit and soon she shuddered and began to moan from orgasm.'
'Ira decided to pay you back in the same coin and not speak a word not put you on the edge of the tub and her lips stuck into your pussy.'
clr
gs 'stat'
	act 'Licking pussy': gt 'IrinaRoom','first9'
end

if $ARGS[0] = 'first9':
cla
*clr
set horny = 0
set orgasm += 1
set manna += 100
set willpower += 100
'<center><img src="images\picVA\IrinaQW7.jpg"></center>'
'Lips and tongue Ira quickly vozimeli effect and you finished with passionate moans.'
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end
--- IrinaRoom ---------------------------------

# kafe
if $ARGS[0] = 'start':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 1
'<center><B><font color = maroon>Cafe</font></B></center>'
'<center><img src="images\etogame\kafe.jpg"></center>'
'You see <a href="exec:GT ''kafe'',''vlad''">the owner of the cafe</a> dealing with paperwork.'
'Lunch - 100 rubles'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
clr
gs 'stat'
if QWdogReiq = 3 and week = 7 and hour >= 12:
	act 'Sit down at the table and wait for a Margarita': dynamic $margokafedin
	end
!act 'Agree': gt 'Kafe3','WC'
if money >= 100:
	act 'Eat 100 rubles':
		cla
		*clr
		frost = 0
		'<center><img src="images\pics\food.jpg"></center>'
		set razvrand = rand(1,10)
		set minut += 30
		set health += 10
		set money -= 100
		set manna += 5
		set willpower += 5
		if energy >= 30:
			set fat += 5
			'You can no longer have.'
			end
		if energy >= 20 and energy < 30:
			set fat += 3
			set energy += 10
			'You pushed through the power of a meal.'
			end
		if energy < 20:
			set energy += 20
			set fat += 1
			'You gladly ate the food.'
			end
		if water >= 20:
			'Tea in you no longer climbs.'
			end
		if water < 20:
			'You gladly drank a mug of tea.'
			set water += 20
			end
		if razvrand > 5:
			gs 'boy'
			'Came to your table <<$boybody>> <<$boybod>> <<$boyface>> presented as <<$boy>>.'
			xgt 'kafe','razvod'
			end
		act 'Get up from the table': gt 'kafe','start'
		end
	end
act 'QUIT': gt 'street'
end

if $ARGS[0] = 'vlad':
cla
*clr
set minut += 5
gs 'stat'
'<center><B><font color = maroon>Cafe</font></B></center>'
'<center><img src="images\etogame\kafe.jpg"></center>'
if givi = 0: 'At the reception costs not big, but very thick caucasian, he writes something.'
if givi > 0: 'At the reception worth Givi K., host cafes, he writes something.'
if workKafe = 0:
	if GiviSex >= 2 and Givisexday < 1 and Venera < 4:
		act 'Provoke Givi':
			cla
			*clr
			set Givisexday = 1
			set GiviSex += 1
			'<center><img src="images\etogame\kafe.jpg"></center>'
			' You went behind the counter to Givi and asked about undermining.'
			' "Wow, you Svetik he so bored!" said Givi K. unbuttoning his pants'
			act 'To kneel':
				cla
				*clr
				set bj += 1
				set dick = 20
				set harakBoy = 2
				set minut += 30
				set $nameV = 'Givi K.'
				$boy = 'Givi K.'
				set SUB += 1
				'<center><img src="images\picVA\barbj.jpg"></center>'
				'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				gs 'oral','start'
				'Givi hard grabbed you by the hair and pulled your mouth on his cock deeper.'
				act 'Continue to suck.':
					cla
					*clr
					set swallow += 1
					set cumlip += 1
					'<center><img src="images\picV\swallow1.jpg"></center>'
					'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
					set money += 500
					'Zahady-yet! - Says Givi gives you 500 rubles.'
					act 'Leave': gt 'kafe','start'
					end
				end
			end
		end
	end
if workKafe > 0:
	if GiviSex >= 2 and Givisexday < 1 and Venera < 4:
		act 'Provoke Givi':
			cla
			*clr
			set Givisexday = 1
			set GiviSex += 1
			'<center><img src="images\etogame\kafe.jpg"></center>'
			' You went behind the counter to Givi and asked about undermining.'
			' "Sverhurochnye want?" asked K. Givi and not interested in the answer took you by the hand'
			act 'To kneel':
				cla
				*clr
				set smenaKafe += 1
				set bj += 1
				set dick = 20
				set harakBoy = 2
				set minut += 30
				set $nameV = 'Givi K.'
				$boy = 'Givi K.'
				set SUB += 1
				'<center><img src="images\picVA\barbj.jpg"></center>'
				'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				gs 'oral','start'
				'Givi hard grabbed you by the hair and pulled your mouth on his cock deeper.'
				act 'Continue to suck.':
					cla
					*clr
					set swallow += 1
					set cumlip += 1
					'<center><img src="images\picV\swallow1.jpg"></center>'
					'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
					act 'Leave': gt 'kafe','start'
					end
				end
			end
		end
	act 'Resign':
		cla
		set work = 0
		set workKafe = 0
		set pay = smenaKafe * 600
		set money += pay
		set smenaKafe = 0
		'Givi K. sadly shook his head, "Okay, here´s your <<pay>> rubles and employment history. Go."'
		act 'Leave': gt 'kafe','start'
		end
	end
if workKafe > 0 and week > 1 and week < 5: 'Wah, Svetsik. Zachem skipping?'
if workKafe > 0 and week > 4: 'Wah, pryvet Svetsik!'
if givi = 1 and workKafe < 1: 'Listen to you.'
if givi = 0:
	set givi = 1
	'Pryvet! I Givi K.. Hozain cafe. What do you want?'
	end
if work = 0:
	act 'Ask whether he will take the job on you.':
		cla
		'You are asked whether you take Givi work.'
		if vnesh < 5: 'Wai wai wai, you scare me all the customers. Convergence, whether that priodensya, use the makeup, brush your hair. You look just terrible.'
		if vnesh >= 5:
			'Givi K. pristolno examines you from head to toe. "Okay, listen working conditions"'
			'"The cafe is open from 12 to 22 every day except Monday. Your change Tuesday, Wednesday, Thursday. Come to the café from 11 to 12, before opening it, and come out to replace it. Do not come to you this day will not be counted in the salary. Salary listed 25th Numbers for each shift the spent 600 rubles. Plus every day you can get a tip, it depends on you. And more free meals. "'
			'"Yeah, and I´ll take you work book, you can not be arranged for another job until I was fired. Well? Satisfied."'
			act 'Find a job':
				cla
				set work = 1
				set workKafe = 1
				set smenaKafe = 0
				'You gave Givi Karapetovich work book. He took it and remind you. "Come any day except Monday from 11 to 12 and work."'
				act 'Move away': gt 'kafe','start'
				end
			end
		act 'Move away': gt 'kafe','start'
		end
	end
act 'Move away': gt 'kafe','start'
end

if $ARGS[0] = 'work':
cla
*clr
set minut += 5
gs 'stat'
'<center><B><font color = maroon>Cafe</font></B></center>'
'<center><img src="images\etogame\kafe.jpg"></center>'
set smenaKafe += 1
'You have replaced the cafe, Givi K., wrote in a book that you came on time and stood at the bar. The kitchen is a cook sturdy young, Caucasian Ashot. Another waitress Irina preparing for work. Tamara dishwasher cleans the sink.'
act 'Start work':
	cla
	set minut = 0
	set hour = 12
	set Givi += RAND(5,10)
	gt 'kafe','workPred'
	end
act 'Resign':
	cla
	set work = 0
	set workKafe = 0
	set pay = smenaKafe * 600
	set money += pay
	set smenaKafe = 0
	'Givi K. sadly shook his head, "Okay, here´s your <<pay>> rubles and employment history. Go."'
	act 'Leave': gt 'kafe','start'
	end
end

if $ARGS[0] = 'workPred':
cla
*clr
gs 'kafedinamic'
gs 'stat'
'<center><B><font color = maroon>Cafe</font></B></center>'
'<center><img src="images\etogame\kafe.jpg"></center>'
'Café work boils, cook <a href="exec:dynamic $ashotdin">Ashot busy in the kitchen</a>, your workmate <a href="exec:dynamic $iradin">Ira</a> serves tables with visitors. The host <a href="exec:dynamic $gividin">Givi K.</a> stands behind the bar.'
clr
gs 'stat'
if Givi > 100: set Givi = 100
if Givi > 90 and GiviSex = 0: set Givi = 90
'<a href="exec:dynamic $kafetualet">Toilet</a>'
if IrinaSlut = 1 and hour = 22:
	cls
	set IrinaSlut = 2
	gs 'stat'
	'<center><B><font color = maroon>Cafe</font></B></center>'
	'<center><img src="images\etogame\kafe.jpg"></center>'
	'Job ended and Ira disappeared somewhere. Looking around you saw that Givi nowhere. Tamara slipped out the door, and Ashot puts the dishes in places.'
	act 'Search for missing where Ira':
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images\picKav\irinaslut.jpg"></center>'
		'You came to the back room from which he emerged pleased Givi fastening belt for trousers. He smiled at you and said, "Wai, a good whore you found me, help her, and that she is after this horseman does not come to life."'
		'You went into the back room and saw there Irina standing up naked butt cancer, which was a pool of sperm. Ira blissfully moaned "Such a thrill, I never happened."'
		act 'Ira and help hold up the house':
			cla
			minut += 15
			gs 'stat'
			'Taking a napkin you wiped the cum from her problem and helped her climb and put himself in order. Ira recognized with a beatific smile "Can Givi and chock-bellied ugly, but he fucked me like nobody fucked, I even lost consciousness from an orgasm."'
			'Have you done Ira home who could not move away from orgasm. Front of the entrance, she kissed you on the lips and left.'
			act 'Go home': gt 'street'
			end
		if horny >= 50:
			act 'Lick cum off her problem':
				cls
				horny += 10
				minut += 15
				cumlip += 1
				gs 'stat'
				'<center><img src="images\picKav\irinaslut2.jpg"></center>'
				'You kneel before just Fucked in all holes and ass Ira began to lick her reddened hole licking sperm.'
				'Ira moaned, "Oh, it´s so nice, and why I was afraid of this before?"'
				act 'Swallow sperm and conduct Ira home':
					cla
					minut += 15
					sub += 1
					swallow += 1
					gs 'stat'
					'You swallow sperm and helped her climb and put himself in order. Ira recognized with a beatific smile "Can Givi and chock-bellied ugly, but he fucked me like nobody fucked, I even lost consciousness from an orgasm."'
					'Have you done Ira home who could not move away from orgasm. Front of the entrance, she kissed you on the lips and left.'
					act 'Go home': gt 'street'
					end
				act 'Ira spit sperm in her mouth':
					cls
					minut += 5
					dom += 1
					gs 'stat'
					'<center><img src="images\picKav\irinaslut3.jpg"></center>'
					'You took a hands-il and his face lifted him, she readily opened her mouth where you spit, lick sperm transferred all Ire.'
					act 'Tselovatsya':
						cls
						sub += 1
						gs 'stat'
						'<center><img src="images\picKav\irinaslut4.jpg"></center>'
						'You dug lips lips Ira and started her tselovatsya exchanging sperm in your mouths, finally you both swallowed his part of the semen'
						act 'Ira conduct home':
							cla
							minut += 15
							gs 'stat'
							'You wiped the face of the remnants of sperm and helped her climb and put himself in order. Ira recognized with a beatific smile "Can Givi and chock-bellied ugly, but he fucked me like nobody fucked, I even lost consciousness from an orgasm."'
							'Have you done Ira home who could not move away from orgasm. Front of the entrance, she kissed you on the lips and left.'
							act 'Go home': gt 'street'
							end
						end
					act 'Ira conduct home':
						cla
						minut += 15
						dom += 1
						swallow += 1
						gs 'stat'
						'You wiped the face of the remnants of sperm and helped her climb and put himself in order. Ira recognized with a beatific smile "Can Givi and chock-bellied ugly, but he fucked me like nobody fucked, I even lost consciousness from an orgasm."'
						'Have you done Ira home who could not move away from orgasm. Front of the entrance, she kissed you on the lips and left.'
						act 'Go home': gt 'street'
						end
					end
				end
			end
		end
	exit
	end
if hour < 22:
	act 'Serve table':
		cls
		set minut += 30
		set manna -= 5
		set znarand = RAND(0,300)
		set chai = RAND(0, vnesh + oficiant/2)
		if oficiant < 100: set oficiant += 1
		if vital < 30: set vital += 1
		set money += chai
		if chai = 0: set willpower -= 5 & set manna -= 15
		set manna -= 5
		gs 'stat'
		'<center><img src="images\picKav\waitress_client.jpg"></center>'
		'You served table at which sat visitors and received <<chai>> rubles tip.'
		act 'Move away': gt 'kafe','workPred'
		if znarand > vnesh or bfA > 0:
			set kaferand = RAND(0,100)
			if kaferand = 0:
				cls
				gs 'stat'
				'<center><img src="images\img\spaln\kafe1.jpg"></center>'
				'Serving a table at one of the private booths you see two men seduce pretty drunk girl, soon she was on her knees sucking both of them, one of the men looking at you with a clear allusion to join.'
				act 'Leave': gt 'kafe','workPred'
				if daystart > 10 and sex > 0:
					act 'Prisoedinitsa to girl':
						set kafesexrand = 1
						set picrand = 13
						set guy += 2
						set girl += 1
						set gang += 1
						xgt 'sexdvanadva','var'
						end
					end
				end
			if kaferand = 1:
				cls
				gs 'stat'
				'<center><img src="images\img\spaln\kafe2.jpg"></center>'
				'You serve a table in the attic, with two men, each time you come they are and strive to pinch or slap you run your hands under her skirt.'
				act 'Leave': gt 'kafe','workPred'
				if daystart > 10 and sex > 0:
					act 'Succumb':
						set kafesexrand = 1
						set picrand = 17
						set guy += 2
						xgt 'sexdvoe','var'
						end
					end
				end
			if vnesh > 15:
				if kaferand = 2:
					cls
					'<center><img src="images\picKav\waitress_client.jpg"></center>'
					'At the table in a separate room sat a man. He looked appreciatively at you and said, "Girl, do not keep me company?" while you notice how bristling fly of his trousers, he obviously got dick.'
					act 'Leave': gt 'kafe','workPred'
					act 'Sit down next to him':
						cls
						'You sat down next to the client. And looked at him waiting for what he would do. Client took your palm and put it on the fly.'
						act 'Leave': gt 'kafe','workPred'
						if horny >= 50 or bj > 0:
							act 'Unbutton his pants':
								cls
								dick = RAND(12,21)
								gs 'stat'
								'<center><img src="images\picKav\waitress_work_2.jpg"></center>'
								'You undid his pants and got warm and hard cock <<dick>> cm long, covered with veins and a small drop of crimson on the head.'
								act 'Masturbate member':
									cls
									boy += 1
									hj += 1
									money += 500
									gs 'stat'
									'<center><img src="images\picKav\waitress_work_hj.jpg"></center>'
									'Clasping her fingers member you started to masturbate, a man fairly quickly groaned and discharged you in the palm. Then you wiped his penis tissue and he gave you 500 rubles for your work.'
									act 'Leave': gt 'kafe','workPred'
									end
								act 'Sucking dick':
									cls
									boy += 1
									bj += 1
									gs 'stat'
									'<center><img src="images\picKav\waitress_work_bj.jpg"></center>'
									dynamic $dinrandbj
									act 'Take sperm in her mouth':
										cls
										cumlip += 1
										money += 700
										gs 'stat'
										'<center><img src="images\picKav\waitress_work_bj2.jpg"></center>'
										dynamic $dinrandswallow
										act 'Leave': gt 'kafe','workPred'
										end
									end
								end
							end
						end
					end
				if kaferand = 3:
					cls
					'<center><img src="images\picKav\waitress_client.jpg"></center>'
					'At the table in a separate room sat a man. He looked appreciatively at you and said "- Girl, do not help? I have prepared for you a great tip, but accidentally dropped them under the table. And I myself have eaten too much so that they no longer will bend ..." while you notice how bristling fly on his trousers, he obviously got dick.'
					act 'Leave': gt 'kafe','workPred'
					act 'Crawl under the table':
						cls
						gs 'stat'
						'<center><img src="images\picKav\waitress_work_3_1.jpg"></center>'
						'- Well, now, - I replied.'
						'In the end, with the tip and not a sin under the table slazit. Standing on all fours and climbing under the table, I do find there pyatisotrublevuyu paper. But when I reach out, what would it take, a man comes to the edge of the shoe bill. Then unzips his pants and pulls out of his pants member.'
						act 'Leave': gt 'kafe','workPred'
						if horny >= 50 or bj > 0:
							act 'Suck':
								cls
								bj += 1
								guy += 1
								gs 'stat'
								'<center><img src="images\picKav\waitress_work_3_2.jpg"></center>'
								'And knew that the free cheese ... just not lying under the table.'
								'But I need these five hundred rubles, so I´m taking his cock hand and head straight into his mouth. The next five minutes, I carefully lick and chew it. Finally, the visitor made several short jerky movements hips starts to pour out hot cum into my mouth.'
								act '....':
									cls
									cumlip += 1
									cumface += 1
									money += 500
									gs 'stat'
									'<center><img src="images\picKav\waitress_work_3_3.jpg"></center>'
									'Filling my mouth to the brim, he took his foot off bills and I was finally able to pick it up.'
									act 'Leave': gt 'kafe','workPred'
									end
								end
							end
						end
					end
				end
			if kaferand = 4:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand.jpg"></center>'
				'Going into one of the stalls you saw the girl leaning over a guy sucking him.'
				act 'Tactfully leave':
					cls
					money += 300
					gs 'stat'
					'You tactfully left out of the booth, and after a couple of tips on the left found 300 rubles'
					act 'Leave': gt 'kafe','workPred'
					end
				act 'Troubled':
					cls
					gs 'stat'
					'You indignantly declared that the cafe is not a brothel, then people eat.'
					iverand = RAND(0,2)
					if iverand = 0: 'The guy has called you a bitch and severing his girlfriend blowjob retired from the cafe without leaving a penny tip.'
					if iverand = 1: 'Guy sent you fucking whore and called frigid, then finished in the mouth of his girlfriend and left without leaving a penny tip.'
					if iverand = 2:
						'The guy got into the purse and pulled pyatisotennuyu bill, "and to leave us alone"'
						act 'Expel them': gt 'kafe','workPred'
						act 'Leave':
							cls
							money += 500
							gs 'stat'
							'You took the money and left a couple of Entertaining letting on.'
							act 'Leave': gt 'kafe','workPred'
							end
						end
					act 'Leave': gt 'kafe','workPred'
					end
				if bj > 10 and swallow > 5 and horny >= 50:
					act 'Giggle':
						cls
						gs 'stat'
						'The girl looked up from the penis and waved his hand inviting you to join.'
						act 'Tactfully leave':
							cls
							money += 300
							gs 'stat'
							'You tactfully left out of the booth, and after a couple of tips on the left found 300 rubles'
							act 'Leave': gt 'kafe','workPred'
							end
						act 'Kneel before the guy':
							cls
							bj += 1
							if SergeaAndKatjaSex = 0: SergeaAndKatjaSex = 1 & guy += 1
							gs 'stat'
							'<center><img src="images\picKav\ivrandBJ.jpg"></center>'
							'You knelt down and started to suck dick with a girl kissing in the process.'
							act '....':
								cls
								cumlip += 1
								cumface += 1
								gs 'stat'
								'<center><img src="images\picKav\ivrandCUM.jpg"></center>'
								'Finally the guy broke down and began to finish. Hot sperm gets into your mouth and a little on the face. You dvoem Girl licking dick until dry.'
								if SergeaAndKatjaQW = 0:
									SergeaAndKatjaQW = 1
									'After blowjob guy introduced himself, "I Sergei and Katia it. Did not know what´s so hot waitresses work."'
									end
								act 'Leave': gt 'kafe','workPred'
								end
							end
						end
					end
				end
			if kaferand = 5:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand.jpg"></center>'
				'Serving tables you accidentally noticed as what that girl ukratkoy member Fingering her boyfriend.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 6:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand3.jpg"></center>'
				'Going into one of the stalls that you see sitting there a couple of girls and one of them on their knees licking vagina in another.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 7:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand4.jpg"></center>'
				'Passing the dance floor where you messed around pyanaya youth saw as one drunken girl sat on his haunches began to suck cock.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 8:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand5.jpg"></center>'
				'Walking past the bar you see as sort of a girl squatting sucks dick guy drinking beer ..'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 9:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand6.jpg"></center>'
				'Going into one of the stalls you see that there is the cheerful company of young people and one of the beautiful girls fucked doggy style right in front of the table.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 10:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand7.jpg"></center>'
				'On the dance floor fun girls lit.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 11:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand8.jpg"></center>'
				'You see how the two drunken girls lick passionately unashamedly anyone.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 12:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand9.jpg"></center>'
				'Do you see how drunk girl crawled under the table there losing something, she hiked skirt and no panties on my ass, so that almost all cafes can see all the content podyubochnogo space in detail.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 13:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand10.jpg"></center>'
				'You see as a drunken couple sports, girl licks cock and the guy pouring champagne in her mouth.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 14:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand11.jpg"></center>'
				'Do you happen to notice that a couple of fun chatting girls not only fun chatting, one of the girls put her hand into her panties and caresses her girlfriend there.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 15:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand12.jpg"></center>'
				'Do you see how the dance floor dancing with a Negro girl lapaya her for all that is possible, but the girl apparently do not mind.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 16:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand13.jpg"></center>'
				'Going into one of the stalls that you see guys play with girls cards on the strip and the girls obviously lose sitting in his underwear.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 17:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand14.jpg"></center>'
				'You see two guys dancing with a girl in every way it lapaya and bullying her skirt on the girl reacts laugh without even trying to cover up how your sirloin from the eyes of the public around them.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 18:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand15.jpg"></center>'
				'Do you see how the guy on the dance floor kiss with a girl and he ran his hand under her skirt practically fucks her fingers through the panties.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 19:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand16.jpg"></center>'
				'You see like a stand alone drunk girl spread Lyashko and at least buhoy and cheerful young man fuck her pussy with his fingers.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 20:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand17.jpg"></center>'
				'You see a guy hugs a drunken girl in the wood and took a mouthful of beer pouring it to her with a kiss until the second guy matzo her boobs.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 21:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand18.jpg"></center>'
				'Going into the attic you see two guys at both ends pyalyut girl who champs sucking cock and ass podmahivaet trying to spread on the second-Man as deeply as possible.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 22:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand19.jpg"></center>'
				'You see on the dance floor as one no longer young madam in revealing outfits dancing with a young guy to paw her.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 23:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand20.jpg"></center>'
				'You see two young guys bent girl and depict sex with her under the leaping laughter and cheerful girl.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand = 24:
				cls
				horny += 5
				gs 'stat'
				'<center><img src="images\picKav\ivrand21.jpg"></center>'
				'Going into one of the stalls you see a man licking pussy what that cheeky person who is a Lyashko put her on his back and catching buzz smokes a cigarette.'
				act 'Leave': gt 'kafe','workPred'
				end
			if kaferand >= 90 and opusk > 0 and pirsA = 0:
				cls
				'<center><img src="images\body\pirs.jpg"></center>'
				'Beckons you to one of the clients, you come to the table and notice that in front of you are the real criminals.'
				'When you come to the table, the leader called you closer to him, and when you come, it is very hard and painful grabbed you by the neck.'
				'The leader told you - vaflersha, open your mouth. You obediently opened his mouth, he looked back and you slapped you podschechinu. I do not see a pierced tongue. Vaflersha should wear piercings that would be a decent person could immediately understand that before it chlenososka.'
				'The leader turned to his mobsters said. Necessary to issue chlenososku. Tackle. At the same moment you grabbed strong arms and carried out of the cafe, there was thrown into the back seat of the jeep. And the jeep jumped up.'
				'Drove you not very long, riding up to what that goal, jeep honked and gates opened soundlessly. Jeep pulled into the teritory cottages. Strong ''brother dragged you out of the car and dragged him to the basement.'
				'The basement has all the tools were ready. You sat on a chair and a hefty tattooed bandyugan came to you with a clip and a pair of scissors, he pulled you out of the mouth and tongue pierced him with lightning speed needle. In a bleeding wound in the language he zasoval small bar.'
				set pirsA = 1
				set pirsday = day
				'Hell, it´s very painful. You moan with his tongue hanging out, laughing bandyuki your pain. Finally your tongue pulled out of the clamp. How did you hurt. Bandits escorted you out cottages.'
				act 'Go home': gt 'street'
			end
			if kaferand >= 8 and opusk > 0 and opusksexday = 0 and pirsA = 1 and hour >= 12 and hour <= 19:
				cls
				'Mob boss beckons you to his table. You approached him with trembling knees.'
				'He looks at you like a boa constrictor on the rabbit and says vaflersha, open your mouth. You open your mouth obediently and labeled and put out a tongue piercing.'
				'The leader took you in the face and saw piercing gaze. All the same, good job guys. Okay vaflersha on, get under the table and entertain me.'
				act 'Get under the table':
					cla
					'<center><img src="images\pics\glavarBJ.jpg"></center>'
					'You obediently crawl under the table and pulled out a member of the leader of his pants, dutifully caress his tongue and start sucking.'
					'Ringleader as if the whole is made of stone, he did not flinch a muscle when he emptied his sperm reserve your mouth.'
					if glavar = 0: Set glavar = 1 & Set guy+= 1
					bj+= 1
					set opusksexday = 1
					Set horand = RAND(1,100)
					if horand > horny: Set horny += 10 & 'You were not satisfied'
					if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
					cumface = cumface + 1
					'You swallow all his sperm and sucking him dry up.'
					act 'return to work': gt 'kafe','workPred'
				end
			end
		end
		if znarand <= vnesh and bfA <= 0:
			cls
			gs 'boy'
			'<center><img src="images\picKav\waitress_client.jpg"></center>'
			'The table sits <<$boybody>> <<$boybod>> <<$boyface>>. One <<$boyClo>>'
			'You took his order, he took the bill and asked if he could meet you.'
			act 'No':
				cla
				set money += 10
				'Angry man left you 10 rubles tip and left.'
				act 'Move away': gt 'kafe','workPred'
				end
			if bfA <= 0 or bfB = 0 or bfC = 0:
				act 'Yes':
					cla
					set money += 100
					gs 'boyfrend','start'
					set stopboy = 0
					'Man glad that you do not mind dating him. He introduced himself as <<$boy>> and asked for a phone number, promising to call you back tomorrow.'
					'Then leave you a hundred rubles tip and left.'
					act 'Move away': gt 'kafe','workPred'
					end
				end
			end
		end
	end
if hour >= 22:
	act 'This collection of home':
		cla
		if GiviSex = 0 and Givi < 90 or Vnesh < 0:
			'Givi you nods his head, "Goodbye, Svetik."'
			act 'Leave':
				cla
				set minut += 5
				gt 'kafeend'
				end
			else
				dynamic $givipredlogdin
			end
		end
	end
end

if $ARGS[0] = 'razvod':
cla
!*clr
!act 'Get up from the table': gt 'kafe','start'
Set deyst = RAND(0,3)
if deyst = 0:
	'<<$boy>> has invited you to dance.'
	act 'Dance': gt 'Kafe2','dance'
	if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
if deyst = 1:
	'<<$boy>> asked permission to sit down at a table to you.'
	act 'Drink': gt 'Kafe2','booze'
	if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
if deyst = 2:
	'<<$boy>> has invited you to join the party on which he walks.'
	act 'Agree': gt 'Kafe2','kampashka'
	if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
if deyst = 3:
	'<<$boy>> drunk in the trash and going to douse you have an incredible smell. "Hey baby, what time to pull? Come have fun in the outhouse."'
	act 'Agree': gt 'Kafe3','WC'
	if horny < 95:
		act 'Otshit':
			cla
			derand = RAND(0,100)
			if derand < vnesh:
				'Come on, baby, give two thousand. Daddy should have fun.'
				act 'Agree':
					money += 2000
					gt 'Kafe3','WC'
					end
				else
				'Well, okay, get out of here, you still have legs and curves fuck up like a monkey.'
				end
			act 'Fuck you': gt 'street'
			end
		end
	end
end
--- kafe ---------------------------------

# kafedinamic
$kafetualet = {
cls
'<center><img src="images\LakeCafe\Toilet.jpg"></center>'
'Dirty and smelly toilet that seems to have never been cleaned'
clr
gs 'stat'

turand = RAND(0,100)
if turand = 0:
cls
gs 'stat'
'<center><img src="images\picKav\tuarand.jpg"></center>'
'Go to the toilet as you saw in one of the booths drunk girl with bottle in hand rides a dick guy standing on the toilet rassevshegosya.'
act 'Leave': gt 'kafe','workPred'
exit
end
if turand = 1:
cls
gs 'stat'
'<center><img src="images\picKav\tuarand1.jpg"></center>'
'Go to the toilet that you saw what that skinny girl sucks dick at the guy who shoots everything on camera.'
act 'Leave': gt 'kafe','workPred'
exit
end
if turand = 2:
cls
gs 'stat'
'<center><img src="images\picKav\tuarand2.jpg"></center>'
'Go to the toilet you caught what that redhead girlfriend for suction member.'
act 'Leave': gt 'kafe','workPred'
exit
end

	act 'Look in the mirror':
		cla
		gs 'portmirror'
		set $goto1 = 'kafedinamic'
		set $goto2 = ''
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			dynamic $kafetualet
		end
	end


	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
		act 'Wash up (0:15)':
		cla
		*clr
		dynamic $showerdin
		set sweat -= 1
		set minut += 15
		'<center><img src="images\pics\wash5.jpg"></center>'
		'You carefully washed sperm with yourself.'
		act 'Exit': dynamic $kafetualet
		end
	end

	if cumlip > 0 or cumface > 0:
		act 'Wash cum off face (0:15)':
		cla
		*clr
		set mop = 1
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 15
		'<center><img src="images\etogame\facesp.jpg"></center>'
		'You carefully washed sperm from her face.'
		act 'Exit': dynamic $kafetualet
		end
	end

	if cumfrot > 0:
		act 'Wipe the cum from clothing (0:15)':
		cla
		*clr
		set cumfrot = 0
		set sweat -= 1
		set minut += 15
		!'<center><img src="images\etogame\facesp.jpg"></center>'
		'You erase traces of semen from the clothes.'
		act 'Exit': dynamic $kafetualet
		end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		act 'Finish': dynamic $kafetualet
		end
	end

act 'Leave': gt 'kafe','workPred'
}
$gividin = {
cls
gs 'stat'
if hour < 22:
'You came to the bar behind which stands the host cafe Givi K., he´s not looking up from wiping glasses looked at you.'
	if hour = 20 and Givi >= 90:
		act 'Beg off Givi':
		cla
		set minut += 5
		set Givi -= 5
		'You take time off to leave early Givi K.. He was a little angry but let you go.'
		act 'Move away': gt 'street'
		end
	end

	if Kavslut > 0 and IrinaQW >= 10 and IrinaSlut = 0 and hour <= 20:
		act 'Ask Givi raise salaries Ire':
		cla
		IrinaSlut = 1
		set minut += 30
		gs 'stat'
		'You are asked to raise the salary Givi Ira. Givi grunted "What for?" You appeal to the fact that she is your close friend and want to help her. Givi promised to think about the wage increase.'
		act 'Move away': gt 'kafe','workPred'
		end
	end

	act 'Chat with Givi':
	cla
		if GiviSex = 0:
		set minut += 30
		set manna += 5
		if Givi <= 90: set Givi += RAND(10,25)
		if Givi > 90 and GiviSex = 0: Givi = 90
		'You talked at the bar with a cafe owner and part-time bartender Givi K..'
			if Givi = 90:
			'Departing from Givi you suddenly got a hand slap on the ass. Turning around you saw that Givi smiling.'
			end
		act 'Move away': gt 'kafe','workPred'
		end

		if GiviSex >= 1 and kavslut = 0:
		set minut += 63
		set manna += 5
		Givi = 100
		'You talked at the bar with a cafe owner and part-time bartender Givi K..'
		'Wai Svetik, I enjoyed it so much last time. Stay with me tonight, help.'
		'Departing from Givi you suddenly got a hand slap on the ass. Turning around you saw that Givi smiling.'
		act 'Move away': gt 'kafe','workPred'
		end


		if GiviSex >= 1 and kavslut > 0:
		set minut += 30
		set manna -= 5
		set Givi = 100
		set givirand = RAND(0,100)
			if givirand < 10 and Venera < 4:
			'"Svetik I what that napryazhonny, take away my stress" With these words, Givi took you by the hand'
				act 'To kneel':
				cla
				*clr
				set smenaKafe += 1
					if giviSex < 2: set GiviSex = 2
				set bj += 1
				gs 'bdman','givi'
				set SUB += 1
				gs 'stat'
				'<center><img src="images\picVA\barbj.jpg"></center>'
				'You bent down and hid from visitors to the high bar, knelt before Givi, he took a member.'
				gs 'bdsex','autobj'
				'Givi hard grabbed you by the hair and pulled your mouth on his cock deeper.'
					act 'Continue to suck.':
					cla
					*clr
					set swallow += 1
					set cumlip += 1
					gs 'stat'
					'<center><img src="images\picV\swallow1.jpg"></center>'
					'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boy>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
					act 'Move away': gt 'kafe','workPred'
					end
				end
				if GiviSex < 2:
					act 'Sdurel what?':
					cla
					'"Wow, you Svetik you PVCs slut zachem soprotivlyaeshsya I tebe money in salary´ll write more, there will be many deneg dresses buy kasmetika." said Givi'
					act 'Move away': gt 'kafe','workPred'
					end
				end
			end
			if givirand >= 10 or Venera >= 4:
			'Givi strongly slapped you in the ass and whinnied. "<<$name>>, zvezda mineta!"'
			act 'Move away': gt 'kafe','workPred'
			end
		end
	end
else
	if Vnesh < 0:
	'Givi you nods his head, "Goodbye, Svetik."'
		act 'Leave':
		cla
		set minut += 5
		gt 'kafeend'
		end
	else
	dynamic $givipredlogdin
	end
end
}

$ashotdin = {
cls
gs 'stat'
'You went into the kitchen where he studied cooking chef Ashot. Dishwasher <a href="exec:dynamic $tamdin">Tamar</a> as always stands near the sink and washes the dishes.'

if hour < 22:
	act 'Eating and drinking in the kitchen':
	cla
	set minut += 30
	gs 'stat'
	frost = 0
	set health += 10
		if energy >= 30:
		set fat += 5
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		set fat += 1
		'You gladly ate cooked food.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	act 'Move away': gt 'kafe','workPred'
	end

	act 'Chat with Ashot':
	cla
	set minut += 30
	set manna += 5
	gs 'stat'
	if Ashot <= 90: set Ashot += RAND(0,5)

		if giviSex > 0 and Ashotsex = 0:
			if Ashot <= 90: set Ashot = 90
			set horny += 10
			'When you entered the kitchen, Ashot came up to you and squeezed his hand your buttock, you can even squealed. Ashot laughed.'
			act 'Move away': gt 'kafe','workPred'
		end
		if giviSex = 0 and Ashotsex = 0:
			'You talked in the kitchen with the chef Ashot.'
			act 'Move away': gt 'kafe','workPred'
		end
		if giviSex > 0 and Ashotsex > 0:
		set Ashotrand = RAND(0,100 )
			if Ashotrand > 20:
				set horny += 10
				'"You´re a cool bitch" said Ashot grabbing you in the ass.'
				act 'Move away': gt 'kafe','workPred'
			end
			if Ashotrand <= 20:
			*clr
			cla
			'When you entered the kitchen, Ashot came up to you and squeezed his buttocks your hands "- Razdevaysya My dick miss on your ass"'
				act 'Allow':
				*clr
				cla
					if analplugin = 1 :
						*clr
						cla
						'<center><img src="images\picKav\analplug.jpg"></center>'
						'Wai what razvratnytsa! - Ashot vosklikunul pulling out of your ass anal plug.'
						set analplugin = 0
						act 'Become confused':

							*clr
							cla
							'<center><img src="images\picKav\analkafe.jpg"></center>'
							'Then you put the cancer and put the dick in the ass. Without giving time sphincter to relax, he was rude to fuck you deep pounding cock. Ashot gripped your hips from members beat you in the ass tears flowed from his eyes. "- Move your ass, move, lustful whore!"'
							act 'Moan':
							*clr
							cla
							'<center><img src="images\picKav\kafeanpie.jpg"></center>'
							set horny += SUB - DOM + ((anus-18)*3)
							'Ashot leaned forward thrusting his cock as deeply as possible.'
							set anal += 1
							if 18 > anus: set anus += 1
							if horny >= 100 :
								horny  = 1
								set orgasm += 1
								set analorgasm += 1
								'In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
							end

							'Hot jet of sperm hit your anus. Ashot finished and hit you in the ass, saying that such a hole to fuck and need to fuck. And then pulled out a member and you feel like out of your ass rastrahannoy flowed a trickle of sperm. .'
							set Ashotsex += 1
							set cumanus += 1
							act 'Move away': gt 'kafe','workPred'
							end
						end
					else
						'<center><img src="images\picKav\analkafe.jpg"></center>'
						'Then you put the cancer and put the dick in the ass. Without giving time sphincter to relax, he was rude to fuck you deep pounding cock. Ashot gripped your hips from members beat you in the ass tears flowed from his eyes. "- Move your ass, move, lustful whore!"'
						act 'Moan':
							*clr
							cla
							'<center><img src="images\picKav\kafeanpie.jpg"></center>'
							set horny += SUB - DOM + ((anus-18)*3)
							'Ashot leaned forward thrusting his cock as deeply as possible.'
							set anal += 1
							if 18 > anus: set anus += 1
							if horny >= 100 :
								horny  = 1
								set orgasm += 1
								set analorgasm += 1
								'In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
							end

							'Hot jet of sperm hit your anus. Ashot finished and hit you in the ass, saying that such a hole to fuck and need to fuck. And then pulled out a member and you feel like out of your ass rastrahannoy flowed a trickle of sperm. .'
							set Ashotsex += 1
							set cumanus += 1
							act 'Move away': gt 'kafe','workPred'
						end
					end
				end

			end

		end

	end

	if giviSex = 0 and Ashotsex > 0:
	set horny += 10
	'"Slyushay, you´re so juicy ass around my dick skewers wai still remember." said Ashot grabbing you in the ass.'

	end
else
'Ashot lays kitchen appliances in their places ready to go.'
end
act 'Move away': gt 'kafe','workPred'
}



$iradin = {
cls
gs 'stat'
'Ira just not worth than not occupied at the counter.'
if hour < 22:
	act 'Chat with Irina':
	cla
	set minut += 30
	set manna += 5
	gs 'stat'
	set willpower += RAND(0,1)
	if Irina <= 100: set Irina += RAND(0,5)
	gs 'stat'
	'You chatted with the waitress at the bar Ira.'
		if IrinaQW ! 10 or IrinaLesbSex >= 3:
			if GiviSex >= 1 and Kavslut = 0:
			'Ira with round eyes tells you that rumor goes, if you Givi in ​​the mouth take.'
			end
			if Kavslut > 0:
			'Ira tells you that she knows that you fuck Caucasians in the evenings at the moment.'
			end
		end

		if IrinaQW = 10 and IrinaLesbSex = 2:
		IrinaLesbSex = 3
		'Irina bit more relaxed and not twitches in your appearance.'
		end
		if IrinaQW = 10 and IrinaLesbSex = 1:
		IrinaLesbSex = 2
		'Irina you smiling and trying to communicate, but it goes like this strained.'
		end
		if IrinaQW = 10 and IrinaLesbSex = 0:
		IrinaLesbSex = 1
		'Irina clearly looks confused and tries not to look you in the eye. You approached her and tried to calm her down. Irina you nodded and said, "Let´s work to pretend that nothing happened. I do not want that to somebody about it knew." You agree with Ira.'
		end
	act 'Move away': gt 'kafe','workPred'
	end
else
	if IrinaSlut >= 2:
	dynamic $givipredlogdin
	end
	if IrinaSlut < 2:
		act 'Go home with Irina':
		cla
		Irina += 5
		set minut += 5
		gs 'stat'
			if Irina < 100:
				if Irina < 50:
					if GiviSex >= 1 and Kavslut = 0:
					$irinatalk = 'Along the way she basically silent and looks askance at you'
					elseif Kavslut > 0:
					$irinatalk = 'Along the way she basically silent and looks askance at you.'
					else
					$irinatalk = 'Irina mostly silent all the way.'
					end
				$irinaend = 'Near the entrance is reserved to you goodbye and goes to his home.'
				end
				if Irina >= 50:
					if GiviSex >= 1 and Kavslut = 0:
					$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
					elseif Kavslut > 0:
					$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about the adventures with hachami wondering how you can be a litter like you.'
					else
					$irinatalk = 'Irina on the road is about trifles.'
					end
				$irinaend = 'Near the entrance she waves a hand and you go to his home.'
				end
			end
			if Irina >= 100 and IrinaQW = 1:
				if GiviSex >= 1 and Kavslut = 0:
				$irinatalk = 'Irina on the way talks about her ex-boyfriend.'
				elseif Kavslut > 0:
				$irinatalk = 'Irina on the way talks about her ex-boyfriend. And also about how she once made a blowjob in the toilet of the club drunk with what that guy.'
				else
				$irinatalk = 'Irina chatted all the way to the time of day.'
				end
			$irinaend = 'Ira standing at the entrance invites you to come to her.'
			act 'Enjoy a visit to Ira': gt 'IrinaRoom','first'
			end
			if Irina >= 100 and IrinaQW >= 10 and IrinaSlut >= 2:
				if Kavslut > 0:
				$irinatalk = 'Ira smiling tells that she had long wanted to stop being a nun and live freely and she thanks you for your help ..'
				end
			$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
			act 'Going to visit Ira': gt 'IrinaRoom','first'
			end
			if Irina >= 100 and IrinaQW >= 10 and IrinaSlut = 1:
				if GiviSex >= 1 and Kavslut = 0:
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure.'
				elseif Kavslut > 0:
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure. She notes that although you obviously more experience, so that Ira never slept with two men at once.'
				else
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure.'
				end
			$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
			act 'Going to visit Ira': gt 'IrinaRoom','first'
			end
			if Irina >= 100 and IrinaQW >= 10 and IrinaSlut = 0:
				if GiviSex >= 1 and Kavslut = 0:
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure.'
				elseif Kavslut > 0:
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure. She notes that although you obviously more experience, so that Ira never slept with two men at once. She also asks her to speak to her before Givi word, she also wants to raise.'
				else
				$irinatalk = 'Ira smiling surprised that he did not expect to have sex with a woman so much pleasure.'
				end
			$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
			act 'Going to visit Ira': gt 'IrinaRoom','first'
			end
			if Irina >= 100 and IrinaQW = 2:
				if GiviSex >= 1 and Kavslut = 0:
				$irinatalk = 'Irina mostly silent all the way, but mustered determination says he did not expect that it did not expect from you, in order that you not only sleep with men, but also women. Trying to be polite, it tells you that in general it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				elseif Kavslut > 0:
				$irinatalk = 'Irina mostly silent all the way, but mustered determination says that from such a whore as you can of course was all expect and tells you that you do without brakes. Trying to be polite, it tells you that in general it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				else
				$irinatalk = 'Irina mostly silent all the way, but mustered determination says did not expect that such a nice girl like you, actually lesbian. Trying to be polite, it tells you that in general it is not against sex minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
				end
			$irinaend = 'Approaching the entrance it goodbye and leaves.'
			end
			if Irina >= 100 and IrinaQW = 0:
			set IrinaQW = 1
			$irinatalk = 'Ira chirps fun all the way.'
			$irinaend = 'She invites you like something on Saturday to go to visit her and goes to his entrance.'
			end
			'You came and went home with Irina. <<$irinatalk>> you get to the house where he lives Il. <<$irinaend>>'
		act 'Say goodbye': gt 'street'
		end
	end
end
}

$tamdin = {
cls
gs 'stat'
'Tamara without interrupting the dishes turned to you.'
if hour < 22:
	act 'Chat with Tamara':
	cla
	set minut += 30
	set manna += 5
	set willpower += RAND(0,2)
	if Tamara <= 100: set Tamara += RAND(0,5)
	'You talked in the kitchen with a dishwasher Tamara.'
		if GiviSex >= 1 and Kavslut = 0:
		'Tamara snorts. It is necessary, and not ashamed to suck Givi for wages, how disgusting!'
		end
		if Kavslut > 0:
		'Caucasian slut you stomp away.'
		end
	act 'Move away': gt 'kafe','workPred'
	end
else
'She already going home and offers to go along.'
	act 'Go home with Tamara':
	cla
	set minut += 5
	if clener = 1: 'You walk down the street with Tamara, she does not live podaleku from you and when you come to her house she stops poproschatsya with you.'
	if clener = 0: clener = 1 & 'You walk down the street with Tamara, Tamara tells you that she sometimes works as a cleaner in an office building nearby.'
	act 'Say goodbye': gt 'street'
	end
end
}

$givipredlogdin = {
if IrinaSlut >= 2:
'Givi revolves around Ira and Givi not how much embarrassed squeezes her ass and snorts "Wai, Ira, you´re a real slut." He turns to you, "Hey Svetik Stay evening, earn bonuses."'
	act 'Well stay with them':
	gt 'kavkazkafe','podgivi'
	end

	act 'Go home':
	cla
	set minut += 5
	gt 'kafeend'
	end
exit
end
'Givi walks with a notepad and recalculates the bottle. Wai <<$name>>, ti smart head, help count bottles.'
	act 'Sorry, but I must go home':
	cla
	set minut += 5
	'You apologized and steel This collection of home.'
		if GiviSex > 0:
		'Wai Svetik. Remain STEM earn entertain.'
			act 'Yet I´m home':
			cla
			set minut += 5
			gt 'kafeend'
			end

			act 'Help Givi':
			gt 'kavkazkafe','podgivi'
			end
		exit
		end
		if GiviSex = 0:
		'Wai Svetik why offend you? I feel about you as a mother. And you do not want to help the old man.'
			act 'Yet I´m home':
			cla
			Givi = 0
			set minut += 5
			gt 'kafeend'
			end

			act 'Help Givi':
			gt 'kavkazkafe','podgivi'
			end
		exit
		end

		act 'Go home':
		cla
		set minut += 5
		gt 'kafeend'
		end
	end

	act 'Help Givi':
	gt 'kavkazkafe','podgivi'
	end
}
--- kafedinamic ---------------------------------

# kafeend

endrand = RAND(0,100)

if endrand > 15:
gt 'street'
else
	if endrand = 0:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand.jpg"></center>'
	'On leaving the cafe you saw a large crowd of young people deciding where to move on. You´ll also notice that one of the girls wasted no time in vain started doing blowjob her boyfriend completely undeterred adventitious.'
	act 'Leave': gt 'street'
	end
	if endrand = 1:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand1.jpg"></center>'
	'Coming out of the cafe you notice the car standing in the dark, passing out of it you see a light in the open trunk of what that guy zhetko hammer chick, so much so that as much shock and creaking machine raskazivaetsya. Litter only moans and whispers, "More, more!"'
	act 'Leave': gt 'street'
	end
	if endrand = 2:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand2.jpg"></center>'
	'On leaving the cafe you saw a large crowd of young people deciding where to move on. In the crowd you are surprised to see how one of the girls licking pussy another without paying attention to others.'
	act 'Leave': gt 'street'
	end
	if endrand = 3:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand3.jpg"></center>'
	'Coming out of the cafe you way home and when you walked past the car, you suddenly saw a woman sitting on his heels does blowjob contented guy in front of her.'
	act 'Leave': gt 'street'
	end
	if endrand = 4:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand4.jpg"></center>'
	'Coming out of the cafe you went home and noticed how the side of the cafe a couple fucking. Maid squatted and sucked cock.'
	act 'Leave': gt 'street'
	end
	if endrand = 5:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand5.jpg"></center>'
	'Coming out of the cafe you way home and when you walked past the car, you suddenly saw a woman sitting in the front seat of the car makes blowjob guy smacking a member in his mouth.'
	act 'Leave': gt 'street'
	end
	if endrand = 6:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand6.jpg"></center>'
	'Coming out of the cafe as you notice between parked cars sitting girl with his pants down and pissing smiling blissfully.'
	act 'Leave': gt 'street'
	end
	if endrand = 7:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand7.jpg"></center>'
	'Coming out of the cafe you notice what that laughing maiden who danced bullying legs while still managed to drink from the cup.'
	act 'Leave': gt 'street'
	end
	if endrand = 8:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand8.jpg"></center>'
	'Coming out of the cafe you noticed a girl lying on the pavement, she wore only a sweater does not hide her naked pussy. The girl was obviously drunk as a skunk.'
	act 'Leave': gt 'street'
	end
	if endrand = 9:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand9.jpg"></center>'
	'Coming out of the cafe you noticed that on the bench asleep drunk vusmert guy with a girl, apparently sleep caught them directly during petting thought you eyeing them.'
	act 'Leave': gt 'street'
	end
	if endrand = 10:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand10.jpg"></center>'
	'Coming out of the cafe as you notice what that middle-aged man and a drunk girl in the trash trying to drag the machine is off the girl.'
	act 'Leave': gt 'street'
	end
	if endrand = 11:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand11.jpg"></center>'
	'Coming out of the cafe, you notice that right near the entrance lying on the pavement located drunk girl passed out.'
	act 'Leave': gt 'street'
	end
	if endrand = 12:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand12.jpg"></center>'
	'Coming out of the cafe, you notice that the girl fell asleep drunk ass sitting in an urn and collapsed there.'
	act 'Leave': gt 'street'
	end
	if endrand = 13:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand13.jpg"></center>'
	'Coming out of the cafe you notice one girl trying to unstick from the asphalt his drunken girlfriend who mumbles something and drunkenly giggling.'
	act 'Leave': gt 'street'
	end
	if endrand = 14:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand14.jpg"></center>'
	'Coming out of the cafe you notice lying drunk girl without panties.'
	act 'Leave': gt 'street'
	end
	if endrand = 15:
	horny += 5
	gs 'stat'
	'<center><img src="images\picKav\arand15.jpg"></center>'
	'Coming out of the cafe, you notice how the male leads somewhere that his little wife dopilas spree before it began to show striptease on the street.'
	act 'Leave': gt 'street'
	end
end
--- kafeend ---------------------------------

# kavkazkafe
if $ARGS[0] = 'podgivi':
gs 'bdman','givi'
gs 'dinsexgivi'
minut += 30
gs 'stat'
podrand = RAND(0,100)
if IrinaSlut >= 2:
	cla
	*clr
	if bjgiviiraonce = 1: bjgiviiraonce = 0
	smenaKafe = smenaKafe + 1
	tiprand = RAND(0,1)
	if tiprand = 0:
		'Givi grinned grabbing you both hands "Wai, come heifers, have fun."'
		act 'Go.': gt 'kavkazkafe','threesome'
		end
	if tiprand = 1:
		'Ashot entered the room and said, "Well bitch, fingering holes now have real horsemen in all holes otebut."'
		act 'Go.': gt 'kavkazkafe','foursome'
		end
	exit
	end
if podrand < 70 and kavslut > 0:
	gs 'bdman','ashot'
	'<center><img src="images\picKav\podsob.jpg"></center>'
	'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
	'Suddenly the door opened into the back room and came back Ashot. You looked at Caucasians.'
	'Givi said wai, but what? We liked Svetik, cup your hole, now you two fuck horseman, age will not forget.'
	act 'Leave': gt 'street'
	act 'Okay.': gt 'kavkazkafe','grup'
	exit
	end
if podrand < 70 and kavslut = 0 and giviAnalOnce = 1:
	gs 'bdman','ashot'
	'<center><img src="images\picKav\podsob.jpg"></center>'
	'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
	'Suddenly the door opened into the back room and came back Ashot. You looked puzzled Givi.'
	'Givi smiled. "Svetochka, my nephew Ashotiku is high time to become a man, I hope you can help him in premium will not be found."'
		act 'But for whom do you take me?':
		cla
		'You rebelled "But for whom do you take me?"'
		'Givi laughed. "Come boldly devochka. I know you want potrahatsya two such jigits, wai we will not tell anyone, do not be afraid."'
		'Ashot came up to you and put his hand that would hug you.'
			act 'Allow yourself to embrace': gt 'kavkazkafe','grup'
			act 'All that´s enough from me, I´m going home!':
			cla
			'You blurted out, "All this is enough to me, I´m going home!" and turned to walk toward the exit.'
			'Givi trotted after "Svetik well wait I´m poshyutil, zachem offended?"'
			act 'Leave': gt 'street'
			end
		end
		act 'Well, let´s.': gt 'kavkazkafe','grup'
	exit
	end

'<center><img src="images\picKav\podsob.jpg"></center>'
'You went into the back room with Givi and began to count the wine and talking Givi figures which he wrote in his notebook.'
'Givi told you count wine in a box from the bottom, you bent over and began to count.'
if givisex = 0:
	'You felt like a hand clutched Givi your ass and started stroking you from behind.'
		act 'Continue to consider pretending you do not notice':
		cla
		gs 'stat'
		'You grinned and continued to take it as not in what happened. Givi already being groped by your priest hands.'
		'(Givi) - Svetik. I want you. Come to me sweetie.'
		'Strong hands Givi deployed you to him. And you were face to face with Givi.'
		act 'To kneel': gt 'kavkazkafe','givibj'
			act 'But for whom do you take me?':
			cla
			'You rebelled "But for whom do you take me?"'
			'Givi zauhmylyalsya. "You´re a whore, zachem booty before Werth guy?"'
					act 'To kneel':
					money += 5000
					gt 'kavkazkafe','givibj'
					end
				act 'All that´s enough from me, I´m going home!':
				cla
				'You blurted out, "All this is enough to me, I´m going home!" and turned to walk toward the exit.'
				'Givi grabbed you by the arm and dragged her to a chair in the back.'
				act 'Trying to pull his hand': gt 'kavkazkafe','givirape'
				end
			end
		end
		act 'Remove his hands':
		cla
		gs 'stat'
		'You straightened up and looked at the Givi. "What do you allow yourself Givi K.?"'
		'Givi licking and devouring you burning eyes spoke haltingly "Wai Svetik, you´re so juicy, slyushay, you want money I´ll do bonus, you´ll live like a queen."'
		act 'To kneel': gt 'kavkazkafe','givibj'
			act 'But for whom do you take me?':
			cla
			'You rebelled "But for whom do you take me?"'
			'Givi zalopotal again stepping on you and clasping hands. "Come boldly devochka. Want, I´ll now give deneg? Five thousand? And bonus."'
					act 'To kneel':
					money += 5000
					gt 'kavkazkafe','givibj'
					end

				act 'All that´s enough from me, I´m going home!':
				cla
				'You blurted out, "All this is enough to me, I´m going home!" and turned to walk toward the exit.'
				'Givi trotted after "Svetik well wait I´m poshyutil, zachem offended?"'
				act 'Leave': gt 'street'
				end
			end
		end
	else
	'Givi relish slapped you in the ass hand.'
	'(Givi) - Wai, what is tebya ass. Svetsik suck me, I will add you bonus.'
	act 'To kneel': gt 'kavkazkafe','givibj'
	act 'Leave': gt 'street'
	end
end

if $ARGS[0] = 'grup':
Givi = 100
smenaKafe = smenaKafe + 2
if GiviSex = 0: set GiviSex = 1 & set guy += 1
if Ashotsex = 0: set Ashotsex = 1 & set guy += 1
minut += 5
kavslut += 1
gang += 1
bj += 2
gs 'stat'
picrand = RAND(0,1)
if picrand = 0: '<center><img src="images\picKav\grupbj.jpg"></center>'
if picrand = 1: '<center><img src="images\picKav\grupbj1.jpg"></center>'
'You knelt down and took both hands members. You obediently opened his mouth and wrapped around <<$liptalk>> purple and warm dick started to absorb it in your mouth after a few movements you masturbate without stopping first term cupped his second term working mouth and began to suck it, so you take turns sucking members and tried to take just two dick in your mouth working.'
act 'Helplessly moo': gt 'kavkazkafe','grup1'
end

if $ARGS[0] = 'grup1':
minut += 5
gs 'stat'
picrand = RAND(0,1)
if picrand = 0: '<center><img src="images\picKav\grupv.jpg"></center>'
if picrand = 1: '<center><img src="images\picKav\grupv1.jpg"></center>'
dynamic $sexudo
'You suck his dick Givi <<$liptalk>> absorbing his every move to the throat until Ashot hews your pussy.'
if givserand >= 8: anus += 1 & 'During sex Ashot you stuck a finger in the ass and started rubbing it.'
gianrand = RAND(0,10)
	if anus > 1 and gianrand >= 8:
	'Ashot suddenly took out a member and you become stronger fingers to work in your ass.'
	act 'Suck givi': gt 'kavkazkafe','grup2'
	exit
	end
'Ashot suddenly pulled out of you cock and taking you by the shoulders put in front of him on his knees.'
act 'Substitute person': gt 'kavkazkafe','grupcum'
end

if $ARGS[0] = 'grup2':
minut += 5
gs 'stat'
picrand = RAND(0,1)
if picrand = 0: '<center><img src="images\picKav\grupd.jpg"></center>'
if picrand = 1: '<center><img src="images\picKav\grupd1.jpg"></center>'
if picrand = 2: '<center><img src="images\picKav\grupd2.jpg"></center>'
'You continue to suck his dick Givi <<$liptalk>> absorbing his every move to the throat until Ashot busy behind you.'
gs 'bdsex','an'
gianrand = RAND(0,10)
	if anus > 1 and gianrand >= 8:
	'Ashot suddenly took out a member and you become stronger fingers to work in your ass.'
	act 'Double Penetration': gt 'kavkazkafe','grup3'
	exit
	end
'Ashot suddenly pulled out of you cock and taking you by the shoulders put in front of him on his knees.'
act 'Substitute person': gt 'kavkazkafe','grupcum'
end

if $ARGS[0] = 'grup3':
minut += 5
gs 'stat'
picrand = RAND(0,1)
if picrand = 0: '<center><img src="images\picKav\grupdouble.jpg"></center>'
if picrand = 1: '<center><img src="images\picKav\grupdouble1.jpg"></center>'
if picrand = 2: '<center><img src="images\picKav\grupdouble2.jpg"></center>'
'Givi and Ashot administered in you its members.'
gs 'bdman','givi'
dynamic $sexudo
gs 'bdman','ashot'
gs 'bdsex','an'
'Ashot suddenly pulled out of you cock and taking you by the shoulders put in front of him on his knees.'
act 'Substitute person': gt 'kavkazkafe','grupcum'
end

if $ARGS[0] = 'grupcum':
minut += 5
facial += 1
cumface += 2
gs 'stat'
'<center><img src="images\picKav\grupcum.jpg"></center>'
'You kneel and Ashot Givi together began to cum on your face, covering it with hot and sticky cum gushing that you warm in the face and degrading streams and trickled down.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givirape':
Givi = 100
smenaKafe = smenaKafe + 1
if GiviSex = 0: set GiviSex = 1 & set guy += 1
rape += 1
givirape += 1
minut += 5
manna -= 20
gs 'stat'
'<center><img src="images\picKav\rape.jpg"></center>'
'Givi took the tape and began to bind you, that you would not pre-plugged fluttered you gag.'
'Finally, he shook you so that you could not even twitch.'
act 'Helplessly moo': gt 'kavkazkafe','givirape1'
end

if $ARGS[0] = 'givirape1':
minut += 5
bj += 1
gs 'stat'
'<center><img src="images\picKav\rape1.jpg"></center>'
'Givi took and put a gag in your mouth his thick, not washed member.'
act 'Suck': gt 'kavkazkafe','givirapebj'
act 'Bite': gt 'kavkazkafe','givirape2'
end

if $ARGS[0] = 'givirapebj':
minut += 5
if mop > 1: set mop = 0
hapri = 0
throat = throat + 1
cumlip += 1
swallow += 1
money += 5000
'<center><img src="images\picKav\rape1.jpg"></center>'
'Not seeing any other way you started to work diligently mouth that would hurry Givi finished. Givi went into a rage and began to peck you with his cock in her mouth hitting every movement in your throat.'
if mop > 1: set mop = 0 & 'You started crying and smeared kometiki face.'
'Givi finally grunted and hot jet of sperm hit you in the throat. You started frantically ingest it that would not choke.'
gs 'stat'
'After Givi finished, he immediately mellowed and began to untie you. Wai Svetik, you´re a good nipple. Deneg on you, buy yourself something.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givirape2':
minut += 5
money += 5000
'<center><img src="images\picKav\rape2.jpg"></center>'
'You bit Givi member and furious, then I´ll fuck you in the ass whore, just do not want to suck.'
'You feel like something big and hard pressed to your anus trying to enter.'
	if anus >= 1:
	anus += 3
	anal += 1
	cumass += 1
	manna -= 100
	horny = 0
	'Givi pushed harder and his cock flew into your ass. You squealed madly pain. Givi began to peck you in the ass without lubrication without paying what you roared as beluga.'
	'Anal rape seemed like an eternity, finally Givi groaned and stopped you feel as heat from the ass poured his sperm.'

	end

	if anus <= 0:
	'Ah, what do you narrow, did not go, okay, then you pussy fuck off.'
	dynamic $sexudo
	'You moaned and groaned gagged until your insides hollowed Givi a member.'
	pose = 1
	dynamic $sexcum

	end
gs 'stat'
'After Givi finished, he immediately mellowed and began to untie you. Wai Svetik, Do not cry, you´re a woman, you are destined for a man to lie, and you kochevryazhishsya. Deneg on you, buy yourself something.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givibj':
Givi = 100
smenaKafe = smenaKafe + 1
if GiviSex = 0: set GiviSex = 1 & set guy += 1
givitime += 1
minut += 3
gs 'bdman','givi'
gs 'stat'
'<center><img src="images\picKav\before.jpg"></center>'
'You nodded and stood in front of big-bellied Armenian lap. He unbuttoned his pants and pulled out his long and thick cock which ended up right on your face against almost touching you.'
act 'Stroking his dick': gt 'kavkazkafe','givibj1'
act 'Take by mouth': gt 'kavkazkafe','givibj3'
end

if $ARGS[0] = 'givibj1':
minut += 3
hj += 1
gs 'stat'
'<center><img src="images\picKav\before3.jpg"></center>'
'You took member Givi hands and began to fondle his own fingers. Givi put his hairy hand on your face, and began to touch your lips.'
act 'Sucking his thumb': gt 'kavkazkafe','givibj2'
act 'Take in the mouth member': gt 'kavkazkafe','givibj3'
end

if $ARGS[0] = 'givibj2':
minut += 3
if sub > 0: horny += sub
sub += 1
gs 'stat'
'<center><img src="images\picKav\before2.jpg"></center>'
'You started to suck salty fingers Givi and masturbate his penis.'
act 'Take by mouth': gt 'kavkazkafe','givibj3'
end

if $ARGS[0] = 'givibj3':
minut += 3
bj += 1
hapri = 0
gs 'stat'
'<center><img src="images\picKav\bj1.jpg"></center>'
'Givi took your hair pulled your face to his cock. You touched his <<$liptalk>> crimson head. Givi gladly spent dickhead you lips. You are standing on all fours wrapped around his <<$liptalk>> it is thick and slightly salty cock and began to suck him, absorbing up to the neck, this solid piece of flesh fills your mouth.'
act 'Suck on': gt 'kavkazkafe','givibj4'
end

if $ARGS[0] = 'givibj4':
minut += 3
gs 'stat'
'<center><img src="images\picKav\bj.jpg"></center>'
'Givi tired of standing and he sat on the sofa without letting your hair out of hand. You continue to work with your <<$liptalk>> treating the solid as a rock dick standing in front potbellied Caucasians on all fours. Givi began to puff and it seems that´s here to finish.'
act 'Remove the mouth': gt 'kavkazkafe','givibj5'
act 'Continue to suck': gt 'kavkazkafe','givibj6'
	if givitime > 1:
	givrand = RAND(0,100)
		if givrand >= 75:
		cla
		'Givi took a member of your mouth, and said, "Make yourself Svetik cancer."'
		act 'Doggy-Style': gt 'kavkazkafe','givisex'
		end
	end
end

if $ARGS[0] = 'givibj5':
minut += 3
facial += 1
cumface += 1
gs 'stat'
picrand = RAND(1,9)
'<center><img src="images\picKav\facial<<picrand>>.jpg "></center>'
'You remove a member from his mouth, but did not give you Givi dodge jet of sperm and slapped you covering your lips sticky and hot manure with a pungent odor.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givibj6':
minut += 3
swallow += 1
cumlip += 1
gs 'stat'
picrand = RAND(1,9)
'<center><img src="images\picKav\cum<<picrand>>.jpg "></center>'
'You have opened my mouth and began to finish Givi your mouth stuffing his sperm. The taste of semen was terrible and you had a mouth full of spit was not particularly where and waiting until Givi dries, you swallow cum in your mouth that has left a sharp aftertaste from your mouth and can be had for a couple of meters to smell the pungent smell of semen.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givisex':
minut += 3
gs 'stat'
'<center><img src="images\picKav\before4.jpg"></center>'
'You undressed and got on all fours, hands apart poluzhopiya. Givi approvingly grunted and slapped you in the ass hand. "Good Ass Svetka you!"'
	if givitime > 5:
	givrand = RAND(0,100)
		if givrand >= 75 and anal > 0 and giviVagOnce = 1:
		cla
		'Svetik, I want you in the ass.'
		act 'I do not want': gt 'kavkazkafe','givisex1'
		act 'Close your eyes': gt 'kavkazkafe','givianal'
		exit
		end
	end

act 'Close your eyes': gt 'kavkazkafe','givisex1'
end


if $ARGS[0] = 'givisex1':
minut += 3
if giviVagOnce = 0: giviVagOnce = 1
gs 'stat'
givserand = RAND(0,10)
if givserand < 8: '<center><img src="images\picKav\sex.jpg"></center>'
if givserand >= 8: '<center><img src="images\picKav\sex1.jpg"></center>'
dynamic $sexudo
'You moan until your insides hollowed Givi a member.'
if givserand >= 8: anus += 1 & 'During sex Givi you stuck a finger in the ass and started rubbing it.'
gianrand = RAND(0,10)
	if anus > 1 and givserand >= 8 and gianrand >= 8:
	'Givi suddenly took out a member and you become stronger fingers to work in your ass.'
	act 'Close your eyes': gt 'kavkazkafe','givianal'
	exit
	end
givfinrand = RAND(0,10)
	if givfinrand >= 8:
	'Givi suddenly pulled out of you cock and taking you by the shoulders put in front of him on his knees.'
	act 'Substitute person': gt 'kavkazkafe','givibj5'
	act 'Open mouth': gt 'kavkazkafe','givibj6'
	exit
	end
pose = 1
dynamic $sexcum
act 'Leave': gt 'street'
end

if $ARGS[0] = 'givianal':
minut += 3
if giviAnalOnce = 0: giviAnalOnce = 1
gs 'stat'
'<center><img src="images\picKav\anal.jpg"></center>'
gs 'bdsex','an'
givfinrand = RAND(0,10)
	if givfinrand >= 8:
	'Givi suddenly pulled out of you cock and taking you by the shoulders put in front of him on his knees.'
	act 'Substitute person': gt 'kavkazkafe','givibj5'
	act 'Open mouth': gt 'kavkazkafe','givibj6'
	exit
	end
gs 'bdsex','ancum'
act 'Leave': gt 'street'
end


if $ARGS[0] = 'threesome':
minut += 3
gang += 1
gs 'stat'
'<center><img src="images\picKav\threestart.jpg"></center>'
'Givi sat on the couch and pulled out his penis, you Ira began to undress each other sexually and tselovatsya.'
	act 'Sucking dick':
	cls
	minut += 3
	sub += 1
	if bjgiviiraonce = 0: bjgiviiraonce = 1 & bj += 1
	gs 'stat'
	tiprand = RAND(0,1)
		if tiprand = 0:
		picrand = RAND(1,6)
		'<center><img src="images\picKav\threeA<<picrand>>.jpg "></center>'
		'You and Irina knelt and began to suck dick Givi together, by turns sucking the barrel, then licking the testicles, sometimes kissing each other.'
		dynamic $threesomedin
		end
		if tiprand = 1:
		picrand = RAND(1,3)
		'<center><img src="images\picKav\threeB<<picrand>>.jpg "></center>'
		'You knelt down and started to suck dick until Ira kissed Givi.'
		dynamic $threesomedin
		end

	end

	act 'Kissing Givi':
	cls
	minut += 3
	if bjgiviiraonce = 0: bjgiviiraonce = 1 & bj += 1
	dom += 1
	gs 'stat'
	picrand = RAND(1,3)
	'<center><img src="images\picKav\threeB<<picrand>>.jpg "></center>'
	'You become tselovatsya Givi until Ira worked his cock bringing it into combat readiness.'
	dynamic $threesomedin2
	end
end

if $ARGS[0] = 'foursome':
minut += 3
gang += 1
gs 'stat'
'<center><img src="images\picKav\four.jpg"></center>'
'Givi and Ashot undressed you and Irina sat down and began to undress kissing each other.'
	act 'Suck':
	cls
	minut += 3
	if bjgiviiraonce = 0: bjgiviiraonce = 1 & bj += 1
	gs 'stat'
	picrand = RAND(1,10)
	'<center><img src="images\picKav\four<<picrand>>.jpg "></center>'
	'Together with Irina you started sucking dicks in Caucasians. Kiwi and Ashot gaily in an unfamiliar language and clicked their tongues.'
		act '....':
		cls
		minut += 3
		gs 'stat'
		picrand = RAND(1,5)
		'<center><img src="images\picKav\fourA<<picrand>>.jpg "></center>'
		'You and Ira climbed on fat cock and began to jump on them.'
		dynamic $sexstart2
		'Caucasians put you on your knees with Ira and started nadrachivat members before your faces.'
			act '....':
			cls
			minut += 3
			cumface += 1
			cumlip += 1
			gs 'stat'
			picrand = RAND(1,5)
			'<center><img src="images\picKav\fourfin.jpg"></center>'
			'You and Ira knelt at each other and Givi with Ashot began to cum on you face. You kissed Ira smeared in sperm.'
			act 'Leave': dynamic $endirinaaftergang
			end
		end
	end
end
--- kavkazkafe ---------------------------------

# klofdomhouse
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5

	'<center><B><font color = maroon>Jora''s House</font></B></center>'
	'<center><img src="images\etogame\podezdhr.jpg"></center>'

	act 'Ring the doorbell':
	cla
		if klofQW = 2 and hour >= 16 and klofday ! day:
		klofday = day
		gt 'klofdomhouse','ev1'
		elseif klofQW > 2 and hour >= 16 and klofday ! day:
		klofday = day
		gt 'klofdomhouse','start1'
		else
		'No one home'
		act 'Go home': gt 'street'
		end
	end

	act 'Go home': gt 'street'
end

if $ARGS[0] = 'start1':
cla
*clr
set klofday = day
set minut += 5
kloftimes += 1
gs 'stat'
	if kloftimes < 10:
		gt 'klofdomhouse','ev7'
	else
		if RAND(0,9) > 7:
			'<center><img src="images\klof\klof.jpg"></center>'
			'You rang the doorbell. Jora and went belly scratched. Yawned and said he was busy.'
			act 'Go home': gt 'street'
		else
			gt 'klofdomhouse','ev7'
		end
	end
end

if $args[0] = 'ev1':
cla
*clr
set klofday = day
set minut += 5
kloftimes += 1
gs 'stat'
	if kloftimes < 10:
	'<center><img src="images\klof\klof.jpg"></center>'
	'You rang the doorbell.'
	'You do not open and you want to leave, but then the door opened.'
	'Hey, you said'
	'-And you said this guy smiling through.'
	act 'Stop by': gt 'klofdomhouse','ev2'
	end
	if kloftimes >= 10:
	'<center><img src="images\klof\klof.jpg"></center>'
	'You rang the doorbell. Jora and went belly scratched. Yawned and said he was busy.'
	act 'Go home': gt 'street'
	end
end

if $args[0] = 'ev2':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 1.JPG"></center>'
'You looked around the apartment was a pigsty, the walls papered with peeled everywhere strewn socks.'
'How pathetic something you guys here rebya - you said and smiled, eyes met the guy.'
'Nothing, we just arrived in this city soon obzhivaya said grinning guy.'
'- Clear. We are never met.'
'- Call me Zhora, and my sidekick Senya, and now just quickly clean this up in the apartment.'
	act 'Clean up': gt 'klofdomhouse','ev4'
	if sub < 30 and horny < 75: act 'Leave': gt 'klofdomhouse','ev3'
end

if $args[0] = 'ev3':
cla
*clr
set minut += 5
set klofQW -= 1
if dom > 0: set dom += 5
if sub > 0: set sub -= 5
'<center><img src="images\qwest\pnx.jpg"></center>'
'You decided that the guy above you just izdevaetsya and left.'
act 'Leave': gt 'street'
end

if $args[0] = 'ev4':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 3.JPG"></center>'
'Remove ZHore you approached and asked.'
'Jora-you promised money and entertainment, but so far I have not seen what this'
'Well-look, as I said we are not in a long time, until now we need a girl for home services'
'- When will become closer acquainted, talk about business.'
'- Now be a good girl and I discussed'
act 'Open your legs ZHore': gt 'klofdomhouse','ev5'
end

if $args[0] = 'ev5':
cla
*clr
set minut += 5
sex += 1
vagina += 1
'<center><img src="images\klof\klof 4.jpg"></center>'
'Jora began to fuck you in the pussy, suddenly the door opened.'
'Into the room came Senya and said, "Suck my cock baby ka"'
act 'Get a mouth Cenis': gt 'klofdomhouse','ev6'
end

if $args[0] = 'ev6':
cla
*clr
set hour += 23
set minut += 5
set klofQW += 1
cla
*clr
set money += 2000
Set bj += 1
Set cumface += 1
set cumpussy += 1
'<center><img src="images\klof\klof 5.jpg"></center>'
'Jora zhetko pecked in your pussy, Xian fucked you in the mouth.'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'You are dressed and ready to go home.'
'To you approached and handed the money Jora: "Earned crumb"'
	if bj >= anal and bj >= sex: set callnm = 1
	if anal >= oral and anal >= sex: set callnm = 2
	if Sex >= oral and Sex >= anal: set callnm = 3
	if vaf >= 100: set callnm = 4
act 'Go home': gt 'street'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $args[0] = 'ev7':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 1.JPG"></center>'
'You went to the apartment'
act 'Say hello to the guys': gt 'klofdomhouse','ev8'
end

if $args[0] = 'ev8':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 6.jpg"></center>'
'Hey baby-boys said, baring his chest and you started to caress you.'
'- Hello boys miss me? - You said and blushed'
act 'Entertain ZHoru': gt 'klofdomhouse','ev9'
act 'entertain Senya': gt 'klofdomhouse','ev10'
act 'Entertain both': gt 'klofdomhouse','ev19'
act 'Talk about the affairs of Zhora': gt 'klofdomhouse', 'ev20'
end




if $args[0] = 'ev9':
cla
*clr

act 'Writing in the pussy ZHore.': gt 'klofdomhouse','ev13'
act 'Writing in the ass ZHore.': gt 'klofdomhouse','ev14'
act 'ZHore suck.': gt 'klofdomhouse','ev19'
end

if $args[0] = 'ev13':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set vagina += 1
Set sex += 1
set cumpussy += 1
'Jora zhetko pecked in your pussy.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 7.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 8.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 9.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'You feel that Jora razryazhaetsya you.'
'<center><img src="images\klof\klof 10.jpg"></center>'
'You are dressed and ready to go home.'
'Jora handed you the money, "Earned crumb"'
act 'Go home': gt 'street'
end

if $args[0] = 'ev14':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
Set anal += 1
set anus += 1
Set cumass += 1

'Jora with full force hammer you in the ass.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 11.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 12.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 13.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'Jora discharge you in the ass, in the ass and inserts gag'
	'<center><img src="images\klof\klof 14.jpg"></center>'
	'You are dressed and ready to go home.'
	'Jora handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end


if $args[0] = 'ev15':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set bj += 1
Set cumface += 1
'You passionately clasped Zhorin member lips.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 15.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 16.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 17.jpg."></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'Jora discharged in your face'
	set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 18.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 19.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 20.jpg."></center>'
	'You are dressed and ready to go home.'
	'Jora handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end




if $args[0] = 'ev10':
cla
*clr

act 'Writing in the pussy Seine.': gt 'klofdomhouse','ev 16'
act 'Writing in the ass Seine.': gt 'klofdomhouse','ev 17'
act 'Suck Seine.': gt 'klofdomhouse','ev 18'
end

if $args[0] = 'ev 16':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set vagina += 1
Set sex += 1
'Hsien zhetko pecked in your pussy.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 7.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 8.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 9.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'You feel that Jora razryazhaetsya you.'
	'<center><img src="images\klof\klof 10.jpg"></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end

if $args[0] = 'ev 17':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
Set cumass += 1
anal += 1
anus += 1
'Hsien with full force hammer you in the ass.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 11.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 12.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 13.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'

	act '....':
	cla
	*clr
	'Hsien discharge you in the ass, in the ass and inserts gag'
	'<center><img src="images\klof\klof 14.jpg"></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end

if $args[0] = 'ev 18':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
bj += 1
Set guy += 1
Set cumlip += 1
'You passionately clasped Senenin member lips.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 15.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 16.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 17.jpg."></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	facial += 1
	'Hsien discharged in your face'
	set picrand = RAND(1,3)
	if picrand = 1: '<center><img src="images\klof\klof 18.jpg"></center>'
	if picrand = 2: '<center><img src="images\klof\klof 19.jpg."></center>'
	if picrand = 3: '<center><img src="images\klof\klof 20.jpg."></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end


if $args[0] = 'ev19':
cla
*clr
set minut += 30
set klofQW += 2
set money += 200
sex += 1
Set bj += 1
Set cumface += 1
facial += 1
set cumpussy += 1
set vagina += 1
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 21.jpg."></center>'
		if picrand = 2: '<center><img src="images\klof\klof 22.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 23.jpg."></center>'
'Jora brutally fuck you in the mouth and pussy Cenya dryuchit'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'Finally they both finished, one in the pussy, the other on the face.'
'You are dressed and ready to go home.'
'Boys stretched you money, "Earned crumb"'
act 'Go home': gt 'street'
end

if $args[0] = 'ev20':
cla
*clr
set klofday = day
set minut += 5
'<center><img src="images\klof\klof.jpg"></center>'
'If you want to talk serious business with our boss'
	act 'Talk to the boss':
	cla
	if klofQW < 10: gt 'klofdomhouse','ev21'
	if klofQW >= 10: gt 'klofdomhouse','ev22'
	end
end

if $args[0] = 'ev21':
cla
*clr
'From the room came an ugly old man'
'<center><img src="images\klof\klof24.jpg"></center>'
'"Too early you climb into our business" - he said.'
act 'Go home': gt 'street'
end

if $args[0] = 'ev22':
cla
*clr
'From the room came an ugly old man'
'<center><img src="images\klof\klof24.jpg"></center>'
'Boss looked closely at you and said, "Come to me, look at what you´re ready for the money"'
act 'Go to the boss room.': gt 'klofdomhouse','ev23'
act 'Go home': gt 'street'
end

if $args[0] = 'ev23':
cla
*clr
'You went into the room boss surprisingly it was well renovated and furnished'
'<center><img src="images\klof\klof25.jpg"></center>'
'Well Well take off your clothes and show yourself - said the boss'

act 'Show yourself': gt 'klofdomhouse','ev24'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev24':
cla
*clr
'You sat on the bed modestly'
'<center><img src="images\klof\klof 26.jpg"></center>'
'Show breast - ordered boss'
act 'Show breast': gt 'klofdomhouse','ev25'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev25':
cla
*clr
'You bared her breasts'
'<center><img src="images\klof\klof 26 (1).jpg"></center>'
'Show ass! - Ordered the boss'
act 'Show ass': gt 'klofdomhouse','ev26'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev26':
cla
*clr
'You showed your ass boss'
'<center><img src="images\klof\klof 26</center>.jpg"></center>'
'Let´s pull off her dress! - He said'
act 'Remove dress': gt 'klofdomhouse','ev27'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev27':
cla
*clr
'You took off her dress'
'<center><img src="images\klof\klof 26 (4).jpg"></center>'
'Spreads legs! - Received an order'
act 'Extend the legs': gt 'klofdomhouse','ev28'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev28':
cla
*clr
'You sat on the bed and pushed the legs'
'<center><img src="images\klof\klof 26 (6).jpg"></center>'
'And now to seduce me - smiled boss'
act 'Seduce the boss': gt 'klofdomhouse','ev29'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev29':
cla
*clr
'You rolled over on his side and showed their charms boss'
'<center><img src="images\klof\1284364hjl.jpg"></center>'
act 'Spin the ass before the boss': gt 'klofdomhouse','ev30'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev30':
cla
*clr
'You got cancer and began to twist her ass before the boss noticed that onachal fidget in his chair'
'<center><img src="images\klof\1284365sgp.jpg"></center>'
act 'Lick the head of the boss': gt 'klofdomhouse','ev31'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev31':
cla
*clr
'You gently began to lick penis'
'<center><img src="images\klof\klof27.jpg"></center>'
act 'Clasp member lips': gt 'klofdomhouse','ev32'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev32':
cla
*clr
'You eagerly clasped member lips'
'<center><img src="images\klof\klof28.jpg"></center>'
'Boss hoarse voice you ordered, "spreads her legs bitch"'
act 'Spread her legs': gt 'klofdomhouse','ev33'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev33':
cla
*clr
'You call razdvinuli legs'
'<center><img src="images\klof\klof 26 (5).jpg"></center>'
'Well, check your front - asked the boss'
act 'Writing in the pussy': gt 'klofdomhouse','ev34'
act 'Refuse': gt 'street'
end

if $args[0] = 'ev34':
cla
*clr
set minut += 30
set klofQW += 1
set vagina += 1
Set sex += 1
'Boss with full force pushes his penis in your vagina.'
'<center><img src="images\klof\klof 28.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'Let me try your ass - the boss ordered'
act 'Writing in the ass': gt 'klofdomhouse','ev35'
act 'Refuse': gt 'street'
end

if $args[0] = 'ev35':
cla
*clr
set minut += 30
set klofQW += 1
anal += 1
anus += 1
'Boss skewer your point on his penis.'
'<center><img src="images\klof\klof29.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'You chustvuete boss ready to be discharged'
	act 'Substitute person that he finished': gt 'klofdomhouse','ev36'
	act 'Let them ends up in the ass': gt 'klofdomhouse','ev37'
	act 'Insert dick in pussy': gt 'klofdomhouse','ev38'
end

if $args[0] = 'ev36':
cla
*clr
Set cumface += 1
set money += 500
'You jump from a member and start nadrachivat member face to the boss'
'<center><img src="images\klof\klof30.jpg"></center>'
act 'Get out of bed': gt 'klofdomhouse','ev39'
end

if $args[0] = 'ev37':
cla
*clr
set cumpussy += 1
set money += 500
'You start furiously podmahivat ass trying to quickly help him reach orgasm'
'<center><img src="images\klof\klof32.jpg"></center>'
act 'Get out of bed': gt 'klofdomhouse','ev39'
end

if $args[0] = 'ev38':
cla
*clr
set money += 500
'Catching the moment you insert member into the vagina'
'<center><img src="images\klof\klof31.jpg"></center>'
'Well, check your front - asked the boss'
act 'Get out of bed': gt 'klofdomhouse','ev39'
end

if $args[0] = 'ev39':
cla
*clr
'You got out of bed, looked at the exhausted man, with a grin and asked the boss: "Well, I passed the test?"'
'<center><img src="images\klof\klof33l.jpg"></center>'
'-Well you went bed-check, check you in obedience,'
'- Served both my boys only dvoi and only pussy once - ordered boss'
act ' Obediently serve children': gt 'klofdomhouse','ev40'
act 'Refuse': gt 'street'
end

if $args[0] = 'ev40':
cla
*clr
set minut += 30
set klofQW += 1
set db += 1
cla
*clr
Set bj += 1
set vagina += 2
'Jora and Senja in Two Smoking Barrels hammering you in the pussy.'
'<center><img src="images\klof\klof33.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
act 'Get up and get dressed': gt 'klofdomhouse','ev41'
end

if $args[0] = 'ev41':
cla
*clr
set money += 5000
'You got dressed and cleaned up.'
'<center><img src="images\klof\klof 3.JPG"></center>'
'To you Zhorik approached and said, "You´re like the boss, he told you to come tomorrow after 10 in the pool, keep money in swimsuit'
act 'Go home': gt 'street'
end

if $args[0] = 'ev42':
cla
*clr
'You look around and notice the crowd ZHoru'
'<center><img src="images\klof\klof 3.JPG"></center>'
'It is suitable to you and says, "Come on baby swim"'
act 'Go swimming.': gt 'klofdomhouse','ev43'
act 'Go home': gt 'street'
end

if $args[0] = 'ev43':
cla
*clr
'You dress up in a swimsuit and waiting at the entrance ZHoru'
'<center><img src="images\klof\bas.jpg"></center>'
'Jora takes place in a swimming pool talking to you, ''Lie down until Svetsik wait until more people gather "'
act 'Lie down beside the pool': gt 'klofdomhouse','ev44'
act 'Go home': gt 'street'
end

if $args[0] = 'ev44':
cla
*clr
set minut += 30
cla
*clr
'You lay around the pool, the pool is filled with people'
'<center><img src="images\klof\bas1.jpg"></center>'
'Jora swims up to you ordered, "Take off your clothes in front of the crowd"'
if sub > 0: act 'Hesitantly remove bra': gt 'klofdomhouse','ev45'
act 'Send it': gt 'street'
end

if $args[0] = 'ev45':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You lower a little webbing'
'<center><img src="images\klof\bas3.jpg"></center>'
'You lower a little cup'
'<center><img src="images\klof\bas2.jpg"></center>'
'You are standing in water conceal chest burning with shame'
'<center><img src="images\klof\bas4.jpg"></center>'
'Jora says with a grin, "Show the people hunting them chest entertainment"'
if sub > 5: act 'Remove hands': gt 'klofdomhouse','ev46'
act 'Send it': gt 'street'
end

if $args[0] = 'ev46':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'Do you give your hands from the chest around you starts to gather a crowd of men'
'<center><img src="images\klof\bas5.jpg"></center>'
'You picturesquely crank arms behind his head'
'<center><img src="images\klof\bas6.jpg"></center>'
'Jora ordered: "subtended panties"'
if sub > 10: act 'To go into the water removing panties': gt 'klofdomhouse','ev47'
act 'Send it': gt 'street'
end

if $args[0] = 'ev47':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You go down into the water, the people around you more'
'<center><img src="images\klof\bas7.jpg"></center>'
'You shoot panties in water'
'<center><img src="images\klof\bas8.jpg"></center>'
'Jora ordered: "Come out and show yourself to all"'
if sub > 15: act 'Out of the water': gt 'klofdomhouse','ev48'
act 'Send it': gt 'street'
end

if $args[0] = 'ev48':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You picturesquely out of the water'
'<center><img src="images\klof\bas9.jpg"></center>'
'And go to the edge of the pool, there is a crowd around you guys excited'
'<center><img src="images\klof\bas10.jpg"></center>'
'Jora ordered: "Spread your legs"'
if sub > 20: act 'Spread her legs': gt 'klofdomhouse','ev49'
act 'Send it': gt 'street'
end

if $args[0] = 'ev49':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You push the legs, the crowd whooped'
'<center><img src="images\klof\bas11.jpg"></center>'
'Excitement you heat covers you go into the water and relax'
'<center><img src="images\klof\bas12.jpg"></center>'
'Jora ordered: "Spread your lips"'
if sub > 25: act 'Push the sponge': gt 'klofdomhouse','ev50'
act 'Send it': gt 'street'
end

if $args[0] = 'ev50':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You push the legs, hands and dip disclose your vagina'
'<center><img src="images\klof\bas13.jpg"></center>'
'Most men opened mouth'
'Jora ordered: "play with themselves"'
if sub > 30: act 'Caressing her pussy': gt 'klofdomhouse','ev51'
act 'Send it': gt 'street'
end

if $args[0] = 'ev51':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You are so excited that not oraschaya attention to the crowd start to pull at your girl'
'<center><img src="images\klof\bas14.gif"></center>'
'Most men opened mouth'
act 'Come': gt 'klofdomhouse','ev52'
end

if $args[0] = 'ev52':
cla
*clr
set minut += 5
set orgasm += 1
set horny = 0
cla
*clr
'Within a few minutes you covered wild orgasm'
'<center><img src="images\klof\bas15.gif"></center>'
'Crowd of men standing in complete shock'
'Jora Didelot hands you and says, "insert it yourself"'
act 'Insert Didlo': gt 'klofdomhouse','ev53'
end

if $args[0] = 'ev53':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You start planting in your cave Didelot'
'<center><img src="images\klof\bas16.jpg"></center>'
'Jora hands you a second Didelot and says "Insert to the same"'
act 'Insert second Didelot': gt 'klofdomhouse','ev54'
end

if $args[0] = 'ev54':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'You nachinaetebez labor stick in the hole in his second Didelot'
'<center><img src="images\klof\bas17.jpg"></center>'
'Jora orders: "Put about one in the ass"'
act 'Paste in the ass': gt 'klofdomhouse','ev55'
end

if $args[0] = 'ev55':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'<center><img src="images\klof\bas18.jpg"></center>'
'Jora takes you and members of your thrusts his fist into the vagina'
act 'Kajfovat': gt 'klofdomhouse','ev56'
end

if $args[0] = 'ev56':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'<center><img src="images\klof\bas19.jpg"></center>'
'Jora raises your pelvis with the words: "Hold my cup ka"'
'Inserts in you and pours himself a glass of juice'
act 'Obediently keep glass': gt 'klofdomhouse','ev57'
end

if $args[0] = 'ev57':
cla
*clr
set minut += 5
set horny += 10
cla
*clr
'<center><img src="images\klof\bas20.jpg"></center>'
'Jora leisurely drink juice and smiling said: "I Suck dick bitch"'
act 'Suck Zhora': gt 'klofdomhouse','ev58'
end

if $args[0] = 'ev58':
cla
*clr
set minut += 5
Set bj += 1
cla
*clr
'You take Zhorin member cheek'
'<center><img src="images\klof\bas21.jpg"></center>'
'Aroused Jora ordered: "Get in. on my dick"'
act 'Jump on a limb': gt 'klofdomhouse','ev60'
end

if $args[0] = 'ev60':
cla
*clr
set minut += 10
set vagina += 1
Set sex += 1
cla
*clr
'You furiously springing on Zhorina dick'
'<center><img src="images\klof\bas 27.jpg"></center>'
'Jora ready to cum'
act 'Take charge of a': gt 'klofdomhouse','ev61'
end

if $args[0] = 'ev61':
cla
*clr
set cumface += 1
set minut += 10
set orgasm += 1
set horny = 0
cla
*clr
'You Kochan Zhorina taking a sperm'
'<center><img src="images\klof\bas22.jpg"></center>'
'Zhora gets up and goes into the shower with the words to the crowd: "otderu this damn"'
act 'Fuck with the crowd': gt 'klofdomhouse','ev62'
end

if $args[0] = 'ev62':
cla
*clr
set minut += 10
set orgasm += 1
Set cumlip += 3
cla
*clr
'Not what you´re not realizing fucked by group of men'
'<center><img src="images\klof\bas23.jpg"></center>'
'Someone puts you cancer and plants you ass your dick'
act 'Fuck with the crowd': gt 'klofdomhouse','ev63'
end

if $args[0] = 'ev63':
cla
*clr
set minut += 10
Set bj += 1
Set cumlip += 3
Set sex += 1
set orgasm += 1
Set cumass += 1
anal += 1
anus += 1
cla
*clr
'You continue to suck, who then hammer you in the ass'
'<center><img src="images\klof\bas24.jpg"></center>'
'Covers you orgasm, you chuvsvuete that someone´s dick goes into your pussy'
act 'Fuck with the crowd': gt 'klofdomhouse','ev64'
end

if $args[0] = 'ev64':
cla
*clr
set minut += 10
set orgasm += 1
Set bj += 1
Set cumlip += 3
Set sex += 1
set orgasm += 1
Set cumass += 1
anal += 1
anus += 1
cla
*clr
'Fuck you and end up in all the cracks. Orgasm you covered'
'<center><img src="images\klof\bas25.jpg"></center>'
act 'Get up and dress swimsuit': gt 'klofdomhouse','ev65'
end

if $args[0] = 'ev65':
cla
*clr
set money += 200
'You odelis swimsuit rose and rested on the column. Your arms and legs were shaking and pussy and ass itched unbearably'
'<center><img src="images\klof\bas26.jpg"></center>'
'Jora came out of the locker room and said, "Well, we´ll show staged here, boss delighted!'
'Even-handed on TV, keep the money and a business card with his address.'
act 'Go home': gt 'street'
end

!господи, какая хуета, я плакал кровавыми слезами
--- klofdomhouse ---------------------------------

# lake
if $ARGS[0] = 'start':
cla
*clr
if lakeonce = 0: set lakeonce = 1
'<center><B><font color = maroon>Lake</font></B></center>'
'<center><img src="images\etogame\lake2.jpg"></center>'
clr
gs 'stat'
gs 'time'
'A large lake located in the city is a favorite destination of residents in the summer.'
if car > 0 and cardrive = 4:
	set cardrive = 4
	'At the lake stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	end
	if nastjaqw = 3 and temper >= 20 and bikini > 0 and hour >= 6 and hour <= 20:
	'You hand waving from <a href="exec:gt ''nastja'',''pos14''">Anastasia</a>.'
	end
if temper >= 20 and bikini > 0 and hour >= 6 and hour <= 20:
	'Next is <a href="exec:gt ''lake'',''aquapark''">Water attractions</a>.'
	'And, you can <a href="exec:gt ''lake'',''horse''">ride a horse</a>'
	'And there´s even a couple of kilometers <a href="exec:gt ''Nudelake''">nude beach</a>'
	'Also you can sunbathe or swim.'
		act 'Walk on the beach':
		cls
		set minut += 60
		gs 'stat'
		'<center><img src="images\img\lake\lake.jpg"></center>'
		'You walk along the shore.'
		set walkrand = RAND(0,100)
		if walkrand >= 50 and walkrand < 60: gt 'lake','walklake1'
		if walkrand >= 60 and walkrand < 70: gt 'lake','walklake2'
		act 'Finish': gt 'lake','start'
		end
	act 'Swim (1:00)':
		cla
		*clr
		set cumpussy = 0
		set cumbelly = 0
		set cumass = 0
		set cumlip = 0
		set cumface = 0
		set cumfrot = 0
		set minut += 60
		if sweat > -3: set sweat = -3
		set manna += 5
		set willpower += 5
		if stren < 30: set stren += 1
		'<center><img src="images\pics\swim.jpg"></center>'
		'You iskupnulis in the lake, the water refreshes and invigorates.'
		act 'Out of the water': gt 'lake','start'
		end
	act 'Zagarat (1:00)':
		cla
		*clr
		set minut += 60
		set sweat += 1
		set manna += 5
		'<center><img src="images\pics\zagar.jpg"></center>'
		if krem = 0:
			set tan += 1
			'You went to the beach to sunbathe.'
			end
		if krem > 0:
			set krem -= 1
			set tan += 3
			'You smeared body sunblock and went to sunbathe.'
			end
		set evrand = RAND(0,100)
		if evrand > 50:
			act 'Rise from the beach': gt 'lake','start'
			end
		if evrand <= 30 and andrei > 0:
			act 'Rise from the beach': gt 'lake','start'
			end
		if evrand <= 30 and andrei = 0:
			set anreirape = 1
			'You fell asleep on the beach while sunbathing. You dreamed that someone caresses your chest. Your nipples hardened, high breasts rising from deep breaths. Outlined the aura of something wet on the breast, and you moan sweetly.'
			'Strong hand stroked the folds on your body, from which the whole body covered goose, and suddenly his finger slipped through overgrown fuzz barely pierces folds sexual sponges and touched some incredibly pleasant point. Your body is thrown into a fever, back sweet shiver ran, and below all moistened. Already feeling that pleasure comes reality and not a dream, but still unable to overcome the sleepy bliss and open your eyes, you have spread her legs wide, yielding a seductive caress. When cheeky finger dipped your juices, easily penetrated into your bosom, you even had to wonder, natural feeling. Finger movement led you into a kind of trance, you are already in full voice moaned, wriggling under the hot sun. And then when you thought something was about to happen, a feeling of fullness left you.'
			act 'Open your eyes':
				cla
				*clr
				'Opening his eyes, you saw a shadowy figure unshaven men lustfully staring at you. You become uncomfortable - you´re lying naked in front of a stranger, and even all moaning and current as the latest slut and scary - no one on the beach, because he can do with you whatever he wants!'
				'All these thoughts flashed through your mind as a man pulling off her shorts. You looked with horror at the exposed his penis, before you he seemed huge.'
				act 'Jump ':
					cla
					*clr
					'You tried to jump but were immediately pressed his strong hands to his hairy chest.'
					act 'Knee hit him in the balls':
						cla
						*clr
						Set andrei = 1
						'You very accurately poked his knee in the balls, he screamed and let you down.'
						act 'Rise from the beach': gt 'lake','start'
						end
					act 'Escape from the clutches':
						cla
						*clr
						Set andrei = 2
						set anreiday = day
						set guy += 1
						Set anal += 1
						set anus += 1
						Set cumass += 1
						Set horny = 20
						set orgasm += 1
						'<center><img src="images\picVA\andreiA.jpg"></center>'
						'You began to break out of his grasp, but elozanie led to the fact that he was even more excited and hugged her hard cock to your heated sun tender thigh.'
						'The stranger turned you on his stomach and began to wet his saliva your elastic anus.'
						'He spread his force your buttocks, the maximum opening quivering hole, crushing you with its heavy body. You blinked, escaped from your throat wheezing pain when hard cock began to enter into your inner sanctum. No you did not feel pleasure, only acute pain ebbs, his aversion to the rapist and the feeling that you are using, as a whore. Here, his fingers casually touched your womb, and you caught the wave of lust. Over and over again as if you punched through a huge cock your abuser, and you podmahivat him, and could not hold back the sweet moans.'
						act 'More, more, more, more ...':
							cla
							*clr
							'<center><img src="images\picVA\andrei.jpg"></center>'
							'More, more, more, more ... pounding in your temples simultaneously with each thrust. Your clitoris turned into bare wire seemed to have a moment - and you explode. Man changed positions - now you´re sitting in an upright position, nasazhivayas already own on his fat cock with one hand, he continued stimulation of your clitoris and the other fiercely squeezed one, then another soft supple breasts, painfully squeezing between your fingers lumps nipples.'
							'Here, at last, your body has received a long-awaited discharge, you have a few seconds of inertia continued to bounce on his rapist, and then he will cast a dull growl in your plump ass hot spicy ropy streams of sperm.'
							'- Well, I liked it, Aphrodite? - With a touch of irony, the man asked.'
							act 'What´s your name?':
								cla
								*clr
								'- What is your name? - You own question seemed the most stupid, but the word, as they say, not a sparrow ...'
								'- Andrew - he grinned.'
								'And yours?'
								'<<$name>> answered you -'
								'I can see that you liked our game. Want to catch an even bigger thrill? - Come back tomorrow, - said Andrei suavely dressing - repeat our deeds.'
								act 'Rise from the beach': gt 'lake','start'
								end
							end
						end
					end
				end
			end
		if evrand <= 40 and evrand > 30: gt 'lake','vlake1'
		if evrand <= 50 and evrand > 40: gt 'lake','vlake2'
		end
	if anreiday ! day and andrei = 2:
		'You see on the beach Andrew.'
		act 'Approach to Andrew': gt 'lake','andrey1'
		end
	end
act 'QUIT':
	cla
	set lakeonce = 0
	set minut += 60
	gt 'street'
	end
end

if $ARGS[0] = 'aquapark':
set minut += 5
cls
gs 'stat'
'<center><img src="images\img\Lake\aquapark.jpg"></center>'
'You came to the attractions.'
'There is <a href="exec:gt ''lake'',''gidro''">Jet Ski</a>, <a href="exec:gt ''lake'',''banan''">banana</a> and <a href="exec:gt ''Lake'',''gorka''">slide</a>.'
act 'Leave': gt 'lake','start'
end

if $ARGS[0] = 'gidro':
cls
gs 'stat'
set minut += 1
'<center><img src="images\img\Lake\aquapark.jpg"></center>'
'You came to ski.'
'Tour price 100 rubles.'
	if money >= 100:
		act 'Go for a ride':
		set manna += 10
		set willpower += 10
		money -= 100
		cls
		set minut += 30
		set gidrrand = RAND(0,4)
		'<center><img src="images\img\Lake\gidro.jpg"></center>'
		'You take a jet ski, and start to skate.'
		if gidrrand = 0: gt 'lake','kater1'
		act 'Finish': gt 'lake','aquapark'
		end
	end
act 'Move away': gt 'lake','aquapark'
end

if $ARGS[0] = 'banan':
cls
gs 'stat'
set minut += 1
'<center><img src="images\img\Lake\aquapark.jpg"></center>'
'You came to the banana.'
'Tour price 100 rubles.'
	if money >= 100:
		act 'Go for a ride':
		set manna += 10
		set willpower += 10
		cls
		set minut += 30
		set money -= 100
		'<center><img src="images\img\Lake\banan.jpg"></center>'
		'You sodites a banana and you ride.'
		set banrand = RAND(0,100)
		if banrand >= 80 and banrand < 90: gt 'lake','kater2'
		if banrand >= 90: gt 'lake','kater3'
		act 'Finish': gt 'Lake','aquapark'
		end
	end
act 'Move away': gt 'lake','aquapark'
end

if $ARGS[0] = 'gorka':
cls
gs 'stat'
set minut += 1
'<center><img src="images\img\Lake\aquapark.jpg"></center>'
'You came to the hill.'
'Tour price of 50 rubles.'
	if money >= 50:
		act 'Go for a ride':
		set manna += 10
		set willpower += 10
		cls
		set minut += 15
		money -= 50
		'<center><img src="images\img\Lake\gorka.jpg"></center>'
		'You go up the hill and roll down.'
		act 'Finish': gt 'lake','aquapark'
		end
	end
act 'Move away': gt 'lake','aquapark'
end

if $ARGS[0] = 'horse':
cls
gs 'stat'
set minut += 1
'<center><img src="images\img\Lake\horse0.jpg"></center>'
'You came to the horses.'
'Tour price 100 rubles.'
	if money >= 100:
		act 'Go for a ride':
		set manna += 10
		set willpower += 10
		cls
		set minut += 30
		money -= 100
		'<center><img src="images\img\Lake\horse.jpg"></center>'
		'Sodites you go into the saddle and ride along the lake shore.'
		set horserand = RAND(0,100)
		if horserand >= 60 and horserand < 80: gt 'lake','horse1'
		if horserand >= 80: gt 'lake','horse2'
		act 'Finish': gt 'lake','start'
		end
	end
act 'Move away': gt 'lake','start'
end

if $ARGS[0] = 'walklake1':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
'Walking along the beach as you hear someone calling you "Hey beauty come here." You turned around and saw that next to the shore between the trees standing on the threshold of the hut and sits guy.'

$dinribak = {
	act 'Idiot! (To leave)':
	cls
	minut += 2
	gs 'stat'
	'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
	'You have called this idiot idiot and got ready to leave. The guy said, "Well, maybe I was wrong. And you do not whore and a slut. Slut Hey, you want to earn two thousand?"'
	act 'Leave': gt 'lake','start'

		act 'Money in advance!':
		cls
		minut += 2
		gs 'stat'
		'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
		'You hesitating blurted "Money up front!" The guy laughed, "Well, since that would have started! Would say that you´re a whore, and not powdering my brain would of themselves playing schoolgirl virgin." The guy took the money and handed them imposingly you.'
		act 'Leave': gt 'lake','start'
			act 'Take the money':
			cls
			minut += 2
			money += 2000
			if ribakSex = 0: ribakSex = 1 & guy += 1
			bj += 1
			sub += 1
			manna = 0
			gs 'stat'
			'<center><img src="images\qwest\sosed\facefuck.jpg"></center>'
			'You took money from a guy and hid them. The guy grinned wickedly "On your knees scum Now I´m so goddamned fuck your face that you will not forget for a long time!" You blushed, but still stood in front of the guy´s lap. He grabbed your face in her hands and spit in your face, then rubbed his hand over his harchek your face. You froze in confusion, but the guy does not stand on ceremony with you and you vognyal his penis in her mouth to the throat. You choked and tears flowed from his eyes. Man growled, "What whore, like it? Such scum like you should enjoy it, you are a dirty whore. Do you like money, then you have to get used to such things." The guy started to fuck you roughly in the mouth, periodically wiping the current out of your nose snot and saliva from his mouth, his hand on your face and occasionally inflicting hefty podschechiny. You almost fainted and expired snot, tears and saliva from the fact that roughly member enters your throat. Your throat was on fire and incessant cramps nausea twisted your body. Time stretched to infinity and you have already started to think that this torment will never end, when the guy pulled his cock out of your mouth.'
				act '....':
				cls
				minut += 2
				sub += 1
				cumface += 1
				cumlip += 1
				facial += 1
				gs 'stat'
				'<center><img src="images\qwest\sosed\facefuck1.jpg"></center>'
				'The guy started to cum on your face, lips, jet flew his semen in your mouth and you feel awful taste of sperm.'
					act 'Watch for Man':
					cls
					minut += 2
					sub += 1
					$ribakName = 'whore'
					gs 'stat'
					'<center><img src="images\qwest\sosed\facefuck1.jpg"></center>'
					'Are you tired of seeing it on the guy. Then taking your hair in the palm, wiped his cock your hair. After that, he rudely told you. "All of a whore. Now you can get out."'
					act 'Leave': gt 'lake','start'
					end
				end
			end
		end
	end

	act 'Come closer':
	cls
	minut += 2
	gs 'stat'
	'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
	'You hesitantly moved closer to the guy and he quickly grabbed you by the wrist literally poddtaschil yourself. "Come on baby, do not fuck the brain, we both know that you want to try to horror my dick taste. So do not be shy."'
	act 'Break and run': gt 'lake','start'
		act 'Stand in front of a guy on his knees':
		cls
		minut += 2
		if ribakSex = 0: ribakSex = 1 & guy += 1
		bj += 1
		sub += 1
		gs 'stat'
		'<center><img src="images\qwest\sosed\big.jpg"></center>'
		'You knelt in front of a guy and your face was in front of his big cock. Impatient guy slapped you dickhead nose. "What mnesh boobs? Starts to suck!" With these words, the guy grabbed you by the hair and buried his face in your own dick, you do not understand how it happened, but his head was hot inside your mouth. The guy taking your head in my hands began to stick your face on your hefty dick. His head rested on a regular basis in your throat, sometimes causing retching and salivation. Suddenly the man sharply pushing hips to meet your face drove his cock in your throat. You eyes widened from the realization that this huge body went into your throat. You rested her hands on her hips Man trying to escape from the trap and breathe. Finally the guy let your head allowing you to remove a member from the throat and rest. But how long the guy did not wait, and again taking your hair began to pull your face on his penis. Suddenly the man pulled out his penis out of your mouth and began to masturbate in front of your face while you´re trying to catch my breath, "Open your fucking mouth," growled at you kid "and stick your own language."'
			act 'Open your mouth and stick out tongue':
			cls
			minut += 2
			sub += 1
			cumface += 1
			cumlip += 1
			facial += 1
			gs 'stat'
			'<center><img src="images\qwest\sosed\cum.jpg"></center>'
			'You obediently opened his mouth and put the language. Immediately slapped you in the face jet of sperm. Then another and another, covering your face with sperm. The sperm gets into your mouth and you feel its nasty taste.'
				act 'Watch for Man':
				cls
				minut += 2
				sub += 1
				swallow += 1
				gs 'stat'
				'<center><img src="images\qwest\sosed\cumeat.jpg"></center>'
				'In your face dripping semen, you feel no taste in your mouth and look at the guy. The guy smiled and finger collected some sperm from your face. Then he put his finger in your mouth causing lick sperm. When his finger was clean, he gathered the remnants of sperm on your face on my finger and stuck it back in your mouth. Once again you sobsosali his finger and swallowed cum.'
					act 'Watch for Man':
					cls
					minut += 2
					sub += 1
					$ribakName = 'lowered whore'
					gs 'stat'
					'<center><img src="images\qwest\sosed\spit.jpg"></center>'
					'The guy suddenly thrust your fingers of both hands in his mouth and your lips apart with relish spat in your mouth. You flinch from this and feel like your cheeks blush with shame floods. The guy looked at you angrily, "You lewd, vile creature and got what she deserved. Now get out!"'
					act 'Leave': gt 'lake','start'
					end
				end
			end

			act 'Try to remove the person':
			cls
			minut += 2
			cumface += 1
			$ribakName = 'whore'
			gs 'stat'
			'<center><img src="images\qwest\sosed\cum1.jpg"></center>'
			'You tried to dodge, but the guy grabbed you by the hair and began to get a jet of sperm on your face. Finally dried up and the guy said, "Get out of here bitch!"'
			act 'Leave': gt 'lake','start'
			end
		end
	end
}


	if ribakSex = 0:
	act 'Leave': gt 'lake','start'

		act 'Step up':
		cls
		minut += 2
		gs 'stat'
		'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
		'You came to the guy with a fishing rod. He looked lustfully and imposingly you from head to toe.'

		act 'Leave': gt 'lake','start'

			if vnesh < 15:
			'The guy smiled and began to hum "Well Well you´re so terrible."'

			end
			if vnesh >= 15 and vnesh < 30:
			'Look around you man grinned, "Well, good."'

			end
			if vnesh >= 30:
			'Look around you man nodded, "And you did so simpotnaya."'

			end

			if vnesh >= 15:
				act 'What do you want?':
				cls
				minut += 2
				gs 'stat'
				'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
				'You asked what a guy needed. The guy looked again at you with a smirk. "You have written on his face that you blyadushka. Want huytsa delicious nap?"'

					act 'How dare you? (Troubled)':
					cls
					minut += 2
					gs 'stat'
					'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
					'You rebelled so brazen statements. What guy just became wider grin. "Come on. Do not worry. I love whores." After these words the man unbuttoned his pants and pulled out a hefty term in which it was clearly not less than 25 centimeters. "Come on baby, look what the Pope has snacks for your goddamned mouth." Man beckoned you to my finger.'

					dynamic $dinribak
					end

					act 'What? (Wonder)':
					cls
					minut += 2
					gs 'stat'
					'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
					'Were you surprised of such impudence. Guy just grinned wider. "You´re even more udivishsya seeing this!" With these words the man unbuttoned his pants and pulled out a hefty term in which it was clearly not less than 25 centimeters. "Come on baby, look what the Pope has snacks for your goddamned mouth." Man beckoned you to my finger.'
					dynamic $dinribak
					end

					act 'hmm (thinking)':
					cls
					minut += 2
					gs 'stat'
					'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
					'You think for a second. Guy just grinned wider. "I knew you´d damn, just looking at you, I have a nose for whores missing on sturdy dick." With these words the man unbuttoned his pants and pulled out a hefty term in which it was clearly not less than 25 centimeters. "Come on baby, look what the Pope has snacks for your goddamned mouth." Man beckoned you to my finger.'
					dynamic $dinribak
					end
				end

			end

		end

	end

	if ribakSex > 0:
	'You went to the guy who told you. Hi <<$ribakName>>delicious huytsa want?'
		act 'Leave': gt 'lake','start'

		if $ribakName = 'whore':
			act 'Two pieces!':
			cls
			minut += 2
			gs 'stat'
			'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
			'You told the guy "Two things forward and money!" The guy grinned "Gonna make money whoring, get ready to drink the cup of humiliation to the dregs." The guy took the money and handed them imposingly you.'
			act 'Leave': gt 'lake','start'
				act 'Take the money':
				cls
				minut += 2
				money += 2000
				ribakSex += 1
				bj += 1
				sub += 1
				manna = 0
				gs 'stat'
				'<center><img src="images\qwest\sosed\facefuck.jpg"></center>'
				'You took money from a guy and hid them. The guy grinned wickedly "On your knees scum Now I´m so goddamned fuck your face that you will not forget for a long time!" You blushed, but still stood in front of the guy´s lap. He grabbed your face in her hands and spit in your face, then rubbed his hand over his harchek your face. You froze in confusion, but the guy does not stand on ceremony with you and you vognyal his penis in her mouth to the throat. You choked and tears flowed from his eyes. Man growled, "What whore, like it? Such scum like you should enjoy it, you are a dirty whore. Do you like money, then you have to get used to such things." The guy started to fuck you roughly in the mouth, periodically wiping the current out of your nose snot and saliva from his mouth, his hand on your face and occasionally inflicting hefty podschechiny. You almost fainted and expired snot, tears and saliva from the fact that roughly member enters your throat. Your throat was on fire and incessant cramps nausea twisted your body. Time stretched to infinity and you have already started to think that this torment will never end, when the guy pulled his cock out of your mouth.'
					act '....':
					cls
					minut += 2
					sub += 1
					cumface += 1
					cumlip += 1
					facial += 1
					gs 'stat'
					'<center><img src="images\qwest\sosed\facefuck1.jpg"></center>'
					'The guy started to cum on your face, lips, jet flew his semen in your mouth and you feel awful taste of sperm.'
						act 'Watch for Man':
						cls
						minut += 2
						sub += 1
						$ribakName = 'whore'
						gs 'stat'
						'<center><img src="images\qwest\sosed\facefuck1.jpg"></center>'
						'Are you tired of seeing it on the guy. Then taking your hair in the palm, wiped his cock your hair. After that, he rudely told you. "All of a whore. Now you can get out."'
						act 'Leave': gt 'lake','start'
						end
					end
				end
			end

		end


		if $ribakName!'whore':
			act 'Stand in front of a guy on his knees':
			cls
			minut += 2
			ribakSex += 1
			bj += 1
			sub += 1
			gs 'stat'
			'<center><img src="images\qwest\sosed\big.jpg"></center>'
			'You knelt in front of a guy and your face was in front of his big cock. Impatient guy slapped you dickhead nose. "What mnesh boobs? Starts to suck!" With these words, the guy grabbed you by the hair and buried his face in your own dick, you do not understand how it happened, but his head was hot inside your mouth. The guy taking your head in my hands began to stick your face on your hefty dick. His head rested on a regular basis in your throat, sometimes causing retching and salivation. Suddenly the man sharply pushing hips to meet your face drove his cock in your throat. You eyes widened from the realization that this huge body went into your throat. You rested her hands on her hips Man trying to escape from the trap and breathe. Finally the guy let your head allowing you to remove a member from the throat and rest. But how long the guy did not wait, and again taking your hair began to pull your face on his penis. Suddenly the man pulled out his penis out of your mouth and began to masturbate in front of your face while you´re trying to catch my breath, "Open your fucking mouth," growled at you kid "and stick your own language."'
				act 'Open your mouth and stick out tongue':
				cls
				minut += 2
				sub += 1
				cumface += 1
				cumlip += 1
				facial += 1
				gs 'stat'
				'<center><img src="images\qwest\sosed\cum.jpg"></center>'
				'You obediently opened his mouth and put the language. Immediately slapped you in the face jet of sperm. Then another and another, covering your face with sperm. The sperm gets into your mouth and you feel its nasty taste.'
					act 'Watch for Man':
					cls
					minut += 2
					sub += 1
					swallow += 1
					gs 'stat'
					'<center><img src="images\qwest\sosed\cumeat.jpg"></center>'
					'In your face dripping semen, you feel no taste in your mouth and look at the guy. The guy smiled and finger collected some sperm from your face. Then he put his finger in your mouth causing lick sperm. When his finger was clean, he gathered the remnants of sperm on your face on my finger and stuck it back in your mouth. Once again you sobsosali his finger and swallowed cum.'
						act 'Watch for Man':
						cls
						minut += 2
						sub += 1
						$ribakName = 'lowered whore'
						gs 'stat'
						'<center><img src="images\qwest\sosed\spit.jpg"></center>'
						'The guy suddenly thrust your fingers of both hands in his mouth and your lips apart with relish spat in your mouth. You flinch from this and feel like your cheeks blush with shame floods. The guy looked at you angrily, "You lewd, vile creature and got what she deserved. Now get out!"'
						act 'Leave': gt 'lake','start'
						end
					end
				end

				act 'Try to remove the person':
				cls
				minut += 2
				cumface += 1
				$ribakName = 'whore'
				gs 'stat'
				'<center><img src="images\qwest\sosed\cum1.jpg"></center>'
				'You tried to dodge, but the guy grabbed you by the hair and began to get a jet of sperm on your face. Finally dried up and the guy said, "Get out of here bitch!"'
				act 'Leave': gt 'lake','start'
				end
			end
		end

		!act '"Just between your legs?"':
		!cla
		!*clr
		!dynamic $venerasiak
		!set slutty += 1
		!set guy += 1
		!'<center><img src="images\img\Lake\walk1\walk1.jpg"></center>'
		!'"Только между ног?" спросили вы поняв что он предлагает
		"Я только там и ловлю, но ты мне для начала удилище ротиком отполируй" сказал парень, растегивая штаны и высвобождая свое удилище на волю.'
		!act 'Polished rod':
			!cla
			!*clr
			!set bj += 1
			!'<center><img src="images\img\Lake\walk1\walk2.jpg"></center>'
			!'You sat down next to him and lowered his head to his cock began to suck. A few minutes later the guy pulled you from a member of "All right enough poliruesh well."'
			!act '"I tried"':
				!cla
				!*clr
				!set sex += 1
				!'<center><img src="images\img\Lake\walk1\walk3.jpg"></center>'
				!'Парень поднялся, повернул вас раком и с размаху вошел в ваше влагалище, вы взвизгнули от боли.
				"Ну а ты как думала, рыбалка дело не простое, приходится и потерпеть" сказал парень продолжая с силой трахать вашу киску. А вам осталось только взвизгивать при каждом толчке.'
				!act '"Ay-ay-ay"':
					!cla
					!*clr
					!set cumbrest += 1
					!set money += 2000
					!'<center><img src="images\img\Lake\walk1\walk4.jpg"></center>'
					!'На конец парень задрожал напрягся и резко вынул из вас свой хуй, развернув вас к себе лицом залил вашу грудь своей спермой.
					"Это тебе корм для рыбок." сказал он с улыбкой.
					"А это чтобы они золотые были" сказал парень протянув вам деньги'
					!act 'Leave': gt 'lake','start'
					!end
				!end
			!end
		!end

	end
end

if $ARGS[0] = 'walklake2':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\walk2\walk1.jpg"></center>'
if StasikValera = 0: 'You got hot and decided to freshen up a bit, you went into the water, turning you notice not far two men looking at you.'
if StasikValera > 0: 'You got hot and decided to freshen up a bit, you went into the water, turning you notice not far Stasik and Valera looking at you.'
act 'Leave': gt 'lake','start'
$din_stasValera4 = {
	act 'Relax':
	cls
	minut += 2
	horny += 20
	if StasikSex = 0: StasikSex = 1 & guy += 1
	if ValeraSex = 0: ValeraSex = 1 & guy += 1
	StVaGang = 1
	gang += 1
	gs 'stat'
	'<center><img src="images\qwest\sosed\lake.jpg"></center>'
	'You are relaxed and began to enjoy the caress breasts and pussy.'
	$boy = 'Stasik'
	dick = 15
	silavag = 1
	pose = 0
	dynamic $sexstart
	'You felt like a body Stasik expanded the your feet and that it boils down to your hard soft pussy.'
	dynamic $sexstart2
	'While you fucked Stasik, Valera slumped to your face and your uper standing member in your lips.'
	dick = 17
	bj += 1
	dynamic $dinrandbj

	dynamic $sexcum
	'Valera lipped groaned and shuddered his cock in your mouth.'
	swallow += 1
	cumlip += 1
	cumface += 1
	dynamic $dinrandswallow
		act 'Further':
		cls
		minut += 2
		gs 'stat'
		'Tired men dismounted and began to pull you over clothes. Stasik helped you get back on your feet, "You cool the girl Svetsik, we let you carry home."'
			act 'Do not, I myself as anything':
			cls
			minut += 2
			gs 'stat'
			'You refused and Stasik shrugged, "Well, as you know."'
			act 'Leave': gt 'lake','start'
			end

			act 'I do not mind':
			cls
			minut += 5
			cumface = 0
			StasValeraKnow = 1
			gs 'stat'
			'Boys waited until you bring yourself up and went to the side of your house. Along the way the guys kept silent and even more sprightly Stasik not really thought what can be said in such a situation. Finally you stopped before the door of your apartment. And saying goodbye to you guys gone.'
			act 'Leave': gt 'korr'
			end
		end
	end
}
$din_stasValera3 = {
	act 'Further':
	cls
	minut += 2
	horny += 20
	gs 'stat'
	'You are relaxed and began to enjoy the sensations in your chest arising from touching Stasik. Man honed movement lowered the cup bra freeing your breasts. You do not have time to blink as your lips Stasik covered nipple.'
		act 'Hey! What are you doing?':
		cls
		minut += 2
		gs 'stat'
		'You jumped to their feet adjusting bra. Stasik smiled, "Do not be afraid of a girl."'
		act 'Leave': gt 'lake','start'
		end

		act 'Feebly protest':
		cls
		minut += 2
		horny += 20
		gs 'stat'
		'You tried to pull her bra back and whispered, "Do not!" Stasik smiled, "Do not be shy girl."'
		dynamic $din_stasValera4
		end

		act 'Be silent':
		cls
		minut += 2
		horny += 30
		gs 'stat'
		'You get comfortable enjoying the way skillfully Staik sucking your breast, his hands began to passionately caress your body. His strong fingers penetrated into your panties and began to caress your pussy.'
		dynamic $din_stasValera4
		end

	end
}

$din_stasValera2 = {
	act 'Remove hands from himself Stasik':
	cls
	minut += 2
	gs 'stat'
	'You angrily removed his hands from his body Stasik. Stasik grinned "C´mon baby, relax."'
		act 'Rebel and go':
		cls
		minut += 2
		gs 'stat'
		'You angrily stood up and began to leave. Stasik got to his feet and began to persuade you to go with the guys in the cafe.'
		act 'Leave': gt 'lake','start'

		end

		act 'Keep silent':
		cls
		minut += 2
		horny += 20
		gs 'stat'
		'You said nothing and Stasik immediately took advantage of your confusion. His hands gently squeeze your chest and you feel like a pleasant warmth and tenderness of your breasts covered.'
		dynamic $din_stasValera3
		end
	end

	act 'Smile and pretend that nothing is happening.':
	cls
	minut += 2
	horny += 20
	gs 'stat'
	'You started to smile, feeling a touch Stasik excite you. You closed his eyes for a moment and suddenly felt a hand on his chest. You opened your eyes in surprise and saw how completely unflappable Staik squeezes your chest with a dreamy smile on his face.'
	dynamic $din_stasValera3
	end
}


$din_stasValera = {
	act '<<$name>>':
	cls
	minut += 2
	gs 'stat'
	'Stasik you answered that your name is <<$name>>. He smiled even wider and said. "Nice to meet you." To you also Valera came and said hello to you. Men settled on the shore near you.'
		act 'Lie on the sand':
		cls
		minut += 2
		horny += 15
		gs 'stat'
		'You lay down on the sand and the men settled on either side of you. Stasik began to tell you that they work with Valera sales representative of a major company, and indeed a very important bird knowledgeable people. Without stopping to chat Stasik put his hand on your stomach and began stroking.'
		dynamic $din_stasValera2
		end

		act 'Sit on the sand':
		cls
		minut += 2
		horny += 15
		gs 'stat'
		'You sat down on the sand and the men settled on either side of you. Stasik began to tell you that they work with Valera sales representative of a major company, and indeed a very important bird knowledgeable people. Without stopping to chat Stasik put his hand on your ass and started stroking.'
		dynamic $din_stasValera2
		end
	end
}

	if StasikValera = 0:
		act 'Look at them':
		cls
		minut += 1
		StasikValera = 1
		gs 'stat'
		'You looked at the men and noticed they began to whisper among themselves. Then one of the men came up to you. He said smiling "Hey beautiful, I Stasik, and this is my friend Valera. What´s your name?"'
			dynamic $din_stasValera

			act 'I have to go.':
			cls
			minut += 1
			gs 'stat'
			'You´re not going to get acquainted with these fellows and began to leave. Stasik began to persuade you. "Come on, babe. We savages what? We just wanted to talk, and you´re right to be frightened. Might still say, what´s your name?"'
			dynamic $din_stasValera
			act 'Leave': gt 'lake','start'
			end

		end
	end

	if StasikSex > 0 or ValeraSex > 0:
		act 'Wave it':
		cla
		*clr
		dynamic $venerasiak
		!set guy += 2
		'<center><img src="images\img\Lake\walk2\walk2.jpg"></center>'
		'Looking directly at them you shoot demostrativno panties and waving to them. Men almost running toward you, you threw off their rest and knelt.'
			act 'Wait':
			cla
			*clr
			set bj += 1
			'<center><img src="images\img\Lake\walk2\walk3.jpg"></center>'
			'Men run to you already unbuttoned pants, you dostoete their members alternately sucking then one or the other. One of the men vneterpenii grabs your ass and trying to put the cancer.'
			act 'Doggy-Style':
				cla
				*clr
				set sex += 1
				'<center><img src="images\img\Lake\walk2\walk4.jpg"></center>'
				'You have succumbed to him and got cancer, a man with power came into your pussy. And you continued to suck the other, but soon he, too, could not resist and tried to take his dick out of your mouth.'
				act 'Let him go':
					cla
					*clr
					set anal += 1
					'<center><img src="images\img\Lake\walk2\walk5.jpg"></center>'
					'As soon as you let go of his cock, he literally pulled you with dildo second man, turned his back and buttocks prepodnyav you nasodil anus on his penis.'
					act 'Beckon second':
						cla
						*clr
						'<center><img src="images\img\Lake\walk2\walk6.jpg"></center>'
						'You are beckoned to the other man, he was not taken aback came up to you and drove his dildo back into your vagina. You felt as their members move within you, rub against each other through the thin partition separating them. Opera on their shoulders and you become prepodnimatsya again sit down on their members have not yet reached the peak of pleasure.'
						act 'Finish':
							cla
							*clr
							set cumbrest += 1
							set cumlip += 1
							set cumface += 1
							'<center><img src="images\img\Lake\walk2\walk7.jpg"></center>'
							'Sated men lowered you down, and began to masturbate on your face, you have opened my mouth and waited patiently. They both finished the Gulf sperm your mouth, face and chest.'
							act 'Leave': gt 'lake','start'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'vlake1':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\Vlake1\vlake1.jpg"></center>'
'While you are sunbathing on the beach you came campaign of four guys and they began to flirt with you'
act 'Otshit': gt 'lake','start'
	act 'Flirt':
	cla
	*clr
	'<center><img src="images\img\Lake\Vlake1\vlake2.jpg"></center>'
	'Boys perched nearby, they flirt and how to sneak to touch your body and caress it.'
	act 'Otshit': gt 'lake','start'
		act 'Relax and enjoy':
		cla
		*clr
		set guy += 4
		set bj += 1
		dynamic $venerasiak
		'<center><img src="images\img\Lake\Vlake1\vlake3.jpg"></center>'
		'One of the guys gets dick and holds it to your face, you grinned lasciviously and licked it, the other guys got too excited and members. They surrounded you and you kneeling immediately aspirated from four people.'
		act 'Continue to suck':
			cla
			*clr
			set kuni += 1
			'<center><img src="images\img\Lake\Vlake1\vlake4.jpg"></center>'
			'One of the guys leaned toward your pussy kissed her and began to lick trying to shove his fingers inside.'
			act 'Move his legs': gt 'lake','vlake1cum'
			act 'Relax and enjoy':
				cla
				*clr
				set gang += 1
				set sex += 1
				set anal += 1
				'<center><img src="images\img\Lake\Vlake1\vlake7.jpg"></center>'
				'Noticing that you reacted favorably to his fingers in your vagina, the guy took out his fingers, and their place was taken by his hard cock. Others also decided not to stop blowjob, starting periodically change places.'
				act '"Let twos"':
					cla
					*clr
					'<center><img src="images\img\Lake\Vlake1\vlake8.jpg"></center>'
					'"Let´s two" you said, and did not have time to finish felt like dildo included in your anus. And again spun, then you fall down below the top, but always all your holes were plugged members, it´s crazy like you but you do not want to finish and could not.'
					act 'Finish': gt 'lake','vlake1cum'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'vlake1cum':
cla
*clr
gs 'stat'
set cumlip += 1
set cumface += 1
'<center><img src="images\img\Lake\Vlake1\vlake5.jpg"></center>'
'Boys began to cum on your face and mouth. You lick cum off dick and swallows it. Finally satisfied guys, dressed and gone, you´re left with is not satisfied.'
act 'Leave': gt 'lake','start'
act 'Masturbate':
	cla
	*clr
	set mastr += 1
	set orgasm += 1
	'<center><img src="images\img\Lake\Vlake1\vlake6.jpg"></center>'
	'Left not satisfied, you decide to take matters into their own hands, puts his hand to caress her pussy until orgasm and not nakryvvaet you.'
	act 'Leave': gt 'lake','start'
	end
end

if $ARGS[0] = 'vlake2':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\Vlake2\vlake1.jpg"></center>'
'Tanning you noticed two naked men walking along the shore from the nude beach.'
act 'Disregard': gt 'lake','start'
act 'Wave it':
	cla
	*clr
	'<center><img src="images\img\Lake\Vlake2\vlake2.jpg"></center>'
	'Men come up to you, one of them falls sharply in front of you pricks and bites her lips in your second stoke your panties.'
	act 'And push them away': gt 'lake','start'
		act 'To kneel':
		cla
		*clr
		dynamic $venerasiak
		set guy += 2
		set bj += 1
		set SUB += 1
		'<center><img src="images\img\Lake\Vlake2\vlake3.jpg"></center>'
		'You go up to her knees, pick up their dildo and suck alternately takes both.'
		act 'Proceed':
			cla
			*clr
			set sex += 1
			'<center><img src="images\img\Lake\Vlake2\vlake4.jpg"></center>'
			'One of the men lay down and you continue to suck him lifting up his ass, the second immediately discovered volzovalsya view and put his penis in your wet pussy.'
			act '"Like me, both"':
				cla
				*clr
				set anal += 1
				'<center><img src="images\img\Lake\Vlake2\vlake5.jpg"></center>'
				'"Like me, both" you moaned and straddled one of the men, and the second was not deaf to your request and put his cock in your ass.'
				act 'Change position':
					cla
					*clr
					set cumassin += 1
					'<center><img src="images\img\Lake\Vlake2\vlake6.jpg"></center>'
					'You planted his anus on a man lying. Second came up to you and keeping your head with one hand began to fuck your mouth, penetrating his dildo deeper and deeper. After a while you feel as hot cum fills your anus and finished with him, the second man got ready to cum in your mouth.'
					act 'Continue to suck': gt 'lake','vlake2cum'
					act 'Pull':
						cla
						*clr
						set cumface += 1
						'<center><img src="images\img\Lake\Vlake2\vlake7.jpg"></center>'
						'You remove a member from his mouth and the man had finished on your face.'
						act 'Leave': gt 'lake','start'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'vlake2cum':
cla
*clr
gs 'stat'
set cumlip += 1
'<center><img src="images\img\Lake\Vlake2\vlake8.jpg"></center>'
'You continued to suck and soon your mouth filled stream of semen swallowing it you carefully licked his cock, leaving no drop of sperm.'
act 'Leave': gt 'lake','start'
end

if $ARGS[0] = 'andrey1':
cla
*clr
gs 'stat'
'You came to Andrew, he grinned and said, "Let´s go for a swim!"'
set minut += 30
act 'Refuse': gt 'lake','start'
act 'Bathe':
	cla
	set anreiday = day
	set anreirape = 0
	'<center><img src="images\img\Lake\Andrey1\andrey1.jpg"></center>'
	'- I see the lady agree - predatory Andrew grinned. - Then let´s go for a swim. He caught you in his arms, laughing your inappropriate attempts to cover him from his chest, dropped your hand and lips gently pinched the right nipple. You sigh, and abdomen began to rise warm wave excitation.'
	'You´re a little swimming, resting and relaxing. And now, you already are back on the bedspread, stroking in rhythm of your body relaxing. First, you should excite a man, - he said, pododvinuv his penis to your mouth and bit potershis head on your lips.'
	act 'Open the lips':
		cla
		*clr
		set bj += 1
		set sex += 1
		'<center><img src="images\img\Lake\Andrey1\andrey2.jpg"></center>'
		'You sever the lips and held his tongue along the barrel, then pulled him into her as they could. Andrew started with gusto fuck you in the mouth. Suddenly your hearing some sob came from nearby bushes. You looked up and saw how the bushes spying on you young man pulls his hand up and down in the groin area.'
		'Andrew also realized that peep behind them, and turned your head so that the observer could see all the details of how the red head appears and disappears in your mouth. You defiantly licked member of the men, then speeding up, then slowing the pace, holding the bridle on his tongue and mouth periodically absorbing his testicles. Where you were born in these instincts, you did not know, but by the reaction of Andrew understood that you´re doing it right.'
		'Finally, Andrew dismissed you from yourself, you knocked on his back and one jerk deep inside your womb. You cringed in pain, but Andrew, without stopping, began to move inside of you. After a couple of minutes you monotonous movements enveloped sweet bliss, and when Andrew became fingers to stimulate your anus, penetrating directly into both holes, you blew on the waves of incredible pleasure. Through narrowed eyelids, you watched as a young man Peeper, breathless, fascinated, as if in a trance, devoured every move.'
		act 'Call boy':
			cla
			*clr
			set guy += 1
			set cumlip += 1
			set cumass += 1
			set anal += 1
			'<center><img src="images\img\Lake\Andrey1\andrey3.jpg"></center>'
			'Shy young man came up to you. "Well, what are you waiting briefs descends until the girl against" Andrew threw him, turning you over and pushing your hands buttocks. The young man came from behind and put his penis in your anus. Now two members moved in you as pistons delivering incredible pleasure. Moaning you rode on two terms, until the young man did not finish you on the ass, and Andrew got up and discharged into your mouth.'
			act 'Rise from the beach': gt 'lake','start'
			end
		act 'Deeper! Stronger!':
			cla
			*clr
			set cumpussy += 1
			'<center><img src="images\img\Lake\Andrey1\andrey4.jpg"></center>'
			'- Deeper, Stronger! - You shouted, do not hesitate to enthusiastically absorbing the whole man. He answered you inarticulate growl escaping from it to the beat of their ragged breathing. Even before the two of you left off, the boy ran away.'
			act 'Rise from the beach': gt 'lake','start'
			end
		end
	end
end

if $ARGS[0] = 'kater1':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\kater1\kater1.jpg"></center>'
'Riding on the jet you do too steep turn, throws you in the water, you have swallowed the water and begin to sink. On your happiness you notice the guy on the boat, he pulls you out of the water, and watercraft binds to the boat. After a while, when you catch your breath and comfortable on the foundations of the nose cutters, a guy comes to you'
'"Well, how are you beautiful, pulled myself together, what about gratitude?" he asks, his hand at the same time you lodge pubis.'
act 'Sit on the watercraft and leave': gt 'lake','start'
	act 'Spread her legs':
	cla
	*clr
	dynamic $venerasiak
	set guy += 1
	set kuni += 1
	'<center><img src="images\img\Lake\kater1\kater2.jpg"></center>'
	'You push the legs, making it clear that they are ready to thank savior, the guy smiled, introduced his fingers into your vagina and tongue began to caress your clitoris.'
	act 'Give blowjob':
		cla
		*clr
		set bj += 1
		'<center><img src="images\img\Lake\kater1\kater3.jpg"></center>'
		'You seat guy lick dildo, bows his lips and start sucking selflessly, in a few minutes you feel like a dick in your mouth starts sodragatsya ready to finish.'
		act 'Continue to suck': gt 'lake','kater1cum'
		act 'Stay':
			cla
			*clr
			set sex += 1
			'<center><img src="images\img\Lake\kater1\kater4.jpg"></center>'
			'You stay, the guy puts you cancer and gimlet your vagina with your cock.'
			act 'Change position':
				cla
				*clr
				'<center><img src="images\img\Lake\kater1\kater5.jpg"></center>'
				'When he gets tired, you store it, and themselves, jump up on top of him and start jumping on neobezschennom as stallion.'
				act 'Change position':
					cla
					*clr
					set orgasm += 1
					'<center><img src="images\img\Lake\kater1\kater6.jpg"></center>'
					'You turn around on it without letting yourself dildo and keep nesschadno impale her pussy on his dildo and now one of you sees a groan of pleasure. Weaken fall out with him.'
					act 'Proceed':
						cla
						*clr
						'<center><img src="images\img\Lake\kater1\kater7.jpg"></center>'
						'Guy povarachivaetsya you to the side and re-enters your pussy, continuing his gimlet her dildo.'
						act 'Change position':
							cla
							*clr
							'<center><img src="images\img\Lake\kater1\kater8.jpg"></center>'
							'Then he takes you up on your feet, lifts one and forcefully inserts his penis into your vagina, you are satisfied and tired hangs on it waiting for him to finish. After a few thrusts he pulls out his dick and lets you, you fall on your knees and the guy puts you in the mouth.'
							act 'Suck': gt 'lake','kater1cum'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'kater1cum':
cla
*clr
gs 'stat'
set cumbelly += 1
set cumlip += 1
set cumface += 1
set cumbrest += 1
'<center><img src="images\img\Lake\kater1\kater9.jpg"></center>'
'Irruptive flow of sperm in your mouth was on so large that you could not keep your mouth and swallow were filled to the brim, sperm flowed like a cornucopia poured out of your mouth, spread over the chin and fill your chest and stomach.'
act 'Lick residues':
	cla
	*clr
	'<center><img src="images\img\Lake\kater1\kater10.jpg"></center>'
	'When the stream dried up, distraught as you bathed sperm began to lick the remnants of his cock, savoring every drop.'
	act 'Leave': gt 'lake','start'
	end
end

if $ARGS[0] = 'kater2':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\kater2\kater1.jpg"></center>'
'Riding on a banana you withheld, throws you in the water, you have swallowed the water and begin to sink. On your happiness you notice the two guys on the boat they gets you out of the water. After a while you catch your breath, relaxed and started to look around. You saw that on the nose are both your savior is bare.'
act 'Pretending to be asleep until moored': gt 'lake','start'
	act 'Approach them':
	cla
	*clr
	dynamic $venerasiak
	set guy += 2
	set sex += 1
	'<center><img src="images\img\Lake\kater2\kater2.jpg"></center>'
	'You shoot a swimsuit, come to the guys and let not the word, jump up to one of the guys and kiss him passionately, in a second you feel like a member of his risen rests on your buttocks, you take it in your hand and guide in her pussy.'
	act 'Change position':
		cla
		*clr
		set anal += 1
		'<center><img src="images\img\Lake\kater2\kater3.jpg"></center>'
		'The guy takes you from your member povarachivaetsya back to him, grabs and lifts the buttocks, your legs throws up, and the guy pressing you to indulge your anus tightens on your dildo. You moan, whether from pain inflicted huge dildo in your ass, whether of pleasure that he gives you, with each thrust you try to take his cock as deep as possible in itself.'
		'"Want deeper?" he asks'
		act '"Yes, deeper, harder!"':
			cla
			*clr
			set bj += 1
			'<center><img src="images\img\Lake\kater2\kater4.jpg"></center>'
			'"Yes, deeper, harder!" you shout.'
			'"Well then, hold on," the guy says, putting you on all fours. He comes into you and shoves his cock so deep in your ass that his balls clap on your buttocks. The second guy who all this time looking at you, coming to poke you in the face by a dick. You grab his cock and start sucking lips.'
			act '"Like both of them."':
				cla
				*clr
				set orgasm += 1
				'<center><img src="images\img\Lake\kater2\kater5.jpg"></center>'
				'"Fuck me in the two holes" you shout themselves marveling at his lust, the guys were not included radumyvat and both left their members as deep as they could to. Soon you like provalisis swam before his eyes following whole body trembled, you want something to orgasm this never end'
				act 'Further':
					cla
					*clr
					'<center><img src="images\img\Lake\kater2\kater6.jpg"></center>'
					'Realizing that you are satisfied you guys put on the deck, stood side by side and began to masturbate.'
					act 'Turn to one':
						cla
						*clr
						set cumlip += 1
						'<center><img src="images\img\Lake\kater2\kater7.jpg"></center>'
						'When one of the guys groaned, you turned to him opening his mouth. And he vyprysnul his seed into your mouth, you swallow it with pleasure.'
						act 'Turn to the second':
							cla
							*clr
							set cumface += 1
							'<center><img src="images\img\Lake\kater2\kater8.jpg"></center>'
							'Soon groaned and second, you turned to him, but as soon as you opened your mouth, the guy is dead on your face.'
							act 'Leave': gt 'lake','start'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'kater3':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\kater3\1.jpg"></center>'
'Riding on the jet you do too steep turn, throws you in the water, you have swallowed the water and begin to sink. On your happiness you notice the guy on the boat, he pulls you out of the water, and watercraft binds to the boat. After a while, when you catch your breath and comfortable on the foundations of the nose cutters, a guy comes to you'
'"Well, how are you beautiful, pulled myself together, what about gratitude?" he asked, thrusting his hand while you cowards.'
act 'Sit on the watercraft and leave': gt 'lake','start'
	act 'Spread her legs':
	cla
	*clr
	dynamic $venerasiak
	set guy += 2
	set kuni += 1
	'<center><img src="images\img\Lake\kater3\2.jpg"></center>'
	'You shoot panties and spreads her legs, man lowers her head to your feet and caressing them with his tongue moving eventually gets to your clitoris.'
	act 'Give blowjob':
		cla
		*clr
		set bj += 1
		set sex += 1
		'<center><img src="images\img\Lake\kater3\4.jpg"></center>'
		'You seat guy lick dildo, bows his lips and start sucking selflessly until you suck from the depths, a second boat. Seeing this picture, he comes up to you and puts his cock in your pussy.'
		act 'Further':
			cla
			*clr
			set anal += 1
			'<center><img src="images\img\Lake\kater3\6.jpg"></center>'
			'You sodites on top of one of them, and the second part of you in the ass.'
			act 'Change position':
				cla
				*clr
				set orgasm += 1
				'<center><img src="images\img\Lake\kater3\8.jpg"></center>'
				'You guys are deploying and re-enter as a couple.'
				act 'Change position':
					cla
					*clr
					set cumlip += 1
					'<center><img src="images\img\Lake\kater3\11.jpg"></center>'
					'Sated they turn you end up in the mouth.'
					act 'Leave': gt 'lake','start'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'horse1':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\horse1\horse1.jpg"></center>'
'Riding along the beach you notice the two men on quad bikes, they podehali to you and offered to walk together.'
act 'Refuse': gt 'lake','start'
	act 'Go with them':
	cla
	*clr
	'<center><img src="images\img\Lake\horse1\horse2.jpg"></center>'
	'You spukaetes horse and go along with the men talking about any nonsense.'
		act 'Move on':
		cla
		*clr
		'<center><img src="images\img\Lake\horse1\horse3.jpg"></center>'
		'Suddenly one of the men turns you to his chest and begins to paw at this time the second hugs you from behind, reaching into your panties.'
		act 'And push them away': gt 'lake','start'
			act 'Get their members':
			cla
			*clr
			dynamic $venerasiak
			set guy += 2
			set bj += 1
			'<center><img src="images\img\Lake\horse1\horse4.jpg"></center>'
			'You took them members of his pants, squatted down and began to suck greedily.'
			act '"Fuck me"':
			set sex += 1
				cla
				*clr
				'<center><img src="images\img\Lake\horse1\horse5.jpg"></center>'
				'"Fuck me" you cried. One of the men lay down and you continue to suck him, the second came from behind and put your pine with desire pussy'
				act 'Change position':
					cla
					*clr
					'<center><img src="images\img\Lake\horse1\horse6.jpg"></center>'
					'You straddle one of the men jumping on it like a horse galloping all a few minutes ago. Second came up to you and started to tease you as a member, then lowering it to you that, you could suck it then picking up forcing you are drawn to him trying to catch his lips.'
					act 'Change position':
						cla
						*clr
						set orgasm += 1
						'<center><img src="images\img\Lake\horse1\horse7.jpg"></center>'
						'You jumped from the penis and got on all fours, men crowded around you from different sides of one fucked your vagina, the second thrust into his mouth. You suck at the same time began yarosno podmahivaya hips, you will soon feel that dick in your mouth that´s about to explode.'
						act 'Remove the mouth':
							cla
							*clr
							set cumlip += 1
							'<center><img src="images\img\Lake\horse1\horse8.jpg"></center>'
							'You remove a member from his mouth and began stroking his tongue out in a second your efforts were rewarded on stream smermy protruding tongue'
							act 'Suck second':
								cla
								*clr
								'<center><img src="images\img\Lake\horse1\horse9.jpg"></center>'
								'You kneel before the second man had a language from balls to the head and took in the mouth when you suck dick with naslozhdenie man trembled. "Now finish" flashed through your mind'
								act 'Continue to suck': gt 'lake','horse1bj'
								act 'Pull':
									cla
									*clr
									set cumface += 1
									'<center><img src="images\img\Lake\horse1\horse10.jpg"></center>'
									'You remove a member from his mouth and the man had finished on your face, with the words, "Here´s a baby face cream", you gladly licked the remnants of sperm from his penis.'
									act 'Leave': gt 'lake','start'
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'horse1bj':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\horse1\horse11.jpg"></center>'
'And the flow of sperm gushed into your mouth, you swallow it purring with pleasure, licking the remnants of his cock and swallowed again'
act 'Leave': gt 'lake','start'
end

if $ARGS[0] = 'horse2':
cla
*clr
gs 'stat'
'<center><img src="images\img\Lake\horse2\horse1.jpg"></center>'
'When you are riding you caught two men on horseback and offered to walk together.'
act 'Refuse': gt 'lake','start'
	act 'Go with them':
	cla
	*clr
	'<center><img src="images\img\Lake\horse2\horse2.jpg"></center>'
	'You came down from their horses and started walking along the beach talking about any nonsense.'
	act 'Finish the walk': gt 'lake','start'
		act 'Touch their pants':
		cla
		*clr
		dynamic $venerasiak
		set bj += 1
		set guy += 2
		'<center><img src="images\img\Lake\horse2\horse3.jpg"></center>'
		'You touch their pants in the groin, the men looked at each other freeze, then you kneel down and pull out their members begin to caress his tongue smooth transition blowjob.'
		act 'Lie on your back':
			cla
			*clr
			set anal += 1
			'<center><img src="images\img\Lake\horse2\horse4.jpg"></center>'
			'Releasing their members, you went to the back of the men odnin prepodnyal you legs and put in the ass, you would not expect this and squealed softly, the second located in your head, trying to shove your dick in her mouth.'
			act 'Take by mouth':
				cla
				*clr
				'<center><img src="images\img\Lake\horse2\horse5.jpg"></center>'
				'You vskhvatili his dick lips and greedily inhaled the'
				act 'Change position':
					cla
					*clr
					set sex += 1
					set orgasm += 1
					'<center><img src="images\img\Lake\horse2\horse6.jpg"></center>'
					'You sat on one of the men on horseback, the second came from behind to ambush your count you in the anus and strong strokes fucked your ass, you have dark eyes with pleasure, all body trembled and you faced a wave of orgasm. Soon you povstvovali as men began to moan and now explode.'
					act 'Change position':
						cla
						*clr
						'<center><img src="images\img\Lake\horse2\horse7.jpg"></center>'
						'You jumped from members and knelt, men crowded around you from different sides, one finished immediately.'
						act 'Suck second':
							cla
							*clr
							'<center><img src="images\img\Lake\horse2\horse8.jpg"></center>'
							'You turned to the second, his lips wrapped around his cock, but you pulled his cock deeper into himself as a man groaned his cock stiffened ready to pour into your mouth sperm flows'
							act 'Remove the mouth':
								cla
								*clr
								set cumface += 1
								set cumlip += 1
								'<center><img src="images\img\Lake\horse2\horse9.jpg"></center>'
								'Removing member, you open wide, ready to catch the stream of sperm, a man does not keep you waiting, sperm splattered into your mouth, your obvalakivaya tongue and throat.'
								act 'Leave': gt 'lake','start'
								end
							end
						end
					end
				end
			end
		end
	end
end
--- lake ---------------------------------

# metro
if $ARGS[0] = 'start':
'<center><B><font color = maroon>Metro station</font></B></center>'
if $loc = 'street':'<center><B><font color = maroon>Residential area</font></B></center>'
if $loc = 'down':'<center><B><font color = maroon>Center</font></B></center>'
if $loc = 'Nord':'<center><B><font color = maroon>Northern region</font></B></center>'
'<center><img src="images\etogame\metro.jpg"></center>'
'Subway fare costs 16 rubles.'
set minut += 15
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if workDisk = 3 and konvert = 1:
	badrand = RAND(0,100)
	if badrand >= 80: konvert = 0
	end
if money >= 16:
	if $loc!'street':
		act 'Go to the residential area':
			set $loc = 'street'
			gt 'metro','vagon'
			end
		end
	if $loc!'down':
		act 'Go to the center':
			set $loc = 'down'
			gt 'metro','vagon'
			end
		end
	if $loc!'Nord':
		act 'Go to the northern area':
			set $loc = 'Nord'
			gt 'metro','vagon'
			end
		end
	end
act 'Get off the subway':
	set minut += 15
	gt '<<$loc>>'
	end
end

if $ARGS[0] = 'vagon':
cla
'<center><B><font color = maroon>Subway car</font></B></center>'
clr
set money -= 16
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if hour < 5 or hour > 10 and hour < 15 or hour > 24:
	'<center><img src="images\etogame\vagon.jpg"></center>'
	'In the car just a few passengers sadly examines advertising in the car.'
	end
if hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
	'<center><img src="images\etogame\vagonFull.jpg"></center>'
	'In the car, a lot of people all standing like statues without paying the slightest attention to others.'
	set frotrand = RAND(0,100)
	if frotrand >= 90 - (frot * 10) and frot < 3: gt 'frot','a'
	if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 1 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 1:
		set tipfrot = RAND(0,1)
		if tipfrot = 0: gt 'frot','b'
		if tipfrot = 1: gt 'frot','d1'
		!gt 'frot','b'
		end
	if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 0 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 0:
		set tipfrot = RAND(0,2)
		if tipfrot =0: gt 'frot','c'
		if tipfrot =1: gt 'frot','d'
		if tipfrot =2: gt 'frot','e'
		end
	end
	if sosedQW >= 1:
		if hour = 7 or hour = 15:
	sosedMetroRand = RAND(0,100)
			if sosedMetroRand >= 60 and sosedMetroDay ! day:
			'You notice in the subway <a href="exec:Gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
			end

		end

	end


if cumfrot > 0 or cumface > 0:
	if hour >= 7 and hour <= 21:
		manna -= 10
		'Several passengers were hatched at you looking at where you cum smeared.'
		end
	end
act 'Get out of the car': gt 'metro','start'
end
--- metro ---------------------------------

# narkopriton
'<center><B>drug houses</B></center>'
'<center><img src="images\etogame\narkopriton.jpg"></center>'
'Crappy apartment where addicts come to inject and buy heroin.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'Door is opened by a skinny guy with a crazy look. After examining you, he said, "This product is worth apiece."'



act 'Leave': minut += 15 & gt 'street'

if money >= 1000:
	act 'Buy heroin.':
		cls
		money -= 1000
		if SLomka > 0:
			minut += 5
			StrongNarkota += 25
			SNarkTimes += 1
			gs 'stat'
			$tempval = ''
			if narkoman ! 0: $tempval = ' with trembling hands'
			gt 'narkopriton'
			'You bought some heroin and injected yourself<<$tempval>>'
		else
			heroin += 1
			gt 'narkopriton'
		end
	end
end

if SLomka > 0 and money < 1000:
	act 'Persuade to sell you on credit.':
		$tempname = 'he'
		if HaveMetBobka = 1: $tempname = 'Bobka'
		cls
		minut += 5
		gs 'stat'
		$tempval = 'You'
		if SNarkTimes > 0: $tempval = 'You are experiencing withdrawal and'
		'<<$tempval>> start to persuade <<$tempname>> to give you a dose on credit, promising to pay back later.'
		'But <<$tempname>> only grinned wickedly "Yeah, Do you know how many times a day I hear that? I won´t give anything on credit."'
		act 'Leave': gt $curloc
		act 'Beg and promise to do anything for it.':
			cls
			minut += 5
			gs 'stat'
			'You started begging to give you drugs on credit, and promise to do anything for it. He thought a little and then took you by the hand to the next room'
			act 'Escape': gt $curloc
			act 'Go to the next room.':
				cls
				minut += 5
				gs 'stat'
				bobrand = RAND(0,3)
				$tempval = ''
				if bobrand < 3: $tempval = ' and start sucking'
				'"Get on your knees<<$tempval>>."'
				act 'Run away': gt $curloc
				act 'Do as he says': gt 'bobka'
			end
		end
	end
end
--- narkopriton ---------------------------------

# park
if $ARGS[0] = 'start':
cla
*clr
gs 'parkivent'
gs 'parkdin'
$torchki = {
cls
gs 'stat'
gs 'time'
SNarkPriton = 1
'The junkies look at you with a daunted gaze. They probably thought you are a police officer. Then one of them said, "We don''t sell no drugs. Go to the Drug House, ye can get zome there."'
act 'Walk away from them': gt 'park','start'
}
$sexloc = $CURLOC
'<center><B><font color = maroon>Park</font></B></center>'
'<center><img src="images\etogame\park.jpg"></center>'
clr
gs 'stat'
gs 'time'
'The central park is huge, sandy paths go into all directions and ever so often you''ll find a bench to sit on. In the summer you''ll see a lot people playing ball, relax or have a picnic in the more open areas, while in the winter you''ll meet families with their children sledding down the humps.'
'Despite it''s almost paradise-like appearence, the park can be very dangerous once the sun goes down.'
''
'There is a sign that points into general direction of the <a href="exec: set minut += 47 & GT ''down''">City Center</a>. You estimate the walk to the city center would take about 40 to 50 minutes.'
'The second sign points into the direction of the <a href="exec: set minut += 19 & GT ''street''">Residential Area</a>. If you have to guess, the walk to the residential are should take about 20 minutes.'
'The third sign says <a href="exec: set minut += 59 & GT ''Nord''">Northern District</a> on it and points north, you suppose. You know the Northern District is rahter far away from here, you estimate taht a walk would take almost one hour'
''
if SNarkPriton = 0: 'Near one of the shops roll <a href="exec: dynamic $torchki">junkies</a>.'
	if car > 0 and cardrive = 5:
	set cardrive = 5
	'Stands near the park <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	end

	if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
	set nurand = RAND(0,100)
		if nurand >= 80:
		set manna -= 5
		set SUB += 1
		set horny += SUB
		set nudity += 1
		'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
		'You blush with shame and you try to walk out of his sight as fast as possible.'
		end
	end

	if hour >= 10 and hour <= 22:
		act 'Sit in a Café':
		cla
		*clr
		set minut += 30
		gt 'ParkKafe','food'
		end
	end

	act 'Walk in the park (1:00)':
		cla
		set minut += 60
		set parkrand = RAND(0,20)
			if hour > 7 and hour < 21:
				if parkrand < 10 and parkrand > 0:
				dynamic $parkrandivdin
				exit
				end
				!if parkrand > 14:
				!dynamic $parkrandivdin
				!exit
				!end
			end
		set manna += 10
		set willpower += 10
		gs 'stat'
		'You take a relaxing and refreshing walk through the park, trying to figure out the meaning of life.'
		act 'Finish the walk': gt 'park','start'
	end

	if pusher = 1 and hour >= 6 and hour <= 21:
	'There''s a drug dealer casually sitting on one of the benches. He''s trying not to be too suspicious.'
		if money >= 2000:
			act 'Buy "Pale Lady" (2000 rubles per dose)':
			cla
			set minut += 10
			palelady = input ("How many doses you want to buy?")

				if palelady*2000 > money or palelady <= 0:
				'Either tell me how many you want to buy or get lost.'
				end

				if palelady*2000 <= money:
				set money -= palelady * 2000
				set dur += palelady
				'You get out your purse and pay him quickly, hoping nobody else saw you giving him money. Then he passes you the doses you''ve paid for and you can savely sniff the stuff at home.'
				end
			act 'Casually walk away': gt 'park','start'
			end
		else
		'You do not have enough money, not even for one dose.'
		end
	end

	if sport > 0 and parkrunday ! day:
		act 'Jog through the park (1:00)':
		cla
		*clr
		set parkrunday = day
		set minut += 30
		set manna -= 10
		set willpower -= 10
		set beg += 1
		set fat -= 8
		set speed += 1
		set sweat += 3
		'<center><img src="images\etogame\parkbeg.jpg"></center>'
		'You randomly take the paths, you run them up and down and about an hour later, you are out of breath and heavily sweating.'
			if hour >= 20:
			set parkrand = RAND(0,10)
				if parkrand >= 8:
				'A shade steps out of the shadow from a tree and runs up to you. Before you can react, he hits you and drags you into the bushes. "Relax and enjoy this", he says.'
					act 'Fight':
					cla
					set $nameV = 'Rapist'
					!Статы
					set strenV = 100
					set speedV = 50
					set agilV = 40
					set reactV = 40
					set vitalV = 50
					set intelV = 10
					set willV = 10
					!Навыки
					set magikV = 100
					set boxingV = 50
					set shootV = 100
					!Параметры
					set healthV = vitalV * 10 + strenV * 5
					set mannaV = intelV * 10 + magikV * 10
					set willpowerV = willV * 10
					set BonusAtakV = 0
					set BonusDefV = 0
					!программа действий
					set program = 1
					set RapistFight = 1
					if spellavtoklon = 1: set klon = 3
					if spellbefshild = 1: set defence = 500
					gt 'fight','start'
					end
				exit
				end
			end
		act 'Complete jog': gt 'park','start'
		end

	end

	act 'Go to the highway near the park': gt 'Prostitute','start'

	act 'Go to the fair': gt 'park','luna'

end

if $ARGS[0] = 'luna':
cla
*clr
set minut += 5
'<center><B><font color = maroon>The Fun Fair</font></B></center>'
'<center><img src="images\etogame\luna.jpg"></center>'
clr
gs 'stat'
gs 'time'


'The fun fair sits in the hearts of the park and attracts families, people on a vacation and loving couples from all over the town. It''s a popular gathering spot and a place to forget your worries for a few hours.'
if vladimirQW = 0 and hour >= 9 and hour <= 20 and week > 5 and vnesh > 10: '<a href="exec: GT ''qwloc''">There''s a strong looking man staring at you from the fences.</a>.'


	if hour >= 9 and hour <= 20:
		act 'Distribute flyers to earn money (50 rubles per hour)':
		cla
		*clr
		'<center><img src="images\etogame\flaer.jpg"></center>'
		'For an hour straight, you walked through the park and the fun fair, chatting up random visitors and trying to give them one of your flyers. After that you are being paid 50 rubles for your effort.'
		set minut += 60
		set money += 50
		set manna -= 5
		act 'Move away': gt 'park','luna'
		end
	end

	if hour >= 9 and hour <= 20 and money >= 50:
		act 'Eat Shawarma - 50 rubles':
		cla
		*clr
		'<center><img src="images\etogame\luna1.jpg"></center>'
		set minut += 30
		set health += 10
		set money -= 50
		set manna += 5
		set willpower += 5
			if energy >= 30:
			set fat += 7
			'You can''t eat one more bite.'
			end
			if energy >= 20 and energy < 30:
			set fat += 5
			set energy += 10
			'While you weren''t really hungry, you ate the entire dish of shawarma.'
			end
			if energy < 20:
			set energy += 20
			set fat += 3
			'You are glad you finally got something to eat.'
			end
		act 'Move away': gt 'park','luna'
		end
	end

	if hour >= 9 and hour <= 20 and money >= 50:
		act 'Drink Lemonade - 50 rubles':
		cla
		*clr
		'<center><img src="images\etogame\luna1.jpg"></center>'
		set minut += 30
		set health += 10
		set money -= 50
		set manna += 5
		set willpower += 5
			if water >= 20:
			set fat += 3
			'You weren''t really thristy, but you still emptied the bottle of lemonade.'
			end
			if water < 20:
			set fat += 2
			'Finally you got something to drink, even if it''s just a bottle of lemonade.'
			set water += 20
			end
		act 'Move away': gt 'park','luna'
		end
	end

	if hour >= 9 and hour <= 20 and money >= 100:
		act 'Shoot some targets - 100 rubles':
		cla
		*clr
		'<center><img src="images\etogame\tir.jpg"></center>'
		set minut += 15
		set money -= 100
		'You pay 100 rubles for ten bullets. If you are able to hit all targets, you can win a teddy bear.'
			act 'Shoot':
			cla
			set tirkoef = agil + shoot
			set tirmin = tirkoef * 20/100
			set tirand = RAND(tirkoef - tirmin, tirkoef + tirmin)
				if tirand >= 80:
				set mishka += 1
				set manna += 5
				'You hit all targets and didn''t even miss once. Congratulations! You''ve won a Teddy Bear.'
				end
				if tirand < 80 and tirand >= 70:
				'Oh, you''ve only missed once.'
				end
				if tirand < 70 and tirand >= 60:
				'You were able to hit the target eight times, but you''ve missed twice.'
				end
				if tirand < 60 and tirand >= 50:
				'You were able to hit the target seven times, but you''ve missed twice.'
				end
				if tirand < 50 and tirand >= 40:
				'Six times you were able to hit the target, but you''ve missed four times.'
				end
				if tirand < 40 and tirand >= 30:
				'Five times you were able to hit the target, but you''ve missed five times too.'
				end
				if tirand < 30 and tirand >= 25:
				'Four times you were able to hit the target, but you''ve missed six times.'
				end
				if tirand < 25 and tirand >= 20:
				'Three times you were able to hit the target, but you''ve missed seven times.'
				end
				if tirand < 20 and tirand >= 15:
				'You were able to hit the target twice, but you''ve missed it eight times.'
				end
				if tirand < 15 and tirand >= 10:
				'You were only able to hit the target once and missed it nine times.'
				end
				if tirand < 10:
				'You couldn''t even hit the target once.'
				end
			set shoot += 1
			act 'Move away': gt 'park','luna'
			end
		end
	end

	if hour >= 9 and hour <= 20 and money >= 20:
		act 'Ring-The-Bell - 20 rubles':
		cla
		*clr
		'<center><img src="images\etogame\silomer.jpg"></center>'
		'You''ve paid 20 rubles to play Ring-The-Bell.'
			act 'Bump':
			cla
			set minut += 30
			set money -= 20
			set stKo = stren * 20/100
			set damage = RAND(stren - stKo, stren + stKo)
			if stren < 30: set stren += 1
			if stren >= 30: set stren += RAND(0,1)
			'You swung the hammer as hard as you could, but it wasn''t enough for a new record. A LED screen lights up and shows you your score: <<damage>>'
			if damage > maxdamage: set maxdamage = damage & 'Congratulations! You''ve just set a new record!'
			act 'Move away': gt 'park','luna'
			end
		end
	end

	if hour >= 9 and hour <= 20 and money >= 50:
		act 'Ride on the carousel - 50 rubles':
		cla
		*clr
		'<center><img src="images\etogame\karusel.jpg"></center>'
		'You''ve paid 50 rubles to take a ride on the carousel.'
		set minut += 30
		set money -= 50
		if will < 30: set will += 1
		if will >= 30: set will += RAND(0,1)
		set willpower += 10
		set manna += 10
		'The ride was very exciting and refreshing.'
		act 'Move away': gt 'park','luna'
		end
	end


	if hour >= 9 and hour <= 20:
		act 'One-Armed Bandit': gt 'park','avtomat'
	end

act 'Go back to the park': gt 'park','start'
end

if $ARGS[0] = 'avtomat':
cla
*clr
clr
gs 'stat'
gs 'time'
'<center><img src="images\etogame\avtomat.jpg"></center>'
'The rules of the game are very simple, throw 5 rubles into the slot, pull the lever and with a bit of luck you can win the jackpot of 1.000 rubles.'
if money >= 5 and hour <= 20:
	act 'Throw in 5 rubles and pull the lever': gt 'park','avtomat2'
	end
act 'Move away from the slot machine': gt 'park','luna'
end

if $ARGS[0] = 'avtomat2':
cla
*clr
clr
gs 'stat'
gs 'time'
set minut += 5
set money -= 5
set avtrand = RAND(0,100)
if avtrand = 100:
	set money += 1000
	'Jackpot! You win 1000 rubles.'
	end
if avtrand < 100 and avtrand >= 95:
	set money += 100
	'You win 100 rubles.'
	end
if avtrand < 95 and avtrand >= 85:
	set money += 10
	'You win 10 rubles.'
	end
if avtrand < 85 and avtrand >= 75:
	set money += 5
	'You win 5 rubles.'
	end
if avtrand < 75:
	'Unfortunately, you weren''t able to win anything this time.'
	end
act 'Try your luck once more': gt 'park','avtomat'
end

!"if $ARGS[0] = 'whore':
cla
*clr
set minut += 5
'<center><B><font color = maroon>The road near the park</font></B></center>'
if hour < 16: '<center><img src="images\etogame\glpark.jpg"></center>'
clr
gs 'stat'
gs 'time'
temp = RAND(1,10)
if temp > 5 and exhibi > 2:
	act 'Walking in stockings':
		cla
		*clr
		set minut += 30
		'<center><img src="images\etogame\parkex.jpg"></center>'
		'You remove the robe and walk in stocking feet, as if it were forgotten to wear a skirt.'
		act 'Pretty': gt 'park','start'
	end
end
if hour >= 16:
	'<center><img src="images\etogame\park1.jpg"></center>'
	'<a href="exec:GT ''prostitute'',''start''"></a>'
	else
	'Cars drive on the road past the park and then not see anything interesting.'
	end
act 'Go back to the park': gt 'park','start'
end

!!!!!!!!! Excluded for now! There are no links to this location, as protition takes place in 'protitute'. This seems ot be the remnant of an older version of ETO
if $ARGS[0] = 'whore':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Hooker</font></B></center>'
'<center><img src="images\etogame\park2.jpg"></center>'
clr
gs 'stat'
gs 'time'
if whoreQW = 2:
	'Prostitutes look at you with curiosity.'
	end
if whoreQW = 1:
	'Prostitutes look at you with interest.'
	act 'Talk':
		cla
		set whoreQW = 2
		'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are free, do not work on anyone, but because of this many problems. Svimi Stella with her friends sometimes beat us and rob and sometimes come petty thugs and rob us of the money. If you want to work here, you have to pay and Stella and Bandyuk . course you cool, you can try to besiege Stella and her friends, but the bandits do not advise contact. And yet, you do not peck on customers, if you nebudesh dressed like a slut, you can buy some clothes in a sex shop. "'
		act 'Move away': gt 'park','prost'
		end
	end
if whoreQW = 0:
	'Hey, you´re not one of us, would valyl from our point, and that the teeth will not collect.'
	act 'Fuck you!':
		cla
		set minut += 15
		set $nameV = 'Stoned prostitute'
		!Статы
		set strenV = 20
		set speedV = 30
		set agilV = 30
		set reactV = 30
		set vitalV = 50
		set intelV = 10
		set willV = 10
		!Навыки
		set magikV = 10
		set boxingV = 10
		set shootV = 10
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 10 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 0
		set prostitutFight = 1
		if spellavtoklon = 1: set klon = 3
		if spellbefshild = 1: set defence = 500
		gt 'fight','start'
		end
	end
if whoreQW > 1 and hook = 1:
	act 'Search client (0:15)':
		cla
		*clr
		set minut += 15
		set whrand = RAND(0,100)
		if whrand <= 5:
			'To you black jeep pulled up, opened the window and leaned out healthy brazen face. "Hey slut, it´s time to pay tribute. Shtukar Come here and get out on work."'
			if money >= 1000:
				act 'Giving money':
					cla
					set money -= 1000
					'You gave the money big man in the jeep. He put them in his pocket and left.'
					act 'Move away': gt 'park','prost'
					end
				end
			act 'Fuck you!':
				cla
				set minut += 15
				set $nameV = 'Bandit'
				!Статы
				set strenV = 200
				set speedV = 30
				set agilV = 20
				set reactV = 20
				set vitalV = 150
				set intelV = 10
				set willV = 10
				!Навыки
				set magikV = 10
				set boxingV = 10
				set shootV = 10
				!Параметры
				set healthV = vitalV * 10 + strenV * 5
				set mannaV = intelV * 10 + magikV * 10
				set willpowerV = willV * 10
				set BonusAtakV = 0
				set BonusDefV = 0
				!программа действий
				set program = 0
				set prostitutFight = 2
				if spellavtoklon = 1: set klon = 3
				if spellbefshild = 1: set defence = 500
				gt 'fight','start'
				end
			end
		if whrand > 5 and whrand <= 60:
			'To you a car drove up and a man sitting behind the wheel asked how much it would cost the vacuum. You called a standard fee of 500 rubles. He agreed and opened Passenger door for you.'
			'<center><img src="images\picV\car.jpg"></center>'
			set minut += 15
			set bj += 1
			set guy += 1
			set money += 500
			set throat += 1
			if prezik > 0 and NoCondomUse = 0:
				'You got a condom and put it in your mouth, then bent over his pants and put his client condom on the penis with his mouth.'
				end
			'You clasped lips member client and began to suck it, caress the tongue and try to take it as deep as possible.'
			if prezik = 0 or NoCondomUse = 1:
				set swallow += 1
				set cumlip += 1
				'Client started cumming in your mouth, you continued to suck and swallow his hot, tart sperm.'
				set gerprand = RAND(0,100)
				if gerprand > 96:
					if VeneraOnce = 0: set VeneraOnce = 1
					set Venera += 1
					end
				end
			if prezik > 0 and NoCondomUse = 0:
				set prezik -= 1
				'Client finished in a condom.'
				end
			'After the client has finished you off immediately dropped out of the car.'
			act 'Go to the panel': gt 'park','prost'
			end
		if whrand > 60 and whrand <= 90:
			set minut += 15
			'You were walking along the sidewalk showing off their charms completely in vain, no you are not interested.'
			act 'Go to the panel': gt 'park','prost'
			end
		if whrand > 90:
			'To you approached a prostitute. "I hear you, slut, if you do not want problems, you have to pay Stella. Pyatihatnik Come here and get out on work."'
			if money >= 500:
				act 'Giving money':
					cla
					set money -= 500
					'You gave the money to the prostitute, she turned and walked away.'
					act 'Move away': gt 'park','prost'
					end
				end
			act 'Fuck you!':
				cla
				set minut += 15
				set $nameV = 'Prostitute'
				!Статы
				set strenV = 50
				set speedV = 50
				set agilV = 40
				set reactV = 30
				set vitalV = 60
				set intelV = 10
				set willV = 10
				!Навыки
				set magikV = 10
				set boxingV = 10
				set shootV = 10
				!Параметры
				set healthV = vitalV * 10 + strenV * 5
				set mannaV = intelV * 10 + magikV * 10
				set willpowerV = willV * 10
				set BonusAtakV = 0
				set BonusDefV = 0
				!программа действий
				set program = 0
				set prostitutFight = 3
				if spellavtoklon = 1: set klon = 3
				if spellbefshild = 1: set defence = 500
				gt 'fight','start'
				end
			end
		end
	end
act 'Move away': gt 'park','start'
end
"
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'rape1':
cla
*clr
'<center><img src="images\img\spaln\rape.jpg"></center>'
'Suddenly, you are hit on the head. You awake sometime later in a bush. Somehow you''re not able to move your arms, they must be tied up. As you look down on yourself, you realize, that you''re not wearing anything and before you can even react some dude is ramming his into your cunt. ''Shit'', you think yourself, ''I''m being raped.'''
set rape += 1
set sex += 1
set SUB += 3
set money = 0
act 'Try to resist':
	cla
	'You try everything that''s possible in your situation right now to resist him, but he just tightens his grips and doesn''t stop fucking you. Some time later he begins to groan and you can feel his hot cum flowing inside your pussy. You just hope to yourself, that he didn''t impregnate you. He then zips up his pants, takes your money and leaves.'
	set cumpussy += 1
	act 'Leave': gt 'park','start'
	end
act 'Try to relax and enjoy it':
	cla
	*clr
	'<center><img src="images\img\spaln\rapean.jpg"></center>'
	'It doesn''t take long for the rapist to realize you''re not resisting. "Good girl!", he says to you. He pushes you onto your knees and intends to take you doggy-style. He spreads your asschecks aside and pushes his cock inside. You cry out in pain, but he holds your mouth shut and doesn''t stop fucking your asshole.'
	set anal += 1
	set SUB += 5
	act 'Go on':
		cla
		*clr
		set bj += 1
		set cumlip += 1
		set cumface += 1
		set SUB += 5
		'<center><img src="images\img\spaln\cum.jpg"></center>'
		'"Give me a blowjob and you''ll get your reward for not resisting, woman.", he tells you. You nod obidiently and move on your knees and begin to give him head. It doesn''t take long for him to groan out in pleasure, "You better swallow it all, slut!" Shortly after that you can taste his hot cum inside your mouth and you swallow every drip of it, somehow enjoying the taste. Then he stand up, buttons up his pants and takes your money. While you were still liking your fingers clean from any drips of cum, he smiles and says to you, "Have a nice day slut."'
		act 'Stand up and leave': gt 'park','start'
		end
	end
end
--- park ---------------------------------

# parkdin
$parkrandivdin = {
if hour > 7 and hour < 21:
!день
	if parkrand < 10 and parkrand > 0:
	if parkrand = 1: dynamic $parkivent1
	if parkrand = 2: dynamic $parkivent2
	if parkrand = 3: dynamic $parkivent3
	if parkrand = 4: dynamic $parkivent4
	if parkrand = 5: dynamic $parkivent5
	if parkrand = 6: dynamic $parkivent6
	if parkrand = 7: dynamic $parkivent7
	if parkrand = 8: dynamic $parkivent8
	if parkrand = 9: dynamic $parkivent9
	else
	dynamic $parkemptyevent
	end
else
!ночь
	if parkrand >= 15:
	dynamic $parkivent1
	else
	dynamic $parkemptyevent
	end
end
}
--- parkdin ---------------------------------

# parkivent
$parkemptyevent = {
	set manna += 10
	set willpower += 10
	gs 'stat'
	'You take a relaxing and refreshing walk through the park, trying to figure out the meaning of life.'
	act 'Complete walk': gt 'park','start'
	exit
}

$parkivent1 = {
gs 'stat'
if hour > 7 and hour < 21:
	cls
	'In the shadow of a tree you can see a man stand, he watches you and when you look back at him he simple shouts "Whore!" at you.'
	act 'Silently leave': sub += 1 & gt 'park','start'
	act '"Shut the trap, jackass"':
	cla
	dom += 1
	'You tell him to shut the hell up. You''re surprised when you see him quickly running away.'
	act 'Leave': gt 'park','start'
	end
	exit
	else
	'From the shade of a tree guy came out, he came up to you and through gritted teeth, "Babe", you dragged into the bushes.'
	act 'Fight him':
	cls
	cla
	set $nameV = 'Rapist'
	!Статы
	set strenV = 100
	set speedV = 50
	set agilV = 40
	set reactV = 40
	set vitalV = 50
	set intelV = 10
	set willV = 10
	!Навыки
	set magikV = 100
	set boxingV = 50
	set shootV = 100
	!Параметры
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * 10 + magikV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV = 0
	!программа действий
	set program = 0
	set RapistFight = 1
	if spellavtoklon = 1: set klon = 3
	if spellbefshild = 1: set defence = 500
	gt 'fight','start'
	end
	act 'Try to run away':
	if beg < 10: set peshimraperand = rand(0,11)
	if beg >= 10 and beg < 30: set peshimraperand = rand(0,20)
	if beg >= 30 and beg < 50: set peshimraperand = rand(0,30)
	if beg >= 50 and beg < 70: set peshimraperand = rand(0,40)
	if beg >= 70 and beg < 90: set peshimraperand = rand(0,50)
	if beg >= 90 and beg < 110: set peshimraperand = rand(0,60)
	if beg >= 110 and beg < 130: set peshimraperand = rand(0,70)
	if beg >= 130 and beg < 150: set peshimraperand = rand(0,80)
	if beg >= 150 and beg < 170: set peshimraperand = rand(0,90)
	if beg >= 170: set peshimraperand = rand(11,100)
	if peshimraperand < 11:
		cla
		'You try to run away, but you''re not quick enough and he catches you. He drags you back into the bushes.'
		act 'Further': gt 'park','rape1'
		end
	if peshimraperand > 10:
		cla
		set minut += 60
		'You rush through the park, not caring where you''re going. You''re just trying to get the hell away from him. After almost an hour of running, you finally catch your breath and the rapist is norwhere to be seen.'
		act 'Further':
		cls
		set locbegrand = rand(0,4)
		if locbegrand = 0: gt 'park','start'
		if locbegrand = 1: gt 'street'
		if locbegrand = 2: gt 'down'
		if locbegrand = 3: gt 'nord'
		if locbegrand = 4: gt 'lake','start'
		end
		end
	end
	exit
	end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    2
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$parkivent2 = {
gs 'stat'
if vnesh >= 30 and parkday = day:
cls
'You see a man sitting under a tree drinking beer. It''s the guy who fucked you here in the park the other day. He looks at you and since he suddenly begins to grin, you suppose he also remembers who you are.'
act 'Leave': gt 'park','start'
exit
end
if vnesh >= 30 and parkday ! day and parkslut > 0:
cls
'From the bench under one of the trees came a guy up to you. It''s the guy who fucked you here in the park a while back. He smiles and asks you "Hello again beautiful girl, do you mind if we do it once again?'
act 'Walk away': gt 'park','start'
	act '"I don''t mind it all"':
	cla
	'The guy laughed "Unfortunately, I don''t it''ll be as much fun as the first time, but why don''t you already bend over?".'
	act '"Not this time, I''m afraid"': gt 'park','start'
	act 'Bend over the bench':
	cla
	*clr
	dynamic $venerasiak
	set money += 500
	set sex += 1
	set parkday = day
	if parkslut = 0: parkslut = 1 & set guy += 1
	set vagina += 1
	set picrand = RAND(0,5)
	if picrand = 0: '<center><img src="images\img\prost\dogging1.jpg"></center>'
	if picrand = 1: '<center><img src="images\img\prost\dogging2.jpg"></center>'
	if picrand = 2: '<center><img src="images\img\prost\dogging3.jpg"></center>'
	if picrand = 3: '<center><img src="images\img\prost\dogging4.jpg"></center>'
	if picrand = 4: '<center><img src="images\img\prost\dogging5.jpg"></center>'
	if picrand = 5: '<center><img src="images\img\prost\dogging6.jpg"></center>'
		if prezik > 0 and NoCondomUse = 0:
		set protect = 1
		set prezik -= 1
		'"I don''t plan on having children at the moment", you say, "Be a gentleman and put this condom on."'
		'"Sure, babe", he says, takes it and pulls the condom over his cock.'
		end
		'The man pushes you over the backrest of the bench and pushes his cock into your pussy. He slowly begins to thrusts in and out of it.'
		if horny >= 90:
		set horny = 0
		set manna += 15
		set willpower += 15
		set orgasm += 1
		'You can feel your pussy begin to throb and a wave of pleasure runs through your entire body and you scream out in pleasure.'
		end
		if protect ! 1:
		!не защищенный секс
		set finrand = RAND(0,1)
		if finrand = 0:
		!внутрь
		set cumpussy += 1
		'The guy groans loudly and you feel his hot cum flowing inside your pussy.'
			if tabletki <= 0 and mesec <= 0:
			gs 'preg'
			set manna -= 15
			set willpower -= 15
			'Once the bliss of the orgasm fades away, you realize, he didn''t wear a condom. Shit. You hope he didn''t impregnate you.'
			end
		end
		if finrand = 1:
		!наружу
		set cumass += 1
		'<<$nameV>> groans as he cums inside your ass.'
		end
		end
		if protect > 0:
		set protect = 0
		'The bloke cums inside his condom. Once he''s done and calmed down, he moves his cock out of your pussy, removes the condom and throws it into the bushes. Then he pulls up his pants, gives you a wicked smile and leaves.'
		end
	act 'Leave': gt 'park','start'
	end

	end
exit
end
if vnesh >= 30 and parkday ! day and parkslut = 0:
cls
'From the trees comes a man to you. "Good evening beautiful lady, would you like to earn 2.000 rubles?" he asks you.'

	act 'Ask him how to do it':
	cla
	'"What do I have to do?", you ask him. He smiles, "Let us go over there." and points over to the bench in a somewhat secluded part of the park.'
		act 'Fuck off, asshole': gt 'park','start'

	act 'Follow him':
	cla
	*clr
	dynamic $venerasiak
	set money += 2000
	set sex += 1
	set parkday = day
	if parkslut = 0: parkslut = 1 & set guy += 1
	set vagina += 1
	set picrand = RAND(0,5)
	if picrand = 0: '<center><img src="images\img\prost\dogging1.jpg"></center>'
	if picrand = 1: '<center><img src="images\img\prost\dogging2.jpg"></center>'
	if picrand = 2: '<center><img src="images\img\prost\dogging3.jpg"></center>'
	if picrand = 3: '<center><img src="images\img\prost\dogging4.jpg"></center>'
	if picrand = 4: '<center><img src="images\img\prost\dogging5.jpg"></center>'
	if picrand = 5: '<center><img src="images\img\prost\dogging6.jpg"></center>'
		if prezik > 0 and NoCondomUse = 0:
		set protect = 1
		set prezik -= 1
		'"I don''t plan on having children at the moment", you say, "Be a gentleman and put this condom on."'
		'"Sure, babe", he says, takes it and pulls the condom over his cock.'
		end
		'The man pushes you over the backrest of the bench and pushes his cock into your pussy. He slowly begins to thrusts in and out of it.'
		if horny >= 90:
		set horny = 0
		set manna += 15
		set willpower += 15
		set orgasm += 1
		'You can feel your pussy begin to throb and a wave of pleasure runs through your entire body and you scream out in pleasure.'
		end
		if protect ! 1:
		!не защищенный секс
		set finrand = RAND(0,1)
		if finrand = 0:
		!внутрь
		set cumpussy += 1
		'The guy groans loudly and you feel his hot cum flowing inside your pussy.'
			if tabletki <= 0 and mesec <= 0:
			gs 'preg'
			set manna -= 15
			set willpower -= 15
			'Once the bliss of the orgasm fades away, you realize, he didn''t wear a condom. Shit. You hope he didn''t impregnate you.'
			end
		end
		if finrand = 1:
		!наружу
		set cumass += 1
		'<<$nameV>> groans as he cums inside your ass.'
		end
		end
		if protect > 0:
		set protect = 0
		'The bloke cums inside his condom. Once he''s done and calmed down, he moves his cock out of your pussy, removes the condom and throws it into the bushes. Then he pulls up his pants, gives you a wicked smile and leaves.'
		end
	act 'Leave': gt 'park','start'
	end

	end

	act 'Leave': gt 'park','start'
exit
else
	dynamic $parkemptyevent
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    3
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$parkivent3 = {
cls
gs 'stat'
'As you walk through the park, you hear moans and groans coming out of bush close to one of the paths.'
act 'Continue walking': gt 'park','start'
	act 'Peek':
	cla
	*clr
	horny += 10
	gs 'stat'
	'<center><img src="images\img\spaln\shfoto.jpg"></center>'
	'You take a peek through the bushes and see three guys fucking one woman. It seems like she''s really enjoying it.'
	act 'Leave': gt 'park','start'
		if horny >= 50:
		act 'Pry':
		cla
		horny += 10
		gs 'stat'
		'You hide behind a tree to get a better look at the group action.'
		if horny >= 75:
		'This sight really excites you and you can feel your pussy moisten.'
		else
		'While this is quite the sight to enjoy, you think it''s better not to get caught, so you silently move away.'
		end
		act 'Leave': gt 'park','start'
		end
		end
		if minifoto = 1 or zenit = 1:

			act 'Take a photo':
			cla
			if minifoto = 1: set fotoparkrand = rand(0,10)
			if minifoto = 0: set fotoparkrand = rand(0,1)
				if fotoparkrand > 0:
				set minut += 30
				set shantfoto += 1
				'As you hide behind a tree, you start to take photos of them and watch them until they''re done. Once they are you silently move away and decide to find out who she was. Blackmailing her would be a nice source of income, you think to yourself.'
				act 'Back to the park': gt 'park','start'
				end

				if fotoparkrand = 0:
					'You hide behind the tree and start to take pictures of what is happening. Somehow you get carried away and one of the notice you. One of them slowly walks up behind you and grabs you, taking you to the others.'
					'"Look what I''ve found. We''ve got ourselves a stalked." the guy holding you tight says.'
					act 'Try to talk your way out':
					'You try to talk your way out, but they just laugh at you, pitying you for even trying. Then one of the guys force you onto your knees and they prepare you to fuck your doggy-style.'
						if minifoto = 1:
						set minifoto = 0
						else
						set zenit = 0
						end
					set rape += 1
					act 'Further': gt 'paysex','start'
					end

				act 'Try to run away':
				if beg < 10: set peshimraperand = rand(0,11)
				if beg >= 10 and beg < 30: set peshimraperand = rand(0,20)
				if beg >= 30 and beg < 50: set peshimraperand = rand(0,30)
				if beg >= 50 and beg < 70: set peshimraperand = rand(0,40)
				if beg >= 70 and beg < 90: set peshimraperand = rand(0,50)
				if beg >= 90 and beg < 110: set peshimraperand = rand(0,60)
				if beg >= 110 and beg < 130: set peshimraperand = rand(0,70)
				if beg >= 130 and beg < 150: set peshimraperand = rand(0,80)
				if beg >= 150 and beg < 170: set peshimraperand = rand(0,90)
				if beg >= 170: set peshimraperand = rand(0,100)
					if peshimraperand < 11:
					cla
					'You try to run away, but you''re not fast enough and one of them eventually catches up with you. He smashes your camera and drags you back into the bushes. There he forces you onto your knees, preparing you to get fucked doggy-style.'
						if minifoto = 1:
						set minifoto = 0
						else
						set zenit = 0
						end
					set rape += 1
					act 'Further': gt 'paysex','start'
					end

					if peshimraperand > 10:
					'You rush through the park, not caring where you''re going. You''re just trying to get the hell away from him. After almost an hour of running, you finally catch your breath and the rapist is norwhere to be seen.'
					set locbegrand = rand(0,4)
						if locbegrand = 0:
						act 'Take a look around to see where you are': gt 'park','start'
						end
						if locbegrand = 1:
						act 'Take a look around to see where you are': gt 'street'
						end
						if locbegrand = 2:
						act 'Take a look around to see where you are': gt 'down'
						end
						if locbegrand = 3:
						act 'Take a look around to see where you are': gt 'nord'
						end
						if locbegrand = 4:
						act 'Take a look around to see where you are': gt 'lake','start'
						end
					end
				end
			end
		end
	act 'Back to the park': gt 'park','start'
	end
exit
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    4
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent4 = {
gs 'stat'
if parkblackmail = 0:
	cls
	'On one of the open grass areas, you see a group of young people having a barbecue. As you walk past them, a guy who is with them, walks up to you and asks you, if you would like to join them.'
	act 'Decline and continue your walk': gt 'park','start'
	act 'Agree and join them':
	cla
	'You drink with the the entire group, you feel like you''re having tons of fun right now. As you were sitting at one of the tables, one of the guys walks up behind you and hugs you tightly. Wait...what was that...that was HUGE. You, more or less, hope that it was a sausage that you felt on your lower back. You better drink some more.'
	'Shortly after, one of the guy gropes your titties and pushes you against the closest tree. You softly moan as he massages your breasts. You can feel his stiff cock poking your belly. Then he asks you in a rather harsh tone, "You like this slut, don''t you?"'
	act 'Push him aside':
		cla
		'It takes all your might to push him aside. But once you''ve made clear, that he should let you go, he removes his hands and backs off a bit.'
		act 'Leave':
		cla
		*clr
		'You think to yourself, it''s best if you leave now. But you don''t get far and the guy follows you and grabs your arm. "You''re not going anywhere, slut. Get on your knees!", he orders you.'

		act 'Kick him into his nuts and walk away': gt 'park','start'

		act 'Do as he tells you':
			cla
			Set hour += 2
			set rape += 1
			set gang += 1
			minut += 120
			gs 'stat'
			'<center><img src="images\picBJ\parkBJ.jpg"></center>'
			'As drunk as you are, you can barely resits him and do as he tells you. You get your knees and he quickly pulls down his pants. "Open your mouth, slut", he tells you and you follow his commands. Then he shoves his thick cock into your month and you begin to suck on it like a there''s no tomorrow. His fat, hot and juicy cock just drives you mad. You continue to do this for a bit, then a another guy joins you two.'
			'His cock is so big, you can barely breath and are on the verge of fainting. More men gather around you and take out their cocks for you to suck on. They call you many names, but ''Slut'' burns itself into your memory, so often it''s used. You suck them off one by one, giving two other cocks a handjob. You try to swallow as much cum as possible, maybe it''s due to you being drunk, but the taste is just overwhelming to you. One of them removes your top, so everyone can enjoy the sight of your beautiful titties.'
			'One of the guys orders you to suck faster.'
			act '"I can''t", you cough':
			cla
			'"Please, slow down", you beg them in between coughs. "I can barely breath."'
			'One the guys bitchslaps you, "Shut up slut. You''re not here to talk."'
			act 'Meekly nod':
				cla
				*clr
				minut += 120
				gs 'stat'
				'That slap hurt you, "I''m sorry.", you say in a submissive tone.'
				'"Why don''t we use some of her other holes?", a bloke from your left said to the group. The one next to him says "And I was afraid no one would suggest that. So get your hands on the ground slut and present us your other slutty holes."'
				'You bite your lips in anticipation, move your hands to the ground and arch your back, so everyone can see your perferctly shaped booty. One of the mens walks up to you from behind and puts two fingers into your pussy, "Ohh, look at this whore, she already dripping wet!". He continues to move his fingers in and out and you start to moan softly.'
				'"I can''t wait any longer.", one of the guys said to your right, as he pushes the one aside, who was fingering your. He gets on his knees too and rams his thick cock into your wet twat. You scream out in pleasure, due to this sudden and forcefully invasion and as your mouth is wide opened, another man of the group pushes hich coc into it and forces your deepthroat it.'
				'You''re overwhelmed by pleasure and roll your eyes up. It doesn''t take long for you to cum and once you do, it feels like one of the most intense one you ever had. But it doesn''t stop there, they continue to use you and your slut holes for another hour straight and you lost track on how often you came or how often they pumped their cum inside you. All you do remember is that you greedily tasted each drop of cum, that made it into your mouth, and if you remember correctly there were three girls taking several pictures of you, you even posed for some.'
				'You seem to have passed out, due to the pleasure and cocktailmix of hormones and adrenalin, as you now wake up behind a tree, with your clothes next to you and 500 rubles with a note on it "Get more condoms."'
				'You dress yourself and somehow you manage to stand up, even though your legs feel like jelly.'
				if parkblackmail = 0: Set guy += 2 & Set parkblackmail = 1 & Set parkday = day
				Set sex += 1
				Set bj += 2
				Set horny = 0
				Set cumface += 2
				Set money += 500
				act 'Go home': gt 'park','start'
			end
			end
		end
		end
	end
	end
	exit
else
	dynamic $parkemptyevent
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    5
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent5 = {
gs 'stat'
'You take a relaxing and refreshing walk through the park, trying to figure out the meaning of life.'
act 'Complete walk': gt 'park','start'
if yaq = 0 and student > 0:
	cls
	cla
	*clr
	'As you walk past a bunch of trees, a man walked up to you. He introduced himself as Yaroslav and asks you, if you would like to earn some money.'
	act '"No, thanks"': gt 'park','start'
	act '"I''m listening"':
	cla
	'"My house is a bit dirty and I''m look for someone who would like to keep it clean for me.", he says. "All you had to do is to dust and clean everything. My house isn''t too large."'
	act 'Turn him down': gt 'park','start'
	act 'Agree':
	cla
	'"Alright, but what''s in for me?" you ask him. "I''d pay you 2.000 rubles.", he answers. "By the way, I haven''t asked you for your name yet."'
	'"I''m <<$name>>.", you tell him. He nods and smiles and tells you it''s a cute name. Then he gives you his card and judging by the adress, it''s somewhere in the city center.'
		act 'Ask him, when to come by':
		cla
		set yaq += 1
		'"When would you like me to come by?" you ask Yaroslav.'
		'"No hurry, just come by when you''ve got some free time, but I''m usually home in the evening, so therer''s just that.", he answers.'
		'"Alright, thank you and see you I guess.", you say and walk away.'
		act 'Finish your walk': gt 'park','start'
		end
	end
	end
exit
else
	dynamic $parkemptyevent
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    6
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent6 = {
gs 'stat'
if ublyudokparkivent = 0:
cls
'You were walking through the, somewhen you realized, you ended up in a somewhat shady area of it. Between two trees you can see a man waving at you.'
act 'Walk away': gt 'park','start'
act 'Walk up to him':
	set ublyudokparkivent = 1
	cla
	*clr
	'You walk up to him, asking what he wants. He says, he would like to show you something, but suddenly you are being hit and everything fades to black.'
	act 'Wake up':
	cla
	*clr
	'<center><img src="images\picizpar\1.jpg"></center>'
	'"Ouch...", you say groggily as you wake up. "I thought you would never wake up.", a deep voice says. He grabs your hair and pulls you up, then takes his huge knife and holds it to your face. "Look pretty, if you don''t resist, this might be a pleasurable experience for you.", he tells you, "Now take of your clothes, you won''t need them for now."'
		act 'Take off your clothing':
		cla
		*clr
		'<center><img src="images\picizpar\2.jpg"></center>'
		'He''s huge and intimidating, you decide it''s better to do as he tells you, so can get out of here alive, hence you take off you clothes and a cold breeze makes your nipples rock hard immediately.'
		act '...':
		cla
		*clr
		'<center><img src="images\picizpar\3.jpg"></center>'
		'"Good girl", he says and orders you to bend over. You oblige him and present your rear assests to him. He then ''inspects'' them, by spreading your ass cheeks apart. You yelp when you feel his finger is entering your cunt.'
			act '...':
			cla
			*clr
			'<center><img src="images\picizpar\4.jpg"></center>'
			'"The two of us are going to have a lot of fun together, so prepare yourself and make you tight little twat moist for me", he tells you and you begin to rub your clit. He unbuttoned his pants, took out his cock and started to stroke it, while listening to your soft moans.'
			act 'Go on...':
			cla
			*clr
			'<center><img src="images\picizpar\5.jpg"></center>'
			'"Come over here and suck me", he orders you, with his rock hard cock in his hand- Come over heNa gut*re darling, my dickhead wants you it sucked. The man grabbed me by the hair and threw it on the ground before him. My knees immediately became ragged and pinching ... - Open your mouth slut! - As soon as I open my mouth, he grabbed my head and began to thrust into my throat his fat cock.'
				act 'Suck':
				cla
				*clr
				'<center><img src="images\picizpar\6.jpg"></center>'
				'His dick smelled dirt and sweat and was slightly salty. I could not afford to admit that I like the taste, but it was so hard and thick that out of my vagina involuntarily flowed lubrication.'
				act '...':
				cla
				*clr
				'<center><img src="images\picizpar\7.jpg"></center>'
				'Men do not have to make me a few minutes I became very deep swallow and lick his head from the trunk of the most balls.'
					act '...':
					cla
					*clr
					'<center><img src="images\picizpar\8.jpg"></center>'
					'- Well, ka get up darling, suction is certainly good, but your hot hole is definitely better. He put me and planted in my womb just three fingers. It was very painful, my pussy has not stretched and I screamed.'
					act 'Masturbate':
					cla
					*clr
					'<center><img src="images\picizpar\9.jpg"></center>'
					'Then the bastard grabbed me by the throat and forced to masturbate herself. I tried to gently stretch his hole, and he meanwhile nadrachival its eldu, then took a rope and tied me.'
						act '...':
						cla
						*clr
						'<center><img src="images\picizpar\10.jpg"></center>'
						'When his fat cock, I slowly began to go I started to twitch and kick, but more for the mind. Despite the frantic fear, I was very nervous and even wanted him to fuck me.'
						act '...':
						cla
						*clr
						'<center><img src="images\picizpar\11.jpg"></center>'
						'Fat cock sharply into me, pulling up to the uterus. It hurt ... or not, it was nice, I do not know, I can not tell from what I screamed so loud when he pulled me into the damn woods. It is faster and sharper, his cock swelled and I could not remember anything from the mad buzz. He abruptly shoved his cock pressed me to her pubis and hot jet of sperm hit in my uterus, vagina filling warm, slippery fluid.'
							act 'Savoury':
							cla
							*clr
							'<center><img src="images\picizpar\12.jpg"></center>'
							'- Wow ... - just said bastard, but I did not care for it, now I did not care at all and I hung blissfully kayfovat trying to squeeze numb feet. I did not even feel like it stuck in my pussy his fingers.'
							act 'Licking fingers':
							set manna -= 15
							set cumpussy += 1
							cla
							*clr
							'<center><img src="images\picizpar\13.jpg"></center>'
							'But I could taste his semen when those fingers were in my mouth, but then I realized that for the horror just happened that he came to me.'
								act 'Iti':
								cla
								*clr
								'<center><img src="images\picizpar\14.jpg"></center>'
								'- Come on baby ka - pulling her pants and wearing a hat, said the peasant. - You´re a little at me to stay. In my mouth turned out to gag and he untied me and pulled on the rope. I fell a few times, and he put me up in spurts and again we were on the rocks and sharp branches, it is good that he allowed me to wear shoes.'
								act '...':
								cla
								*clr
								'<center><img src="images\picizpar\15.jpg"></center>'
								'- That´s my nest - said with a smile bastard, pointing to a strong two-storey house with a high fence, surrounded by barbed wire.'
									act 'Lick':
									cla
									*clr
									'<center><img src="images\picizpar\16.jpg"></center>'
									'This pig did not even took me into the house, and just have cast their clothes and climbed on me. He again began to tear up my swollen pussy, but soon threw my mouth his five fingers. - Let ka, lick them well, believe you handy.'
									act '...':
									cla
									*clr
									'<center><img src="images\picizpar\17.jpg"></center>'
									'I began to lick his fingers until saliva ran down his wrist, and then he pulled out his penis and to my horror, began to shove his paws in my ass. When his fingers pushed my anus and penetrated into the rectum, I began kicking and twitching.'
										act 'Cry':
										cla
										*clr
										'<center><img src="images\picizpar\18.jpg"></center>'
										'That bastard, grabbed a knife and began to threaten me. Tears streamed from my eyes, but I promised that I will not twitch.'
										act 'Relax':
										cla
										*clr
										'<center><img src="images\picizpar\19.jpg"></center>'
										'When his cock was sticked to my compressed sfinker, I tried to relax, that was not so painful. Thick head barely poked my asshole, causing me to shout in pain, but later it became easier ... was even nice. Apparently member abuts the outer wall of the vagina had other feelings, but they were good, very good.'
											act 'Shout':
											cla
											*clr
											'<center><img src="images\picizpar\20.jpg"></center>'
											'My cries ceased to be a cry of pain, without even noticing, I began to cry from the buzz and excitement, I again wanted his cock naciloval my pink crack.'
											act 'Sit on top':
											cla
											*clr
											'<center><img src="images\picizpar\21.jpg"></center>'
											'When the bastard put me on, I myself began to move her hips to meet his powerful dick, wishing only that he did not stop.'
												act 'Jump on a limb':
												cla
												*clr
												'<center><img src="images\picizpar\22.jpg"></center>'
												'I began to jump on his penis, squealing with pleasure, forgetting about everything, except a sense of solid, hot-term in its bosom.'
												act 'Correct':
												cla
												*clr
												'<center><img src="images\picizpar\23.jpg"></center>'
												'Jumping off his clubs I tried to sit up again, but the guy cleverly directed his eldu in my ass and she easily slipped into my anus.'
													act '...':
													cla
													set orgasm += 1
													*clr
													'<center><img src="images\picizpar\24.jpg"></center>'
													'I jumped on him, until he finally realized that I roll without feeling, and my body trembles in orgasm. Tears poured from her eyes, as if relieved that that accumulated for all this time inside and I felt incredibly good.'
													act 'Suck':
													cla
													*clr
													'<center><img src="images\picizpar\25.jpg"></center>'
													'I am happy to become a member of the men suck, feeling the salty taste of his head, mixed with a taste of my vagina and rectum.'
														act 'Substitute priest':
														cla
														*clr
														'<center><img src="images\picizpar\26.jpg"></center>'
														'Then I like a dog licking his feet and turned to him her ass, wanting him to fuck me again.'
														act '...':
														set cumbelly += 1
														set cumass += 1
														set cumlip += 1
														set cumface += 1
														cla
														*clr
														'<center><img src="images\picizpar\27.jpg"></center>'
														'But the man began to masturbate and very soon I began to feel his hot cum, but this time outside. I really do not want him to let me go, do not want me to lost its perfect dick and so I eagerly began to lick the cum from his cock, not yet had time to drop, wanting to pick it up again.'
														'But then again, I felt the blow to the head and fell unconscious again.'
															act 'Wake':
															cla
															*clr
															'I woke up somewhere near the lake. I was naked and smeared the entire semen, but my clothes lay near me. I silently thanked for this sex abuser, got dressed and went.'
															act 'Leave': gt 'lake','start'
															end
														end
														end
													end
													end
												end
												end
											end
											end
										end
										end
									end
									end
								end
								end
							end
							end
						end
						end
					end
					end
				end
				end
			end
			end
		end
		end
	end
	end
	exit
else
	dynamic $parkemptyevent
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    7
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent7 = {
gs 'stat'
if pusher = 0:
	'Young boy wearing a hooded jacket comes to you and tells you a conspiratorial voice, "Girl. Dose I got pale lady is, you want to try? Completely free. Lovely thing, instantly cleans the brain, the mood is that just ATAS, body sensations such as if you have never been healthier. "'
	act 'Leave': gt 'park','start'
	act 'Yes':
	cla
	set pusher = 1
	set health = vital * 10 + stren * 5
	set willpower = intel * 5 + will * 5
	set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
	set horny = 100
	set nark += 10
	set narkday = day
	'You stayed with interest, never tried dope, but because at one time there will be nothing? The guy came up to you and backfilled with a little white powder, you sucked his nose and the world blossomed unexpected colors.'
	'The guy looked at you and said, "If you like it, come again, a dose of only 2,000 rubles."'
	act 'Leave': gt 'park','start'
	exit
	end
else
	dynamic $parkemptyevent
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    8
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent8 = {
!'You leisurely stroll through the park. Breathing fresh air, thinking about the vicissitudes of life.'
!act 'Complete walk': gt 'park','start'
gs 'stat'
set vnerand = RAND(0,300)
if bfa < 1 and vnerand <= vnesh:
cla
*clr
gs 'boy'
	'To you came <<$boybody>> <<$boybod>> <<$boyface>>. One <<$boyClo>>'
	'The guy introduced as <<$boy>> and asked your number.'
	act 'Tell him to phone':
	cla
	gs 'boyfrend','start'
	set stopboy = 0
	'<<$boyA>> recorded your phone and left.'
	act 'Complete walk': gt 'park','start'
	end
	act 'Leave': gt 'park','start'
exit
else
	dynamic $parkemptyevent
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!    9
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$parkivent9 = {
gs 'stat'
if bfa >= 1:
	cls
	'You walk through the park and you notice how the meeting goes your man <<$boyA>>'
	act 'Leave': bfa -= 1 & gt 'park','start'
	if boyonceA = 0 or SUB = 0 and DOM = 0:
	act 'Nice to talk':
		cla
		set bfa += 2
		set minut += 15
		'<<$boyA>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
		act 'Complete walk': gt 'park','start'
	end
	end

	if boyonceA = 1 and SUB > 0:
	'<<$boyA>> glad you and taking you by the hand led to a deeper into the park.'
	act 'Go with the guy.': gt 'event','park'
	end

	if boyonceA = 1 and DOM > 0:
	'<<$boyA>> glad you and taking you by the hand led to a deeper into the park.'
	act 'Offer to sit on the bench. (You decide to have sex with a guy.)': gt 'event','park'

	act 'Nice to talk':
		cla
		set bfa += 5
		set minut += 15
		'<<$boyA>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
		act 'Complete walk': gt 'park','start'
	end
	end
	exit
else
	dynamic $parkemptyevent
end
}
--- parkivent ---------------------------------

# pharmacy
$regular_items = {
	act 'Buy <b>fat burners</b> (1500 rubles) <<iif(fatdel>0,''[left:<b>''+fatdel+''</b>]'','''')>>':
		if money >= 1500:
			cla
			*clr
			set fatdel += 1
			set money -= 1500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought a fat burning capsule and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end
		act 'Move away from the counter': gt 'pharmacy','start'
	end

	act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo>0,''[left:<b>''+lekarstvo+''</b>]'','''')>>':
		cla
		*clr
		portion = input ("How many packages you want to buy?")
		if portion*500 <= money:
			set lekarstvo+= portion * 10
			set money -= portion * 500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought drugs and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end
		act 'Move away from the counter': gt 'pharmacy','start'
	end

	act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin>0,''[left:<b>''+vitamin+''</b>]'','''')>>':
		cla
		*clr
		portion = input ("How many packages you want to buy?")
		if portion*500 <= money:
			set vitamin+= portion * 20
			set money -= portion * 500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought vitamins and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end
		act 'Move away from the counter': gt 'pharmacy','start'
	end

	act 'Buy <b>moisturizing lip balm</b> (1000 rubles) <<iif(lipbalm>0,''[left:<b>''+lipbalm+''</b>]'','''')>>':
		if money >= 1000:
			cla
			*clr
			set lipbalm+= 25
			set money -= 1000
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought some lip balm and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end
		act 'Move away from the counter': gt 'pharmacy','start'
	end

	act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz>0,''[left:<b>''+mosolmaz+''</b>]'','''')>>':
		if money >= 600:
			cla
			*clr
			set money -= 600
			mosolmaz += 10
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought tablets and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end
		act 'Move away from the counter': gt 'pharmacy','start'
	end

	if money >= 1500 and KandidNapr = 1:
		act 'Buy <b>pills from yeast</b> (1500 rubles)':
			cla
			*clr
			set money -= 1500
			Kandidoz = 0
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought tablets and paid the money to the cashier.'
			'Immediately about cash you drank tablet.'
			act 'Move away from the counter': gt 'pharmacy','start'
		end
	end
}

if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Pharmacy</font></B></center>'
	*nl
	'<center><img src="images\community\pharmacy.jpg"></center>'

	clr
	gs 'stat'
	gs 'time'

	act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik>0,''[left:<b>''+prezik+''</b>]'','''')>>':
		cla
		*clr
		portion = input ("How many packages you want to buy?")
		if portion*100 <= money:
			set prezik += portion * 5
			set money -= portion * 100
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought condoms and paid the money to the cashier.'
		else
			'You do not have enough money.'
		end

		act 'Move away from the counter': gt 'pharmacy','start'
	end

	act 'Buy <b>birth control pills</b> (500 rubles) <<iif(tabletki>0,''[left:<b>''+tabletki+''</b>]'','''')>>':
		cla
		*clr
		portion = input ("How many packages you want to buy?")
		if portion*500 <= money:
			set tabletki += portion * 28
			set money -= portion * 500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought the pill and get paid in cash.'
		else
			'You do not have enough money.'
		end

		act 'Move away from the counter': gt 'pharmacy','start'
	end

	if klisma = 0:
		act 'Buy <b>enema</b> (500 rubles)':
			if money >= 500:
				cla
				*clr
				set klisma = 1
				set money -= 500
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You bought an enema and paid the money to the cashier.'
			else
				'You do not have enough money.'
			end
			act 'Move away from the counter': gt 'pharmacy','start'
		end
	end

	dynamic $regular_items

end

act 'Quit': gt $loc
--- pharmacy ---------------------------------

# poli
if $ARGS[0] = 'start':
	cla
	*clr
	$sexloc = $CURLOC
	set hosprand = rand(0,10)
	set minut += 5
	'<center><B><font color = maroon>Clinic</font></B></center>'
	'<center><img src="images\etogame\poli.jpg"></center>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	'Doctors appointments costs 1,000.'
	'VD testing cost 1,000.'
	*nl
	'Abortion at the woman´s request can be made up to 84 days of pregnancy. The cost of abortion is 8,000.'
	*nl
	'Be warned, abortions are dangerous to health. There is always a risk of complications and the possibility of sterility.'
	if workhosp = 1 and hour >= 8 and hour <= 9 and week < 6: act 'Exit to replace': gt 'poli','beginwork'
	*nl

	act 'Leave Clinic': gt 'street'

	if health < (vital*10 + stren*5) and money >= 1000:
		act 'Treat health 1,000 rubles':
			cla
			set money  -= 1000
			set minut  += 60
			set health  = vital * 10 + stren * 5 + 1000
			if hosprand = 0: gt 'poli','0'
			if hosprand = 1: gt 'poli','1'
			if hosprand = 2: gt 'poli','2'
			'The doctor did give you a shot and you immediately felt much better'
			act 'QUIT': gt 'poli','start'
		end
	end

	if willpower < intel*5 + will*5 and money >= 1000:
		act 'See a therapist 1,000 rubles':
			cla
			set money    -= 1000
			set minut    += 60
			set willpower = intel * 5 + will * 5 + 1000
			set manna     = (intel * magik) + magik * 100 + vital * 10 + rikudo
			if hosprand = 0: gt 'poli','0'
			if hosprand = 1: gt 'poli','1'
			if hosprand = 2: gt 'poli','2'
			'You lie down on a couch at the therapist and told him about his troubles, and you immediately become much happier.'
			act 'QUIT': gt 'poli','start'
		end
	end

	if money >= 1000:
		act 'Get a VD test (1,000 rubles)':
			cls
			set money -= 1000
			set minut += 60
			gs 'stat'
			'You took the tests and after a short wait the doctor called you into his office.'
			if venera > 0: 'The doctor pulled a sad mine and said that you are not going smoothly with analyzes.'

			if GerpesOnce = 1:
				'You have found genital herpes. This disease is not curable and it can only jam at a time.'

				if Gerpes >= 3:
					if GerpesNapr = 0: GerpesNapr = 3 & 'Here you have the direction of the shots herpes. Needs a course out of 3 injections, each injection will cost 1,000 rubles each.'
					if GerpesNapr > 0: 'Go for shots herpes direction I gave you.'

				else
					'Herpes you in an inactive stage, take vitamins and he does not show himself.'
				end
			end

			if SifacOnce = 1:
				'You found to have syphilis. It is not curable, the deadly disease which nowadays have learned to restrain, but not much more.'

				if Sifilis < 15:
					'Now you have syphilis in the inactive stage. Therefore, no special meaning in therapy.'

				elseif Sifilis >= 15:
					if SifNapr = 0: SifNapr = 10 & 'Here you have the direction of the shots from syphilis. Needs a course out of 10 injections, each injection will cost 5,000 rubles.'
					if SifNapr > 0: 'Go for injections of syphilis. Long course, 10 days. But it is necessary, severe.'
				end
			end

			if TriperOnce = 1:
				'You found gonorrhea. In principle, this disease is curable.'
				if TriperNapr = 0: TriperNapr = 5 & 'Here you have the direction of the shots gonorrhea. Needs a course out of 5 injections, each injection will cost 1,500 rubles'
			end

			if KandidozOnce = 1:
				'You found candidiasis. Or as it is popularly called thrush. Thing is not curable, but not very dangerous, besides easily suppressed.'
				if KandidNapr = 0: KandidNapr = 1 & 'The pharmacy can buy pills.'
				if Kandidoz < 30: 'Now you candidiasis in an inactive stage, take vitamins, and he does not show himself.'
			end
			if venera <= 0: 'Doctor is pleased that you do not have a sexually transmitted disease.'
			act 'QUIT': gt 'poli','start'
		end
	end

	if GerpesNapr > 0 and money >= 1000 and GerpesUkolDay ! day:
		act 'Go for shots of herpes (1,000 rubles). Remaining <<GerpesNapr>> in the direction of injection':
			cls
			set money -= 1000
			set minut += 60
			GerpesUkolDay = day
			gs 'stat'
			GerpesNapr -= 1
			'You made a very painful injection in the ass.'
			if GerpesNapr = 0: Gerpes = -10 & 'It was the last injection'
			act 'QUIT': gt 'poli','start'
		end
	end

	if SifNapr > 0 and money >= 5000 and SifUkolDay ! day:
		act 'Go to injections of syphilis (5,000 rubles). Remaining <<SifNapr>> in the direction of injection':
			cls
			set money -= 5000
			set minut += 60
			SifUkolDay = day
			gs 'stat'
			SifNapr -= 1
			'You made a very painful injection in the ass.'
			if SifNapr = 0: Sifilis = 0 & 'It was the last injection'
			act 'QUIT': gt 'poli','start'
		end
	end

	if TriperNapr > 0 and money >= 1500 and TriperUkolDay ! day:
		act 'Go for shots of gonorrhea (1,500 rubles). Remaining <<TriperNapr>> in the direction of injection':
			cls
			set money -= 1500
			set minut += 60
			TriperUkolDay = day
			gs 'stat'
			TriperNapr -= 1
			'You made a very painful injection in the ass.'
			if TriperNapr = 0: Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'It was the last injection'
			act 'QUIT': gt 'poli','start'
		end
	end

	'In the waiting room is an advertisement.'
	*nl
	'	Private Sexually Transmitted Infection Clinic provides the following treatment.'
	'		Complete cure for herpes 150,000 rubles.'
	'		Complete cure of syphilis 350,000 rubles.'
	'		Complete cure for yeast infection 50,000 rubles.'
	'	Treatment requires hospitalization on first Monday of each month'

	if GerpesOnce = 1 and money >= 150000 and week = 1 and day <= 10:
		act 'Go to private clinic for the complete cure of the herpes. (150,000 rubles)':
			cla
			set money -= 150000
			set day += 3
			week += 3
			GerpesOnce = 0
			Gerpes = 0
			Venera -= 1
			gs 'stat'
			'You have lain three days in private clinics and were completely cured of herpes.'
			act 'QUIT': gt 'poli','start'
		end
	end

	if SifacOnce = 1 and money >= 350000 and week = 1 and day <= 10:
		act 'Go to private clinics for the complete cure of syphilis. (350,000 rubles)':
			cla
			set money -= 350000
			set day += 3
			week += 3
			SifacOnce = 0
			Sifilis = 0
			Venera -= 1
			gs 'stat'
			'You have lain three days in private clinics and were completely cured of syphilis.'
			act 'QUIT': gt 'poli','start'
		end
	end

	if KandidozOnce = 1 and money >= 50000 and week = 1 and day <= 10:
		act 'Go to private clinics for the complete cure of the thrush. (50,000 rubles)':
			cla
			set money -= 50000
			set day += 3
			week += 3
			KandidozOnce = 0
			Kandidoz = 0
			gs 'stat'
			'You have lain three days in private clinics and were completely cured of thrush.'
			act 'QUIT': gt 'poli','start'
		end
	end

	!'Abortion on a woman´s request can be made up to 84 days of pregnancy. The cost of abortion 8,000 rubles'
	!'Warn abortions are dangerous to health. There is always a risk of complications and the possibility of not getting pregnant in the future.'

	if money >= 8000 and preg = 1 and pregtime < 84:
		act 'Abortion 8,000 rubles':
			cla
			Set vidage += 1
			Set abort += 1
			Set money -= 8000
			Set abortrand = RAND(0,10)
			if abortrand < 10: Set preg = 0
			if abortrand = 10: Set preg = 2
			Set pregtime = 0
			pregtalk = 0
			!'<center><img src="images\etogame\abort.jpg"></center>'
			'You spread out on a gynecological chair, the doctor entered your vagina tool and parts ripped out of you fruit.'
			act 'QUIT': gt 'poli','start'
		end
	end

	if preg = 1 and pregtime = 280:
		act 'Have':
			cla
			Set vidage      += 1
			Set preg         = 0
			Set pregtime     = 0
			set pregtalk         = 0
			set numkid          += 1
			set kidage[numkid]   = 0
			set daykid[numkid]   = day
			set monthkid[numkid] = month
			set yearkid[numkid]  = year

			set $father[numkid]  = $father
			set haprikid[numkid] = rand(0,3)
			set glacol[numkid]   = rand(0,3)

			!'<center><img src="images\etogame\abort.jpg"></center>'
			'You put on the bed and lit up. Began a terrible pain in the abdomen, you yelled with all the dope and finally gave birth.'
			set polkid[numkid] = RAND(0,1)
			if polkid[numkid] = 0:$polreb[numkid] = 'girl'&'The doctor said that you had a girl.'
			if polkid[numkid] = 1:$polreb[numkid] = 'boy'&'The doctor said that you have a baby boy.'
			kid += 1

			act 'Give the name of the child':
				$kidname[numkid] = input ("What do you call a baby?")

				if $kidname[numkid] <= 0:
					if polkid[numkid] = 0:$kidname = 'Masha'
					if polkid[numkid] = 1:$kidname = 'Misha'
				end

				act 'QUIT': gt 'poli','start'
			end
		end
	end

	if sick > 0 and ninelsex = 0 and polisickday ! day:
		act 'See a Doctor':
			cla
			*clr
			polisickday = day
			set terrnd = RAND(0,1)
			if terrnd = 0: gt 'poli','drPP'
			if terrnd = 1: gt 'poli','ninel'
		end
	end

	if sick > 0 and ninelsex > 0 and polisickday ! day:
		act 'See Dr Ninel':
			cla
			*clr
			polisickday = day
			gt 'poli','ninel2'
		end
	end

	if horny >= 90 and ninelsex >= 1 and ninelday ! day and sick <= 0:
		act 'Search for Dr Ninel':
			cla
			*clr
			set ninelday = day
			set ninelrand = RAND(0,2)

			if ninelrand = 0:
				'At the reception you skzali that Ninel in his office'
				act 'Go to Ninel': gt 'poli','ninel3'
			end

			if ninelrand = 1:
				'At the reception you were told that today do not accept Ninel'
				act 'Leave the clinic': gt 'street'
			end

			if ninelrand = 2:
				'At the reception you were told that Ninel today calls'
				act 'Leave the clinic': gt 'street'
			end
		end
	end

	if katjob > 0: act 'Visit the chief doctor': gt 'poli','glavdoc'
end


if $ARGS[0] = 'drPP':
	cla
	*clr
	set minut += RAND(3,10)
	clr
	gs 'stat'
	'You sit in the corridor of coughing and ohayuschih old women waiting for their turn.'
	'Finally, the turn came'

	act 'Login to Account':
		cla
		*clr
		'<center><img src="images\add-on\drPP.jpg"></center>'
		if drPP = 0: 'At the table sits an elderly bald man felicitous appearance. "Hello, sick. My name is Peter, I am your local therapist - he says, looking at you through his glasses."'
		if drPP = 1: 'Sit at the table Peter. He smiles at you and says, "Hello, sick.'
		drPP = 1
		'(You) - Hello, doctor.'
		'(Doctor) - What complain sick?'

		act 'Complain':
			cla
			*clr
			set minut += 5
			'(You) - Oh, Doctor, I like a cold - laid nose, throat aches ... and cough.'
			'(Doctor) - So-Low has a ...?'
			'(You) - Yes, a little.'
			'(Doctor) - Well, let´s hear you'

			act 'Follow the instructions of the physician':
				cla
				set minut += 20
				'<center><img src="images\inBed\ninel03"></center>'
				'The doctor listened attentively your lungs, looked into his throat, gave a thermometer - to measure the temperature and finally concluded:'
				'(Doctor) - Do not worry - common cold - SARS. Buy in a drugstore here these drugs, lie in bed a couple of days and everything will be alright. The main thing - do not supercool.'
				'(You) - Thank you, Doctor. Goodbye.'
				act 'Go home': gt 'street'
			end
		end
	end
end


if $ARGS[0] = 'ninel':
	cla
	*clr
	set minut += RAND(3,15)
	clr
	gs 'stat'
	'You sit in the corridor of coughing and ohayuschih old women waiting for their turn.'
	'Finally, the turn came'

	act 'Login to Account':
		cla
		*clr
		if ninelmet = 0: 'At the table sits a pretty young girl in a light robe. Robe unbuttoned so that does not hide her small but beautiful gud. "Hello My name is Ninel Pavlovna, I replaces your local therapist - she said, scrutinizing you."'
		if ninelmet = 1: 'Ninel sitting at the table. She smiles at you and says, "Hello, World.'

		if horny < 30:
			act 'Hello, Doctor.':
				cla
				*clr
				set ninelmet = 1
				set minut += 5
				'<center><img src="images\add-on\exam00.jpg"></center>'
				'(Dr.) Good afternoon. At that complain?'
				'(You) - Oh, Doctor, I like a cold - laid nose, throat aches ... and cough.'
				'(Doctor) - Temperature is?'
				'(You) - Yes, a little.'
				'(Doctor) - Clear. Undress.'

				act 'Follow the instructions of the physician':
					cla
					*clr
					set minut += 20
					'<center><img src="images\add-on\exam01.jpg"></center>'
					'The doctor carefully proslushala your lungs zaglyanula the throat, dala thermometer - to measure the temperature and finally zaklyuchila:'
					'(Doctor) - SARS - nothing serious. Observe bed rest and take these medications here. A couple of days will be healthy. And avoid hypothermia.'
					'(You) - Thank you, Doctor. Goodbye.'
					act 'Go home': gt 'street'
				end
			end
		end

		if horny >= 30:
			act 'Hello, Doctor.':
				cla
				*clr
				'<center><img src="images\add-on\exam10.jpg"></center>'
				'(Dr.) Good afternoon. At that complain?'
				'(You) - Oh, Doctor, I like a cold - laid nose, throat aches ... and cough.'
				'(Doctor) - Temperature is?'
				'(You) - Yes, a little.'
				'(Doctor) - Clear. Undress. Fully'

				act 'Undress':
					cla
					*clr
					set horny += 10
					'<center><img src="images\add-on\exam12.jpg"></center>'
					'You stand perd doctor completely naked and confused pytaetel hide behind hands.'
					'The doctor comes to you and gently hugs the shoulders:'
					'(Doctor) - What are you, my dear - do not be shy. I´m a doctor. What´s your name?'
					'(You timidly) - <<$name>> ...'
					'(Doctor) - Do not worry, <<$name>> - I heal you. Come on - breathe deeply.'

					act 'Breathe':
						cla
						*clr
						set horny += 10
						clr
						gs 'stat'
						'<center><img src="images\add-on\exam13.jpg"></center>'
						'Dr. vylushivaet your lungs. Her hands were light and gentle touching stethoscope frankly laskiayut your chest.'
						'You feel the growing excitement'
						'(Doctor) - Here we go. Taper open your mouth - ah-ah-ah-ah ...'

						act 'A-ah':
							cla
							*clr
							'<center><img src="images\add-on\exam14.jpg"></center>'
							'You open your mouth and the doctor examines your throat reddened'
							'(Doctor) - Well. Now let´s took my temperature. Sit on the couch and spread your legs.'
							'(You) - Why?'
							'(Doctor) - We measured rectally - so reliable.'
							'(You) - Uh-uh ...'
							'(Doctor) - Do not worry - it does not hurt.'

							act 'Substitute ass':
								cla
								*clr
								set horny += 10
								clr
								gs 'stat'
								'<center><img src="images\add-on\exam15.jpg"></center>'
								'The doctor arranged for you on the couch in this position that you were red, smeared lubricant between your legs and gently introduced a thermometer into the anus. It really does not hurt, you understand - even pleasant.'
								'The doctor began to slowly move the thermometer back and forth in your ass and the fingers of the other hand - to stroke your pussy. Thanks lbrikantu her fingers sklzyat very easily and gently.'
								'You feel that you are excited stronger. Your nipples harden, pussy doctor flowed at hand ...'

								act 'Doctor, what´s happening?':
									cla
									*clr
									set minut += 10
									set horny += 10
									clr
									gs 'stat'
									'<center><img src="images\add-on\exam16.jpg"></center>'
									'The doctor takes a thermometer and begins openly caress your pussy moisten with desire.'
									'Are you confused and horrified by her behavior, but she was so gentle, and you are so excited that you simply can not resist. The only thing that you manage - is choking sprsit:'
									'(You) - Doctor, what are you doing? What´s going on?'
									'(Doctor) - A - felt! I knew immediately that you were one of us, and therefore I can use his power quietly.'
									'(You) - So you´re a magician, too?'
									'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
									'(You) - No, I do not remember ...'
									'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
									'(You) - So ..?'
									'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
									'(You) - And what in return?'
									'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
									'(You) - Then of course - I agree.'
									'(Doctor) - Then get on your knees on the couch.'

									act 'To kneel':
										cla
										*clr
										'<center><img src="images\add-on\exam17.jpg"></center>'
										'You knelt down and turned back to Ninel. She took off her robe, meanwhile, remained in her stocking feet and you gasped when he saw her strapon.'
										'Dr. lubed dildo and your pussy lubricated and grinned:'
										'(Doctor) - Well, baby, let´s curable!'

										act 'Ah-ah-ah!':
											cla
											*clr
											set minut += 10
											set horny = 100
											clr
											gs 'stat'
											'<center><img src="images\add-on\exam18.jpg"></center>'
											'With these words she has driven a powerful push in you dildo.'
											'You gasped in surprise, then again, and again, and yet - already with pleasure.'
											'Doctor fucked you familiar confident movements, moaning with every jolt - it seems she is not afforded less fun than you - you were just ecstatic. Unusual decor, shame and skill Ninel quickly led you to the peak'

											act 'I´m going to come!':
												cla
												*clr
												'<center><img src="images\add-on\exam19.jpg"></center>'
												'(You) - I´m going to come! - You shout - Please, please, please!'
												'Ninel topples onto the couch, pulling you along, you find yourself at the top and start frantically jumping on an artificial penis, screaming and vzvizkivaya acute, almost unbearable pleasure.'
												'A few more movements, and you start to cum, screaming and twitching in a paroxysm of incredibly long orgasm.'
												'(Doctor) - Now it´s my turn. Come on, girl - try.'

												act 'Ninel humor':
													cla
													*clr
													set horny     = 0
													set orgasm   += 1
													set lesbian  += 1
													set ninelsex += 1
													if ninelsex   = 1: set girl += 1
													set SUB      += 1
													set vagina   += 1
													set sick      = 0
													set health    = vital * 10 + stren * 5 + 1000
													set willpower = intel * 5 + will * 5 + 1000
													set manna     = (intel * magik) + magik * 100 + vital * 10 + rikudo
													clr
													gs 'stat'
													'<center><img src="images\add-on\exam19a.jpg"></center>'
													'Ninel strap breaks and presses his face to you raspalennye flowing pussy juices. You begin to wield her tongue in a few seconds and comes in Ninel orgzazme. She screams and beats his chest and squeezing out of her vagina in your face squirting thick whitish fluid'

													act 'Dress':
														cla
														*clr
														'<center><img src="images\add-on\exam11.jpg"></center>'
														'With trembling hands, you start natyagivavt panties. Ninel already slipped the robe only her flushed face recalls rough sex, which she just worked with you.'
														'(Ninel) - Well, how do you feel?'
														'(You) - Ooh ... Just perfect - you answer and only then realize how much you are right - the disease has disappeared, you are full health and in good spirits. A sweet bouquet exhaustion makes this even more pleasant sensations'
														'(Ninel) - Well, you see. It´s magic, baby. Mm-m ... You´re just a miracle - a long time I did not get so much pleasure from their magic. If you get sick again - just come to me or calling home. Well, if you just want to spend your time - look for me in the clinic.'
														'You promised to be sure to find her, cleaned up and left'
														act 'Get out of the clinic': gt 'street'
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end


if $ARGS[0] = 'ninel2':
	cla
	*clr
	'You come to the office and Ninel contemptuously throwing old ladies sitting in the hallway: "No line" - come into the office.'

	act 'Login to Account':
		cla
		*clr
		'<center><img src="images\add-on\exam00.jpg"></center>'
		'Ninel looks up from some medical scribbling, to know you and smiles:'
		'(Ninel) - Hi, Svetsik. Again ill?'
		'(You coughed into his fist) - Yeah. I´ll fly?'
		'(Ninel) - Sure, baby. Undress - I´ll listen.'
		'(You) - Why? You´re a magician ...'
		'(Ninel laughs) - Silly. How could you not know much about magic. I´m must to know what will be treated, otherwise it will happen as the old song - make like a thunderstorm, and got a goat. Magic - the exact thing'
		'(You) - Here´s how ... Well then, of course.'

		act 'Undress':
			cla
			*clr
			set horny += 10
			'<center><img src="images\add-on\exam02.jpg"></center>'
			'You undress and Ninel hears your lungs. As usual, her arms are light and tender and touching her stethoscope on your chest swell sultry heat'
			'(Ninel) - Yes ... You again wheezing. Lets say "ah-ah-ah"'

			act 'A-a-a':
				cla
				*clr
				'<center><img src="images\add-on\exam03.jpg"></center>'
				'You open your mouth and carefully inspect your Ninel Sore throat'
				'(Ninel) - Painting familiar. What are you? Absolutely not kept. Temperature there?'
				'(You with a smile) - Pit.'
				'(Ninel sly) - Like it? And just afraid ... The first major Down on the flank and knees to her chest tighten.'

				act 'Lie on the couch':
					cla
					*clr
					set horny += 10
					set minut += 10
					clr
					gs 'stat'
					'<center><img src="images\add-on\exam04.jpg"></center>'
					'You take the desired position and Ninel starts fucking your ass thermometer. You get excited, your pussy lips are opened, one begins to ooze grease. You moan softly'
					'(Ninel) - What, baby, like it? Come on let´s see - how.'

					act 'Substitute pussy':
						cla
						*clr
						set horny += 10
						set minut += 5
						clr
						gs 'stat'
						'<center><img src="images\add-on\exam06.jpg"></center>'
						'You roll over onto his back and pushes the legs. Ninel gets vvobit Speculum and flushed it in your vagina. You quietly ohaete from udovolstvaiya and Ninel echoes you passionate heavy sigh. It looks like your kind of wide-open vulva her great-ons'

						act 'Oh-h ..!':
							cla
							*clr
							set horny  = 100
							set minut += 15
							clr
							gs 'stat'
							'<center><img src="images\add-on\exam05.jpg"></center>'
							'Overcome with passion, Ninel quickly takes off her robe, showing sticking out between his legs and pulled the strap to your lips'
							'You eagerly kissing, while skilled fingers Ninel play with your excited clitoris, causing warm waves of pleasure through your body to disperse'
							'(You) - Fuck me! Hurry! - You ask. Ninel grins, continuing to tease your clitoris hand'
							'(Ninel) - Ask me'
							'(You) - Fuck me - please! Rather, I ask!'
							'(Ninel) - Ask better. I see the way you want it'

							act 'Beg and pray':
								cla
								*clr
								set minut += 20
								'<center><img src="images\add-on\exam07.jpg"></center>'
								'(You) - Please, please, please! Fuck me! Do with me what you want - I´m all yours! Rather only - please, soon!'
								'Ninel puts on a strap and snarling drives it in your bosom lust blazing. You cried out Put your feet up, trying to make rubber penis entered you as deeply as possible.'
								'Ninel fucks you faster, moaning and groaning with every jolt, and you moan and podmahivat struggled.'
								'(Ninel) - On your knees ..! Turn around! - Choking doctor ordered'

								act 'Substitute ass':
									cla
									*clr
									set horny     = 0
									set minut    += 10
									set orgasm   += 1
									set lesbian  += 1
									set SUB      += 1
									set vagina   += 1
									set sick      = 0
									set health    = vital * 10 + stren * 5 + 1000
									set willpower = intel * 5 + will * 5 + 1000
									set manna     = (intel * magik) + magik * 100 + vital * 10 + rikudo
									clr
									gs 'stat'
									'<center><img src="images\add-on\exam08.jpg"></center>'
									'Moaning with excitement you get on your knees and bulging ass to Ninel it easier to get in, but it is in no hurry'
									'(You) - Come on - faster! - Ask you - I almost ..! - But Ninel panting orders:'
									'(Ninel) - Ask! Beg, plead me little mokroschelka!'
									'(You) - Please, please, please-ah-ah-ah! - You shout - Fuck me, fuck! I want to come! Yes - I´m a whore, I mokroschelka, but please, please, please, let me finish! Fuck-me-a-ah!!'
									'Strap on your sticks into the inflamed vagina and nachenaet peck like a jackhammer. Blink and you pierces wild orgasm. You scream in agony and beats, your rules knees weakened and you fall on kusheku shuddering in the throes of sensual and Ninel all stops and orgasm does not end ...'
									'Finally you end immediately and Ninel commands:'
									'(Ninel) - A well appease me now, little slut. Come on - how do you know how!'

									act '...':
										cla
										*clr
										'<center><img src="images\add-on\exam09.jpg"></center>'
										'You´s turnover on the back and Ninel sits on your face. You diligently oruduete tongue and lips obihazhivaya its wide-open jaws and swollen erect clit, and she was screaming and sobbing crotch crawl across your face until he finally comes in a scream and starts to cum. She cums long, yelling, shaking like a fever and abundantly filling your face thick and sticky liquid'

										act '...':
											cla
											*clr
											set horny += 20
											'<center><img src="images\add-on\exam09a.jpg"></center>'
											'When he finished, Ninel rises and slowly dressed, showing you their perkrasnoe body. It´s unbelievable, but you again rises excitement.'
											'Ninel somehow sees this and smiles'
											'(Ninel) - Oh, no - enough is enough. But you come in something else - fun.'
											'And you will realize that once again will be a little too. You are healthy, satisfied - and thanks for that.'
											act 'Thank Ninel and go': gt 'street'
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end


if $ARGS[0] = 'ninel3':
	cla
	*clr
	'You come to the office and Ninel contemptuously throwing old ladies sitting in the hallway: "No line" - come into the office.'

	act 'Login to Account':
		cla
		*clr
		'<center><img src="images\add-on\exam10.jpg"></center>'
		'Ninel looks up from some medical scribbling, to know you and smiles:'
		'(Ninel) - Hi, Svetsik. Again ill?'
		'(You with feigned suffering grimace on his face) - Oh, Doctor - my pussy is burning, and all flows. Perhaps she is seriously ill.'
		'(Ninel smiling) - my poor child. Now we are going to fly it.'

		act 'Tear off his clothes':
			cla
			*clr
			'<center><img src="images\add-on\polsex01.jpg"></center>'
			'Groaning with impatience you tear off her clothes. Ninel also took off the robe and the front of your face rocked strap.'
			'(Ninel) - Suck it, baby. Make it hot and wet, as you yourself'
			'You bites his lips in a dildo and start sucking, squishing and abundantly irrigating his saliva. You can see how excited looking at this Ninel.'

			act 'Fuck me!':
				cla
				*clr
				set minut += 10
				'<center><img src="images\add-on\polsex02.jpg"></center>'
				'Remembering that this Ninel loves you begin to beg her to fuck you soon. You do not even need to pretend to be this - the desire to literally burn you.'
				'Ninel finally heed the request. She rudely puts you on your knees and begins to drive the strap and measured in your inflamed vagina. You ahaete screams and each push. Your feet are weakening.'

				act 'Fall on the couch':
					cla
					*clr
					set minut += 20
					'<center><img src="images\add-on\polsex03.jpg"></center>'
					'You fall on the couch. Ninel knocks you on your side and play continues. You drawl and voluptuously moan from her breasts too pulled out a deep groan and bestial growl'
					'My God, as you well.'
					'(Ninel panting) - I can not - let itself ..!'

					act 'Ninel saddle':
						cla
						*clr
						set horny      = 0
						set minut     += 10
						set orgasm    += 1
						set lesbian   += 1
						set SUB       += 1
						set manna     += 15
						set willpower += 15
						set vagina    += 1
						clr
						gs 'stat'
						'<center><img src="images\add-on\polsex04.jpg"></center>'
						'You obediently mnyaete pose. Ninel leans back on the couch, and you sit down on top of her and strung on a dildo.'
						'You jump on the strap, and squealing nadrachivaya fingers clit when Ninel beneath you starts to twitch and moan. You understand that it ends, and it works as a trigger - you go in orgasm.'
						'Few seconds, you are fighting with Ninel and scream in paroxysms of passion, and then fall exhausted on the couch'
						'(You) - Thank you, dear. It was great ...'
						'(Ninel) - Oh yeah, Svetsik. Come again.'
						act 'Freshen up and go': gt 'street'
					end
				end
			end
		end
	end
end


if $ARGS[0] = 'glavdoc':
	set minut += 5
	'You logged in and asked whether you take on the job.'
	'Chief doctor looked at you. "Oh yeah, that girl you was talking about Catherine. Okay, listen working conditions"'
	'"Work will be on weekdays, come with 8 to 9 hours, and come out on the shift will work up to 16 hours. Do not come to you this day will not be counted in the salary. Salary paid on 25th, the spent per shift - 1000 rubles. "'
	'"Labor should hand over to the personnel department. You understand, will work?"'

	if work = 0:
		act 'Find a job':
			cla
			set workhosp = 1
			set work = 1
			'You classify working in the personnel department. "'
			act 'Exit': gt 'poli','start'
		end
	end

	if workhosp = 1: act 'Resign': gt 'poli', 'discharge'
	act 'Exit': gt 'poli','start'
end


if $ARGS[0] = 'beginwork':
	cla
	*clr
	'<center><B><font color = maroon>Clinic</font></B></center>'
	'<center><img src="images\img\spaln\hospital.jpg"></center>'
	'You have replaced the clinic.'

	act 'Start work':
		set smena += 1
		gt 'WorkHosp','start'
	end

	act 'Resign': gt 'poli','discharge'
end


if $ARGS[0] = 'discharge':
	cla
	set minut   += 10
	set workhosp = 0
	set work     = 0
	set pay      = smena * 1000
	set money   += pay
	set smena    = 0
	'Chief doctor looked at you: "Here is your payment <<pay>> rubles and employment history. Goodbye."'
	act 'Leave': gt 'street'
end


if $ARGS[0] = '0':
	cla
	*clr
	'<center><img src="images\img\spaln\hospsex1.jpg"></center>'
	'During the examination, the doctor starts to stick to you, clearly alluding to the intimate relationship'
	act 'Send it': gt 'poli','start'

	act 'Fun':
		set picrand = 11
		set guy += 1
		xgt 'sex','var'
	end
end


if $ARGS[0] = '1':
	cla
	*clr
	'<center><img src="images\img\spaln\hospsex2.jpg"></center>'
	'You examine the two doctors, they touch you everywhere clearly go beyond what is permitted'
	act 'Send them': gt 'poli','start'

	act 'Fun':
		set picrand = 11
		set guy    += 2
		xgt 'sexdvoe','var'
	end
end


if $ARGS[0] = '2':
	cla
	*clr
	'<center><img src="images\img\spaln\hospsex3.jpg"></center>'
	'Going to the office you caught nurse africana stoyuschee kneeling before the doctor with smacking sucking his cock.'
	act 'Leave': gt 'poli','start'

	act 'Login to Account':
		cla
		*clr
		'<center><img src="images\img\spaln\hospsex4.jpg"></center>'
		'When you walked in, jumped out of the doctor´s office, and unmet ostavshayusya nurse glared at you, but after a moment in her eyes flashed light robe and dropping it came to you and vskhvativ one-handed for a second back pressed to his chest drew you to your'
		act 'Leave': gt 'poli','start'

		act 'Let her':
			cla
			*clr
			set guy     += 1
			set girl    += 1
			set lesbian += 1
			'<center><img src="images\img\spaln\hospsex5.jpg"></center>'
			'She prispustila with you pants and bent his couch over, began to process your pussy with his tongue'

			act 'Lick her':
				cla
				*clr
				'<center><img src="images\img\spaln\hospsex6.jpg"></center>'
				'You oprakinuli her on the couch and dug his lips in her black pussy, she exuded an smell that just drives you crazy, you could not put it down and licked her pussy to put their tongue inside pussy and anus, in this state you found and returned the doctor.'
				act 'Proceed three': set picrand = 11 & gt 'podrsex','var'
			end
		end
	end
end
--- poli ---------------------------------

# rinok
if $ARGS[0] = 'start':
cla
*clr
set minut += 5

$rinbuy1 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 50 > money: 'You do not have enough money.'
if portion*50 <= money:
	set fairy += portion
	set money -= portion * 50
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought dishwashing detergent.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy2 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set poroshok += portion
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought detergent.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy3 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set cltarelka += portion * 3
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought plates.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy4 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 500 > money: 'You do not have enough money.'
if portion*500 <= money:
	set kosmetica += portion * 25
	set money -= portion * 500
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought cosmetics.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy5 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 200 > money: 'You do not have enough money.'
if portion*200 <= money:
	set stanok += portion * 10
	set money -= portion * 200
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought razor.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy6 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set tampon += portion * 20
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought tampons.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy7 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 200 > money: 'You do not have enough money.'
if portion*200 <= money:
	set clrbelo += portion
	set money -= portion * 200
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought clothes.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy8 = {
if money >= 1000 and bikini < 1:
cla
*clr
set money -= 1000
set bikini = 1
'<center><img src="images\etogame\kassa2.jpg"></center>'
'You pay the cashier and bought a swimsuit.'
act 'Move away from the counter': gt 'rinok','start'
else
'You do not have enough money.'
end
}
$rinbuy9 = {
if money >= 1000 and umbrella < 1:
cla
*clr
set money -= 1000
set umbrella = 1
'<center><img src="images\etogame\kassa2.jpg"></center>'
'You pay the cashier and bought an umbrella.'
act 'Move away from the counter': gt 'rinok','start'
else
'You do not have enough money.'
end
}

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
mag = 1

'<center><B><font color = maroon>Trade</font></B></center>'
'<center><img src="images\etogame\rinok.jpg"></center>'
'<a href="exec: dynamic $rinbuy1 ">dishwashing detergent - 50 rubles</a> <a href="exec: dynamic $rinbuy2 ">laundry detergent - 150 rubles</a> <a href="exec: dynamic $rinbuy3 ">a set of 3 plates - 150 rubles</a> <a href="exec: dynamic $rinbuy4 ">Cosmetics - 500 rubles</a> <a href="exec: dynamic $rinbuy5 ">razor - 200 rubles</a> <a href="exec: dynamic $rinbuy6 ">tampons - 100 rubles</a> <a href="exec: dynamic $rinbuy7 ">Underwear - 200 rubles</a>'
if bikini < 1: '<a href="exec: dynamic $rinbuy8 ">swimsuit - 1000 rubles</a>'
if umbrella < 1: '<a href="exec: dynamic $rinbuy9 ">umbrella - 1000 rubles</a>'
'On one of the tents hanging listing <a href="exec:GT ''loker2'',''start''">"Accept the things to implement"</a>'

if analplugIN = 1 and tanga = 0 and ski = 1 or analplugIN = 1 and tanga = 0 and glamur = 1:
	set nurand = RAND(0,100)
		if nurand >= 80:
		set manna -= 5
		set SUB += 1
		set horny += SUB
		set nudity += 1
		'You feel that someone gently touched <a href="exec:GT ''etoexhib'',''pos15''">your hand buttocks</a>'
		*nl
		end
	end

'<a href="exec:numdres = 1 & payclo = 1500 & GT ''loker'',''jeans''">Inspect jeans number 1</a> <a href="exec:numdres = 2 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 2</a> <a href="exec:numdres = 3 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 3</a> <a href="exec:numdres = 4 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 4</a> <a href="exec:numdres = 5 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 5</a>'
clr
gs 'stat'
gs 'time'
act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
if workrin = 1:
	if week = 2 or week = 4 or week = 6:
		if hour < 9:
			'Arthur item is waiting for you.'
			act '<B>Accept goods.</B>':
				cla
				*clr
				hour = 9
				minut = 0
				prodpayum = 1200
				'Arthur unloaded stuff from his ushatannoy Shokhi to the tray and gave you. You started to hang clothes on the tent.'
				'Before leaving Arthur gives you instructions. "Sell what you want, but that night I would have given to each item sold by 1000. And to gain by selling no less than <<arturplan>> rubles."'
				act 'To work.': gt 'rinwork','start'
				end
			end
		end
	end
if workrin = 1:
	act 'Retire from work':
		cla
		work = 0
		workrin = 0
		'You retired from work and took labor.'
		act 'QUIT': gt 'rinok','start'
		end
	end
if work = 0:
	nl
	'On one of the tents hanging ad "Need females saleswomen. Paychecks big."'
	act 'Approach to a host of tents ad':
		cla
		*clr
		'Hi, my name is Arthur. I am the master of the tent, I need a saleswoman. I do not cope. Well? Will you?'
		'Paying a percentage of wages. Will operate on Tuesdays, Thursdays and Saturdays. With 8 to 14.'
		'Work on labor.'
		act 'QUIT': gt 'rinok','start'
		act 'Find a job':
			cla
			work = 1
			workrin = 1
			arturplan = 5000
			'You got a job to Arthur and gave him a career.'
			act 'QUIT': gt 'rinok','start'
			end
		end
	end
if palto < 1:
	'On the market sell for winter jackets. 5000 rubles'
	if money >= 5000:
		act 'Buy a down jacket':
			cla
			money -= 5000
			palto = 1
			$palto = 'Chinese wear'
			'You bought a down jacket.'
			act 'QUIT': gt 'rinok','start'
			end
		end
	end
end
--- rinok ---------------------------------

# rinwork
if $ARGS[0] = 'start':

$answerrin = {
	if tipred = pokti:
		if pokvnirand = 0:
			pokpay = RAND(1000,1200)
		end

		if pokvnirand = 1:
			pokpay = RAND(1200,1500)
		end

		if pokvnirand = 2:
			pokpay = RAND(1500,2000)
		end
	else
		$rinitog = '<<$poktip>> puts the thing in place and leaves'
		pokupatel = 0
	end
}

$answerrin2 = {
	act 'Name the price':
		cla
		prodpay = input ("Enter the selling price")

		if prodpay < 1000: prodpay = prodpayum

		'You set a price in <<prodpay>> rubles'

		if prodpay <= pokpay:
			poknorand = RAND(1,100 + vnesh)
			if poknorand >= 10:
				rinmon += prodpay
				rinvesh += 1
				'Buyer collected and paid item <<prodpay>> rubles'
				act 'Trading on': gt 'rinwork','start'
			else
				'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
				dynamic $answerrin3
				act 'Less I can not (take the thing)': gt 'rinwork','start'
			end
		end

		if prodpay > pokpay and prodpay <= pokpay + 100:
			poknorand = RAND(1,100 + vnesh)
			if poknorand >= 10:
				'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
				dynamic $answerrin3
				act 'Less I can not (take the thing)': gt 'rinwork','start'
			else
				'Buyer puts thing into place and leaves'
				act 'Trading on': gt 'rinwork','start'
			end
		end

		if prodpay > pokpay+100:
			'Buyer puts thing into place and leaves'
			act 'Trading on': gt 'rinwork','start'
		end
	end
}

$answerrin3 = {
if prodpay >= 1100:
	act 'Reduce the price of 100 rubles':
	cla
	'You have reduced the price to 100 rubles.'
	poknorand = RAND(1,100 + vnesh)
		if poknorand >= 10:
		rinmon += prodpay - 100
		rinvesh += 1
		'Buyer collected and paid item <<prodpay-100>> rubles'
		act 'Trading on': gt 'rinwork','start'
		else
		'Buyer puts thing into place and leaves'
		act 'Trading on': gt 'rinwork','start'
		end
	end
end

if prodpay >= 1050:
	act 'Reduce the price of 50 rubles':
	cla
	'You have reduced the price to 50 rubles.'
	poknorand = RAND(1,100 + vnesh)
		if poknorand >= 30:
		rinmon += prodpay - 50
		rinvesh += 1
		'Buyer collected and paid item <<prodpay-50>> rubles'
		act 'Trading on': gt 'rinwork','start'
		else
		'Buyer puts thing into place and leaves'
		act 'Trading on': gt 'rinwork','start'
		end
	end
end
}

cla
*clr
gs 'stat'
'<center><B><font color = maroon>Trade</font></B></center>'
'<center><img src="images\etogame\rinok.jpg"></center>'
'You stand in the tray with the clothes in anticipation of buyers.'
'At the box office <<rinmon>> rubles, Sales <<rinvesh>> things.'
'The average price on the market <<prodpayum>>'

	if hour = 14:
	'Arthur came to you and you started to calculate how much you should give to Arthur.'
		act 'Giving money to Arthur':
		cla
		*clr
		rinart = rinvesh * 1000
		rinmon = rinmon - rinart
		money += rinmon
		'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
		'Today you have earned <<rinmon>> rubles'
		gs 'stat'
			if rinart < arturplan:
			arturnoo += 1
			'Uh, Svetka, bad work, not enough money. You´re so razorish me completely.'
			else
			arturyes += 1
			'Maladets Svetik, good job.'
			end
		if arturnoo > arturyes: arturnoo = arturnoo - arturyes & arturyes = 0
		if arturyes > arturnoo: arturyes = arturyes - arturnoo & arturnoo = 0
		if arturnoo = arturyes: arturnoo = 0 & arturyes = 0
		rinmon = 0
		rinvesh = 0
			if arturnoo > 10:
			arturnoo = 0
			work = 0
			workrin = 0
			'Uh, you´ve fucked savsem. Here´s your labor. Hit the road that I did not see you anymore!'
			act 'Leave': gt 'street'
			exit
			end
		Set rinrand = RAND(1,100)
			if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
			'(Arthur) - Wai Svetik, you and I have not even met properly. Come into the container, ate barbecue, drink and get acquainted.'
				act 'Refuse':
				cla
				'You become otnekivatsya Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I´m fine and I can take you.'
				act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
					act 'No.':
					cla
					arturplan += 1000
					if money >= 1000:
					money -= 1000
					'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
					else
					'Okay, go already.'
					end
					act 'Leave.': gt 'street'
					end
				end
			act 'Come': gt 'RynokHoz','start'
			exit
			end

			if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
			'(Arthur) - Wai Svetik. Come into the container, ate barbecue, drink, rest. He walked right up to you and slapped on the ass with his hand.'
				act 'Refuse':
				cla
				'You become otnekivatsya Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I´m fine and I can take you.'
				act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
					act 'No.':
					cla
					arturplan += 1000
					if money >= 1000:
					money -= 1000
					'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
					else
					'Okay, go already.'
					end
					act 'Leave.': gt 'street'
					end
				end
			act 'Come': gt 'RynokHoz','start'
			exit
			end



		act 'Leave work': gt 'street'
		end
	exit
	end

	if hour < 14:
	pokrand = RAND(0,1)
		if pokrand = 0:
		$pokup = 'Buyers can not see.'
		pokupatel = 0
		''
		'Market is Aunt Katya with trolley in which it carries cakes and coffee.'
		end

		if pokrand = 1:
		poktiprand = RAND(0,7)
		pokupatel = 1
		if poktiprand = 0:$pokup = 'To the tray approached middle-aged man.' & $poktip = 'Man'&pokti = 1
		if poktiprand = 1:$pokup = 'To the tray approached by a young man.' & $poktip = 'Guy'&pokti = 2
		if poktiprand = 2:$pokup = 'Guy came to the tray teenager.' & $poktip = 'Boy'&pokti = 3
		if poktiprand = 3:$pokup = 'A woman came up to the tray.' & $poktip = 'Woman'&pokti = 1
		if poktiprand = 4:$pokup = 'Girl came to the tray.' & $poktip = 'Girl'&pokti = 2
		if poktiprand = 5:$pokup = 'To the tray approached teen girl.' & $poktip = 'Girlfriend'&pokti = 3
		if poktiprand = 6:$pokup = 'Approached the old man to the tray.' & $poktip = 'Old man'&pokti = 0
		if poktiprand = 7:$pokup = 'Grandma went to the tray.' & $poktip = 'Granny'&pokti = 0
		end
		'<b><<$pokup>></B>'
			if pokupatel = 1:
				act 'What do you want?':
				cla
				minut += 15
				pokvnirand = RAND(0,2)
					if pokvnirand = 0:
						'<<$poktip>> without interest examines selling things.'
					end
					if pokvnirand = 1:
						'<<$poktip>> with interest examining selling things.'
					end
					if pokvnirand = 2:
						'<<$poktip>> picks up the item.'
					end

					!dynamic $answerrin

					act 'Now it is very fashionable':
					cla
					tipred = 3
					dynamic $answerrin
					'<<$rinitog>>'
						if pokupatel = 0: act 'Further': gt 'rinwork','start'
						if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
						end
					end

					act 'Thing is very high quality and reliable':
					cla
					tipred = 1
					dynamic $answerrin
					'<<$rinitog>>'
						if pokupatel = 0: act 'Further': gt 'rinwork','start'
						if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
						end
					end

					act 'Give not expensive':
					cla
					tipred = 0
					dynamic $answerrin
					'<<$rinitog>>'
						if pokupatel = 0: act 'Further': gt 'rinwork','start'
						if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
						end
					end

					act 'You are very':
					cla
					tipred = 2
					dynamic $answerrin
					'<<$rinitog>>'
						if pokupatel = 0: act 'Further': gt 'rinwork','start'
						if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
						end
					end
				end
			end

			act 'Laze around (0:15)':
			minut += 15
			gt 'rinwork','start'
			end

			if hour = 9:
			rintakrand = RAND(0,5)
				if rintakrand = 0:
				$rintak = 'The tray in front of Hassan unloads clothes saleswoman Nadia.'
					act 'See Hassan and Nadia':
					cla
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0: 'Nadia Hassan utters. "Today you will sell more, and then the fine ladies, I need the money."'
						if talkrand = 1: 'Hassan opens trunks and puts clothes on the counter.'
						if talkrand = 2: 'Hassan drags trunks to his tray.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 1:
				$rintak = 'In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
					act 'Look at Abdul and Anna':
					cla
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0: 'Abdul swears. "You´re fucked, you can not sell anything!" Anna retorts, "you told me so rotten shit for sale give, take it nobody wants."'
						if talkrand = 1: 'Abdul slapped ass Anna, she pretended that nothing happened.'
						if talkrand = 2: 'Abdul drags trunks to his tray.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 2:
				$rintak = 'Abdul Hassan and stand beside your tray and about something guttural talking.'
					act 'View on Caucasians':
					cla
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0: 'Abdul Hassan and continue to talk about something, you do not know the language, and what they say can not understand.'
						if talkrand = 1: 'Abdul Hassan pyalyatsya you and discussing what is yuk.'
						if talkrand = 2: 'Abdul looks at you and says Hassan, "Look what a girl, sponges persik, wah."'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 3:
				$rintak = 'Anna hanging clothes in the tray and shouting with Nadia.'
					act 'Chat with sex':
					cla
					annaQW += 1
					NadiaQW += 1
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0:
						'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
						if clener = 0: clener = 1
						end
						if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 4:
				$rintak = 'Arthur is talking about something with Abdullah.'
					act 'View on Caucasians':
					cla
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0: 'Abdul and Arthur continue to talk about something, you do not know the language, and what they say can not understand.'
						if talkrand = 1: 'Abdul and Arthur pyalyatsya you and discussing what is yuk.'
						if talkrand = 2: 'Abdul looks at you and says Arthur, "Look what a girl, sponges persik, wah."'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 5:
				$rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'
					act 'View on Caucasians':
					cla
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0: 'Caucasians continue to talk about something, you do not know the language, and what they say can not understand.'
						if talkrand = 1: 'Caucasians pyalyatsya you and discussing what is yuk.'
						if talkrand = 2: 'Abdul looks at you and says other Caucasians, "Look what a girl, sponges persik, wah."'
					act 'Further': gt 'rinwork','start'
					end
				end
			'<<$rintak>>'
			end
			if hour = 10:
			rintakrand = RAND(0,5)
				if rintakrand = 0:
				$rintak = 'Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
					act 'See Hasan':
					cla
					minut += 15
					'Hassan says Nadia "Nadia, zachem ti refuse? Encroach Shlyk, have some wine."'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 1:
				$rintak = 'The tray is sitting in front of Nadia and crossword puzzles.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW += 1
					minut += 15
					'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
						if clener = 0:
						clener = 1
						'Nadia tells about a Jew tailor working in an office building.'
						end
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 2:
				$rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 3:
				$rintak = 'In the next tray Anna drinking coffee.'
					act 'Chat with Anna':
					cla
					annaQW += 1
					!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 4:
				$rintak = 'In the next tray Anna tries vtyuhat buyers stale goods.'
					act 'Chat with Anna':
					cla
					annaQW -= 1
					!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 5:
				$rintak = 'Anna talks about trifles with Aunt Katya.'
					act 'Chat with Anna and Aunt Katya':
					cla
					annaQW += 1
					!NadiaQW += 1
					tetaKataQW += 1
					minut += 15
					'Aunt Katya praises pies and Anya complains that it currently has on these patties Naela ass twice more than it was ..'
					act 'Further': gt 'rinwork','start'
					end
				end
			'<<$rintak>>'
			end
			if hour = 11:
			rintakrand = RAND(0,5)
				if rintakrand = 0:
				$rintak = 'By Nadia approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'
					act 'Look at Nadia and Caucasians.':
					cla
					!annaQW += 1
					!NadiaQW += 1
					!tetaKataQW += 1
					minut += 15
					'Caucasians seem to be leaning toward sex Nadia.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 1:
				$rintak = 'The tray is sitting in front of Nadia and eating cake.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW += 1
					minut += 15
					'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
						if clener = 0:
						clener = 1
						'Nadia tells about a Jew tailor working in an office building.'
						end
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 2:
				$rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 3:
				$rintak = 'In the next tray Anna reading the newspaper.'
					act 'Chat with Anna':
					cla
					annaQW += 1
					!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 4:
				$rintak = 'By Ana from a nearby tray approached buyers.'
					act 'Chat with Anna':
					cla
					annaQW -= 1
					!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 5:
				$rintak = 'By Ana approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly scared silent.'
					act 'Look at Anya and Caucasians.':
					cla
					!annaQW += 1
					!NadiaQW += 1
					!tetaKataQW += 1
					minut += 15
					'Caucasians seem to be leaning toward sex Anya.'
					act 'Further': gt 'rinwork','start'
					end
				end
			'<<$rintak>>'
			end
			if hour = 12:
			rintakrand = RAND(0,5)
				if rintakrand = 0:
				$rintak = 'Hasan bought cheburek and eating it while sitting behind Nadi in the tray.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia shy to talk with Hassan.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 1:
				$rintak = 'Nadia Thorog with buyers.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 2:
				$rintak = 'Nadia talks with Anna.'
					act 'Chat with sex':
					cla
					annaQW += 1
					NadiaQW += 1
					minut += 15
					talkrand = RAND(0,2)
						if talkrand = 0:
						'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
						if clener = 0: clener = 1
						end
						if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 3:
				$rintak = 'Anya sells clothing buyers.'
					act 'Chat with Anna':
					cla
					annaQW -= 1
					!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 4:
				$rintak = 'Anya drinking coffee sitting at his tray.'
					act 'Chat with Anna':
					cla
					annaQW += 1
					!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'
					act 'Further': gt 'rinwork','start'
					end
				end
				if rintakrand = 5:
				$rintak = 'Nadia idleness catches flies.'
					act 'Chat with Nadia':
					cla
					!annaQW += 1
					NadiaQW += 2
					minut += 15
					'Nadia glad though what that entertainment and fun to chat with you.'
					act 'Further': gt 'rinwork','start'
					end
				end
			'<<$rintak>>'
			end
			if hour = 13:
			rintakrand = RAND(0,5)
				if rintakrand = 0:
				$rintak = 'Hassan began to slowly collect the goods from Nadi.'
				end
				if rintakrand = 1:
				$rintak = 'Anya sits and calculates profit per day.'
				end
				if rintakrand = 2:
				$rintak = 'Nadia calculates profit per day.'
				end
				if rintakrand = 3:
				$rintak = 'Abdul began to collect the goods from Ani.'
				end
				if rintakrand = 4:
				$rintak = 'Past your tray was Arthur.'
				end
				if rintakrand = 5:
				$rintak = 'Aunt Katya ends trade pies and seems to leave.'
				end
			'<<$rintak>>'
			end


			if money >= 200:
				act 'Buy snack for 200 rubles (0:15)':
				cla
				*clr
				gs 'stat'
				tetaKataQW += 1
				'<center><img src="images\pics\food.jpg"></center>'
				set minut += 15
				set health += 10
				set manna += 20
				money -= 200
					if energy >= 30:
					set fat += 5
					'You can no longer have.'
					end
					if energy >= 20 and energy < 30:
					set fat += 3
					set energy += 10
					'You pushed through the power of a meal.'
					end
					if energy < 20:
					set energy += 20
					!set fat += 1
					'You gladly ate cooked food.'
					end
					if water >= 20:
					'Coffee you no longer climbs.'
					end
					if water < 20:
					'You gladly drank a mug of coffee.'
					set water += 20
					end
				act 'Throw leftovers': gt 'rinwork','start'
			end
		end
	end


end
--- rinwork ---------------------------------

# RynokHoz
if $ARGS[0] = 'start':
minut += 15
if arturplan > 4000: arturplan -= 1000
gs 'stat'
'You went into a master container skluzhaschy warehouse and dwelling, where he pulled out a bottle of vodka and a snack'
	act 'Drink along with a host':
	cla
	minut += 15
	gs 'stat'
	'Arthur set the table, put a bottle of vodka and invited you to sit on a chair.'
	'You got drunk together with the owner and he pulled you to her hugging. Then he took out your chest and began to fondle'
		act 'Surrender':
		cla
		if rinhoz = 0: Set rinhoz = 1 & Set guy += 1
		Set sex += 1
		vagina += 1
		Set cumass += 1
		Set horand = RAND(1,100)
		'<center><img src="images\pics\rinsex.jpg"></center>'
		'You are relaxed and started hugging the host response. He undressed and put your stomach on the bags with cereal, spread your buttocks and your zasoval hard and hot cock in your pussy'
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
		Set gbrand = RAND(1,100)
			if gbrand < 95 and palevorin = 0:
			'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			Set money += 2000
			act 'Go home': gt 'street'
			end

			if palevorin >= 1:
			'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			Set money += 2000
			act 'Go home': gt 'street'
			end

			if gbrand >= 95 and palevorin = 0:
			if palevorin = 0: palevorin = 1
			cla
			'While the owner you fucked you heard the creaking front door, entered the room, two more men. You know them is Abdul Hassan, owners of neighboring tents.'
			'You froze in astonishment and shame, you caught moaning fuck bare ass, the men were glad, and guffawed. They offered you serve them and then no one will know about this incident.'
				act 'Silently dress':
				cla
				Set money += 2000
				if rinslut = 0: Set rinslut = 1
				'You with a red face of shame dressed silently, at this time the owner handed you 2,000 rubles as a bonus.'
				act 'Go home': gt 'street'
				end

				act 'Agree to gangbang':
				cla
				Set palevorin = 2
				'Host finished on you and gave way to the two guys, one of them raised your ass and threw you in pussy stuck to his penis, you groaned in pain when he hit you in the womb, the second guy immediately pulled penis and began to clap them on your face, you take it in your mouth. So you fry two guys, and the owner was sitting and looking at what is happening.'
				'<center><img src="images\pics\rinkrug.jpg"></center>'
				if abdulasex = 0: abdulasex = 1 & guy += 1
				if hasansex = 0: hasansex = 1 & guy += 1
				Set sex += 1
				vagina += 1
				Set bj += 1
				gang += 1
				Set cumass += 1
				Set cumlip += 1
				'And finally Abdul Hasan filled steel finish and one in your mouth and the second you on your ass.'
				Set money += 5000
				'After the boys finished owner came to you and gave you a bonus of 5000 rubles'
				act 'Go home': gt 'street'
				end
			end
			!if palevorin >= 1:
			!'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			!Set money += 2000
			!act 'Go home': gt 'street'
			!end

		end

		act 'Suck':
		cla
		if rinhoz = 0: Set rinhoz = 1 & Set guy += 1
		Set bj += 1
		Set cumlip += 1
		Set horand = RAND(1,100)
		'<center><img src="images\pics\rinbj.jpg"></center>'
		'You sat down before the master on his knees and took out his cock around his mouth and started sucking him, absorbing member in the throat and licking balls host when he began to cum in your mouth, you were forced to swallow his struhnyu nor wash or not to spit it .'
		if horand > vaf: Set horny += 10 & 'You were not satisfied'
		if horand <= vaf: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
		Set gbrand = RAND(1,100)
			if gbrand < 95 and palevorin = 0:
			'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			Set money += 2000
			act 'Go home': gt 'street'
			end
			!
			if palevorin >= 1:
			'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			Set money += 2000
			act 'Go home': gt 'street'
			end

			if gbrand >= 95 and palevorin = 0:
			if palevorin = 0: palevorin = 1
			'Have you finished doing blowjob and licking the remnants of sperm with the host member when the door opened and two men entered the closet. You know them is Abdul Hassan, owners of neighboring tents.'
			wait 3000
			'You froze in astonishment and shame, you were caught with a mouth full of sperm licking red eldu, the men were glad, and guffawed. They offered you serve them and then no one will know about this incident.'
				act 'Wipe your mouth and correct clothes':
				cla
				Set money += 2000
				if rinslut = 0: Set rinslut = 1
				'You with a red face of shame began to wipe the remnants of sperm from her lips and correct clothes, at this time the owner handed you 2,000 rubles as a bonus.'
				act 'Go home': gt 'street'
				end

				act 'They agree to suck':
				cla
				Set palevorin = 2
				'Licking prick you master nodded his head in agreement. Two men immediately took out their members and framed them to your mouth, you immediately began to suck two dick'
				'<center><img src="images\pics\rintri.jpg"></center>'
				if abdulasex = 0: abdulasex = 1 & guy += 1
				if hasansex = 0: hasansex = 1 & guy += 1
				Set bj += 2
				gang += 1
				Set cumlip += 2
				'Finally Abdul Hassan steel cum in your mouth, you swallow and lick sperm until their members did not fall off.'
				Set money += 5000
				'After the boys finished owner came to you and gave you a bonus of 5000 rubles'
				act 'Go home': gt 'street'
				end
			end
			!if palevorin >= 1:
			!'After sex, the host has written you a premium in the amount of 2,000 rubles, and you went each about his business.'
			!Set money += 2000
			!act 'Go home': gt 'street'
			!end
		end
	end
end

if $ARGS[0] = 'bus':
'You are the driver stopped in the shed, where he pulled out a bottle of vodka and a snack'
	act 'Drinking with driver':
	cla
	'You got drunk together with the driver and he began to squeeze your breasts and ass'
		act 'Surrender':
		cla
		if vodila = 0: Set vodila = 1 & Set guy += 1
		Set sex += 1

		Set cumass += 1
		'You are relaxed and started hugging in response cage. He undressed you and put the cancer, you feel his hot cock hard and pushing the vaginal wall is part of you, you involuntarily groaned from the flood of feelings for you.'
		'<center><img src="images\pics\busSex.jpg"></center>'
		Set horand = RAND(1,100)
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & 'You covered orgasm'
		'After having sex with a carrier you went each about his business.'
		!Set money += 2000
		act 'Go home': gt 'street'
		end

		act 'Suck':
		cla
		if vodila = 0: Set vodila = 1 & Set guy += 1
		Set sex += 1
		Set oral += 1
		Set cumlip += 1
		'You sat down before the driver got on his knees and his cock wrapped around his lips and began to suck when the driver began to cum in your mouth, you were forced to swallow cum, neither wash nor spit it no where.'
		'<center><img src="images\pics\busbj.jpg"></center>'
		Set horand = RAND(1,100)
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & 'You covered orgasm'
		'After suction cage, you went each about his business.'
		!Set money += 2000
		act 'Go home': gt 'street'
		end
	act 'Swear at it and go': gt 'street'
	end
end

if $ARGS[0] = 'opusteha':
'You three fellows went into the container warehouse employee and cabins, where they got their members and you kneeling immediately sucked in three'
Set rinslut = 1
Set sex += 1
Set bj += 3
Set cumlip += 3
Set money += 2000
if repa < 6: Set repa = 6
'<center><img src="images\pics\tri6.jpg"></center>'
Set horand = RAND(1,100)
if horand > oral: Set horny += 10 & 'You were not satisfied'
if horand <= oral: Set horny = 0 & 'You covered orgasm'
'After the men left off in your mouth, the owner took thousands in 2000 and gave you as a premium'
act 'Go home': gt 'street'
end

if $ARGS[0] = 'opusteha2':
'Armenians took you into the shed, and set him on his knees in front of him pulled out his big dick. You licked his lips and started grinding his powerful member of his mouth.'
Set tiprand = RAND(1,2)
Set guy += 1
Set bj += 1
Set throat += 1
if tiprand = 1: Set cumlip += 1
if tiprand = 2: Set cumface += 1
Set money += 500
if repa < 6: Set repa = 6
if tiprand = 1: 'Armenian grabbed you by the head and finished in your mouth. You were forced to swallow everything.'
if tiprand = 2: 'Armenian pulled his cock out of your mouth and hold your head for cumshot on your face.'
if tiprand = 1: '<center><img src="images\pics\rinslutBJ.jpg"></center>'
if tiprand = 2: '<center><img src="images\pics\bukkOne.jpg"></center>'
Set horand = RAND(1,100)
if horand > oral: Set horny += 10 & 'You were not satisfied'
if horand <= oral: Set horny = 0 & 'You covered orgasm'
'After the Armenian finished, he tucked in his pants member and threw you five hundred-ruble notes.'
act 'Go home': gt 'street'
end
--- RynokHoz ---------------------------------

# sauna
sauna += 1
'<center><B>Sauna</B></center>'
'<center><img src="images\etogame\sauna.jpg"></center>'
'Excellent renovated sauna.'
clr
gs 'stat'

act 'Leave': minut += 15 & gt 'street'

!if saunaWorkWhore > 0:act 'Go to work': gt 'saunawork'
!SaunaWhore
if SaunaWhore > 0: act 'Go to work whore': gt 'saunawork'

if week = 5 and workDisk = 2:
'At the entrance you are waiting for a strong man waiting for you to drive.'
	act 'Giving Drive':
	cls
	minut += 20
	workDisk = 3
	konvert = 1
	gs 'stat'
	'You gave the disc and you were handed a thick envelope.'
	act 'Leave': minut += 15 & gt 'street'
	end
end

	if hour >= 8 and hour <= 23: act 'Go to the sauna': gt 'sauna2'
--- sauna ---------------------------------

# sauna2
set minut += 5
'<center><B><font color = maroon>Sauna</font></B></center>'
'<center><img src="images\etogame\sauna1.jpg"></center>'
'Stay for an hour costs 2000 rubles.'
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': gt 'sauna'

	if money >= 2000 and saunaday ! day:
		act 'Stay':
		cls
		money = money - 2000
		minut += 60
		fat -= 10
		if sweat > -10: set sweat = -10
		dynamic $showerdin
		saunaday = day
		manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
		gs 'stat'
		'<center><img src="images\etogame\sau.jpg"></center>'
		'You are in for an hour in the sauna steamed, washed under a shower and relax.'
		act 'Leave': gt 'sauna'
		end
	end
--- sauna2 ---------------------------------

# saunabed
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
'<center><b>bed</b></center>'
'<center><img src="images\pics\son.jpg"></center>'
if son < 10:
	if budon = 1:
		act 'Sleep before the alarm in <<alarm1>> hours <<alarm2>> minutes':
		cls
		inSleep = 1
		:markson
		needminut = 60 - minut
		sec += needminut * 60
		son += 3
		gs 'stat'
		if son >= 23 or alarm1 = hour and alarm2 = minut:
		inSleep = 2
		gt $locBroom, $metkaBroom
		else
		jump 'markson'
		end
		end
	end

	act 'Sleep as you want':
	cls
	inSleep = 1
	:markson
	needminut = 60 - minut
	sec += needminut * 60
	son += 3
	gs 'stat'
	if son < 23: jump 'markson'
	inSleep = 2
	gt $locBroom, $metkaBroom
	end
end

if budon = 1:
'Clock wound <<alarm1>> hours <<alarm2>> minutes'
	act 'Disable the alarm': budon = 0 & gt $curloc
else
	act 'Enable Service': budon = 1 & gt $curloc
end

act 'Set the alarm time': gt 'saunabud'

act 'Get out of bed': sec += 5 & gt $locBroom, $metkaBroom
--- saunabed ---------------------------------

# saunabud
dynamic $budilnik
act 'Enable Service': budon = 1 & gt 'saunabed'
--- saunabud ---------------------------------

# saunaroom
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom = 1
'<center><B><font color = maroon>Room</font></B></center>'
'<center><img src="images\etogame\saunaroom.jpg"></center>'
'The room is barely removed <a href="exec:sec += 30 & GT ''saunabed''">bed</a> and <a href="exec:GT ''loker'',''start''">cabinet</a>.'
'Hanging on the wall <a href="exec:GT ''mirror'',''start''">mirror</a>'
if money > 0 and workDolg > 0: workDolg -= money & money = 0
if workDolg > 0: 'Your debt is <<workDolg>> rubles'

	act 'Go to the sauna': gt 'saunawork'


if workDolg > 0:
	act 'There are in debt (0:05)':
	cla
	*clr
	minut += 5
	workDolg += 50
	set health += 30
	set manna += 100
	energy = 20
	water = 20
	fat += 50
	salo += 1
	frost = 0
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
	act 'Get up from the table': gt $curloc
	end

	act 'Borrow cosmetics':
	workDolg += 1000
	set kosmetica += 25
	gt $curloc
	end
end

if water < 20:
	act 'Drink':
	cla
	set minut += 5
		if water >= 20:
		'Water in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a glass of water.'
		set water += 20
		end
	act 'Get up from the table': gt $curloc
	end
end
--- saunaroom ---------------------------------

# saunawhore
set saunaWorkKlient = 1
set guy += 1
set slutty += 1
set bj += 1
dynamic $venerasiak
gs 'boy'
$namev = 'client'
set whorerand = RAND(1,22)
set minut += 15
set SaunaWhore += 1
gs 'stat'
'<center><img src="images\sauna\bj<<whorerand>>.jpg "></center>'
'You are logged in to the sauna with a client, he undressed, you too undressed.'
'You fell on his knees in front of the client and his mouth took his flaccid cock, working from your jaw member and quickly rose to become stronger <<dick>> centimeters.'
'You carefully clasping his dick sucked their <<$liptalk>> and felt like with every movement hard cock fills your mouth to the throat.'
if dick <= 12: 'Member is not very large and you constantly poke his nose in curly pubis sucking dick to the ground and hairy balls hit you on the chin.'
if dick > 12 and dick <= 15: 'Member at each movement gets to your throat and you´re a little choking diligently handle it their jaws.'
if dick > 15: 'Dick too big for your mouth and you suck it for as long as you allow your mouth sucking it up to the neck and head of the language processing.'
!dynamic $saunadinsexbefore
if dick > 15: saunarand = RAND(0,100)

if dick > 15 and saunarand > 90:
'Client wanted what would you do to him deep blowjob.'
	act 'Deepthroating':
	cls
	minut += 45
	sweat += 1
	mop = 0
	throat += 1
	gs 'stat'
	whorerand = RAND(1,34)
	'<center><img src="images\sauna\deep<<whorerand>>.jpg "></center>'
	'You become deeply absorb into your mouth dick, dick rested in your throat, you have tried to expand it and swallowed the cock became hard to breathe and started crying, drooling and snot, you pulled out a member of the throat and took a rest, and then began again to pull his mouth <<dick>> centimeter-member standing as the count finally throat slightly adapted and you could find the pace in which swallowed member. Throat burning fire flowed carcasses in the eyes, nose snot ran down the face, the client finally groaned and finished in the condom.'
	act 'Take the money from the client and go': money += 1500 & saunaWorkNow = 1 & gt 'saunawork'
	end
end

if dick <= 15 or saunarand <= 90:
'Client distracted you from work mouth and wanted sex.'
	act 'Further':
	cls
	whorerand = RAND(0,100)
		if whorerand <= 80:
		cls
		minut += 45
		sex += 1
		pose = 0
		sweat += 1
		gs 'stat'
		whorerand = RAND(1,23)
		'<center><img src="images\sauna\sex<<whorerand>>.jpg "></center>'
		'Customer has placed you in a pose'
		if prezik <= 0 and NoCondomUse = 0: prezik += 1 & workDolg += 50 & 'You took a condom out of the total pack, knowing that for this you will deduct from 50 rubles.'
		gs 'orgazm','start'
		act 'Take the money from the client and go': money += 1000 & saunaWorkNow = 1 & gt 'saunawork'
		end
		if whorerand > 80:
		cls
		minut += 45
		sweat += 1
		gs 'stat'
		whorerand = RAND(1,23)
		'<center><img src="images\sauna\anal<<whorerand>>.jpg "></center>'
		'The client wants you in the ass, you smeared grease points and framed your work back to the client.'
		if prezik <= 0 and NoCondomUse = 0: prezik += 1 & workDolg += 50
		if NoCondomUse = 0: lubonus = 5
		dynamic $analsex
		if NoCondomUse = 0:
		'Finally client groaned and finished in a condom.'
		prezik -= 1
		end
		act 'Take the money from the client and go': money += 2000 & saunaWorkNow = 1 & gt 'saunawork'
		end
	end
end
--- saunawhore ---------------------------------

# saunawork
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom = 1
if paymamka = 0: paymamka = 300
if workDolg > 0: paymamka = 300
if workDolg <= 0: paymamka = 500
gs 'stat'
'<center><B><font color = maroon>Sauna</font></B></center>'
'<center><img src="images\etogame\sauna1.jpg"></center>'
'On the walls are full of <a href="exec:GT ''mirror'',''start''">mirrors</a>.'
if saunaWorkNow = 1:
	set saunaWorkNow = 0
	set money -= paymamka
	'Nurse came to you and took you to <<paymamka>> per customer.'
	end
if money > 0 and workDolg > 0:
	if money > workDolg:
		money -= workDolg
		workDolg = 0
	else
		workDolg -= money
		money = 0
	end
end
if workDolg > 0: 'Your debt is <<workDolg>> rubles'
gs 'stat'
if workDolg <= 0: act 'Leave': gt 'sauna'
if workDolg > 0: act 'Go to your room': gt 'saunaroom'

if hour > 8 and hour < 12 and whorehour ! hour:
whorehour = hour
klientrand = RAND(0,100)
	if klientrand >= 80: saunaWorkKlient = 1
end
if hour >= 12 and hour < 16 and whorehour ! hour:
whorehour = hour
klientrand = RAND(0,100)
	if klientrand >= 50: saunaWorkKlient = 1
end
if hour >= 16 and hour < 21 and whorehour ! hour:
whorehour = hour
klientrand = RAND(0,100)
	if klientrand >= 10: saunaWorkKlient = 1
end
if hour >= 21 and whorehour ! hour:
whorehour = hour
saunaWorkKlient = 1
end

if saunaWorkKlient = 1:
cls
gs 'stat'
'<center><img src="images\etogame\saunawhore.jpg"></center>'
'In the sauna arrived client, girls lined up that would be a customer could choose your favorite.'
	if mop > 1 and hapri = 1 and sweat <= 0 and leghair <= 0 and lobok <= 0:
		whorerand = RAND(0,25)
		if whorerand < vnesh:
			'Client jabbed a finger at you "This one."'
			act 'Go to the sauna with a client': saunaWorkKlient = 0 & gt 'saunawhore'
			if workDolg <= 0: act 'Leave': saunaWorkKlient = 0 & gt $curloc
		else
			'Client examined picky eyes and turned away you chose another girl.'
			act 'Exit': saunaWorkKlient = 0 & gt $curloc
		end
	else
	'Looking at your client immediately turned away and chose another girl.'
	act 'Exit': saunaWorkKlient = 0 & gt $curloc
	end
exit
end

if vnesh = -10 or SLomka > 0:
cls
gs 'stat'
workDolg += 1500
'You beckoned nurse. "Hey slut come here."'
'You came up to her and she demanded to bare your hand. You have done the required and she took a syringe with what that rubbish. "Sit still, do a shot now and will bring you into a normal form."'
act 'Exit': StrongNarkota += 25 & SNarkTimes += 1 & minut += 10 & gt $curloc
exit
end

	act 'Sit on the couch (1:00)':
	cls
	minut += 60
	gs 'stat'
	'<center><img src="images\etogame\saunawork.jpg"></center>'
	'You are within an hour sitting on the couch waiting for customers.'
	act 'Exit': gt $curloc
	end

	if clenerSauna ! day:
		act 'Clean toilets (1:00)':
		cla
		*clr
		set minut += 60
		set clenerSauna = day
		set manna -= 25
		workDolg -= 100
		set sweat += 3
		'<center><img src="images\etogame\clener2.jpg"></center>'
		'You scrubbed toilets for an hour in the sauna to shine.'
		act 'Exit': gt $curloc
		end
	end

	if clenerSauna2 ! day:
		act 'Scrubbing floors (1:00)':
		cla
		*clr
		set minut += 60
		set clenerSauna2 = day
		set manna -= 25
		workDolg -= 100
		set sweat += 3
		'<center><img src="images\etogame\clener1.jpg"></center>'
		'You within the hour scrubbed floors mopped to shine.'
		act 'Exit': gt $curloc
		end
	end

	act 'Take a shower (0:15)':
	cla
	*clr
	set minut += 15
	if sweat > -3: set sweat = -3
	set horny += 1
	set hapri = 0
	set mop = 1
	dynamic $showerdin
	if frost > 0: frost = 0
	'<center><img src="images\pics\dush.jpg"></center>'
	'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
		if (leghair > 0 or lobok > 0):
			act 'Get razor': dynamic $saunabrit
		end

		if horny >= 90:
			act 'Send shower pussy':
			cla
			*clr
			set horny = 0
			set minut += 30
			set mastr += 1
			set orgasm += 1
			set manna += 15
			set willpower += 15
			'<center><img src="images\pics\wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
			act 'Get out and get dressed': gt $curloc
			end
		end
		if horny >= 40 and hormy < 90:
			act 'Send shower pussy':
			cla
			*clr
			set horny += 5
			set minut += 30
			set manna += 10
			set willpower += 10
			'<center><img src="images\pics\wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. First you were very nice, but after a while, even as it was painful. Excitation of sleep and you stop masturbating.'
			act 'Get out and get dressed': gt $curloc
			end
		end

	act 'Get out and get dressed': gt $curloc
	end

$saunabrit = {
cls
'You rinsed the razor blade which will be enough for <<stanok>> time.'
	if leghair > 0:
		act 'Shave your legs (0:15)':
		cla
		*clr
		set minut += 15
		set leghair = -5
		set horny += 5
		'<center><img src="images\pics\shave.jpg"></center>'
		'You lathered up and shaved hair with them.'
		act 'Postpone machine': dynamic $saunabrit
		end
	end
	if lobok > 0:
		act 'Shave pubis (0:15)':
		cla
		*clr
		set minut += 15
		set lobok = -5
		set horny += 5
		'<center><img src="images\pics\shave3.jpg"></center>'
		'You lathered pubis, then shaved all the hair from it.'
		act 'Postpone machine': dynamic $saunabrit
		end
	end

act 'Get out and get dressed': gt $curloc
}
--- saunawork ---------------------------------

# shop
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$icecreem = {
	if hour >= 8 and hour <= 20:
		cls
		set minut += 3
		'Ice cream offer for 50 rubles.'
		act 'Get out of the department': gt 'shop','start'

		if money >= 50:
			act 'Buy ice cream':
				cls
				money   -= 50
				fat     += 50
				manna   += 500
				water    = 20
				energy   = 20
				perkice += 1
				gs 'stat'
				!icecreem
				'<center><img src="images\etogame\icecreem.jpg"></center>'
				'You bought ice cream and ate it not going far.'
				act 'Get out of the department': gt 'shop','start'
			end
		end
	else
		'Ice cream counter with closed'
	end
	}


	$sofood = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop','food'
		else
			'Section closed'
		end
	}


	$socosm = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop','cosm'
		else
			'Section closed'
		end
	}


	$sohos = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop','hos'
		else
			'Section closed'
		end
	}


	$soclo = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop','clo'
		else
			'Section closed'
		end
	}


	$soteh = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop','teh'
		else
			'Section closed'
		end
	}


	$sobank = {
		if hour >= 8 and hour <= 20:
			if karta > 0:
				act 'Withdrawing money':
				cla
				set minut += 5
				kartaOUT = input ("How much money you want to withdraw?")

					if kartaOUT <= 0 or kartaOUT > karta:
						'Invalid operation.'
					else
						set karta -= kartaOUT
						set money += kartaOUT
						'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
					end

					act 'Move away': gt 'shop','start'
				end
			else
				'You do not have a bank card'
			end
		else
			'ATM disabled'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><B><font color = maroon>Supermarket</font></B></center>'
	'<center><img src="images\etogame\shop.jpg"></center>'
	'The hall stands <a href="exec: dynamic $sobank ">ATM</a>, from which you can withdraw the money unless you have it in the bank.'
	'The greatest place in the supermarket takes <a href="exec: dynamic $sofood ">food hall</a>, but the store has more divisions <a href="exec: dynamic $socosm ">cosmetics</a>, <a href="exec: dynamic $sohos ">hardware</a>, <a href="exec: dynamic $soclo ">Clothing</a>, and department <a href="exec: dynamic $soteh ">household appliances</a>. Not far from the entrance stands <a href="exec: dynamic $icecreem ">counter with ice cream</a>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	if $loc = 'gorodok':
		if week < 6:
			if hour >= 8 and hour < 16:
				'Your sister <a href="exec:SiSonWork = 1 & GT ''sister''">Anne</a> sits at the checkout.'
			end
		end
	end


	if $loc = 'street':
		set evrand = RAND(1,100)

		if evrand >= 95 and dimaQW = 0:
			'In the lobby of the store looks at you appreciatively what that man.'
			act 'See it': gt 'event','dima'
		end

		if evrand >= 95 and dimaQW = 1:
			'In the lobby of the store you notice Dima and binds you fear, you can not move.'
			act 'See it': gt 'event','scoreslut1'
		end

		if evrand >= 95 and dimaqw = 2:
			'You met the same Dima who boyfriend fucking amuse you. Dima cocky grin came to you and said hello.'

			act 'Hello':
				cla
				'Come to me, I have no wife at home said Dima.'
				act 'No': gt 'shop','start'

				act 'Come':
					cla
					*clr
					Set gostrand = RAND(1,2)

					if gostrand = 1:
						cla
						Set sex     += 1
						Set oral    += 1
						Set throat  += 1
						Set cumlip  += 1
						set swallow += 1
						Set horny    = 0
						'Dima took you to his house and there has ordered you to kneel. You got on his knees and he calling you a bitch and fuck you cocksucker began in the mouth.'
						'<center><img src="images\pics\gostDT2.jpg"></center>'
						'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
						act 'Go home': gt 'street'
					end

					if gostrand = 2:
						cla
						Set sex    += 1
						Set anal   += 1
						Set cumass += 1
						Set spank  += 1
						Set boom    = 5
						Set horny   = 0
						'Dima has brought you to my house and right in the corridor began to kiss you and undress. After he stripped you he took you to the bathroom. There he sat in the bathroom and you unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema, he made you cancer and put you in the ass his big dick.'
						'<center><img src="images\pics\gostAnal2.jpg"></center>'
						'Dima long you fucked in the ass and beat his hands, you first it was painful, but gradually you got the taste and began to catch the buzz finally your ass filled with hot liquid and Dima moan grabbed your buttocks.'
						act 'Go home': gt 'street'
					end
				end
			end
		end
	end

	if hour >= 8 and hour <= 20:
		'In store crowd of buyers.'

		if TorgPredZ > 0:
			if $loc = 'street':
				if StreetShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand         = RAND(40,130)
						minut          += mtprand
						TorgPredZ      -= 1
						TorgPredZV     += 1
						StreetShopTPday = day
						gs 'stat'
						'<center><img src="images\etogame\shop.jpg"></center>'
						'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
						act 'Exit': gt 'shop','start'
					end
				end
			end

			if $loc = 'Nord':
				if nordShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand       = RAND(40,130)
						minut        += mtprand
						TorgPredZ    -= 1
						TorgPredZV   += 1
						nordShopTPday = day
						gs 'stat'
						'<center><img src="images\etogame\shop.jpg"></center>'
						'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
						act 'Exit': gt 'shop','start'
					end
				end
			end

			if $loc = 'down':
				if downShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand       = RAND(40,130)
						minut        += mtprand
						TorgPredZ    -= 1
						TorgPredZV   += 1
						downShopTPday = day
						gs 'stat'
						'<center><img src="images\etogame\shop.jpg"></center>'
						'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
						act 'Exit': gt 'shop','start'
					end
				end
			end
		end
	else
		'The store is closed.'
	end

	act 'Leave the store': gt $loc
end

if $ARGS[0] = 'food':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buyfood = {
		if hour >= 8 and hour <= 20:
			if money >= 50:
				cla
				*clr
				set minut += 15
				portion = input ("How many servings you want to buy?")
				if portion <= 0: portion = 1

				if portion * 50 > money:
					'You do not have enough money.'

				else
					set eda += portion
					set money -= portion*50
					'<center><img src="images\etogame\kassa.jpg"></center>'
					'You bought food and paid the money to the cashier.'
				end
				act 'Move away from the counter': gt 'shop','food'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyfood2 = {
		if hour >= 8 and hour <= 20:
			if money >= 250:
				cla
				*clr
				set minut += 15
				portion = input ("How many servings you want to buy?")
				if portion <= 0: portion = 1

				if portion * 250 > money:
					'You do not have enough money.'

				else
					set edaD += portion
					set money -= portion*250
					'<center><img src="images\etogame\kassa.jpg"></center>'
					'You bought food and paid the money to the cashier.'
				end
				act 'Move away from the counter': gt 'shop','food'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><B><font color = maroon>Food Division</font></B></center>'
	'<center><img src="images\etogame\shop1.jpg"></center>'
	'<a href="exec: dynamic $buyfood ">One serving of food - 50 rubles</a>'
	'<a href="exec: dynamic $buyfood2 ">One serving of diet food - 250 rubles</a>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)


	act 'Get out of the department': gt 'shop','start'

	if money >= 300:
		act 'Buy tea biscuits - 300 rubles':
			cls
			money  -= 300
			pranik += 10
			'You bought a bag of cookies that will last you for ten times.'
			act 'Get out of the department': gt 'shop','food'
		end
	end

	if money >= 50 and bottle = 0 and bag > 0:
		act 'Buy a bottle of water - 50 rubles':
			cls
			money  -= 50
			bottle = 1
			'You bought a bottle of water and put it in her purse.'
			act 'Get out of the department': gt 'shop','food'
		end
	end

	if money >= 100 and buterbrod = 0 and bag > 0:
		act 'Buy a sandwich - 100 rubles':
			cls
			money    -= 100
			buterbrod = 1
			'You bought a sandwich and put it in her purse.'
			act 'Get out of the department': gt 'shop','food'
		end
	end
end



if $ARGS[0] = 'cosm':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buykosm = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1

			if portion*1000 > money:
				'You do not have enough money.'

			else
				set kosmetica += portion * 50
				set money     -= portion * 1000
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought cosmetics.'
			end
			act 'Move away from the counter': gt 'shop','cosm'
		else
			'Section closed'
		end
	}


	$buystanok = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1

			if portion*500 > money:
				'You do not have enough money.'
			else
				set stanok += portion * 10
				set money  -= portion * 500
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought razor.'
			end
			act 'Move away from the counter': gt 'shop','cosm'
		else
			'Section closed'
		end
	}


	$buykrem = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0: portion = 1

		if portion*500 > money:
			'You do not have enough money.'
		else
			set krem  += portion * 20
			set money -= portion * 500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought sunblock.'
		end
		act 'Move away from the counter': gt 'shop','cosm'
	else
		'Section closed'
	end
	}


	$buytampon = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0: portion = 1

			if portion*200 > money:
				'You do not have enough money.'
			else
			set tampon += portion * 20
			set money  -= portion * 200
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought tampons.'
		end
		act 'Move away from the counter': gt 'shop','cosm'
	else
		'Section closed'
	end
	}


	$buyshampoo = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0: portion = 1

		if portion*500 > money:
			'You do not have enough money.'
		else
			set shampoo += portion * 30
			set money   -= portion * 500
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought shampoo.'
		end
		act 'Move away from the counter': gt 'shop','cosm'
	else
		'Section closed'
	end
	}
	
	!!! Maruda Hair Mod
	$buyhscrunch = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0: portion = 1

		if portion*80 > money:
			'You do not have enough money.'
		else
			set hscrunch = portion * 10
			set money   -= portion * 80
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought the small box.'
		end
		act 'Move away from the counter': gt 'shop','cosm'
	else
		'Section closed'
	end
	}
	
	$buyhpingrip = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0: portion = 1

		if portion*100 > money:
			'You do not have enough money.'
		else
			set hpingrip = portion * 12
			set money   -= portion * 100
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought the small box.'
		end
		act 'Move away from the counter': gt 'shop','cosm'
	else
		'Section closed'
	end
	}
	!!! Maruda Hair Mod
	
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><B><font color = maroon>Department cosmetics</font></B></center>'
	'<center><img src="images\etogame\shop2.jpg"></center>'
	'<a href="exec: dynamic $buykosm ">Cosmetics - 1,000 rubles</a>'
	'<a href="exec: dynamic $buystanok ">Razor - 500 rubles</a>'
	'<a href="exec: dynamic $buykrem ">Sunblock - 500 rubles</a>'
	'<a href="exec: dynamic $buytampon ">Tampons - 200 rubles</a>'
	'<a href="exec: dynamic $buyshampoo ">Shampoo - 500 rubles</a>'
	!!! Maruda Hair Mod
	'<a href="exec: dynamic $buyhscrunch ">A Box of 10 Hairscrunchies - 80 rubles</a>'
	'<a href="exec: dynamic $buyhpingrip ">A Box of 12 Hairpins, -clips and -grips - 100 rubles</a>'
	!!! Maruda Hair Mod
	'Handbag - 5,000 rubles'
	'Wipes - 100 rubles'
	'Portable Makeup - 1,000 rubles'
	'Comb - 150 rubles'

	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	act 'Get out of the department': gt 'shop','start'

	if money >= 100 and bag > 0:
		act 'Buy wipes - 100 rubles':
			cls
			money    -= 100
			salfetka += 10
			'You bought wipes and put them in her purse.'
			act 'Get out of the department': gt 'shop','cosm'
		end
	end

	if money >= 1000 and bag > 0:
		act 'Buy a portable makeup - 1,000 rubles':
			cls
			money      -= 1000
			kosmetitka += 10
			'You bought a portable makeup bag and put it in her purse.'
			act 'Get out of the department': gt 'shop','cosm'
		end
	end

	if money >= 80 and greben = 0 and bag > 0:
		act 'Buy a comb - 150 rubles':
			cls
			money -= 150
			greben = 1
			'You bought a comb and put it in her purse.'
			act 'Get out of the department': gt 'shop','cosm'
		end
	end
	
	if money >= 5000 and bag = 0:
		act 'Buy a handbag - 5,000 rubles':
			cls
			money -= 5000
			bag    = 1
			'You bought a handbag.'
			act 'Get out of the department': gt 'shop','cosm'
		end
	end
end

if $ARGS[0] = 'hos':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buyfairy = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1

			if portion*100 > money:
				'You do not have enough money.'
			else
				set fairy += portion * 20
				set money -= portion * 100
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought dishwashing detergent.'
			end
			act 'Move away from the counter': gt 'shop','hos'
		else
			'Section closed'
		end
	}


	$buyporoshok = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1

			if portion*250 > money:
				'You do not have enough money.'
			else
				set poroshok += portion * 30
				set money    -= portion * 250
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought detergent.'
			end
			act 'Move away from the counter': gt 'shop','hos'
		else
			'Section closed'
		end
	}


	$buycltarelka = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1

			if portion*300 > money:
				'You do not have enough money.'
			else
				set cltarelka += portion * 5
				set money     -= portion * 300
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought a set of the 5-plates.'
			end
				act 'Move away from the counter': gt 'shop','hos'
		else
			'Section closed'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><B><font color = maroon>Division of household goods</font></B></center>'
	'<center><img src="images\etogame\shop3.jpg"></center>'
	'<a href="exec: dynamic $buyfairy ">Dishwashing detergent - 100 rubles</a>'
	'<a href="exec: dynamic $buyporoshok ">Washing powder - 250 rubles</a>'
	'<a href="exec: dynamic $buycltarelka ">Set of 5 plates - 300 rubles</a>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	act 'Get out of the department': gt 'shop','start'
end



if $ARGS[0] = 'clo':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Department of Women´s Clothing</font></B></center>'
	'<center><img src="images\etogame\shop4.jpg"></center>'
	'Lingerie - 300 rubles'
	'All women´s clothing for 2500 rubles'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	act 'WITHDRAW FROM THE DIVISION': gt 'shop','start'

	if money >= 300:
		act 'Buy lingerie 300 rubles.':
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0: portion = 1
			if portion * 300 > money: 'You do not have enough money.'

			if portion*300 <= money:
				set clrbelo += portion
				set money   -= portion * 300
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You pay the cashier and bought clothes.'
			end

		act 'Move away from the counter': gt 'shop','clo'
		end
	end

	if money >= 2000:
		act 'Buy a set of underwear "Nedelka" 2000 rubles.':
			cla
			*clr
			set money   -= 2000
			set clrbelo += 7
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought clothes.'
			act 'Move away from the counter': gt 'shop','clo'
		end
	end

	if palto < 2:
		'The store sells a winter coat. 10000 rubles'
		if money >= 10000:
			act 'Buy a winter coat':
				cla
				money -= 10000
				palto  = 2
				$palto = 'winter coat'
				'You bought a coat.'
				act 'QUIT': gt 'shop','clo'
			end
		end
	end

	if money >= 1000 and bikini < 1:
		act 'Buy swimsuit 1000 rubles.':
			cla
			*clr
			set money -= 1000
			set bikini = 1
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You pay the cashier and bought a swimsuit.'
			act 'Move away from the counter': gt 'shop','clo'
		end
	end
	if money >= 2500:

		if profi[1] = 0:
			act 'Inspect office clothes number 1':
				cla
				*clr
				'<center><img src="images\clothes\profi1.jpg"></center>'
				'Office clothes.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set profi[1]  = 1
					set profiH[1] = 60
					set profiB[1] = bedra
					gt 'shop','clo'
				end
			end
		end
		if profi[2] = 0:
			act 'Inspect office clothes number 2':
				cla
				*clr
				'<center><img src="images\clothes\profi2.jpg"></center>'
				'Office clothes.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set profi[2]  = 1
					set profiH[2] = 60
					set profiB[2] = bedra
					gt 'shop','clo'
				end
			end
		end

		if sarafan[1] = 0:
			act 'Inspect colorful sundress':
				cla
				*clr
				'<center><img src="images\clothes\sarafan1.jpg"></center>'
				'Simple sundress, its main advantage is its dimensionless.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money      -= 2500
					set sarafan[1]  = 1
					set sarafanH[1] = 60
					gt 'shop','clo'
				end
			end
		end

		if sarafan[2] = 0:
			act 'Inspect light sundress':
				cla
				*clr
				'<center><img src="images\clothes\sarafan2.jpg"></center>'
				'Simple sundress, its main advantage is its dimensionless.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money      -= 2500
					set sarafan[2]  = 1
					set sarafanH[2] = 60
					gt 'shop','clo'
				end
			end
		end

		if short[1] = 0:
			act 'Inspect Black shorts with a purple T-shirt':
				cla
				*clr
				'<center><img src="images\clothes\short1.jpg"></center>'
				'Black shorts with a purple jersey.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set short[1]  = 1
					set shortH[1] = 60
					set shortB[1] = bedra
					gt 'shop','clo'
				end
			end
		end

		if short[2] = 0:
			act 'Inspect Black shorts with a striped T-shirt':
				cla
				*clr
				'<center><img src="images\clothes\short2.jpg"></center>'
				'Black shorts with striped jersey.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set short[2]  = 1
					set shortH[2] = 60
					set shortB[2] = bedra
					gt 'shop','clo'
				end
			end
		end

		if short[3] = 0:
			act 'Inspect Black shorts with black jersey':
				cla
				*clr
				'<center><img src="images\clothes\short3.jpg"></center>'
				'Black shorts with a black T-shirt.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set short[3]  = 1
					set shortH[3] = 60
					set shortB[3] = bedra
					gt 'shop','clo'
					end
			end
		end

		if short[4] = 0:
			act 'Inspect pink shorts with pink jersey':
				cla
				*clr
				'<center><img src="images\clothes\short4.jpg"></center>'
				'pink shorts with the pink jersey.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set short[4]  = 1
					set shortH[4] = 60
					set shortB[4] = bedra
					gt 'shop','clo'
				end
			end
		end

		if short[5] = 0:
			act 'Inspect the white shorts with a white bodice':
				cla
				*clr
				'<center><img src="images\clothes\short5.jpg"></center>'
				'white shorts with a white bodice.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set short[5]  = 1
					set shortH[5] = 60
					set shortB[5] = bedra
					gt 'shop','clo'
					end
			end
		end

		if skirt[1] = 0:
			act 'Inspect the white skirt with a colorful blouse.':
				cla
				*clr
				'<center><img src="images\clothes\skirt1.jpg"></center>'
				'White skirt with a colorful blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set skirt[1]  = 1
					set skirtH[1] = 60
					set skirtB[1] = bedra
					gt 'shop','clo'
				end
			end
		end

		if skirt[2] = 0:
			act 'Inspect the black skirt with a red sweater.':
				cla
				*clr
				'<center><img src="images\clothes\skirt2.jpg"></center>'
				'Black skirt with a red sweater.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set skirt[2]  = 1
					set skirtH[2] = 60
					set skirtB[2] = bedra
					gt 'shop','clo'
				end
			end
		end

		if skirt[3] = 0:
			act 'Inspect the white skirt with a striped shirt.':
				cla
				*clr
				'<center><img src="images\clothes\skirt3.jpg"></center>'
				'White skirt with a striped shirt.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set skirt[3]  = 1
					set skirtH[3] = 60
					set skirtB[3] = bedra
					gt 'shop','clo'
				end
			end
		end

		if skirt[4] = 0:
			act 'Inspect the skin black skirt with a red blouse.':
				cla
				*clr
				'<center><img src="images\clothes\skirt4.jpg"></center>'
				'Black skirt under the skin with a red blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set skirt[4]  = 1
					set skirtH[4] = 60
					set skirtB[4] = bedra
					gt 'shop','clo'
				end
			end
		end

		if skirt[5] = 0:
			act 'Inspect the black skirt with a white blouse.':
				cla
				*clr
				'<center><img src="images\clothes\skirt5.jpg"></center>'
				'Black skirt with a white blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set skirt[5]  = 1
					set skirtH[5] = 60
					set skirtB[5] = bedra
				gt 'shop','clo'
				end
			end
		end

		if pants[1] = 0:
			act 'Inspect the pants with a blouse. Number 1':
				cla
				*clr
				'<center><img src="images\clothes\pants1.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set pants[1]  = 1
					set pantsH[1] = 60
					set pantsB[1] = bedra
					gt 'shop','clo'
				end
			end
		end

		if pants[2] = 0:
			act 'Inspect the pants with a blouse. Number 2':
				cla
				*clr
				'<center><img src="images\clothes\pants2.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set pants[2]  = 1
					set pantsH[2] = 60
					set pantsB[2] = bedra
					gt 'shop','clo'
				end
			end
		end

		if pants[3] = 0:
			act 'Inspect the pants with a blouse. Number 3':
				cla
				*clr
				'<center><img src="images\clothes\pants3.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set pants[3]  = 1
					set pantsH[3] = 60
					set pantsB[3] = bedra
					gt 'shop','clo'
				end
			end
		end

		if pants[4] = 0:
			act 'Inspect the pants with a blouse. Number 4':
				cla
				*clr
				'<center><img src="images\clothes\pants4.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set pants[4]  = 1
					set pantsH[4] = 60
					set pantsB[4] = bedra
					gt 'shop','clo'
				end
			end
		end

		if pants[5] = 0:
			act 'Inspect the pants with a blouse. Number 5':
				cla
				*clr
				'<center><img src="images\clothes\pants5.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2500 rubles.'
				act 'Leave': gt 'shop','clo'

				act 'Buy':
					cla
					set money    -= 2500
					set pants[5]  = 1
					set pantsH[5] = 60
					set pantsB[5] = bedra
					gt 'shop','clo'
				end
			end
		end
	end
end


if $ARGS[0] = 'teh':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buytv = {
		if hour >= 8 and hour <= 20:
			if money >= 5000 and TV < 1:
				cla
				*clr
				set money -= 5000
				set TV     = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You paid the money to the cashier and bought TV'
				act 'Leave': gt 'shop','teh'
			elseif TV > 0:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buytv2 = {
		if hour >= 8 and hour <= 20:
			if money >= 35000 and TV < 2:
				cla
				*clr
				set money -= 35000
				set TV     = 2
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You paid the money to the cashier and bought TV'
				act 'Leave': gt 'shop','teh'
			elseif TV > 1:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buykomp = {
		if hour >= 8 and hour <= 20:
			if money >= 25000 and komp =0:
				cla
				*clr
				set money -= 25000
				set komp   = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a computer'
				act 'Leave': gt 'shop','teh'
			elseif komp > 0:
				'Do you already have a computer'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buycd = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD = 0:
				cla
				*clr
				set money -= 500
				GameCD     = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought the game'
				act 'Leave': gt 'shop','teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buycd2 = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD2 = 0:
				cla
				*clr
				set money -= 500
				GameCD2    = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought the game'
				act 'Leave': gt 'shop','teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD2 > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buycd3 = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD3 = 0:
				cla
				*clr
				set money -= 500
				GameCD3    = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought the game'
				act 'Leave': gt 'shop','teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD3 > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyposudmoi = {
		if hour >= 8 and hour <= 20:
			if money >= 50000 and posudomashina = 0:
				cla
				*clr
				set money    -= 50000
				posudomashina = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a dishwasher'
				act 'Leave': gt 'shop','teh'
			elseif posudomashina > 0:
				'You already have a dishwasher'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buystiralka = {
		if hour >= 8 and hour <= 20:
			if money >= 50000 and stiralka = 0:
				cla
				*clr
				set money -= 50000
				stiralka   = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a washing machine'
				act 'Leave': gt 'shop','teh'
			elseif stiralka > 0:
				'You already have a washing machine'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyzenit = {
		if hour >= 8 and hour <= 20:
			if money >= 10000 and zenit = 0:
				cla
				*clr
				set money -= 10000
				zenit      = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a camera'
				act 'Leave': gt 'shop','teh'
			elseif zenit > 0:
				'Do you already have a camera'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyminifoto = {
		if hour >= 8 and hour <= 20:
			if money >= 40000 and minifoto = 0:
				cla
				*clr
				set money -= 40000
				minifoto   = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a mini camera'
				act 'Leave': gt 'shop','teh'
			elseif minifoto > 0:
				'You already have a mini camera'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyWebCam = {
		if hour >= 8 and hour <= 20:
			if money >= 80000 and webCam = 0:
				cla
				*clr
				set money -= 80000
				webCam     = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a web-camera'
				act 'Leave': gt 'shop','teh'
			elseif webCam > 0:
				'You already have a web-camera'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyDVDDisk = {
		if hour >= 8 and hour <= 20:
			if money >= 4000 :
				cla
				*clr
				set money   -= 4000
				set DVDDisk += 20
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought 20 burnable DVD disks.'
				act 'Leave': gt 'shop','teh'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><B><font color = maroon>Division of household appliances</font></B></center>'
	'<center><img src="images\etogame\shop5.jpg"></center>'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	if TV = 0: '<a href="exec: dynamic $buytv ">Not a big TV with a picture tube can be bought for 5,000 rubles</a>'
	if TV ! 2: '<a href="exec: dynamic $buytv2 ">Large plasma TV can be bought for 35,000 rubles</a>'
	if komp = 0: '<a href="exec: dynamic $buykomp ">Computer worth 25,000 rubles</a>'
	!'<a href="exec: dynamic $buycd ">Computer game Disopl 500 rubles</a>'
	if GameCD2 = 0: '<a href="exec: dynamic $buycd2 ">Computer game Dead Sunset 500 rubles</a>'
	!'<a href="exec: dynamic $buycd3 ">Computer game Albida 500 rubles</a>'
	if webCam = 0: '<a href="exec: dynamic $buyWebCam ">Computer webcam 80,000 rubles</a>'
	if DVDDisk >= 0: '<a href="exec: dynamic $buyDVDDisk ">Burnable DVDs 4,000 rubles</a>'
	if posudomashina = 0: '<a href="exec: dynamic $buyposudmoi ">The dishwasher can be bought for 50,000 rubles</a>'
	if stiralka = 0: '<a href="exec: dynamic $buystiralka ">washing machine can be bought for 50,000 rubles</a>'
	if zenit = 0: '<a href="exec: dynamic $buyzenit ">The camera can be bought for 10,000 rubles</a>'
	if minifoto = 0: '<a href="exec: dynamic $buyminifoto ">Mini camera disguised as a cigarette pack can be purchased for 40,000 rubles</a>'
	act 'Get out of the department': gt 'shop','start'
end
--- shop ---------------------------------

# street
$metka = $ARGS[0]
$loc = $CURLOC

gs 'dinam'

'<center><font color = maroon><B>Residential Area</B></font></center>'
*nl
'<center><img src="images\etogame\street.jpg"></center>'

if opusk > 0 and housr > 0: 'Near the entrance to the house you live there something written on the wall. It says: <B>"<<$name>> from apartment 69 is a cheap slut!"</B>'
clr

gs 'stat'
gs 'time'

set palMir = 0
set bordysh = 0
set housrA = 0
set palMir = 0
set obdysh = 0
set tanhouse1 = 0
set obMir = 0
set obLoker = 0
set houseob = 0
set borMir = 0
set borLoker = 0

$onobjsel = 'onobjsel'

if gopdeath = 1 and vsehsdaladay ! day:
	set over = 6
	gt 'gameover'
	exit
end

if shantpopala > 0:
	cla
	*clr
	set hour += 8
	set cumbelly += 1
	set cumpussy += 1
	set cumass += 1
	set cumlip += 1
	set cumface += 1
	set cumfrot += 1
	set cumanus += 1
	set fingal += 1
	set guy += 2
	set rape += 1
	set sex += 1
	set bj += 1
	set anal += 1

	set shantpopala -= 1

	'<center><img src="images\img\centr\rape.jpg"></center>'

	'On the street close to you, a black jeep suddenly hit the brakes. You turn your head to see what''s happening and see two large men jump of it and start to run towards you in. Before you can react and run away, they grap you and drag you into the car.'
	'"You''re doing this for a living? Taking pictures of naked people in the park?", one of the shouts, holding one of the pictures to your face you''ve made awhile back and sent someone over a social network, hoping they would pay the ransom.'
	'"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
	'"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
	'You wake up somewhere out of town, you''re tied up and naked. You look down on yourself and notice traces of cum on your body, it also seems like that cum is flowing from your ass and your pussy.'
	'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.' 
	'"Oh, she is finally awake, then the next fuck-cycle will be far more fun.", one of the men said, as he noticed you moving. Some of them are starting to get a evil grin on their face.'
	'They got up and came back at you, barely a minute later you wished your were still knocked out, as these jackasses had their ways with. You tried to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost you consciousness again.'
	'You feel groggy as you wake up, but it feels like someone is grapping you by the hair and shouts at you. "Let this be a lesson for you, bitch.", he shouts, then kicks you into the stomach and leaves. As you collapse on the ground holding your stomach in pain, you take a glimpse at the street and see the assholes driving away in their black jeep. The mainroad is about 200m away, you crawl most of the way there, but soon you can walk again and eventually you find your way back to one of the mainstreets.'
	act 'Leave': gt $curloc
	exit
end

if workDolgDay <= 0 and workDolg > 0:
	cls
	gs 'stat'
	gs 'time'
	'<center><img src="images\sauna\bug.jpg"></center>'
	workDisk = 0
	'Near the entrance to the house you see two large guys, you notice that both are carrying guns. They notice you and walk up to you. "It''s time for you to pay back your depts."'
	if money >= workDolg:
		money -= workDolg
		workDolg = 0
		'You take out your.'
		act 'Leave': gt $curloc
		exit
	else
		if money+stolmoney+karta >= workDolg:
			money += stolmoney + karta
			stolmoney = 0
			karta = 0
			money -= workDolg
			workDolg = 0
			'"I have enough at home. Follow me.", you say, going up to your apartment. You quickly hush inside, take the money out of the drawer and go back to pay. They count it, look at each other nod, then they leave again.'
			act 'Leave': gt 'korr'
			exit
		else
			'You tell them that you don''t have enough money. They smack you, push you into your apartment and search everything. They find you stash and plunder it.'
			money += stolmoney + karta
			stolmoney = 0
			karta = 0
			workDolg -= money
			money = 0
			'Brutes took everything that you have been told. In short, you have a duty to <<workDolg>>. Debt grows by 10 pieces, and since you can not pay off, then we will help you. Brutes dragged you into the car and thrown into the back seat. Car started and you went somewhere.'
			workDolg += 10000
			act 'Out of the car':
				cls
				minut += 30
				gs 'stat'
				'You have come to the sauna. Bandits have been dragged into what that room and started to explain. "You´re going to live here and work until not rasplatishsya debt. All clear? Try that buzz or escape, all we´ll bullet to the head and stabbed in the woods bury, truncated?"'
				'You frightened nodded, realizing that they are not joking.'
				act 'Look around': gt 'saunaroom'
			end
		end
	end
	exit
end

if workDiskAtkPlayer = 1:
	'<center><img src="images\sauna\car.jpg"></center>'

	workDisk = 1
	workDiskAtkPlayer = 0

	'Grab and throw you into the back seat of the car. Right and left of you sit two Ambala.'
	'In the front seat - porn studio manager. Where is the envelope - he asked.'

	if konvert = 0:
		workDolg = 200000
		workDolgDay = 7
		'Stolen.'
		'-WHAT! But how could this happen! You know, in what you got dibs?! Term give you until next Friday. In my office, you bring 200,000. If not - Pingyao itself.'
	else
		konvert = 0
		money += 5000
		'You gave the envelope. He warned you that such delays in the future may be harmful to your business relationships.'
	end
	act 'Leave': gt $curloc

	exit
end

set housrA = 0

if BuyHous['Street'] >= 1 and houserent['Street'] ! 1:
	act '<b>GO HOME</b>':
		$HouseLocation = 'street'
		gorand = RAND(0,100)
		if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
			gt 'gopnew','start'
			exit
		end
		if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
			gt 'gopnew','start'
			exit
		end
		gt 'korr'
	end
end


	act 'Wait':
	cla
	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Take a look at the clock': gt curloc
	end

act 'Take a cab':
	cla
	*clr
	'<center><img src="images\etogame\taxi1.jpg"></center>'
	'You caught a passing taxi.'
	'"The drive will cost you <b>250 rubles</b>", the driver says.'
	set minut += 5
	if $loc!'street':
		act 'Go to the Residential Area':
			set $loc = 'street'
			dynamic $taxi
			end
		end
	if $loc!'down':
		act 'Go to the City Center':
			set $loc = 'down'
			dynamic $taxi
			end
		end
	if $loc!'Nord':
		act 'Go to the Northern Area':
			set $loc = 'Nord'
			dynamic $taxi
			end
		end
	act 'Turn him down and leave': gt '<<$loc>>'
	end

	if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
		set nurand = RAND(0,100)
		if nurand >= 90:
			set manna -= 5
			set SUB += 1
			set horny += SUB
			'You heard a loud whisper deliberately grandmothers on the bench, "That whore! Walks in a short skirt and no panties, then mandischey shines!"'
			'You blushed in shame after caustic remarks old ladies.'
		end
	end

if magik >= 1 and mainQW = 0 and StoryLine = 0:
cla
*clr
set mainQW = 1
'<center><img src="images\qwest\main.jpg"></center>'
'At the entrance you see Karin and Juugo. Karin adjusts glasses and looks around, Juugo seems to head in the clouds and not as strange look on his face is not visible tattoos.'
'Karin closely looks around you, "I felt a burst of energy.''m Not attacking the magician?"'
act 'No': gt 'mainQW'
exit
end

if car > 0 and cardrive = 1:
	'In the parking stands your <a href="exec:GS ''carF'',''start''"><<$car>></a>.'
end

dynamic $vladimir_driver

if hour >= 8 and hour <= 22: 'A kiosk is selling <a href="exec: dynamic $kiosksig">cigarettes</a>.'
if katkey = 1: '<a href="exec: gt ''katspalnya'',''start''">Katies</a> apartment'
if hour >= 16 and hour < 22 and dimaQW > 0: '<a href="exec: GT ''dima'',''start''">Dimas</a> apartment'
if klofQW >= 2: '<a href="exec: GT ''klofdomhouse'',''start''">Joras</a> apartment'
if hour >= 5 and hour <= 23: 'The <a href="exec: GT ''metro'',''start''">Metro</a> Station is within a 5 minute walk from here.'
if hour >= 8 and hour <= 20: 'Not far from your house is a <a href="exec: GT ''shop'',''start''">Supermarket</a>'
if hour >= 8 and hour <= 20: '<a href="exec: GT ''poli'',''start''">the clinic</a> isn''t far from your apartement either'
if hour >= 6 and hour <= 9 and military = 1 and week = 6: 'There is a <a href="exec: set minut += 60 & gt ''Military'',''start''">military bus</a> waiting on the other side of the street.'
if hour >= 8 and hour <= 14 and week ! 1: 'At the local, but noisy, <a href="exec: GT ''rinok'',''start''">marketplace</a> you can go for a small shopping trip'
if hour >= 12 and hour <= 22 and week ! 1: 'In a side alley, next to the <a href="exec: GT ''kafe'',''start''">cafe</a>, you can hear the swearing and laughing of some <a href="exec:GT ''gopnew'',''start''">Gopniks</a>.'
if hour > 22 or hour <= 3: 'In one of the parking lots you can hear the swearing and laughing of some  <a href="exec: GT ''gopnew'',''start''">Gopniks</a>.'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1: 'The side door at the <a href="exec: GT ''kafe'',''work''">cafe</a> open, so work staff can get in begin their shift.'
if clener >= 1 and hour >= 7 and hour <= 22: 'There''s a small office building where a <a href="exec: GT ''clener'',''start''">cleaning lady</a> is needed.'
'The towns <a href="exec: set minut += 21 & GT ''park'',''start''">central park</a> is about a 20-minute walk away.'
'The cities only <a href="exec: set minut += 39 & GT ''lake'',''start''">lake</a> can be reached from here and is just a 40-minute walk away.'
'24 Hour <a href="exec:$loc=''street''&GT ''pharmacy'',''start''">Pharmacy</a>.'
if hour >= 8 and lesbiqw >= 1 and lesbiqw < 3: '<a href="exec: GT ''lesbidomhouse'',''start''">Natalia Petrovnas</a> Apartment'
if lesbiday ! day and hour >= 8 and (lesbiqw = 3 or lesbiqw = 4):'<a href="exec: GT ''lesbidomhouse'',''start1''">Mistress''</a> Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 5: '<a href="exec: GT ''lesbidomhouse'',''ev15''">Mistress''</a> Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 6: 'The <a href="exec: GT ''lesbidomhouse'',''ev22''">Perverts''</a> Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 7: '<a href="exec: GT ''lesbidomhouse'',''ev25''">Mistress''</a> Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 8: '<a href="exec: GT ''lesbidomhouse'',''ev28''">Mistress''</a> Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 9: '<a href="exec: GT ''lesbidomhouse'',''ev29''">Mistress''</a> Apartment'
if lesbiday = day and hour >= 8: 'You can only visit your Mistress once a day!'
'In the courtyard of the house you live in, you can find the <a href="exec:GT ''trashplace''">Wastebaskets</a>'
if SNarkPriton > 0: '<a href="exec: minut += 5 & GT ''narkopriton''">The Drug House</a> is clearly recognizeable by the syringes and the trash that lies in front of it.'
if IrinaQW >= 1: '<a href="exec: GT ''IrinaRoom'',''start''">Irenes</a> Apartment is not far away from yours.'
if hour >= 8 and hour <= 23 or saunaWorkWhore > 0 or workDisk = 2: '<a href="exec: minut += 10 & GT ''sauna''">The Sauna</a> is a 10 minute walk away. Rumors say the sauna is just the front for a brothel.'
if hour = meethour and $meetloc = $CURLOC:
	if svidanieA = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieB = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieC = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
end

!!!!! Excluded for now
!set streetrand = RAND(0,100)
!if streetrand = 40 and hour <= 3:
!cla
!*clr
!'<center><img src="images\etogame\street.jpg"></center>'
!'Out of the blue you are grapped by a man. He drags you into the closest bush, saying "Honey, you better not scream for help."'
!	act 'Useless to resist':
!	cla
!	*clr
!	!set money += 500
!	set $nameV = 'Rapist'
!	set sex += 1
!	set guy += 1
!	set vagina += 1
!	'<center><img src="images\picV\dogging.jpg"></center>'
!		if prezik > 0 and NoCondomUse = 0:
!		set protect = 1
!		set prezik -= 1
!		'You give him a condom. "At least wear protection asshole. I don''t want a bastards child.", you tell him. He nods in silence, the puts it on.'
!		end
!
!	'"Get ready, bitch.", he says pushing you onto your knees. He moves behind you and takes you doggy-style. You can feel his hard cock entering your vagina.'
!
!		if horny >= 90:
!		set horny = 0
!		set manna += 15
!		set willpower += 15
!		set orgasm += 1
!		'Gradually a pleasant warmth and ripple grow in the lower abdomen, then descend upon the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
!		end
!
!		if protect ! 1:
!		!не защищенный секс
!		set finrand = RAND(0,1)
!			if finrand = 0:
!			!внутрь
!			set cumpussy += 1
!			'Man groaned and you feel like jet of sperm hit you inside your body.'
!				if tabletki <= 0 and mesec <= 0:
!				gs 'preg'
!				set manna -= 15
!				set willpower -= 15
!				'Hell, because after all, you can fly, you thought with horror.'
!				end
!			end
!
!			if finrand = 1:
!			!наружу
!			set cumass += 1
!			'<<$nameV>> groaned and removing a member of you finished on your ass.'
!			end
!		end
!
!		if protect > 0:
!		set protect = 0
!		'Guy cums in a condom. Member pulls out of you and removing the condom throws him to the ground, after pulls his pants and leaves.'
!		end
!	act 'Leave': gt 'street'
!	end
!
!
!	act 'Fight':
!	cla
!	set $nameV = 'Rapist'
!	!Статы
!	set strenV = 100
!	set speedV = 50
!	set agilV = 40
!	set reactV = 40
!	set vitalV = 50
!	set intelV = 10
!	set willV = 10
!	!Навыки
!	set magikV = 100
!	set boxingV = 50
!	set shootV = 100
!	!Параметры
!	set healthV = vitalV * 10 + strenV * 5
!	set mannaV = intelV * 10 + magikV * 10
!	set willpowerV = willV * 10
!	set BonusAtakV = 0
!	set BonusDefV = 0
!	!программа действий
!	set program = 0
!	set RapistFight = 1
!	if spellavtoklon = 1: set klon = 3
!	if spellbefshild = 1: set defence = 500
!	gt 'fight','start'
!	end
!exit
!end
!
!
!set streetrand = RAND(0,100)
!if streetrand = 50 and money >= 1000 and daystart >= 10 and hour <= 3:
!cla
!*clr
!'<center><img src="images\etogame\street.jpg"></center>'
!'Suddenly you are attacked by a robber'
!	act 'Don''t fight, just give him your money':
!	cla
!	money = 0
!	clr
!	gs 'stat'
!	'He took all the money you had on your hand'
!	act 'Leave': gt 'street'
!	end
!
!	act 'Stand up to him and fight back':
!	cla
!	'The robber throws heavy insults at you.'
!		act 'Fight':
!		set $nameV = 'Rapist'
!		!Статы
!		set strenV = 100
!		set speedV = 50
!		set agilV = 40
!		set reactV = 40
!		set vitalV = 50
!		set intelV = 10
!		set willV = 10
!		!Навыки
!		set magikV = 100
!		set boxingV = 50
!		set shootV = 100
!		!Параметры
!		set healthV = vitalV * 10 + strenV * 5
!		set mannaV = intelV * 10 + magikV * 10
!		set willpowerV = willV * 10
!		set BonusAtakV = 0
!		set BonusDefV = 0
!		!программа действий
!		set program = 0
!		set RapistFight = 1
!		if spellavtoklon = 1: set klon = 3
!		if spellbefshild = 1: set defence = 500
!		gt 'fight','start'
!		end
!	end
!exit
!end
!
!
!set streetrand = RAND(0,100)
!if streetrand = 60 and money >= 1000 and daystart >= 10 and hour <= 3:
!cla
!*clr
!'<center><img src="images\etogame\street.jpg"></center>'
!'You have been robbed. A thief grapped your purse and ran away.'
!	act 'Not run, I did not catch':
!		cla
!		money = 0
!		clr
!		gs 'stat'
!		act 'That jackass': gt 'street'
!	end
!
!	act 'Catch this asswipe and then fuck him up':
!		if speed < 55 or agil < 55 or vital < 55:
!		cla
!		money = 0
!		clr
!		gs 'stat'
!		act 'He was faster than you and you lost sight of him': gt 'street'
!		end
!		if speed >= 60 and agil >= 60 and vital >= 60:
!		set $nameV = 'Rapist'
!		!Статы
!		set strenV = 100
!		set speedV = 50
!		set agilV = 40
!		set reactV = 40
!		set vitalV = 50
!		set intelV = 10
!		set willV = 10
!		!Навыки
!		set magikV = 100
!		set boxingV = 50
!		set shootV = 100
!		!Параметры
!		set healthV = vitalV * 10 + strenV * 5
!		set mannaV = intelV * 10 + magikV * 10
!		set willpowerV = willV * 10
!		set BonusAtakV = 0
!		set BonusDefV = 0
!		!программа действий
!		set program = 0
!		set RapistFight = 1
!		if spellavtoklon = 1: set klon = 3
!		if spellbefshild = 1: set defence = 500
!		gt 'fight','start'
!		end
!	end
!exit
!end

dynamic $din_street_cum
dynamic $meet_boyfriend

--- street ---------------------------------

# trashplace
$bomzstartqwestdi = {
'-Okay. I see you´re a good man, but with finance problems. I here you have several times seen and heard said about you. I know one part time. Work is not dusty, but a bit risky. Now all I will not tell, just ask: Do you bring your passport with residence permit local there?'
act 'Yes, there is.':
	cls
	minut += 15
	gs 'stat'
	gs 'time'
	'Yes, there is. So when you tell about the job?'
	'-Not here. Drove into the center, where you will explain everything.'
	'One of the ways the center passes near an abandoned construction site, and you´ve decided that if a man will go through it, you immediately use the excuse of iron and hurriedly removed.'
	'But to your surprise, the man walked toward the subway. You reminded him about his financial problems, but he just waved. In the subway he went to the checkout, the cashier and start a conversation'
	'-Hi, Uncle Nick, decided to go - she asked, holding out his badge.'
	'-Yes, you know, do, do. Here, people help - Uncle Nick nodded at you - you can throw another zhetonchik?'
	'-No problem, just a word to anyone - she said, winking.'
	'-Well, well, good luck, Nastya, hello Barbara Anikeevne.'
	'Yes, give at the meeting.'
	act 'In the subway.':
		cls
		minut += 15
		gs 'stat'
		'You descended into the subway and got to the center. You got to walk the porn studio.'
		if film > 0 and pfilmNO = 0:
			'And because of this I already know earnings'
			'-Do you think the porn studio only by a pussy you can trade? - Said with a grin Uncle Nick - there are other ways to earn there.'
			elseif pfilmNO = 1:
			'I have come here, but I was denied'
			'-Do you think the porn studio only by a pussy you can trade? - Said with a grin Uncle Nick - there are other ways to earn there. You´re only as an actress ask for?'
			else
			'Not the porn studio I´m not going look for another rabotuI have come here, but I was denied'
			'-Do you think the porn studio only by a pussy you can trade? - Said with a grin Uncle Nick - there are other ways to earn there. You´re only as an actress ask for?'
			end
		act 'Log in to the manager.':
			cls
			minut += 15
			if pornstudio = 0: pornstudio = 1
			gs 'stat'
			if film > 0:
				'Hi <<$pfname>>.'
				else
				'You on any issue?'
				end
				'Here in the dialogue interrupted Uncle Kolya'
				'-I remember you there were problems with delivery'
				'-Yes, they were - said the manager - and we will still not settled. Tax presses, the majority of our people to engage in risky delivery.'
				'-So, this girl has led, I think, be able to help you with this problem.'
				'-What kind of warranty?'
				'-So, it is with a passport, and no one bothers you inquire.'
			act 'So what kind of work?':
				cls
				minut += 15
				gs 'stat'
				'-Transportation of the goods and pay for it. Show your passport and come next Thursday. If all goes well, we shall discuss the details.'
				act 'Show your passport.':
					cls
					minut += 15
					gs 'stat'
					if podozrenie > 0:
						'Uncle Nick comes to the manager and whispers something in his ear.'
						if film > 0:
							'The manager laughed and said,'
							'-What do you mean, everything has already been verified. Normally she´s all there.'
							else
							'The manager looked at you and said,'
							'-We got one question arose. Suspicions have that you do not quite ... Girl. Single bearer evidence.'
							act 'How dare you? (To leave).': gt 'down'
							act 'Show pussy.':
								cls
								set SUB += 1
								set minut += 15
								gs 'stat'
								if ski > 0 or glamur > 0:
									'You raised her skirt and showed her pussy.'
									else
									'You lowered his pants and showed her pussy.'
									end
								if tatvag = 3:
									'Loves black dicks, I see.'
									end
								if lobok <= 0:
									if ski > 0 or glamur > 0:
										'<center><img src="images\sauna\sauna_pussy1.jpg"></center>'
										else
										'<center><img src="images\sauna\sauna_pussy1.jpg"></center>'
										end
									'How Schoolgirl - All-manager noticed, checked, do not forget to come on Thursday.'
									end
								if lobok > 0 and lobok <= 2:
									if ski > 0 or glamur > 0:
										'<center><img src="images\sauna\sauna_pussy2.jpg"></center>'
										else
										'<center><img src="images\sauna\sauna_pussy3.jpg"></center>'
										end
									'-Hedgehog, neither head nor feet - noticed Manager-Everything checked out, do not forget to come on Thursday.'
									end
								if lobok > 2:
									if ski > 0 or glamur > 0:
										'<center><img src="images\sauna\sauna_pussy4.jpg"></center>'
										else
										'<center><img src="images\sauna\sauna_pussy5.jpg"></center>'
										end
									'Jungle name - noticed Manager-Everything checked out, do not forget to come on Thursday.'
									end
								act 'Leave.': bomzQW = 1 & gt 'down'
								end
							end
						else
						'Manager rewrote your data and put your passport. All waiting for you on Thursday.'
						end
					act 'Leave.': bomzQW = 1 & gt 'down'
					end
				act 'Thanks, but I refuse (to leave).': bomzQW = -1 & gt 'down'
				end
			end
		end
	end
act 'Uh, better not, she can handle it.': bomzQW = -1 & gt 'street'
}

$workbomzdi = {
cls
minut += 15
gs 'stat'
'-We made inquiries about you, and have decided that you come to us. The essence is this: We give you a couple of drives, and deliver them to you in the sauna, where you are given an envelope, you bring it to us immediately. Upon return now 5000. Shuttling need every Friday after opening the studio. If you agree, then passes on Friday unacceptable, choose safe mode of transport.'
act 'No, I do not fit (to leave).': bomzQW = -1 & gt 'down'
act 'Agree to work.':
	cls
	minut += 15
	gs 'stat'
	'Today, it will take you to our people. In the future, will get themselves because Fridays control us increase, but watch out for each lonely girl coming from us - too costly for them.'
	act 'Well, show.':
		cls
		workDisk = 1
		minut += 15
		gs 'stat'
		'You slipped into a jeep standing at the entrance, and you have brought to the sauna.'
		if saunasex = 1:
			'You recall how you were brought into the sauna, but then you were so excited that they could not remember anything sensible.'
			elseif sauna > 0:
			'A sauna, you recall it, it close to your home.'
			else
			'This sauna is located near your home, it is strange that you did not notice it before.'
			end
		'You went to the sauna, you have presented to local managers. Lucidly explained to you who need to deliver, and that it is necessary to return the envelope on the same day when you gave him. Do not forget to remind about the use of secure transport. On this with you goodbye until tomorrow.'
		act 'Leave.': bomzQW = 2 & gt 'street'
		end
	end
}

'<center><B>Musorka</B></center>'
'<center><img src="images\etogame\musorka.jpg"></center>'
'A long string of garbage bins from which carries per kilometer shamefully hidden small iron fence.'
clr
gs 'stat'
gs 'time'

if bumtolik = 2: bumtrand = RAND(0,100)
if bumtolik = 2 and bumtrand >= 50:
	cls
	gs 'stat'
	gs 'time'
	'<center><img src="images\etogame\musorka.jpg"></center>'
	'You see a homeless person who gave the last time money. He smiles, hand making the gesture did not escape and goes to you to say something.'
	'-Girl, you´ll excuse me, do not be afraid, hear what I say?'
	act 'Hear out': gt 'musorkaexh','pos8'
	end

if bumtolik = 3: temp = RAND(0,100)
if bumtolik = 3 and hour >= 6 and hour <= 20 and temp >= 50:
	cls
	gs 'stat'
	gs 'time'
	'<center><img src="images\etogame\bumt2.jpg"></center>'
	'You see a girl feed the homeless.'
	'Stranger: - Girl, I´m sorry, please take a picture for the record, as I help this unhappy.'
	*nl
	'You were uncomfortable and you refuse photographed girl on her camera.'
	act 'Ask for what she need': gt 'musorkaexh','pos9'
	end

if musor > 0:
	act 'Throw garbage':
		musor = 0
		cls
		'<center><img src="images\etogame\musorka.jpg"></center>'
		'You throw trash in the trash.'
		if bumtolik = 0:
			'"Oh, what!" - Was heard because of tanks.'
			'You scared of surprises.'
			act 'See who is said': gt 'musorkaexh','pos2'
		elseif bumtolik = 1:
			'"Hey, babe, come here, do me a favor to the old man!" - Heard you cheeky wheeze.'
			'This is the old bum you saw last time.'
			act 'Look at the homeless': gt 'musorkaexh','pos3'
			end
		act 'Move away from the tank': gt $CURLOC
		end
	end
if bomzQW = 0: bomzrand = RAND(0,100)
if bomzrand >= 80 and hour <= 16 and bomzQW = 0 and week ! 4:
	cls
	gs 'stat'
	gs 'time'
	'<center><img src="images\sauna\bomz.jpg"></center>'
	'When did you start to move away from the tanks, the man came up to you and kind bomzhevatogo croaked.'
	'-Girl, 300 rubles for a cultural holiday not will throw?'
		if money >= 300:
			act 'Yes, keep':
			cls
			money -= 300
			gs 'stat'
			'You gave money to the homeless, and he walked away from thanking you.'
			act 'Leave': gt 'street'
			end
		end

		act 'No':
		cls
		gs 'stat'
		gs 'time'
			if daystart < 10 or sex <= 2:
			'I´d love to, but the money and most do not. Hell, like already accustomed to the new body, but watch your tongue with difficulty. -Himself? Are you pidorok?'
				act 'No':
				cls
				gs 'stat'
				podozrenie += 1
				'No, you just ogovorilas.Muzhik looked at you with suspicion.'
				dynamic $bomzstartqwestdi
				end
			else
			'I´d love to, but that kind of money and most do not.'
			dynamic $bomzstartqwestdi
			end
		end

		act 'Get lost':
		cls
		bomzQW = -10
		gs 'stat'
		'-You should not so rude to me. I did a lot of where I go, and I know a lot of things. May come back to haunt you so unresponsive.'
		'With these words, the man withdrew.'
		act 'Leave': gt 'street'
		end
	exit
	end
act 'Leave': gt 'street'
--- trashplace ---------------------------------

# torgpred
gs 'stat'
'<center><B><font color = maroon>Trade Representative</font></B></center>'
'<center><img src="images\etogame\clener.jpg"></center>'
'Not a big cabinet in which are office desks and office equipment. In the office there is a door that says "Director"'
'One of the tables sits Stas, after another Vitali, for the third table sits a woman chief accountant.'

act 'QUIT': gt 'clener','start'

if SVqw = 2:
	if TorgPredDay ! day:
		if TorgPredZ = 0 and TorgPredZV = 0:
			act 'Take the job':
			cls
			TorgPredZ = 3
			minut += 5
			TorgPredDay = day
			gs 'stat'
			'<center><img src="images\etogame\clener.jpg"></center>'
			'You came to Stas for the job. He smiled and handed you the paper. "Do not forget. Supermarkets three pieces. You need to arrange the items in all the supermarkets."'
			act 'QUIT': gt 'clener','start'
			end
		end
	end

	if TorgPredZ = 0 and TorgPredZV = 3:
		act 'Get Money':
		cls
		TorgPredZV = 0
		minut += 5
		money += 500
		TPworkTimes += 1
		gs 'stat'
		'<center><img src="images\etogame\clener.jpg"></center>'
		'You came to Stas for money. He smiled and handed you 500 rubles'
			if StasikSex = 0:
			if TPworkTimes >= 3 and TPmainQW = 0 and mesec = 0:
			if ski > 0 or glamur > 0:
					'Stas interest asks "Well, how do you work?"'
						act 'Excellent!':
						cls
						TPmainQW = 1
						minut += 5
						gs 'stat'
						'<center><img src="images\etogame\clener.jpg"></center>'
						'You answered Stas that everything is fine and he smiled. "Our company is developing, and intelligent man there will be a place better. Way, let´s go to the cafe, you have not stamped for work."'
							act 'Agree':
							cls
							minut += 15
							gs 'stat'
							'<center><img src="images\etogame\clener.jpg"></center>'
							'You had to agree, as all your new job and prospects depend on Stas. Stas was delighted and made you in a cafe on the way talking about work. Café Stas gallantly pulled chair for you.'
							act 'Take': gt 'StasQW'
							end
						end

						act 'So-so.':
						cls
						TPmainQW = 1
						minut += 5
						gs 'stat'
						'<center><img src="images\etogame\clener.jpg"></center>'
						'You answered that Stas so-so and he grinned. "Our company is developing, and intelligent man there will be a place better. Way, let´s go to the cafe, you have not stamped for work."'
							act 'Agree':
							cls
							minut += 15
							gs 'stat'
							'<center><img src="images\etogame\clener.jpg"></center>'
							'You had to agree, as all your new job and prospects depend on Stas. Stas was delighted and made you in a cafe on the way talking about work. Café Stas gallantly pulled chair for you.'
							act 'Take': gt 'StasQW'
							end
						end
					end
			exit
			end
			end
			if TPmainQW = 1:
				if StasikSex > 0 and StVaGang = 0:
				!Света дала Стасу, тот не считает ее шлюхой, и хочет продолжать отношения
				''

				end
				if StasikSex = 0:
				!Света отказала Стасу, Стас не доволен и идет ва банк
				''

				end
			end
			if StVaGang > 0:
			!И Стас и Валера считают Свету шлюхой
			''

			end
		act 'QUIT': gt 'clener','start'
		end
	end


end
--- torgpred ---------------------------------

# StasQW
gs 'stat'
if StasKafe = 2:
'<center><img src="images\qwest\sosed\kafe2.jpg"></center>'
'After the dance, Stas took you by the hand to the table and taking your waist sat on his lap. He immediately began to kiss you and you felt his hand again penetrated you under her skirt began to caress your clitoris. Stas you whispered in your ear, "Come to you or can have fun in the toilet?"'
	act 'Come to me!':
	cls
	gs 'stat'
	'<center><img src="images\qwest\sosed\kafe2.jpg"></center>'
	'Stas sweeping gesture threw the money to the waitress, and then stood up and gave you a hand. Leaning on his arm you up from their homes and together with Stas left the cafe.'
		act 'Go':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\sosed\go.jpg"></center>'
		'Quite unsure of drunk step you went home, Stas gallantly caught under your arm and led you to the house, you show him the way home. Finally you come to your home, you Stas conducted to the apartment and when you opened the door, he literally dragged you to your apartment.'
		act 'Further': SStip = 0 & gt 'StasSex'
		end
	end

	!секс в туалете со стасом


end
if StasKafe = 1:
'<center><img src="images\qwest\sosed\kafe.jpg"></center>'
'After the dance, you sat down again at the table, the waitress brought the bill. You look at the figure and slightly stunned. Five thousand! Stas took the paper out of your hands and you said "Do not worry, I´ll pay."'
	if money >= 5000:
		act 'No thank you, I´ll pay.':
		cls
		money -= 5000
		gs 'stat'
		'<center><img src="images\qwest\sosed\kafe.jpg"></center>'
		'You got the money and paid the waitress. Stas stood up and gave you a hand. Leaning on his arm you up from their homes and together with Stas left the cafe.'
			act 'Go':
			cls
			minut += 5
			gs 'stat'
			'<center><img src="images\qwest\sosed\go.jpg"></center>'
			'Quite unsure of drunk step you went home, Stas gallantly caught under your arm and led you to the house, you show him the way home. Finally you come to your home, you have to spend Stas apartments and clearly expects you to invite him.'
				act 'To invite': SStip = 0 & gt 'StasSex'

				act 'Say goodbye':
				cls
				gs 'stat'
				'You said goodbye with Stas and he sighed sadly and went down.'
				act 'Close the door': gt 'korr'
				end
			end
		end
	end

	act 'Oh it´s so cute!':
	cls
	gs 'stat'
	'<center><img src="images\qwest\sosed\kafe.jpg"></center>'
	'You are glad that will not have to pay for the cafe and Stas sweeping gesture threw the money to the waitress, and then stood up and gave you a hand. Leaning on his arm you up from their homes and together with Stas left the cafe.'
		act 'Go':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\sosed\go.jpg"></center>'
		'Quite unsure of drunk step you went home, Stas gallantly caught under your arm and led you to the house, you show him the way home. Finally you come to your home, you have to spend Stas apartments and clearly expects you to invite him. You get crushed on the doorstep, thinking how would snub Stas, but looking at it you feel indebted to him, he found you a job, he forked over the cafe, though it was your duty and put it over the threshold, you just can not.'
		act 'To invite': SStip = 0 & gt 'StasSex'
		end
	end

end
if StasKafe = 0:
'<center><B><font color = maroon>Cafe</font></B></center>'
'<center><img src="images\etogame\kafe.jpg"></center>'
'You sat on a chair and gestured Stas master´s waitress. When the waitress came, he ordered champagne and fruit. Order quickly brought Stas poured champagne glasses. "A toast to friendship."'
	act 'Drink for acquaintance':
	cls
	minut += 5
	horny += 5
	gs 'stat'
	'<center><img src="images\qwest\sosed\kafe.jpg"></center>'
	'You drank champagne and Stas started telling funny stories pouring champagne into glasses.'
		act 'Drink and chat':
		cls
		minut += 60
		horny += 15
		water = 24
		energy = 24
		salo += 2
		fat += 20
		gs 'stat'
		'<center><img src="images\qwest\sosed\kafe.jpg"></center>'
		'You are relaxed and drinking champagne that you listened to tales regaled Stas. For chatter, you do not even notice how Stas ordered another bottle and more. Finally you realize that you are already well plucked. Here in the cafe zairala music and Stas rising from his chair gallantly handed you a hand offering dance.'
			act 'Dance':
			cls
			minut += 1
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\sosed\dance.jpg"></center>'
			'You came to the dance floor and Stas hugged you and you start dancing. His hands while dancing slowly slipped from the waist to the hips and you began to stroke them. You feel like your hand Stas squeezed soft ass.'
				if horny < 100:
					act 'Raise his hands above':
					cls
					minut += 1
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\sosed\dance.jpg"></center>'
					'You took his hands and raised them Stas again on your waist. Stas just smiled wider and again his hands began to crawl to you on the ass.'
						if horny < 100:
							act 'Again raise his hands above':
							cls
							minut += 1
							horny += 10
							gs 'stat'
							'<center><img src="images\qwest\sosed\dance.jpg"></center>'
							'Once again you took Stas hands and raised them to his waist. Stas apparently only covered by this passion and he began gently stroking gently down your back you hands on the ass. Finally dance is over.'
							act 'Sit at the table': StasKafe = 1 & gt $curloc
							end
						end

						act 'Dance':
						cls
						minut += 1
						horny += 20
						gs 'stat'
						'<center><img src="images\qwest\sosed\dance2.jpg"></center>'
						'You continued to dance and become inflamed Stas tuck your hands under her skirt. Soon Stas felt your panties and ran my hand. You swept excitement when your Stas felt a small bump clitoris and began to fondle him. Suddenly, the dance is over, but Stas was not going back sits at the table'
							act 'Sit at the table': StasKafe = 2 & gt $curloc
						end

					end
				end

				act 'Dance':
				cls
				minut += 1
				horny += 20
				gs 'stat'
				'<center><img src="images\qwest\sosed\dance2.jpg"></center>'
				'You continued to dance and become inflamed Stas tuck your hands under her skirt. Soon Stas felt your panties and ran my hand. You swept excitement when your Stas felt a small bump clitoris and began to fondle him.'
						if horny < 100:
							act 'Raise his hands above':
							cls
							minut += 1
							horny += 10
							gs 'stat'
							'<center><img src="images\qwest\sosed\dance.jpg"></center>'
							'Once again you took Stas hands and raised them to his waist. Stas apparently only covered by this passion and he began gently stroking gently down your back you hands on the ass. Finally dance is over.'
							act 'Sit at the table': StasKafe = 2 & gt $curloc
							end
						end

						act 'Dance':
						cls
						minut += 1
						horny += 20
						gs 'stat'
						'<center><img src="images\qwest\sosed\dance2.jpg"></center>'
						'You continued to dance and become inflamed Stas tuck your hands under her skirt. Soon Stas felt your panties and ran my hand. You swept excitement when your Stas felt a small bump clitoris and began to fondle him. Suddenly, the dance is over, but Stas was not going back sits at the table'
							act 'Sit at the table': StasKafe = 2 & gt $curloc
						end
				end
			end
		end
	end
end

--- StasQW ---------------------------------

# StasSex

if SStip = 0:
minut += 5
horny += 10
gs 'stat'
'<center><img src="images\qwest\sosed\stas.jpg"></center>'
'You entered the apartment and Stas razuvshis immediately dug its lips in yours and you felt his hands covered your breasts started to caress them and compress. He´s not stopping to caress you took into your bedroom.'
	act 'Go into the bedroom.':
	cls
	gs 'stat'
	'<center><img src="images\qwest\sosed\pov.jpg"></center>'
	'Stas drop you on the bed and began to undress without interrupting you fondle your breasts and undress himself.'
		act 'Next.':
		cls
		if StasikSex > 0: StasikSex += 1
		if StasikSex = 0: StasikSex = 1 & guy += 1
		!if ValeraSex = 0:ValeraSex = 1 & guy += 1
		!gang += 1
		minut += 15
		gs 'stat'
		'<center><img src="images\qwest\sosed\sex.jpg"></center>'
		'You are relaxed and began to enjoy the caress breasts and pussy.'
		$boy = 'Stasik'
		dick = 15
		silavag = 1
		pose = 0
		!dynamic $sexstart
		'You felt like a body Stasik expanded the your feet and his hard cock rested against your soft, expiring pussy juice.'
		dynamic $sexstart2
		!dynamic $sexcum
		set cumpussy += 1
		'<<$boy>> groaned and you feel like jet of sperm hit you inside your body.'
			if tabletki <= 0 and mesec <= 0:
			gs 'preg'
			set manna -= 15
			set willpower -= 15
			'Hell, because after all, you can fly, you thought with horror.'
			end

			act 'Breath.':
			cls
			minut += 5
			gs 'stat'
			'<center><img src="images\qwest\sosed\aftersex.jpg"></center>'
			'Stas tears with you and is located near your breast stroking hand. Of your pussy slowly follows sperm mixed with your vaginal juices. Stas said apologetically, "I´m sorry that you came inside, could not resist." He reached out and began to get out of bed. "Well, I gotta go Svetsik."'
			act 'Hold up the door.': gt 'korr'
			end
		end
	end
end
--- StasSex ---------------------------------

# billiard
$sexloc = $CURLOC
cla
*clr
gs 'stat'
'<center><B>Pool</B></center>'
'<center><img src="images\img\centr\bil.jpg"></center>'
'Quite a large billiard room, there are plenty of tables in the hall, but there are tables in individual cubicles.'

act 'Leave': gt 'torgcentr'
if hour >= 8 and hour <= 20:
if money >= 250:
	act 'Play 250 rubles (1:00)':
		set money -= 250
		set billiardnav += rand(0,3)
		set minut += 60
		set billrand = rand(0,5)
		set billvar = 0
		if billrand = 0:
			cla
			'It suits you and the guy offers to play with him'
			if money >= 1000: act 'Gamble, bet 1000': gt 'billiard','randwin'
			if DOM > 20 and strapon = 1:
				act 'Play on your ass, fuck me lose':
					set billvar = 1
					gt 'billiard','randwin'
					end
				end
			act 'Leave': gt 'billiard'
			end
		if billrand = 1:
			cla
			'It suits you and offer a couple of guys to play with them'
			if money >= 1000: act 'Gamble, bet 1000': gt 'billiard','randwin'
			if DOM > 20 and strapon = 1:
				act 'Play on your ass, fuck me lose':
					set billvar = 2
					gt 'billiard','randwin'
					end
				end
			act 'Leave': gt 'billiard'
			end
		if billrand > 1:
			cla
			'You played billiards'
			act 'Leave': gt 'billiard'
			end
		end
	end
if money >= 300:
	act 'Play for money':
		set money -= 300
		set minut += 60
		set billvar = 3
		gt 'billiard','randwin'
		end
	end
end

if $ARGS[0] = 'randwin':
cla
if billiardnav < 10: set billwin = rand(0,10)
if billiardnav >= 10 and billiardnav < 20: set billwin = rand(0,12)
if billiardnav >= 20 and billiardnav < 30: set billwin = rand(0,14)
if billiardnav >= 30 and billiardnav < 40: set billwin = rand(0,16)
if billiardnav >= 40 and billiardnav < 50: set billwin = rand(0,18)
if billiardnav >= 50 and billiardnav < 60: set billwin = rand(0,20)
if billiardnav >= 60 and billiardnav < 70: set billwin = rand(0,22)
if billiardnav >= 70 and billiardnav < 80: set billwin = rand(0,24)
if billiardnav >= 80 and billiardnav < 90: set billwin = rand(0,26)
if billiardnav >= 90: set billwin = rand(0,28)
if billwin > 10 and billvar = 0:
	set money += 1000
	'You won and received 1000 rubles.'
	act 'Leave': gt 'billiard'
	end
if billwin > 10 and billvar = 1:
	*clr
	set DOM += 5
	'<center><img src="images\img\centr\strapon.jpg"></center>'
	'You win, put a strap, and looked at the guy, "Well stand stoop, today you´re my bitch"'
	'The guy dropped his pants and got cancer, you fucked his threesome.'
	act 'Leave': gt 'billiard'
	end
if billwin > 10 and billvar = 2:
	set DOM += 8
	'<center><img src="images\img\centr\strapon.jpg"></center>'
	'You won dressed strap, and looked at the guys: "Come on girls panties descend and rise at all, I now this whole harem going to fuck"'
	'You fucked them all in turn.'
	act 'Leave': gt 'billiard'
	end
if billwin <= 10 and billvar = 0:
	set money -= 1000
	'You lost and paid 1000 rubles.'
	act 'Leave': gt 'billiard'
	end
if billwin <= 10 and billvar = 1:
	'You lose, will push the legs.'
	set picrand = 16
	act 'Pay': xgt 'sex','var'
	end
if billwin <= 10 and billvar = 2:
	'You lose, will push the legs.'
	act 'Pay': gt 'paysex','var'
	end
if billwin > 10 and billvar = 3:
	set money += 300
	'You won and got 300 rubles.'
	act 'Leave': gt 'billiard'
	end
if billwin <= 10 and billvar = 3:
	!set money -= 300
	'You lost and paid 300 rubles.'
	act 'Leave': gt 'billiard'
	end
end

if $ARGS[0] = 'start':
'<center><B>Pool</B></center>'
'<center><img src="images\img\centr\bil.jpg"></center>'
act 'Leave': gt 'billiard'
end
--- billiard ---------------------------------

# billsvid
set minut += 60
set bilrand = 0
set manna += 10
set bilsvidukiy = 0
set bilsvidkiy = 0
gs 'stat'
'<center><B>Pool</B></center>'
'<center><img src="images\img\bilsvid\0.jpg"></center>'
'And you <<$telsob>> rented a booth'
act 'Play':
	if $telsob = 'Alla':
		set alla += 1
		if alla >= 20:
			set bilrand = RAND(0,10)
			if bilrand > 0 and bilrand < 3: gt 'billsvid','1'
			if bilrand > 2 and bilrand < 5: gt 'billsvid','2'
			if bilrand = 0 or bilrand > 4: gt 'billsvid','3'
			end
		if alla < 20: gt 'billsvid','3'
		end
	if $telsob = 'Masha':
		set masha += 1
		if masha >= 20:
			set bilrand = RAND(0,10)
			if bilrand > 0 and bilrand < 3: gt 'billsvid','1'
			if bilrand > 2 and bilrand < 5: gt 'billsvid','2'
			if bilrand = 0 or bilrand > 4: gt 'billsvid','3'
			end
		if masha < 20: gt 'billsvid','3'
		end
	if $telsob = 'Katia':
		set kat += 1
		if kat >= 20:
			set bilrand = RAND(0,10)
			if bilrand > 0 and bilrand < 3: gt 'billsvid','1'
			if bilrand > 2 and bilrand < 5: gt 'billsvid','2'
			if bilrand = 0 or bilrand > 4: gt 'billsvid','3'
			end
		if kat < 20: gt 'billsvid','3'
		end
	end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\img\bilsvid\1.jpg"></center>'
'When you once again leaned over the table to strike <<$telsob>> podozhla back and slipped her hands on your hips, back and stayed on his chest.'
act 'Not now <<$telsob>>': gt 'billsvid','3'
act 'Kiss her':
	cla
	*clr
	set lesbian += 1
	'<center><img src="images\img\bilsvid\2.jpg"></center>'
	'You turned around and kissed her, in response to <<$telsob>> quickly took off her clothes, stole everything from you and thrown back on the table, you jumped on, continuing to kiss.'
	act 'Make her Cooney': gt 'billsvid','10'
	act 'Cooney': gt 'billsvid','11'
	end
end

if $ARGS[0] = '10':
cla
*clr
'<center><img src="images\img\bilsvid\4.jpg"></center>'
'You put her cancer to the table and squatted themselves opustivshs pressed his lips to her pussy. You kissed her and caressed the tongue until she came.'
act 'Cooney': gt 'billsvid','11'
if bilsvidkiy = 0: act 'Play with a cue': gt 'billsvid','12'
if bilsvidukiy = 0: act 'Ask her to play with a cue': gt 'billsvid','13'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="images\img\bilsvid\3.jpg"></center>'
'You stood at the table, legs spread, and <<$telsob>> dropping to his knees in front of you began to kiss your pussy, but her tongue could not bring you to the desired state.'
act 'Make her Cooney': gt 'billsvid','10'
if bilsvidkiy = 0: act 'Play with a cue': gt 'billsvid','12'
if bilsvidukiy = 0: act 'Ask her to play with a cue': gt 'billsvid','13'
end

if $ARGS[0] = '12':
cla
*clr
set bilsvidkiy = 1
'<center><img src="images\img\bilsvid\6.jpg"></center>'
'<<$telsob>> climbed on the table and spread her legs wide. Picking up the cue stick and you licked medleno inserted it into her vagina. <<$telsob>> Diligently podmahivala your movements to the beat and a few minutes later collapsed on the table in a shuddering orgasm.'
if bilsvidukiy = 0: act 'Ask her to play with a cue': gt 'billsvid','13'
act 'Finish': gt 'billsvid','3'
end

if $ARGS[0] = '13':
cla
*clr
set orgasm += 1
set vagina += 1
set bilsvidukiy = 1
'<center><img src="images\img\bilsvid\5.jpg"></center>'
'You sat on the edge of the table, throwing one leg on the table and stretched her cue, "get into the pocket?". <<$telsob>> smiled and demonstrotivno spending tongue rukoyadke cue quickly inserted it you pussy, you already squealed in surprise. While she diligently fucked you cue, turning it in different directions, you´re massaging her clitoris with a finger. After a few minutes pleasant negative spread through your body and you are disconnected from the second nacrite you orgasm.'
if bilsvidkiy = 0: act 'Play with a cue': gt 'billsvid','12'
act 'Finish': gt 'billsvid','3'
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\img\bilsvid\10.jpg"></center>'
'During the game <<$telsob>> is constantly trying to put his arm around you, you will hand over the hips, then casually touch a chest.'
act 'Continue to play': gt 'billsvid','3'
act 'Kiss her':
	cla
	*clr
	set lesbian += 1
	'<center><img src="images\img\bilsvid\11.jpg"></center>'
	'When <<$telsob>> once again put her hand on your stomach, you moved up closer to her and kissed her hand immediately slipped under your clothes and stood on his chest.'
	act 'Proceed':
		cla
		*clr
		'<center><img src="images\img\bilsvid\12.jpg"></center>'
		'<<$telsob>> knelt down and taking off your clothes started to kiss your crotch down below until her tongue under your pussy.'
		act 'Lick her':
			cla
			*clr
			'<center><img src="images\img\bilsvid\13.jpg"></center>'
			'Holding her knees with her face you have deployed to the table and lifted up her leg on the table and began to kiss her pussy and caressing tongue, then sucking in her lips.'
			act 'Proceed':
				cla
				*clr
				'<center><img src="images\img\bilsvid\14.jpg"></center>'
				'Unfolding her to face him, you put it on the table and spreading her legs continued to caress pussy tongue until she came.'
				act 'Give her to lick':
					cla
					*clr
					'<center><img src="images\img\bilsvid\15.jpg"></center>'
					'When <<$telsob>> finished, you climbed on the table and positioned her pussy right in front of her face, <<$telsob>> immediately began to caress her lips parted fingers she tried to thrust deeper language.'
					act 'Lick her':
						cla
						*clr
						set orgasm += 1
						'<center><img src="images\img\bilsvid\16.jpg"></center>'
						'You turned around so that pussy was over her face, and have started to lick her pussy in a few minutes you feel as her body shook and <<$telsob>> groaning strongly pressed against your pussy, and then you have shrouded pleasant waves of orgasm.'
						act 'Finish': gt 'billsvid','3'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut += 60
gs 'stat'
'When you have finished playing <<$telsob>> said that she needed to flee and left'
act 'Leave': gt 'torgcentr'
end
--- billsvid ---------------------------------

# bordel
$sexloc = $CURLOC
gs 'stat'
'<center><B>Brothel</B></center>'
'<center><img src="images\img\centr\bordel.jpg"></center>'
	if vnesh >= 0 and vnesh < 25:
	'"Look at you, for such a product no one will pay cleaned up and come back."'
	act 'Leave': gt 'down'
	end
	if vnesh < 0:
	'"Listen, you have some sort of infection, go to undergo treatment."'
	act 'Leave': gt 'down'
	end
if vnesh >= 25: act 'In the room': gt 'bordel','start'

if $ARGS[0] = 'start':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><B>Your room in a brothel</B></center>'
'<center><img src="images\img\centr\borroom.jpg"></center>'
'In a brothel and a lot of competition in order to avoid massacre introduced a rule no more than two clients per day'
'In the middle is a huge bed, and a small side door <a href="exec:GT ''bordel'',''dysh''">bath</a>.'
act 'Leave':
	if odetero = 0: gt 'down'
	if odetero > 0:
		cla
		'You need to change into my clothes.'
		act 'In the bathroom': gt 'bordel','dysh'
		end
	end
	act 'Going to the gym, waiting for customers':
		if odetero = 0:
		cla
		'You need to change into something more appropriate, in a locker in the bathroom is all there.'
		act 'In the bathroom': gt 'bordel','dysh'
		end

		if cumbelly > 0 or cumpussy > 0 or cumass > 0 or cumlip > 0 or cumface > 0 or cumfrot > 0 or cumanus > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0:
		cla
		'You need to freshen up.'
		act 'In the bathroom': gt 'bordel','dysh'
		end

	if cumbelly = 0 and cumpussy = 0 and cumass = 0 and cumlip = 0 and cumface = 0 and cumfrot = 0 and cumanus = 0 and odetero > 0 and mop > 1 and leghair < 1 and lobok < 1 and sweat < 1 and hapri > 0: gt 'bordel','var'
	end
end

if $ARGS[0] = 'dysh':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><img src="images\img\centr\bordysh.jpg"></center>'
act 'In the room': gt 'bordel','start'
	act 'Bathroom':
	set bordysh = 1
	gt 'vann','start'
	end

	act 'Mirror':
	set borMir = 1
	gt 'mirror','start'
	end

	act 'Locker for clothes':
	set borLoker = 1
	gt 'loker','start'
	end
end

if $ARGS[0] = 'var':
if borsexkol >= 2: gt 'bordel','start'
set minut += 30
set borrand = rand(0,10)
	if borrand = 0:
	'Customer ordered one girl, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sex','start'
		end
	end
	if borrand = 1:
	'Customer ordered two girls, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'podrsex','start'
		end
	end
	if borrand = 2:
	'Two clients booked one girl, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvoe','start'
		end
	end
	if borrand = 3:
	'Two clients booked two girls, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvanadva','start'
		end
	end
	if borrand = 4:
	'Customer group ordered one girl, price 2000 rub.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 2000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'paysex','start'
		end
	end
	if borrand > 4:
	'You will not chose.'
	act 'Go into the room': gt 'bordel','start'
	act 'Wait another': gt 'bordel','var'
	end
end
--- bordel ---------------------------------

# bordelv
cla
*clr
set minut += 30
set horny += 20
gs 'stat'
'<center><B><font color = maroon>room with a mirror</font></B></center>'
'<center><img src="images\img\centr\bvika1.jpg"></center>'
'Vic takes you through what that neighborhood, and entered into an inconspicuous door you find a large room vnitri here scurry girls dressed as if they did not have clothes and not letting you look around Vic drags you down the hall, she finally gets you to the small room except where chairs and glass in the wall nothing. "Sit here," she says, and leaves.'
'You sat down in a chair and look through the glass is a room with a large bed. "This is a brothel" flashed in your head, "I´m in the room for voyeurs."'
'While you´re pondering proiskhodyazhee Vick came into the room, dressed in a pink combination, and lay on the bed.'
'She looked at you through the glass with one hand and massaged her pussy through her panties. Looking at it you felt like you covered excitement.'
act 'View more':
	cla
	*clr
	set horny += 20
	set picrand = 2
	'<center><img src="images\img\centr\bvika2.jpg"></center>'
	'A few minutes later came into the room, two men jumped out of bed Vick and he rose to his knees between them took their members, continuing to look in your direction, it does blowjob both at once. You looked like zavorezhennaya in her mouth then disappears then one other member, she continued diligently to satisfy men not taking chapter from the mirror from her view your pussy strongly humidified and demanded attention.'
	act 'Leave': gt 'bordelv','out'
	act 'View more': gt 'bordelv','sex'
	end

if $ARGS[0] = 'sex':
cla
*clr
set minut += 10
set picrand = rand(3,7)
set dviksex += 1
horny += 20
gs 'stat'
'<center><img src="images\img\centr\bvika<<picrand>>.jpg "></center>'
'You continued to watch as the men fuck Vick as they wheeled her like that alternately entering her pussy, then pecked her anus, or consisted dvoem. Vic groaned and struggled podmahivala them, she always tried to stay as a mirror to see, even though you knew that she can not see you, but you thought that it is watching you, waiting for your approval.'
act 'See more': gt 'bordelv','sex'
if dviksex >= 3: act 'Finish': gt 'bordelv','end'
end

if $ARGS[0] = 'end':
cla
*clr
set minut += 10
set horny = 0
set orgasm += 1
gs 'stat'
'<center><img src="images\img\centr\bvika8.jpg"></center>'
'When the men were satisfied, Vick again knelt and sperm splattered in her mouth, face and chest, looking at it you feel as your body begins to tremble potemnolo you in the eyes and pleasant wave hit you. When you re-opened zlaza men are already out and Vick and sat on the floor flooded with sperm, she is now trying not to look in your direction. Finally sobravis the forces she got up and left the room.'
act 'Wait':
	cla
	*clr
	'<center><img src="images\img\centr\bvika9.jpg"></center>'
	'A few minutes later the door opened and entered the room, Vic, she closed the door and you are left in the dark, you vidili only its silhouette. Vic stood silently waiting for your reaction.'
	if slutty = 0:
		act 'Called a whore':
			cla
			'"Whore" is perhaps the only thing less censorship word that you said, from other words you are in shock, how do you know all this. When you have finished swear they heard a quiet vskhlypyvanie Vick crying.'
			act 'Leave':
				set vika = 0
				set vikaend = 1
				gt 'street'
				end
			act 'Soothe her':
				cla
				set vika += 5
				'You began to comfort her by saying that did not want to hurt her and that uttered it all for you because it was a shock. Vick closer to you and you hugged her, she soon stopped crying and saying that it should be back to work carried you to the exit.'
				act 'Leave': gt 'street'
				end
			end
		end
	if slutty > 0:
		act 'Soothe':
			cla
			set vika += 5
			'"Why are you so upset, think it works in a brothel, I also moonlighted a couple of times opening your legs." you said quietly.'
			'Vic breathed relief "And then I worried that you would not understand, okay I have to work, you go spend" it said, Vick led you to the exit.'
			act 'Leave': gt 'street'
			end
		act 'Ask about work':
			cla
			set vika += 5
			set bordel = 1
			'"And I am satisfied with work here, I know how much." you asked.'
			'Vic breathed relief "And then I worried that you would not understand, well, I´ll tell the administrator, but I can not guarantee it can not take it. And now I have to work, you go spend" it said, Vick led you to the exit.'
			act 'Leave': gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'out':
cla
*clr
set minut += 20
gs 'stat'
'<center><img src="images\img\centr\bordel.jpg"></center>'
'Vyskachil you out of the room like a scalded and rushed to the door, as you seemed to have opened the door but vidili another room, where also "worked" the girl slammed the door rushed to the next room and again. You rushed through the corridors, doors vygledeli same and you no it does not manage to find out, when you´re desperate, someone put your hand on her shoulder, turning you saw Vic, she just left the room and stood in front of you naked, her face and chest were smeared with sperm.'
'"<<$name>> wait, you promised to speak"'
'"Where´s the fucking out, slut," you cried.'
'Vick looked at you, you noticed her lips and the eyes zadrazhali navarachivalis tears "There," she said, pointing you to one of the doors, barely holding back that would not cry.'
act 'Leave':
	set vika = 0
	set vikaend = 1
	gt 'street'
	end
act 'Soothe her':
	cla
	set vika += 5
	'You began to comfort her by saying that did not want to hurt her and that uttered it all for you because it was a shock. Vick closer to you and you hugged her, she soon stopped crying and saying that it should be back to work carried you to the exit.'
	act 'Leave': gt 'street'
	end
end
--- bordelv ---------------------------------

# bouling
$sexloc = $CURLOC
gs 'stat'
'<center><B>Bowling</B></center>'
'<center><img src="images\img\centr\boul.jpg"></center>'

act 'Leave': gt 'torgcentr'
if hour >= 8 and hour <= 20:
act 'Play 300 rubles (1:00)':
	if money < 300: 'You have no money'
	if money >= 300:
		set money -= 300
		set boulingnav += rand(0,3)
		set minut += 60
		set boulrand = rand(0,9)
		set boulvar = 0
		if boulrand = 0:
			cla
			'To suit you two guys and offer to play with them'
			act 'Gamble, bet 2000': set boulvar = 1 & gt 'bouling','randwin'
			act 'Leave': gt 'torgcentr'
			end
		if boulrand = 1:
			cla
			'To suit you two girls and offer to play with them against two guys prize 5000, at a loss of sex.'
			act 'Play': set boulvar = 2 & gt 'bouling','randwin'
			act 'Leave': gt 'torgcentr'
			end
		if boulrand > 1:
			cla
			'You played billiards'
			act 'Leave': gt 'torgcentr'
			end
		end
	end
if money >= 300:
	act 'Play for money':
		set money -= 300
		set minut += 60
		set boulvar = 0
		gt 'bouling','randwin'
		end
	end
end

if $ARGS[0] = 'randwin':
cla
if boulingnav < 10: set boulwin = rand(0,10)
if boulingnav >= 10 and boulingnav < 20: set boulwin = rand(0,12)
if boulingnav >= 20 and boulingnav < 30: set boulwin = rand(0,14)
if boulingnav >= 30 and boulingnav < 40: set boulwin = rand(0,16)
if boulingnav >= 40 and boulingnav < 50: set boulwin = rand(0,18)
if boulingnav >= 50 and boulingnav < 60: set boulwin = rand(0,20)
if boulingnav >= 60 and boulingnav < 70: set boulwin = rand(0,22)
if boulingnav >= 70 and boulingnav < 80: set boulwin = rand(0,24)
if boulingnav >= 80 and boulingnav < 90: set boulwin = rand(0,26)
if boulingnav >= 90: set boulwin = rand(0,28)
if boulwin > 10 and boulvar = 1:
	set money += 2000
	'You won and received 2000 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin > 10 and boulvar = 2:
	set money += 5000
	'You won and received 5000 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin <= 10 and boulvar = 1:
	set picrand = 14
	if money >= 2000:
		'You lose and have to pay 2000 rubles.'
		act 'Offer in-kind': xgt 'sexdvoe','var'
		act 'Pay':
			set money -= 2000
			gt 'torgcentr'
			end
		end
	if money < 2000:
		'You lost, but you do not have money to pay, only one payment method.'
		act 'In kind': xgt 'sexdvoe','var'
		end
	end
if boulwin <= 10 and boulvar = 2:
	set picrand = 11
	'You lose, will push the legs.'
	act 'Pay': gt 'sexorg','var'
	end
if boulwin > 10 and boulvar = 0:
	set money += 300
	'You won and got 300 rubles.'
	act 'Leave': gt 'torgcentr'
	end
if boulwin <= 10 and boulvar = 0:
	!set money -= 300
	'You lost and paid 300 rubles.'
	act 'Leave': gt 'torgcentr'
	end
end

if $ARGS[0] = 'start':
'<center><B>Bowling</B></center>'
'<center><img src="images\img\centr\boul.jpg"></center>'
act 'Leave': gt 'bouling'
end
--- bouling ---------------------------------

# house
$metkaM = $ARGS[0]
$locM = $CURLOC
cla
*clr
'<center><B>Apartment</B></center>'
'<center><img src="images\img\centr\house.jpg"></center>'
if tanwork = 1: 'This apartment Tanya stepfather you work here.'
set tanhouse1 = 1
set minut += 5
gs 'stat'
if nik > 30 and niksvid = 2 and hour > 12 and hour < 19: gt 'house','razb'
act 'In the bathroom': gt 'vann','start'
act 'The kitchen': gt 'kitchen'
act 'In his bedroom': gt 'spalnya'
act 'In the master bedroom': gt 'hozspal','start'
act 'In the hall': gt 'housezal'
act 'In room Thani': gt 'tanroom','start'
if nude = 0: act 'On the street': gt 'down'
if tanwork = 1:
	act 'Resign':
		set tanuvol = 1
		set tanwork = 0
		set work = 0
		gt 'down'
		end
	end


if $ARGS[0] = 'razb':
cla
*clr
set minut += 90
set guy += 1
set bj += 1
set sex += 1
set swallow += 1
set cumlip += 1
set cumface += 1
set lesbian += 1
'<center><img src="images\img\th\h1.jpg"></center>'
'Walking down the hall you hear a voice from the hall hostess "<<$name>> Come here." You enter the room it is worth hostess and what that man. You go up to her and waiting for her to say. Noticing that you glanced toward the man she says "This is my personal driver and part-time security guard." You carefully inspect it and notice protruding from under floor rukoyadku jacket, "hardly a toy gun," you thought, as she continued.'
'"So, I want something to remember you now carefully, I will tell you, and to be confident that I will do something" with these words she vskhvatila you by the hair and pulled her. You first want to sink his nails into her face, but then decided not to risk it, not in vain, she led the guard, in the meantime continued.'
'"You little slut I have decided to withdraw her husband. Pilkaesh eyes What do you, do you think I do not know whose ass he fuck. So remember that my wallet, not yours and I´ll choke a bitch. Fact that he was my little daughter fuck I do not care let fuck young meat, but remains here, but you´re not wanted here. yet know what you tell him you substitute your point, you put them in there shotgun and trigger later. Did you understand everything that thing? " she finished, you nodded in response.'
'"Okay, now I will punish you that would know how to touch other people´s things." With these words, she pulled your hair down, you bent over, and she told you to kneel.'
act 'Up':
	cla
	*clr
	'<center><img src="images\img\th\h2.jpg"></center>'
	'You knelt down and the hostess said to you, "Take off your panties," you pulled to his feet, "Let not a dumbass yourself, shoot me and lick," she laughed. You pulled off her panties and when she sat on the couch legs spread wide, began to lick her pussy, you´re really trying to, periodically, nervously glancing at the guard sitting next to a stony face and staring at you. A few minutes later your efforts will bear fruit and whole body shuddering hostess richly finished, you will not be waiting for orders began slichyvat highlight it. She looked at you and grinned, "Be thou clean Lesbian prices do not you have that delicious, I see that delicious, well that all lapped up, and now her ass loan, how to yes" she said, and got cancer on the couch, continuing to hold your hair.'
	act 'Continue':
		cla
		*clr
		'<center><img src="images\img\th\h3.jpg"></center>'
		'You clung to her bottom, starting to caress her anus tongue. "Let´s try, and do not forget the inside" she laughed. You tried to push his tongue inside, but with the course you could not, and you start moving eventually push him when he finally was inside her anus, you began to move them back and forth, literally fucking her ass tongue. Over her buttocks you saw the guard who has watched with interest you. You start to initiate an event, you looked at it on top of the buttocks and the hostess caught myself thinking that you want something he would now came from behind and took you. Noticing your interest hostess stopped you. "Now take off your clothes," she commanded.'
		act 'Undress':
			cla
			*clr
			'<center><img src="images\img\th\h4.jpg"></center>'
			'You quickly took off his clothes and threw it in the corner sat down on the sofa. "Now we are going to teach you a blowjob to do," she said and pulled bilateral dildo. She sat back in the seat next to you, with one hand she recorded your head under his arm and took the second dildo and began to enter into your mouth. First, only the head, you immediately grasped his lips and began laskt, then she introduced more and started to move them there, here. You tried licked artificial penis, his eyes fixed on the support of this, it seemed to you that you have between your legs fountain, your thighs were wet and sofa under your ass, too, are pretty gets wet from your selections. "You´re all the same techesh slut" she cried seeing moisture on your hips, "But still early, you have not really learned how to suck" with these words she began to push the dildo deeper into your mouth. You tried to swallow it, but the first time you could not, the hostess pushed him further and you had no choice but to try again. You swallowed it and she moved it on, it was about a meter long and in your throat disappeared already his third kind. She took him by giving you catch your breath and re-sent to you in the mouth, this time you swallowed it immediately began to introduce his mistress deeper and deeper, as a result of you only the head sticking dildo. "That´s Throat," cried the hostess. She brought it up so that it would-vskhvatitsya and started to fuck you to them, you felt like he was moving inside you and you only have this factory, sometimes it put him, letting you catch your breath, and then again pounded the entire length and moved, no longer carefully and with decent speed. Finally she got sick "And now check what you have learned. Sergei, Skidan pants, now you will be doing a blowjob to swallow." she said. Security guard did not wait rose quickly unbuttoned his pants and pulled out have long standing member.'
			act 'To take by mouth.':
				cla
				*clr
				'<center><img src="images\img\th\h5.jpg"></center>'
				'Without waiting for orders, you jumped on the floor and his cock vskhvatili mouth. "Snapper nipple" said the lady sitting next to, she put her hand on his head and you pressed, you will immediately understand what she wants from you, and swallowed the cock in his throat, so that the nose rested in his crotch, and in podbordku knocked his balls. "Now take out the tongue and lick balls" she commanded, lifting his balls to your mouth, you will not easily took a little tongue and began to tickle his balls until he ran out of air. Little breather you reiterated the whole procedure, but when you swallowed the third time, he took you by the head and started to fuck in the throat, you run your hand between her legs and began to caress the clitoris. During all this, you do not even notice that the owner took the phone and started to shoot you. "And now saddled him and fuck" she commanded, security guard let your head and sat on the couch.'
				act 'Start':
					cla
					*clr
					'<center><img src="images\img\th\h6.jpg"></center>'
					'You without hesitation jumped on him, quickly entering his dick into her pussy, you started to move his hips quickly gaining pace. Hostess posnivala you a few more minutes and sat beside postponing phone and began to bestow you a spanking on the buttocks, which you did not even notice before my eyes swam, rode out on a limb you closer to the coveted orgasm when you finished it fell on him and could not continue. "What fizzled whore" she said, and pulled your hair from the couch, you did not care you almost do not hear her voice, you would not let naslozhdenie. "Mouth open, trash." she shouted.'
					act 'Open mouth':
						cla
						*clr
						'<center><img src="images\img\th\h7.jpg"></center>'
						'You have opened my mouth guard put him cock until she held your head by the hair, but do nothing you could not, and he took a member. "That bitch" cursed hostess and taking cock in her hand to right in her mouth, she sucked his dildo at the same time keeping your head with a second hand, she soon released his breath and sent on your face. Jet of sperm hit you in the face, some got in my mouth. Worth it to let your head as you fall on the floor, the hostess took the phone several times photographed you all in the semen came out and dressed with security guard. You lay on the floor, later kakoeto time you came to their senses and Stroud rising, pulled on his clothes.'
						act 'In the corridor': gt 'house'
						end
					end
				end
			end
		end
	end
end
--- house ---------------------------------

# housezal
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Hall</B></center>'
'<center><img src="images\img\centr\housezal.jpg"></center>'
set minut += 5
gs 'stat'
act 'In the corridor': gt 'house'
set housezalrand = rand(0,10)
if week < 6 and hour > 8 and hour < 20:
	act 'Get out':
		cla
		set minut += 60
		gs 'stat'
		if hour < 14 and housezalrand = 1 and houserab = 1:
			cla
			*clr
			set SUB += 1
			'<center><img src="images\img\centr\gosp6.jpg"></center>'
			'Mistress puts you on all fours, and she soditsya top and you hour kata her room.'
			act 'Leave': gt 'housezal'
			end
		if hour < 14 and housezalrand = 2 and houserab = 1:
			cla
			*clr
			set SUB += 1
			'<center><img src="images\img\centr\gosp7.jpg"></center>'
			'Mistress lifts her skirt and pulls you whip whips you in the ass'
			act 'Leave': gt 'housezal'
			end
		if hour < 14 and housezalrand = 3 and houserab = 1:
			cla
			*clr
			set SUB += 1
			'<center><img src="images\img\centr\gosp8.jpg"></center>'
			'Mistress puts you on your knees and pulls face to her pussy, you dutifully licks her she does not finish.'
			act 'Leave': gt 'housezal'
			end
		if hour < 14 and housezalrand = 4 and houserab = 1:
			cla
			*clr
			set SUB += 1
			set sex += 1
			set orgasm += 2
			set horny = 0
			'<center><img src="images\img\centr\gosp9.jpg"></center>'
			'Mistress puts you cancer and fucks your pussy threesome, simultaneously calling a whore, you begin to like it and while she fuck you you cum several times.'
			act 'Leave': gt 'housezal'
			end
		if hour < 14 and housezalrand = 0 and houserab = 0:
			cla
			*clr
			'<center><img src="images\img\centr\gosp1.jpg"></center>'
			'While you are tucked away hostess tells you where and how to clean up, you is already rather tired, but she did not let up in the end when you korachkah crawl on the floor with a rag that abusive her leg.'
			'"That you´re a fool without rukaya boots smeared me as well, to clean them quickly," she cried.'
			'You vskhvatili clean rag and started rubbing her boots.'
			'"That´s stupid brainless, tongue clean, well get a move that froze"'
			if DOM > 10: act 'Silently exit': gt 'house'
			act 'Lick':
				cla
				*clr
				set SUB += 5
				set houserab = 1
				'<center><img src="images\img\centr\gosp2.jpg"></center>'
				'You carefully lick her boots in the hope that these and end.'
				'"You did not try to have you flogged"'
				act 'Rise in a pose':
					cla
					*clr
					'<center><img src="images\img\centr\gosp3.jpg"></center>'
					'You get up from the couch and cancer lifts up her skirt, mistress starts to whip you on the ass, and you just screams with each stroke.'
					act 'Further':
						cla
						*clr
						'<center><img src="images\img\centr\gosp4.jpg"></center>'
						'Finally she was tired, but not yet finished, "Here parazitka, because of you I soiled panties, quickly erase" she said, taking off his pants.'
						'You vskhvatili soaking wet pants and going to go to the bathroom when she suddenly stopped you:'
						'"Where are you soaped, mouth wash" with these words she took you cowards and shoved into your mouth. You diligently pretended that like trying to wash her ​​panties.'
						act 'Further':
							cla
							*clr
							'<center><img src="images\img\centr\gosp5.jpg"></center>'
							'"That´s done, because you can if you want, lick here and now." With these words, the hostess opened her legs. You obediently began to lick her pussy, she soon finished and you diligently licked away all the juices.'
							act 'Leave': gt 'house'
							end
						end
					end
				end
			end
		if niksvid = 1 and hour > 17 and hour < 20 and housezalrand < 3 and niksexday ! day:
			cla
			*clr
			'<center><img src="images\img\centr\nikzal1.jpg"></center>'
			'While you are tucked away Nicholas comes to you from behind and knelt starts groping your ass.'
			act 'Push off': set nik -= 1 & gt 'house'
			act 'Allow':
				cla
				*clr
				set niksexday = day
				set bj += 1
				set anal += 1
				set guy += 1
				set nik += 1
				'<center><img src="images\img\centr\nikzal2.jpg"></center>'
				'Not many polapat your ass he uses the language and you´re feeling as he caresses your anus when he pushes it inside you relax his ass and wet tongue Shchekotov you inside.'
				act 'Take by mouth':
					cla
					*clr
					'<center><img src="images\img\centr\nikzal3.jpg"></center>'
					'You turn to him to bend down his fly, pulled out his cock and around his lips begin to suck as soon as you feel that he was ready to cum then stop.'
					act 'Lie down on the sofa':
						cla
						*clr
						'<center><img src="images\img\centr\nikzal4.jpg"></center>'
						' Slowly, slowly swinging her hips, you go to the sofa, Nicholas goes for you, you lie on your back and thigh lifts that-it is comfortable to enter you in the anus, his penis is too big for your ass and you still hurt when he enters into you, but you´re struggling trying not to show it, and only moaned when his dildo hammer your ass.'
						act 'Further':
							cla
							*clr
							'<center><img src="images\img\centr\nikzal5.jpg"></center>'
							'When you hold back the forces of the last cries of pain, his cock before cum blown and you cry out in pain, realizing that you hurt Nicholas takes it and pours sperm your ass.'
							act 'Suck':
								cla
								*clr
								'<center><img src="images\img\centr\nikzal6.jpg"></center>'
								'You get up on korachki and begin to lick dick fading carefully lick the remnants of sperm, when he poured again and again stands ready to fight.'
								act 'Doggy-Style':
									cla
									*clr
									'<center><img src="images\img\centr\nikzal7.jpg"></center>'
									'Seeing that he was ready to continue, you get up with cancer, his hands pushing the buttocks, Nicholas gently introduces dick in your ass and starts to move first delay, then faster and faster, he no longer pays attention to the moans, it lasted about half an hour, you have ceased to feel his anus when he finally finished you in the ass. This time vyreshili not risk and do not clean his cock mouth, and then the third row of the anal you would no longer be endured.'
									act 'Further':
										cla
										*clr
										set cumlip += 1
										set cumass += 1
										'<center><img src="images\img\centr\nikzal8.jpg"></center>'
										'While you are going to continue to stand by cancer, Nicholas walked up to you and put in the ass twisted bill'
										act 'Go with the money':
											set money += 1000
											set niksvid = 0
											set nikslut = 1
											gt 'house'
										end
										act 'Money back':
											cla
											set niksvid = 2
											'<center><img src="images\img\centr\nikzal9.jpg"></center>'
											'You defiantly removing kupuru from the anus, licked her cum and throwing it at his feet, turn around and leave.'
											act 'Leave': gt 'house'
										end
										end
									end
								end
							end
						end
					end
				end
			end
		if niksvid > 1 and hour > 17 and hour < 20 and housezalrand >= 3 and housezalrand <= 5 and niksexday ! day:
			cla
			*clr
			set niksexday = day
			'<center><img src="images\img\th\n2.jpg"></center>'
			'While you zip over the room with a vacuum cleaner, comes Nicholas sat on the sofa and began to read a newspaper. Soon he looked up from the newspaper and began to watch you as you walk around the room with a vacuum cleaner and bend down periodically, that would vacuum under the furniture, it is not surprising, because every time it will be charmed by your bare buttocks, panties then you are not clothed. Do you like that he looks at you, and you have already started to bend especially where already vacuumed a couple of times and even got up on all fours, pretending to be trying to push the vacuum cleaner away with cupboard under, with your bare ass flaunted in front of him. You squinting nadlyudali he swallows saliva, looking at you with lust.'
			act 'Continue':
				cla
				*clr
				set nik += 1
				'<center><img src="images\img\th\n3.jpg"></center>'
				'You continue to shine backwards before Nicholas, walking around the room until you feel that your pussy juice is flowing and began to emerge from her hips. Then you come to the couch and start vacuuming in front of him, you bend a little so that your newly bared buttocks and legs spread slightly fed back, now your pussy a few inches from his face and he was perfectly clear that you are already in full flow. Nicholas did not take long, after a few seconds you ooschutili his hands wrapped around your buttocks and bred in hand. He buried his face between your buttocks, then kissing your pussy and anus, then he began to lick at the hips all that managed to leak out of your pussy. Nicholas finished with them stuck in your language vagina and started moving it back and forward. You were standing on gave way to pleasure your feet, leaning on vacuum cleaner until his tongue fuck your pussy. Then he turned his attention to the ass, as the brushing her tongue, he launched into it with two fingers and began to push them a bit, stretching your anus. When your ass a little used and no longer shut mgnoveno, he took his fingers and their place was taken by his tongue. Nikolai fucked your ass tongue and hand massaging your clitoris, you moan with pleasure with difficulty holding the handle of the vacuum cleaner, Nicholas finally pulled you over and you´re plopped on the couch, and he sat down beside widely spread your legs, intending to re-engage your pussy .'
				set picrand = 78
				act 'Continue': gt 'sex','kuni'
				end
			act 'Finish cleaning': gt 'house'
			end
		'You cleared the room'
		act 'Leave': gt 'house'
		end
	end
if week = 6 and hour > 5 and hour < 10 and niksvid > 1 and niksexday ! day and housezalrand < 5:
	cla
	*clr
	set minut += 30
	set niksexday = day
	'<center><img src="images\img\th\n0.jpg"></center>'
	'Entering the room you see Nicholas lying on the sofa, in the clothes. It seems that he is not bad gulnul yesterday, the smell in the room could get drunk and wifey sent him to sleep in the living room.'
	'"A <<$name>>, pour something" he said, opening his eyes and trying to get up there and then collapsed back vskhvativshis head. "Nah, because you can not drink." he articulated.'
	'You poured into a glass of whiskey and handed him. Glass in one gulp swallowed it again fell back. "Feeling better?" you asked.'
	'"A little, thank the <<$name>>, go to him." he said without opening his eyes. You felt sorry for him, you even remembered how when something kicking themselves periodically on Fridays and wife sends you to sleep in another room, how long ago it was, I think in another life. Then you remember that if you managed to persuade my wife to have sex in the morning, or just take her while she´s still sleeping you could not send, it helped quite back to life. "Maybe it will help" flashed in my head crazy idea.'
	act 'Try to help':
		cla
		*clr
		set nik += 1
		'<center><img src="images\img\th\n1.jpg"></center>'
		'You go down next to him on his heels and unbuttoned his pants pull out dick, even raslablenno state it very decent size. You spend tongue around the trunk and begin to tickle the head, when Nicholas revives "There´s no light, I´m not in that state, and his wife is sleeping in the bedroom," he says.'
		'"Relax, I know that will help you and your wife on Saturdays before noon does not arise," you reply and absorbs his mouth already swelling body, you liked it swells in your mouth, and soon you have worked diligently mouth, but still tried not to make loud noises, and suddenly his wifey Owned today decides to get up early. You are tired of sucking, you seemed to have passed a couple of hours before a stream of hot, viscous liquid hit you in the mouth. You already swallowed and intended to release the cooling of the body cavity, as Nicholas already come a bit said "Go on, I want you all."'
		'You still released his cock from his mouth, but picking hand started to masturbate, not letting it fall. "Good, but not in the ass," you answered.'
		'"Well, maybe a little on the floor bumps?" he asked, visibly upset.'
		'"Come on, just when my screams come your wife, you yourself will explain to her that makes your dick in my ass." you answered. Nicholas agreed with your arguments and you will once again lowered his head to his cock.'
		set picrand = 77
		act 'Continue': gt 'sex','minet'
		end
	act 'Leave': gt 'house'
	end
if niksvid > 1 and hour > 17 and hour < 20 and housezalrand >= 3 and housezalrand <= 5 and niksexday ! day:
	cla
	*clr
	set minut += 10
	set niksexday = day
	'<center><img src="images\img\th\n4.jpg"></center>'
	'Entering the room you see Nicholas, sitting in a chair and talking on the phone. "<<$name>>, get a drink," he said see you. You brought him a glass of whiskey, he took the glass and motioned for you to linger. You waited until he finished talking on the phone.'
	'"What a day, sit down sit with me," he said, slapping his thigh.'
	act 'Leave': gt 'house'
	act 'Stay':
		cla
		*clr
		set nik += 2
		set minut += 30
		set picrand = 79
		set niksexday = day
		'<center><img src="images\img\th\n5.jpg"></center>'
		'You sit down on his leg and one arm around his neck, Nicholas hugs you by the waist and held her back in his chair. You almost lying on it, and he does not even try to climb between your legs, it just pushes you to come and sit and eyes closed. Realizing that he was just tired and he wants something to someone was there, you relax and lozhite head on his shoulder. So half an hour passes, Nicholas sits in a chair clutching you to yourself, and you listen to how he breathes, so you like to just relax and start to climb to the head of dreams, that if he was yours and you were sitting here in the evenings and rested. You clung to him more tightly embracing both hands, Nicholas felt as if your desire, and opened his eyes looked at you, after a couple of seconds, you kissed, but not as much as before, with animal passion, as if going to devour each other, and easily and gently, almost kosayas each other lips. Soon, his hands sliding over your body, he raised you and putting on a chair began to cover your body with kisses, descending lower and lower until he reached her thighs.'
		act 'Continue': gt 'sex','kuni'
		end
	end
if niksvid > 1 and hour > 17 and hour < 20 and housezalrand < 3 and niksexday ! day:
	cla
	set niksexday = day
	'Entering the room you see Nicholas, sitting in a chair "<<$name>> wanna watch TV?" he asked.'
	act 'Refuse': gt 'house'
	act 'Agree':
		cla
		*clr
		set minut += 40
		set nik += 1
		set picrand = 80
		set niksexday = day
		'<center><img src="images\img\th\n6.jpg"></center>'
		'You sit down beside him on the sofa, Nikolai priobnimaet you and lays down with one hand on hip, you are already prepared for the fact that it will start to stick, but then nothing happened, he just sat and watched TV pressed you to her. You get comfortable and resting her head on his shoulder, too, have begun to look at the TV show which is nonsense, but you did not care, and it seems too. So you sat for about half an hour, occasionally exchanging short phrases, you suddenly become so good and comfortable with him, but your idyll interrupted by football and you yourself do not believe Nicholas when asked to change the channel. "Maybe a little bit of a look?" he asked, as if this is your apartment and your TV.'
		act 'Take control':
			cla
			*clr
			'<center><img src="images\img\th\n7.jpg"></center>'
			'"No, do not look," you said and snatched the remote out of his hands.'
			'"<<$name>>, return idler," he said in a stern voice when done'
			'"Nope," replied playfully you.'
			'"Well beware" he said, and tried to grab the remote, but you had to remove his hand and he just collapsed on you. You began to rage on the couch grabbing the remote from each other, laughing and fooling around you as children, showing each other languages, when they could snatch control. In the course of this game your breasts popped out, but neither you nor Nicholas did not pay attention to it. When you´re tired and collapsed on the bed, he lay down on you and his head was on your chest, you both lay and breathed heavily. You began to stroke his hair, his lips soon kospulis your chest. He kissed your breasts and nipples, gradually descending lower and lower.'
			act 'Allow': set nik += 1 & gt 'sex','kuni'
			act 'Stop':
				cla
				'"No, not here," you said. Nicholas stopped and kissed you on the lips and left'
				act 'Leave': gt 'house'
				end
			end
		end
	end
if nikslut = 1 and hour > 17 and hour < 20 and housezalrand < 3 and niksexday ! day:
	cla
	*clr
	set SUB += 1
	set guy += 1
	set minut += 20
	set niksexday = day
	set money += 2000
	set picrand = 35
	'<center><img src="images\img\th\s0.jpg"></center>'
	'Entering the room you see Nicholas and another man as they sit having imposed documents and arguing about something. "A <<$name>>, bring us some tea," he says see you. You go to the kitchen to make tea and return back. When you pour the tea into the cups, Nicholas lozhit you hand to the buttocks and said, "Well, how do you like my new maid?" man shrugs in response, "It´s you know better, she´s at your house to cook and clean."'
	'"Yeah, no, you do not understand how you her ass, though very best." says Nicholas baring your buttocks. "Short allowance and she gets up it." Nicholas continues. In the meantime you stand with your bare ass and smiling stupidly looking at the man, and Nicholas did not let up, "Want it show? Svetsik And you do not mind to serve the host along with his guest?" gororit he puts a couple of bills on the table. A man looks at you and in his pants markedly increases bump in the groin area.'
	'"With pleasure," you reply, kneeling.'
	act 'Start': xgt 'sexdvoe','var'
	end
if nikslut = 1 and hour > 17 and hour < 20 and housezalrand > 8 and niksexday ! day:
	cla
	*clr
	set SUB += 1
	set guy += 1
	set minut += 20
	set niksexday = day
	set money += 2000
	set picrand = 37
	'<center><img src="images\img\th\s2.jpg"></center>'
	'Entering the room you see Nicholas and another man as they sit having imposed documents and arguing about something. "A <<$name>>, bring me a drink," you leave the bar and while pouring alcohol hear him talk, Nicholas does not even try to speak more quietly, that you would not have heard "This is the light which I love to confess to you."'
	'"Yeah, not bad." responsible man inspecting you from head to toe.'
	'"Yeah, so not far-fetched to relax and be happy that you Svetsik relax" continued Nicholas.'
	'"Yes I do not know, my wife uchuit will complete zvizdets, deprive all go begging in the subway" responsible man.'
	'"Yes, where she learns thrust took, and went, when she gave you six months ago or a year. Married a rich bitch´s agonized" says Nicholas.'
	'"To hell with it, call your slut" agrees a man, you just come up with a glass to Nicholas.'
	'"<<$name>>, help a person to relax, I depart for a few minutes, and later to join you," said Nicholas, slap you on the ass and shoving a couple of bills in his hand out of the room.'
	'"Let no prilyudy, strip naked and on the floor," the man said.'
	act 'Lie down':
		cla
		*clr
		'<center><img src="images\img\th\s2.jpg"></center>'
		'You lay on the floor and he lay down behind you, he smeared fingers slaver your pussy and slowly introduced dick in you. You were not excited and a couple of minutes you were hurt a little vagina until moistened. Entering into a little taste you started podmahivat him. Once you pick up the pace in the room returned Nicholas "Yes you already have everything in full swing, I seem almost too late," he said, starting to undress.'
		act 'Continue': xgt 'sexdvoe','var'
		end
	end
--- housezal ---------------------------------

# hozspal
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Bedroom</B></center>'
'<center><img src="images\img\centr\hozspaln.jpg"></center>'
set minut += 5
gs 'stat'
act 'In the corridor': gt 'house'
if week < 6 and hour > 8 and hour < 20 and tanwork = 1:
	act 'Get out':
		set minut += 60
		gs 'stat'
		set housespalrand = rand(0,4)
		if nikslut = 1 and hour > 17 and hour < 20 and housespalrand = 0 and niksexday ! day:
			cla
			*clr
			set niksexday = day
			set money += 2000
			set SUB += 1
			set guy += 1
			set picrand = 23
			'<center><img src="images\img\centr\niks1.jpg"></center>'
			'Nicholas and another man discussing something, you saw Nicholas beckons you to come and taking out a member of the inserts it into your mouth, you dutifully start sucking. The second man also joins.'
			act 'Sex': xgt 'sexdvoe','var'
			end
		if hour < 14 and housespalrand = 0 and houserab = 1:
			cla
			*clr
			set SUB += 3
			'<center><img src="images\img\centr\gosps1.jpg"></center>'
			'Mistress orders you to undress and lie down on the bed, you dutifully perform, she pulls out a dildo and puts you in the pussy, in a few minutes you covering orgasm. It looks like you squirm on the bed ending.'
			'"Well, the cat was hungry, go feed you." she said putting on your collar'
				act 'Go with it':
				cla
				*clr
				'<center><img src="images\img\centr\gosps2.jpg"></center>'
				'You slide out of bed on korachki and hostess leads you to the kitchen. You barge on korachkah trying to keep up, that would not irritate her.'
				act 'The kitchen':
					cla
					*clr
					'<center><img src="images\img\centr\gosps3.jpg"></center>'
					'She pours milk into a bowl and puts on the floor, you vnereshitelnosti freezes over the plate, then it lowers the force with your head on a plate, you literally hammering in her face.'
					'"Ah, you see the entire floor pig muck, fast licks that-be shone." she cried.'
					act 'Lick':
						cla
						*clr
						'<center><img src="images\img\centr\gosps4.jpg"></center>'
						'You dutifully start licking milk from the floor, and she presses you for a face to the floor, saying that you would rather lick. When you lick the entire floor of the milk, she goes leaving you naked on the floor.'
						act 'In the corridor': gt 'house'
						end
					end
				end
			end
		end
	end
end
--- hozspal ---------------------------------

# kafesvid
set minut += 60
set manna += 10
gs 'stat'
'<center><B>Cafe</B></center>'
'<center><img src="images\img\kafesvid\0.jpg"></center>'
'And you <<$telsob>> went into a small cafe in the center of'
act 'Chat':
	if $telsob = 'Alla':
		set alla += 1
		if alla >= 20:
			set kaferand = RAND(0,10)
			if kaferand > 0 and kaferand < 3: gt 'kafesvid','1'
			if kaferand > 2 and kaferand < 5: gt 'kafesvid','2'
			if kaferand = 0 or kaferand > 4: gt 'kafesvid','3'
			end
		if alla < 20: gt 'kafesvid','3'
		end
	if $telsob = 'Masha':
		set masha += 1
		if masha >= 20:
			set kaferand = RAND(0,10)
			if kaferand > 0 and kaferand < 3: gt 'kafesvid','1'
			if kaferand > 2 and kaferand < 5: gt 'kafesvid','2'
			if kaferand = 0 or kaferand > 4: gt 'kafesvid','3'
			end
		if masha < 20: gt 'kafesvid','3'
		end
	if $telsob = 'Katia':
		set kat += 1
		if kat >= 20:
			set kaferand = RAND(0,10)
			if kaferand > 0 and kaferand < 3: gt 'kafesvid','1'
			if kaferand > 2 and kaferand < 5: gt 'kafesvid','2'
			if kaferand = 0 or kaferand > 4: gt 'kafesvid','3'
			end
		if kat < 20: gt 'kafesvid','3'
		end
	end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\img\kafesvid\1.jpg"></center>'
'In malnkom cafe but you do not have anyone, and you are located in the far corner, in the shadows, in the course of conversation <<$telsob>> moved to the table right in front of you, and from under her skirt panties were visible. Noticing that you periodically glancing under her skirt. <<$telsob>> prepodnyala skirt, and has got one foot between your and began stroking her your hips.'
act 'Move over': gt 'kafesvid','3'
act 'Touch it':
	cla
	*clr
	'<center><img src="images\img\kafesvid\2.jpg"></center>'
	'You had a hand on her hip and sent hand to her panties <<$telsob>> jumped off the table and stood beside that, would you feel more comfortable stroking her pussy and running his hand under your clothes you started massaging his chest. A few seconds later she tried to take off your clothes.'
	act 'Well, not here': gt 'kafesvid','3'
	act 'Let her':
		cla
		*clr
		set lesbian += 1
		'<center><img src="images\img\kafesvid\3.jpg"></center>'
		'<<$telsob>> pulled off your clothes and on their knees, began to lick your pussy deftly wielding tongue.'
		act 'Doggy-Style':
			cla
			*clr
			set orgasm += 1
			'<center><img src="images\img\kafesvid\5.jpg"></center>'
			'You get up from a chair, and she bends over the table <<$telsob>> immediately pushes your buttocks and begins to fuck you tongue, and sometimes she misses her tongue slips you into the anus, you it gets harder and soon you covering orgasm.'
			act 'Proceed': gt 'kafesvid','10'
			end
		act 'Lick her':
			cla
			*clr
			'<center><img src="images\img\kafesvid\4.jpg"></center>'
			'You pick it up from his knees, and themselves go down on them. <<$telsob>> sits on a table and spreads her legs to the side, you cling to her crotch lips and start kissing her and then release the tab and a sensitive clitoris, occasionally running it into the vagina. Soon <<$telsob>> shudders and strongly pressed you to pussy violently cums from her pussy sees some powerful jets, first you have even decided that she pees in your mouth, but having tasted her juices realized that this is not so. You swallowed a few times its juice before this stream has dried up, but still her juices spilled over her hips and your breasts. <<$telsob>> without forces collapsed on the floor and kiss you sent last portion of its juice from his mouth in it, <<$telsob>> swallowed the juice, and began to lick your breasts licking droplets off her own juice.'
			act 'Proceed': gt 'kafesvid','10'
			end
		end
	end
end

if $ARGS[0] = '10':
cla
*clr
'<center><img src="images\img\kafesvid\6.jpg"></center>'
'<<$telsob>> found her purse, which flew in the process where it is under the table, and a little digging in her dildo learned to light. Sitting on poluryadom with a handbag she brought a dildo to her lips and began to tickle his head tongue playfully glancing at you.'
act 'Her pussy': gt 'kafesvid','11'
act 'Her ass': gt 'kafesvid','12'
act 'Their pussy': gt 'kafesvid','13'
act 'Finish': gt 'kafesvid','3'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="images\img\kafesvid\8.jpg"></center>'
'You take a dildo and sat her on a chair, enter it in her vagina. You fuck her carefully introducing dildo almost to the end, and <<$telsob>> at the time t handle her clitoris, until cums softly yelp.'
set kafesvidsex += 1
if kafesvidsex < 3:
act 'Her ass': gt 'kafesvid','12'
act 'Their pussy': gt 'kafesvid','13'
end
act 'Finish': gt 'kafesvid','3'
end

if $ARGS[0] = '12':
cla
*clr
'<center><img src="images\img\kafesvid\9.jpg"></center>'
'Taking a couple of times you dildo slaps the table, quickly realizing what you want <<$telsob>> is taken on the table and gets on all fours, licking juicy dildo you spit on her ass and send dildo behind. While you fuck her ass dildo <<$telsob>> moaning on the table, and you second hand pat yourself trying to achieve orgasm but in vain.'
set kafesvidsex += 1
if kafesvidsex < 3:
act 'Her pussy': gt 'kafesvid','11'
act 'Their pussy': gt 'kafesvid','13'
end
act 'Finish': gt 'kafesvid','3'
end

if $ARGS[0] = '13':
cla
*clr
set orgasm += 1
set vagina += 1
'<center><img src="images\img\kafesvid\7.jpg"></center>'
'You stand on the table and rastavlyaete feet <<$telsob>> immediately turns on his knees in front of you with a dildo in hand, she begins to caress your clitoris tongue, then enters a dildo in your pussy, continuing to lick clitoris orgasm covers you soon.'
set kafesvidsex += 1
if kafesvidsex < 3:
act 'Her pussy': gt 'kafesvid','11'
act 'Her ass': gt 'kafesvid','12'
end
act 'Finish': gt 'kafesvid','3'
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\img\kafesvid\10.jpg"></center>'
'Sitting at the table you made the order, in a cafe like anyone except you and the waiter was not the waiter constantly spinning around your table, and then looking at you.'
'"And you liked it," said <<$telsob>> caught you once his eyes.'
'"Say also like we´re here alone so he rubs nearby, eavesdropping, then he has nothing more." you objected'
'And when the waiter once again came up to you to ask whether you want anything else, <<$telsob>> grabbed you with one hand on his chest and squeezed it so that you just do not have jumped on the chair.'
'"What are you, that hurts" started talking you trying to unhook her hand.'
'<<$Telsob>> meanwhile without weakening grip and not paying attention to you turned to the waiter, "Want to touch a second?"'
'The waiter hesitated looking at you.'
act '"Just try, balls cut off"': gt 'kafesvid','3'
act 'Do not resist':
	cla
	*clr
	'<center><img src="images\img\kafesvid\11.jpg"></center>'
	'Noticing that you stopped struggling, <<$telsob>> let go your chest and took the waiter´s hand, put it on your chest, "Do not hesitate to see a girl do not mind."'
	'He began timidly to feel your breasts, but soon grew bolder and already being crushed your chest with both hands.'
	'A minute later, <<$telsob>> again began to direct your actions, "Well, you´re selfish, paw Woman and her own personal touch not given."'
	'The guy pulled his hands away from your chest and back neznaya hesitated what to do.'
	'<<$Telsob>> rapid hand movement undid his pants, from which immediately freed his erection "That´s what you still can touch, the second did not uvidivish?" she asked, and immediately noticed that the guy falls into a stupor again added, "The question is rhetorical, not necessarily respond. Well, you´re beautiful what are you waiting, help yourself."'
	act 'Refuse': gt 'kafesvid','3'
	act 'Take in hand':
		cla
		*clr
		set hj += 1
		'<center><img src="images\img\kafesvid\12.jpg"></center>'
		'You took his penis in his hand and began to masturbate <<$telsob>> continued to chat with you not paying any attention to the guy, but after a couple of mine when the guy started to shake, going to cum, she again joined "You and let him finish on the table, even taste not try, at least let you finish in her mouth? "'
		act 'Take in the mouth':
			cla
			*clr
			set SUB += 1
			set cumlip += 1
			set swallow += 1
			'<center><img src="images\img\kafesvid\16.jpg"></center>'
			'You go down on his knees, and <<$telsob>> you catching his cock quickly starts to masturbate aiming your mouth, just seconds after jet of sperm enters your mouth, and <<$telsob>> continues to play cock trying to squeeze it dry in your mouth when she finally ends and the last drop of warm liquid falls into your mouth, you swallow it quickly, and licking lips sit at the table and continue to talk as if nothing had happened.'
			act 'Finish': gt 'kafesvid','3'
			end
		act 'Continue to masturbate':
			cla
			*clr
			'<center><img src="images\img\kafesvid\12.jpg"></center>'
			'You are not paying attention to her words, and soon the guy is dead on the table.'
			'Thereafter <<$telsob>> started up again, "Well, let´s at least try yogurt"'
			act 'Lick sperm':
				cla
				*clr
				set SUB += 1
				set swallow += 1
				'<center><img src="images\img\kafesvid\14.jpg"></center>'
				'You lean over to the table and start licking sperm tightening it in yourself and swallowing.'
				act 'Finish': gt 'kafesvid','3'
				end
			act 'Do not touch the sperm':
				cla
				*clr
				'<center><img src="images\img\kafesvid\15.jpg"></center>'
				'Seeing that you´re not going to touch the sperm <<$telsob>> she leaned over to the table and rapid movements of the tongue collected all cum in your mouth, and then play a bit with her mouth, swallowed. "And the taste is not even go far wrong, knowingly refused."'
				act 'Finish': gt 'kafesvid','3'
				end
			end
		end
	act 'Take by mouth':
		cla
		*clr
		set bj += 1
		'<center><img src="images\img\kafesvid\13.jpg"></center>'
		'You seat guys in front of him on the table and spent some time on the tongue base of his cock head start to suck, <<$telsob>> at this time coming to you from behind, and pulled out from under slul vases, removes clothes and spreading buttocks little bites tongue in your pussy.'
		'A few minutes later <<$telsob>> continued to lead the process, "Now fuck her cancer"'
		act 'Doggy-Style':
			cla
			*clr
			set sex += 1
			'<center><img src="images\img\kafesvid\17.jpg"></center>'
			'You broke away from his cock, and bent over with his hands on the table <<$telsob>> sat in front of you and pulled up her breasts goliv to your face, tongue cost you touch her breasts, as you feel like you are in the pussy dick rested. Guy raised your foot and dramatically drove his bolt in you, he began to peck force your pussy. Soon <<$telsob>> again commanded "Now lay down on the table," you felt pornographic actress on the sets, and <<$telsob>> was set by producer, but you is only a factory and you are prepared to fulfill all of her team.'
			act 'Lie on a table':
				cla
				*clr
				'<center><img src="images\img\kafesvid\18.jpg"></center>'
				'You lie on a table and the guy came to you to take you by the legs and spreading them wide apart, you re-entered into the vagina, beating her with such force that you slid on the table, <<$telsob>> even put his hand behind you, so you do not flew off the table, and the second you massaged her clit. Actions guys were inept and even massage the clitoris is not helping you to cum in the end, after a few minutes <<$telsob>> commanded "And now in the ass"'
				act 'Doggy-Style':
					cla
					*clr
					set cumanus += 1
					set anal += 1
					set analorgasm += 1
					set orgasm += 1
					'<center><img src="images\img\kafesvid\19.jpg"></center>'
					'You stasis from the table, lie down on his stomach and buttocks Spreading hands, <<$telsob>> several times relish spits you on the ass, "Now very gently fuck her ass" refers to the guy, he carefully collects saliva her head and directs his dildo you in the ass, he moves ahead and carefully, and <<$telsob>> closely watching the process, occasionally spits on his dick, dobovlyaya grease a couple of minutes your ass adapts to your penis and the guy begins to slowly accelerate, you chuvstvuetekak it member of the slides in your ass and as <<$telsob>> looming over you spit you with his chest, it gets you much dildo and once inside you begins to swell, ready to finish, one of you sees a moan of pleasure from the long-awaited orgasm. At that moment, you feel like a warm liquid escaping from his penis fills your ass.'
					'"Clever, from anal cum, and now raise him until he did not fall," cried <<$telsob>>'
					act 'No, that´s enough': gt 'kafesvid','3'
					act 'Pick up':
						cla
						*clr
						set bj += 1
						set cumlip += 1
						'<center><img src="images\img\kafesvid\20.jpg"></center>'
						'You jump off the table and natsinaete yarosno suck, trying not to fall term.'
						if klismaday ! day: 'Do you realize that there´s not an enema did you lie in member izmazany mixture of sperm and the contents of your ass, you´re choking back retching continue sucking, and <<$telsob>> noticing it looks at you with a grin, "That Vidisha as important in the ass keep clean, for me it´s like brush your teeth. "'
						if klismaday = day: 'You suck dick feeling the taste of semen left on it, and how of your ass is not yet closed and sperm follows spreads to the buttocks and thighs'
						'When a member of the newly gained strength and was ready to continue, <<$telsob>> once again commanded "And now on top and ass at full speed"'
						act 'Jump to member':
							cls
							*clr
							set analorgasm += 5
							set orgasm += 5
							set anus += 1
							'<center><img src="images\img\kafesvid\21.jpg"></center>'
							'Without waiting until you release it from the mouth of a member of the man abruptly pulled him and lay down on the table, <<$telsob>> has helped you to climb on top and put his penis in your anus from which is still leaking sperm. Once you have settled down as the guy began to move his movements were quick and strong, he fucked your ass so you Vijay, and <<$telsob>> stood nearby and pressing down on you at every push you deeper trying to impose on his penis, kept saying, "Faster, deeper, let´s fuck her point to sit week could not. " And the guy started to move even faster Smashan pain with pleasure, then you are finished again again and again, you and started yelling at the guy that he fucked faster and at every push with force to sit down to a member of his anus. you already struggling to understand how this is going to ecstatic ass you rode out on a limb, was replaced by another one orgasm you end up exhausted stretched on it, but the guy has not yet finished, and <<$telsob>> you vskhvativ legs lifted them to the top and a few more minutes your body already obmyagshee fucked in the anus. "Well enough," said <<$telsob>> and pulled you to the floor. "Now it is settled in her mouth," she said to the guy.'
							act 'Open mouth':
								cla
								*clr
								set cumface += 1
								set cumlip += 1
								set swallow += 1
								'<center><img src="images\img\kafesvid\21.jpg"></center>'
								'You barely got on their knees before the guy, his mouth wide open. <<$telsob>> took his penis in his hand and began to masturbate aiming your mouth, soon man groaned and sperm gushed out of him, filling your mouth, chest and ran down his stomach.'
								act 'Kiss <<$telsob>>':
									cla
									*clr
									'<center><img src="images\img\kafesvid\22.jpg"></center>'
									'You grab her by the arm and pulled up to his bites her lips, infusing the sperm in her mouth <<$telsob>> swallows sperm and reaches out to you for more, but you have already swallowed, then she licks cum off your chest and abdomen, and then gently pushing you forward so that you are on all fours, licking all that leaked out of your ass, and lastly your anus kisses passionately trying to suck from it all to the last drop. When it finishes, you get dressed and sit down to chat continuing as if nothing had happened.'
									act 'Finish': gt 'kafesvid','3'
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '3':
cla
set kafesvidsex = 0
set horny = 0
set minut += 60
gs 'stat'
'Soon <<$telsob>> said that she had to flee and left'
act 'Leave': gt 'down'
end
--- kafesvid ---------------------------------

# kamera
set hour += 48
gs 'stat'
'<center><B>chamber</B></center>'
'<center><img src="images\img\police\c1.jpg"></center>'
'You spent in one chamber for two days and no one to you and hoisted for questioning did not cause. You did not know what to do, went from corner to corner and hours staring at the ceiling while lying on his bunk. When you have already decided that the threats were empty words, the cell door opened and she brought zechku, a woman 40 years old, you will see she grinned. The cell door slammed shut and you are left alone.'
act 'Hello':
	cla
	*clr
	set girl += 1
	set lesbian += 1
	'<center><img src="images\img\police\c2.jpg"></center>'
	'You just opened your mouth that would say hello as she vskhvatila you by the hair and pulled from the bunk to the floor. She quickly pulled down his pants and in your face appeared impressive size strap.'
	'"Well nipple suck" she said grinning.'
	act 'Open mouth':
		set bj += 1
		set anal += 1
		cla
		*clr
		'<center><img src="images\img\police\c3.jpg"></center>'
		'You opened her mouth and she had driven strap you in the throat. When you try to pull away zvdyhayas it took him a little by letting you up for air, and then continued to drive it down your throat keeping your hair. Soon she got sick and she pulled your hair up.'
		act 'Up':
			cla
			*clr
			'<center><img src="images\img\police\c5.jpg"></center>'
			'You´re up and you deploying it to the wall tilted. You hit a wall trying to relax arms ass, but you did not try the strap still proved too much when she drove it with the force you into the anus, tears streamed from his eyes and you cried.'
			'"Scream all you want, now you´re mine," said zechka, and began to move quickly, driving you to strap the entire length, you could no longer hold back and started yelling at her every movement pain pierced you and you cried I could.'
			'"Ori, ori, I like it," she laughed. You tried to close his mouth, but still pulled out a cry of your mouth, so continued for about half an hour, when you no longer feel pain usche and felt a shock, she took the strap and began to dress, you slid along the wall to the floor and curled continued to cry . She looked at you and grinned knocked on the door camera. The door opened surprisingly quickly.'
			'"I finished," said zechka.'
			'"Well, take it into the camera" you heard a girl´s voice interrogates you. After that, the door closed again and you were one, you hardly crawled to the bunk and climbing on them asleep.'
			act 'Sleep':
				cla
				*clr
				set vagina += 1
				set hour += 4
				gs 'stat'
				'<center><img src="images\img\police\c6.jpg"></center>'
				'You woke up with pain in the vagina, open your eyes you saw on a tighter girl, she poked bludgeon you into her vagina, trying to enter her, but she could not. Otolkunut you tried it and got a slap in the face, "Lie still, you now I´ll stick to polish until the conspiracy," she said, and she was finally able to insert into your club. She moved with the force of a bludgeon, obviously trying to make you as painfully as possible, and you screamed at every push. "Well, that´ll be talking about?" she asked?'
				act 'Share':
					cla
					set gopdeath = 1
					set minut += 180
					gs 'stat'
					set vsehsdaladay = day
					'You told all they knew, and even then what just heard from conversations Gopnik. After that you released.'
					act 'Leave': gt 'nord'
					end
				act 'Refuse':
					cla
					*clr
					set minut += 90
					set orgasm += 1
					set horny = 0
					'<center><img src="images\img\police\c7.jpg"></center>'
					'You did not answer, but only began to try to portray desire. You moaned and podmahivat her carefully portraying fun and even stuck one finger in the ass and began to massage her. Maiden looked at you, obviously besyas of baton and began to move even faster trying vtolkat it in you whole. Soon you will become really enjoy this and moan in earnest, you move your hips nasazhivayas on the baton. Soon you will feel like an orgasm rolled on you, you vskhvatili girl´s hand and pushed the baton themselves so deeply as we could, she looked like you moan, writhing in orgasm, and said something, but you did not hear anything. When you come to a bit then releasing her arm collapsed on the bench, she took the baton and stood over you frantically squeezing it. She did not expect this and now frantically trying to figure out what to do now. She stared at what you tried to do something to swing to hit something tugging at her clothes, she was clearly excited by her pants clearly could see the wet spot. You have a choice of either left it now you cripple a club, or you satisfy her.'
					act 'Grin':
						set over = 7
						gt 'gameover'
						exit
						end
					act 'Suggest lick':
						cla
						*clr
						set mentovka = 1
						set lesbian += 1
						'<center><img src="images\img\police\c8.jpg"></center>'
						'You head hanging off the bed, so that it appeared between her legs and started kissing her pants odnovremeno rastegivaya them, she immediately slipped off her top and help you with your trousers. Slightly bent legs she pulled your head to his crotch, you dug into her lips and began to kiss her pussy, then floated gently tongue licking every inch of her pussy, she did not press in your head, and stroked your hair. She did not take long, a few minutes later she came and fell down on the bench next to you. You silently lying on his bunk Jacks, her hands stroking your thigh, so it took several minutes, she suddenly jumped up and dressed silently headed for the exit. On the threshold, she stopped and said, turning to you, "Soon you will release."'
						act 'Wait':
							cla
							*clr
							set gnewQW = 3
							'<center><img src="images\img\police\c1.jpg"></center>'
							'You got dressed and started to wait half an hour later, the door opened you brought back from the camera and all your belongings.'
							act 'Leave': gt 'nord'
							end
						end
					end
				end
			end
		end
	if DOM > 30:
		act 'Bump':
			cla
			*clr
			'<center><img src="images\img\police\c4.jpg"></center>'
			'You have the strength that embedded her fist between her legs, she screeched collapsed on the floor. You stood up and pulled off her strap-on, put it on yourself. Zechka writhed on the floor, you wait until she wakes up a little, and then pulled off her pants and went into her vagina, at first she cried out in pain, but soon turned to screams moans, she began podmahivat you and soon came. You removed the strap and threw her zechka quickly gathered clothes and arranging strap, start knocking on the door when the door opened she jumped into the corridor do not even dressed.'
			act 'Wait':
				cla
				*clr
				set gnewQW = 3
				set hour += 20
				'<center><img src="images\img\police\c1.jpg"></center>'
				'You sat on the bed and waited, you got scared that if she now sends not one but several zechek, then you will not be able to cope with them, these thoughts swirling in your head, but the camera so no one came to you sat almost a day looking at the door finally opened the door you taken from his cell and all of your stuff back.'
				act 'Leave': gt 'nord'
				end
			end
		end
	end

--- kamera ---------------------------------

# kathouse0
set hour = 31
!?
set son = 20
gs 'stat'
'<center><img src="images\img\Kathouse\slip.jpg"></center>'
'Katia brought you to myself and put him to bed and she lay with you too. Early in the morning you povstvovali as she slipped out of your embrace and opened his eyes.'
'"Go to sleep, I need to work, I´ll leave you the keys." said Kate and smacking you ran away.'
'You slept and began to look around, on the couch in front of the bed lay man and looked at you. Probably this is one of her many guys about whom you have described it.'
act 'Leave': gt 'street'
	act 'Seduce':
	cla
	*clr
	'<center><img src="images\img\Kathouse\kathouse1.jpg"></center>'
	'You throw off the covers and start stroking yourself first then the chest area panties pussy when you feel that pussy humidified allot enough panties to the side and poke a couple of fingers into her vagina, moaning slightly.'
	'The guy sat on the couch and looks at you without blinking.'
		act 'Beckon':
		set $sexloc = 'katspalnya'
		gt 'sex','start'
		end
	end

--- kathouse0 ---------------------------------

# Katlake
!if $ARGS[0] = 'start':
!gs 'stat'
cla
gs 'stat'
'<center><img src="images\img\Lake\kat.jpg"></center>'
'You get bored and you start to examine other vacationers far from you is beautiful girl.'
act 'Do not approach': gt 'Nudelake'
	act 'Step up':
	cla
	'You walk up to a girl and trying to have a conversation.'
	act '"Hi."': gt 'Katlake','znakomstvo'
end

if $ARGS[0] = 'znakomstvo':
gs 'stat'
cla
	if vnesh < 14:
		set katday = day
		'"Hello" is a bit shy you say.'
		'The girl looked around you scornful look and said nothing'
		'"Talk will not work" flashed in your head'
		act 'Leave.': gt 'Nudelake'
		end
	if vnesh >= 14:
		set katday = day
		set telkat += 1
		set kat = 1
		cla
		clr
		set minut += 30
		'"Hello" is a bit shy you say.'
		'Girl looks you up and down, smiles and says, "Hi."'
		'She looks at you with a slight smile and waits. You frantically trying to think of what to say, blushing trying to squeeze out a word.'
		'Girl notices your flour and decides to take matters into their own hands, "I Katia, for friends Kate and what´s your name?"'
		'"<<$name>>" you exhale with relief. Continue the conversation went much better and you chatted for another half hour.'
		act 'Leave.': gt 'Nudelake'
		end
end

if $ARGS[0] = 'kat':
cla
clr
*clr
gs 'stat'
set minut += 30
'<center><img src="images\img\Lake\kat.jpg"></center>'
'See you smiling Kate "Svetsik Hi how´s it going."'
act 'Leave': gt 'Nudelake'
act 'Offer to play volleyball': gt 'Katlake','voleybol'
act 'Suggest a walk': gt 'Katlake','walk'
act 'Chat':
	cla
	clr
	set katday = day
	set kat += 1
	set minut += 30
	'You talked for half an hour.'
	act 'Leave': gt 'Nudelake'
end
end

if $ARGS[0] = 'voleybol':
gs 'stat'
cla
*clr
clr
set katday = day
set kat += 3
set minut += 30
set agil += 1
set react += 1
set speed += 1
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You can go to Kate volleyball court and Join of playing. When something goes wrong Kate encourages you clapping a hand over your bare ass, with her hand on his buttocks slightly delayed slightly squeezing it.'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'walk':
cla
gs 'stat'
set katday = day
set kat += 2
set minut += 30
'You Kat walk along the beach, chatting merrily.'
set kwalrand = RAND(0,100)
	if kwalrand >= 80 and kwalrand < 90 and kat > 20: gt 'Kwlake1'
	if kwalrand >= 90 and kat > 20: gt 'Kwlake2'

act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'key':
cla
*clr
clr
gs 'stat'
set katkey = 1
set kat += 10
set minut += 60
'<center><img src="images\img\Lake\sun.jpg"></center>'
'You sunbathe, you suddenly become ill, dizzy, nauseated you. You tried to get up and lost consciousness.'
'"Now, now, wait a little." where you hear that voice from the darkness Katie.'
'You feel the cool darkness slowly razveevaetsya and you open your eyes. Before you face the Cat.'
'"Well, finally, awake." says Kate. You look around, you have a wet towel on your head, and you yourself are lying in the shade under a tree.'
'"What happened to me," you ask.'
'"What, what, sunstroke, that´s what." meets Katya.'
'"And now comes to life and went to me, today I´ll stay," she continued.'
'"I feel better, I am going home," you tried to argue.'
'"No, well, you better it a look, I´m with her noshus like a chicken with egg, three times ran a towel drenched, dragged by his shadow, and she still vykobenivaetsya. All I said to me it means to me, I still nurse and I know better "'
'After this tirade mind you do not become'
act 'Go with Kate.': gt 'kathouse0'
end

--- Katlake ---------------------------------

# katspalnya
$sexloc = $CURLOC
if $ARGS[0] = 'start':
cls
gs 'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B><font color = maroon>Guest Katie</font></B></center>'
'<center><img src="images\img\SleepingQuarter\Kathouse\bedroom.jpg"></center>'

if hour >= 18 and hour < 23: 'Sitting on the couch <a href="exec: gt ''katspalnya'',''kat''">Kate</a> and watching television'
if hour >= 23 or hour < 6: 'In bed asleep <a href="exec: gt ''katspalnya'',''katslip''">Kate</a>.'
'Large room in the middle is a huge bed, a small couch in the side.'
act 'Leave': gt 'street'
end

if $ARGS[0] = 'katslip':
cla
clr
*clr
set minut += 30
if katjob = 0 and kat > 60: gt 'katspalnya','katjobs'
'<center><img src="images\img\Kathouse\kat.jpg"></center>'
'Katya rubs his eyes "Hey how´s it going."'
act 'Move away': gt 'katspalnya','start'
if kat > 50: act 'Sex': gt 'lezbsex','start'
end

if $ARGS[0] = 'kat':
cla
clr
*clr
set minut += 30
if katjob = 0 and kat > 60: gt 'katspalnya','katjobs'
'<center><img src="images\img\Kathouse\kat.jpg"></center>'
'Seeing you Katya smiling "Hi how´s it going."'
act 'Move away': gt 'katspalnya','start'
if kat > 50: act 'Sex': gt 'lezbsex','start'
act 'Chat':
	cla
	clr
	if telkat = 0: set telkat = 1
	set kat += 1
	set minut += 30
	'<center><img src="images\img\Kathouse\kat.jpg"></center>'
	'You talked for half an hour.'
	act 'Finish': gt 'katspalnya','start'
end
end

if $ARGS[0] = 'katjobs':
cla
clr
*clr
set katjob = 1
set minut += 30
'<center><img src="images\img\Kathouse\kat.jpg"></center>'
'"Svetsik if you want I can talk to your doctor and heads take to work in the clinic."'
act '"But I´m not a nurse."':
	cla
	'"But I´m not a nurse." you tried to argue.'
	'"Oh, come on, you start with what some unpretentious, dressing will do. And there you´ll learn, life safety in the school because it was."'
	'"Yes, it was." otveteli you thinking about what you are interested in while not dressings.'
	'"Well, okay, I´ll talk and you yourself want to come see it or not."'
	act '"Good."': gt 'katspalnya','start'
end
end

--- katspalnya ---------------------------------

# kazinosvid
set minut += 60
set kisvrand = 0
set manna += 10
gs 'stat'
'<center><B>Cinema</B></center>'
'<center><img src="images\img\kazinosvid\0.jpg"></center>'
'And you <<$telsob>> sat down at the table and began to play.'
act 'Play':
	if $telsob = 'Alla':
		set alla += 1
		if alla >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kazinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kazinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kazinosvid','3'
			end
		if alla < 20: gt 'kazinosvid','3'
		end
	if $telsob = 'Masha':
		set masha += 1
		if masha >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kazinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kazinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kazinosvid','3'
			end
		if masha < 20: gt 'kazinosvid','3'
		end
	if $telsob = 'Katia':
		set kat += 1
		if kat >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kazinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kazinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kazinosvid','3'
			end
		if kat < 20: gt 'kazinosvid','3'
		end
	end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\img\kazinosvid\0.jpg"></center>'
'While you play you two guys hooked and offered to play two by two in their room.'
'<<$telsob>> said that she does not mind and looked questioningly at you.'
act 'Refuse': gt 'kazinosvid','3'
act 'Agree':
	cla
	*clr
	set picrand = RAND(14,15)
	'<center><img src="images\img\kazinosvid\<<picrand>>.jpg "></center>'
	set randkazinv = RAND(0,1)
	set randkazinvsum = RAND(100,10000)
	if randkazinv = 1:
		set money += randkazinvsum
		'You won and your share <<randkazinvsum>> rub. You and <<$telsob>> were about to leave, but the guys started to beg you to stay, "C´mon girls, to take the time can sit down, have a drink, take a closer look. Well losers are left reassurance" said one rastegnuv his pants and pulled out a member, clearly implying any consolation he waits .'
		set telsobnastr = RAND(0,10)
		if telsobnastr < 4:
			'"No, it´s time, reassurance to themselves." said <<$telsob>> and taking you by the hand brought back to the gym'
			act 'Finish': gt 'kazinosvid','3'
			end
		if telsobnastr > 3:
			'"I do not mind console losers" said <<$telsob>> lustfully smiling and looking at the guy who has his fly open from sticking member.'
			act 'Pick up <<$telsob>> and leave.': gt 'kazinosvid','3'
			act 'To console the losers':
				set kazsexdva = 1
				set guy += 2
				set gang += 1
				xgt 'sexdvanadva','var'
				end
			end
		end
	if randkazinv = 0:
		'You lost your share and loss <<randkazinvsum>> rub.'
		if money < randkazinvsum:
			'You have no money to pay and <<$telsob>> also have no money left to pay that, no options have to open your legs.'
			act 'Pay in kind':
				set kazsexdva = 1
				set guy += 2
				set gang += 1
				xgt 'sexdvanadva','var'
				end
			end
		if money >= randkazinvsum:
			'Do you have enough money to pay and <<$telsob>> that also have enough money to pay, but the guys obviously hints that do not necessarily pay the money, they would gladly accept another form of payment.'
			if telsobnastr < 4:
				set money -= randkazinvsum
				'"No, we go, here´s your money." said <<$telsob>> and taking you by the hand brought back to the gym'
				act 'Finish': gt 'kazinosvid','3'
				end
			if telsobnastr > 3:
				'"I do not mind to use an alternative form of payment," said <<$telsob>> smiling lasciviously.'
				act 'Giving money to pick up <<$telsob>> and leave.':
					set money -= randkazinvsum
					gt 'kazinosvid','3'
					end
				act 'Use an alternative form of payment':
					set kazsexdva = 1
					set guy += 2
					set gang += 1
					xgt 'sexdvanadva','var'
					end
				end
			end
		end
	end
end


if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\img\kazinosvid\0.jpg"></center>'
'While you are playing you addicted man and offered to play with him in his room.'
'<<$telsob>> said that she does not mind and looked questioningly at you.'
act 'Refuse': gt 'kazinosvid','3'
act 'Agree':
	cla
	*clr
	'<center><img src="images\img\kazinosvid\3.jpg"></center>'
	'Arriving at the room you are located on the bed and began to play a few minutes later a guy offered to play on the strip. <<$telsob>> giggled "And then you do not be ashamed, but you see so far have never won," grinned the guy, "I have nothing to be ashamed of."'
	act 'Refuse to pick up <<$telsob>> and leave': gt 'kazinosvid','3'
	act 'Agree':
		cla
		*clr
		'<center><img src="images\img\kazinosvid\4.jpg"></center>'
		'After a few minutes and you <<$telsob>> already removed her panties. "It does not honestly, you spetsalno first succumbed to we agreed" said <<$telsob>>, defiantly pout.'
		'"Good girl, the last game the two of you against me, you can even change the cards, win doing that tell fun too lose to the fullest." the guy said.'
		'"Playing" immediately blurted <<$telsob>>'
		act 'Play':
			cla
			*clr
			'<center><img src="images\img\kazinosvid\5.jpg"></center>'
			'A minute later he was standing with his pants down, "Well girls, gambling debt - holy, the incident" he said pointing to his dildo'
			act 'Start':
				set guy += 1
				set picrand = 23
				set kazsexdva = 1
				gt 'podrsex','var'
				end
			end
		end
	end
end


if $ARGS[0] = '3':
cla
set horny = 0
set minut += 90
gs 'stat'
'Soon <<$telsob>> said that she had to flee and left'
act 'Leave': gt 'nord'
end
--- kazinosvid ---------------------------------

# kino
gs 'stat'
'<center><B>Cinema</B></center>'
'<center><img src="images\img\centr\kino.jpg"></center>'
'Small cinema ticket costs 300 rubles.'

act 'Leave': gt 'torgcentr'
if hour >= 8 and hour <= 20:
	if money >= 300:
		act 'Watch a movie':
		cls
		set money -= 300
		set minut += 60
		manna += 300
		gs 'stat'
		set kinorand = rand(0,9)
			if kinorand = 9:
			'The room is empty, just sitting next to you one man.'
			act 'Watch the movie': minut += 60 & gt 'kino'
				act 'Seduce':
				cla
				*clr
				'<center><img src="images\img\centr\kino1.jpg"></center>'
					if vnesh < 15:
					'You bares breasts demonstrate her boyfriend, but he does not pay attention to you'
					act 'Leave': gt 'kino'
					end
					if vnesh >= 15:
					'You bares breasts demonstrate her boyfriend, he was clearly interested and looking at you in looking forward to a'
						act 'Cooney':
						cla
						*clr
						set guy += 1
						set kuni += 1
						set horny += 10
						'<center><img src="images\img\centr\kino2.jpg"></center>'
						'You push your feet and ask him to lick the guy quickly knelt down and began to lick you.'
						act 'Leave': set DOM += 1 & gt 'kino'
						act 'Blow job': gt 'kino','sex'
						end
					act 'Blow job': gt 'kino','sex'
					end
				end
			exit
			end
		set minut += 60
		gs 'stat'
		'You watched the film'
		act 'Leave': gt 'kino'
		end
	end
else
'Cinema closed.'
end

if $ARGS[0] = 'sex':
cla
*clr
set bj += 1
'<center><img src="images\img\centr\kino3.jpg"></center>'
'You cupped his excited penis lips and began to suck his hand while playing with his balls. Soon you will feel that he is about to finish.'
	act 'Suck':
	cla
	'You continued to suck and the guy is dead in your mouth filling it with warm viscous liquid.'
	act 'Leave': set cumlip += 1 & gt 'kino'
	end

	act 'Post':
	cla
	*clr
	set sex += 1
	set horny += 50
	'<center><img src="images\img\centr\kino4.jpg"></center>'
	'You get up on your knees chair, turning his back to the guy and invitingly swaying ass, he did not wait and you quickly entered into the vagina, after a few seconds he groaned and came inside you, leaving you unsatisfied.'
	act 'Leave': set cumpussy += 1 & gt 'kino'
	end
end
--- kino ---------------------------------

# kinosvid
set minut += 60
set kisvrand = 0
set manna += 10
gs 'stat'
'<center><B>Cinema</B></center>'
'<center><img src="images\img\kinosvid\0.jpg"></center>'
'And you <<$telsob>> have bought tickets and took their seats ready for viewing'
act 'Watch a movie':
	if $telsob = 'Alla':
		set alla += 1
		if alla >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kinosvid','3'
			end
		if alla < 20: gt 'kinosvid','3'
		end
	if $telsob = 'Masha':
		set masha += 1
		if masha >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kinosvid','3'
			end
		if masha < 20: gt 'kinosvid','3'
		end
	if $telsob = 'Katia':
		set kat += 1
		if kat >= 20:
			set kisvrand = RAND(0,10)
			if kisvrand > 0 and kisvrand < 3: gt 'kinosvid','1'
			if kisvrand > 2 and kisvrand < 5: gt 'kinosvid','2'
			if kisvrand = 0 or kisvrand > 4: gt 'kinosvid','3'
			end
		if kat < 20: gt 'kinosvid','3'
		end
	end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\img\kinosvid\1.jpg"></center>'
'Passing you submissive <<$telsob>> distracted by the screen and it wakes you.'
act 'Oh':
	cla
	*clr
	set lesbian += 1
	'<center><img src="images\img\kinosvid\2.jpg"></center>'
	'"Here I am clumsy," she whispered, and began to clean up the popcorn with your clothes, her hands glided over your body collecting popcorn when she took off all her clothes c fingers slipped under clothing pulling back from the remnants of popcorn, her touch you a little excited, <<$telsob>> same clothes you have lifted up so that it was easier to get popcorn.'
	'Suddenly she lifted her head and looked around the hall where no one except you and smile nebilo said "regaled popkornchikom?" With that, she put her head down to your chest and the remnants of popcorn became quickly disappear from your body under the influence of her tongue, sending them into her mouth.'
	act 'Enjoy': gt 'kinosvid','10'
	act 'Fondle her': gt 'kinosvid','11'
	end
end

if $ARGS[0] = '10':
cla
*clr
set orgasm += 1
'<center><img src="images\img\kinosvid\3.jpg"></center>'
'Soon her tongue down below the stomach and that <<$telsob>> has already dug tongue in your pussy expertly massaging the clitoris and bringing you to orgasm.'
act 'Enjoy':
	cla
	*clr
	set orgasm += 1
	set vagina += 1
	'<center><img src="images\img\kinosvid\4.jpg"></center>'
	'<<$telsob>> floated fingers, continuing to massage the clitoris tongue, she tucked first one, then a second finger, and so long as you were not her four fingers, in fact she put all her fingers and brush wholly entered into and you start gently move inside continuing to lick the clitoris, a few seconds of this massage you again covered orgasm.'
	act 'Fondle her': gt 'kinosvid','13'
	act 'Finish': gt 'kinosvid','3'
	end
act 'Fondle her': gt 'kinosvid','12'
end

if $ARGS[0] = '11':
cla
*clr
'<center><img src="images\img\kinosvid\5.jpg"></center>'
'You rose from the chair and forcing her to stand glaring lips to her chest, ran his hand into her pants, her pussy was already very wet and your fingers easily proskalznuli inside. After a minute <<$telsob>> strongly pressed your head to your chest and you felt like her whole body shook your hand and on her juices flowed.'
act 'Caressing her pussy': gt 'kinosvid','14'
act 'Caress her ass': gt 'kinosvid','15'
act 'Put on your knees': gt 'kinosvid','16'
end

if $ARGS[0] = '12':
cla
*clr
'<center><img src="images\img\kinosvid\6.jpg"></center>'
'You slipped lower and taking <<$telsob>> under the arms pulled up, she realized what you want and quickly zaskachila on chair, placing her pussy oozing over your face. Lips clinging to her crotch you entered my tongue into her, diligently plying them inside. A few minutes later <<$telsob>> was rapidly rub against your mouth and after a few seconds her juices fill your mouth.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '13':
cla
*clr
'<center><img src="images\img\kinosvid\7.jpg"></center>'
'Seated in her chair, you knelt down and began to lick her pussy odnovremeno inserting her fingers one by one, when her pussy was stretched enough, you have laid a hand and gently entered her. Soon <<$telsob>> and shuddered from her lips escaped a moan of pleasure.'
act 'Substitute ass': gt 'kinosvid','110'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '14':
cla
*clr
'<center><img src="images\img\kinosvid\8.jpg"></center>'
'Unfolding her back to him you´re a little pushed her forward so that she stood on a chair and knees kneeling clung to her pussy, then dropped into your tongue inside it caressed the clitoris <<$telsob>> moaning with pleasure.'
act 'Fondle her': gt 'kinosvid','17'
end

if $ARGS[0] = '15':
cla
*clr
'<center><img src="images\img\kinosvid\9.jpg"></center>'
'Unfolding her back to him you´re a little pushed her forward so that she stood on a chair and knees kneeling clung to her ass, then dropped into your tongue inside the anus then fondled the buttocks <<$telsob>> moaning with pleasure, trying to run a deeper your language .'
act 'Fondle her': gt 'kinosvid','17'
end

if $ARGS[0] = '16':
cla
*clr
'<center><img src="images\img\kinosvid\11.jpg"></center>'
'You pressed on her shoulders and <<$telsob>> quickly dropped to his knees in front of you, you bulged forward trying to give her maximum access to her crotch, <<$telsob>> pressed his lips to your pussy and then draw in your lips then indulge in language, massaging your clitoris.'
act 'Enjoy': gt 'kinosvid','18'
act 'Fondle her': gt 'kinosvid','19'
end

if $ARGS[0] = '17':
cla
*clr
'<center><img src="images\img\kinosvid\10.jpg"></center>'
'Gradually you start getting fingers in her pussy, her anus odnovremeno Shchekotov tongue, every time her vagina stretched enough you shoved another finger, a few minutes later your whole hand was inside her pussy. <<$telsob>> moaning and diligently podmahivala the beat of your hand, in a couple of minutes, she cried, clutching the chair strongly you felt inside her womb spreads heat.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '18':
cla
*clr
set orgasm += 1
'<center><img src="images\img\kinosvid\12.jpg"></center>'
'You pulled up a chair and foot <<$telsob>> hug your hip continued to kiss your pussy then penetrating tongue inside, kissing clit, sucked it into itself. A few minutes later weaken and satisfied collapsed on a chair.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '19':
cla
*clr
'<center><img src="images\img\kinosvid\13.jpg"></center>'
'You picked her up and helped to climb back in his chair, and then spread wide her legs bowed down to her pussy passionately licking her lips and clit, a few minutes later <<$telsob>> moaned, clutching your hair and richly finished, you tchatelno lapped up all that flowed from it countries not to miss drop.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '110':
cla
*clr
set orgasm += 1
'<center><img src="images\img\kinosvid\14.jpg"></center>'
'You got my knees on a chair, turning to her ass and began to shake her hips invitingly, <<$telsob>> does not make them wait in a couple of seconds her hands parted the buttocks and your tongue aggressively invade you in the ass, after a few minutes of this massage you left off, and <<$telsob>> tchatelno lapped up all the juices from your hips.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '2':
cla
*clr
set lesbian += 1
'<center><img src="images\img\kinosvid\0.jpg"></center>'
'During the session <<$telsob>> said that it should go out and quietly left the room.'
act 'Wait':
	cla
	*clr
	'<center><img src="images\img\kinosvid\20.jpg"></center>'
	if kendra = 0: 'While it was not nice to you hooked no circumstances African and putting his hand on your hip, started stroking it slowly priblezhayas to the perineum and now her fingers naglazhivayut your clitoris. You are confused by such impudence and just sat in a stupor watching namanikyurinye marigolds you penetrate into the vagina. At this point in the back room <<$telsob>> and uvidivetu picture immediately vskhvatila africana by the ear and pulled out of the hall, the guys sitting in the hall laughed and back <<$telsob>> started yelling at them so that they would prefer to leave. In the hall were just you and <<$telsob>>.'
	if kendra > 0: 'While it was not hooked to you and Kendra no circumstances putting a hand on your hip, started stroking it slowly priblezhayas perineum and now her fingers naglazhivayut your clitoris. You are confused by such impudence and just sat in a stupor watching namanikyurinye marigolds you penetrate into the vagina. At this point in the back room <<$telsob>> and uvidivetu picture immediately vskhvatila Kendra ear and pulled out of the hall, the guys sitting in the hall laughed and back <<$telsob>> started yelling at them so that they would prefer to leave. In the hall were just you and <<$telsob>>.'
	act 'Wait':
		cla
		*clr
		'<center><img src="images\img\kinosvid\21.jpg"></center>'
		'When <<$telsob>> a little calmed down and sat back down next to you, you are still and sat with her legs spread wide and bare wet pussy. Looking at you, <<$telsob>> quietly began filming with you top clothing'
		act 'Wait':
			cla
			*clr
			set vagina += 1
			set orgasm += 1
			'<center><img src="images\img\kinosvid\22.jpg"></center>'
			'When <<$telsob>> bared your breasts, first walked on her tongue, and then glaring you in the lips, with the force you inserted two fingers into her vagina and pryanyalas violently move them, it seems that the anger in her still raged. You flattered that <<$telsob>> you jealous and began diligently podmahivat though hardly keep up with her movements, and finished in a few minutes. <<$telsob>> does not appeased and tried to flip you.'
			act 'Submit':
				cla
				*clr
				set orgasm += 1
				'<center><img src="images\img\kinosvid\23.jpg"></center>'
				'You obediently rolled over and got cancer in his chair, this time you got four fingers in her vagina. <<$telsob>> moved them at such a rate that soon you become sick, but made its way through the pain and pleasure you again soon finished.'
				act 'Further':
					cla
					*clr
					'<center><img src="images\img\kinosvid\24.jpg"></center>'
					'<<$telsob>> stood on a nearby chair and poodlokotniki taking your hand inserted four fingers of their pussy, you began to gently move his hand trying not to cause her pain, but received ukorizniny opinion, accelerated I could. <<$telsob>> moan so shouted over the film, she soon vskriknulai limp, sliding armrests with you and kiss it as if nothing had happened continued to watch the movie.'
					act 'Finish': gt 'kinosvid','3'
					end
				end
			act 'Fondle her': gt 'kinosvid','22'
			end
		act 'Fondle her': gt 'kinosvid','21'
		end
	end
end

if $ARGS[0] = '21':
cla
*clr
'<center><img src="images\img\kinosvid\25.jpg"></center>'
'Without waiting for her to finish in throw off the remnants of clothes and sat on the floor in front of her to throw back his head and draw out the tongue. <<$telsob>> slowly got up off his clothes and stood over you, she shook her hips a few times so that your tongue sticking out walked over her pussy, then stopped placing her pussy so that your tongue lightly touched her clitoris. You clung to her crotch and then ran into a language that tickled the clitoris, a few minutes later <<$telsob>> finished filling your mouth with their droppings.'
act 'Finish':
	cla
	*clr
	set orgasm += 1
	'<center><img src="images\img\kinosvid\26.jpg"></center>'
	'When you´re dressed and sat down to watch the movie again, <<$telsob>> suddenly dropped to his knees in your chair and your feet spread wide lips you dug in the pussy, her tongue zasklzil on your lips and clitoris then dropping into the vagina then slipped just below the anus. Soon her efforts were crowned with success, your body is stirred up by the skin and shivers ran wave of pleasure you covered.'
	act 'Finish': gt 'kinosvid','3'
	end
end

if $ARGS[0] = '22':
cla
*clr
'<center><img src="images\img\kinosvid\27.jpg"></center>'
'You gently pushed her away and knelt bullying her feet up. <<$telsob>> pushing the hips and hands you start to caress her tongue, first spending thighs then lick her lips and her tongue was neatly enter the vagina, then spiral back to the hips back, a few of these approaches <<$telsob>> begins to tremble and from breaking moan of pleasure.'
act 'Finish': gt 'kinosvid','3'
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut += 90
gs 'stat'
'When the movie ended <<$telsob>> said that she had to flee and left'
act 'Leave': gt 'torgcentr'
end
--- kinosvid ---------------------------------

# kitchen
'<center><B>Kitchen</B></center>'
'<center><img src="images\img\centr\kitchen.jpg"></center>'
set minut += 5
gs 'stat'
act 'In the corridor': gt 'house'
act 'Eat Meal (0:30)':
	cla
	*clr
	gs 'stat'
	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set edahot = 0
	set health += 10
	set manna += 20
	if energy >= 30:
		set fat += 5
		'You can no longer have.'
		end
	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
		end
	if energy < 20:
		set energy += 20
		set fat += 1
		'You gladly ate cooked food.'
		end
	if water >= 20:
		'Tea in you no longer climbs.'
		end
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	act 'Get up from the table': gt 'kitchen'
	end

if tanwork = 1:
	act 'Cook food (1:00)':
		set minut += 60
		set nikrand = rand(0,5)
		if vnesh > 20 and nikrand = 0 and hour >= 6 and hour <= 9 and week < 6 and niksexday ! day:
			cla
			set niksexday = day
			'The kitchen breakfast Tannin stepfather, Nikolai'
			act 'Go about their business.': gt 'kitchen'
			if niksex = 0 and tanga = 0:
				cla
				'You notice that he is not taking his eyes off your ass, not surprisingly trisikov because you do not.'
				act 'Go about their business.': gt 'kitchen'
				act 'Seduce':
					cla
					*clr
					set niksex = 1
					set nik += 1
					'<center><img src="images\img\centr\kitchensob.jpg"></center>'
					'You bend down so that your bare ass appears before him in all its glory, and continue to do their work, pretending that he did not notice that the skirt rode up and you have a bare ass in the end when you once again that you drop or bend down for this without bending the legs, Nicholas walks up to you and hand you gently lays down on the buttocks.'
					act 'Blow job':
						cla
						*clr
						set nik += 2
						set cumlip += 1
						set bj += 1
						set guy += 1
						'<center><img src="images\img\centr\kitchenminet.jpg"></center>'
						'You get up on his knees and his pants are releasing rastegnuv his huge cock. Licking you head bows his lips and sucking takes diligently trying to tighten it as far as possible, but do not pull out up to half, and finally he starts to cum in your mouth pouring jet of sperm, you hardly have time to swallow, but it does not end when she finally ended you carefully licked his dick from sperm, and removing it back into his pants stood up and turned to the stove without even looking at Nicholas. He put the plate around 1000 and went out.'
						act 'Take the money':
							set money += 1000
							set nikslut = 1
							gt 'kitchen'
							end
						act 'Do not take money': gt 'kitchen'
						end
					act 'Anal':
						cla
						*clr
						set guy += 1
						set anal += 1
						set nik += 5
						set cumassin += 1
						'<center><img src="images\img\centr\kitchenanal.jpg"></center>'
						'Not turning to him you take a little oil and lubricate them anus, buttocks Spreading through your anus second rests his dick when he starts to enter you could barely hold back anything would not cry out in pain, his cock is too big for your ass. You only slightly moaning as his big dildo anus breaks you, although you want to scream in pain. Finally he cums and spills his seed inside your ass, it is so much that you have to stretch the buttocks strongly that, would not it all spilled out onto the floor. He lays down about 2000, and the plate comes out.'
						act 'Take the money':
							set money += 2000
							set nikslut = 1
							gt 'kitchen'
							end
						act 'Do not take money': gt 'kitchen'
						end
					end
				end
			if niksex = 1 and nikslut = 0 and niksvid = 0:
				cla
				'He walks up to you and his hands immediately climbs under your skirt'
				act 'Blow job':
					cla
					*clr
					set bj += 1
					set guy += 1
					set nik += 1
					set cumlip += 1
					'<center><img src="images\img\centr\kitchenminet.jpg"></center>'
					'You get up on his knees and his pants are releasing rastegnuv his huge cock. Licking you head bows his lips and sucking takes diligently trying to tighten it as far as possible, but not even half of dostoete, and finally he starts to cum in your mouth pouring jet of sperm, you hardly have time to swallow, but it does not end when she finally ended definitively you licked a member of sperm, and removing it back into his pants stood up and turned to the stove without even looking at Nicholas. He turns you to itself and stretches 1,000 rubles.'
					act 'Take the money':
						set money += 1000
						set nikslut = 1
						gt 'kitchen'
						end
					act 'Do not take money':
						cla
						set niksvid = 1
						'You look at the money at him and then stick in him a slap with the words, "I´m not a whore, and for the money do not fuck."'
						'He looks at you a little dumbfounded, "Okay," says Nicholas and out of the kitchen.'
						act 'Back to business': gt 'kitchen'
						end
					end
				act 'Anal':
					cla
					*clr
					set nik += 2
					set cumassin += 1
					'<center><img src="images\img\centr\kitchenanal.jpg"></center>'
					'Not turning to him you take a little oil and lubricate them anus, buttocks Spreading through your anus second rests his cock, he quickly comes into you and you will not hurt so much and even nice when his cock fucks your ass. You moan and diligently podmahivat him, he soon discharged you. He hands you a 2000 rubles.'
					act 'Take the money':
						set money += 2000
						set nikslut = 1
						gt 'kitchen'
					end
					act 'Do not take money':
						cla
						set niksvid = 1
						'You look at the money at him and then stick in him a slap with the words, "I´m not a whore, and for the money do not fuck."'
						'He looks at you a little dumbfounded, "Okay," says Nicholas and out of the kitchen.'
						act 'Back to business': gt 'kitchen'
					end
					end
				end
			if nikslut = 1:
				cla
				*clr
				set SUB += 1
				set nikslutrand = rand(0,1)
				if nikslutrand = 0:
					set bj += 1
					set cumlip += 1
					set money += 500
					'<center><img src="images\img\centr\kitchenminet.jpg"></center>'
					'He walks up to you and put his hand on his shoulder otuskaet lap. Quickly realizing that he wants you open your mouth and suck obediently until he fills your mouth with his sperm, it leaves you 500 rubles. and leaves.'
					if horny > 60:
						cla
						set orgasm += 1
						set horny = 0
						'You´re too excited to think that-about something other than sex, you have to take care of herself'
						act 'Hand':
							cla
							*clr
							'<center><img src="images\img\th\m0.jpg"></center>'
							'Lowering his hand to the crotch you have inserted a couple palichikov their pussy and began to actively move them bringing themselves to orgasm.'
							act 'Back to business': gt 'kitchen'
							end
						act 'Improvised means':
							cla
							*clr
							'<center><img src="images\img\th\m1.jpg"></center>'
							'You got out of the fridge cucumber, licked it ruled on their pussy. Cucumber was cold, and at first you start to disappear excitement, but soon gave new chill feeling and you start to like it, cool cucumber moved to your pussy. You opened the fridge to plow and settled closer to him, you chill ran back and skin crawled. Only your pussy remained razgorechennoy and soon enveloped you pleasure. Came a little you took already warmed cucumber and closed the refrigerator, looking for cucumber you decide to put it on salad and even the hostess did not wash, it will be a special taste.'
							act 'Back to business': gt 'kitchen'
							end
						end
					act 'Back to business': gt 'kitchen'
					end
				if nikslutrand = 1:
					set anal += 1
					set cumass += 1
					set money += 1000
					'<center><img src="images\img\centr\kitchenanal.jpg"></center>'
					'He walks up to you and you lifted up her skirt spreads buttocks, you barely have time to lubricate the anus before he force pushes his dick in it, you stand in silence and wait until he finishes, to Nicholas vyterat your body on your ass and leave you 1000 rubles . leaves.'
					if horny > 60:
						cla
						set orgasm += 1
						set horny = 0
						'You´re too excited to think that-about something other than sex, you have to take care of herself'
						act 'Hand':
							cla
							*clr
							'<center><img src="images\img\th\m0.jpg"></center>'
							'Lowering his hand to the crotch you have inserted a couple palichikov their pussy and began to actively move them bringing themselves to orgasm.'
							act 'Back to business': gt 'kitchen'
							end
						act 'Improvised means':
							cla
							*clr
							'<center><img src="images\img\th\m1.jpg"></center>'
							'You got out of the fridge cucumber, licked it ruled on their pussy. Cucumber was cold, and at first you start to disappear excitement, but soon gave new chill feeling and you start to like it, cool cucumber moved to your pussy. You opened the fridge to plow and settled closer to him, you chill ran back and skin crawled. Only your pussy remained razgorechennoy and soon enveloped you pleasure. Came a little you took already warmed cucumber and closed the refrigerator, looking for cucumber you decide to put it on salad and even the hostess did not wash, it will be a special taste.'
							act 'Back to business': gt 'kitchen'
							end
						end
					act 'Back to business': gt 'kitchen'
					end
				end
			end
		'You cooked a meal'
		act 'Finish': gt 'kitchen'
		end
	end

if pranik > 0:
	act 'Drink tea with cookies (0:15)':
		cla
		*clr
		minut += 15
		pranik -= 1
		set health += 30
		set manna += 100
		energy += 20
		water += 20
		fat += 50
		frost = 0
		gs 'stat'
		'<center><img src="images\pics\food.jpg"></center>'
		'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
		act 'Get up from the table': gt 'kitchen'
		end
	end

if edaD > 0:
	act 'Eat diet food (0:30)':
		cla
		*clr
		frost = 0
		'<center><img src="images\pics\food.jpg"></center>'
		set minut += 30
		set health += 10
		set manna += 20
		set edaD -= 1
		if energy >= 30:
			'You can no longer have.'
			end
			if energy >= 20 and energy < 30:
			set energy += 10
			'You pushed through the power of a meal.'
			end
			if energy < 20:
			set energy += 20
			'You gladly ate cooked food.'
			end
			if water >= 20:
			'Tea in you no longer climbs.'
			end
			if water < 20:
			'You gladly drank a mug of tea.'
			set water += 20
			end
		act 'Get up from the table': gt 'kitchen'
		end
	end

if fatdel > 0:
	act 'Consume fat burners':
		cla
		*clr
		set fatdel -= 1
		set fat -= 25
		if fat < 0: fat = 0
		'You drank fat burning capsule. These capsules are gradually and results will be seen immediately.'
		act 'Get up from the table': gt 'kitchen'
		end
	end

act 'Drink':
	cla
	set minut += 5
	if water >= 20:
		'Water in you no longer climbs.'
		end
	if water < 20:
		'You gladly drank a glass of water.'
		set water += 20
		end
	act 'Get up from the table': gt 'kitchen'
	end
if lekarstvo > 0:
	'You have <<lekarstvo>> tablets.'
	if sick > 0 and lekarday ! day:
		act 'Take a pill':
			cla
			*clr
			set minut += 5
			lekarday = day
			lekarstvo -= 1
			sick -= sick * 20/100
			set lekrand = RAND(0,8)
			if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
			if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
			if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
			if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
			if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
			if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
			if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
			if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
			if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
			'You drank the pill'
			act 'Move away': gt 'kitchen'
			end
		end
	end

if vitamin > 0:
	'You have <<vitamin>> vitaminok.'
	if vitaminday ! day:
		act 'Drink Vitamins':
			cla
			*clr
			set minut += 5
			set vitaminday = day
			set vitamin -= 1
			set frost = 0
			set skinvan += 1
			if skinvan = 20: set skinvan = 0 & set skin += 1
			'You drank Vitaminki'
			act 'Move away': gt 'kitchen'
			end
		end
	end
set housekitrand = rand(0,10)
if nikslut = 1 and hour > 17 and hour < 20 and housekitrand > 8 and niksexday ! day:
	cla
	*clr
	set SUB += 1
	set guy += 1
	set minut += 20
	set niksexday = day
	set money += 2000
	set picrand = 36
	'<center><img src="images\img\th\s1.jpg"></center>'
	'Nicholas went to the kitchen with another man "<<$name>>, feed us," he said. You get all warmed up and began to wait when they will eat. When they finished Nicholas looked at you and said, "Thank you, everything was tasty <<$name>>, where the dessert?" You frantically began to think that they give for dessert, because you have not cooked anything. "Yes you wait" said Nikolai see your kitchen by throwing in search of dessert, "You do not understand, so let this dessert," he said, slapping you on the ass. You sigh of relief, so this dessert you always at the ready. You get everything cleaned off the table and do not have got it.'
	act 'Start': xgt 'sexdvoe','var'
	end
--- kitchen ---------------------------------

# Kwlake1
clr
gs 'stat'
'<center><img src="images\img\Lake\kwlake1\kwlake1.jpg"></center>'
'Walking along the beach you notice unusual stone shapes resembling dildo.'
'"Look how cool" interrupting you Kat story about some guy pointing at the stone.'
'Kate raises stone, inspects and laughing puts it in his mouth blow job portraying'
act 'Laugh.': gt 'Kwlake1','end'
act 'Fondle her.':
	cla
	*clr
	set kat += 5
	set lesbian += 1
	'<center><img src="images\img\Lake\kwlake1\kwlake2.jpg"></center>'
	'You Spit pubis Katie, and descends below his hand running his fingers over her pussy. Kat little straddle, you go down on your knees and kiss her crotch, slowly moving to her pussy and starting to caress her tongue.'
	act 'Lie down':
		cla
		*clr
		set kuni += 1
		'<center><img src="images\img\Lake\kwlake1\kwlake3.jpg"></center>'
		'You lie on the sand, Kate gives you the stone, and she spends the language of your razgorechenomu body from neck to crotch and begins to caress your tongue. You are so excited that without noticing take a stone in his mouth and start to suck it. Kat you are so enthusiastic about each other that nazametili approached the guy, he has meanwhile play their yaldu a few minutes you will notice it.'
		act 'Leave': gt 'Nudelake'
		act 'Man beckon':
			cla
			*clr
			set kat += 5
			set mastr += 1
			set orgasm += 1
			'<center><img src="images\img\Lake\kwlake1\kwlake4.jpg"></center>'
			'You beckon Man, he comes and stops in indecision, not knowing who to approach you or Kate. But Kate did not give him a long time to arrive in thought, turning to him Kate grabbed his dick lips, leaving your expiring pussy alone, but you are not taken aback by inserting a stone at her, began to masturbate until you have brought yourself to orgasm.'
			act 'Approach the Cat':
				cla
				*clr
				'<center><img src="images\img\Lake\kwlake1\kwlake5.jpg"></center>'
				'While you have already masturbated Kate straddled Man, you come to it apply the stone to his pubis, Kate with a smile enough Kamet lips licking your juices from it.'
				act '...':
					cla
					*clr
					set anal += 1
					'<center><img src="images\img\Lake\kwlake1\kwlake6.jpg"></center>'
					'Katya guy posing on all fours and enters her ass, you also get up on all fours ass turning to Kate and give her the stone. Kat is not thinking long stone inserts in your anus.'
					act '...':
						cla
						*clr
						'<center><img src="images\img\Lake\kwlake1\kwlake7.jpg"></center>'
						'Sated Katina ass guy puts her on her knees and cums in her mouth'
						act 'Leave': gt 'Nudelake'
						end
					end
				end
			end
		end
	end

if $ARGS[0] = 'end':
cla
'"Pervert" laughing at you'
'"What an easy blowjob stone god can make my guy eternal risers." Kate laughs and throws a rock and returns to its Raskaz.'
act 'Finish': gt 'Nudelake'
end
--- Kwlake1 ---------------------------------

# Kwlake2
clr
gs 'stat'
'<center><img src="images\img\Lake\kwlake2\kwlake1.jpg"></center>'
'Walking along the beach you notice a man sitting alone.'
'"Let´s sit here not much" Katia offers.'
act '"No, let´s go."': gt 'Nudelake'
act '"Come on."':
	cla
	*clr
	set kat += 5
	'<center><img src="images\img\Lake\kwlake2\kwlake2.jpg"></center>'
	'You sodites nedoleko of men, Kate starts stroking your pussy and kissing his chest, you watch the corner of my eye a man, seeing this view he perked up, rolled over and slid under her arm.'
	act '"Kat. Enough, went away"': gt 'Nudelake'
	act 'Call a man':
		cla
		*clr
		set kat += 5
		set kuni += 1
		set bj += 1
		'<center><img src="images\img\Lake\kwlake2\kwlake3.jpg"></center>'
		'When Kate starts to lick your pussy, you beckon a man, he quickly jumps up and runs over to you, taking on the go pants. Man ran up opuskaetsyaryadom with you on your knees, poking his cock in your face. Once you had preotkryt mouth as he once put it in his penis and not waiting when you start to suck, fuck your mouth started.'
		act '...':
			cla
			*clr
			set sex += 1
			'<center><img src="images\img\Lake\kwlake2\kwlake4.jpg"></center>'
			'When he was tired of your mouth, he lay on his back, and you put on yourself, back to him. Kate stood over you substituting her pussy to your mouth. While the man handles your vagina, you licked Kat and it soon bore fruit. Kate hugged you tightly clenched to her pussy and you felt like she shuddered and her juices flowed into your mouth.'
			act '...':
				cla
				*clr
				set cumlip += 1
				set orgasm += 1
				'<center><img src="images\img\Lake\kwlake2\kwlake5.jpg"></center>'
				'Soon the man removed you from yourself and putting on his knees again put his dildo into your mouth. Kate also settled down under you, caressing your tongue clitoris. You feel like your bosom pleasant warmth spreads, you clung more to Kat literally pushing her head in the sand. Dick in your mouth and you, too, trembled finished almost simultaneously, a man poured your mouth with his sperm, and your juices flowed in her mouth Katie.'
				act 'Leave': gt 'Nudelake'
				end
			end
		end
	end
--- Kwlake2 ---------------------------------

# lezbsex
if $ARGS[0] = 'start':
gs 'stat'
set picrand = RAND(0,1)
set girl += 1
set lesbian += 1
if tanznak = 1:
	set picrand = 12
	set tanznak = 2
	end
xgt 'lezbsex','var'
end

if $ARGS[0] = 'var':
gs 'stat'
if picrand ! 11: act 'Cooney': gt 'lezbsex','kuni'
act 'Make Cooney': gt 'lezbsex','ukuni'
if picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21: act 'Anulingus': gt 'lezbsex','anuli'
if picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21: act 'Make anulingus': gt 'lezbsex','uanuli'
if strapon = 1 and picrand ! 11 and picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 19 and picrand ! 20 and picrand ! 21 and picrand ! 22:
	act 'Strap-on pussy': gt 'lezbsex','svag'
	act 'Strap-on in the ass': gt 'lezbsex','sanal'
	act 'Strap on your pussy': gt 'lezbsex','usvag'
	act 'Strap you in the ass': gt 'lezbsex','usanal'
	end
if dildo = 1 and picrand ! 12 and picrand ! 19 and picrand ! 20 and picrand ! 22:
	act 'Dildo in pussy': gt 'lezbsex','dvag'
	if picrand ! 11 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21: act 'Dildo in the ass': gt 'lezbsex','danal'
	if picrand ! 11: act 'Dildo in the pussy you': gt 'lezbsex','udvag'
	if picrand ! 11 and picrand ! 14 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21: act 'Dildo you in the ass': gt 'lezbsex','udanal'
	end
end

if $ARGS[0] = 'ukuni':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\ukuni<<picrand>>.jpg "></center>'
'You kiss her breasts moving eventually going down lower and lower and now its current before you pussy, you begin to caress her tongue sponges, setting the stage for his tongue between them touch the clitoris, she pushes her lips with your fingers that nothing had prevented you caress the clitoris.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'kuni':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\kuni<<picrand>>.jpg "></center>'
'Girl holds his tongue over your thighs, crotch and kisses down to the vagina, her tongue slides over your crotch then caressing the clitoris is penetrating the vagina.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'anuli':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\anuli<<picrand>>.jpg "></center>'
'She kisses your buttocks priblezhayas moving eventually to the center, reaching a goal, she spends the language of your anus and then shoves it inside your buttocks, prints and again licking the anus, then all repeated.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'uanuli':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\uanuli<<picrand>>.jpg "></center>'
'You lick her buttocks priblezhayas moving eventually to the center, reaching anus, his tongue on his tongue and get inside her buttocks, removing and again licks anus.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'svag':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
set DOM += 1
'<center><img src="images\img\lezbsex\svag<<picrand>>.jpg "></center>'
'You wear the strap and insert in her pussy, she yells while you fuck her.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'sanal':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
set DOM += 2
'<center><img src="images\img\lezbsex\sanal<<picrand>>.jpg "></center>'
'You wear the strap and gently insert it into the anus of girls starting to fuck her ass medleno first then faster and faster.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'usvag':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\usvag<<picrand>>.jpg "></center>'
'Girl inserts strap you in the pussy, she moves back and forth bringing you pleasure.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'usanal':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\usanal<<picrand>>.jpg "></center>'
'Girl spits on you ass, collects saliva strap tip and inserts it into the anus to you, you feel like it is moving in your ass with every thrust faster and deeper.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'dvag':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\dvag<<picrand>>.jpg "></center>'
'You take a dildo and poke her pussy, she kisses you while you are driving with one hand and the second dildo caress her breasts.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'danal':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\danal<<picrand>>.jpg "></center>'
'You take a dildo, licking it, trying to leave it on the maximum amount of saliva, and gently insert into the anus girls starting to fuck her ass dildo medleno first then faster and faster.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'udvag':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\udvag<<picrand>>.jpg "></center>'
'Girl inserts dildo in pussy you, it moves it back and forth while constantly provarachivaya it dildo in her hands to get better any member.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'udanal':
cla
*clr
set horny += 10
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 5
'<center><img src="images\img\lezbsex\udanal<<picrand>>.jpg "></center>'
'Girl spits on you ass, collects saliva tip dildo and inserts it into the anus to you, you feel like it stretches your anus, bringing you pleasure.'
act 'More': xgt 'lezbsex','var'
act 'Leave': gt 'lezbsex','end'
end

if $ARGS[0] = 'end':
cla
if picrand = 22: gt 'down'
if picrand = 21: gt 'vann','start'
if picrand = 19 or picrand = 20: gt 'office','work'
if tanznak = 2: gt 'fit','razd'
gt $sexloc,'start'
end
--- lezbsex ---------------------------------

# masharoom
if $ARGS[0] = 'start':
cla
*clr
gs 'stat'
if hour >= 7 and hour <= 20:
	'<center><img src="images\img\masha\r1.jpg"></center>'
	'Konata Masha obsharpannosti huge room with walls and many kinds of sex toys and accessories.'
	'Masha is not, and this door softy forgot to close.'
	act 'Wait an hour':
		set minut += 60
		if hour >= 7 and hour <= 20: gt 'masharoom','start'
		if hour < 7 or hour > 20: gt 'masharoom','0'
		end
	act 'Trying on costumes':
		cla
		*clr
		set minut += 60
		set mashroomrand = RAND(0,10)
		if mashroomrand = 10: gt 'masharoom','1'
		if mashroomrand = 9: gt 'masharoom','2'
		'<center><img src="images\img\masha\r2.jpg"></center>'
		'You is interested suits hanging on the walls and you have decided to try a few for yourself.'
		act 'Finish': gt 'masharoom','start'
		end
	act 'Leave': gt 'sexshop','podval'
	end
if hour < 7 or hour > 20: gt 'masharoom','0'
end

if $ARGS[0] = '0':
gs 'stat'
cla
*clr
'<center><img src="images\img\masha\r0.jpg"></center>'
'Konata Masha obsharpannosti huge room with walls and many kinds of sex toys and accessories.'
'Masha was lying half naked on the bed.'
if month > 5 and temper > 20 and osadki < painweather:
	act 'Even walk on a leash':
		cla
		*clr
		set DOM += 1
		set minut += 60
		'<center><img src="images\img\masha\r30.jpg"></center>'
		'Masha you put a collar and print out the back door onto the street to the nearest doorway. Masha seems not even ashamed that someone could you see her on a leash paces briskly on all fours and a couple of times, even urinating on the sidewalk. Portraying a contented dog, then rubs on your feet, then licks shoes.'
		act 'Make sweeping street':
			cla
			*clr
			set DOM += 1
			'<center><img src="images\img\masha\r31.jpg"></center>'
			'You give her a broom and sweep the street order. Masha quickly jumps and starts diligently revenge such janitor perhaps no one has yet seen.'
			act 'Compliment':
				cla
				*clr
				'<center><img src="images\img\masha\r32.jpg"></center>'
				'"Well done, good job here is your reward." With these words, you are strapped to his thigh dildo. Masha went quickly to you and turned carefully planted on dildo pussy. You stood leaning his hand on her back and looked like Masha yarosno put on dildo hips swaying to the beat of her movements. A few minutes later Masha started and jumped off with dildo knelt down, catching her breath she carefully licked all their selections with a dildo and began to lick your shoes. "Everyone went home" you said gently pulling leash.'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Punish':
				cla
				*clr
				'<center><img src="images\img\masha\r33.jpg"></center>'
				'"Bad, very bad you should be punished" with these Slovan you took her broom. "Stoop" commanded you, Mary obediently turned to you and bent backwards. You began to whip her buttocks with a broom, a few bumps you notice that her face shed tears, but she continued to stand silently, suffering blows. When you have finished her ass was crimson red, Masha quickly dropped to all fours and cautiously approached the beginning you rub on your feet, "Okay, let´s go home" you said patting her head, Mary immediately perked up and went happily next to you.'
				act 'Finish': gt 'masharoom','start'
				end
			end
		act 'Finish': gt 'masharoom','start'
		end
	end
act 'Play with a candle':
	cla
	*clr
	set minut += 60
	set lesbian += 1
	set DOM += 1
	'<center><img src="images\img\masha\r34.jpg"></center>'
	'You order Masha licking and she immediately drops to his knees in front of you. Her tongue slides over your crotch nearly bringing you to orgasm, you pull up and order her to insert in place of the strap candle. Masha little fiddle finally adjusts the candle, and puts this design for you.'
	act 'Order to suck':
		cla
		*clr
		'<center><img src="images\img\masha\r35.jpg"></center>'
		'You order her suck a candle and she passionately jumped on her and began sucking furiously. Masha bends over backwards then caressing her tongue in the cheek then the plant. A few minutes later you get tired of it.'
		act 'Pour the wax into the mouth':
			cla
			*clr
			'<center><img src="images\img\masha\r36.jpg"></center>'
			'"And now I´m going to cum in your mouth" with these words, you burned the candle wick. Masha without waiting for your orders located under candle mouth wide open. Wax began to melt and drain it into his mouth. Masha catching every drop with her whole body shook with pain, but she continued. Soon you will have noticed that her hands were clenched thighs, which have already started to shudder, you realize that it ends when another drop fell into her mouth, Mary cried, stronger hands gripped her hips and throughout the body probeschala cramp, she came from the pain " And she really turned on the pain and submission. " thought you extinguishing a candle. "Relax," you threw her and she immediately curled up on the floor.'
			act 'Finish': gt 'masharoom','start'
			end
		act 'Pour the wax on his chest':
			cla
			*clr
			set orgasm += 1
			'<center><img src="images\img\masha\r37.jpg"></center>'
			'"And now I´m going to cum on your chest, lie down." With these words, you burned the candle wick. Masha quickly lay on the floor, you sat on. Sun started to drip on her chest she shuddered every drop tihoniko and moaning. Every time a drop fell on the nipple of her body shook harder and you start it gets you started on your nipples to aim and soon your pussy was very wet, and her whole chest is filled with wax on so that the remaining drops are no longer does cause her pain.'
			act 'Give her to lick':
				cla
				*clr
				'<center><img src="images\img\masha\r38.jpg"></center>'
				'You threw off their makeshift strap, and sat turning her face. Masha did not make them wait immediately set in motion the language. She did not take much time, you were so excited that in a few seconds you covered orgasm.'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Meet each other':
				cla
				*clr
				'<center><img src="images\img\masha\r39.jpg"></center>'
				'You threw off their makeshift strap, and sat turning her face. Masha did not make them wait immediately set in motion the language, you leaned over her dripping pussy and naming conventions in her own language. You will not take long for the two of you were so excited that in a few seconds you both covered orgasm.'
				act 'Finish': gt 'masharoom','start'
				end
			end
		end
	act 'Fuck her':
		cla
		*clr
		'<center><img src="images\img\masha\r40.jpg"></center>'
		'You light a candle and get up on Masha so wax dripped on her buttocks. The wax melts and drips flowing down the candle on car ass, with every drop of Masha wails, but does not even try to pull away. A few minutes later her buttocks are covered with a layer of wax.'
		act 'Enter into it':
			cla
			*clr
			'<center><img src="images\img\masha\r41.jpg"></center>'
			'You extinguish the candle and stood until the wax candles smoothing edges. Masha all this time is still on his knees waiting for your instructions, you get up on her knees in back and put his hand on her back in front of the tilt, then you notice that all of her thighs wet from her discharge, it seems that it only excites pain, then a little vyreshaete change the target and raises just above the candle, delicious spit you enter a thick candle in her anus. Maria starts to cry and squirm all over, but does not even try to suspend you, and you continue to type. Giving her ass a little privvyknut to the size you start fucking her postepono speeding, Masha howls of pain but prodlzhaet diligently podmahivat you. a few minutes later Masha loud screams and goes limp, her legs her juice flowing. You pull out of its buttocks candle and Masha leans to one side, her face beatific smile. Now she can not do anything you have to stay in a makeshift strap.'
			act 'Finish': gt 'masharoom','start'
			end
		end
	end
act 'Order lick':
	cla
	*clr
	set minut += 60
	set lesbian += 1
	set DOM += 1
	set orgasm += 1
	'<center><img src="images\img\masha\r27.jpg"></center>'
	'You lie on a couch and Masha beckon you rskidyvaete legs and commanding "Lick" Masha immediately crouches lips against your crotch, you cast your leash her head and strongly attracted to her pussy. Her tongue slides over your crotch then caressing the clitoris is penetrating the vagina, you´ll soon feel like an orgasm become closer.'
	act 'Continue':
		cla
		*clr
		'<center><img src="images\img\masha\r29.jpg"></center>'
		'You jump on the sofa and pulls her leash to her vagina. Just a few deft movements of the tongue and your juices filled her mouth.'
		act 'Finish': gt 'masharoom','start'
		end
	act 'Ordered to lick ass':
		cla
		*clr
		'<center><img src="images\img\masha\r28.jpg"></center>'
		'You climb on the couch on all fours and spending leash between her legs pulling her to her ass. Masha kisses your buttocks priblezhayas moving eventually to the center, reaching a goal, she carefully licks your anus then pushes tongue inside your buttocks, and again displays licking anus. After a couple of minutes of such manipulations with your anus, you end.'
		act 'Finish': gt 'masharoom','start'
		end
	end
act 'Play a little':
	cla
	*clr
	set minut += 60
	set DOM += 1
	set lesbian += 1
	'<center><img src="images\img\masha\r42.jpg"></center>'
	'You go up to Masha and hugged her from behind start stroking his chest, then go to the nipples, first pulling them tight squeeze then turning them in different directions. Masha meanders all body teryas ass on your hips.'
	act 'Continue to play with breast':
		cla
		*clr
		'<center><img src="images\img\masha\r44.jpg"></center>'
		'You loshites on the bed and Meshe order to kneel at your feet. You abut feet in heels and her breasts begin to apply pressure on the nipples first softly, then harder and harder. The harder you pressed the heel in her breasts, the more she moans, you´ll soon notice that her legs are already flowing juice, she´s so excited that here now to finish.'
		act 'Activities her pussy':
			cla
			*clr
			set picrand = RAND(49,51)
			'<center><img src="images\img\masha\r<<picrand>>.jpg "></center>'
			'You grab the whip from the table and literally stabs her in the car rukoyadkoy pussy, she screams and starts moaning. You force fuck her rukoyadkoy soon Masha starts to cum and she poured out a stream of juice.'
			act 'Further':
				cla
				*clr
				set orgasm += 1
				'<center><img src="images\img\masha\r64.jpg"></center>'
				'You do not hold back and cling to her pussy lips starting to lick its release, and you are not expecting it ends.'
				act 'Finish': gt 'masharoom','start'
				end
			end
		end
	act 'Let kisses your breasts':
		cla
		*clr
		'<center><img src="images\img\masha\r45.jpg"></center>'
		'You grab her by the hair and pulls his chest. Masha bites you in the chest with his lips, then kissing her trying to tighten the whole mouth, the tongue tickling her nipples.'
		act 'Order lick':
			cla
			*clr
			set orgasm += 1
			set picrand = RAND(46,48)
			'<center><img src="images\img\masha\r<<picrand>>.jpg "></center>'
			'You order Masha lick your pussy and she immediately glares at her with my tongue, her nimble tongue minute later almost brings you to orgasm.'
			act 'Let continues':
				cla
				'You did not stop it, and a few seconds later you covered orgasm.'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Mark strapon':
				cla
				*clr
				set picrand = RAND(53,54)
				'<center><img src="images\img\masha\r<<picrand>>.jpg "></center>'
				'You stop it and bring order strap, Masha brings and helps you put it. When you are wearing the strap literally plunges it into his mouth, Mary begins to suck it as if her mouth real dick.'
				act 'In pussy':
					cla
					*clr
					set picrand = RAND(57,63)
					'<center><img src="images\img\masha\r<<picrand>>.jpg "></center>'
					'Removing it from the machine mouth, you put it in her pussy. Masha moans and actively podmahivaet your movements to the beat. Soon she ends violently publishing moan. You end it after making a few more strong, broad thrusts.'
					act 'Finish': gt 'masharoom','start'
					end
				act 'In the ass':
					cla
					*clr
					set picrand = RAND(55,56)
					'<center><img src="images\img\masha\r<<picrand>>.jpg "></center>'
					'Removing it from the machine mouth, you insert it with force in her anus. Masha moans and actively podmahivaet your movements to the beat. Soon she ends violently publishing moan. You end it after making a few more strong, broad thrusts.'
					act 'Finish': gt 'masharoom','start'
					end
				end
			end
		end
	act 'Let caresses your pussy':
		cla
		*clr
		'<center><img src="images\img\masha\r43.jpg"></center>'
		'You take her hand and napravlete his crotch, Masha started stroking your pussy fingering clit. Her nimble fingers almost brought you to orgasm'
		act 'Let continues':
			cla
			'You did not stop it, and a few seconds later you covered orgasm.'
			act 'Finish': gt 'masharoom','start'
			end
		act 'Order to take a dildo':
			cla
			*clr
			'<center><img src="images\img\masha\r52.jpg"></center>'
			'Masha you order take dildo. She takes it and sends you a pussy. You do not require a lot of time and your razgorechennaya her fingers pussy, a few minutes later came. When you are finished, Mary took the dildo from you and start to suck him a second hand toying her pussy a few seconds later she came.'
			act 'Finish': gt 'masharoom','start'
			end
		end
	end
act 'Leave': gt 'sexshop','podval'
end

if $ARGS[0] = '1':
gs 'stat'
cla
*clr
'<center><img src="images\img\masha\r3.jpg"></center>'
'Wearing regular attire, you feel yourself on someone´s opinion, carefully turning his head, you see that the door is not completely closed, and through a crack at you who is watching.'
act 'Close the door': gt 'masharoom','start'
act 'Tease':
	cla
	*clr
	set horny += 20
	'<center><img src="images\img\masha\r4.jpg"></center>'
	'You sit back and legs spread wide, so that the crotch was visible from the door, running his hand into her panties and starts stroking herself, soon you will hear the sound of the door unzips and soon heard heavy breathing.'
	act 'Continue':
		cla
		set orgasm += 1
		'You continue to massage your clitoris, and the realization that someone at this time looks at you and fingering only strengthens your arousal leading to rapid orgasm. When you have ended then noticed how white liquid jet flew into the room through the gap, your supervisor came too.'
		act 'Finish': gt 'masharoom','start'
		end
	act 'Call him':
		cla
		*clr
		set kuni += 1
		'<center><img src="images\img\masha\r5.jpg"></center>'
		'"Hey, you want to lick?" you asked looking at the door. It was quiet for a few seconds, you really thought that you thought no one there and no, but soon the door creaked and threshold guy came, it was a pimply-faced college boy, he stood on the verge of not knowing what to do.'
		'"My suggestion has validity and it is now expired, or you lizhish or went out of here. And as a bonus, if it is good lick, I´ll masturbate." you said, looking at him with a satisfied smile.'
		'The guy finally decided to come to you and knelt down and began to lick your pussy, his movements were not nimble and clumsy, he hardly keeps you excited.'
		act 'Let licks ass':
			cla
			*clr
			'<center><img src="images\img\masha\r6.jpg"></center>'
			'You razvoratsivaetes and substituting his ass, saying that he licked her, the guy starts to drive carefully on the language of your buttocks, in a minute you get tired of it and pump the words "Lick Point" you grab the guy´s head and presses his lips to his anus, he starts to kiss him and then floats language. Gradually you begin to like it and you let go his head relax, have fun. A few minutes later he prekrazhaet and only you are going to yell at him again as you feel rested in the pussy his cock.'
			act 'Post':
				cla
				*clr
				set guy += 1
				set sex += 1
				'<center><img src="images\img\masha\r8.jpg"></center>'
				'"Do not you have an invitation to give a pisminom, come already." you said and then his cock went in you but yet not for long. You do not even have time to really feel his cock like a guy all Difficult and began to finish, you barely had time to jump off of his cock and then he is dead on the floor. "Get out, impotent unfortunate", the heart you threw. The guy ran out of the room by finding wearing pants.'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Punish':
				cla
				*clr
				set DOM += 1
				'<center><img src="images\img\masha\r9.jpg"></center>'
				'"Do not hurry, give first taste try" you say turning her head. Joyful guy runs up to you, jabbing his cock in your face. You take his penis in his hand and tongue spend on the head, he relaxes ready to have fun, but after a moment, his face distort in pain, you grabbed him by the balls and squeezed them ssiloy. "Well suchenok decided that you can fuck me like that, I told you that you can only masturbate." With these words, you yank down his balls and the guy drops to his knees. Releasing his balls you hit in the face with his foot, and when he natsinaet otpolzat to the exit, customize it kicks in the ribs. Lastly, when he crawls on all fours through the door you come to him from behind and swung strongly that there is a way to beat the foot in the balls, man tumbled continues its way down the corridor screaming loudly.'
				act 'Finish': gt 'masharoom','start'
				end
			end
		act 'Sit on face':
			cla
			*clr
			set orgasm += 1
			'<center><img src="images\img\masha\r7.jpg"></center>'
			'When you are tired of his inept actions, we decided to take matters into their own hands, or rather feet, and commanded the guy to go to. He quickly decided to lay down what you want him to please, but you sat on his face and began to actively crawl on it pussy. The guy was trying to help you, but I could not get into a rhythm, and you end up grabbing his hair and fixed his head-that would not interfere. After a few minutes you manage to finish, you frantically moved his feet almost strangled guy. You moved a little giving him air, his face dripping drops of your juice.'
			act 'Take by mouth':
				cla
				*clr
				set bj += 1
				set cumlip += 1
				'<center><img src="images\img\masha\r10.jpg"></center>'
				'You turn around right at him and his cock hand vskhvativ run it in his mouth, the guy immediately bites tongue in your pussy, and then you chustvuete his penis in your mouth starts to cum. "Skorostrel damn" flashed through your head when jet of sperm filled your mouth. You spat out his penis together with sperm, otplevavshis expelled guy out.'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Saddle':
				cla
				*clr
				set guy += 1
				set sex += 1
				'<center><img src="images\img\masha\r11.jpg"></center>'
				'You move to his cock and took him in hand are pointing their pussy, you do not even have time to introduce his cock to the end, as pochuvstovat that he is about to finish. You jumped off his cock and he came over. Guy all flushed and he began leptat perevozbudilsya etc. etc. you just grinned "Run from here skorostrel."'
				act 'Finish': gt 'masharoom','start'
				end
			act 'Wank hands':
				cla
				*clr
				set hj += 1
				'<center><img src="images\img\masha\r12.jpg"></center>'
				'You sleli with a guy and taking his cock in his hand began to masturbate, you took a few movements and the guy groaned ready to finish.'
				act 'Further':
					cla
					*clr
					set cumlip += 1
					set cumface += 1
					'<center><img src="images\img\masha\r14.jpg"></center>'
					'You made a few movements and his cock spurted semen jet was quite powerful and sperm gets into your mouth, face and flooded your chest.'
					act 'Finish': gt 'masharoom','start'
					end
				end
			act 'Wank-feeding':
				cla
				*clr
				'<center><img src="images\img\masha\r13.jpg"></center>'
				'You squeezed his cock muzhdu her breasts and began to masturbate him with them, after a few seconds, you feel that your breasts between his cock already very swollen and began to shudder ready to finish.'
				act 'Further':
					cla
					*clr
					set cumlip += 1
					set cumface += 1
					'<center><img src="images\img\masha\r14.jpg"></center>'
					'You tried to pull away from him, that would not get dirty, but it was too late his cock spurted semen jet was quite powerful and sperm gets into your mouth, face and flooded your chest.'
					act 'Finish': gt 'masharoom','start'
					end
				end
			end
		end
	end
end

if $ARGS[0] = '2':
gs 'stat'
cla
*clr
set guy += 1
'<center><img src="images\img\masha\r20.jpg"></center>'
'Trying another Machine outfit you wear leather hand cuffs fastens between carbine and behold, terror fasten it to you but was easily remove it alone does not work, you frantically began trying to break free, when someone pulled on the leash you hitched to dressed to the neck collar. First you happy even deciding that it returned Masha, but turned to see a man in front of him and a large kozhzhanaya blade in his hand suggests that now you will be hurt, and that nothing you forgot to close the door. Meanwhile man looked at you, "I see you waiting for me, well, now let´s play.".'
'"Please help me take it off," you started handing him manacled hands, still hoping that he will not touch you. "Shut up bitch slave should not speak without permission of the owner, got on her knees and opened her mouth, quickly." he shouted.'
act 'You keep asking for release.':
	cla
	*clr
	set mop = 0
	set rape += 1
	set anal += 1
	'<center><img src="images\img\masha\r21.jpg"></center>'
	'"Oh, you bitch unruly. Now I´ll teach you to obey." With these words he threw you on the couch. You were on the couch with his back to him, his eyes he nyatyanul you bandage and you only hear how your back rastegivat belt and falls to the floor, in a second you put his anus hard hot cock. "Please do not" reprimand you are already aware that your words did not stop what happened ssiloy man shoved dildo ass you, you cried in pain pierced your anus. "Let´s yell louder, now turn to line up your ass," he said with a grin and continued to drive a screw into your anus. You bite the bullet and deprive quietly wept slightly squealing with every jolt, realizing that he was right, because you are tied in the basement of a sex shop, which is full of perverts and your screams can be lined up.'
	act 'Tolerate':
		cla
		set cumanus += 1
		'Deciding that your prayers only angered him more you bite the bullet and waited until he had finished. He fucked you a long time, driving his cock to the balls when you could no longer cry and the couch was wet with your tears, he finally came, filling your ass with his sperm. You collapsed on the couch shivering in mourning. "The next time you´re submissive bitch" and threw the man came out leaving the door to plow, so that you had a good view from the corridor. You got up and limped to the door slammed her. After a while you manage to undo the carabiner and you are released from the handcuffs.'
		act 'Finish': gt 'masharoom','start'
		end
	act 'Ask for release':
		cla
		*clr
		set cumlip += 1
		set cumface += 1
		set spank += 1
		set bj += 1
		set swallow += 1
		'<center><img src="images\img\masha\r22.jpg"></center>'
		'"Please enough, let me go" you cried. "There´s no way you´ll understand where your place, I look into your mouth do nothing, now I will correct it." With that, he walked around the couch and vskhvativ you so that you could not close his mouth, began to fuck you in it, and the second hand began to strike you on the buttocks with a spatula. When he began to finish what you stuck your dick right in the throat, you had to frantically swallow his cum-that would not suffocate. When he was finished then wiped his dildo on your face, and went out, finally causing you such a kick in the ass, that you flew off the couch onto the floor. You got up and limped to the door slammed her. After a while you manage to undo the carabiner and you are released from the handcuffs.'
		act 'Finish': gt 'masharoom','start'
		end
	end
act 'Submit':
	cla
	*clr
	set SUB += 2
	set bj += 1
	set swallow += 1
	set cumlip += 1
	'<center><img src="images\img\masha\r23.jpg"></center>'
	'You humbly knelt and opened his mouth. He put a blindfold on you and soon your lips prikasnulos something warm and solid. Catching member lips tightened in a rapidly into itself and began to suck yarosno all kind depicting a grateful slave. Soon you pochuvsvovali as a member in his mouth began to throb ready to finish. Jet of sperm hit your mouth, you immediately swallowed it and continued to suck dick when he took it, you opened your mouth and began to try to catch him blindly lips, depicting the passion-that would not anger him.'
	'"Good girl, good slave, and now lie on the couch," he said.'
	act 'Submit':
		cla
		*clr
		'<center><img src="images\img\masha\r24.jpg"></center>'
		'You blindly korachkah moved toward the couch, finding it difficult to lay down and waited. He sat down on top of you and you´ll feel his lips touching his penis, but this time it was not hard, you pulled him into her and started to suck again trying to pick it up, you will soon feel kakon began to increase. "That´s clever, well postoraysya, Now turn on the flank and open ass, and for your efforts we´ll smazhem it a little." With these words, he got off and lay down beside you.'
		act 'Turn':
			cla
			*clr
			set anal += 1
			set orgasm += 1
			set analorgasm += 1
			'<center><img src="images\img\masha\r25.jpg"></center>'
			'You turned on its side, putting his ass to his cock, he rubbed it and medleno introduced his penis into the anus of you, trying not to cause pain. You tried to push the buttocks with his hands, but his hands tied you are unable to do this, then he unclasped carbine on handcuffs. His cock was moving in your ass and you start to like it, you are diligent podmahivat in time with his movements. Soon you began to accelerate the movement and he sped along with you, penetrating deeper into you. In the process, he unrolled you several times without removing the penis from the anus and when he once again started to unwrap you on the other side, you covered the orgasm you tremble sharply moved up to him trying to absorb his term in itself as it can go. He made several strong aftershocks and finished rasdeliv cum so you part resulted in the ass and the rest on the buttocks. "And now, quickly open your mouth," he commanded vashevu rushing to face strong hand squeezing his penis'
			act 'Open mouth':
				cla
				*clr
				set cumlip += 1
				set swallow += 1
				'<center><img src="images\img\masha\r26.jpg"></center>'
				'You opened your mouth and the remnants of sperm poured into it. Waiting until you swallow cum, he again put dick in your mouth when you carefully licked his dildo, he put on his pants and let not the word went out, closing the door behind him.'
				act 'Finish': gt 'masharoom','start'
				end
			end
		end
	end
end
--- masharoom ---------------------------------

# Military
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
'<center><B><font color = maroon>polygon</font></B></center>'
'<center><img src="images\img\military\military.jpg"></center>'
'Full of people around, near the tent city, and many guys are running around with guns.'

act 'Work in the infirmary':
cla
set minut += 60
set sanrand = rand(0,10)
if sanrand = 0: gt 'Military','san0'
if sanrand = 1: gt 'Military','san1'
'You worked in the infirmary.'
act 'Exit': gt 'Military','start'
end

act 'Go to his tent': gt 'Palatka','start'

act 'Walking in the woods':
cla
set minut += 60
set milprorand = rand(0,10)
if milprorand = 0: gt 'Military','pro0'
if milprorand = 1: gt 'Military','pro1'
'You walk.'
act 'Finish': gt 'Military','start'
end

act 'There is a field kitchen':
	set minut += 30
	set health += 10
	set manna += 20
	set energy += 20
	set water += 20
	gs 'stat'
	end

if week < 6 or week = 7 and hour >= 18:
cla
set minut += 60
set money += 5000
act 'Go to town': gt 'street'
end
end

if $ARGS[0] = 'san0':
cla
*clr
'<center><img src="images\img\military\san0.jpg"></center>'
'During the examination, the patient shows you your erection and looks at you in anticipation of responses.'
act 'Drive away': gt 'Military','start'
act 'Post':
	set guy += 1
	set picrand = 41
	gt 'sex','minet'
	end
end

if $ARGS[0] = 'san1':
cla
*clr
'<center><img src="images\img\military\san1.jpg"></center>'
'While in the infirmary is unoccupied, the doctor begins to pester you.'
act 'Send': gt 'Military','start'
act 'Post':
	set guy += 1
	set picrand = 42
	gt 'sex','minet'
	end
end

if $ARGS[0] = 'pro0':
cla
'To suit you two guys and offer to help them in one game, play the role of a captive spy.'
act 'Refuse': gt 'Military','start'
act 'Agree':
	cla
	*clr
	'<center><img src="images\img\military\pro0.jpg"></center>'
	'You tie the hands and lead to the headquarters, where they represent a long interrogation, and then with the words "We will torture you" get members. That´s what you thought before allowing two burly men you associate.'
	act 'Submit':
		set guy += 2
		set SUB += 1
		set picrand = 21
		xgt 'sexdvoe','var'
		end
	end
end

if $ARGS[0] = 'pro1':
cla
'For you several minutes is what that guy'
act 'Disregard': gt 'military','rape'
act 'Run':
	if beg < 10: set peshimraperand = rand(0,11)
	if beg >= 10 and beg < 20: set peshimraperand = rand(0,20)
	if beg >= 20 and beg < 30: set peshimraperand = rand(0,30)
	if beg >= 30 and beg < 40: set peshimraperand = rand(0,40)
	if beg >= 40 and beg < 50: set peshimraperand = rand(0,50)
	if beg >= 50 and beg < 60: set peshimraperand = rand(0,60)
	if beg >= 60 and beg < 70: set peshimraperand = rand(0,70)
	if beg >= 70 and beg < 80: set peshimraperand = rand(0,80)
	if beg >= 80 and beg < 90: set peshimraperand = rand(0,90)
	if beg >= 90: set peshimraperand = rand(11,100)
	if peshimraperand < 11:
		cla
		'You tried to run away but the guy you caught'
		act 'Further': gt 'military','rape'
		end
	if peshimraperand > 10:
		'You are rushing headlong, crashing through the bushes. Finally, you ran to the polygon'
		act 'Further': gt 'military','start'
		end
	end
end

if $ARGS[0] = 'rape':
cla
*clr
set rape += 1
set bj += 1
set sex += 1
set guy += 1
set anal += 1
'<center><img src="images\img\military\rape1.jpg"></center>'
'You woke up in a certain barn with a bag on his head, his head ached badly from the impact.'
act 'Shout':
	cla
	*clr
	'<center><img src="images\img\military\rape2.jpg"></center>'
	'You began to cry, when you stuck in his mouth member.'
	'"Here´s the nipple to not scream" came the voice of a rapist.'
	'You tried to spit out a member, but this was worse, he thrust it down your throat, and began to fuck your mouth.'
	act 'Further':
		cla
		*clr
		'<center><img src="images\img\military\rape3.jpg"></center>'
		'When you have already started to lose consciousness, choking his cock in her throat, he took it out and threw you on what that box with the power you entered into the vagina, his cock pecked nischadno you, and you had to look at the leash him through tears.'
		act 'Further':
			cla
			*clr
			'<center><img src="images\img\military\rape4.jpg"></center>'
			'When your pussy bored him, and he turned you apart buttocks drove a screw you in the ass, you cried out in pain, but he did not care and he continued to fuck your ass as I could, you cried and begged him to even be lubricated, but in response heard only pleased sniff, Mom told you learn to run that would not hurt Ass.'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\military\rape5.jpg"></center>'
				'You do not remember how much time passed that you fainted then again came to himself, but in the end he pulled you from the box and you´re exhausted knelt down, he again stuck you dick in your mouth, with the words "Suck", you dutifully started dildo suck it, he has just brutally raped your anus, head wondered bite him, but knocked it a second thought, and suddenly not be able to do it then with my ass, finally he came in your mouth. And once you have lowered his head again as got hit on the head.'
				set cumlip += 1
				set mop = 0
				set minut += 240
				set SUB += 5
				act 'Further': gt 'military','start'
				end
			end
		end
	end
end
--- Military ---------------------------------

# Nudelake
gs 'stat'
'<center><B>nudist beach</B></center>'
'<center><img src="images\img\Lake\Nudelake.jpg"></center>'
'Here you can walk naked and no one will blame you.'
if hour >= 6 and hour <= 20:
'Here you can <a href="exec:gt ''Nudelake'',''zagarat''">tanning</a> and <a href="exec:gt ''Nudelake'',''swim''">swim</a>'
'And, you can play <a href="exec:gt ''Nudelake'',''voleybol''">beach volleyball</a>'
end

act 'Go to the main beach': gt 'lake','start'
if katday ! day and kat >= 1:
	'You see at the beach Cat.'
	act 'Approach the Cat':
		gt 'Katlake','kat'
		end
	end

if $ARGS[0] = 'voleybol':
cls
set minut += 1
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You came to the volleyball court.'
act 'Watch': gt 'Nudelake','smotr'
act 'Leave': gt 'Nudelake'
act 'Play':
	cla
	*clr
	set agil += 1
	set react += 1
	set speed += 1
	set minut += 30
	'<center><img src="images\img\Lake\voleybol.jpg"></center>'
	'You go up to the players and ask whether it is possible to join, you will be happy to take the team.'
	act 'Finish': gt 'Nudelake'
end
end


if $ARGS[0] = 'zagarat':
set minut += 30
cls
gs 'stat'
'<center><img src="images\img\Lake\nudezagarat.jpg"></center>'
set sweat += 1
set manna += 5
if krem = 0:
	set tan += 1
	'You went to the beach to sunbathe.'
	end
if krem > 0:
	set krem -= 1
	set tan += 3
	'You smeared body sunblock and went to sunbathe.'
	end
set nzagrand = RAND(0,100)
if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70: gt 'Katlake','key'
if nzagrand >= 80 and nzagrand < 90: gt 'Vnlake1'
if nzagrand >= 90: gt 'Vnlake2'
if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80: gt 'Katlake'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'swim':
cla
*clr
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumlip = 0
set cumface = 0
set cumfrot = 0
set minut += 60
if sweat > -3: set sweat = -3
set manna += 5
set willpower += 5
if stren < 30: set stren += 1
'<center><img src="images\img\Lake\nudeswim.jpg"></center>'
'You went for a swim.'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'smotr':
set minut += 30
cls
gs 'stat'
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You see how others play.'
act 'Leave': gt 'Nudelake'
end
--- Nudelake ---------------------------------

# obkitchen
gs 'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>in the dorm kitchen</B></center>'
'<center><img src="images\img\centr\obkitchen.jpg"></center>'

act 'In the corridor': gt 'dorm','korr'
if eda > 0:
act 'Cook food (0:30)':
cla
*clr
set minut += 30
gs 'stat'
set edahot += 1
set eda -= 1
set manna -= 5
'<center><img src="images\pics\cook.jpg"></center>'
'You prepare the meal.'
act 'Leave the meal': gt 'obkitchen'
end
end

if edahot > 0:
act 'Eat cooked food (0:30)':
cla
*clr
gs 'stat'
frost = 0
'<center><img src="images\pics\food.jpg"></center>'
set minut += 30
set edahot -= 1
set health += 10
set manna += 20
if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end
if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end
if energy < 20:
	set energy += 20
	!set fat += 1
	'You gladly ate cooked food.'
	end
if water >= 20:
	'Tea in you no longer climbs.'
	end
if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
act 'Get up from the table': gt 'obkitchen'
end
end

if pranik > 0:
	act 'Drink tea with cookies (0:15)':
	cla
	*clr
	minut += 15
	pranik -= 1
	set health += 30
	set manna += 100
	energy += 20
	water += 20
	fat += 50
	frost = 0
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
	act 'Get up from the table': gt 'obkitchen'
	end
end

if edaD > 0:
	act 'Eat diet meal (0:30)':
	cla
	*clr
	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 20
	set edaD -= 1
	if energy >= 30:
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		'You gladly ate cooked food.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	act 'Get up from the table': gt 'obkitchen'
	end
end

if fatdel > 0:
	act 'Consume fat burners':
	cla
	*clr
	set fatdel -= 1
	set fat -= 25
	if fat < 0: fat = 0
	'You drank fat burning capsule. These capsules are gradually and results will be seen immediately.'
	act 'Get up from the table': gt 'obkitchen'
	end
end

	act 'Drink':
	cla
	set minut += 5
		if water >= 20:
		'Water in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a glass of water.'
		set water += 20
		end
	act 'Get up from the table': gt 'obkitchen'
	end
if lekarstvo > 0:
'You have <<lekarstvo>> tablets.'
	if sick > 0 and lekarday ! day:
		act 'Take a pill':
		cla
		*clr
		set minut += 5
		lekarday = day
		lekarstvo -= 1
		sick -= sick * 20/100
		set lekrand = RAND(0,8)
		if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
		if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
		if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
		if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
		if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
		if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
		if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
		if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
		if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
		'You drank the pill'
		act 'Move away': gt 'obkitchen'
		end
	end
end

if vitamin > 0:
'You have <<vitamin>> vitaminok.'
	if vitaminday ! day:
		act 'Drink Vitamins':
			cla
			*clr
			set minut += 5
			vitaminday = day
			vitamin -= 1
			frost = 0
			set skinvan += 1
			if skinvan = 20: set skinvan = 0 & set skin += 1
			'You drank Vitaminki'
			act 'Move away': gt 'obkitchen'
			end
		end
	end
--- obkitchen ---------------------------------

# obroom
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
cla
*clr
set odkomp = 1
'<center><B>Your room</B></center>'
'<center><img src="images\img\centr\obroom.jpg"></center>'
'This is your room, with you in it lives another girl Vika'
if hour > 14 and hour < 20 and vikaend = 0: 'Lying on my bed your neighbor <a href="exec: gt ''obroom'',''vika''">Wick</a>.'
if hour > 3 and hour < 8 and vikaslut = 0: 'Wick is sleeping in her bed after a night of being like. I wonder where it disappears at night.'
if hour > 3 and hour < 8 and vikaslut = 1: 'Wick is sleeping in her bed, after work in a brothel.'
if komp = 1: '<a href="exec: GT ''Komp'',''start''">Computer</a>.'
act 'In the corridor':
	if nude = 0:
		set odkomp = 0
		set minut += 5
		gt 'dorm','korr'
		end
	if nude > 0: 'You need to dress'
	end
act 'Lesson (2:00)':
	cla
	set minut += 120
	set intel += 1
	'You prozanimavshis two hours seems something in your head postponed'
	act 'Finish': gt 'obroom','start'
	end
if student > 0 and kursovik < 100:
	act 'Write kursovik (1:00)':
		cla
		*clr
		set minut += 60
		set kursovik += RAND(intel/20, intel/10)
		if kursovik > 100: set kursovik = 100
		set manna -= 10
		'<center><img src="images\etogame\study.jpg"></center>'
		'You sat on the course work and prepared her <<kursovik>> percent.'
		act 'Finish': gt 'obroom','start'
		end
	end
act 'Mirror':
	set obMir = 1
	gt 'mirror','start'
	end
act 'Cupboard':
	set obLoker = 1
	gt 'loker','start'
	end
act 'In bed':
	set houseob = 1
	gt 'bed','start'
	end
if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt 'obroom','start'
		end
	else
	act 'Remove Underwear':
		cla
		set tanga = 0
		gt 'obroom','start'
		end
	end
end

if $ARGS[0] = 'vika':
cla
gs 'stat'
'<center><img src="images\img\centr\kat.jpg"></center>'
act 'Leave': gt 'obroom','start'
	if hour < 20:
		act 'Chat with Vika (1:00)':
		cla
		set minut += 60
		set vika += 1
		set talkrand = RAND(0,10)
		if talkrand = 0: 'You started talking with Vika, she tells you about the boys she met, about parties, about cosmetics.'
		if talkrand = 1: 'Wick says she was in a cafe and invited her to dance even then the guy who paid her bill.'
		if talkrand = 2: 'Wick says she worked at a strip club dancer, quite lucrative job for students, although customers are very pristavuchi.'
		if talkrand = 3: 'Vic tells you that several sections of beautiful girls running at the university entered the European level sports competitions and earn big money, but of course that Vick priznaetsya her laziness so they plow.'
		if talkrand = 4: 'Vick says that one of her friends flew from a guy who did not have time to pull out of it. But Vick smarter, she buys in a pharmacy contraceptives, 100% satisfaction guarantee.'
		if talkrand = 5: 'Vick says in the park, she accidentally went to the panel and she was offered sex for money.'
		if talkrand = 6: 'Vic tells how she acted naked in studio, not a dusty job, but reputation suffers.'
		if talkrand = 7: 'Vic tells a horror story about how one pretty girl did not wash his feet and did not shave, then became so terrible to her for all obbegat kilometer.'
		if talkrand = 8: 'Vic says that she buys tampons always with a reserve, and then if they go without a monthly then quickly prevratishsya in slut.'
		if talkrand = 9: 'Vic tells how one of her guys wanted anal sex, but she was not in possession of Vaseline.'
		if talkrand = 10: 'Vick says the summer sunning herself on the beach, for this truth had her buy a swimsuit, but it came in handy in the winter and go to the pool. The pool is not a bad tool to maintain a healthy body.'
		act 'Finish': gt 'obroom','vika'
		end

		act 'Engage with Vika (1:00)':
		cla
		set minut += 60
		set intel += 1
		set vika += 1
		'You overlaid textbooks and become engaged with Vika, reviews all absorbed twice as fast.'
		act 'Finish': gt 'obroom','vika'
		end

		if vikasex > 0 and vika > 20:
			act 'Offer fun':
			set minut += 60
			gt 'lezbsex','start'
			end
		end

		if vika > 70 and vikaslut = 0:
			act 'Ask where it is at night':
			cla
			set minut += 30
			set vikaslut = 1
			'Vick hesitated and blushed, "I just walk."'
			'"Yeah, she walks at night in the street, and I´ll believe it, kolis friend where you are wearing." neunimalis you.'
			'"I work at the" Vic mumbled unsure.'
			'"Many times I was in the club and you were not vidila, enough already lie." you misbehaved, and a little later added, "Do not want to not say it is not very much and wanted." and turned away from her.'
			'"Well do not be mad, I´ll show you just promise me that you then at least you will talk to me"'
			'You were taken aback by these words than she can do, that you stop talking to her, not with the same dogs publicly fucked. "Yes, of course I´m going to talk to you, what a stupid question."'
			'"Good show went"'
			act 'Go with Vika': gt 'bordelv','start'
			end
		end

		if vika > 70 and vikaslut = 1 and bordel = 0:
			act 'Ask about work':
			cla
			set vika += 5
			set bordel = 1
			set odkomp = 0
			'"And I have arranged to work in a brothel, I know how much." you asked.'
			'"Well I´ll tell the administrator, but I can not guarantee it can not take."'
			act 'Finish': gt 'obroom','vika'
			end
		end
	end
end
--- obroom ---------------------------------

# Palatka
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
set palMir = 1
'<center><B><font color = maroon>tent</font></B></center>'
'<center><img src="images\img\military\palatka.jpg"></center>'
set palrand = rand(0,10)
if palrand = 0: gt 'Palatka','pal0'
if palrand = 1: gt 'Palatka','pal1'
'To your surprise quite spacious tent has a bed here, <a href="exec: gt ''mirror'',''start''">mirror</a>, and even made improvizorovany <a href="exec: gt ''vann'',''start''">shower</a>.'

act 'Exit': gt 'Military','start'
act 'Sleep':
	set hour += 8
	set son = 24
	gt 'palatka','start'
	end
end

if $ARGS[0] = 'pal0':
cla
*clr
'<center><img src="images\img\military\pal0.jpg"></center>'
'Once you begin to change as the tent includes two soldiers and see you half-naked, running up to you with the members on the edge, you hvaete for their members, but what to do to squeeze harder and get them out of the tent or relax after a hard day.'
act 'Send': gt 'palatka','start'
act 'Post':
	set guy += 2
	set picrand = 22
	xgt 'sexdvoe','var'
	end
end

if $ARGS[0] = 'pal1':
cla
*clr
'<center><img src="images\img\military\pal1.jpg"></center>'
'By accessing the tent you stumble and already flying nose to the ground, but suddenly you pick up strong hands, opening her eyes you see a hefty black.'
act 'Say thank you': gt 'palatka','start'
act 'Repay in full':
	set guy += 1
	set picrand = 43
	gt 'sex','minet'
	end
end
--- Palatka ---------------------------------

# parksvid
set minut += 60
set manna += 10
gs 'stat'
'<center><B>Park</B></center>'
'<center><img src="images\img\parksvid\0.jpg"></center>'
'And you <<$telsob>> met near the park'
act 'Go for a walk':
	if $telsob = 'Alla':
		set alla += 1
		if alla >= 20:
			set parksvidrand = RAND(0,5)
			if parksvidrand > 0 and parksvidrand < 3: gt 'parksvid','1'
			if parksvidrand >= 3: gt 'parksvid','3'
			end
		if alla < 20: gt 'parksvid','3'
		end
	if $telsob = 'Masha':
		set masha += 1
		if masha >= 20:
			set parksvidrand = RAND(0,10)
			if parksvidrand > 0 and parksvidrand < 3: gt 'parksvid','1'
			if parksvidrand >= 3: gt 'parksvid','3'
			end
		if masha < 20: gt 'parksvid','3'
		end
	if $telsob = 'Katia':
		set kat += 1
		if kat >= 20:
			set parksvidrand = RAND(0,10)
			if parksvidrand > 0 and parksvidrand < 3: gt 'parksvid','1'
			if parksvidrand >= 3: gt 'parksvid','3'
			end
		if kat < 20: gt 'parksvid','3'
		end
	end

if $ARGS[0] = '1':
cla
*clr
'<center><img src="images\img\parksvid\1.jpg"></center>'
'When you walked through the park we noticed a man in a skirt. <<$telsob>> interested in what he does and even in a skirt'
act 'Move on': gt 'parksvid','3'
act 'See what he´s doing':
	cla
	*clr
	'<center><img src="images\img\parksvid\2.jpg"></center>'
	'Coming closer, you notice that in the hands of men something round, it seems that he has been pushing the nucleus.'
	'"Girls, you would move a little and then you get, sorry to be such beauties," he said, noting your interest in his occupation.'
	'"That´s interesting, but they really do not have anything under her skirt," said <<$telsob>>.'
	'"How should I know, come and ask"'
	'"Not one will not go, go along ask" said <<$telsob>>, making plaintive eyes.'
	act 'Cancel and go for a walk on.': gt 'parksvid','3'
	act 'Go with it':
		cla
		*clr
		'<center><img src="images\img\parksvid\3.jpg"></center>'
		'You two go up to the guy and <<$telsob>> starts to push you to the side, whispering in his ear, "Well ask."'
		'"Is it true that under the kilt wearing nothing." you ask'
		'"You want to know, look and see." smiling boy said.'
		'"Well, let´s see the <<$name>>." asked <<$telsob>>'
		'"Here, take a look and" you answered'
		'"Come and see," said <<$telsob>> defiantly pouting and sitting down on his haunches.'
		'When she began to lift the kilt guy quickly threw it on his head.'
		'"Wow," came her voice from under the kilt, and subsided after a few seconds you got sick of it, "Well what are you staring there?" and asked you here on the blessed face guy and head movements under the kilt you realize that <<$telsob>> does not consider the presence of underwear.'
		'A few minutes later <<$telsob>> crawled out from under the kilt wiped his lips.'
		'"Girls and went to take a closer look to me." suggested that the guy is still standing with a beatific smile'
		act 'Cancel and go for a walk on.': gt 'parksvid','3'
		act 'Go-to guy':
			cla
			*clr
			set orgasm += 1
			set lesbian += 1
			set minut += 30
			'<center><img src="images\img\parksvid\4.jpg"></center>'
			'When you come home to the guy, the guy with the threshold lifted kilt demonstrate your worth dildo and said, "Well that continue acquaintance."'
			'Emboldened <<$telsob>> immediately knelt and clasped his lips began to suck dick. You crouched behind and started sliding her panties to fondle her pussy tongue.'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\parksvid\5.jpg"></center>'
				'He picked it up and putting cancer on the bed entered her vagina, you are not thinking long lay on the bed putting her pussy right in front of her face. After a moment, her tongue stared you in the pussy. After a couple of minutes you left off.'
				act 'Further':
					cla
					*clr
					'<center><img src="images\img\parksvid\6.jpg"></center>'
					'Once you ochuhavshis orgasm as the guy took her by the shoulders and pulling back on his back and knocked inserting dick in her mouth finished.'
					'Came to himself a little, you got dressed and went back to the park'
					act 'Leave': gt 'parksvid','3'
					end
				end
			end
		end
	end
end


if $ARGS[0] = '2':
cla
*clr
end

if $ARGS[0] = '3':
cla
set horny = 0
set minut += 90
gs 'stat'
'When you´re finished <<$telsob>> said that she needed to escape and went'
act 'Leave': gt 'park','start'
end
--- parksvid ---------------------------------

# paysex
!set picrand = RAND (0,1)

if $ARGS[0] = 'start':
set picrand = RAND(0,1)
set minut += 30
set gang += 1
set sweat += 1
gt 'paysex','var'
end

if $ARGS[0] = 'var':
set paysexrand = RAND(0,2)
set colpaysex += 1
if paysexrand = 0:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxsex = 0:
	set sex += 1
	set paysxsex = 1
	end
set SUB += 1
'<center><img src="images\img\paysex\vag<<picrand>>.jpg "></center>'
'While one guy fucks your pussy, you sucked the rest.'
act 'More': gt 'paysex','var'
if colpaysex > 3:
	act 'Finish.': gt 'paysex','end'
	end
end
if paysexrand = 1:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxanal = 0:
	set anal += 1
	set paysxanal = 1
	end
set SUB += 1
'<center><img src="images\img\paysex\anal<<picrand>>.jpg "></center>'
'While one guy fucks you in the ass, you sucked the rest.'
act 'More': gt 'paysex','var'
if colpaysex > 3:
	act 'Finish.': gt 'paysex','end'
	end
end
if paysexrand = 2:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxsex = 0:
	set sex += 1
	set paysxsex = 1
	end
if paysxanal = 0:
	set anal += 1
	set paysxanal = 1
	end
'<center><img src="images\img\paysex\dp<<picrand>>.jpg "></center>'
'Fuck you in all the cracks.'
act 'More': gt 'paysex','var'
if colpaysex > 3:
	act 'Finish.': gt 'paysex','end'
	end
end
end
if $ARGS[0] = 'end':
cla
*clr
set paysxbj = 0
set paysxsex = 0
set paysxanal = 0
set colpaysex = 0
set cumbelly = 1
set cumpussy = 1
set cumass = 1
set cumlip = 1
set cumface = 1
if horny >= 80:
set horny = 0
set orgasm += 1
end
'<center><img src="images\img\paysex\cum<<picrand>>.jpg "></center>'
'When they were satisfied that you have filled in all his sperm.'
act 'Leave':
	if picrand = 16 or picrand = 17: gt 'office','work'
	if picrand = 18: gt 'husbSex','dolgend'
	gt $sexloc,'start'
	end
end
--- paysex ---------------------------------

# podrsex
if $ARGS[0] = 'start':
cla
*clr
gs 'stat'
set picrand = RAND(0,1)
set minut += 30
set sweat += 1
set girl += 1
set guy += 1
set lesbian += 1
gt 'podrsex','var'
end

if $ARGS[0] = 'var':
set podrsexrand = RAND(0,4)
if podrsexrand = 0:
	cla
	*clr
	set horny += 10
	if pdsxbj = 0:
		set bj += 1
		set pdsxbj = 1
		end
	set sexvar += 1
	'<center><img src="images\img\podrsex\minet<<picrand>>.jpg "></center>'
	'You two suck his cock, then take turns licking it with his dildo, touching tongues.'
	act 'More': gt 'podrsex','var'
	if sexvar >= 3: act 'Finish.': gt 'podrsex','end'
	end
if podrsexrand = 1:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\podrsex\vag<<picrand>>.jpg "></center>'
	'While she enjoys her pussy in a member, you also find yourself iteresnoe occupation.'
	act 'More': gt 'podrsex','var'
	if sexvar >= 3: act 'Finish.': gt 'podrsex','end'
	end
if podrsexrand = 2:
	cla
	*clr
	set horny += 10
	if pdsxsex = 0:
		set sex += 1
		set pdsxsex = 1
		end
	set sexvar += 1
	'<center><img src="images\img\podrsex\uvag<<picrand>>.jpg"></center>'
	'He comes into you, his cock moving inside your pussy bringing you pleasure, this time she did not lose too found something to do.'
	act 'More': gt 'podrsex','var'
	if sexvar >= 3: act 'Finish.': gt 'podrsex','end'
	end
if podrsexrand = 3:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\podrsex\anal<<picrand>>.jpg"></center>'
	'Do you like the sight of his cock in her ass and sweet until she yells trying to absorb all of it, too, you did not get lost.'
	act 'More': gt 'podrsex','var'
	if sexvar >= 3: act 'Finish.': gt 'podrsex','end'
	end
if podrsexrand = 4:
	cla
	*clr
	set horny += 10
	if pdsxanal = 0:
		set anal += 1
		set pdsxanal = 1
		end
	set sexvar += 1
	'<center><img src="images\img\podrsex\uanal<<picrand>>.jpg"></center>'
	'When he enters you in the anus you hurt a little, but soon the pain goes away and its place is taken by a pleasant feeling, while his moving dildo in your ass it is not sitting idly by.'
	act 'More': gt 'podrsex','var'
	if sexvar >= 3: act 'Finish.': gt 'podrsex','end'
	end
end

if $ARGS[0] = 'end':
cla
*clr
set pdsxbj = 0
set pdsxsex = 0
set pdsxanal = 0
set sexvar = 0
set cumlip = 1
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
'<center><img src="images\img\podrsex\cum<<picrand>>.jpg "></center>'
'When he ends up spilling your semen, you licks it off with each other, exchanging kissing and finally swallow.'
act 'Leave':
	if picrand = 26 or picrand = 27 or picrand = 29: gt 'office','work'
	if picrand >= 30 and picrand <= 32: gt 'down'
	if kazsexdva = 1:
		set kazsexdva = 0
		gt 'kazinosvid','3'
		end
	gt $sexloc,'start'
	end
end

--- podrsex ---------------------------------

# police
if $ARGS[0] = '1':
set gopstop = 0
set minut += 60
gs 'stat'
'<center><B>Police</B></center>'
'<center><img src="images\img\police\a1.jpg"></center>'
'The doorbell rings, you open. Standing in the doorway simpotichnaya girl "Hello <<$name>>." she says.'
'"Hello, and we know each other?" you ask.'
'"While only in absentia, but is now personally acquainted" she says, and you have on hand snapped handcuffs.'
'"What´s happening?" you start.'
'"The arrest of a fool." she says, and then there are two men in the form they take you by the hand and lead out onto the street. You pushed into a car and driven to the department, on arrival she leads you into the office.'
'"Here is our hooligan" the girl says a man sitting in the office.'
'"Take care of it myself, I still have a case," the man answers and out of the office.'
'"Come on love to confess," she tells you.'
'"What raskazyvat, I did not do anything," you reply.'
'"You hymen of themselves do not build those in the park for the people of money and mobile phones has overcome, you have identified a fool, not far from his own house to engage in looting, you idiot or something, let´s love to confess. You do not need us, who love to confess to you was how many who robbed and where merged, raskazhesh let go, do not send the camera raskazhesh chicken. There you quickly put on my knees. " she yelled.'
'You started frantically thinking that you do. If you give her all raskazhite, Gopnik with you skin later, and in the literal sense, but if not it raskazhite you send in the camera, and then you too can do what the hell.'
act 'Abut':
	set minut += 60
	set anal += 1
	set guy += 1
	set cumanus += 1
	cla
	*clr
	'<center><img src="images\img\police\a2.jpg"></center>'
	'"I know nothing." told you.'
	'"That you´re a fool, you have any idea what you will do in the chamber," she said, "Are you going for days pissing lick hole, you think it´s worth it," she said.'
	'You presented yourself as you lie on the floor zaplevanom and sits on your face carcass killogram under stopyatdesyat and rubs his crotch month of not washed your face. You wince, but the prospect of being raped by a dozen pohoronnenoy Gopnik and in a ditch, you scared more and you reiterated that you know nothing.'
	'Maiden sat at the table in front of you and legs outstretched, pushed her panties exposing pussy. "I think about you fool, that´s pretty clear Vidisha groomed pussy, and imagine there are not washed for months, overgrown, smelly, there you my smell, it smells slightly usche, and in fact I just washed a few hours ago." With these words she took the baton and hooking her your neck pulled to his crotch. "That feeling is a little smell, and now lick" she said. You hesitated and she tutzhe ssiloy vzhalas you face in your pussy "Lick" she hissed. You began to lick "You see, gladenko shaved nice lick, and there will be those colonies that removing the language, you can not get to the clitoris, and then you would be beaten and his head tucked into the slop pail, so it you want, come tell me." she continued.'
	act 'Refuse':
		cla
		*clr
		'<center><img src="images\img\police\a3.jpg"></center>'
		'You refused to speak again, it is the beginning of anger, she brushed his hand all over the table and roughly pushed you ordered to undress, taking off your handcuffs. When you are left without clothes, she again handcuffed and ordered you to lie on a table, undressed herself. Once you lay on the table, she also climbed on him and sat on your face. "Well, what you like, and the camera is the only way you´re going to breathe and, through someone else´s crotch," she continued teryas on your face. A few minutes later you hear the door slam cabinet, you wanted to see who came, but the girl pressed on your face all the weight by pressing in your head on the table. You do not vidili nothing but her ass just felt like someone took your legs and lifted up, and then you feel like you pressed the anus that you have the strength to squeeze the anus and your feet released, but not for long, a few seconds later they again raised, and your anus smeared something cold, then it penetrated the finger, followed the second and third. A minute later and took his fingers into the anus rested head of the penis, you no circumstances pushed the buttocks and pushed ssiloy dick in the ass, not letting you get used to cock began to move gaining crazy pace. You tried to break free, or at least prevent it, but the girl sitting on your face pressed tightly manacled hands to your chest and legs gripped man raping your anus.'
		'"What´s not to like" the girl spoke again, "And this is only the beginning, I will be silent on your strapon inmates to betray that, would you round the clock in the ass flogged, will speak scum?" she screamed and sat up a bit, something you could answer.'
		'"Granted them a bigger size, and then I have this pipette can not even feel." you answered, barely holding back something would not cry out in pain.'
		'"Bitch!" cried the girl, and got off the table, "Send it to the camera," she said to the man dressed.'
		'"Wait, I have not finished yet," he said. Just a few minutes he continued, until I came to you.'
		'He undid the handcuffs you, something you could dress up and took the camera.'
		act 'In chamber': gt 'kamera'
		end
	end
act 'Share':
	cla
	set gopdeath = 1
	set minut += 180
	gs 'stat'
	set vsehsdaladay = day
	'You told all they knew, and even then what just heard from conversations Gopnik. After that you released.'
	act 'Leave': gt 'nord'
	end
end
--- police ---------------------------------

# qjob
if $ARGS[0] = 'var1':
cla
*clr
set var = RAND(0,3)
if var ! 0:
	set minut += 180
	set money += 2000
	'<center><img src="images\img\qjob\f0.jpg"></center>'
	'You have arrived at a small photo studio. You were taken to the dressing room and asked to undress, with you there were a few girls in lingerie and you´ve decided to undress, photographer skeptically examined you from all sides and nodded. You and another girl were carried out in another room, given advertised lingerie and after you have dressed you engaged makeup. In the end, after almost three hours, you were on the court together with another girl. Photographer shooting began, telling you what to do during the next change of posture, britelka you flew off the shoulder bodice and slid down a bit baring breasts. You started to correct him, but the photographer stopped you, "Stop, leave as is, and you´re close to her breasts with her hands. Nipples that-be could not see"'
	act 'Correct':
		cla
		'"No, I did not shoot a subscribed" you said, and trimmed bra. Photographer grumbled under his breath, but the shooting continued. Soon it was over and you´re dressed, took the money and left.'
		act 'Leave': gt 'down'
		end
	act 'Leave as is':
		cla
		*clr
		'<center><img src="images\img\qjob\f1.jpg"></center>'
		'You do not have anything to correct and remained bare-chested girl nakryala her hands and shooting continued. After some time, when the photographer once again telling you how to stand up, he walked right up to you and put his hand on your buttocks and kissed her neck. The girl opened her mouth in surprise, and you were looking at her, not knowing what to do.'
		act 'Stop it':
			cla
			*clr
			'<center><img src="images\img\qjob\f0.jpg"></center>'
			'You bounce from him with a cry, the photographer began to apologize, you will once again put the bodice and the shooting continued. Soon it was over and you´re dressed, took the money and left.'
			act 'Leave': gt 'down'
			end
		act 'Do nothing':
			cla
			*clr
			set orgasm += 1
			set kuni += 1
			set guy += 1
			'<center><img src="images\img\qjob\f2.jpg"></center>'
			'You stood there in silence, and the photographer seeing that you do not mind continued, he began to kiss your shoulders and back, down below, and now your panties flew down and his tongue began to wander between your buttocks closer to her pussy. Girl all the time and was astonished with the view, holding your chest when you started to moan, she came to herself and tried to move, but you vskhatili her and pulling her to her started kissing. The first few seconds she was tight-lipped and Perche you in the chest, timidly trying to put you off, but then her mouth fell open and dropped into your tongue, and hands no longer rested on the chest, caressing her. Feeling that you are close to orgasm released the girl and stronger hands pressed to his head photographer buttocks. Soon pleasant shiver ran through your body, you are finished. Looking up from your pussy photographer stood up and said, "Girls, can continue in the dressing room?"'
			act 'Refuse':
				cla
				'"No, good little by little," said you went and dressed in the dressing room. Disguised as you took the money and left.'
				act 'Leave': gt 'down'
				end
			act 'Agree':
				set picrand = 30
				gt 'podrsex','var'
				end
			end
		end
	end
if var = 0:
	set minut += 60
	'<center><img src="images\img\qjob\f3.jpg"></center>'
	'You arrived at the place, there were only woman photographer and another girl model, photographer gave clothes and asked to change clothes and stand in front of the camera along with another girl, when you´re all done, she went around long the two of you, considering you through the camera. Finally she finished and you obratilask "Generally you come, but there is one detail with your partner we´ve all discussed it and agreed with you now. Shooting is not quite advertising, most erotic, you caress each other, and all I do is take off, I warn you once, it will go abroad, so there is no one of these images will not see. Well, how do you agree? "'
	act 'Refuse':
		cla
		'"No, I´m not a porn star and is not willing" and went in disguise.'
		act 'Leave': gt 'down'
		end
	act 'Agree':
		cla
		*clr
		set minut += 90
		set money += 2000
		'<center><img src="images\img\qjob\f4.jpg"></center>'
		'You agreed and started shooting, you hugging each other, kissing, sometimes photographer ostavlivala and shows how you better get that-it looked showy, she soon stopped again you "Well finished with a prelude, and now vstanovis on his knees and caress her tongue "she told you. You were already well excited and re-invitation you did not need, quickly knelt you release tab and prilbnuli to pussy girls, but the photographer again stopped you, "No, wait I did not see anything so, take out the language completely and lick her vytenutym language you need not satisfy her and make good shots, "she said. You obeyed and did everything she said, caressing the girl you most tip of the tongue, in the area of ​​the clitoris, and she diligently buckle depicting that here now to finish. "Okay, now take advantage of this," said photographer pulling a decent sized dildo and handing it to the girl, "Well, you´re on all fours," she added, turning to you.'
		act 'Up':
			cla
			*clr
			'<center><img src="images\img\qjob\f5.jpg"></center>'
			'You got up on all fours girl took a dildo, but the photographer stopped her, "Wait a minute. Grease now ladies, although I watch it here is not necessary." she added, looking at your oozing pussy. Girl you introduced a vibrator and continued shooting. You moaned and writhed and not on the camera, and from the fact that you liked it, you were willing to come, but here again the photographer stopped you, "No, wait, what are you doing, who works as a vibrator, that´s how to see." she took a dildo in her hand and began to show a girl, and you start to roll again, tolkochto othlynuvshee naslozhdenie. You were enjoying the process, but then you think that the camera can not hear clicks, you turned around and you will see that the photographer is completely naked wielding a dildo in your pussy and a model instrument of the language in it.'
			act 'Change position':
				cla
				*clr
				set picrand = RAND(6,10)
				'<center><img src="images\img\qjob\f<<picrand>>.jpg "></center>'
				'Your body swam in kakomto bizarre tangle of women´s bodies, you´ve hardly understood naslozhdenievam who gives and who you are, but you like it madly. When it was over, and all three of you were satisfied then collapsed to the floor and lay there for several minutes. In this survey and over, you have a little chat, all dressed and left.'
				act 'Leave': gt 'down'
				end
			end
		end
	end
end

if $ARGS[0] = 'var2':
cla
*clr
set minut += 120
set money += 2000
'<center><img src="images\img\qjob\f11.jpg"></center>'
'You have come to a small studio where you met a girl photographer, she gave you underwear and when you start to shoot dressed. Linen was so clear that he had seen skoz all parts of your body. Deuvshka meanwhile commanded as up and that the bend. You diligently carried out all her instructions about an hour after the shooting, when she once again put you in the correct position and start the laundry, then you just bared breasts, and returned to smkam as if nothing had happened. You get trimmed linen covering her breasts, though through it and so it was perfectly clear. The girl pouted, "Well open, it is not for publicity, advertising, we finished it for me, I like to shoot odnazhennyh beauties, these pictures no one will see," she said.'
act 'Refuse':
	cla
	'"No, I did not shoot a subscribed" you said and went pereodivatsya, she gave you the money once again asked to take off, but you were not bowed.'
	act 'Leave': gt 'down'
	end
act 'Open':
	cla
	*clr
	'<center><img src="images\img\qjob\f12.jpg"></center>'
	'You bared breasts and she smiled at the beginning you shoot, she already takes you into a dense and not commanded, giving you the choice of poses. As a result, one soon began stroking her hand you, and after that she put the camera and grabbed you in the chest with both hands and soon her hands slid lower, and their place was taken by mouth. She caressed you and seeing that you do not put her hand soprativlyaetes you in panties and began to pull at the clitoris, and soon began to go down there with his lips, covering your body with kisses.'
	act 'Further':
		set picrand = 22
		xgt 'lezbsex','var'
		end
	end
end

if $ARGS[0] = 'var3':
cla
*clr
set qjobpristrand = RAND(0,5)
set var = RAND(0,5)
if var = 0:
	set minut += 60
	'<center><img src="images\img\qjob\n0.jpg"></center>'
	'You came to the apartment, you opened the young man and asked to enter a long time he showed you his work, and then announced, "I have now Voobscheto tvorchisky crisis and I do not need a model, but rather muse that, she inspired me."'
	'"And how can I help you?" you asked.'
	'"Here is the deal, I´ve always had problems with women, so if you agree to help me relax a bit." he mumbled.'
	'"What do you want that, I slept with you?" you asked.'
	'"You could say that, do not you worry I´ll pay you, that day gi I have." he said, pulling out money.'
	act 'Refuse':
		cla
		'"Whore a challenge, freak, let it inspires you," you said and headed for the exit.'
		act 'Leave': gt 'down'
		end
	act 'Agree':
		set minut += 60
		set money += 1000
		cla
		*clr
		'<center><img src="images\img\qjob\n1.jpg"></center>'
		'"Okay, give me the money" you have agreed.'
		'"Sure, here you go, and I can first consider your vagina or anything, just want to see near," he said.'
		'"Yeah, see how much you want" you answered and throwing off his clothes lay down on the bed. Man lay down beside him and began to consider your pussy, then pushing the sponge and zaglyudyvaya inside, just finger on your clitoris, you will soon flowed and he moistened fingers in your juice put them inside and slightly parted again began to stare inside, soon he finally finished and took off his pants.'
		act 'Start':
			set picrand = 81
			xgt 'sex','var'
			end
		end
	end
if var = 1:
	set minut += 180
	set money += 1000
	'<center><img src="images\img\qjob\n2.jpg"></center>'
	'You came to the Estate where you met a man, he quickly take you to your room and sit on the couch said he need only your face and you have to pretend passion, as if you end. You two o´clock sat on the couch with his mouth open, frozen in a silent scream of pleasure. When all was ready he called you to the picture you saw coming in the picture narisovvanuyu girl in anime style, it was your face and she was naked srl. Painter standing behind your back and talks describing how she was doing fine and you compliments for the excellent otobraschenie passion, you´ll soon feel his breath on your neck, he approached closer to you in the end, he put his arm around you and all of his boltavni you caught the phrase " How sad that women can not be as exciting as passionately and their copies on the canvas. "'
	act 'Leave':
		cla
		'"I have to go" and told you to right to the door leaving him alone to admire his work with.'
		act 'Leave': gt 'down'
		end
	act 'Convince':
		cla
		'"Well, why can not, even as they can, they´re just shy to show it. A picture shows their true passion, that they do not dare to show to others. Maybe you just could not wake her up in them," you said.'
		'"No, it´s not possible, I had a lot of women and not one was not such a passion." he replied.'
		'"Maybe once we verify whether there is in me such stast" you said unbuttoning clothes.'
		act 'Start':
			set picrand = 82
			xgt 'sex','var'
			end
		end
	end
if var = 2:
	set minut += 180
	set money += 1000
	'<center><img src="images\img\qjob\n3.jpg"></center>'
	'You came to the Estate where you met a man, he quickly take you to your room and gives you a sheet and a vase as he prepared paint you quickly undressed and turned into sheets picked up a vase.'
	if qjobpristrand ! 0:
		'So passed a couple of hours, he finally finished and thanking you evicted from the apartment.'
		act 'Leave': gt 'down'
		end
	if qjobpristrand = 0:
		'While you are standing, the artist periodically comes up to you and adjusts the sheet, and each time he seems to be accidentally touches you. Each time, he more and more suited to you and his touch are becoming more confident. He eventually priobnimaet you and begins to paw has no qualms about his hands glide over your chest and falling lower.'
		act 'Stop':
			cla
			'You make a remark to him, and he lets you off and returns to the picture, he soon ends and you see out.'
			act 'Leave': gt 'down'
			end
		act 'Allow':
			set picrand = 85
			gt 'sex','kuni'
			end
		end
	end
if var = 3:
	set minut += 180
	set money += 1000
	'<center><img src="images\img\qjob\n4.jpg"></center>'
	'You came to the Estate where you met a man, he quickly take you to your room and sit on the couch on which was sitting another girl. You froze waiting when you are told you have to do, but the artist just went back to the picture and began to write. "Yes you Relax, we do not care for him, he draws his muse we´re just, we sit and do nothing," said the girl you. You leaned back on the sofa and talking with the girl about any nonsense. You are talking and laughing, and the artist continued his work without paying attention to you, and you have completely forgotten about it, and it can be seen that almost was not due to the canvas.'
	if qjobpristrand ! 0:
		'So passed a couple of hours, he finally finished and thanking you evicted from the apartment.'
		act 'Leave': gt 'down'
		end
	if qjobpristrand = 0:
		'Soon you besilis already hard on the couch like children. Girl you brought down on the couch and your clothes slipped baring breasts. She froze over you panting, her face a few inches from your chest, she looked at you and you notice how her lips ran smile, she opened her mouth slightly and making a few movements language without taking it out of his mouth, but so- you´d have seen, stopped waiting for your reaction.'
		act 'Correct clothing':
			cla
			'You trimmed clothes and the girl got off you, you go back to the chatter. Soon, the artist finished and shoved you.'
			act 'Leave': gt 'down'
			end
		act 'Allow':
			cla
			*clr
			'<center><img src="images\img\qjob\n5.jpg"></center>'
			'You smiled and held her hand on her hip, more from you and did not require her lips stuck into your chest, and his hands slid over the body randomly ripping off your clothes. Soon you lying naked on the couch srl, her tongue caressing your pussy and his hands caressing the body. You closed your eyes sinking into the abyss of pleasure when suddenly felt someone breathing on yourself, open your eyes you saw his face before the erection of the artist. He pulled him closer to you practically resting on the lips, you opened the mouth running it inside and began to caress the head of the language, then it absorbed deeper and began to suck.'
			act 'Continue':
				set picrand = 31
				gt 'podrsex','var'
				end
			end
		end
	end
if var = 4:
	set minut += 180
	set money += 1000
	'<center><img src="images\img\qjob\n6.jpg"></center>'
	'You have arrived at the apartment, there you met a girl and held in a room in which a man was sitting in a sheet, she said it was her husband and basically he will pose as you are only required buttocks. You got cancer before MEN´s and bared buttocks, he put one hand on the buttocks and you froze. She began to write.'
	if qjobpristrand ! 0:
		'So passed a couple of hours, and finally she finished thanking you shown the door of the apartment.'
		act 'Leave': gt 'down'
		end
	if qjobpristrand = 0:
		'You stayed that way for quite some time and then the man began to stroke your buttocks, first gently, almost imperceptibly, then more and more and soon he squeezed your ass without embarrassment. You looked at her, she pretended that nothing was happening and continued to do their work. At this time, the man had put his hand between her legs and you started stroking you pussy.'
		act 'Embed':
			cla
			'You turned around and as I could slap him. The girl did not respond again, again you got an attitude, and he gently put his hand on your ass and wiggled her no more. Soon she finished and shown the door you.'
			act 'Leave': gt 'down'
			end
		act 'Allow':
			cla
			*clr
			'<center><img src="images\img\qjob\n7.jpg"></center>'
			'You lit a little legs giving him room to maneuver, and he immediately took advantage of this, ran his fingers over your clit fingering pussy first, and when you got wet, he introduced two fingers into the vagina and you began to move. You become tihoniko moan, but remembering the girl broke off and looked her, she smiled and continued to write to you. You closed your eyes and began naslozhdatsya proihodyaschim already moaned unashamedly. Soon you girls heard footsteps, and then the characteristic squish, turning you saw her husband doing blowjob. You turned around and walked up to him, the guy immediately vskhvatil you again and running one hand you pussy began to kiss your breasts'
			act 'Continue':
				set picrand = 32
				gt 'podrsex','var'
				end
			end
		end
	end
if var = 5:
	set minut += 180
	set money += 1000
	'<center><img src="images\img\qjob\n2.jpg"></center>'
	'You came to the Estate where you met a man, he quickly take you to your room. You took a pose, and he began to write, it was quite beautiful and you become rotated showing itself in a favorable light, but your every move just heard a request not to move. So a lot of time has passed, and he had paid no attention to you, you hurt it even began, as it so you do not pay attention. he soon graduated.'
	act 'Leave': gt 'down'
	act 'Covet':
		set picrand = 86
		gt 'sex','minet'
		end
	end
end
--- qjob ---------------------------------

# sex
if $ARGS[0] = 'start':
set picrand = RAND(0,1)
gs 'stat'
xgt 'sex','var'
set guy += 1
end

if $ARGS[0] = 'var':
cla
gs 'stat'
set textrand = RAND(1,4)
act 'Blow job': gt 'sex','minet'
if picrand ! 12 and picrand ! 28 and picrand ! 29 and picrand ! 30 and picrand ! 34 and picrand ! 35 and picrand ! 50 and picrand ! 55 and picrand ! 76 and picrand ! 81 and picrand ! 87: act 'Cooney': gt 'sex','kuni'
if picrand ! 31 and picrand ! 33 and picrand ! 36: act 'Spread her legs': gt 'sex','vag'
if picrand ! 15 and picrand ! 28 and picrand ! 29 and picrand ! 32: act 'Horsewoman': gt 'sex','nae'
act 'Doggy-Style': gt 'sex','rak'
if picrand ! 13 and picrand ! 36 and picrand ! 39 and picrand ! 75: act 'On the side': gt 'sex','bok'
if picrand ! 15 and picrand ! 16 and picrand ! 22 and picrand ! 17 and picrand ! 44 and picrand ! 51 and picrand ! 52 and picrand ! 61 and picrand ! 74 and picrand ! 77 and picrand ! 80: act 'In the ass': gt 'sex','anal'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'minet':
cla
*clr
set horny += 10
if sxbj = 0:
	if svidboysex = 1: set bja += 1
	set bj += 1
	set sxbj = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\minet<<picrand>>.jpg "></center>'
if textrand = 1: 'You took a member of the hand, drew off the skin, licked his lips and sucked in her mouth naked penis. You vigorously sucking dick her soft wet lips, tongue played with him, played with a bridle. He, smiling blissfully, not take his eyes from you sucking his cock. He shivered and moaned'
if textrand = 2: 'You knelt down and took his hand in this great and gentle trunk. Then slowly started to work hand gently leading him to my insatiable lips, and now he was drowned in your mouth.'
if textrand = 3: 'Your tongue walked around the trunk from the testicles to the head end. Your hot lips captured his tender head and your mouth slid down the barrel of his penis. Your palm was a continuation of her mouth and tightly cover the remainder of the phallus. You then accelerated pace, then slowed, then your sponge filled elasticity, it becomes extremely soft.'
if textrand = 4: 'Taking his hand hard dick, you sent it to your hot mouth. Then introducing it at all, to the very throat, then caressing one head, you stared at him, stretching his pleasure, your hands caressing guy´s body.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'kuni':
cla
*clr
set horny += 10
if sxkuni = 0:
	set kuni += 1
	set sxkuni = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\kuni<<picrand>>.jpg "></center>'
if textrand = 1: 'Man holds his tongue over your thighs, crotch and kisses down to the vagina, his tongue slides over your crotch then caressing the clitoris is getting inside.'
if textrand = 2: 'You felt like tongue deep in your pussy wielded, he got up there is that you ran like crazy. You had the feeling that he neglected, has not left any zakoulochki in vaey hot pussy. At the same time you are so run down that you thought that he´s choking. But it was not there, his tongue, not only get you deep in the pussy, but he still managed to lick and what you tried to run on the thighs'
if textrand = 3: 'He clung to your current hole. Nose rested against the clitoris, and a large and long tongue plunged inside, where he began to lick smazochki with stenochek vagina. Thank you so podmahivat that popped out of your tongue hole. Then he grabbed you buttocks and squeezed and stretched the entire length of the language, you become a fuck.'
if textrand = 4: 'His tongue gently began to lick pussy lips, the entrance to the womb hurt klitorok. "Oh, how cool!" - You thought. Gradually, more attention he paid to your clitoris. His tongue as easy fast moth fluttering over it.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'vag':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\vag<<picrand>>.jpg "></center>'
if textrand = 1: 'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
if textrand = 2: 'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
if textrand = 3: 'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
if textrand = 4: 'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'nae':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\nae<<picrand>>.jpg "></center>'
if textrand = 1: 'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
if textrand = 2: 'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
if textrand = 3: 'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
if textrand = 4: 'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'rak':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\rak<<picrand>>.jpg "></center>'
if textrand = 1: 'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
if textrand = 2: 'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
if textrand = 3: 'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
if textrand = 4: 'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'bok':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\bok<<picrand>>.jpg "></center>'
if textrand = 1: 'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
if textrand = 2: 'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
if textrand = 3: 'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
if textrand = 4: 'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'anal':
cla
*clr
set horny += 10
if sxanal = 0:
	if svidboysex = 1: set anala += 1
	set anal += 1
	set sxanal = 1
	end
set minut += 10
set sexvar += 1
'<center><img src="images\img\sex\anal<<picrand>>.jpg "></center>'
if textrand = 1: 'You Spreading buttocks inviting him into her ass, the guy did not hesitate and threw her dildo in your point, you squealed with every jolt, and it is only whet and he moves faster with each thrust penetrating deeper into your anus, causing you to scream louder.'
if textrand = 2: 'Cock slowly but surely making his way into your ass. For he came to the full depth. Are you struggling compressed logging into your ass, and this cock seemed even more strained, thickens and grows in size. - Yes, that´s very cool! Do not let go! How do cool! - He groaned. His steely member strongly moved back and forth, bringing you pleasure.'
if textrand = 3: 'At the same moment, you felt something big and fat enters your narrow opening. You cried out in pain, but he is not paying attention to you, began to peck at the drop of a hat. Pain disappeared somewhere, and you began to receive a fabulous treat.'
if textrand = 4: 'You Spreading buttocks inviting him into her ass, the guy did not hesitate and threw her dildo in your point, you squealed with every jolt, and it is only whet and he moves faster with each thrust penetrating deeper into your anus, causing you to scream louder.'
if sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'end':
cla
*clr
set svidboysex = 0
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 10
set sexvar = 0
set sxkuni = 0
set sxbj = 0
set sxsex = 0
set sxanal = 0
set cumlip += 1
'<center><img src="images\img\sex\cum<<picrand>>.jpg "></center>'
'You take it in your mouth and dildo suck rage until he cums.'
act 'Leave':
	if picrand >= 54 and picrand <= 73: gt 'office','work'
	if picrand >= 74 and picrand <= 76: gt 'vann','start'
	if picrand >= 77 and picrand <= 80: gt 'house'
	if picrand >= 81 and picrand <= 82: gt 'down'
	if picrand >= 83 and picrand <= 84: gt 'korr'
	if picrand >= 85 and picrand <= 86: gt 'down'
	if picrand = 87 or picrand = 90: gt 'kuhr'
	if picrand = 88: gt 'sitr'
	if picrand = 89: gt 'bed','start'
	if svidboykino = 1:
		set svidboykino = 0
		gt 'torgcentr'
		end
	if svidboypark = 1:
		set svidboypark = 0
		gt 'park','start'
		end
	if svidboypark1 = 1:
		set svidboypark1 = 0
		gt 'svidboy','parksvid21'
		end
	if svidboypark2 = 1:
		set svidboypark2 = 0
		gt 'svidboy','parksvid22'
		end
	if svidboykafe = 1:
		set svidboykafe = 0
		gt 'down'
		end
	gt $sexloc,'start'
	end
end
--- sex ---------------------------------

# sexdvanadva
if $ARGS[0] = 'start':
cla
*clr
set guy += 2
set girl += 1
set gang += 1
gs 'stat'
set picrand = RAND(0,1)
set minut += 30
set sweat += 1
xgt 'sexdvanadva','var'
end

if $ARGS[0] = 'var':
set sexdvarand = RAND(0,6)
if picrand = 11: set sexdvarand = RAND(0,5)
if picrand = 14: set sexdvarand = RAND(0,4)
if sexdvarand = 0:
	cla
	*clr
	set horny += 10
	if dvdvsxbj = 0:
		set bj += 1
		set dvdvsxbj = 1
		end
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\minet<<picrand>>.jpg "></center>'
	'You two suck their members.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 1:
	cla
	*clr
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\vag<<picrand>>.jpg "></center>'
	'While she enjoys the member in her pussy, you will not remain without a man´s attention.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 2:
	cla
	*clr
	set horny += 10
	if dvdvsxsex = 0:
		set sex += 1
		set dvdvsxsex = 1
		end
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\uvag<<picrand>>.jpg "></center>'
	'He comes into you, his cock moving inside your pussy bringing you pleasure, at which time it is also not alone.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 3:
	cla
	*clr
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\anal<<picrand>>.jpg "></center>'
	'Do you like the kind of cock in her ass and sweet until she yells trying to absorb all of it you too busy INTERESTNO process.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 4:
	cla
	*clr
	set horny += 10
	if dvdvsxanal = 0:
		set anal += 1
		set dvdvsxanal = 1
		end
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\uanal<<picrand>>.jpg "></center>'
	'When he enters you in the anus you hurt a little, but soon the pain goes away and its place is taken by a pleasant feeling, while his moving dildo in your ass it is not sitting idly by.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 5:
	cla
	*clr
	set horny += 10
	if dvdvsxsex = 0:
		set sex += 1
		set dvdvsxsex = 1
		end
	if dvdvsxanal = 0:
		set anal += 1
		set dvdvsxanal = 1
		end
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\udp<<picrand>>.jpg "></center>'
	'Both men belong to you and you moan with pleasure feeling both dildo move inside.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
if sexdvarand = 6:
	cla
	*clr
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvanadva\dp<<picrand>>.jpg "></center>'
	'When they enter into it as a couple you get a little jealous seeing how she enjoys.'
	if sexvar < 3: act 'More': xgt 'sexdvanadva','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvanadva','end'
	end
end

if $ARGS[0] = 'end':
cla
*clr
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 10
set dvdvsxbj = 0
set dvdvsxsex = 0
set dvdvsxanal = 0
set cumlip = 1
set sexvar = 0
'<center><img src="images\img\sexdvanadva\cum<<picrand>>.jpg "></center>'
'When they end up spilling your semen, you licks it off with each other, exchanging kissing and finally swallow.'
act 'Leave':
	if kafesexrand = 1:
		set kafesexrand = 0
		gt 'kafe','workPred'
		end
	if kazsexdva = 1:
		set kazsexdva = 0
		gt 'kazinosvid','3'
		end
	gt $sexloc,'start'
	end
end
--- sexdvanadva ---------------------------------

# sexdvoe
if $ARGS[0] = 'start':
set picrand = RAND(0,1)
set minut += 30
set sweat += 1
set guy += 2
xgt 'sexdvoe','var'
end

if $ARGS[0] = 'var':
set sexrand = RAND(0,3)
if picrand = 12: set sexrand = RAND(0,2)
if picrand = 40: set sexrand = RAND(1,2)
if sexrand = 0:
	cla
	*clr
	if dvsxbj = 0:
		set bj += 1
		set dvsxbj = 1
		end
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvoe\minet<<picrand>>.jpg "></center>'
	'You suck both members trying to deliver udovolsvie both, but just two in your mouth does not fit.'
	if sexvar < 3: act 'More': xgt 'sexdvoe','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvoe','end'
	end
if sexrand = 1:
	cla
	*clr
	if dvsxbj = 0:
		set bj += 1
		set dvsxbj = 1
		end
	if dvsxsex = 0:
		set sex += 1
		set dvsxsex = 1
		end
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvoe\vag<<picrand>>.jpg "></center>'
	'While one guy fucks your pussy, you diligently sucking the second.'
	if sexvar < 3: act 'More': xgt 'sexdvoe','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvoe','end'
	end
if sexrand = 2:
	cla
	*clr
	if dvsxbj = 0:
		set bj += 1
		set dvsxbj = 1
		end
	if dvsxanal = 0:
		set anal += 1
		set dvsxanal = 1
		end
	set horny += 10
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvoe\anal<<picrand>>.jpg "></center>'
	'While one guy fucks you in the ass, you prevomogaya own groaning trying to serve a second mouth.'
	if sexvar < 3: act 'More': xgt 'sexdvoe','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvoe','end'
	end
if sexrand = 3:
	cla
	*clr
	set horny += 10
	if dvsxsex = 0:
		set sex += 1
		set dvsxsex = 1
		end
	if dvsxanal = 0:
		set anal += 1
		set dvsxanal = 1
		end
	set minut += 10
	set sexvar += 1
	'<center><img src="images\img\sexdvoe\dp<<picrand>>.jpg "></center>'
	'They both belong to you, it is a great pleasure dostovlyaet when both members move on vnurti variably as pistons.'
	if sexvar < 3: act 'More': xgt 'sexdvoe','var'
	if sexvar >= 3: act 'Finish.': gt 'sexdvoe','end'
	end
end
if $ARGS[0] = 'end':
cla
*clr
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 10
set dvsxbj = 0
set dvsxsex = 0
set dvsxanal = 0
set sexvar = 0
set cumbelly = 1
set cumlip = 1
set cumface = 1
'<center><img src="images\img\sexdvoe\cum<<picrand>>.jpg "></center>'
'When they were satisfied that you have filled in all his sperm.'
if picrand = 29: 'When it ends boss says that you did well and today you are free and can go.'
if picrand = 39: 'Then <<$boyA>> throws you out of the apartment.'
act 'Leave':
	if picrand >= 24 and picrand <= 26: gt 'office','work'
	if picrand >= 30 and picrand <= 34: gt 'office','work'
	if picrand >= 35 and picrand <= 37: gt 'house'
	if picrand >= 40 and picrand <= 43: gt 'korr'
	if picrand = 38: gt 'bed','vorend'
	if picrand = 29 or picrand = 39: gt 'nord'
	if kafesexrand = 1:
		set kafesexrand = 0
		gt 'kafe','workPred'
		end
	gt $sexloc,'start'
	end
end

--- sexdvoe ---------------------------------

# spalnya
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Bedroom</B></center>'
'<center><img src="images\img\centr\spaln.jpg"></center>'
set minut += 5
set tanhouse1 = 1
gs 'stat'
if komp = 1: '<a href="exec: GT ''Komp'',''start''">Computer</a>.'
act 'In the corridor': gt 'house'
act 'Lesson (2:00)':
	cla
	set minut += 120
	set intel += 1
	'You prozanimavshis two hours seems something in your head postponed'
	act 'Finish': gt 'spalnya'
	end
if student > 0 and kursovik < 100:
	act 'Write kursovik (1:00)':
		cla
		*clr
		set minut += 60
		set kursovik += RAND(intel/20, intel/10)
		if kursovik > 100: set kursovik = 100
		set manna -= 10
		'<center><img src="images\etogame\study.jpg"></center>'
		'You sat on the course work and prepared her <<kursovik>> percent.'
		act 'Finish': gt 'spalnya'
		end
	end
act 'Mirror': gt 'mirror','start'
act 'Cupboard': gt 'loker','start'
act 'In bed': gt 'bed','start'
if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt 'spalnya'
		end
else
	act 'Remove Underwear':
		cla
		set tanga = 0
		gt 'spalnya'
		end
	end
--- spalnya ---------------------------------

# svidboy
if $ARGS[0] = 'kinosvid':
cla
*clr
set minut += 60
set manna += 10
set bfA += 3
gs 'stat'
'<center><B>Cinema</B></center>'
'<center><img src="images\img\boysvid\kino0.jpg"></center>'
'<<$boyA>> you bought the tickets and took their seats ready for viewing'
act 'Watch a movie':
	cla
	*clr
	set minut += 90
	'<center><img src="images\img\boysvid\kino1.jpg"></center>'
	'During the session <<$boyA>> looked around and making sure that you are in the room except no one is turned to you and started to kiss his hand slipped under your clothes, you started to caress his chest.'
	act '"Not here"':
		cla
		*clr
		'<center><img src="images\img\boysvid\kino0.jpg"></center>'
		'You removed his hand with the words "Well, not here"'
		'When the movie ended <<$boyA>> said that he has to run and left.'
		act 'Leave': gt 'torgcentr'
		end
	act 'Unbutton his pants':
		cla
		*clr
		set picrand = 48
		set svidboysex = 1
		set svidboykino = 1
		set bfA += 5
		'<center><img src="images\img\boysvid\kino2.jpg"></center>'
		'You unbutton his pants and pulled out already erection begin to stroke his hand <<$boyA>> lays down the hands on your shoulders and begins to press down gently guiding your head to its members.'
		act 'Take by mouth': gt 'sex','minet'
		end
	end
end

if $ARGS[0] = 'parksvid':
cla
*clr
set minut += 60
set manna += 10
set bfA += 3
gs 'stat'
'<center><B>Park</B></center>'
'<center><img src="images\img\boysvid\sex_park0.jpg"></center>'
'<<$boyA>> and you are met at the entrance to the park.'
act 'Go for a walk':
	set parksvidrand = rand(0,1)
	if parksvidrand = 1: gt 'svidboy','parksvid2'
	cla
	*clr
	set minut += 60
	'<center><img src="images\img\boysvid\sex_park1.jpg"></center>'
	'When you come into the park <<$boyA>> caught you in his arms and began to circle, "Stop, stop, else you will drop" you laughed. <<$boyA>> put you on the ground.'
	act 'Move on':
		cla
		*clr
		'<center><img src="images\img\boysvid\sex_park0.jpg"></center>'
		'You took his hand and walked away.'
		'Soon <<$boyA>> said that he has to run and left.'
		act 'Leave': gt 'park','start'
		end
	act 'Kiss him':
		cla
		*clr
		'<center><img src="images\img\boysvid\sex_park2.jpg"></center>'
		'You turn to him and kiss on the lips, he hugs you and his hands begin to wander through your body, one stop on the chest, the second is your buttocks squeezes.'
		act 'Stop':
			cla
			*clr
			'<center><img src="images\img\boysvid\sex_park0.jpg"></center>'
			'You removed his hands and walked away.'
			'Soon <<$boyA>> said that he has to run and left.'
			act 'Leave': gt 'park','start'
			end
		act 'Continue':
			cla
			*clr
			set horny += 20
			'<center><img src="images\img\boysvid\sex_park3.jpg"></center>'
			'You keep kissing him <<$boyA>> goes to your lips on his neck, and hands you bares his chest and begins to squeeze, you have a factory and hand itself stretches to the pussy.'
			act 'Stop':
				cla
				*clr
				'<center><img src="images\img\boysvid\sex_park0.jpg"></center>'
				'You removed his hands and chest hidden under clothes back went on.'
				'Soon <<$boyA>> said that he has to run and left.'
				act 'Leave': gt 'park','start'
				end
			act 'Continue':
				cla
				*clr
				'<center><img src="images\img\boysvid\sex_park4.jpg"></center>'
				'You stand and enjoy petting, one hand fingering her pussy, when <<$boyA>> bends you and exposing your ass glares at her tongue, his tongue slides between your buttocks then fondling pussy is a sensitive anus.'
				act 'Continue':
					set picrand = 49
					set svidboysex = 1
					set svidboypark = 1
					set bfA += 5
					gt 'sex','kuni'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'parksvid2':
cla
*clr
gs 'stat'
'<center><img src="images\img\boysvid\sex_park5.jpg"></center>'
'Walking through the park zakaulkam you notice black guy watching you'
if izvrat = 1:
	'<<$boyA>> also his remarks and turned to you rastegivat pants and says, "And let´s have a little show for this pervert"'
	act 'Refuse':
		cla
		*clr
		'<center><img src="images\img\boysvid\sex_park6.jpg"></center>'
		'"Well, no, I will not do that," you reply ego buttoning his pants, take his hand and move on.'
		'Soon <<$boyA>> said that he has to run and left.'
		act 'Leave': gt 'park','start'
		end
	act 'Agree':
		set picrand = 50
		set svidboysex = 1
		set svidboypark1 = 1
		set bfA += 5
		gt 'sex','minet'
		end
	end
'You comes to mind crazy idea, to have sex with her boyfriend in front of spying.'
act 'Sex':
	cla
	*clr
	'<center><img src="images\img\boysvid\sex_park9.jpg"></center>'
	'You let go of his hand away a little guy back raschityvaya place so that African-would you have seen good and throwing off his clothes covenant her boyfriend, "I want you here and now"'
	'"And I do not mind," he says coming up to you and find rastegivaya fly.'
	act 'Blow job':
		set picrand = 50
		set svidboysex = 1
		set svidboypark2 = 1
		set bfA += 5
		gt 'sex','minet'
		end
	end
act 'Discard this idea and move on.':
	cla
	*clr
	'<center><img src="images\img\boysvid\sex_park6.jpg"></center>'
	'You drop this idea and move on.'
	'Soon <<$boyA>> said that he has to run and left.'
	act 'Leave': gt 'park','start'
	end
end


if $ARGS[0] = 'parksvid21':
cla
*clr
'<center><img src="images\img\boysvid\sex_park7.jpg"></center>'
'Once <<$boyA>> finished, he asks you, "Well this little Papuan still here?"'
'"Yes, actively Fingering." you reply, glancing toward African.'
'"If you can suck it, and I´ll see." says <<$boyA>>, clearly wanting something you agreed.'
act 'Refuse':
	cla
	*clr
	'<center><img src="images\img\boysvid\sex_park6.jpg"></center>'
	'"Well, no, I´m not going to suck him, enough with him and watching." you reply dressing, then take his hand and move on.'
	'Soon <<$boyA>> said that he has to run and left.'
	act 'Leave': gt 'park','start'
	end
act 'Agree':
	cla
	*clr
	set bfA += 5
	set bj += 1
	set swallow += 1
	'<center><img src="images\img\boysvid\sex_park8.jpg"></center>'
	'You beckon African, he carefully approaches cautiously posmatrikaya on your guy.'
	'"Do not worry, took out personal belongings, now my slut suck you down to the bottom" grinned <<$boyA>>'
	'You go down on his knees so that <<$boyA>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. Happy man immediately ran away.'
	'"Hey, if a slut does not take money it could even say thank you" threw him go <<$boyA>>'
	'Not paying attention to his words, because you really behaved like the last whore, you got dressed and went down.'
	'Soon <<$boyA>> said that he has to run and left.'
	act 'Leave': gt 'park','start'
	end
end

if $ARGS[0] = 'parksvid22':
cla
*clr
'<center><img src="images\img\boysvid\sex_park7.jpg"></center>'
'After <<$boyA>> finished, he notices you watching African "Damn, this pervert us spying" and noting both your lips slipped smile asked, "Did you know that he´s here, you´re here to fuck specially decided to show off in front of this Negro, you can also otsosesh him? "'
act 'Reassure him':
	cla
	*clr
	'<center><img src="images\img\boysvid\sex_park6.jpg"></center>'
	'"Of course I did not know anything, do you think that I could have sex with you in front of this" you make pained face and dressed quickly go away after a few seconds <<$boyA>> catching up with you, "I´m sorry, honey, not mean to offend you, I said sgorecha "he izvenyayus you take him by the hand, saying that you forgive and move on.'
	'Soon <<$boyA>> said that he has to run and left.'
	act 'Leave': gt 'park','start'
	end
act 'Annoy him':
	cla
	*clr
	set bfa = 0
	set bj += 1
	set swallow += 1
	set balls += 1
	'<center><img src="images\img\boysvid\sex_park8.jpg"></center>'
	'"If I want to suck and" threw you back.'
	'"So what do you expect me to suck or call him, hey man come on here free whore sucks for so" cried <<$boyA>>'
	'"Come on do not be afraid" you shouted guy African timidly walked up to you.'
	'You go down on his knees so that <<$boyA>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. But you´re not going to end so quickly when osobeno <<$boyA>> sitting next crimson with anger. You took the guy cock and continued to masturbate, that he finally fell, but themselves demonstratively turned to his, now ex-boyfriend, and a little tinkering with the sperm in her mouth to swallow it. Then you turned back to African and continued without deliv his cock out of hand you the language began to fondle his balls, then took them whole in his mouth and began to suck it out of his mouth one releasing it again absorbing both when a member of the African stood again, you switched on him, slow and metadichno you licking every inch of his phallus, and then began to suck the head, smacking loudly after you calmly and methodically started sucking him trying to absorb it into himself entirely and as a member was very modest size you manage it, and that would put an end to you shoved in his mouth and his balls. At this <<$boyA>> could not resist and shouting something about the fact that you as a whore and he wa hates escaped, you quietly completed the guy a blowjob and swallowing cum went away.'
	act 'Leave': gt 'park','start'
	end
end

if $ARGS[0] = 'billsvid':
cla
*clr
set minut += 60
set manna += 10
set bfA += 3
set picrand = RAND(51,52)
gs 'stat'
'<center><img src="images\img\boysvid\bil<<picrand>>.jpg "></center>'
'<<$boyA>> paid for a table at a booth and you went to play'
act 'Play':
	cla
	*clr
	set minut += 60
	'<center><img src="images\img\boysvid\bil1<<picrand>>.jpg "></center>'
	'During the game <<$boyA>> suitable for you from behind and his hands glide over your endeavors hips and lips are drawn to the neck.'
	act 'Not here':
		cla
		*clr
		'<center><img src="images\img\boysvid\bil0<<picrand>>.jpg "></center>'
		'You removed his hand with the words "Well, not here."'
		'When your time is up <<$boyA>> said that he has to run and left.'
		act 'Leave': gt 'torgcentr'
		end
	act 'Let continues':
		cla
		*clr
		'<center><img src="images\img\boysvid\bil2<<picrand>>.jpg "></center>'
		'You lozhite cue on the table and relax allowing him to continue to caress your body, kissing it down lower and lower.'
		act 'Let continues':
			set svidboysex = 1
			set svidboykino = 1
			set bfA += 5
			gt 'sex','kuni'
			end
		act 'Stop, stop':
			cla
			*clr
			'<center><img src="images\img\boysvid\bil0<<picrand>>.jpg "></center>'
			'You removed his hand with the words "Well, not here"'
			'When your time is up <<$boyA>> said that he has to run and left.'
			act 'Leave': gt 'torgcentr'
			end
		end
	end
end

if $ARGS[0] = 'kafesvid':
cla
*clr
set minut += 60
set manna += 10
set bfA += 3
gs 'stat'
'<center><img src="images\img\boysvid\kafe0.jpg"></center>'
'And you <<$boyA>> went into a small cafe in the center, it seems that it does not enjoy popularity, site visitors almost there, you sat at a table in one of the private booths.'
act 'Wait for the order':
	cla
	*clr
	set minut += 60
	'<center><img src="images\img\boysvid\kafe1.jpg"></center>'
	'Once you have brought order <<$boyA>> began to pester you, he and Narov kiss you, and slid his hands over your body, then caressing his chest, then squeeze your buttocks.'
	act '"Not here"':
		cla
		*clr
		'<center><img src="images\img\boysvid\kafe0.jpg"></center>'
		'You removed his hand with the words "Well, not here"'
		'After some time <<$boyA>> said that he has to run and left.'
		act 'Leave': gt 'down'
		end
	act 'Let continues':
		cla
		*clr
		'<center><img src="images\img\boysvid\kafe2.jpg"></center>'
		'Soon you remain almost without clothes, and <<$boyA>> was kissing you underbelly, dropping to the pubis.'
		act 'Let continues':
			set svidboysex = 1
			set svidboykafe = 1
			set bfA += 5
			set picrand = 53
			gt 'sex','kuni'
			end
		act 'Stop, stop':
			cla
			*clr
			'<center><img src="images\img\boysvid\kafe0.jpg"></center>'
			'The last time you came all the same in yourself and realizing that you are in a cafe, pushed him, "No, we have enough in the same cafe, patience to the house"'
			'But soon <<$boyA>> said that he has to run and left.'
			act 'Leave': gt 'down'
			end
		end
	end
end
--- svidboy ---------------------------------

# tanhouse
gs 'stat'
$sexloc = $CURLOC
'<center><B>Apartment Thani</B></center>'
'<center><img src="images\img\centr\house.jpg"></center>'
'Tanya opens up and you quickly navigate to my room.'
if tanpred = 0:
if tanya <= 50:
	'Neither giving you say a word she pushes you on the bed and rips clothes'
	set tanday = day
	set tanya += 3
	act 'Sex': xgt 'lezbsex','start'
	end
if tanya > 50 and vnesh <= 20:
	'Neither giving you say a word she pushes you on the bed and rips clothes'
	set tanday = day
	set tanya += 3
	act 'Sex': xgt 'lezbsex','start'
	end
if tanya > 50 and vnesh > 20:
	'"<<$name>>, I very best idea, mother just fired guvernatku, let me suggest you take a stepfather, he pays good 25,000 per month, and the business is in the morning to cook breakfast, evening dinner and tidy up a bit well, and you will live right here with us . "protorotorila Tanya.'
	'"And where did you get that your stepfather take me, I used in this field did not work," you asked.'
	'"Believe me, if I say take it." Tanya smiled lasciviously'
	act 'Refuse':
		cla
		'"I predlogat second time will not, do not want to be around me piss" Tanya furious pushes you out of the apartment.'
		set tanya = 0
		act 'Leave': gt 'down'
		end
	act 'Agree':
		cla
		if work > 0:
			cla
			'"Okay, but I first need to quit"'
			'"So what are you waiting, already run" exclaimed happily Tanya'
			set tanya += 5
			set tanpred = 1
			act 'Leave': gt 'down'
			end
		if work = 0:
			cla
			'"Well, I agree."'
			'"Go and tell ur stepfather" exclaimed happily Tanya'
			set tanya += 5
			set tanwork = 1
			set work = 1
			act 'Leave': gt 'tanhouse','sex'
			end
		end
	end
end
if tanpred = 1:
	'"Well quit?"'
	if work = 0:
		'"Yeah, quit"'
		'"Go and tell ur stepfather" exclaimed happily Tanya'
		set tanwork = 1
		set work = 1
		act 'Leave': gt 'tanhouse','sex'
		end
	if work > 0:
		'"Not yet"'
		'"So what are you waiting, already run"'
		act 'Leave': gt 'down'
		end
	end

if $ARGS[0] = 'sex':
cla
*clr
'<center><img src="images\img\centr\tananal.jpg"></center>'
'Walking down the hall you hear the groans of one room, opened the door a little bit you can see Tanya standing apart buttocks against the wall with your hands until her stepfather fucks in the ass. So here´s how it achieves from his stepfather that he wants.'
act 'Leave': gt 'down'
end

if $ARGS[0] = 'start':
'<center><B>Apartment Thani</B></center>'
'<center><img src="images\img\centr\house.jpg"></center>'
act 'Leave': gt 'down'
end
--- tanhouse ---------------------------------

# tanroom
if $ARGS[0] = 'start':
$sexloc = $CURLOC
'<center><B>Room Thani</B></center>'
'<center><img src="images\img\centr\tanroom.jpg"></center>'
gs 'stat'
act 'In the corridor': gt 'house'
if hour > 16 and hour < 23:
if tanya > 50 and strapon > 0:
	act 'Play with strapon':
		cla
		*clr
		set tanya += 2
		set lesbian += 1
		set orgasm += 1
		'<center><img src="images\img\centr\tanst1.jpg"></center>'
		'You wear the strap and hiding it under her skirt start to stick to Tanya, Tanya in the process starts fondling hand under her skirt and you will come across the strap. She looks at him admiringly, she obviously liked the idea.'
		act 'Further':
			cla
			*clr
			'<center><img src="images\img\centr\tanst2.jpg"></center>'
			'Tanya is not thinking long snaps on top of you and introducing a strap their pussy starts jumping as distraught.'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\centr\tanst3.jpg"></center>'
				'When she cums then weaken slips from you, you go substituting strap to her mouth, she eagerly embraces his lips and starts sucking licking their own juices and simultaneously bring you to orgasm fingers.'
				act 'Finish':
					cla
					*clr
					if niksvid > 2:
						cla
						*clr
						set bj += 1
						set sex += 1
						'<center><img src="images\img\centr\tanst4.jpg"></center>'
						'Once you have gathered to finish as Nicholas enters the room, and seeing this picture, took unabashed member was attached to your mouth.'
						act 'Further':
							cla
							*clr
							'<center><img src="images\img\centr\tanst5.jpg"></center>'
							'Nicholas lay on the bed, and you planted on your pussy dildo, Tanya same could not tear myself away from the strap, continuing to suck it passionately.'
							act 'Insert it':
								cla
								*clr
								'<center><img src="images\img\centr\tanst6.jpg"></center>'
								'You roll over on its side and tearing Tanya from sucking strap insert it into her pussy, Nicholas at this time continues to fuck your pussy. You now svoebrazny sandwich in which you were stuffing fucking Tanya and taking a Nicholas.'
								act 'Further':
									cla
									*clr
									'<center><img src="images\img\centr\tanst7.jpg"></center>'
									'You bet Tanya cancer and begin to peck her ass Nicholas at this time gets up and starts to fuck your mouth.'
									act 'Further':
										cla
										*clr
										'<center><img src="images\img\centr\tanst8.jpg"></center>'
										'Nicholas lays down on the bed and you insert your dick in pussy, this amateur anal no choice, because the closed ass panties strap. Tanya is attached over you substituting your own pussy, you will be happy glares at her lips.'
										act 'Further':
											cla
											*clr
											set cumlip += 1
											set nik += 2
											'<center><img src="images\img\centr\tanst9.jpg"></center>'
											'Tanya snaps back at you nasazhivayas pussy on a strap. As she squirms from orgasm on threesome, Nikolai inserts his penis into your mouth and ends rapidly filling it with sperm.'
											act 'Finish': gt 'house'
											end
										end
									end
								end
							end
					else
						gt 'house'
						end
					end
				end
			end
		end
	end
if tanya > 30: act 'Sex': gt 'lezbsex','start'
act 'Chat':
	cla
	set tanya += 1
	set minut += 30
	'You talked for half an hour.'
	act 'Finish': gt 'tanroom','start'
	end
end
if niksvid = 2 and tanya > 70 and hour > 17 and hour < 20:
act 'Ask for help':
	cla
	*clr
	'<center><img src="images\img\centr\tanr1.jpg"></center>'
	'You give Tanya form and ask the maid to wear. Tanya asks you what surprised me that, but then you say that all explain, Tanya agrees and puts uniforms.'
	act 'Going to the gym':
		cla
		*clr
		set picrand = 19
		set niksvid = 3
		set nik += 5
		set tanya += 5
		set lesbian += 1
		'<center><img src="images\img\centr\tanr2.jpg"></center>'
		'The hall sits Nicholas and seeing his stepdaughter in uniform looking at you with surprise. But you remember how great Tanya urged him to take you to work and begin to fondle her in front of him. He walks up to you and Join of the weasel.'
		act 'Sex': gt 'podrsex','var'
		end
	end
end
end
--- tanroom ---------------------------------

# vecher
if $ARGS[0] = 'start':
cla
*clr
'<center><img src="images\img\centr\vecher.jpg"></center>'
act 'Leave': gt 'dorm','korr'
	act 'Dance':
	cla
	set hour = 23
	'You have fun, dance and Bukhaev.'
	Set itrand = RAND(1,11)
	if itrand = 1: gt 'vecher','end'
	if itrand = 2: gt 'vecher','end2'
	if itrand = 3: gt 'vecher','end3'
	if itrand = 4: gt 'vecher','end4'
	if itrand = 5: gt 'vecher','end5'
	if itrand = 6: gt 'vecher','end6'
	if itrand = 7: gt 'vecher','end7'
	if itrand = 8: gt 'vecher','end8'
	if itrand = 9: gt 'vecher','end9'
	if itrand = 10: gt 'vecher','end10'
	if itrand = 11: gt 'vecher','end11'
	end
end

if $ARGS[0] = 'end':
cla
*clr
'<center><img src="images\picparty\itog.jpg"></center>'
'Gradually you distribute alcohol as hell and you start to feel sick, you end vechereniki spent hugging the toilet.'
act 'Leave': gt 'dorm','korr'
end

if $ARGS[0] = 'end2':
cla
*clr
'<center><img src="images\picparty\itog2.jpg"></center>'
'You danced and hooligans, you had the idea to dance with Vika, ended your dance light lesbian show with savory lingering kisses.'
act 'Leave': gt 'dorm','korr'
act 'Go into the room with Vika':
	cla
	if vikasex = 0: set vikasex = 1
	set $sexloc = 'obroom'
	gt 'lezbsex','start'
	end
end

if $ARGS[0] = 'end3':
cla
*clr
if vnesh < 20:
'<center><img src="images\picparty\itog3.jpg"></center>'
'You nakiryalis and slept in the next room with a few hardcore sex.'
act 'Leave': gt 'dorm','korr'
end
if vnesh >= 20:
'<center><img src="images\img\centr\vechend1.jpg"></center>'
'You nakiryalis and slept in the next room with a few hardcore sex. You dream that you have sex with Vika, you literally feel like it pushes you to your feet, and then hot tongue starts licking your clitoris. Opening his eyes you can see a few girls bent over your hands and caress your body, and you have between your legs Vick wielded his tongue, "This is a prophetic dream" flashed through your mind.'
act 'Leave': gt 'dorm','korr'
act 'Enjoy':
	cla
	*clr
	if vikasex = 0: set vikasex = 1
	set orgasm += 1
	set girl += 4
	set lesbian += 1
	'<center><img src="images\img\centr\vechend2.jpg"></center>'
	'You relax allowing girls to caress your body, they periodically change in your pussy, giving each try yazochok from these endless caresses you covered orgasm.'
	act 'Continue': gt 'vecher','end12'
	end
end
end

if $ARGS[0] = 'end4':
cla
*clr
'<center><img src="images\picparty\itog4.jpg"></center>'
'You get opyaneli and began to molest girls, how come you and do not understand, but you have exposed breasts and Vic kiss and lick your nipples in front of everyone.'
act 'Leave': gt 'dorm','korr'
	act 'Vika leave an empty room':
	cla
	if vikasex = 0: set vikasex = 1
	set $sexloc = 'obroom'
	gt 'lezbsex','start'
	end
end

if $ARGS[0] = 'end5':
cla
*clr
set guy += 1
set sex += 1
'<center><img src="images\img\centr\itog5.jpg"></center>'
'You woke up on the floor in the hallway, half way to your room. Puffed over you what that pimply young man fucking your vagina carefully. Noticing that you´re awake, he quickly jumped to his feet and ran off, leaving you lying on the dirty floor.'
act 'Leave': gt 'dorm','korr'
end

if $ARGS[0] = 'end6':
cla
*clr
'<center><img src="images\picparty\itog6.jpg"></center>'
'You all evening molested girl with big breasts begging her to kiss her breasts. By evening, the two of you got drunk in the trash and then you climbed her face in his chest and began kissing them.'
act 'Leave': gt 'dorm','korr'
end

if $ARGS[0] = 'end7':
cla
*clr
'<center><img src="images\img\centr\itog7.jpg"></center>'
'Natreskavshis zyuzyu to you and do not understand how the dance began to undress, but alcohol has done his job and lost his balance and falls down Man sitting on the couch, then immediately took advantage of the situation and began to grope your breasts.'
act 'Writing in the balls and leave': gt 'dorm','korr'
act 'Remove panties':
	cla
	*clr
	set guy += 1
	set bj += 1
	set sex += 1
	set cumass += 1
	'<center><img src="images\img\centr\itog71.jpg"></center>'
	'You go up to her feet and shoot the last thing you have left, panties, nearly fell again. Seeing your man rush immediately releases chleniz pants.'
	act 'Suck':
		cla
		*clr
		'<center><img src="images\img\centr\itog72.jpg"></center>'
		'You go down on his knees and clasping member lips retract it in yourself, you will gradually move its sucking dildo ignoring the crowd gathered around you, but it seemed to him that is not enough, he grabbed you by the head and began to literally stick your mouth on his penis.'
		act 'Further':
			cla
			*clr
			'<center><img src="images\img\centr\itog73.jpg"></center>'
			'When he became a member of the stone, he put you on the couch doggy style and with force entered your vagina, he did not even try to make you even as it pleased, just fucked, the crowd around you cheered him, shouting that he would fuck you properly, although how do they know how to. The guy was drunk he could not get to finish.'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\centr\itog74.jpg"></center>'
				'When you have ceased to feel that either he pulled Resko of you penis and discharged you on the buttocks. Collecting clothes from the floor you went to his room.'
				act 'Leave': gt 'dorm','korr'
				end
			end
		end
	end
end

if $ARGS[0] = 'end8':
cla
*clr
'<center><img src="images\picparty\itog8.jpg"></center>'
'You ran with Vika Vika became sex with what that guy is not known. You were lying next fun chatting with her until Vika tore drunk in the trash is not familiar guy.'
act 'Leave': gt 'dorm','korr'
act 'Caress Vic':
	cla
	if vikasex = 0: set vikasex = 1
	set girl += 1
	set lesbian += 1
	*clr
	'<center><img src="images\img\centr\itog81.jpg"></center>'
	'You kiss and fondle breasts Vicki, she is very excited and you have decided to give her to lick your pussy.'
	set horny += 60
	if horny < 100: 'You started to get tired of licking and wanted to continue'
	if horny >= 100: set horny = 0 & set orgasm += 1 & 'Muscles of the vagina began to decline sharply, the entire abdomen as if covered hot wave of pleasure, you scream from a powerful orgasm.'
	'The guy pulls his dick out of Vicki and lifting it inserts his penis into her mouth.'
		act 'Watch':
		cla
		*clr
		'<center><img src="images\img\centr\itog82.jpg"></center>'
		'Vick guy cums in her mouth. Vicki peremazanny lips in semen and it stretches to you that would have kissed her.'
			act 'Kissing with Vika':
			cla
			*clr
			Set cumlip += 1
			'<center><img src="images\img\centr\itog83.jpg"></center>'
			'You´re kissing licking each other´s cum.'
			act 'Leave': gt 'dorm','korr'
			end
		end
		act 'Suck together with Vika':
		cla
		*clr
		set bj += 1
		set guy += 1
		set cumface += 1
		'<center><img src="images\img\centr\itog84.jpg"></center>'
		'You fucked by dick together with Vika finally ends Perrin you on the face.'
			act 'Kissing with Vika':
			cla
			*clr
			set cumlip += 1
			'<center><img src="images\img\centr\itog83.jpg"></center>'
			'You´re kissing licking each other´s cum.'
			act 'Leave': gt 'dorm','korr'
			end
		end
	end
end

if $ARGS[0] = 'end9':
cla
'<center><img src="images\picparty\itog9.jpg"></center>'
'Girls love to have fun, you two had a drunken girlfriends lesbian show right at the party. Caressing, kissing and squeezing each other in front of everyone.'
act 'Leave': gt 'dorm','korr'
end

if $ARGS[0] = 'end10':
cla
'<center><img src="images\picparty\itog10.jpg"></center>'
'You got drunk and danced with what that guy who you dirty paw tits.'
act 'Leave': gt 'dorm','korr'
	act 'Touch for pants':
	set $sexloc = 'obroom'
	gt 'sex','start'
	end
end

if $ARGS[0] = 'end11':
cla
*clr
set cumfrot += 1
'<center><img src="images\picparty\skirtcum.jpg"></center>'
'You woke up in a strange room, lying on his stomach, thank god clothes, then no you are not drunk ripped.'
'What´s this? Damn! What that bastard, you dragged into another room and obkonchal your ass.'
act 'Leave': gt 'dorm','korr'
end

if $ARGS[0] = 'end12':
cla
*clr
set picrand = rand(3,9)
set minut += 15
'<center><img src="images\img\centr\vechend<<picrand>>.jpg "></center>'
'All mixed up in a big ball of women´s bodies, you do not understand or who or whom, and how that now makes your tongue or in your hole either language, or fingers.'
act 'More': gt 'vecher','end12'
act 'Leave': gt 'dorm','korr'
end
--- vecher ---------------------------------

# vipclub
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
'<center><B>Vip-room</B></center>'
'<center><img src="images\img\centr\vipclub.jpg"></center>'
'VIP area is divided into several separate rooms, with no doors and passing by can see such a scene that would be the envy even the director´s porn.'

act 'Leave': gt 'club','inside'
if hour >= 15 or hour <= 3:
	act 'Cocktails.':
	*clr
	set minut += 15
	set drunk += 1
	set water += 5
	set son -= 5
	frost = 0
	set horny += rand(10,20)
	gt 'vipclub','start'
	end
if money >= 3000:
	act 'Order Woman 3000rub':
		set money -= 3000
		set picrand = rand(13,17)
		set girl += 1
		set lesbian += 1
		dynamic $venerasiak
		xgt 'lezbsex','var'
		end
	end
if money >= 3000:
	act 'Order Man 3000rub':
		set money -= 3000
		set picrand = 38
		set guy += 1
		dynamic $venerasiak
		xgt 'sex','var'
		end
	end
if money >= 5000:
	act 'Order representation 5000rub':
		cla
		*clr
		set girl += 1
		set lesbian += 1
		dynamic $venerasiak
		set money -= 5000
		'<center><img src="images\img\centr\vip1.jpg"></center>'
		'You booked an idea and a couple of minutes you went into the room boy and a girl. Man undid his pants and sat on the couch, she began to make him a blowjob. You intiresom watched the scene.'
		act 'Further':
			cla
			*clr
			'<center><img src="images\img\centr\vip2.jpg"></center>'
			'The guy puts her cancer and fucks her vagina, you push the legs and hips push up to her face, realizing your desire girl lowered her head to your pussy and lick you nachila.'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\centr\vip3.jpg"></center>'
				'Then she takes a double dildo and inserting one end into your vagina, the second takes into his mouth and sucks it at the same time fucking you.'
				act 'Further':
					cla
					*clr
					set horny = 0
					set orgasm += 1
					'<center><img src="images\img\centr\vip4.jpg"></center>'
					'Then she turns around and puts it in her pussy, you begin to move actively trying to take the dildo as deep as possible and rub against her pussy, she sucks at this time with a guy. Soon you covers the wave of orgasm.'
					act 'Further':
						cla
						*clr
						'<center><img src="images\img\centr\vip5.jpg"></center>'
						'When you end the guy turns her to him and lifted her ass in the upper part of her anus. You watch as she moans when healthy dildo fucks her in the ass.'
						act 'Further':
							cla
							*clr
							'<center><img src="images\img\centr\vip6.jpg"></center>'
							'When a guy sated her ass, he put her on the sofa and began to finish top standing. You tongue hanging out, watching the sperm off his cock filling her mouth and chest.'
							act 'Finish': gt 'vipclub','start'
							act 'Lick her breasts':
								cla
								*clr
								set cumlip += 1
								'<center><img src="images\img\centr\vip7.jpg"></center>'
								'You began to lick the droplets of cum from her chest, trying not to miss an inch of her body.'
								act 'Finish': gt 'vipclub','start'
								end
							end
						end
					end
				end
			end
		end
	end
end
end
--- vipclub ---------------------------------

# Vnlake1
'<center><img src="images\img\Lake\Vnlake1\vnlake1.jpg"></center>'
'While you were sunbathing you came tipsy girl with a bottle of wine under, sat down next to you and began to stroke your back.'
act 'Drive away': gt 'Nudelake'
act 'Kiss':
	cla
	*clr
	set lesbian += 1
	set girl += 1
	'<center><img src="images\img\Lake\Vnlake1\vnlake2.jpg"></center>'
	'You povarachivaetsya her and bites her lips, she begins to fondle your breasts tongue, and hand massages you pussy.'
	act 'Proceed': gt 'Vnlake1','variant'
end

if $ARGS[0] = 'variant':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake0.jpg"></center>'
'The girl looks at you in anticipation of your actions'
act 'Lick her': gt 'Vnlake1','ukuni'
act 'Ask you to lick': gt 'Vnlake1','kuni'
act 'Ask to lick your anus': gt 'Vnlake1','anuli'
act 'Insert the bottle in her pussy': gt 'Vnlake1','bvag'
act 'Insert the bottle in her ass': gt 'Vnlake1','banal'
act 'Ask you to insert a bottle in pussy': gt 'Vnlake1','ubvag'
act 'Ask you to insert a bottle in the ass': gt 'Vnlake1','ubanal'
act 'Sit on the bottle.': gt 'Vnlake1','ubsit'
act 'Rubbing pussies.': gt 'Vnlake1','sex'
end

if $ARGS[0] = 'ukuni':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake4.jpg"></center>'
'You kiss her breasts moving eventually going down lower and lower and now its current before you pussy, you begin to caress her tongue sponges, setting the stage for his tongue between them touch the clitoris, she pushes her lips with your fingers that nothing had prevented you caress the clitoris.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'kuni':
cla
*clr
set kuni += 1
'<center><img src="images\img\Lake\Vnlake1\vnlake5.jpg"></center>'
'Girl holds his tongue over your thighs, crotch and kisses down to the vagina, her tongue slides over your crotch then caressing the clitoris is penetrating the vagina.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'anuli':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake6.jpg"></center>'
'She kisses your buttocks priblezhayas moving eventually to the center, reaching a goal, she spends the language of your anus and then shoves it inside your buttocks, prints and again licking the anus, then all repeated.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'bvag':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake7.jpg"></center>'
'You take the bottle neck and poke into her pussy, she kisses you while you are driving with one hand and the second bottle fondle her breasts.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'banal':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake8.jpg"></center>'
'You take a bottle, licking the neck, trying to leave it on the maximum amount of saliva, and gently insert it into the anus of girls starting to fuck her ass bottle medleno first then faster and faster.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'ubvag':
cla
*clr
set sex += 1
set orgasm += 1
'<center><img src="images\img\Lake\Vnlake1\vnlake9.jpg"></center>'
'Girl puts you in a bottle pussy, she moves it back and forth while constantly provarachivaet, the bottle in her hands to get better soon, and any member of your body shuddered in orgasm.'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'ubanal':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake10.jpg"></center>'
'Girl spits on you ass, collects saliva bottle neck and inserts it into the anus to you, you feel like a glass slide in your ass, bringing you pleasure.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'ubsit':
cla
*clr
'<center><img src="images\img\Lake\Vnlake1\vnlake11.jpg"></center>'
'You put the bottle and sit down on her with my anus, you liked the feel of the slip, she caressed your breasts tongue until you jumped on the bottle.'
act 'More': gt 'Vnlake1','variant'
act 'Leave': gt 'Nudelake'
end

if $ARGS[0] = 'sex':
cla
*clr
set orgasm += 1
'<center><img src="images\img\Lake\Vnlake1\vnlake12.jpg"></center>'
'You sat across from each other, woven so that your feet would touch pussy and started to move her hips caressing each other, until the wave of pleasure is not covered you both.'
act 'Leave': gt 'Nudelake'
end
--- Vnlake1 ---------------------------------

# Vnlake2
'<center><img src="images\img\Lake\Vnlake2\vnlake1.jpg"></center>'
'Tan you dozed off, and you dream about as a caress your breasts, as someone caressing tongue your pussy, you open HVAs and understand that this is not a dream, next to you two men one caress your breasts, the second you have already dug his lips between her legs.'
act 'Push them': gt 'Nudelake'
act 'Touch member':
	cla
	*clr
	set guy += 2
	set bj += 1
	'<center><img src="images\img\Lake\Vnlake2\vnlake2.jpg"></center>'
	'Spit you a member of one of them and get up on his knees, men rise and stand next to you, their members to Paul on you, you take them in hand and begin to suck alternately.'
	act 'Stand on all fours':
		cla
		*clr
		set sex += 1
		'<center><img src="images\img\Lake\Vnlake2\vnlake3.jpg"></center>'
		'Sucked enough you get up on all fours, one of the men in front of you lies a member to face a second knelt behind and came into your vagina.'
		act 'Change position':
			cla
			*clr
			set anal += 1
			set orgasm += 3
			'<center><img src="images\img\Lake\Vnlake2\vnlake4.jpg"></center>'
			'Sitting on a dildo, you pushed her hands buttocks inviting second enter your ass, which he did. They fuck you in the trunk in two, and you were moaning and ended. Have you finished that many times lost count, and the men all went finally took one member of your ass, you decided that it would end now but it was not there.'
			'"Sit down ass" said the man from the bottom'
			act 'Seats':
				cla
				*clr
				set cumass += 1
				'<center><img src="images\img\Lake\Vnlake2\vnlake5.jpg"></center>'
				'You acted with the member turned her back to him and planted his ass on his dildo, came second to your face and put his penis in your mouth. Soon you povstvovali that your ass flooded with sperm and dick in your mouth is about to finish.'
				act 'Remove the mouth':
					cla
					*clr
					set cumface += 1
					'<center><img src="images\img\Lake\Vnlake2\vnlake6.jpg"></center>'
					'You spat member of his mouth and the man was discharged on your face.'
					act 'Stay on the beach': gt 'Nudelake'
					end
				end
			end
		end
	end
--- Vnlake2 ---------------------------------

# WorkHosp
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
set jobhosprand = rand(0,9)

'<center><B><font color = maroon>Clinic</font></B></center>'
'<center><img src="images\img\spaln\hospital.jpg"></center>'
'The clinic are hard at work, patients sit in queues, doctors are receiving, nurses rush from office to office.'

act 'Work in the procedural':
set minut += 60
if jobhosprand = 0: gt 'WorkHosp','2'
'You worked in the treatment room.'
cla
act 'Move away': gt 'WorkHosp','start'
end

act 'Help the doctor at the reception':
set minut += 60
if jobhosprand = 0: gt 'WorkHosp','3'
'You helped a doctor at the reception.'
cla
act 'Move away': gt 'WorkHosp','start'
end

act 'Relax in nursing':
set minut += 30
'You relax.'
cla
act 'Masturbate (0:15)':
	set minut += 15
	set mastrrand = rand(0,2)
	if mastrrand = 0:
		gt 'WorkHosp','1'
	else
		set picrand = 11
		cla
		*clr
		set mastr += 1
		'<center><img src="images\img\mastr\mastr<<picrand>>.jpg "></center>'
		'You matrubiruete.'
		set horny = 0
		set orgasm += 1
		'Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm'
		end
	act 'Exit': gt 'WorkHosp','start'
	end
act 'Move away': gt 'WorkHosp','start'
end

act 'There in the cafeteria':
	set minut += 30
	set health += 10
	set manna += 5
	set willpower += 5
	if energy >= 30:
		set fat += 5
		'You can no longer have.'
		end
	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
		end
	if energy < 20:
		set energy += 20
		set fat += 1
		'You gladly ate the food.'
		end
	if water >= 20:
		'Tea in you no longer climbs.'
		end
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	end

act 'Chat with Kate':
set minut += 30
kat = kat + 1
if kat > 60 and military = 0: gt 'WorkHosp','milit'
'You chatted with Kate.'
cla
if kat > 50:
	act 'Suggest uedinitsa': gt 'WorkHosp','0'
	end
act 'Move away': gt 'WorkHosp','start'
end

if hour >= 16:
cls
'<center><B><font color = maroon>Clinic</font></B></center>'
'<center><img src="images\img\spaln\hospital.jpg"></center>'
'Your shift ended.'
act 'Go home': gt 'street'
end
end

if $ARGS[0] = 'milit':
military = 1
'"Listen, I immediately offered to earn the weekend, but I have plans. Overall the thing is close to the city are often held war games, well, according to the rules that need to be attended by doctors there. Do not be afraid you will be there with you doctor, so the maximum that you have to do is to stick patches. short if you decide on a Saturday bus at the clinic, he was waiting for from 6 to 9 hours. Yeah I almost forgot to pay for two days of 5000. "'
cla
act 'Move away': gt 'WorkHosp','start'
end

if $ARGS[0] = '0':
cla
*clr
set katprorand = rand(0,2)
if katprorand = 0:
	set girl += 1
	set lesbian += 1
	set picrand = 11
	xgt 'lezbsex','var'
	end
if katprorand = 1:
	'<center><img src="images\img\spaln\hospsex7.jpg"></center>'
	'Only you and Kat began to fondle each other as to the treatment the patient is entered. You backed away from her trying to pretend that nothing happened, on the contrary, Kate did not hesitate and was lying on the couch with her legs spread wide, proudly showing off her wet pussy on your tongue, and looked appealingly at the guy look inviting him prisoedinitsa.'
	act 'Exit': gt 'WorkHosp','start'
	act 'Amuse':
		set girl += 1
		set guy += 1
		set lesbian += 1
		set picrand = 12
		gt 'podrsex','var'
		end
	end
if katprorand = 2:
	'<center><img src="images\img\spaln\hospsex8.jpg"></center>'
	'When your games were in full swing in procedural included two doctors, but you were already so excited that not paying any attention to them continued, and when men began to caress you, you just degradability radvinuli legs wider, inviting them into your vagina.'
	act 'Entertain':
		set gang += 1
		set picrand = 11
		xgt 'sexdvanadva','var'
		end
	end
end

if $ARGS[0] = '1':
cla
*clr
set mastrrand = rand(0,1)
if mastrrand = 0:
	'<center><img src="images\img\spaln\hospsex9.jpg"></center>'
	'While you samozabveno masturbate, trying to bring herself to orgasm, the doctor enters the room, you are so keen that only notice it when his hand starts to pull your head to a standing member.'
	if horny < 50: act 'Break and run': gt 'WorkHosp','start'
	act 'Amuse':
		set guy += 1
		set picrand = 12
		gt 'sex','minet'
		end
	end
if mastrrand = 1:
	'<center><img src="images\img\spaln\hospsex10.jpg"></center>'
	'While you samozabveno masturbate, trying to bring herself to orgasm in the room includes two doctors, you are so keen that only notice them when they stand in front of you with members shaved and masturbate.'
	if horny < 50: act 'Leave': gt 'WorkHosp','start'
	set picrand = rand(12,13)
	act 'Amuse': set guy += 2 & xgt 'sexdvoe','var'
	end
end

if $ARGS[0] = '2':
cla
*clr
set picrand = rand(13,15)
'<center><img src="images\img\spaln\hospsex11.jpg"></center>'
'To you and the patient comes from the doorway taking his pants demonstrates his flaccid penis and asks you to help him as you see it is not worth it. Mind you realize that it´s all just a silly gimmick that would fuck you, but you still feel sorry for him. And suddenly it does not worth it, and you will be able to pick it up, but what if he just no luck with girls and if today is not lucky, he will jump out of the window.'
act 'Oust him': gt 'WorkHosp','start'
act 'Pick up': set guy += 1 & gt 'sex','minet'
end

if $ARGS[0] = '3':
cla
*clr
'<center><img src="images\img\spaln\hospsex12.jpg"></center>'
'It comes to you pretty patient until the doctor tries to examine her, and then she touches his trousers near term, the doctor glances at you with a question in his eyes.'
act 'Make her remark': gt 'WorkHosp','start'
act 'Amuse':
	set guy += 1
	set girl += 1
	set lesbian += 1
	set picrand = 13
	gt 'podrsex','var'
	end
end
--- WorkHosp ---------------------------------

# worksalon
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
set salonjobrand = rand(0,10)
'<center><B><font color = maroon>Beauty</font></B></center>'
'<center><img src="images\img\centr\salon.jpg"></center>'
'Inside are hard at work.'
if salonjobrand = 2 and vnesh > 20 and alla = 0: gt 'worksalon','2'
if salonslut = 1 and salonjobrand = 3:
	cla
	'It suits you administrator "Well slut went into the back room, crustaceans billeting"'
	if DOM >= 10:
		act '"Get out utyrok"': set salonslut = 0 & gt 'worksalon','start'
		act 'Go with him': gt 'worksalon','3'
		end
	if DOM < 10:
		act 'Go with him': gt 'worksalon','3'
		end
	end
act 'Massage':
set minut += 120
if salonjobrand = 0: gt 'worksalon','0'
if salonjobrand = 1: gt 'worksalon','1'
'You did a massage client.'
gt 'worksalon','start'
end
act 'Have a snack':
	set minut += 30
	set health += 10
	set manna += 5
	set willpower += 5
	if energy >= 30:
		set fat += 5
		'You can no longer have.'
		end
	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
		end
	if energy < 20:
		set energy += 20
		set fat += 1
		'You gladly ate the food.'
		end
	if water >= 20:
		'Tea in you no longer climbs.'
		end
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	gs 'stat'
	end
if masha > 0:
	act 'Chat with Masha':
		set minut += 30
		set masha += 1
		'You chatted with Masha.'
		cla
		act 'Move away': gt 'worksalon','start'
		end
	if masharab = 1:
		act 'Masha order a massage':
			cla
			*clr
			set DOM += 1
			set minut += 30
			set manna += 10
			set horny += 10
			set willpower += 10
			'<center><img src="images\img\masha\s7.jpg"></center>'
			'You go up to Masha and commanding manner, would say that it was for you, logging into the booth you undress and lie down on the table, "Well, what are you waiting let´s work, bitch not hasty" you are in command. Masha immediately jumps up to you and starts massaging.'
			act 'Order to massage the body':
				cla
				*clr
				set minut += 30
				set manna += 10
				set horny += 10
				set willpower += 10
				set picrand = RAND(8,9)
				'<center><img src="images\img\masha\s<<picrand>>.jpg "></center>'
				if picrand = 8:
					'Mary takes off her clothes and deftly leaping on the table for you to slide naginaet you massaging her breasts.'
					end
				if picrand = 9:
					'Mary takes off her clothes and deftly leaping on the table to sit on top of you starts massaging you with their buttocks.'
					end
				act 'Order licking pussy':
					cla
					*clr
					set DOM += 1
					set lesbian += 1
					set orgasm += 1
					set horny = 0
					'<center><img src="images\img\masha\s10.jpg"></center>'
					'You push the legs, and order her to lick your pussy. Masha immediately runs up to you with a cheerful smile and crouches to your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, she walks away with his head.'
					act 'Finish': gt 'worksalon','start'
					end
				act 'Ordered to lick ass':
					cla
					*clr
					set DOM += 1
					set lesbian += 1
					set orgasm += 1
					set horny = 0
					'<center><img src="images\img\masha\s11.jpg"></center>'
					'You stand up doggy on the table and order her to lick your ass. Masha immediately runs up to you with a cheerful smile and crouches to your anus, her nimble tongue that would deprive him of it snaps into kogdavy start to moan with pleasure she glares yaykom you in the anus and literally begins to fuck his tongue trying to plunge it as deep as possible, after a couple of minutes you end, and Masha naachinaet beg you to lick her Rares your hips, she received permission then quickly licks them with your jet juice and finishing moves away with his head.'
					act 'Finish': gt 'worksalon','start'
					end
				act 'Finish': gt 'worksalon','start'
				end
			act 'Order licking pussy':
				cla
				*clr
				set DOM += 1
				set lesbian += 1
				set orgasm += 1
				set horny = 0
				'<center><img src="images\img\masha\s10.jpg"></center>'
				'You push the legs, and order her to lick your pussy. Masha immediately runs up to you with a cheerful smile and crouches to your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, she walks away with his head.'
				act 'Finish': gt 'worksalon','start'
				end
			act 'Ordered to lick ass':
				cla
				*clr
				set DOM += 1
				set lesbian += 1
				set orgasm += 1
				set horny = 0
				'<center><img src="images\img\masha\s11.jpg"></center>'
				'You stand up doggy on the table and order her to lick your ass. Masha immediately runs up to you with a cheerful smile and crouches to your anus, her nimble tongue that would deprive him of it snaps into kogdavy start to moan with pleasure she glares yaykom you in the anus and literally begins to fuck his tongue trying to plunge it as deep as possible, after a couple of minutes you end, and Masha naachinaet beg you to lick her Rares your hips, she received permission then quickly licks them with your jet juice and finishing moves away with his head.'
				act 'Finish': gt 'worksalon','start'
				end
			act 'Finish': gt 'worksalon','start'
			end
		end
	if masha > 5 and masharab = 0:
		act 'Masha ask a massage':
			cla
			'You go up to Masha and ask her "Mary, I´m so tired I can do a little massage, please"'
			'"Yes of course, all that you wish" she says'
			'"I now nepoyala that was sarcasm?" You ask why Neponyal Masha talks to you as if you are client initially.'
			'"Forgive me if I do not say so, please go through the booth I´ll do what you want," she says, turning his eyes and bowed his head as a naughty child'
			act 'Nafig this sick': gt 'worksalon','start'
			act 'Go into the booth':
				cla
				*clr
				set masharab = 1
				set minut += 30
				set manna += 10
				set horny += 10
				set willpower += 10
				'<center><img src="images\img\masha\s1.jpg"></center>'
				'You undress and lie down on the table, Mary begins to make you a massage, her delicate hands glide over your body, you chustvuete as your body relaxes, you become very good. A few minutes later Mary begins to speak, "Excuse me please, Sorry for disturbing, let me help you turn over on his back.", You realize that she wants something to you rolled over on his back, but why is it still speaks with his head so that her chin slightly not touching the breast.'
				act 'Roll':
					cla
					*clr
					'<center><img src="images\img\masha\s2.jpg"></center>'
					set manna += 10
					set horny += 10
					set willpower += 10
					'You roll over in silence, eyes closed, continue to enjoy a few minutes later you feel like you Masha strongly compresses the chest and begins to lick her nipples. You open your eyes, noticing this Masha immediately let your chest and fell to the floor on his knees, begins to ask forgiveness for what was fascinated and could not resist, slowly backing away. That you begin to realize that she just likes to obey, so she dwelleth between and leads you seeing his mistress, after the terms of your dating is not surprising.'
					act 'Talk to her':
						cla
						*clr
						'<center><img src="images\img\masha\s5.jpg"></center>'
						'"Masha I realized you love to obey, but do not always do it on people it looks pretty weird." you started.'
						'"I´m sorry I will not," said Mary, almost in tears.'
						'"I´m not saying that you do not do this just let´s agree when I want you to be a slave I´ll start command, and while I´m not a team we are friends. And for such games need another place, imagine what will happen if we´re caught," you tried to appease it.'
						'"Can I have it, I work at night in a sex shop, and the owner handed me a room there in the basement, where I live." happy Masha'
						'"Well, that´s good, okay went until we did not have" finished you'
						act 'Leave': gt 'worksalon','start'
						end
					act 'Order licking pussy':
						cla
						*clr
						set DOM += 1
						set lesbian += 1
						set orgasm += 1
						set horny = 0
						'<center><img src="images\img\masha\s6.jpg"></center>'
						'You cast your legs over his head and order her to lick your pussy. Masha immediately runs up to you with a cheerful smile and crouches to your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, she walks away with his head.'
						act 'Talk to her':
							cla
							*clr
							'<center><img src="images\img\masha\s5.jpg"></center>'
							'"Masha I realized you love to obey, but do not always do it on people it looks pretty weird." you started.'
							'"I´m sorry I will not," said Mary, almost in tears.'
							'"I´m not saying that you do not do this just let´s agree when I want you to be a slave I´ll start command, and while I´m not a team we are friends. And for such games need another place, imagine what will happen if we´re caught," you tried to appease it.'
							'"Can I have it, I work at night in a sex shop, and the owner handed me a room there in the basement, where I live." happy Masha'
							'"Well, that´s good, okay went until we did not have" finished you'
							act 'Leave': gt 'worksalon','start'
							end
						end
					end
				act 'Ask why she says':
					cla
					'"Why are you doing this to me razgovarivash?" you ask.'
					'Masha little steps back and begins to babble, "Excuse me please, I say terrible, tell me how to speak, I immediately corrected"'
					'"Yes, you stop talking like ..." you pluck the word on the floor, "Well, of course she talks like a slave" because it hit you when you first met her then forced to fuck with administrators and she obediently did everything that you told her.'
					act 'Talk to her':
						cla
						'<center><img src="images\img\masha\s5.jpg"></center>'
						'"Masha I realized you love to obey, but do not always do it on people it looks pretty weird." you started.'
						'"I´m sorry I´ll bolshene" said Masha almost crying.'
						'"I´m not saying that you do not do this just let´s agree when I want you to be a slave I´ll start command, and while I´m not a team we are friends. And for such games need another place, imagine what will happen if we´re caught," you tried to appease it.'
						'"Can I have it, I work at night in a sex shop, and the owner handed me a room there in the basement, where I live." happy Masha'
						'"Well, that´s good, okay went until we did not have" finished you'
						act 'Leave': gt 'worksalon','start'
						end
					act 'Order licking pussy':
						cla
						*clr
						set DOM += 1
						set lesbian += 1
						set orgasm += 1
						set horny = 0
						'<center><img src="images\img\masha\s3.jpg"></center>'
						'You stand up doggy on the table and order her to lick your pussy. Masha immediately runs up to you with a cheerful smile and crouches to your pussy, her nimble tongue quickly bring you to orgasm. When Masha lapped up the last drop of your pussy, she walks away with his head.'
						act 'Talk to her':
							cla
							*clr
							'<center><img src="images\img\masha\s5.jpg"></center>'
							'"Masha I realized you love to obey, but do not always do it on people it looks pretty weird." you started.'
							'"I´m sorry I will not," said Mary, almost in tears.'
							'"I´m not saying that you do not do this just let´s agree when I want you to be a slave I´ll start command, and while I´m not a team we are friends. And for such games need another place, imagine what will happen if we´re caught," you tried to appease it.'
							'"Can I have it, I work at night in a sex shop, and the owner handed me a room there in the basement, where I live." happy Masha'
							'"Well, that´s good, okay went until we did not have" finished you'
							act 'Leave': gt 'worksalon','start'
							end
						end
					act 'Ordered to lick ass':
						cla
						*clr
						set DOM += 1
						set lesbian += 1
						set orgasm += 1
						set horny = 0
						'<center><img src="images\img\masha\s4.jpg"></center>'
						'You stand up doggy on the table and order her to lick your ass. Masha immediately runs up to you with a cheerful smile and crouches to your anus, her nimble tongue that would deprive him of it snaps into kogdavy start to moan with pleasure she glares yaykom you in the anus and literally begins to fuck his tongue trying to plunge it as deep as possible, after a couple of minutes you end, and Masha naachinaet beg you to lick her Rares your hips, she received permission then quickly licks them with your jet juice and finishing moves away with his head.'
						act 'Talk to her':
							cla
							*clr
							'<center><img src="images\img\masha\s5.jpg"></center>'
							'"Masha I realized you love to obey, but do not always do it on people it looks pretty weird." you started.'
							'"I´m sorry I will not," said Mary, almost in tears.'
							'"I´m not saying that you do not do this just let´s agree when I want you to be a slave I´ll start command, and while I´m not a team we are friends. And for such games need another place, imagine what will happen if we´re caught," you tried to appease it.'
							'"Can I have it, I work at night in a sex shop, and the owner handed me a room there in the basement, where I live." happy Masha'
							'"Well, that´s good, okay went until we did not have" finished you'
							act 'Leave': gt 'worksalon','start'
							end
						end
					end
				end
			end
		end
	end
if hour >= 19:
cls
'<center><B><font color = maroon>Interior</font></B></center>'
'<center><img src="images\img\centr\salon.jpg"></center>'
'Your shift ended.'
act 'Go home': gt 'down'
end
end

if $ARGS[0] = '0':
cla
*clr
salonpicrand = rand(0,4)
set picrand = salonpicrand + 30
'<center><img src="images\img\centr\wmass<<salonpicrand>>.jpg "></center>'
'During the massage guy flipped on his back and sticks out from under the towels large standing member. He looks at you in anticipation of your actions'
act 'Finish the massage': gt 'worksalon','start'
act 'Take by mouth': set guy += 1 & gt 'sex','minet'
end

if $ARGS[0] = '1':
'While you are doing massage, the client asks if possible breast erotic massage two girls surcharge 1000rub. each.'
act 'Refuse': gt 'worksalon','start'
act 'Go for the second girl':
	cla
	*clr
	set money += 1000
	'<center><img src="images\img\centr\wmass5.jpg"></center>'
	'You brought one of the girls undressed and started to crawl a couple man stroking his own breasts. You went to the lower part, so that your chest is constantly rubbing his vobuzhdenny member. And you have not noticed how his cock positioned between her breasts and not just massaged his chest and almost jerked off his cock feeding. Looking up, you see that the man is already in full sucking chest girl, and she stroked his chest contentedly.'
	act 'Stop jerking and calmly finish massage':
		cla
		'You stopped to caress his dildo, a little more calmly massaged his thighs and stomach, got up and left the room, leaving him alone with the girl'
		act 'Exit': gt 'worksalon','start'
		end
	act 'Take by mouth':
		set girl += 1
		set guy += 1
		set lesbian += 1
		set picrand = 14
		gt 'podrsex','var'
		end
	end
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\img\centr\ira1.jpg"></center>'
'You send client the wash head, do you give it in a separate booth and sits in a chair, costing you turn away like a girl draws you to her, and as long as you do not come to their senses begins to caress your breasts'
act 'Otolknut and go': gt 'worksalon','start'
act 'Let her':
	cla
	*clr
	set girl += 1
	set lesbian += 1
	'<center><img src="images\img\centr\ira2.jpg"></center>'
	'Realizing that you do not mind girl sits you down in a chair, and she falls down on all fours and starts so deftly wield language that in ten minutes you end three times, but she continues to lick your pussy greedily trying to drink all the juice out of your womb.'
	'When it finishes it gives you his business card with a number and a name Alla and going away.'
	set telalla = 1
	set alla += 1
	set orgasm += 3
	act 'Let go': gt 'worksalon','start'
	act 'Thank':
		cla
		*clr
		'<center><img src="images\img\centr\ira3.jpg"></center>'
		'You stop the girl and usashivaete her in a chair, and you´re diligently working on Kolyanom tongue trying to repeat everything to her what she did to you, and a few minutes later you do it, she shudders and you feel like a warm liquid fills your mouth. Do you want to continue as suddenly hear in his voice behind the administrator finds you. The girl jumps up and runs away, and you stay on the floor naked, licking her juice remnants from his lips.'
		'"Well, as it is called" administrator asks'
		'"Wish me a law client" you reply'
		'"You do ohrenela, fuck girls straight to work, and went well with me in the back room, so do not understand, understand by a pussy."'
		if DOM >= 10:
			act '"Get out utyrok, with whom they want with that and fuck"': gt 'worksalon','start'
			act 'Go with him': set salonslut = 1 & gt 'worksalon','3'
			end
		if DOM < 10:
			act 'Go with him': set salonslut = 1 & gt 'worksalon','3'
			end
		end
	end
end
if $ARGS[0] = '3':
set minut += 15
set SUB += 1
set guy += 1
set sex += 1
set cumass += 1
'<center><img src="images\img\centr\raks.jpg"></center>'
'Administrator gets you into the back room and puts cancer on the couch. Fucked your vagina he finishes you on your ass and leaves.'
act 'Leave': gt 'worksalon','start'
end
--- worksalon ---------------------------------

# zal
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
'<center><B><font color = maroon>Fitness Center</font></B></center>'
'<center><img src="images\etogame\fit.jpg"></center>'
act 'Leave': gt 'fit','razd'
end

if $ARGS[0] = '0':
	$sexloc = $CURLOC
	cla
	*clr
	'<center><img src="images\img\centr\zal1.jpg"></center>'
	'Next to you has been a nice guy.'
	act 'Leave': gt 'fit','razd'
	if dom > 0:
		act 'Covet':
			cla
			*clr
			set guy += 1
			set picrand = 17
			'<center><img src="images\img\centr\zal2.jpg"></center>'
			'You go up to the guy lying on the simulator, squats and start stroking his cock through his pants, man rises kisses you on the lips, then lower a little pants releasing his impressive size dildo.'
			act 'Suck': gt 'sex','minet'
		end
	end
end

if $ARGS[0] = '1':
	$sexloc = $CURLOC
	cla
	*clr
	'<center><img src="images\img\centr\zal3.jpg"></center>'
	'Until you do, you and the guy behind suitable vskhvativ you kissing his chest in his ear, sucking the lobe.'
	if dom > 0: act 'Writing in the balls': gt 'fit','razd'
	act 'Enjoy':
		cla
		*clr
		set guy += 1
		set picrand = 18
		'<center><img src="images\img\centr\zal4.jpg"></center>'
		'Guy passes you, pulls out his cock and it lays down on your chest, moving eventually head to your mouth.'
		act 'Suck': gt 'sex','minet'
	end
end

if $ARGS[0] = '2':
	$sexloc = $CURLOC
	cla
	'Until you do, you fit girl and offers to play squash with her until her boyfriend came.'
	act 'Refuse': gt 'fit','razd'
	act 'Agree':
		cla
		*clr
		set picrand = 15
		'<center><img src="images\img\centr\zal5.jpg"></center>'
		'You play fun playing with a girl, you, as well, and it is obtained is bad enough, but it just amuses you. After some time, it appears as a man and looking at your clumsy attempts nachinnaet show how to play correctly. He comes to you from behind priobnimaet and one hand on to your hand with roketkoy shows how to beat, and the second hand starts stroking your hips gradually approaching the perineum. You feel like you are in the back rests his cock looking at her, you know that she understands what is going on and wants to not less than men.'
		act 'Send perverts': gt 'fit','razd'
			act 'Enjoy':
			set guy += 1
			set girl += 1
			gt 'podrsex','var'
		end
	end
end

if $ARGS[0] = '3':
	$sexloc = $CURLOC
	cla
	*clr
	'<center><img src="images\img\centr\zal6.jpg"></center>'
	'Near you engaged hedgehog one girl to suit you two guys obviously took you for girlfriends and try to start a conversation.'
	act 'Send': gt 'fit','razd'
	act 'Flirt':
		cla
		*clr
		set picrand = 12
		'<center><img src="images\img\centr\zal7.jpg"></center>'
		'You chat with a guy, and you notice that he was very excited and constantly glancing behind you, turning you see that the girl is already on his haunches and with gusto sucking the second guy.'
		act 'Leave': gt 'fit','razd'
		act 'Suck':
			set guy += 2
			set girl += 1
			set gang += 1
			xgt 'sexdvanadva','var'
		end
	end
end
--- zal ---------------------------------

# loker
if $ARGS[0] = 'start':
gs 'stat'
cla
set mag = 0

if bikini > 0: 'On the top shelf is a swimsuit.'
if vatnik < 2: 'Tattered, rustic jacket <a href="exec: GT ''loker'',''vatnik''">view</a>'

if odetjeans = 1 and numdress ! 1 and jeans[1] = 1 or odetjeans = 0 and jeans[1] = 1: 'Jeans 1 (strength <<jeansH[1]>>, hip size <<jeansB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''jeans''">watch</a>'
if odetjeans = 1 and numdress ! 2 and jeans[2] = 1 or odetjeans = 0 and jeans[2] = 1: 'Jeans 2 (strength <<jeansH[2]>>, hip size <<jeansB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''jeans''">watch</a>'
if odetjeans = 1 and numdress ! 3 and jeans[3] = 1 or odetjeans = 0 and jeans[3] = 1: 'Jeans 3 (strength <<jeansH[3]>>, hip size <<jeansB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''jeans''">watch</a>'
if odetjeans = 1 and numdress ! 4 and jeans[4] = 1 or odetjeans = 0 and jeans[4] = 1: 'Jeans 4 (strength <<jeansH[4]>> The size of the thighs <<jeansB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''jeans''">watch</a>'
if odetjeans = 1 and numdress ! 5 and jeans[5] = 1 or odetjeans = 0 and jeans[5] = 1: 'Jeans 5 (strength <<jeansH[5]>>, hip size <<jeansB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''jeans''">watch</a>'

if odetyoga = 1 and numdress ! 1 and yoga[1] = 1 or odetyoga = 0 and yoga[1] = 1: 'Sportswear 1 (strength <<yogaH[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 2 and yoga[2] = 1 or odetyoga = 0 and yoga[2] = 1: 'Sportswear 2 (strength <<yogaH[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 3 and yoga[3] = 1 or odetyoga = 0 and yoga[3] = 1: 'Sportswear 3 (strength <<yogaH[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 4 and yoga[4] = 1 or odetyoga = 0 and yoga[4] = 1: 'Sportswear 4 (strength <<yogaH[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 5 and yoga[5] = 1 or odetyoga = 0 and yoga[5] = 1: 'Sportswear 5 (strength <<yogaH[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 6 and yoga[6] = 1 or odetyoga = 0 and yoga[6] = 1: 'Sportswear 6 (strength <<yogaH[6]>>) <a href="exec: set numdres = 6 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 7 and yoga[7] = 1 or odetyoga = 0 and yoga[7] = 1: 'Sportswear 7 (strength <<yogaH[7]>>) <a href="exec: set numdres = 7 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 8 and yoga[8] = 1 or odetyoga = 0 and yoga[8] = 1: 'Sportswear 8 (strength <<yogaH[8]>>) <a href="exec: set numdres = 8 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 9 and yoga[9] = 1 or odetyoga = 0 and yoga[9] = 1: 'Sportswear 9 (strength <<yogaH[9]>>) <a href="exec: set numdres = 9 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 10 and yoga[10] = 1 or odetyoga = 0 and yoga[10] = 1: 'Sportswear 10 (strength <<yogaH[10]>>) <a href="exec: set numdres = 10 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 11 and yoga[11] = 1 or odetyoga = 0 and yoga[11] = 1: 'Sportswear 11 (strength <<yogaH[11]>>) <a href="exec: set numdres = 11 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 12 and yoga[12] = 1 or odetyoga = 0 and yoga[12] = 1: 'Sportswear 12 (strength <<yogaH[12]>>) <a href="exec: set numdres = 12 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 13 and yoga[13] = 1 or odetyoga = 0 and yoga[13] = 1: 'Sportswear 13 (strength <<yogaH[13]>>) <a href="exec: set numdres = 13 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 14 and yoga[14] = 1 or odetyoga = 0 and yoga[14] = 1: 'Sportswear 14 (strength <<yogaH[14]>>) <a href="exec: set numdres = 14 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 15 and yoga[15] = 1 or odetyoga = 0 and yoga[15] = 1: 'Sportswear 15 (strength <<yogaH[15]>>) <a href="exec: set numdres = 15 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 16 and yoga[16] = 1 or odetyoga = 0 and yoga[16] = 1: 'Sportswear 16 (strength <<yogaH[16]>>) <a href="exec: set numdres = 16 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 17 and yoga[17] = 1 or odetyoga = 0 and yoga[17] = 1: 'Sportswear 17 (strength <<yogaH[17]>>) <a href="exec: set numdres = 17 & GT ''loker'',''yoga''">view</a>'
if odetyoga = 1 and numdress ! 18 and yoga[18] = 1 or odetyoga = 0 and yoga[18] = 1: 'Sportswear 18 (strength <<yogaH[18]>>) <a href="exec: set numdres = 18 & GT ''loker'',''yoga''">view</a>'

if odetsarafan = 1 and numdress ! 1 and sarafan[1] = 1 or odetsarafan = 0 and sarafan[1] = 1: 'Colorful, free sundress (strength <<sarafanH[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''sarafan''">view</a>'
if odetsarafan = 1 and numdress ! 2 and sarafan[2] = 1 or odetsarafan = 0 and sarafan[2] = 1: 'Bright, free sundress (strength <<sarafanH[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''sarafan''">view</a>'
if odetsarafan = 1 and numdress ! 3 and sarafan[3] = 1 or odetsarafan = 0 and sarafan[3] = 1: 'Simple dress of cheap fabric (strength <<sarafanH[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''sarafan''">view</a>'

if odetshort = 1 and numdress ! 1 and short[1] = 1 or odetshort = 0 and short[1] = 1: 'Black shorts with a purple T-shirt (strength <<shortH[1]>>, hip size <<shortB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''short''">watch</a>'
if odetshort = 1 and numdress ! 2 and short[2] = 1 or odetshort = 0 and short[2] = 1: 'Black shorts with striped jersey (strength <<shortH[2]>>, hip size <<shortB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''short''">watch</a>'
if odetshort = 1 and numdress ! 3 and short[3] = 1 or odetshort = 0 and short[3] = 1: 'Black shorts with a black T-shirt (strength <<shortH[3]>>, hip size <<shortB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''short''">watch</a>'
if odetshort = 1 and numdress ! 4 and short[4] = 1 or odetshort = 0 and short[4] = 1: 'Pink shorts with pink tops (strength <<shortH[4]>>, hip size <<shortB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''short''">watch</a>'
if odetshort = 1 and numdress ! 5 and short[5] = 1 or odetshort = 0 and short[5] = 1: 'Sexy white shorts (strength <<shortH[5]>>, hip size <<shortB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''short''">watch</a>'

if odetskirt = 1 and numdress ! 1 and skirt[1] = 1 or odetskirt = 0 and skirt[1] = 1: 'White skirt with a colorful blouse (strength <<skirtH[1]>>, hip size <<skirtB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''skirt''">watch</a>'
if odetskirt = 1 and numdress ! 2 and skirt[2] = 1 or odetskirt = 0 and skirt[2] = 1: 'Black leather skirt with a red sweater (strength <<skirtH[2]>>, hip size <<skirtB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''skirt''">watch</a>'
if odetskirt = 1 and numdress ! 3 and skirt[3] = 1 or odetskirt = 0 and skirt[3] = 1: 'White skirt with striped blouse (strength <<skirtH[3]>>, hip size <<skirtB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''skirt''">watch</a>'
if odetskirt = 1 and numdress ! 4 and skirt[4] = 1 or odetskirt = 0 and skirt[4] = 1: 'White skirt with a colorful blouse (strength <<skirtH[4]>>, hip size <<skirtB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''skirt''">watch</a>'
if odetskirt = 1 and numdress ! 5 and skirt[5] = 1 or odetskirt = 0 and skirt[5] = 1: 'Black leather skirt with a red blouse (strength <<skirtH[5]>>, hip size <<skirtB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''skirt''">watch</a>'

if odetdress = 1 and numdress ! 1 and dress[1] = 1 or odetdress = 0 and dress[1] = 1: 'Black dress (strength <<dressH[1]>>, hip size <<dressB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 2 and dress[2] = 1 or odetdress = 0 and dress[2] = 1: 'Yellow dress (strength <<dressH[2]>>, hip size <<dressB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 3 and dress[3] = 1 or odetdress = 0 and dress[3] = 1: 'Blue dress (strength <<dressH[3]>>, hip size <<dressB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 4 and dress[4] = 1 or odetdress = 0 and dress[4] = 1: 'Black short dress (strength <<dressH[4]>>, hip size <<dressB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 5 and dress[5] = 1 or odetdress = 0 and dress[5] = 1: 'Red long dress (strength <<dressH[5]>>, hip size <<dressB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 6 and dress[6] = 1 or odetdress = 0 and dress[6] = 1: 'Red polka dot dress (strength <<dressH[6]>>, hip size <<dressB[6]>>) <a href="exec: set numdres = 6 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 7 and dress[7] = 1 or odetdress = 0 and dress[7] = 1: 'Brown dress (strength <<dressH[7]>>, hip size <<dressB[7]>>) <a href="exec: set numdres = 7 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 8 and dress[8] = 1 or odetdress = 0 and dress[8] = 1: 'Dress 8 (strength <<dressH[8]>>, hip size <<dressB[8]>>) <a href="exec: set numdres = 8 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 9 and dress[9] = 1 or odetdress = 0 and dress[9] = 1: 'Dress 9 (strength <<dressH[9]>>, hip size <<dressB[9]>>) <a href="exec: set numdres = 9 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 10 and dress[10] = 1 or odetdress = 0 and dress[10] = 1: 'dress 10 (strength <<dressH[10]>>, hip size <<dressB[10]>>) <a href="exec: set numdres = 10 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 11 and dress[11] = 1 or odetdress = 0 and dress[11] = 1: 'Dress 11 (strength <<dressH[11]>>, hip size <<dressB[11]>>) <a href="exec: set numdres = 11 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 12 and dress[12] = 1 or odetdress = 0 and dress[12] = 1: 'Dress 12 (strength <<dressH[12]>>, hip size <<dressB[12]>>) <a href="exec: set numdres = 12 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 13 and dress[13] = 1 or odetdress = 0 and dress[13] = 1: 'Dress 13 (strength <<dressH[13]>>, hip size <<dressB[13]>>) <a href="exec: set numdres = 13 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 14 and dress[14] = 1 or odetdress = 0 and dress[14] = 1: 'Dress 14 (strength <<dressH[14]>>, hip size <<dressB[14]>>) <a href="exec: set numdres = 14 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 15 and dress[15] = 1 or odetdress = 0 and dress[15] = 1: 'Dress 15 (strength <<dressH[15]>>, hip size <<dressB[15]>>) <a href="exec: set numdres = 15 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 16 and dress[16] = 1 or odetdress = 0 and dress[16] = 1: 'Dress 16 (strength <<dressH[16]>>, hip size <<dressB[16]>>) <a href="exec: set numdres = 16 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 17 and dress[17] = 1 or odetdress = 0 and dress[17] = 1: 'Dress 17 (strength <<dressH[17]>>, hip size <<dressB[17]>>) <a href="exec: set numdres = 17 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 18 and dress[18] = 1 or odetdress = 0 and dress[18] = 1: 'Dress 18 (strength <<dressH[18]>>, hip size <<dressB[18]>>) <a href="exec: set numdres = 18 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 19 and dress[19] = 1 or odetdress = 0 and dress[19] = 1: 'Dress 19 (strength <<dressH[19]>>, hip size <<dressB[19]>>) <a href="exec: set numdres = 19 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 20 and dress[20] = 1 or odetdress = 0 and dress[20] = 1: 'Dress 20 (strength <<dressH[20]>>, hip size <<dressB[20]>>) <a href="exec: set numdres = 20 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 21 and dress[21] = 1 or odetdress = 0 and dress[21] = 1: 'Dress 21 (strength <<dressH[21]>>, hip size <<dressB[21]>>) <a href="exec: set numdres = 21 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 22 and dress[22] = 1 or odetdress = 0 and dress[22] = 1: 'Dress 22 (strength <<dressH[22]>>, hip size <<dressB[22]>>) <a href="exec: set numdres = 22 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 23 and dress[23] = 1 or odetdress = 0 and dress[23] = 1: 'Dress 23 (strength <<dressH[23]>>, hip size <<dressB[23]>>) <a href="exec: set numdres = 23 & GT ''loker'',''dress''">watch</a>'
if odetdress = 1 and numdress ! 24 and dress[24] = 1 or odetdress = 0 and dress[24] = 1: 'dress 24 (strength <<dressH[24]>>, hip size <<dressB[24]>>) <a href="exec: set numdres = 24 & GT ''loker'',''dress''">watch</a>'

if odetprofi = 1 and numdress ! 1 and profi[1] = 1 or odetprofi = 0 and profi[1] = 1: 'Office clothes 1 (strength <<profiH[1]>>, hip size <<profiB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 2 and profi[2] = 1 or odetprofi = 0 and profi[2] = 1: 'Office dress 2 (strength <<profiH[2]>>, hip size <<profiB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''profi''">watch</a>'

if odetpants = 1 and numdress ! 1 and pants[1] = 1 or odetpants = 0 and pants[1] = 1: 'Tight black leggings with black top (strength <<pantsH[1]>>, hip size <<pantsB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''pants''">watch</a>'
if odetpants = 1 and numdress ! 2 and pants[2] = 1 or odetpants = 0 and pants[2] = 1: 'Tight black leggings with a red blouse (strength <<pantsH[2]>>, hip size <<pantsB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''pants''">watch</a>'
if odetpants = 1 and numdress ! 3 and pants[3] = 1 or odetpants = 0 and pants[3] = 1: 'Purple skinny leggings with black top (strength <<pantsH[3]>>, hip size <<pantsB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''pants''">watch</a>'
if odetpants = 1 and numdress ! 4 and pants[4] = 1 or odetpants = 0 and pants[4] = 1: 'Tight black leggings with black short topic (strength <<pantsH[4]>>, hip size <<pantsB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''pants''">watch</a>'
if odetpants = 1 and numdress ! 5 and pants[5] = 1 or odetpants = 0 and pants[5] = 1: 'White skinny jeans with a black top (strength <<pantsH[5]>>, hip size <<pantsB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''pants''">watch</a>'

if odetlatex = 1 and numdress ! 1 and latex[1] = 1 or odetlatex = 0 and latex[1] = 1: 'Black latex bodysuit (strength <<latexH[1]>>, hip size <<latexB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''latex''">watch</a>'
if odetlatex = 1 and numdress ! 2 and latex[2] = 1 or odetlatex = 0 and latex[2] = 1: 'Purple latex dress (strength <<latexH[2]>>, hip size <<latexB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''latex''">watch</a>'

if odethooker = 1 and numdress ! 1 and hooker[1] = 1 or odethooker = 0 and hooker[1] = 1: 'Prostitute outfit number 1 (strength <<hookerH[1]>>, hip size <<hookerB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 2 and hooker[2] = 1 or odethooker = 0 and hooker[2] = 1: 'Prostitute outfit number 2 (strength <<hookerH[2]>>, hip size <<hookerB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 3 and hooker[3] = 1 or odethooker = 0 and hooker[3] = 1: 'Prostitute outfit number 3 (strength <<hookerH[3]>>, hip size <<hookerB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 4 and hooker[4] = 1 or odethooker = 0 and hooker[4] = 1: 'Prostitute outfit number 4 (strength <<hookerH[4]>>, hip size <<hookerB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 5 and hooker[5] = 1 or odethooker = 0 and hooker[5] = 1: 'Prostitute outfit number 5 (strength <<hookerH[5]>>, hip size <<hookerB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''hooker''">watch</a>'

if odetkis = 1 and numdress ! 1 and odekis[1] = 1 or odetkis = 0 and odekis[1] = 1: 'Youth outfit number 1 (strength <<odekisH[1]>>, hip size <<odekisB[1]>>) <a href="exec: set numdres = 1 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 2 and odekis[2] = 1 or odetkis = 0 and odekis[2] = 1: 'Youth outfit number 2 (strength <<odekisH[2]>>, hip size <<odekisB[2]>>) <a href="exec: set numdres = 2 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 3 and odekis[3] = 1 or odetkis = 0 and odekis[3] = 1: 'Youth outfit number 3 (strength <<odekisH[3]>>, hip size <<odekisB[3]>>) <a href="exec: set numdres = 3 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 4 and odekis[4] = 1 or odetkis = 0 and odekis[4] = 1: 'Youth outfit number 4 (strength <<odekisH[4]>>, hip size <<odekisB[4]>>) <a href="exec: set numdres = 4 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 5 and odekis[5] = 1 or odetkis = 0 and odekis[5] = 1: 'Youth outfit number 5 (strength <<odekisH[5]>>, hip size <<odekisB[5]>>) <a href="exec: set numdres = 5 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 6 and odekis[6] = 1 or odetkis = 0 and odekis[6] = 1: 'Youth outfit number 6 (strength <<odekisH[6]>>, hip size <<odekisB[6]>>) <a href="exec: set numdres = 6 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 7 and odekis[7] = 1 or odetkis = 0 and odekis[7] = 1: 'Youth outfit number 7 (strength <<odekisH[7]>>, hip size <<odekisB[7]>>) <a href="exec: set numdres = 7 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 8 and odekis[8] = 1 or odetkis = 0 and odekis[8] = 1: 'Youth outfit number 8 (strength <<odekisH[8]>>, hip size <<odekisB[8]>>) <a href="exec: set numdres = 8 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 9 and odekis[9] = 1 or odetkis = 0 and odekis[9] = 1: 'Youth outfit number 9 (strength <<odekisH[9]>>, hip size <<odekisB[9]>>) <a href="exec: set numdres = 9 & GT ''loker'',''odekis''">watch</a>'
if odetkis = 1 and numdress ! 10 and odekis[10] = 1 or odetkis = 0 and odekis[10] = 1: 'Youth outfit number 10 (strength <<odekisH[10]>>, hip size <<odekisB[10]>>) <a href="exec: set numdres = 10 & GT ''loker'',''odekis''">watch</a>'

if odetnewclo = 1 and numdress ! 1 and newclo[1] = 1 or odetnewclo = 0 and newclo[1] = 1: 'Fashionista´s  number 1 (strength <<newcloH[1]>>, hip size <<newcloB[1]>>) <a href="exec: numdres = 1 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 2 and newclo[2] = 1 or odetnewclo = 0 and newclo[2] = 1: 'Fashionista´s  number 2 (strength <<newcloH[2]>>, hip size <<newcloB[2]>>) <a href="exec: numdres = 2 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 3 and newclo[3] = 1 or odetnewclo = 0 and newclo[3] = 1: 'Fashionista´s  number 3 (strength <<newcloH[3]>>, hip size <<newcloB[3]>>) <a href="exec: numdres = 3 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 4 and newclo[4] = 1 or odetnewclo = 0 and newclo[4] = 1: 'Fashionista´s  number 4 (strength <<newcloH[4]>>, hip size <<newcloB[4]>>) <a href="exec: numdres = 4 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 5 and newclo[5] = 1 or odetnewclo = 0 and newclo[5] = 1: 'Fashionista´s  number 5 (strength <<newcloH[5]>>, hip size <<newcloB[5]>>) <a href="exec: numdres = 5 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 6 and newclo[6] = 1 or odetnewclo = 0 and newclo[6] = 1: 'Fashionista´s  number 6 (strength <<newcloH[6]>>, hip size <<newcloB[6]>>) <a href="exec: numdres = 6 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 7 and newclo[7] = 1 or odetnewclo = 0 and newclo[7] = 1: 'Fashionista´s  number 7 (strength <<newcloH[7]>>, hip size <<newcloB[7]>>) <a href="exec: numdres = 7 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 8 and newclo[8] = 1 or odetnewclo = 0 and newclo[8] = 1: 'Fashionista´s  number 8 (strength <<newcloH[8]>>, hip size <<newcloB[8]>>) <a href="exec: numdres = 8 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 9 and newclo[9] = 1 or odetnewclo = 0 and newclo[9] = 1: 'Fashionista´s  number 9 (strength <<newcloH[9]>>, hip size <<newcloB[9]>>) <a href="exec: numdres = 9 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 10 and newclo[10] = 1 or odetnewclo = 0 and newclo[10] = 1: 'Fashionista´s  number 10 (strength <<newcloH[10]>>, hip size <<newcloB[10]>>) <a href="exec: numdres = 10 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 11 and newclo[11] = 1 or odetnewclo = 0 and newclo[11] = 1: 'Fashionista´s  number 11 (strength <<newcloH[11]>>, hip size <<newcloB[11]>>) <a href="exec: numdres = 11 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 12 and newclo[12] = 1 or odetnewclo = 0 and newclo[12] = 1: 'Fashionista´s  number 12 (strength <<newcloH[12]>>, hip size <<newcloB[12]>>) <a href="exec: numdres = 12 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 13 and newclo[13] = 1 or odetnewclo = 0 and newclo[13] = 1: 'Fashionista´s  number 13 (strength <<newcloH[13]>>, hip size <<newcloB[13]>>) <a href="exec: numdres = 13 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 14 and newclo[14] = 1 or odetnewclo = 0 and newclo[14] = 1: 'Fashionista´s  number 14 (strength <<newcloH[14]>>, hip size <<newcloB[14]>>) <a href="exec: numdres = 14 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 15 and newclo[15] = 1 or odetnewclo = 0 and newclo[15] = 1: 'Fashionista´s  number 15 (strength <<newcloH[15]>>, hip size <<newcloB[15]>>) <a href="exec: numdres = 15 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 16 and newclo[16] = 1 or odetnewclo = 0 and newclo[16] = 1: 'Fashionista´s  number 16 (strength <<newcloH[16]>>, hip size <<newcloB[16]>>) <a href="exec: numdres = 16 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 17 and newclo[17] = 1 or odetnewclo = 0 and newclo[17] = 1: 'Fashionista´s  number 17 (strength <<newcloH[17]>>, hip size <<newcloB[17]>>) <a href="exec: numdres = 17 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 18 and newclo[18] = 1 or odetnewclo = 0 and newclo[18] = 1: 'Fashionista´s  number 18 (strength <<newcloH[18]>>, hip size <<newcloB[18]>>) <a href="exec: numdres = 18 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 19 and newclo[19] = 1 or odetnewclo = 0 and newclo[19] = 1: 'Fashionista´s  number 19 (strength <<newcloH[19]>>, hip size <<newcloB[19]>>) <a href="exec: numdres = 19 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 20 and newclo[20] = 1 or odetnewclo = 0 and newclo[20] = 1: 'Fashionista´s  number 20 (strength <<newcloH[20]>>, hip size <<newcloB[20]>>) <a href="exec: numdres = 20 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 21 and newclo[21] = 1 or odetnewclo = 0 and newclo[21] = 1: 'Fashionista´s  number 21 (strength <<newcloH[21]>>, hip size <<newcloB[21]>>) <a href="exec: numdres = 21 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 22 and newclo[22] = 1 or odetnewclo = 0 and newclo[22] = 1: 'Fashionista´s  number 22 (strength <<newcloH[22]>>, hip size <<newcloB[22]>>) <a href="exec: numdres = 22 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 23 and newclo[23] = 1 or odetnewclo = 0 and newclo[23] = 1: 'Fashionista´s  number 23 (strength <<newcloH[23]>>, hip size <<newcloB[23]>>) <a href="exec: numdres = 23 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 24 and newclo[24] = 1 or odetnewclo = 0 and newclo[24] = 1: 'Fashionista´s  number 24 (strength <<newcloH[24]>>, hip size <<newcloB[24]>>) <a href="exec: numdres = 24 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 25 and newclo[25] = 1 or odetnewclo = 0 and newclo[25] = 1: 'Fashionista´s  number 25 (strength <<newcloH[25]>>, hip size <<newcloB[25]>>) <a href="exec: numdres = 25 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 26 and newclo[26] = 1 or odetnewclo = 0 and newclo[26] = 1: 'Fashionista´s  number 26 (strength <<newcloH[26]>>, hip size <<newcloB[26]>>) <a href="exec: numdres = 26 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 27 and newclo[27] = 1 or odetnewclo = 0 and newclo[27] = 1: 'Fashionista´s  number 27 (strength <<newcloH[27]>>, hip size <<newcloB[27]>>) <a href="exec: numdres = 27 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 28 and newclo[28] = 1 or odetnewclo = 0 and newclo[28] = 1: 'Fashionista´s  number 28 (strength <<newcloH[28]>>, hip size <<newcloB[28]>>) <a href="exec: numdres = 28 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 29 and newclo[29] = 1 or odetnewclo = 0 and newclo[29] = 1: 'Fashionista´s  number 29 (strength <<newcloH[29]>>, hip size <<newcloB[29]>>) <a href="exec: numdres = 29 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 30 and newclo[30] = 1 or odetnewclo = 0 and newclo[30] = 1: 'Fashionista´s  number 30 (strength <<newcloH[30]>>, hip size <<newcloB[30]>>) <a href="exec: numdres = 30 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 31 and newclo[31] = 1 or odetnewclo = 0 and newclo[31] = 1: 'Fashionista´s  number 31 (strength <<newcloH[31]>>, hip size <<newcloB[31]>>) <a href="exec: numdres = 31 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 32 and newclo[32] = 1 or odetnewclo = 0 and newclo[32] = 1: 'Fashionista´s  number 32 (strength <<newcloH[32]>>, hip size <<newcloB[32]>>) <a href="exec: numdres = 32 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 33 and newclo[33] = 1 or odetnewclo = 0 and newclo[33] = 1: 'Fashionista´s  number 33 (strength <<newcloH[33]>>, hip size <<newcloB[33]>>) <a href="exec: numdres = 33 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 34 and newclo[34] = 1 or odetnewclo = 0 and newclo[34] = 1: 'Fashionista´s  number 34 (strength <<newcloH[34]>>, hip size <<newcloB[34]>>) <a href="exec: numdres = 34 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 35 and newclo[35] = 1 or odetnewclo = 0 and newclo[35] = 1: 'Fashionista´s  number 35 (strength <<newcloH[35]>>, hip size <<newcloB[35]>>) <a href="exec: numdres = 35 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 36 and newclo[36] = 1 or odetnewclo = 0 and newclo[36] = 1: 'Fashionista´s  number 36 (strength <<newcloH[36]>>, hip size <<newcloB[36]>>) <a href="exec: numdres = 36 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 37 and newclo[37] = 1 or odetnewclo = 0 and newclo[37] = 1: 'Fashionista´s  number 37 (strength <<newcloH[37]>>, hip size <<newcloB[37]>>) <a href="exec: numdres = 37 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 38 and newclo[38] = 1 or odetnewclo = 0 and newclo[38] = 1: 'Fashionista´s  number 38 (strength <<newcloH[38]>>, hip size <<newcloB[38]>>) <a href="exec: numdres = 38 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 39 and newclo[39] = 1 or odetnewclo = 0 and newclo[39] = 1: 'Fashionista´s  number 39 (strength <<newcloH[39]>>, hip size <<newcloB[39]>>) <a href="exec: numdres = 39 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 40 and newclo[40] = 1 or odetnewclo = 0 and newclo[40] = 1: 'Fashionista´s  number 40 (strength <<newcloH[40]>>, hip size <<newcloB[40]>>) <a href="exec: numdres = 40 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 41 and newclo[41] = 1 or odetnewclo = 0 and newclo[41] = 1: 'Fashionista´s  number 41 (strength <<newcloH[41]>>, hip size <<newcloB[41]>>) <a href="exec: numdres = 41 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 42 and newclo[42] = 1 or odetnewclo = 0 and newclo[42] = 1: 'Fashionista´s  number 42 (strength <<newcloH[42]>>, hip size <<newcloB[42]>>) <a href="exec: numdres = 42 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 43 and newclo[43] = 1 or odetnewclo = 0 and newclo[43] = 1: 'Fashionista´s  number 43 (strength <<newcloH[43]>>, hip size <<newcloB[43]>>) <a href="exec: numdres = 43 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 44 and newclo[44] = 1 or odetnewclo = 0 and newclo[44] = 1: 'Fashionista´s  number 44 (strength <<newcloH[44]>>, hip size <<newcloB[44]>>) <a href="exec: numdres = 44 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 45 and newclo[45] = 1 or odetnewclo = 0 and newclo[45] = 1: 'Fashionista´s  number 45 (strength <<newcloH[45]>>, hip size <<newcloB[45]>>) <a href="exec: numdres = 45 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 46 and newclo[46] = 1 or odetnewclo = 0 and newclo[46] = 1: 'Fashionista´s  number 46 (strength <<newcloH[46]>>, hip size <<newcloB[46]>>) <a href="exec: numdres = 46 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 47 and newclo[47] = 1 or odetnewclo = 0 and newclo[47] = 1: 'Fashionista´s  number 47 (strength <<newcloH[47]>>, hip size <<newcloB[47]>>) <a href="exec: numdres = 47 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 48 and newclo[48] = 1 or odetnewclo = 0 and newclo[48] = 1: 'Fashionista´s  number 48 (strength <<newcloH[48]>>, hip size <<newcloB[48]>>) <a href="exec: numdres = 48 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 49 and newclo[49] = 1 or odetnewclo = 0 and newclo[49] = 1: 'Fashionista´s  number 49 (strength <<newcloH[49]>>, hip size <<newcloB[49]>>) <a href="exec: numdres = 49 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 50 and newclo[50] = 1 or odetnewclo = 0 and newclo[50] = 1: 'Fashionista´s  number 50 (strength <<newcloH[50]>>, hip size <<newcloB[50]>>) <a href="exec: numdres = 50 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 51 and newclo[51] = 1 or odetnewclo = 0 and newclo[51] = 1: 'Fashionista´s  number 51 (strength <<newcloH[51]>>, hip size <<newcloB[51]>>) <a href="exec: numdres = 51 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 52 and newclo[52] = 1 or odetnewclo = 0 and newclo[52] = 1: 'Fashionista´s  number 52 (strength <<newcloH[52]>>, hip size <<newcloB[52]>>) <a href="exec: numdres = 52 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 53 and newclo[53] = 1 or odetnewclo = 0 and newclo[53] = 1: 'Fashionista´s  number 53 (strength <<newcloH[53]>>, hip size <<newcloB[53]>>) <a href="exec: numdres = 53 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 54 and newclo[54] = 1 or odetnewclo = 0 and newclo[54] = 1: 'Fashionista´s  number 54 (strength <<newcloH[54]>>, hip size <<newcloB[54]>>) <a href="exec: numdres = 54 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 55 and newclo[55] = 1 or odetnewclo = 0 and newclo[55] = 1: 'Fashionista´s  number 55 (strength <<newcloH[55]>>, hip size <<newcloB[55]>>) <a href="exec: numdres = 55 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 56 and newclo[56] = 1 or odetnewclo = 0 and newclo[56] = 1: 'Fashionista´s  number 56 (strength <<newcloH[56]>>, hip size <<newcloB[56]>>) <a href="exec: numdres = 56 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 57 and newclo[57] = 1 or odetnewclo = 0 and newclo[57] = 1: 'Fashionista´s  number 57 (strength <<newcloH[57]>>, hip size <<newcloB[57]>>) <a href="exec: numdres = 57 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 58 and newclo[58] = 1 or odetnewclo = 0 and newclo[58] = 1: 'Fashionista´s  number 58 (strength <<newcloH[58]>>, hip size <<newcloB[58]>>) <a href="exec: numdres = 58 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 59 and newclo[59] = 1 or odetnewclo = 0 and newclo[59] = 1: 'Fashionista´s  number 59 (strength <<newcloH[59]>>, hip size <<newcloB[59]>>) <a href="exec: numdres = 59 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 60 and newclo[60] = 1 or odetnewclo = 0 and newclo[60] = 1: 'Fashionista´s  number 60 (strength <<newcloH[60]>>, hip size <<newcloB[60]>>) <a href="exec: numdres = 60 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 61 and newclo[61] = 1 or odetnewclo = 0 and newclo[61] = 1: 'Fashionista´s  number 61 (strength <<newcloH[61]>>, hip size <<newcloB[61]>>) <a href="exec: numdres = 61 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 62 and newclo[62] = 1 or odetnewclo = 0 and newclo[62] = 1: 'Fashionista´s  number 62 (strength <<newcloH[62]>>, hip size <<newcloB[62]>>) <a href="exec: numdres = 62 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 63 and newclo[63] = 1 or odetnewclo = 0 and newclo[63] = 1: 'Fashionista´s  number 63 (strength <<newcloH[63]>>, hip size <<newcloB[63]>>) <a href="exec: numdres = 63 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 64 and newclo[64] = 1 or odetnewclo = 0 and newclo[64] = 1: 'Fashionista´s  number 64 (strength <<newcloH[64]>>, hip size <<newcloB[64]>>) <a href="exec: numdres = 64 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 65 and newclo[65] = 1 or odetnewclo = 0 and newclo[65] = 1: 'Fashionista´s  number 65 (strength <<newcloH[65]>>, hip size <<newcloB[65]>>) <a href="exec: numdres = 65 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 66 and newclo[66] = 1 or odetnewclo = 0 and newclo[66] = 1: 'Fashionista´s  number 66 (strength <<newcloH[66]>>, hip size <<newcloB[66]>>) <a href="exec: numdres = 66 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 67 and newclo[67] = 1 or odetnewclo = 0 and newclo[67] = 1: 'Fashionista´s  number 67 (strength <<newcloH[67]>>, hip size <<newcloB[67]>>) <a href="exec: numdres = 67 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 68 and newclo[68] = 1 or odetnewclo = 0 and newclo[68] = 1: 'Fashionista´s  number 68 (strength <<newcloH[68]>>, hip size <<newcloB[68]>>) <a href="exec: numdres = 68 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 69 and newclo[69] = 1 or odetnewclo = 0 and newclo[69] = 1: 'Fashionista´s  number 69 (strength <<newcloH[69]>>, hip size <<newcloB[69]>>) <a href="exec: numdres = 69 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 70 and newclo[70] = 1 or odetnewclo = 0 and newclo[70] = 1: 'Fashionista´s  number 70 (strength <<newcloH[70]>>, hip size <<newcloB[70]>>) <a href="exec: numdres = 70 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 71 and newclo[71] = 1 or odetnewclo = 0 and newclo[71] = 1: 'Fashionista´s  number 71 (strength <<newcloH[71]>>, hip size <<newcloB[71]>>) <a href="exec: numdres = 71 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 72 and newclo[72] = 1 or odetnewclo = 0 and newclo[72] = 1: 'Fashionista´s  number 72 (strength <<newcloH[72]>>, hip size <<newcloB[72]>>) <a href="exec: numdres = 72 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 73 and newclo[73] = 1 or odetnewclo = 0 and newclo[73] = 1: 'Fashionista´s  number 73 (strength <<newcloH[73]>>, hip size <<newcloB[73]>>) <a href="exec: numdres = 73 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 74 and newclo[74] = 1 or odetnewclo = 0 and newclo[74] = 1: 'Fashionista´s  number 74 (strength <<newcloH[74]>>, hip size <<newcloB[74]>>) <a href="exec: numdres = 74 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 75 and newclo[75] = 1 or odetnewclo = 0 and newclo[75] = 1: 'Fashionista´s  number 75 (strength <<newcloH[75]>>, hip size <<newcloB[75]>>) <a href="exec: numdres = 75 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 76 and newclo[76] = 1 or odetnewclo = 0 and newclo[76] = 1: 'Fashionista´s  number 76 (strength <<newcloH[76]>>, hip size <<newcloB[76]>>) <a href="exec: numdres = 76 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 77 and newclo[77] = 1 or odetnewclo = 0 and newclo[77] = 1: 'Fashionista´s  number 77 (strength <<newcloH[77]>>, hip size <<newcloB[77]>>) <a href="exec: numdres = 77 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 78 and newclo[78] = 1 or odetnewclo = 0 and newclo[78] = 1: 'Fashionista´s  number 78 (strength <<newcloH[78]>>, hip size <<newcloB[78]>>) <a href="exec: numdres = 78 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 79 and newclo[79] = 1 or odetnewclo = 0 and newclo[79] = 1: 'Fashionista´s  number 79 (strength <<newcloH[79]>>, hip size <<newcloB[79]>>) <a href="exec: numdres = 79 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 80 and newclo[80] = 1 or odetnewclo = 0 and newclo[80] = 1: 'Fashionista´s  number 80 (strength <<newcloH[80]>>, hip size <<newcloB[80]>>) <a href="exec: numdres = 80 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 81 and newclo[81] = 1 or odetnewclo = 0 and newclo[81] = 1: 'Fashionista´s  number 81 (strength <<newcloH[81]>>, hip size <<newcloB[81]>>) <a href="exec: numdres = 81 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 82 and newclo[82] = 1 or odetnewclo = 0 and newclo[82] = 1: 'Fashionista´s  number 82 (strength <<newcloH[82]>>, hip size <<newcloB[82]>>) <a href="exec: numdres = 82 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 83 and newclo[83] = 1 or odetnewclo = 0 and newclo[83] = 1: 'Fashionista´s  number 83 (strength <<newcloH[83]>>, hip size <<newcloB[83]>>) <a href="exec: numdres = 83 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 84 and newclo[84] = 1 or odetnewclo = 0 and newclo[84] = 1: 'Fashionista´s  number 84 (strength <<newcloH[84]>>, hip size <<newcloB[84]>>) <a href="exec: numdres = 84 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 85 and newclo[85] = 1 or odetnewclo = 0 and newclo[85] = 1: 'Fashionista´s  number 85 (strength <<newcloH[85]>>, hip size <<newcloB[85]>>) <a href="exec: numdres = 85 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 86 and newclo[86] = 1 or odetnewclo = 0 and newclo[86] = 1: 'Fashionista´s  number 86 (strength <<newcloH[86]>>, hip size <<newcloB[86]>>) <a href="exec: numdres = 86 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 87 and newclo[87] = 1 or odetnewclo = 0 and newclo[87] = 1: 'Fashionista´s  number 87 (strength <<newcloH[87]>>, hip size <<newcloB[87]>>) <a href="exec: numdres = 87 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 88 and newclo[88] = 1 or odetnewclo = 0 and newclo[88] = 1: 'Fashionista´s  number 88 (strength <<newcloH[88]>>, hip size <<newcloB[88]>>) <a href="exec: numdres = 88 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 89 and newclo[89] = 1 or odetnewclo = 0 and newclo[89] = 1: 'Fashionista´s  number 89 (strength <<newcloH[89]>>, hip size <<newcloB[89]>>) <a href="exec: numdres = 89 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 90 and newclo[90] = 1 or odetnewclo = 0 and newclo[90] = 1: 'Fashionista´s  number 90 (strength <<newcloH[90]>>, hip size <<newcloB[90]>>) <a href="exec: numdres = 90 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 91 and newclo[91] = 1 or odetnewclo = 0 and newclo[91] = 1: 'Fashionista´s  number 91 (strength <<newcloH[91]>>, hip size <<newcloB[91]>>) <a href="exec: numdres = 91 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 92 and newclo[92] = 1 or odetnewclo = 0 and newclo[92] = 1: 'Fashionista´s  number 92 (strength <<newcloH[92]>>, hip size <<newcloB[92]>>) <a href="exec: numdres = 92 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 93 and newclo[93] = 1 or odetnewclo = 0 and newclo[93] = 1: 'Fashionista´s  number 93 (strength <<newcloH[93]>>, hip size <<newcloB[93]>>) <a href="exec: numdres = 93 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 94 and newclo[94] = 1 or odetnewclo = 0 and newclo[94] = 1: 'Fashionista´s  number 94 (strength <<newcloH[94]>>, hip size <<newcloB[94]>>) <a href="exec: numdres = 94 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 95 and newclo[95] = 1 or odetnewclo = 0 and newclo[95] = 1: 'Fashionista´s  number 95 (strength <<newcloH[95]>>, hip size <<newcloB[95]>>) <a href="exec: numdres = 95 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 96 and newclo[96] = 1 or odetnewclo = 0 and newclo[96] = 1: 'Fashionista´s  number 96 (strength <<newcloH[96]>>, hip size <<newcloB[96]>>) <a href="exec: numdres = 96 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 97 and newclo[97] = 1 or odetnewclo = 0 and newclo[97] = 1: 'Fashionista´s  number 97 (strength <<newcloH[97]>>, hip size <<newcloB[97]>>) <a href="exec: numdres = 97 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 98 and newclo[98] = 1 or odetnewclo = 0 and newclo[98] = 1: 'Fashionista´s  number 98 (strength <<newcloH[98]>>, hip size <<newcloB[98]>>) <a href="exec: numdres = 98 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 99 and newclo[99] = 1 or odetnewclo = 0 and newclo[99] = 1: 'Fashionista´s  number 99 (strength <<newcloH[99]>>, hip size <<newcloB[99]>>) <a href="exec: numdres = 99 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 100 and newclo[100] = 1 or odetnewclo = 0 and newclo[100] = 1: 'Fashionista´s  number 100 (strength <<newcloH[100]>>, hip size <<newcloB[100]>>) <a href="exec: numdres = 100 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 101 and newclo[101] = 1 or odetnewclo = 0 and newclo[101] = 1: 'Fashionista´s  number 101 (strength <<newcloH[101]>>, hip size <<newcloB[101]>>) <a href="exec: numdres = 101 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 102 and newclo[102] = 1 or odetnewclo = 0 and newclo[102] = 1: 'Fashionista´s  number 102 (strength <<newcloH[102]>>, hip size <<newcloB[102]>>) <a href="exec: numdres = 102 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 103 and newclo[103] = 1 or odetnewclo = 0 and newclo[103] = 1: 'Fashionista´s  number 103 (strength <<newcloH[103]>>, hip size <<newcloB[103]>>) <a href="exec: numdres = 103 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 104 and newclo[104] = 1 or odetnewclo = 0 and newclo[104] = 1: 'Fashionista´s  number 104 (strength <<newcloH[104]>>, hip size <<newcloB[104]>>) <a href="exec: numdres = 104 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 105 and newclo[105] = 1 or odetnewclo = 0 and newclo[105] = 1: 'Fashionista´s  number 105 (strength <<newcloH[105]>>, hip size <<newcloB[105]>>) <a href="exec: numdres = 105 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 106 and newclo[106] = 1 or odetnewclo = 0 and newclo[106] = 1: 'Fashionista´s  number 106 (strength <<newcloH[106]>>, hip size <<newcloB[106]>>) <a href="exec: numdres = 106 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 107 and newclo[107] = 1 or odetnewclo = 0 and newclo[107] = 1: 'Fashionista´s  number 107 (strength <<newcloH[107]>>, hip size <<newcloB[107]>>) <a href="exec: numdres = 107 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 108 and newclo[108] = 1 or odetnewclo = 0 and newclo[108] = 1: 'Fashionista´s  number 108 (strength <<newcloH[108]>>, hip size <<newcloB[108]>>) <a href="exec: numdres = 108 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 109 and newclo[109] = 1 or odetnewclo = 0 and newclo[109] = 1: 'Fashionista´s  number 109 (strength <<newcloH[109]>>, hip size <<newcloB[109]>>) <a href="exec: numdres = 109 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 110 and newclo[110] = 1 or odetnewclo = 0 and newclo[110] = 1: 'Fashionista´s  number 110 (strength <<newcloH[110]>>, hip size <<newcloB[110]>>) <a href="exec: numdres = 110 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 111 and newclo[111] = 1 or odetnewclo = 0 and newclo[111] = 1: 'Fashionista´s  number 111 (strength <<newcloH[111]>>, hip size <<newcloB[111]>>) <a href="exec: numdres = 111 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 112 and newclo[112] = 1 or odetnewclo = 0 and newclo[112] = 1: 'Fashionista´s  number 112 (strength <<newcloH[112]>>, hip size <<newcloB[112]>>) <a href="exec: numdres = 112 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 113 and newclo[113] = 1 or odetnewclo = 0 and newclo[113] = 1: 'Fashionista´s  number 113 (strength <<newcloH[113]>>, hip size <<newcloB[113]>>) <a href="exec: numdres = 113 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 114 and newclo[114] = 1 or odetnewclo = 0 and newclo[114] = 1: 'Fashionista´s  number 114 (strength <<newcloH[114]>>, hip size <<newcloB[114]>>) <a href="exec: numdres = 114 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 115 and newclo[115] = 1 or odetnewclo = 0 and newclo[115] = 1: 'Fashionista´s  number 115 (strength <<newcloH[115]>>, hip size <<newcloB[115]>>) <a href="exec: numdres = 115 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 116 and newclo[116] = 1 or odetnewclo = 0 and newclo[116] = 1: 'Fashionista´s  number 116 (strength <<newcloH[116]>>, hip size <<newcloB[116]>>) <a href="exec: numdres = 116 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 117 and newclo[117] = 1 or odetnewclo = 0 and newclo[117] = 1: 'Fashionista´s  number 117 (strength <<newcloH[117]>>, hip size <<newcloB[117]>>) <a href="exec: numdres = 117 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 118 and newclo[118] = 1 or odetnewclo = 0 and newclo[118] = 1: 'Fashionista´s  number 118 (strength <<newcloH[118]>>, hip size <<newcloB[118]>>) <a href="exec: numdres = 118 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 119 and newclo[119] = 1 or odetnewclo = 0 and newclo[119] = 1: 'Fashionista´s  number 119 (strength <<newcloH[119]>>, hip size <<newcloB[119]>>) <a href="exec: numdres = 119 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 120 and newclo[120] = 1 or odetnewclo = 0 and newclo[120] = 1: 'Fashionista´s  number 120 (strength <<newcloH[120]>>, hip size <<newcloB[120]>>) <a href="exec: numdres = 120 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 121 and newclo[121] = 1 or odetnewclo = 0 and newclo[121] = 1: 'Fashionista´s  number 121 (strength <<newcloH[121]>>, hip size <<newcloB[121]>>) <a href="exec: numdres = 121 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 122 and newclo[122] = 1 or odetnewclo = 0 and newclo[122] = 1: 'Fashionista´s  number 122 (strength <<newcloH[122]>>, hip size <<newcloB[122]>>) <a href="exec: numdres = 122 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 123 and newclo[123] = 1 or odetnewclo = 0 and newclo[123] = 1: 'Fashionista´s  number 123 (strength <<newcloH[123]>>, hip size <<newcloB[123]>>) <a href="exec: numdres = 123 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 124 and newclo[124] = 1 or odetnewclo = 0 and newclo[124] = 1: 'Fashionista´s  number 124 (strength <<newcloH[124]>>, hip size <<newcloB[124]>>) <a href="exec: numdres = 124 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 125 and newclo[125] = 1 or odetnewclo = 0 and newclo[125] = 1: 'Fashionista´s  number 125 (strength <<newcloH[125]>>, hip size <<newcloB[125]>>) <a href="exec: numdres = 125 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 126 and newclo[126] = 1 or odetnewclo = 0 and newclo[126] = 1: 'Fashionista´s  number 126 (strength <<newcloH[126]>>, hip size <<newcloB[126]>>) <a href="exec: numdres = 126 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 127 and newclo[127] = 1 or odetnewclo = 0 and newclo[127] = 1: 'Fashionista´s  number 127 (strength <<newcloH[127]>>, hip size <<newcloB[127]>>) <a href="exec: numdres = 127 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 128 and newclo[128] = 1 or odetnewclo = 0 and newclo[128] = 1: 'Fashionista´s  number 128 (strength <<newcloH[128]>>, hip size <<newcloB[128]>>) <a href="exec: numdres = 128 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 129 and newclo[129] = 1 or odetnewclo = 0 and newclo[129] = 1: 'Fashionista´s  number 129 (strength <<newcloH[129]>>, hip size <<newcloB[129]>>) <a href="exec: numdres = 129 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 130 and newclo[130] = 1 or odetnewclo = 0 and newclo[130] = 1: 'Fashionista´s  number 130 (strength <<newcloH[130]>>, hip size <<newcloB[130]>>) <a href="exec: numdres = 130 & GT ''loker'',''newclo''">watch</a>'
if odetnewclo = 1 and numdress ! 131 and newclo[131] = 1 or odetnewclo = 0 and newclo[131] = 1: 'School uniforms <a href="exec: numdres = 131 & GT ''loker'',''newclo''">view</a>'

if odetjeans=1 and numdress!201 and jeans[201]=1 or odetjeans=0 and jeans[201]=1:'Blue jeans with a grey tank top and a turquise hoodie. (The remaining strength <<jeansH[201]>> , The size of the hips <<jeansB[201]>>) <a href="exec:set numdres=201&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!202 and jeans[202]=1 or odetjeans=0 and jeans[202]=1:'Skin tight low-rise, dark blue jeans with a tight, purple tank top. (The remaining strength <<jeansH[202]>> , The size of the hips <<jeansB[202]>>) <a href="exec:set numdres=202&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!203 and jeans[203]=1 or odetjeans=0 and jeans[203]=1:'Skin tight dark blue jeans with a white tank top and a read hoodie. (The remaining strength <<jeansH[203]>> , The size of the hips <<jeansB[203]>>) <a href="exec:set numdres=203&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!204 and jeans[204]=1 or odetjeans=0 and jeans[204]=1:'Tight, torn light blue jeans with a bright purple T-Shirt, which has a deep, U-cut neckline. (The remaining strength <<jeansH[204]>> , The size of the hips <<jeansB[204]>>) <a href="exec:set numdres=204&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!205 and jeans[205]=1 or odetjeans=0 and jeans[205]=1:'Skin tight, low-rise and torn dark blue jeans with a white tank top and a black leather jacket. (The remaining strength <<jeansH[205]>> , The size of the hips <<jeansB[205]>>) <a href="exec:set numdres=205&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!206 and jeans[206]=1 or odetjeans=0 and jeans[206]=1:'Tight, low-rise dark blue jeans with a black tank top. (The remaining strength <<jeansH[206]>> , The size of the hips <<jeansB[206]>>) <a href="exec:set numdres=206&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!207 and jeans[207]=1 or odetjeans=0 and jeans[207]=1:'Skin tight, low-rise light blue jeans with a very short white tank top. (The remaining strength <<jeansH[207]>> , The size of the hips <<jeansB[207]>>) <a href="exec:set numdres=207&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!208 and jeans[208]=1 or odetjeans=0 and jeans[208]=1:'Skin tight blue jeans and a black tank top, which has a glittery pattern. It also has knee high boots. (The remaining strength <<jeansH[208]>> , The size of the hips <<jeansB[208]>>) <a href="exec:set numdres=208&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!209 and jeans[209]=1 or odetjeans=0 and jeans[209]=1:'Skin tight grey jeans and a neckholding brown top. (The remaining strength <<jeansH[209]>> , The size of the hips <<jeansB[209]>>) <a href="exec:set numdres=209&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!210 and jeans[210]=1 or odetjeans=0 and jeans[210]=1:'Light blue jeans with a white T-Shirt. (The remaining strength <<jeansH[210]>> , The size of the hips <<jeansB[210]>>) <a href="exec:set numdres=210&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!211 and jeans[211]=1 or odetjeans=0 and jeans[211]=1:'Skin tight, high rise dark grey jeans and a grey top, which has the american flag on it. (The remaining strength <<jeansH[211]>> , The size of the hips <<jeansB[211]>>) <a href="exec:set numdres=211&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!212 and jeans[212]=1 or odetjeans=0 and jeans[212]=1:'Tight blue jeans, with a black leather belt and a pink-white stripped hoodie. (The remaining strength <<jeansH[212]>> , The size of the hips <<jeansB[212]>>) <a href="exec:set numdres=212&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!213 and jeans[213]=1 or odetjeans=0 and jeans[213]=1:'Skin tight light grey jeans and a loose black T-Shirt. (The remaining strength <<jeansH[213]>> , The size of the hips <<jeansB[213]>>) <a href="exec:set numdres=213&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!214 and jeans[214]=1 or odetjeans=0 and jeans[214]=1:'Skin tight grey jeans, a green T-Shirt and a puple-black striped hoodie. (The remaining strength <<jeansH[214]>> , The size of the hips <<jeansB[214]>>) <a href="exec:set numdres=214&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!215 and jeans[215]=1 or odetjeans=0 and jeans[215]=1:'High rise, light blue jeans and a black halter top. (The remaining strength <<jeansH[215]>> , The size of the hips <<jeansB[215]>>) <a href="exec:set numdres=215&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!216 and jeans[216]=1 or odetjeans=0 and jeans[216]=1:'Skin tight dark blue jeans and a shiny sliver blouse, with a deep U-shaped cleavage. (The remaining strength <<jeansH[216]>> , The size of the hips <<jeansB[216]>>) <a href="exec:set numdres=216&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!217 and jeans[217]=1 or odetjeans=0 and jeans[217]=1:'Tight blue jeans and a breght red-black striped T-Shirt, with a deep cleavage. (The remaining strength <<jeansH[217]>> , The size of the hips <<jeansB[217]>>) <a href="exec:set numdres=217&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!218 and jeans[218]=1 or odetjeans=0 and jeans[218]=1:'High rise, skin tight blue jeans and a short grey see-through shirt. (The remaining strength <<jeansH[218]>> , The size of the hips <<jeansB[218]>>) <a href="exec:set numdres=218&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!219 and jeans[219]=1 or odetjeans=0 and jeans[219]=1:'Skin tight blue jeans and a white halter top. (The remaining strength <<jeansH[219]>> , The size of the hips <<jeansB[219]>>) <a href="exec:set numdres=219&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!220 and jeans[220]=1 or odetjeans=0 and jeans[220]=1:'Light blue jeans and a loose black top, with the wrtting in white saying "Sex Instructor". (The remaining strength <<jeansH[220]>> , The size of the hips <<jeansB[220]>>) <a href="exec:set numdres=220&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!221 and jeans[221]=1 or odetjeans=0 and jeans[221]=1:'Skin tight, light blue jeans and a white halter top under a blue-white blouse. (The remaining strength <<jeansH[221]>> , The size of the hips <<jeansB[221]>>) <a href="exec:set numdres=221&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!222 and jeans[222]=1 or odetjeans=0 and jeans[222]=1:'High rise, dark blue jeans and a golden bikini top. (The remaining strength <<jeansH[222]>> , The size of the hips <<jeansB[222]>>) <a href="exec:set numdres=222&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!223 and jeans[223]=1 or odetjeans=0 and jeans[223]=1:'High rise, dark blue jeans and a backless pink top. (The remaining strength <<jeansH[223]>> , The size of the hips <<jeansB[223]>>) <a href="exec:set numdres=223&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!224 and jeans[224]=1 or odetjeans=0 and jeans[224]=1:'High rise, light blue jeans and a backless silver top. (The remaining strength <<jeansH[224]>> , The size of the hips <<jeansB[224]>>) <a href="exec:set numdres=224&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!225 and jeans[225]=1 or odetjeans=0 and jeans[225]=1:'Skin tight, light blue jeans, with a white belt and a short and tight glittery golden halter top. (The remaining strength <<jeansH[225]>> , The size of the hips <<jeansB[225]>>) <a href="exec:set numdres=225&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!226 and jeans[226]=1 or odetjeans=0 and jeans[226]=1:'High rise, dark blue jeans and a short black halter top. (The remaining strength <<jeansH[226]>> , The size of the hips <<jeansB[226]>>) <a href="exec:set numdres=226&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!227 and jeans[227]=1 or odetjeans=0 and jeans[227]=1:'High rise, skin tight blue jeans and a loose fitting flesh colored top.(The remaining strength <<jeansH[227]>> , The size of the hips <<jeansB[227]>>) <a href="exec:set numdres=227&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!228 and jeans[228]=1 or odetjeans=0 and jeans[228]=1:'Skin tight, light blue high rise jeans and a tight white tank top. (The remaining strength <<jeansH[228]>> , The size of the hips <<jeansB[228]>>) <a href="exec:set numdres=228&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!229 and jeans[229]=1 or odetjeans=0 and jeans[229]=1:'Skin tight, light blue jeans and a pink halter top. (The remaining strength <<jeansH[229]>> , The size of the hips <<jeansB[229]>>) <a href="exec:set numdres=229&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!230 and jeans[230]=1 or odetjeans=0 and jeans[230]=1:'Skin tight, white high rise jeans and a loose fitting black-white striped top.(The remaining strength <<jeansH[230]>> , The size of the hips <<jeansB[230]>>) <a href="exec:set numdres=230&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!231 and jeans[231]=1 or odetjeans=0 and jeans[231]=1:'Skin tight, high rise light blue jeans, a tight fitting top in beige and a beige wool vest. (The remaining strength <<jeansH[231]>> , The size of the hips <<jeansB[231]>>) <a href="exec:set numdres=231&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!232 and jeans[232]=1 or odetjeans=0 and jeans[232]=1:'Skin tight, dark blue jeans, with a small brown belt and a white T-Shirt. (The remaining strength <<jeansH[232]>> , The size of the hips <<jeansB[232]>>) <a href="exec:set numdres=232&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!236 and jeans[236]=1 or odetjeans=0 and jeans[236]=1:'High rise, light blue jeans and a black tank top. (The remaining strength <<jeansH[236]>> , The size of the hips <<jeansB[236]>>) <a href="exec:set numdres=236&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!237 and jeans[237]=1 or odetjeans=0 and jeans[237]=1:'Low rise, dark blue jeans and a beige vest. (The remaining strength <<jeansH[237]>> , The size of the hips <<jeansB[237]>>) <a href="exec:set numdres=237&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!238 and jeans[238]=1 or odetjeans=0 and jeans[238]=1:'High rise, skin tight, dark blue jeans  and a short, yellow top. (The remaining strength <<jeansH[238]>> , The size of the hips <<jeansB[238]>>) <a href="exec:set numdres=238&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!239 and jeans[239]=1 or odetjeans=0 and jeans[239]=1:'High rise, skin tight, dark blue jeans, with a brown belt and a denim blue denim shirt. (The remaining strength <<jeansH[239]>> , The size of the hips <<jeansB[239]>>) <a href="exec:set numdres=239&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!240 and jeans[240]=1 or odetjeans=0 and jeans[240]=1:'Low rise, blue jeans and a white shirt. (The remaining strength <<jeansH[240]>> , The size of the hips <<jeansB[240]>>) <a href="exec:set numdres=240&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!241 and jeans[241]=1 or odetjeans=0 and jeans[241]=1:'High rise, skin tight, blue jeans, with a white-grey belt and a white tank top. (The remaining strength <<jeansH[241]>> , The size of the hips <<jeansB[241]>>) <a href="exec:set numdres=241&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!243 and jeans[243]=1 or odetjeans=0 and jeans[243]=1:'Blue jeans and a grey "Smiley" T-Shirt, with a very deep cleavage. (The remaining strength <<jeansH[243]>> , The size of the hips <<jeansB[243]>>) <a href="exec:set numdres=243&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!244 and jeans[244]=1 or odetjeans=0 and jeans[244]=1:'High rise, skin tight, light blue jeans and a short white tank top. (The remaining strength <<jeansH[244]>> , The size of the hips <<jeansB[244]>>) <a href="exec:set numdres=244&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!245 and jeans[245]=1 or odetjeans=0 and jeans[245]=1:'High rise, skin tight, dark blue jeans, with a small blue belt and a white shirt, with a deep cleavage. (The remaining strength <<jeansH[245]>> , The size of the hips <<jeansB[245]>>) <a href="exec:set numdres=245&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!246 and jeans[246]=1 or odetjeans=0 and jeans[246]=1:'Light blue jeans and a black neckhalter top. (The remaining strength <<jeansH[246]>> , The size of the hips <<jeansB[246]>>) <a href="exec:set numdres=246&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!247 and jeans[247]=1 or odetjeans=0 and jeans[247]=1:'High rise, skin tight, light blue jeans and a dark blue neckhalter top. (The remaining strength <<jeansH[247]>> , The size of the hips <<jeansB[247]>>) <a href="exec:set numdres=247&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!248 and jeans[248]=1 or odetjeans=0 and jeans[248]=1:'High rise, skin tight, dark blue jeans, with a small beige belt, a tight, red camisole and a beige blouse. (The remaining strength <<jeansH[248]>> , The size of the hips <<jeansB[248]>>) <a href="exec:set numdres=248&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!249 and jeans[249]=1 or odetjeans=0 and jeans[249]=1:'High rise, skin tight, light blue jeans, a short white camisole under a short black hoodie. (The remaining strength <<jeansH[249]>> , The size of the hips <<jeansB[249]>>) <a href="exec:set numdres=249&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!250 and jeans[250]=1 or odetjeans=0 and jeans[250]=1:'Skin tight, blue jeans, a light blue denim blouse under a blue denim jacket. (The remaining strength <<jeansH[250]>> , The size of the hips <<jeansB[250]>>) <a href="exec:set numdres=250&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!251 and jeans[251]=1 or odetjeans=0 and jeans[251]=1:'Tight, blue denim jeans and a black T-Shirt. (The remaining strength <<jeansH[251]>> , The size of the hips <<jeansB[251]>>) <a href="exec:set numdres=251&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!252 and jeans[252]=1 or odetjeans=0 and jeans[252]=1:'High rise, blue jeans, with a brown belt and a short, light pink T-Shirt. (The remaining strength <<jeansH[252]>> , The size of the hips <<jeansB[252]>>) <a href="exec:set numdres=252&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!253 and jeans[253]=1 or odetjeans=0 and jeans[253]=1:'Skin tight, light blue jeans and a short, tight, neon-pink top. (The remaining strength <<jeansH[253]>> , The size of the hips <<jeansB[253]>>) <a href="exec:set numdres=253&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!254 and jeans[254]=1 or odetjeans=0 and jeans[254]=1:'High rise, skin tight, blue jeans, with a black leather belt and a green shirt, with a very revealing cleavage. (The remaining strength <<jeansH[254]>> , The size of the hips <<jeansB[254]>>) <a href="exec:set numdres=254&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!255 and jeans[255]=1 or odetjeans=0 and jeans[255]=1:'Tight, light blue jeans and a short, beige shirt. (The remaining strength <<jeansH[255]>> , The size of the hips <<jeansB[255]>>) <a href="exec:set numdres=255&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!256 and jeans[256]=1 or odetjeans=0 and jeans[256]=1:'Blue jeans and a white tank top, with a deep cleavage. (The remaining strength <<jeansH[256]>> , The size of the hips <<jeansB[256]>>) <a href="exec:set numdres=256&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!257 and jeans[257]=1 or odetjeans=0 and jeans[257]=1:'High rise, skin tight, light blue jeans, with a black leather belt and a white T-Shirt. (The remaining strength <<jeansH[257]>> , The size of the hips <<jeansB[257]>>) <a href="exec:set numdres=257&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!258 and jeans[258]=1 or odetjeans=0 and jeans[258]=1:'Tight, dark grey pants and a dark blue shirt, with a deep cleavage. (The remaining strength <<jeansH[258]>> , The size of the hips <<jeansB[258]>>) <a href="exec:set numdres=258&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!259 and jeans[259]=1 or odetjeans=0 and jeans[259]=1:'High rise, tight, light blue jeans and a white tank top. (The remaining strength <<jeansH[259]>> , The size of the hips <<jeansB[259]>>) <a href="exec:set numdres=259&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!260 and jeans[260]=1 or odetjeans=0 and jeans[260]=1:'High rise, skin tight, light blue jeans and a short white top. (The remaining strength <<jeansH[260]>> , The size of the hips <<jeansB[260]>>) <a href="exec:set numdres=260&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!261 and jeans[261]=1 or odetjeans=0 and jeans[261]=1:'High rise, skin tight, white denim jeans and a short, red tube-top. (The remaining strength <<jeansH[261]>> , The size of the hips <<jeansB[261]>>) <a href="exec:set numdres=261&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!262 and jeans[262]=1 or odetjeans=0 and jeans[262]=1:'High rise, tight, light blue jeans and a leopard patterend tube top. (The remaining strength <<jeansH[262]>> , The size of the hips <<jeansB[262]>>) <a href="exec:set numdres=262&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!263 and jeans[263]=1 or odetjeans=0 and jeans[263]=1:'High rise, skin tight, blue jeans aand a white-yellow top. (The remaining strength <<jeansH[263]>> , The size of the hips <<jeansB[263]>>) <a href="exec:set numdres=263&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!264 and jeans[264]=1 or odetjeans=0 and jeans[264]=1:'Low rise, skin tight, light blue jeans and a short, pink camisole. (The remaining strength <<jeansH[264]>> , The size of the hips <<jeansB[264]>>) <a href="exec:set numdres=264&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!265 and jeans[265]=1 or odetjeans=0 and jeans[265]=1:'Tight, white denim pants and a short, red camisole. (The remaining strength <<jeansH[265]>> , The size of the hips <<jeansB[265]>>) <a href="exec:set numdres=265&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!266 and jeans[266]=1 or odetjeans=0 and jeans[266]=1:'High rise, skin tight, dark blue jeans, with a black leather blet and a tight, thin, black neckhalter top. (The remaining strength <<jeansH[266]>> , The size of the hips <<jeansB[266]>>) <a href="exec:set numdres=266&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!267 and jeans[267]=1 or odetjeans=0 and jeans[267]=1:'High rise, skin tight, blue jeans, with a small brown belt and a short white camisole. (The remaining strength <<jeansH[267]>> , The size of the hips <<jeansB[267]>>) <a href="exec:set numdres=267&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!268 and jeans[268]=1 or odetjeans=0 and jeans[268]=1:'High rise, tight, light blue jeans and a black tank top. (The remaining strength <<jeansH[268]>> , The size of the hips <<jeansB[268]>>) <a href="exec:set numdres=268&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!269 and jeans[269]=1 or odetjeans=0 and jeans[269]=1:'High rise, skin tight, blue jeans and a short, tight, light grey T-Shirt. (The remaining strength <<jeansH[269]>> , The size of the hips <<jeansB[269]>>) <a href="exec:set numdres=269&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!270 and jeans[270]=1 or odetjeans=0 and jeans[270]=1:'Tight, dark blue jeans and a grey T-Shirt. (The remaining strength <<jeansH[270]>> , The size of the hips <<jeansB[270]>>) <a href="exec:set numdres=270&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!271 and jeans[271]=1 or odetjeans=0 and jeans[271]=1:'Skin tight, blue jeans and a black shirt, with a revealing cleavage. (The remaining strength <<jeansH[271]>> , The size of the hips <<jeansB[271]>>) <a href="exec:set numdres=271&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!272 and jeans[272]=1 or odetjeans=0 and jeans[272]=1:'High rise, skin tight, dark blue jeans, with a grey belt and a colourful T-Shirt. (The remaining strength <<jeansH[272]>> , The size of the hips <<jeansB[272]>>) <a href="exec:set numdres=272&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!273 and jeans[273]=1 or odetjeans=0 and jeans[273]=1:'Tight, blue jeans and a grey camisole, with a very revealing cleavage. (The remaining strength <<jeansH[273]>> , The size of the hips <<jeansB[273]>>) <a href="exec:set numdres=273&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!274 and jeans[274]=1 or odetjeans=0 and jeans[274]=1:'High rise, tight, blue jeans and a white tube top. (The remaining strength <<jeansH[274]>> , The size of the hips <<jeansB[274]>>) <a href="exec:set numdres=274&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!275 and jeans[275]=1 or odetjeans=0 and jeans[275]=1:'High rise, skin tight, torn, blue jeans and a very tight, very short, black camisole, with a very revealing cleavage. (The remaining strength <<jeansH[275]>> , The size of the hips <<jeansB[275]>>) <a href="exec:set numdres=275&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!276 and jeans[276]=1 or odetjeans=0 and jeans[276]=1:'Tight, light blue jeans and a blue short, with a revealing cleavage. (The remaining strength <<jeansH[276]>> , The size of the hips <<jeansB[276]>>) <a href="exec:set numdres=276&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!278 and jeans[278]=1 or odetjeans=0 and jeans[278]=1:'High rise, skin tight, dark blue jeans and a white tank top, with a revealing cleavage, under a red, leather jacket. (The remaining strength <<jeansH[278]>> , The size of the hips <<jeansB[278]>>) <a href="exec:set numdres=278&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!279 and jeans[279]=1 or odetjeans=0 and jeans[279]=1:'High rise, skin tight, blue jeans and a short, blue neckhalter top. (The remaining strength <<jeansH[279]>> , The size of the hips <<jeansB[279]>>) <a href="exec:set numdres=279&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!280 and jeans[280]=1 or odetjeans=0 and jeans[280]=1:'High rise, tight, blue jeans and black top, with lacy parts. (The remaining strength <<jeansH[280]>> , The size of the hips <<jeansB[280]>>) <a href="exec:set numdres=280&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!281 and jeans[281]=1 or odetjeans=0 and jeans[281]=1:'High rise, tight, light blue jeans and a short, black camisole. (The remaining strength <<jeansH[281]>> , The size of the hips <<jeansB[281]>>) <a href="exec:set numdres=281&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!282 and jeans[282]=1 or odetjeans=0 and jeans[282]=1:'High rise, skin tight dark blue jeans and stripped, white-grey T-Shirt. (The remaining strength <<jeansH[282]>> , The size of the hips <<jeansB[282]>>) <a href="exec:set numdres=282&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!283 and jeans[283]=1 or odetjeans=0 and jeans[283]=1:'High rise, tight, light blue jeans, with a white-grey belt and a light brown top. (The remaining strength <<jeansH[283]>> , The size of the hips <<jeansB[283]>>) <a href="exec:set numdres=283&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!285 and jeans[285]=1 or odetjeans=0 and jeans[285]=1:'Skin tight, dark blue jeans and a brown tank top. (The remaining strength <<jeansH[285]>> , The size of the hips <<jeansB[285]>>) <a href="exec:set numdres=285&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!286 and jeans[286]=1 or odetjeans=0 and jeans[286]=1:'Blue jeans and a skin tight, black latex T-Shirt. (The remaining strength <<jeansH[286]>> , The size of the hips <<jeansB[286]>>) <a href="exec:set numdres=286&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!287 and jeans[287]=1 or odetjeans=0 and jeans[287]=1:'High rise, skin tight, light blue jeans, with a small brown belt and a short, colorful top. (The remaining strength <<jeansH[287]>> , The size of the hips <<jeansB[287]>>) <a href="exec:set numdres=287&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!289 and jeans[289]=1 or odetjeans=0 and jeans[289]=1:'Skin tight, dark blue jeans and a tight fitting, light brown camisole. (The remaining strength <<jeansH[289]>> , The size of the hips <<jeansB[289]>>) <a href="exec:set numdres=289&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!290 and jeans[290]=1 or odetjeans=0 and jeans[290]=1:'High rise, skin tight, black leather pants and a purple camisole. (The remaining strength <<jeansH[290]>> , The size of the hips <<jeansB[290]>>) <a href="exec:set numdres=290&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!291 and jeans[291]=1 or odetjeans=0 and jeans[291]=1:'Skin tight, grey jeans and a white tank top, under a neon-orange jacket. (The remaining strength <<jeansH[291]>> , The size of the hips <<jeansB[291]>>) <a href="exec:set numdres=291&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!292 and jeans[292]=1 or odetjeans=0 and jeans[292]=1:'High rise, skin tight, blue jeans and a short, black T-Shirt. (The remaining strength <<jeansH[292]>> , The size of the hips <<jeansB[292]>>) <a href="exec:set numdres=292&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!293 and jeans[293]=1 or odetjeans=0 and jeans[293]=1:'High rise, skin tight, blue jeans and a short, white tank top under a colorful blouse. (The remaining strength <<jeansH[293]>> , The size of the hips <<jeansB[293]>>) <a href="exec:set numdres=293&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!294 and jeans[294]=1 or odetjeans=0 and jeans[294]=1:'High rise, skin tight, blue jeans and a tight, grey top. (The remaining strength <<jeansH[294]>> , The size of the hips <<jeansB[294]>>) <a href="exec:set numdres=294&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!295 and jeans[295]=1 or odetjeans=0 and jeans[295]=1:'High rise, skin tight, blue jeans and a shirt, red top, with a very deep and revealing cleavage. (The remaining strength <<jeansH[295]>> , The size of the hips <<jeansB[295]>>) <a href="exec:set numdres=295&GT ''loker'',''jeans''">look</a>'
if odetjeans=1 and numdress!297 and jeans[297]=1 or odetjeans=0 and jeans[297]=1:'Tight, light blue jeans and a white camisole. (The remaining strength <<jeansH[297]>> , The size of the hips <<jeansB[297]>>) <a href="exec:set numdres=297&GT ''loker'',''jeans''">look</a>'

if odetshort=1 and numdress!201 and short[201]=1 or odetshort=0 and short[201]=1:'Light blue denim shorts, a black belt and a cropped, white tank top. (The remaining strength <<shortH[201]>>, The size of the hips <<shortB[201]>>) <a href="exec:set numdres=201&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!202 and short[202]=1 or odetshort=0 and short[202]=1:'Blue denim shorts and a grey tank top. (The remaining strength <<shortH[202]>>, The size of the hips <<shortB[202]>>) <a href="exec:set numdres=202&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!203 and short[203]=1 or odetshort=0 and short[203]=1:'Blue denim shorts and a black tank top. (The remaining strength <<shortH[203]>>, The size of the hips <<shortB[203]>>) <a href="exec:set numdres=203&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!204 and short[204]=1 or odetshort=0 and short[204]=1:'Blue denim shorts and a cropped, white tank top. (The remaining strength <<shortH[204]>>, The size of the hips <<shortB[204]>>) <a href="exec:set numdres=204&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!205 and short[205]=1 or odetshort=0 and short[205]=1:'Light blue denim shorts with a frilly, white tank top, which has a discreet color pattern. (The remaining strength <<shortH[205]>>, The size of the hips <<shortB[205]>>) <a href="exec:set numdres=205&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!206 and short[206]=1 or odetshort=0 and short[206]=1:'Light blue denim shorts, a light brown belt and a dark grey tank top.Light blue denim shorts, a light brown belt and a dark grey tank top. (The remaining strength <<shortH[206]>>, The size of the hips <<shortB[206]>>) <a href="exec:set numdres=206&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!207 and short[207]=1 or odetshort=0 and short[207]=1:'Loose grey shorts with a white tank top. (The remaining strength <<shortH[207]>>, The size of the hips <<shortB[207]>>) <a href="exec:set numdres=207&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!208 and short[208]=1 or odetshort=0 and short[208]=1:'Tight grey shorts with a white tank top. (The remaining strength <<shortH[208]>>, The size of the hips <<shortB[208]>>) <a href="exec:set numdres=208&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!209 and short[209]=1 or odetshort=0 and short[209]=1:'Dark blue denim shorts with a pink bikini top. (The remaining strength <<shortH[209]>>, The size of the hips <<shortB[209]>>) <a href="exec:set numdres=209&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!210 and short[210]=1 or odetshort=0 and short[210]=1:'Light blue denim shorts and a white bikini top, which has a pinkish colored pattern. (The remaining strength <<shortH[210]>>, The size of the hips <<shortB[210]>>) <a href="exec:set numdres=210&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!211 and short[211]=1 or odetshort=0 and short[211]=1:'Very short, blue denim shorts and a light pink shirt. (The remaining strength <<shortH[211]>>, The size of the hips <<shortB[211]>>) <a href="exec:set numdres=211&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!212 and short[212]=1 or odetshort=0 and short[212]=1:'Light blue denim shorts with a white shirt. (The remaining strength <<shortH[212]>>, The size of the hips <<shortB[212]>>) <a href="exec:set numdres=212&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!213 and short[213]=1 or odetshort=0 and short[213]=1:'Dark blue shorts and black leggins with a bright pink shirt. (The remaining strength <<shortH[213]>>, The size of the hips <<shortB[213]>>) <a href="exec:set numdres=213&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!214 and short[214]=1 or odetshort=0 and short[214]=1:'Very short, dark blue denim shorts with a grey T-Shirt. (The remaining strength <<shortH[214]>>, The size of the hips <<shortB[214]>>) <a href="exec:set numdres=214&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!215 and short[215]=1 or odetshort=0 and short[215]=1:'Loose, light blue denim shorts with a tight, brown shirt. (The remaining strength <<shortH[215]>>, The size of the hips <<shortB[215]>>) <a href="exec:set numdres=215&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!216 and short[216]=1 or odetshort=0 and short[216]=1:'Loose, blue denim shorts with a light grey T-Shirt, which a deep U-Style neckline. (The remaining strength <<shortH[216]>>, The size of the hips <<shortB[216]>>) <a href="exec:set numdres=216&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!217 and short[217]=1 or odetshort=0 and short[217]=1:'Light blue denim shorts with a white top. (The remaining strength <<shortH[217]>>, The size of the hips <<shortB[217]>>) <a href="exec:set numdres=217&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!218 and short[218]=1 or odetshort=0 and short[218]=1:'Light blue denim shorts with a halterless, pink top. (The remaining strength <<shortH[218]>>, The size of the hips <<shortB[218]>>) <a href="exec:set numdres=218&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!219 and short[219]=1 or odetshort=0 and short[219]=1:'Blue denim shorts with a grey tank top. (The remaining strength <<shortH[219]>>, The size of the hips <<shortB[219]>>) <a href="exec:set numdres=219&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!220 and short[220]=1 or odetshort=0 and short[220]=1:'Very short, white shorts and a white top. (The remaining strength <<shortH[220]>>, The size of the hips <<shortB[220]>>) <a href="exec:set numdres=220&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!221 and short[221]=1 or odetshort=0 and short[221]=1:'Tight, white denim shorts with a short, but colorful tank top. (The remaining strength <<shortH[221]>>, The size of the hips <<shortB[221]>>) <a href="exec:set numdres=221&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!222 and short[222]=1 or odetshort=0 and short[222]=1:'White shorts with a tight, light brown T-Shirt. (The remaining strength <<shortH[222]>>, The size of the hips <<shortB[222]>>) <a href="exec:set numdres=222&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!223 and short[223]=1 or odetshort=0 and short[223]=1:'Black shorts with a turquise belt and short, black-turquise T-Shirt. (The remaining strength <<shortH[223]>>, The size of the hips <<shortB[223]>>) <a href="exec:set numdres=223&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!224 and short[224]=1 or odetshort=0 and short[224]=1:'Blue shorts with a short, blue T-Shirt. (The remaining strength <<shortH[224]>>, The size of the hips <<shortB[224]>>) <a href="exec:set numdres=224&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!225 and short[225]=1 or odetshort=0 and short[225]=1:'Dark blue denim shorts and sheer, beige blouse. (The remaining strength <<shortH[225]>>, The size of the hips <<shortB[225]>>) <a href="exec:set numdres=225&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!226 and short[226]=1 or odetshort=0 and short[226]=1:'Light blue denim shorts, a dark blue tank top and a white vest. (The remaining strength <<shortH[226]>>, The size of the hips <<shortB[226]>>) <a href="exec:set numdres=226&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!227 and short[227]=1 or odetshort=0 and short[227]=1:'Very short, tight, black shorts with a yellow belt and a yellow hoodie. (The remaining strength <<shortH[227]>>, The size of the hips <<shortB[227]>>) <a href="exec:set numdres=227&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!228 and short[228]=1 or odetshort=0 and short[228]=1:'Very short, tight, black shorts and a orange-white vest. (The remaining strength <<shortH[228]>>, The size of the hips <<shortB[228]>>) <a href="exec:set numdres=228&GT ''loker'',''short''">look</a>'

if odetshort=1 and numdress!229 and short[229]=1 or odetshort=0 and short[229]=1:'Very short denim shorts and a tight, short white T-shirt, which a deep U-shaped cutting. (The remaining strength <<shortH[229]>>, The size of the hips <<shortB[229]>>) <a href="exec:set numdres=229&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!230 and short[230]=1 or odetshort=0 and short[230]=1:'Tight, light blue denim shorts and a loose fitting blue top.(The remaining strength <<shortH[230]>>, The size of the hips <<shortB[230]>>) <a href="exec:set numdres=230&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!231 and short[231]=1 or odetshort=0 and short[231]=1:'Very short blue denim shorts, with a brown belt and a frilly, light blue neckhalter top. (The remaining strength <<shortH[231]>>, The size of the hips <<shortB[231]>>) <a href="exec:set numdres=231&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!232 and short[232]=1 or odetshort=0 and short[232]=1:'Dark blue denim shorts, with a large, light brown belt and a blue halter top, which has a deep U-shaped cutting. (The remaining strength <<shortH[232]>>, The size of the hips <<shortB[232]>>) <a href="exec:set numdres=232&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!233 and short[233]=1 or odetshort=0 and short[233]=1:'Blue denim shorts and a short white halter top, which you can see slightly through and it has a deep U-shaped neckline. (The remaining strength <<shortH[233]>>, The size of the hips <<shortB[233]>>) <a href="exec:set numdres=233&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!234 and short[234]=1 or odetshort=0 and short[234]=1:'Cropped dark blue denim short and a back free, light pink halter. (The remaining strength <<shortH[234]>>, The size of the hips <<shortB[234]>>) <a href="exec:set numdres=234&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!235 and short[235]=1 or odetshort=0 and short[235]=1:'Light blue denim shorts and a light brown top. (The remaining strength <<shortH[235]>>, The size of the hips <<shortB[235]>>) <a href="exec:set numdres=235&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!236 and short[236]=1 or odetshort=0 and short[236]=1:'Cropped blue denim shorts and a bright pink shirt, which has a very deep V-shaped cutting. (The remaining strength <<shortH[236]>>, The size of the hips <<shortB[236]>>) <a href="exec:set numdres=236&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!237 and short[237]=1 or odetshort=0 and short[237]=1:'Short yellow-black hotpants and a white tank top. (The remaining strength <<shortH[237]>>, The size of the hips <<shortB[237]>>) <a href="exec:set numdres=237&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!238 and short[238]=1 or odetshort=0 and short[238]=1:'Cropped white shorts and a light pink tank top. (The remaining strength <<shortH[238]>>, The size of the hips <<shortB[238]>>) <a href="exec:set numdres=238&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!239 and short[239]=1 or odetshort=0 and short[239]=1:'Cropped blue denim shorts and a loose fitting red halter top. (The remaining strength <<shortH[239]>>, The size of the hips <<shortB[239]>>) <a href="exec:set numdres=239&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!240 and short[240]=1 or odetshort=0 and short[240]=1:'Very short, cropped blue denim shorts and a red patterend blouse. (The remaining strength <<shortH[240]>>, The size of the hips <<shortB[240]>>) <a href="exec:set numdres=240&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!241 and short[241]=1 or odetshort=0 and short[241]=1:'Cropped light blue shorts and a very revealing white top. (The remaining strength <<shortH[241]>>, The size of the hips <<shortB[241]>>) <a href="exec:set numdres=241&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!242 and short[242]=1 or odetshort=0 and short[242]=1:'Light blue denim shorts, with a brown belt and a pink top. (The remaining strength <<shortH[242]>>, The size of the hips <<shortB[242]>>) <a href="exec:set numdres=242&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!244 and short[244]=1 or odetshort=0 and short[244]=1:'Cropped black denim shorts, with a studded black belt, a black tank top and a black leather vest. (The remaining strength <<shortH[244]>>, The size of the hips <<shortB[244]>>) <a href="exec:set numdres=244&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!245 and short[245]=1 or odetshort=0 and short[245]=1:'Short black hotpants and a white halter top. (The remaining strength <<shortH[245]>>, The size of the hips <<shortB[245]>>) <a href="exec:set numdres=245&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!246 and short[246]=1 or odetshort=0 and short[246]=1:'Light blue denim shorts, with a brown belt and a blue top, with a V-shaped cleavage. (The remaining strength <<shortH[246]>>, The size of the hips <<shortB[246]>>) <a href="exec:set numdres=246&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!247 and short[247]=1 or odetshort=0 and short[247]=1:'Light blue denim shorts and a loose fitting tank top.  (The remaining strength <<shortH[247]>>, The size of the hips <<shortB[247]>>) <a href="exec:set numdres=247&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!248 and short[248]=1 or odetshort=0 and short[248]=1:'Light blue denim shorts, with a yellow belt and a tight yellow halter top. (The remaining strength <<shortH[248]>>, The size of the hips <<shortB[248]>>) <a href="exec:set numdres=248&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!249 and short[249]=1 or odetshort=0 and short[249]=1:'Very short blue denim shorts and a very short, but cute top. (The remaining strength <<shortH[249]>>, The size of the hips <<shortB[249]>>) <a href="exec:set numdres=249&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!250 and short[250]=1 or odetshort=0 and short[250]=1:'Yellow hotpants and a short blue halter top. (The remaining strength <<shortH[250]>>, The size of the hips <<shortB[250]>>) <a href="exec:set numdres=250&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!251 and short[251]=1 or odetshort=0 and short[251]=1:'White hotpants and a tight fitting white top, which has a deep U-shaped neckline. (The remaining strength <<shortH[251]>>, The size of the hips <<shortB[251]>>) <a href="exec:set numdres=251&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!252 and short[252]=1 or odetshort=0 and short[252]=1:'Cropped light blue denim shorts, a very short yellow halter top and a light blue blouse.  (The remaining strength <<shortH[252]>>, The size of the hips <<shortB[252]>>) <a href="exec:set numdres=252&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!253 and short[253]=1 or odetshort=0 and short[253]=1:'Light blue denim shorts, a pink bikini top, which is under a red, flower-patterend see-through top. (The remaining strength <<shortH[253]>>, The size of the hips <<shortB[253]>>) <a href="exec:set numdres=253&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!255 and short[255]=1 or odetshort=0 and short[255]=1:'Blue denim shorts and a white shirt. (The remaining strength <<shortH[255]>>, The size of the hips <<shortB[255]>>) <a href="exec:set numdres=255&GT ''loker'',''short''">look</a>'
if odetshort=1 and numdress!256 and short[256]=1 or odetshort=0 and short[256]=1:'Light blue denim shorts, with a brown snake-skin belt and a short dark brown T-Shirt. (The remaining strength <<shortH[256]>>, The size of the hips <<shortB[256]>>) <a href="exec:set numdres=256&GT ''loker'',''short''">look</a>'

if odetskirt=1 and numdress!201 and skirt[201]=1 or odetskirt=0 and skirt[201]=1:'Orange-beige micro skirt and a top with a deep V-shaped cutting. (The remaining strength <<skirtH[201]>>, The size of the hips <<skirtB[201]>>) <a href="exec:set numdres=201&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!202 and skirt[202]=1 or odetskirt=0 and skirt[202]=1:'Black plaid mirco skirt and a grey T-Shirt, that has a deep V-cut neckline. (The remaining strength <<skirtH[202]>>, The size of the hips <<skirtB[202]>>) <a href="exec:set numdres=202&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!203 and skirt[203]=1 or odetskirt=0 and skirt[203]=1:'Light brown mini skirt with a tight dark brown short. (The remaining strength <<skirtH[203]>>, The size of the hips <<skirtB[203]>>) <a href="exec:set numdres=203&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!204 and skirt[204]=1 or odetskirt=0 and skirt[204]=1:'Light blue skirt with a tight fitting white top. (The remaining strength <<skirtH[204]>>, The size of the hips <<skirtB[204]>>) <a href="exec:set numdres=204&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!205 and skirt[205]=1 or odetskirt=0 and skirt[205]=1:'Dark blue denim micro skirt and a pink tank top. (The remaining strength <<skirtH[205]>>, The size of the hips <<skirtB[205]>>) <a href="exec:set numdres=205&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!206 and skirt[206]=1 or odetskirt=0 and skirt[206]=1:'Red patterned plaid micro skirt and a cute T-Shirt. (The remaining strength <<skirtH[206]>>, The size of the hips <<skirtB[206]>>) <a href="exec:set numdres=206&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!207 and skirt[207]=1 or odetskirt=0 and skirt[207]=1:'Light blue flower patterned high-waisted skirt and a short birhgt pink shirt.(The remaining strength <<skirtH[207]>>, The size of the hips <<skirtB[207]>>) <a href="exec:set numdres=207&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!208 and skirt[208]=1 or odetskirt=0 and skirt[208]=1:'White mini skirt with a blue tank top. (The remaining strength <<skirtH[208]>>, The size of the hips <<skirtB[208]>>) <a href="exec:set numdres=208&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!209 and skirt[209]=1 or odetskirt=0 and skirt[209]=1:'White flare mini skirt with a yellow top. (The remaining strength <<skirtH[209]>>, The size of the hips <<skirtB[209]>>) <a href="exec:set numdres=209&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!210 and skirt[210]=1 or odetskirt=0 and skirt[210]=1:'Blue denim mini skirt with a cropped light blue top. (The remaining strength <<skirtH[210]>>, The size of the hips <<skirtB[210]>>) <a href="exec:set numdres=210&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!211 and skirt[211]=1 or odetskirt=0 and skirt[211]=1:'Tight white mini skirt with buckles on the side and a red polkadot patterned blouse. (The remaining strength <<skirtH[211]>>, The size of the hips <<skirtB[211]>>) <a href="exec:set numdres=211&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!212 and skirt[212]=1 or odetskirt=0 and skirt[212]=1:'Blue denim skirt with a sliver belt and a tight grey neckhaltered top. (The remaining strength <<skirtH[212]>>, The size of the hips <<skirtB[212]>>) <a href="exec:set numdres=212&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!213 and skirt[213]=1 or odetskirt=0 and skirt[213]=1:'Light purple flare skirt with a see through yellow top. Get a nice vintage look with the right pantyhose and heels. (The remaining strength <<skirtH[213]>>, The size of the hips <<skirtB[213]>>) <a href="exec:set numdres=213&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!214 and skirt[214]=1 or odetskirt=0 and skirt[214]=1:'Dark grey flared micro skirt and a bright pink pullover. (The remaining strength <<skirtH[214]>>, The size of the hips <<skirtB[214]>>) <a href="exec:set numdres=214&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!215 and skirt[215]=1 or odetskirt=0 and skirt[215]=1:'High-waisted turquise pencil mini skirt and a very short purple top. (The remaining strength <<skirtH[215]>>, The size of the hips <<skirtB[215]>>) <a href="exec:set numdres=215&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!216 and skirt[216]=1 or odetskirt=0 and skirt[216]=1:'Dark blue pencil mini skirt, a white shirt with a white ribbon at the end of the V-shaped cutting and a small beige colored jacket. (The remaining strength <<skirtH[216]>>, The size of the hips <<skirtB[216]>>) <a href="exec:set numdres=216&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!217 and skirt[217]=1 or odetskirt=0 and skirt[217]=1:'High-waisted black leather skirt and a white T-Shirt, which has a high U-shaped cutting. (The remaining strength <<skirtH[217]>>, The size of the hips <<skirtB[217]>>) <a href="exec:set numdres=217&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!218 and skirt[218]=1 or odetskirt=0 and skirt[218]=1:'Dark blue flare skirt and a green T-Shirt. (The remaining strength <<skirtH[218]>>, The size of the hips <<skirtB[218]>>) <a href="exec:set numdres=218&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!219 and skirt[219]=1 or odetskirt=0 and skirt[219]=1:'Blue denim mini skirt and a trendy T-Shirt, with a high V-shaped cutting. (The remaining strength <<skirtH[219]>>, The size of the hips <<skirtB[219]>>) <a href="exec:set numdres=219&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!221 and skirt[221]=1 or odetskirt=0 and skirt[221]=1:'White mini skirt and a blue patterend halter top. (The remaining strength <<skirtH[221]>>, The size of the hips <<skirtB[221]>>) <a href="exec:set numdres=221&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!222 and skirt[222]=1 or odetskirt=0 and skirt[222]=1:'Blue denim mini skirt and a beige colored top, which is kept together by knots. (The remaining strength <<skirtH[222]>>, The size of the hips <<skirtB[222]>>) <a href="exec:set numdres=222&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!223 and skirt[223]=1 or odetskirt=0 and skirt[223]=1:'Purple mini skirt, a purple top and a black leather jacket. (The remaining strength <<skirtH[223]>>, The size of the hips <<skirtB[223]>>) <a href="exec:set numdres=223&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!224 and skirt[224]=1 or odetskirt=0 and skirt[224]=1:'Light blue flare skirt and a dark purple shirt, with a V-shaped cutting. (The remaining strength <<skirtH[224]>>, The size of the hips <<skirtB[224]>>) <a href="exec:set numdres=224&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!225 and skirt[225]=1 or odetskirt=0 and skirt[225]=1:'Purple patterned flared micro skirt and a pink tank top. (The remaining strength <<skirtH[225]>>, The size of the hips <<skirtB[225]>>) <a href="exec:set numdres=225&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!226 and skirt[226]=1 or odetskirt=0 and skirt[226]=1:'High-waisted grey pencil skirt and a black tank top. (The remaining strength <<skirtH[226]>>, The size of the hips <<skirtB[226]>>) <a href="exec:set numdres=226&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!227 and skirt[227]=1 or odetskirt=0 and skirt[227]=1:'Tight red micro skirt with a flower patterned belt and a white blouse with a very deep V-shaped cutting. (The remaining strength <<skirtH[227]>>, The size of the hips <<skirtB[227]>>) <a href="exec:set numdres=227&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!228 and skirt[228]=1 or odetskirt=0 and skirt[228]=1:'Red-Black colored pattern on a flared micro skirt and a white blouse under a black top. (The remaining strength <<skirtH[228]>>, The size of the hips <<skirtB[228]>>) <a href="exec:set numdres=228&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!229 and skirt[229]=1 or odetskirt=0 and skirt[229]=1:'tight purple mini skirt and a white see-through blouse. (The remaining strength <<skirtH[229]>>, The size of the hips <<skirtB[229]>>) <a href="exec:set numdres=229&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!230 and skirt[230]=1 or odetskirt=0 and skirt[230]=1:'Dark blue denim mini skirt and a light blue tank top. (The remaining strength <<skirtH[230]>>, The size of the hips <<skirtB[230]>>) <a href="exec:set numdres=230&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!232 and skirt[232]=1 or odetskirt=0 and skirt[232]=1:'Flower patterned flared micro skirt and a black top with a very deep V-shaped cutting. (The remaining strength <<skirtH[232]>>, The size of the hips <<skirtB[232]>>) <a href="exec:set numdres=232&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!233 and skirt[233]=1 or odetskirt=0 and skirt[233]=1:'Pink micro skirt and a black top with a U-Shaped cutting. (The remaining strength <<skirtH[233]>>, The size of the hips <<skirtB[233]>>) <a href="exec:set numdres=233&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!234 and skirt[234]=1 or odetskirt=0 and skirt[234]=1:'White mini skirt with a very tight light pink shirt. (The remaining strength <<skirtH[234]>>, The size of the hips <<skirtB[234]>>) <a href="exec:set numdres=234&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!235 and skirt[235]=1 or odetskirt=0 and skirt[235]=1:'Dark blue denim micro skirt and a red shirt. (The remaining strength <<skirtH[235]>>, The size of the hips <<skirtB[235]>>) <a href="exec:set numdres=235&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!237 and skirt[237]=1 or odetskirt=0 and skirt[237]=1:'Light pink micro skirt and a short white top, with a very deep V-shaped cutting.(The remaining strength <<skirtH[237]>>, The size of the hips <<skirtB[237]>>) <a href="exec:set numdres=237&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!238 and skirt[238]=1 or odetskirt=0 and skirt[238]=1:'Black pencil skirt and a loose white top. (The remaining strength <<skirtH[238]>>, The size of the hips <<skirtB[238]>>) <a href="exec:set numdres=238&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!239 and skirt[239]=1 or odetskirt=0 and skirt[239]=1:'Blue denim flared skirt and a blue flower patterend halter top. (The remaining strength <<skirtH[239]>>, The size of the hips <<skirtB[239]>>) <a href="exec:set numdres=239&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!240 and skirt[240]=1 or odetskirt=0 and skirt[240]=1:'Light blue denim skirt, a black tank top and a small black leather jacket. (The remaining strength <<skirtH[240]>>, The size of the hips <<skirtB[240]>>) <a href="exec:set numdres=240&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!242 and skirt[242]=1 or odetskirt=0 and skirt[242]=1:'Beige pencil skirt and a black tank top under a black blouse and a black belt, which closes the blouse. (The remaining strength <<skirtH[242]>>, The size of the hips <<skirtB[242]>>) <a href="exec:set numdres=242&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!243 and skirt[243]=1 or odetskirt=0 and skirt[243]=1:'Dark green flared skirt and a short white shirt under a short black leather-like vest. (The remaining strength <<skirtH[243]>>, The size of the hips <<skirtB[243]>>) <a href="exec:set numdres=243&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!245 and skirt[245]=1 or odetskirt=0 and skirt[245]=1:'Tight pink micro skirt and a grey tank top, with a deep U-shaped cutting under a denim jacket. (The remaining strength <<skirtH[245]>>, The size of the hips <<skirtB[245]>>) <a href="exec:set numdres=245&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!246 and skirt[246]=1 or odetskirt=0 and skirt[246]=1:'Black flared micro skirt and a red tank top, with a small black ribbon at the end of the very deep U-shaped cutting, under a bright pink jacket. (The remaining strength <<skirtH[246]>>, The size of the hips <<skirtB[246]>>) <a href="exec:set numdres=246&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!247 and skirt[247]=1 or odetskirt=0 and skirt[247]=1:'White denim mini skirt and dark purple T-Shirt with a very deep V-shaped cutting. (The remaining strength <<skirtH[247]>>, The size of the hips <<skirtB[247]>>) <a href="exec:set numdres=247&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!248 and skirt[248]=1 or odetskirt=0 and skirt[248]=1:'Black leather mini skirt and a black T-Shirth, which has a U-shaped cutting. (The remaining strength <<skirtH[248]>>, The size of the hips <<skirtB[248]>>) <a href="exec:set numdres=248&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!249 and skirt[249]=1 or odetskirt=0 and skirt[249]=1:'Black leather mini skirt and a very tight light pink T-Shirt with a deep U-shaped cutting. (The remaining strength <<skirtH[249]>>, The size of the hips <<skirtB[249]>>) <a href="exec:set numdres=249&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!250 and skirt[250]=1 or odetskirt=0 and skirt[250]=1:'Black pencil mini skirt and a dark purple T-Shirt. (The remaining strength <<skirtH[250]>>, The size of the hips <<skirtB[250]>>) <a href="exec:set numdres=250&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!251 and skirt[251]=1 or odetskirt=0 and skirt[251]=1:'Light blue denim micro skirt and a white halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[251]>>, The size of the hips <<skirtB[251]>>) <a href="exec:set numdres=251&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!252 and skirt[252]=1 or odetskirt=0 and skirt[252]=1:'White micro skirt and a pink-white flower patterend halterless top. (The remaining strength <<skirtH[252]>>, The size of the hips <<skirtB[252]>>) <a href="exec:set numdres=252&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!253 and skirt[253]=1 or odetskirt=0 and skirt[253]=1:'Pink mini skirt and a cute light pink T-Shirt. (The remaining strength <<skirtH[253]>>, The size of the hips <<skirtB[253]>>) <a href="exec:set numdres=253&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!254 and skirt[254]=1 or odetskirt=0 and skirt[254]=1:'Light blue denim micro skirt and a very short light yellow top, which is secured by a knot between the breasts.  (The remaining strength <<skirtH[254]>>, The size of the hips <<skirtB[254]>>) <a href="exec:set numdres=254&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!255 and skirt[255]=1 or odetskirt=0 and skirt[255]=1:'Black flared micro skirt and a black blouse, with a deep V-shaped cutting by default. (The remaining strength <<skirtH[255]>>, The size of the hips <<skirtB[255]>>) <a href="exec:set numdres=255&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!256 and skirt[256]=1 or odetskirt=0 and skirt[256]=1:'Black pencil mini skirt and a grey halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[256]>>, The size of the hips <<skirtB[256]>>) <a href="exec:set numdres=256&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!257 and skirt[257]=1 or odetskirt=0 and skirt[257]=1:'White pencil mini skirt and a light green loose top, which a very deep but not very revealing V-shaped cutting. (The remaining strength <<skirtH[257]>>, The size of the hips <<skirtB[257]>>) <a href="exec:set numdres=257&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!258 and skirt[258]=1 or odetskirt=0 and skirt[258]=1:'Grey flared micro skirt and a dark brown halter top, which has a deep U-shaped neckline. (The remaining strength <<skirtH[258]>>, The size of the hips <<skirtB[258]>>) <a href="exec:set numdres=258&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!259 and skirt[259]=1 or odetskirt=0 and skirt[259]=1:'Light blue denim mini skirt and a white-blue striped leaf patterend tank top beneaf a cute dark blue jacket. (The remaining strength <<skirtH[259]>>, The size of the hips <<skirtB[259]>>) <a href="exec:set numdres=259&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!260 and skirt[260]=1 or odetskirt=0 and skirt[260]=1:'Light blue denim mini skirt and a cropped white halter top, which has a nice V-shaped cutting. (The remaining strength <<skirtH[260]>>, The size of the hips <<skirtB[260]>>) <a href="exec:set numdres=260&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!261 and skirt[261]=1 or odetskirt=0 and skirt[261]=1:'Glittery grey pencil mini skirt and a dark blue shirt. (The remaining strength <<skirtH[261]>>, The size of the hips <<skirtB[261]>>) <a href="exec:set numdres=261&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!262 and skirt[262]=1 or odetskirt=0 and skirt[262]=1:'Striped flared mini skirt, a light pink slightly see-through halter top and a brown belt as accessory. (The remaining strength <<skirtH[262]>>, The size of the hips <<skirtB[262]>>) <a href="exec:set numdres=262&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!263 and skirt[263]=1 or odetskirt=0 and skirt[263]=1:'High waisted black pencil skirt and a white T-Shirt. (The remaining strength <<skirtH[263]>>, The size of the hips <<skirtB[263]>>) <a href="exec:set numdres=263&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!264 and skirt[264]=1 or odetskirt=0 and skirt[264]=1:'Blue denim mini skirt and a white T-Shirt, which has a deep U-shaped cutting. (The remaining strength <<skirtH[264]>>, The size of the hips <<skirtB[264]>>) <a href="exec:set numdres=264&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!265 and skirt[265]=1 or odetskirt=0 and skirt[265]=1:'White flared mini skirt and a grey T-Shirt. (The remaining strength <<skirtH[265]>>, The size of the hips <<skirtB[265]>>) <a href="exec:set numdres=265&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!266 and skirt[266]=1 or odetskirt=0 and skirt[266]=1:'Light blue micro skirt and a tight white tank top. (The remaining strength <<skirtH[266]>>, The size of the hips <<skirtB[266]>>) <a href="exec:set numdres=266&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!267 and skirt[267]=1 or odetskirt=0 and skirt[267]=1:'Flared blue micro skit and a light yellow halter top, which provides a great view to anyone, due to its deep cutting. (The remaining strength <<skirtH[267]>>, The size of the hips <<skirtB[267]>>) <a href="exec:set numdres=267&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!268 and skirt[268]=1 or odetskirt=0 and skirt[268]=1:'Dark blue flared mini skirt and a cropped white T-Shirt, which has a deep V-shaped cutting. (The remaining strength <<skirtH[268]>>, The size of the hips <<skirtB[268]>>) <a href="exec:set numdres=268&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!269 and skirt[269]=1 or odetskirt=0 and skirt[269]=1:'Tight white pencil skirt, with a golden belt and tight turquise colored neckhaltered top. (The remaining strength <<skirtH[269]>>, The size of the hips <<skirtB[269]>>) <a href="exec:set numdres=269&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!270 and skirt[270]=1 or odetskirt=0 and skirt[270]=1:'Pink flared micro skirt and a white T-shirt, which has a few black lines to decorate it. (The remaining strength <<skirtH[270]>>, The size of the hips <<skirtB[270]>>) <a href="exec:set numdres=270&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!271 and skirt[271]=1 or odetskirt=0 and skirt[271]=1:'Stripe patterend White-Black-Red flared mini skirt and a beige shirt, which has a very deep V-shaped cutting. (The remaining strength <<skirtH[271]>>, The size of the hips <<skirtB[271]>>) <a href="exec:set numdres=271&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!272 and skirt[272]=1 or odetskirt=0 and skirt[272]=1:'Light blue denim micro skirt and a green tank top, which has a deep U-shaped cutting.  (The remaining strength <<skirtH[272]>>, The size of the hips <<skirtB[272]>>) <a href="exec:set numdres=272&GT ''loker'',''skirt''">look</a>'
if odetskirt=1 and numdress!273 and skirt[273]=1 or odetskirt=0 and skirt[273]=1:'Red flared mini skirt and an orange T-shirt. It has a red belt as accessory to bind around the waist. It makes you look like Velma. (The remaining strength <<skirtH[273]>>, The size of the hips <<skirtB[273]>>) <a href="exec:set numdres=273&GT ''loker'',''skirt''">look</a>'

if odetdress=1 and numdress!201 and dress[201]=1 or odetdress=0 and dress[201]=1:'Tight beige halter dress and beige-golden heels.(The remaining strength <<dressH[201]>>, The size of the hips <<dressB[201]>>) <a href="exec:set numdres=201&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!202 and dress[202]=1 or odetdress=0 and dress[202]=1:'Very short flower-style dress and pink pumps with golden heels.(The remaining strength <<dressH[202]>>, The size of the hips <<dressB[202]>>) <a href="exec:set numdres=202&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!203 and dress[203]=1 or odetdress=0 and dress[203]=1:'Glittery pink neckhalter dress.(The remaining strength <<dressH[203]>>, The size of the hips <<dressB[203]>>) <a href="exec:set numdres=203&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!204 and dress[204]=1 or odetdress=0 and dress[204]=1:'Tight wine red dress with a deep V cut.(The remaining strength <<dressH[204]>>, The size of the hips <<dressB[204]>>) <a href="exec:set numdres=204&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!205 and dress[205]=1 or odetdress=0 and dress[205]=1:'Tight bright red dress with a sheer black back.(The remaining strength <<dressH[205]>>, The size of the hips <<dressB[205]>>) <a href="exec:set numdres=205&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!206 and dress[206]=1 or odetdress=0 and dress[206]=1:'Grey green dress.(The remaining strength <<dressH[206]>>, The size of the hips <<dressB[206]>>) <a href="exec:set numdres=206&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!207 and dress[207]=1 or odetdress=0 and dress[207]=1:'Black lounge dress, including black heels.(The remaining strength <<dressH[207]>>, The size of the hips <<dressB[207]>>) <a href="exec:set numdres=207&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!208 and dress[208]=1 or odetdress=0 and dress[208]=1:'Glittery black dress with deep V cut.(The remaining strength <<dressH[208]>>, The size of the hips <<dressB[208]>>) <a href="exec:set numdres=208&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!209 and dress[209]=1 or odetdress=0 and dress[209]=1:'Tight black dress with thigh high boots.(The remaining strength <<dressH[209]>>, The size of the hips <<dressB[209]>>) <a href="exec:set numdres=209&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!210 and dress[210]=1 or odetdress=0 and dress[210]=1:'Tight bright blue dress.(The remaining strength <<dressH[210]>>, The size of the hips <<dressB[210]>>) <a href="exec:set numdres=210&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!211 and dress[211]=1 or odetdress=0 and dress[211]=1:'Glittery, black dress, with a deep V-shaped cleavage. (The remaining strength <<dressH[211]>>, The size of the hips <<dressB[211]>>) <a href="exec:set numdres=211&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!212 and dress[212]=1 or odetdress=0 and dress[212]=1:'Black dress, which has parts made of a see-trough material. (The remaining strength <<dressH[212]>>, The size of the hips <<dressB[212]>>) <a href="exec:set numdres=212&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!213 and dress[213]=1 or odetdress=0 and dress[213]=1:'White-beige dress, with a deep cleavage. (The remaining strength <<dressH[213]>>, The size of the hips <<dressB[213]>>) <a href="exec:set numdres=213&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!214 and dress[214]=1 or odetdress=0 and dress[214]=1:'2-part dress, with a short, tight skirt and a form-fitting top. (The remaining strength <<dressH[214]>>, The size of the hips <<dressB[214]>>) <a href="exec:set numdres=214&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!215 and dress[215]=1 or odetdress=0 and dress[215]=1:'Form-fittig black dress. (The remaining strength <<dressH[215]>>, The size of the hips <<dressB[215]>>) <a href="exec:set numdres=215&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!216 and dress[216]=1 or odetdress=0 and dress[216]=1:'Short, white dress. (The remaining strength <<dressH[216]>>, The size of the hips <<dressB[216]>>) <a href="exec:set numdres=216&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!217 and dress[217]=1 or odetdress=0 and dress[217]=1:'Dark blue dress with a revealing cleavage. (The remaining strength <<dressH[217]>>, The size of the hips <<dressB[217]>>) <a href="exec:set numdres=217&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!218 and dress[218]=1 or odetdress=0 and dress[218]=1:'Wine red dress, which has several lace parts. (The remaining strength <<dressH[218]>>, The size of the hips <<dressB[218]>>) <a href="exec:set numdres=218&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!219 and dress[219]=1 or odetdress=0 and dress[219]=1:'Red-blue-white dress. (The remaining strength <<dressH[219]>>, The size of the hips <<dressB[219]>>) <a href="exec:set numdres=219&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!220 and dress[220]=1 or odetdress=0 and dress[220]=1:'Black dress, with a revealing cleavage. (The remaining strength <<dressH[220]>>, The size of the hips <<dressB[220]>>) <a href="exec:set numdres=220&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!221 and dress[221]=1 or odetdress=0 and dress[221]=1:'Form-fitting, pink-grey dress. (The remaining strength <<dressH[221]>>, The size of the hips <<dressB[221]>>) <a href="exec:set numdres=221&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!222 and dress[222]=1 or odetdress=0 and dress[222]=1:'Pink dress.(The remaining strength <<dressH[222]>>, The size of the hips <<dressB[222]>>) <a href="exec:set numdres=222&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!223 and dress[223]=1 or odetdress=0 and dress[223]=1:'Long, glittery red dress, with a deep cleavage.(The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!224 and dress[224]=1 or odetdress=0 and dress[226]=1:'Long, formal dress in blue. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''loker'',''dress''">look</a>'
if odetdress=1 and numdress!225 and dress[225]=1 or odetdress=0 and dress[227]=1:'Long, formal dress in red. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''loker'',''dress''">look</a>'

if odetprofi = 1 and numdress ! 201 and profi[201] = 1 or odetprofi = 0 and profi[201] = 1: 'Office dress 201 (strength <<profiH[201]>>, hip size <<profiB[201]>>) <a href="exec: set numdres = 201 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 202 and profi[202] = 1 or odetprofi = 0 and profi[202] = 1: 'Office dress 202 (strength <<profiH[202]>>, hip size <<profiB[202]>>) <a href="exec: set numdres = 202 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 203 and profi[203] = 1 or odetprofi = 0 and profi[203] = 1: 'Office dress 203 (strength <<profiH[203]>>, hip size <<profiB[203]>>) <a href="exec: set numdres = 203 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 204 and profi[204] = 1 or odetprofi = 0 and profi[204] = 1: 'Office dress 204 (strength <<profiH[204]>>, hip size <<profiB[204]>>) <a href="exec: set numdres = 204 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 205 and profi[205] = 1 or odetprofi = 0 and profi[205] = 1: 'Office dress 205 (strength <<profiH[205]>>, hip size <<profiB[205]>>) <a href="exec: set numdres = 205 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 206 and profi[206] = 1 or odetprofi = 0 and profi[206] = 1: 'Office dress 206 (strength <<profiH[206]>>, hip size <<profiB[206]>>) <a href="exec: set numdres = 206 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 207 and profi[207] = 1 or odetprofi = 0 and profi[207] = 1: 'Office dress 207 (strength <<profiH[207]>>, hip size <<profiB[207]>>) <a href="exec: set numdres = 207 & GT ''loker'',''profi''">watch</a>'
if odetprofi = 1 and numdress ! 208 and profi[208] = 1 or odetprofi = 0 and profi[208] = 1: 'Office dress 208 (strength <<profiH[208]>>, hip size <<profiB[208]>>) <a href="exec: set numdres = 208 & GT ''loker'',''profi''">watch</a>'

if odetpants=1 and numdress!201 and pants[201]=1 or odetpants=0 and pants[201]=1:'Glittery silver leggings with a silver neckhalter top. (The remaining strength <<pantsH[201]>>, The size of the hips <<pantsB[201]>>) <a href="exec:set numdres=201&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!202 and pants[202]=1 or odetpants=0 and pants[202]=1:'Shiny silver leggings and a short white tube top. (The remaining strength <<pantsH[202]>>, The size of the hips <<pantsB[202]>>) <a href="exec:set numdres=202&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!203 and pants[203]=1 or odetpants=0 and pants[203]=1:'Shiny beige leggings and a frilly white T-Shirt, which people are able to see through. (The remaining strength <<pantsH[203]>>, The size of the hips <<pantsB[203]>>) <a href="exec:set numdres=203&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!204 and pants[204]=1 or odetpants=0 and pants[204]=1:'Grey leggings with a black tank top and a short black leather jacket. (The remaining strength <<pantsH[204]>>, The size of the hips <<pantsB[204]>>) <a href="exec:set numdres=204&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!205 and pants[205]=1 or odetpants=0 and pants[205]=1:'Black leggings with a light blue top, which provides a great view due to it very deep U-Shaped cutting. (The remaining strength <<pantsH[205]>>, The size of the hips <<pantsB[205]>>) <a href="exec:set numdres=205&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!206 and pants[206]=1 or odetpants=0 and pants[206]=1:'Shiny black leggings with a shiny silver top. (The remaining strength <<pantsH[206]>>, The size of the hips <<pantsB[206]>>) <a href="exec:set numdres=206&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!207 and pants[207]=1 or odetpants=0 and pants[207]=1:'Black leggings with a pink top. (The remaining strength <<pantsH[207]>>, The size of the hips <<pantsB[207]>>) <a href="exec:set numdres=207&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!208 and pants[208]=1 or odetpants=0 and pants[208]=1:'Tight blue jeggings with a black tank top. (The remaining strength <<pantsH[208]>>, The size of the hips <<pantsB[208]>>) <a href="exec:set numdres=208&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!210 and pants[210]=1 or odetpants=0 and pants[210]=1:'Tight grey leggings with discreet leopard pattern, a white blouse and a light brown jacket. (The remaining strength <<pantsH[210]>>, The size of the hips <<pantsB[210]>>) <a href="exec:set numdres=210&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!211 and pants[211]=1 or odetpants=0 and pants[211]=1:'Shiny black leggings, with a studded belt and a black T-Shirt. (The remaining strength <<pantsH[211]>>, The size of the hips <<pantsB[211]>>) <a href="exec:set numdres=211&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!212 and pants[212]=1 or odetpants=0 and pants[212]=1:'Shiny black leggings and a black-white striped camisole under a dark grey jacket. (The remaining strength <<pantsH[212]>>, The size of the hips <<pantsB[212]>>) <a href="exec:set numdres=212&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!213 and pants[213]=1 or odetpants=0 and pants[213]=1:'Black leggings and a white blouse. (The remaining strength <<pantsH[213]>>, The size of the hips <<pantsB[213]>>) <a href="exec:set numdres=213&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!214 and pants[214]=1 or odetpants=0 and pants[214]=1:'Black leggings and a short dark blue T-Shirt. (The remaining strength <<pantsH[214]>>, The size of the hips <<pantsB[214]>>) <a href="exec:set numdres=214&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!215 and pants[215]=1 or odetpants=0 and pants[215]=1:'Patterned blue leggings and a colorful tank top. (The remaining strength <<pantsH[215]>>, The size of the hips <<pantsB[215]>>) <a href="exec:set numdres=215&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!216 and pants[216]=1 or odetpants=0 and pants[216]=1:'Black leggings and a white tank top. (The remaining strength <<pantsH[216]>>, The size of the hips <<pantsB[216]>>) <a href="exec:set numdres=216&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!217 and pants[217]=1 or odetpants=0 and pants[217]=1:'Light pink leggings and a black tank top under a short grey hoodie. (The remaining strength <<pantsH[217]>>, The size of the hips <<pantsB[217]>>) <a href="exec:set numdres=217&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!218 and pants[218]=1 or odetpants=0 and pants[218]=1:'Grey leggings and a white neckhalter top. (The remaining strength <<pantsH[218]>>, The size of the hips <<pantsB[218]>>) <a href="exec:set numdres=218&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!219 and pants[219]=1 or odetpants=0 and pants[219]=1:'Black leggings and a pink T-Shirt. (The remaining strength <<pantsH[219]>>, The size of the hips <<pantsB[219]>>) <a href="exec:set numdres=219&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!220 and pants[220]=1 or odetpants=0 and pants[220]=1:'White leggings and a short, white tube top. (The remaining strength <<pantsH[220]>>, The size of the hips <<pantsB[220]>>) <a href="exec:set numdres=220&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!221 and pants[221]=1 or odetpants=0 and pants[221]=1:'Shiny, grey leggings and a short, blue blouse. (The remaining strength <<pantsH[221]>>, The size of the hips <<pantsB[221]>>) <a href="exec:set numdres=221&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!222 and pants[222]=1 or odetpants=0 and pants[222]=1:'Leopard patterned leggings and a short, red top. (The remaining strength <<pantsH[222]>>, The size of the hips <<pantsB[222]>>) <a href="exec:set numdres=222&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!223 and pants[223]=1 or odetpants=0 and pants[223]=1:'Beige pants and an oliv T-Shirt. (The remaining strength <<pantsH[223]>>, The size of the hips <<pantsB[223]>>) <a href="exec:set numdres=223&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!226 and pants[226]=1 or odetpants=0 and pants[226]=1:'Dark blue leggings and a black shirt. (The remaining strength <<pantsH[226]>>, The size of the hips <<pantsB[226]>>) <a href="exec:set numdres=226&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!227 and pants[227]=1 or odetpants=0 and pants[227]=1:'Grey leggings and a loose fitting, pink T-Shirt. (The remaining strength <<pantsH[227]>>, The size of the hips <<pantsB[227]>>) <a href="exec:set numdres=227&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!228 and pants[228]=1 or odetpants=0 and pants[228]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[228]>>, The size of the hips <<pantsB[228]>>) <a href="exec:set numdres=228&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!230 and pants[230]=1 or odetpants=0 and pants[230]=1:'Grey leggings, with a black leather belt and a black top. (The remaining strength <<pantsH[230]>>, The size of the hips <<pantsB[230]>>) <a href="exec:set numdres=230&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!231 and pants[231]=1 or odetpants=0 and pants[231]=1:'Blue leggings and a very short, blue top. (The remaining strength <<pantsH[231]>>, The size of the hips <<pantsB[231]>>) <a href="exec:set numdres=231&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!232 and pants[232]=1 or odetpants=0 and pants[232]=1:'Shiny black leggings and a short, black neckhalter top. (The remaining strength <<pantsH[232]>>, The size of the hips <<pantsB[232]>>) <a href="exec:set numdres=232&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!233 and pants[233]=1 or odetpants=0 and pants[233]=1:'Thin, grey leggings and a white T-Shirt. (The remaining strength <<pantsH[233]>>, The size of the hips <<pantsB[233]>>) <a href="exec:set numdres=233&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!234 and pants[234]=1 or odetpants=0 and pants[234]=1:'Shiny, black leggings and a black top. (The remaining strength <<pantsH[234]>>, The size of the hips <<pantsB[234]>>) <a href="exec:set numdres=234&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!235 and pants[235]=1 or odetpants=0 and pants[235]=1:'Shiny, patterned leggings and a black tank top. (The remaining strength <<pantsH[235]>>, The size of the hips <<pantsB[235]>>) <a href="exec:set numdres=235&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!236 and pants[236]=1 or odetpants=0 and pants[236]=1:'Grey leggings and a light purple T-Shirt. (The remaining strength <<pantsH[236]>>, The size of the hips <<pantsB[236]>>) <a href="exec:set numdres=236&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!237 and pants[237]=1 or odetpants=0 and pants[237]=1:'Dark blue leggings and a black top. (The remaining strength <<pantsH[237]>>, The size of the hips <<pantsB[237]>>) <a href="exec:set numdres=237&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!238 and pants[238]=1 or odetpants=0 and pants[238]=1:'Grey leggings and a light pink top. (The remaining strength <<pantsH[238]>>, The size of the hips <<pantsB[238]>>) <a href="exec:set numdres=238&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!239 and pants[239]=1 or odetpants=0 and pants[239]=1:'Grey leggings and a grey top. (The remaining strength <<pantsH[239]>>, The size of the hips <<pantsB[239]>>) <a href="exec:set numdres=239&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!240 and pants[240]=1 or odetpants=0 and pants[240]=1:'Dark grey leggings, with colorful stripes and a white T-Shirt. (The remaining strength <<pantsH[240]>>, The size of the hips <<pantsB[240]>>) <a href="exec:set numdres=240&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!241 and pants[241]=1 or odetpants=0 and pants[241]=1:'Grey leggings and a blue hoodie. (The remaining strength <<pantsH[241]>>, The size of the hips <<pantsB[241]>>) <a href="exec:set numdres=241&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!242 and pants[242]=1 or odetpants=0 and pants[242]=1:'White leggings and a white bikini top. (The remaining strength <<pantsH[242]>>, The size of the hips <<pantsB[242]>>) <a href="exec:set numdres=242&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!243 and pants[243]=1 or odetpants=0 and pants[243]=1:'White leggings and a orange-red top. (The remaining strength <<pantsH[243]>>, The size of the hips <<pantsB[243]>>) <a href="exec:set numdres=243&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!244 and pants[244]=1 or odetpants=0 and pants[244]=1:'Black leggings and a white camisole, with a deep cleavage. (The remaining strength <<pantsH[244]>>, The size of the hips <<pantsB[244]>>) <a href="exec:set numdres=244&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!245 and pants[245]=1 or odetpants=0 and pants[245]=1:'White leggings and a very short black tube top. (The remaining strength <<pantsH[245]>>, The size of the hips <<pantsB[245]>>) <a href="exec:set numdres=245&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!246 and pants[246]=1 or odetpants=0 and pants[246]=1:'Grey leggings and a black T-Shirt.  (The remaining strength <<pantsH[246]>>, The size of the hips <<pantsB[246]>>) <a href="exec:set numdres=246&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!247 and pants[247]=1 or odetpants=0 and pants[247]=1:'Black leggings and a short, black-white tank top. (The remaining strength <<pantsH[247]>>, The size of the hips <<pantsB[247]>>) <a href="exec:set numdres=247&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!248 and pants[248]=1 or odetpants=0 and pants[248]=1:'Dark grey leggings and a white tube top. (The remaining strength <<pantsH[248]>>, The size of the hips <<pantsB[248]>>) <a href="exec:set numdres=248&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!249 and pants[249]=1 or odetpants=0 and pants[249]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[249]>>, The size of the hips <<pantsB[249]>>) <a href="exec:set numdres=249&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!250 and pants[250]=1 or odetpants=0 and pants[250]=1:'Shiny brown leggings and a white T-Shirt. (The remaining strength <<pantsH[250]>>, The size of the hips <<pantsB[250]>>) <a href="exec:set numdres=250&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!251 and pants[251]=1 or odetpants=0 and pants[251]=1:'White leggings and a short, white tube-top. (The remaining strength <<pantsH[251]>>, The size of the hips <<pantsB[251]>>) <a href="exec:set numdres=251&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!252 and pants[252]=1 or odetpants=0 and pants[252]=1:'Wine red leggings and a dark blue denim jacket. (The remaining strength <<pantsH[252]>>, The size of the hips <<pantsB[252]>>) <a href="exec:set numdres=252&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!253 and pants[253]=1 or odetpants=0 and pants[253]=1:'Thin, white leggings and a white top. (The remaining strength <<pantsH[253]>>, The size of the hips <<pantsB[253]>>) <a href="exec:set numdres=253&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!254 and pants[254]=1 or odetpants=0 and pants[254]=1:'Light brown leggings and a blue denim jacket. (The remaining strength <<pantsH[254]>>, The size of the hips <<pantsB[254]>>) <a href="exec:set numdres=254&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!255 and pants[255]=1 or odetpants=0 and pants[255]=1:'White leggings and a very short, black tube top. (The remaining strength <<pantsH[255]>>, The size of the hips <<pantsB[255]>>) <a href="exec:set numdres=255&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!256 and pants[256]=1 or odetpants=0 and pants[256]=1:'Shiny red leggings and a white blouse. (The remaining strength <<pantsH[256]>>, The size of the hips <<pantsB[256]>>) <a href="exec:set numdres=256&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!257 and pants[257]=1 or odetpants=0 and pants[257]=1:'Black leggings and a light brown shirt. (The remaining strength <<pantsH[257]>>, The size of the hips <<pantsB[257]>>) <a href="exec:set numdres=257&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!258 and pants[258]=1 or odetpants=0 and pants[258]=1:'Shiny black leggings and a black top. (The remaining strength <<pantsH[258]>>, The size of the hips <<pantsB[258]>>) <a href="exec:set numdres=258&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!259 and pants[259]=1 or odetpants=0 and pants[259]=1:'Dark blue leggings and a green tube top. (The remaining strength <<pantsH[259]>>, The size of the hips <<pantsB[259]>>) <a href="exec:set numdres=259&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!260 and pants[260]=1 or odetpants=0 and pants[260]=1:'Blue leggings and a black shirt. (The remaining strength <<pantsH[260]>>, The size of the hips <<pantsB[260]>>) <a href="exec:set numdres=260&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!261 and pants[261]=1 or odetpants=0 and pants[261]=1:'Light blue leggings and a red-black T-Shirt. (The remaining strength <<pantsH[261]>>, The size of the hips <<pantsB[261]>>) <a href="exec:set numdres=261&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!262 and pants[262]=1 or odetpants=0 and pants[262]=1:'Black leggings and a white T-Shirt, with deep cleavage. (The remaining strength <<pantsH[262]>>, The size of the hips <<pantsB[262]>>) <a href="exec:set numdres=262&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!263 and pants[263]=1 or odetpants=0 and pants[263]=1:'Grey leggings and a white top. (The remaining strength <<pantsH[263]>>, The size of the hips <<pantsB[263]>>) <a href="exec:set numdres=263&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!264 and pants[264]=1 or odetpants=0 and pants[264]=1:'Black pants, with a black studded leather belt anbd a short, black top. (The remaining strength <<pantsH[264]>>, The size of the hips <<pantsB[264]>>) <a href="exec:set numdres=264&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!265 and pants[265]=1 or odetpants=0 and pants[265]=1:'Brown leggings and a light pink top, with a deep cleavage.(The remaining strength <<pantsH[265]>>, The size of the hips <<pantsB[265]>>) <a href="exec:set numdres=265&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!266 and pants[266]=1 or odetpants=0 and pants[266]=1:'Shiny, black leggings and a grey shirt. (The remaining strength <<pantsH[266]>>, The size of the hips <<pantsB[266]>>) <a href="exec:set numdres=266&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!267 and pants[267]=1 or odetpants=0 and pants[267]=1:'Dark blue leggings and a short, black top. (The remaining strength <<pantsH[267]>>, The size of the hips <<pantsB[267]>>) <a href="exec:set numdres=267&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!268 and pants[268]=1 or odetpants=0 and pants[268]=1:'Blue jeggings and a short, white top. (The remaining strength <<pantsH[268]>>, The size of the hips <<pantsB[268]>>) <a href="exec:set numdres=268&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!269 and pants[269]=1 or odetpants=0 and pants[269]=1:'Blue jeggings and a beige camisole. (The remaining strength <<pantsH[269]>>, The size of the hips <<pantsB[269]>>) <a href="exec:set numdres=269&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!270 and pants[270]=1 or odetpants=0 and pants[270]=1:'Black leggings and a black tube top. (The remaining strength <<pantsH[270]>>, The size of the hips <<pantsB[270]>>) <a href="exec:set numdres=270&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!271 and pants[271]=1 or odetpants=0 and pants[271]=1:'Blue pants and a short, white nackhalter top.  (The remaining strength <<pantsH[271]>>, The size of the hips <<pantsB[271]>>) <a href="exec:set numdres=271&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!273 and pants[273]=1 or odetpants=0 and pants[273]=1:'Black leggings and a beige tank top, under a blue shirt. (The remaining strength <<pantsH[273]>>, The size of the hips <<pantsB[273]>>) <a href="exec:set numdres=273&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!274 and pants[274]=1 or odetpants=0 and pants[274]=1:'Light blue leggings and a short, white T-Shirt. (The remaining strength <<pantsH[274]>>, The size of the hips <<pantsB[274]>>) <a href="exec:set numdres=274&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!275 and pants[275]=1 or odetpants=0 and pants[275]=1:'Wine red leggings and a short black shirt. (The remaining strength <<pantsH[275]>>, The size of the hips <<pantsB[275]>>) <a href="exec:set numdres=275&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!276 and pants[276]=1 or odetpants=0 and pants[276]=1:'Black leggings and a short black shirt. (The remaining strength <<pantsH[276]>>, The size of the hips <<pantsB[276]>>) <a href="exec:set numdres=276&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!277 and pants[277]=1 or odetpants=0 and pants[277]=1:'Shiny, pink leggings and a white jacket. (The remaining strength <<pantsH[277]>>, The size of the hips <<pantsB[277]>>) <a href="exec:set numdres=277&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!278 and pants[278]=1 or odetpants=0 and pants[278]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[278]>>, The size of the hips <<pantsB[278]>>) <a href="exec:set numdres=278&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!279 and pants[279]=1 or odetpants=0 and pants[279]=1:'Shiny, golden leggings and a shiny, golden top. (The remaining strength <<pantsH[279]>>, The size of the hips <<pantsB[279]>>) <a href="exec:set numdres=279&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!280 and pants[280]=1 or odetpants=0 and pants[280]=1:'Grey leggings and a short, blue tube top. (The remaining strength <<pantsH[280]>>, The size of the hips <<pantsB[280]>>) <a href="exec:set numdres=280&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!281 and pants[281]=1 or odetpants=0 and pants[281]=1:'Shiny, black leggings and a red top.  (The remaining strength <<pantsH[281]>>, The size of the hips <<pantsB[281]>>) <a href="exec:set numdres=281&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!282 and pants[282]=1 or odetpants=0 and pants[282]=1:'Dark grey leggings and a grey tank top, under a grey jacket. (The remaining strength <<pantsH[282]>>, The size of the hips <<pantsB[282]>>) <a href="exec:set numdres=282&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!283 and pants[283]=1 or odetpants=0 and pants[283]=1:'White leggings and a black camisole, with a deep cleavage, under a short, black leather jacket. (The remaining strength <<pantsH[283]>>, The size of the hips <<pantsB[283]>>) <a href="exec:set numdres=283&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!284 and pants[284]=1 or odetpants=0 and pants[284]=1:'Black leggings and a grey neckhalter top. (The remaining strength <<pantsH[284]>>, The size of the hips <<pantsB[284]>>) <a href="exec:set numdres=284&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!285 and pants[285]=1 or odetpants=0 and pants[285]=1:'White leggings and a white top. (The remaining strength <<pantsH[285]>>, The size of the hips <<pantsB[285]>>) <a href="exec:set numdres=285&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!286 and pants[286]=1 or odetpants=0 and pants[286]=1:'White leggings and a short white camisole, under a blue jacket. (The remaining strength <<pantsH[286]>>, The size of the hips <<pantsB[286]>>) <a href="exec:set numdres=286&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!287 and pants[287]=1 or odetpants=0 and pants[287]=1:'Black leggings and a black top. (The remaining strength <<pantsH[287]>>, The size of the hips <<pantsB[287]>>) <a href="exec:set numdres=287&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!288 and pants[288]=1 or odetpants=0 and pants[288]=1:'Black leggings and a short, light blue denim vest. (The remaining strength <<pantsH[288]>>, The size of the hips <<pantsB[288]>>) <a href="exec:set numdres=288&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!289 and pants[289]=1 or odetpants=0 and pants[289]=1:'Patterned, black-white leggings and a loose fitting golden top. (The remaining strength <<pantsH[289]>>, The size of the hips <<pantsB[289]>>) <a href="exec:set numdres=289&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!290 and pants[290]=1 or odetpants=0 and pants[290]=1:'Black leather pants and a wine red tank top. (The remaining strength <<pantsH[290]>>, The size of the hips <<pantsB[290]>>) <a href="exec:set numdres=290&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!291 and pants[291]=1 or odetpants=0 and pants[291]=1:'Dark blue leggings adn a dark blue shirt. (The remaining strength <<pantsH[291]>>, The size of the hips <<pantsB[291]>>) <a href="exec:set numdres=291&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!292 and pants[292]=1 or odetpants=0 and pants[292]=1:'Black leggings and a black shirt. (The remaining strength <<pantsH[292]>>, The size of the hips <<pantsB[292]>>) <a href="exec:set numdres=292&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!293 and pants[293]=1 or odetpants=0 and pants[293]=1:'Wine red leggings and a short, blue tank top. (The remaining strength <<pantsH[293]>>, The size of the hips <<pantsB[293]>>) <a href="exec:set numdres=293&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!294 and pants[294]=1 or odetpants=0 and pants[294]=1:'Light grey leggings and a very short, blue top. (The remaining strength <<pantsH[294]>>, The size of the hips <<pantsB[294]>>) <a href="exec:set numdres=294&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!295 and pants[295]=1 or odetpants=0 and pants[295]=1:'Wine red leggings and a loose fitting, dark blue tank top. (The remaining strength <<pantsH[295]>>, The size of the hips <<pantsB[295]>>) <a href="exec:set numdres=295&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!296 and pants[296]=1 or odetpants=0 and pants[296]=1:'Black leggings and a red-white striped shirt. (The remaining strength <<pantsH[296]>>, The size of the hips <<pantsB[296]>>) <a href="exec:set numdres=296&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!297 and pants[297]=1 or odetpants=0 and pants[297]=1:'Shiny black leggings and a short, wine red top. (The remaining strength <<pantsH[297]>>, The size of the hips <<pantsB[297]>>) <a href="exec:set numdres=297&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!298 and pants[298]=1 or odetpants=0 and pants[298]=1:'White leggings and a neon-green top. (The remaining strength <<pantsH[298]>>, The size of the hips <<pantsB[298]>>) <a href="exec:set numdres=298&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!299 and pants[299]=1 or odetpants=0 and pants[299]=1:'Pink leggings and a purple top. (The remaining strength <<pantsH[299]>>, The size of the hips <<pantsB[299]>>) <a href="exec:set numdres=299&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!300 and pants[300]=1 or odetpants=0 and pants[300]=1:'Grey leggings and a white blouse. (The remaining strength <<pantsH[300]>>, The size of the hips <<pantsB[300]>>) <a href="exec:set numdres=300&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!301 and pants[301]=1 or odetpants=0 and pants[301]=1:'Shiny black leggings and a pink fishnet top. (The remaining strength <<pantsH[301]>>, The size of the hips <<pantsB[301]>>) <a href="exec:set numdres=301&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!302 and pants[302]=1 or odetpants=0 and pants[302]=1:'Black leggings and a white-black top. (The remaining strength <<pantsH[302]>>, The size of the hips <<pantsB[302]>>) <a href="exec:set numdres=302&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!303 and pants[303]=1 or odetpants=0 and pants[303]=1:'Red leggings and a black top. (The remaining strength <<pantsH[303]>>, The size of the hips <<pantsB[303]>>) <a href="exec:set numdres=303&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!304 and pants[304]=1 or odetpants=0 and pants[304]=1:'Black leggings and a white top. (The remaining strength <<pantsH[304]>>, The size of the hips <<pantsB[304]>>) <a href="exec:set numdres=304&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!305 and pants[305]=1 or odetpants=0 and pants[305]=1:'Shiny black leggings and a very short white-black top. (The remaining strength <<pantsH[305]>>, The size of the hips <<pantsB[305]>>) <a href="exec:set numdres=305&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!306 and pants[306]=1 or odetpants=0 and pants[306]=1:'Thin, white pants and a short, red top. (The remaining strength <<pantsH[306]>>, The size of the hips <<pantsB[306]>>) <a href="exec:set numdres=306&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!307 and pants[307]=1 or odetpants=0 and pants[307]=1:'Grey leggings and a black shirt. (The remaining strength <<pantsH[307]>>, The size of the hips <<pantsB[307]>>) <a href="exec:set numdres=307&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!309 and pants[309]=1 or odetpants=0 and pants[309]=1:'Black leggings and a white-black striped top, with a very revealing cleavage. (The remaining strength <<pantsH[309]>>, The size of the hips <<pantsB[309]>>) <a href="exec:set numdres=309&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!311 and pants[311]=1 or odetpants=0 and pants[311]=1:'Shiny beige leggings and a black top, with a deep cleavage. (The remaining strength <<pantsH[311]>>, The size of the hips <<pantsB[311]>>) <a href="exec:set numdres=311&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!312 and pants[312]=1 or odetpants=0 and pants[312]=1:'White leggings and a very short, white tube top, under a loose fitting blue top. (The remaining strength <<pantsH[312]>>, The size of the hips <<pantsB[312]>>) <a href="exec:set numdres=312&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!313 and pants[313]=1 or odetpants=0 and pants[313]=1:'Black leggings and a black camisole, with a deep cleavage. (The remaining strength <<pantsH[313]>>, The size of the hips <<pantsB[313]>>) <a href="exec:set numdres=313&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!314 and pants[314]=1 or odetpants=0 and pants[314]=1:'Skin tight, white pants and a beige top. (The remaining strength <<pantsH[314]>>, The size of the hips <<pantsB[314]>>) <a href="exec:set numdres=314&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!315 and pants[315]=1 or odetpants=0 and pants[315]=1:'Grey leggings and a white top, with a deep cleavage. (The remaining strength <<pantsH[315]>>, The size of the hips <<pantsB[315]>>) <a href="exec:set numdres=315&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!316 and pants[316]=1 or odetpants=0 and pants[316]=1:'Dark grey leggings and a black top. (The remaining strength <<pantsH[316]>>, The size of the hips <<pantsB[316]>>) <a href="exec:set numdres=316&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!317 and pants[317]=1 or odetpants=0 and pants[317]=1:'Dark grey leggings and a grey T-Shirt. (The remaining strength <<pantsH[317]>>, The size of the hips <<pantsB[317]>>) <a href="exec:set numdres=317&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!318 and pants[318]=1 or odetpants=0 and pants[318]=1:'Thin, shiny, black leggings and a black top. (The remaining strength <<pantsH[318]>>, The size of the hips <<pantsB[318]>>) <a href="exec:set numdres=318&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!319 and pants[319]=1 or odetpants=0 and pants[319]=1:'Black leggings and a short, black-white striped shirt. (The remaining strength <<pantsH[319]>>, The size of the hips <<pantsB[319]>>) <a href="exec:set numdres=319&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!320 and pants[320]=1 or odetpants=0 and pants[320]=1:'Thin, white pants and a short white top. (The remaining strength <<pantsH[320]>>, The size of the hips <<pantsB[320]>>) <a href="exec:set numdres=320&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!321 and pants[321]=1 or odetpants=0 and pants[321]=1:'Shiny black leggings and a ver short, shiny black camisole under a black leather jacket. (The remaining strength <<pantsH[321]>>, The size of the hips <<pantsB[321]>>) <a href="exec:set numdres=321&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!322 and pants[322]=1 or odetpants=0 and pants[322]=1:'Shiny black leggings and a black tank top, under a brown leather vest. (The remaining strength <<pantsH[322]>>, The size of the hips <<pantsB[322]>>) <a href="exec:set numdres=322&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!324 and pants[324]=1 or odetpants=0 and pants[324]=1:'Black leggings, with holes and a leopart patterned shirt, with some cleavage. (The remaining strength <<pantsH[324]>>, The size of the hips <<pantsB[324]>>) <a href="exec:set numdres=324&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!325 and pants[325]=1 or odetpants=0 and pants[325]=1:'Shiny black leggings and a colourful top. (The remaining strength <<pantsH[325]>>, The size of the hips <<pantsB[325]>>) <a href="exec:set numdres=325&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!326 and pants[326]=1 or odetpants=0 and pants[326]=1:'Shiny black leggings and a very short, black tube top. (The remaining strength <<pantsH[326]>>, The size of the hips <<pantsB[326]>>) <a href="exec:set numdres=326&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!327 and pants[327]=1 or odetpants=0 and pants[327]=1:'Shiny black leggings and a black top, with a very revealing cleavage. (The remaining strength <<pantsH[327]>>, The size of the hips <<pantsB[327]>>) <a href="exec:set numdres=327&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!328 and pants[328]=1 or odetpants=0 and pants[328]=1:'Black leggings and a long, black T-Shirt under a black leather jacket. (The remaining strength <<pantsH[328]>>, The size of the hips <<pantsB[328]>>) <a href="exec:set numdres=328&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!329 and pants[329]=1 or odetpants=0 and pants[329]=1:'Shiny black leggings and a long, wine red top. (The remaining strength <<pantsH[329]>>, The size of the hips <<pantsB[329]>>) <a href="exec:set numdres=329&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!330 and pants[330]=1 or odetpants=0 and pants[330]=1:'Shiny black leggings and a very revealing dark blue camisole. (The remaining strength <<pantsH[330]>>, The size of the hips <<pantsB[330]>>) <a href="exec:set numdres=330&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!331 and pants[331]=1 or odetpants=0 and pants[331]=1:'Black leggings and a long, grey T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[331]>>, The size of the hips <<pantsB[331]>>) <a href="exec:set numdres=331&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!332 and pants[332]=1 or odetpants=0 and pants[332]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[332]>>, The size of the hips <<pantsB[332]>>) <a href="exec:set numdres=332&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!333 and pants[333]=1 or odetpants=0 and pants[333]=1:'Shiny black leggings and a very short, white top. (The remaining strength <<pantsH[333]>>, The size of the hips <<pantsB[333]>>) <a href="exec:set numdres=333&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!334 and pants[334]=1 or odetpants=0 and pants[334]=1:'Black leggings and a white T-Shirt, under a floral patterned blouse. (The remaining strength <<pantsH[334]>>, The size of the hips <<pantsB[334]>>) <a href="exec:set numdres=334&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!335 and pants[335]=1 or odetpants=0 and pants[335]=1:'Black leggings and a white T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[335]>>, The size of the hips <<pantsB[335]>>) <a href="exec:set numdres=335&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!336 and pants[336]=1 or odetpants=0 and pants[336]=1:'Shiny black leggings and a white-black striped shirt, under a light blue jacket. (The remaining strength <<pantsH[336]>>, The size of the hips <<pantsB[336]>>) <a href="exec:set numdres=336&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!337 and pants[337]=1 or odetpants=0 and pants[337]=1:'Shiny red leggings and a white top, udner a brown vest. (The remaining strength <<pantsH[337]>>, The size of the hips <<pantsB[337]>>) <a href="exec:set numdres=337&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!338 and pants[338]=1 or odetpants=0 and pants[338]=1:'Shiny black leggings and a white T-Shirt, under a red jacket. (The remaining strength <<pantsH[338]>>, The size of the hips <<pantsB[338]>>) <a href="exec:set numdres=338&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!339 and pants[339]=1 or odetpants=0 and pants[339]=1:'Shiny black leggings and a white-black striped T-Shirt, under a blue denim jacket. (The remaining strength <<pantsH[339]>>, The size of the hips <<pantsB[339]>>) <a href="exec:set numdres=339&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!341 and pants[341]=1 or odetpants=0 and pants[341]=1:'Black leggings and a black T-Shirt, under a blue denim vest. (The remaining strength <<pantsH[341]>>, The size of the hips <<pantsB[341]>>) <a href="exec:set numdres=341&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!342 and pants[342]=1 or odetpants=0 and pants[342]=1:'Shiny black leggings ad a white T-Shirt. (The remaining strength <<pantsH[342]>>, The size of the hips <<pantsB[342]>>) <a href="exec:set numdres=342&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!343 and pants[343]=1 or odetpants=0 and pants[343]=1:'Black leggings and a very short, black camisole under a black leather jacket. (The remaining strength <<pantsH[343]>>, The size of the hips <<pantsB[343]>>) <a href="exec:set numdres=343&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!344 and pants[344]=1 or odetpants=0 and pants[344]=1:'Black leggings and a black camisole, under a black leather jacket. (The remaining strength <<pantsH[344]>>, The size of the hips <<pantsB[344]>>) <a href="exec:set numdres=344&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!345 and pants[345]=1 or odetpants=0 and pants[345]=1:'Shiny black leggings and a black shirt, under a black leather jacket. (The remaining strength <<pantsH[345]>>, The size of the hips <<pantsB[345]>>) <a href="exec:set numdres=345&GT ''loker'',''pants''">look</a>'
if odetpants=1 and numdress!346 and pants[346]=1 or odetpants=0 and pants[346]=1:'Blue jeggings and a tight, red camisole, with a revealing cleavage. (The remaining strength <<pantsH[346]>>, The size of the hips <<pantsB[346]>>) <a href="exec:set numdres=346&GT ''loker'',''pants''">look</a>'

if odethooker = 1 and numdress ! 201 and hooker[201] = 1 or odethooker = 0 and hooker[201] = 1: 'Prostitute outfit number 201 (strength <<hookerH[201]>>, hip size <<hookerB[201]>>) <a href="exec: set numdres = 201 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 202 and hooker[202] = 1 or odethooker = 0 and hooker[202] = 1: 'Prostitute outfit number 202 (strength <<hookerH[202]>>, hip size <<hookerB[202]>>) <a href="exec: set numdres = 202 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 203 and hooker[203] = 1 or odethooker = 0 and hooker[203] = 1: 'Prostitute outfit number 203 (strength <<hookerH[203]>>, hip size <<hookerB[203]>>) <a href="exec: set numdres = 203 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 204 and hooker[204] = 1 or odethooker = 0 and hooker[204] = 1: 'Prostitute outfit number 204 (strength <<hookerH[204]>>, hip size <<hookerB[204]>>) <a href="exec: set numdres = 204 & GT ''loker'',''hooker''">watch</a>'
if odethooker = 1 and numdress ! 205 and hooker[205] = 1 or odethooker = 0 and hooker[205] = 1: 'Prostitute outfit number 205 (strength <<hookerH[205]>>, hip size <<hookerB[205]>>) <a href="exec: set numdres = 205 & GT ''loker'',''hooker''">watch</a>'


if borLoker = 1:
	*nl
	'<center><B>Clothing brothel</B></center>'
	'<a href="exec:set numdress = 1 & gt ''loker'',''ero1''">Mesh jacket with white denim skirt</a>'
	'<a href="exec:set numdress = 2 & gt ''loker'',''ero1''">Net blue dress</a>'
	'<a href="exec:set numdress = 3 & gt ''loker'',''ero1''">Transparent white dress</a>'
	'<a href="exec:set numdress = 4 & gt ''loker'',''ero1''">small transparent white dress</a>'
	'<a href="exec:set numdress = 5 & gt ''loker'',''ero1''">Latex corset with skirt</a>'
	'<a href="exec:set numdress = 6 & gt ''loker'',''ero1''">Short-transparent black dress</a>'
	'<a href="exec:set numdress = 7 & gt ''loker'',''ero1''">Net black dress</a>'
	'<a href="exec:set numdress = 8 & gt ''loker'',''ero1''">Long transparent black dress</a>'
	'<a href="exec:set numdress = 9 & gt ''loker'',''ero1''">Transparent leopard dress</a>'
	'<a href="exec:set numdress = 10 & gt ''loker'',''ero1''">Black top with mesh stockings</a>'
	'<a href="exec:set numdress = 11 & gt ''loker'',''ero1''">Net black jacket with black shorts</a>'
	'<a href="exec:set numdress = 12 & gt ''loker'',''ero1''">Transparent red dress</a>'
	'<a href="exec:set numdress = 13 & gt ''loker'',''ero1''">Transparent pink shorts with topom</a>'
	'<a href="exec:set numdress = 14 & gt ''loker'',''ero1''">Small mesh black dress</a>'
	'<a href="exec:set numdress = 15 & gt ''loker'',''ero1''">The little black skirt with transparent topom</a>'
	'<a href="exec:set numdress = 16 & gt ''loker'',''ero1''">Net white dress</a>'
	'<a href="exec:set numdress = 17 & gt ''loker'',''ero1''">Little pink skirt with transparent topom</a>'
	'<a href="exec:set numdress = 18 & gt ''loker'',''ero1''">Something net</a>'
	end
act 'Exit': gt 'loker','fin'
end

if $ARGS[0] = 'ero1':
cla
*clr
'<center><img src="images\img\dress\ero<<numdress>>.jpg "></center>'
act 'Back': gt 'loker','start'
act 'Wear':
	set odetjeans = 0
	set odetyoga = 0
	set odetsarafan = 0
	set odetshort = 0
	set odetskirt = 0
	set odetdress = 0
	set odetprofi = 0
	set odetpants = 0
	set odetlatex = 0
	set odethooker = 0
	set odetkis = 0
	set odetnewclo = 0
	set odetero = 1
	set vatnik = 0
	set glamur = 0
	set sport = 0
	set ski = 0
	set hook = 0
	set ofclo = 0
	set sexual = 0
	if cumfrot > 0: set cumfrot = 0
	set nude = 0
	set odevnesh += 10
	set odetero = numdress
	gt 'loker','start'
	end
end

if $ARGS[0] = 'jeans':
	cla
	'<center><img src="images\clothes\jeans<<numdres>>.jpg "></center>'
	'(strength <<jeansH[numdres]>>, hip size <<jeansB[numdres]>>)'
	if mag = 1:
		'Price <<payclo>>'
		act 'Remove item.': GOTO $loc, $metka
		if jeans[numdres] = 0 and money >= payclo:
			act 'Buy':
				money -= payclo
				jeans[numdres] = 1
				jeansH[numdres] = 60
				jeansB[numdres] = bedra
				GOTO $loc, $metka
			end
		end
	end

	if mag = 0:
		act 'In Closet': gt 'loker','start'
		if jeansH[numdres] > 0 and jeansB[numdres] >= bedra - 8 and jeansB[numdres] <= bedra + 8:
			act 'Wear':
				set numdress = numdres
				set odetjeans = 1
				set odetyoga = 0
				set odetsarafan = 0
				set odetshort = 0
				set odetskirt = 0
				set odetdress = 0
				set odetprofi = 0
				set odetpants = 0
				set odetlatex = 0
				set odethooker = 0
				set odetkis = 0
				set odetnewclo = 0
				set odetero = 0
				set vatnik = 0
				set glamur = 0
				set sport = 0
				set ski = 0
				set hook = 0
				set ofclo = 0
				set sexual = 0
				if cumfrot > 0: set cumfrot = 0
				set nude = 0
				set odevnesh = 1
				gt 'loker','start'
			end
		end

		if jeansH[numdres] <= 0:
			'This item is worn and is not suitable for further wear.'
			set jeans[numdres] = 0
			set jeansH[numdres] = 0
			set nude = 1
			act 'Select another item': gt 'loker','start'
		end

		if jeansB[numdres] < bedra - 8 or jeansB[numdres] > bedra + 8:
			'This thing is you no longer have the right size and not suitable for further wear.'
			act 'Select another item': gt 'loker','start'
		end
	end
end

if $ARGS[0] = 'yoga':
cla
'<center><img src="images\clothes\yoga<<numdres>>.jpg "></center>'
'(strength <<yogaH[numdres]>>)'
if mag = 1:
	'Price <<payclo>>'
	act 'Remove item.': GOTO $loc, $metka
	if yoga[numdres] = 0 and money >= payclo:
		act 'Buy':
			money -= payclo
			yoga[numdres] = 1
			yogaH[numdres] = 80
			GOTO $loc, $metka
			end
		end
	end
if mag = 0:
	act 'In Closet': gt 'loker','start'
	if yogaH[numdres] > 0:
		act 'Wear':
			set numdress = numdres
			set odetjeans = 0
			set odetyoga = 1
			set odetsarafan = 0
			set odetshort = 0
			set odetskirt = 0
			set odetdress = 0
			set odetprofi = 0
			set odetpants = 0
			set odetlatex = 0
			set odethooker = 0
			set odetkis = 0
			set odetnewclo = 0
			set odetero = 0
			set vatnik = 0
			set glamur = 0
			set sport = 1
			set ski = 0
			set hook = 0
			set ofclo = 0
			set sexual = 0
			if cumfrot > 0: set cumfrot = 0
			set nude = 0
			set odevnesh = 1
			gt 'loker','start'
			end
		end
	if yogaH[numdres] <= 0:
		'This item is worn and is not suitable for further wear.'
		set yoga[numdres] = 0
		set yogaH[numdres] = 0
		set nude = 1
		act 'Select another item': gt 'loker','start'
		end
	end
end

if $ARGS[0] = 'sarafan':
cla
'<center><img src="images\clothes\sarafan<<numdres>>.jpg "></center>'
'(strength <<sarafanH[numdres]>>)'
act 'In Closet': gt 'loker','start'
if sarafanH[numdres] > 0:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 1
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 1
		set hook = 0
		set ofclo = 0
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 1
		gt 'loker','start'
		end
	end
if sarafanH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set sarafan[numdres] = 0
	set sarafanH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'short':
cla
'<center><img src="images\clothes\short<<numdres>>.jpg "></center>'
'(strength <<shortH[numdres]>>, hip size <<shortB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if shortH[numdres] > 0 and shortB[numdres] >= bedra - 8 and shortB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 1
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 0
		set hook = 0
		set ofclo = 0
		set sexual = 0
		set cumfrot = 0
		set nude = 0
		set odevnesh = 2
		gt 'loker','start'
		end
	end
if shortH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set short[numdres] = 0
	set shortH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if shortB[numdres] < bedra - 8 or shortB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'skirt':
cla
'<center><img src="images\clothes\skirt<<numdres>>.jpg "></center>'
'(strength <<skirtH[numdres]>>, hip size <<skirtB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if skirtH[numdres] > 0 and skirtB[numdres] >= bedra - 8 and skirtB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 1
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 1
		set hook = 0
		set ofclo = 0
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 5
		gt 'loker','start'
		end
	end
if skirtH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set skirt[numdres] = 0
	set skirtH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if skirtB[numdres] < bedra - 8 or skirtB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'dress':
cla
'<center><img src="images\clothes\dress<<numdres>>.jpg "></center>'
'(strength <<dressH[numdres]>>, hip size <<dressB[numdres]>>)'
if mag = 1:
	'Price <<payclo>>'
	act 'Remove item.': GOTO $loc, $metka
	if dress[numdres] = 0 and money >= payclo:
		act 'Buy':
			money -= payclo
			dress[numdres] = 1
			dressH[numdres] = 160
			dressB[numdres] = bedra
			GOTO $loc, $metka
			end
		end
	end
if mag = 0:
	act 'In Closet': gt 'loker','start'
	if dressH[numdres] > 0 and dressB[numdres] >= bedra - 8 and dressB[numdres] <= bedra + 8:
		act 'Wear':
			set numdress = numdres
			set odetjeans = 0
			set odetyoga = 0
			set odetsarafan = 0
			set odetshort = 0
			set odetskirt = 0
			set odetdress = 1
			set odetprofi = 0
			set odetpants = 0
			set odetlatex = 0
			set odethooker = 0
			set odetkis = 0
			set odetnewclo = 0
			set odetero = 0
			set vatnik = 0
			set glamur = 1
			set sport = 0
			set ski = 0
			set hook = 0
			set ofclo = 0
			set sexual = 0
			if cumfrot > 0: set cumfrot = 0
			set nude = 0
			set odevnesh = 15
			gt 'loker','start'
			end
		end
	if dressH[numdres] <= 0:
		'This item is worn and is not suitable for further wear.'
		set dress[numdres] = 0
		set dressH[numdres] = 0
		set nude = 1
		act 'Select another item': gt 'loker','start'
		end
	if dressB[numdres] < bedra - 8 or dressB[numdres] > bedra + 8:
		'This thing is you no longer have the right size and not suitable for further wear.'
		act 'Select another item': gt 'loker','start'
		end
	end
end

if $ARGS[0] = 'profi':
cla
'<center><img src="images\clothes\profi<<numdres>>.jpg "></center>'
'(strength <<profiH[numdres]>>, hip size <<profiB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if profiH[numdres] > 0 and profiB[numdres] >= bedra - 8 and profiB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 1
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 0
		set hook = 0
		set ofclo = 1
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 5
		gt 'loker','start'
		end
	end
if profiH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set profi[numdres] = 0
	set profiH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if profiB[numdres] < bedra - 8 or profiB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'pants':
cla
'<center><img src="images\clothes\pants<<numdres>>.jpg "></center>'
'(strength <<pantsH[numdres]>>, hip size <<pantsB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if pantsH[numdres] > 0 and pantsB[numdres] >= bedra - 8 and pantsB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 1
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 0
		set hook = 0
		set ofclo = 0
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 3
		gt 'loker','start'
		end
	end
if pantsH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set pants[numdres] = 0
	set pantsH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if pantsB[numdres] < bedra - 8 or pantsB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'latex':
cla
'<center><img src="images\clothes\latex<<numdres>>.jpg "></center>'
'(strength <<latexH[numdres]>>, hip size <<latexB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if latexH[numdres] > 0 and latexB[numdres] >= bedra - 8 and latexB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 1
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 0
		set hook = 0
		set ofclo = 0
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 1
		gt 'loker','start'
		end
	end
if latexH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set latex[numdres] = 0
	set latexH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if latexB[numdres] < bedra - 8 or latexB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'hooker':
cla
'<center><img src="images\clothes\hooker<<numdres>>.jpg "></center>'
'(strength <<hookerH[numdres]>>, hip size <<hookerB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if hookerH[numdres] > 0 and hookerB[numdres] >= bedra - 8 and hookerB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 1
		set odetkis = 0
		set odetnewclo = 0
		set odetero = 0
		set vatnik = 0
		set glamur = 0
		set sport = 0
		set ski = 0
		set hook = 1
		set ofclo = 0
		set sexual = 0
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 1
		gt 'loker','start'
		end
	end
if hookerH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set hooker[numdres] = 0
	set hookerH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if hookerB[numdres] < bedra - 8 or hookerB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'odekis':
cla
'<center><img src="images\clothes\k<<numdres>>.jpg "></center>'
'(strength <<odekisH[numdres]>>, hip size <<odekisB[numdres]>>)'
if mag = 1:
	'Price <<payclo>>'
	act 'Remove item.': GOTO $loc, $metka
	if odekis[numdres] = 0 and money >= payclo:
		act 'Buy':
			money -= payclo
			odekis[numdres] = 1
			odekisH[numdres] = 100
			odekisB[numdres] = bedra
			GOTO $loc, $metka
			end
		end
	end
if mag = 0:
	act 'In Closet': gt 'loker','start'
	if odekisH[numdres] > 0 and odekisB[numdres] >= bedra - 8 and odekisB[numdres] <= bedra + 8:
		act 'Wear':
			set numdress = numdres
			set odetjeans = 0
			set odetyoga = 0
			set odetsarafan = 0
			set odetshort = 0
			set odetskirt = 0
			set odetdress = 0
			set odetprofi = 0
			set odetpants = 0
			set odetlatex = 0
			set odethooker = 0
			set odetkis = 1
			set odetnewclo = 0
			set odetero = 0
			set vatnik = 0
			set glamur = 1
			set sport = 0
			set ski = 0
			set hook = 0
			set ofclo = 0
			set sexual = 1
			Sforma = 0
			if cumfrot > 0: set cumfrot = 0
			set nude = 0
			set odevnesh = 15
			gt 'loker','start'
			end
		end
	if odekisH[numdres] <= 0:
		'This item is worn and is not suitable for further wear.'
		set odekis[numdres] = 0
		set odekisH[numdres] = 0
		set nude = 1
		act 'Select another item': gt 'loker','start'
		end
	if odekisB[numdres] < bedra - 8 or odekisB[numdres] > bedra + 8:
		'This thing is you no longer have the right size and not suitable for further wear.'
		act 'Select another item': gt 'loker','start'
		end
	end
end

if $ARGS[0] = 'newclo':
cla
if numdres = 131: newcloB[131] = bedra & newcloH[131] = 100
'<center><img src="images\clothes\newclo\<<numdres>>.jpg "></center>'
'(strength <<newcloH[numdres]>>, hip size <<newcloB[numdres]>>)'
act 'In Closet': gt 'loker','start'
if newcloH[numdres] > 0 and newcloB[numdres] >= bedra - 8 and newcloB[numdres] <= bedra + 8:
	act 'Wear':
		set numdress = numdres
		set odetjeans = 0
		set odetyoga = 0
		set odetsarafan = 0
		set odetshort = 0
		set odetskirt = 0
		set odetdress = 0
		set odetprofi = 0
		set odetpants = 0
		set odetlatex = 0
		set odethooker = 0
		set odetkis = 0
		set odetnewclo = 1
		set odetero = 0
		set vatnik = 0
		set glamur = 1
		set sport = 0
		set ski = 0
		Sforma = 0

		if numdress < 90: set ski = 1
		if numdress = 131: set Sforma = 1 & glamur = 0 & ski = 1
		set hook = 0
		set ofclo = 0
		set sexual = 1
		if cumfrot > 0: set cumfrot = 0
		set nude = 0
		set odevnesh = 15
		gt 'loker','start'
		end
	end
if newcloH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set newclo[numdres] = 0
	set newcloH[numdres] = 0
	set nude = 1
	act 'Select another item': gt 'loker','start'
	end
if newcloB[numdres] < bedra - 8 or newcloB[numdres] > bedra + 8:
	'This thing is you no longer have the right size and not suitable for further wear.'
	act 'Select another item': gt 'loker','start'
	end
end

if $ARGS[0] = 'vatnik':
cla
'<center><img src="images\clothes\vatnik.jpg"></center>'
'rustic tattered jacket.'
act 'In Closet': gt 'loker','start'
act 'Wear':
	set numdress = 0
	set odetjeans = 0
	set odetyoga = 0
	set odetsarafan = 0
	set odetshort = 0
	set odetskirt = 0
	set odetdress = 0
	set odetprofi = 0
	set odetpants = 0
	set odetlatex = 0
	set odethooker = 0
	set odetkis = 0
	set odetnewclo = 0
	set odetero = 0
	set glamur = 0
	set sport = 0
	set ski = 0
	set hook = 0
	set ofclo = 0
	set sexual = 0
	set cumfrot = 0
	set nude = 0
	set vatnik = 2
	set odevnesh = -10
	gt 'loker','start'
	end
end

if $ARGS[0] = 'fin':
gt $locM, $metkaM
end
--- loker ---------------------------------

# loker2
if $ARGS[0] = 'start':
gs 'stat'
cla

if odetjeans = 1 and numdress ! 1 and jeans[1] = 1 or odetjeans = 0 and jeans[1] = 1: 'Jeans 1 (strength <<jeansH[1]>>, hip size <<jeansB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''jeans''">surrender</a>'
if odetjeans = 1 and numdress ! 2 and jeans[2] = 1 or odetjeans = 0 and jeans[2] = 1: 'Jeans 2 (strength <<jeansH[2]>>, hip size <<jeansB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''jeans''">surrender</a>'
if odetjeans = 1 and numdress ! 3 and jeans[3] = 1 or odetjeans = 0 and jeans[3] = 1: 'Jeans 3 (strength <<jeansH[3]>>, hip size <<jeansB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''jeans''">surrender</a>'
if odetjeans = 1 and numdress ! 4 and jeans[4] = 1 or odetjeans = 0 and jeans[4] = 1: 'Jeans 4 (strength <<jeansH[4]>>, hip size <<jeansB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''jeans''">surrender</a>'
if odetjeans = 1 and numdress ! 5 and jeans[5] = 1 or odetjeans = 0 and jeans[5] = 1: 'Jeans 5 (strength <<jeansH[5]>>, hip size <<jeansB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''jeans''">surrender</a>'

if odetyoga = 1 and numdress ! 1 and yoga[1] = 1 or odetyoga = 0 and yoga[1] = 1: 'Sportswear 1 (strength <<yogaH[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 2 and yoga[2] = 1 or odetyoga = 0 and yoga[2] = 1: 'Sportswear 2 (strength <<yogaH[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 3 and yoga[3] = 1 or odetyoga = 0 and yoga[3] = 1: 'Sportswear 3 (strength <<yogaH[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 4 and yoga[4] = 1 or odetyoga = 0 and yoga[4] = 1: 'Sportswear 4 (strength <<yogaH[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 5 and yoga[5] = 1 or odetyoga = 0 and yoga[5] = 1: 'Sportswear 5 (strength <<yogaH[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 6 and yoga[6] = 1 or odetyoga = 0 and yoga[6] = 1: 'Sportswear 6 (strength <<yogaH[6]>>) <a href="exec: set numdres = 6 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 7 and yoga[7] = 1 or odetyoga = 0 and yoga[7] = 1: 'Sportswear 7 (strength <<yogaH[7]>>) <a href="exec: set numdres = 7 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 8 and yoga[8] = 1 or odetyoga = 0 and yoga[8] = 1: 'Sportswear 8 (strength <<yogaH[8]>>) <a href="exec: set numdres = 8 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 9 and yoga[9] = 1 or odetyoga = 0 and yoga[9] = 1: 'Sportswear 9 (strength <<yogaH[9]>>) <a href="exec: set numdres = 9 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 10 and yoga[10] = 1 or odetyoga = 0 and yoga[10] = 1: 'Sportswear 10 (strength <<yogaH[10]>>) <a href="exec: set numdres = 10 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 11 and yoga[11] = 1 or odetyoga = 0 and yoga[11] = 1: 'Sportswear 11 (strength <<yogaH[11]>>) <a href="exec: set numdres = 11 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 12 and yoga[12] = 1 or odetyoga = 0 and yoga[12] = 1: 'Sportswear 12 (strength <<yogaH[12]>>) <a href="exec: set numdres = 12 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 13 and yoga[13] = 1 or odetyoga = 0 and yoga[13] = 1: 'Sportswear 13 (strength <<yogaH[13]>>) <a href="exec: set numdres = 13 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 14 and yoga[14] = 1 or odetyoga = 0 and yoga[14] = 1: 'Sportswear 14 (strength <<yogaH[14]>>) <a href="exec: set numdres = 14 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 15 and yoga[15] = 1 or odetyoga = 0 and yoga[15] = 1: 'Sportswear 15 (strength <<yogaH[15]>>) <a href="exec: set numdres = 15 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 16 and yoga[16] = 1 or odetyoga = 0 and yoga[16] = 1: 'Sportswear 16 (strength <<yogaH[16]>>) <a href="exec: set numdres = 16 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 17 and yoga[17] = 1 or odetyoga = 0 and yoga[17] = 1: 'Sportswear 17 (strength <<yogaH[17]>>) <a href="exec: set numdres = 17 & GT ''loker2'',''yoga''">pass</a>'
if odetyoga = 1 and numdress ! 18 and yoga[18] = 1 or odetyoga = 0 and yoga[18] = 1: 'Sportswear 18 (strength <<yogaH[18]>>) <a href="exec: set numdres = 18 & GT ''loker2'',''yoga''">pass</a>'

if odetsarafan = 1 and numdress ! 1 and sarafan[1] = 1 or odetsarafan = 0 and sarafan[1] = 1: 'Colorful, free sundress (strength <<sarafanH[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''sarafan''">pass</a>'
if odetsarafan = 1 and numdress ! 2 and sarafan[2] = 1 or odetsarafan = 0 and sarafan[2] = 1: 'Bright, free sundress (strength <<sarafanH[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''sarafan''">pass</a>'

if odetshort = 1 and numdress ! 1 and short[1] = 1 or odetshort = 0 and short[1] = 1: 'Black shorts with a purple T-shirt (strength <<shortH[1]>>, hip size <<shortB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''short''">surrender</a>'
if odetshort = 1 and numdress ! 2 and short[2] = 1 or odetshort = 0 and short[2] = 1: 'Black shorts with striped jersey (strength <<shortH[2]>>, hip size <<shortB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''short''">surrender</a>'
if odetshort = 1 and numdress ! 3 and short[3] = 1 or odetshort = 0 and short[3] = 1: 'Black shorts with a black T-shirt (strength <<shortH[3]>>, hip size <<shortB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''short''">surrender</a>'
if odetshort = 1 and numdress ! 4 and short[4] = 1 or odetshort = 0 and short[4] = 1: 'Pink shorts with pink tops (strength <<shortH[4]>>, hip size <<shortB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''short''">surrender</a>'
if odetshort = 1 and numdress ! 5 and short[5] = 1 or odetshort = 0 and short[5] = 1: 'Sexy white shorts (strength <<shortH[5]>>, hip size <<shortB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''short''">surrender</a>'

if odetskirt = 1 and numdress ! 1 and skirt[1] = 1 or odetskirt = 0 and skirt[1] = 1: 'White skirt with a colorful blouse (strength <<skirtH[1]>>, hip size <<skirtB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''skirt''">surrender</a>'
if odetskirt = 1 and numdress ! 2 and skirt[2] = 1 or odetskirt = 0 and skirt[2] = 1: 'Black leather skirt with a red sweater (strength <<skirtH[2]>>, hip size <<skirtB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''skirt''">surrender</a>'
if odetskirt = 1 and numdress ! 3 and skirt[3] = 1 or odetskirt = 0 and skirt[3] = 1: 'White skirt with striped blouse (strength <<skirtH[3]>>, hip size <<skirtB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''skirt''">surrender</a>'
if odetskirt = 1 and numdress ! 4 and skirt[4] = 1 or odetskirt = 0 and skirt[4] = 1: 'White skirt with a colorful blouse (strength <<skirtH[4]>>, hip size <<skirtB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''skirt''">surrender</a>'
if odetskirt = 1 and numdress ! 5 and skirt[5] = 1 or odetskirt = 0 and skirt[5] = 1: 'Black leather skirt with a red blouse (strength <<skirtH[5]>>, hip size <<skirtB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''skirt''">surrender</a>'

if odetdress = 1 and numdress ! 1 and dress[1] = 1 or odetdress = 0 and dress[1] = 1: 'Black dress (strength <<dressH[1]>>, hip size <<dressB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 2 and dress[2] = 1 or odetdress = 0 and dress[2] = 1: 'Yellow dress (strength <<dressH[2]>>, hip size <<dressB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 3 and dress[3] = 1 or odetdress = 0 and dress[3] = 1: 'Blue dress (strength <<dressH[3]>>, hip size <<dressB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 4 and dress[4] = 1 or odetdress = 0 and dress[4] = 1: 'Black short dress (strength <<dressH[4]>>, hip size <<dressB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 5 and dress[5] = 1 or odetdress = 0 and dress[5] = 1: 'Red long dress (strength <<dressH[5]>>, hip size <<dressB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 6 and dress[6] = 1 or odetdress = 0 and dress[6] = 1: 'Red polka dot dress (strength <<dressH[6]>>, hip size <<dressB[6]>>) <a href="exec: set numdres = 6 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 7 and dress[7] = 1 or odetdress = 0 and dress[7] = 1: 'Brown dress (strength <<dressH[7]>>, hip size <<dressB[7]>>) <a href="exec: set numdres = 7 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 8 and dress[8] = 1 or odetdress = 0 and dress[8] = 1: 'Dress 8 (strength <<dressH[8]>>, hip size <<dressB[8]>>) <a href="exec: set numdres = 8 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 9 and dress[9] = 1 or odetdress = 0 and dress[9] = 1: 'Dress 9 (strength <<dressH[9]>>, hip size <<dressB[9]>>) <a href="exec: set numdres = 9 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 10 and dress[10] = 1 or odetdress = 0 and dress[10] = 1: 'dress 10 (strength <<dressH[10]>>, hip size <<dressB[10]>>) <a href="exec: set numdres = 10 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 11 and dress[11] = 1 or odetdress = 0 and dress[11] = 1: 'Dress 11 (strength <<dressH[11]>>, hip size <<dressB[11]>>) <a href="exec: set numdres = 11 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 12 and dress[12] = 1 or odetdress = 0 and dress[12] = 1: 'Dress 12 (strength <<dressH[12]>>, hip size <<dressB[12]>>) <a href="exec: set numdres = 12 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 13 and dress[13] = 1 or odetdress = 0 and dress[13] = 1: 'Dress 13 (strength <<dressH[13]>>, hip size <<dressB[13]>>) <a href="exec: set numdres = 13 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 14 and dress[14] = 1 or odetdress = 0 and dress[14] = 1: 'Dress 14 (strength <<dressH[14]>>, hip size <<dressB[14]>>) <a href="exec: set numdres = 14 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 15 and dress[15] = 1 or odetdress = 0 and dress[15] = 1: 'Dress 15 (strength <<dressH[15]>>, hip size <<dressB[15]>>) <a href="exec: set numdres = 15 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 16 and dress[16] = 1 or odetdress = 0 and dress[16] = 1: 'Dress 16 (strength <<dressH[16]>>, hip size <<dressB[16]>>) <a href="exec: set numdres = 16 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 17 and dress[17] = 1 or odetdress = 0 and dress[17] = 1: 'Dress 17 (strength <<dressH[17]>>, hip size <<dressB[17]>>) <a href="exec: set numdres = 17 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 18 and dress[18] = 1 or odetdress = 0 and dress[18] = 1: 'Dress 18 (strength <<dressH[18]>>, hip size <<dressB[18]>>) <a href="exec: set numdres = 18 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 19 and dress[19] = 1 or odetdress = 0 and dress[19] = 1: 'Dress 19 (strength <<dressH[19]>>, hip size <<dressB[19]>>) <a href="exec: set numdres = 19 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 20 and dress[20] = 1 or odetdress = 0 and dress[20] = 1: 'Dress 20 (strength <<dressH[20]>>, hip size <<dressB[20]>>) <a href="exec: set numdres = 20 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 21 and dress[21] = 1 or odetdress = 0 and dress[21] = 1: 'Dress 21 (strength <<dressH[21]>>, hip size <<dressB[21]>>) <a href="exec: set numdres = 21 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 22 and dress[22] = 1 or odetdress = 0 and dress[22] = 1: 'Dress 22 (strength <<dressH[22]>>, hip size <<dressB[22]>>) <a href="exec: set numdres = 22 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 23 and dress[23] = 1 or odetdress = 0 and dress[23] = 1: 'Dress 23 (strength <<dressH[23]>>, hip size <<dressB[23]>>) <a href="exec: set numdres = 23 & GT ''loker2'',''dress''">surrender</a>'
if odetdress = 1 and numdress ! 24 and dress[24] = 1 or odetdress = 0 and dress[24] = 1: 'dress 24 (strength <<dressH[24]>>, hip size <<dressB[24]>>) <a href="exec: set numdres = 24 & GT ''loker2'',''dress''">surrender</a>'

if odetprofi = 1 and numdress ! 1 and profi[1] = 1 or odetprofi = 0 and profi[1] = 1: 'Office clothes 1 (strength <<profiH[1]>>, hip size <<profiB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 2 and profi[2] = 1 or odetprofi = 0 and profi[2] = 1: 'Office dress 2 (strength <<profiH[2]>>, hip size <<profiB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''profi''">surrender</a>'

if odetpants = 1 and numdress ! 1 and pants[1] = 1 or odetpants = 0 and pants[1] = 1: 'Tight black leggings with black top (strength <<pantsH[1]>>, hip size <<pantsB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''pants''">surrender</a>'
if odetpants = 1 and numdress ! 2 and pants[2] = 1 or odetpants = 0 and pants[2] = 1: 'Tight black leggings with a red blouse (strength <<pantsH[2]>>, hip size <<pantsB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''pants''">surrender</a>'
if odetpants = 1 and numdress ! 3 and pants[3] = 1 or odetpants = 0 and pants[3] = 1: 'Purple skinny leggings with black top (strength <<pantsH[3]>>, hip size <<pantsB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''pants''">surrender</a>'
if odetpants = 1 and numdress ! 4 and pants[4] = 1 or odetpants = 0 and pants[4] = 1: 'Tight black leggings with black short topic (strength <<pantsH[4]>>, hip size <<pantsB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''pants''">surrender</a>'
if odetpants = 1 and numdress ! 5 and pants[5] = 1 or odetpants = 0 and pants[5] = 1: 'White skinny jeans with a black top (strength <<pantsH[5]>>, hip size <<pantsB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''pants''">surrender</a>'

if odetlatex = 1 and numdress ! 1 and latex[1] = 1 or odetlatex = 0 and latex[1] = 1: 'Black latex bodysuit (strength <<latexH[1]>>, hip size <<latexB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''latex''">surrender</a>'
if odetlatex = 1 and numdress ! 2 and latex[2] = 1 or odetlatex = 0 and latex[2] = 1: 'Purple latex dress (strength <<latexH[2]>>, hip size <<latexB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''latex''">surrender</a>'

if odethooker = 1 and numdress ! 1 and hooker[1] = 1 or odethooker = 0 and hooker[1] = 1: 'Prostitute outfit number 1 (strength <<hookerH[1]>>, hip size <<hookerB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 2 and hooker[2] = 1 or odethooker = 0 and hooker[2] = 1: 'Prostitute outfit number 2 (strength <<hookerH[2]>>, hip size <<hookerB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 3 and hooker[3] = 1 or odethooker = 0 and hooker[3] = 1: 'Prostitute outfit number 3 (strength <<hookerH[3]>>, hip size <<hookerB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 4 and hooker[4] = 1 or odethooker = 0 and hooker[4] = 1: 'Prostitute outfit number 4 (strength <<hookerH[4]>>, hip size <<hookerB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 5 and hooker[5] = 1 or odethooker = 0 and hooker[5] = 1: 'Prostitute outfit number 5 (strength <<hookerH[5]>>, hip size <<hookerB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''hooker''">surrender</a>'

if odetkis = 1 and numdress ! 1 and odekis[1] = 1 or odetkis = 0 and odekis[1] = 1: 'Youth outfit number 1 (strength <<odekisH[1]>>, hip size <<odekisB[1]>>) <a href="exec: set numdres = 1 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 2 and odekis[2] = 1 or odetkis = 0 and odekis[2] = 1: 'Youth outfit number 2 (strength <<odekisH[2]>>, hip size <<odekisB[2]>>) <a href="exec: set numdres = 2 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 3 and odekis[3] = 1 or odetkis = 0 and odekis[3] = 1: 'Youth outfit number 3 (strength <<odekisH[3]>>, hip size <<odekisB[3]>>) <a href="exec: set numdres = 3 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 4 and odekis[4] = 1 or odetkis = 0 and odekis[4] = 1: 'Youth outfit number 4 (strength <<odekisH[4]>>, hip size <<odekisB[4]>>) <a href="exec: set numdres = 4 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 5 and odekis[5] = 1 or odetkis = 0 and odekis[5] = 1: 'Youth outfit number 5 (strength <<odekisH[5]>>, hip size <<odekisB[5]>>) <a href="exec: set numdres = 5 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 6 and odekis[6] = 1 or odetkis = 0 and odekis[6] = 1: 'Youth outfit number 6 (strength <<odekisH[6]>>, hip size <<odekisB[6]>>) <a href="exec: set numdres = 6 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 7 and odekis[7] = 1 or odetkis = 0 and odekis[7] = 1: 'Youth outfit number 7 (strength <<odekisH[7]>>, hip size <<odekisB[7]>>) <a href="exec: set numdres = 7 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 8 and odekis[8] = 1 or odetkis = 0 and odekis[8] = 1: 'Youth outfit number 8 (strength <<odekisH[8]>>, hip size <<odekisB[8]>>) <a href="exec: set numdres = 8 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 9 and odekis[9] = 1 or odetkis = 0 and odekis[9] = 1: 'Youth outfit number 9 (strength <<odekisH[9]>>, hip size <<odekisB[9]>>) <a href="exec: set numdres = 9 & GT ''loker2'',''odekis''">surrender</a>'
if odetkis = 1 and numdress ! 10 and odekis[10] = 1 or odetkis = 0 and odekis[10] = 1: 'Youth outfit number 10 (strength <<odekisH[10]>>, hip size <<odekisB[10]>>) <a href="exec: set numdres = 10 & GT ''loker2'',''odekis''">surrender</a>'

if odetnewclo = 1 and numdress ! 1 and newclo[1] = 1 or odetnewclo = 0 and newclo[1] = 1: 'Fashionista´s  number 1 (strength <<newcloH[1]>>, hip size <<newcloB[1]>>) <a href="exec: numdres = 1 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 2 and newclo[2] = 1 or odetnewclo = 0 and newclo[2] = 1: 'Fashionista´s  number 2 (strength <<newcloH[2]>>, hip size <<newcloB[2]>>) <a href="exec: numdres = 2 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 3 and newclo[3] = 1 or odetnewclo = 0 and newclo[3] = 1: 'Fashionista´s  number 3 (strength <<newcloH[3]>>, hip size <<newcloB[3]>>) <a href="exec: numdres = 3 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 4 and newclo[4] = 1 or odetnewclo = 0 and newclo[4] = 1: 'Fashionista´s  number 4 (strength <<newcloH[4]>>, hip size <<newcloB[4]>>) <a href="exec: numdres = 4 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 5 and newclo[5] = 1 or odetnewclo = 0 and newclo[5] = 1: 'Fashionista´s  number 5 (strength <<newcloH[5]>>, hip size <<newcloB[5]>>) <a href="exec: numdres = 5 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 6 and newclo[6] = 1 or odetnewclo = 0 and newclo[6] = 1: 'Fashionista´s  number 6 (strength <<newcloH[6]>>, hip size <<newcloB[6]>>) <a href="exec: numdres = 6 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 7 and newclo[7] = 1 or odetnewclo = 0 and newclo[7] = 1: 'Fashionista´s  number 7 (strength <<newcloH[7]>>, hip size <<newcloB[7]>>) <a href="exec: numdres = 7 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 8 and newclo[8] = 1 or odetnewclo = 0 and newclo[8] = 1: 'Fashionista´s  number 8 (strength <<newcloH[8]>>, hip size <<newcloB[8]>>) <a href="exec: numdres = 8 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 9 and newclo[9] = 1 or odetnewclo = 0 and newclo[9] = 1: 'Fashionista´s  number 9 (strength <<newcloH[9]>>, hip size <<newcloB[9]>>) <a href="exec: numdres = 9 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 10 and newclo[10] = 1 or odetnewclo = 0 and newclo[10] = 1: 'Fashionista´s  number 10 (strength <<newcloH[10]>>, hip size <<newcloB[10]>>) <a href="exec: numdres = 10 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 11 and newclo[11] = 1 or odetnewclo = 0 and newclo[11] = 1: 'Fashionista´s  number 11 (strength <<newcloH[11]>>, hip size <<newcloB[11]>>) <a href="exec: numdres = 11 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 12 and newclo[12] = 1 or odetnewclo = 0 and newclo[12] = 1: 'Fashionista´s  number 12 (strength <<newcloH[12]>>, hip size <<newcloB[12]>>) <a href="exec: numdres = 12 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 13 and newclo[13] = 1 or odetnewclo = 0 and newclo[13] = 1: 'Fashionista´s  number 13 (strength <<newcloH[13]>>, hip size <<newcloB[13]>>) <a href="exec: numdres = 13 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 14 and newclo[14] = 1 or odetnewclo = 0 and newclo[14] = 1: 'Fashionista´s  number 14 (strength <<newcloH[14]>>, hip size <<newcloB[14]>>) <a href="exec: numdres = 14 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 15 and newclo[15] = 1 or odetnewclo = 0 and newclo[15] = 1: 'Fashionista´s  number 15 (strength <<newcloH[15]>>, hip size <<newcloB[15]>>) <a href="exec: numdres = 15 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 16 and newclo[16] = 1 or odetnewclo = 0 and newclo[16] = 1: 'Fashionista´s  number 16 (strength <<newcloH[16]>>, hip size <<newcloB[16]>>) <a href="exec: numdres = 16 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 17 and newclo[17] = 1 or odetnewclo = 0 and newclo[17] = 1: 'Fashionista´s  number 17 (strength <<newcloH[17]>>, hip size <<newcloB[17]>>) <a href="exec: numdres = 17 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 18 and newclo[18] = 1 or odetnewclo = 0 and newclo[18] = 1: 'Fashionista´s  number 18 (strength <<newcloH[18]>>, hip size <<newcloB[18]>>) <a href="exec: numdres = 18 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 19 and newclo[19] = 1 or odetnewclo = 0 and newclo[19] = 1: 'Fashionista´s  number 19 (strength <<newcloH[19]>>, hip size <<newcloB[19]>>) <a href="exec: numdres = 19 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 20 and newclo[20] = 1 or odetnewclo = 0 and newclo[20] = 1: 'Fashionista´s  number 20 (strength <<newcloH[20]>>, hip size <<newcloB[20]>>) <a href="exec: numdres = 20 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 21 and newclo[21] = 1 or odetnewclo = 0 and newclo[21] = 1: 'Fashionista´s  number 21 (strength <<newcloH[21]>>, hip size <<newcloB[21]>>) <a href="exec: numdres = 21 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 22 and newclo[22] = 1 or odetnewclo = 0 and newclo[22] = 1: 'Fashionista´s  number 22 (strength <<newcloH[22]>>, hip size <<newcloB[22]>>) <a href="exec: numdres = 22 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 23 and newclo[23] = 1 or odetnewclo = 0 and newclo[23] = 1: 'Fashionista´s  number 23 (strength <<newcloH[23]>>, hip size <<newcloB[23]>>) <a href="exec: numdres = 23 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 24 and newclo[24] = 1 or odetnewclo = 0 and newclo[24] = 1: 'Fashionista´s  number 24 (strength <<newcloH[24]>>, hip size <<newcloB[24]>>) <a href="exec: numdres = 24 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 25 and newclo[25] = 1 or odetnewclo = 0 and newclo[25] = 1: 'Fashionista´s  number 25 (strength <<newcloH[25]>>, hip size <<newcloB[25]>>) <a href="exec: numdres = 25 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 26 and newclo[26] = 1 or odetnewclo = 0 and newclo[26] = 1: 'Fashionista´s  number 26 (strength <<newcloH[26]>>, hip size <<newcloB[26]>>) <a href="exec: numdres = 26 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 27 and newclo[27] = 1 or odetnewclo = 0 and newclo[27] = 1: 'Fashionista´s  number 27 (strength <<newcloH[27]>>, hip size <<newcloB[27]>>) <a href="exec: numdres = 27 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 28 and newclo[28] = 1 or odetnewclo = 0 and newclo[28] = 1: 'Fashionista´s  number 28 (strength <<newcloH[28]>>, hip size <<newcloB[28]>>) <a href="exec: numdres = 28 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 29 and newclo[29] = 1 or odetnewclo = 0 and newclo[29] = 1: 'Fashionista´s  number 29 (strength <<newcloH[29]>>, hip size <<newcloB[29]>>) <a href="exec: numdres = 29 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 30 and newclo[30] = 1 or odetnewclo = 0 and newclo[30] = 1: 'Fashionista´s  number 30 (strength <<newcloH[30]>>, hip size <<newcloB[30]>>) <a href="exec: numdres = 30 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 31 and newclo[31] = 1 or odetnewclo = 0 and newclo[31] = 1: 'Fashionista´s  number 31 (strength <<newcloH[31]>>, hip size <<newcloB[31]>>) <a href="exec: numdres = 31 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 32 and newclo[32] = 1 or odetnewclo = 0 and newclo[32] = 1: 'Fashionista´s  number 32 (strength <<newcloH[32]>>, hip size <<newcloB[32]>>) <a href="exec: numdres = 32 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 33 and newclo[33] = 1 or odetnewclo = 0 and newclo[33] = 1: 'Fashionista´s  number 33 (strength <<newcloH[33]>>, hip size <<newcloB[33]>>) <a href="exec: numdres = 33 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 34 and newclo[34] = 1 or odetnewclo = 0 and newclo[34] = 1: 'Fashionista´s  number 34 (strength <<newcloH[34]>>, hip size <<newcloB[34]>>) <a href="exec: numdres = 34 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 35 and newclo[35] = 1 or odetnewclo = 0 and newclo[35] = 1: 'Fashionista´s  number 35 (strength <<newcloH[35]>>, hip size <<newcloB[35]>>) <a href="exec: numdres = 35 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 36 and newclo[36] = 1 or odetnewclo = 0 and newclo[36] = 1: 'Fashionista´s  number 36 (strength <<newcloH[36]>>, hip size <<newcloB[36]>>) <a href="exec: numdres = 36 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 37 and newclo[37] = 1 or odetnewclo = 0 and newclo[37] = 1: 'Fashionista´s  number 37 (strength <<newcloH[37]>>, hip size <<newcloB[37]>>) <a href="exec: numdres = 37 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 38 and newclo[38] = 1 or odetnewclo = 0 and newclo[38] = 1: 'Fashionista´s  number 38 (strength <<newcloH[38]>>, hip size <<newcloB[38]>>) <a href="exec: numdres = 38 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 39 and newclo[39] = 1 or odetnewclo = 0 and newclo[39] = 1: 'Fashionista´s  number 39 (strength <<newcloH[39]>>, hip size <<newcloB[39]>>) <a href="exec: numdres = 39 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 40 and newclo[40] = 1 or odetnewclo = 0 and newclo[40] = 1: 'Fashionista´s  number 40 (strength <<newcloH[40]>>, hip size <<newcloB[40]>>) <a href="exec: numdres = 40 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 41 and newclo[41] = 1 or odetnewclo = 0 and newclo[41] = 1: 'Fashionista´s  number 41 (strength <<newcloH[41]>>, hip size <<newcloB[41]>>) <a href="exec: numdres = 41 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 42 and newclo[42] = 1 or odetnewclo = 0 and newclo[42] = 1: 'Fashionista´s  number 42 (strength <<newcloH[42]>>, hip size <<newcloB[42]>>) <a href="exec: numdres = 42 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 43 and newclo[43] = 1 or odetnewclo = 0 and newclo[43] = 1: 'Fashionista´s  number 43 (strength <<newcloH[43]>>, hip size <<newcloB[43]>>) <a href="exec: numdres = 43 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 44 and newclo[44] = 1 or odetnewclo = 0 and newclo[44] = 1: 'Fashionista´s  number 44 (strength <<newcloH[44]>>, hip size <<newcloB[44]>>) <a href="exec: numdres = 44 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 45 and newclo[45] = 1 or odetnewclo = 0 and newclo[45] = 1: 'Fashionista´s  number 45 (strength <<newcloH[45]>>, hip size <<newcloB[45]>>) <a href="exec: numdres = 45 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 46 and newclo[46] = 1 or odetnewclo = 0 and newclo[46] = 1: 'Fashionista´s  number 46 (strength <<newcloH[46]>>, hip size <<newcloB[46]>>) <a href="exec: numdres = 46 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 47 and newclo[47] = 1 or odetnewclo = 0 and newclo[47] = 1: 'Fashionista´s  number 47 (strength <<newcloH[47]>>, hip size <<newcloB[47]>>) <a href="exec: numdres = 47 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 48 and newclo[48] = 1 or odetnewclo = 0 and newclo[48] = 1: 'Fashionista´s  number 48 (strength <<newcloH[48]>>, hip size <<newcloB[48]>>) <a href="exec: numdres = 48 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 49 and newclo[49] = 1 or odetnewclo = 0 and newclo[49] = 1: 'Fashionista´s  number 49 (strength <<newcloH[49]>>, hip size <<newcloB[49]>>) <a href="exec: numdres = 49 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 50 and newclo[50] = 1 or odetnewclo = 0 and newclo[50] = 1: 'Fashionista´s  number 50 (strength <<newcloH[50]>>, hip size <<newcloB[50]>>) <a href="exec: numdres = 50 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 51 and newclo[51] = 1 or odetnewclo = 0 and newclo[51] = 1: 'Fashionista´s  number 51 (strength <<newcloH[51]>>, hip size <<newcloB[51]>>) <a href="exec: numdres = 51 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 52 and newclo[52] = 1 or odetnewclo = 0 and newclo[52] = 1: 'Fashionista´s  number 52 (strength <<newcloH[52]>>, hip size <<newcloB[52]>>) <a href="exec: numdres = 52 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 53 and newclo[53] = 1 or odetnewclo = 0 and newclo[53] = 1: 'Fashionista´s  number 53 (strength <<newcloH[53]>>, hip size <<newcloB[53]>>) <a href="exec: numdres = 53 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 54 and newclo[54] = 1 or odetnewclo = 0 and newclo[54] = 1: 'Fashionista´s  number 54 (strength <<newcloH[54]>>, hip size <<newcloB[54]>>) <a href="exec: numdres = 54 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 55 and newclo[55] = 1 or odetnewclo = 0 and newclo[55] = 1: 'Fashionista´s  number 55 (strength <<newcloH[55]>>, hip size <<newcloB[55]>>) <a href="exec: numdres = 55 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 56 and newclo[56] = 1 or odetnewclo = 0 and newclo[56] = 1: 'Fashionista´s  number 56 (strength <<newcloH[56]>>, hip size <<newcloB[56]>>) <a href="exec: numdres = 56 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 57 and newclo[57] = 1 or odetnewclo = 0 and newclo[57] = 1: 'Fashionista´s  number 57 (strength <<newcloH[57]>>, hip size <<newcloB[57]>>) <a href="exec: numdres = 57 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 58 and newclo[58] = 1 or odetnewclo = 0 and newclo[58] = 1: 'Fashionista´s  number 58 (strength <<newcloH[58]>>, hip size <<newcloB[58]>>) <a href="exec: numdres = 58 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 59 and newclo[59] = 1 or odetnewclo = 0 and newclo[59] = 1: 'Fashionista´s  number 59 (strength <<newcloH[59]>>, hip size <<newcloB[59]>>) <a href="exec: numdres = 59 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 60 and newclo[60] = 1 or odetnewclo = 0 and newclo[60] = 1: 'Fashionista´s  number 60 (strength <<newcloH[60]>>, hip size <<newcloB[60]>>) <a href="exec: numdres = 60 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 61 and newclo[61] = 1 or odetnewclo = 0 and newclo[61] = 1: 'Fashionista´s  number 61 (strength <<newcloH[61]>>, hip size <<newcloB[61]>>) <a href="exec: numdres = 61 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 62 and newclo[62] = 1 or odetnewclo = 0 and newclo[62] = 1: 'Fashionista´s  number 62 (strength <<newcloH[62]>>, hip size <<newcloB[62]>>) <a href="exec: numdres = 62 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 63 and newclo[63] = 1 or odetnewclo = 0 and newclo[63] = 1: 'Fashionista´s  number 63 (strength <<newcloH[63]>>, hip size <<newcloB[63]>>) <a href="exec: numdres = 63 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 64 and newclo[64] = 1 or odetnewclo = 0 and newclo[64] = 1: 'Fashionista´s  number 64 (strength <<newcloH[64]>>, hip size <<newcloB[64]>>) <a href="exec: numdres = 64 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 65 and newclo[65] = 1 or odetnewclo = 0 and newclo[65] = 1: 'Fashionista´s  number 65 (strength <<newcloH[65]>>, hip size <<newcloB[65]>>) <a href="exec: numdres = 65 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 66 and newclo[66] = 1 or odetnewclo = 0 and newclo[66] = 1: 'Fashionista´s  number 66 (strength <<newcloH[66]>>, hip size <<newcloB[66]>>) <a href="exec: numdres = 66 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 67 and newclo[67] = 1 or odetnewclo = 0 and newclo[67] = 1: 'Fashionista´s  number 67 (strength <<newcloH[67]>>, hip size <<newcloB[67]>>) <a href="exec: numdres = 67 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 68 and newclo[68] = 1 or odetnewclo = 0 and newclo[68] = 1: 'Fashionista´s  number 68 (strength <<newcloH[68]>>, hip size <<newcloB[68]>>) <a href="exec: numdres = 68 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 69 and newclo[69] = 1 or odetnewclo = 0 and newclo[69] = 1: 'Fashionista´s  number 69 (strength <<newcloH[69]>>, hip size <<newcloB[69]>>) <a href="exec: numdres = 69 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 70 and newclo[70] = 1 or odetnewclo = 0 and newclo[70] = 1: 'Fashionista´s  number 70 (strength <<newcloH[70]>>, hip size <<newcloB[70]>>) <a href="exec: numdres = 70 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 71 and newclo[71] = 1 or odetnewclo = 0 and newclo[71] = 1: 'Fashionista´s  number 71 (strength <<newcloH[71]>>, hip size <<newcloB[71]>>) <a href="exec: numdres = 71 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 72 and newclo[72] = 1 or odetnewclo = 0 and newclo[72] = 1: 'Fashionista´s  number 72 (strength <<newcloH[72]>>, hip size <<newcloB[72]>>) <a href="exec: numdres = 72 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 73 and newclo[73] = 1 or odetnewclo = 0 and newclo[73] = 1: 'Fashionista´s  number 73 (strength <<newcloH[73]>>, hip size <<newcloB[73]>>) <a href="exec: numdres = 73 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 74 and newclo[74] = 1 or odetnewclo = 0 and newclo[74] = 1: 'Fashionista´s  number 74 (strength <<newcloH[74]>>, hip size <<newcloB[74]>>) <a href="exec: numdres = 74 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 75 and newclo[75] = 1 or odetnewclo = 0 and newclo[75] = 1: 'Fashionista´s  number 75 (strength <<newcloH[75]>>, hip size <<newcloB[75]>>) <a href="exec: numdres = 75 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 76 and newclo[76] = 1 or odetnewclo = 0 and newclo[76] = 1: 'Fashionista´s  number 76 (strength <<newcloH[76]>>, hip size <<newcloB[76]>>) <a href="exec: numdres = 76 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 77 and newclo[77] = 1 or odetnewclo = 0 and newclo[77] = 1: 'Fashionista´s  number 77 (strength <<newcloH[77]>>, hip size <<newcloB[77]>>) <a href="exec: numdres = 77 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 78 and newclo[78] = 1 or odetnewclo = 0 and newclo[78] = 1: 'Fashionista´s  number 78 (strength <<newcloH[78]>>, hip size <<newcloB[78]>>) <a href="exec: numdres = 78 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 79 and newclo[79] = 1 or odetnewclo = 0 and newclo[79] = 1: 'Fashionista´s  number 79 (strength <<newcloH[79]>>, hip size <<newcloB[79]>>) <a href="exec: numdres = 79 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 80 and newclo[80] = 1 or odetnewclo = 0 and newclo[80] = 1: 'Fashionista´s  number 80 (strength <<newcloH[80]>>, hip size <<newcloB[80]>>) <a href="exec: numdres = 80 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 81 and newclo[81] = 1 or odetnewclo = 0 and newclo[81] = 1: 'Fashionista´s  number 81 (strength <<newcloH[81]>>, hip size <<newcloB[81]>>) <a href="exec: numdres = 81 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 82 and newclo[82] = 1 or odetnewclo = 0 and newclo[82] = 1: 'Fashionista´s  number 82 (strength <<newcloH[82]>>, hip size <<newcloB[82]>>) <a href="exec: numdres = 82 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 83 and newclo[83] = 1 or odetnewclo = 0 and newclo[83] = 1: 'Fashionista´s  number 83 (strength <<newcloH[83]>>, hip size <<newcloB[83]>>) <a href="exec: numdres = 83 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 84 and newclo[84] = 1 or odetnewclo = 0 and newclo[84] = 1: 'Fashionista´s  number 84 (strength <<newcloH[84]>>, hip size <<newcloB[84]>>) <a href="exec: numdres = 84 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 85 and newclo[85] = 1 or odetnewclo = 0 and newclo[85] = 1: 'Fashionista´s  number 85 (strength <<newcloH[85]>>, hip size <<newcloB[85]>>) <a href="exec: numdres = 85 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 86 and newclo[86] = 1 or odetnewclo = 0 and newclo[86] = 1: 'Fashionista´s  number 86 (strength <<newcloH[86]>>, hip size <<newcloB[86]>>) <a href="exec: numdres = 86 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 87 and newclo[87] = 1 or odetnewclo = 0 and newclo[87] = 1: 'Fashionista´s  number 87 (strength <<newcloH[87]>>, hip size <<newcloB[87]>>) <a href="exec: numdres = 87 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 88 and newclo[88] = 1 or odetnewclo = 0 and newclo[88] = 1: 'Fashionista´s  number 88 (strength <<newcloH[88]>>, hip size <<newcloB[88]>>) <a href="exec: numdres = 88 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 89 and newclo[89] = 1 or odetnewclo = 0 and newclo[89] = 1: 'Fashionista´s  number 89 (strength <<newcloH[89]>>, hip size <<newcloB[89]>>) <a href="exec: numdres = 89 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 90 and newclo[90] = 1 or odetnewclo = 0 and newclo[90] = 1: 'Fashionista´s  number 90 (strength <<newcloH[90]>>, hip size <<newcloB[90]>>) <a href="exec: numdres = 90 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 91 and newclo[91] = 1 or odetnewclo = 0 and newclo[91] = 1: 'Fashionista´s  number 91 (strength <<newcloH[91]>>, hip size <<newcloB[91]>>) <a href="exec: numdres = 91 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 92 and newclo[92] = 1 or odetnewclo = 0 and newclo[92] = 1: 'Fashionista´s  number 92 (strength <<newcloH[92]>>, hip size <<newcloB[92]>>) <a href="exec: numdres = 92 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 93 and newclo[93] = 1 or odetnewclo = 0 and newclo[93] = 1: 'Fashionista´s  number 93 (strength <<newcloH[93]>>, hip size <<newcloB[93]>>) <a href="exec: numdres = 93 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 94 and newclo[94] = 1 or odetnewclo = 0 and newclo[94] = 1: 'Fashionista´s  number 94 (strength <<newcloH[94]>>, hip size <<newcloB[94]>>) <a href="exec: numdres = 94 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 95 and newclo[95] = 1 or odetnewclo = 0 and newclo[95] = 1: 'Fashionista´s  number 95 (strength <<newcloH[95]>>, hip size <<newcloB[95]>>) <a href="exec: numdres = 95 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 96 and newclo[96] = 1 or odetnewclo = 0 and newclo[96] = 1: 'Fashionista´s  number 96 (strength <<newcloH[96]>>, hip size <<newcloB[96]>>) <a href="exec: numdres = 96 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 97 and newclo[97] = 1 or odetnewclo = 0 and newclo[97] = 1: 'Fashionista´s  number 97 (strength <<newcloH[97]>>, hip size <<newcloB[97]>>) <a href="exec: numdres = 97 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 98 and newclo[98] = 1 or odetnewclo = 0 and newclo[98] = 1: 'Fashionista´s  number 98 (strength <<newcloH[98]>>, hip size <<newcloB[98]>>) <a href="exec: numdres = 98 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 99 and newclo[99] = 1 or odetnewclo = 0 and newclo[99] = 1: 'Fashionista´s  number 99 (strength <<newcloH[99]>>, hip size <<newcloB[99]>>) <a href="exec: numdres = 99 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 100 and newclo[100] = 1 or odetnewclo = 0 and newclo[100] = 1: 'Fashionista´s  number 100 (strength <<newcloH[100]>>, hip size <<newcloB[100]>>) <a href="exec: numdres = 100 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 101 and newclo[101] = 1 or odetnewclo = 0 and newclo[101] = 1: 'Fashionista´s  number 101 (strength <<newcloH[101]>>, hip size <<newcloB[101]>>) <a href="exec: numdres = 101 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 102 and newclo[102] = 1 or odetnewclo = 0 and newclo[102] = 1: 'Fashionista´s  number 102 (strength <<newcloH[102]>>, hip size <<newcloB[102]>>) <a href="exec: numdres = 102 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 103 and newclo[103] = 1 or odetnewclo = 0 and newclo[103] = 1: 'Fashionista´s  number 103 (strength <<newcloH[103]>>, hip size <<newcloB[103]>>) <a href="exec: numdres = 103 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 104 and newclo[104] = 1 or odetnewclo = 0 and newclo[104] = 1: 'Fashionista´s  number 104 (strength <<newcloH[104]>>, hip size <<newcloB[104]>>) <a href="exec: numdres = 104 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 105 and newclo[105] = 1 or odetnewclo = 0 and newclo[105] = 1: 'Fashionista´s  number 105 (strength <<newcloH[105]>>, hip size <<newcloB[105]>>) <a href="exec: numdres = 105 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 106 and newclo[106] = 1 or odetnewclo = 0 and newclo[106] = 1: 'Fashionista´s  number 106 (strength <<newcloH[106]>>, hip size <<newcloB[106]>>) <a href="exec: numdres = 106 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 107 and newclo[107] = 1 or odetnewclo = 0 and newclo[107] = 1: 'Fashionista´s  number 107 (strength <<newcloH[107]>>, hip size <<newcloB[107]>>) <a href="exec: numdres = 107 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 108 and newclo[108] = 1 or odetnewclo = 0 and newclo[108] = 1: 'Fashionista´s  number 108 (strength <<newcloH[108]>>, hip size <<newcloB[108]>>) <a href="exec: numdres = 108 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 109 and newclo[109] = 1 or odetnewclo = 0 and newclo[109] = 1: 'Fashionista´s  number 109 (strength <<newcloH[109]>>, hip size <<newcloB[109]>>) <a href="exec: numdres = 109 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 110 and newclo[110] = 1 or odetnewclo = 0 and newclo[110] = 1: 'Fashionista´s  number 110 (strength <<newcloH[110]>>, hip size <<newcloB[110]>>) <a href="exec: numdres = 110 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 111 and newclo[111] = 1 or odetnewclo = 0 and newclo[111] = 1: 'Fashionista´s  number 111 (strength <<newcloH[111]>>, hip size <<newcloB[111]>>) <a href="exec: numdres = 111 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 112 and newclo[112] = 1 or odetnewclo = 0 and newclo[112] = 1: 'Fashionista´s  number 112 (strength <<newcloH[112]>>, hip size <<newcloB[112]>>) <a href="exec: numdres = 112 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 113 and newclo[113] = 1 or odetnewclo = 0 and newclo[113] = 1: 'Fashionista´s  number 113 (strength <<newcloH[113]>>, hip size <<newcloB[113]>>) <a href="exec: numdres = 113 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 114 and newclo[114] = 1 or odetnewclo = 0 and newclo[114] = 1: 'Fashionista´s  number 114 (strength <<newcloH[114]>>, hip size <<newcloB[114]>>) <a href="exec: numdres = 114 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 115 and newclo[115] = 1 or odetnewclo = 0 and newclo[115] = 1: 'Fashionista´s  number 115 (strength <<newcloH[115]>>, hip size <<newcloB[115]>>) <a href="exec: numdres = 115 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 116 and newclo[116] = 1 or odetnewclo = 0 and newclo[116] = 1: 'Fashionista´s  number 116 (strength <<newcloH[116]>>, hip size <<newcloB[116]>>) <a href="exec: numdres = 116 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 117 and newclo[117] = 1 or odetnewclo = 0 and newclo[117] = 1: 'Fashionista´s  number 117 (strength <<newcloH[117]>>, hip size <<newcloB[117]>>) <a href="exec: numdres = 117 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 118 and newclo[118] = 1 or odetnewclo = 0 and newclo[118] = 1: 'Fashionista´s  number 118 (strength <<newcloH[118]>>, hip size <<newcloB[118]>>) <a href="exec: numdres = 118 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 119 and newclo[119] = 1 or odetnewclo = 0 and newclo[119] = 1: 'Fashionista´s  number 119 (strength <<newcloH[119]>>, hip size <<newcloB[119]>>) <a href="exec: numdres = 119 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 120 and newclo[120] = 1 or odetnewclo = 0 and newclo[120] = 1: 'Fashionista´s  number 120 (strength <<newcloH[120]>>, hip size <<newcloB[120]>>) <a href="exec: numdres = 120 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 121 and newclo[121] = 1 or odetnewclo = 0 and newclo[121] = 1: 'Fashionista´s  number 121 (strength <<newcloH[121]>>, hip size <<newcloB[121]>>) <a href="exec: numdres = 121 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 122 and newclo[122] = 1 or odetnewclo = 0 and newclo[122] = 1: 'Fashionista´s  number 122 (strength <<newcloH[122]>>, hip size <<newcloB[122]>>) <a href="exec: numdres = 122 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 123 and newclo[123] = 1 or odetnewclo = 0 and newclo[123] = 1: 'Fashionista´s  number 123 (strength <<newcloH[123]>>, hip size <<newcloB[123]>>) <a href="exec: numdres = 123 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 124 and newclo[124] = 1 or odetnewclo = 0 and newclo[124] = 1: 'Fashionista´s  number 124 (strength <<newcloH[124]>>, hip size <<newcloB[124]>>) <a href="exec: numdres = 124 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 125 and newclo[125] = 1 or odetnewclo = 0 and newclo[125] = 1: 'Fashionista´s  number 125 (strength <<newcloH[125]>>, hip size <<newcloB[125]>>) <a href="exec: numdres = 125 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 126 and newclo[126] = 1 or odetnewclo = 0 and newclo[126] = 1: 'Fashionista´s  number 126 (strength <<newcloH[126]>>, hip size <<newcloB[126]>>) <a href="exec: numdres = 126 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 127 and newclo[127] = 1 or odetnewclo = 0 and newclo[127] = 1: 'Fashionista´s  number 127 (strength <<newcloH[127]>>, hip size <<newcloB[127]>>) <a href="exec: numdres = 127 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 128 and newclo[128] = 1 or odetnewclo = 0 and newclo[128] = 1: 'Fashionista´s  number 128 (strength <<newcloH[128]>>, hip size <<newcloB[128]>>) <a href="exec: numdres = 128 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 129 and newclo[129] = 1 or odetnewclo = 0 and newclo[129] = 1: 'Fashionista´s  number 129 (strength <<newcloH[129]>>, hip size <<newcloB[129]>>) <a href="exec: numdres = 129 & GT ''loker2'',''newclo''">surrender</a>'
if odetnewclo = 1 and numdress ! 130 and newclo[130] = 1 or odetnewclo = 0 and newclo[130] = 1: 'Fashionista´s  number 130 (strength <<newcloH[130]>>, hip size <<newcloB[130]>>) <a href="exec: numdres = 130 & GT ''loker2'',''newclo''">surrender</a>'

if odetjeans=1 and numdress!201 and jeans[201]=1 or odetjeans=0 and jeans[201]=1:'Blue jeans with a grey tank top and a turquise hoodie. (The remaining strength <<jeansH[201]>> , The size of the hips <<jeansB[201]>>) <a href="exec:set numdres=201&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!202 and jeans[202]=1 or odetjeans=0 and jeans[202]=1:'Skin tight low-rise, dark blue jeans with a tight, purple tank top. (The remaining strength <<jeansH[202]>> , The size of the hips <<jeansB[202]>>) <a href="exec:set numdres=202&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!203 and jeans[203]=1 or odetjeans=0 and jeans[203]=1:'Skin tight dark blue jeans with a white tank top and a read hoodie. (The remaining strength <<jeansH[203]>> , The size of the hips <<jeansB[203]>>) <a href="exec:set numdres=203&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!204 and jeans[204]=1 or odetjeans=0 and jeans[204]=1:'Tight, torn light blue jeans with a bright purple T-Shirt, which has a deep, U-cut neckline. (The remaining strength <<jeansH[204]>> , The size of the hips <<jeansB[204]>>) <a href="exec:set numdres=204&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!205 and jeans[205]=1 or odetjeans=0 and jeans[205]=1:'Skin tight, low-rise and torn dark blue jeans with a white tank top and a black leather jacket. (The remaining strength <<jeansH[205]>> , The size of the hips <<jeansB[205]>>) <a href="exec:set numdres=205&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!206 and jeans[206]=1 or odetjeans=0 and jeans[206]=1:'Tight, low-rise dark blue jeans with a black tank top. (The remaining strength <<jeansH[206]>> , The size of the hips <<jeansB[206]>>) <a href="exec:set numdres=206&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!207 and jeans[207]=1 or odetjeans=0 and jeans[207]=1:'Skin tight, low-rise light blue jeans with a very short white tank top. (The remaining strength <<jeansH[207]>> , The size of the hips <<jeansB[207]>>) <a href="exec:set numdres=207&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!208 and jeans[208]=1 or odetjeans=0 and jeans[208]=1:'Skin tight blue jeans and a black tank top, which has a glittery pattern. It also has knee high boots. (The remaining strength <<jeansH[208]>> , The size of the hips <<jeansB[208]>>) <a href="exec:set numdres=208&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!209 and jeans[209]=1 or odetjeans=0 and jeans[209]=1:'Skin tight grey jeans and a neckholding brown top. (The remaining strength <<jeansH[209]>> , The size of the hips <<jeansB[209]>>) <a href="exec:set numdres=209&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!210 and jeans[210]=1 or odetjeans=0 and jeans[210]=1:'Light blue jeans with a white T-Shirt. (The remaining strength <<jeansH[210]>> , The size of the hips <<jeansB[210]>>) <a href="exec:set numdres=210&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!211 and jeans[211]=1 or odetjeans=0 and jeans[211]=1:'Skin tight, high rise dark grey jeans and a grey top, which has the american flag on it. (The remaining strength <<jeansH[211]>> , The size of the hips <<jeansB[211]>>) <a href="exec:set numdres=211&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!212 and jeans[212]=1 or odetjeans=0 and jeans[212]=1:'Tight blue jeans, with a black leather belt and a pink-white stripped hoodie. (The remaining strength <<jeansH[212]>> , The size of the hips <<jeansB[212]>>) <a href="exec:set numdres=212&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!213 and jeans[213]=1 or odetjeans=0 and jeans[213]=1:'Skin tight light grey jeans and a loose black T-Shirt. (The remaining strength <<jeansH[213]>> , The size of the hips <<jeansB[213]>>) <a href="exec:set numdres=213&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!214 and jeans[214]=1 or odetjeans=0 and jeans[214]=1:'Skin tight grey jeans, a green T-Shirt and a puple-black striped hoodie. (The remaining strength <<jeansH[214]>> , The size of the hips <<jeansB[214]>>) <a href="exec:set numdres=214&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!215 and jeans[215]=1 or odetjeans=0 and jeans[215]=1:'High rise, light blue jeans and a black halter top. (The remaining strength <<jeansH[215]>> , The size of the hips <<jeansB[215]>>) <a href="exec:set numdres=215&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!216 and jeans[216]=1 or odetjeans=0 and jeans[216]=1:'Skin tight dark blue jeans and a shiny sliver blouse, with a deep U-shaped cleavage. (The remaining strength <<jeansH[216]>> , The size of the hips <<jeansB[216]>>) <a href="exec:set numdres=216&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!217 and jeans[217]=1 or odetjeans=0 and jeans[217]=1:'Tight blue jeans and a breght red-black striped T-Shirt, with a deep cleavage. (The remaining strength <<jeansH[217]>> , The size of the hips <<jeansB[217]>>) <a href="exec:set numdres=217&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!218 and jeans[218]=1 or odetjeans=0 and jeans[218]=1:'High rise, skin tight blue jeans and a short grey see-through shirt. (The remaining strength <<jeansH[218]>> , The size of the hips <<jeansB[218]>>) <a href="exec:set numdres=218&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!219 and jeans[219]=1 or odetjeans=0 and jeans[219]=1:'Skin tight blue jeans and a white halter top. (The remaining strength <<jeansH[219]>> , The size of the hips <<jeansB[219]>>) <a href="exec:set numdres=219&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!220 and jeans[220]=1 or odetjeans=0 and jeans[220]=1:'Light blue jeans and a loose black top, with the wrtting in white saying "Sex Instructor". (The remaining strength <<jeansH[220]>> , The size of the hips <<jeansB[220]>>) <a href="exec:set numdres=220&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!221 and jeans[221]=1 or odetjeans=0 and jeans[221]=1:'Skin tight, light blue jeans and a white halter top under a blue-white blouse. (The remaining strength <<jeansH[221]>> , The size of the hips <<jeansB[221]>>) <a href="exec:set numdres=221&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!222 and jeans[222]=1 or odetjeans=0 and jeans[222]=1:'High rise, dark blue jeans and a golden bikini top. (The remaining strength <<jeansH[222]>> , The size of the hips <<jeansB[222]>>) <a href="exec:set numdres=222&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!223 and jeans[223]=1 or odetjeans=0 and jeans[223]=1:'High rise, dark blue jeans and a backless pink top. (The remaining strength <<jeansH[223]>> , The size of the hips <<jeansB[223]>>) <a href="exec:set numdres=223&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!224 and jeans[224]=1 or odetjeans=0 and jeans[224]=1:'High rise, light blue jeans and a backless silver top. (The remaining strength <<jeansH[224]>> , The size of the hips <<jeansB[224]>>) <a href="exec:set numdres=224&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!225 and jeans[225]=1 or odetjeans=0 and jeans[225]=1:'Skin tight, light blue jeans, with a white belt and a short and tight glittery golden halter top. (The remaining strength <<jeansH[225]>> , The size of the hips <<jeansB[225]>>) <a href="exec:set numdres=225&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!226 and jeans[226]=1 or odetjeans=0 and jeans[226]=1:'High rise, dark blue jeans and a short black halter top. (The remaining strength <<jeansH[226]>> , The size of the hips <<jeansB[226]>>) <a href="exec:set numdres=226&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!227 and jeans[227]=1 or odetjeans=0 and jeans[227]=1:'High rise, skin tight blue jeans and a loose fitting flesh colored top.(The remaining strength <<jeansH[227]>> , The size of the hips <<jeansB[227]>>) <a href="exec:set numdres=227&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!228 and jeans[228]=1 or odetjeans=0 and jeans[228]=1:'Skin tight, light blue high rise jeans and a tight white tank top. (The remaining strength <<jeansH[228]>> , The size of the hips <<jeansB[228]>>) <a href="exec:set numdres=228&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!229 and jeans[229]=1 or odetjeans=0 and jeans[229]=1:'Skin tight, light blue jeans and a pink halter top. (The remaining strength <<jeansH[229]>> , The size of the hips <<jeansB[229]>>) <a href="exec:set numdres=229&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!230 and jeans[230]=1 or odetjeans=0 and jeans[230]=1:'Skin tight, white high rise jeans and a loose fitting black-white striped top.(The remaining strength <<jeansH[230]>> , The size of the hips <<jeansB[230]>>) <a href="exec:set numdres=230&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!231 and jeans[231]=1 or odetjeans=0 and jeans[231]=1:'Skin tight, high rise light blue jeans, a tight fitting top in beige and a beige wool vest. (The remaining strength <<jeansH[231]>> , The size of the hips <<jeansB[231]>>) <a href="exec:set numdres=231&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!232 and jeans[232]=1 or odetjeans=0 and jeans[232]=1:'Skin tight, dark blue jeans, with a small brown belt and a white T-Shirt. (The remaining strength <<jeansH[232]>> , The size of the hips <<jeansB[232]>>) <a href="exec:set numdres=232&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!236 and jeans[236]=1 or odetjeans=0 and jeans[236]=1:'High rise, light blue jeans and a black tank top. (The remaining strength <<jeansH[236]>> , The size of the hips <<jeansB[236]>>) <a href="exec:set numdres=236&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!237 and jeans[237]=1 or odetjeans=0 and jeans[237]=1:'Low rise, dark blue jeans and a beige vest. (The remaining strength <<jeansH[237]>> , The size of the hips <<jeansB[237]>>) <a href="exec:set numdres=237&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!238 and jeans[238]=1 or odetjeans=0 and jeans[238]=1:'High rise, skin tight, dark blue jeans  and a short, yellow top. (The remaining strength <<jeansH[238]>> , The size of the hips <<jeansB[238]>>) <a href="exec:set numdres=238&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!239 and jeans[239]=1 or odetjeans=0 and jeans[239]=1:'High rise, skin tight, dark blue jeans, with a brown belt and a denim blue denim shirt. (The remaining strength <<jeansH[239]>> , The size of the hips <<jeansB[239]>>) <a href="exec:set numdres=239&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!240 and jeans[240]=1 or odetjeans=0 and jeans[240]=1:'Low rise, blue jeans and a white shirt. (The remaining strength <<jeansH[240]>> , The size of the hips <<jeansB[240]>>) <a href="exec:set numdres=240&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!241 and jeans[241]=1 or odetjeans=0 and jeans[241]=1:'High rise, skin tight, blue jeans, with a white-grey belt and a white tank top. (The remaining strength <<jeansH[241]>> , The size of the hips <<jeansB[241]>>) <a href="exec:set numdres=241&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!243 and jeans[243]=1 or odetjeans=0 and jeans[243]=1:'Blue jeans and a grey "Smiley" T-Shirt, with a very deep cleavage. (The remaining strength <<jeansH[243]>> , The size of the hips <<jeansB[243]>>) <a href="exec:set numdres=243&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!244 and jeans[244]=1 or odetjeans=0 and jeans[244]=1:'High rise, skin tight, light blue jeans and a short white tank top. (The remaining strength <<jeansH[244]>> , The size of the hips <<jeansB[244]>>) <a href="exec:set numdres=244&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!245 and jeans[245]=1 or odetjeans=0 and jeans[245]=1:'High rise, skin tight, dark blue jeans, with a small blue belt and a white shirt, with a deep cleavage. (The remaining strength <<jeansH[245]>> , The size of the hips <<jeansB[245]>>) <a href="exec:set numdres=245&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!246 and jeans[246]=1 or odetjeans=0 and jeans[246]=1:'Light blue jeans and a black neckhalter top. (The remaining strength <<jeansH[246]>> , The size of the hips <<jeansB[246]>>) <a href="exec:set numdres=246&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!247 and jeans[247]=1 or odetjeans=0 and jeans[247]=1:'High rise, skin tight, light blue jeans and a dark blue neckhalter top. (The remaining strength <<jeansH[247]>> , The size of the hips <<jeansB[247]>>) <a href="exec:set numdres=247&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!248 and jeans[248]=1 or odetjeans=0 and jeans[248]=1:'High rise, skin tight, dark blue jeans, with a small beige belt, a tight, red camisole and a beige blouse. (The remaining strength <<jeansH[248]>> , The size of the hips <<jeansB[248]>>) <a href="exec:set numdres=248&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!249 and jeans[249]=1 or odetjeans=0 and jeans[249]=1:'High rise, skin tight, light blue jeans, a short white camisole under a short black hoodie. (The remaining strength <<jeansH[249]>> , The size of the hips <<jeansB[249]>>) <a href="exec:set numdres=249&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!250 and jeans[250]=1 or odetjeans=0 and jeans[250]=1:'Skin tight, blue jeans, a light blue denim blouse under a blue denim jacket. (The remaining strength <<jeansH[250]>> , The size of the hips <<jeansB[250]>>) <a href="exec:set numdres=250&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!251 and jeans[251]=1 or odetjeans=0 and jeans[251]=1:'Tight, blue denim jeans and a black T-Shirt. (The remaining strength <<jeansH[251]>> , The size of the hips <<jeansB[251]>>) <a href="exec:set numdres=251&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!252 and jeans[252]=1 or odetjeans=0 and jeans[252]=1:'High rise, blue jeans, with a brown belt and a short, light pink T-Shirt. (The remaining strength <<jeansH[252]>> , The size of the hips <<jeansB[252]>>) <a href="exec:set numdres=252&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!253 and jeans[253]=1 or odetjeans=0 and jeans[253]=1:'Skin tight, light blue jeans and a short, tight, neon-pink top. (The remaining strength <<jeansH[253]>> , The size of the hips <<jeansB[253]>>) <a href="exec:set numdres=253&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!254 and jeans[254]=1 or odetjeans=0 and jeans[254]=1:'High rise, skin tight, blue jeans, with a black leather belt and a green shirt, with a very revealing cleavage. (The remaining strength <<jeansH[254]>> , The size of the hips <<jeansB[254]>>) <a href="exec:set numdres=254&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!255 and jeans[255]=1 or odetjeans=0 and jeans[255]=1:'Tight, light blue jeans and a short, beige shirt. (The remaining strength <<jeansH[255]>> , The size of the hips <<jeansB[255]>>) <a href="exec:set numdres=255&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!256 and jeans[256]=1 or odetjeans=0 and jeans[256]=1:'Blue jeans and a white tank top, with a deep cleavage. (The remaining strength <<jeansH[256]>> , The size of the hips <<jeansB[256]>>) <a href="exec:set numdres=256&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!257 and jeans[257]=1 or odetjeans=0 and jeans[257]=1:'High rise, skin tight, light blue jeans, with a black leather belt and a white T-Shirt. (The remaining strength <<jeansH[257]>> , The size of the hips <<jeansB[257]>>) <a href="exec:set numdres=257&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!258 and jeans[258]=1 or odetjeans=0 and jeans[258]=1:'Tight, dark grey pants and a dark blue shirt, with a deep cleavage. (The remaining strength <<jeansH[258]>> , The size of the hips <<jeansB[258]>>) <a href="exec:set numdres=258&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!259 and jeans[259]=1 or odetjeans=0 and jeans[259]=1:'High rise, tight, light blue jeans and a white tank top. (The remaining strength <<jeansH[259]>> , The size of the hips <<jeansB[259]>>) <a href="exec:set numdres=259&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!260 and jeans[260]=1 or odetjeans=0 and jeans[260]=1:'High rise, skin tight, light blue jeans and a short white top. (The remaining strength <<jeansH[260]>> , The size of the hips <<jeansB[260]>>) <a href="exec:set numdres=260&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!261 and jeans[261]=1 or odetjeans=0 and jeans[261]=1:'High rise, skin tight, white denim jeans and a short, red tube-top. (The remaining strength <<jeansH[261]>> , The size of the hips <<jeansB[261]>>) <a href="exec:set numdres=261&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!262 and jeans[262]=1 or odetjeans=0 and jeans[262]=1:'High rise, tight, light blue jeans and a leopard patterend tube top. (The remaining strength <<jeansH[262]>> , The size of the hips <<jeansB[262]>>) <a href="exec:set numdres=262&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!263 and jeans[263]=1 or odetjeans=0 and jeans[263]=1:'High rise, skin tight, blue jeans aand a white-yellow top. (The remaining strength <<jeansH[263]>> , The size of the hips <<jeansB[263]>>) <a href="exec:set numdres=263&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!264 and jeans[264]=1 or odetjeans=0 and jeans[264]=1:'Low rise, skin tight, light blue jeans and a short, pink camisole. (The remaining strength <<jeansH[264]>> , The size of the hips <<jeansB[264]>>) <a href="exec:set numdres=264&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!265 and jeans[265]=1 or odetjeans=0 and jeans[265]=1:'Tight, white denim pants and a short, red camisole. (The remaining strength <<jeansH[265]>> , The size of the hips <<jeansB[265]>>) <a href="exec:set numdres=265&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!266 and jeans[266]=1 or odetjeans=0 and jeans[266]=1:'High rise, skin tight, dark blue jeans, with a black leather blet and a tight, thin, black neckhalter top. (The remaining strength <<jeansH[266]>> , The size of the hips <<jeansB[266]>>) <a href="exec:set numdres=266&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!267 and jeans[267]=1 or odetjeans=0 and jeans[267]=1:'High rise, skin tight, blue jeans, with a small brown belt and a short white camisole. (The remaining strength <<jeansH[267]>> , The size of the hips <<jeansB[267]>>) <a href="exec:set numdres=267&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!268 and jeans[268]=1 or odetjeans=0 and jeans[268]=1:'High rise, tight, light blue jeans and a black tank top. (The remaining strength <<jeansH[268]>> , The size of the hips <<jeansB[268]>>) <a href="exec:set numdres=268&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!269 and jeans[269]=1 or odetjeans=0 and jeans[269]=1:'High rise, skin tight, blue jeans and a short, tight, light grey T-Shirt. (The remaining strength <<jeansH[269]>> , The size of the hips <<jeansB[269]>>) <a href="exec:set numdres=269&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!270 and jeans[270]=1 or odetjeans=0 and jeans[270]=1:'Tight, dark blue jeans and a grey T-Shirt. (The remaining strength <<jeansH[270]>> , The size of the hips <<jeansB[270]>>) <a href="exec:set numdres=270&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!271 and jeans[271]=1 or odetjeans=0 and jeans[271]=1:'Skin tight, blue jeans and a black shirt, with a revealing cleavage. (The remaining strength <<jeansH[271]>> , The size of the hips <<jeansB[271]>>) <a href="exec:set numdres=271&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!272 and jeans[272]=1 or odetjeans=0 and jeans[272]=1:'High rise, skin tight, dark blue jeans, with a grey belt and a colourful T-Shirt. (The remaining strength <<jeansH[272]>> , The size of the hips <<jeansB[272]>>) <a href="exec:set numdres=272&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!273 and jeans[273]=1 or odetjeans=0 and jeans[273]=1:'Tight, blue jeans and a grey camisole, with a very revealing cleavage. (The remaining strength <<jeansH[273]>> , The size of the hips <<jeansB[273]>>) <a href="exec:set numdres=273&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!274 and jeans[274]=1 or odetjeans=0 and jeans[274]=1:'High rise, tight, blue jeans and a white tube top. (The remaining strength <<jeansH[274]>> , The size of the hips <<jeansB[274]>>) <a href="exec:set numdres=274&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!275 and jeans[275]=1 or odetjeans=0 and jeans[275]=1:'High rise, skin tight, torn, blue jeans and a very tight, very short, black camisole, with a very revealing cleavage. (The remaining strength <<jeansH[275]>> , The size of the hips <<jeansB[275]>>) <a href="exec:set numdres=275&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!276 and jeans[276]=1 or odetjeans=0 and jeans[276]=1:'Tight, light blue jeans and a blue short, with a revealing cleavage. (The remaining strength <<jeansH[276]>> , The size of the hips <<jeansB[276]>>) <a href="exec:set numdres=276&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!278 and jeans[278]=1 or odetjeans=0 and jeans[278]=1:'High rise, skin tight, dark blue jeans and a white tank top, with a revealing cleavage, under a red, leather jacket. (The remaining strength <<jeansH[278]>> , The size of the hips <<jeansB[278]>>) <a href="exec:set numdres=278&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!279 and jeans[279]=1 or odetjeans=0 and jeans[279]=1:'High rise, skin tight, blue jeans and a short, blue neckhalter top. (The remaining strength <<jeansH[279]>> , The size of the hips <<jeansB[279]>>) <a href="exec:set numdres=279&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!280 and jeans[280]=1 or odetjeans=0 and jeans[280]=1:'High rise, tight, blue jeans and black top, with lacy parts. (The remaining strength <<jeansH[280]>> , The size of the hips <<jeansB[280]>>) <a href="exec:set numdres=280&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!281 and jeans[281]=1 or odetjeans=0 and jeans[281]=1:'High rise, tight, light blue jeans and a short, black camisole. (The remaining strength <<jeansH[281]>> , The size of the hips <<jeansB[281]>>) <a href="exec:set numdres=281&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!282 and jeans[282]=1 or odetjeans=0 and jeans[282]=1:'High rise, skin tight dark blue jeans and stripped, white-grey T-Shirt. (The remaining strength <<jeansH[282]>> , The size of the hips <<jeansB[282]>>) <a href="exec:set numdres=282&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!283 and jeans[283]=1 or odetjeans=0 and jeans[283]=1:'High rise, tight, light blue jeans, with a white-grey belt and a light brown top. (The remaining strength <<jeansH[283]>> , The size of the hips <<jeansB[283]>>) <a href="exec:set numdres=283&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!285 and jeans[285]=1 or odetjeans=0 and jeans[285]=1:'Skin tight, dark blue jeans and a brown tank top. (The remaining strength <<jeansH[285]>> , The size of the hips <<jeansB[285]>>) <a href="exec:set numdres=285&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!286 and jeans[286]=1 or odetjeans=0 and jeans[286]=1:'Blue jeans and a skin tight, black latex T-Shirt. (The remaining strength <<jeansH[286]>> , The size of the hips <<jeansB[286]>>) <a href="exec:set numdres=286&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!287 and jeans[287]=1 or odetjeans=0 and jeans[287]=1:'High rise, skin tight, light blue jeans, with a small brown belt and a short, colorful top. (The remaining strength <<jeansH[287]>> , The size of the hips <<jeansB[287]>>) <a href="exec:set numdres=287&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!289 and jeans[289]=1 or odetjeans=0 and jeans[289]=1:'Skin tight, dark blue jeans and a tight fitting, light brown camisole. (The remaining strength <<jeansH[289]>> , The size of the hips <<jeansB[289]>>) <a href="exec:set numdres=289&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!290 and jeans[290]=1 or odetjeans=0 and jeans[290]=1:'High rise, skin tight, black leather pants and a purple camisole. (The remaining strength <<jeansH[290]>> , The size of the hips <<jeansB[290]>>) <a href="exec:set numdres=290&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!291 and jeans[291]=1 or odetjeans=0 and jeans[291]=1:'Skin tight, grey jeans and a white tank top, under a neon-orange jacket. (The remaining strength <<jeansH[291]>> , The size of the hips <<jeansB[291]>>) <a href="exec:set numdres=291&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!292 and jeans[292]=1 or odetjeans=0 and jeans[292]=1:'High rise, skin tight, blue jeans and a short, black T-Shirt. (The remaining strength <<jeansH[292]>> , The size of the hips <<jeansB[292]>>) <a href="exec:set numdres=292&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!293 and jeans[293]=1 or odetjeans=0 and jeans[293]=1:'High rise, skin tight, blue jeans and a short, white tank top under a colorful blouse. (The remaining strength <<jeansH[293]>> , The size of the hips <<jeansB[293]>>) <a href="exec:set numdres=293&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!294 and jeans[294]=1 or odetjeans=0 and jeans[294]=1:'High rise, skin tight, blue jeans and a tight, grey top. (The remaining strength <<jeansH[294]>> , The size of the hips <<jeansB[294]>>) <a href="exec:set numdres=294&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!295 and jeans[295]=1 or odetjeans=0 and jeans[295]=1:'High rise, skin tight, blue jeans and a shirt, red top, with a very deep and revealing cleavage. (The remaining strength <<jeansH[295]>> , The size of the hips <<jeansB[295]>>) <a href="exec:set numdres=295&GT ''loker2'',''jeans''">pass</a>'
if odetjeans=1 and numdress!297 and jeans[297]=1 or odetjeans=0 and jeans[297]=1:'Tight, light blue jeans and a white camisole. (The remaining strength <<jeansH[297]>> , The size of the hips <<jeansB[297]>>) <a href="exec:set numdres=297&GT ''loker2'',''jeans''">pass</a>'

if odetshort=1 and numdress!201 and short[201]=1 or odetshort=0 and short[201]=1:'Light blue denim shorts, a black belt and a cropped, white tank top. (The remaining strength <<shortH[201]>>, The size of the hips <<shortB[201]>>) <a href="exec:set numdres=201&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!202 and short[202]=1 or odetshort=0 and short[202]=1:'Blue denim shorts and a grey tank top. (The remaining strength <<shortH[202]>>, The size of the hips <<shortB[202]>>) <a href="exec:set numdres=202&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!203 and short[203]=1 or odetshort=0 and short[203]=1:'Blue denim shorts and a black tank top. (The remaining strength <<shortH[203]>>, The size of the hips <<shortB[203]>>) <a href="exec:set numdres=203&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!204 and short[204]=1 or odetshort=0 and short[204]=1:'Blue denim shorts and a cropped, white tank top. (The remaining strength <<shortH[204]>>, The size of the hips <<shortB[204]>>) <a href="exec:set numdres=204&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!205 and short[205]=1 or odetshort=0 and short[205]=1:'Light blue denim shorts with a frilly, white tank top, which has a discreet color pattern. (The remaining strength <<shortH[205]>>, The size of the hips <<shortB[205]>>) <a href="exec:set numdres=205&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!206 and short[206]=1 or odetshort=0 and short[206]=1:'Light blue denim shorts, a light brown belt and a dark grey tank top.Light blue denim shorts, a light brown belt and a dark grey tank top. (The remaining strength <<shortH[206]>>, The size of the hips <<shortB[206]>>) <a href="exec:set numdres=206&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!207 and short[207]=1 or odetshort=0 and short[207]=1:'Loose grey shorts with a white tank top. (The remaining strength <<shortH[207]>>, The size of the hips <<shortB[207]>>) <a href="exec:set numdres=207&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!208 and short[208]=1 or odetshort=0 and short[208]=1:'Tight grey shorts with a white tank top. (The remaining strength <<shortH[208]>>, The size of the hips <<shortB[208]>>) <a href="exec:set numdres=208&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!209 and short[209]=1 or odetshort=0 and short[209]=1:'Dark blue denim shorts with a pink bikini top. (The remaining strength <<shortH[209]>>, The size of the hips <<shortB[209]>>) <a href="exec:set numdres=209&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!210 and short[210]=1 or odetshort=0 and short[210]=1:'Light blue denim shorts and a white bikini top, which has a pinkish colored pattern. (The remaining strength <<shortH[210]>>, The size of the hips <<shortB[210]>>) <a href="exec:set numdres=210&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!211 and short[211]=1 or odetshort=0 and short[211]=1:'Very short, blue denim shorts and a light pink shirt. (The remaining strength <<shortH[211]>>, The size of the hips <<shortB[211]>>) <a href="exec:set numdres=211&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!212 and short[212]=1 or odetshort=0 and short[212]=1:'Light blue denim shorts with a white shirt. (The remaining strength <<shortH[212]>>, The size of the hips <<shortB[212]>>) <a href="exec:set numdres=212&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!213 and short[213]=1 or odetshort=0 and short[213]=1:'Dark blue shorts and black leggins with a bright pink shirt. (The remaining strength <<shortH[213]>>, The size of the hips <<shortB[213]>>) <a href="exec:set numdres=213&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!214 and short[214]=1 or odetshort=0 and short[214]=1:'Very short, dark blue denim shorts with a grey T-Shirt. (The remaining strength <<shortH[214]>>, The size of the hips <<shortB[214]>>) <a href="exec:set numdres=214&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!215 and short[215]=1 or odetshort=0 and short[215]=1:'Loose, light blue denim shorts with a tight, brown shirt. (The remaining strength <<shortH[215]>>, The size of the hips <<shortB[215]>>) <a href="exec:set numdres=215&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!216 and short[216]=1 or odetshort=0 and short[216]=1:'Loose, blue denim shorts with a light grey T-Shirt, which a deep U-Style neckline. (The remaining strength <<shortH[216]>>, The size of the hips <<shortB[216]>>) <a href="exec:set numdres=216&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!217 and short[217]=1 or odetshort=0 and short[217]=1:'Light blue denim shorts with a white top. (The remaining strength <<shortH[217]>>, The size of the hips <<shortB[217]>>) <a href="exec:set numdres=217&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!218 and short[218]=1 or odetshort=0 and short[218]=1:'Light blue denim shorts with a halterless, pink top. (The remaining strength <<shortH[218]>>, The size of the hips <<shortB[218]>>) <a href="exec:set numdres=218&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!219 and short[219]=1 or odetshort=0 and short[219]=1:'Blue denim shorts with a grey tank top. (The remaining strength <<shortH[219]>>, The size of the hips <<shortB[219]>>) <a href="exec:set numdres=219&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!220 and short[220]=1 or odetshort=0 and short[220]=1:'Very short, white shorts and a white top. (The remaining strength <<shortH[220]>>, The size of the hips <<shortB[220]>>) <a href="exec:set numdres=220&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!221 and short[221]=1 or odetshort=0 and short[221]=1:'Tight, white denim shorts with a short, but colorful tank top. (The remaining strength <<shortH[221]>>, The size of the hips <<shortB[221]>>) <a href="exec:set numdres=221&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!222 and short[222]=1 or odetshort=0 and short[222]=1:'White shorts with a tight, light brown T-Shirt. (The remaining strength <<shortH[222]>>, The size of the hips <<shortB[222]>>) <a href="exec:set numdres=222&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!223 and short[223]=1 or odetshort=0 and short[223]=1:'Black shorts with a turquise belt and short, black-turquise T-Shirt. (The remaining strength <<shortH[223]>>, The size of the hips <<shortB[223]>>) <a href="exec:set numdres=223&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!224 and short[224]=1 or odetshort=0 and short[224]=1:'Blue shorts with a short, blue T-Shirt. (The remaining strength <<shortH[224]>>, The size of the hips <<shortB[224]>>) <a href="exec:set numdres=224&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!225 and short[225]=1 or odetshort=0 and short[225]=1:'Dark blue denim shorts and sheer, beige blouse. (The remaining strength <<shortH[225]>>, The size of the hips <<shortB[225]>>) <a href="exec:set numdres=225&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!226 and short[226]=1 or odetshort=0 and short[226]=1:'Light blue denim shorts, a dark blue tank top and a white vest. (The remaining strength <<shortH[226]>>, The size of the hips <<shortB[226]>>) <a href="exec:set numdres=226&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!227 and short[227]=1 or odetshort=0 and short[227]=1:'Very short, tight, black shorts with a yellow belt and a yellow hoodie. (The remaining strength <<shortH[227]>>, The size of the hips <<shortB[227]>>) <a href="exec:set numdres=227&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!228 and short[228]=1 or odetshort=0 and short[228]=1:'Very short, tight, black shorts and a orange-white vest. (The remaining strength <<shortH[228]>>, The size of the hips <<shortB[228]>>) <a href="exec:set numdres=228&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!229 and short[229]=1 or odetshort=0 and short[229]=1:'Very short denim shorts and a tight, short white T-shirt, which a deep U-shaped cutting. (The remaining strength <<shortH[229]>>, The size of the hips <<shortB[229]>>) <a href="exec:set numdres=229&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!230 and short[230]=1 or odetshort=0 and short[230]=1:'Tight, light blue denim shorts and a loose fitting blue top.(The remaining strength <<shortH[230]>>, The size of the hips <<shortB[230]>>) <a href="exec:set numdres=230&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!231 and short[231]=1 or odetshort=0 and short[231]=1:'Very short blue denim shorts, with a brown belt and a frilly, light blue neckhalter top. (The remaining strength <<shortH[231]>>, The size of the hips <<shortB[231]>>) <a href="exec:set numdres=231&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!232 and short[232]=1 or odetshort=0 and short[232]=1:'Dark blue denim shorts, with a large, light brown belt and a blue halter top, which has a deep U-shaped cutting. (The remaining strength <<shortH[232]>>, The size of the hips <<shortB[232]>>) <a href="exec:set numdres=232&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!233 and short[233]=1 or odetshort=0 and short[233]=1:'Blue denim shorts and a short white halter top, which you can see slightly through and it has a deep U-shaped neckline. (The remaining strength <<shortH[233]>>, The size of the hips <<shortB[233]>>) <a href="exec:set numdres=233&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!234 and short[234]=1 or odetshort=0 and short[234]=1:'Cropped dark blue denim short and a back free, light pink halter. (The remaining strength <<shortH[234]>>, The size of the hips <<shortB[234]>>) <a href="exec:set numdres=234&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!235 and short[235]=1 or odetshort=0 and short[235]=1:'Light blue denim shorts and a light brown top. (The remaining strength <<shortH[235]>>, The size of the hips <<shortB[235]>>) <a href="exec:set numdres=235&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!236 and short[236]=1 or odetshort=0 and short[236]=1:'Cropped blue denim shorts and a bright pink shirt, which has a very deep V-shaped cutting. (The remaining strength <<shortH[236]>>, The size of the hips <<shortB[236]>>) <a href="exec:set numdres=236&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!237 and short[237]=1 or odetshort=0 and short[237]=1:'Short yellow-black hotpants and a white tank top. (The remaining strength <<shortH[237]>>, The size of the hips <<shortB[237]>>) <a href="exec:set numdres=237&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!238 and short[238]=1 or odetshort=0 and short[238]=1:'Cropped white shorts and a light pink tank top. (The remaining strength <<shortH[238]>>, The size of the hips <<shortB[238]>>) <a href="exec:set numdres=238&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!239 and short[239]=1 or odetshort=0 and short[239]=1:'Cropped blue denim shorts and a loose fitting red halter top. (The remaining strength <<shortH[239]>>, The size of the hips <<shortB[239]>>) <a href="exec:set numdres=239&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!240 and short[240]=1 or odetshort=0 and short[240]=1:'Very short, cropped blue denim shorts and a red patterend blouse. (The remaining strength <<shortH[240]>>, The size of the hips <<shortB[240]>>) <a href="exec:set numdres=240&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!241 and short[241]=1 or odetshort=0 and short[241]=1:'Cropped light blue shorts and a very revealing white top. (The remaining strength <<shortH[241]>>, The size of the hips <<shortB[241]>>) <a href="exec:set numdres=241&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!242 and short[242]=1 or odetshort=0 and short[242]=1:'Light blue denim shorts, with a brown belt and a pink top. (The remaining strength <<shortH[242]>>, The size of the hips <<shortB[242]>>) <a href="exec:set numdres=242&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!244 and short[244]=1 or odetshort=0 and short[244]=1:'Cropped black denim shorts, with a studded black belt, a black tank top and a black leather vest. (The remaining strength <<shortH[244]>>, The size of the hips <<shortB[244]>>) <a href="exec:set numdres=244&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!245 and short[245]=1 or odetshort=0 and short[245]=1:'Short black hotpants and a white halter top. (The remaining strength <<shortH[245]>>, The size of the hips <<shortB[245]>>) <a href="exec:set numdres=245&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!246 and short[246]=1 or odetshort=0 and short[246]=1:'Light blue denim shorts, with a brown belt and a blue top, with a V-shaped cleavage. (The remaining strength <<shortH[246]>>, The size of the hips <<shortB[246]>>) <a href="exec:set numdres=246&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!247 and short[247]=1 or odetshort=0 and short[247]=1:'Light blue denim shorts and a loose fitting tank top.  (The remaining strength <<shortH[247]>>, The size of the hips <<shortB[247]>>) <a href="exec:set numdres=247&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!248 and short[248]=1 or odetshort=0 and short[248]=1:'Light blue denim shorts, with a yellow belt and a tight yellow halter top. (The remaining strength <<shortH[248]>>, The size of the hips <<shortB[248]>>) <a href="exec:set numdres=248&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!249 and short[249]=1 or odetshort=0 and short[249]=1:'Very short blue denim shorts and a very short, but cute top. (The remaining strength <<shortH[249]>>, The size of the hips <<shortB[249]>>) <a href="exec:set numdres=249&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!250 and short[250]=1 or odetshort=0 and short[250]=1:'Yellow hotpants and a short blue halter top. (The remaining strength <<shortH[250]>>, The size of the hips <<shortB[250]>>) <a href="exec:set numdres=250&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!251 and short[251]=1 or odetshort=0 and short[251]=1:'White hotpants and a tight fitting white top, which has a deep U-shaped neckline. (The remaining strength <<shortH[251]>>, The size of the hips <<shortB[251]>>) <a href="exec:set numdres=251&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!252 and short[252]=1 or odetshort=0 and short[252]=1:'Cropped light blue denim shorts, a very short yellow halter top and a light blue blouse.  (The remaining strength <<shortH[252]>>, The size of the hips <<shortB[252]>>) <a href="exec:set numdres=252&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!253 and short[253]=1 or odetshort=0 and short[253]=1:'Light blue denim shorts, a pink bikini top, which is under a red, flower-patterend see-through top. (The remaining strength <<shortH[253]>>, The size of the hips <<shortB[253]>>) <a href="exec:set numdres=253&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!255 and short[255]=1 or odetshort=0 and short[255]=1:'Blue denim shorts and a white shirt. (The remaining strength <<shortH[255]>>, The size of the hips <<shortB[255]>>) <a href="exec:set numdres=255&GT ''loker2'',''short''">pass</a>'
if odetshort=1 and numdress!256 and short[256]=1 or odetshort=0 and short[256]=1:'Light blue denim shorts, with a brown snake-skin belt and a short dark brown T-Shirt. (The remaining strength <<shortH[256]>>, The size of the hips <<shortB[256]>>) <a href="exec:set numdres=256&GT ''loker2'',''short''">pass</a>'

if odetskirt=1 and numdress!201 and skirt[201]=1 or odetskirt=0 and skirt[201]=1:'Orange-beige micro skirt and a top with a deep V-shaped cutting. (The remaining strength <<skirtH[201]>>, The size of the hips <<skirtB[201]>>) <a href="exec:set numdres=201&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!202 and skirt[202]=1 or odetskirt=0 and skirt[202]=1:'Black plaid mirco skirt and a grey T-Shirt, that has a deep V-cut neckline. (The remaining strength <<skirtH[202]>>, The size of the hips <<skirtB[202]>>) <a href="exec:set numdres=202&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!203 and skirt[203]=1 or odetskirt=0 and skirt[203]=1:'Light brown mini skirt with a tight dark brown short. (The remaining strength <<skirtH[203]>>, The size of the hips <<skirtB[203]>>) <a href="exec:set numdres=203&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!204 and skirt[204]=1 or odetskirt=0 and skirt[204]=1:'Light blue skirt with a tight fitting white top. (The remaining strength <<skirtH[204]>>, The size of the hips <<skirtB[204]>>) <a href="exec:set numdres=204&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!205 and skirt[205]=1 or odetskirt=0 and skirt[205]=1:'Dark blue denim micro skirt and a pink tank top. (The remaining strength <<skirtH[205]>>, The size of the hips <<skirtB[205]>>) <a href="exec:set numdres=205&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!206 and skirt[206]=1 or odetskirt=0 and skirt[206]=1:'Red patterned plaid micro skirt and a cute T-Shirt. (The remaining strength <<skirtH[206]>>, The size of the hips <<skirtB[206]>>) <a href="exec:set numdres=206&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!207 and skirt[207]=1 or odetskirt=0 and skirt[207]=1:'Light blue flower patterned high-waisted skirt and a short birhgt pink shirt.(The remaining strength <<skirtH[207]>>, The size of the hips <<skirtB[207]>>) <a href="exec:set numdres=207&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!208 and skirt[208]=1 or odetskirt=0 and skirt[208]=1:'White mini skirt with a blue tank top. (The remaining strength <<skirtH[208]>>, The size of the hips <<skirtB[208]>>) <a href="exec:set numdres=208&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!209 and skirt[209]=1 or odetskirt=0 and skirt[209]=1:'White flare mini skirt with a yellow top. (The remaining strength <<skirtH[209]>>, The size of the hips <<skirtB[209]>>) <a href="exec:set numdres=209&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!210 and skirt[210]=1 or odetskirt=0 and skirt[210]=1:'Blue denim mini skirt with a cropped light blue top. (The remaining strength <<skirtH[210]>>, The size of the hips <<skirtB[210]>>) <a href="exec:set numdres=210&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!211 and skirt[211]=1 or odetskirt=0 and skirt[211]=1:'Tight white mini skirt with buckles on the side and a red polkadot patterned blouse. (The remaining strength <<skirtH[211]>>, The size of the hips <<skirtB[211]>>) <a href="exec:set numdres=211&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!212 and skirt[212]=1 or odetskirt=0 and skirt[212]=1:'Blue denim skirt with a sliver belt and a tight grey neckhaltered top. (The remaining strength <<skirtH[212]>>, The size of the hips <<skirtB[212]>>) <a href="exec:set numdres=212&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!213 and skirt[213]=1 or odetskirt=0 and skirt[213]=1:'Light purple flare skirt with a see through yellow top. Get a nice vintage look with the right pantyhose and heels. (The remaining strength <<skirtH[213]>>, The size of the hips <<skirtB[213]>>) <a href="exec:set numdres=213&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!214 and skirt[214]=1 or odetskirt=0 and skirt[214]=1:'Dark grey flared micro skirt and a bright pink pullover. (The remaining strength <<skirtH[214]>>, The size of the hips <<skirtB[214]>>) <a href="exec:set numdres=214&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!215 and skirt[215]=1 or odetskirt=0 and skirt[215]=1:'High-waisted turquise pencil mini skirt and a very short purple top. (The remaining strength <<skirtH[215]>>, The size of the hips <<skirtB[215]>>) <a href="exec:set numdres=215&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!216 and skirt[216]=1 or odetskirt=0 and skirt[216]=1:'Dark blue pencil mini skirt, a white shirt with a white ribbon at the end of the V-shaped cutting and a small beige colored jacket. (The remaining strength <<skirtH[216]>>, The size of the hips <<skirtB[216]>>) <a href="exec:set numdres=216&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!217 and skirt[217]=1 or odetskirt=0 and skirt[217]=1:'High-waisted black leather skirt and a white T-Shirt, which has a high U-shaped cutting. (The remaining strength <<skirtH[217]>>, The size of the hips <<skirtB[217]>>) <a href="exec:set numdres=217&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!218 and skirt[218]=1 or odetskirt=0 and skirt[218]=1:'Dark blue flare skirt and a green T-Shirt. (The remaining strength <<skirtH[218]>>, The size of the hips <<skirtB[218]>>) <a href="exec:set numdres=218&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!219 and skirt[219]=1 or odetskirt=0 and skirt[219]=1:'Blue denim mini skirt and a trendy T-Shirt, with a high V-shaped cutting. (The remaining strength <<skirtH[219]>>, The size of the hips <<skirtB[219]>>) <a href="exec:set numdres=219&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!221 and skirt[221]=1 or odetskirt=0 and skirt[221]=1:'White mini skirt and a blue patterend halter top. (The remaining strength <<skirtH[221]>>, The size of the hips <<skirtB[221]>>) <a href="exec:set numdres=221&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!222 and skirt[222]=1 or odetskirt=0 and skirt[222]=1:'Blue denim mini skirt and a beige colored top, which is kept together by knots. (The remaining strength <<skirtH[222]>>, The size of the hips <<skirtB[222]>>) <a href="exec:set numdres=222&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!223 and skirt[223]=1 or odetskirt=0 and skirt[223]=1:'Purple mini skirt, a purple top and a black leather jacket. (The remaining strength <<skirtH[223]>>, The size of the hips <<skirtB[223]>>) <a href="exec:set numdres=223&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!224 and skirt[224]=1 or odetskirt=0 and skirt[224]=1:'Light blue flare skirt and a dark purple shirt, with a V-shaped cutting. (The remaining strength <<skirtH[224]>>, The size of the hips <<skirtB[224]>>) <a href="exec:set numdres=224&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!225 and skirt[225]=1 or odetskirt=0 and skirt[225]=1:'Purple patterned flared micro skirt and a pink tank top. (The remaining strength <<skirtH[225]>>, The size of the hips <<skirtB[225]>>) <a href="exec:set numdres=225&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!226 and skirt[226]=1 or odetskirt=0 and skirt[226]=1:'High-waisted grey pencil skirt and a black tank top. (The remaining strength <<skirtH[226]>>, The size of the hips <<skirtB[226]>>) <a href="exec:set numdres=226&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!227 and skirt[227]=1 or odetskirt=0 and skirt[227]=1:'Tight red micro skirt with a flower patterned belt and a white blouse with a very deep V-shaped cutting. (The remaining strength <<skirtH[227]>>, The size of the hips <<skirtB[227]>>) <a href="exec:set numdres=227&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!228 and skirt[228]=1 or odetskirt=0 and skirt[228]=1:'Red-Black colored pattern on a flared micro skirt and a white blouse under a black top. (The remaining strength <<skirtH[228]>>, The size of the hips <<skirtB[228]>>) <a href="exec:set numdres=228&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!229 and skirt[229]=1 or odetskirt=0 and skirt[229]=1:'tight purple mini skirt and a white see-through blouse. (The remaining strength <<skirtH[229]>>, The size of the hips <<skirtB[229]>>) <a href="exec:set numdres=229&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!230 and skirt[230]=1 or odetskirt=0 and skirt[230]=1:'Dark blue denim mini skirt and a light blue tank top. (The remaining strength <<skirtH[230]>>, The size of the hips <<skirtB[230]>>) <a href="exec:set numdres=230&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!232 and skirt[232]=1 or odetskirt=0 and skirt[232]=1:'Flower patterned flared micro skirt and a black top with a very deep V-shaped cutting. (The remaining strength <<skirtH[232]>>, The size of the hips <<skirtB[232]>>) <a href="exec:set numdres=232&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!233 and skirt[233]=1 or odetskirt=0 and skirt[233]=1:'Pink micro skirt and a black top with a U-Shaped cutting. (The remaining strength <<skirtH[233]>>, The size of the hips <<skirtB[233]>>) <a href="exec:set numdres=233&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!234 and skirt[234]=1 or odetskirt=0 and skirt[234]=1:'White mini skirt with a very tight light pink shirt. (The remaining strength <<skirtH[234]>>, The size of the hips <<skirtB[234]>>) <a href="exec:set numdres=234&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!235 and skirt[235]=1 or odetskirt=0 and skirt[235]=1:'Dark blue denim micro skirt and a red shirt. (The remaining strength <<skirtH[235]>>, The size of the hips <<skirtB[235]>>) <a href="exec:set numdres=235&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!237 and skirt[237]=1 or odetskirt=0 and skirt[237]=1:'Light pink micro skirt and a short white top, with a very deep V-shaped cutting.(The remaining strength <<skirtH[237]>>, The size of the hips <<skirtB[237]>>) <a href="exec:set numdres=237&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!238 and skirt[238]=1 or odetskirt=0 and skirt[238]=1:'Black pencil skirt and a loose white top. (The remaining strength <<skirtH[238]>>, The size of the hips <<skirtB[238]>>) <a href="exec:set numdres=238&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!239 and skirt[239]=1 or odetskirt=0 and skirt[239]=1:'Blue denim flared skirt and a blue flower patterend halter top. (The remaining strength <<skirtH[239]>>, The size of the hips <<skirtB[239]>>) <a href="exec:set numdres=239&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!240 and skirt[240]=1 or odetskirt=0 and skirt[240]=1:'Light blue denim skirt, a black tank top and a small black leather jacket. (The remaining strength <<skirtH[240]>>, The size of the hips <<skirtB[240]>>) <a href="exec:set numdres=240&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!242 and skirt[242]=1 or odetskirt=0 and skirt[242]=1:'Beige pencil skirt and a black tank top under a black blouse and a black belt, which closes the blouse. (The remaining strength <<skirtH[242]>>, The size of the hips <<skirtB[242]>>) <a href="exec:set numdres=242&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!243 and skirt[243]=1 or odetskirt=0 and skirt[243]=1:'Dark green flared skirt and a short white shirt under a short black leather-like vest. (The remaining strength <<skirtH[243]>>, The size of the hips <<skirtB[243]>>) <a href="exec:set numdres=243&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!245 and skirt[245]=1 or odetskirt=0 and skirt[245]=1:'Tight pink micro skirt and a grey tank top, with a deep U-shaped cutting under a denim jacket. (The remaining strength <<skirtH[245]>>, The size of the hips <<skirtB[245]>>) <a href="exec:set numdres=245&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!246 and skirt[246]=1 or odetskirt=0 and skirt[246]=1:'Black flared micro skirt and a red tank top, with a small black ribbon at the end of the very deep U-shaped cutting, under a bright pink jacket. (The remaining strength <<skirtH[246]>>, The size of the hips <<skirtB[246]>>) <a href="exec:set numdres=246&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!247 and skirt[247]=1 or odetskirt=0 and skirt[247]=1:'White denim mini skirt and dark purple T-Shirt with a very deep V-shaped cutting. (The remaining strength <<skirtH[247]>>, The size of the hips <<skirtB[247]>>) <a href="exec:set numdres=247&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!248 and skirt[248]=1 or odetskirt=0 and skirt[248]=1:'Black leather mini skirt and a black T-Shirth, which has a U-shaped cutting. (The remaining strength <<skirtH[248]>>, The size of the hips <<skirtB[248]>>) <a href="exec:set numdres=248&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!249 and skirt[249]=1 or odetskirt=0 and skirt[249]=1:'Black leather mini skirt and a very tight light pink T-Shirt with a deep U-shaped cutting. (The remaining strength <<skirtH[249]>>, The size of the hips <<skirtB[249]>>) <a href="exec:set numdres=249&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!250 and skirt[250]=1 or odetskirt=0 and skirt[250]=1:'Black pencil mini skirt and a dark purple T-Shirt. (The remaining strength <<skirtH[250]>>, The size of the hips <<skirtB[250]>>) <a href="exec:set numdres=250&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!251 and skirt[251]=1 or odetskirt=0 and skirt[251]=1:'Light blue denim micro skirt and a white halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[251]>>, The size of the hips <<skirtB[251]>>) <a href="exec:set numdres=251&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!252 and skirt[252]=1 or odetskirt=0 and skirt[252]=1:'White micro skirt and a pink-white flower patterend halterless top. (The remaining strength <<skirtH[252]>>, The size of the hips <<skirtB[252]>>) <a href="exec:set numdres=252&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!253 and skirt[253]=1 or odetskirt=0 and skirt[253]=1:'Pink mini skirt and a cute light pink T-Shirt. (The remaining strength <<skirtH[253]>>, The size of the hips <<skirtB[253]>>) <a href="exec:set numdres=253&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!254 and skirt[254]=1 or odetskirt=0 and skirt[254]=1:'Light blue denim micro skirt and a very short light yellow top, which is secured by a knot between the breasts.  (The remaining strength <<skirtH[254]>>, The size of the hips <<skirtB[254]>>) <a href="exec:set numdres=254&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!255 and skirt[255]=1 or odetskirt=0 and skirt[255]=1:'Black flared micro skirt and a black blouse, with a deep V-shaped cutting by default. (The remaining strength <<skirtH[255]>>, The size of the hips <<skirtB[255]>>) <a href="exec:set numdres=255&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!256 and skirt[256]=1 or odetskirt=0 and skirt[256]=1:'Black pencil mini skirt and a grey halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[256]>>, The size of the hips <<skirtB[256]>>) <a href="exec:set numdres=256&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!257 and skirt[257]=1 or odetskirt=0 and skirt[257]=1:'White pencil mini skirt and a light green loose top, which a very deep but not very revealing V-shaped cutting. (The remaining strength <<skirtH[257]>>, The size of the hips <<skirtB[257]>>) <a href="exec:set numdres=257&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!258 and skirt[258]=1 or odetskirt=0 and skirt[258]=1:'Grey flared micro skirt and a dark brown halter top, which has a deep U-shaped neckline. (The remaining strength <<skirtH[258]>>, The size of the hips <<skirtB[258]>>) <a href="exec:set numdres=258&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!259 and skirt[259]=1 or odetskirt=0 and skirt[259]=1:'Light blue denim mini skirt and a white-blue striped leaf patterend tank top beneaf a cute dark blue jacket. (The remaining strength <<skirtH[259]>>, The size of the hips <<skirtB[259]>>) <a href="exec:set numdres=259&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!260 and skirt[260]=1 or odetskirt=0 and skirt[260]=1:'Light blue denim mini skirt and a cropped white halter top, which has a nice V-shaped cutting. (The remaining strength <<skirtH[260]>>, The size of the hips <<skirtB[260]>>) <a href="exec:set numdres=260&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!261 and skirt[261]=1 or odetskirt=0 and skirt[261]=1:'Glittery grey pencil mini skirt and a dark blue shirt. (The remaining strength <<skirtH[261]>>, The size of the hips <<skirtB[261]>>) <a href="exec:set numdres=261&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!262 and skirt[262]=1 or odetskirt=0 and skirt[262]=1:'Striped flared mini skirt, a light pink slightly see-through halter top and a brown belt as accessory. (The remaining strength <<skirtH[262]>>, The size of the hips <<skirtB[262]>>) <a href="exec:set numdres=262&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!263 and skirt[263]=1 or odetskirt=0 and skirt[263]=1:'High waisted black pencil skirt and a white T-Shirt. (The remaining strength <<skirtH[263]>>, The size of the hips <<skirtB[263]>>) <a href="exec:set numdres=263&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!264 and skirt[264]=1 or odetskirt=0 and skirt[264]=1:'Blue denim mini skirt and a white T-Shirt, which has a deep U-shaped cutting. (The remaining strength <<skirtH[264]>>, The size of the hips <<skirtB[264]>>) <a href="exec:set numdres=264&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!265 and skirt[265]=1 or odetskirt=0 and skirt[265]=1:'White flared mini skirt and a grey T-Shirt. (The remaining strength <<skirtH[265]>>, The size of the hips <<skirtB[265]>>) <a href="exec:set numdres=265&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!266 and skirt[266]=1 or odetskirt=0 and skirt[266]=1:'Light blue micro skirt and a tight white tank top. (The remaining strength <<skirtH[266]>>, The size of the hips <<skirtB[266]>>) <a href="exec:set numdres=266&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!267 and skirt[267]=1 or odetskirt=0 and skirt[267]=1:'Flared blue micro skit and a light yellow halter top, which provides a great view to anyone, due to its deep cutting. (The remaining strength <<skirtH[267]>>, The size of the hips <<skirtB[267]>>) <a href="exec:set numdres=267&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!268 and skirt[268]=1 or odetskirt=0 and skirt[268]=1:'Dark blue flared mini skirt and a cropped white T-Shirt, which has a deep V-shaped cutting. (The remaining strength <<skirtH[268]>>, The size of the hips <<skirtB[268]>>) <a href="exec:set numdres=268&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!269 and skirt[269]=1 or odetskirt=0 and skirt[269]=1:'Tight white pencil skirt, with a golden belt and tight turquise colored neckhaltered top. (The remaining strength <<skirtH[269]>>, The size of the hips <<skirtB[269]>>) <a href="exec:set numdres=269&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!270 and skirt[270]=1 or odetskirt=0 and skirt[270]=1:'Pink flared micro skirt and a white T-shirt, which has a few black lines to decorate it. (The remaining strength <<skirtH[270]>>, The size of the hips <<skirtB[270]>>) <a href="exec:set numdres=270&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!271 and skirt[271]=1 or odetskirt=0 and skirt[271]=1:'Stripe patterend White-Black-Red flared mini skirt and a beige shirt, which has a very deep V-shaped cutting. (The remaining strength <<skirtH[271]>>, The size of the hips <<skirtB[271]>>) <a href="exec:set numdres=271&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!272 and skirt[272]=1 or odetskirt=0 and skirt[272]=1:'Light blue denim micro skirt and a green tank top, which has a deep U-shaped cutting.  (The remaining strength <<skirtH[272]>>, The size of the hips <<skirtB[272]>>) <a href="exec:set numdres=272&GT ''loker2'',''skirt''">pass</a>'
if odetskirt=1 and numdress!273 and skirt[273]=1 or odetskirt=0 and skirt[273]=1:'Red flared mini skirt and an orange T-shirt. It has a red belt as accessory to bind around the waist. It makes you look like Velma. (The remaining strength <<skirtH[273]>>, The size of the hips <<skirtB[273]>>) <a href="exec:set numdres=273&GT ''loker2'',''skirt''">pass</a>'

if odetdress=1 and numdress!201 and dress[201]=1 or odetdress=0 and dress[201]=1:'Tight beige halter dress and beige-golden heels.(The remaining strength <<dressH[201]>>, The size of the hips <<dressB[201]>>) <a href="exec:set numdres=201&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!202 and dress[202]=1 or odetdress=0 and dress[202]=1:'Very short flower-style dress and pink pumps with golden heels.(The remaining strength <<dressH[202]>>, The size of the hips <<dressB[202]>>) <a href="exec:set numdres=202&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!203 and dress[203]=1 or odetdress=0 and dress[203]=1:'Glittery pink neckhalter dress.(The remaining strength <<dressH[203]>>, The size of the hips <<dressB[203]>>) <a href="exec:set numdres=203&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!204 and dress[204]=1 or odetdress=0 and dress[204]=1:'Tight wine red dress with a deep V cut.(The remaining strength <<dressH[204]>>, The size of the hips <<dressB[204]>>) <a href="exec:set numdres=204&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!205 and dress[205]=1 or odetdress=0 and dress[205]=1:'Tight bright red dress with a sheer black back.(The remaining strength <<dressH[205]>>, The size of the hips <<dressB[205]>>) <a href="exec:set numdres=205&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!206 and dress[206]=1 or odetdress=0 and dress[206]=1:'Grey green dress.(The remaining strength <<dressH[206]>>, The size of the hips <<dressB[206]>>) <a href="exec:set numdres=206&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!207 and dress[207]=1 or odetdress=0 and dress[207]=1:'Black lounge dress, including black heels.(The remaining strength <<dressH[207]>>, The size of the hips <<dressB[207]>>) <a href="exec:set numdres=207&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!208 and dress[208]=1 or odetdress=0 and dress[208]=1:'Glittery black dress with deep V cut.(The remaining strength <<dressH[208]>>, The size of the hips <<dressB[208]>>) <a href="exec:set numdres=208&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!209 and dress[209]=1 or odetdress=0 and dress[209]=1:'Tight black dress with thigh high boots.(The remaining strength <<dressH[209]>>, The size of the hips <<dressB[209]>>) <a href="exec:set numdres=209&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!210 and dress[210]=1 or odetdress=0 and dress[210]=1:'Tight bright blue dress.(The remaining strength <<dressH[210]>>, The size of the hips <<dressB[210]>>) <a href="exec:set numdres=210&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!211 and dress[211]=1 or odetdress=0 and dress[211]=1:'Glittery, black dress, with a deep V-shaped cleavage. (The remaining strength <<dressH[211]>>, The size of the hips <<dressB[211]>>) <a href="exec:set numdres=211&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!212 and dress[212]=1 or odetdress=0 and dress[212]=1:'Black dress, which has parts made of a see-trough material. (The remaining strength <<dressH[212]>>, The size of the hips <<dressB[212]>>) <a href="exec:set numdres=212&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!213 and dress[213]=1 or odetdress=0 and dress[213]=1:'White-beige dress, with a deep cleavage. (The remaining strength <<dressH[213]>>, The size of the hips <<dressB[213]>>) <a href="exec:set numdres=213&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!214 and dress[214]=1 or odetdress=0 and dress[214]=1:'2-part dress, with a short, tight skirt and a form-fitting top. (The remaining strength <<dressH[214]>>, The size of the hips <<dressB[214]>>) <a href="exec:set numdres=214&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!215 and dress[215]=1 or odetdress=0 and dress[215]=1:'Form-fittig black dress. (The remaining strength <<dressH[215]>>, The size of the hips <<dressB[215]>>) <a href="exec:set numdres=215&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!216 and dress[216]=1 or odetdress=0 and dress[216]=1:'Short, white dress. (The remaining strength <<dressH[216]>>, The size of the hips <<dressB[216]>>) <a href="exec:set numdres=216&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!217 and dress[217]=1 or odetdress=0 and dress[217]=1:'Dark blue dress with a revealing cleavage. (The remaining strength <<dressH[217]>>, The size of the hips <<dressB[217]>>) <a href="exec:set numdres=217&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!218 and dress[218]=1 or odetdress=0 and dress[218]=1:'Wine red dress, which has several lace parts. (The remaining strength <<dressH[218]>>, The size of the hips <<dressB[218]>>) <a href="exec:set numdres=218&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!219 and dress[219]=1 or odetdress=0 and dress[219]=1:'Red-blue-white dress. (The remaining strength <<dressH[219]>>, The size of the hips <<dressB[219]>>) <a href="exec:set numdres=219&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!220 and dress[220]=1 or odetdress=0 and dress[220]=1:'Black dress, with a revealing cleavage. (The remaining strength <<dressH[220]>>, The size of the hips <<dressB[220]>>) <a href="exec:set numdres=220&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!221 and dress[221]=1 or odetdress=0 and dress[221]=1:'Form-fitting, pink-grey dress. (The remaining strength <<dressH[221]>>, The size of the hips <<dressB[221]>>) <a href="exec:set numdres=221&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!222 and dress[222]=1 or odetdress=0 and dress[222]=1:'Pink dress. (The remaining strength <<dressH[222]>>, The size of the hips <<dressB[222]>>) <a href="exec:set numdres=222&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!223 and dress[223]=1 or odetdress=0 and dress[223]=1:'Long, glittery red dress, with a deep cleavage. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!224 and dress[224]=1 or odetdress=0 and dress[226]=1:'Long, formal dress in blue. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''loker2'',''dress''">pass</a>'
if odetdress=1 and numdress!225 and dress[225]=1 or odetdress=0 and dress[227]=1:'Long, formal dress in red. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''loker2'',''dress''">pass</a>'

if odetprofi = 1 and numdress ! 201 and profi[201] = 1 or odetprofi = 0 and profi[201] = 1: 'Office dress 201 (strength <<profiH[201]>>, hip size <<profiB[201]>>) <a href="exec: set numdres = 201 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 202 and profi[202] = 1 or odetprofi = 0 and profi[202] = 1: 'Office dress 202 (strength <<profiH[202]>>, hip size <<profiB[202]>>) <a href="exec: set numdres = 202 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 203 and profi[203] = 1 or odetprofi = 0 and profi[203] = 1: 'Office dress 203 (strength <<profiH[203]>>, hip size <<profiB[203]>>) <a href="exec: set numdres = 203 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 204 and profi[204] = 1 or odetprofi = 0 and profi[204] = 1: 'Office dress 204 (strength <<profiH[204]>>, hip size <<profiB[204]>>) <a href="exec: set numdres = 204 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 205 and profi[205] = 1 or odetprofi = 0 and profi[205] = 1: 'Office dress 205 (strength <<profiH[205]>>, hip size <<profiB[205]>>) <a href="exec: set numdres = 205 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 206 and profi[206] = 1 or odetprofi = 0 and profi[206] = 1: 'Office dress 206 (strength <<profiH[206]>>, hip size <<profiB[206]>>) <a href="exec: set numdres = 206 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 207 and profi[207] = 1 or odetprofi = 0 and profi[207] = 1: 'Office dress 207 (strength <<profiH[207]>>, hip size <<profiB[207]>>) <a href="exec: set numdres = 207 & GT ''loker2'',''profi''">surrender</a>'
if odetprofi = 1 and numdress ! 208 and profi[208] = 1 or odetprofi = 0 and profi[208] = 1: 'Office dress 208 (strength <<profiH[208]>>, hip size <<profiB[208]>>) <a href="exec: set numdres = 208 & GT ''loker2'',''profi''">surrender</a>'

if odetpants=1 and numdress!201 and pants[201]=1 or odetpants=0 and pants[201]=1:'Glittery silver leggings with a silver neckhalter top. (The remaining strength <<pantsH[201]>>, The size of the hips <<pantsB[201]>>) <a href="exec:set numdres=201&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!202 and pants[202]=1 or odetpants=0 and pants[202]=1:'Shiny silver leggings and a short white tube top. (The remaining strength <<pantsH[202]>>, The size of the hips <<pantsB[202]>>) <a href="exec:set numdres=202&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!203 and pants[203]=1 or odetpants=0 and pants[203]=1:'Shiny beige leggings and a frilly white T-Shirt, which people are able to see through. (The remaining strength <<pantsH[203]>>, The size of the hips <<pantsB[203]>>) <a href="exec:set numdres=203&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!204 and pants[204]=1 or odetpants=0 and pants[204]=1:'Grey leggings with a black tank top and a short black leather jacket. (The remaining strength <<pantsH[204]>>, The size of the hips <<pantsB[204]>>) <a href="exec:set numdres=204&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!205 and pants[205]=1 or odetpants=0 and pants[205]=1:'Black leggings with a light blue top, which provides a great view due to it very deep U-Shaped cutting. (The remaining strength <<pantsH[205]>>, The size of the hips <<pantsB[205]>>) <a href="exec:set numdres=205&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!206 and pants[206]=1 or odetpants=0 and pants[206]=1:'Shiny black leggings with a shiny silver top. (The remaining strength <<pantsH[206]>>, The size of the hips <<pantsB[206]>>) <a href="exec:set numdres=206&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!207 and pants[207]=1 or odetpants=0 and pants[207]=1:'Black leggings with a pink top. (The remaining strength <<pantsH[207]>>, The size of the hips <<pantsB[207]>>) <a href="exec:set numdres=207&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!208 and pants[208]=1 or odetpants=0 and pants[208]=1:'Tight blue jeggings with a black tank top. (The remaining strength <<pantsH[208]>>, The size of the hips <<pantsB[208]>>) <a href="exec:set numdres=208&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!210 and pants[210]=1 or odetpants=0 and pants[210]=1:'Tight grey leggings with discreet leopard pattern, a white blouse and a light brown jacket. (The remaining strength <<pantsH[210]>>, The size of the hips <<pantsB[210]>>) <a href="exec:set numdres=210&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!211 and pants[211]=1 or odetpants=0 and pants[211]=1:'Shiny black leggings, with a studded belt and a black T-Shirt. (The remaining strength <<pantsH[211]>>, The size of the hips <<pantsB[211]>>) <a href="exec:set numdres=211&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!212 and pants[212]=1 or odetpants=0 and pants[212]=1:'Shiny black leggings and a black-white striped camisole under a dark grey jacket. (The remaining strength <<pantsH[212]>>, The size of the hips <<pantsB[212]>>) <a href="exec:set numdres=212&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!213 and pants[213]=1 or odetpants=0 and pants[213]=1:'Black leggings and a white blouse. (The remaining strength <<pantsH[213]>>, The size of the hips <<pantsB[213]>>) <a href="exec:set numdres=213&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!214 and pants[214]=1 or odetpants=0 and pants[214]=1:'Black leggings and a short dark blue T-Shirt. (The remaining strength <<pantsH[214]>>, The size of the hips <<pantsB[214]>>) <a href="exec:set numdres=214&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!215 and pants[215]=1 or odetpants=0 and pants[215]=1:'Patterned blue leggings and a colorful tank top. (The remaining strength <<pantsH[215]>>, The size of the hips <<pantsB[215]>>) <a href="exec:set numdres=215&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!216 and pants[216]=1 or odetpants=0 and pants[216]=1:'Black leggings and a white tank top. (The remaining strength <<pantsH[216]>>, The size of the hips <<pantsB[216]>>) <a href="exec:set numdres=216&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!217 and pants[217]=1 or odetpants=0 and pants[217]=1:'Light pink leggings and a black tank top under a short grey hoodie. (The remaining strength <<pantsH[217]>>, The size of the hips <<pantsB[217]>>) <a href="exec:set numdres=217&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!218 and pants[218]=1 or odetpants=0 and pants[218]=1:'Grey leggings and a white neckhalter top. (The remaining strength <<pantsH[218]>>, The size of the hips <<pantsB[218]>>) <a href="exec:set numdres=218&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!219 and pants[219]=1 or odetpants=0 and pants[219]=1:'Black leggings and a pink T-Shirt. (The remaining strength <<pantsH[219]>>, The size of the hips <<pantsB[219]>>) <a href="exec:set numdres=219&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!220 and pants[220]=1 or odetpants=0 and pants[220]=1:'White leggings and a short, white tube top. (The remaining strength <<pantsH[220]>>, The size of the hips <<pantsB[220]>>) <a href="exec:set numdres=220&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!221 and pants[221]=1 or odetpants=0 and pants[221]=1:'Shiny, grey leggings and a short, blue blouse. (The remaining strength <<pantsH[221]>>, The size of the hips <<pantsB[221]>>) <a href="exec:set numdres=221&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!222 and pants[222]=1 or odetpants=0 and pants[222]=1:'Leopard patterned leggings and a short, red top. (The remaining strength <<pantsH[222]>>, The size of the hips <<pantsB[222]>>) <a href="exec:set numdres=222&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!223 and pants[223]=1 or odetpants=0 and pants[223]=1:'Beige pants and an oliv T-Shirt. (The remaining strength <<pantsH[223]>>, The size of the hips <<pantsB[223]>>) <a href="exec:set numdres=223&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!226 and pants[226]=1 or odetpants=0 and pants[226]=1:'Dark blue leggings and a black shirt. (The remaining strength <<pantsH[226]>>, The size of the hips <<pantsB[226]>>) <a href="exec:set numdres=226&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!227 and pants[227]=1 or odetpants=0 and pants[227]=1:'Grey leggings and a loose fitting, pink T-Shirt. (The remaining strength <<pantsH[227]>>, The size of the hips <<pantsB[227]>>) <a href="exec:set numdres=227&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!228 and pants[228]=1 or odetpants=0 and pants[228]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[228]>>, The size of the hips <<pantsB[228]>>) <a href="exec:set numdres=228&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!230 and pants[230]=1 or odetpants=0 and pants[230]=1:'Grey leggings, with a black leather belt and a black top. (The remaining strength <<pantsH[230]>>, The size of the hips <<pantsB[230]>>) <a href="exec:set numdres=230&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!231 and pants[231]=1 or odetpants=0 and pants[231]=1:'Blue leggings and a very short, blue top. (The remaining strength <<pantsH[231]>>, The size of the hips <<pantsB[231]>>) <a href="exec:set numdres=231&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!232 and pants[232]=1 or odetpants=0 and pants[232]=1:'Shiny black leggings and a short, black neckhalter top. (The remaining strength <<pantsH[232]>>, The size of the hips <<pantsB[232]>>) <a href="exec:set numdres=232&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!233 and pants[233]=1 or odetpants=0 and pants[233]=1:'Thin, grey leggings and a white T-Shirt. (The remaining strength <<pantsH[233]>>, The size of the hips <<pantsB[233]>>) <a href="exec:set numdres=233&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!234 and pants[234]=1 or odetpants=0 and pants[234]=1:'Shiny, black leggings and a black top. (The remaining strength <<pantsH[234]>>, The size of the hips <<pantsB[234]>>) <a href="exec:set numdres=234&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!235 and pants[235]=1 or odetpants=0 and pants[235]=1:'Shiny, patterned leggings and a black tank top. (The remaining strength <<pantsH[235]>>, The size of the hips <<pantsB[235]>>) <a href="exec:set numdres=235&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!236 and pants[236]=1 or odetpants=0 and pants[236]=1:'Grey leggings and a light purple T-Shirt. (The remaining strength <<pantsH[236]>>, The size of the hips <<pantsB[236]>>) <a href="exec:set numdres=236&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!237 and pants[237]=1 or odetpants=0 and pants[237]=1:'Dark blue leggings and a black top. (The remaining strength <<pantsH[237]>>, The size of the hips <<pantsB[237]>>) <a href="exec:set numdres=237&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!238 and pants[238]=1 or odetpants=0 and pants[238]=1:'Grey leggings and a light pink top. (The remaining strength <<pantsH[238]>>, The size of the hips <<pantsB[238]>>) <a href="exec:set numdres=238&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!239 and pants[239]=1 or odetpants=0 and pants[239]=1:'Grey leggings and a grey top. (The remaining strength <<pantsH[239]>>, The size of the hips <<pantsB[239]>>) <a href="exec:set numdres=239&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!240 and pants[240]=1 or odetpants=0 and pants[240]=1:'Dark grey leggings, with colorful stripes and a white T-Shirt. (The remaining strength <<pantsH[240]>>, The size of the hips <<pantsB[240]>>) <a href="exec:set numdres=240&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!241 and pants[241]=1 or odetpants=0 and pants[241]=1:'Grey leggings and a blue hoodie. (The remaining strength <<pantsH[241]>>, The size of the hips <<pantsB[241]>>) <a href="exec:set numdres=241&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!242 and pants[242]=1 or odetpants=0 and pants[242]=1:'White leggings and a white bikini top. (The remaining strength <<pantsH[242]>>, The size of the hips <<pantsB[242]>>) <a href="exec:set numdres=242&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!243 and pants[243]=1 or odetpants=0 and pants[243]=1:'White leggings and a orange-red top. (The remaining strength <<pantsH[243]>>, The size of the hips <<pantsB[243]>>) <a href="exec:set numdres=243&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!244 and pants[244]=1 or odetpants=0 and pants[244]=1:'Black leggings and a white camisole, with a deep cleavage. (The remaining strength <<pantsH[244]>>, The size of the hips <<pantsB[244]>>) <a href="exec:set numdres=244&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!245 and pants[245]=1 or odetpants=0 and pants[245]=1:'White leggings and a very short black tube top. (The remaining strength <<pantsH[245]>>, The size of the hips <<pantsB[245]>>) <a href="exec:set numdres=245&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!246 and pants[246]=1 or odetpants=0 and pants[246]=1:'Grey leggings and a black T-Shirt.  (The remaining strength <<pantsH[246]>>, The size of the hips <<pantsB[246]>>) <a href="exec:set numdres=246&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!247 and pants[247]=1 or odetpants=0 and pants[247]=1:'Black leggings and a short, black-white tank top. (The remaining strength <<pantsH[247]>>, The size of the hips <<pantsB[247]>>) <a href="exec:set numdres=247&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!248 and pants[248]=1 or odetpants=0 and pants[248]=1:'Dark grey leggings and a white tube top. (The remaining strength <<pantsH[248]>>, The size of the hips <<pantsB[248]>>) <a href="exec:set numdres=248&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!249 and pants[249]=1 or odetpants=0 and pants[249]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[249]>>, The size of the hips <<pantsB[249]>>) <a href="exec:set numdres=249&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!250 and pants[250]=1 or odetpants=0 and pants[250]=1:'Shiny brown leggings and a white T-Shirt. (The remaining strength <<pantsH[250]>>, The size of the hips <<pantsB[250]>>) <a href="exec:set numdres=250&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!251 and pants[251]=1 or odetpants=0 and pants[251]=1:'White leggings and a short, white tube-top. (The remaining strength <<pantsH[251]>>, The size of the hips <<pantsB[251]>>) <a href="exec:set numdres=251&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!252 and pants[252]=1 or odetpants=0 and pants[252]=1:'Wine red leggings and a dark blue denim jacket. (The remaining strength <<pantsH[252]>>, The size of the hips <<pantsB[252]>>) <a href="exec:set numdres=252&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!253 and pants[253]=1 or odetpants=0 and pants[253]=1:'Thin, white leggings and a white top. (The remaining strength <<pantsH[253]>>, The size of the hips <<pantsB[253]>>) <a href="exec:set numdres=253&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!254 and pants[254]=1 or odetpants=0 and pants[254]=1:'Light brown leggings and a blue denim jacket. (The remaining strength <<pantsH[254]>>, The size of the hips <<pantsB[254]>>) <a href="exec:set numdres=254&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!255 and pants[255]=1 or odetpants=0 and pants[255]=1:'White leggings and a very short, black tube top. (The remaining strength <<pantsH[255]>>, The size of the hips <<pantsB[255]>>) <a href="exec:set numdres=255&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!256 and pants[256]=1 or odetpants=0 and pants[256]=1:'Shiny red leggings and a white blouse. (The remaining strength <<pantsH[256]>>, The size of the hips <<pantsB[256]>>) <a href="exec:set numdres=256&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!257 and pants[257]=1 or odetpants=0 and pants[257]=1:'Black leggings and a light brown shirt. (The remaining strength <<pantsH[257]>>, The size of the hips <<pantsB[257]>>) <a href="exec:set numdres=257&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!258 and pants[258]=1 or odetpants=0 and pants[258]=1:'Shiny black leggings and a black top. (The remaining strength <<pantsH[258]>>, The size of the hips <<pantsB[258]>>) <a href="exec:set numdres=258&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!259 and pants[259]=1 or odetpants=0 and pants[259]=1:'Dark blue leggings and a green tube top. (The remaining strength <<pantsH[259]>>, The size of the hips <<pantsB[259]>>) <a href="exec:set numdres=259&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!260 and pants[260]=1 or odetpants=0 and pants[260]=1:'Blue leggings and a black shirt. (The remaining strength <<pantsH[260]>>, The size of the hips <<pantsB[260]>>) <a href="exec:set numdres=260&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!261 and pants[261]=1 or odetpants=0 and pants[261]=1:'Light blue leggings and a red-black T-Shirt. (The remaining strength <<pantsH[261]>>, The size of the hips <<pantsB[261]>>) <a href="exec:set numdres=261&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!262 and pants[262]=1 or odetpants=0 and pants[262]=1:'Black leggings and a white T-Shirt, with deep cleavage. (The remaining strength <<pantsH[262]>>, The size of the hips <<pantsB[262]>>) <a href="exec:set numdres=262&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!263 and pants[263]=1 or odetpants=0 and pants[263]=1:'Grey leggings and a white top. (The remaining strength <<pantsH[263]>>, The size of the hips <<pantsB[263]>>) <a href="exec:set numdres=263&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!264 and pants[264]=1 or odetpants=0 and pants[264]=1:'Black pants, with a black studded leather belt anbd a short, black top. (The remaining strength <<pantsH[264]>>, The size of the hips <<pantsB[264]>>) <a href="exec:set numdres=264&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!265 and pants[265]=1 or odetpants=0 and pants[265]=1:'Brown leggings and a light pink top, with a deep cleavage.(The remaining strength <<pantsH[265]>>, The size of the hips <<pantsB[265]>>) <a href="exec:set numdres=265&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!266 and pants[266]=1 or odetpants=0 and pants[266]=1:'Shiny, black leggings and a grey shirt. (The remaining strength <<pantsH[266]>>, The size of the hips <<pantsB[266]>>) <a href="exec:set numdres=266&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!267 and pants[267]=1 or odetpants=0 and pants[267]=1:'Dark blue leggings and a short, black top. (The remaining strength <<pantsH[267]>>, The size of the hips <<pantsB[267]>>) <a href="exec:set numdres=267&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!268 and pants[268]=1 or odetpants=0 and pants[268]=1:'Blue jeggings and a short, white top. (The remaining strength <<pantsH[268]>>, The size of the hips <<pantsB[268]>>) <a href="exec:set numdres=268&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!269 and pants[269]=1 or odetpants=0 and pants[269]=1:'Blue jeggings and a beige camisole. (The remaining strength <<pantsH[269]>>, The size of the hips <<pantsB[269]>>) <a href="exec:set numdres=269&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!270 and pants[270]=1 or odetpants=0 and pants[270]=1:'Black leggings and a black tube top. (The remaining strength <<pantsH[270]>>, The size of the hips <<pantsB[270]>>) <a href="exec:set numdres=270&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!271 and pants[271]=1 or odetpants=0 and pants[271]=1:'Blue pants and a short, white nackhalter top.  (The remaining strength <<pantsH[271]>>, The size of the hips <<pantsB[271]>>) <a href="exec:set numdres=271&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!273 and pants[273]=1 or odetpants=0 and pants[273]=1:'Black leggings and a beige tank top, under a blue shirt. (The remaining strength <<pantsH[273]>>, The size of the hips <<pantsB[273]>>) <a href="exec:set numdres=273&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!274 and pants[274]=1 or odetpants=0 and pants[274]=1:'Light blue leggings and a short, white T-Shirt. (The remaining strength <<pantsH[274]>>, The size of the hips <<pantsB[274]>>) <a href="exec:set numdres=274&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!275 and pants[275]=1 or odetpants=0 and pants[275]=1:'Wine red leggings and a short black shirt. (The remaining strength <<pantsH[275]>>, The size of the hips <<pantsB[275]>>) <a href="exec:set numdres=275&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!276 and pants[276]=1 or odetpants=0 and pants[276]=1:'Black leggings and a short black shirt. (The remaining strength <<pantsH[276]>>, The size of the hips <<pantsB[276]>>) <a href="exec:set numdres=276&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!277 and pants[277]=1 or odetpants=0 and pants[277]=1:'Shiny, pink leggings and a white jacket. (The remaining strength <<pantsH[277]>>, The size of the hips <<pantsB[277]>>) <a href="exec:set numdres=277&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!278 and pants[278]=1 or odetpants=0 and pants[278]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[278]>>, The size of the hips <<pantsB[278]>>) <a href="exec:set numdres=278&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!279 and pants[279]=1 or odetpants=0 and pants[279]=1:'Shiny, golden leggings and a shiny, golden top. (The remaining strength <<pantsH[279]>>, The size of the hips <<pantsB[279]>>) <a href="exec:set numdres=279&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!280 and pants[280]=1 or odetpants=0 and pants[280]=1:'Grey leggings and a short, blue tube top. (The remaining strength <<pantsH[280]>>, The size of the hips <<pantsB[280]>>) <a href="exec:set numdres=280&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!281 and pants[281]=1 or odetpants=0 and pants[281]=1:'Shiny, black leggings and a red top.  (The remaining strength <<pantsH[281]>>, The size of the hips <<pantsB[281]>>) <a href="exec:set numdres=281&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!282 and pants[282]=1 or odetpants=0 and pants[282]=1:'Dark grey leggings and a grey tank top, under a grey jacket. (The remaining strength <<pantsH[282]>>, The size of the hips <<pantsB[282]>>) <a href="exec:set numdres=282&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!283 and pants[283]=1 or odetpants=0 and pants[283]=1:'White leggings and a black camisole, with a deep cleavage, under a short, black leather jacket. (The remaining strength <<pantsH[283]>>, The size of the hips <<pantsB[283]>>) <a href="exec:set numdres=283&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!284 and pants[284]=1 or odetpants=0 and pants[284]=1:'Black leggings and a grey neckhalter top. (The remaining strength <<pantsH[284]>>, The size of the hips <<pantsB[284]>>) <a href="exec:set numdres=284&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!285 and pants[285]=1 or odetpants=0 and pants[285]=1:'White leggings and a white top. (The remaining strength <<pantsH[285]>>, The size of the hips <<pantsB[285]>>) <a href="exec:set numdres=285&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!286 and pants[286]=1 or odetpants=0 and pants[286]=1:'White leggings and a short white camisole, under a blue jacket. (The remaining strength <<pantsH[286]>>, The size of the hips <<pantsB[286]>>) <a href="exec:set numdres=286&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!287 and pants[287]=1 or odetpants=0 and pants[287]=1:'Black leggings and a black top. (The remaining strength <<pantsH[287]>>, The size of the hips <<pantsB[287]>>) <a href="exec:set numdres=287&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!288 and pants[288]=1 or odetpants=0 and pants[288]=1:'Black leggings and a short, light blue denim vest. (The remaining strength <<pantsH[288]>>, The size of the hips <<pantsB[288]>>) <a href="exec:set numdres=288&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!289 and pants[289]=1 or odetpants=0 and pants[289]=1:'Patterned, black-white leggings and a loose fitting golden top. (The remaining strength <<pantsH[289]>>, The size of the hips <<pantsB[289]>>) <a href="exec:set numdres=289&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!290 and pants[290]=1 or odetpants=0 and pants[290]=1:'Black leather pants and a wine red tank top. (The remaining strength <<pantsH[290]>>, The size of the hips <<pantsB[290]>>) <a href="exec:set numdres=290&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!291 and pants[291]=1 or odetpants=0 and pants[291]=1:'Dark blue leggings adn a dark blue shirt. (The remaining strength <<pantsH[291]>>, The size of the hips <<pantsB[291]>>) <a href="exec:set numdres=291&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!292 and pants[292]=1 or odetpants=0 and pants[292]=1:'Black leggings and a black shirt. (The remaining strength <<pantsH[292]>>, The size of the hips <<pantsB[292]>>) <a href="exec:set numdres=292&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!293 and pants[293]=1 or odetpants=0 and pants[293]=1:'Wine red leggings and a short, blue tank top. (The remaining strength <<pantsH[293]>>, The size of the hips <<pantsB[293]>>) <a href="exec:set numdres=293&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!294 and pants[294]=1 or odetpants=0 and pants[294]=1:'Light grey leggings and a very short, blue top. (The remaining strength <<pantsH[294]>>, The size of the hips <<pantsB[294]>>) <a href="exec:set numdres=294&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!295 and pants[295]=1 or odetpants=0 and pants[295]=1:'Wine red leggings and a loose fitting, dark blue tank top. (The remaining strength <<pantsH[295]>>, The size of the hips <<pantsB[295]>>) <a href="exec:set numdres=295&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!296 and pants[296]=1 or odetpants=0 and pants[296]=1:'Black leggings and a red-white striped shirt. (The remaining strength <<pantsH[296]>>, The size of the hips <<pantsB[296]>>) <a href="exec:set numdres=296&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!297 and pants[297]=1 or odetpants=0 and pants[297]=1:'Shiny black leggings and a short, wine red top. (The remaining strength <<pantsH[297]>>, The size of the hips <<pantsB[297]>>) <a href="exec:set numdres=297&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!298 and pants[298]=1 or odetpants=0 and pants[298]=1:'White leggings and a neon-green top. (The remaining strength <<pantsH[298]>>, The size of the hips <<pantsB[298]>>) <a href="exec:set numdres=298&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!299 and pants[299]=1 or odetpants=0 and pants[299]=1:'Pink leggings and a purple top. (The remaining strength <<pantsH[299]>>, The size of the hips <<pantsB[299]>>) <a href="exec:set numdres=299&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!300 and pants[300]=1 or odetpants=0 and pants[300]=1:'Grey leggings and a white blouse. (The remaining strength <<pantsH[300]>>, The size of the hips <<pantsB[300]>>) <a href="exec:set numdres=300&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!301 and pants[301]=1 or odetpants=0 and pants[301]=1:'Shiny black leggings and a pink fishnet top. (The remaining strength <<pantsH[301]>>, The size of the hips <<pantsB[301]>>) <a href="exec:set numdres=301&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!302 and pants[302]=1 or odetpants=0 and pants[302]=1:'Black leggings and a white-black top. (The remaining strength <<pantsH[302]>>, The size of the hips <<pantsB[302]>>) <a href="exec:set numdres=302&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!303 and pants[303]=1 or odetpants=0 and pants[303]=1:'Red leggings and a black top. (The remaining strength <<pantsH[303]>>, The size of the hips <<pantsB[303]>>) <a href="exec:set numdres=303&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!304 and pants[304]=1 or odetpants=0 and pants[304]=1:'Black leggings and a white top. (The remaining strength <<pantsH[304]>>, The size of the hips <<pantsB[304]>>) <a href="exec:set numdres=304&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!305 and pants[305]=1 or odetpants=0 and pants[305]=1:'Shiny black leggings and a very short white-black top. (The remaining strength <<pantsH[305]>>, The size of the hips <<pantsB[305]>>) <a href="exec:set numdres=305&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!306 and pants[306]=1 or odetpants=0 and pants[306]=1:'Thin, white pants and a short, red top. (The remaining strength <<pantsH[306]>>, The size of the hips <<pantsB[306]>>) <a href="exec:set numdres=306&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!307 and pants[307]=1 or odetpants=0 and pants[307]=1:'Grey leggings and a black shirt. (The remaining strength <<pantsH[307]>>, The size of the hips <<pantsB[307]>>) <a href="exec:set numdres=307&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!309 and pants[309]=1 or odetpants=0 and pants[309]=1:'Black leggings and a white-black striped top, with a very revealing cleavage. (The remaining strength <<pantsH[309]>>, The size of the hips <<pantsB[309]>>) <a href="exec:set numdres=309&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!311 and pants[311]=1 or odetpants=0 and pants[311]=1:'Shiny beige leggings and a black top, with a deep cleavage. (The remaining strength <<pantsH[311]>>, The size of the hips <<pantsB[311]>>) <a href="exec:set numdres=311&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!312 and pants[312]=1 or odetpants=0 and pants[312]=1:'White leggings and a very short, white tube top, under a loose fitting blue top. (The remaining strength <<pantsH[312]>>, The size of the hips <<pantsB[312]>>) <a href="exec:set numdres=312&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!313 and pants[313]=1 or odetpants=0 and pants[313]=1:'Black leggings and a black camisole, with a deep cleavage. (The remaining strength <<pantsH[313]>>, The size of the hips <<pantsB[313]>>) <a href="exec:set numdres=313&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!314 and pants[314]=1 or odetpants=0 and pants[314]=1:'Skin tight, white pants and a beige top. (The remaining strength <<pantsH[314]>>, The size of the hips <<pantsB[314]>>) <a href="exec:set numdres=314&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!315 and pants[315]=1 or odetpants=0 and pants[315]=1:'Grey leggings and a white top, with a deep cleavage. (The remaining strength <<pantsH[315]>>, The size of the hips <<pantsB[315]>>) <a href="exec:set numdres=315&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!316 and pants[316]=1 or odetpants=0 and pants[316]=1:'Dark grey leggings and a black top. (The remaining strength <<pantsH[316]>>, The size of the hips <<pantsB[316]>>) <a href="exec:set numdres=316&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!317 and pants[317]=1 or odetpants=0 and pants[317]=1:'Dark grey leggings and a grey T-Shirt. (The remaining strength <<pantsH[317]>>, The size of the hips <<pantsB[317]>>) <a href="exec:set numdres=317&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!318 and pants[318]=1 or odetpants=0 and pants[318]=1:'Thin, shiny, black leggings and a black top. (The remaining strength <<pantsH[318]>>, The size of the hips <<pantsB[318]>>) <a href="exec:set numdres=318&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!319 and pants[319]=1 or odetpants=0 and pants[319]=1:'Black leggings and a short, black-white striped shirt. (The remaining strength <<pantsH[319]>>, The size of the hips <<pantsB[319]>>) <a href="exec:set numdres=319&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!320 and pants[320]=1 or odetpants=0 and pants[320]=1:'Thin, white pants and a short white top. (The remaining strength <<pantsH[320]>>, The size of the hips <<pantsB[320]>>) <a href="exec:set numdres=320&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!321 and pants[321]=1 or odetpants=0 and pants[321]=1:'Shiny black leggings and a ver short, shiny black camisole under a black leather jacket. (The remaining strength <<pantsH[321]>>, The size of the hips <<pantsB[321]>>) <a href="exec:set numdres=321&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!322 and pants[322]=1 or odetpants=0 and pants[322]=1:'Shiny black leggings and a black tank top, under a brown leather vest. (The remaining strength <<pantsH[322]>>, The size of the hips <<pantsB[322]>>) <a href="exec:set numdres=322&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!324 and pants[324]=1 or odetpants=0 and pants[324]=1:'Black leggings, with holes and a leopart patterned shirt, with some cleavage. (The remaining strength <<pantsH[324]>>, The size of the hips <<pantsB[324]>>) <a href="exec:set numdres=324&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!325 and pants[325]=1 or odetpants=0 and pants[325]=1:'Shiny black leggings and a colourful top. (The remaining strength <<pantsH[325]>>, The size of the hips <<pantsB[325]>>) <a href="exec:set numdres=325&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!326 and pants[326]=1 or odetpants=0 and pants[326]=1:'Shiny black leggings and a very short, black tube top. (The remaining strength <<pantsH[326]>>, The size of the hips <<pantsB[326]>>) <a href="exec:set numdres=326&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!327 and pants[327]=1 or odetpants=0 and pants[327]=1:'Shiny black leggings and a black top, with a very revealing cleavage. (The remaining strength <<pantsH[327]>>, The size of the hips <<pantsB[327]>>) <a href="exec:set numdres=327&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!328 and pants[328]=1 or odetpants=0 and pants[328]=1:'Black leggings and a long, black T-Shirt under a black leather jacket. (The remaining strength <<pantsH[328]>>, The size of the hips <<pantsB[328]>>) <a href="exec:set numdres=328&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!329 and pants[329]=1 or odetpants=0 and pants[329]=1:'Shiny black leggings and a long, wine red top. (The remaining strength <<pantsH[329]>>, The size of the hips <<pantsB[329]>>) <a href="exec:set numdres=329&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!330 and pants[330]=1 or odetpants=0 and pants[330]=1:'Shiny black leggings and a very revealing dark blue camisole. (The remaining strength <<pantsH[330]>>, The size of the hips <<pantsB[330]>>) <a href="exec:set numdres=330&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!331 and pants[331]=1 or odetpants=0 and pants[331]=1:'Black leggings and a long, grey T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[331]>>, The size of the hips <<pantsB[331]>>) <a href="exec:set numdres=331&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!332 and pants[332]=1 or odetpants=0 and pants[332]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[332]>>, The size of the hips <<pantsB[332]>>) <a href="exec:set numdres=332&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!333 and pants[333]=1 or odetpants=0 and pants[333]=1:'Shiny black leggings and a very short, white top. (The remaining strength <<pantsH[333]>>, The size of the hips <<pantsB[333]>>) <a href="exec:set numdres=333&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!334 and pants[334]=1 or odetpants=0 and pants[334]=1:'Black leggings and a white T-Shirt, under a floral patterned blouse. (The remaining strength <<pantsH[334]>>, The size of the hips <<pantsB[334]>>) <a href="exec:set numdres=334&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!335 and pants[335]=1 or odetpants=0 and pants[335]=1:'Black leggings and a white T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[335]>>, The size of the hips <<pantsB[335]>>) <a href="exec:set numdres=335&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!336 and pants[336]=1 or odetpants=0 and pants[336]=1:'Shiny black leggings and a white-black striped shirt, under a light blue jacket. (The remaining strength <<pantsH[336]>>, The size of the hips <<pantsB[336]>>) <a href="exec:set numdres=336&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!337 and pants[337]=1 or odetpants=0 and pants[337]=1:'Shiny red leggings and a white top, udner a brown vest. (The remaining strength <<pantsH[337]>>, The size of the hips <<pantsB[337]>>) <a href="exec:set numdres=337&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!338 and pants[338]=1 or odetpants=0 and pants[338]=1:'Shiny black leggings and a white T-Shirt, under a red jacket. (The remaining strength <<pantsH[338]>>, The size of the hips <<pantsB[338]>>) <a href="exec:set numdres=338&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!339 and pants[339]=1 or odetpants=0 and pants[339]=1:'Shiny black leggings and a white-black striped T-Shirt, under a blue denim jacket. (The remaining strength <<pantsH[339]>>, The size of the hips <<pantsB[339]>>) <a href="exec:set numdres=339&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!341 and pants[341]=1 or odetpants=0 and pants[341]=1:'Black leggings and a black T-Shirt, under a blue denim vest. (The remaining strength <<pantsH[341]>>, The size of the hips <<pantsB[341]>>) <a href="exec:set numdres=341&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!342 and pants[342]=1 or odetpants=0 and pants[342]=1:'Shiny black leggings ad a white T-Shirt. (The remaining strength <<pantsH[342]>>, The size of the hips <<pantsB[342]>>) <a href="exec:set numdres=342&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!343 and pants[343]=1 or odetpants=0 and pants[343]=1:'Black leggings and a very short, black camisole under a black leather jacket. (The remaining strength <<pantsH[343]>>, The size of the hips <<pantsB[343]>>) <a href="exec:set numdres=343&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!344 and pants[344]=1 or odetpants=0 and pants[344]=1:'Black leggings and a black camisole, under a black leather jacket. (The remaining strength <<pantsH[344]>>, The size of the hips <<pantsB[344]>>) <a href="exec:set numdres=344&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!345 and pants[345]=1 or odetpants=0 and pants[345]=1:'Shiny black leggings and a black shirt, under a black leather jacket. (The remaining strength <<pantsH[345]>>, The size of the hips <<pantsB[345]>>) <a href="exec:set numdres=345&GT ''loker2'',''pants''">pass</a>'
if odetpants=1 and numdress!346 and pants[346]=1 or odetpants=0 and pants[346]=1:'Blue jeggings and a tight, red camisole, with a revealing cleavage. (The remaining strength <<pantsH[346]>>, The size of the hips <<pantsB[346]>>) <a href="exec:set numdres=346&GT ''loker2'',''pants''">pass</a>'

if odethooker = 1 and numdress ! 201 and hooker[201] = 1 or odethooker = 0 and hooker[201] = 1: 'Prostitute outfit number 201 (strength <<hookerH[201]>>, hip size <<hookerB[201]>>) <a href="exec: set numdres = 201 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 202 and hooker[202] = 1 or odethooker = 0 and hooker[202] = 1: 'Prostitute outfit number 202 (strength <<hookerH[202]>>, hip size <<hookerB[202]>>) <a href="exec: set numdres = 202 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 203 and hooker[203] = 1 or odethooker = 0 and hooker[203] = 1: 'Prostitute outfit number 203 (strength <<hookerH[203]>>, hip size <<hookerB[203]>>) <a href="exec: set numdres = 203 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 204 and hooker[204] = 1 or odethooker = 0 and hooker[204] = 1: 'Prostitute outfit number 204 (strength <<hookerH[204]>>, hip size <<hookerB[204]>>) <a href="exec: set numdres = 204 & GT ''loker2'',''hooker''">surrender</a>'
if odethooker = 1 and numdress ! 205 and hooker[205] = 1 or odethooker = 0 and hooker[205] = 1: 'Prostitute outfit number 205 (strength <<hookerH[205]>>, hip size <<hookerB[205]>>) <a href="exec: set numdres = 205 & GT ''loker2'',''hooker''">surrender</a>'


act 'Exit': gt 'loker2','fin'
end

if $ARGS[0] = 'jeans':
cla
'<center><img src="images\clothes\jeans<<numdres>>.jpg "></center>'
'(strength <<jeansH[numdres]>>, hip size <<jeansB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if jeansH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set jeans[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if jeansH[numdres] <= 45 and jeansH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set jeans[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if jeansH[numdres] <= 30 and jeansH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set jeans[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if jeansH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set jeans[numdres] = 0
	set jeansH[numdres] = 0
	end
end

if $ARGS[0] = 'yoga':
cla
'<center><img src="images\clothes\yoga<<numdres>>.jpg "></center>'
'(strength <<yogaH[numdres]>>)'
act 'To Top': gt 'loker2','start'
if yogaH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set yoga[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if yogaH[numdres] <= 45 and yogaH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set yoga[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if yogaH[numdres] <= 30 and yogaH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set yoga[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if yogaH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set yoga[numdres] = 0
	set yogaH[numdres] = 0
	end
end

if $ARGS[0] = 'sarafan':
cla
'<center><img src="images\clothes\sarafan<<numdres>>.jpg "></center>'
'(strength <<sarafanH[numdres]>>'
act 'To Top': gt 'loker2','start'
if sarafanH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set sarafan[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if sarafanH[numdres] <= 45 and sarafanH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set sarafan[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if sarafanH[numdres] <= 30 and sarafanH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set sarafan[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if sarafanH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set sarafan[numdres] = 0
	set sarafanH[numdres] = 0
	end
end

if $ARGS[0] = 'short':
cla
'<center><img src="images\clothes\short<<numdres>>.jpg "></center>'
'(strength <<shortH[numdres]>>, hip size <<shortB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if shortH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set short[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if shortH[numdres] <= 45 and shortH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set short[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if shortH[numdres] <= 30 and shortH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set short[numdres] = 0
		set money += 100
		end
	end
if shortH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set short[numdres] = 0
	set shortH[numdres] = 0
	end
end

if $ARGS[0] = 'skirt':
cla
'<center><img src="images\clothes\skirt<<numdres>>.jpg "></center>'
'(strength <<skirtH[numdres]>>, hip size <<skirtB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if skirtH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set skirt[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if skirtH[numdres] <= 45 and skirtH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set skirt[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if skirtH[numdres] <= 30 and skirtH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set skirt[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if skirtH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set skirt[numdres] = 0
	set skirtH[numdres] = 0
	end
end

if $ARGS[0] = 'dress':
cla
'<center><img src="images\clothes\dress<<numdres>>.jpg "></center>'
'(strength <<dressH[numdres]>>, hip size <<dressB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if dressH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set dress[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if dressH[numdres] <= 45 and dressH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set dress[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if dressH[numdres] <= 30 and dressH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set dress[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if dressH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set dress[numdres] = 0
	set dressH[numdres] = 0
	end
end

if $ARGS[0] = 'profi':
cla
'<center><img src="images\clothes\profi<<numdres>>.jpg "></center>'
'(strength <<profiH[numdres]>>, hip size <<profiB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if profiH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set profi[numdres] = 0
		set money += 500
		gt 'loker2','start'
		end
	end
if profiH[numdres] <= 45 and profiH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set profi[numdres] = 0
		set money += 300
		gt 'loker2','start'
		end
	end
if profiH[numdres] <= 30 and profiH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set profi[numdres] = 0
		set money += 100
		gt 'loker2','start'
		end
	end
if profiH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set profi[numdres] = 0
	set profiH[numdres] = 0

	end
end

if $ARGS[0] = 'pants':
cla
'<center><img src="images\clothes\pants<<numdres>>.jpg "></center>'
'(strength <<pantsH[numdres]>>, hip size <<pantsB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if pantsH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set pants[numdres] = 0
		set money += 500

		gt 'loker2','start'
		end
	end
if pantsH[numdres] <= 45 and pantsH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set pants[numdres] = 0
		set money += 300

		gt 'loker2','start'
		end
	end
if pantsH[numdres] <= 30 and pantsH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set pants[numdres] = 0
		set money += 100

		gt 'loker2','start'
		end
	end
if pantsH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set pants[numdres] = 0
	set pantsH[numdres] = 0

	end
end

if $ARGS[0] = 'latex':
cla
'<center><img src="images\clothes\latex<<numdres>>.jpg "></center>'
'(strength <<latexH[numdres]>>, hip size <<latexB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if latexH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set latex[numdres] = 0
		set money += 500

		gt 'loker2','start'
		end
	end
if latexH[numdres] <= 45 and latexH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set latex[numdres] = 0
		set money += 300

		gt 'loker2','start'
		end
	end
if latexH[numdres] <= 30 and latexH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set latex[numdres] = 0
		set money += 100

		gt 'loker2','start'
		end
	end
if latexH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set latex[numdres] = 0
	set latexH[numdres] = 0

	end
end

if $ARGS[0] = 'hooker':
cla
'<center><img src="images\clothes\hooker<<numdres>>.jpg "></center>'
'(strength <<hookerH[numdres]>>, hip size <<hookerB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if hookerH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set hooker[numdres] = 0
		set money += 500

		gt 'loker2','start'
		end
	end
if hookerH[numdres] <= 45 and hookerH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set hooker[numdres] = 0
		set money += 300

		gt 'loker2','start'
		end
	end
if hookerH[numdres] <= 30 and hookerH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set hooker[numdres] = 0
		set money += 100

		gt 'loker2','start'
		end
	end
if hookerH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set hooker[numdres] = 0
	set hookerH[numdres] = 0

	end
end

if $ARGS[0] = 'odekis':
cla
'<center><img src="images\clothes\k<<numdres>>.jpg "></center>'
'(strength <<odekisH[numdres]>>, hip size <<odekisB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if odekisH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set odekis[numdres] = 0
		set money += 500

		gt 'loker2','start'
		end
	end
if odekisH[numdres] <= 45 and odekisH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set odekis[numdres] = 0
		set money += 300

		gt 'loker2','start'
		end
	end
if odekisH[numdres] <= 30 and odekisH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set odekis[numdres] = 0
		set money += 100

		gt 'loker2','start'
		end
	end
if odekisH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set odekis[numdres] = 0
	set odekisH[numdres] = 0

	end
end

if $ARGS[0] = 'newclo':
cla
'<center><img src="images\clothes\<<numdres>>.jpg "></center>'
'(strength <<newcloH[numdres]>>, hip size <<newcloB[numdres]>>)'
act 'To Top': gt 'loker2','start'
if newcloH[numdres]>45:
	'Offer you 500 rubles. for this thing'
	act 'Pass':
		set newclo[numdres] = 0
		set money += 500

		gt 'loker2','start'
		end
	end
if newcloH[numdres] <= 45 and newcloH[numdres]>30:
	'Offer you 300 rubles. for this thing'
	act 'Pass':
		set newclo[numdres] = 0
		set money += 300

		gt 'loker2','start'
		end
	end
if newcloH[numdres] <= 30 and newcloH[numdres]>0:
	'Offer you 100 rubles. for this thing'
	act 'Pass':
		set newclo[numdres] = 0
		set money += 100

		gt 'loker2','start'
		end
	end
if newcloH[numdres] <= 0:
	'This item is worn and is not suitable for further wear.'
	set newclo[numdres] = 0
	set newcloH[numdres] = 0

	end
end

if $ARGS[0] = 'fin':
gt $locM, $metkaM
end
--- loker2 ---------------------------------

# bedr
ACT 'The corridor':
	!if nude = 0:
	gt 'korr'
	!end

	!'if nude = 1:
	cla
	'You look at the underwear.'
		act 'Wear underwear':
		cla
		set tanga = 1
		gt 'loker','start'
		end
		act 'Do not wear underwear':
		cla
		set tanga = 0
		gt 'loker','start'
		end
	end'
END
$metkaM = $ARGS[0]
$locM = $CURLOC

!Новое меню: конец


if magik >= 6 and spellbefshild = 1 and tobiQW = 0: gt 'tobiQW','start'
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Bedroom</font></B></center>'
if rembedr = 0: '<center><img src="images\etogame\bedr.jpg"></center>'
if rembedr = 1: '<center><img src="images\etogame\bedr2.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
set housrA = 1
set housrMir = 1
set elektro += 1
if nude = 0: set $nude = 'The corridor'
if nude = 1: set $nude = 'Get dressed'
if rembedr = 0: 'Tight little room with a <a href="exec: GT ''bed'',''start''">double bed</a> and an <a href="exec: GT ''budilnik'',''start''">alarm clock</a>. Near the entrance is a small wooden <a href="exec:GT ''loker'',''start''">wardrobe</a>. The windows are closed with faded heavy curtains.'
if rembedr = 1: 'Bright and beautiful room, with a nice <a href="exec: GT ''bed'',''start''">double bed</a>. Near the entrance is a modern <a href="exec:GT ''loker'',''start''">wardrobe</a>. Against the wall are a table and a <a href="exec:GT ''mirror'',''start''">mirror</a>.'
if AutoEnema = 1 and AEnema = 1:
	set minut += 5
	set klismaday = day
	set klismaday1= 1
	set AEnema = 0
	'You put yourself an enema and clean intestines, now your is ass ready for anal sex.'
end
if husbandrinkday = day:
if husbanstrapon = 1: $tempval = 'with anal plug in his ass.'
if husbanstrapon = 2: $tempval = 'after you have put a dildo up his ass.'
if husbanstrapon = 3: $tempval = 'after you fucked him with a strapon.'
'Drunken husband sleeps on the bed <<$tempval>>'
end

if husband > 0 and husbandrink ! 10 and husbandrinkday ! day:
	if hour > 22 or hour < 7:
	'<a href="exec: gt ''husb'',''start'' ">Husband is sleeping on the bed.</a>'
	end
end
if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! day:
	cla
	'Your husband approached you and said, "Honey my ass hurts do you know if maybe I fell yesterday"'
	act 'Lie':
		cla
		set husbanstrapon = 0
		'"No dear, I do not know" you said making an innocent face. Husband shrugged and walked away'
		act 'Finish': gt 'bedr'
		end
	act 'Confess':
		cla
		if husbanstrapon = 1: '"Honey you were so drunk last night that I decided to teach you a lesson and put a anal plug in your ass. I´ll never do it again, forgive me please" you said.'
		if husbanstrapon = 2: '"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish so I took a dildo and you burst, I even gave you a secong blowjob. Forgive me, but you enjoyed it so much that I could not stop. I just wanted to make you happy dear" you lied to your husband.'
		if husbanstrapon = 3: '"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish when I put in a second finger you began to move your ass towards my fingers moaning heavily, I thought that you like it so I put on a strapon. You enjoyed it so much that you finished over and over again, and I continued until I was tired then licked all the sperm off your body and went to sleep. I just wanted to make you happy and you were enjoying it although you do not remember it. Forgive me please" you lied to your husband.'
		if harakHusb = 2:
			set husbizvradd = 0
			set husbharmin = 0
			set husbandMark = 0
			set husband = 0
			set divorced += 1
			set fingal += 1
			set minut += 120
			'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
			end
		if harakHusb = 1:
			if husbanstrapon = 1: '"Look, do not do it again," he said and left.'
			if husbanstrapon = 2: set husbizvradd += 1 & '"Do not do it again, I´m still a man and I´m not supposed to get fucked in my ass," he said and left.'
			if husbanstrapon = 3:
				if intel > 40 or izvratH = 1: set husbharmin += 1 & '"Are you serious, I´m not a bitch that wanted to be fucked," he yelled, but then you started to cry and said that you only wanted to please him, he looked at you and said, sighing, "Yes, I believe you wanted to please me, but do not do it again."'
				if intel <= 40:
					set husbizvradd = 0
					set husbharmin = 0
					set husbandMark = 0
					set husband = 0
					set divorced += 1
					set fingal += 1
					set minut += 120
					'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
					end
				end
			end
		if harakHusb = 0:
			if husbanstrapon = 1: '"I´m sorry I will not get so drunk again," he said and left.'
			if husbanstrapon = 2: set husbizvradd += 1 & '"You´re so thoughtful, rather that scolding me, you´re still wanted to make me happy, thank you dear," he said and left.'
			if husbanstrapon = 3: set husbizvradd += 1 & '"I really like it?" he asked. You nodded. "Well then, thank you dear, but the next time you should ask me first," he said, and left'
			end
		act 'Finish': set husbanstrapon = 0 & gt 'bedr'
		end
	end
if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
	'<<$husName>> came home drunk and fell asleep on the bed.'
	'"That pig" you thought and then you came up with an idea "Maybe I should teach him a lesson so he won´t get drunk again"'
	if analplug = 1:
		act 'Insert anal plug in his ass':
			set husbandrinkday = day
			set husbandrink = 11
			set husbanstrapon = 1
			set minut += 10
			cla
			*clr
			'<center><img src="images\img\hasb\h0.jpg"></center>'
			if analplugin = 1: 'You pull the cork out of his ass.'
			if analplugin = 0: 'You go take an anal plug and put it into his ass.'
			'<<$husName>> moved, but did not wake up'
			if dildo > 0:
				act 'Insert Dildo':
					cla
					*clr
					set minut += 20
					set husbanstrapon = 2
					set swallow += 1
					set cumlip += 1
					set horny += 30
					'<center><img src="images\img\hasb\h1.jpg"></center>'
					'You pull out the plug and started to insert dildo in its place, <<$husName>> did not even budge. You began to slowly move the dildo inside trying not to wake your husband. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. With dildo in his ass, his dick began to throb ready to finish. You touched his penis with your tongue, you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
					act 'Finish': gt 'bedr'
					end
				end
			if strapon > 0:
				act 'Strapon':
					cla
					*clr
					set minut += 20
					set husbanstrapon = 3
					set swallow += 1
					set cumlip += 1
					set horny += 30
					'<center><img src="images\img\hasb\h2.jpg"></center>'
					'You put on the strapon and pulling out the plug slowly start to put it in his ass, <<$husName>> began to move but did not wake up. You began to slowly move your hips trying not to wake him. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. Realizing that he won´t wake up you start to move faster and not hesitating drove the entire length of the strapon in his ass. His cock stood up and you started to stroke it, feeling that he is about to finish you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
					act 'Finish': gt 'bedr'
					end
				end
			act 'Finish': gt 'bedr'
			end
		end
	end

if son > 10:
	'You are not tired.'
	act 'Try to sleep':gt'bed2','dosip'
else
	act 'Undress and go to bed':gt'bed2'
end

if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt 'bedr'
		end
	else
		act 'Remove Underwear':
		cla
		set tanga = 0
		gt 'bedr'
		end
	end
if nude = 0:
	act 'Get undressed':
	set nude = 1
	gt 'bedr'
	end
else
	act 'Get dressed':
	set nude = 0
	gt 'bedr'
	end
end


if saveday ! day:
set saveday = day
SAVEGAME 'avtosave.sav'
end

if dur > 0:
'You have stashed <<dur>> doses of the pale lady'
end

if sick >= 1:
	act 'Go to sleep (illness)':
	cla
	*clr
	set minut += 240
	set sick -= 1
	if sick < 0: sick = 0
	set picrand = RAND(0,6)
	gs 'stat'
	if picrand = 0: '<center><img src="images\inBed\sick17.jpg"></center>'
	if picrand = 1: '<center><img src="images\inBed\sick11.jpg"></center>'
	if picrand = 2: '<center><img src="images\inBed\sick12.jpg"></center>'
	if picrand = 3: '<center><img src="images\inBed\sick13.jpg"></center>'
	if picrand = 4: '<center><img src="images\inBed\sick14.jpg"></center>'
	if picrand = 5: '<center><img src="images\inBed\sick15.jpg"></center>'
	if picrand = 6: '<center><img src="images\inBed\sick16.jpg"></center>'
	'You are lying in bed, coughing, sneezing and blowing your nose'
	act 'Measure temperature': gt 'bedr'
	end
end

if dur > 0 and narkday ! day:
	act 'Sniff pale lady (0:05)':
	cla
	*clr
	set minut += 5
	set narkday = day
	set health = vital * 10 + stren * 5
	set willpower = intel * 5 + will * 5
	set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
	set horny = 100
	set nark += 10
	set dur -= 1
	'<center><img src="images\etogame\dur.jpg"></center>'
	'You sniff dose of powder, then you start to feel just great.'
	act 'Exit': gt 'bedr'
	end
end
--- bedr ---------------------------------

# sitr
ACT 'Go to the corridor':
	gt 'korr'
END

$metkaM = $ARGS[0]
$locM = $CURLOC

$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Living room</font></B></center>'
if remsitr = 0 and TV = 0 or komp = 0 and remsitr = 0: '<center><img src="images\etogame\sitr.jpg"></center>'
if remsitr = 0 and TV > 0 and komp > 0: '<center><img src="images\etogame\sitr1.jpg"></center>'
if remsitr = 1: '<center><img src="images\etogame\sitr2.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
set housrA = 1
set elektro += 1

if TV = 0: set $TV = 'a great place for TV, which you don''t have'
if TV = 1: set $TV = 'an ancient <a href="exec:GT ''TV'',''start''">TV</a>'
if TV = 2: set $TV = 'a huge plasma <a href="exec:GT ''TV'',''start''">TV</a>'

if divan = 0: set $divan = '<a href="exec:GT ''divan'',''start''">an old sofa</a>'
if divan = 1: set $divan = 'luxury <a href="exec:GT ''divan'',''start''">a leather sofa</a>'

if komp = 0: set $komp = ''
if komp = 1: set $komp = 'with a <a href="exec:GT ''Komp'',''start''">computer</a> on top of it.'

if selfPornvidDVD = 0: set $selfPornvidDVD = ''
if selfPornvidDVD > 0: set $selfPornvidDVD = 'You have <a href="exec:Dynamic $selfPorno_Take"><<selfPornvidDVD>></a> of your amateur porn videos available.'

if remsitr = 0: set $zal = 'A cramped room'&set $zal2 = 'faded wall'
if remsitr = 1: set $zal = 'A modern, bright room'&set $zal2 = 'papered walls with light'

if stol = 0: set $stol = 'decrepit <a href="exec:GT ''stol'',''start''">table</a>'
if stol = 1: set $stol = 'new <a href="exec:GT ''stol'',''start''">table</a>'

if obruch > 0: 'In one corner stands the hoop.'
if skak > 0: 'On a shelf is a jump rope.'
if bookYog > 0: 'The cabinet allowance yoga and meditation'
'<<$zal>>, <<$divan>> stands next to the <<$zal2>>. In front of the sofa is <<$TV>>. In front of the window is a <<$stol>> <<$komp>> <<$selfPornvidDVD>>'
if mishka > 0: 'On a shelf is <<mishka>> teddy bear'
*nl

sports = 0
$sportStringPrefix = ''

if pushday ! day:
	$sitrpush = ' <a href="exec: dynamic $sitrpushd ">push-ups</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitrpush = ''
end

if pressday ! day:
	$sitrpress = $sportStringPrefix + ' <a href="exec: dynamic $sitrpressd ">abdominal exercises</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitrpress = ''
end

if skak > 0 and skakday ! day:
	$sitrskak = $sportStringPrefix + ' <a href="exec: dynamic $sitrskakd ">jumping rope</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitrskak = ''
end

if obruch > 0 and obruchday ! day:
	$sitrobr = $sportStringPrefix + ' <a href="exec: dynamic $sitrobrd ">twist hoop</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitrobr = ''
end

if treadmill > 0 and treadmillday ! day:
	$sitr_tread = $sportStringPrefix + ' <a href="exec: dynamic $sitr_tread_d ">treadmill</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitr_tread = ''
end

if bookYog > 0 and bookYogday ! day:
	$sitryog = $sportStringPrefix + ' <a href="exec: dynamic $sitryogd ">meditation</a>'
	sports = 1
	$sportStringPrefix = ','
else
	$sitryog = ''
end

if sports = 1:
	$sportsitr = '<<$sitrpush>><<$sitrpress>><<$sitrskak>><<$sitrobr>><<$sitr_tread>><<$sitryog>>'
	'The room has enough space for a variety of sport activities:<<$sportsitr>>.'
end

!set housegostrand = RAND(1,20)
!if husband > 0 and husbandrink ! 10 and week = 5 and hour > 17 and hour < 21 and housegostrand > 15:gt 'sitr','guest'
if suhbelo2 > 0: 'Lying on the table <<suhbelo2>> pieces of dried laundry that need <a href="exec: dynamic $gladbelo ">ironing</a>.'

*nl

if husband > 0 and husbandrink ! 10 and husbandrinkday ! day:
	if week < 6:
		if hour > 17 and hour <= 22:
			'<a href="exec: gt ''husb'',''start'' ">On the couch sits husband and watching TV.</a>'
		end
	else
		if hour > 7 and hour < 17:
			'<a href="exec: gt ''husb'',''start'' ">On the couch sits husband and watching TV.</a>'
		end
		if hour > 17 and hour <= 22:
			'<a href="exec: gt ''husb'',''start'' ">On the couch sits husband and watching TV.</a>'
		end
	end
end

!gs 'subkid'
if numkid = 1: '<a href="exec: gt ''kid'',''start''">Your child</a>'
if numkid > 1: '<a href="exec: gt ''kid'',''start''">Your children</a>'

if student > 0 and kursovik < 100:
	act 'Write kursovik (1:00)':
		cla
		*clr
		set minut += 60
		set kursovik += RAND(intel/20, intel/10)
		if kursovik > 100: set kursovik = 100
		set manna -= 10
		'<center><img src="images\etogame\study.jpg"></center>'
		'You sat on the course work and prepared her <<kursovik>> percent.'
		act 'Exit': gt 'sitr'
	end
end

act 'Exit to the balcony': gt 'balkon','start'

if zoo >= 6:
	if husband > 0 and husbandrink ! 10:
		if week > 5 or week < 6 and hour > 17:
			act 'Call <<$namesob>>':
				cla
				*clr
				set minut += 30
				'<center><img src="images\zoo\z1.jpg"></center>'
				'You call the dog and that the move pushes his wet nose between your legs and lick accepted.'
				if harakHusb = 0:
					set zoo += 1
					set horny = 0
					set orgasm += 1
					'"What''s he doing dear, stop him," cries the husband'
					'"I can not, try myself," you reply.'
					set husband -= 1
					'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
					'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> begins to pace the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
					'"Oh my God, that he was going to do?" shrieked <<$husName>>, see attempts dog jump on you.'
					'"What you do not clear he wants to fuck me" you said.'
					'"Dear try again to free" pleaded husband.'
					act 'Try':
						cla
						*clr
						'<center><img src="images\zoo\z2.jpg"></center>'
						'You reluctantly start trying to push the dog and move away, but it appears to him backwards, and <<$namesob>> leans on you and all your weight is on. You feel his penis rubs against your thighs ischya hole.'
						if izvratH = 0:
							'"Oh my God, I can not look at it," cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
						end

						if izvratH = 1:
							'"Well get off of her," shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes Svetsik so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
						end

						act 'Allow':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
						end

						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down," you said.'
							'"Well dear, whatever you say."'
							act 'Finish': gt 'sitr'
						end
					end
				end

				if harakHusb = 1:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself," you reply.'
					if izvratH = 0:
						'<<$husName>> tries to pull the dog, but he growls and grins, then he goes into the tub and what that brings an old sheet, threw it at the dog picks up the ends and picks up dog is in improvezirovannom bag.'
						'"I''ll take him now on euthanasia," said <<$husName>>'
						act 'Allow':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
						end

						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down," you said.'
							'"Okay, look itself, your dog."'
							act 'Finish': gt 'sitr'
						end
					end

					if izvratH = 1:
						set zoo += 1
						set bj += 1
						set swallow += 1
						set cumlip += 1
						'"Can not or do not want," said <<$husName>> smiling and continues to sit and watch as the dog licks you.'
						'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\zoo\z3.jpg"></center>'
							'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body, a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat you with nedvuhslyslennymi intentions.'
							'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
							act 'Allow':
								set sobaka = 0
								set zoo = 0
								gt 'sitr'
							end

							act 'Not authorized':
								cla
								'"No, dear, he is not guilty, he has instincts, besides from trying so hard," you said.'
								'"Well, if he was trying so hard you can thank him" ironically husband.'
								act 'Jerk dog':
									cla
									*clr
									set husband -= 1
									'<center><img src="images\zoo\z6.jpg"></center>'
									'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'
									act 'Finish': gt 'sitr'
								end

								act 'Suck dog':
									cla
									*clr
									set swallow += 1
									set husband -= 40
									'<center><img src="images\zoo\z7.jpg"></center>'
									'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
									'"Well, you''re a pervert," the husband says with obvious distaste.'
									act 'Finish': gt 'sitr'
								end
								act 'Finish': gt 'sitr'
							end
						end
					end
				end

				if harakHusb = 2:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself," you reply.'
					if izvratH = 0:
						set manna -= 15
						set willpower -= 15
						'<<$husName>> trying ottoschit dog, but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, did not have time to climb dog as man begins to kick harder, seeing his condition, you scored in angle and covering his head with hands close your eyes. A few minutes later the dog stops.'
						'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
						'"Well, what froze shalt say to you, I do this on the trash Dogmeat''ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
						act 'Finish':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
						end
					end

					if izvratH = 1:
						set zoo += 1
						set bj += 1
						set swallow += 1
						set cumlip += 1
						set SUB += 1
						'"What do you mean I can not, that you like the way he licks you," shouts <<$husName>>.'
						'"No, of course you do not," you begin to make excuses.'
						'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him," he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\zoo\z4.jpg"></center>'
							'<<$husName>> grabs a dog by the collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding his lust take by mouth and takes dick dog suck, husband watching you and cheers saying that the dog loved your mouth. Soon he was bored just watch and he dropped his pants says "Well Spreads legs."'
							act 'Allow':
								cla
								*clr
								set suprdolg += 1
								set sex += 1
								set anal += 1
								'<center><img src="images\zoo\z5.jpg"></center>'
								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you''re not trying, as well, cup your point."'
								act 'Substitute ass':
									cla
									*clr
									set analorgasm += 1
									set orgasm += 1
									set horny = 0
									'<center><img src="images\zoo\z8.jpg"></center>'
									'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
									act 'Finish': gt 'sitr'
								end
							end
						end
					end
				end
			end
		else
			act 'Call <<$namesob>>': gt 'soba', 'zoof30'
		end
	end

	if husband = 0 or husbandrink = 10:
		act 'Call <<$namesob>>': gt 'soba', 'zoof30'
	end
end

if dildo > 0 and horny >= 50:
	act 'Masturbate':
		cla
		*clr
		set minut += 30
		set mastr += 1
		set manna += 15
		set willpower += 15
		set vagina += 1
		if husband > 0 and husbandrink ! 10:
			if week > 5 or week < 6 and hour > 16:
				cla
				*clr
				'<center><img src="images\img\hasb\m11.jpg"></center>'
				'You sit on the couch and type dildo their pussy'
				if hour > 17 and hour <= 22: '<<$husName>> looks at you, obviously a little dumbfounded.'
				if hour = 16 or hour > 22: 'Once you get a taste of how enters the room <<$husName>>'
				if harakHusb = 0:
					'"What are you doing dear?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					'"And often you do that," he asks.'
					'"Owned so often, less often in the ass, if you want to see?" you asked'
					if izvratH = 0:
						set husband -= 1
						'"I''ll wait outside the door until you''re done," he said and left. You continued to satisfy themselves rapidly and soon finished.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'sitr'
					end

					if izvratH = 1:
						'"Well, I do not know," he stammered.'
						'"So you want" you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m12.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as a dildo in your ass disappears and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"Can I join?" a little embarrassed he asks.'
							act 'Solve':
								cla
								*clr
								set analorgasm += 1
								set orgasm += 1
								set horny = 0
								'<center><img src="images\img\hasb\m13.jpg"></center>'
								'<<$husName>> gets dick and starts masturbating, it is not what you expected, and at first you even felt a little sad that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at the way you drive the dildo his popkui be covered and you pleasure, you screamed and fell to the table, having experienced an orgasm, dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you took the dildo from ass and began to lick it, looking into the eyes of her husband, from such a spectacle he immediately discharged onto the floor. You are drawn to him sticking out his lips, in a second he had passionately kissed you.'
								act 'Finish': gt 'sitr'
							end
						end
					end
				end

				if harakHusb = 1:
					'"That''s a number I mean you is not enough?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					'"Well then, show me everything that you know how I''ll look," he says.'
					'"And how do I do it in the ass, too, to show?" you asked'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"No, do not, and yet that''s enough," he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
						'"For such a lovely audience anything, but only after the intermission," you laughed. <<$husName>> helped you get down from the table.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'sitr'
					end

					if izvratH = 1:
						set husband += 1
						'"And how is it necessarily demonstrate" he said.'
						'"Anything you want," you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m12.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as a dildo in your ass disappears and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"I do not just want to but I''ll do," he said, unbuttoning his pants and substitute member of your face.'
							act 'Take by mouth':
								cla
								*clr
								'<center><img src="images\img\hasb\m14.jpg"></center>'
								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I''ll take this hole."'
								act 'Substitute ass':
									set picrand = 88
									gt 'sex','anal'
								end
							end
						end
					end
				end

				if harakHusb = 2:
					'"What hole itching?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"Well then, open your mouth," he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I''m going to fuck you"'
						act 'Spread her legs':
							set picrand = 88
							gt 'sex','vag'
						end
					end

					if izvratH = 1:
						set husband += 1
						set SUB += 1
						'"Insert this crap myself in the ass and mash, I''ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\img\hasb\m14.jpg"></center>'
							'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point now I''m ass Flare."'
							act 'Substitute ass':
								set picrand = 88
								gt 'sex','anal'
							end
						end
					end
				end
			else
				set horny = 0
				set orgasm += 1
				'<center><img src="images\pics\mastr.gif"></center>'
				'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
				act 'Breath.': gt 'sitr'
			end
		else
			set horny = 0
			set orgasm += 1
			'<center><img src="images\pics\mastr.gif"></center>'
			'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
			act 'Breath.': gt 'sitr'
		end
	end
end

$selfPorno_Take = {
	'You have <<selfPornvidDVD>> of your amateur porn videos available'
	if selfPornvidDVD > 0 and bag > 0:
		act 'Take one':
			set selfPornvidDVD -= 1
			set selfPornvidDVDCarry +=1
		end
	end
	if selfPornvidDVDCarry > 0:
		act 'Put one back':
			set selfPornvidDVD +=1
			set selfPornvidDVDCarry -=1
		end
	end
	act 'Back': gt 'sitr'
}

!'if $ARGS [0] ='guest':
	gs 'stat'
	cla
	*clr
	set minut += 30
	'<center><img src="images\img\house\g0.jpg"></center>'

	'My husband came home and covenant you, you go out to him and see him with another man, he presents it as its Colleges. You pass in the hall and sit down on the couch, they both have fun on the husband went to the store to buy something to drink and leave you alone. You are chatting for a while, but quickly running threads, then the man says he tried to persuade your husband to go to the club, but he agreed, and then I want to dance. You do not think of anything better, it offers dance here and he readily agrees.'

	act 'Play music':
		cla
		*clr
		if vnesh < 15:
			set husbandrink = 10
			'<center><img src="images\img\house\g1.jpg"></center>'
			'You turn on the music and start dancing, man gets up and joins you. You dance until the neighbors start banging on the wall, you turn off the music, laughing and sit on the couch, it takes about an hour and still no husband, then the guest will say that it will look at the leaves'
			act 'Up': gt 'sitr'
		else
			'<center><img src="images\img\house\g2.jpg"></center>'
			'You turn on the music and start dancing, man gets up and joins you. You dance with him and with each movement he becomes closer to you, in the end it starts to hurt you at first as if by accident, and then more openly, in the end, he pushes you to himself and his hands begin to wander through your body, you frankly lapaya .'
			if horny < 80:
				act 'Step back':
					cla
					set husbandrink = 10
					'You step back from it and turn off the music sit on the sofa, it takes about an hour and still no husband, then the guest will say that it will look at the leaves'
					act 'Up': gt 'sitr'
				end
			end
			act 'Allow':
				cla
				*clr
				set horny += 20
				'<center><img src="images\img\house\g3.jpg"></center>'
				'You do not resist, and he continues to grope you, you will soon have a third on while he caresses your bare breasts, you will no longer restrain himself vsilu and turned to him, running his hand into his pants and pulled out a member. He sticks out his tongue and lips around his you start to suck at the same time masturbate him.'
				act 'Take by mouth':
					cla
					*clr
					'<center><img src="images\img\house\g4.jpg"></center>''

--- sitr ---------------------------------

# vanr
ACT 'Go to the corridor':
	gt 'korr'
END
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
$stirkad = {
cla
*clr
set minut += dirtbelo * 5
set suhbelo += dirtbelo
set poroshok -= 1
set dirtbelo = 0
set manna -= 10
'<center><img src="images\etogame\stir.jpg"></center>'
'You soaked the dirty linen in a basin and poured the powder on them. You wash the clothes until they''re finally clean.'
act 'Hang the laundry out to dry': gt 'korr'
}

'<center><B><font color = maroon>Bathroom</font></B></center>'
if remvanr = 0: '<center><img src="images\etogame\vanr.jpg"></center>'
if remvanr = 1: '<center><img src="images\etogame\vanr2.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
set housrA = 1
set elektro += 1

if stiralka > 0:
	if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
		husband += 5
		set poroshok -= 2
		husporday = day
		'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
	end

	if dirtbelo > 0 and poroshok >= dirtbelo:
		clrbelo += dirtbelo
		poroshok -= dirtbelo
		dirtbelo = 0
		'The washing machine washed your laundry'
	elseif poroshok<dirtbelo:
		'You ran out of powder for washing machine.'
	end
end

if remvanr = 1:'There is a <a href="exec:GT ''mirror'',''start''">mirror</a> just above the sync.'

if tampon > 0:
'On a shelf is packing tampons. It will be enough for <B><<tampon>></B> times'
else
'<B><font color = red>You have no tampons.</font></B>'
end
if stanok > 0: 'On a shelf above the sink are razors. You have enough blades for <B><<stanok>></B> shaves.'

if clrbelo > 0:
	*p'In the cupboard is <font color=blue><B><<clrbelo>></B></font> pairs of clean underwear. '
else
	*p'<B><font color=red>You do not have clean underwear.</font></B>'
end
if dirtbelo>0:'In the hamper is <font color=red><B><<dirtbelo>></B></font> pieces of dirty laundry.'
if poroshok > 0:
if dirtbelo = 0:$stirka = ''
if dirtbelo > 0:$stirka = '<a href="exec: dynamic $stirkad ">You can wash clothes</a>'
'Under the sink there''s detergent powder, which is enough for <B><<poroshok>></B> washes. <<$stirka>>'
else
'<B><font color = red>You have no detergent powder and nothing to wash clothes with.</font></B>'
end

if shampoo > 0:
'Do you have enough shampoo for <b><<shampoo>></b> times. You can <a href="exec: gt ''vann'',''start'' ">wash yourself</a>.'
else
'You''ve ran out of shampoo.'
end

if mosolmaz>0:'On a shelf is a tube of ointment protivomozolnoy, which will be enough for <B><<mosolmaz>><B> applications.'
if stiralka > 0: 'In the bathroom is a washing machine.'

	!'if tanga = 0 and clrbelo > 0:
		act 'Wear underwear':
		cla
		set tanga = 1
		gt 'vanr'
		end
	end
	if tanga = 1:
		act 'Do not wear underwear':
		cla
		set tanga = 0
		gt 'vanr'
		end
	end'

if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		act 'Exit': gt 'vanr'
		end
	end

if shampoo > 0:
	act 'Wash yourself':
		gt'vann','start'
	end
end

if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
	act 'Wash up (0:05)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumanus = 0
	set cumfrot = 0
	set sweat -= 1
	set minut += 5
	set clrbelo -= 1
	set dirtbelo += 1
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm in the bathroom.'
	act 'Exit': gt 'vanr'
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off your face (0:05)':
	cla
	*clr
	set mop = 1
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 5
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed the sperm off your face.'
	act 'Exit': gt 'vanr'
	end
end

if mop ! 1:
	act 'Wash off cosmetics':
	cla
	set mop = 1
	set minut += 15
	'You washed the makeup from your face.'
	act 'Exit': gt 'vanr'
	end
end

if klisma = 1 and klismaday ! day:
	act 'Give yourself an enema (0:05)':
	cla
	*clr
	set minut += 5
	set klismaday = day
	set klismaday1= 1
	'<center><img src="images\picV\klisma.jpg"></center>'
	'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'
	act 'Exit': gt 'vanr'
	end
end

if vibrator = 1 and vibratorIN = 0:
	act 'Insert the vibrator (0:05)':
	cla
	*clr
	set minut += 5
	set vibratorIN = 1
	if vagina < 30: set vagina += 2
	'<center><img src="images\etogame\vibrator.jpg"></center>'
	'You bent over the sink and inserted the vibrator in your pussy.'
	act 'Exit': gt 'vanr'
	end
end

if vibrator = 1 and vibratorIN = 1:
	act 'Remove the vibrator (0:05)':
	cla
	*clr
	set minut += 5
	set vibratorIN = 0
	if vagina < 30: set vagina += 1
	'<center><img src="images\etogame\vibrator.jpg"></center>'
	'You bent over the sink and took the vibrator out of your pussy.'
	act 'Exit': gt 'vanr'
	end
end


if analplug = 1 and analplugin = 0 and klismaday1= 1:
	act 'Insert a butt plug (0:05)':
	cla
	*clr
	set minut += 5
	set analplugIN = 1
	if anus < 30: set anus += 5
	'<center><img src="images\etogame\analplug.jpg"></center>'
	if butpluguse > 0: 'You bent over and habitual movement itself anal plug inserted.'
	if butpluguse = 0: set butpluguse = 1 & '"I do this not even touch, and why I bought it!" you thought. Then still decided to take a closer look. Feel, smell, in general, that ordinary gag. "Oh, was not," you think, "Wow priest ever to develop, it will have great adventures, you could even say a huge and thick adventures with crimson heads, uh, that I got carried away." You scratched thin fingers unusually hairy head. Then you sent peg his ass, it was a bit painful when rastyagivatsya anus started taking a foreign object, but as soon as the widest part plunged into the murky depths of anal, it became easier and almost gag herself flew to the end, and got put on the manufacturer place.'
	act 'Exit': gt 'vanr'
	end
end

if analplug = 1 and analplugin = 1:
	act 'Remove the butt plug (0:05)':
	cla
	*clr
	set minut += 5
	set analplugIN = 0
	if anus < 30: set anus += 1
	'<center><img src="images\etogame\analplug.jpg"></center>'
	if butpluguse > 0: 'You bent over and took a familiar movement of themselves butt plug.'
	act 'Exit': gt 'vanr'
	end
end

if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
	act 'Wash your husbands clothes 1:00 (2 units of washing powder)':
	cla
	*clr
	husband += 5
	set poroshok -= 2
	set minut += 60
	husporday = day
	manna -= 25
	'<center><img src="images\etogame\stir.jpg"></center>'
	'You spend an hour washing your husbands smelly socks and his prossannye and properdannye truselya.'
	act 'Move away from the bathroom': gt 'vanr'
	end
end

if husband > 0 and husbanday > 0 and huspolday ! day:
	act 'Clean the apartment (1:00)':
	cla
	*clr
	husband += 5
	set minut += 60
	huspolday = day
	manna -= 25
	!'<center><img src="images\pics\cook.jpg"></center>'
	'You took a rag and started cleaning the apartment.'
	act 'Leave': gt 'vanr'
	end
end
--- vanr ---------------------------------

# kuhr
ACT 'Go to the corridor':
	gt 'korr'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$dirtarm = {
if fairy > 0:
cla
*clr
set waterhouse -= dirttarelka
set fairy -= 1
set minut += dirttarelka * 3
gs 'stat'
set cltarelka += dirttarelka
set dirttarelka = 0
set manna -= 5
'<center><img src="images\pics\dirt.jpg"></center>'
'Using the dishwashing liquid you washed the dishes.'
act 'Wipe your hands': gt $locM, $metkaM
else
'<B><font color = red>You have no dishwashing liquid.</font></B>'
end
}
$edagotd = {
cla
*clr
set minut += 30
gs 'stat'
set edahot += 1
set eda -= 1
set waterhouse -= 1
set kuhdrova = 0
musor += 1
set cltarelka -= 1
set manna -= 5
'<center><img src="images\pics\cook.jpg"></center>'
'You prepare the meal.'
act 'Eat cooked food (0:30)': dynamic $edahotd
act 'Leave the meal': gt $locM, $metkaM
}
$edahotd = {
cla
*clr
gs 'stat'
frost = 0
'<center><img src="images\pics\food.jpg"></center>'
set minut += 30
set edahot = 0
set dirttarelka += 1
set health += 10
set manna += 20
	if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end
	if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end
	if energy < 20:
	set energy += 20
	!set fat += 1
	'You gladly ate cooked food.'
	end
	if water >= 20:
	'Tea in you no longer climbs.'
	end
	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
act 'Get up from the table': gt $locM, $metkaM
}
$santehnikgr = {
cls
ransloman = 0
minut += 25
gs 'stat'
'<center><img src="images\img\house\s3.jpg"></center>'
'You called the plumber and he came Grisha you literally 15 minutes. Quickly found the cause and correct the problem, repair your faucet.'
act 'Next.': dynamic $santehnikend
}
$santehnikend3 = {
cls
ransloman = 0
bj += 1
SUB += 1
facial += 1
cumface += 1
if GrishaSex = 0: GrishaSex = 1 & guy += 1
if mop > 1: set mop = 0
gs 'stat'
'<center><img src="images\qwest\grisha\bj2.jpg"></center>'
'You felt like you slapped in the face warm and viscous. Then another and another, covering your face with white seed. Cum began to drain from his face on the lips, chin and cheeks. Plumber finally dried out and stopped the flow of sperm. You could not open his eyes because they felt that they sperm from which matted eyelashes. Plumber chuckled and said. "Classy Vidocq. This slut." His words touched you and you feel like your cheeks flushed with shame. You have become washed sperm from the face, trying to unstick my eyes, but you turned only to smear her face. Finally you are able to open one eye and saw you standing over plumbing, he smirked buttoning his pants. Thereafter, a plumber turned and went to the exit from your apartment.'
act 'Carry out plumbing.': gt $curloc
}
$santehnikend1 = {
cls
kransloman = 0
minut += 1
gs 'stat'
'<center><img src="images\img\house\s3.jpg"></center>'
'You helplessly shrugged and mumbled that have no idea what to do now. Plumber examined you with oily eyes and told you with the infamous smirk, "Maybe on another thank you? I can take to work not only with money."'
act 'Let''s debt.': dynamic $santehnikend2
	act 'It''s like, on another?':
	cls
	minut += 1
	gs 'stat'
	'<center><img src="images\img\house\s3.jpg"></center>'
	'You asked the plumbing that he has in mind. And he, instead of answering, took you by the shoulders and drew to itself. You rested his soft breasts against his chest and felt like your stomach rests, something solid. He easily pushed your shoulders and whispered, "Come on baby do not be shy."'

		act 'Kneel':
		cls
		minut += 1
		gs 'stat'
		'<center><img src="images\qwest\grisha\bj.jpg"></center>'
		'You slowly knelt before then smelling plumber. He unbuttoned his pants and in your face was his dick.'
		if bj = 0:
		'You have not had to take by mouth and you looked with horror on the device which you had to suck. Plumber seeing your confusion took you by the head and pulled up to the member. Unwittingly touched your lips crimson head.'
		else
		'You tilt your head slightly forward and kissed the purple penis.'
		end
			act 'Suck':
			cls
			minut += 3
			gs 'stat'
			'<center><img src="images\qwest\grisha\bj1.jpg"></center>'
			'You cupped warm and hard cock his lips and began to absorb the mouth uttering sucking sounds. Plumber began to move her hips trying to drive his cock deeper into your mouth. His solid organ fills almost the entire space of your mouth stuck in your throat and choke you unwittingly. From your eyes tears flowed, but the plumber has already fallen into a rage, and not paying attention to you, fuck your mouth keeping you in the head. Finally he quickly pulled his cock out of your wet mouth and began to masturbate in front of your face.'
			act 'Close your eyes.': dynamic $santehnikend3

			end

		end
	end
}
$santehnikend2 = {
cls
kransloman = 0
minut += 15
santehnikDolg = 1500
if Grisha >= 1:$textsan = 'Grisha you smiled. "We are not in whose first and last time working with you. Mail receipt, I like something you''ll come to the money."'
if Grisha = 0: Grisha = 1 & $textsan = 'I''m way Grisha, and yours? "You smiled feeling that the storm has passed and the plumber said that your name is <<$name>>.'
gs 'stat'
'<center><img src="images\img\house\s3.jpg"></center>'
'You offered a job in the plumbing issue debt. He thought for a moment and said, "Okay. Just write a receipt. Like something I look in and you give me the money. <<$textsan>> Then took a pen and paper and began to write plumbing receipt that you owe him 1,500 rubles. Grisha took the paper and put it in his pocket. "If that slomaetsya again, call, here''s my card."'
act 'Carry out plumbing.': gt $curloc
}
$santehnikend = {
cla
*clr
kransloman = 0
set minut += 30
gs 'stat'
'<center><img src="images\img\house\s3.jpg"></center>'
'Half an hour later he said he was finished, and you have 1500 rubles'
	if money < 1500:
	'Do you lack the money'
	if money+stolmoney >= 1500: 'But in the table have a stash and you have enough.'
	end

	if money+stolmoney >= 1500:
		act 'Pay':
		if money < 1500: set money += stolmoney & stolmoney = 0
		set money -= 1500
		gt 'kuhr'
		end
	end

	if money+stolmoney < 1500:
		act 'I did not have enough money':
		cls
		gs 'stat'
		'<center><img src="images\img\house\s3.jpg"></center>'
		'You were embarrassed and told the plumber that you do not have enough money. He was visibly angry. "What do you call a girl with no plumbing even money, and what am I supposed to do now?"'
			act 'I do not know.': dynamic $santehnikend1
			act 'Can borrow? I then give it up.': dynamic $santehnikend2
		end
	end

	!{
	if shameless > 15:
		act 'Offer other options (to make a blow)':
		cla
		*clr
		set horny += 40
		gs 'stat'
		'<center><img src="images\img\house\s4.jpg"></center>'
		'I do not have money, but you can take another form of payment? you say, dropping to her knees and starting to unbutton his pants. The guy obviously does not mind and watching your actions. You remove it even flaccid penis and tightly gripping his hand, start to kiss the head, gradually sucking it into his mouth.'
			act 'Continue':
				if vnesh < 15:
				cla
				*clr
				set guy += 1
				set bj += 1
				'<center><img src="images\img\house\s5.jpg"></center>'
				'You diligently sucking his dick between his legs itched from all desires, you break off a couple of times to stop and go to the sex, but he took you by the head and continued to fuck your mouth, soon he came into your mouth and swallow once you come and pick it up again member, as he put his pants and silently walked to the door, to sleep with you, he was not even going. From rastrojstva you spat out semen on the floor, looks like you do not attract even plumbing.'
				act 'Leave': gt 'korr'
				end

				if vnesh >= 15: set picrand = 90 & gt 'sex','minet'
			end
		end
	end
	}

}

$santehnik1 = {
kransloman = 0
set minut += 20
gs 'stat'
'<center><img src="images\img\house\s0.jpg"></center>'
'You''ve reached the clock service repair. After 20 minutes, a plumber arrived.'
'You carried him into the kitchen and started to involve themselves in the affairs. When you reached out to one of the shelves, it was noticed that he was staring at your ass.'
act 'Become confused': dynamic $santehnikend
if shameless > 5: act 'Disregard': dynamic $santehnikend
}
$santehnik = {
cla
*clr
set kransloman = 0
if husband = 0 or husbandrink = 10: dynamic $santehnik1 & exit
if husband > 0 and week < 6 and hour < 17 and hour > 7: dynamic $santehnik1 & exit
if husband > 0 and husbandrink ! 10:
	cla
	*clr
	set minut += 20
	'<center><img src="images\img\house\s7.jpg"></center>'
	'You told her husband about the crane and he called the clock service repair. After 20 minutes, a plumber arrived.'
	'Husband walked him to the kitchen and the two of you began to observe his actions, you are sick of hearing about how the plumber raskazyvaet pads Chinese cranes and that people pushed into the sink, and you decided to leave the hall.'
	act 'Leave':
		cla
		*clr
		set minut += 20
		set horny += 50
		gs 'stat'
		'<center><img src="images\img\house\s8.jpg"></center>'
		'You went into the room and sat on the couch, soon came and sat down beside her husband. With one hand he odnyal you, and you ran second in her panties and began to massage your clitoris.'
		'"What are you, and if the plumber will" you said.'
		'"Yes it there for another hour poking around," he said, "Come quick mouth job."'
		'"Well, let" you said, the more you have, and most really like his hand has done its job.'
		act 'Start':
			cla
			*clr
			'<center><img src="images\img\house\s9.jpg"></center>'
			'The husband stood up and pulled his pants unbuttoned member you dropped to her knees and only his cock was in your mouth, entered the room plumber "I finished," he said and paused, seeing this picture.'
			if izvratH = 0:
				'Husband tried to remove a member from your mouth'
				if horny < 80:
					act 'Stop':
						cla
						'Husband quickly hid dick in his pants and with a plumber out into the corridor'
						act 'Leave': gt 'sitr'
						end
					end
				act 'Do not stop':
					cla
					set orgasm += 1
					set bj += 1
					'You vskhvatili husband hips and continued to work his mouth, he jerked a couple of times trying to free himself, but you could not stop and just absorbed the deeper his cock. When he stopped twitching you omitted one hand to his crotch and just a couple of motions brought herself to orgasm. But the excitement did not sleep, you want even more, and his eyes watching plumbing more aroused you. You could not control myself.'
					act 'Ride the husband':
						cla
						*clr
						set orgasm += 1
						set cumpussy += 1
						set sex += 1
						set suprdolg += 1
						set husband += 1
						set husbizvradd += 1
						set horny = 0
						'<center><img src="images\img\house\s12.jpg"></center>'
						'You released a member of her husband''s mouth and quickly pushed him standing on the couch, and jumped on top of themselves, quickly planted a pussy on his dick. You jumped on it like crazy, ignoring the plumbing that all this time and stood in the doorway, watching you. When you were again close to orgasm you feel as sperm gushed into you, and making a few movements uvedayuschem already a member, you have reached orgasm, uttering a cry you limp and fell to the husband. He took you still quaking with myself wearing pants and walked out with a plumber in the hallway.'
						act 'Leave': gt 'sitr'
						end
					end
				end
			if izvratH ! 0:
				'Husband did not even try to stop you'
				if horny < 80:
					act 'Stop':
						if harakHusb ! 2:
							cla
							'You released a member of her husband, and he quickly put it in his pants and with a plumber out into the corridor'
							act 'Leave': gt 'sitr'
							end
						if harakHusb = 2:
							cla
							set guy += 1
							'You tried to spit from the mouth of a member, but you vskhvatil husband''s head and he started to fuck you in the mouth, talking with obnovremenno plumber "We''re a little busy, wait a minute, now zhenushku feed" he laughed, "How much do I owe you," he continued.'
							'"Fifteen hundred," said the plumber.'
							'"Well, you and the prices can agree that if you feed it too and disperse?" he asked.'
							'"I do not know, blow it unless discount pull, but if it all to try, then yes," replied the plumber.'
							'"Do you know how to bargain," said the husband, "Okay agreed," he added, almost without thinking. Knowing the character of her husband decided that you would mind our own peril.'
							act 'Serve both': set picrand = 43 & gt 'sexdvoe','var'
							end
						end
					end
				act 'Do not stop':
					cla
					set bj += 1
					'You continued to suck ignoring watching you plumbing.'
					if harakHusb = 0: 'Husband tried not to look in the direction of plumbing, obviously embarrassed, but he did not hesitate to follow your every move.'
					if harakHusb = 1: 'Husband stood naslozhdatsya process without paying attention to the plumbing.'
					if harakHusb = 2: 'Husband chatted with the plumber did not hesitate and even turned slightly so that it was easier to see.'
					act 'Continue':
						cla
						set swallow += 1
						set suprdolg += 1
						set husband += 1
						set horny += 20
						'You continued to make her husband a blowjob, and soon a stream of hot liquid squirted into your mouth, swallowing sperm you licked the remnants of his semen from the penis. Husband cleaned dick in his pants and walked out into the hallway with a plumber. And you are left to sit on the floor exhausted from desire.'
						act 'Leave': gt 'sitr'
						end
					if horny > 70:
						act 'Suggest a threesome':
							cla
							'You broke away from the penis, and a whisper asked her husband if he wanted to try a threesome.'
							if harakHusb = 0:
								*clr
								set houseslut += 1
								set husband += 2
								'<center><img src="images\img\house\s11.jpg"></center>'
								'Husband a little swept the answer, then what would convince him, you have a loud voice continued, "Let him polizhet me while I caress you."'
								'Plumber readily tensed, waiting for the reaction of her husband, "Well, if only polizhet then let them." said the husband. Plumbing had not persuade her husband was worth sit on the sofa, and you get on your knees and stuck out his ass as his tongue penetrated into your pussy. First husband glanced in his direction, but soon relaxed and finally when the guy started to wield a vengeance fingers in your hole, no sound, you have decided that he was not against you share with others.'
								act 'Serve both': set picrand = 43 & gt 'sexdvoe','var'
								end
							if harakHusb = 1:
								set husband -= 5
								'"You do sbrendil that-be wife and I somehow shared plumber, cool pussy fool must think his head." shouted husband and removing member in his pants out of the room with the plumber.'
								act 'Leave': gt 'sitr'
								end
							if harakHusb = 2:
								*clr
								set houseslut += 1
								set husband += 2
								'<center><img src="images\img\house\s10.jpg"></center>'
								'"That''s not for nothing that they say all women are whores, hey man this whore want to write out two, but then the repair free of charge," said the husband. Plumber twice predlogat had not, he quickly approached and pulled out his dick Framed to your face, you clung to him and started to suck both alternately, and her husband stood komentirovat your actions "That sucked, fresh meat, do not forget about me, like this boy, swallowing deeper and deeper. "'
								act 'Serve both': set picrand = 43 & gt 'sexdvoe','var'
								end
							end
						end
					end
				end
			end
		end
	end
}
$metka = $ARGS[0]
$loc = $CURLOC
set polomka = rand(1,100)
'<center><B><font color = maroon>Kitchen</font></B></center>'
if remkuhr = 0: '<center><img src="images\etogame\kuhr.jpg"></center>'
if remkuhr = 1: '<center><img src="images\etogame\kuhr2.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
set housrA = 1
set elektro += 1
if kransloman = 1:
	cla
	'You broke the crane, it is necessary to call a plumber'
	if Grisha = 0: act 'Call': dynamic $santehnik
	if Grisha > 0: act 'Call a plumber Grisha': dynamic $santehnikgr
	act 'Leave': gt 'korr'
	exit
	end
if polomka > 99 and santehnikDolg = 0: set kransloman = 1 & gt 'kuhr'
if posudomashina > 0:
	if dirttarelka > 0 and fairy >= dirttarelka:
		cltarelka += dirttarelka
		fairy -= dirttarelka
		dirttarelka = 0
		'Dishwasher washed the dirty dishes.'
		elseif fairy<dirttarelka:
		'Ended dishwashing liquid.'
		end
	end

if cltarelka > 0:
'<B><<cltarelka>></B> pieces of clean plates are stored in the cupboard.'
else
'<B><font color = red>You have no clean dishes left.</font></B>'
end
if dirttarelka > 0: '<B><<dirttarelka>></B> pieces of dirty dishes are lying in the sink. <a href="exec: dynamic $dirtarm ">Wash the dishes</a>.'
if fairy > 0:
'Next to the sink is dishwashing liquid, enough for <B><<fairy>></B> uses.'
else
'<B><font color = red>You have nothing to wash dishes with, you need to buy dishwashing liquid.</font></B>'
end
if eda > 0:
if cltarelka = 0 or edahot > 0:$edagot = ''
if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec: dynamic $edagotd ">Cook meal (0:30)</a>'
'In the refrigerator there''s food, good for <B><<eda>></B> servings. <<$edagot>>'
end
if edaD = 0 and eda = 0:
'<B><font color = red>The refrigerator is empty, nothing to eat at all.</font></B>'
end
if edaD > 0:
'The refrigerator contains healthy meals, good for <B><<edaD>></B> servings.'
end
if posudomashina > 0: 'The kitchen has a dishwasher.'

if edahot > 0: '<a href="exec: dynamic $edahotd ">A cooked meal is on the table (0:30).</a>'
if husband > 0 and husbandrink ! 10:
	if hour = 7 or hour = 17:
	'<a href="exec: gt ''husb'',''start'' ">Your husband is eating at the table.</a>'
	end
end

if pranik > 0:
'Cookies will be enough for <b><<pranik>></b> time.'
	act 'Have tea with cookies (0:15)':
	cla
	*clr
	minut += 15
	pranik -= 1
	set health += 30
	set manna += 100
	energy += 20
	water += 20
	fat += 50
	frost = 0
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	'You had tea with cookies. Sweet and very bad for your figure, but so good.'
	act 'Get up from the table': gt 'kuhr'
	end
end

if edaD > 0:
	act 'Eat diet food (0:30)':
	cla
	*clr
	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 20
	set edaD -= 1
		if energy >= 30:
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		'You gladly ate cooked food.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	act 'Get up from the table': gt 'kuhr'
	end
end

if fatdel > 0:
	act 'Take fat burners':
	cla
	*clr
	set fatdel -= 1
	set fat -= 25
	if fat < 0: fat = 0
	'You drank the fat burning capsule. These capsules are gradually and results will be seen immediately.'
	act 'Get up from the table': gt 'kuhr'
	end
end

	act 'Drink water':
	cla
	set minut += 5
		if water >= 20:
		'Water in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a glass of water.'
		set water += 20
		end
	act 'Get up from the table': gt 'kuhr'
	end

if husband > 0 and husbanday > 0 and huseatday ! day and eda >= 2:
	act 'Cook a meal for your husband and yourself, 2 servings (1:00)':
	cla
	*clr
	husband += 5
	set eda -= 2
	set minut += 60
	huseatday = day
	manna -= 25
	'<center><img src="images\pics\cook.jpg"></center>'
	'You prepare a meal for your husband and yourself.'
	act 'Leave the meal': gt 'kuhr'
	end
end

if lekarstvo > 0:
'You have <b><<lekarstvo>></b> tablets.'
	if sick > 0 and lekarday ! day:
		act 'Take a pill':
		cla
		*clr
		set minut += 5
		lekarday = day
		lekarstvo -= 1
		sick -= sick * 20/100
		set lekrand = RAND(0,8)
		if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
		if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
		if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
		if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
		if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
		if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
		if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
		if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
		if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
		'You took the pill'
		act 'Move away': gt 'kuhr'
		end
	end
end

if vitamin > 0:
'You have <b><<vitamin>></b> vitamin drinks.'
	if vitaminday ! day:
		act 'Drink Vitamins':
		cla
		*clr
		set minut += 5
		vitaminday = day
		vitamin -= 1
		frost = 0
		if KandidozOnce = 1: Kandidoz -= 2
		if GerpesOnce = 1: Gerpes -= 2
		if SifacOnce = 1 and Sifilis >= 10: Sifilis -= RAND(0,1)
		set skinvan += 1
		if skinvan = 20: set skinvan = 0 & set skin += 1
		'You drank a vitamin drink.'
		act 'Move away': gt 'kuhr'
		end
	end
end
if zoo >= 6:
	if husband > 0 and husbandrink ! 10:
		if hour = 7 and hour = 17:
			act 'Call <<$namesob>>':
				cla
				*clr
				set minut += 30
				'<center><img src="images\zoo\z1.jpg"></center>'
				'You call the dog and that the move pushes his wet nose between your legs and lick accepted.'
				if harakHusb = 0:
					set zoo += 1
					set horny = 0
					set orgasm += 1
					'"What''s he doing dear, stop him," cries the husband'
					'"I can not, try myself," you reply.'
					set husband -= 1
					'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
					'"Think of something." you reply, already slightly moaning with pleasure. <<$HusName>> begins to pace the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
					'"Oh my God, that he was going to do?" shrieked <<$husName>>, see attempts dog jump on you.'
					'"What you do not clear he wants to fuck me" you said.'
					'"Dear try again to free" pleaded husband.'
					act 'Try':
						cla
						*clr
						'<center><img src="images\zoo\z2.jpg"></center>'
						'You reluctantly start trying to push the dog and move away, but it appears to him backwards, and <<$namesob>> leans on you and all your weight is on. You feel his penis rubs against your thighs ischya hole.'
						if izvratH = 0:
							'"Oh my God, I can not look at it," cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
							end
						if izvratH = 1:
							'"Well get off of her," shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes Svetsik so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
							end
						act 'Allow':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
							end
						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down," you said.'
							'"Well dear, whatever you say."'
							act 'Finish': gt 'sitr'
							end
						end
					end
				if harakHusb = 1:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself," you reply.'
					if izvratH = 0:
						'<<$husName>> tries ottoschit dog but he growls and grins, then he goes to the bath and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
						'"I''ll take him now on euthanasia," said <<$husName>>'
						act 'Allow':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
							end
						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down," you said.'
							'"Okay, look itself, your dog."'
							act 'Finish': gt 'sitr'
							end
						end
					if izvratH = 1:
						set zoo += 1
						set bj += 1
						set swallow += 1
						set cumlip += 1
						'"Can not or do not want," said <<$husName>> smiling and continues to sit and watch as the dog licks you.'
						'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\zoo\z3.jpg"></center>'
							'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body, a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat you with nedvuhslyslennymi intentions.'
							'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
							'"I''ll take him now on euthanasia," said <<$husName>>'
							act 'Allow':
								set sobaka = 0
								set zoo = 0
								gt 'sitr'
								end
							act 'Not authorized':
								cla
								'"No, dear, he is not guilty, he has instincts, besides from trying so hard," you said.'
								'"Well, if he was trying so hard you can thank him" ironically husband.'
								act 'Jerk dog':
									cla
									*clr
									set husband -= 1
									'<center><img src="images\zoo\z6.jpg"></center>'
									'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'
									act 'Finish': gt 'sitr'
									end
								act 'Suck dog':
									cla
									*clr
									set swallow += 1
									set husband -= 40
									'<center><img src="images\zoo\z7.jpg"></center>'
									'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
									'"Well, you''re a pervert," the husband says with obvious distaste.'
									act 'Finish': gt 'sitr'
									end
								act 'Finish': gt 'sitr'
								end
							end
						end
					end
				if harakHusb = 2:
					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
					'"I can not, try myself," you reply.'
					if izvratH = 0:
						set manna -= 15
						set willpower -= 15
						'<<$HusName>> trying ottoschit dog, but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, did not have time to climb dog as man begins to kick harder, seeing his condition, you scored in angle and covering his head with hands close your eyes. A few minutes later the dog stops.'
						'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
						'"Well, what froze shalt say to you, I do this on the trash Dogmeat''ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
						act 'Finish':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
							end
						end
					if izvratH = 1:
						set zoo += 1
						set bj += 1
						set swallow += 1
						set cumlip += 1
						set SUB += 2
						'"What do you mean I can not, that you like the way he licks you," shouts <<$husName>>.'
						'"No, of course you do not," you begin to make excuses.'
						'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him," he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\zoo\z4.jpg"></center>'
							'<<$husName>> grabs a dog by the collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding his lust take by mouth and takes dick dog suck, husband watching you and cheers saying that the dog loved your mouth. Soon he was bored just watch and he dropped his pants says "Well Spreads legs."'
							act 'Allow':
								cla
								*clr
								set suprdolg += 1
								set sex += 1
								set anal += 1
								'<center><img src="images\zoo\z5.jpg"></center>'
								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you''re not trying, as well, cup your point."'
								act 'Substitute ass':
									cla
									*clr
									set analorgasm += 1
									set orgasm += 1
									set horny = 0
									'<center><img src="images\zoo\z8.jpg"></center>'
									'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
									act 'Finish': gt 'sitr'
									end
								end
							end
						end
					end
				end
			else
			act 'Call <<$namesob>>': gt 'soba', 'zoof27'
			end
		end
	if husband = 0 or husbandrink = 10:
		act 'Call <<$namesob>>': gt 'soba', 'zoof27'
		end
	end

if musor > 3 and nude = 1: act 'Discarded rubbish':'I can not go to the trash naked!'
if musor > 3 and nude = 0: act 'Discarded rubbish': gt 'trashplace'

if dildo > 0 and horny >= 50:
	act 'Masturbate':
		cla
		*clr
		set minut += 30
		set mastr += 1
		set manna += 15
		set willpower += 15
		set vagina += 1
		if husband > 0 and husbandrink ! 10:
			if week > 5 or week < 6 and hour > 16:
				cla
				*clr
				'<center><img src="images\img\hasb\m1.jpg"></center>'
				'You climb up on the table and enter dildo their pussy'
				if hour = 7 or hour = 17: '<<$husName>> looks at you, obviously a little dumbfounded.'
				if hour ! 7 or hour ! 17: 'Once you get a taste of how the kitchen is included <<$husName>>'
				if harakHusb = 0:
					'"What are you doing dear?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					'"And often you do that," he asks.'
					'"Owned so often, less often in the ass, if you want to see?" you asked'
					if izvratH = 0:
						set husband -= 1
						'"I''ll wait outside the door until you''re done," he said and left. You continued to satisfy themselves rapidly and soon finished.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'kuhr'
						end
					if izvratH = 1:
						'"Well, I do not know," he stammered.'
						'"So you want" you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m2.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as a dildo in your ass disappears and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"Can I join?" a little embarrassed he asks.'
							act 'Solve':
								cla
								*clr
								set analorgasm += 1
								set orgasm += 1
								set horny = 0
								'<center><img src="images\img\hasb\m3.jpg"></center>'
								'<<$husName>> gets dick and starts masturbating, it is not what you expected, and at first you even felt a little sad that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at the way you drive the dildo his popkui be covered and you pleasure, you screamed and fell to the table, having experienced an orgasm, dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you took the dildo from ass and began to lick it, looking into the eyes of her husband, from such a spectacle he immediately discharged onto the floor. You are drawn to him sticking out his lips, in a second he had passionately kissed you.'
								act 'Finish': gt 'kuhr'
								end
							end
						end
					end
				if harakHusb = 1:
					'"That''s a number I mean you is not enough?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					'"Well then, show me everything that you know how I''ll look," he says.'
					'"And how do I do it in the ass, too, to show?" you asked'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"No, do not, and yet that''s enough," he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
						'"For such a lovely audience anything, but only after the intermission," you laughed. <<$husName>> helped you get down from the table.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'kuhr'
						end
					if izvratH = 1:
						set husband += 1
						'"And how is it necessarily demonstrate" he said.'
						'"Anything you want," you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m2.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as a dildo in your ass disappears and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"I do not just want to but I''ll do," he said, unbuttoning his pants and substitute member of your face.'
							act 'Take by mouth':
								cla
								*clr
								'<center><img src="images\img\hasb\m4.jpg"></center>'
								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I''ll take this hole."'
								act 'Substitute ass':
									set picrand = 87
									gt 'sex','anal'
									end
								end
							end
						end
					end
				if harakHusb = 2:
					'"What hole itching?" he asks.'
					'"I''m sorry dear, but I really need, and you''ve been busy," you reply, without stopping to masturbate.'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"Well then, open your mouth," he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I''m going to fuck you"'
						act 'Spread her legs':
							set picrand = 87
							gt 'sex','vag'
							end
						end
					if izvratH = 1:
						set SUB += 1
						set husband += 1
						'"Insert this crap myself in the ass and mash, I''ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\img\hasb\m4.jpg"></center>'
							'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point, but this crap yourself in pussy shove, as if you were in a two-barrel fuck"'
							act 'Substitute ass':
								set picrand = 87
								gt 'sex','anal'
								end
							end
						end
					end
				else
				set horny = 0
				set orgasm += 1
				'<center><img src="images\pics\mastr.gif"></center>'
				'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
				act 'Breath.': gt 'kuhr'
				end
			else
			set horny = 0
			set orgasm += 1
			'<center><img src="images\pics\mastr.gif"></center>'
			'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
			act 'Breath.': gt 'kuhr'
			end
		end
	end
--- kuhr ---------------------------------

# korr
ACT 'The bedroom':
	gt 'bedr'
END
ACT 'The bathroom':
	gt 'vanr'
END
ACT 'The kitchen':
	gt 'kuhr'
END
ACT 'The hall':
	gt 'sitr'
END
ACT '<font color = maroon>Apartment hallway</font>':
	cls
	if sick <= 72 and nude = 0:
	xgt 'etoexhib','pos51'
	elseif nude = 0:
	'<B><font color = red>You''re too sick to walk around in the streets.</font></B>'
	xgt $curloc
	else
	'<B><font color = red>You need to get dressed before going out.</font></B>'
	xgt $curloc
	end
END
ACT '<B><font color = maroon>Go outside</font></B>':
	cls
	if sick <= 72 and nude = 0:
	xgt $HouseLocation
	elseif nude = 0:
	'<B><font color = red>You''re too sick to walk around in the streets.</font></B>'
	xgt $curloc
	else
	'<B><font color = red>You need to get dressed before going out.</font></B>'
	xgt $curloc
	end
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
set popolaini = 0
set saunaYouRoom = 0
set boycherdaksex = 0
'<center><B><font color = maroon>Corridor</font></B></center>'
if remkorr = 0: '<center><img src="images\etogame\korr.jpg"></center>'
if remkorr = 1: '<center><img src="images\etogame\korr2.jpg"></center>'
clr
gs 'stat'
bonusZ = 0
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
set housrA = 1
set housrMir = 0
set elektro += 1
if ring = 1: '<B><font color = red>The phone is ringing</font></B>'
if remkorr = 0: 'In the hallway wallpaper which where moved away from the walls, and has long faded. A coat rack and a shelf for shoes are near the entrance. A wall-mounted <a href="exec: GT ''mirror'',''start''">mirror</a> and a <a href="exec:GT ''telefon'',''start''">phone</a> hang on the wall.'
if remkorr = 1: 'Modern hall with stylish furniture, a wall-mounted <a href="exec: GT ''mirror'',''start''">mirror</a>, and a <a href="exec:GT ''telefon'',''start''">phone</a>'
if suhbelo > 0: 'Drying on the clothesline are <<suhbelo>> laundry items.'
if umbrella > 0: 'An umbrella hangs on a hook.'
if palto > 0: 'Hanging on the hook <<$palto>>.'
if sobaka = 1: 'Near the entrance to the bedroom rests your dog <a href="exec: GT ''soba'',''start''"><<$namesob>></a>.'
if krolik = 1: 'Resting on the floor your rabbit <a href="exec: GT ''krol'',''start''"><<$namekrol>></a>.'
if popugai = 1: 'In the cage sits your parrot <a href="exec: GT ''popu'',''start''"><<$namepopu>></a>.'
if parkday ! day and parkblackmail = 1:
	'A heavy envelope has arrived in the mail. When you open it you can see pictures in it. Damn, it''s pictures of you where you are giving blowjobs to two guys in the park.'
	'Small note says:'
	'If you do not want to have these pictures posted on your porch and sent to your work, come to this address (address listed is a Studio)'
	'PS, if you do not come today, these pictures will be hanging in your entryway tomorrow.'
	Set parkblackmail = 2
	Set parkday = day
	end

if parkday ! day and parkblackmail = 2:
'Damn, your photos with sperm on your face and two dicks in your mouth are plastered around porch.'
Set parkblackmail = 0
fotoyousuck = 1
end

if bfA < 0:
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
set bfA = 0
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyA:
set ring = 1
set ringA = 1
'<B><font color = red>The phone is ringing</font></B>'
end
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyB:
set ring = 1
set ringB = 1
'<B><font color = red>The phone is ringing</font></B>'
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyC:
set ring = 1
set ringC = 1
'<B><font color = red>The phone is ringing</font></B>'
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyA:
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
set bfA = 0
end
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyB:
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
set bfB = 0
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyC:
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
set bfC = 0
end

if vladimirday ! day and vladimirQW = 20 and hour >= 15 and hour <= 17: '<a href="exec: GT ''qwloc2''"><font color = red><B>The phone is ringing</B></font></a>.'
if vladimirday ! day and vladimirQW = 25 and hour >= 15 and hour <= 17 and week = 6: '<a href="exec: GT ''qwloc3''"><font color = red><B>The phone is ringing</B></font></a>.'
if vladimirday ! day and vladimirQW = 35 and hour >= 15 and hour <= 17 and week = 6: '<a href="exec: GT ''qwloc4''"><font color = red><B>The phone is ringing</B></font></a>.'
if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12: '<a href="exec: GT ''qwlocdog''"><font color = red><B>The phone is ringing</B></font></a>.'

if bfA = 1 or bfB = 1 or bfC = 1:
	if bfA = 1 and boydayA ! day and hour > 5 and hour < 20 and ringA = 0:
		if bfb = 1: set bfb = 0
		if bfc = 1: set bfc = 0

		if vnesh < vneshBoyA:
		'Your boyfriend has not called you.'
		set bfA = 0
		end

		if vnesh >= vneshBoyA:
		set ring = 1
		set ringA = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end
	if bfB = 1 and boydayB ! day and hour > 5 and hour < 20 and ringB = 0:
		if bfa = 1: set bfa = 0
		if bfc = 1: set bfc = 0

		if vnesh < vneshBoyB:
		'<<$boyB>> did not call back.'
		set bfB = 0
		end

		if vnesh >= vneshBoyB:
		set ring = 1
		set ringB = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end
	if bfC = 1 and boydayC ! day and hour > 5 and hour < 20 and ringC = 0:
		if bfa = 1: set bfa = 0
		if bfb = 1: set bfb = 0

		if vnesh < vneshBoyC:
		'Your boyfriend has not called you.'
		set bfC = 0
		end

		if vnesh >= vneshBoyC:
		set ring = 1
		set ringC = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end

end

if hour >= 9 and hour <= 20 and santehnikDolg > 0 and money >= santehnikDolg:
'<B><font color = red>, the doorbell rings</font></B>'
	act 'Go to the door':
	cls
	gs 'stat'
	'You went to the door and looked through the peephole. You see a dark male figure. Apparently the man heard you and said through the door. "It''s me. Plumber Grisha. You''ll need money."'
		act 'Answer the door':
		cls
		money -= santehnikDolg
		santehnikDolg = 0
		gs 'stat'
		'You opened the door and plumbing Gregory smiled. "I thought you were hiding from me now will. Well? There is nothing to pay?" You nodded and climbed for his wallet. Counting half thousand you gave the money he Dwarf and put them in his pocket. Then you said goodbye and left.'
		act 'Close the door': gt $curloc
		end
	end
end

if IvanPodstavaQW = 3 and hour >= 9 and hour <= 20:
cls
IvanPodstavaQW = 4
	if DolgRS <= moneySUM:
	money = moneySUM - 650000
	karta = 0
	stolmoney = 0
	minut += 120
	'For you police patrol arrived and took you to court. You have managed to pay off its debt and you were released to reconcile the parties.'
	act 'Get out of the courthouse': gt 'down'
	end
	if DolgRS > moneySUM:
	DolgRS = 650000 - moneySUM-60000
	money = 0
	karta = 0
	stolmoney = 0
	age += 5
	vidage += 7
	year += 5
	money = 2000

	'For you police patrol arrived and took you to court. At trial, you were given five years of general regime, is obliged to pay debt <<DolgRS>>.'
		act 'Sit on the area':
		cls
		srok_kolvo = 1
		srok_otsidki += 5
		salo = 10
		fat = 10
		curly = 0
		mop = 1
		skin = 0
		tan = 0
		leghair = 6
		lobok = 3
		bfa = 0
		narkoman = 0
		nark = 0
		SLomka = 0
		work = 0
		workKafe = 0
		workhosp =0
		worksalon =0
		tanwork =0
		workSec =0
		stipuha =0
		preg = 0
		young_shop_work = 0
		set student = 0
		set kurs = 0
		set semestr = 0
		set abiturient = 0
		set stipuha = 0
		set lektor = 0
		gs 'stat'
		'Time dragged on too long. Your life and work was tedious and monotonous. You sewed quilted five years, had dinner in the dining room and went to sleep in the barracks surrounded by other women inmates. With your salary of 2,000 rubles per month in 1000 listed on the debt repayment. But time does not stand still and still came an end to your suffering. You let go and gave 2,000 rubles. You took the train and came back to the city.'
		act 'Get off the train': gt 'vokzal'
		end
	end

exit
end

if IvanPodstavaDay ! day and IvanPodstavaQW = 1 and hour >= 8 and hour <= 20:
'<B><font color = red>, the doorbell rang</font></B>'
	act 'Come to the door':
	cls
	gs 'stat'
	'You came to the door and looked through the peephole. On the site you saw a few men. In the darkness you have seen them on their caps. One of the men said to you through the door. <<$name>> <<$surname>> open, police.'
		act 'Answer the door':
		cls
		minut += 60
		IvanPodstavaQW = 2
		gs 'stat'
		'You opened the door to police wondering what they need from you. In the room were several men in uniform and with them several men in civilian clothes. Lean and skinny guy with stubble week and a pistol in a holster on a belt tied armpit said. "Understood, take your seats. Who will search in the apartment of the citizen who is accused of stealing." The investigator turned to you. "That´s a warrant for your arrest, this, this search warrant. Could you read it." Policemen full searched your apartment. Soon, one of them came out and said. Here are found the keys, according to the description it is just the keys to the office and the safe where the money was stolen. Witnesses signed the protocol that gave them the investigator. He frowned at you and nodded policeman, who started your hands behind your back and your wrists snap handcuffs.'
			act 'Go with the police':
			cls
			minut += 60
			gs 'stat'
			'Brought you out of the house in handcuffs and put in a police UAZ. After, steel doors slam and UAZ car started shaking and growling at each bump. Finally you have arrived somewhere and you taking from UAZ performed in the office to have a friend you investigator. He took off the handcuffs and offered you a seat. You took a hard and uncomfortable chair, and an investigator in the meantime turned on the TV and put a video cassette. On the screen was a picture of a security camera in bystroeshke. There was visible corridor. Soon appeared in the corridor you. You came to the door and opened it entered the office. After a while, the door opened and you are out of the office with a thick envelope. Investigator turned a VCR tape and pulled, after which he put another tape. On the next cabinet drawer was Anatoly Chubais. The front door opened and it included you, holding keys in hand. You went to the safe and opened it with the key. Got envelope. <<$burgerIvanText>>. Investigator turned the TV off and pulled out a plastic bag with table keys. He threw them on the table, and finally spoke. "Tests showed it really the keys to the office and the safe owner bystroezhki. During the search they were found in your apartment. Surveillance cameras on the record clearly shows how you entered the office and stole 650 thousand." He took out the protocol and taking pen in hand began to write. Filled a slate floor, he raised his dark eyes on you and said. "Confession will help you in court. All the same, it is the first time and provided that you return the money, you may be given a suspended sentence, if you admit your guilt."'
			act 'Sign recognition':
				cls
				minut += 60
				gs 'stat'
				'You sign a confession and an investigator barked "duty." Policeman entered the room. The investigator nodded showing him you get her.'
				act 'Go': gt 'kameraKPZ'
				end
				act 'Tell how it was':
				cls
				minut += 60
				gs 'stat'
				'You were telling the investigator how everything was. As a manager Ivan Framed you. But the investigator listened to you in half an ear. Finally, he slammed his fist on the table and yelled at you, "I was not born yesterday, that would feed me such nonsense: If you will not cooperate, I´ll rot!" Policeman entered the room. The investigator nodded showing him you get her.'
				act 'Go': gt 'kameraKPZ'
				end
			end
		end
	end
exit
end

if gopstop > 30: gt 'police','1'


if sick > 0 and doktorday ! day:
	!'act 'Вызвать врача':
	cla
	*clr
	set minut += 15
	doktorday = day
	sick -= 5
	if sick < 1: sick = 1
	if sickstage = 1: sicktimer += 5
	'Has come to you from the clinic and the doctor examined you. After examination, the doctor made a shot and you will become easier.'
	act 'Move away': gt 'korr'
	end'

	act 'Call a physician': doktorday = day & dynamic $polidin
end

$ninel0 = {
cla
*clr
'<center><img src="images\inBed\ninel00.jpg"></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim suitcase in hand.'
'(You) - Hello, doctor'
'(Doctor) - Hello. My name is Ninel P. - I replaces your local therapist. Where the patient?'
'(You) - This is me ... kha-kha-kha.'
'(Doctor) - Clear. Then come - you need to go back to bed.'
	act 'Pursue a doctorate in the bedroom and lay down':
	cla
	*clr
	set ninelmet = 1
	'<center><img src="images\inBed\nadom0.jpg"></center>'
	'The doctor sat on the edge of your bed and sprsil:'
	'(Doctor) - On that complain of <<$name>>? Can I call you that?'
	'(You) - Of course ... Ahem, ahem, ahem ... Oh, Doctor, perhaps I have the flu - cough just kills and very sore throat. And the temperature is high.'
	'(Doctor) - Runny nose is? Headaches? Aching bones?'
	'(You) - Yes. A Aptchee and!'
	'(Doctor) - Now I will examine you. Undress.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\inBed\nadom1.jpg"></center>'
		'You undressed and the doctor listened to your lungs for a long time. Her hands are cool and gentle touch and caress like a stethoscope ...'
		'(Doctor) - Yes, wheezing ... Now open your mouth. That´s because - "ah-ah-ah" ...'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\ninel03.jpg"></center>'
			'You opened your mouth and the doctor examined your sore throat'
			'(Doctor) - Hmmm ... throat strongly reddened and inflamed ... Now we need to measure the temperature.'
				act 'Stick a thermometer in her mouth':
				cla
				*clr
				'<center><img src="images\inBed\ninel04.jpg"></center>'
				'(Dr.) No, not so. Temperature should be measured rectally.'
				'(You) - Uh-uh ...'
				'(Doctor) - Do not be afraid, <<$name>>, is not painful.'
				'(You) - Well if you´re sure ...'
				'(Doctor) - I´m sure. Come on - lie down on his stomach and spread your hands buttocks.'
					act 'Substitute ass':
					cla
					*clr
					set minut += 10
					set horny += 10
					clr
					gs 'stat'
					'<center><img src="images\inBed\nadom2.jpg"></center>'
					'You obediently roll over and substitute ass. Dr. lubricates your anus lubricated and deftly introduces a thermometer. You flinch, but not from pain and pleasure. Doctor leaves just stick a thermometer in your ass and slowly moves it back and forth and it´s very nice. You feel the growing excitement.'

						if horny >= 50:
							act 'Moan with pleasure':
							cla
							*clr
							'<center><img src="images\inBed\nadom3.jpg"></center>'
							'Doctor takes the thermometer out of your buttocks and checks'
							'(Dr.) 39.2 ... Very bad. Please turn on your back - you need to palpate the lymph nodes.'
								act 'Roll over on his back':
								cla
								*clr
								set minut += 15
								set horny += 10
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom5.jpg"></center>'
								'The doctor began to stroke and knead your stomach and thighs. You are not sure that this is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.'
								'Excitement, meanwhile, is growing all, you feel like your pussy moistened and begins to whine sweet ...'
									act 'A blush of embarrassment':
									cla
									*clr
									set horny += 15
									!set time += 15
									clr
									gs 'stat'
									'<center><img src="images\inBed\nadom6.jpg"></center>'
									'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									'(You) - Doctor, what are you doing! - At the same time embarrassed, outraged and frightened screams you.'
									'(Doctor) - Flying you, silly. I feel the magic in you, which means you´re one of us, and I can use his power quietly.'
									'(You) - So you´re a magician, too?'
									'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
									'(You) - No, I do not remember ...'
									'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
									'(You) - So ..?'
									'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
									'(You) - And what in return?'
									'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
									'(You) - Then of course - I agree.'
										act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
									end
								end
							end
						end

						act 'Indignant':
						cla
						*clr
						'<center><img src="images\inBed\nadom3.jpg"></center>'
						'(You) - Doctor, what are you doing?'
						'Doctor takes the thermometer out of your buttocks and calmly replied:'
						'(Doctor) - measures your temperature. 39.2 - very bad.'
							act 'Doctor, what with me?':
							cla
							'(You scared) - Doctor, what with me?'
							'(Dr.) Do you really flu. Now I´ll give you an injection of antibiotic and antipyretic, and you will feel better.'
								act 'Lie on your stomach and bare ass':
								cla
								*clr
								set minut += 10
								set sick -= 2
								set lekar += 3
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom4.jpg"></center>'
								'The doctor did give you a shot in the ass - you cried'
								'(Doctor) - Just about everything, everything is. You prescribe bed rest, hot drinks, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
								'(You) - Thank you, Doctor - is necessary.'
								'Doctor said goodbye and left.'
									act 'Back to bed': gt 'bedr'
								end
							end
						end

						act 'Doctor, what with me?':
						cla
						'(You scared) - Doctor, what with me?'
						'(Doctor) - I´m afraid that you have angina, <<$name>>. I would advise you to inpatient treatment'
						'(You) - What´s that - in the hospital, or what?'
						'(Doctor) - Yes'

							act 'Refuse':
							cla
							*clr
							'(You sobbing) - Oh, Doctor, I do not want to the hospital ...'
							'(Doctor, thoughtfully) - Well ... I guess it is still possible. Then I´ll give you a couple of shots - to start ...'
							'(You) - Oh, thank you, doctor!'
								act 'Lie on your stomach and bare ass':
								cla
								set minut += 15
								set horny = 100
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom9.jpg"></center>'
								'The doctor made a few jabs you in the ass, and you suddenly enveloped incredible sexual arousal. Between her thighs you like the fire started, sweet pussy ached and flowed, grew heavy chest, nipples harden and solidify ...'
								'(You) - Doctor, what´s happening? - Screams frightened and embarrassed you, but your voice treacherously breaks on voluptuous moan'
								'(Doctor) - Yeah! I knew it - I can feel the magic in you, which means you´re one of us, and I can use his power quietly.'
								'(You) - So you´re a magician too!.'
								'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
								'(You) - No, I do not remember ...'
								'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
								'(You) - So ..?'
								'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
								'(You) - And what in return?'
								'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
								'(You) - Then of course - I agree.'
									act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
								end
							end
						end
					end
				end
			end
		end
	end
}

$drPP = {
cla
*clr
'You open the door. Standing in the doorway of an elderly bald man with a suitcase in hand meitsinskim.'
'(You) - Kha-kha ... Hello, Doctor'
'(Doctor) - Hello, sick - I´m Peter, your local therapist. Go back to bed - do not stand in the draft.'
	act 'Hold a doctorate in the bedroom.':
	cla
	*clr
	'<center><img src="images\inBed\drPP1.jpg"></center>'
	'You have returned to the bedroom with a doctor. He sat on the edge of the bed and felt your forehead'
	'(Doctor) - Well, the patient, to complain that?'
	'(You) - Ahem, ahem, ahem ... Oh, Doctor, perhaps, I have a sore throat - very sore throat and high temperature.'
	'(Doctor) - And cough, as I see it. And judging by your voice, you have a nose, sick, laid.'
	'(You) - Yes. A Aptchee and!'
	'(Doctor) - Well, the sick, you hear Dwight. Undress.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		clr
		gs 'stat'
		'<center><img src="images\inBed\drPP2.jpg"></center>'
		'You undressed and Dr. vysnushival long your lungs'
		'(Doctor) - So, sir. Now let´s look at the neck. Open your mouth wide and say "Ah-ah"'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\drPP3.jpg"></center>'
			'You opened your mouth and your doctor looked red sore throat'
			'(Doctor) - Ay-ay-ay ... How is it you do that? Should be tempered, ill - tempered. Well, let´s measure your temperature.'
				act 'Put the thermometer armpit':
				cla
				*clr
				'<center><img src="images\inBed\drPP4.jpg"></center>'
				'The doctor looked at the thermometer and shook his head'
					act 'Doctor, what with me?':
					cla
					'(Dr.) Do you have the flu, sick. Do not worry - I´ll give you a shot and you´ll feel better soon. Soak a couple of days in bed, drinketh drugs, and it becomes easier - to see me'
						act 'Substitute ass':
						cla
						*clr
						set minut += 10
						set sick -= 2
						lekarstvo += 3
						gs 'stat'
						'<center><img src="images\inBed\drPP5.jpg"></center>'
						'The doctor did give you a shot in the ass - you cried'
						'(Doctor) - Well, well, sick, do not worry. And remember - bed rest, regular meals and medication. And do not forget to come to the reception.'
						'(You) - Thank you, Doctor - is necessary.'
						'Doctor said goodbye and left, and you venules in bed.'
							act 'Back to bed': gt 'bedr'
						end
					end
				end
			end
		end
	end
}

$polidin = {
cla
*clr
set minut += 15
set callrand = RAND(0,2)
if callrand = 0: '<center><img src="images\inBed\housecall.jpg"></center>'
if callrand = 1: '<center><img src="images\inBed\housecall1.jpg"></center>'
if callrand = 2: '<center><img src="images\inBed\housecall2.jpg"></center>'
'You dial the number several times clinics - there all the time busy.'
	act 'Call again and again':
	cla
	'Finally, you´ve reached. Tired voice tube nurse replied:'
	'(Nurse) - Hello - reception ...'
		act 'Hello ...':
		cla
		'(You) - Hello. Cough-cough ... Can I call a doctor to the house?'
		'(Nurse) - Your name and address?'
			act 'Introduce':
			cla
			'(You) - Mi ... Kha-kha! Sorry ... <<$name>> <<$surname>>. Park Street apartment house 4 69 ... Aa-and-pchhi!'
			'(Nurse) - It´s okay. Wait a minute.'
				act 'Wait':
				cla
				set minut += 5
				clr
				gs 'stat'
				'You wait five minutes, occasionally coughing into the phone and finally hear:'
				'(Nurse) - So - <<$name>> <<$surname>>. here is your card ... What are you worried?'
				'(You) - Kha-kha-kha ... I´m sorry ... I have a fever and sore throat very. And cough and runny nose.'
				'(Nurse) - high temperature?'
				'(You) - Yes, very - 39.2 ... Aa-pchhi!'
				'(Nurse) - Right. Wait - the doctor will come to you.'
				'(You) - A soon?'
				'(Nurse) - As soon as he can. Your challenge - not unique.'
				'(You) - Save ... Kha-kha! Thank you ... ...'
					if ninelsex = 1:
						act 'Is it possible to cause Ninel Pavlovna?':
						cla
						'(You) - Is it possible to cause Ninel Pavlovna? She regularly osmatrivat me.'
						'(Nurse) - I´ll see if she is free.'
						'(You) - Once again, thank you.'
						act '...': gt 'housecall','ninel3'
						end
					end

					act 'Back to bed':
					cla
					*clr
					set picrand = RAND(0,6)
					if picrand = 0: '<center><img src="images\inBed\sick27.jpg"></center>'
					if picrand = 1: '<center><img src="images\inBed\sick21.jpg"></center>'
					if picrand = 2: '<center><img src="images\inBed\sick22.jpg"></center>'
					if picrand = 3: '<center><img src="images\inBed\sick23.jpg"></center>'
					if picrand = 4: '<center><img src="images\inBed\sick24.jpg"></center>'
					if picrand = 5: '<center><img src="images\inBed\sick25.jpg"></center>'
					if picrand = 6: '<center><img src="images\inBed\sick26.jpg"></center>'
					set timerand = RAND(0,5)
					if timerand = 0: set minut += 30
					if timerand = 1: set minut += 60
					if timerand = 2: set minut += 90
					if timerand = 3: set minut += 120
					if timerand = 4: set minut += 150
					if timerand = 5: set minut += 180
					'You are lying in bed, shivering in the chill and wrapped in a blanket. Time passes excruciatingly slow - you can not tell how much time passed before the doorbell rang.'
						act 'Answer the door':
						if ninel > 0 and sick <= 50: gt 'housecall','ninel1'
							if ninel = 0 or sick > 50:
							set doctrnd = RAND(0,1)
							if doctrnd = 0: dynamic $drPP
							if doctrnd = 1: gt 'housecall','ninel0'
							end
						end
					end
				end
			end
		end
	end
}
--- korr ---------------------------------

# housecall
if $ARGS[0] = 'ninel0':
cla
*clr
'<center><img src="images\inBed\ninel00.jpg"></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim suitcase in hand.'
'(You) - Hello, doctor'
'(Doctor) - Hello. My name is Ninel P. - I replaces your local therapist. Where the patient?'
'(You) - This is me ... kha-kha-kha.'
'(Doctor) - Clear. Then come - you need to go back to bed.'
	act 'Pursue a doctorate in the bedroom and lay down':
	cla
	*clr
	set ninelmet = 1
	'<center><img src="images\inBed\nadom0.jpg"></center>'
	'The doctor sat on the edge of your bed and sprsil:'
	'(Doctor) - On that complain of <<$name>>? Can I call you that?'
	'(You) - Of course ... Ahem, ahem, ahem ... Oh, Doctor, perhaps I have the flu - cough just kills and very sore throat. And the temperature is high.'
	'(Doctor) - Runny nose is? Headaches? Aching bones?'
	'(You) - Yes. A Aptchee and!'
	'(Doctor) - Now I will examine you. Undress.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\inBed\nadom1.jpg"></center>'
		'You undressed and the doctor listened to your lungs for a long time. Her hands are cool and gentle touch and caress like a stethoscope ...'
		'(Doctor) - Yes, wheezing ... Now open your mouth. That´s because - "ah-ah-ah" ...'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\ninel03.jpg"></center>'
			'You opened your mouth and the doctor examined your sore throat'
			'(Doctor) - Hmmm ... throat strongly reddened and inflamed ... Now we need to measure the temperature.'
				act 'Stick a thermometer in her mouth':
				cla
				*clr
				'<center><img src="images\inBed\ninel04.jpg"></center>'
				'(Dr.) No, not so. Temperature should be measured rectally.'
				'(You) - Uh-uh ...'
				'(Doctor) - Do not be afraid, <<$name>>, is not painful.'
				'(You) - Well if you´re sure ...'
				'(Doctor) - I´m sure. Come on - lie down on his stomach and spread your hands buttocks.'
					act 'Substitute ass':
					cla
					*clr
					set minut += 10
					set horny += 10
					clr
					gs 'stat'
					'<center><img src="images\inBed\nadom2.jpg"></center>'
					'You obediently roll over and substitute ass. Dr. lubricates your anus lubricated and deftly introduces a thermometer. You flinch, but not from pain and pleasure. Doctor leaves just stick a thermometer in your ass and slowly moves it back and forth and it´s very nice. You feel the growing excitement.'
						if horny >= 50:
							act 'Moan with pleasure':
							cla
							*clr
							'<center><img src="images\inBed\nadom3.jpg"></center>'
							'Doctor takes the thermometer out of your buttocks and checks'
							'(Dr.) 39.2 ... Very bad. Please turn on your back - you need to palpate the lymph nodes.'
								act 'Roll over on his back':
								cla
								*clr
								set minut += 15
								set horny += 10
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom5.jpg"></center>'
								'The doctor began to stroke and knead your stomach and thighs. You are not sure that this is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.'
								'Excitement, meanwhile, is growing all, you feel like your pussy moistened and begins to whine sweet ...'
									act 'A blush of embarrassment':
									cla
									*clr
									set horny += 15
									set time += 15
									clr
									gs 'stat'
									'<center><img src="images\inBed\nadom6.jpg"></center>'
									'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									'(You) - Doctor, what are you doing! - At the same time embarrassed, outraged and frightened screams you.'
									'(Doctor) - Flying you, silly. I feel the magic in you, which means you´re one of us, and I can use his power quietly.'
									'(You) - So you´re a magician, too?'
									'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
									'(You) - No, I do not remember ...'
									'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
									'(You) - So ..?'
									'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
									'(You) - And what in return?'
									'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
									'(You) - Then of course - I agree.'
										act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
									end
								end
							end
						end

						act 'Indignant':
						cla
						*clr
						'<center><img src="images\inBed\nadom3.jpg"></center>'
						'(You) - Doctor, what are you doing?'
						'Doctor takes the thermometer out of your buttocks and calmly replied:'
						'(Doctor) - measures your temperature. 39.2 - very bad.'
							if sick < 48:
								act 'Doctor, what with me?':
								cla
								'(You scared) - Doctor, what with me?'
								'(Dr.) Do you really flu. Now I´ll give you an injection of antibiotic and antipyretic, and you will feel better.'
									act 'Lie on your stomach and bare ass':
									cla
									*clr
									set minut += 10
									set sick -= 2
									set lekar += 3
									clr
									gs 'stat'
									'<center><img src="images\inBed\nadom4.jpg"></center>'
									'The doctor did give you a shot in the ass - you cried'
									'(Doctor) - Just about everything, everything is. You prescribe bed rest, hot drinks, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
									'(You) - Thank you, Doctor - is necessary.'
									'Doctor said goodbye and left.'
										act 'Back to bed': gt 'bedr'
									end
								end
							end

							if sick >= 48:
								act 'Doctor, what with me?':
								cla
								'(You scared) - Doctor, what with me?'
								'(Doctor) - I´m afraid that you have angina, <<$name>>. I would advise you to inpatient treatment'
								'(You) - What´s that - in the hospital, or what?'
								'(Doctor) - Yes'
									!'act 'Согласиться':
									cla
									'(You sobbing) - Oh ... Kha-kha-kha ... If you think that you really need it ...'
									'(Doctor) - I´m afraid so - it is a serious disease ... But do not worry - we have a good hospital.'
									'(You) - Well, I agree.'
										act 'Go to hospital':
										cla
										*clr
										set minut += 120
										gt 'hospital','start'
										end
									end'

									act 'Refuse':
									cla
									*clr
									'(You sobbing) - Oh, Doctor, I do not want to the hospital ...'
									'(Doctor, thoughtfully) - Well ... I guess it is still possible. Then I´ll give you a couple of shots - to start ...'
									'(You) - Oh, thank you, doctor!'
										act 'Lie on your stomach and bare ass':
										cla
										set minut += 15
										set horny = 100
										clr
										gs 'stat'
										'<center><img src="images\inBed\nadom9.jpg"></center>'
										'The doctor made a few jabs you in the ass, and you suddenly enveloped incredible sexual arousal. Between her thighs you like the fire started, sweet pussy ached and flowed, grew heavy chest, nipples harden and solidify ...'
										'(You) - Doctor, what´s happening? - Screams frightened and embarrassed you, but your voice treacherously breaks on voluptuous moan'
										'(Doctor) - Yeah! I knew it - I can feel the magic in you, which means you´re one of us, and I can use his power quietly.'
										'(You) - So you´re a magician too!.'
										'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
										'(You) - No, I do not remember ...'
										'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
										'(You) - So ..?'
										'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
										'(You) - And what in return?'
										'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
										'(You) - Then of course - I agree.'
											act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'ninel1':
cla
*clr
'<center><img src="images\inBed\ninel10.jpg"></center>'
'Thank you in advance opened the door once again to not get up, so when the phone rang, you hoarse voice shouted:'
'(You) - Open! Kha-kha ... I´m in the bedroom!'
'Young cute girl with suitcase in hand meitsinskim passes into your bedroom and stopped beside the bed, carefully considering you'
'(You) - Hello, doctor'
'(Doctor) - Hello. My name is Ninel P. - I replaces your local therapist. This you call a doctor?'
'(You) - This is me ... kha-kha-kha.'
'(Doctor) - On that complain of <<$name>>? Can I call you that?'
	act 'Complain':
	cla
	*clr
	set ninelmet = 1
	'<center><img src="images\inBed\ninel11.jpg"></center>'
	'(You) - Of course ... Ahem, ahem, ahem ... Oh, Doctor, perhaps I have the flu - cough just kills and very sore throat. And the temperature is high.'
	'(Doctor) - Runny nose is? Headaches? Aching bones?'
	'(You) - Yes. A Aptchee and!'
	'The doctor sat on the edge of your bed and took you by the wrist, listening to the pulse.'
	'You thought of her fingers comes some power, but decided that it was you from the heat of imagining'
	'(Doctor) - Undress - let´s hear you.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\inBed\ninel12.jpg"></center>'
		'You undressed and the doctor listened to your lungs for a long time. Her hands are cool and gentle touch and caress like a stethoscope ...'
		'You feel the growing excitement'
		'(Doctor) - Rattling very unpleasant ... Now open your mouth. That´s because - "ah-ah-ah" ...'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\ninel03.jpg"></center>'
			'You opened your mouth and the doctor examined your sore throat'
			'(Doctor) - Yes ... throat strongly reddened and inflamed ... Now we need to measure the temperature.'
				act 'Stick a thermometer in her mouth':
				cla
				*clr
				'<center><img src="images\inBed\ninel04.jpg"></center>'
				'(Dr.) No, not so. Temperature should be measured rectally.'
				'(You) - Uh-uh ...'
				'(Doctor) - Do not be afraid, <<$name>>, is not painful.'
				'(You) - Well if you´re sure ...'
				'(Doctor) - I´m sure. Come on - lie down on his stomach and spread your hands buttocks.'
					act 'Substitute ass':
					cla
					*clr
					set minut += 10
					set horny += 10
					clr
					gs 'stat'
					'<center><img src="images\inBed\rectaltemp.jpg"></center>'
					'You obediently roll over and substitute ass. Dr. lubricates your anus lubricated and deftly introduces a thermometer. You flinch, but not from pain and pleasure. Doctor leaves just stick a thermometer in your ass and slowly moves it back and forth and it´s very nice.'
					'Do you feel that excited great - your breasts were filled with sweet and ached, and pussy wet.'
					'And yet - again you feel like the hands of Ninel distributed power'
						act 'Doctor, what´s happening?':
						cla
						*clr
						set minut += 10
						set horny += 10
						clr
						gs 'stat'
						'<center><img src="images\inBed\ninel13.jpg"></center>'
						'Ninel lies down next to you and starts to kiss and caress your frankly half-naked body.'
						'Are you confused and horrified by her behavior, but she was so gentle, and you are so excited that you simply can not resist. The only thing that you manage - is choking sprsit:'
						'(You) - Doctor, what are you doing? What´s going on?'
						'(Doctor) - A - felt! I knew immediately that you were one of us, and therefore I can use his power quietly.'
						'(You) - So you´re a magician, too?'
						'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
						'(You) - No, I do not remember ...'
						'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
						'(You) - So ..?'
						'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
						'(You) - And what in return?'
						'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
						'(You) - Then of course - I agree.'
							act 'Surrender weasel Ninel':
							cla
							*clr
							set minut += 10
							set horny += 10
							clr
							gs 'stat'
							'<center><img src="images\inBed\ninel14.jpg"></center>'
							'Ninel opens her robe, exposing beautiful breasts with nipples strained. You realize that she too excited.'
							'She caresses your breasts with her hands, then her lips, tugging and sucking nipples. You moan softly and it inflames it even stronger.'
							'Ninel lifts hem - underwear on it there - and runs fingers between her legs.'
								act 'Enjoy':
								cla
								*clr
								set minut += 10
								set horny += 10
								clr
								gs 'stat'
								'<center><img src="images\inBed\ninel15.jpg"></center>'
								'You groan under her caresses and Skills Ninel lips - oh my God! - Slide your body down and down ...'
								'Minute, and she crouches to your burning flowing juices pussy and her tongue goes into her wet depths'
								'You emit voluptuous scream, then another and another ... Waves of pleasure pierce your body trembles from the womb to the fingertips. You are incredibly good!'
								'Ah, Ah´s! More, more-oh-oh-oh! - Pray you.'
									act 'Change position':
									cla
									*clr
									set horny = 100
									set kuni += 1
									clr
									gs 'stat'
									'<center><img src="images\inBed\ninel16.jpg"></center>'
									'With a flick of Ninel leans forward and sits on top of you. You feel like her pussy juices flowing out of your rubs. You groan, his hands clench elastic buttocks doctors and hold her. Stronger! Even stronger! About - what bliss!'
									'Ninel rubs against you faster, powerful, almost masculine tolchkakmi, voluptuously groaning with every movement - it´s crazy!'
									'- Oh, <<$name>>, <<$name>>! - Doctor exhales: - I want you so much! Caress me, weasel-ah-ah-ah!'
										act 'Caress Ninel':
										cla
										*clr
										set ninelsex += 1
										set lesbian += 1
										'<center><img src="images\inBed\ninel17.jpg"></center>'
										'You put on your knees and Ninel poke his fingers into her vagina inflamed. It flows so copiously that her fingers come in with a loud squelch.'
										'Doctor screams, flexes his magnificent ass ottopyrivaya itself is placed on your fingers. Her scent, her moans, her amazing body circling your head. You furiously fuck Ninel hand while she squirms under you and pleads:'
										'- Please do not stop! That´s it! That´s one-and-ak! Yes-ah! Oh yeah-ah!'
											act '...':
											cla
											*clr
											if ninelsex = 1: set girl += 1
											set orgasm += 1
											set sick = 0
											set horny = 0
											set health = vital * 10 + stren * 5 + 1000
											set willpower = intel * 5 + will * 5 + 1000
											set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
											clr
											gs 'stat'
											'<center><img src="images\inBed\ninel18.jpg"></center>'
											'You feel that you are about to explode and Ninel somehow understands this. She knocks you on your back and descends from above, dropping to your languishing pussy and substituting itself you my wet, with wide-open jaws, vagina.'
											'Without hesitation, you will again run into her fingers and start furiously nadrachivat her while wielding Ninel tongue between your legs. Another minute, and vagina doctors frantically squeezed out of it on your face, hands and splashed a thick white liquid. All Ninel body shakes in spasms, she muffled grunts, burying his tongue between your legs. You understand that it ends and it pulls like a spring'
											'You pierces stunning power orgasm. You shout from the incredible, almost unbearable pleasure, frantically bending, the third person of the perineum Ninel and ends - a long, painfully long. Orgasm lasts and lasts without end.'
												act 'Lie exhausted':
												cla
												*clr
												set minut += 30
												clr
												gs 'stat'
												'<center><img src="images\inBed\ninel19.jpg"></center>'
												'You go down on the bed in the sweet exhaustion, still hugging Ninel. She opusketsya close and gently kissed you, asks:'
												'(Ninel) - Well, how do you feel?'
												'(You) - Ooh ... Just perfect - you answer and only then realize how much you are right - the disease has disappeared, you are full health and a wonderful mood. A sweet bouquet exhaustion makes this even more pleasant sensations'
												'(Ninel) - Well, you see. It´s magic, baby. Mm-m ... You´re just a miracle - a long time I did not get so much pleasure from their magic. If you get sick again - just call me. Well, if you just want to spend your time - look for me in the clinic.'
												'You promised to be sure to find her, closed his eyes and fell asleep. While you were sleeping, Ninel quietly dressed and left.'
													act 'Sleep': gt 'bed2'
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'ninel2':
cla
*clr
set minut += 10
set horny += 10
clr
gs 'stat'
'<center><img src="images\inBed\ninel13.jpg"></center>'
'Ninel lies down next to you and starts to kiss and caress your frankly half-naked body.'
	act 'Surrender weasel Ninel':
	cla
	*clr
	set minut += 10
	set horny += 10
	clr
	gs 'stat'
	'<center><img src="images\inBed\ninel14.jpg"></center>'
	'Ninel opens her robe, exposing beautiful breasts with nipples strained. You realize that she too excited.'
	'She caresses your breasts with her hands, then her lips, tugging and sucking nipples. You moan softly and it inflames it even stronger.'
	'Ninel lifts hem - underwear on it there - and runs fingers between her legs.'
		act 'Enjoy':
		cla
		*clr
		set minut += 10
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\inBed\ninel15.jpg"></center>'
		'You groan under her caresses and Skills Ninel lips - oh my God! - Slide your body down and down ...'
		'Minute, and she crouches to your burning flowing juices pussy and her tongue goes into her wet depths'
		'You emit voluptuous scream, then another and another ... Waves of pleasure pierce your body trembles from the womb to the fingertips. You are incredibly good!'
		'Ah, Ah´s! More, more-oh-oh-oh! - Pray you.'
			act 'Change position':
			cla
			*clr
			set horny = 100
			set kuni += 1
			clr
			gs 'stat'
			'<center><img src="images\inBed\ninel16.jpg"></center>'
			'With a flick of Ninel leans forward and sits on top of you. You feel like her pussy juices flowing out of your rubs. You groan, his hands clench elastic buttocks doctors and hold her. Stronger! Even stronger! About - what bliss!'
			'Ninel rubs against you faster, powerful, almost masculine tolchkakmi, voluptuously groaning with every movement - it´s crazy!'
			'- Oh, <<$name>>, <<$name>>! - Doctor exhales: - I want you so much! Caress me, weasel-ah-ah-ah!'
				act 'Caress Ninel':
				cla
				*clr
				set ninelsex += 1
				set lesbian += 1
				'<center><img src="images\inBed\ninel17.jpg"></center>'
				'You put on your knees and Ninel poke his fingers into her vagina inflamed. It flows so copiously that her fingers come in with a loud squelch.'
				'Doctor screams, flexes his magnificent ass ottopyrivaya itself is placed on your fingers. Her scent, her moans, her amazing body circling your head. You furiously fuck Ninel hand while she squirms under you and pleads:'
				'- Please do not stop! That´s it! That´s one-and-ak! Yes-ah! Oh yeah-ah!'
					act '...':
					cla
					*clr
					if ninelsex = 1: set girl += 1
					set orgasm += 1
					set sick = 0
					set horny = 0
					set health = vital * 10 + stren * 5 + 1000
					set willpower = intel * 5 + will * 5 + 1000
					set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
					clr
					gs 'stat'
					'<center><img src="images\inBed\ninel18.jpg"></center>'
					'You feel that you are about to explode and Ninel somehow understands this. She knocks you on your back and descends from above, dropping to your languishing pussy and substituting itself you my wet, with wide-open jaws, vagina.'
					'Without hesitation, you will again run into her fingers and start furiously nadrachivat her while wielding Ninel tongue between your legs. Another minute, and vagina doctors frantically squeezed out of it on your face, hands and splashed a thick white liquid. All Ninel body shakes in spasms, she muffled grunts, burying his tongue between your legs. You understand that it ends and it pulls like a spring'
					'You pierces stunning power orgasm. You shout from the incredible, almost unbearable pleasure, frantically bending, the third person of the perineum Ninel and ends - a long, painfully long. Orgasm lasts and lasts without end.'
						act 'Lie exhausted':
						cla
						*clr
						set minut += 30
						clr
						gs 'stat'
						'<center><img src="images\inBed\ninel19.jpg"></center>'
						'You go down on the bed in the sweet exhaustion, still hugging Ninel. She opusketsya close and gently kissed you, asks:'
						'(Ninel) - Well, how do you feel?'
						'(You) - Ooh ... Just perfect - you answer and only then realize how much you are right - the disease has disappeared, you are full health and a wonderful mood. A sweet bouquet exhaustion makes this even more pleasant sensations'
						'(Ninel) - Well, you see. It´s magic, baby. Mm-m ... You´re just a miracle - a long time I did not get so much pleasure from their magic. If you get sick again - just call me. Well, if you just want to spend your time - look for me in the clinic.'
						'You promised to be sure to find her, closed his eyes and fell asleep. While you were sleeping, Ninel quietly dressed and left.'
							act 'Sleep': gt 'bedr'
						end
					end
				end
			end
		end
	end
end



if $ARGS[0] = 'ninel3':
cla
*clr
set horny = 50
clr
gs 'stat'
'<center><img src="images\inBed\ninel20.jpg"></center>'
'You lie in bed and quietly waiting Ninel fingers caress her pussy to prepare herself for her coming, so when the bell rings you are ready.'
	act 'Come - open!':
	cla
	*clr
	'<center><img src="images\inBed\ninel21.jpg"></center>'
	'(You) - Come - open! - Wheezing you your sore throat and enters the room Ninel.'
	'(Ninel) - Hi, Svetsik. Again ill?'
	'(You coughed into his fist) - Yeah. I´ll fly?'
	'(Ninel) - Sure, baby. Undress - I´ll listen.'
	'(You) - Why? You´re a magician ...'
	'(Ninel laughs) - Silly. How could you not know much about magic. I´m must to know what will be treated, otherwise it will happen as the old song - make like a thunderstorm, and got a goat. Magic - the exact thing'
	'(You) - Here´s how ... Well then, of course.'
		act 'Undress':
		cla
		*clr
		set horny = 75
		clr
		gs 'stat'
		'<center><img src="images\inBed\ninel22.jpg"></center>'
		'You undress and Ninel hears your lungs. As usual, her arms are light and tender and touching her stethoscope on your chest swell sultry heat'
		'(Ninel) - Yes ... You again wheezing. And much. Temperature is high?'
		'(You) - A Aptchee and! Yes - 39.6 ...'
		'(Ninel) - Oh, you poor thing. Let´s Pomeroy.'
		'(You winking) - The usual?'
		'(Ninel smiling) - Well, no. You´re so excited and DRILLING measures - that and look over.'
		'(You) - Do u have ...'
		'(Ninel) - What - like it? A first feared ... Nothing - another time'
			act 'Trying temperature':
			cla
			*clr
			'<center><img src="images\inBed\ninel23.jpg"></center>'
			'Ninel looks at the thermometer and shakes his head:'
			'(Ninel) - Yes ... it´s bad. Do not worry - we can help it burn.'
			'She slowly pulls down your blanket ...'
				act 'Unbuttoning her robe Ninel':
				cla
				*clr
				set horny = 100
				clr
				gs 'stat'
				'<center><img src="images\inBed\ninel24.jpg"></center>'
				'You can no longer hold back - rather, rather enjoy caresses Ninel. Poryvstym movement to unbutton her gown'
				'Skillful hands of Dr. glide over your body, but not in a hurry to the most desirable townships'
				'(You) - Caress me - I´m burnin! I want you so much! - Breathless whisper you, but your cruel mistress just grins:'
				'(Ninel) - Ask me - show me how much you want.'
				'(You) - Ninel, darling, darling, please - caress me! Take me - I´m all yours! I beg you! I beg you - soon!'
				'(Ninel) - ask for more! Beg me!'
				'(You almost crying) - Please, please, please! I beg you, I beg you - caress me! I´m dying to!'
					act 'Beg and plead':
					cla
					*clr
					'<center><img src="images\inBed\ninel25.jpg"></center>'
					'You beg and plead Ninel pity and finally she condescends to your pleas and rushes her tongue into a sweet journey of your bosom'
					'You shrieks and groans of the voluptuous heat waves diverge in the body, your pussy juice and lustful expires Ninel guzzles the juice'
					'You walk up to the finale, when Ninel suddenly interrupted and broken voice commands:'
					'(Ninel) - Now I am. Appease me'
						act 'Ninel humor language':
						cla
						*clr
						'<center><img src="images\inBed\ninel26.jpg"></center>'
						'Ninel siphoned on the bed and you start to caress and lick her vagina. Ninel incensed as you are - she screams and moans from your touch, her pussy oozing thick goo, you eagerly licks it off but it still flows and flows, zalivvaya your face and her thighs'
						'(Ninel, through groans) - Good ... A-ah! Good girl ... Come-ah ..!'
							act '69':
							cla
							*clr
							'<center><img src="images\inBed\ninel27.jpg"></center>'
							'You go into the pose "69" and lachinaete eagerly lick each other, alternating affection cries and groans.'
							'You are getting closer and closer to the peak, and Ninel seem too, but then she stopped again'
							'(You) - Please, please, go on! I am about to finish! - Pray you, and caress her insistently, hoping ontvetnuyu reaction, but Ninel strongly otrvyaet you from yourself'
							'(Ninel) - No ... Not so! I want you to death itself.'
								act 'Masturbate pussy':
								cla
								*clr
								'<center><img src="images\inBed\ninel29.jpg"></center>'
								'With a groan, you obey and begin their desperate nadrachivat burning throbbing pussy. Next Ninel doing the same thing. Species, which spreads through the room spicy smell your juices languid moans your mistress and furious fingers work elevate you to the peak of bliss. You scream and squirm in orgasm and Neiel under you also beats and screaming - it also ends'
									act 'Fall in exhaustion':
									cla
									*clr
									set horny = 0
									set minut += 40
									set orgasm += 1
									set lesbian += 1
									set ninelsex += 1
									set SUB += 1
									set sick = 0
									set health = vital * 10 + stren * 5 + 1000
									set willpower = intel * 5 + will * 5 + 1000
									set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
									clr
									gs 'stat'
									'<center><img src="images\inBed\ninel28.jpg"></center>'
									'You are lying in the arms of Ninel and pant, moving away from the crushing orgasm'
									'You feel like a the totally healthy, but extremely exhausted'
									'(You) - Thank you, dear. - Whisper you.'
									'(Ninel) - Pozhluysta. Visit me sometime in the clinic. With you I am particularly good.'
									'You promise exhausted reclining on a wet crumpled sheet and go to sleep, and Ninel quietly dressed and out'
										act 'Sleep': gt 'bedr'
									end
								end
							end
						end
					end
				end
			end
		end
	end
end
--- housecall ---------------------------------

# bedrPar
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Your bedroom</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Small room in which hardly squeezed <a href="exec:GT ''loker'',''start''">cabinet</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> bed and sisters.'

if AutoEnema = 1 and AEnema = 1:
	set minut += 5
	set klismaday = day
	set klismaday1= 1
	set AEnema = 0
	'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
end

gs 'family'

act 'Leave the room':
	gt 'korrPar'
end

if student > 0 and kursovik < 100:
	act 'Write coursework (1:00)':
	cla
	*clr
	set minut += 60
	set kursovik += RAND(intel/20, intel/10)
	if kursovik > 100: set kursovik = 100
	set manna -= 10
	'<center><img src="images\etogame\study.jpg"></center>'
	'You sat on the course work and prepared her for <<kursovik>> percent.'
	act 'Exit': gt $curloc
	end
end

if horny >= 50 and sisterHere = 0:
	act 'Masturbate':
	gt 'selfplay'
	end
end
--- bedrPar ---------------------------------

# bedrPar2
ACT 'Leave the room':
	gt 'korrPar'
END

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC

'<center><B><font color = maroon>Master bedroom</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'

clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'The room in which the parents live. In the center stands a double bed and a large closet wall.'

gs 'family'
--- bedrPar2 ---------------------------------

# sitrPar
ACT 'Leave the room':
	gt 'korrPar'
END

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC

'<center><B><font color = maroon>Hall</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'In the window is a <a href="exec:GT ''tvPar''">TV</a>. Front of the TV is a sofa on which sleeps at night your brother. The wall is a wall with utensils and books.'

gs 'family'

--- sitrPar ---------------------------------

# vanrPar
ACT 'Leave the room':
	gt 'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Bath</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Bathroom cramped and very unpretentious.'
if stanok > 0: 'Your razor will suffice for <b><<stanok>></b> time.'

act 'Wash in the shower (0:15)':
cls
dynamic $showerdin
minut += 15
set horny += 1
set hapri = 0
set mop = 1
if sweat > -3: set sweat = -3
if frost > 0: frost = 0
set HasWashed = 0
gs 'stat'
'<center><img src="images\pics\dush.jpg"></center>'
'You got into the shower and began to lather your body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean.'
act 'Out of the bath': gt $locM, $metkaM
end

act 'Wash in the bathroom (1:00)':
cls
dynamic $showerdin
minut += 60
if sweat > -3: set sweat = -3
set horny += 3
set hapri = 0
set mop = 1
set manna += 10
if frost > 0: frost = 0
set skinvan += 1
if skinvan = 20: set skinvan = 0 & set skin += 1
gs 'stat'
'<center><img src="images\pics\wash4.jpg"></center>'
'Turn on the water, you got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body sponge and hair shampoo. Then all you have washed off with water.'
act 'Out of the bath': gt $locM, $metkaM
	if horny >= 90:
		act 'Direct water on pussy':
		cla
		*clr
		set horny = 0
		set minut += 30
		set mastr += 1
		set orgasm += 1
		set manna += 15
		set willpower += 15
		'<center><img src="images\pics\wash7.jpg"></center>'
		'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
		act 'Get out and get dressed': gt $locM, $metkaM
		end
	end
	if horny >= 40 and horny < 90:
		act 'Direct water on pussy':
		cla
		*clr
		set horny += 5
		set minut += 30
		set manna += 10
		set willpower += 10
		'<center><img src="images\pics\wash7.jpg"></center>'
		'You sent a water faucet on pussy and tight jet of warm water began to caress you. At first it was not even bad, but then sleep and arousal, even as it was not nice. So you stopped masturbating.'
		act 'Get out and get dressed': gt $locM, $metkaM
		end
	end

	if horny >= 50:
		act 'Masturbate':
		gt 'selfplay'
		end
	end
end

if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
	cla
	*clr
	set tampon -= 1
	set isprok = 1
	set minut += 5
	set manna -= 5
	gs 'stat'
	'<center><img src="images\pics\wash3.jpg"></center>'
	'You change a tampon.'
	act 'Finish': gt $curloc
	end
end

if mop ! 1:
	act 'Wash off cosmetics':
	cla
	set mop = 1
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You flushed makeup.'
	act 'Finish': gt $curloc
	end
end

if cumfrot > 0:
	act 'Scour sperm from clothing':
	cla
	set cumfrot = 0
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\frotsp.jpg"></center>'
	'You zamyli semen stains on their clothes.'
	act 'Finish': gt $curloc
	end
end


if leghair > 0 and stanok > 0:
	act 'Shave your legs (0:15)':
		cla
		*clr
		set minut += 15
		set leghair = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images\pics\shave.jpg"></center>'
		'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
		!'Вы намылили ноги и сбрили волосы с них.'
		act 'postpone machine': gt $curloc
		end
	end
if lobok > 0 and stanok > 0:
	act 'Shave pubis (0:15)':
		cla
		*clr
		set minut += 15
		set lobok = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images\pics\shave3.jpg"></center>'
		'You lathered crotch and took a razor deft movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
		!'Вы намылили лобок, после чего сбрили с него все волосы.'
		act 'postpone machine': gt $curloc
		end
	end
--- vanrPar ---------------------------------

# korrPar
ACT 'Go to your room':
	gt 'bedrPar'
END
ACT 'Go to my parents'' room':
	gt 'bedrPar2'
END
ACT 'Going to the living room':
	gt 'sitrPar'
END
ACT 'Go to the bathroom':
	gt 'vanrPar'
END
ACT 'Go to the kitchen':
	gt 'kuhrPar'
END
ACT '<b>Go to the street</b>':
	if nude = 0:
		gt 'gorodok'
	else
		msg 'You are not dressed'
		gt $curloc
	end
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
set popolaini = 0
set saunaYouRoom = 0
set boycherdaksex = 0
'<center><B><font color = maroon>corridor</font></B></center>'
'<center><img src="images\qwest\alter\korrPar.jpg"></center>'
clr
frost = 0
set minut += 1
gs 'stat'
bonusZ = 0
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'On the wall near the front door hanging <a href="exec:GT ''mirror'',''start''">mirror</a>.'
if palto > 0: 'Hanging on the hook <<$palto>>'

gs 'family'

if hour >= 16 and hour <= 20:
	if schoolprogul > 2 and SchoolAtestat = 0:
	cls
	gs 'stat'
	'<center><B><font color = maroon>mom</font></B></center>'
	'<center><img src="images\qwest\alter\mother.jpg"></center>'
		if schoolPredupr = 3:
		SchoolBlock = 1
		ParHomeBlock = 1
		schoolprogul = 0
		'In the corridor you vsrechaet mother, her eyes thundered. "Doprygat? Thee out of high school. All live the way you want, I am no longer a mother!" Mother gathered your things in a bag, put the bag in your hands and thrown by the scruff of the apartment.'
		act 'Leave': gt 'gorodok'
		exit
		end
		if schoolPredupr = 1:
		schoolPredupr = 2
		schoolprogul = 0
		Suspeh -= 40
		'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. Again You absenteeism. You already want to exclude from school, I was literally on his knees begging the directors can not exclude you and give you one last chance to reform. More because of you I will not be humiliated and remember. Next time you Departure from school! And if you fly out of school, I will personally kick him out of the house if you do not understand a normal relationship, then get out, no one does not keep you here! "Mother angrily left the room.'
		end
		if schoolPredupr = 0:
		schoolPredupr = 1
		mother = 0
		schoolprogul = 0
		Suspeh -= 20
		'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. You solid absenteeism. For the first time you have forgiven, but the next you just kicked. What are you doing, balbeska?" Mother angrily left the room.'

		end
	act 'move away': gt $curloc
	exit
	end
end

if hour >= 15 and hour < 20:
	if Gcall = 0:
	numnpcboy = 0
	:markboyfrendcall
	numnpcboy += 1
		if otnBoyFrend[numnpcboy] >= 20 and boyinday[numnpcboy]!day:
		Gcall = 1
		jump 'markboyfrendcall2'
		end
	if numboyFrend > numnpcboy: jump 'markboyfrendcall'
	end
else
	if Gcall > 0: Gcall = 0
end
:markboyfrendcall2
if Gcall > 0: 'In the hallway rings <a href="exec: GT ''gtelefon''">phone</a>.'


if motherWorry = 1: gt 'mother'
--- korrPar ---------------------------------

# kuhrPar
ACT 'Leave the room':
	gt 'korrPar'
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Kitchen</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'The kitchen is next to the stove sink. Large refrigerator in the corner and kitchen table with chairs is against the wall.'

gs 'family'


act 'Yes':
cla
*clr
gs 'stat'
frost = 0
'<center><img src="images\pics\food.jpg"></center>'
set minut += 30
set health += 10
set manna += 20
	if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end
	if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end
	if energy < 20:
	set energy += 20
	!set fat += 1
	'You gladly ate cooked food.'
	end
	if water >= 20:
	'Tea in you no longer climbs.'
	end
	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
gs 'stat'
act 'Get up from the table': gt $locM, $metkaM
end

act 'Have a snack':
cla
*clr
gs 'stat'
frost = 0
'<center><img src="images\pics\food.jpg"></center>'
set minut += 15
set health += 10
set manna += 20
	if energy >= 30:
	set fat += 3
	'You can no longer have.'
	end
	if energy >= 20 and energy < 30:
	set fat += 1
	set energy += 5
	'You pushed through the power of a meal.'
	end
	if energy < 20:
	set energy += 10
	!set fat += 1
	'You gladly ate cooked food.'
	end
	if water >= 20:
	'Tea in you no longer climbs.'
	end
	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
gs 'stat'
act 'Get up from the table': gt $locM, $metkaM
end


act 'Drink':
cls
	if water >= 20:
	'Tea in you no longer climbs.'
	end
	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
gs 'stat'
act 'Get up from the table': gt $locM, $metkaM
end


if pranik > 0:
'Cookies will suffice for <<pranik>> time.'
	act 'Drink tea with cookies (0:15)':
	cla
	*clr
	minut += 15
	pranik -= 1
	set health += 30
	set manna += 100
	energy += 20
	water += 20
	fat += 50
	frost = 0
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
	act 'Get up from the table': gt $curloc
	end
end

if edaD > 0:
	act 'Eat diet food (0:30)':
	cla
	*clr
	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 20
	set edaD -= 1
		if energy >= 30:
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		'You gladly ate cooked food.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a cup of tea.'
		set water += 20
		end
	act 'Get up from the table': gt $curloc
	end
end

if fatdel > 0:
	act 'consume fat burners':
	cla
	*clr
	set fatdel -= 1
	set fat -= 25
	if fat < 0: fat = 0
	'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
	act 'Get up from the table': gt $curloc
	end
end

if lekarstvo > 0:
'you <<lekarstvo>> tablets.'
	if sick > 0 and lekarday ! day:
		act 'take a pill':
		cla
		*clr
		set minut += 5
		lekarday = day
		lekarstvo -= 1
		sick -= sick * 20/100
		set lekrand = RAND(0,8)
		if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
		if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
		if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
		if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
		if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
		if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
		if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
		if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
		if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
		'You drank the pill'
		act 'move away': gt $curloc
		end
	end
end

if vitamin > 0:
'you <<vitamin>> vitaminok.'
	if vitaminday ! day:
		act 'drink Vitamins':
		cla
		*clr
		set minut += 5
		vitaminday = day
		vitamin -= 1
		frost = 0
		if KandidozOnce = 1: Kandidoz -= 2
		if GerpesOnce = 1: Gerpes -= 2
		if SifacOnce = 1 and Sifilis >= 10: Sifilis -= RAND(0,1)
		set skinvan += 1
		if skinvan = 20: set skinvan = 0 & set skin += 1
		'You drank Vitaminki'
		act 'move away': gt $curloc
		end
	end
end
--- kuhrPar ---------------------------------

# gtelefon
boyinday[numnpcboy] = day
Gcall = 0
minut += 3
gs 'stat'
'You take the phone, "Hello."'
if boyvstre[numnpcboy]>0:
'Male voice on the phone says "Hello Svetsik is I <<$nameBoyfrend[numnpcboy]>>, let´s go to somewhere to walk."'
end
if boyvstre[numnpcboy] = 0:
'In the tube, a male voice says "Hello Can <<$name>>?"'
'You answer the caller that you are the <<$name>>. Stranger delighted "I <<$nameBoyfrend[numnpcboy]>>, we´re met at a disco. Remember? Let´s go for a walk."'
end


act 'I´m busy today':
cls
minut += 3
if boyvstre[numnpcboy] = 0: otnBoyFrend[numnpcboy] -= 10
if boyvstre[numnpcboy]>0: otnBoyFrend[numnpcboy] -= 5
gs 'stat'
''
	if otnBoyFrend[numnpcboy]>20:
	otnBoyFrend[numnpcboy] = 0
	'<<$nameBoyfrend[numnpcboy]>> upset. "Well, then, as something next time."'
	end
	if otnBoyFrend[numnpcboy] <= 20:
	otnBoyFrend[numnpcboy] = 0
	'<<$nameBoyfrend[numnpcboy]>> angry. "Well, if you went to the dick." And hung up.'
	end
act 'Hangup': gt 'korrPar'
end

if GvstreBoy = 0:
	act 'Meet me in the park':
	cls
	minut += 3
	GvstreBoy = 1
	GvstreBoyAfter[numnpcboy] = 1
	SkverBoy = numnpcboy
	gs 'stat'
	'You are invited to meet in the park.'
	act 'Hangup': gt 'korrPar'
	end
end
--- gtelefon ---------------------------------

# tvPar
gs 'stat'
'<center><img src="images\pics\telek.jpg"></center>'
'You turn on the TV and settled comfortably on the couch.'


$din_wath_tv_h = {
cls
minut += 60
willpower += RAND(5,10)
manna += RAND(10,50)
gs 'stat'
'<center><img src="images\pics\telek.jpg"></center>'
'You are viewing the central channel lying on the couch. Watch almost nothing solid and cheesy advertising program.'
act 'Watch TV (1:00)': dynamic $din_wath_tv_h
act 'Get off the couch': gt $locM, $metkaM
}

act 'Watch TV (1:00)': dynamic $din_wath_tv_h

act 'Get off the couch': gt $locM, $metkaM
--- tvPar ---------------------------------

# bedPar
gs 'stat'

if nude = 0: '<center><img src="images\pics\bed.jpg"></center>'
if nude = 1: '<center><img src="images\pics\son.jpg"></center>'

'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'

act 'Set Alarm Clock': gt 'budilnik','start'

act 'Undress and go to bed':
	SAVEGAME 'altavtosave.sav'
	cls
	gs 'bed2'
end

act 'Get out of bed':
	cla
	gt $locM, $metkaM
end
--- bedPar ---------------------------------

# stolPar
if BakaGHomework = 0:
	gs 'stat'
	!'<center><img src="images\pics\telek.jpg"></center>'
	'Old desk, your parents bought back in the distant 90´s. Two side drawer with locks: your and your sister.'
	if Stolprezik > 0: 'In the drawer are <<Stolprezik>> condoms'
	if Stoltabletki > 0: 'In the drawer are <<Stoltabletki>> birth control pills.'
	if Stollubri> 0: 'In the drawer is anal lubricant, enough for <<Stollubri>> uses.'
	if krem> 0: 'There are <<krem>> uses of suntan lotion.'
	if abonement> 0: 'subscription is valid for <<abonement>> Occupation'
	if dildo> 0: 'Realistic dildo'


	act 'Get up from the table': gt $locM, $metkaM
	if prezik > 0:
		act 'Remove condoms from purse':
		stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <<prezik>> condoms.)")
			if stolIN <= 0 or stolIN > prezik:
			else
				set stolprezik += stolIN
				set prezik -= stolIN
			end
		gt 'stolPar'
		end
	end

	if Stolprezik > 0:
		act 'Get condoms from desk':
		stolOUT = input ("How many condoms to place in purse? (Desk has <<stolprezik>> condoms.)")
			if stolOUT <= 0 or stolOUT > stolprezik:
			else
				set stolprezik -= stolOUT
				set prezik += stolOUT
			end
		gt 'stolPar'
		end
	end

	if tabletki > 0:
		act 'Remove pills from purse':
		stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <<tabletki>> pills.)")
			if stolIN <= 0 or stolIN > tabletki:
			else
				set Stoltabletki += stolIN
				set tabletki -= stolIN
			end
		gt 'stolPar'
		end
	end

	if Stoltabletki > 0:
		act 'Get pills from desk':
		stolOUT = input ("How many birth control pills to place in purse? (Desk has <<Stoltabletki>> pills.)")
			if stolOUT <= 0 or stolOUT > Stoltabletki:
			else
				set Stoltabletki -= stolOUT
				set tabletki += stolOUT
			end
		gt 'stolPar'
		end
	end

	if lubri > 0:
		act 'Remove lubricant from purse':
		stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <<lubri/5>> uses.)")
			if stolIN <= 0 or stolIN > lubri/5:
			else
				set Stollubri += stolIN * 5
				set lubri -= stolIN * 5
			end
		gt 'stolPar'
		end
	end

	if Stollubri > 0:
		act 'Get lubricant from desk':
		stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <<Stollubri/5>> uses.)")
			if stolOUT <= 0 or stolOUT > Stollubri/5:
			else
				set Stollubri -= stolOUT * 5
				set lubri += stolOUT * 5
			end
		gt 'stolPar'
		end
	end


	if lernHome > 0:
		act 'Learning lessons':
			cls
			if lernHome <= 2:
				minut += 60 * lernHome
				lernHome = 0
				lern += 1
			end
			if lernHome > 2:
				minut += 60 * 2
				lernHome = 0
			end
			gs 'stat'
			'Sitting for a long time you learned yet they were able to learn.'
			act 'Get up from the table': gt $locM, $metkaM
		end
	end
end

$homework = {
	'You have <<lernHome>> sheets of homework left to complete.'
	act 'Do homework':
		cls
		:loopHomework
		set lernHome -= 1
		set lern += rand(1,3)
		set lernSkill += rand(0,1)
		set lernTime = (20 + rand(10,20)) - lernSpeed
		set minut += lernTime
		if lernHome > 0:
			jump 'loopHomework'
		else
			gs 'stat'
			'You have finished all your homework.'
			act 'Stretch and relax': gt 'stolPar'
		end
	end
}
$study = {
	'You have no more homework left to complete. You can study in the meanwhile.'
	act 'Study':
		cls
		set lern += rand(1,3)
		set lernSkill += rand(1,2)
		set lernTime = (20 + rand(10,20)) - lernSpeed
		set minut += lernTime
		gs 'stat'
		'You spent some time studying.'
		act 'Stretch and relax': gt 'stolPar'
	end
}
if BakaGHomework = 1:
	cla
	*clr
	gs 'stat'
	!'<center><img src="images\pics\telek.jpg"></center>'
	'You are sitting down at the desk.'
	set lernSpeed = (intel/5) * 1

	act 'Get up': gt $locM, $metkaM
	if lernHome > 0: dynamic $homework
	if lernHome < 1: dynamic $study
end
--- stolPar ---------------------------------

# father
fatherAge = age + 30
gs 'stat'
'<center><B><font color = maroon>Stepfather Vladimir Mikhailovich Scriabin</font></B></center>'
'<center><img src="images\qwest\alter\father.jpg"></center>'
'Your stepfather gray and slightly flabby man working driver. He <<fatherAge>> years. Your mother divorced your father and married Vladimir Mikhailovich when you were one year. Your real father you do not remember and have never seen.'
if father < 20: 'You stepfather scandal.'
if father >= 20 and father < 40: 'You stepfather tensions.'
if father >= 40 and father < 60: 'You have a normal relationship with his stepfather.'
if father >= 60 and father < 80: 'You have a good relationship with his stepfather.'
if father >= 80: 'You have a great relationship with his stepfather.'

act 'Move away': gt $locM, $metkaM

act 'Asking for money':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Stepfather Vladimir Mikhailovich Scriabin</font></B></center>'
'<center><img src="images\qwest\alter\father.jpg"></center>'
'You asked the stepfather of money, he shook his head. "I bring all salary mother, so go and ask her."'
act 'Move away': gt $loc, $metka
end

act 'Ask about his mother and':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Stepfather Vladimir Mikhailovich Scriabin</font></B></center>'
'<center><img src="images\qwest\alter\father.jpg"></center>'
'You asked his stepfather as he met my mother. Stepfather scratched begin balding head and answered. "I then worked as a taxi driver. Busing like Natasha, your mother. She even then was quite soplyushkoy, but has managed to leave her husband for the class-mate and give birth to you with Anya. Your father I did not know, I saw only a couple of times. Know that his name Mikhail Kuznetsov. He left somewhere in another city. "'
act 'Move away': gt $loc, $metka
end

act 'Ask about his work':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Stepfather Vladimir Mikhailovich Scriabin</font></B></center>'
'<center><img src="images\qwest\alter\father.jpg"></center>'
'You asked about his stepfather´s work. Stepfather reached crunching joints. "Before Takser. Tired now. And dangerous and old. Bought Gazelle and now I´m on pickup truck breed products hucksters. Know yourself, I have two garages, one worth our Volga, Gazelle else I got you."'
act 'Move away': gt $loc, $metka
end

if motherKnowSpravka = 1:
cla
father = 0
motherKnowSpravka = 2
'Stepfather angrily walked up to you, "Oh damn, do not have time to get off the pot, and already someone has twisted pussy! Hem you bring in who will bring?"'
act 'Move away': gt $loc, $metka
end

if alko > 0 and alkoday ! day:
alkoday = day
father -= 1
'Stepfather sniffed "<<$name>> from you smell alcohol, what is this mess? You´re too young to drink that!"'
end
--- father ---------------------------------

# mother
motherAge = age + 19
!модель Ольга Кабаева

gs 'stat'
gs'motherQW'
'<center><B><font color = maroon>Mother</font></B></center>'
'<center><img src="images\qwest\alter\mother.jpg"></center>'
'Your mother Natasha still quite young and attractive. She´s only <<motherAge>> years. She works at the station cafe.'
if (motherKnowWhore>0 or motherKnowSpravka>0) and motherQW=0:motherQW=1
if motherQW=1 and mother>40:mother=40
if mother <= 20: 'You and your mom scandal.'
if mother > 20 and mother <= 40: 'You and your mom tensions.'
if mother > 40 and mother <= 60: 'You have a normal relationship with her mother.'
if mother > 60 and mother <= 80: 'You have a good relationship with his mother.'
if mother > 80: 'You have a great relationship with my mother.'

act 'Move away': gt $loc, $metka

if motherWorry = 1:
motherWorry = 0
mother -= 1
'Mother sleeps and stands in the hallway waiting for you. "Where are you shlyaeshsya? You know what hour in the court?"'
end

	if SchoolAtestat = 1 and SAtestatGift = 0:
	SAtestatGift = 1
	money += 5000
	gs 'stat'
	'Mum was delighted, "Now you graduated from high school and I want to give you five thousand rubles. Can buy myself a gift."'
	end



if hour > 5:
	act 'Asking for money':
	cls
	minut += 5
	gs 'stat'
	'<center><B><font color = maroon>Mother</font></B></center>'
	'<center><img src="images\qwest\alter\mother.jpg"></center>'
	'You asked my mother money.'
		if SchoolAtestat = 0:
			if mother > 80:
				if motherPayDay = day:
				'Mother frowned "dochura, I told you already gave the money!"'
				end
				if motherPayDay ! day:
				motherPayDay = day
					if Suspeh >= 70:
						if Suspeh < 90:
						money += 150
						'Frowning mother gave you 150 rubles, "Will you learn better, I will give more. Meanwhile, it´s all that you deserve!"'
						end
						if Suspeh >= 90:
						money += 300
						'His mother smiled and gave you 300 rubles, "Okay, on the money."'
						end
					else
					'Mother frowned "You´ll learn better, there will be money, as long as you deserve only the belt, not money!"'
					end
				end
			end

			if mother > 60 and mother <= 80:
				if motherPayDay = day:
				'Mother frowned "No docha. I already gave money.''s Enough for today."'
				end
				if motherPayDay ! day:
				motherPayDay = day
					if Suspeh >= 70:
						if Suspeh < 90:
						money += 100
						'Frowning mother gave you $ 100, "Will you learn better, I will give more. Meanwhile, it´s all that you deserve!"'
						end
						if Suspeh >= 90:
						money += 250
						'The mother smiled and gave you 250 rubles, "Okay, on the money."'
						end
					else
					'Mother frowned "You´ll learn better, there will be money, as long as you deserve only the belt, not money!"'
					end
				end
			end

			if mother > 40 and mother <= 60:
				if motherPayDay = day:
				'Mother frowned "That thou Velcro. Received nothing!"'
				end
				if motherPayDay ! day:
				motherPayDay = day
					if Suspeh >= 70:
						if Suspeh < 90:
						money += 50
						'Frowning mother gave you 50 rubles, "Will you learn better, I will give more. Meanwhile, it´s all that you deserve!"'
						end
						if Suspeh >= 90:
						money += 200
						'His mother smiled and gave you 200 rubles, "Okay, on the money."'
						end
					else
					'Mother frowned "You´ll learn better, there will be money, as long as you deserve only the belt, not money!"'
					end
				end
			end

			if mother <= 40 and motherKnowWhore = 0 and  motherKnowSpravka = 0:
			'Mother frowned, "Do not you deserve the money!"'
			end

			if motherKnowWhore >= 1 and mother <= 40 or motherKnowSpravka >= 1 and mother <= 40:
			'-You ask for more money, whore? Get out of here, scram their stud beg for money'
			end
		end
		if SchoolAtestat > 0:
		'You´re old enough, earn myself.'
		end
	act 'Move away': gt $loc, $metka
	end

	act 'Ask about this father':
	cls
	minut += 5
	gs 'stat'
	'<center><B><font color = maroon>Mother</font></B></center>'
	'<center><img src="images\qwest\alter\mother.jpg"></center>'
		if mother <= 80:
		'You asked your mother about her real father. Mother pulled a face and not contented said. "<<$name>>, I am not going to discuss this topic now. Just know that Vova, your stepfather growth you with Anya as their own daughters."'
		end
		if mother > 80:
		'You asked your mother about her real father. Mother pulled a face and not contented said. "I have no idea where he is and what he does. We were at school together. It made me your sister Anka. Our parents we were married. Michael, your father, and you made me thumped. We divorced and I married Vovk. Kolka already born from Vova. Vovk But you brought up with Anya as their own daughters. Soul in you looked for, and bathed you, and went for a walk with you for a walk. And tales told you at night. "'
		end
	act 'Move away': gt $loc, $metka
	end

	act 'Ask for new clothes':
	cls
	minut += 5
	gs 'stat'
	'<center><B><font color = maroon>Mom</font></B></center>'
	'<center><img src="images\qwest\alter\mother.jpg"></center>'
	'You asked for new clothes.'
		if SchoolAtestat = 0:
			if mother > 80:
			if motherClotheMonth ! month:
			'Mom sighed, "Here we go again. You´re my world is empty. Come to the store, grief onion."'
			act 'Go to the store':
					cls
					mother = 70
					motherClotheMonth = month
					minut += 30
					gs 'stat'
					'You went to the store with his mother and began to choose. With mom go shopping quite interesting to do, she will never give you choose your own and would buy clothes for your taste.'
						act 'choose clothes':
						cls
						gs 'stat'
						:markbuyclomother
						numrand = rand(1,130)
							if newclo[numrand] = 0:
							newclo[numrand] = 1
							newcloH[numrand] = 50
							newcloB[numrand] = bedra
							'<center><img src="images\clothes\newclo\<<numrand>>.jpg"></center>'
							else
							jump 'markbuyclomother'
							end

						'Mom bought you clothes.'
						act 'Leave': gt $loc, $metka
						end

						if newclo[131] = 0:
							act 'Select uniforms':
							cls
							gs 'stat'
							newclo[131] = 1
							'Mom bought you a school uniform.'
							act 'Leave': gt $loc, $metka
							end
						end

					end
			exit
			else
			'My mother shook her head "Dochurka, we have a budget is not elastic, this month we bought you clothes. Now wait for the next month."'
			end
			else
			'Mom shook her head "no money."'
			end
		else
		'Mom shook her head, "You´re an adult, she should earn."'
		end
	act 'Move away': gt $loc, $metka
	end
end


if $loc = 'kuhrPar':
	act 'Offer help':
	cls
	minut += 60
	mother += RAND(1,5)
	manna -= 10
	TotalMomPom += 1
	gs 'stat'
	'You offered to help my mother with the housework.'
	MomPom += 1
	if MomPom = 8: MomPom = 1
		if MomPom = 1:
		'Mom asked you to wash the dishes. You are in for an hour washing the dishes in the kitchen.'
		end
		if MomPom = 2:
		'Mom asked you to peel the potatoes. You are in for an hour in the kitchen peeling potatoes.'
		end
		if MomPom = 3:
		'Mom asked you to clean the floor. You are within an hour washed the floors in the apartment.'
		end
		if MomPom = 4:
		'Mom asked you to do your laundry. You are in for an hour to wash clothes in the bathroom.'
		end
		if MomPom = 5:
		'Mom asked you to iron the clothes. You are in for an hour in the hall ironed linen.'
		end
		if MomPom = 6:
		sdacharand = RAND(10,50)
		money += sdacharand
		gs 'stat'
		'Mom asked you to run to the store for groceries. You walked for an hour for food, you got to surrender to shopping <<sdacharand>>rubles.'
		end
		if MomPom = 7:
		'Mom asked you to run to the pharmacy for medicines. Mom´s sister works there and she will give Lyudmila medicament for free, then she finds mom and aunt Luda. Mom wrote you a list and you went to the pharmacy, the pharmacy as always sat behind the counter aunt Luda. "Hi Svetulechka. How are you? How are you feeling?" You greeted aunt and gave her a piece of paper in which the mother wrote medications. Aunt Luda quickly gathered the necessary and gave you. You came back to the apartment and gave her mother the medication.'
		end
	act 'Move away': gt $loc, $metka
	end
end


if $loc = 'gkafe':
'Mom saw you and frowned, "What has come? How many times I said, do not go to my office. Young girls There´s nothing to do!"'
end

if SchoolAtestat = 0:
	if GspravkaT = 0 and GspravkaTimes >= 3 and hour >= 6 and hour <= 21:
	cla
	mother -= 1
	'Mother frowned "How much you can pull out the FAQ? Have you most to the gynecologist to lead!" Mother took you by the hand and led her to the clinic, a gynecologist.'
		act 'Go to the gynecologist for help':
		cla
		set minut += 15
		'You lay on the examination table and pushed his feet. Gynecologist has viewed your vagina.'
			if vagina > 0:
			Gspravka = 7
			GspravkaT = 2
			'Help gynecologist wrote that you are not a virgin.'
			end
			if vagina = 0:
			Gspravka = 7
			GspravkaT = 1
			'Help gynecologist wrote that you are a virgin.'
			end
		act 'QUIT': gt $curloc
		end
	exit
	end


	if GspravkaT = 0 and GspravkaTimes < 3:
	GspravkaTimes += 1
	'"You need to go to the clinic. Gynecologist, refer to the school."'
	end


	if GspravkaT = 2 and motherKnowSpravka = 0:
	cla
	if motherKnowWhore = 0:
		mother = 0
		motherKnowSpravka = 1
		!if motherQW = 0:motherQW = 1
		'Mother grabbed you by the ear "Oh blyadischa We slaved father, what would you Putnam of people do you find worthy men, and you´re a whore who has already Mandu then tuck Get out of my sight!"'
	end
	if motherKnowWhore > 0 and motherQW<2:
		mother -= 10
		motherKnowSpravka = 1
		!if motherQW = 0:motherQW = 1
		'The mother looked at the FAQ, "Do not even surprising. Fucks with someone in the alley, but still home to all "hahalskih" gifts come. Used my eyes have not seen you."'
		end
	if motherQW >= 2:
		motherKnowSpravka = 2
		'"And what do you bring it to me? Can you even make photocopies and wear them to school. Doubt that you´ve got there that things will change" - with malice saw your mother.'
		end
	act 'Move away': gt $loc, $metka
	exit
	end
end

if motherQW = 1 and mother >=20  and $loc = 'kuhrPar':
mqwtRand = RAND(1,10)
act 'Try to make peace':
	cla
	if mqwtRand<=2:
		mother-=RAND(1,5)
		minut+=30
		'You´re trying to talk with his mother and make peace. Whether you are too aggressive, then you have it in a bad mood, but the result of "reconciliation" is the next scandal.'
		act 'Leave': gt $loc, $metka
		end
	if mqwtRand > 2 and mqwtRand <= 8:
		mother += RAND(0,1)
		minut += 30
		'You´re trying to talk with his mother and make peace. Despite the fact that the whole half-hour conversation mainly consists of a fairly aggressive monologue your mom about morality, disease and that is waiting for you in the future if you do not take in mind, certain changes in the relationship is still there.'
		act 'Leave': gt $loc, $metka
		end
	if mqwtRand > 8: gt'motherQW','motherQW_2'
!           cls
!            mother += RAND(5,10)
!            minut += 60
!            motherQW = 2
!            'You´re trying to talk with his mother and make peace. The whole half-hour conversation mainly consists of a fairly aggressive monologue your mom about morality, disease and future. At some point you get tired of all this.'
!            act 'Wedge':
!                cla
!                '- All that you say, Mom, of course, is true and correct, but unless you are the not so?'
!                'She is flustered from your sentence, but quickly recovers.'
!                '- What do you mean? I´m not the same ...'
!                '- So, so. Such a whore! Even abruptly I will!'
!                '- <<$name>>! What are you currently pos ...'
!                act 'Continue to press':
!                    cla
!                    '- What did I allow myself? - You will quickly intercept of an initiative to prevent her finish. - Well, we´re adults, and are conducting an adult conversation about it is more than an adult theme. And forgive me, but I´ll say it all in plain text.'
!                    '- <<$name>>! They did not break ...'
!                    '- No, Mom, now you do not interrupt. I have half an hour listening to sermons! And from whom ?!'
!                    '- <<$name>>! ..'
!                    if age = 15: '- What is the <<$name>> that <<$name>> ?! Mom, are you now <<motherAge>>, Ana <<sisterAge>>. Addition and subtraction are taught in the first grade. Yes, you were just as much as me, when you´re knocked up!'
!                    if age > 15: '- What the <<$name>> that <<$name>> ?! Mom, are you now <<motherAge>>, Ana <<sisterAge>>. Addition and subtraction are taught in the first grade. Yes, you were even younger than me, when you´re knocked up!'
!                    'Unnerving silence. You, red as a lobster, trying to catch my breath, and your mother is sitting with his face all at the same time expressing human emotions simultaneously. Most likely she is trying to figure out what the hell´s going on here and why she listens to sermons from his daughter. Do you even think that once upon a time she just sat there and swore to your grandmother.'
!                    '- But it was your father, - she says quietly.'
!                     '- And so what?'
!                    '- And the fact that I did it out of love and not to expose Mandu first comer of the gate!'
!                    '- Who told you that I do not love and with everyone ?! And besides, you flew the first time?'
!                    '- No, but what does this have to talk?'
!                    act 'Next':
!                        cla
!                        '- And this, my mother: I am in life I will not believe that it was unpleasant to fuck you and you´re doing it solely for the love of the father.'
!                        '- <<$name>>! Do not swear!'
!                        '- Okay, okay, had sex. With the rest of you probably agree.'
!                        '- Nuu ... - she thinks for a moment, immersed in memories of his youth - yes, it was nice, of course, especially when the doors ...'
!                        '- No comment - with malice notice you.'
!                        'Awkward silence. Now the mother, red as a lobster, trying to come to his senses. Five minutes later it is obtained, and you see that it is something to mull over, looking something on you, on the wall.'
!                        '- Well, I have a daughter.'
!                         '- All in mother - smiling you say.'
!                         '- All of the mother ... - with a nervous laugh she repeats again and stops for a few minutes.'
!                        '- Well, Mom, I think we understand each other, and the situation shouted, Oromo, and the scandal is still not correct.'
!                         '- Do not fix it, but ... - she says slowly, continuing something to think about. - Not to say that I approve your behavior, but ... - you can see that the words are it is not easy - but I understand you.'
!                         'You get up, hugging his mother and heads for the door.'
!                         act 'Leave':
!                            cla
!                             '- Wait, <<$name>>.'
!                             '- Mmm? - You turn in the doorway. Mother gesture tells you to sit back on the kitchen chair.'
!                             '- Anka at least partially in the Bear went, but you''re just all in me, so that adventure to find his ass and ...'
!                             '- Maaaam, we´ve just discussed it.'
!                            '- Now you do not interrupt me, I do something else now. Do not want to, you know, that you any sore or baby from is not clear who currently work up.'
!                            if prezik > 0 or tabletka > 0:
!                                '- Do not worry, I have everything. Gone to town and bought. End - again I will go.'
!                            end
!                            if prezik = 0 and tabletka = 0:
!                                 '- Nuuu ... I will go to the city, there is a pharmacy.'
!                            end
!                            '- In the city means. You know, it´s better to buy everything in our pharmacy. And you easier, and I will be more easy for you.'
!                            '- And how, tell me, please, ma´am, I´ll do it? Tell aunt Luda that I Gandon for balls need?'
!                            '- Fie on you! If Lyudka dig, you say, well, me for a vegetable garden, she will understand. Just do not buy a lot at once.'
!                            '- Hmm, for the garden, of course. What does it mean ...'
!                            '- No, docha! - Quickly interrupted her.'
!                            '- Okay, okay.'
!                            'You get up, run up and kiss your mother.'
!                            '- You know, Mom, but you´re still my best.'
!                            '- Appreciate it, fool - with a smile she says.'
!                            act 'Leave': gt 'korrPar'
!                        end
!                    end
!                end
!            end
!        end
	end
end

if alko > 0 and alkomday ! day:
alkomday = day
mother -= 1
'Mom sniffed "<<$name>> from you smell alcohol, what is this mess? You´re still too young to drink that!"'
end

if (cumlip > 1 or cumface > 0 or cumfrot > 0) and whoremday ! day:
	cla

	whoremday = day
	if motherKnowWhore = 0 and motherKnowSpravka = 0:
		set mother = 0

		if motherKnowWhore = 0: motherKnowWhore = 1
		!if motherQW = 0:motherQW = 1

		'The mother looked at you, rolled her eyes and blushed. You was noticeable sperm.'
		'-Oh, you´re a juvenile whore, what is that to you? Telling everyone that her daughter is decent, but she fucked somewhere. Blyadina! Go away, do not get caught up in my eyes!'
		act 'Leave': gt $loc, $metka
		exit
	end

	if (motherKnowWhore > 0 or motherKnowSpravka>0) and motherQW<2:
		set monther -= 20
		if motherKnowWhore = 0: motherKnowWhore = 1
		!if motherQW = 0:motherQW = 1
		'The mother looked at you angry look. You was noticeable sperm.'
		'- Again somewhere a fucking juvenile whore? I was already familiar to ashamed of you! Go away, do not get caught in my eyes!'
		act 'Leave': gt $loc, $metka
		exit
	end

	if motherQW >= 2:
		set monther -= 10
		if motherKnowWhore = 0: motherKnowWhore = 1
		'Mother looked sternly at you. You was noticeable sperm.'
		'- <<$name>>, I certainly understand, but could you remove the artistry of his fancy man? Quickly into the bathroom while someone else did not see!'
		act 'Leave': gt 'vanrPar'
		exit
	end
end

if glamur > 0 and hour > 9:
'Mom looked at you, "Where are you so dressed up?"'
end
--- mother ---------------------------------

# famdorfride
hour = 12
minut = 0

gs 'stat'

minut += 60

gs 'stat'

'You got into the Volga and an hour reached the village in which they live Gadyukino your grandparents.'

act 'Going into the house':
	gt 'Gadhouse'
end
--- famdorfride ---------------------------------# motherQW
if $ARGS[0]='motherQW_2':
gs'stat'
cls
mother += RAND(5,10)
minut += 60
motherQW = 2
'You´re trying to talk with his mother and make peace. The whole half-hour conversation mainly consists of a fairly aggressive monologue your mom about morality, disease and future. At some point you get tired of all this.'
	act 'Wedge':
	cla
	'- All that you say, Mom, of course, is true and correct, but unless you are the not so?'
	'She is flustered from your sentence, but quickly recovers.'
	'- What do you mean? I´m not the same ...'
	'- So, so. Such a whore! Even abruptly I will!'
	'- <<$name>>! What are you currently pos ...'
	act 'Continue to press':
		cla
		'- What did I allow myself? - You will quickly intercept of an initiative to prevent her finish. - Well, we´re adults, and are conducting an adult conversation about it is more than an adult theme. And forgive me, but I´ll say it all in plain text.'
		'- <<$name>>! They did not break ...'
		'- No, Mom, now you do not interrupt. I have half an hour listening to sermons! And from whom ?!'
		'- <<$name>>! ..'
		if age = 15: '- What is the <<$name>> that <<$name>> ?! Mom, are you now <<motherAge>>, Ana <<sisterAge>>. Addition and subtraction are taught in the first grade. Yes, you were just as much as me, when you´re knocked up!'
		if age > 15: '- What the <<$name>> that <<$name>> ?! Mom, are you now <<motherAge>>, Ana <<sisterAge>>. Addition and subtraction are taught in the first grade. Yes, you were even younger than me, when you´re knocked up!'
		'Unnerving silence. You, red as a lobster, trying to catch my breath, and your mother is sitting with his face all at the same time expressing human emotions simultaneously. Most likely she is trying to figure out what the hell´s going on here and why she listens to sermons from his daughter. Do you even think that once upon a time she just sat there and swore to your grandmother.'
		'- But it was your father, - she says quietly.'
		'- And so what?'
		'- And the fact that I did it out of love and not to expose Mandu first comer of the gate!'
		'- Who told you that I do not love and with everyone ?! And besides, you flew the first time?'
		'- No, but what does this have to talk?'
		act 'Next':
			cla
			'- And this, my mother: I am in life I will not believe that it was unpleasant to fuck you and you´re doing it solely for the love of the father.'
			'- <<$name>>! Do not swear!'
			'- Okay, okay, had sex. With the rest of you probably agree.'
			'- Nuu ... - she thinks for a moment, immersed in memories of his youth - yes, it was nice, of course, especially when the doors ...'
			'- No comment - with malice notice you.'
			'Awkward silence. Now the mother, red as a lobster, trying to come to his senses. Five minutes later it is obtained, and you see that it is something to mull over, looking something on you, on the wall.'
			'- Well, I have a daughter.'
			'- All in mother - smiling you say.'
			'- All of the mother ... - with a nervous laugh she repeats again and stops for a few minutes.'
			'- Well, Mom, I think we understand each other, and the situation shouted, Oromo, and the scandal is still not correct.'
			'- Do not fix it, but ... - she says slowly, continuing something to think about. - Not to say that I approve your behavior, but ... - you can see that the words are it is not easy - but I understand you.'
			'You get up, hugging his mother and heads for the door.'
			act 'Leave':
				cla
				'- Wait, <<$name>>.'
				'- Mmm? - You turn in the doorway. Mother gesture tells you to sit back on the kitchen chair.'
				'- Anka at least partially in the Bear went, but you''re just all in me, so that adventure to find his ass and ...'
				'- Maaaam, we´ve just discussed it.'
				'- Now you do not interrupt me, I do something else now. Do not want to, you know, that you any sore or baby from is not clear who currently work up.'
				if prezik > 0 or tabletka > 0: '- Do not worry, I have everything. Gone to town and bought. End - again I will go.'
				if prezik = 0 and tabletka = 0: ' Nuuu ... I will go to the city, there is a pharmacy.'
				'- In the city means. You know, it´s better to buy everything in our pharmacy. And you easier, and I will be more easy for you.'
				'- And how, tell me, please, ma´am, I´ll do it? Tell aunt Luda that I Gandon for balls need?'
				'- Fie on you! If Lyudka dig, you say, well, me for a vegetable garden, she will understand. Just do not buy a lot at once.'
				'- Hmm, for the garden, of course. What does it mean ...'
				'- No, docha! - Quickly interrupted her.'
				'- Okay, okay.'
				'You get up, run up and kiss your mother.'
				'- You know, Mom, but you´re still my best.'
				'- Appreciate it, fool - with a smile she says.'
				act 'Leave': gt 'korrPar'
				end
			end
		end
	end
end


if $ARGS[0]='motherQW_3':
gs'stat'
'<center><B><font color=maroon>Drugstore</font></B></center>'
'<center><img src="images\etogame\aptek.jpg" ></center>'
motherQW=3
minut+=rand(20,30)
'You waited for the pharmacy will last buyer, and went up to my aunt.'
'- Aunts, I would have it ... my mom for a vegetable garden ...'
'- Well, of course my mother ...'
act 'Next':
	cla
	'- I mean?'
	'- And that you yourself do not understand. Light, I look like a fool?'
	'- No ...'
	if gorslut=0: '- Then it is not necessary to make a fool of me. Natasha mare, of course, hardy, but she is not 16 years old, the new "garden" it is unlikely to be mastered.'
	if gorslut>0: '- Then it is not necessary to make a fool of me. The whole town knows that you <<$gnikname>>.'
	'- Well ...'
	'- Canned wildebeest. "Scumbag for balls" and that would ring true.'
	'You stood there and did not know what to say. You were ashamed to own aunt, though rather for fraud than for your immoral behavior.'
	'- Okay, figs with you. In the end, I am not your mother to read notation here. And with it you seem to have a full understanding, - smiled aunt. - With whom you are both such a whore? It seems the whole family we have always been decent.'
	act 'Get away from the counter':gt'gaptek','start'
	end
end

if $ARGS[0]='motherQW_4':
gs'stat'
'<center><B><font color=maroon>Мама</font></B></center>'
'<center><img src="images\qwest\alter\mother.jpg" ></center>'
motherQW=4
minut+=60
'You came home, and the mother immediately dragged you into the kitchen.'
'- Come on, tell me how you were turned.'
'Have you told her how Aunt first realized that you buy condoms for yourself how begged to help her with Olu, as you agreed, as a defeated pharmacy.'
'- It is clear, all in the style of Luda. If you can not push, then immediately to the floor and burst into tears, well, money or offers.'
'- Do you own something like?'
'- Yes, as a. They found that Olu more than a year. It almost from the beginning asked me to help. I agreed to make a duplicate key, and occasionally go to him. Although lately not so often. Looks like he did wear out so that it completely forgot about me and invited you.'
'- She is a little head like forgetfulness is not worth it.'
'- Or an entire pharmacy.'
'You both laughed.'
'- As I said, I do not mind what you do with this Olu fuck. It is your business, but first, be careful, nevertheless it really is not very small.'
'- Yeah. I do not understand how he climbed into you. I have it only in the ass.'
'- In the ass? - Surprised mother. - Hmm ... will have to try as a thread. Ugh, so what am I doing?'
'- On the ass.'
'- Oh you. But, remember. Second, your aunt - hitryuschie bitch. I doubt that she will now that the thread still offer me afraid, but still. And that will eventually suck to some bloke for discounts on items for her pharmacy.'
'- Has she offered you such?'
'- Yes, it was. I refused. And thirdly, the Light, I understand that you are young girl, and the money you need, but do not change the sex for money. It is better to be a slut or whore than a prostitute.'
'- Hmmm ... Is there a difference?'
'- Yes. While you may not realize this, but there is.'
'- Well, remember that. And with the money aunt what to do?'
'- With money aunt, you say ... In the good it would be necessary to give up, of course ... On the other hand she offered ... And then the bitch will get it all at once ... Well, can not be punished differently, so though the purse hit her ...'
'You have talked about 15 minutes about the treachery aunt Code honest sluts and whores and left.'
act 'Go home':gt'korrPar'
end

if $ARGS[0]='olu':
cls
gs'stat'
'<center><B><font color=maroon>Drugstore</font></B></center>'
'<center><img src="images\etogame\aptek.jpg" ></center>'
if tetyafirst=0:
	'Aunt as always stood behind the counter and advised some grandmother. Periodically, she kept looking at you, and something in her eyes seemed strange to you. Letting go of the last buyer, aunt went to the front door, closed it with a key and hung a sign, "Accounting." It was obvious that she was nervous.'
	'- <<$name>>, I wanted to talk to you about something ... - finally she said.'
	'- What is it?'
	'- You see, I have right now in the life of such a situation ... there is one problem, though there is certainly not a problem, though ... I do not know who to ask ... even in a strange way to say this to you ...'
	'- Aunt - interrupted you. - May be enough to pull the cat is tail ... I?'
	'- You have probably correctly understand ...'
	'- Teeeeeeetyayayayayaya.'
	'- Okay, I will say it is. I recently came a man and ...'
	'- Is the wedding? Or are you pregnant? - Joyfully exclaimed you.'
	'- No, not yet. Give finish. So, there was a man, named Oluuosegun.'
	'- Oluuo ... who? Language is broken.'
	'- Oluuosegun, I want him just to Olu. He is from somewhere in Africa.'
	'- In the exotic pulled? - You laughed. Aunt missed your comment on deaf ears.'
	'- Well, he is a good man, and all the hardware is just so very ... how to say ... insatiable.'
	'- Iiiiii ... you want me to ... help you with it ... that is tra ... - in your voice felt surprise.'
	'- Well, you can not itself, can anyone of your friends agree - frightened she interrupted. - And certainly not for nothing.'
	'- Aunts, you do in your mind ??? !!! Not only that, you ask me, so still and friends are invited to find ??? !!! It seems like even in the article is, "inducement to prostitution" !!!'
	'- Well, <<$name>>, well, I am sorry - almost in tears she said. - I do not want to lose this guy. I really thought he even hire prostitutes, but there are a whole bunch with them can be. Help me, I beg you.'
	act 'Agree':
		cla
		tetyafirst=2
		oluuosegunday=day
		'- Well, aunt, figs with you, help you, tea is not a stranger. But going to be!'
		'- Of course, of course, Svetulechka - happily she said. - Come home to me, are the keys.'
		act 'Go to my aunt home': gt'motherQW','oluHome'
		end
	act 'Do not agree':
		cla
		tetyafirst=1
		oluuosegunday=day
		'- You just moved, aunt! Niece of the litter of a black man trying to do!'
		'- I am sorry - she said sadly. - You are right, it was not necessary to contact you.'
		'- "Quiet, Masha, I Dubrovsky" - remember you are a school Hochma. - I did not say no, but did not say yes. Overall, I think.'
		act 'Leave': gt'gorodok'
		end
elseif tetyafirst=1:
		'You waited in line and approached the counter. Aunt leaned over to the window.'
		'- Light, remember our conversation? Nuuu ... about Ola? - She said in a whisper.'
		'- Yes, aunts, remember.'
		'- Well, that decided?'
	act 'Agree':
		cla
		tetyafirst=2
		oluuosegunday=day
		'- Well, aunt, figs with you, help you, tea is not a stranger. But going to be!'
		'- Of course, of course, Svetulechka - happily she said. - Come home to me, are the keys.'
		act 'Go to my aunt home': gt'motherQW','oluHome'
		end
	act 'Dont agree':
		cla
		oluuosegunday=day
		'- While nothing is decided. I think.'
		'- Well then - she said sadly.'
		act 'Move away from the counter':gt'gaptek','start'
		end
elseif tetyafirst=2:
	'You waited in line and approached the counter. Aunt leaned over to the window.'
	'- Svetulechka, then how would it again ... need your help with Ola.'
	act 'Agree':
		cla
		oluuosegunday=day
		'- Oh, Auntie, you have exactly the grave svedesh.'
		act 'Go to my aunt home': gt'motherQW','oluHome'
		end
	act 'Dont agree':
		cla
		oluuosegunday=day
		'- Nah, aunts, now I can not.'
		'- Well then. Today will have the most rap - saying this she winced.'
		act 'Move away from the counter':gt'gaptek','start'
		end
	end
end

if $ARGS[0]='oluHome':
cls
gs'stat'
'<center><B><font color=maroon>Aunts apartment</font></B></center>'
'<center><img src="images\qwest\alter\motherQW\olu.jpg" ></center>'
'You unlocked the door to the apartment aunt and went inside.'
if olufirst=0:
	olufirst=1
	minut+=rand(5,10)
	'Taking off shoes, you began to look around the room in search of Olu. Quick search returned no results and you already thinking to leave, when suddenly felt that someone or something is behind you. Turning around, you saw a huge black man, carefully studying you. "Good Aunt security system, but ... Alarms and angry dog ​​rolled into one. And where he had just been hiding?" Flashed through your mind.'
	'- Ty who? - Ebony asked in broken Russian.'
	'- Yes, I like this ... Light ...'
	'- Light? - The name was obviously nothing said. "Well, Aunt gives, could even prevent it."'
	'- Yes, Light, niece aunt Luda, it is her apartment.'
	'Negros face, it was clear that he was trying to understand the meaning of your words. Apparently, he really knew Russian bad. Finally reached him the meaning of what was said.'
	'- Ah, my darling your aunt. Good, good. And that need ti?'
	'- Yes, I would like to say ... come to help her ... with you ... help her with you, - you remember school English lessons.'
	'- Help with me? - Surprised Negro.'
	'Realizing that Interracial communication in a mixture of Russian and English is hardly something to give you a nod indicated Olu pants and looked at him. At this time, a long time to think about the meaning of these actions Negro did not have, and show you the famous golivudskie smile, he pulled out his h ... pulled out his h ... got his m ...'
	act 'Wake':
		cls
		'<center><B><font color=maroon>Aunts apartment</font></B></center>'
		'<center><img src="images\qwest\alter\motherQW\olu1.jpg" ></center>'
		minut+=30
		guy+=1
		anal+=1
		anus+=10
		cumanus=1
		sub+=5
		agape=3
		agapetime=totminut
		if mop!1:mop=0
		hapri=0
		'You woke up from a sharp pain. The ass was burning with fire, you were crying, screaming, trying to escape, but Olu gripped you and continued to fuck my monster. Your cries of his even more wound up.'
		'In a few minutes you will have ceased to feel his ass, forces in attempts to break you no longer exists, and all that you could, so it izredko sob. Olu soon broke down and discharged you right in the ass.'
		'Catching his breath, Ebony gently lifted you helped to get dressed and accompanied her to the door. Though strength is almost gone, anger was rife. Everything you wanted to at the time, so it is to strangle my aunt.'
		act 'Back to aunt': gt'motherQW','oluEnd'
		end
else
	olusexrand=rand(1,100)
	if olusexrand<=90:
		minut+=5
		'Taking off shoes, you went straight to the big room, where he found Ola.'
		'- Hi, Light - Ebony smiled his smile golivudskie unchanged.'
		'- Well hello, my black friend - meaning of the phrase Olu clearly do not understand.'
		if olufirst=2:
			olufirst=3
			'- My darling say, I make you too sick last time.'
			'- Yes.'
			'- Sorry for that ... I am sorry ... - he looked down guiltily.'
			'- Well, I hope more of this will not happen.'
			end
		act 'Next':
			cls
			picrand=rand(1,3)
			'<center><B><font color=maroon>Aunts apartment</font></B></center>'
			'<center><img src="images\qwest\alter\motherQW\olu<<picrand>>.jpg" ></center>'
			minut+=30
			guy+=1
			anal+=1
			anus+=10
			sub+=1
			cumanus=1
			if lubri>0:
				agape=1
				agapetime=totminut
				horny+=20
				end
			if lubri=0:
				agape=2
				agapetime=totminut
				horny+=10
				end
			'Olu undressed himself and helped you. You sucked his little monster, so he took the firing position. When it was done, you lay down on the sofa.'
			if lubri>0:'Ebony took you grease squeezed himself into the hands and fingers smeared your anus, and then his penis.'
			if lubri=0:'Ebony was gently massaging your anus, exponent introduced first one, then two, three fingers and began to pull out the ass.'
			'Finally, he pulled his fingers, and you feel like its a great device ran into your hole.'
			'You squealed a little pain when he was a monster, your ass apart, came in you.'
			'Olu froze for a moment, giving your ass to adjust to the protruding member in it, and then started to drive them all the more insistent.'
			'You were a little hurt, but at the same time nice when a member moved inside your ass.'
			'The Negro groaned and you feel like you jet of sperm hit the inside of your body.'
			if oluD=0 and rand(1,10)=10:
				oluD=1
				'- By the way, Light, five adults and soon has to leave the city? - Olu asked after a while.'
				'- Well, yes, most likely - sluggishly responded to you.'
				'- In the city now learn my niece Demarcus.'
				'- Well, not a niece and nephew, most likely. But what are you getting at?'
				'- I see five lubit real man - said with a smile and nodded at Olu its not yet fallen member.'
				'- Yeah, of course. And where I can find your nephew?'
				'- Where is usually to meet a girl in the city? Park, coffee shop.'
				'- Well, yes, and can meet with your nephew.'
				end
			'Olu helped you get dressed and accompanied her to the door.'
			lubri-=1
			act 'Back to aunt': gt'motherQW','oluEnd'
			end
	else
		cls
		'<center><B><font color=maroon>Aunts apartment</font></B></center>'
		'<center><img src="images\etogame\korr2.jpg" ></center>'
		'You unlocked the door to the apartment aunt and went inside.'
		'Taking off shoes, you went straight to the big room where there was usually Olu. Going to the door, you hear a woman moaning.'
		act 'Look':
			cls
			picrand=rand(1,3)
			'<center><B><font color=maroon>Aunts apartment</font></B></center>'
			'<center><img src="images\qwest\alter\motherQW\oluM<<picrand>>.jpg" ></center>'
			if oluM=0:
				oluM=1
				minut+=25
				horny+=20
				'You quietly opened the door and looked inside. What he saw surprised you. Your mother was writhing on the penis and Olu is clearly getting a lot of fun. "And he just placed it, especially not in the ass," flashed through your mind. You are seeing this little porn show and went out into the corridor. After 10 minutes, your mother came and stared at you.'
				'-Docha?'
				'- Mum ...'
				'- Aunt?'
				'- Aunt ...'
				'You both giggled nervously.'
				'- Light, give me 5 minutes, I will give myself up, and then go talk to my sister.'
				act 'Back to aunt': gt'motherQW','oluEnd'
			else
				minut+=25
				horny+=20
				'You quietly opened the door and looked inside. What I saw did not surprise you. Your mother was writhing on the penis and Olu is clearly getting a lot of fun. "And he just placed it, especially not in the ass" has once again caught you on your thoughts. Mother noticed you and smiled. You are seeing this little porn show and went out into the corridor.'
				'"I think she can handle herself"'
				act 'Leave': gt'gorodok'
				end
			end
		end
	end
end

if $ARGS[0]='oluEnd':
	cls
	gs'stat'
	'<center><B><font color=maroon>Drugstore</font></B></center>'
	'<center><img src="images\etogame\aptek.jpg" ></center>'
	if olufirst=1:
		minut+=15
		'You ran back to the pharmacy and stopped at the door. You look like a jack-was-the-box. You looked in the wrong side of the counter.'
		'My aunt was talking to another customer, some guy full years under 40 who choose what brand zhiroszhigatelnye pills to take. Seeing you and your opinion, aunt stopped abruptly in mid-sentence, his face reflected fear. A guy looked at her blankly, followed the direction of her gaze. Behind him in your side turned the other buyers in the queue.'
		'- Pray, aunt, - through clenched teeth you. - KILL fuck !!!'
		'The first dangerous moment realized just the same guy. Surprisingly agile for his physique, he jumped from the place where literally a fraction of a second you were trying to reach through the window counter aunt, and judiciously deciding that running, especially from an angry woman, much more effective than any pills, beat a hasty retreat from the pharmacy . Further recognition has come to the other customers, and they quickly began to leave the future place of fighting.'
		'- Light, let s talk!'
		'- AT THE FUNERAL OF YOUR TALKING !!!'
		'Are you trying to get to his aunt, but every time she managed to dodge and then increase the distance between you.'
		'- The bastards ... BITCH ... creature ... scum ... SHEEP ... HATE ... - every word was accompanied by a cast of what was on hand at the aunt.'
		act 'An hour later':
			cls
			minut+=75
			if son>1:son=1
			galubri=1
			olufirst=2
			'<center><B><font color=maroon>Drugstore</font></B></center>'
			'<center><img src="images\qwest\alter\motherQW\gaptek.jpg" ></center>'
			'"Elephant in the room" - perhaps the most gentle expression, which you could describe the state of the pharmacy.'
			'You and aunt sat on the floor in different corners of the room and breathed heavily. You did not manage to get to it, though a few shots yet reached the goal, and Aunt wincing rubbing sore spots.'
			'Behind the glass front door you notice the crowd of onlookers, who all this time watching the show. Among them you will even notice the police, do not even try to go inside and to separate you. Seeing you view a crowd of onlookers with the police quickly resolved.'
			'- Svetulechka ... lets talk ... please ... - breathlessly said my aunt.'
			'- What the fuck ... talk - you threw a bottle of some kind of colorless liquid, but the strength you have left, so she broke at the feet of an aunt.'
			'- Well, I am sorry ... Svetulechka ...'
			'- What the hell, I am sorry, Aunt ?! Your ebyr nearly tore me apart! And you do not even warned me !!!'
			'- Would you ... agreed to help ... if ... know that?'
			'- Yes ... No ... I do not know ...'
			'- You see ...'
			'You are thinking. In the words of Aunt made ​​sense. Anger, of course, still remains, but the strength to fight and swear was not there. Aunt wearily rose and walked up to you and sat down.'
			'- All that bad?'
			'- Bad? Yes in the ass is a pain that does not pass!'
			'- I understand - aunt winced, remembering the experience. - What did you, no lubrication or what?'
			if age<18 and ssdostup=0:'- Where do you take it? In the adult store I have not allowed. Besides, I do ofigela on its size and disconnected, and woke up when it was too late.'
			if age>=18 or ssdostup=1:'- Yes, I even did not have time to understand. When I saw razmerchik, so we can say disconnected. And when I came it was too late. In addition, far away to the city to go.'
			'- I see ... I am sorry again. Light, every day I am in town, so that I could bring you a little bit.'
			'- At least on this thank you, aunt.'
			'- And Olu say that was more careful next time.'
			'- What the hell next time ?! I look like a masochist ?!'
			'- Well, Light, well, please - pleaded aunt. - I am alone with him could not do it. And not for just the same.'
			'- I have heard that.'
			'- Remember when I said that I was willing to hire him, even the girls? Well, I would better pay you will, than someone else. Oh, please.'
			'- Cool, man. If my mother a whore, then you just prison crying! The first call will not run, but if other things will not, then to hell with you, help you.'
			'- Thank you, thank you, thank you, beloved niece - aunt nearly suffocated you in his arms, she was very happy to your account.'
			act 'Go home':gt'korrPar'
		end
	else
		if oluM!1:
			minut+=rand(5,10)
			money+=rand(500,700)
			'You ran to the pharmacy and waited until Aunt free.'
			'- Thank you very much, <<$name>> - happily she said, and held out an envelope. - Here are a few, of course, but believe me, in all sincerity. I really appreciate your help.'
			act 'Leave':gt'gorodok'
		else
			minut+=15
			oluM=2
			'You went to the pharmacy with his mother and aunt waited until cleared, and while buyers disperse.'
			'- Well hello, madam Khrenova - start your mother.'
			'- Natasha, are you talking about? - Tried to fool matted aunt.'
			'- People, do not play. She guess where we are faced with <<$name>> or suggest?'
			'- Itself ...'
			'- Well, you are so quick-witted. Nail to you, sister, but in a good mood.'
			'- Your daughter has already tried to ...'
			'- Yes? - Mother stared at you.'
			'- Well, yes, it was ... after the first time to Olu ... - sheepishly told you. - Paul pharmacy smashed.'
			'- Only half? - Your mother laughed. - In general, all right, if she asks not against your Olu, you and I, in principle, too. But try its still something to draw - buried in a nearby cemetery. You know me, do not look that big sister. Everything all right?'
			'- I see ...'
			'- I can not hear!'
			'- Yes, I have understood, I understood!'
			'- That is wonderful, and now Light home. With you we still have to talk.'
			act 'Go home':gt'motherQW','motherQW_4'
		end
	end
end
--- motherQW ---------------------------------

# sister
sisterAge = age + 3
!модель Megan Vale Валентина Азарова

gs 'stat'
'<center><B><font color = maroon>Ann</font></B></center>'
'<center><img src="images\qwest\alter\sister.jpg"></center>'
'Your Setra Anya bit older than you. She <<sisterAge>> years. She graduated from high school, but was unable to go to university and now works at the store clerk.'
if sister < 20: 'Do you and your sister scandal.'
if sister >= 20 and sister < 40: 'Do you and your sister tensions.'
if sister >= 40 and sister < 60: 'Do you and your sister a normal relationship.'
if sister >= 60 and sister < 80: 'Do you and your sister a good relationship.'
if sister >= 80: 'You have a great relationship with his sister.'

if cumlip > 1 or cumface > 0 or cumfrot > 0:
'Sister looks at you, "<<$name>>, what is it?" Suddenly her eyes rounded "<<$name>>, yes it´s sperm! That´s little sister, well, well. Look, if the nurse know, you do not plight."'
end

if SiSonWork = 1:
!на работе
'<<$name>> does not bother me, I do not see buyers.'
act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
exit
end

if SiSgdk = 1:
!Возле клуба с друзьями

	if sister < 40:
	'"What do you want? Wali come on!" Anya told you chuckle under her friends.'
	else
	'Anya sits now devchenok guys drinking beer and "Hey little sister." Anya said you smile. "Want pivasom?"'
		act 'Drink beer':
		cls
		minut += 60
		sister += 5
		alko += 3
		salo += 1
		fat += 2
		energy += 10
		gs 'stat'
			if AniaFrends >= 1:
			gt 'annafrends'
			end
			if AniaFrends = 0:
			AniaFrends = 1
			'You met friends they. They are all former classmates. Little Lena and moving constantly confuses Ira High athletic guy whose name is Rex and all the red-haired skinny guy by the name Roma. After dating you sat drinking beer and chatted with friends Ani.'
			end
		act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
		end
	end
act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
exit
end

act 'Ask about this father':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Ann</font></B></center>'
'<center><img src="images\qwest\alter\sister.jpg"></center>'
'You asked about Ani real father. She grinned. "<<$name>>. I was 4 years old when they broke up. I do not remember him and never vidila. Nurse does not like to talk details. But like with you as our real father left somewhere in another city."'
act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
end

act 'Ask about universal':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Ann</font></B></center>'
'<center><img src="images\qwest\alter\sister.jpg"></center>'
'You asked about Anna University. She grinned. "I almost came, gleaning points. Who scored on guys need it the whole university. What I will give this piece of paper?"'
act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
end

act 'Ask about her boyfriend':
cls
minut += 5
gs 'stat'
'<center><B><font color = maroon>Ann</font></B></center>'
'<center><img src="images\qwest\alter\sister.jpg"></center>'
'You asked about her boyfriend Ani. She smiled. "Well, I have a boyfriend. Though nothing serious. He told me more than a friend."'
act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
end

act 'Move away': SiSonWork = 0 & SiSgdk = 0 & gt $loc, $metka
--- sister ---------------------------------

# brother
brotherAge = age - 2

gs 'stat'
'<center><B><font color = maroon>Colca</font></B></center>'
'<center><img src="images\qwest\alter\brother.jpg"></center>'
'Your brother Kolka younger than you and he <<brotherAge>> years. Kolka born unlike you and your sister already from his stepfather. He goes to the same school as you and enjoys football.'
if brother < 20: 'You and your brother scandal.'
if brother >= 20 and brother < 40: 'You and your brother tensions.'
if brother >= 40 and brother < 60: 'You and your brother normal relations.'
if brother >= 60 and brother < 80: 'You and your brother good relationship.'
if brother >= 80: 'You and your brother a great relationship.'


if cumface > 0 or cumfrot > 0 or cumlip > 1:
	if GorSlut > 0:
	'Kolka looks at you "Slysh <<$gnikname>>. After service cocks should be washed away, but not to run in struhne."'
	end
	if GorSlut = 0:
		if motherKnowSpravka >= 1 or motherKnowWhore >= 1:
		'Kolka looks at you, "Look, I understand that the mother aware that you´re a whore. Struhne But going to run the whole town knows you´re a whore."'
		end
		if motherKnowSpravka = 0 and motherKnowWhore = 0:
		'Kolka looks at you, "What´s that?" His eyes rounded "Yes, it´s sprma. Here is the number, my sister exemplary slut."'
		end
	end
act 'Move away': gt $loc, $metka
exit
end

act 'Move away': gt $loc, $metka

if GorSlut > 0:
'Kolka frowned "What do you want <<$gnikname>>."'
end

if motherKnowSpravka >= 1 or motherKnowWhore >= 1:
'You came to my brother. He laughed and began to poke a finger in you "whore. Whore. Whore."'
else

if $loc = 'gschool':
	if brother < 40:
	'Brother frowns "Get off me pridurochnaya!"'
	else
	'Brother grins "Hi <<$name>>. Play football?"'
		act 'Play football':
		cls
		minut += 60
		brother += 5
		agil += RAND(0,2)
		speed += RAND(0,2)
		set sweat += 3
		set beg += RAND(2,5)
		gs 'stat'
		'You ran for an hour on the field chasing a ball with my brother and his friends.'
		act 'Move away': gt $loc, $metka
		end
	end
end
end
--- brother ---------------------------------

# family
''
''
if StoryLine > 0:
if $loc = 'bedrPar':
sisterHere = 0
	if hour < 7:
	sisterHere = 1
	'Your sister Anna asleep in bed.'
	end

	if week < 6:
		if hour = 7:
		sisterHere = 2
		'Your sister <a href="exec:GT ''sister''">Anne</a> is going to work.'
		end
	end
	if week >= 6:
		if hour >= 7 and hour < 10:
		sisterHere = 1
		'Your sister Anna asleep in bed.'
		end
		if hour = 10:
		sisterHere = 2
		'Your sister <a href="exec:GT ''sister''">Anne</a> going for a walk.'
		end

	end
	if hour >= 18:
	sisterHere = 2
	'Your sister <a href="exec:GT ''sister''">Anne</a> sitting on bed and reading a book.'
	end
end
if $loc = 'bedrPar2':
	if hour < 7 or hour >= 22:
	'Sleeps on the bed mom and stepfather.'
	end
	if week < 6:
	end
	if week >= 6:
	end
end
if $loc = 'sitrPar':
	if hour < 7 or hour >= 22:
	'Sleeps on the couch your younger brother Kolya.'
	end
	if week < 6:
		if hour >= 16 and hour < 22:
		'Sitting on the couch <a href="exec:GT ''father''">stepfather</a> and watching TV.'
		end
		if hour >= 18 and hour < 20:
		'Sitting at the table your little brother <a href="exec:GT ''brother''">Kolka</a> and teaches lessons.'
		end
		if hour >= 20 and hour < 22:
		'Sitting on the couch your younger brother <a href="exec:GT ''brother''">Kolka</a> and watching TV.'
		end
	end
	if week >= 6:
		if hour >= 7 and hour < 22:
		'Sitting on the couch <a href="exec:GT ''father''">stepfather</a> and watching TV.'
		end
		if hour >= 18 and hour <= 21:
		'Sitting on the couch your younger brother <a href="exec:GT ''brother''">Kolka</a> and watching TV.'
		end
	end
end
if $loc = 'kuhrPar':
	if week < 6:
		if (hour >= 7 and hour < 8) or (hour >= 16 and hour < 22):
		'Stands near the stove <a href="exec:GT ''mother''">Mom</a> and that it cooks.'
		end
	end
	if week >= 6:
		if hour >= 7 and hour < 22:
		'Stands near the stove <a href="exec:GT ''mother''">Mom</a> and that it cooks.'
		end
	end
end
if $loc = 'korrPar':
	if week < 6:
	end
	if week >= 6:
	end
end

if $loc = 'vokzalG':
	if week < 6:
	end
	if week >= 6:
	end
end

if $loc = 'gdk':
	if week < 6:
		if hour >= 16 and hour < 18:
		'Your sister <a href="exec:GT ''sister''">Anne</a> sitting in the company of beautiful girls and guys drinking beer.'
		end
	end
	if week >= 6:
		if hour >= 11 and hour < 18:
		'Your sister <a href="exec:GT ''sister''">Anne</a> sitting in the company of beautiful girls and guys drinking beer.'
		end
	end

end

if $loc = 'gschool':
	if week < 6:
		if hour >= 15 and hour <= 17:
		'On the football field near the school your <a href="exec:GT ''brother''">brother</a> rides in football.'
		end
	end
	if week >= 6:
		if hour >= 7 and hour <= 17:
		'On the football field near the school your <a href="exec:GT ''brother''">brother</a> rides in football.'
		end
	end
end
end
--- family ---------------------------------

# Snpc
!{
$npcName[numnpc] = ''
$npcSurName[numnpc] = ''
$npcText[numnpc] = ''
grupNPC[numnpc]=
npcPol[numnpc]
grupTipe[numnpc]
}
gs 'dinnpc'



gs 'stat'
'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg "></center>'
'<<$npcText[numnpc]>>'
if grupTipe[numnpc] = -1: '<<$npcName[numnpc]>> refers to a group of outcasts.'
if grupTipe[numnpc] = 0: ''
if grupTipe[numnpc] = 1: '<<$npcName[numnpc]>> refers to a group of nerds.'
if grupTipe[numnpc] = 2: '<<$npcName[numnpc]>> refers to a group sportikov.'
if grupTipe[numnpc] = 3: '<<$npcName[numnpc]>> refers to a group of steep.'
if grupTipe[numnpc] = 4: '<<$npcName[numnpc]>> refers to a group Gopnik.'
if grupNPC[numnpc]<20: 'You have a bad attitude.'
if grupNPC[numnpc] >= 20 and grupNPC[numnpc]<40: 'You tensions.'
if grupNPC[numnpc] >= 40 and grupNPC[numnpc]<60: 'You have a normal relationship.'
if grupNPC[numnpc] >= 60 and grupNPC[numnpc]<80: 'You have a good relationship.'
if grupNPC[numnpc] >= 80: 'You have a great relationship.'
if numnpc = 14 and KatjaOTN > 0:
if KatjaHorny < 20: 'Katia looks calm and indifferent.'
if KatjaHorny >= 20 and KatjaHorny < 40: 'Katya in the eyes jump merry twinkle.'
if KatjaHorny >= 40 and KatjaHorny < 60: 'Katya has a faint blush on her cheeks and she looks at you mischievously.'
if KatjaHorny >= 60 and KatjaHorny < 80: 'Kate blushed and languid looks at you.'
if KatjaHorny >= 80: 'Katya all red as a lobster and her chest heaving from deep breathing.'
end
''
''
!act 'Move away': gt $locM, $metkaM
!реакция на сперму
gs 'cumreaction'
!издевательства
gs 'izdevat'
!крутыши
gs 'krutishi'

if numnpc = 23 and albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0:
'Albina easy smiles at you "<<$name>>, you spravlyaeshsya well in training, do not forget to come to it."'
if GorSlut > 0: 'By the way, you go about disgusting rumors.'
end
if AlbFrend = 1 and numnpc = 23:
AlbFrend = 2
grupNPC[numnpc] = 100
'Albina smiling at you, "Thank you <<$name>>, correctly say, a friend in need is a friend indeed. You rescued me very warning of Zvezdushkah unfortunately have to close our team, that would not run into trouble."'
end
if AlbFather = 2 and numnpc = 23 and AlbEnemy = 0:
grupNPC[numnpc] = 0
AlbEnemy = 1
'Albina angrily glared "Oh, you bitch! Said at me taken in head to write. Well, you´ll regret it."'
end

!болталка с Котовым
gs 'kotovtalker'
!!!!!!!!!!!!!!!!!!!!!!!!!гопота!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if grupTipe[numnpc] = 4:
	if $loc = 'gdkin':
		if GorSlut < 2:
			if npcPol[numnpc] = 0:
			'<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something dumb like.'
			else
			'<<$npcName[numnpc]>> - Hey Svetsik, let podbuhnem, and then do something dumb like.'
			end

			act 'Drink beer':
			cls
			minut += 5
			grupNPC[numnpc] += 5
			alko += 1
			salo += 1
			fat += 2
			energy += 10
			gs 'stat'
			'You drank beer in the company of friends.'
			act 'Move away': gt $loc, $metka
			end


			act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
		end
		if GorSlut >= 2:
			if npcPol[numnpc] = 0:
			'<<$npcName[numnpc]>> - Cho priperlas, vaflersha. Huytsa want a nap or something?'

			else
			'<<$npcName[numnpc]>> - Hey cocksucker, sebi here. With you to stand beside you dumb.'
			end

			act 'Leave': grupNPC[numnpc] -= 5 & gt $loc, $metka
		end
	exit
	end

end

	act 'Chat':
	cls
	if $loc = 'gdkin': minut += 5
	gs 'stat'
	'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		if numnpc = 1 and grupNPC[numnpc] = 0:
		'Dima sniffed. "Get off me pimply pig."'
		if $loc!'gdkin': dynamic $din_sekondparturok
		if $loc = 'gdkin': act 'Move away': gt $loc, $metka
		exit
		end
		!если порядочная
		gs 'nogorslut'
		!если не порядочная
		gs 'yesgorslut'
	if $loc!'gdkin': dynamic $din_sekondparturok
	if $loc = 'gdkin': act 'Move away': gt $loc, $metka
	end


	!!!!!!!!!!!!!!!!!!!АРТЕМ ЧЕБОТАРЕВ БОТАН!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if numnpc = 2:
		if dom > 0 and artomLernQW = 0:
		act 'You could not pull me in a little school?':
			cls
			if $loc = 'gdkin': minut += 5
			grupNPC[numnpc] += 5
			sub += 1
			if GorSlut < 3: artomLernQW = 1
			gs 'stat'
			'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
			if GorSlut < 3: 'You came to Artem and asked him to help you to learn. Artem was a bit surprised and said to you "Okay. Come after school to my home, work."'
			if GorSlut >= 3: 'You came to Artem and asked him to help you to learn. Artem outraged "Bah, I´ll spend my time on this as you are, of course, and no more can not fit me."'
			if $loc!'gdkin': dynamic $din_sekondparturok
			if $loc = 'gdkin': act 'Move away': gt $loc, $metka
			end
		end
	end


	!!!!!!!!!!!!!!!КАТЯ МЕЙНОЛЬД!!!!!!!!!!!!!!!!!!!!!!!
	if numnpc = 14 and meynoldQW = 1:
		act 'Thank you for what you took away from the disco.':
		cls
		if $loc = 'gdkin': minut += 5
		grupNPC[numnpc] += 5
		meynoldQW = 2
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'You came to Kate and thanked her for what she stole you from the disco home when you have touched. Kate smiled at you. "Not at all, only you do not get drunk. Drunkenness could end badly."'
		if $loc!'gdkin': dynamic $din_sekondparturok
		if $loc = 'gdkin': act 'Move away': gt $loc, $metka
		end
	end
	if numnpc = 14 and meynoldQW > 1 and mop <= 1:
	'Kate looks at you with a smile, "<<$name>>, give I to you though your eyes are tinted."'
		act 'Cosmetics.':
		cls
		hapri = 1
		if $loc = 'gdkin': minut += 5
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'Katia quickly straightened your hair and asked. "You what? Little tint, usually distribute or shovel?"'
			act 'Light make-up':
			cla
			set mop = 2
			'Katya legonechko your eyes and let the little tint the lips.'
			if KatjaOTN > 0: KatjaHorny += 10 & 'Kate blushes and depart from your eyes.'
			if $loc!'gdkin': dynamic $din_sekondparturok
			if $loc = 'gdkin': act 'Move away': gt $loc, $metka
			end

			act 'Normal makeup':
			cla
			set mop = 3
			'Kate has made up your lips, eyes and let the eyelids.'
			if KatjaOTN > 0: KatjaHorny += 10 & 'Kate blushes and depart from your eyes.'
			if $loc!'gdkin': dynamic $din_sekondparturok
			if $loc = 'gdkin': act 'Move away': gt $loc, $metka
			end

			act 'Bright makeup':
			cla
			set mop = 4
			'Kate painted her lips bright lipstick you thickly painted her eyes and eyelashes, eyebrows and summed imposed deep shadows.'
			if KatjaOTN > 0: KatjaHorny += 10 & 'Kate blushes and depart from your eyes.'
			if $loc!'gdkin': dynamic $din_sekondparturok
			if $loc = 'gdkin': act 'Move away': gt $loc, $metka
			end
		end
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $loc!'gdkin': dynamic $din_sekondparturok
if $loc = 'gdkin': act 'Move away': gt $loc, $metka
--- Snpc ---------------------------------

# dinnpc
$din_predlog_dima_bj = {
		act 'Squat':
		cls
		DimaRudeQW += 1
		sub += 1
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'Embarrassed and blushing you squatted in front of Dima, who got dick and put it in your face.'
			act 'Take by mouth':
			cls
			minut += 5
			horny += 10
			bj += 1
			!bja += 1
			dick = 16
			if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
			sub += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\cocksucker2.jpg"></center>'
			'You gently kissed the purple head member and said Dima taking your hair. "Let´s suck." You cupped his lips and took his dick in her mouth. You began to move his lips on hard cock absorbing it into his mouth as deeply as possible. Dima groaned and grabbed your head in his hands, "Suck it deeper."'
				act 'Suck':
				cls
				minut += 5
				throat += 2
				dick = 16
				sub += 1
				if mop > 1: mop = 0
				hapri = 0
				manna = 0
				horny = 0
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\cocksucker3.jpg"></center>'
				'Dima firmly grabbed you by the hair and suddenly moved vperet body, causing his hard cock went in your throat, you´re choking and tears flowed from his eyes. Dima took a member of your throat and you coughed struggling with a bout of vomiting. Dima gave you a little breather and again put his hard cock in your mouth. He started literally fuck you in the mouth and his cock every time you flew deeper into the throat. You have flowed from the nose snot on lips, eyes stream tears flowed and flowed drooling lips, dripping on your clothes. Dima did not let up and fucked your mouth is already in full force. Soon you become studded in his crotch with his nose. Dima your face pressed to his groin, you struggled to relax blazing fire throat. "What a pig like? Taschishsya when you roughly fuck? Now you will be my pig. Will grunt and scream on my cock." Suddenly he pulled his dick out of your mouth. And he began to masturbate in front of your face.'
					act 'trying to catch my breath':
					cls
					minut += 5
					cumlip += 1
					cumface += 1
					cumfrot += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\cocksucker4.jpg"></center>'
					'You sit on his haunches before Dima panting, all your face smeared with snot, tears, and saliva. Suddenly a member of Dima flies jet of sperm and hits you on the face, then another and another jet. Your whole face is covered with a layer of mucus in which all mixed up. Dima member removes his pants and says, "It was not bad. It will be necessary to repeat as anything. Well, until I see you again." Dima turns and going to the disco leaving you alone.'
					act 'Leave': gt 'gdk'
					end
				end
			end
		end

	}

	$din_dima_predlog = {
		act 'Slap him':
		cls
		dom += 1
		grupNPC[numnpc] = 0
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'You cracked the face Dima and he clutched his cheek. "Well, get out a fool. And do not come near me."'
		act 'Leave': gt $loc, $metka
		end

		act 'become confused':
		cls
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'You have eyes widened and you flushed with such a proposal. Dima unbuttoned his pants. "Come on, brave, I can not stand here all night."'
			act 'Slap him':
			cls
			dom += 1
			grupNPC[numnpc] = 0
			gs 'stat'
			'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
			'You cracked the face Dima and he clutched his cheek. "Well, get out a fool. And do not come near me."'
			act 'Leave': gt $loc, $metka
			end
		dynamic $din_predlog_dima_bj
		end

		dynamic $din_predlog_dima_bj
	}

	$din_igor_disco_bj = {
		act 'Squat':
		cls
		if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
		dick = 6
		bj += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\cocksucker5.jpg"></center>'
		'You sat on his haunches and Igor pulled out of his pants his dick. You looked at this tiny fungus and almost laughed. Member Igor was really small and thin and sticking of hair like a mushroom in a meadow. You gently around his lips and began to baby suck on a normal sucking a small penis you did not work and you began to fondle his lips squeezing and licking tongue. Soon Igor groaned and stood out in your mouth drop of semen that you can hardly feel.'
		act 'Leave': gt $loc, $metka
		end
	}
	$din_igor_dima_disco_bj = {
		act 'Squat':
		cls
		if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
		dick = 6
		bj += 2
		cumlip += 1
		swallow += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\cocksucker6.jpg"></center>'
		'You sat on his haunches and Igor pulled out of his pants his dick. You looked at this tiny fungus and almost laughed. Member Igor was really small and thin and sticking of hair like a mushroom in a meadow. The 16 centimeter dick Dima looked this giant against this silicula. You guys took the members in his hands and began to suck them one by one. Finally, the boys began to cum in your mouth. Sperm from Igor almost never was, but you almost Dima poured a mouthful. You swallow sperm and wiped his lips. Satisfied boys buttoned pants and went to the disco.'
		act 'Leave': gt $loc, $metka
		end

	}
	$din_igor__disco = {
		act 'Go to the street':
		cls
		gs 'stat'
		'<center><img src="images\qwest\alter\npc4.jpg"></center>'
		'You went out with Igor. Igor passionately took you by the hand and began to say "<<$name>>, you´re such a pretty girl when I see you, I have immediately podnimaetsya mood. I like you very nravishsya. I´d really like to start a relationship with you."'
			act 'Refuse': gt $loc, $metka

			act 'agree':
			cls
			IgorLoverQW = 1
			gs 'stat'
			'<center><img src="images\qwest\alter\npc4.jpg"></center>'
			'You agreed to meet with Igor and he blossomed smile "<<$name>>, you can get a kiss?"'
			if dom > 0:
			act 'interruption':
			cls
			dom += 5
			IgorDominaQW = 1
			gs 'stat'
			'<center><img src="images\qwest\alter\npc4.jpg"></center>'
			'You grin skazale Igor that he would kill. Igor blushed and knelt "<<$name>>, I beg you as a slave, on his knees, just one kiss!"'
			if dom >= 10:
				act 'You can kiss my feet':
							cls
							dom += 5
							IgorLove += 20
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\leg.jpg"></center>'
							'You smiled looking at Igor top to the bottom and was told that he can kiss your foot. Igor kissed your foot and began to lick your toes, tickling you with his tongue. Igor took his tiny pisyun and began to masturbate on her knees in front of you and licking your feet, finally he came to the ground.'
							act 'Leave': gt $loc, $metka
							end
			end

			act 'Kiss':
						cls
						IgorLove += 10
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
						'You kissed Igor, Igor kissed your lips passionately but gently.'
						act 'Leave': gt $loc, $metka
						end
			end
			end

				act 'Kiss':
				cls
				IgorLove += 5
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
				'You kissed Igor, Igor kissed your lips passionately but gently.'
				act 'Leave': gt $loc, $metka
				end
			end
		end

		act 'Refuse': gt $loc, $metka

	}
--- dinnpc ---------------------------------

# Gnpc
!парни
GvstreBoyAfter[numnpc] = 0
GvstreBoy = 0
boyvstre[numnpc] += 1
gs 'stat'
'<center><B><font color = maroon><<$nameBoyfrend[numnpc]>></font></B></center>'
!'<center><img src="images\qwest\alter\npc<<numnpc>>. Jpg "></center>'
'<<$nameBoyfrend[numnpc]>> your guy.'
if otnBoyFrend[numnpc]<20: 'You have a bad attitude.'
if otnBoyFrend[numnpc] >= 20 and otnBoyFrend[numnpc]<40: 'You tensions.'
if otnBoyFrend[numnpc] >= 40 and otnBoyFrend[numnpc]<60: 'You have a normal relationship.'
if otnBoyFrend[numnpc] >= 60 and otnBoyFrend[numnpc]<80: 'You have a good relationship.'
if otnBoyFrend[numnpc] >= 80: 'You have a great relationship.'
''
''

if GboyBalabol[numnpc] = 1:
	act 'Blame the guy that he yap':
	cls
	gs 'stat'
	'You accused guy that he blabbed about your relationship now and all surrounding believe that you <<$gnikname>>'
	reaktrand = RAND(0,2)
		if reaktrand = 0:
		'<<$nameBoyfrend[numnpc]>> it began to apologize, he accidentally drunk one friend said, and he blabbed all bitch. <<$nameBoyfrend[numnpc]>> vowed that more of this does not happen again.'
		end
		if reaktrand = 1:
		'<<$nameBoyfrend[numnpc]>> began to soothe you, say nothing terrible happened, chat and forget.'
		end
		if reaktrand = 2:
		'<<$nameBoyfrend[numnpc]>> said with a grin. Yes Relax, you is the real <<$gnikname>>, that this fact?'
		end

		act 'quit Man':
		cls
		dom += 10
		GboyBalabol[numnpc] = 2
		otnBoyFrend[numnpc] = 0
		gs 'stat'
		'You covered a rage and you sent the guy on the dick. And then left.'
		act 'Leave': gt $loc, $metka
		end

		act 'just a guy':
		cls
		sub += 10
		GboyBalabol[numnpc] = 2
		gs 'stat'
		'You thought a little and decided to forgive the guy.'
		act 'Leave': gt $loc, $metka
		end

	end
end

act 'Walking through the square':
cls
if hapri = 0: otnBoyFrend[numnpc] -= 1
if hapri = 1: otnBoyFrend[numnpc] += 1
if mop = 2: otnBoyFrend[numnpc] += 1
if mop = 3: otnBoyFrend[numnpc] += 2
if mop = 4: otnBoyFrend[numnpc] += 3
if ski > 0 or glamur > 0: otnBoyFrend[numnpc] += 2
minut += 15
gs 'stat'
'You walk through the square with a guy and fun to hang out.'
	if kotovLoveQW > 0:
	otnBoyFrend[numnpc] = 0
	'Suddenly you see is what you go to a meeting Witek Kotov he comes to the guy and silently slap in his face. <<$nameBoyfrend[numnpc]>> falls to the ground. Witek naklonyaetsya over him "Hey you fucker, it´s my girls, see you again with her, living in the woods to bury you understand?" The guy nods his head and says that he understood.'
	act 'Leave': gt $loc, $metka
	exit
	end
gboyrand = RAND(0,1)
	if gboyrand = 0:
	'<<$nameBoyfrend[numnpc]>> offered to go to the movies.'
	act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
		act 'Going to the cinema':
		cls
		minut += 15
		gs 'stat'
		'You went with a guy in a movie theater located in the park. <<$nameBoyfrend[numnpc]>> bought movie tickets. You came together in a small movie theater and found their seats.'
			act 'Watch a movie':
			cls
			manna += 100
			minut += 120
			otnBoyFrend[numnpc] += 5
			gs 'stat'
			'You got a guy on the chair placed in the back row. Soon the lights dimmed and the movie started on the screen.'
				if otnBoyFrend[numnpc]<80:
				'You watched the movie a couple of hours sitting in a chair next to the guy.'
				act 'Go to the exit': gt 'Gnpc2'
				end
				if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
				'You have been watching a movie and suddenly felt a hand on my knee Man.'
					act 'Remove his hands':
					cls
					dom += 1
					otnBoyFrend[numnpc] -= 20
					gs 'stat'
					'You have removed palm guy with his knees and continued to watch the movie. Movie finally ended. In the hall lights went on and the screen went titles.'
					act 'Go to the exit': gt 'Gnpc2'
					end

					act 'Ignore':
					cls
					otnBoyFrend[numnpc] += 5
					gs 'stat'
					'You pretended that nothing happens and the guy started more actively stroking your leg. Movie finally ended. In the hall lights went on and the screen went titles.'
					act 'Go to the exit': gt 'Gnpc2'
					end
				end
				if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc]>0:
				'You have been watching the movies, and <<$nameBoyfrend[numnpc]>> put his hand on your foot and began to stroke your knee. Movie finally ended. In the hall lights went on and the screen went titles.'
				act 'Go to the exit': gt 'Gnpc2'
				end
			end
		end
	end
	if gboyrand = 1:
	'<<$nameBoyfrend[numnpc]>> suggested to drink beer in the park.'
	act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
		act 'Go for a beer':
		cls
		manna += 100
		minut += 15
		gs 'stat'
		'You went with a guy to the nearest kiosk. <<$nameBoyfrend[numnpc]>> bought a beer and a snack. Then you went on the bench in the far corner of the square.'
			act 'Drink':
			cls
			manna += 100
			minut += 30
			alko += 2
			fat += 2
			salo += 1
			energy += 10
			otnBoyFrend[numnpc] += 5
			gs 'stat'
			'<<$nameBoyfrend[numnpc]>> beer poured into glasses and you have been drinking beer. <<$nameBoyfrend[numnpc]>> tell different funny stories.'
				if otnBoyFrend[numnpc]<80:
				'You drank beer with a guy, and plenty of fun.'
				act 'Further': gt 'Gnpc2'
				end
				if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
				'You drank beer with a guy, and plenty of fun.'
				act 'Further': gt 'Gnpc2'
				end
				if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc]>0:
				'You drank beer with a guy, and plenty of fun.'
				act 'Дальше': gt 'Gnpc2'
				end
			end
		end
	end
end

act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
--- Gnpc ---------------------------------

# Gnpc2
$din_gboy_end_to_disco = {
	!:markgoondisco
	discofirsttime += 1
	gs 'stat'
	gdeystboyrand = RAND(0,1)
	if gnpcSex[numnpc] = 0:
		if gdeystboyrand = 0:
			'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
			dynamic $din_gboy_go_to_boyhome
		act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end

		if gdeystboyrand = 1:
			'<<$nameBoyfrend[numnpc]>> offered to accompany you home.'
			act 'go home': gt 'gorodok'
		end
	end

	if gnpcSex[numnpc]>0:
		'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
		dynamic $din_gboy_go_to_boyhome
		act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
	end
}


$din_gboy_go_to_disco = {
	act 'Go to the disco':
		cls
		minut += 120
		dance += 1
		manna += 10
		gs 'stat'
		'<<$nameBoyfrend[numnpc]>> paid an entrance fee and you came along to the disco. Together with her boyfriend you went to the dance floor and started dancing together.'
		diskoIvRand = rand(0,100)
		if discofirsttime = 0: diskoIvRand = 0

		if diskoIvRand >= 90:
			diskoIvTipeRand = rand(0,1)

			if diskoIvTipeRand = 0:
				'You dance with her boyfriend, to you suited drunk kid in sweatpants and sweatshirts.'

				if GorSlut < 3:
					'Gopnik pushes your guy to the side and grabs you by the waist. "Let´s dance, chikulya."'

					act 'Leave':
						cls
						dom += 1
						gs 'stat'
						'You escape from the clutches of steel Gopnik. <<$nameBoyfrend[numnpc]>> drunk kid pushed and immediately went to the dance floor buddies Gopnik. Bazaar started. Gopnik began to show your boyfriend that he bykuet.'
						tiprand = rand(0,100)

						if tiprand <= 70:
							'<<$nameBoyfrend[numnpc]>> managed to get out of the winner of the fight verbally, accusing Gopnik that he began to molest his girlfriend. But the evening was spoiled and finally <<$nameBoyfrend[numnpc]>> offered to leave the disco.'
							act 'Go home': gt 'gorodok'
						end

						if tiprand > 70 and tiprand < 90:
							otnBoyFrend[numnpc] -= 20
							'Gopnik quickly downloaded your guy and lit it on the headstock. <<$nameBoyfrend[numnpc]>> Gopnik gave all the money and apologized for a long time before them. whereupon <<$nameBoyfrend[numnpc]>> suggested that you spend.'
							act 'Go home': gt 'gorodok'
						end

						if tiprand >= 90:
							'Discussions quickly escalated into a fight and three Gopnik began to beat your guy in the middle of the disco.'

							act 'Watch the fight by':
								cls
								otnBoyFrend[numnpc] -= 20
								gs 'stat'
								'<<$nameBoyfrend[numnpc]>> could oppose the three Gopnik nothing and soon fell under a barrage of punches. Gopari dragged him into the street where the seized money, took off his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
								act 'Go home': gt 'gorodok'
							end

							act 'separate fighting':
								cls
								gs 'stat'

								if stren < 90:
									'You tried to push Gopnik, but someone pushed you and you will fly away from fighting a few meters from all force crashed to the floor. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
									act 'Go home': gt 'gorodok'
								end

								if stren >= 90:
									'You Gopnik pushed with all his strength, and he flew away from you. But the second Gopnik turned to you and you saw how he punches you in the face.'

									if agil < 90:
										zub += 1
										gs 'stat'
										'In my head rang and you realize that you are lying on the floor. Severe pain in the teeth and mouth full of salty liquid. You spit on the floor and saw that you knocked out a tooth. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
										act 'Go home': gt 'gorodok'
									end

									if agil >= 90:
										'You abruptly removed his head to the side and cut the air Gopnik fist near your head.'

										act 'Hit in the face with his fist Gopnik':
											cls

											if speed >= 50:
												zub += 1
												gs 'stat'
												'You hit Gopnik and hit him right on the nose. The guy yelled, "Oh, you bitch!" and lashed out at you. In my head rang and you realize that you are lying on the floor. Severe pain in the teeth and mouth full of salty liquid. You spit on the floor and saw that you knocked out a tooth. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
												act 'Go home': gt 'gorodok'
											end

											if speed < 50:
												'You tried to hit hooligan punched in the face, but your blow was too slow. Gopnik pushed you and you flew away from him for a few meters and with a sweep crashed on the floor. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
												act 'Go home': gt 'gorodok'
											end
										end

										act 'Hooligan kick Jodan':
											cls

											if speed >= 90:
												'You charge a good kick in the face hooligan. Head Gopnik strongly swayed and he grabbed his face. "Shit! Fucking bitch, You broke my nose, I now you´ll break the whole fucking mouth, bitch!" Your guy at this point punched hooligan with a broken nose and he will fly away for a couple of meters down to the dance floor. Two other goparey hung on your guy trying to unscrew his hands.'

												act 'Grab one of Gopnik´s face':
													cls
													gs 'stat'
													GopWin[numnpc] += 1
													'You nails clutching hooligan in the face and began to scratch his skin and ripping it. Gopnik does not break down and cry with unhooked from your guy. Your guy meanwhile rid of one of Gopnik manages to punch a second, then again and again. Gopnik fell on the floor like a sack. Gopnik with scarred muzzle pounced on your guy, but without success, blood flooded his eyes and your guy punched him in the face of what Gopnik flopped down on his ass. In the meantime, began to rise to his feet one of Gopnik. "Okay, motherfucker, piss with your bitch We´ll still find it!"'
													act 'Go home': gt 'gorodok'
												end
											end

											if speed < 90:
												'You tried to kick hooligan Jodan but he managed to push you before you even have time to do something. You flew away from him for a few meters and with a sweep crashed on the floor. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
												act 'Go home': gt 'gorodok'
											end
										end

										act 'Hooligan kick in the balls':
											cls

											if speed >= 70:
												bollrand = rand(0,1)

												if bollrand = 0:
													'You got the balls Gonick and he flopped down on his knees howling pinching sore hands. Two other Gopnik hung on your guy trying to unscrew his hands.'

													act 'Grab one of Gopnik´s face':
														cls
														gs 'stat'
														GopWin[numnpc] += 1
														'You nails clutching hooligan in the face and began to scratch his skin and ripping it. Gopnik does not break down and cry with unhooked from your guy. Your guy meanwhile rid of one of Gopnik manages to punch a second, then again and again. Gopnik fell on the floor like a sack. Gopnik with scarred muzzle pounced on your guy, but without success, blood flooded his eyes and your guy punched him in the face of what Gopnik flopped down on his ass. In the meantime, began to rise to his feet one of Gopnik. "Okay, motherfucker, piss with your bitch We´ll still find it!"'
														act 'Go home': gt 'gorodok'
													end
												end

												if bollrand = 1:
													'You tried to kick hooligan between his legs but he ducked and shoved you. You flew away from him for a few meters and with a sweep crashed on the floor. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
													act 'Go home': gt 'gorodok'
												end
											end

											if speed < 70:
												'You tried to kick hooligan between his legs but he ducked and shoved you. You flew away from him for a few meters and with a sweep crashed on the floor. Gopari meanwhile pulled your guy beaten on the street where the money away, removed his shoes, and threw him into the bushes. You helped her boyfriend to his feet and carried him home. His face was covered in blood and bruises began to swim.'
												act 'Go home': gt 'gorodok'
											end
										end
									end
								end
							end
						end
					end

					act 'Dance':
						cls
						sub += 1
						otnBoyFrend[numnpc] = 0
						DPtipe = 2
						gs 'BnameGen'
						gs 'stat'
						'You danced with Gopnik. <<$nameBoyfrend[numnpc]>> approached him and grabbed his shoulder. "Hey you! That´s my girl!" For your guy approached couple Gopnik and steel grind with him, but failing to come to you and to the hooligan dancing with you. soon <<$nameBoyfrend[numnpc]>> spat and sending you to the dick left the disco. Gopnik suggested you plunk him.'
						act 'Go thump': gt 'EvgopBuh'
					end
				end

				if GorSlut >= 3:
					otnBoyFrend[numnpc] = 0
					'Gopnik looks at you and then starts laughing "hear potsik. What´re you dance with her? Same <<$name>> <<$gnikname>>. Take her into the bushes, but Nava her mouth. You know how it is sweet smacked when sucks dick. "Red with the words you Gopnik and embarrassed. <<$nameBoyfrend[numnpc]>> Gopnik began to run into, "What did you say? Come again!" By hooligan immediately approached his friends. "Hears the boy. Bykuy not. Svetku For all the boys in the neighborhood knows that she <<$gnikname>>." <<$nameBoyfrend[numnpc]>> looks at you with surprise. "What is truth?" Boys laugh "Well, you and the brake." <<$nameBoyfrend[numnpc]>> beats you hand over his face, "Fuck you on the dick, slut!" whereupon <<$nameBoyfrend[numnpc]>> leaves the dance floor.'
					act 'rubbing cheek': gt 'gdkin'
				end
			end

			if diskoIvTipeRand = 1:
				'<<$nameBoyfrend[numnpc]>> said he wanted a beer and invited you to go with him to drink beer.'

				act 'And refuse to dance one':
					cls
					dance += 1
					minut += 3
					gs 'stat'
					'Your guy came from a disco that would buy a beer and drink it in the meantime you continue to dance.'

					if GorSlut >= 3:
						'It suits you guy "Heh. I´ve been observing how <<$gnikname>> <<$name>> fun with a guy. He still does not know who you are? Can I tell him?"'

						act 'Send it':
							cls
							dom += 1
							otnBoyFrend[numnpc] = 0
							gs 'stat'
							'You will send the guy to go to hell and he´s not a good smile stepped aside. At this point, you came <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "To dance like, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while, you came <<$nameBoyfrend[numnpc]>> and said "I´ll throw. turns you real damn, I´m out of a garbage found that would waste their time on such a whore!"'
							act 'move away': gt 'gdkin'
						end

						act 'Ask him not to tell':
							cls
							sub += 1
							gs 'stat'
							'You have been asking for a Man not to tell anything to his young man. He chuckled. "Well, if otsosesh, then so be it, do not tell."'

							act 'Send it':
								cls
								dom += 1
								otnBoyFrend[numnpc] = 0
								gs 'stat'
								'You will send the guy to go to hell and he´s not a good smile stepped aside. At this point, you came <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "To dance like, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while, you came <<$nameBoyfrend[numnpc]>> and said "I´ll throw. turns you real damn, I´m out of a garbage found that would waste their time on such a whore!"'
								act 'move away': gt 'gdkin'
							end

							act 'Agree':
								cls
								sub += 1
								gs 'stat'
								'You agreed and the guy said you go to the toilet. You immediately depressed. Toilet in the club was something of a thoroughfare, someone out there smoking, someone defecate in booths half door was not. The guy took you to the men´s room. When you opened the door there, they saw that some drunk guys standing at the threshold of smoke. In one of the booths heard as someone pukes. Boys bewildered looked at you, "Baby, you do not mistake? This male toilet." The guy who brought you smiled "She´s with me." He turned his head to you, "Well that cocksucker. Bury in his mouth." You looked at the guys and asked, "What right here or what?" Boys laughed "C´mon. Smuschaeshsya What are you?"'

								act 'Send it':
									cls
									dom += 1
									otnBoyFrend[numnpc] = 0
									gs 'stat'
									'You will send the guy to go to hell and he´s not a good smile stepped aside. At this point, you came <<$nameBoyfrend[numnpc]>> and asked, "What this guy should have been?" You lied to him on the move "To dance like, I turned him down." Then a guy came up to you and your guy to talk withdrawn. After a while, you came <<$nameBoyfrend[numnpc]>> and said "I´ll throw. turns you real damn, I´m out of a garbage found that would waste their time on such a whore!"'
									act 'Move away': gt 'gdkin'
								end

								act 'Suck':
									cls
									sub += 5
									guy += 1
									bj += 1
									cumlip += 1
									swallow += 1
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\public.jpg"></center>'
									'You squatted man unbuttoned his pants and pulled out his standing member. Other boys were smoked and watched the scene. You opened your mouth and licked maroon penis, then cupped her own <<$liptalk>> and took the cock in her mouth. Boys started laughing komentirovat what they see, "Look how vaflersha smacked." Another echoed, "Where did you just find a cocksucker" Once someone know you "So it´s <<$name>> <<$surname>>. Damn it down and out." You blushed and burned with shame sucking dick in front of other guys. Finally the guy started to cum in your mouth and you try as quickly as possible to swallow sperm. Cock finally went limp and he tucked in his pants. You got up from the floor and began to wipe his mouth, feeling out of your mouth smells like sperm. One of the guys chuckled, "Hey star blowjob, suck, and I have."'

									act 'Slip out of the closet':
										cls
										gs 'stat'
										'You are trying not to pay attention to the guys slipped back out of the closet on the floor. <<$nameBoyfrend[numnpc]>> have been looking for you, he came up to you and asked, "Where are you gone? everywhere you here I am looking for." You sovreali first thing that came to mind, "went to the toilet." <<$nameBoyfrend[numnpc]>> asked "A mouth that wipe?"'

										act 'suggest leave':
											cls
											gs 'stat'
											'You offered her boyfriend to leave the disco. <<$nameBoyfrend[numnpc]>> shrugged and you go to the exit.'

											act 'Leave':
												cls
												dynamic $din_gboy_end_to_disco
											end
										end

										act 'Dance':
											cls
											otnBoyFrend[numnpc] = 0
											gs 'stat'
											'You continued to dance with her boyfriend and suddenly saw how out of toilet boys who witnessed how you make a blowjob. They also see you and guffawed, noisily discussing something. <<$NameBoyfrend[numnpc]>> puzzled look at them, "What are they?" The boys shouted to him, "until you wandered somewhere, your teen in the men´s toilet sucks dicks!" <<$NameBoyfrend[numnpc]>> came up to them, "You bazaar?" Boys started to tell him how you just suck dick in front of them. <<$NameBoyfrend[numnpc]>> came up to you and slapped you podschechinu "Get the fuck out whore! And so I did not see you anymore!"'
											act 'Move away': gt 'gdkin'
										end
									end
								end
							end
						end
					end

					if GorSlut < 3:
						'While your guy went for a beer came to you what that guy is not familiar with you and began to dance.'

						act 'Dance':
							cls
							otnBoyFrend[numnpc] -= 20
							gs 'stat'
							'You danced with unfamiliar guy and at this moment entered the hall <<$nameBoyfrend[numnpc]>> he came up to you and pulled you by the hand dragged from another guy. "You do something ohrenela? To retreat is impossible, and you´ve found someone!" He was offended at you and walked away from the disco.'
							act 'Move away': gt 'gdkin'
						end

						act 'Refuse to dance with a stranger':
							cls
							otnBoyFrend[numnpc] += 5
							gs 'stat'
							'You refused to dance with a stranger and noticed that <<$nameBoyfrend[numnpc]>> come back to the club. You have a little dance with her boyfriend and he offered to go.'

							act 'Leave':
								cls
								dynamic $din_gboy_end_to_disco
							end
						end
					end
				end

				act 'Go Man and drink beer':
					cls
					alko += 2
					minut += 3
					horny += 5
					gs 'stat'
					'You came out of discos and find a secluded place where he started drinking beer with her boyfriend.'

					act 'Leave':
						cls
						dynamic $din_gboy_end_to_disco
					end

					act 'Kiss':
						cls
						minut += 5
						kissBoyFrend[numnpc] += 1
						horny += 10
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
						'<<$nameBoyfrend[numnpc]>> you tenderly embraced and began to kiss your lips.'

						if gnpcSex[numnpc]>0:
							'<<$nameBoyfrend[numnpc]>> whispered in your ear, "Svetsik can Let us than anything right here?"'

							act 'jerk guy':
								cls
								minut += 5
								if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
								dick = dickBoyFrend[numnpc]
								hj += 1
								hja += 1
								sub += 1
								gs 'stat'
								'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
								'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'

								act 'Further':
									cls
									dynamic $din_gboy_end_to_disco
								end
							end

							act 'Take by mouth':
								cls
								minut += 5
								horny += 10
								bj += 1
								bja += 1
								dick = dickBoyFrend[numnpc]
								if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

								if GorSlut < 2:
									resultrand = RAND(0,100)

									if resultrand >= 100:
										GorSlut = 2
										GboyBalabol[numnpc] = 1
									end
								end

								sub += 1
								gs 'stat'
								'<center><img src="images\qwest\alter\Ev\cocksucker.jpg"></center>'
								'You squatted in front of the guy and brought her face to his cock.'
								dynamic $dinrandbj
								'Soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I´m going to come."'

								act 'suck on':
									cls
									minut += 5
									horny += 10
									cumlip += 1
									swallow += 1
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\cocksuckerSwallow.jpg"></center>'
									dynamic $dinrandswallow

									act 'further':
										cls
										dynamic $din_gboy_end_to_disco
									end
								end

								act 'Remove the mouth':
									cls
									minut += 5
									horny += 10
									cumface += 1
									facial += 1
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\cocksuckerFacial.jpg"></center>'
									'You remove a member from the mouth and then hit you in the face a stream of hot sperm, then another and another and finally stopped the guy cum on your face.'

									act 'Further':
										cls
										dynamic $din_gboy_end_to_disco
									end
								end
							end
						end

						if gnpcSex[numnpc] = 0:
							'You feel like your guy hands caress your breasts.'

							act 'Stop':
								cls
								dynamic $din_gboy_end_to_disco
							end

							act 'Let him':
								cls
								horny += 10
								minut += 3
								gs 'stat'
								'<center><img src="images\qwest\alter\Ev\tits.jpg"></center>'
								'<<$nameBoyfrend[numnpc]>> pulls your breast size <<tits>> outside and begins to knead your breasts and kiss them. Guy takes your hand and puts it on the groin, you feel that he´s got a hard cock.'

								act 'Caress his cock through his pants':
									cls
									horny += 5
									minut += 3
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\cock.jpg"></center>'
									'You started stroking guy crotch, feeling the hardness of his member risen through matter.'

									if horny < 80:
										act 'Remove hands':
											cls
											minut += 5
											otnBoyFrend[numnpc] -= 10
											dom += 1
											gs 'stat'
											'Man you have cleaned your hands off my chest, and he lost his head, not knowing what to do.'

											act 'Further':
												cls
												dynamic $din_gboy_end_to_disco
											end
										end
									end

									act 'Going to the guy´s pants':
										cls
										horny += 10
										minut += 3
										gs 'stat'
										'<center><img src="images\qwest\alter\Ev\cock2.jpg"></center>'
										'You hand the guy stuck in his pants and felt his fingers and his hard hot cock.'

										if dom > 0:
											act 'jerk guy':
												cls
												minut += 5
												if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
												dick = dickBoyFrend[numnpc]
												hj += 1
												hja += 1
												sub += 1
												gs 'stat'
												'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
												'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
												act 'Further':
													cls
													dynamic $din_gboy_end_to_disco
												end
											end
										end

										act 'Take by mouth':
											cls
											minut += 5
											horny += 10
											bj += 1
											bja += 1
											dick = dickBoyFrend[numnpc]
											if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

											if GorSlut < 2:
												resultrand = RAND(0,100)

												if resultrand >= 100:
													GorSlut = 2
													GboyBalabol[numnpc] = 1
												end
											end

											sub += 1
											gs 'stat'
											'<center><img src="images\qwest\alter\Ev\cocksucker.jpg"></center>'
											'You squatted in front of the guy and brought her face to his cock.'
											dynamic $dinrandbj
											'Soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I´m going to come."'

											act 'suck on':
												cls
												minut += 5
												horny += 10
												cumlip += 1
												swallow += 1
												gs 'stat'
												'<center><img src="images\qwest\alter\Ev\cocksuckerSwallow.jpg"></center>'
												dynamic $dinrandswallow

												act 'Further':
													cls
													dynamic $din_gboy_end_to_disco
												end
											end

											act 'Remove the mouth':
												cls
												minut += 5
												horny += 10
												cumface += 1
												facial += 1
												gs 'stat'
												'<center><img src="images\qwest\alter\Ev\cocksuckerFacial.jpg"></center>'
												'You remove a member from the mouth and then hit you in the face a stream of hot sperm, then another and another and finally stopped the guy cum on your face.'

												act 'Further':
													cls
													dynamic $din_gboy_end_to_disco
												end
											end
										end
									end
								end

								if horny <= 90:
									act 'Resist':
										cls
										horny += 10
										minut += 3
										gs 'stat'
										'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
										'You removed his hand from his pants and the guy stuck his hand in your pants, you felt his fingers caress your wet pussy.'

										if horny < 70:
											act 'Remove his hand':
											cls
											minut += 5
											otnBoyFrend[numnpc] -= 10
											dom += 1
											gs 'stat'
											'You have removed themselves from male hands and he lost his head, not knowing what to do.'

											act 'Further':
												cls
												dynamic $din_gboy_end_to_disco
											end
										end
									end

									act 'Enjoy':
										cls
										minut += 5
										sub += 1
										horny += 10
										gs 'stat'
										'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
										'You cease to resist and just relaxed feeling pleasant warmth from the guy caresses your pussy. <<$nameBoyfrend[numnpc]>> began to undress you and soon you were naked.'

										act 'Surrender':
											cls
											minut += 5
											horny += 10
											sexa += 1
											if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
											$boy = $nameBoyfrend[numnpc]
											dick = dickBoyFrend[numnpc]
											silavag = silavagBoyFrend[numnpc]

											if GorSlut = 0:
												resultrand = RAND(0,100)

												if resultrand >= 100:

													GorSlut = 1
													GboyBalabol[numnpc] = 1
												end
											end

											gs 'stat'
											'<center><img src="images\picV\vag.jpg"></center>'
											'Man quickly took off his clothes and lay down on top of you.'
											dynamic $sexstart
											dynamic $sexstart2
											dynamic $sexcum

											act 'Further':
												cls
												dynamic $din_gboy_end_to_disco
											end
										end

										if dom > 0 or anal > 0:
											act 'substitute ass':
												cls
												minut += 30
												cumanus += 1
												anala += 1
												$boy = $nameBoyfrend[numnpc]
												dick = dickBoyFrend[numnpc]
												silavag = silavagBoyFrend[numnpc]
												if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

												if GorSlut = 0:
													resultrand = RAND(0,100)

													if resultrand >= 100:
														GorSlut = 1
														GboyBalabol[numnpc] = 1
													end
												end
												gs 'stat'
												'<center><img src="images\qwest\alter\Ev\anal.jpg"></center>'
												dynamic $sexstart
												dynamic $analsex
												'Finally the guy dies and you feel like something warm fills your ass.'

												act 'Further':
													cls
													dynamic $din_gboy_end_to_disco
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
			end

			if diskoIvTipeRand = 2:
				''
			end

			if diskoIvTipeRand = 3:
				''
			end

			exit
		end

		if kissBoyFrend[numnpc]>0:
			''
		end

		if kissBoyFrend[numnpc] = 0:
			''
		end

		dynamic $din_gboy_end_to_disco

	end
}

$din_gboy_tits = {
	'<<$nameBoyfrend[numnpc]>> began to get your breasts <<tits>> the size of a garment.'
	act 'let him':
		cls
		horny += 10
		minut += 3
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\tits.jpg"></center>'
		'<<$nameBoyfrend[numnpc]>> pulls your breast size <<tits>> outside and begins to knead your breasts and kiss them. Guy takes your hand and puts it on the groin, you feel that he´s got a hard cock.'

		act 'Caress his cock through his pants':
			cls
			horny += 5
			minut += 3
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\cock.jpg"></center>'
			'You started stroking guy crotch, feeling the hardness of his member risen through matter.'

			if horny < 80:
				act 'Remove hands':
					cls
					minut += 5
					otnBoyFrend[numnpc] -= 10
					dom += 1
					gs 'stat'
					'Man you have cleaned your hands off my chest, and he lost his head, not knowing what to do.'
					act 'Go home': gt 'gorodok'
				end
			end

			act 'Going to the guy´s pants':
				cls
				horny += 10
				minut += 3
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\cock2.jpg"></center>'
				'You hand the guy stuck in his pants and felt his fingers and his hard hot cock.'

				if dom > 0:
					act 'jerk guy':
						cls
						minut += 5
						if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
						dick = dickBoyFrend[numnpc]
						hj += 1
						hja += 1
						sub += 1
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
						'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
						act 'Go home': gt 'gorodok'
					end
				end

				act 'Take by mouth':
					cls
					minut += 5
					horny += 10
					bj += 1
					bja += 1
					dick = dickBoyFrend[numnpc]
					if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

					if GorSlut < 2:
						resultrand = RAND(0,100)

						if resultrand >= 100:
							GorSlut = 2
							GboyBalabol[numnpc] = 1
						end
					end

					sub += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\cocksucker.jpg"></center>'
					'You squatted in front of the guy and brought her face to his cock.'
					dynamic $dinrandbj
					'Soon <<$nameBoyfrend[numnpc]>> groaned "Svetsik, I´m going to come."'
					act 'Suck on':
						cls
						minut += 5
						horny += 10
						cumlip += 1
						swallow += 1
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\cocksuckerSwallow.jpg"></center>'
						dynamic $dinrandswallow
						act 'Go home': gt 'gorodok'
					end

					act 'Remove the mouth':
						cls
						minut += 5
						horny += 10
						cumface += 1
						facial += 1
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\cocksuckerFacial.jpg"></center>'
						'You remove a member from the mouth and then hit you in the face a stream of hot sperm, then another and another and finally stopped the guy cum on your face.'
						act 'Go home': gt 'gorodok'
					end

					act 'Surrender':
						cls
						minut += 5
						horny += 10
						sexa += 1
						if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
						$boy = $nameBoyfrend[numnpc]
						dick = dickBoyFrend[numnpc]
						silavag = silavagBoyFrend[numnpc]

						if GorSlut = 0:
							resultrand = RAND(0,100)

							if resultrand >= 100:
								GorSlut = 1
								GboyBalabol[numnpc] = 1
							end
						end

						gs 'stat'
						'<center><img src="images\picV\vag.jpg"></center>'
						'Man quickly took off his clothes and lay down on top of you.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						act 'Go home': gt 'gorodok'
					end

					if dom > 0 or anal > 0:
						act 'substitute ass':
							cls
							minut += 30
							cumanus += 1
							anala += 1
							$boy = $nameBoyfrend[numnpc]
							dick = dickBoyFrend[numnpc]
							silavag = silavagBoyFrend[numnpc]
							if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

							if GorSlut = 0:
								resultrand = RAND(0,100)
								if resultrand >= 100:
									GorSlut = 1
									GboyBalabol[numnpc] = 1
								end
							end

							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\anal.jpg"></center>'
							dynamic $sexstart
							dynamic $analsex
							'Finally the guy dies and you feel like something warm fills your ass.'
							act 'Leave.': gt 'gorodok'
						end
					end
				end
			end
		end

		if horny <= 90:
			act 'Resist':
				cls
				horny += 10
				minut += 3
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
				'You removed his hand from his pants and the guy stuck his hand in your pants, you felt his fingers caress your wet pussy.'

				if horny < 70:
					act 'Remove his hand':
						cls
						minut += 5
						otnBoyFrend[numnpc] -= 10
						dom += 1
						gs 'stat'
						'You have removed themselves from male hands and he lost his head, not knowing what to do.'
						act 'Go home': gt 'gorodok'
					end
				end

				act 'Enjoy':
					cls
					minut += 5
					sub += 1
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
					'You cease to resist and just relaxed feeling pleasant warmth from the guy caresses your pussy. <<$nameBoyfrend[numnpc]>> began to undress you and soon you were naked.'

					act 'Surrender':
						cls
						minut += 5
						horny += 10
						sexa += 1
						if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
						$boy = $nameBoyfrend[numnpc]
						dick = dickBoyFrend[numnpc]
						silavag = silavagBoyFrend[numnpc]

						if GorSlut = 0:
							resultrand = RAND(0,100)

							if resultrand >= 100:
								GorSlut = 1
								GboyBalabol[numnpc] = 1
							end
						end

						gs 'stat'
						'<center><img src="images\picV\vag.jpg"></center>'
						'Man quickly took off his clothes and lay down on top of you.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						act 'Go home': gt 'gorodok'
					end

					if dom > 0 or anal > 0:
						act 'substitute ass':
							cls
							minut += 30
							cumanus += 1
							anala += 1
							$boy = $nameBoyfrend[numnpc]
							dick = dickBoyFrend[numnpc]
							silavag = silavagBoyFrend[numnpc]
							if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1

							if GorSlut = 0:
								resultrand = RAND(0,100)

								if resultrand >= 100:
									GorSlut = 1
									GboyBalabol[numnpc] = 1
								end
							end

							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\anal.jpg"></center>'
							dynamic $sexstart
							dynamic $analsex
							'Finally the guy dies and you feel like something warm fills your ass.'
							act 'Leave.': gt 'gorodok'
						end
					end
				end
			end
		end
	end

	if horny < 90:
		act 'Remove his hand':
			cls
			minut += 5
			otnBoyFrend[numnpc] -= 10
			dom += 1
			gs 'stat'
			'Man you have cleaned your hands off my chest, and he lost his head, not knowing what to do.'
			act 'Go home': gt 'gorodok'
		end
	end
}


$din_gboy_kiss = {
	act 'Kiss':
		cls
		minut += 5
		kissBoyFrend[numnpc] += 1
		horny += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
		'You turn your head to the guy and your lips met. <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body and kiss you.'
		dynamic $din_gboy_tits
	end
}

$din_gboy_knee = {
	if horny < 75 or dom > 0:
		act 'Remove his hand':
			cls
			minut += 5
			otnBoyFrend[numnpc] -= 10
			if dom > 0 and horny >= 75: dom -= 1
			if horny < 75: dom += 1
			gs 'stat'
			'You removed the hand guy and he lost his head, not knowing what to do.'
			act 'Go home': gt 'gorodok'
		end
	end

	act 'Pretend that nothing happens':
		cls
		minut += 5
		gs 'stat'
		'You pretended that nothing was happening and <<$nameBoyfrend[numnpc]>> not hesitate vengeance fumbled with his hands on your feet. <<$nameBoyfrend[numnpc]>> tilted towards your face trying to kiss you.'
		dynamic $din_gboy_kiss

		if horny < 75 or dom > 5:
			act 'Remove his hand':
				cls
				minut += 5
				otnBoyFrend[numnpc] -= 10
				if dom > 0 and horny >= 75: dom -= 5
				if horny < 75: dom += 5
				gs 'stat'
				'You removed the hand guy and he lost his head, not knowing what to do.'
				act 'Go home': gt 'gorodok'
			end
		end
	end

	if dom > 0 or horny >= 75:
		act 'Man kiss':
			cls
			minut += 5
			dom += 1
			kissBoyFrend[numnpc] += 1
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
			'You turn your head to the guy and bent his face. Then you kissed and <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body.'
			dynamic $din_gboy_tits
		end
	end
}

$din_gboy_go_to_boyhome = {
	act 'Go-to guy home':
		cls
		minut += 15
		gs 'stat'
		boyhouserand = rand(0,2)
		'<<$nameBoyfrend[numnpc]>> led you to his home. You came to a small two-story house, in which there were several apartments and <<$nameBoyfrend[numnpc]>> guide you to your apartment. He opened the door with a key and let you.'

		if boyhouserand = 0:
			'Man at home there was no one and he suggested you go to the gym and see Vidic.'

			act 'See Vidic':
				cls
				minut += 30
				gs 'stat'
				'You settled on comfortably on the sofa and <<$nameBoyfrend[numnpc]>> rummaging in the drawers put one of them in the VCR and turning it sat next to you.'
				boyvideorand = rand(0,3)

				if boyvideorand = 0:
					'When did the movie you saw this porn. Protagonists do not have time to exchange a few sentences and the girl was already naked and kneeling in front of a guy with his cock in her mouth.'

					act 'watch porn':
						cls
						minut += 30
						horny += 10
						gs 'stat'
						'You began with a guy to watch porn and what is happening gradually began to excite you. You feel like <<$nameBoyfrend[numnpc]>> put his hand on your knee and began to stroke.'
						dynamic $din_gboy_knee
					end

					act 'a scandal':
						cls
						minut += 30
						dom += 1
						otnBoyFrend[numnpc] -= 20
						gs 'stat'
						'You got up from the couch and a scandal guy claiming that you are not so and it from you only need one. <<$nameBoyfrend[numnpc]>> embarrassed and blushing began bubnet apology.'
						act 'Go home': gt 'gorodok'
					end
				end

				if boyvideorand > 0:
					'Started Hollywood thriller in which the protagonist smashed everything around him while he managed to not even scratched. In the film, killed his best friend, after which the hero on his knees beside the body screaming NO! in the rain. Finally got to the main hero and villain after a hard fight killed them, ended the film as expected explosion in the background from which the hero escaped.'
					boyprirand = rand(0,2)

					if boyprirand = 0:
					'You feel as you lay Man hand on his knee and began to stroke.'
					dynamic $din_gboy_knee

						if horny < 75 or dom > 5:
							act 'Remove his hand':
								cls
								minut += 5
								otnBoyFrend[numnpc] -= 10
								if dom > 0 and horny >= 75: dom -= 5
								if horny < 75: dom += 5
								gs 'stat'
								'You removed the hand guy and he lost his head, not knowing what to do.'
								act 'Go home': gt 'gorodok'
							end
						end

					else
						act 'Go home': gt 'gorodok'
						if dom > 0 or horny >= 75:
							act 'Man kiss':

								cls
								minut += 5
								dom += 1
								gs 'stat'
								'You turn your head to the guy and bent his face. Then you kissed and <<$nameBoyfrend[numnpc]>> became passionately stroking her hands over your body.'
								dynamic $din_gboy_tits
							end
						end
					end
				end
			end
		end

		if boyhouserand = 1:
			'Man at home there was no one and he suggested that you go to his room. In his room, a guy sat next to you and started stroking your knee.'
			dynamic $din_gboy_knee
		end
		if boyhouserand = 2:
			'Man at home were parents and he quickly walks you to your room. In his room, a guy sat next to you and started stroking your knee.'
			dynamic $din_gboy_knee
		end

		!act 'Идти домой': gt 'gorodok'
	end
}

gs 'stat'
'<center><B><font color = maroon><<$nameBoyfrend[numnpc]>></font></B></center>'
!'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
'<<$nameBoyfrend[numnpc]>> your guy.'
if otnBoyFrend[numnpc]<20: 'You have a bad attitude.'
if otnBoyFrend[numnpc] >= 20 and otnBoyFrend[numnpc]<40: 'You tensions.'
if otnBoyFrend[numnpc] >= 40 and otnBoyFrend[numnpc]<60: 'You have a normal relationship.'
if otnBoyFrend[numnpc] >= 60 and otnBoyFrend[numnpc]<80: 'You have a good relationship.'
if otnBoyFrend[numnpc] >= 80: 'You have a great relationship.'
''
''

if hour < 20:
	if otnBoyFrend[numnpc]<80:
		'<<$nameBoyfrend[numnpc]>> offered to accompany you home.'
		act 'Go home': gt 'gorodok'
	end

	if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
		gdeystboyrand = RAND(0,1)

		if gdeystboyrand = 0:
			'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
			dynamic $din_gboy_go_to_boyhome
			act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end

		if gdeystboyrand = 1:
			'<<$nameBoyfrend[numnpc]>> offered to accompany you home.'
			act 'Go home': gt 'gorodok'
		end
	end

	if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc]>0:
		'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
		dynamic $din_gboy_go_to_boyhome
		act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
	end
end

if hour >= 20:
	if otnBoyFrend[numnpc]<80:
		'<<$nameBoyfrend[numnpc]>> offered to accompany you home.'
		act 'Go home': gt 'gorodok'
	end

	if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
		tipgbrand = rand(0,1)

		if tipgbrand = 0:
			'<<$nameBoyfrend[numnpc]>> offered to go to the disco.'
			dynamic $din_gboy_go_to_disco
			act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end

		if tipgbrand = 1:
			'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
			dynamic $din_gboy_go_to_boyhome
			act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end
	end

	if otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc]>0:
		gdeystboyrand = RAND(0,1)

		if gdeystboyrand = 0:
			'<<$nameBoyfrend[numnpc]>> offered to go to his home.'
			dynamic $din_gboy_go_to_boyhome
			act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end

		if gdeystboyrand = 1:
			'<<$nameBoyfrend[numnpc]>> offered to go to the disco.'
			dynamic $din_gboy_go_to_disco
			act 'And refuse to go home': otnBoyFrend[numnpc] -= 10 & gt 'gorodok'
		end

	end
end
--- Gnpc2 ---------------------------------

# Sgrup1
gs 'stat'
'Botany'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 1:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup1 ---------------------------------

# Sgrup2
gs 'stat'
'Sportiki'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 2:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup2 ---------------------------------

# Sgrup3
gs 'stat'
'Steep'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 3:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup3 ---------------------------------

# Sgrup4
gs 'stat'
'Gopnik'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 4:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup4 ---------------------------------

# Sgrup5
gs 'stat'
'Outcasts'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = -1:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup5 ---------------------------------

# Sgrup
gs 'stat'
'Singles'
$textgrup = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 0:$textgrup +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'<<$textgrup>>'

dynamic $din_sekondparturok
--- Sgrup ---------------------------------

# SgrupDisco
gs 'stat'
$textgrup = ''
$textgrup2 = ''
i = 0
:markgruploop
i += 1
if grupTipe[i] = 3:$textgrup +='
'+$npcGo[i]
if grupTipe[i] = 4:$textgrup2 +='
'+$npcGo[i]
if i < 26: jump 'markgruploop'

'Dancing on the dance floor'
'<<$textgrup>>'

'In one corner stand'
'<<$textgrup2>>'

act 'Move away': gt $loc, $metka
--- SgrupDisco ---------------------------------

# annafrends
gs 'stat'
	'Around the house drinking beer culture your sister Anna, Lena, Ira, Rex and Roman.'
	dialogstartrand = rand(0,4)
	if dialogstartrand = 0:
	!аня
	'Anya outraged polutoralitrovogo grasping a bottle of beer "Guys! Well you pour beer today or not?"'
	tipDSrand = rand(0,1)
		if tipDSrand = 0:
		'Rex took poltorashku hands of Ani.'
		tipDSrand2 = rand(0,4)
		if tipDSrand2 = 0:
		*nl '"And why not to shout! now pour!"'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya giggles "I have not yet started to yell, if I start, you oglohnesh."'
		end
		if tipDSrand3 = 1:
		'Lena resounding slaps on the shoulder Rex "Hurry! And with a jump of dog shit, with jumps!"'
		end
		if tipDSrand3 = 2:
		'Ira smiling "not outraged, Reksik."'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Anya sprinkles in cam "And then put him on a chain."'
		end
		end
		if tipDSrand2 = 1:
		*nl '"Well, you always like to be late for the train. Relax rolls. Now everything will be."'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya giggles, "I have not started to scream if I start, you oglohnesh."'
		end
		if tipDSrand3 = 1:
		'Lena resounding slaps on the shoulder Rex "Hurry! And with a jump of dog shit, with a jump!"'
		end
		if tipDSrand3 = 2:
		'Roma giggles "Here and stinks. And if she rolls relax, we run the risk of suffocation!"'
		tipDSrand4 = rand(0,2)
		if tipDSrand4 = 0:
		'Anya quips, "You´re so forever remain a virgin, Roma."'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0:
		'Roma grins "It was an offer?"'
		tipDSrand5 = rand(0,2)
		if tipDSrand5 = 0:
		'Anya laughs "Dream on, saffron."'
		end
		if tipDSrand5 = 1:
		'Anya laughs "Only in your dreams, saffron."'
		end
		if tipDSrand5 = 2:
		'Anya laughs "Yeah, schazz. Hear the tramp? Already ran to give."'
		end
		end
		end
		if tipDSrand4 = 1:
		'Anya quips "And you udivlyaeshsya that you girls do not give Roma."'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Rex grins "Yeah, our eternal virgin Roma is able to enliven the conversation on the topic of anal gases."'
		end
		if tipDSrand4 = 2:
		'Anya quips "It´s from you is the smell."'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Roma grins "Yes, no, it sobachatiny bears."'
		end
		end
		end
		if tipDSrand2 = 2:
		*nl '"Che, unscrew the plug does not have a hand?"'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya giggles "And then what for you need?"'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Rex with mock indignation "Around one operation."'
		end
		if tipDSrand3 = 1:
		'Lena resounding slaps on the shoulder Rex "You talk like a girl?"'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Rex with mock indignation "In Russian, I speak with her."'
		end
		if tipDSrand3 = 2:
		'Ira smiling "not outraged, Reksik."'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Anya sprinkles in cam "And then on the chain to plant."'
		end
		end
		if tipDSrand2 = 3:
		*nl '"Let me be undermined, madam."'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya giggles "Cleared, monsieur."'
		end
		if tipDSrand3 = 1:
		'Anya with mock indignation says "Do not Madame and Mademoiselle!"'
		tipDSrandA = rand(0,10)
		if tipDSrandA = 0: 'Rex bowing gallantly "Miles sorry mademoiselle."'
		end
		if tipDSrand3 = 2:
		'Anya says impatiently "Pour already a clown."'
		end
		end
		if tipDSrand2 = 4:
		*nl '"Shit! Where cups? Are we not buy them?"'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya takes cups "Here they are, blind monster."'
		end
		if tipDSrand3 = 1:
		'Roma says "Rex, you did them in the store took, all memory is that it is not?"'
		end
		if tipDSrand3 = 2:
		'Lena enough cups "Rex, do not pull the rubber."'
		end
		end
		end
		if tipDSrand = 1:
		'Roma took the bottle out of the hands polutoralitrovogo Ani and began to print. "Hold somebody cups."'
		tipDSrand2 = rand(0,2)
		if tipDSrand2 = 0:
		'Rex took the cups and Roma began to pour beer on plastic glasses.'
		end
		if tipDSrand2 = 1:
		'Rex took the cups "That same armless horseradish. Itself can not what?"'
		end
		if tipDSrand2 = 2:
		'Ira took cups "Pour already onion grief."'
		end
		tipDSrandA = rand(0,3)
		if tipDSrandA = 0:
		'Fracture of beer cups and flooded the ground.'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
				'Rex was outraged. "That thou armless hell! Nothing can trust you!"'
				end
				if tipDSrand3 = 1:
				'Rex was outraged. "No, well, how not to spill it?"'
				end
				if tipDSrand3 = 2:
				'Anya was indignant. "Always the same, if saffron pours, make sure you will pour."'
				end
		end
		end
	end
	if dialogstartrand = 1:
	!Лена
	'Lena indignantly, "We came to drink beer or admire it?"'
	dialogstartrand = rand(3,4)
	end
	if dialogstartrand = 2:
	!Ира
	'Ira flirting eyes and flapping "Boys, and today we are going to drink beer?"'
	dialogstartrand = rand(3,4)
	end
	if dialogstartrand = 3:
	!Рекс
	tipDSrand = rand(0,1)
		if tipDSrand = 0:
		'Rex took poltorashku beer and unscrew the plug.'
		tipDSrand2 = rand(0,2)
		if tipDSrand2 = 0:
		*nl '"Shit! Where cups? Are we not buy them?"'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
		'Anya takes cups "Here they are, blind monster."'
		end
		if tipDSrand3 = 1:
		'Roma says "Rex, you did them in the store took, all memory is that it is not?"'
		end
		if tipDSrand3 = 2:
		'Lena enough cups "Rex, do not pull the rubber."'
		end
		end
		if tipDSrand2 = 1:
		*nl '"Roman, cups hold this while I pour."'
		end
		end
		if tipDSrand = 1:
		'Rex took poltorashku beer and handed it to Roma. "Pour, then froze."'
		'Roma took polutoralitrovogo beer bottle and began to print. "Hold somebody cups."'
		tipDSrand2 = rand(0,2)
		if tipDSrand2 = 0:
		'Rex took the cups and Roma began to pour beer on plastic glasses.'
		end
		if tipDSrand2 = 1:
		'Rex took the cups "That same armless horseradish. Itself can not what?"'
		end
		if tipDSrand2 = 2:
		'Ira took cups "Pour already grief onion."'
		end
		tipDSrandA = rand(0,3)
		if tipDSrandA = 0:
		'Fracture of beer cups and flooded the land.'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
				'Rex was outraged. "That thou armless hell! Nothing can trust you!"'
				end
				if tipDSrand3 = 1:
				'Rex was outraged. "No, well, how not to spill it?"'
				end
				if tipDSrand3 = 2:
				'Anya was indignant. "Always the same, if saffron pours, make sure you will pour."'
				end
		end
		end
	end
	if dialogstartrand = 4:
	!Рома Мейнольд
	'Roma took polutoralitrovogo beer bottle and began to print. "Hold somebody cups."'
		tipDSrand2 = rand(0,2)
		if tipDSrand2 = 0:
		'Rex took the cups and Roma began to pour beer on plastic glasses.'
		end
		if tipDSrand2 = 1:
		'Rex took the cups "That same armless horseradish. Itself can not what?"'
		end
		if tipDSrand2 = 2:
		'Ira took cups "Pour already onion grief."'
		end
		tipDSrandA = rand(0,3)
		if tipDSrandA = 0:
		'Fracture of beer cups and flooded the ground.'
		tipDSrand3 = rand(0,2)
		if tipDSrand3 = 0:
				'Rex was outraged. "That thou armless hell! Nothing can trust you!"'
				end
				if tipDSrand3 = 1:
				'Rex was outraged. "No, well, how not to spill it?"'
				end
				if tipDSrand3 = 2:
				'Anya was indignant. "Always the same, if saffron pours, make sure you will pour."'
				end
		end
	end
	'Finally turned into beer cups and you also gave a plastic cup with a cold beer. Are you drunk with all beer.'

	act 'further': SiSonWork = 0 & SiSgdk = 0 & gt 'annafrends2'
--- annafrends ---------------------------------

# annafrends2
gs 'stat'
'Poltorashka beer was quickly drained and the guys got a new bottle.'
temarand = rand(0,1)
if temarand = 0:
gennpc = rand(0,2)
	if gennpc = 0:
	'Anya came to you. "<<$name>>, go to the toilet."'
	end
	if gennpc = 1:
	'Lena came to you. "<<$name>>, you do not want the toilet?"'
	end
	if gennpc = 2:
	'Ira came to you. "<<$name>>, you do not want to go some where?"'
	end
	act 'go together': gt 'annafrendtoilet'
end
if temarand = 1:
'Boys went around the corner of the club, that would empty the bladder leaving some devchenok.'
end
if temarand = 2:
''
end
if temarand = 3:
''
end
if temarand = 4:
''
end
if temarand = 5:
''
end
if temarand = 6:
''
end
if temarand = 7:
''
end


act 'Leave': SiSonWork = 0 & SiSgdk = 0 & gt 'gdk'
--- annafrends2 ---------------------------------

# annafrendtoilet
minut += 5
gs 'stat'
if gennpc = 0:$annafrendname = 'Anya' & $annafrendname2 = 'Anya'
if gennpc = 1:$annafrendname = 'Lena' & $annafrendname2 = 'Lena'
if gennpc = 2:$annafrendname = 'Ira' & $annafrendname2 = 'Ira'
'<center><img src="images\qwest\alter\Ev\piss.jpg"></center>'
'You went with <<$annafrendname>> in the bushes behind the club. <<$annafrendname2>> looked around, lifted her skirt, pulled down pantyhose and squatted. Between the legs of a flood of gushing jet on the ground.'

act 'Leave': SiSonWork = 0 & SiSgdk = 0 & gt 'gdk'
--- annafrendtoilet ---------------------------------

# AlbFatherQW
$din_zajava_albfather = {
act 'Okay. I will write a statement.':
cls
minut += 1
AlbFather = 2
!ZvezdEnd = 1
gs 'stat'
'You have agreed to write a statement, Captain quite nodded. "You´re a smart girl and choose the right side. Come to me in the car, everything is there to arrange quick."'
	act 'Albina warn':
	cls
	minut += 1
	gs 'stat'
	'You have written and signed statement to the captain, and then he let go of you.'
	act 'Escape.': gt 'gorodok'
	end
end

}
$din_zajava_albfather_no2 = {
act 'And yet I refuse':
cls
minut += 1
AlbFather = -1
gs 'stat'
'You resolutely refused to write a statement to the captain. Captain sighed sadly, "I see. You currently have acquired powerful enemies girl."'
	act 'Albina warn':
	cls
	minut += 1
	AlbFrend = 1
	!ZvezdEnd = 1
	gs 'stat'
	'You quickly dialed the number and Albina told her what had happened. Albina said thoughtfully thank you and hung up.'
	act 'Escape.': gt 'gorodok'
	end
end
}
$din_zajava_albfather_no = {
act 'I will not write a statement!':
cls
minut += 1
gs 'stat'
'You refused to write a statement and the captain began to persuade you. "Think about the consequences. Albina not you pass, so somebody else, in the end we ourselves can take it easy now. Lack of evidence."'
	if intel >= 80:
		act 'And why would I tell you?':
		cls
		minut += 1
		gs 'stat'
		'You asked the captain if they all so good, then why are you thio them. The captain replied, "Frankly, it´s not our jurisdiction, and to act without direct application dangerous Barlovskogo we can and push, but we may not be pleasant consequences. A statement is a guarantee of success of the operation."'
		dynamic $din_zajava_albfather
		dynamic $din_zajava_albfather_no2
		end
	end

		dynamic $din_zajava_albfather
		dynamic $din_zajava_albfather_no2
end
}

gs 'stat'
'Suddenly stops the car next to you. It comes from a man in a nice suit and suitable for you. He pulls out of Corman´s license and opened it seems. "Captain Chernov. State Security Service." You surprise spotted documents all true identity now. You said in surprise, "Why I needed you? Here what that mistake." Captain confident tone Chernov told you "No mistake, you <<$name>> <<$surname>>, let´s step aside and talk."'


act 'Move with Chernov':
cls
minut += 1
gs 'stat'
'You walked away with Captain Chernov. Along the way, you notice how it sticks armpit holster with gun. Ogladevshis Chernov begins "<<$name>>. I know that you are new to the team Zvezdushki. Just know anything but this team has been dancing. Zvezdushkam will end soon, with your help or without your help. It´s not even so important, what is important when case will be set in motion, the whole town will know what you did in this team. And not even so important, engaged or not, but will not stop the gossip. give you a big fine, inform parents, school, put on record with the police. But all this can be avoided. "'
	act 'How to Avoid?':
	cls
	minut += 1
	gs 'stat'
	if age < 18: 'You asked the captain Chernoff as possible to avoid publicity and consequences. Captain Chernov said to you "You write to the security service that Albina Barlovskaya entices you into prostitution. Besides you are underage. This extra trouble for Albina."'
	if age >= 18: 'You asked the captain Chernoff as possible to avoid publicity and consequences. Captain Chernov said to you "You write to the security service that Albina Barlovskaya entices you into prostitution."'
	'Chernov captain paused, giving you time to think and continued. "If you write an application, you will be charged as the victim, no publicity will not. Actually, and no matter what will not write a statement. Next´ll have this thing in me."'
		if intel >= 70:
		act 'And why is engaged in the security service, and not the police?':
		cls
		minut += 1
		gs 'stat'
		'You asked what is so important in Albina, she took not the police and security service. Captain bad grinned "I underestimated you, you´re a smart girl. Okay, I´ll play in the open. You know who the father of Albina? Barlovsky Boris, a retired police colonel. He served as chief of police in this town. Suppose he is retired now, but it had great communication with the police. "'
		if intel >= 75:
				act 'You did not answer the question.':
				cls
				minut += 1
				gs 'stat'
				'You told the captain that he did not answer the question, why now suddenly interested in the affairs of Albina why security service. The captain nodded, "It´s very simple. Albina´s father decided to go into politics and become the mayor of the town. There are certain forces that want to stop him. What could be better daughter criminals engaged in a brothel."'
				dynamic $din_zajava_albfather
				dynamic $din_zajava_albfather_no
				end
			end

		dynamic $din_zajava_albfather
		dynamic $din_zajava_albfather_no
		end
		end

		dynamic $din_zajava_albfather

		dynamic $din_zajava_albfather_no
	end
end
--- AlbFatherQW ---------------------------------

# albinaEv
$din_albina_get_over_car = {
'Strong hands grabbed you and out of the car.'
	act 'Further':
	cls
	albinaCar = 1
	gs 'stat'
	'<center><img src="images\qwest\alter\grab.jpg"></center>'

	end
}



albinaCarday = day
gs 'stat'
'<center><img src="images\qwest\alter\BMW.jpg"></center>'
'You went out to the car and looked at Albina. She looked around you haughty look and started the car.'
if albinaCar > 0:

end
if albinaCar = 0:
	act 'Is that your car?':
	cls
	albinaCar = 1
	gs 'stat'
	'<center><B><font color = maroon><<$npcName[23]>> <<$npcSurName[23]>></font></B></center>'
	'<center><img src="images\qwest\alter\npc23.jpg"></center>'
	'You asked Albina "Is this your car?" Albina squirmed grimassy contemptuous "What? Of course not, this is the machine my father, I would never have bought it. Generally X5 is a machine for cattle suddenly grown rich and not for decent people." You shake your head, "You what? Rights have?" Albina laughed "Rights? Why should I, right? Do you know who my father is? He police chief of our town, though retired, but the connection remained. Never stopped me in his car." Albina second thought about something and said, "go for a drive."'
		act 'Go with Albina':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\BMW.jpg"></center>'
		'You sat down on the seat next to Albina and she touched the car. You went through the streets of the town, soon you moved out from the central streets and stopped at what that wilderness, where the trees darkened factory building. Albina looking at you smiled mysteriously "This is a surprise."'
			act 'Look around':
			cls
			minut += 5
			gs 'stat'
			'<center><img src="images\qwest\alter\castle.jpg"></center>'
			'You looked around and realized that you are in the territory of an abandoned factory. You looked at Albina, she grinned and poked manicured finger in the plate. Have you read the inscription on the plate "Property Ltd. The Snow Queen" Albina grinned "This castle of the Snow Queen. My Territory" The car stopped and two men approached BMW, the appearance of both was a little over 30 years, one tall, athletic, not the second big growth with tum, but very sturdy, with a red neck wrestling, powerful hands and broad shoulders. Albina opened the door, "Hi guys. How you doing?" Guys frown examined you and shorty boomed "Everything is fine."'
				if AlbinaLast > 0 or AlbinaBlokDance > 0:
				'Albina does not stop the engine, got out and told the guy, "I´ve brought you a not very obedient girl who knows something about my dance business." High grinned "I see." Strong Shorty silently and lazily toward you.'
				if dom > 0:
						act 'Go behind the wheel':
						cls
						minut += 5
						gs 'stat'
						'<center><img src="images\qwest\alter\BMW.jpg"></center>'
							if agil >= 100:
							'You deftly jumped behind the wheel of cars. Fortress was at the hood and the long man rushed to the driver´s door that would get you.'
								act 'Into reverse':
								cls
								minut += 1
								gs 'stat'
								'<center><img src="images\qwest\alter\BMW.jpg"></center>'
								'You abruptly passed back and stayed virtually the concrete fence. Before you see your hood as burly running to you. A driver´s door to long runs.'
								end
								act 'Sharply to go forward':
								cls
								minut += 1
								gs 'stat'
								'<center><img src="images\qwest\alter\BMW.jpg"></center>'
								'You abruptly thrust gear and pull the clutch abruptly moved forward. Fortress with a bang flopped down on the hood and fell off the machine. Ahead you see the bushes, the gateway to which you moved Albina are to the right of you. From left to you is factory building brick wall.'
								end
							end
							if agil < 100:
							'You jumped behind the wheel of a car, but confused Nogmov between the seat and the gear lever. In the driver´s door stuck his hands long man.'
							dynamic $din_albina_get_over_car
							end
						end
					end
					act 'Out of the car':
					cls
					minut += 5
					gs 'stat'
					'<center><img src="images\qwest\alter\castle.jpg"></center>'
					'You jumped out of the car and see how you run burly side hood and trunk from the car obbegat long. The road back to cut you, but you notice the open door of the shop.'
					end
					act 'Sit in the car':
					cls
					minut += 5
					gs 'stat'
					'<center><img src="images\qwest\alter\BMW.jpg"></center>'
					dynamic $din_albina_get_over_car
					end
				exit
				end
				if DanceWhore > 0:
				'Albina does not stop the engine, got out and said, "Relax guys. <<$name>> of my Zvezdushek. Newcomer. But a lot of promise."'
				end
			end
		end
	end
end

act 'Move away': gt $loc, $metka
--- albinaEv ---------------------------------

# artemEv
$din_artom_bj = {
	act 'Suck':
	cls
	minut += 5
	horny += 10
	bj += 1
	if npcSex[2] = 0: npcSex[2] = 1 & guy += 1
	if artomBJQW = 0: artomBJQW = 1
	sub += 1
	swallow += 1
	cumlip += 1
	dick = 16
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\artomBJ.jpg"></center>'
	dynamic $dinrandbj
	dynamic $dinrandswallow
	act 'Go home': gt 'gorodok'
	end

}
$din_artom_leghump = {
	act 'Let Artem caress your ass.':
	cls
	minut += 5
	horny += 10
	hump += 1
	if npcSex[2] = 0: npcSex[2] = 1 & guy += 1
	leghumpArtom += 1
	dom += 1
	dick = 16
	cumfrot += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\artomHump.jpg"></center>'
	'You got my clothes on all fours in front of Artem and framed him his ass. Artem began stroking your ass hands for a while he hesitated and you turned around. Artem took penis and began to rub them on your backside. You feel as through clothes between your buns moving solid barrel member. Artem groaned and flew jet of sperm you on the ass. You turned around and see what Artem pytaetsya cum in hand, but the sperm of his overexcited member still shatters you on clothing. After he finished fussing Artem "Svetulechka sorry, I did not want to stain you, I´m all erase." He began to wash semen stains on your clothes. After some time on the clothes were only wet spots.'
	act 'Go home': cumfrot = 0 & gt 'gorodok'
	end
}
$din_artom_leghump2 = {
	if dom > 0:
		act 'Remove clothing and let Artem rub on you.':
		cls
		minut += 5
		horny += 10
		hump += 1
		if npcSex[2] = 0: npcSex[2] = 1 & guy += 1
		leghumpArtom += 1
		dom += 1
		dick = 16
		cumass += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\artomHump2.jpg"></center>'
		'You undressed and lay down on his stomach on the bed. Artem sat on top of your feet and pulls cock was rubbing against your soft ass and jerk off on her. Soon you Artem finished panties.'
		act 'Go home': gt 'gorodok'
		end
	end
}
$din_artom_lern = {
	act 'Engage with Artem':
	cls
	minut += 60
	grupNPC[2] += 10
	lernHome = 0
	lern += RAND(3,6)
	intel += RAND(1,2)
	gs 'stat'
	'<center><img src="images\qwest\alter\npc<<2>>.jpg"></center>'
	'Did you do with Artem within an hour, during which time he helped you with homework and explained something of the studied material.'
		if grupNPC[2] >= 90:
		artomLernQW += 1
		'While you are with Artem you catch his gaze on me. He glances furtively to you on foot and on his chest.'
		if artomQW > 0:
		if GorSlut < 2:
				'After training with Artem he leaned toward your face, what would kiss you.'
					act 'Kiss Artem':
					cls
					horny += 10
					!artomQW = 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
					'You smiled slightly and Artem brought her face to him. Artem approached you and kissed you. You started kissing. Finally ending kiss Artem said sheepishly. "<<$name>>, I like you very nravishsya."'
						if artomLernQW >= 20 and leghumpArtom = 0:
						'Artem muttered sheepishly. "Svetulya. I really want you, maybe we could ... you know ... Can I touch your ass?"'
						dynamic $din_artom_leghump
						end
						if leghumpArtom >= 1:
						'Artem said sheepishly. "Svetulya, you´re so wonderful. I liked it so much last time. Can we play one more time?"'
						dynamic $din_artom_leghump
						dynamic $din_artom_leghump2
						end

					act 'Go home': gt 'gorodok'
					end
		end
		if GorSlut >= 2:
		if artomBJQW = 0:
		'After classes, Artem looked at you, "<<$name>>, everyone at school is talking about what you cocksucker. I think it will be fair if you have me otsosesh for what I´m helping you."'
		dynamic $din_artom_bj


			act 'No':
						cls
						dom += 1
						artomLernQW = -1
						grupNPC[2] = 0
						gs 'stat'
						'You refused to Artem, who frankly offended "Look, I have so much time and effort spent, and you ... you suck all in a row, but I do not want to ... More to me can not be appropriate."'
						act 'Go home': gt 'gorodok'
						end
		end
		if artomBJQW > 0:
		'Artem unbuttoned pants and pulled out a member of his pants. "On <<$name>>, suck."'
		dynamic $din_artom_bj
		end
		end
		exit
		end

		if artomLernQW >= 10 and artomQW = 0:
		'Artyom stumbles as if he wants you to say something, but not solved. But then mustered determination asks. "<<$name>>, I like you. Can I kiss you?"'
		act 'Kiss Artem':
		cls
		horny += 10
		artomQW = 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
		'You smiled slightly and Artem brought her face to him. Artem approached you and kissed you. You started kissing. Finally ending kiss Artem said sheepishly. "It was fun, light, I like you very nravishsya."'
		act 'Go home': gt 'gorodok'
		end

		act 'No':
		cls
		dom += 1
		artomLernQW = -1
		grupNPC[2] = 0
		gs 'stat'
		'You refused to Artem, who frankly offended "Look, I have so much time and effort spent, and you ... you are using just me. All. Can no longer come to me!"'
		act 'Go home': gt 'gorodok'
		end
		exit
		end
		end
	act 'Say goodbye and go home': gt 'gorodok'
	end

}


gs 'stat'
'<center><B><font color = maroon><<$npcName[2]>> <<$npcSurName[2]>></font></B></center>'
'<center><img src="images\qwest\alter\npc2.jpg"></center>'
if kotovLoveQW > 0 and artomVitokQW = 0:
'You are out of school and went to Artem. Artem asked, "Well, shall we go?" You nodded his head. Once you have gathered with Artem leave the school yard when suddenly came up to meet you Witek Kotov. He walked up to you and smeryav disdainful look Artem said "Where are you going to go with this four-eyed jerk?" You answered Vit''ka that you went to teach lessons, Artem helps you tighten school. Witek frowned, "I do not trust this freak. He has written on his face, that he laid eyes on you." Artem much frightened, and began to mumble. "Witek, but you what, I would never. We just teach lessons." Have you noticed how tense nodules in Vic.'
	if dom >= 10:
		act 'Witek. Get away from him!':
		cls
		sub += 10
		artomVitokQW = 1
		gs 'stat'
		'You said Vit''ka fork out from Artem. And Witek slightly wilted, but went up to Artem and lightly punched him in the shoulder with his fist "Slysh motherfucker. If I even suspect that it will be something out of a hint, I love you so otpizzhu that you mother dear know. You have me in a wheelchair the chair will be sitting for the rest of life and piss blood. Do you understand? " Artem nodded repulsed rubbing his shoulder, "Yes, yes. All clear." Thereafter Witek turned and went the other way. You scared Artyom went to his home.'
		dynamic $din_artom_lern
		end
	end

	act 'Be silent':
	cls
	artomVitokQW = 2
	gs 'stat'
	'You silent pondering what to do. And then there was cotton and Artem fell to the ground. You do not understand what happened but obviously Witek punched Artem. Artem closed hands and squealed like a little girl "Witek, well, do not!" Witek leaned over Artem "Once again I see you together, teeth will strike. Understood?" Artem wailed "Got it figured." Witek gave a kick in the ass lifted from the ground to Artem. "And now sebis horrified pimples!" Artem grabbed an armful their stuff running drapanul from Vic. Witek spat on the ground and turned around went somewhere.'
	act 'Leave': gt 'gschool'
	end

exit
end
if fedorKozlovQW >= 10 and FedorArtomTalk = 0:
FedorArtomTalk = 1
'To you with Artem suitable Fedor. "Artem, you would go to the library ..., <<$name>> my girl." Artem blushed "Fed, but nothing we just teach lessons together, I light tightens on tuition. She has come to the Institute, by the way!" You also inserted mot that Artyom for you with just one and only lessons you learn together, nothing between you is not. Fyodor sighed and said, "Well, I do not like it all, yeah figs with him. <<$name>> I believe you." After that Fedor oteshel from you.'
dynamic $din_artom_lern
exit
end
'You are out of school and went to Artem. Artem asked, "Well, shall we go?" You nodded his head. All the way to his house you walked in silence.'

dynamic $din_artom_lern
--- artemEv ---------------------------------

# barbershop
!!! Maruda Hair Mod
$pokraska = {
clr
cla
set money -= 750
'You ask the barber, if he could dye your hair.'
'"Sure.", he says.'
'"Which colour would like to have your hair dyed in?"'
if hcol ! 0:
	act 'Black':
		cla
		*clr
		'"Black", you say, "I want to have it as dark as possible, please.'
		'"Sure thing!", he says, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'
		act 'Sit down':
			cla	
			*clr
			set minut += 45
			set hcol = 0
			'Not even an hour later everything seems to have dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave': gt 'barbershop','start'
		end
	end
end
if hcol ! 1:
	act 'Brown':
		cla
		*clr
		'"I''d like to have my hair brown", you say.'
		'"Sure thing!", he answer in a happy tone, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", he says.'
		act 'Sit down':
			cla	
			*clr
			set minut += 45
			set hcol = 1
			'45 minutes later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave': gt 'barbershop','start'
		end
	end
end
if hcol ! 2:
	act 'Red':
		cla
		*clr
		'"Red is a colour I''d love to try out.", you say.'
		'"Sure thing!", he smiles, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", he says as he turns around one of the seats for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 45
			set hcol = 2
			'45 minutes later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave': gt 'barbershop','start'
		end
	end
end
if hcol ! 3:
	act 'Blonde':
		cla
		*clr
		'"I want to have my hair coloured blonde, please", you tell him.'
		'"As you wish, please have a seat.", he says and turns around one of the chairs for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 45
			set hcol = 3
			'About an hour later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave': gt 'barbershop','start'
		end
	end
end
gs 'stat'
}
$zavivka = {
	set minut += 20
	set curly += 10
	set money -= 300
	'You have your hair curled'
	gs 'stat'
	gt 'barbershop','start'
}
$cuthair = {
cla
*clr
set money -= 500
'You approach the barber and ask, "Hi, I would like to get my hair cut."'
'"Of course, at which length do you want to have your hair at?", he asks you.'
if hairlength > 10:
	act 'Very short':
		cla
		*clr
		'You sit down and say, "I want my hair to be very short."'
		'"Of course", he says with a friendly smile on her face, while leading you to a free seat.'
		act 'Sit down.':
			cla
			*clr
			set minut += 30
			set hairlength = 10
		'About half an hour later he is done and what''s left from you former hairstyle is a very short buzzcut.'
		'You stand up and pay him at the counter.'
		act 'Stand up': gt 'barbershop','start'
		end
	end
end
if hairlength > 31:
	act 'Short, but not too short':
		cla
		*clr
		'"I''d like to have my hair cut short, but it shouldn''t get too short. I hope, you know what I mean.", you tell him, hoping he wouldn''t cut everything off.'
		'"I know what you mean, that''s not problem at all", he says, then he turns around one of the free seats and makes a gesture to you, to sit down.'
		act 'Sit down.':
			if hairlength > 60:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 20
						set hairlength = 31
						set hbangs = 1
						set hapri = 1
						'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 31
						set hapri = 1
						'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay the barber at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 31
				set hapri = 1
				'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
				'You stand up and pay him at the counter.'
				act 'Stand up': gt 'barbershop','start'
			end
		end
	end
end
if hairlength > 81:
	act 'About chin-line length':
		cla
		*clr
		'"Could you cut my hair back to between my chin and shoulder, please?", you ask him.'
		'"Sure, no problem", he tells you getting a chair for you ready.'
		act 'Sit down.':
			if hairlength > 90:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 20
						set hairlength = 81
						set hbangs = 1
						set hapri = 1
						'20 minutes later, he is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 81
						set hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 31
				set hapri = 1
				'20 minutes later, he is done cutting your hair.'
				'You stand up and pay him at the counter.'
				act 'Stand up': gt 'barbershop','start'
			end
		end
	end
end
if hairlength > 161:
	act 'Shoulder Length':
		cla
		*clr
		'"I would like to have my hair cut back to about the height of my shoulder.", you tell him.'
		'"Sure, no problem", he tells you, gesturing you, to sit down into a free chair.'
		act 'Sit down.':
			if hairlength > 170:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 20
						set hairlength = 161
						set hbangs = 1
						set hapri = 1
						'20 minutes later, he is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 161
						set hapri = 1
						'30 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 161
				set hapri = 1
				'20 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
				'You stand up and pay him at the counter.'
				act 'Stand up': gt 'barbershop','start'
			end
		end
	end
end
if hairlength > 261:
	act 'About Brastrap length':
		cla
		*clr
		'"Could you cut my hair back to about where my bra-strap sits?", you ask him.'
		'"That''s absolutely no problem.", he says, when geasturing you sit down on one of the free seat'
		act 'Sit down.':
			if hairlength > 280:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 20
						set hairlength = 261
						set hbangs = 1
						set hapri = 1
						'20 minutes later, he is done cutting your hair. He cut your hair back to about the height of where your bra sits, in addition he made you a fringe, which covers your forehead, as requested.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 261
						set hapri = 1
						'20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
						'You stand up and pay him at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 261
				set hapri = 1
				'20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
				'You stand up and pay him at the counter.'
				act 'Stand up': gt 'barbershop','start'
			end
		end
	end
end
if hairlength > 401:
	act 'Cut the tips':
		cla
		*clr
		'"I''d like to keep this length, but my tips might need some cutting. Could you do that?", you ask him. '
		'"Of course, please sit down.", he says.'
		act 'Sit down.':
			if hairlength > 401:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 20
						set hairlength = 401
						set hbangs = 1
						set hapri = 1
						'20 minutes later, he is done cutting your hair. He just cuts the tips of your, barely making it any shorter and as requested, he cut you a nice fringe, which now covers your forehead.'
						'You stand up and pay the barber at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 401
						set hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay the barber at the counter.'
						act 'Stand up': gt 'barbershop','start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 401
				set hapri = 1
				'20 minutes later, he is done cutting your hair.'
				'You stand up and pay him at the counter.'
				act 'Stand up': gt 'barbershop','start'
			end
		end
	end
end
}
if $ARGS[0] = 'start':
gs 'stat'

'<center><B><font color=maroon>The Barber Shop</font></B></center>'
'<center>The only barber shop in the area. While he can''t do special hairstyles, he''s cheap and works fast.</center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
''
if money >= 500 and hairlength > 15: '<a href="exec: dynamic $cuthair ">Cut your hair - 750 rubles</a>'
if money < 500 and hairlength <= 15: 'You don''t have enough money to get your hair properly cut. It costs 750 rubles but you only have <<money>>.'
''
if money >= 300 and hairlength > 80: '<a href="exec: dynamic $zavivka ">Curl your hair - 500 rubles</a>'
if money < 300: 'You cannot afford curling your hair, as it costs 500 rubles, which you do not have at the moment.'
if money >= 300 and hairlength <= 80: 'Your hair is too short to be curled.'
if hairlength <= 80: 'Your hair is not long enough to be curled.'
''
if money >= 750: '<a href="exec: dynamic $pokraska ">Dye your hair - 1.000 rubles</a>'
if money < 750: 'You cannot afford dyeing your hair, as you are missing the 1.000 rubles required for it.'
''
if hour =< 8 or hour >= 20:
	cls
	'The barber shop is closed at the moment, you should probably come back, when he''s in'
	act 'Leave': set minut += 2 & gt 'gorodok'
	exit
	end
act 'Leave': set minut += 2 & gt 'gorodok'
end

if money >= 60:
	act 'Buy Scrunchies - 60 rubles':
		cls
		money    -= 60
		hscrunch += 10
		'You pay the cashier and bought the small box.'
		act 'Move away': gt 'barbershop','start'
	end
end

if money >= 80:
	act 'Buy Hairaccessories - 80 rubles':
		cls
		money    -= 80
		hpingrip += 10
		'You pay the cashier and bought the small box.'
		act 'Move away': gt 'barbershop','start'
	end
end
!!! Maruda Hair Mod

--- barbershop ---------------------------------

# BnameGen
bnrand = RAND(0,15)
if bnrand = 0:$bname = 'Sasha' & $bnamefull = 'Alexander'
if bnrand = 1:$bname = 'Lesch' & $bnamefull = 'Alexey'
if bnrand = 2:$bname = 'Kohl' & $bnamefull = 'Nicholas'
if bnrand = 3:$bname = 'Petya' & $bnamefull = 'Peter'
if bnrand = 4:$bname = 'Vasya' & $bnamefull = 'Basil'
if bnrand = 5:$bname = 'Gosh' & $bnamefull = 'Igor'
if bnrand = 6:$bname = 'Misha' & $bnamefull = 'Michael'
if bnrand = 7:$bname = 'Dan' & $bnamefull = 'Denis'
if bnrand = 8:$bname = 'Pasha' & $bnamefull = 'Paul'
if bnrand = 9:$bname = 'Gene' & $bnamefull = 'Gennady'
if bnrand = 10:$bname = 'Dima' & $bnamefull = 'Dmitry'
if bnrand = 11:$bname = 'Slavik' & $bnamefull = 'Vyachesla'
if bnrand = 12:$bname = 'Acne' & $bnamefull = 'Vitaly'
if bnrand = 13:$bname = 'Valera' & $bnamefull = 'Valery'
if bnrand = 14:$bname = 'Vanya' & $bnamefull = 'Ivan'
if bnrand = 15:$bname = 'Serge' & $bnamefull = 'Sergey'

:markodinname
bnrand = RAND(0,15)
if bnrand = 0:$bname2 = 'Sasha'
if bnrand = 1:$bname2 = 'Lesch'
if bnrand = 2:$bname2 = 'Kohl'
if bnrand = 3:$bname2 = 'Petya'
if bnrand = 4:$bname2 = 'Vasya'
if bnrand = 5:$bname2 = 'Gosh'
if bnrand = 6:$bname2 = 'Misha'
if bnrand = 7:$bname2 = 'Dan'
if bnrand = 8:$bname2 = 'Pasha'
if bnrand = 9:$bname2 = 'Gene'
if bnrand = 10:$bname2 = 'Dima'
if bnrand = 11:$bname2 = 'Slavik'
if bnrand = 12:$bname2 = 'Acne'
if bnrand = 13:$bname2 = 'Valera'
if bnrand = 14:$bname2 = 'Vanya'
if bnrand = 15:$bname2 = 'Serge'

if $bname = $bname2: jump 'markodinname'

:markodinnamesec
bnrand = RAND(0,15)
if bnrand = 0:$bname3 = 'Sasha'
if bnrand = 1:$bname3 = 'Lesch'
if bnrand = 2:$bname3 = 'Kohl'
if bnrand = 3:$bname3 = 'Petya'
if bnrand = 4:$bname3 = 'Vasya'
if bnrand = 5:$bname3 = 'Gosh'
if bnrand = 6:$bname3 = 'Misha'
if bnrand = 7:$bname3 = 'Dan'
if bnrand = 8:$bname3 = 'Pasha'
if bnrand = 9:$bname3 = 'Gene'
if bnrand = 10:$bname3 = 'Dima'
if bnrand = 11:$bname3 = 'Slavik'
if bnrand = 12:$bname3 = 'Acne'
if bnrand = 13:$bname3 = 'Valera'
if bnrand = 14:$bname3 = 'Vanya'
if bnrand = 15:$bname3 = 'Serge'

if $bname = $bname3 or $bname2 = $bname3: jump 'markodinnamesec'

dick = RAND(12,25)
silavag = RAND(0,2)
--- BnameGen ---------------------------------

# DanceWhore1
minut += 5
gs 'stat'
'Man took you by the hand and led him into the room. When the man turned on the light in the room, you will see that it is a great sleeper.'


dick = RAND(10,26)
act 'Squat':
cls
bj += 1
guy += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bj.jpg"></center>'
'You squatted in front of the man and took his cock hand. Slightly moving the skin on the penis you licked the head. Your nimble tongue began to caress hot and hard cock male. Then you started to suck cock absorbing it into his mouth as much as they could.'
tipdarand = RAND(0,2)
	if tipdarand = 0:
	'Man vzal your head in his hands and began to stick it on the penis.'
		act 'Relax the throat':
		cls
		if throat < dick: throat += 1
		minut += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\throat.jpg"></center>'
			if throat < dick/2:
			manna = 0
			horny = 0
			'You began frantically to relax the throat when a member was a member of you. Do you drool ran down, snot and tears constantly covered vomiting spasms.'
			end
			if throat >= dick/2 and throat < dick:
			manna = manna/2
			horny = horny/2
			'You relaxed throat and began to enter into a member of your throat to the ground. You snot and tears flowed from it and began to choke you.'
			end
			if throat >= dick:
			'You are totally relaxed throat and every time a member logged in to the base of your throat hit you balls furry chin.'
			end
			tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Little man groaned and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'The man took a member of your mouth and began to masturbate in front of your face it.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'The man took a member of your mouth and put your cancer.'
		act 'Substitute ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\anal.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		dynamic $din_go_to_home_dance
		end
	end
	if tipdarand = 2:
	'The man took a member of your mouth and put you on the back.'
		act 'Lie on your back.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\sex.jpg"></center>'
		'You lay on your back. <<$bname>> lay on top and spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		dynamic $din_go_to_home_dance
		end
	end
end
--- DanceWhore1 ---------------------------------

# DanceWhore2
minut += 5
gs 'stat'
'Boys led you to your room.'

dick = RAND(10,26)
act 'Squat':
cls
bj += 2
guy += 2
gang += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjd.jpg"></center>'
'You squatted in front of guys and took their members hands. Little masturbate you licked the head of one of the members. Then you started to suck cock absorbing it into his mouth as much as they could and masturbate second term. When you become a member of hardened suck second term. Your wet mouth fondled and sucked once both members.'
tipdarand = RAND(0,1)
	if tipdarand = 0:
	'You guys put cancer. One went back to you, the second came to your mouth. You felt like fingers Man began to fondle your anus. A second man impatiently tapped his member you in the face.'
		act 'Relax and suck ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\d.jpg"></center>'
		'You suck dick absorbing it as deeply as possible.'
		dynamic $sexstart
		dynamic $analsex
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'Guys put you back on the sofa, one of them located between your legs, the second came to your face.'
		act 'Suck.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\d1.jpg"></center>'
		'You began to suck dick while the other guy spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 2:

	end
end
--- DanceWhore2 ---------------------------------

# DanceWhore3
minut += 5
gs 'stat'
'Caucasian took you by the hand and led him into the room. When the man turned on the light in the room, you will see that it is a great sleeper.'

dick = RAND(16,30)
act 'Squat':
cls
bj += 1
guy += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bj.jpg"></center>'
'You squatted in front of the man and took his cock hand. Slightly moving the skin on the penis you licked the head. Your nimble tongue began to caress hot and hard cock male. Then you started to suck cock absorbing it into his mouth as much as they could.'
tipdarand = RAND(0,2)
	if tipdarand = 0:
	'Man vzal your head in his hands and began to stick it on the penis.'
		act 'Relax the throat':
		cls
		if throat < dick: throat += 1
		minut += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\throat.jpg"></center>'
			if throat < dick/2:
			manna = 0
			horny = 0
			'You began frantically to relax the throat when a member was a member of you. Do you drool ran down, snot and tears constantly covered vomiting spasms.'
			end
			if throat >= dick/2 and throat < dick:
			manna = manna/2
			horny = horny/2
			'You relaxed throat and began to enter into a member of your throat to the ground. You snot and tears flowed from it and began to choke you.'
			end
			if throat >= dick:
			'You are totally relaxed throat and every time a member logged in to the base of your throat hit you balls furry chin.'
			end
			tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Little man groaned and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'The man took a member of your mouth and began to masturbate in front of your face it.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'The man took a member of your mouth and put your cancer.'
		act 'Substitute ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\anal.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		dynamic $din_go_to_home_dance
		end
	end
	if tipdarand = 2:
	'The man took a member of your mouth and put you on the back.'
		act 'Lie on your back.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\sex.jpg"></center>'
		'You lay on your back. <<$bname>> lay on top and spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		dynamic $din_go_to_home_dance
		end
	end


end
--- DanceWhore3 ---------------------------------

# DanceWhore4
minut += 5
gs 'stat'
'Two Caucasians led you to your room.'



dick = RAND(16,30)
act 'Squat':
cls
bj += 2
guy += 2
gang += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjd.jpg"></center>'
'You squatted in front of guys and took their members hands. Little masturbate you licked the head of one of the members. Then you started to suck cock absorbing it into his mouth as much as they could and masturbate second term. When you become a member of hardened suck second term. Your wet mouth fondled and sucked once both members.'
tipdarand = RAND(0,1)
	if tipdarand = 0:
	'You guys put cancer. One went back to you, the second came to your mouth. You felt like fingers Man began to fondle your anus. A second man impatiently tapped his member you in the face.'
		act 'Relax and suck ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\d.jpg"></center>'
		'You suck dick absorbing it as deeply as possible.'
		dynamic $sexstart
		dynamic $analsex
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'Guys put you back on the sofa, one of them located between your legs, the second came to your face.'
		act 'Suck.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\d1.jpg"></center>'
		'You began to suck dick while the other guy spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facial.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 2:

	end
end
--- DanceWhore4 ---------------------------------

# DanceWhore5
minut += 5
gs 'stat'
'Three Caucasians led you to your room.'

dick = RAND(16,30)
act 'Squat':
cls
bj += 3
guy += 3
gang += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjt.jpg"></center>'
'You squatted in front of guys and took their members hands. Little masturbate you licked the head of one of the members. Then you started to suck cock absorbing it into his mouth as much as they could and masturbate other members. You tried to lick and suck just three members.'
!tipdarand = RAND(0,1)
tipdarand = 0
	if tipdarand = 0:
	'Caucasians talking in a strange language you put cancer.'
		act 'Relax and suck ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\f.jpg"></center>'
		'You suck two members of absorbing them as deeply as possible into his mouth.'
		dynamic $sexstart
		dynamic $analsex
			act 'Further':
			cls
			tipdarand = RAND(0,1)
				if tipdarand = 0:
				cumface += 2
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facialt.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish. Second Caucasian too, began to discharge on your face, covering it with sperm.'
				end
				if tipdarand = 1:
				cumlip += 2
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallowt.jpg"></center>'
				'You kneel and readily opened his mouth. Caucasians started you finish filling in the open mouth of his sperm. When the flow of sperm stopped and turned your mouth is filled to the brim with sperm, you swallow it.'
				end
			dynamic $din_go_to_home_dance
			end
		end
	end
	if tipdarand = 1:
	end
	if tipdarand = 2:

	end
end
--- DanceWhore5 ---------------------------------

# DanceWhore6
minut += 5
gs 'stat'
'Hefty Ebony took you by the hand and led somewhere.'

dick = RAND(18,35)
act 'Squat':
cls
bj += 1
guy += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjn.jpg"></center>'
'You squatted in front of the man and took his cock hand. Slightly moving the skin on the penis you licked the head. Your nimble tongue began to caress hot and hard cock male. Then you started to suck cock absorbing it into his mouth as much as they could.'
tipdarand = RAND(0,2)
	if tipdarand = 0:
	'Man vzal your head in his hands and began to stick it on the penis.'
		act 'Relax the throat':
		cls
		if throat < dick: throat += 1
		minut += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\throatn.jpg"></center>'
			if throat < dick/2:
			manna = 0
			horny = 0
			'You began frantically to relax the throat when a member was a member of you. Do you drool ran down, snot and tears constantly covered vomiting spasms.'
			end
			if throat >= dick/2 and throat < dick:
			manna = manna/2
			horny = horny/2
			'You relaxed throat and began to enter into a member of your throat to the ground. You snot and tears flowed from it and began to choke you.'
			end
			if throat >= dick:
			'You are totally relaxed throat and every time a member logged in to the base of your throat hit you balls furry chin.'
			end
			tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Little man groaned and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'The man took a member of your mouth and began to masturbate in front of your face it.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facialn.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'The man took a member of your mouth and put your cancer.'
		act 'Substitute ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\analn.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		dynamic $din_go_to_home_dance
		end
	end
	if tipdarand = 2:
	'The man took a member of your mouth and put you on the back.'
		act 'Lie on your back.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\sexn.jpg"></center>'
		'You lay on your back. <<$bname>> lay on top and spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		dynamic $din_go_to_home_dance
		end
	end
end
--- DanceWhore6 ---------------------------------

# DanceWhore7
minut += 5
gs 'stat'
'Two Negro led you to your room.'
dick = RAND(18,35)
act 'Squat':
cls
bj += 2
guy += 2
gang += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjdn.jpg"></center>'
'You squatted in front of guys and took their members hands. Little masturbate you licked the head of one of the members. Then you started to suck cock absorbing it into his mouth as much as they could and masturbate second term. When you become a member of hardened suck second term. Your wet mouth fondled and sucked once both members.'
tipdarand = RAND(0,1)
	if tipdarand = 0:
	'You guys put cancer. One went back to you, the second came to your mouth. You felt like fingers Man began to fondle your anus. A second man impatiently tapped his member you in the face.'
		act 'Relax and suck ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\dn.jpg"></center>'
		'You suck dick absorbing it as deeply as possible.'
		dynamic $sexstart
		dynamic $analsex
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facialn.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 1:
	'Guys put you back on the sofa, one of them located between your legs, the second came to your face.'
		act 'Suck.':
		cls
		minut += 30
		!sex += 1
		$boy = 'Client'
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\d1n.jpg"></center>'
		'You began to suck dick while the other guy spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		tipdarand = RAND(0,1)
			if tipdarand = 0:
			'Man fuck you in the mouth, a little groan and grabbed your hair pressed you to face your Kucheryavykh pubis. Suddenly your throat spurt of semen.'
			act 'Swallow':
				cls
				cumlip += 1
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallow.jpg"></center>'
				'You began frantically swallow cum until a member has not finished pour the seed into your mouth.'
				dynamic $din_go_to_home_dance
				end
			end
			if tipdarand = 1:
			'Man fuck you in the mouth, took a member of your mouth and began to masturbate him in front of your face.'
				act 'Close your eyes':
				cls
				cumface += 1
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facialn.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish.'
				dynamic $din_go_to_home_dance
				end
			end
		end
	end
	if tipdarand = 2:

	end
end
--- DanceWhore7 ---------------------------------

# DanceWhore8
minut += 5
gs 'stat'
'Three Negro led you to your room.'

dick = RAND(18,35)
act 'Squat':
cls
bj += 3
guy += 3
gang += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\dance\bjtn.jpg"></center>'
'You squatted in front of guys and took their members hands. Little masturbate you licked the head of one of the members. Then you started to suck cock absorbing it into his mouth as much as they could and masturbate other members. You tried to lick and suck just three members.'
!tipdarand = RAND(0,1)
tipdarand = 0
	if tipdarand = 0:
	'Negros talking in a strange language you put cancer.'
		act 'Relax and suck ass':
		cls
		minut += 30
		$boy = 'Client'
		cumanus += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\dance\fn.jpg"></center>'
		'You suck two members of absorbing them as deeply as possible into his mouth.'
		dynamic $sexstart
		dynamic $analsex
			act 'Further':
			cls
			tipdarand = RAND(0,1)
				if tipdarand = 0:
				cumface += 2
				facial += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\facialtn.jpg"></center>'
				'You closed your eyes and felt like you hit in the face and a warm jet of sperm flowed down. Then the next jet hit you in the face. Then another and another. Finally a member has ceased to finish. Second Caucasian too, began to discharge on your face, covering it with sperm.'
				end
				if tipdarand = 1:
				cumlip += 2
				swallow += 1
				minut += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\dance\swallowtn.jpg"></center>'
				'You kneel and readily opened his mouth. Negros you started to cum into her open mouth filling it with sperm. When the flow of sperm stopped and turned your mouth is filled to the brim with sperm, you swallow it.'
				end
			dynamic $din_go_to_home_dance
			end
		end
	end
	if tipdarand = 1:
	end
	if tipdarand = 2:

	end
end
--- DanceWhore8 ---------------------------------

# dimaRudeEv
dimarudeday = day
gs 'stat'
'<center><B><font color = maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
'<center><img src="images\qwest\alter\npc1.jpg"></center>'
if dimarudorient = 0:
'Dima seeing you turned and said quietly, "Well, come to me, have fun."'
if fedorKozlovQW >= 10:
'To you with Dima suitable Fedor. "<<$name>>, well, shall we go?" Dima looked at Fedora "Fed, what do you want? That´s my girl." Fedor frowned, "What is your zanchit dvechenka? She meets with me." Dima smiled "So let´s ask her own, whom she meets?"'
	act 'Fyodor Sorry, I meet with Dima':
	cls
	minut += 15
	fedorKozlovQW = -1
	gs 'stat'
	'You chose Dima and Fyodor disappointed shrugged and walked away.'
	'You went to the house of Dima. The house where he lives belongs to his parents, is a large two-storey detached house with a manicured lawn and a large garden.'
	act 'Walk into a room Dima': dimarudorient = 1 & gt $curloc
	end

	act 'Dima Sorry, but I´ll throw':
	cls
	minut += 15
	gs 'stat'
	'Did you choose Fedor. What Dima disgusting grinned and turned to the Fed said "Fed, what for you need this cocksucker? I personally met her just because she fucking sucks." Fedka scowled, "What are you talkin about, motherfucker?"'
		if dimaFilm = 1:
		fedorKozlovQW = -1
		GorSlut = 2
		'Dima said Fyodor seeing evil eye "And if I have proof that it cocksucker, what do you say then." Fedor was a little embarrassed but firmly said "That can not be!" Dima smiled, "Can not? Look here." Dima took the phone and turned on the video. You blushed as cancer, realizing that for the videos included Theodore Dima. The video was clearly visible, as you ring is inserted into the mouth and hard cock enters your mouth getting into the throat. You drools and tears, but you do not resist, and willingly put your mouth. Fedor flushed and looked at you, "Oh, you two-faced bitch!" He turned away from you and walked away quickly. Dima glared at you, "I decided to Quit cocksucker? Fuck you in the mouth, I´ll throw it. And today, everyone will know what you look like." Dima laughed and walked away from you.'
		act 'Leave': gt 'gorodok'
		end
		if dimaFilm = 0:
		'Dima said, "Yes I had her in the bushes near a disco in the mouth fuck." Fedka even stronger scowled and walked right up to Dime "Well ka again repeat what you said?" Dima noticeably scared, "Yes it´s true, I have it near the disco sucked." Fyodor shoved Dima, Dima flew from him and began to inconsistent to say "Get away from me! Want to meet her, come on." Fyodor came to Dima and grabbed him by the lapels "Once again I hear you about the light, all garbage talking about, sorry." Dimo fidgeted nervously trying to escape from the grip of steel Fedor "Come on, calm down, I knew." Fyodor Dima pushed and pulled you aside.'
		act 'Go with Fedor': DimaRudeBlock = 1 & gt 'FedorEv'
		end

	end
exit
end
	act 'Go to Dima':
	cls
	minut += 15
	gs 'stat'
	'You went to the house of Dima. The house where he lives belongs to his parents, is a large two-storey detached house with a manicured lawn and a large garden.'
	act 'Walk into a room Dima': dimarudorient = 1 & gt $curloc
	end

	act 'Leave': gt 'gschool'
end
if dimarudorient = 1:
'Dima closed the front door of his room at the castle and turned to you, "Take off your clothes."'
	act 'Undress':
	if dimaFilm = 0: dimarudorient = 2
	if dimaFilm = 1: dimarudorient = 3
	gt $curloc
	end
end
if dimarudorient = 2:
'Dima indifferent grin looked at your naked body and went to the table. You saw that he turned a small camera and took her hand. He sat on the couch and pointing the camera at you said "If otsosesh front of the camera, then I will not tell anyone how to fuck you in the mouth at the disco."'
	act 'Dress':
	cls
	minut += 5
	if GorSlut < 2: GorSlut = 2
	gs 'stat'
	'You grabbed the clothes and trying to hide her face from the camera began to dress as soon as possible. Dima continued to shoot it all on camera.'
		act 'Leave':
		cls
		minut += 15
		DimaRudeBlock = 1
		gs 'stat'
		'You opened the door and went to the door of the house. Following Dima heard the voice, "Go ahead, run a pig. Tomorrow all will know that you cocksucker."'
		act 'Leave': gt 'gorodok'
		end
	end

	act 'Suck on camera':
	cls
	minut += 15
	bj += 1
	cumlip += 1
	swallow += 1
	dimaFilm = 1
	sub += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\evdima\filming.jpg"></center>'
	'You sat before Dima and started to suck his dick. Dima concentrated shot you on your camera. His cock quickly became stronger and soon spurted semen in your mouth. You carefully swallowed it before the camera. Dima turned off the camera and put it aside. "Cool.you´re A great cocksucker."'
	act 'Leave': gt 'gorodok'
	end
end
if dimarudorient = 3:
'Dima indifferent smirk examined your body. He went to the closet and rummaged in it taking out what that thing. He walked up to you and you turned rough hands behind his back. Heard-clicking handcuffs and you felt the cold steel on her wrists. He walked up to you and put back into your mouth ring to which prikrepeleny belts, then he buckled strap behind your head'
	act 'Further':
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\evdima\ogag.jpg"></center>'
	'Your mouth is widely opened with rings, Dima apparently little greased ring located in your mouth with lemon juice and now you saliva flowing from the mouth of the creek, and there is no way to stop it. Dima bit admired you and plantar to your face got dick.'
		act 'Further':
		cls
		minut += 5
		bj += 1
		cumlip += 1
		swallow += 1
		throat += 1
		sub += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\evdima\gagbj.jpg"></center>'
		'Member unopposed went through the ring in your mouth and ran into your throat. You´re a bit choked, Dima took a member and with full force you drove him in the throat. Do you drool flowed, tears and snot on her face. Dima furiously drives the his penis in your mouth, burning with fire your fucking throat. Finally he groaned and drove to the base member in your mouth began to cum in your throat. You almost fainted from suffocation and spasms in the throat of any member which is clamped even tighter inside you. Finally Dima became a member to fall and he took it out of you. After that he took the gag out of your mouth and your hands untied.'
		act 'Leave': gt 'gorodok'
		end
	end
end
--- dimaRudeEv ---------------------------------

# EvBoyBuh
$din_gorodok_boy_bj = {
	act 'Squat':
	cls
	minut += 5
	horny += 10
	bj += 1
	guy += 1
	sub += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\boybj.jpg"></center>'
	'You squatted in front of the guy and began stroking his cock.'
		act 'Suck':
		cls
		minut += 5
		horny += 10
			if GorSlut < 2:
			resultrand = RAND(0,100)
			if resultrand >= 80:
			GorSlut = 2
			end
			end
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\boybj2.jpg"></center>'
		dynamic $dinrandbj
			act 'Suck on':
			cls
			minut += 5
			horny += 10
			cumface += 1
			cumlip += 1
			cumfrot += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\boybj3.jpg"></center>'
			dynamic $dinrandswallow
			act 'Leave': gt 'gdkin'
			end
		end

		act 'Stoop':
		cls
		minut += 5
		horny += 10
		boy += 1
		$boy = $bname3
			if GorSlut = 0:
			resultrand = RAND(0,100)
			if resultrand >= 80:
			GorSlut = 1
			end
			end
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\boysex.jpg"></center>'
		'You bent down and framed mooning guy.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		act 'Leave': gt 'gdkin'
		end
	end
}


minut += 5
gs 'stat'
'<center><img src="images\etogame\dk_night.jpg"></center>'
'You went out with a guy from the club he led the club for you.'
if GorSlut = 0:
'The guy pulled out a package poltorashku beer, chips and a couple of cups. You have found a place in the bush, and settled on the fallen tree.'
	act 'Drink beer':
	cls
	alko += 1
	manna += 30
	fat += 5
	energy += 20
	minut += 10
	gs 'stat'
	'You will have fun chatting with a guy drinking beer from cups and seizing chips. The guy was hilarious and telling funny stories.'
		if alko >= 3:
		horny += 20
		'<<$bname>> you hugged and kissed. You embraced the thrill of a kiss. You felt his hands on his chest.'
			if horny < 75:
				act 'Whisper, "Do not"':
				cls
				minut += 5
				gs 'stat'
					if DPtipe = 2:
					'<center><img src="images\qwest\alter\Ev\grab.jpg"></center>'
					'The guy was drunk and not paying attention to you.'

					dynamic $din_gorodok_boy_bj

						act 'Be silent':
						cls
						minut += 5
						horny += 10
						boy += 1
						$boy = $bname3
							if GorSlut = 0:
							resultrand = RAND(0,100)
								if resultrand >= 80:
								GorSlut = 1
								end
							end
						gs 'stat'
						'<center><img src="images\picV\vag.jpg"></center>'
						'The guy threw you to the ground and began to undress.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						act 'Leave': gt 'gdkin'
						end
					else
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\tits.jpg"></center>'
					'Male head slightly weakens, but still does not let you.'
					if horny < 75:
					act 'Leave': gt 'gdkin'
					end

					'You are standing in an embrace with a guy and he gently pulls your chest and begins to lick and suck her nipples.'
					dynamic $din_gorodok_boy_bj
					end

					if dom > 0:
						act 'Jerk guy':
						cls
						minut += 5
						guy += 1
						hj += 1
						sub += 1
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
						'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
						act 'Leave': gt 'gdkin'
						end
					end
				end
			end

			act 'Be silent':
			cls
			minut += 5
			horny += 10
			guy += 1
			$boy = $bname3
				if GorSlut = 0:
				resultrand = RAND(0,100)
					if resultrand >= 80:
					GorSlut = 1
					end
				end
			gs 'stat'
			'<center><img src="images\picV\vag.jpg"></center>'
			'The guy threw you to the ground and began to undress.'
			dynamic $sexstart
			dynamic $sexstart2
			dynamic $sexcum
			act 'Leave': gt 'gdkin'
			end
		end
		if alko < 3:
			if DPtipe = 1:
			deystrand = rand(0,1)
				if deystrand = 0:
				'<<$bname>> said, "You´re a cool girl. Maybe we´ll meet again?"'
				act 'And refuse to leave': gt 'gdkin'
					act 'Tell him your phone':
					cls
					manna += 10
					numboyFrend += 1
					$nameBoyfrend[numboyFrend] = $bname
					$nameBoyfrendFull[numboyFrend] = $bnamefull
					dickBoyFrend[numboyFrend] = dick
					silavagBoyFrend[numboyFrend] = siladick
					otnBoyFrend[numboyFrend] = 50
					minut += 30
					gs 'stat'
					'You told the guy my phone and he recorded it.'
					act 'Leave': gt 'gdkin'
					end
				end
				if deystrand = 1:
				'<<$bname>> fits closer to you and starts kissing you.'
				if horny <= 25: act 'Leave': gt 'gdkin'
				dynamic $din_gorodok_boy_pristal
				end
			end
			if DPtipe = 2:
			horny += 5
			gs 'stat'
			'<<$bname>> suitable for you closer and starts kissing you.'
			if horny <= 25: act 'Leave': gt 'gdkin'

				act 'Kiss':
				cls
				horny += 5
				minut += 3
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
				'<<$bname>> passionately kisses your <<$liptalk3>> and you reciprocate the kiss. You feel like your hands Man trying to pull your chest.'
				if horny <= 50: act 'Leave': gt 'gdkin'
					act 'Let him':
					cls
					horny += 10
					minut += 3
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\tits.jpg"></center>'
					'<<$bname>> pulls your breasts <<tits>> the size of the outside and begins to knead your breasts and kiss them. Guy takes your hand and puts it on the groin, you feel that he´s got a hard cock.'
					if horny <= 75: act 'Leave': gt 'gdkin'
						if horny <= 90:
							act 'Resist':
							cls
							horny += 10
							minut += 3
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
							'You removed his hand from his pants and the guy stuck his hand in your pants, you felt his fingers caress your wet pussy.'
							if horny <= 90: act 'Remove his hands and walk away': gt 'gdkin'
								if horny > 90:
								cla
								horny = 0
								orgasm += 1
								gs 'stat'
								'Suddenly you feel like in the abdomen increases the pleasant warmth and you hit an orgasm. You bite my lip that would not yell at the sensation.'
								act 'Moan':
									cls
									horny += 5
									minut += 3
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\cock3.jpg"></center>'
									'You moan with pleasure and your legs buckled, you squatted in front of the guy. When eyes brightened you will see in your face member.'
										if sub > 0:
											act 'Suck':
											cls
											minut += 5
											horny += 10
											bj += 1
											guy += 1
											sub += 1
											gs 'stat'
											'<center><img src="images\qwest\alter\Ev\cocksuck.jpg"></center>'
											'You without even realizing suddenly kissed penis and realized that you do only when hard cock already filled your mouth and you are diligent it aspirated.'
												act 'Further':
												cls
												minut += 5
												horny += 10
												cumlip += 1
												cumface += 1
												cumfrot += 1
													if GorSlut < 2:
													resultrand = RAND(0,100)
														if resultrand >= 80:
														GorSlut = 2
														end
													end
												gs 'stat'
												'<center><img src="images\qwest\alter\Ev\cocksuck2.jpg"></center>'
												'Suddenly your mouth warm jet of sperm hit, you almost choked but continued to suck. Seed flowed on your lips on your cock and dripping clothes, finally became a member of the fall off in your mouth and the guy took it out and put it in his pants.'
													act 'Look at the Man':
													cls
													minut += 1
													gs 'stat'
													'<center><img src="images\qwest\alter\Ev\cocksuck3.jpg"></center>'
													'<<$bname>> still experience holding your head and you with a mouth full of sperm looked up into his face. The guy is quite bliss and looks at you. "Fucking suck!"'
													act 'Get up and leave': gt 'gdkin'
													end
												end
											end
										end
										if sub = 0 and dom = 0:
											act 'Sit':
										cls
										minut += 5
										guy += 1
										facial += 1
										sub += 1
										cumface += 1
										cumfrot += 1
										gs 'stat'
										'<center><img src="images\qwest\alter\Ev\facial.jpg"></center>'
										'You as if spellbound remained seated on the ground and the guy started to masturbate in front of your face member. Everything happened very quickly, you do not have time to understand anything and suddenly you face, a member of the hot liquid jet takes off and lands on the nose. You flinch and squeezes his eyes shut eyes, feeling as new streams of sperm fall on your face.'
										act 'Leave': gt 'gdkin'
										end
										end
										if dom > 0:
										act 'Jerk guy':
										cls
										minut += 5
										guy += 1
										hj += 1
										dom = 0
										gs 'stat'
										'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
										'You had the courage to stand up and took it hard and hot cock in her hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
										act 'Leave': gt 'gdkin'
										end
										end

									end
								end
							end
						end


						act 'Caress his cock through his pants':
						cls
						horny += 5
						minut += 3
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\cock.jpg"></center>'
						'You started stroking guy crotch, feeling the hardness of the penis.'
						if horny <= 90: act 'Leave': gt 'gdkin'
							act 'Going to the guy´s pants':
							cls
							horny += 10
							minut += 3
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\cock2.jpg"></center>'
							'You hand the guy stuck in his pants and felt his fingers and his hard hot cock.'
							if horny <= 90: act 'Leave': gt 'gdkin'
								if dom > 0:
									act 'Jerk guy':
									cls
									minut += 5
									guy += 1
									hj += 1
									sub += 1
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
									'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
									act 'Leave': gt 'gdkin'
									end
								end
							dynamic $din_gorodok_boy_bj
							end
						end
					end
				end
			end
		end
	end
end
$din_gorodok_boy_otkaz = {
	if dom >= GorSlut:
		act 'Leave':
		cls
		dom -= GorSlut
		minut += 5
		gs 'stat'
		'You refused and the guy went back to the club.'
		act 'Leave': gt 'gdkin'
		end
	end
}
$din_gorodok_boy_pristal = {
act 'Kiss':
cls
horny += 5
minut += 3
gs 'stat'
'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
'<<$bname>> passionately kisses your <<$liptalk3>> and you reciprocate the kiss. You feel like your hands Man trying to pull your chest.'
if horny <= 50: act 'Leave': gt 'gdkin'
	act 'Let him':
	cls
	horny += 10
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\tits.jpg"></center>'
	'<<$bname>> pulls your breasts <<tits>> size outside and begins to knead your breasts and kiss them. Guy takes your hand and puts it on the groin, you feel that he´s got a hard cock.'
	if horny <= 75: act 'Leave': gt 'gdkin'
		if horny <= 90:
			act 'Resist':
			cls
			horny += 10
			minut += 3
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\petting.jpg"></center>'
			'You removed his hand from his pants and the guy stuck his hand in your pants, you felt his fingers caress your wet pussy.'
			if horny <= 90: act 'Remove his hands and walk away': gt 'gdkin'
				if horny > 90:
				cla
				horny = 0
				orgasm += 1
				gs 'stat'
				'Suddenly you feel like in the abdomen increases the pleasant warmth and you hit an orgasm. You bite my lip that would not yell at the sensation.'
					act 'Moan':
					cls
					horny += 5
					minut += 3
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\cock3.jpg"></center>'
					'You moan with pleasure and your legs buckled, you squatted in front of the guy. When eyes brightened you will see in your face member.'
						if sub > 0:
							act 'Suck':
							cls
							minut += 5
							horny += 10
							bj += 1
							guy += 1
							sub += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\cocksuck.jpg"></center>'
							'You without even realizing suddenly kissed penis and realized that you do only when hard cock already filled your mouth and you are diligent it aspirated.'
								act 'Further':
								cls
								minut += 5
								horny += 10
								cumlip += 1
								cumface += 1
								cumfrot += 1
									if GorSlut < 2:
									resultrand = RAND(0,100)
										if resultrand >= 80:
										GorSlut = 2
										end
									end
								gs 'stat'
								'<center><img src="images\qwest\alter\Ev\cocksuck2.jpg"></center>'
								'Suddenly your mouth warm jet of sperm hit, you almost choked but continued to suck. Seed flowed on your lips on your cock and dripping clothes, finally became a member of the fall off in your mouth and the guy took it out and put it in his pants.'
									act 'Look at the Man':
									cls
									minut += 1
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\cocksuck3.jpg"></center>'
									'<<$bname>> still experience holding your head and you with a mouth full of sperm looked up into his face. Guy and quite blissfully happy looking at you. "Fucking suck!"'
									act 'Get up and leave': gt 'gdkin'
									end
								end
							end
						end
						if sub = 0 and dom = 0:
							act 'Sit':
							cls
							minut += 5
							guy += 1
							facial += 1
							sub += 1
							cumface += 1
							cumfrot += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\facial.jpg"></center>'
							'You as if spellbound remained seated on the ground and the guy started to masturbate in front of your face member. Everything happened very quickly, you do not have time to understand anything and suddenly you on the face of a member of hot liquid jet takes off and lands on the nose. You flinch and squeezes his eyes shut eyes, feeling like new streams of sperm fall on your face.'
							act 'Leave': gt 'gdkin'
							end
						end
						if dom > 0:
							act 'jerk guy':
							cls
							minut += 5
							guy += 1
							hj += 1
							dom = 0
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
							'You had the courage to stand up and took it hard and hot cock in her hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
							act 'Leave': gt 'gdkin'
							end
						end

					end
				end
			end
		end


		act 'Caress his cock through his pants':
		cls
		horny += 5
		minut += 3
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\cock.jpg"></center>'
		'You started stroking guy crotch, feeling the hardness of the penis.'
		if horny <= 90: act 'Leave': gt 'gdkin'
			act 'Going to the guy´s pants':
			cls
			horny += 10
			minut += 3
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\cock2.jpg"></center>'
			'You hand the guy stuck in his pants and felt his fingers and his hard hot cock.'
			if horny <= 90: act 'Leave': gt 'gdkin'
				if dom > 0:
					act 'jerk guy':
					cls
					minut += 5
					guy += 1
					hj += 1
					sub += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\hj.jpg"></center>'
					'You got him hard and hot cock out of his pants and took his hand. You started kissing a guy at the same time masturbate his penis. Finally the guy strangled groan and you´ll see how his cock off sperm.'
					act 'Leave': gt 'gdkin'
					end
				end
			dynamic $din_gorodok_boy_bj
			end
		end
	end
end

}
if GorSlut >= 1 and GorSlut <= 2:
gsboyrand = rand(0,10)
	if gsboyrand = 0:
		if GorSlut = 1:
		'<<$bname>> said, "Svetsik I heard that you all give." The guy got dick out of his pants.'
		dynamic $din_gorodok_boy_bj
		dynamic $din_gorodok_boy_otkaz
		end
		if GorSlut = 2:
		'<<$bname>> said, "Svetsik I heard that you take in your mouth." The guy got dick out of his pants.'
		dynamic $din_gorodok_boy_bj
		dynamic $din_gorodok_boy_otkaz
		end
	end
	if gsboyrand > 0:
	alko += 1
	minut += 15
	gs 'stat'
	'<<$bname>> beer and got you started drinking with him. When the beer was done with a guy came up to you and hug you.'
	dynamic $din_gorodok_boy_otkaz
	dynamic $din_gorodok_boy_pristal
	exit
	end
end
if GorSlut = 3 or GorSlut = 4:
'<<$bname>> said, "you´re Svetsik <<$gnikname>>. I want to have fun." The guy got dick out of his pants.'
dynamic $din_gorodok_boy_bj
dynamic $din_gorodok_boy_otkaz
end
if GorSlut = 5:
'<<$bname>> said, "you´re Svetsik <<$gnikname>>. I want to have fun." After that guy got dick out of his pants.'

	dynamic $din_gorodok_boy_bj
	dynamic $din_gorodok_boy_otkaz
end
if GorSlut = 6:
'<<$bname>> said, "you´re Svetsik <<$gnikname>>. I want a blow job. Here you 50 rubles," After this guy got dick out of his pants.'
	act 'Squat':
	cls
	minut += 5
	horny += 10
	bj += 1
	guy += 1
	sub += 1
	money += 50
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\boybj.jpg"></center>'
	'You squatted in front of the guy and began stroking his cock.'
		act 'Suck':
		cls
		minut += 5
		horny += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\boybj2.jpg"></center>'
		dynamic $dinrandbj
			act 'Further':
			cls
			minut += 5
			horny += 10
			cumface += 1
			cumlip += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\boybj3.jpg"></center>'
			dynamic $dinrandswallow
			act 'Leave': gt 'gdkin'
			end
		end
	end

	act 'Leave': gt 'gdkin'
end
if GorSlut >= 1:
	if dom >= 5:
		act 'Swear Man':
		cls
		sub += 5
		minut += 3
		GorSlut -= 1
		gs 'stat'
		'You denied the kid "You do ohereli? His wife will make such proposals. Freak." The guy was confused, "Well boys as they say ..." You killed him, "said Moscow chickens milked, but just being milked, do not say you´re more ears hang, you moron!"'
		act 'Leave': gt 'gdkin'
		end
	end
	if GorSlut < 6:
		if dom > 0:
			act 'And you´ve got the money that is?':
			cls
			sub += 1
			minut += 3
			GorSlut = 6
			money += 300
			gs 'stat'
			'You refused kid "And you have money that is?" The kid pulled out his 300 rubles. You took the money and put their own.'
			dynamic $din_gorodok_boy_bj
			end
		end
	end
end
!dynamic $dinrandswallow
--- EvBoyBuh ---------------------------------

# EvgopBuh
$din_gop_double_bj = {
	act 'Open mouth':
		cls
		minut += 5
		horny += 10
		bj += 2
		guy += 2
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\gop6.jpg"></center>'
		'You obediently opened his mouth and the guys immediately inserted you both cocks into her mouth, stretching it to the limit. You started to suck two hard and hot cock in turn.'
			act 'Further':
				cls
				minut += 5
				horny += 10
				cumlip += 2
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\gop7.jpg"></center>'
				'Suddenly one of the guys started to cum in your mouth, followed immediately began to finish second. One of the guys grabbed you a head without letting you remove the face. Nakonchal you guys and got a mouthful of its members out of your mouth. Leaving you sitting on a stump with a mouth full of sperm.'
				dynamic $din_gop_end
			end
		end
}


$din_gop_end = {
	act 'Further':
		cls
		minut += 5
		cumfrot += 1
		manna -= 30
		if GorSlut < 3: GorSlut = 3
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\gop8.jpg"></center>'
		'You sit on a stump occurred stunned and out of your mouth dripping thin trailing jet sperm. You sluggish notice that the sperm gets into your clothing. Men poured vodka into cups and drank again. One chuckled looking at you "Very best cocksucker you found. Not bad she patted his lips elde me." Second laughed, "Look vaflersha sits struhnyu relishes." The third said thoughtfully, "We have to give the lads announced, so as not to zashkvarilis vaflersha."'
		act 'Leave': gt 'gdk'
	end
}


$din_gop_end2 = {
	act 'Further':
		cls
		minut += 5
		cumfrot += 1
		manna -= 30
		if GorSlut < 4: GorSlut = 4
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\gop8.jpg"></center>'
		'Your feet are tired and podgibayutsya, you do not stand up and sit down on the ground, out of your mouth dripping thin trailing jet sperm. You sluggish notice that the sperm gets into your clothing. Men poured vodka into cups and drank again. One chuckled looking at you "Klasnaya pacifier you found. Not bad she patted his lips elde me." Second laughed, "Look, bitch still a can not come." The third said thoughtfully, "We have to give the lads announced, so as not to zashkvarilis slut."'
		act 'Leave': gt 'gdk'
	end
}


minut += 5
gs 'stat'
'<center><img src="images\etogame\dk_night.jpg"></center>'
if GorSlut < 3:
	'You went out with a guy from the club he led the club for you. There has flopped his two pals. On the ground, there was a bottle of vodka and plastic cups. The guy said "I <<$bname>> is <<$bname2>> and <<$bname3>>." You introduced "I <<$name>>." <<$bname2>> took a bottle and a plastic cup. He drunk, uncertain movements poured vodka into a glass, then handed the cup to you.'

	act 'Drink.':
		cls
		minut += 5
		alko += 2
		gs 'stat'
		'<center><img src="images\etogame\dk_night.jpg"></center>'
		'You drank vodka and you breath away this booze. <<$bname3>> pulled out his candy "On <<$name>>, a snack." You get stuck in the mouth candy trying to kill the disgusting taste of vodka.'

		if alko < 4:
			act 'Go back to the club':
				cls
				willpower += RAND(0,1)
				intel += RAND(0,1)
				gt 'gdkin'
			end
		end

		act 'Stay with the guys':
			cls
			minut += 5
			horny += 10
			gs 'stat'
			'<center><img src="images\etogame\dk_night.jpg"></center>'
			'You stayed with the guys. <<$bname>> come up to you and put his arm around your waist. "<<$name>>, you chuvikhi very best." His hands began to stroke your ass and squeeze her.'

			if dom >= 10:
				act 'Indignant "You ohuel what?"':
					cls
					minut += 5
					sub += 1
					gs 'stat'
					'You rebelled ryavknuv on GREYHOUND kid "ohuel You what?" <<$bname>> even jerked his hands away from you. You left him on the pitch, "So keep your hands to yourself!"'

					act 'Go back to the club':
						cls
						willpower += RAND(1,3)
						intel += RAND(1,3)
						gt 'gdkin'
					end
				end
			end

			act 'Whisper, "Do not"':
				cls
				minut += 5
				horny += 10
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\gop.jpg"></center>'
				'<<$bname>> put you on a stump next to the meadow where the boys drink. He unbuttoned his pants and pulled out his standing member. <<$bname>> said to you in a floor vote "Come on baby, do not be shy, look what a delicious caramel, you can lick."'

				if horny < 75:
					act 'Go back to the club':
						cls
						willpower += RAND(1,3)
						intel += RAND(1,3)
						gt 'gdkin'
					end
				end

				if dom >= 5:
					act 'Indignant "You ohuel what?"':
					cls
					minut += 5
					sub += 1
					gs 'stat'
					'You rebelled ryavknuv on GREYHOUND kid "ohuel You what?" <<$bname>> did not expect such a reaction from you and embarrassed. You got up from the stump and said, "Shove your stub back in panties patsanchik!"'

						act 'Go back to the club':
							cls
							willpower += RAND(1,3)
							intel += RAND(1,3)
							gt 'gdkin'
						end
					end
				end

				act 'Sitting on a tree stump':
					cls
					minut += 5
					horny += 10
					bj += 1
					guy += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\gop2.jpg"></center>'
					'You covered apatite and you were sitting on a stump looking at cock. <<$bname>> taking a member of the hand you held them to her lips. You have opened my mouth, that would be indignant and immediately his cock slapped his crimson head of your wet tongue. Another second and his cock was in your mouth.'

					act 'Suck':
						cls
						minut += 5
						horny += 10
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\gop3.jpg"></center>'
						'Without even realizing you started sucking hard cock obhvatyvyaya him with <<$liptalk2>>. You closed your eyes trying not to think about what you are doing. Hard and hot cock slid between your lips, filling your mouth to the throat.'
						act 'Further':
							cls
							minut += 5
							cumlip += 1
							water -= 10
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\gop4.jpg"></center>'
							'Suddenly you in the mouth of a member of the hot jet of sperm flew. Your mouth was filled with pungent, warm finish. <<$bname>> member took you out of his mouth and wiped it on your <<$liptalk2>>. Then he removed the cock in his pants. "Guys, can use vaflersha, I already othuesosil."'

							if dom > 0:
								act 'Indignant':
									cls
									minut += 5
									dom = 0
									sub += 1
									GorSlut = 2
									gs 'stat'
									'You angrily spat sperm feet kid. "You ohuel what?" The kid started ruffle "Shut vaflersha." But you got up from the stump and obmaterili boys.'

									act 'Go back to the club':
										cls
										willpower += RAND(0,1)
										intel += RAND(0,1)
										gt 'gdkin'
									end
								end
							end

							if horny <= 75:
								act 'Spit sperm':
									cls
									minut += 5
									gs 'stat'
									'<center><img src="images\qwest\alter\Ev\gop5.jpg"></center>'
									'You bent over and spat out semen at his feet. To you came <<$bname2>> and <<$bname3>>, they got out of his pants and framed their members for you to face.'
									dynamic $din_gop_double_bj
								end
							end

							act 'Swallow sperm':
								cls
								minut += 5
								swallow += 1
								water -= 10
								gs 'stat'
								'<center><img src="images\qwest\alter\Ev\gop5.jpg"></center>'
								'You swallow sperm, feeling her lousy taste in your mouth. To you came <<$bname2>> and <<$bname3>>, they got out of his pants and framed their members for you to face.'
								dynamic $din_gop_double_bj
							end
						end
					end
				end
			end

			act 'Be silent':
				cls
				minut += 5
				horny += 10
				gs 'stat'
				'<center><img src="images\etogame\dk_night.jpg"></center>'
				'<<$bname>> took to pull off your clothes, you drunkenly dangled in his hand and suddenly felt the breeze on my naked ass.'

				act 'Further':
					cls
					minut += 5
					horny += 10
					sex += 1
					$boy = $bname
					guy += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\gopd.jpg"></center>'
					'<<$bname>> bent you and you grabbed his hands for something that would not fall.'
					dynamic $sexstart
					dynamic $sexstart2
					dynamic $sexcum
					'Male member removed his pants and said, "Guys, you can use davalkoy."'
					act 'Further':
						cls
						minut += 5
						horny += 10
						sex += 1
						guy += 2
						bj += 1
						$boy = $bname3
						cumlip += 1
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\gopd2.jpg"></center>'
						'<<$bname2>> come up to you and you saw him naked dick, though you tried to do something, but he grabbed you by the hair and then in your mouth was his cock. <<$bname3>> podeshel back to you and you feel his hands on your hips.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						'You feel like your mouth starts to cum cock and <<$bname2>> even stronger holding your hair.'
						dynamic $din_gop_end2
					end
				end
			end
		end
	end
end


$din_gop_slut_triple_bj = {
	act 'Squat':
		cls
		minut += 5
		horny += 10
		bj += 3
		guy += 3
		sub += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\gopdbj.jpg"></center>'
		'You obediently squatted and the guys got their members. You cupped his dick two fingers and began to masturbate them. The third guy immediately slapped you on <<$liptalk2>> member. You unclenched lips and absorbed dick in your mouth hot and humid.'

		act 'Suck':
			cls
			minut += 5
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\gopdbj2.jpg"></center>'
			'You have become members take turns to suck and caress hands those dicks who were not in your hot mouth. Finally the guys are already ready to cum.'

			act 'Close your eyes':
				cls
				minut += 5
				horny += 10
				facial += 1
				cumface += 3
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\gopdbj3.jpg"></center>'
				'You closed your eyes and framed his face. Almost immediately you felt like hot jet of sperm fall on your face. Soon the boys run out completely covering your face with sperm.'
				act 'Leave': gt 'gdk'
			end
		end
	end
}


if GorSlut >= 3:
	'You went out with a guy from the club he led the club for you. There has flopped his two pals. On the ground, there was a bottle of vodka and plastic cups. The guy said "I <<$bname>> is <<$bname2>> and <<$bname3>>. Incidentally, I know that You are the light spot <<$gnikname>>. Shortly not pull the rubber, take on the canine."'


	dynamic $din_gop_slut_triple_bj

	if dom > 0:
		act 'Refuse':
			cls
			manna = 0
			health -= 10
			sub += 1
			gs 'stat'
			'You refused and the guy rassviripel. "What, are you a slut ohuel Yes I´m now eblische smash!" After these words, he shoots you in the stomach with his fist. You gasp in pain and doubled over. "What thing? Mind? Or you otpizdet and then shove a bottle in the ass?"'
			dynamic $din_gop_slut_triple_bj

			if dom >= 5:
				act 'Send it':
					cls
					manna = 0
					health -= 10
					sub += 1
					zub += 1
					GorSlut = 2
					gs 'stat'
					'You guys spit searing his feet Vzlyad "Fuck you dick on the boy." Immediately rang in my head and realized that you are lying on the ground. Very much a toothache, you spit on the ground and saw that you´re bleeding on the ground and lay your tooth that you just knocked out. The guy jumped in beshensve to you, but he never dared to "Go here for dick, slut."'
					act 'Leave': gt 'gdk'
				end
			end
		end
	end
end
--- EvgopBuh ---------------------------------

# EvOtelMan
$din_otel_man_end = {
act 'Brush up':
cls
minut += 15
gs 'stat'
'Have you started to brush up. <<$bname>> stretched and rolled over on the bed. "It was great Svetsik."'
if cumface > 0: cumface = 0 & 'You found napkins and wiped off the face of the sperm.'
if cumanus > 0: 'Have you tried to wipe the cum with his buttocks, but how could you not wiped out of your anus still leaking sperm.'
act 'Leave': gt 'vokzalG'
end
}
$din_otel_man_blow = {
act 'Squat':
cls
bj += 1
guy += 1
sub += 1
minut += 10
gs 'stat'
'<center><img src="images\qwest\alter\Ev\bj.jpg"></center>'
'You squatted in front of the man and took his cock hand. Slightly moving the skin on the penis you licked the head. Your nimble tongue began to caress hot and hard cock male. <<$bname>> said "<<$name>>, I will soon be over."'
	act 'Suck':
	cls
	cumlip += 1
	minut += 10
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\bj2.jpg"></center>'
	'You lips wrapped around his cock and started sucking carefully clasping his solid shaft <<$liptalk2>>. <<$bname>> groans and you feel like your mouth hits the jet of sperm.'
		act 'Sucking swallowing sperm':
		cls
		swallow += 1
		water -= 10
		minut += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\bj3.jpg"></center>'
		'You continued to suck cock and swallow cum sperm gets into your mouth. Semen was so much that you do not have time to swallow everything and it flows out of your mouth over the penis. Finally <<$bname>> ceases to finish and you get the dick out of your mouth smelling sperm. In the mouth, the taste of nasty cumshot obliznuvshis you realize that your <<$liptalk3>> wet with semen.'
		dynamic $din_otel_man_end
		end

		act 'Remove the mouth':
		cls
		cumface += 1
		facial += 1
		minut += 10
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\bj4.jpg"></center>'
		'You remove a member from his mouth and jet of sperm immediately slapped you in the face. You shut his eyes for fear that the sperm gets into your eyes and feel as another spurt of hot Cum landed on your face.'
		dynamic $din_otel_man_end
		end

	end

	act 'Substitute ass':
	cls
	minut += 30
	$boy = $bname
	cumanus += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\anal.jpg"></center>'
	dynamic $sexstart
	dynamic $analsex
	dynamic $din_otel_man_end
	end

	act 'Lie on your back.':
	cls
	minut += 30
	!sex += 1
	$boy = $bname
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\sex.jpg"></center>'
	'You lay on your back. <<$bname>> lay on top and spread your legs.'
	dynamic $sexstart
	dynamic $sexstart2
	dynamic $sexcum
	dynamic $din_otel_man_end
	end
end
}
$din_otel_man_beforesex = {
if horny < 75 and vagina = 0 and sex = 0 or dom > 0 and vagina = 0 and sex = 0:
	act 'I have a girl and a bank of virginity':
	cls
	minut += 5
	gs 'stat'
	tiprandeom = RAND(0,2)
		if tiprandeom < 2:
		'You have admitted that you are a man and a girl would want to keep their virginity. The man smiled and said that sex can be engaged and remaining girl. <<$bname>> took a cock from his pants.'
		dynamic $din_otel_man_blow
			if dom > 0:
				act 'Not even hope':
				cls
				sub += 1
				gs 'stat'
				'You laughed and refused to man. <<$bname>> scratching his head, "You want me to give you Piatihatki?"'
					act 'Come on':
					cls
					money += 500
					gs 'stat'
					'You reached your palm and the man gave you five hundred rubles.'
					dynamic $din_otel_man_blow
					end

					act 'Leave': gt 'vokzalG'
				end
			end
		end
		if tiprandeom = 2:
		'<center><img src="images\qwest\alter\Ev\otel.jpg"></center>'
		'<<$bname>> interested, "Really? Are you a virgin? Piatihatki I will give you, if you show me your pussy"'
		if dom > 0:
		act 'Not even hope':
				cls
				sub += 1
				gs 'stat'
				'You laughed and refused to man. <<$bname>> scratching his head, "Well then, can pososesh? Piatihatki I´ll give you."'
					act 'Come on':
					cls
					money += 500
					gs 'stat'
					'<center><img src="images\qwest\alter\Ev\otel.jpg"></center>'
					'You reached your palm and the man gave you five hundred rubles.'
					dynamic $din_otel_man_blow
					end

					act 'Leave': gt 'vokzalG'
				end
		end

			act 'Show':
			cls
			sub += 1
			money += 500
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\kiska.jpg"></center>'
			'You undressed and showed her pussy man. He considered with interest you. "Cool. Listen. I´ll give you five pieces if you let me be your first boyfriend."'
				act 'Agree.':
				cls
				minut += 30
				!sex += 1
				$boy = $bname
				money += 5000
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\sex.jpg"></center>'
				'You stretched palm and man shaking hands you counted five thousand. After that <<$bname>> threw you on the bed and spread your legs.'
				dynamic $sexstart
				dynamic $sexstart2
				dynamic $sexcum
				dynamic $din_otel_man_end
				end

				if dom > 0:
					act 'No, I´m going to stay a virgin until marriage':
					cls
					sub += 1
					gs 'stat'
					'You laughed and refused to man. <<$bname>> scratching his head, "Well then, can pososesh? Piatihatki I´ll give you."'
						act 'Come on':
						cls
						money += 500
						gs 'stat'
						'You reached your palm and the man gave you five hundred rubles.'
						dynamic $din_otel_man_blow
						end

						act 'Leave': gt 'vokzalG'
					end
				end

				act 'Leave': gt 'vokzalG'
			end
		end
	end
end
	if dom >= 5 and StoryLine > 0:
		act 'Breeding for loot.':
		cls
		sub += 5
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\otel.jpg"></center>'
		'You looked at the clock. "Well, we had a good time, but perhaps I´ll go. And then swear the nurse will not give money for lunch then." <<$bname>> You smiled, "I´ll give you three, it will suffice you for lunch?"'
			act 'Agree to have sex for money.':
			cls
			minut += 30
			!sex += 1
			guy += 1
			$boy = $bname
			money += 3000
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\sex.jpg"></center>'
			'You stretched palm and man shaking hands you counted five thousand. After that <<$bname>> threw you on the bed and spread your legs.'
			dynamic $sexstart
			dynamic $sexstart2
			dynamic $sexcum
			dynamic $din_otel_man_end
			end

			if dom > 0:
		act 'Oral sex is the maximum':
				cls
				sub += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\Ev\otel.jpg"></center>'
				'You laughed and denied the men said that blowjob is the maximum for which he can rely. <<$bname>> scratching his head, "No problem, I´ll give you Piatihatki."'
					act 'Come on':
					cls
					money += 500
					gs 'stat'
					'You reached your palm and the man gave you five hundred rubles.'
					dynamic $din_otel_man_blow
					end

					act 'Leave': gt 'vokzalG'
				end
		end
		end
	end


	act 'Next.':
	cls
	minut += 30
	!sex += 1
	guy += 1
	$boy = $bname
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\sex.jpg"></center>'
	'<<$bname>> threw you on the bed and spread your legs.'
	dynamic $sexstart
	dynamic $sexstart2
	dynamic $sexcum
	dynamic $din_otel_man_end
	end

}


minut += 15
gs 'stat'
if DPtipe = 1:
'The man came to standing next to a club and Takser spoken.a with him a couple of phrases turned to you. "Svetsik go." You with the man got into a taxi and drove to the hotel quickly. Man led you to your room.'
end
if DPtipe = 2:
'The man came to standing next to a club and Takser spoken.a with him a couple of phrases turned to you. "Svetsik go." You with the man got into a taxi and drove to the hotel quickly. Man led you to your room.'
end

if DPtipe = 1:
	act 'Walk into the room':
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\otel.jpg"></center>'
	'The room was quite decent. The man went to the fridge and began to spread on the table. Misted bottle of whiskey servilat banking caviar, fruit plate. Laying everything on the table, the man tripped you a chair on which you sat. He sat in the chair next to you and poured whiskey glasses. "Well, let´s drink to Svetsik acquaintance. I´m so glad to have met such a beautiful and wonderful girl like you."'
		act 'Have a drink':
		cls
		horny += 20
		alko += 2
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
		'You drank with the man and he got up from his chair walked up to you. His lips began to kiss your hands and began to pull off your clothes.'
		dynamic $din_otel_man_beforesex
		end
	end
end
if DPtipe = 2:
	act 'Walk into the room':
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
	'You entered the room and closed the door barely a man as he stared at you with a kiss, and his hands began to fumble through your body trying to steal your clothes.'

		dynamic $din_otel_man_beforesex
	end
end
--- EvOtelMan ---------------------------------

# gaptek
if $ARGS[0] = 'start':
	cla
	*clr

	gs'pharmacy'
	gs'stat'
	gs'time'

	set minut += 5

	'<center><B><font color = maroon >Drugstore</font></B></center>'
	*nl
	'<center><img src="images\etogame\aptek.jpg"></center>'
	*nl

	if StoryLine = 1:
		'Behind the counter, as always, sits aunt Luda. "Hi Svetulechka. How are you? How are you?"'
	else
		gt'pharmacy','start'
	end

	if motherQW >= 2:
		act 'Garden':
			cla
			gaogorodrand=rand(1,20)
			if motherQW=2 and (gaogorod+gaogorodrand<40):
			if gaptekfirst = 0:
				set gaptekfirst = 1
				minut += 5
				'You are considering showcases c drugs and are considering how to talk to my aunt. She notices your confusion and releasing the last buyer contacts you.'
				'- <<$name>>, what are you doing here trash? It should be what?'
				'- Yes, as if looking for a vegetable garden.'
				'- Niece, you´re not wrong store? We´ve got a pharmacy, you know - it is to laugh.'
				'- Know aunts. Mom asked you to buy everything for the garden.'
				'- Mom, so ... Horticultural ...'
				'She gravely examines you and brings the shop window with contraceptives.'
				'- Here we have all "for the garden." Choose.'
			else
				if gaprezikday!day or gatabletkiday!day:
					minut += rand(5,15)
					'You wait until the last buyer leaves from the pharmacy, and then speak to my aunt.'
					'- Aunts, my mom would have it ... for a vegetable garden ...'
					'- Yes, I have understood, you go here, trash - she grins.'
					'- Thank you, aunty.'
					'- But not for that, and tell Natasha that she has time to finish with gardens.'
				end
				if gaprezikday=day or gatabletkiday=day:
					minut += rand(5,15)
					'You have decided to wait until my aunt is free, but every minute shoppers at the pharmacy became more and more. You just wasted your time.'
				end
			end
		end

		if motherQW=2 and (gaogorod+gaogorodrand>=40): gt'motherQW','motherQW_3'
		if motherQW>=3 and galubri=0:
			if gaprezikday!day or gatabletkiday!day:
				minut+=rand(5,15)
				oluuosegunrand=rand(1,10)
				if oluuosegunrand=10 and oluuosegunday!day: gt'motherQW','olu'
				if oluuosegunrand<10 or oluuosegunday=day:'You waited in line and approached the counter, nodding to the desired display case.'
			end
			if gaprezikday=day and gatabletkiday=day:
				minut+=rand(5,15)
				'You waited in line and approached the counter, nodding to the desired display case. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
				end
			end
			if motherQW>=3 and galubri=1:
				if gaprezikday!day or gatabletkiday!day or galubriday!day:
				minut+=rand(5,15)
				oluuosegunrand=rand(1,10)
				if oluuosegunrand=10 and oluuosegunday!day: gt'motherQW','olu'
				if oluuosegunrand<10 or oluuosegunday=day:'You waited in line and approached the counter.'
			end
			if gaprezikday=day and gatabletkiday=day and galubriday=day:
				minut+=rand(5,15)
				'You waited in line and approached the counter. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
			end
		end

		if money>=100 and gaprezikday!day:
			act 'Buy condoms 100 rubles':
				portion = input ("How many packages you want to buy?")
				if portion>2 and motherQW<3:portion=2&'"Then 2 packages until I have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
				if portion>5 and motherQW>=3:portion=5&'"<<$name>>, rubber goods factory does not have time to deliver products."'
				if portion*100 > money: 'You do not have enough money.'
				if portion*100 <= money:
					set prezik = prezik + portion*5
					set money = money - portion * 100
					'You bought condoms and paid the money to the cashier.'
					gaprezikday=day
					delact 'Buy condoms 100 rubles'
					if motherQW < 3:
						gaogorod = gaogorod + portion
					end
				end
			end
		end

		if money>=500 and gatabletkiday!day:
			act 'Buy birth control pills 500 rubles':
				portion = input ("How many packages you want to buy?")
				if portion > 1 and motherQW < 3: portion = 1 & '"First package I still have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
				if portion * 500 > money: 'You do not have enough money.'
				if portion * 500 <= money:
					set tabletki += portion * 28
					set money -= portion * 500
					'You bought the pills and paid the money to the cashier.'
					gatabletkiday=day
					delact 'Buy birth control pills 500 rubles'
					if motherQW < 3:
						gaogorod = gaogorod + portion
					end
				end
			end
		end

		if money>=500 and klisma=0:
			act 'Buy enema 500 rubles':
				set klisma = 1
				set money -= 500
				'You bought an enema and paid the money to the cashier.'
				delact 'Buy enema 500 rubles'
			end
		end

		if galubri=1 and money>=300 and galubriday!day:
			act 'Buy lubricant 300 rubles':
				portion = input ("How many tubes you want to buy?")
				if portion>2:portion=2&'"<<$name>>, can sell only 2 pieces, no longer brought, I am sorry."'
				if portion*300 > money:'You do not have enough money.'
				if portion*300 <= money:
					set lubri = lubri + portion*5
					set money = money - portion*300
					'You bought <<portion>> Tub. lubricant and get paid aunt.'
					galubriday=day
					delact'Buy lubricant 300 rubles'
					end
				end
			end
			act 'Move away from the counter': gt 'gaptek','start'
		end
	end

	dynamic $regular_items

	if hour>20:
		cla
		*clr
		'<center><B><font color=maroon>Drugstore</font></B></center>'
		'<center><img src="images\etogame\aptek.jpg" ></center>'
		'Pharmacy is closed'
	end

	act 'Quit': gt $loc
end
--- gaptek ---------------------------------

# gdk
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
gs 'time'
'<center><B><font color = maroon>House of Culture</font></B></center>'
	if hour >= 9 and hour < 20:
	'<center><img src="images\etogame\dk.jpg"></center>'
	'In the evenings, from 20.00 to 23.00 dances. Entrance 25 rubles.'
	end
	if hour >= 20 and hour <= 23:
	'<center><img src="images\etogame\dk_night.jpg"></center>'
	'At the entrance to the recreation center full of young people, the guys are just standing and smoking, joking and someone looking out for. Girls in groups of 2-3 people, discussing something, someone just thumps in the bushes.'
	if money >= 25: act 'Sign in here': money -= 25 & minut += 15 & gt 'gdkin'
	end
act 'Exit': gt 'gorodok'

	if hour >= 16 and hour <= 20:
	'Now the house of culture sports sections.'
	act 'Go to section': gt 'gdksport'
	end
	if hour >= 8 and hour <= 18:
	'Now the house of culture rabotet library.'
	act 'Go to the library': gt 'gdkbibl'
	end
	if hour < 9: '<center><img src="images\etogame\dk_night.jpg"></center>'



if week < 6:
	if hour >= 16 and hour < 18:
	'Your sister <a href="exec:SiSgdk = 1 & GT ''sister''">Anne</a> sitting in the company of beautiful girls and guys drinking beer.'
	end
end
if week >= 6:
	if hour >= 11 and hour < 18:
	'Your sister <a href="exec:SiSgdk = 1 & GT ''sister''">Anne</a> sitting in the company of beautiful girls and guys drinking beer.'
	end
end
--- gdk ---------------------------------

# gdkbibl
$metka = $ARGS[0]
$loc = $CURLOC
frost = 0
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color = maroon>House of Culture</font></B></center>'
'<center><img src="images\qwest\alter\gdkbibl.jpg"></center>'
'A small library with lots of interesting books.'

act 'Exit': gt 'gdk'

if hour >= 8 and hour <= 18:
	act 'Read science book (1:00)':
	cls
	minut += 60
	if intel >= 50: intel += RAND(0,1)
	if intel < 50 and intel >= 25: intel += RAND(1,2)
	if intel < 25: intel += RAND(1,3)
	gs 'stat'
	'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
	act 'Put the book': gt $curloc
	end

	act 'Read entertaining book (1:00)':
	cls
	minut += 60
	manna += 100
	willpower += 100
	gs 'stat'
	'You are in for an hour reading a book about the adventures.'
	act 'Put the book': gt $curloc
	end

	act 'Read the collected works of Leo Tolstoy (1:00)':
	cls
	minut += 60
	if will >= 50: will += RAND(0,1)
	if will < 50 and will >= 25: will += RAND(1,2)
	if will < 25: will += RAND(1,3)
	gs 'stat'
	'You are in for an hour reading a book. Tolstoy classic course, no one denies, but he wrote tyagomotinu rare.'
	act 'Put the book': gt $curloc
	end


else
'Library closes.'
end
--- gdkbibl ---------------------------------

# gdkin
$din_kotov_love = {
if kotovLoveQW > 0:
cls
gs 'stat'
'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="images\qwest\alter\npc9.jpg"></center>'
'To you and the guy fits Witek. "Che garbage? Who´s that bloke?" Witek takes for male breast and angrily said, "Well, ka sebal horrified by my heifer, and now the mug smashed into smithereens. Understood?"'
	if DPgrup = 1:
	fightboyrand = RAND(0,10)
		if fightboyran <= 5:
		'Frightened man began to speak. "Come on you, I did not know. Already leaving." Witek pushed Man "Get out of here until I´m good."'
		end
		if fightboyran > 5 and fightboyran < 10:
		'The guy pushes Victor "Get your hands off, deer!" Witek suddenly gets very fast and powerful kick.'
		'Man falls from hitting the dance floor. Witek approaches him and grabbing breast lifts his feet, and then shoves the boy to the wall. "Well, Cho motherfucker? Still need? Or is it okay?" Man holding a broken person mutters "Everything, everything, I got it!"'
		end
		if fightboyran >= 10:
		'The guy has Vit''ka silence in the face with his fist. Witek recoils from the guy and then gets fast and powerful kick. Fight begins, hitting fly from both sides, suddenly a guy misses a very powerful supply by Vic and flying away to the wall falls to the floor. Witek runs up to him and thrusts into enemy lying a couple of powerful blows. The guy is no longer resisting, apparently he lost consciousness.'
		end
	end
	if DPgrup = 2:
	'Rams kid starts with Vic "Hey, who are you in life?" Witek markedly sviripeet and to help him fit drugany. For the kid in turn, also pulled the boys. Nachinaetsya disassembly. After some time, both groups disagree peacefully.'
	end
	if DPgrup = 3:
	'Man throws up his hands "Sorry young man. Did not know." Witek repels man "Topal city bloke here until I´m good."'
	end

		act 'Go to Vic': numnpc = 9 & gt 'Snpc'
exit
end
}


$din_reakt_dance = {
if alko > 0:
horny += 10
manna += 5
'Do you feel that the actions of Man excite you.'
else
if horny > 0: horny -= 5
manna -= 5
'You feel disgusted by these actions Man.'
end
gs 'stat'
}
$din_reverse_reakt_dance = {
if alko <= 0:
manna += 20
horny += 1
'You are fun and exciting.'
elseif alko > 0:
if horny > 0: horny -= 5
manna -= 5
'You boring and uninteresting.'
end
gs 'stat'
}

$din_dance_vrp = {
minut += 5
dance += 1
gs 'stat'
'You accepted the offer and the guy took you by the hand brought you to the dance floor where you started dancing together.'
	if DPgrup = 1:
		if DPtipe = 1:
		'Guy dancing with you holding your waist with his hands.'
		dynamic $din_reverse_reakt_dance

		end
		if DPtipe = 2:

		'Drunk guy pushes you to indulge. You feel like your soft breasts literally flattened breasts of Man.'
		dynamic $din_reakt_dance

		end
	end
	if DPgrup = 2:
		if DPtipe = 1:

		'The guy is pretty enough to unleash your waist and his hands slide your hips.'
		dynamic $din_reakt_dance

		end
		if DPtipe = 2:
		'Pyany guy grabs your ass and squeezes her much, his head tilted to your face and it bites into your <<$liptalk3>> kiss.'
		dynamic $din_reakt_dance

		end
	end
	if DPgrup = 3:
		if DPtipe = 1:
		'Man very confident and elegantly leads you to dance, hold your waist with his strong hands.'
		dynamic $din_reverse_reakt_dance

		end
		if DPtipe = 2:
		'Tipsy man despite his advanced views hugs your waist and his hands down to you on the ass.'
		dynamic $din_reakt_dance

		end
	end

	dynamic $din_vibor_tipe_dance

	act 'Stop dancing':
	cls
	gt $curloc
	end
}
$din_dance_otkaz = {
if alko <= 2 and horny <= 75:
	act 'Refuse':
	cls
	willpower += RAND(0,1)
	gt 'gdkin'
	end
end

}

$din_vibor_tipe_dance = {
	!{
	if dance >= 50 and alko > 0 and horny >= 50:
		act 'Sexy dance':
		cls
		dance += 1
		gs 'stat'

		gt $curloc
		end
	end
	}

	act 'Further':
	cls
	gs 'stat'
	'<center><img src="images\etogame\club_dance.jpg"></center>'
		if DPgrup = 1:
			if DPtipe = 1:
			'The guy told you in the dance "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The song ends and the guy offers to sit with him and chat.'

			end
			if DPtipe = 2:
			'The guy told you in the dance "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." All dancing drunk guy crushed your body and now his face flushed with excitement. He offers to leave the club on the street, get some fresh air, socialize.'

			end
			act 'Go with a guy': gt 'EvBoyBuh'
		end
		if DPgrup = 2:
			if DPtipe = 1:
			'The entire dance guy grabs your ass and he is clearly excited when he pressed against you, you feel something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			act 'Go thump': gt 'EvgopBuh'
			end
			if DPtipe = 2:
			'The entire dance guy grabs your ass, breasts and kissed you, he clearly excited when he pressed against you, you feel something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			act 'Go thump': gt 'EvgopBuh'
			end
		end
		if DPgrup = 3:
			if DPtipe = 1:
			'All male dance was confident and elegant, finally the song was over and the man offers to go out for some fresh air and talk.'
				act 'Go with a man':
				cls
				gs 'stat'
				'<center><img src="images\etogame\dk_night.jpg"></center>'
				'You went out with a man. He walked up to you and bit his arm around her waist. "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The man continued, "<<$name>>, I´m in your town on a business trip. Lives in the hotel from the city itself. Virtually nothing in your town do not know. Come to my hotel. Take whiskey, balls, sit down and have a chat."'
				act 'Go to the hotel': gt 'EvOtelMan'
				dynamic $din_dance_otkaz
				end
			end
			if DPtipe = 2:
			'The entire dance tipsy man molested you when the dance ended and he whispered in your ear. "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The man continued, "<<$name>>, I´m not a local, I live in a hotel, let´s now take a taxi and go to me."'
			act 'Go to the hotel': gt 'EvOtelMan'
			end
		end
	gs 'stat'
		dynamic $din_dance_otkaz

		dynamic $din_kotov_love
	end



}


$din_otbor_dance_pertner = {
!создание партнера для танца
gs 'BnameGen'
DaPaTipeRand = RAND(0,100)
if DaPaTipeRand < 70:
!обыкновенный местный парень
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 70:
	DPtipe = 1
	DPgrup = 1
	$din_disc_dance = 'It suits you the guy in jeans and a t-shirt, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing guy in jeans and a T-shirt.'
	end
	if DrunkDPTrand >= 70:
	DPtipe = 2
	DPgrup = 1
	$din_disc_dance = 'It suits you drunk guy in jeans and a t-shirt, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing drunk guy in jeans and a T-shirt.'
	end
end
if DaPaTipeRand >= 70 and DaPaTipeRand < 90:
!местный гопарь
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 50:
	DPtipe = 1
	DPgrup = 2
	$din_disc_dance = 'It suits you guy dressed in sweatpants and a sweatshirt and the same offers to dance.'
	$din_disc_dance2 = 'Next to you dancing guy in sweatpants and sweatshirts.'
	end
	if DrunkDPTrand >= 50:
	DPtipe = 2
	DPgrup = 2
	$din_disc_dance = 'It suits you drunk guy dressed in sweatpants and sweatshirts same and takes you arms around his waist offering dance.'
	$din_disc_dance2 = 'Next to you dancing drunk guy in sweatpants and sweatshirts.'
	end
end
if DaPaTipeRand >= 90:
!командировочный
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 90:
	DPtipe = 1
	DPgrup = 3
	$din_disc_dance = 'To you fit man in a decent jacket, trousers with arrows, expensive shoes, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing man in a decent jacket, trousers with arrows, expensive shoes.'
	end
	if DrunkDPTrand >= 90:
	DPtipe = 2
	DPgrup = 3
	$din_disc_dance = 'It suits you drunk man in a decent jacket, trousers with arrows, expensive shoes, and offers dance.'
	$din_disc_dance2 = 'Near you drunk man dancing in a decent jacket, trousers with arrows, expensive shoes.'
	end
end
}
$din_too_drunk_dance = {
tddrand = RAND(1,100)

if StoryLine = 1 and tddrand <= 80:
	cls
	gs 'stat'
	'It suits you Katya Meynold "<<$name>>, so that you get drunk? Let´s go home, I´ll take you."'
	act 'Go with Kate':
	cls
	minut += 15
	grupNPC[14] = 100
	if meynoldQW = 0: meynoldQW = 1
	gs 'stat'
	'<center><img src="images\etogame\club_dance.jpg"></center>'
	'Katya took you to your home keeping the arms.'
	act 'Go home': gt 'korrPar'
end

	if KatjaDom < dom:
		act 'Refuse': gt 'gdkin'
	end
end

if StoryLine = 1 and tddrand > 80:
	cls
	'To suit you and offer a couple of guys to dance with them. You notice Katya who fearfully shouts something and trying to squeeze you. It turns out she´s bad, and alcohol interferes you to hear and understand it. You dismiss from a friend with a drunken smile on his face agree to the offer guys.'
	act 'Dance with them': gt 'gevent','6'
end

if StoryLine = 0:
	cls
	'To suit you and offer a couple of guys to dance with them. C drunken smile on his face, you agree to the offer guys.'
	act 'Dance with them': gt 'gevent','6'

end
}

$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color = maroon>Disco</font></B></center>'
'<center><img src="images\etogame\club_yaho.jpg"></center>'
	if hour >= 20 and hour <= 23:
	if StoryLine = 1 and BeInSchool > 0: 'The club and you see a few <a href="exec: GT ''SgrupDisco''">of people you know</a>.'

	if soniaslut < 5: soniaslut += 1
	if grupTipe[25] = 0 and StoryLine = 1 and BeInSchool > 0 and soniaslut >= 5:
	'You notice the disco Sonia Ivanko of your class. She is talking about something with Victor Kotov.'
	act 'View Sonya': gt 'soniaDisco'
	exit
	end
		act 'Dance one':
		cls
		'<center><img src="images\etogame\club_dance.jpg"></center>'
		minut += 5
		!fat -= 1
		dance += 1
		manna += 10
		willpower += 10
		frost = 0
		gs 'stat'
			if cumface > 0 or cumfrot > 0:
			if GorSlut < 2: GorSlut = 2
			manna -= 100
			'It suits you and the guy starts to stick, suddenly he sees you cum. The guy jumps on you "thanked, vaflersha. Lads estimate, this chick all in Concha peremazanna." To you guys still see fit. "Yeah sure. Hey nipple unsuccessfully vysmarkalas what?" You cheeks blush with shame and you´re heading for the exit.'
			act 'Leave': gt 'gdk'
			exit
			end
			if alko >= 4:
			'You´re drunk in the trash and try to dance, but the floor out from under my feet and you dance instead of just drunkenly Mota regularly bumping into other people.'

			dynamic $din_too_drunk_dance
			exit

			elseif alko < 4 and alko > 0:
			'You´re drunk and fun skip on the dance floor without paying attention to others, and even the music.'
			else
			'The music is quite old, but catchy. And you´ll have fun circling dance, paying no attention to anyone.'
			end

			if alko < 4:
			verprigrand = RAND(0,100)

				if verprigrand <= dance:
				dynamic $din_otbor_dance_pertner

				'<<$din_disc_dance2>>'
				gs 'stat'
					act 'Dance with a guy':
					cls
					'<center><img src="images\etogame\club_dance.jpg"></center>'
					dynamic $din_dance_vrp
					end

					act 'Move away':
					cls
					gt $curloc
					end
				exit
				end
			end

		gs 'stat'
		act 'Further': gt 'gdkin'
		end

		act 'Standing at the wall':
		cls
		'<center><img src="images\etogame\club_yaho.jpg"></center>'
		minut += 5
		!fat -= 1
		manna -= 5
		frost = 0
		gs 'stat'
			if cumface > 0 or cumfrot > 0:
			if GorSlut < 2: GorSlut = 2
			manna -= 100
			'It suits you and the guy starts to stick, suddenly he sees you cum. The guy jumps on you "thanked, vaflersha. Lads estimate, this chick all in Concha peremazanna." To you guys still see fit. "Yeah sure. Hey nipple unsuccessfully vysmarkalas what?" You cheeks blush with shame and you´re heading for the exit.'
			act 'Leave': gt 'gdk'
			exit
			end
			if alko >= 4:
			'You´re drunk in the trash, and standing at the wall hard for her to restrain from the fact that the floor floats you from under their feet.'
			dynamic $din_too_drunk_dance
			exit

			elseif alko < 4 and alko > 0:
			'You´re drunk, and standing at the wall watching the dancing.'
			else
			'You are standing at a modest stenochki watching dancing.'
			end

			if alko < 4:
			verodance = 0
				if hapri = 1: verodance += 1
				if glamur = 1: verodance += 2
				if ski = 1: verodance += 1
				if mop = 2: verodance += 1
				if mop = 3: verodance += 2
				if mop = 4: verodance += 3
				verodance += alko
				verodance += 5

				verprigrand = RAND(0,20)

				if verprigrand <= verodance:
				dynamic $din_otbor_dance_pertner

				'<<$din_disc_dance>>'
				gs 'stat'
					act 'Dance':
					cls
					gs 'stat'
					'<center><img src="images\etogame\club_dance.jpg"></center>'
					dynamic $din_dance_vrp
					end

					act 'Refuse':
					cls
					gt $curloc
					end
				exit
				end
			end
		gs 'stat'
		act 'Further': gt 'gdkin'
		end
	end
	if hour < 20:
	'Club closes. The lights go on, the music fades and all begin to diverge.'
	end

act 'Go outside': gt 'gdk'
--- gdkin ---------------------------------

# gdksport
$din_go_to_home_dance = {
	act 'Drive back':
	cls
	minut += 15
	gs 'stat'
	'You called a taxi and you brought back to town.'
	if cumface > 0: cumface = 0 & 'Along the way you wiped the sperm from the face wipes.'
	act 'Leave': gt 'gorodok'
	end

}

$din_beg_gor_sec = {
cls
gs 'stat'
'Aboniment section running costs 100 rubles for 30 days.'
	if money >= 100 and gsAboBeg <= 0:
		act 'Buy a subscription to the running section 100 rubles':
		cls
		money -= 100
		gsAboBeg += 30
		gs 'stat'
		'You bought a ticket for 30 visits section running.'
		act 'Exit': gt 'gdksport'
		end
	end
	act 'Exit': gt 'gdksport'
}
$din_dance_gor_sec = {
cls
gs 'stat'
'Aboniment section running costs 100 rubles for 30 days.'
	if money >= 100 and gsAboDance <= 0:
		act 'Buy a ticket to the dance 100 rubles':
		cls
		money -= 100
		gsAboDance += 30
		gs 'stat'
		'You bought a ticket for 30 visits dance section.'
		act 'Exit': gt 'gdksport'
		end
	end
	act 'Exit': gt 'gdksport'
}
$din_voll_gor_sec = {
cls
gs 'stat'
'Aboniment section volleyball costs 300 rubles for 30 days.'
	if money >= 300 and gsAboVolley <= 0:
		act 'Buy a subscription for 300 rubles volleyball':
		cls
		money -= 300
		gsAboVolley += 30
		gs 'stat'
		'You bought a ticket for 30 visits section volleyball.'
		act 'Exit': gt 'gdksport'
		end
	end
	act 'Exit': gt 'gdksport'

}
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color = maroon>House of Culture</font></B></center>'
'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
'The house work culture section <a href="exec:dynamic $din_beg_gor_sec">Racing</a>, <a href="exec:dynamic $din_dance_gor_sec">Dance</a> and <a href="exec:dynamic $din_voll_gor_sec">Volleyball</a>. Subscribe to 30 visits costs 100 rubles.'

if kotovLoveQW > 0 and hour = 16:
'Do you see how the club is included <a href="exec:minut += 3 & GT ''kotovEv''">Vitek Kotov</a> with a large sports bag'
end
if grupNPC[3] >= 80 and hour = 17 and ivansportday ! day:
'Do you see how the club included <a href="exec:minut += 3 & GT ''IvanEv''">Ivan Prokhorov</a> with a large sports bag'
end
if grupNPC[5] >= 80 and fedorKozlovQW = 0 and GorSlut = 0 and UNSTARTER = 1:
!ивент не должен стартовать так как не закончен
cls
fedorKozlovQW = 1
gs 'stat'
numnpc = 5
'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
'The club you unexpectedly met Fedor Kozlov in your class. He smiled affably you "Hello <<$name>>. Hmm ... Here is the deal ... I have an extra ticket to the movies. Let´s go together."'
	act 'Refuse':
	cls
	grupNPC[5] = 40
	gs 'stat'
	'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
	'You refused to Fedor referring to employment. Fedor frowned. "Okay. Whereas some other time."'
	act 'Leave': gt 'gdksport'
	end

	act 'Agree':
	cls
	fedorKozlovQW = 10
	grupNPC[5] = 100
	minut += 15
	gs 'stat'
	'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
	'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
	'You agreed and delighted Fedor took you to a movie theater located in the park.'
		act 'Watch a movie':
		cls
		minut += 100
		manna += 100
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
		'Fedor gave tickets at the entrance and you went into the hall. Soon the lights went out and started the movie. Fedor sat motionless and only occasionally glancing at you. Movie was quite interesting and you watched it with pleasure. When the movie ended, the hall lights were turned on and Fedor became accompany you. "<<$name>>. I like you. Maybe we could meet?"'
			act 'Refuse':
			cls
			grupNPC[5] = 40
			fedorKozlovQW = 2
			minut += 15
			gs 'stat'
			'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
			'You refused to meet with him to Fedor and was invited to stay friends. Fedor visibly upset and silently carried you home.'
			act 'Leave': gt 'gorodok'
			end

			act 'Agree':
			cls
			minut += 15
			gs 'stat'
			'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
			'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
			'You have agreed to meet with Fedor. Fedor was visibly delighted and escort you to the house on the way you viewed fun discussing movies.'
			act 'Leave': gt 'gorodok'
			end
		end
	end
exit
end

	act 'Exit': gt 'gdk'

	if albinaQWdance > 0 or gsAboDance > 0 or gsAboBeg > 0 or gsAboVolley > 0:
	act 'Change clothes in the locker room': gt 'loker','start'
		if sweat >= 0:
			act 'Wash in the shower':
			cls
			dynamic $showerdin
			minut += 15
			set horny += 1
			set hapri = 1
			set mop = 1
			if sweat > -3: set sweat = -3
			if frost > 0: frost = 0
			gs 'stat'
			'<center><img src="images\pics\dush.jpg"></center>'
			if kotovVSprohorov = 1:
			kotovVSprohorov = 2
			'You entered the women´s shower and turning the water began to lather your body washcloth. Suddenly, the door creaked and you remember that you forgot to close it. You looked back and saw that standing in the doorway Ivan Prokhorov and treat you. "Hi Svetsik. Can I join? And then the men´s shower place." Ivan smiled after these words.'
				act 'expel Ivan':
				cls
				IvanShowerQW = 1
				gs 'stat'
				'<center><img src="images\pics\dush.jpg"></center>'
				'You covered the chest hand and the other hand launched a washcloth in Ivan. He easily dodged the flying sponges and laughter came out of the shower. You locked the door and quickly domylis shower.'
				act 'Get out of the shower': gt $locM, $metkaM
				end

				act 'Uh, what?':
				cls
				gs 'stat'
				'<center><img src="images\pics\dush.jpg"></center>'
				'Were you surprised like, and your insecurities Ivan regarded as consent. He went into the shower and closed the door behind him.'
				act 'Escape from the shower': IvanShowerQW = 1 & gt $locM, $metkaM

					act 'bathe together':
					cls
					minut += 5
					horny += 10
					gs 'stat'
					'<center><img src="images\pics\dush.jpg"></center>'
					'Ivan took off his boxer shorts and went under a jet shower. His muscular body was very close to yours. You tried not to look at him but his eyes involuntarily dropped to his groin where hung thick cock. Ivan winked "Want to soap?"'
						act 'lather Ivan':
						cls
						minut += 5
						horny += 20
						gs 'stat'
						'<center><img src="images\qwest\alter\ev\shower.jpg"></center>'
						'You took a washcloth and began to lather body of Ivan. His cock began to get up and touched your thigh. Ivan began to hug you and caress your body with your hands.'
						act 'give blowjob':
							cls
							minut += 5
							horny += 20
							bj += 1
							if npcSex[3] = 0: npcSex[3] = 1 & guy += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\ev\shover.jpg"></center>'
							'You slowly sank to his knees in front of Ivan and his cock was in front of your face. Ivan spent impatiently you head lips mouth open and you let his cock. Your lips tightly wraps solid rod Ivan and you sucked in the shower under the streams of water. Suddenly Ivan took a member of your mouth and taking you by the hand raised to his feet, he dug his lips to your breast and began to suck. You swept bliss. Ivan turned your back to him and pushed you back.'
								act 'stand cancer':
								cls
								IvanShowerQW = 10
								minut += 5
								horny += 20
								$boy = 'Ivan'
								dick = 17
								gs 'stat'
								'<center><img src="images\qwest\alter\ev\shover2.jpg"></center>'
								'You bent over and felt the hand of Ivan stroking your ass and anus.'
								lubonus = 10
								dynamic $analsex
								'Ivan pulls a member of your buttocks and you feel like you are on the back and buttocks land warm trickle of sperm.'
								act 'Get out of the shower': gt $locM, $metkaM
								end
							end
						end
					end
				end
			exit
			end
			'You entered the women´s shower and began soaping his body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean. After showering you comb your hair and dressed.'
			act 'Get out of the shower': gt $locM, $metkaM
			end
		end
	end

	if hour >= 16 and hour <= 20:

	if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0:
		if sport > 0:
			act 'Train with Zvezdushkami':
			cls
			set minut += 120
			set fat -= 5
			agil+= RAND(1,3)
			set manna -= 5
			set sweat += 3
			dancePRO += RAND(1,3)
			gs 'stat'
			'<center><img src="images\etogame\fit1.jpg"></center>'
				if dancePRO < 20:
				sub += 1
				'You train together with sex of "Zvezdushek", you get bad and Albina constantly yelling at you and calling them bowlegged kolkhoz.'
				end
				if dancePRO >= 20 and dancePRO < 40:
				sub += 1
				'You train together with sex of "Zvezdushek" you sometimes get something, but most movements by Albina constantly yelling at you and calling them bowlegged kolkhoz.'
				end
				if dancePRO >= 40 and dancePRO < 60:
				'You train together with sex of "Zvezdushek" you dance with sex getting in the general rhythm, but not happy Albina "<<$name>>, very sluggish, more life."'
				end
				if dancePRO >= 60 and dancePRO < 80:
				'You train together with sex of "Zvezdushek" you normally get all but Albina regularly you niggles "<<$name>>, you are not at the funeral, raise your head and smile!"'
				end
				if dancePRO >= 80:
				'You dance beautifully and Albina you start to put an example to other girl.'
				stardance += 1
				if stardance < 10:
				if otkazDanceWhore > 0 and AlbinaLast > 0:
				AlbinaBlokDance = 1
				'After training Albina withdraws you aside and starts berating. "You roundnose Kolhoz. Because of you I am losing customers. So fuck off, you are no longer uchavstvuesh in the team."'
				end
				if otkazDanceWhore > 0 and AlbinaLast = 0:
				AlbinaLast = 1
				otkazDanceWhore = 0
				if AlbFather = 0: AlbFather = 1
				'After training Albina withdraws you aside and starts berating. "I know you´re young and stupid, but I explain to you in the first and last time. Again swept me with clients fly from Zvezdushek miserably. Entertain men is part of the business."'
				end
				if DanceWhoreT > 0:
				DanceWhoreT = 0
				if AlbFather = 0: AlbFather = 1
				'Albina after training beckons you to her. "Good <<$name>>. Communicating with men of the business. Main keep his mouth shut. You´re doing fine, doing well. Stick with me and you will have all the money, cars and apartments."'
				end
				end
				if stardance >= 10:
				stardance = 0
				albpayrand = RAND(1,5)
				'Albina gathered girls. Today small halturka planned. Each will receive <<albpayrand*1000>> per job. The matter for a couple of hours.'
				act 'Go part time':
				cls
				minut += 120
				money += albpayrand * 1000
				if sweat > -3: set sweat = -3
				profiDanceTime += 1
				gs 'stat'
				'You agreed and Albina phoned by phone. Soon the car came up to you. You sank with sex in the car and went somewhere. Soon you come to what that home in a large hall where people were sitting and pointed. You are dressed in costumes who sewed commissioned Albina, and went on stage to dance to the fiery music. You danced very well and everything went smoothly. You left the stage and Albina distributed money. You take turns on bystrenkomu took a shower.'
				if vnesh >= 13:
				if vnesh < 16: wealthmanrand = RAND(0,15)
				if vnesh >= 16 and vnesh < 18: wealthmanrand = RAND(0,12)
				if vnesh >= 18: wealthmanrand = RAND(0,10)
				if wealthmanrand = 0:
				kolvomanparty = 1
				danceWhorePay = RAND(3,8)
				'You see how a man came to Albina in a decent suit and began about something with her to talk quietly.'
				end
				if wealthmanrand = 1:
				kolvomanparty = 2
				danceWhorePay = RAND(5,10)
				'You see how to Albina approached by two guys and started about something to talk to her.'
				end
				if wealthmanrand = 2:
				kolvomanparty = 1
				danceWhorePay = RAND(4,9)
				'You see how to Albina came Caucasian and became what it is talking to her gesticulating.'
				end
				if wealthmanrand = 3:
				kolvomanparty = 2
				danceWhorePay = RAND(6,12)
				'You see how to Albina came two Caucasians and become about something to talk to her.'
				end
				if wealthmanrand = 4:
				kolvomanparty = 3
				danceWhorePay = RAND(8,14)
				'You see how to Albina came three Caucasians and became what it is talking to her.'
				end
				if wealthmanrand = 5:
				kolvomanparty = 1
				danceWhorePay = RAND(5,10)
				'You see as a Negro came Albina and became about something to talk to her.'
				end
				if wealthmanrand = 6:
				kolvomanparty = 2
				danceWhorePay = RAND(7,15)
				'You see how to Albina approached two blacks and became what it is talking to her.'
				end
				if wealthmanrand = 7:
				kolvomanparty = 3
				danceWhorePay = RAND(10,20)
				'You see how to Albina approached three blacks and became what it is talking to her.'
				end
				if wealthmanrand <= 7:
				'After talking Albina came to you. "<<$name>>, need to talk."'
				act 'About what?':
									cls
									minut += 15
									gs 'stat'
									'You asked Albina what she wanted to talk.'
									if kolvomanparty = 1: 'Albina came closer to you and quietly began to speak, "You see this guy? If you stay with him for an hour and be affectionate, you will be able to earn not bad. Obtain <<danceWhorePay*1000>> rubles."'
									if kolvomanparty > 1: 'Albina came closer to you and quietly began to speak, "You see these guys? If you stay with them for a couple of hours and be affectionate, you will be able to earn not bad. Obtain <<danceWhorePay*1000>> rubles."'
										act 'Cancel and go back':
										cls
										minut += 15
										otkazDanceWhore += 1
										DanceWhoreT = 0
										gs 'stat'
										'You got in the car and soon, along with sex you brought back to town.'
										act 'Leave': gt 'gorodok'
										end

										act 'Agree':
										cls
										money += danceWhorePay * 1000
										DanceWhore += 1
										DanceWhoreT += 1
										otkazDanceWhore = 0
										slutty += 1
										gs 'stat'
										'You agreed and Albina you counted the money.'
										if wealthmanrand = 0: act 'Go with a man': gt 'DanceWhore1'
										if wealthmanrand = 1: act 'Go with men': gt 'DanceWhore2'
										if wealthmanrand = 2: act 'Go in Caucasians': gt 'DanceWhore3'
										if wealthmanrand = 3: act 'Go with Caucasians': gt 'DanceWhore4'
										if wealthmanrand = 4: act 'Go with Caucasians': gt 'DanceWhore5'
										if wealthmanrand = 5: act 'Start with a black man': gt 'DanceWhore6'
										if wealthmanrand = 6: act 'Go with blacks': gt 'DanceWhore7'
										if wealthmanrand = 7: act 'Go with blacks': gt 'DanceWhore8'
										end
									end
				exit
				end
				end
				if vnesh < 13:
				'After dancing Albina talked with some sort of men and what is agreed.'
				end

				act 'Drive back':
				cls
				minut += 15
				gs 'stat'
				'You got in the car and soon, along with sex you brought back to town.'
							act 'Leave': gt 'gorodok'
							end
				end
				end
				end
				act 'Leave': gt 'gdksport'
			end
		end
	end


	if gsAboDance > 0:
		if sport > 0:
			act 'Section dance ticket is valid for <<gsAboDance>> visits':
			cla
			*clr
			gsAboDance -= 1
			set minut += 120
			set fat -= 5
			agil+= RAND(1,3)
			set manna -= 5
			set sweat += 3
			dance += RAND(5,15)
			gs 'stat'
			'<center><img src="images\etogame\fit1.jpg"></center>'
			if dance < 100: 'You studied modern dance club, which is very popular in discos.'
				if dance >= 100:
				'Podcherpnut you tried something new in modern club dancing, but you all already know it.'
					if albinaQWdance = 0 and StoryLine > 0:
					'When the training is over you noticed how the room got a few girls and Albina Barlovskaya. Albina odnoklasnitsa you, but you almost nothing about her know.'
						act 'Say hello to Albina':
						cls
						gs 'stat'
						numnpc = 23
						'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
						'You are greeted with Albina. She raised an eyebrow haughtily. "And it´s you.''s Your name there? Oh yeah <<$name>>. Did you? Zanimaeshsya Dancing?" You nodded confirming the obvious. Albina dismissive laugh. "Well, how´s it going?" You said coldly Albina "Not bad." Albina gave you look arrogant "Not bad? Well, maybe in comparison with other local bowlegged and not bad. But I doubt that you can dance on a more or less professional level."'
							act 'I do not care.':
							cls
							numnpc = 23
							dom += 1
							grupNPC[numnpc] -= 5
							gs 'stat'
							'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
							'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
							'You said scornfully as possible that you do not care and turned away from Albina. She said with a giggle. "Girls. Let´s train."'
							act 'Leave': gt 'gdk'
							end

							act 'I know how to dance.':
							cls
							numnpc = 23
							!dom += 1
							!grupNPC[numnpc] -= 5
							gs 'stat'
							'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
							'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
							'Albina you already began to annoy his arrogance. And you told her firmly that you know how to dance. Albina turned to the girls who came to her and said. "Girls. Let´s train." Then she turned to you and said with a slight grin. "You can sit and watch as the dance pros. Itself will understand everything"'
							act 'Leave': gt 'gdk'
								act 'Watch.':
								cls
								minut += 15
								gs 'stat'
								'Girls included stereo and started dancing. You once it became clear that they dance very well and professionally. You can hardly so. Albina also dances much better than you. And indeed very concerted action girls and waste, apparently they do not work out this dance for the first time. When the music ended Albina said, "Girls. While a little break." She came to you and said a little breathlessly, "We are the pros. We spent a dance troupe Zvezdushki. Dancing on holidays. Even in a music video filming."'
								act 'Leave': gt 'gdk'
									act 'Ask for them in the community.':
									cls
									minut += 15
									gs 'stat'
									'You are asked to dance group. Albina grinned "Can you? We then have all worked. Though vprchem. Show how you know how to dance." Albina included music and girls gathered to look at your dance.'
										act 'Dance.':
										cls
										minut += 5
										gs 'stat'
										'You began to dance to the music, trying as much as possible. When the music stopped you came Albina. "Collective Farm Style course. But nothing, you have some potential."'
											act 'Well take me to your team?':
											cls
											albinaQWdance = 1
											minut += 5
											gs 'stat'
											'You asked Albina, if she would take you to their team. Albina thought and answered you. "Okay, take it. Maybe from you and get anything worthwhile."'
											act 'Leave': gt 'gdk'
											end
										end
									end
								end
							end
						end
					end
				end
			act 'Leave': gt 'gdksport'
			end
		else
		'You are not dressed in sportswear.'
		end
	end

	if gsAboBeg > 0:
		if sport > 0:
			act 'Section races, subscription is valid for <<gsAboBeg>> visits':
			cla
			*clr
			gsAboBeg -= 1
			set minut += 120
			set speed += RAND(1,3)
			set manna -= 5
			set fat -= 5
			set sweat += 3
			set beg += RAND(3,6)
			gs 'stat'
			'<center><img src="images\etogame\parkbeg.jpg"></center>'
			'You do run for two hours.'
			act 'Leave': gt 'gdksport'
			end
		else
		'You are not dressed in sportswear.'
		end
	end

	if gsAboVolley > 0 and volleysostav = 0:
		if sport > 0:
			if week ! 5:
				act 'Section volleyball ticket is valid for <<gsAboVolley>> visits':
				cla
				*clr
				gsAboVolley -= 1
				set minut += 120
				set speed += RAND(1,3)
				agil += RAND(1,3)
				stren += RAND(1,3)
				vital += RAND(1,3)
				set manna -= 5
				set fat -= 5
				set sweat += 3
				set beg += RAND(1,2)
				volleyboll += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
				'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball.'
				act 'Leave': gt 'gdksport'
				act 'Go to coaching': gt 'Voltrener'
				end
			end
			if week = 5:
				act 'Section volleyball ticket is valid for <<gsAboVolley>> visits':
				cla
				*clr
				gsAboVolley -= 1
				set minut += 120
				set speed += RAND(1,3)
				agil += RAND(1,3)
				stren += RAND(1,3)
				vital += RAND(1,3)
				set manna -= 5
				set fat -= 5
				set sweat += 3
				set beg += RAND(1,2)
				volleyboll += 1
				dom += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
				'Fridays are usually held as the game in which to discover strengths and talented athletes.'
					if volleyboll < 25:
					'You are absolutely lousy play and constantly mistaken. Finally nerves coach not stand up and it removes you from the field.'
					end
					if volleyboll >= 25 and volleyboll < 50:
					'You do not play very much. Sometimes make blunders. Coach is angry, but tolerates your antics.'
					end
					if volleyboll >= 50 and volleyboll < 75:
					'You play well on the field and rarely wrong. Coach looks pleased you.'
					end
					if volleyboll >= 75:
					'You play great on the field, easily replaying their rivals. Coach looks pleased with your game.'
					end
				act 'Leave': gt 'gdksport'
				act 'Go to coaching': gt 'Voltrener'
				end
			end
		else
		'You are not dressed in sportswear.'
		end
	end

	if volleysostav > 0:
		if sport > 0:
			if week ! 6:
				act 'To engage with the team':
				cla
				*clr
				set minut += 120
				set speed += RAND(1,3)
				agil += RAND(1,3)
				stren += RAND(1,3)
				vital += RAND(1,3)
				set manna -= 5
				set fat -= 5
				set sweat += 3
				set beg += RAND(1,2)
				volleyboll += 1
				trenerepa += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
				'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball. At the end of the workout you had a game.'
				act 'Leave': gt 'gdksport'
				act 'Go to coaching': gt 'Voltrener'
				end
			end
			if week = 6:
				act 'Check out the competition with a team':
				cla
				*clr
				set minut += 180
				set speed += RAND(1,3)
				agil += RAND(1,3)
				stren += RAND(1,3)
				vital += RAND(1,3)
				set manna -= 5
				set fat -= 5
				set sweat += 3
				set beg += RAND(1,2)
				volleyboll += RAND(1,3)
				dom += 1
				trenerepa += 2
				gs 'stat'
				'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
				'On Saturday, as always, leaving the team to the competition.'
					if volleysostav = 1: 'You sit on the bench watching your team plays.'
				act 'Play': gt 'volley'
				end
			end
		else
		'You are not dressed in sportswear.'
		end

	end
	else
	'Sports clubs are closed.'
	end
--- gdksport ---------------------------------

# gevent
if $ARGS[0] = '1':
cla
*clr
set dyadyamishaevent = 1
set dick = 14
set gorodokwhore += 1
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You agreed and went with his uncle from the cafe. He brought you into their home and took you by the hand, started in the bedroom, closing the door with a key. Firmly taking you by the hair, he dropped you on your knees and pulled his pants and took his penis in his hand, jabbed him in your mouth.'
'Open your mouth, come on, whore know where you´re going'
'You tried to resist, then he slapped you across the face and said that you do not make excuses. You had to open your mouth and take it plump vile smelling dick in your mouth.'
'Suck-let´s not shirk'
'You started to suck him, constantly nuzzling into his hairy crotch. After some time, he took a member of your mouth, and said:'
'-Lie down, play with you'
'You lay on the bed. He undressed you lay down at your feet and parted them, and then looked at your pussy'
if vagina = 0 and sex = 0:
'-Tselochku yet? Now fix it'
'He stood closer to you and put his member in your crotch. He introduced the term in and began to fuck you, breaking your hymen. You were painful and unpleasant. Soon he began to pant, and then he took dick and crawled to your face, forcibly stuck in your mouth his cock and cum in it'
else
'You already torn-whore? Dai and I´ll popolzuyut'
'He stood closer to you and put his member in your crotch. He introduced the term in and began to fuck you.'
if dick - vagina > 10 and dick - vagina <= 7: 'You were very bylno and you prayed that it ran faster'
if dick - vagina > 6 and dick - vagina <= 3: 'You were painful and unpleasant'
'Soon he began to pant, and then he took dick and crawled to your face, forcibly stuck in your mouth his cock and cum in it, you feel his hot cum, which swallowed. In the mouth, the bitterness remains disgusting.'
end
'Swallowed-up, girl? - It dramatically mellowed, patted you on the head and gave things - Get dressed. ''ll Give you a present'
'You got dressed and waited for the rapist who left the room. He returned, holding a dollar bill hundred rubles, which gave you'
'-On, child, buy yourself some ice cream. I know you´re from a poor family, so come in to visit, play, even a present you give. My name is Misha.'
'You took the bill from the hands of Uncle Misha and came out of his house'
'<center><img src="images\gevent\1.jpg"></center>'
set sex +=1
set bj +=1
set swallow +=1
set cumlip +=1
set throat += 1
if vagina < dick: vagina += 1
set rape += 1
set minut += 75
set money += 100
gs 'stat'

act '...': gt 'gorodok'
end



if $ARGS[0] = '1-1':
cla
*clr
	if mishagorodokwhore = 0:
	set mishagorodokwhore = 1
	set gorodokwhore += 1
	end

set dmishaday = day
set dick = 14
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'You went to visit Uncle Misha. He once closed the door, and began to undress me, touching my body with his rough, hairy arms. Undressed, he sat on the couch and gave me a job. You made him a blowjob, after which he put you on the sofa and began to fuck you.'
if dick - vagina > 10 and dick - vagina <= 7: 'You were very bylno and you prayed that it ran faster'
if dick - vagina > 6 and dick - vagina <= 3: 'You were painful and unpleasant'
'Finally, Misha puffed and you took out his penis, breathing with wheezing and cum on your belly, then kiss your pussy and gave you fifty rubles for expenses.'
'<center><img src="images\gevent\mishasex.jpg"></center>'
set sex +=1
set bj +=1
set cumbelly +=1
set throat += 1
if vagina < dick: vagina += 1
set minut += 75
set money += 50
gs 'stat'
act 'Exit': gt 'gorodok'
end



if $ARGS[0] = '2':
cla
*clr

set minut += 15
set cumface = 1
set cumlip = 1
set bj += 1
set gorodokwhore += 2
set money += 10
gs 'stat'

'<center><img src="images\gevent\2.jpg"></center>'
'You went out with him from the audience, after which he held you in the men´s room. Having got you in one of the stalls, they closed it and put it on his knees, then pulled out his penis and gave you a service, starting to shoot you on the phone. You suck at it, and then he came on your face, pulled from his pocket a crumpled ten, which threw you under the feet and left.'

act 'Wash and leave':
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
	set minut += 5
	gt 'gskver','kino'
end

act 'Exit': gt 'gskver','kino'

end


if $ARGS[0] = '3':
cla
*clr
set alko += 10
set minut += 120
set bj += 3
set anal += 3
set sex += 3
set vagina += 3
set anus += 3
set throat += 3
set guy += 3
set gang += 1
set cumpussy = 1
set cumbelly = 1
set cumass = 1
set cumlip = 1
set cumface = 1
set gorodokwhore += 3
gs 'preg'
gs 'stat'
'<center><img src="images\gevent\3.jpg"></center>'
'You went home to Armenian. He appeared in the apartment two more people, also Armenians. They Fingered you speak their language, drink alcohol you in the trash, and then stripped and fuck you, sticking to turn in all your holes, ending with you and in you, soldering and having more, while removing all of you on camera time. Finally, when they played enough with you, they kicked you out of the apartment.'

act '...': gt 'gorodok'
end

if $ARGS[0] = '4':
cla
*clr
set guy += 1
set alko += 2
set sex += 1
set vagina += 1
set cumass = 1
set gorodokwhore += 1
set minut += 50
gs 'stat'
'<center><img src="images\gevent\4.jpg"></center>'
'You came from a guy to his house, where you drank with him and have sex. Fuck your pussy, he pulled out his penis and ended you on the ass, and then he gave you your clothes, you chatted with him, drank tea, and went out.'
act '...': gt 'gorodok'
end

if $ARGS[0] = '5':
cla
*clr
set guy += 1
set sex += 1
set vagina += 1
set cumass = 1
set gorodokwhore += 2
set minut += 15
set money += 100
'<center><img src="images\gevent\5.jpg"></center>'
'The guy has got you into the woods, where a section of the tree and put in quick fuck, Cum on ass, and then gave you a hundred rubles, and left.'
act 'Leave': gt 'gorodok'
end

if $ARGS[0] = '6':
set day += 1
set week += 1
set hour = 12
set minut = 17
set gorodokwhore += 6
if StoryLine = 1: Gorslut = 5
set alko = 1
set guyondisco = RAND(5,10)
set guy += guyondisco
set bj += guyondisco
set sex += guyondisco
set vagina += guyondisco
set throat += guyondisco
set gang += 1
set cumpussy = 1
set cumbelly = 1
set cumass = 1
set cumlip = 1
set cumface = 1
set agape = 3
set agapetime = totminut
set vgape = 3
set vgapetime = totminut
gs 'stat'
gs 'time'
gs 'preg'

!'<center><img src="images\gevent\6.1.jpg"></center>'
!'Вы смутно помните, что произошло. Руки, щупавшие вас, что-то твёрдое и горячее, упирающееся в ваши ладони в ваше тело. Немного и вы уже делали минет какому-то парню, а когда он кончал, то на его место становился другой. Дискотека продолжалась, кто-то снимал на камеру, кто-то становился в очередь, кто-то пристраивался к вам сзади. Очнулись вы днём следующего дня, вся в сперме и без одежды, около ДК. Найдя свою одежду, вы оделись и встали.'
!'You vaguely remember what happened. Hands probe you that something hard and hot, rests in your hands in your body. Bit and you´ve done what blowjob something guy, and when he finished, then it becomes a different place. Disco went, someone filmed, someone to stand in line, someone is attached to you from behind. Day you woke up the next day, all in the semen and without clothes, about DK. Finding her clothes, you got dressed and stood up.'


'<center><img src="images\etogame\dk.jpg"></center>'
'You woke up the next day by day, with pain in all possible parts of the body, all in the semen and without clothes, about DC. Finding your clothes, you got dressed and got up. It seems that yesterday you very much "fun" for a walk.'
act 'Try to remember': gt 'gevent','6.1'
act 'Better not to remember': gt 'gdk'
end

if $ARGS[0] = '6.1':
	g6rand = Rand(1,4)
	if g6rand = 1:
		cls
		'<center><img src="images\gevent\6.1.jpg"></center>'
		'Do you remember the emergency exit of dca. Series of members in your mouth, hands, pussy and ass, and fewer of them around. Some of the guys whinnying someone about something said someone walked impatiently from side to side, waiting their turn.'
		act 'Remember more': gt 'gevent','6.1'
		act 'Better not to think more': gt 'gdk'
	end

	if g6rand = 2:
		cls
		'<center><img src="images\gevent\6.2.jpg"></center>'
		'Do you remember some apartment. A couple of guys that put you in all imaginable and unimaginable poses. Members in all your holes. Hands mnuschayasya all parts of your body. It seems someone even filmed it all on camera.'
		act 'Remember more': gt 'gevent','6.1'
		act 'Better not to think more': gt 'gdk'
	end

	if g6rand = 3:
	cls
		'<center><img src="images\gevent\6.3.jpg"></center>'
		'Do you remember some room seems a motel. A bunch of guys around you, succeeding each other in all your holes. You do not even believe that it is the same, with whom you were dancing at a disco.'
		act 'Remember more': gt 'gevent','6.1'
		act 'Better not to think more': gt 'gdk'
	end

	if g6rand = 4:
		'You´re trying to remember anything about your yesterday´s adventures, but a hangover, headache, and not just the pain prevent you from concentrating.'
		act 'Remember more': gt 'gevent','6.1'
		act 'Better not to think more': gt 'gdk'
	end
end

if $ARGS[0] = '7':
cla
*clr
set guy += 2
set anal += 2
set bj += 2
set sex += 2
set vagina += 2
set anus += 2
set throat += 2
set gang += 1
'<center><img src="images\gevent\7.jpg"></center>'
'You guys brought to the apartment, where you stripped and fucked in all holes, having finished on your face and prevent wash, kicked out of the apartment.'
act 'Leave': gt 'gorodok'
end
--- gevent ---------------------------------

# gkafe
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
gs 'time'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color = maroon>A cafe</font></B></center>'
if hour >= 8 and hour <= 20:
'<center><img src="images\qwest\alter\gkafe2.jpg"></center>'
'Zadripannoe small, station cafe. Since your mom works here, then you are fed free.'
	if week < 6:
		if hour >= 8 and hour < 16 and StoryLine > 0:
		'The cafe bar for your worth <a href="exec:GT ''mother''">Mom</a>.'
		end
	end

if hour >= 18 and dyadyamishaevent = 1 and dmishaday ! day: 'For one of the tables sitting <a href="exec: GT ''gevent'',''1-1''">Misha</a>'
act 'Eat':

	cla
	*clr

	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set razvrand = rand(1,10)
	set minut += 30
	set health += 10
	set manna += 5
	set willpower += 5
	if energy >= 30:
		set fat += 5
		'You can no longer have.'
		end
	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
		end
	if energy < 20:
		set energy += 20
		set fat += 1
		'You gladly ate the food.'
		end
	if water >= 20:
		'Tea in you no longer climbs.'
		end
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	if razvrand > 7 and hour > 16 and hour < 20 and age < 18 and dyadyamishaevent = 0 and gorodokwhore >= 2:
		'For your table approached adult man and said:'
		'-Girl, do you want some candy? At home I have a pack of sweets'
		act 'Agree': gt 'gevent','1'
		end
	act 'Get up from the table': gt 'gkafe'

end

else
'<center><img src="images\qwest\alter\gkafe.jpg"></center>'
'Zadripannoe small, station cafe.'
'The cafe is not working.'
end

act 'Exit': gt 'vokzalG'
--- gkafe ---------------------------------

# gorodok
$metka = $ARGS[0]
$loc = $CURLOC
litltown = 1
cla
*clr
'<center><H4>The Village</H4></center>'
'<center><img src="images\etogame\gorodok.jpg"></center>'
'A quiet province village, if you had no idea of you where abouts, you couldn''t differ this village from others. It''s tallest building is the chuches tower.'
if AlbFather >= 1:
if AlbFaterBlackTime = 0: AlbFaterBlackTime = totminut + 2880
'You can see voting posters on the walls. They say, "Vote for Boris Barlovsky!".'
end

if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and rand(1,100) > 90 and hour >= 16 and AlbFather = 1:
gt 'AlbFatherQW'
end

if StoryLine > 0 and hour < 5 and motherWorry = 0:
motherWorry = 1
end

set gorodokwhorerand = RAND(1,5)
if gorodokwhore >= 2 and gorodokwhore < 6 and gorodokwhorerand >= 4: 'You catch yourself on people´s views, some are trying to find you in someone, and maybe learn. Occasionally you hear people chuckle. Looks like someone found out about your adventures.'
if gorodokwhore >= 6 and gorodokwhore < 10 and gorodokwhorerand >= 4: 'People look at you with a grin, someone makes vulgar gestures towards you some hints on your adventures.'
if gorodokwhore >= 10 and gorodokwhorerand >= 4: 'All around you will recognize whore. Some came by and slap you on the ass. Grandmother on the benches name-calling you whore.'
set gorodokstreetsexrand = RAND(1,20)
if gorodokwhore > 5 and gorodokstreetsexrand = 20:
'To you a guy came up and offered to move into the bushes to get laid for a hundred'
act 'Agree': gt 'gevent','5'
end

gs 'stat'
gs 'time'

if car > 0 and cardrive = 20:
set cardrive = 20
'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if StoryLine = 1 and ParHomeBlock = 0: 'Your home is in one of the houses, it''s an <a href="exec: minut += 15 & GT ''korrPar''">apartment</a> your parents own.'
'The <a href="exec:minut += 15 & GT ''vokzalG''">Train Station</a>.'
'The <a href="exec:minut += 15 & GT ''gpoli''">Clinic</a>.'
if hour >= 8 and hour <= 20: 'The <a href="exec: minut += 15 & GT ''gaptek'',''start''">Drugstore</a>.'
if hour >= 8 and hour <= 17: '<a href="exec: minut += 3 & GT''barbershop'',''start''">The local barbershop</a>' 
if hour >= 8 and hour <= 22: 'A kiosk selling <a href="exec: dynamic $kiosksig">cigarettes.</a>'
'<a href="exec:GT ''zaprF'',''start''">Gas Station</a>'
'This disticts <a href="exec:GT ''gdk''">House of Culture.</a>'
if SchoolBlock = 0: 'Local <a href="exec: GT ''gschool''">school</a>'
if hour >= 7 and hour <= 18: 'The <a href="exec: GT ''etoexhib'',''pos20''">Vocational School</a>'
if hour >= 8 and hour <= 20: 'The only major store in town is the <a href="exec: GT ''shop'',''start''">supermarket</a>.'
'Small city <a href="exec:GT ''gskver'',''park''">park</a>, in which people are going'
if workPTU > 2: act '<b>Go to the hostel</b>': gt 'etoexhib','pos40'

	act 'Wait':
	cla
	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Take a look at the clock': gt curloc
	end
--- gorodok ---------------------------------

# gpoli
set minut += 5
frost = 0
'<center><B><font color = maroon>Clinic</font></B></center>'
'<center><img src="images\etogame\poli.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'Exit': gt 'gorodok'

if hour >= 6 and hour <= 21:
if gpoliuborka = 0:
	act 'Read listing':
	cla
	*clr
	set minut += 5
	set gpoliuborka = 1
	'On the wall near the entrance to the clinic hanging ad. Requires cleaner, work one hour a day, from 16 to 21 hours, payment of 25 rubles.'
	act 'Move away': gt 'gpoli'
	end
end
if gpoliuborka = 1 and hour >= 8 and hour <= 21:
	act 'Ask the chief doctor of the work as a cleaner':
	cla
	*clr
	gpoliuborka = 2
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\poli.jpg"></center>'
	'You came to the office of the head doctor and knocked on the door entered the office. In the office sat a large man in a white robe. He looked sternly at you through his glasses. "On what issue?" You answered that you have read the ad and would like to get a cleaner. Heads doctor thought for a moment and handed you the paper. "Write on the model application for a job part-time." You took the paper and wrote a statement. Heads doctor stood up together and you went into the corridor. He showed you the shed where the stored tools, buckets, mops, dusters.'
	act 'Leave': gt 'gpoli'
	end
end

if gpoliuborka > 1 and hour >= 8 and hour <= 21 and gpolicleanday ! day:
	act 'To work as a cleaner':
	cla
	*clr
	set gpolicleanday = day
	set minut += 60
	set manna -= 15
	set money += 25
	set sweat += 2
	gs 'stat'
	'<center><img src="images\etogame\clener1.jpg"></center>'
	'You took a mop bucket and washed corridors throughout the clinic. After washing corridors you steel wash rooms. Doctors certainly cursed and bubneli as you unceremoniously broke into their offices, but still give you a calm, clean the floor.'
	act 'Finish the job': gt 'gpoli'
	ginrand = rand(0,1)
		if Gspravka < 3 and ginrand = 0:
		'When you remove the gynecologist office, he goes out of the room leaving you alone.'
		if vagina > 0:
		act 'Help forge':
		cls
		Gspravka = 7
			GspravkaT = 1
		gs 'stat'
		'You quickly pull out of the table form and print reference and spank seal on the certificate.'
		'After that, you take away the seal back to the table and hide help. Help text from the gynecologist you write a little later on.'
		act 'Finish the job': gt 'gpoli'
		end
		end
		end
	end
end

	if health < (vital*10 + stren*5) and money >= 1000:
		act 'Treat health 1,000 rubles':
		cla
		set money -= 1000
		set minut += 60
		set health = vital * 10 + stren * 5 + 1000
		'The doctor did give you a shot and you immediately felt much better'
		act 'QUIT': gt $curloc
		end
	end
	if willpower < intel*5 + will*5 and money >= 1000:
		act 'Receiving a therapist 1,000 rubles':
		cla
		set money -= 1000
		set minut += 60
		set willpower = intel * 5 + will * 5 + 1000
		set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
		'You lie down on a couch at the therapist and told him about his troubles, and you immediately become much happier.'
		act 'QUIT': gt $curloc
		end
	end


	if StoryLine > 0 and SchoolAtestat = 0 and Gspravka < 3:
		act 'Go to the gynecologist for help':
		cls
		set minut += 15
		'<center><img src="images\etogame\gin.jpg"></center>'
		'You lay on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
			if vagina > 0:
			Gspravka = 7
			GspravkaT = 2
			'Help gynecologist wrote that you are not a virgin.'
			end
			if vagina = 0:
			Gspravka = 7
			GspravkaT = 1
			'Help gynecologist wrote that you are a virgin.'
			end
			if preg > 0:
			'Gynecologist told you that you are pregnant.'
			end
		gs 'stat'
		act 'QUIT': gt $curloc
		end
	end

	if sick >= 1:
		act 'Go to the therapist uchastkovumu':
		cla
		set minut += 15
		sick = 0
		gs 'stat'
		'You came to the reception to uchastkovumu therapist and doctor has prescribed pills for colds.'
		act 'QUIT': gt $curloc
		end
	end

else
'Clinic closed.'
end
--- gpoli ---------------------------------

# gschool
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
gs 'time'
'<center><B><font color = maroon>School</font></B></center>'
'<center><img src="images\qwest\alter\gschool.jpg"></center>'
'Ordinary school where local children learn.'
'Uniform:<<Sforma>>'

act 'Exit': gt 'gorodok'

if week = 6 and schoolSorev = 2 and hour = 10:
'Near the school are students from different schools and athletes preparing for the competitions in running.'
	act 'Participate in city running race':
	cls
	minut += 30
	gs 'stat'
	'You came to the athletes and he wrote you. After this athlete finished all the preparations for the competition and the guys went to a stratum. The guys went over and as expected won the Ivan Prokhorov. After the guys finished the turn girls.'
	if swinbeggor = 0:
	'Ready to start Christina Zvereva, one of the girls in your class. She scoff at you, "You´ll never beat me."'
	end
	if swinbeggor = 1:
	'Ready to start Christina Zvereva, one of the girls in your class. She looks at you angrily, "You beat me once, but now you will not work."'
	end
	if swinbeggor = 2:
	'Ready to start Christina Zvereva, one of the girls in your class. She looks at you with hatred "Again came bitch? Never mind, this time I´ll do it!"'
	end
		act 'Go to start':
		cls
		kolsorev += 1
		minut += 30
		schoolSorev = 0
		gs 'stat'
		'<center><img src="images\etogame\begsor.jpg"></center>'
		'Girls, on the 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
		Set begplus = beg + speed + vital + RAND(1,20)
		Set begminus = salo + RAND(1,20)
		Set begresult = begplus - begminus
		if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
		if begresult > 0 and begresult < 70: 'You are not bad ran for dilettante course, as ranked last 8th place.'
		if begresult >= 70 and begresult < 80: 'You fought hard, but managed to take only 7 penultimate place.'
		if begresult >= 80 and begresult < 90: 'You fought hard, but only managed to take 6th place.'
		if begresult >= 90 and begresult < 100: 'You fought hard, but only managed to take 5th place.'
		if begresult >= 100 and begresult < 110: 'You fought hard, but only managed to take 4th place.'
		if begresult >= 110 and begresult < 120: 'You fought hard and managed to take 3rd place. Fizruk congratulates you on your success.'
		if begresult >= 120 and begresult < 130: 'You fought hard and managed to take 2nd place. Fizruk congratulates you in hurry.'
		if begresult >= 130: Set swinbeggor += 1 & dom += 1 & 'You fought hard and managed to take 1st place. Fizruk congratulate you on winning the competition.'
		Set beg += 1
		Set fat -= 10
			if swinbeggor = 3 and razradbeg = 1:
			razradbeg = 2
			grupNPC[18] = 0
			zverevaQW = 1
			'You won the three competitions and urban Fizruk announces you that he and you are handed pohadataystvoval 2nd sports category on the run. Christina Zvereva stands apart clenched his hands into fists and hatred looks at you.'
			end
			if swinbeggor = 1 and begresult >= 130:
			grupNPC[18] = 0
			'At the finish line worth Christina Zvereva and trying to catch her breath, she was not able to overtake you, and came second. Christina tries not to look you in the eye.'
			end
			if swinbeggor = 2 and begresult >= 130:
			grupNPC[18] = 0
			'At the finish line worth Christina Zvereva and trying to catch her breath, she was not able to overtake you, and came second. Christina through her teeth growls at you, "That bitch!"'
			end
		gs 'stat'
		act 'Exit': gt 'gorodok'
		end
	end
end

if week = 6 and schoolSorev = 1 and hour = 10:
'Near the school are students of different classes and Athlete preparing for the competitions in running.'
	act 'Participate in school running race':
	cls
	minut += 30
	gs 'stat'
	'You came to the athletes and he wrote you. After this athlete finished all the preparations for the competition and the guys went to a stratum. The guys went over and as expected won the Ivan Prokhorov. After the guys finished the turn girls.'
		act 'Go to start':
		cls
		minut += 30
		schoolSorev = 0
		kolsorev += 1
		gs 'stat'
		'<center><img src="images\etogame\begsor.jpg"></center>'
		'Girls, on the 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
		Set begplus = beg + speed + vital + RAND(1,20)
		Set begminus = salo + RAND(1,20)
		Set begresult = begplus - begminus
		if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
		if begresult > 0 and begresult < 10: 'You are not bad ran for dilettante course, as ranked last 8th place.'
		if begresult >= 10 and begresult < 20: 'You fought hard, but managed to take only 7 penultimate place.'
		if begresult >= 20 and begresult < 30: 'You fought hard, but only managed to take 6th place.'
		if begresult >= 30 and begresult < 40: 'You fought hard, but only managed to take 5th place.'
		if begresult >= 40 and begresult < 50: 'You fought hard, but only managed to take 4th place.'
		if begresult >= 50 and begresult < 60: 'You fought hard and managed to take 3rd place. Fizruk congratulates you on your success.'
		if begresult >= 60 and begresult < 70: 'You fought hard and managed to take 2nd place. Fizruk congratulates you in hurry.'
		if begresult >= 70: Set swinbeg += 1 & dom += 1 & 'You fought hard and managed to take 1st place. Fizruk congratulate you on winning the competition.'
		Set beg += 1
		Set fat -= 10
			if swinbeg = 3 and razradbeg = 0:
			razradbeg = 1
			'You have won three times on the school competitions and you Fizruk announces that he pohadataystvoval and you are handed a third sports category on the run.'
			end
		gs 'stat'
		act 'Exit': gt 'gorodok'
		end
	end
end

if hour <= 8 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 4 and month = 5 and day >= 25 and age = 17:
'Today you will have a prom.'
	act 'Go to the prom':
	cls
	SchoolAtestat = 1
	intel += 10
	gs 'stat'
	'Your class was built on a ruler and a teacher to congratulate you on the successful completion of the school.'
	act 'Exit': gt 'gorodok'
		act 'Go to the prom':
		cls
		minut += 120
		alko += 5
		gs 'stat'
		!гы гы, нету нормального выпускного
		'At graduation all get drunk in the asshole. You almost do not remember anything, only that bathed in the fountain as a paratrooper.'
		act 'Exit': gt 'gorodok'
		end
	end
end

if hour <= 8 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0:
	if Sforma > 0:
		act 'Go to school': gt 'gschool2'
	else
		'You are not dressed in uniforms and you are not allowed in school.'
	end
end


if hour = 16 and GorSlut >= 5 and SchoolGossip > 0 and afterschoolday ! day:
cla
'At the exit of the school you were waiting for the boys headed cats. "Well, that nipple? Ready yet to work their fucking mouth? Come for the school."'
	act 'Go after school':
	cls
	afterschoolday = day
	SchoolGossip += 1
	minut += 60
	gs 'stat'
	'You took in school where boys giggling looking at you. Kotov said, "I do not understand why you cocksucker cheek still not get it?"'
		act 'Suck':
		cls
		minut += 60
		bj += 3
		if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
		if npcSex[10] = 0: npcSex[10] = 1 & guy += 1
		if npcSex[11] = 0: npcSex[11] = 1 & guy += 1
		sub += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\toiletBJtreesome.jpg"></center>'
		'You obediently squatted and pulled Witek member of his sweatpants. You clasped him with <<$liptalk3>> a hard cock and began to suck him. Dan and Bob Ryzhov Shulgin came to you and took out their members. You become one by one handle cocks with her mouth caressing those that are not in your mouth with your hands.'
			act 'Suck':
			cls
			minut += 60
			bj += 3
			cumlip += 1
			cumface += 1
			cumfrot += 1
			sub += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\toiletBJcum.jpg"></center>'
			'Finally a member of the discharge of semen in your mouth. Looking at it as follows sperm from your mouth remaining guys started to cum on your face. You closed your eyes and obediently waited until the boys did not stop to stop. Finally they ended up laughing at you and walked away.'
			act 'Exit': gt $curloc
			end
		end
	end
exit
end

if artomLernQW >= 1 and hour = 16 and week < 6 and kanikuli = 0 and artomVitokQW ! 2:
'In the school yard you already waiting <a href="exec:minut += 15 & GT ''artemEv''">Artem Chebotarev</a>'
end
if hour = 16 and albinaCarday ! day and week < 6 and kanikuli = 0:
	if DanceWhore > 0 or AlbinaLast > 0 or AlbinaBlokDance > 0:
	!'You see standing in the school yard and BMW X5 <a href="exec:minut += 15 & GT ''albinaEv''">Albina Barlovskuyu</a> sitting behind the wheel'
	end
end
if hour = 16 and week < 6 and kanikuli = 0 and katjaMeynoldday ! day and meynoldQW >= 2:
'In the school yard stroll <a href="exec:minut += 15 & GT ''katjaEv''">Katia Meynold</a>'
end
if DimaRudeQW > 0 and hour = 16 and week < 6 and kanikuli = 0 and dimarudeday ! day and DimaRudeBlock = 0:
'In the school yard is worth pondering <a href="exec:minut += 15 & GT ''dimaRudeEv''">Dima Nosov</a>'
end
if IgorLoverQW > 0 and hour = 16 and week < 6 and kanikuli = 0 and igorkruglovday ! day and IdorBlock = 0:
'In the school yard strolls <a href="exec:minut += 15 & GT ''IgorEv''">Igor Kruglov</a>'
end
if fedorKozlovQW >= 10 and hour = 16 and week < 6 and kanikuli = 0:
'far away from the school entrance stands <a href="exec:minut += 15 & GT ''FedorEv''">Fedor Kozlov</a>, he was glad to see you and come to you.'
end
if strelaDay ! day and strelaQW = 1 and hour = 16 and EndThisPath = 0:
cls
gs 'stat'
'To school drove Mitsubishi Pajero and BMW. Of the cars went out strong, inflated guys in leather jackets and tracksuits. They came to the meeting Kotov, Auburn and Shulga. They talked about something and came here from school Fedor Kozlov with a swollen face, bruised. Kotov you waved a hand "<<$name>>, come here, you´re a witness."'
act 'Start at the arrow': gt 'strela'
exit
end

gs 'family'
--- gschool ---------------------------------

# gschool2
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs 'stat'
'<center><B><font color = maroon>School</font></B></center>'
'<center><img src="images\qwest\alter\gschool2.jpg"></center>'
'Hallways at school painted cheap toxic green paint.'

act 'Exit': gt 'gschool'
$din_sekondparturok = {
	act 'Go to lessons':
	cls
	minut += 60 * 3
	schoolprogul -= 1
		if week ! 3 and week ! 5:
		urand = RAND(0,12)
		lernSkill += 1
		lernHome += 1
		BeInSchool += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\urok<<urand>>.jpg "></center>'
		'You were sitting in the classroom and listened to the monotonous boom on teachers, at least that is trying to understand and not to fall asleep.'
		'Finally the bell rang and students began to go home.'
		act 'Exit': gt 'gschool'
		end
		if week = 3 or week = 5:
		gs 'stat'
		'<center><img src="images\qwest\alter\fizra.jpg"></center>'
		'On Wednesdays and Fridays, as always in the afternoon exercise. You other devchenki dressed in the locker room and went to gym class. Viktor Pavlovich in tights with blisters on my knees and nickel whistle built your class in a line and began to conduct a roll call.'
		fizrarand = RAND(0,4)
			if fizrarand = 0:
			set speed += RAND(1,3)
			set manna -= 5
			set fat -= 5
			set sweat += 3
			set beg += RAND(2,5)
			'After the roll fizruk announced that today the class will take a run. You ran with the whole class the entire gym class.'
			end
			if fizrarand = 1:
			set agil += RAND(1,3)
			set fat -= 5
			set manna -= 5
			set sweat += 3
			'After the roll fizruk announced that today the class will take the goat jumping through. You, along with all waiting their turn, that would jump over a goat.'
			end
			if fizrarand = 2:
			set stren += RAND(1,3)
			set manna -= 5
			set fat -= 2
			set sweat += 3
			'After the roll fizruk announced that today the class will take the pull-ups. You, along with all waiting their turn, that would catch up on the bar with almost lying under a horizontal bar like all girls.'
			end
			if fizrarand = 3:
			set vital += RAND(1,3)
			set manna -= 5
			set fat -= 2
			set sweat += 3
			'After the roll fizruk announced that today the class will take the news. You, along with all waiting their turn, that would perform abdominal exercises.'
			end
			if fizrarand = 4:
			set stren += RAND(1,3)
			set manna -= 5
			set fat -= 2
			set sweat += 3
			cls
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\alter\rope.jpg"></center>'
			'On Wednesdays and Fridays, as always in the afternoon exercise. You other devchenki dressed in the locker room and went to gym class. Viktor Pavlovich in tights with blisters on my knees and nickel whistle built your class in a line and began to conduct a roll call.'
			'After the roll fizruk announced that today the class will take the climbing rope. You, along with all waiting their turn, that would climb the rope.'
				if horny >= 100:
				horny = 0
				orgasm += 1
				rope_orgasm += 1
				'You climb a rope and feel like a solid rope t your pussy. You cover the excitement of each meter preodaleniya finally you flinch from the cover you a pleasant feeling all the muscles quivering orgasm and you gripped right on the rope. Fizruk shouts from below "<<$surname>>, what you´re shaking? Tired of what? Come down then."'
				end
				if horny >= 50 and horny < 100:
				'You climb a rope and feel like a solid rope t your pussy. You cover the excitement of each preodaleniya meters. You Stroud climbs up to the top and go down the rope with a burning face with excitement.'
				end
			end
			if week = 5 and razradbeg = 0:
			if schoolSorev = 0: schoolSorev = 1
			'Fizruk announced that on Saturday at 10 am will be held school running competition.'
			end
			if week = 5 and razradbeg = 1:
			if schoolSorev = 0: schoolSorev = 2
			'Fizruk came to you and said that on Saturday at 10 am will be held city competitions in running.'
			end

				if fizrukSex > 0 and kristinaSex > 0:
				'Christina came to you after gym class, "Well <<$name>> sweetie, let´s go to the Pavlovich? Entertain."'
					act 'Go to athletes':
					cls
					bj += 1
					!cumlip += 1
					if fizrukSex = 0: fizrukSex = 1 & guy += 1
					if kristinaSex = 0: kristinaSex = 1
					grupNPC[18] = 100
					gs 'stat'
					'<center><img src="images\qwest\alter\ev\fiz.jpg"></center>'
					'You squatted before the coach next to Christine and kissed fizruka member. Then around his lips and began to suck. Christina squatted and looked like you were aspirated. Then she took the dick in his mouth and began to lick you a solid trunk and balls fizruka. Fizruk finally broke down and began to cum in her mouth Christina.'
					act 'Exit': gt 'gschool'
					end
				end

			if zverevaQW = 2:

			end
			if zverevaQW = 3 and fizrukSex = 0:

			end

			if zverevaQW = 1:
			'You see that the gym teacher went to his room and went after him Christina Zvereva. All other students went to the exit.'
			act 'Overheard under the doors':
			cls
			gs 'stat'
			'You quietly stood near the door to the room where the athlete sits and started listening. Christina said, "Viktor Pavlovich, I should not go to the <<$surname>> regional competitions." Viktor Pavlovich said "<<$surname>> beat you." Christina interrupted sporty "Well, you promised!" further they both fell silent and there was a deep sigh fizruka. "Well Kristinochka, I can not just pick and choose you, not her." Christina purred, "And if you think?" Fizruk choked voice said, "Oh, my God." Heard what that champ.'
				act 'Peek':
						cls
						zverevaQW = 2
						horny += 10
						gs 'stat'
						'<center><img src="images\qwest\alter\Ev\zver.jpg"></center>'
						'You bent to the keyhole and look there. Seen you amazed. Christina was on her knees in front of the coach and sucked his cock.'
							act 'Enter the room':
							cls
							zverevaQW = 3
							gs 'stat'
							!'<center><img src="images\qwest\alter\Ev\zver.jpg"></center>'
								if GorSlut = 0:
								'You opened the door and entered the room fizruka. Christine´s eyes widened when she saw you. She immediately jumped up and turned away wiping his mouth. Fizruk quickly began to fill the standing member in the sport tights. "<<$surname>>, you have not been taught to knock? We´re discussing important issues!" You rebelled, "Questions? Yeah it sucks you have a member that you´d sent it to the competition!" Fizruk shrugged, "What is this nonsense? There was nothing that you sweetheart overheated? May cause a doctor?" You are even more outraged "Viktor Pavlovich, I saw everything!" He grinned "Congratulations <<$name>>. Only who will believe you? You openly slander pytaeshsya best school athlete Christina Zvereva and make me send you to the regional competition, how low I´ll complain to your parents and the director!" You choked with indignation and Christina smiled slyly you "You can not prove anything, bitch. Now get out."'
								end
								if GorSlut > 0:
								'You opened the door and entered the room fizruka. Christina broke away from the penis and giggled "<<$gnikname>> <<$name>> came. Want to suck on some candy?"'
								act 'Give blowjob':
									cls
									bj += 1
									!cumlip += 1
									if fizrukSex = 0: fizrukSex = 1 & guy += 1
									if kristinaSex = 0: kristinaSex = 1
									grupNPC[18] = 100
									gs 'stat'
									'<center><img src="images\qwest\alter\ev\fiz.jpg"></center>'
									'You squatted before the coach next to Christine and kissed fizruka member. Then around his lips and began to suck. Christina squatted and looked like you were aspirated. Then she took the dick in his mouth and began to lick you a solid trunk and balls fizruka. Fizruk finally broke down and began to cum in her mouth Christina.'
									act 'Exit': gt 'gschool'
									end
								end
								act 'Exit': gt 'gschool'
							end

							act 'snoop on':
							cls
							horny += 10
							gs 'stat'
							'<center><img src="images\qwest\alter\Ev\zver.jpg"></center>'
							'Fizruk groaned and Christine finished in her mouth. That is not taking out a member of his mouth swallow cum.'
								act 'Leave':
								cls
								gs 'stat'
								'You left pondering what he saw. Christina turns fucking with gym teacher and she wants you to go instead to the regional competitions.'
								act 'Exit': gt 'gschool'
								end
							end

							act 'Leave':
							cls
							gs 'stat'
							'You left pondering what he saw. Christina turns fucking with gym teacher and she wants you to go instead to the regional competitions.'
							act 'Exit': gt 'gschool'
							end
						end
			end
			end
			gs 'stat'

			act 'Exit': gt 'gschool'
		end

	end

}
$din_bigperemena = {
	if AlbFrend >= 1 and GorSlut >= 3 and SchoolGossip > 0 and kotovLoveQW <= 0 and AlbinaBlockHumiliation = 0:
	AlbinaBlockHumiliation = 1
	'During the break you approached the local Gopnik. "Slysh cocksucker, missed the dick? Come to jolt, feed you over." To the guys came Albina Barlovskaya "Hey kids, it took away from the quick." Boys began to run into Albina, but she just laughed in their faces, "Look, boys, pull up your pants and stomp where got out, if I see you again pestering Svetke, will have a deal with my dad, and you vkurse who he is." Guys poobzyvali Albina my father´s daughter and said that she kept in her father´s ass hiding, but Albina only grinned in response to them, soon the bell rang and the boys went to the lesson.'
	dynamic $din_sekondparturok
	exit
	end
	if AlbFrend >= 1 and GorSlut >= 3 and SchoolGossip = 0 and kotovLoveQW <= 0 and AlbinaBlockHumiliation = 0:
	AlbinaBlockHumiliation = 1
	'During the break you approached the local Gopnik. "Slysh <<$name>>. Star blowjob. Potsiki We already told you zashkvarenaya. Tolchek Come in and chat right." To the guys came Albina Barlovskaya "Hey kids, it took away from the quick." Boys began to run into Albina, but she just laughed in their faces, "Look, boys, pull up your pants and stomp where got out, if I see you again pestering Svetke, will have a deal with my dad, and you vkurse who he is." Guys poobzyvali Albina my father´s daughter and said that she kept in her father´s ass hiding, but Albina only grinned in response to them, soon the bell rang and the boys went to the lesson.'
	dynamic $din_sekondparturok
	exit
	end


	if GorSlut >= 5 and SchoolGossip > 0 and kotovLoveQW <= 0 and AlbinaBlockHumiliation = 0:
	'During the break you approached the local Gopnik. "Slysh cocksucker, soskuchelas on dick? Come to jolt, feed you over."'
		act 'Go to the toilet':
		cls
		SchoolGossip += 1
		gs 'stat'
		'You sadly went with the guys in the men´s room. One of the guys drove small fry of sortra and stood at the door. Cats spoke to you. "Well, that cocksucker. Bury on the canine."'
			act 'Suck':
			cls
			minut += 60
			bj += 1
			if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
			cumlip += 1
			swallow += 1
			sub += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\toiletBJ.jpg"></center>'
			'You obediently squatted and pulled Witek member of his sweatpants. You clasped him with <<$liptalk3>> a hard cock and began to suck him. Finally you feel like your mouth spurt of semen and Vitek said in a choked voice, "Swallow cocksucker, if any drop will´ll lick." You diligently swallowing sperm trying not to drop a single drop Witek finally stopped and cleaned cum cock back in his pants. "Good cocksucker, now going to go to every change in tolchek portion struhni. Clear?" You nodded, feeling a nasty taste in the mouth of sperm.'
			dynamic $din_sekondparturok
			end
		end
	exit
	end

	if GorSlut >= 5 and SchoolGossip = 0 and kotovLoveQW <= 0 and AlbinaBlockHumiliation = 0:
	'During the break you approached the local Gopnik. "Slysh <<$name>>. Star blowjob. Potsiki We already told you zashkvarenaya. Tolchek Come in and chat right."'
		act 'Go to the toilet':
		cls
		SchoolGossip = 1
		gs 'stat'
		'You trembling went with the guys in the men´s room. One of the guys drove small fry of sortra and stood at the door. Cats spoke to you. "Well, that cocksucker. Bury on the canine."'
			act 'Suck':
			cls
			minut += 60
			bj += 1
			if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
			cumlip += 1
			swallow += 1
			sub += 1
			gs 'stat'
			'<center><img src="images\qwest\alter\Ev\toiletBJ.jpg"></center>'
			'You obediently squatted and pulled Witek member of his sweatpants. You clasped him with <<$liptalk3>> a hard cock and began to suck him. Finally you feel like your mouth spurt of semen and Vitek said in a choked voice, "Swallow cocksucker, if any drop will´ll lick." You diligently swallowing sperm trying not to drop a single drop Witek finally stopped and cleaned cum cock back in his pants. "Good cocksucker, now going to go to every change in tolchek portion struhni. Clear?" You nodded, feeling a nasty taste in the mouth of sperm.'
			dynamic $din_sekondparturok
			end
		end
	exit
	end

	if soniaPS = 2: soniaPS = 3 & 'Когда началась перемена вы увидели как с Соней Иванько о чем то разговаривает Котов. Соня смотрит на него чуть не плача и кивает головой.'

	act 'Sit in a classroom':
	cls
	minut += 60
	urand = RAND(0,20)
	gs 'stat'
	'<center><img src="images\qwest\alter\peremena<<urand>>.jpg"></center>'
	'You sit in a classroom with a few <a href="exec:GT ''Sgrup1''">and botanists zauchkami</a>. The class also remained <a href="exec:GT ''Sgrup5''">rogue</a>. Most of the students came out into the corridor.'
	dynamic $din_sekondparturok
	end

	act 'Go through the corridor':
	cls
	minut += 60
	gs 'stat'
	'<center><img src="images\qwest\alter\school.jpg"></center>'
	'Girls wandered through the piles and then discuss it. Guys derzhutsya separately and some went to smoke behind the school. You see the local <a href="exec:GT ''Sgrup3''">Spin the</a>, <a href="exec:GT ''Sgrup2''">sportikov</a>'
	dynamic $din_sekondparturok
	end

	act 'Go to the toilet':
	cls
	minut += 60
	urand = RAND(0,12)
	gs 'stat'
	'<center><img src="images\qwest\alter\toilet.jpg"></center>'
	'The toilet as always full of beautiful girls who go about their business. Some people smoke at the window. Local hooligans rubs near <a href="exec:GT ''Sgrup4''">WC</a>.'
	dynamic $din_sekondparturok
		if soniaPS >= 3:
		soniarand = rand(0,3)
			if soniarand = 0:
			cls
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\alter\sonia\t.jpg"></center>'
			'Войдя в туалет вы видите, что Соня сосет член у какого то пацана. Твердый член входит в ее рот и Соня чавкает и умело работает губками.'
			dynamic $din_sekondparturok
			end
		end
	end

	act 'Go to the canteen':
	cls
	minut += 60
	urand = RAND(0,12)
	gs 'stat'
	'<center><img src="images\qwest\alter\stolovka.jpg"></center>'
	'In the canteen at the big change all <a href="exec:GT ''Sgrup''">students</a> wanting to eat.'
	dynamic $din_sekondparturok
		if money >= 50:
			act 'Buy food 50 rubles':
			cls
			money -= 50

			gs 'stat'
			'<center><img src="images\qwest\alter\stolovka.jpg"></center>'
			set minut += 30
			set health += 10
			set manna += 20
				if energy >= 30:
				set fat += 5
				'You can no longer have.'
				end
				if energy >= 20 and energy < 30:
				set fat += 3
				set energy += 10
				'You pushed through the power of a meal.'
				end
				if energy < 20:
				set energy += 20
				!set fat += 1
				'You gladly ate cooked food.'
				end
				if water >= 20:
				'Tea in you no longer climbs.'
				end
				if water < 20:
				'You gladly drank a mug of tea.'
				set water += 20
				end
			gs 'stat'
			dynamic $din_sekondparturok
			end
		end
	end
}


if hour <= 8:
	act 'Go to lessons':
	cls
	hour = 9
	minut = 0
	minut += 60 * 3
	urand = RAND(0,12)

	if lernHome = 0: Suspeh += 2
	if lernHome > 0: Suspeh -= 1
	if Suspeh > 100: Suspeh = 100
	if Suspeh < 0: Suspeh = 0
	lernSkill += 1
	lernHome += 1

	if schoolSorev = 1: schoolSorev = 0
	gs 'stat'
	'<center><img src="images\qwest\alter\urok<<urand>>.jpg "></center>'
	'You were sitting in the classroom and listened to the monotonous boom on teachers, at least that is trying to understand and not to fall asleep.'
	'Finally the bell rang and the students went to a big change.'
	if GorSlut > 0: 'You hear whispering classmates as showing a finger at you.'
	if soniaPS = 1: soniaPS = 2 & 'The main news today was the news that Sonia Ivanko allowed in a circle at a disco. She sucked in as much as five guys.'
	dynamic $din_bigperemena
	end
end
--- gschool2 ---------------------------------

# gskino
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs 'stat'
'<center><img src="images\gevent\kinoteatr.jpg"></center>'
'Small cinema in which there is just one small room. A movie ticket costs 100 rubles.'

if money >= 100:

	act 'Go to the movies':
	cla
	*clr
	set money -= 100
	set minut += 120
	set manna += RAND(60,90)
		'You quietly watched the film, and then came out of the cinema.'
		act 'Leave the hall': gt 'gskver'
	end
end

act 'Get out of the theater': set minut += 5 & gt 'gskver'
--- gskino ---------------------------------

# gskver
$metka = $ARGS[0]
$loc = $CURLOC
cls
gs 'stat'
gs 'time'
'<center><img src="images\gevent\skver.jpg"></center>'
'Small park where people often rest, walk a couple, played by kids.'
*nl
if hour > 8 and hour < 19: 'Here is a small <a href="exec: minut += 5 & GT ''gskino''">Theater</a>'

if GvstreBoy = 1: 'You can see that in the park walks <a href="exec: numnpc = SkverBoy & GT ''Gnpc''"><<$nameBoyfrend[SkverBoy]>></a>.'
if kotovLoveQW > 0 and hour >= 18 and hour < 20 and week < 6 or week >= 6 and kotovLoveQW > 0 and hour >= 9 and hour < 20:
'You see in the park sitting on the bench <a href="exec:minut += 3 & GT ''kotovEv''">Vitek Kotov</a> with Druganov and beer.'
end



	act 'Walk (0:15)':
	cla
	*clr
	set minut += 15
	place = 1
	Frend_num = 0
	gt 'placer'
	end

	if hour >= 8 and hour < 22:
		act 'Distributing flyers to earn money 10 rubles (1:00)':
		cla
		*clr
		'<center><img src="images\etogame\flaer.jpg"></center>'
		'You an hour handing out flyers park visitors. Then you got 10 rubles.'
		set minut += 60
		set money += 10
		set manna -= 5
		gs 'stat'
		act 'Move away': gt 'gskver'
		end
	end
act 'Get out of the park': minut += 5 & gt 'gorodok'
--- gskver ---------------------------------

# IgorEv
gs 'stat'
'<center><B><font color = maroon><<$npcName[4]>> <<$npcSurName[4]>></font></B></center>'
'<center><img src="images\qwest\alter\npc4.jpg"></center>'
if fedorKozlovQW >= 10 or $loc = 'gdkin':
'To you and Igor suitable Fedor. "Gosh, you do not confused? <<$name>> my girl." Igor blushed "Well Fed, you know, I did not know. But if you insist, then okay, I´m just a joke." Fyodor nodded, "Well, go wherever you go, a practical joker."'
act 'Go with Fedor': IdorBlock = 1 & gt 'FedorEv'
exit
end
'Igor eagerly tell you, "Well what? Come to my house?".'


if IgorLove > 0:
	act 'Go to Igor':
	cls
	minut += 15
	gs 'stat'
	'You came home to Igor.'
			if IgorDominaQW = 0:
		'Igor starts hugging and kissing you.'

		end

		if IgorDominaQW > 0:
		'Igor gets up on his knees in front of you, "Madam, I pray for a kiss!"'

		end
	act 'Leave': IgorLove -= 1 & gt 'gorodok'
	end
end
if IgorLove <= 0:
IgorLoverQW = -1
'Along the way, Igor began to chant "<<$name>>, I love you so much, but you do not know me, you know, I began to wonder if perhaps we should leave."'
act 'Leave': gt 'gorodok'
end
--- IgorEv ---------------------------------

# IvanEv
ivansportday = day
gs 'stat'
'<center><B><font color = maroon><<$npcName[3]>> <<$npcSurName[3]>></font></B></center>'
'<center><img src="images\qwest\alter\npc3.jpg"></center>'
if $loc = 'gdksport':
'Ivan grinned seeing you "Hello <<$name>>, you´re here too zanimaeshsya sports?" You confirmed his words. Ivan nodded. "I´ve been training for boxing go. Soon the competition."'
act 'Leave': gt 'gdksport'
	if kotovVSprohorov = 1:

	end
	if kotovVSprohorov = 0:
	'Ivan thought about something and said, "I have today sparring with Kotov from our class. Want to see?"'
		act 'Want':
		cls
		kotovVSprohorov = 1
		gs 'stat'
		'You entered the hall where trained local boxing club. In the hall stood ineradicable smell of old leather pears and sweat. A few guys hit on pears practicing strokes, several mirrors before doing the moves. In the ring was already Kotov, shorts, helmet and gloves. "Hey Proshka I´ll wait for you much? Go to the ring!" Prokhorov smirked, quickly pulled the helmet on your head, put on gloves and entered the ring. You sat down on the bench. Many of the guys, too, began to look, what will happen in the ring.'
			act 'Watch':
			cls
			minut += 3
			dom += 1
			gs 'stat'
			'Immediately struck that Ivan is much higher than Vitek Kotov Kotov but broader in the shoulders and much more muscular. Guys bumped gloves in salute and departed from each other stood in the rack. Cats like a whirlwind attacked Ivan. Ivan began to retreat fighting jabs. Became apparent that Kotov embedded in shots, but can not get Ivan. Ivan is not strong blows of his left hand almost immediately began to get cats in the head. Here there was a loud bang, and the head jerked Kotova, and the Vitek otsupil step. Ivan kick right hand was very sharp and detailed. Vitek began to retreat and fight. Roles were reversed in the ring, now crushed and put pressure Ivan Kotov. It became apparent that Vic is the sweat pours and he began to choke. And Ivan Kotov meanwhile shot sharp and precise strokes of the race. Vitek also fighting could not get Prokhorov. There was another loud bang and Vic head jerked to the side, and he was visibly staggered. Coach whistle whistle "So at the corners, the end of the round. Victor, What the hell you like a tank Presch Ivan? Ivan class above you. Use jab feint if you will shove, I can not catch you separate them, then you will treat a concussion. " Witek standing in the corner and tried sweating prodyshatsya. Ivan looked fresh and not tired. Finally coach whistle whistle "second round."'
				act 'Watch':
				cls
			minut += 3
				dom += 1
				gs 'stat'
				'In the second round, Ivan became easy on your feet moving around the circle and beat Victor light blows with his left hand, almost all the blows fell cats in the head, but Victor was not responding to them trying to get closer Ivan suddenly he abruptly threw a left hook to the head of Ivan Prokhorov had time to raise hands and close the head, but then a second blow Kotova landed with a loud bang Ivan in the stomach. Ivan noticeably bent down and began to retreat and move from side to side. Cats happy and began to settle on Ivan throwing hands with incredible speed. Here he managed to get Ivan´s head and legs buckled Ivan. Coach again whistled the whistle. "Ivan, keep him at a distance, do not let close!" It has been seen as Ivan nose bleeds he wipes his glove. Coach whistled again "Round."'
					act 'Watch':
					cls
					minut += 3
					dom += 1
					gs 'stat'
					'Ivan began to move easily on his feet throwing his left hand on his head which regularly ran constantly attacking Kotov. Victor threw hand, but Ivan managed to remove the head from bumps and knocks over his arm Kotova, there was a loud bang and Kotov got ass in the ring. Some of the guys who are watching the fight with admiration said "Great cross struck Vanya." Long and nasty whistle whistle coach. "Ivan, well done, well caught on the cross. Victor, are you okay?" Witek got to his feet and angrily looked at Ivan through clenched teeth. "I´m all right." Coach nodded "Well, then continue." The guys came back to the center of the ring and greeting each other blow gloves started the fight. Witek was noticeably quieter and often tried to go away from the blows Prokhorov. Ivan was moving on his feet and threw scathing attack, many of them hit the target. Witek suddenly intensified and tucked in the corner of Ivan, two powerful blows immediately hit in the stomach and Ivan Prokhorov clutching Vic hung on it. Whistle blew trainer "Ivan, protect body. Okay, relax a little bit." Boys stood in their corners, it was noticeable that they are both covered in sweat and panting. Ivan wiped the blood flowing from the nose, and Victor hands kneaded. Coach whistle whistle "fourth round"'
						act 'Watch':
						cls
						minut += 3
						dom += 1
						gs 'stat'
						'Began the fourth round and Victor began circling around the ring trying to drive into the corner of Ivan. Ivan noticeably tired and his movements became slower in the ring, but his punches are still regularly fetched Kotova. Suddenly there was a cotton and Ivan staggered Victor still got him in the head. Ivan began to retreat from close hands Kotova and Witek with renewed vigor to protect Ivan thrashed. Suddenly, one of the blows to the stomach slapped Prokhorov and he bent down, Kotov hit uppercut swing and the head of Ivan. Ivan hung on Victor. Coach whistle whistle "Ivan, move on his feet, hit jab, do not sleep in the ring." Coach whistled again and the guys continued. Witek were pressing on Ivan, but Ivan has already recovered and fought light and quick strokes. Here´s head jerked from Ivan and Ivan hit hard recoiling hanging on the ropes, Kotov immediately rushed to Ivan with a view to finish it, but the whistle blew coach. "Okay, enough for today. Ivan, get some rest and paws will practice defense corps. You weak this part." Witek scowled, "What do I do?" Coach shrugged "Invent something, not small."'
							act 'Ask the coach who won':
							cls
							minut += 3
							gs 'stat'
							'You asked an elderly coach who won. Coach looked at you as if you had just said. "It´s sparring, there are no winners. But if it was a real battle, it would certainly be defeated Ivan. In combat count the number of strokes, their strength does not matter. Ivan struck a dozen times more punches." Kotov heard coach zabubnel "Certainly otpizdish in shit, and then another and lose. Proshka same broke, if not whistle, I would put it. Fucking master of sports." On the coach said with exasperation, "Kotov, you´re not in the alley, it is a sport and it has rules, according to the rules you lose, learn not to expose all your head off." Cats with exasperation took off his gloves and went to the corner where lay the rod and weights. Coach looked after him "That´s only and can swing." Prokhorov has already recovered and went to the coach. Coach began to wear long leather paws on his hands.'
								act 'Can I like to practice?':
								cls
								minut += 3
								gs 'stat'
								'You asked an elderly trainer whether you can train too. Coach grinned. "You see, there´s no other girls. Who are you going to stand in sparring? And without sparing it will not stall, and a children´s game." You offered to put you in sparring with guys. Surround you guys giggled. Smiled even coach. "You saw the fight, imagine what will happen to you if some sort Kotov you accidentally hit in full force. I´m not going in my old age, still in jail get for what you in training accidentally injure somebody."'
								act 'Leave': gt 'gdksport'
								end
							end
						end
					end
				end
			end
		end
	end
else

end
--- IvanEv ---------------------------------

# katjaEv
$din_katja_kiss = {
act 'Kiss':
cls
minut += 5
manna += 100
horny += 10
KatjaHorny += 10
	if katjaFirstKiss = 0:
	katjaFirstKiss = 1
	KatjaLust = 10
	KatjaSlut = 10
	KatjaDom = 50
	KatjaOTN = 1
	end
gs 'stat'
'<center><img src="images\qwest\alter\katja\kiss.jpg"></center>'
'You brought her face to face Katie and felt her hot breath on his lips. Kate closed her eyes and touched his lips to your lips. In your mouth penetrated nimble tongue Katie that you started to suck, then your tongue went into Katin´s mouth and she very gently caressed it with his tongue and sucked. Kate finally pushed you to your flushed face and licked her lips.'
	if KatjaHorny >= 75:
	'Kate handed his pen to your chest and gently held her finger on.'
		act 'touch the chest':
		cls
		minut += 5
		horny += 10
		KatjaHorny += 10
		KatjaLust += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\katja\touch.jpg"></center>'
		'You touched the tender breast and Katya Katya sighed deeply biting her lip.'
		katjalustrand = rand(0,30)
			if KatjaLust < katjalustrand:
			'You´re a little touched each other breast and Katia moved away from you.'
			act 'Пsay goodbye and go home': gt 'gorodok'
				if dom > 0:
					act 'grab her':
					cls
					minut += 5
					horny += 10
					dom -= 1
					KatjaDom -= 5
					KatjaHorny -= 10
					KatjaLust += 1
					gs 'stat'
					'<center><img src="images\qwest\alter\katja\grab.jpg"></center>'
					'You grabbed Katya without letting it wriggle.'
						if dom < KatjaDom:
						'Kate firmly took your hands and took them away, giving you understand that you have already completed.'
						act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
						else
						'Kate froze in your hands while you stroked her body and kissed her neck.'
							act 'Licking her breast':
							cls
							minut += 5
							horny += 10
							KatjaDom -= 1
							KatjaHorny += 10
							KatjaLust += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\katja\tits.jpg"></center>'
							'You got not big but firm breasts Katie from under their clothes and began to lick his tongue. Kate closed her eyes in pleasure and bit her lip.'
							'After a while Kate cleaned your hands away.'
							act 'Say goodbye and go home': gt 'gorodok'
							end
						end
					end
				end
			else
			'Katya started stronger stroking your chest and you feel as it removes your bra trying to get to your breasts.'
				act 'let her':
				cls
				minut += 5
				horny += 10
				KatjaDom += 1
				KatjaHorny += 10
				KatjaLust += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\katja\tits.jpg"></center>'
				'Kate bared your breasts and touched her with his fingers, then she bowed her head and began to lick your nipple.'
				'Lick your breasts while Kate stood up and turned to start cleaning the room.'
				act 'Say goodbye and go home': gt 'gorodok'
				end

				act 'Remove her hands':
				cls
				minut += 5
				horny += 10
				KatjaDom -= 1
				KatjaHorny -= 10
				KatjaLust += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\npc14.jpg"></center>'
				'You removed her hands and smiled Katya fun.'
				act 'Say goodbye and go home': gt 'gorodok'
				end
			end
		end
	else
	'Kate turned and began to collect books pretending that nothing had happened.'
	act 'Say goodbye and go home': gt 'gorodok'

	end
end
}
katjaMeynoldday = day
gs 'stat'
'<center><B><font color = maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
'<center><img src="images\qwest\alter\npc14.jpg"></center>'
'Kate looks at you smiling. "<<$name>>, come to me, with the lessons learned."'
if fedorKozlovQW >= 10:
'To you and Katya suitable Fedor. "Hi girls, that up to?" Katya said embarrassed "Here we want to go teach lessons together." Fedor much thought and said "Okay. Then before the meeting." Then turned and walked away.'
end

act 'Say goodbye and go home': gt 'gorodok'


act 'Go with Kate':
cls
minut += 15
manna += 100
gs 'stat'
'<center><B><font color = maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
'<center><img src="images\qwest\alter\npc14.jpg"></center>'
'You walk down the streets of the town, along with Kate to her house. You are chatting together about all sorts of trivia and fun.'
if albinaQWdance > 0 and AlbinaBlokDance = 0: 'Katya keen interest how are you doing with Zvezdushkami. In her opinion it is a very private team in a variety of rumors roam about Albina team.'
if kotovLoveQW > 0: 'Kate asks you about your relationship with Victor Kotov, simultaneously expressing opinion about it. According to her Witek rude and he is a true gangster.'
'Finally you come to her house. Detached two storey house with attached garages and quite a large garden gives the impression of grooming and order. Katya shows you the way to your room'
	act 'Walk into a room Katie':
	cls
	minut += 15
	manna += 100
	gs 'stat'
	'<center><B><font color = maroon><<$npcName[14]>> <<$npcSurName[14]>></font></B></center>'
	'<center><img src="images\qwest\alter\npc14.jpg"></center>'
	'The room Katie did not quite clean and circle are her things. Kate throws her to the floor and ryukzachek lacking textbooks and notebooks.'
		act 'Engage with Katia':
		cls
		minut += 30
		grupNPC[14] += 10
		lernHome = 0
		lern += RAND(2,4)
		intel += RAND(0,1)
		katjaLernTimes += 1
		gs 'stat'
		'<center><img src="images\qwest\alter\npc14.jpg"></center>'
		'For half an hour that you do with Kate you fully learned the lessons and pretty well understood the materials.'
			if katjaLernTimes >= 10:
			katjaLernQW += 1
			if katjaLernQW < 5:
			katrand = rand(0,3)
			if katrand = 0: 'You notice that Kate stares you in the face, as if he wants, that is to ask, but turns away.'
			if katrand = 1: 'You notice that Kate blushed and turned away from you.'
			if katrand = 2: 'Kate as if by accident puts his palm on your knee, then quickly removes it.'
			if katrand = 3: 'Kate smiles at you quite a silly smile, then turns away.'
			end
			if katjaLernQW = 5:
			'Kate thinks about something, then embarrassed and blushing asks you "<<$name>>, and you have kissed a boy?"'
			act 'Yes':
			cls
			gs 'stat'
			'<center><img src="images\qwest\alter\npc14.jpg"></center>'
			'You smiled at Kate and said that of course you kissing boys. Katya shy even more. "You see the <<$name>>, I like this guy, he´s older than me, and I am afraid that when we start to kiss, I´ll do something wrong. Could you teach me how to kiss?"'
			dynamic $din_katja_kiss
			act 'No':
						cls
						katjaLernQW = 0
						katjaLernTimes = 1
						gs 'stat'
						'<center><img src="images\qwest\alter\npc14.jpg"></center>'
						'You refused to kiss with Kate and she was mad at you.'
						act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
						end
			end

			act 'No':
			cls
			gs 'stat'
			'<center><img src="images\qwest\alter\npc14.jpg"></center>'
			'You shook their heads and said they did not kiss. Katya shy even more. "You see the <<$name>>, I like this guy, he´s older than me, and I am afraid that when we start to kiss, I´ll do something wrong. Maybe we could try to kiss, what to learn?"'
			dynamic $din_katja_kiss
				act 'No':
						cls
						katjaLernQW = 0
						katjaLernTimes = 1
						gs 'stat'
						'<center><img src="images\qwest\alter\npc14.jpg"></center>'
						'You refused to kiss with Kate and she was mad at you.'
						act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
						end
			end
			exit
			end
			if katjaLernQW >= 6:
			'Kate brought her face to yours so that you could feel her hot breath on his skin.'
					act 'Bring his face close to hers.':
					cls
					gs 'stat'
					'<center><img src="images\qwest\alter\npc14.jpg"></center>'
					'You, too, bringing her face to face Katie.'
						if KatjaHorny < 50:
						katjarand = rand(0,50)
						if katjarand <= KatjaHorny + dom:
						dynamic $din_katja_kiss
						else
						KatjaHorny += 5
						'Kate giggled and pushed his face away from your.'
						act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
						if dom > 0:
						act 'Grab face Katie':
						cls
						dom -= 1
						KatjaDom -= 5
						KatjaHorny -= 10
						KatjaLust += 1
						gs 'stat'
						'You cupped face with his hands and Katie brought his lips to hers.'
						if dom < KatjaDom:
						'Kate firmly took your hands and took them away, giving you understand that it does not intend to kiss.'
						act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
						else
						'Kate stopped looking into your eyes.'
						dynamic $din_katja_kiss
						end

						end
						end
						end
						end
						if KatjaHorny >= 50:
						dynamic $din_katja_kiss
						end
					end

					act 'Say goodbye and go home': minut += 15 & KatjaHorny -= 5 & gt 'gorodok'
				exit
			end
			end
		act 'Say goodbye and go home': minut += 15 & gt 'gorodok'
		end
	end
end
--- katjaEv ---------------------------------

# kotovEv
gs 'stat'
'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="images\qwest\alter\npc9.jpg"></center>'
if kotovLoveQW > 0 and GorSlut > 0:
'Witek scowled and tells you "Slysh Svetsik, Th for garbage? We´re mutim, and then you tell me about you <<$gnikname>>. Whole town already know the boys with me neigh district. Ohuevshaya You bitch!"'
	act 'A scandal':
	cls
	grupNPC[9] = 0
	kotovLoveQW = -1
	gs 'stat'
	'You started yelling at Victor that he has fucked. Vitek started yelling at you and suddenly you have a ringing in your head and you were on the floor. Witek standing over you. Heavily burned cheek, you do not understand what happened, but it seems he slapped you podschechinu. "All the creature! Most do not come to me! All over between us!"'
	act 'Move away': gt $loc, $metka
	end

	if dom >= 20:
		act 'Argue that all this gossip':
		cls
		sub += 20
		GorSlut = 0
		gs 'stat'
		'You have started to convince Victor that all this gossip, do not have no foundation. Witek frowned, "I´ll knock your teeth these talkers, if ever even what you hear about the garbage. Do not worry, I pozatykayu these yapping mouths."'
		act 'Move away': gt $loc, $metka
		end
	end
exit
end
if $loc = 'gdksport':
	if kotovKnowSport = 0:
	'Vitek came up to you and hug her waist kissed. "Hi, Svetsik."'
		act 'What are you doing here?':
		cls
		gs 'stat'
		'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
		'<center><img src="images\qwest\alter\npc9.jpg"></center>'
		'You asked Vic what he was doing. Witek snickered "You cho? Since I´ve been boxing for 11 years doing. Candidate Master of Sports is the second place in the championship held in the region."'
			act 'You drink, and even smoke!':
			cls
			kotovKnowSport = 1
			gs 'stat'
			'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
			'<center><img src="images\qwest\alter\npc9.jpg"></center>'
			'Were you surprised Witek every day thumps and smokes as he combines with sports. Witek chuckled, "Ha. Coach says I have a talent. Kick like a cannon, and the reaction is great. It´s in my dad, who was a drunkard goner. 6t walker on the area and died of cirrhosis, but move into the jug could always so that flew from sneakers. course bluing slightly hampered, but what the fuck? tossed and I would drink and smoke, but in boxing, no dating and money, CCM is the ceiling. though I can wriggle inside, but the master of sports will not. I´ve on the region, took 2nd place, I beat the champion in the shit, he twice knocked down lying. And gave him the victory. So for me right now is boxing, so they do out of habit, but that would be in the form behave. "'
			act 'Move away': gt $loc, $metka
			end
		end
	end
	if kotovKnowSport > 0:
	'Vitek came up to you and hug her waist kissed. "Hi, Svetsik. Again I to practice."'
	act 'Move away': gt $loc, $metka
	end
end
if $loc = 'gskver':
'Witek you waving hand. "Come here Svetsik."'
act 'Sorry, I´m in a hurry': gt $loc, $metka
	act 'Step up':
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\npc9.jpg"></center>'
	'Witek pours beer into a plastic cup. "In short, <<$name>>, let´s have a cup pivasom."'
		act 'Drink beer':
		cls
		minut += 15
		alko += 2
		fat += 5
		salo += 1
		energy += 10
		gs 'stat'
		'Witek poured you a beer and you have been drinking with him. Witek with boys bullied stories as they overcame babosov in Loja city, and how the Rams with boys from another district.'
			act 'Okay, I gotta go.':
			cls
			gs 'stat'
			'<center><img src="images\qwest\alter\npc9.jpg"></center>'
			'Vitek came up to you and hugged, kissed her on the lips. "Slysh Svetsik, come to me."'
				if dom > 0: act 'Sorry, I´m in a hurry.': sub += 1 & gt $loc, $metka

				act 'Go to Vit''ka.':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images\qwest\alter\npc9.jpg"></center>'
				'You went through the square to the side where he lives Witek. Soon you with Vic came to a dilapidated house he opened the door and led you to the poor and not well-kept apartment in a room where clothes lying crumpled heaps on the floor was littered with empty bottles.'
				act 'Next.': gt 'kotovSex'
				end
			end

		end
	act 'Sorry, I´m in a hurry': gt $loc, $metka
	end
end
--- kotovEv ---------------------------------

# kotovSex
$din_kotov_bj = {
	act 'To take by mouth.':
	cls
	minut += 5
	bj += 1
	bja += 1
	if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
	bjrand = RAND(0,6)
	kotovBJtimes += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\ev\kotovBJ<<bjrand>>.jpg"></center>'
	'You stroked his crotch and Vic felt his cock began to rise. Vitek quickly pulled off his pants and lay down on the bed. You get comfortable between his legs and wrapped his lips to his standing member began to suck. You sucked hard cock to the throat filling the entire mouth, tongue caressed the head and took a member of the cheek. Soon Witek groaned "<<$name>>, I´m going to come!"'
		if kotovBJtimes > 5:
			act 'Continue to suck.':
			cls
			minut += 5
			cumlip += 1
			bjrand = RAND(0,6)
			gs 'stat'
			'<center><img src="images\qwest\alter\ev\kotovBJcum.jpg"></center>'
			'You continued to suck and hot jet of sperm hit you in the mouth.'
				act 'Sucking swallowing sperm.':
				cls
				minut += 5
				swallow += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\ev\cocksuck2.jpg"></center>'
				'You suck dick cum swallowing cum as soon as it hits your mouth. Witek finally stops to finish and takes his cock out of your mouth.'
					act 'Leave.': gt 'gorodok'
				end

				if kotovBJtimes > 10:
					act 'Suck holding sperm in her mouth.':
					cls
					minut += 5
					gs 'stat'
					'<center><img src="images\qwest\alter\ev\kotovBJcum4.jpg"></center>'
					'You suck dick cum that fills your mouth with sperm. Witek finally stops to finish and takes his cock out of your mouth.'
						act 'Spit it out.':
						cls
						minut += 5
						gs 'stat'
						'<center><img src="images\qwest\alter\ev\gop8.jpg"></center>'
						'Bytrenko you went to the bathroom and spit semen into the sink.'
							act 'Leave.': gt 'gorodok'
						end

						if kotovBJtimes > 12:
							act 'Swallow.':
							cls
							minut += 5
							swallow += 1
							vaf += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\ev\kotovBJcum5.jpg"></center>'
							'Once Witek gets dick out of your mouth, you gulp swallow cum, leaving a sharp aftertaste.'
								act 'Leave.': gt 'gorodok'
							end
						end

						if kotovBJtimes > 15:
							act 'Play with sperm.':
							cls
							minut += 5
							swallow += 1
							vaf += 1
							gs 'stat'
							'<center><img src="images\qwest\alter\ev\kotovBJcum2.jpg"></center>'
							'Once Witek gets dick out of your mouth, you open your mouth in front of him and start playing with the sperm.'
								act 'Leave.': gt 'gorodok'
							end
						end
					end
				end
			end
		end

		act 'Remove the mouth.':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\ev\kotovHJ.jpg"></center>'
		'You remove a member from his mouth and start stroking his hand.'
			if kotovBJtimes > 15:
				act 'Direct face.':
				cls
				minut += 5
				cumface += 1
				facial += 1
				gs 'stat'
				'<center><img src="images\qwest\alter\ev\kotovFacial.jpg"></center>'
				'You direct the member on his face and a hot jet of sperm hits you in the face. Then another and another jet. Your face is covered with flowing Vitek finished and cleans dick in his pants.'
					act 'Leave.': gt 'gorodok'
				end
			end

			act 'Cum in her hands.':
			cls
			minut += 5
			gs 'stat'
			'<center><img src="images\qwest\alter\ev\kotovHJ2.jpg"></center>'
			'You pinch the ends member palms and into your hand starts to whip the sperm out of the penis.'
				act 'Leave.': gt 'gorodok'
			end
		end
	end
}
$din_kotov_anal = {
	act 'Substitute ass':
	cls
	minut += 30
	cumanus += 1
	anala += 1
	if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\anal.jpg"></center>'
	dynamic $sexstart
	dynamic $analsex
	act 'Leave.': gt 'gorodok'
	end
}
$din_kotov_sex = {
	act 'Lie on your back.':
	cls
	minut += 30
	sexa += 1
	kotovVagSex += 1
	if npcSex[9] = 0: npcSex[9] = 1 & guy += 1
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\sex.jpg"></center>'
	'You lay on your back. Witek lay on top and spread your legs.'
	dynamic $sexstart
	dynamic $sexstart2
	dynamic $sexcum
	act 'Leave.': gt 'gorodok'
	end
}

dick = 18
silavag = 2
$boy = 'Witek'
minut += 15
gs 'stat'
'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="images\qwest\alter\npc9.jpg"></center>'
'Vitek began groping and kissing you. "In short Svetsik off your clothes."'

	if vagina = 0 and sex = 0:
		if SchoolAtestat = 0:
			act 'I´m still a girl.':
			cls
			minut += 5
			gs 'stat'
			'You said Victor, you´re still a girl. He scratched his head, "That´s an ambush, but still not graduated from school. Well then take on canine or popets. Cheek If you take, I´ll fuck, will not tell anyone that you took in your mouth."'
			dynamic $din_kotov_bj
			dynamic $din_kotov_anal
			end
		else
			act 'I´m still a girl.':
			cls
			minut += 5
			gs 'stat'
			'You said Victor, you´re still a girl. He grinned, "C´mon, garbage, you finished school, an adult now. Not well, of course you can take on canine or popets."'
			dynamic $din_kotov_bj
			dynamic $din_kotov_anal
			dynamic $din_kotov_sex
			end
		end
	else
		act 'Undress.':
		cls
		minut += 5
		gs 'stat'
		'You quickly threw off their clothes and Vitek also undressed.'
		dynamic $din_kotov_sex
		if dom > 0: dynamic $din_kotov_anal
		end
	end
--- kotovSex ---------------------------------

# soniaDisco
	$din_sonia_dance = {
	act 'Approach Sonia':
	cls
	minut += 30
	gs 'stat'
	'<center><img src="images\qwest\alter\sonia\1.jpg"></center>'
	'You went to Sonya and told her that she had piled strap. Sonia smiled drunkenly and began awkwardly correct dress. To you came Witek Kotov and said "Cool tits." Sonya touched her nipple with a finger, "Really? You like" Kotov grinned "And how. You still sponges and cool, well probably suck." Sonya knocked cam Vic "Ofigel what?" Witek laughed "I´m talking about ice cream, what do you think?" Sonia embarrassed "You do not have ice cream!" Witek squinted slyly, "And if there? Pososesh?" Sonia licked "With pleasure." Witek ice cream out of his pocket and opened it. Sonia pulled her hands to the ice cream, but ice cream Witek deftly cleaned by Sonya "Just out of my hands."'
		act 'Watch':
		cls
		minut += 3
		horny += 5
		gs 'stat'
		'<center><img src="images\qwest\alter\sonia\2.jpg"></center>'
		'Sonia took her hands and opened her mouth. Vitek held ice cream lips and tongue Sony. Sonia began to suck dick like ice cream and cunningly look at Victor. Witek gradually lowered down to the level of its ice cream his pants and Sonia slowly squatted and continued to suck ice cream. Witek noticeably excited and reared him fly. Shulga and Auburn were watching with their mouths open. Auburn finally squeezed "Come into the street still buhnem."'

			act 'Staying at the disco':
			cls
			minut += 15
			dance += 1
			soniaPS = 1
			grupTipe[25] = -1
			$npcText[25] = 'Sonia once inadvertently drunk and fucked in the mouth in a circle Witek Kotov and his friends. After that, the girls shunned Sonya, and the boys thought she was a whore. Local gopota regularly drove to Sonia proposals have sex.'
			gs 'stat'
			'<center><img src="images\qwest\alter\sonia\7.jpg"></center>'
			'You were at the disco and continued to dance. Soon happy boys went to the disco, Kotov hand pulled Sonia, you got accustomed and gasped, her face was covered with cum. Boys began to laugh and call Sonia whore girls turned away with contempt. Sonia pulled her hand out of his hand and ran away with Vic discos.'
			act 'Go to the disco': gt 'gdkin'
			end

			act 'Go to the street':
			cls
			minut += 3
			horny += 5
			gs 'stat'
			'<center><img src="images\qwest\alter\sonia\3.jpg"></center>'
			'You went out with the company and went to the place where the booze. Sonia was staggering and finishing her ice cream. "Witek, and you have more ice cream?" Witek grinned "We find something. Syat squatted and close your eyes." Sonia giggling squatted and closed her eyes. Witek unbuttoned his pants and fell out of his pants his dick gets up. Sonia opened her eyes and drew back. She giggled, but did not get up on their feet. Vitek said quietly, "You can touch, it´s much better ice cream."'
		act 'Watch':
				cls
				minut += 3
				horny += 5
				gs 'stat'
				'<center><img src="images\qwest\alter\sonia\4.jpg"></center>'
		'Sonya watched spellbound as a member before his face and her hands went to the penis, she pointed a finger member and cock jerked, Sonia giggled and grabbed his dick small hands. Her slender fingers began stroking the skin on the penis. Vitek said strangled "Now try the taste, you´ll like it."'
					act 'Watch':
					cls
					minut += 3
					horny += 5
					gs 'stat'
					'<center><img src="images\qwest\alter\sonia\5.jpg"></center>'
					'Sonia brought her face to the penis and gingerly licked the head, then opened her lips and put prick in his mouth. Sonia began to suck dick slurping loudly. The other guys as teammates began to unbutton his pants and surround Sonya.'
						act 'Watch':
						cls
						minut += 3
						horny += 5
						gs 'stat'
						'<center><img src="images\qwest\alter\sonia\6.jpg"></center>'
						'Sonia surrounded boys and she began to suck their members did not resist and even with obvious pleasure. It took quite a bit of time and the guys in turn began to cum on face Sonya, covering his sperm.'
							act 'Watch':
							cls
							minut += 3
							horny += 5
							soniaPS = 1
							grupTipe[25] = -1
							$npcText[25] = 'Sonia once inadvertently drunk and fucked in the mouth in a circle Witek Kotov and his friends. After that, the girls shunned Sonya, and the boys thought she was a whore. Local gopota regularly drove to Sonia proposals have sex.'
							gs 'stat'
							'<center><img src="images\qwest\alter\sonia\7.jpg"></center>'
							'Finally the guys finished and cleaned members in his pants. Ryzhov said "We have to give the lads announced on vafleshe. Zashkvaryatsya And what about this whore." Shulga giggled "Classy cocksucker." Sonia drunkenly to her feet and leaned against the tree. flowed down her face sperm and you notice that the eyes of her tears flow. Sonia whispers "What have I done, you fool."'
							act 'Go to the disco': gt 'gdkin'
							end
						end
					end
				end
			end
		end
	end
	}


	gs 'stat'
	'<center><img src="images\qwest\alter\sonia\0.jpg"></center>'
	'To Vit''ka Kotov joined his cronies have Vasya you notice package where you can see the bottle. Vitek says your mind and turns to you. "Hey Svetsik. Then plunk We decided, let´s go with us."'

	act 'go thump':
	cls
	alko += 2
	minut += 15
	gs 'stat'
	'<center><img src="images\qwest\alter\sonia\0.jpg"></center>'
	'You along with the company went out and Bob took out a package of vodka, a piece of liver sausage, lemonade and a loaf of Pinocchio. Bob poured vodka into plastic cups and distributed. You drank vodka and choking zapili lemonade. Sonia too drunk. After that, everyone started talking. Vasya again poured vodka into glasses. You decided to skip and Sonya drank vodka. After that, she became noticeably opyanela and cheeky smile. "I want to dance. Come back."'
		act 'Go back to the disco':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\qwest\alter\sonia\1.jpg"></center>'
		'You´re back with the company on a disco and Sonia immediately ran to the dance floor. Sonia dancing so desperately that does not even notice that her bra strap fell down and see her naked breasts.'
		dynamic $din_sonia_dance
		end
	end

	act 'Refuse':
	cls
	minut += 30
	gs 'stat'
	'<center><img src="images\qwest\alter\sonia\1.jpg"></center>'
	'You refused and the company withdrew, after a while you see that Sonia guys returned to the disco and Sonia frankly drunk. Sonia goes to the dance floor and starts dancing. Sonia dancing so desperately that does not even notice that her bra strap fell down and see her naked breasts.'
	dynamic $din_sonia_dance
	end
--- soniaDisco ---------------------------------

# vokzalG
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Station</H4></center>'
'<center><img src="images\etogame\vokzal.jpg"></center>'
'Little quiet station. About <a href="exec:minut += 3 & GT ''vokzalGin''">Station</a> worth <a href="exec:minut += 5 & GT ''gkafe''">cafe</a>. Just outside the station is a small hotel, guesthouse, post office and police station.'
clr
gs 'stat'
gs 'time'

if kidalob = 0:
podrand = rand(0,3)
	if money >= 5000 and hour >= 8 and hour <= 20 and podrand = 0 and monthKidalo ! month:
	cls
	monthKidalo = month
	gs 'stat'
	'<center><H4>Station</H4></center>'
	'<center><img src="images\etogame\vokzal.jpg"></center>'
	'You go to the train station and to the right for you girl with a microphone and a man with a camera. The girl turns to you "Hello. We TV. Now passes unprecedented action - show on the distribution of gifts. We have chosen you." Girl pulls beautifully wrapped box with a bow and gives you. "Here laptop last generation."'
	act 'Leave': minut += 15 & gt $curloc
		act 'Mark the box':
		cls
		gs 'stat'
		'<center><H4>Station</H4></center>'
		'<center><img src="images\etogame\vokzal.jpg"></center>'
		'You took the box and the man began to take you on camera. The girl held up a microphone and proposed to refer greetings relatives and friends. You are standing in front of the box with a heavy camera sends greetings and thanks for the gift handed. Man and woman took all invited you to pay VAT on the value of the gift. This is just what that 5t thousands.'
			act 'Pay Tax':
			cls
			money -= 5000
			kidalob = 1
			gs 'stat'
			'<center><H4>Station</H4></center>'
			'<center><img src="images\etogame\vokzal.jpg"></center>'
			'You gave the money and began to print a gift. When you manage to open the box, you see that there is a brick wrapped in newspaper. You look around in search of men and women, but they were gone.'
				act 'Leave': minut += 15 & gt $curloc
			end
		end
	exit
	end
end

if kidalo = 0:
podrand = rand(0,3)
	if money >= 1000 and hour >= 8 and hour <= 20 and podrand = 0 and glamur > 0 and monthKidalo ! month:
	cls
	monthKidalo = month
	'<center><H4>Station</H4></center>'
	'<center><img src="images\etogame\vokzal.jpg"></center>'
	'Walking along the station you notice how near the station are two men. They notice you come up to you and talking among themselves. "Well, just the model, well, just kind of ... Claudia Schiffer" One of the guys in a representative suit comes up to you and says. "We are opening a new store your city and we need a woman for advertising. We offer you 30 thousand for the photograph on advertising."'
	act 'Leave': minut += 15 & gt $curloc
		act 'Agree':
		cls
		gs 'stat'
		'You willingly agree to such a tempting offer. Boys took you to build the site near the railway station, one of the guys pulled out a camera and put it in front of a tree with bushes. "Shoot will on natural background. So picturesque. Only here´s the problem, your dress glare. You need to change." The guy pulled out of the car´s trunk, and gave you a dress. "Can change clothes in the car" guy showed you that Audi was not far away.'
		act 'Leave': minut += 15 & gt $curloc
			act 'To change':
			cls
			gs 'stat'
			dress[numdress] = 0
			set numdress = 0
			set odetjeans = 0
			set odetyoga = 0
			set odetsarafan = 1
			set odetshort = 0
			set odetskirt = 0
			set odetdress = 0
			set odetprofi = 0
			set odetpants = 0
			set odetlatex = 0
			set odethooker = 0
			set odetkis = 0
			set odetnewclo = 0
			set odetero = 0
			set vatnik = 0
			set glamur = 0
			set sport = 0
			set ski = 0
			set hook = 0
			set ofclo = 0
			set sexual = 0
			if cumfrot > 0: set cumfrot = 0
			set nude = 0
			set odevnesh = 0
			!
			sarafan[3] = 2
			sarafanH[3] = 20
			'You got into the car and took off her dress. Then you put on her dress, which gave you a man.'
				act 'Pose':
				cls
				kidalo = 1
				gs 'stat'
				'You got out leaving their belongings in the car and went up to the tree. One of the guys stood behind the camera, the second bustles around you, showing you how to stand. The camera clicked. "So, now picture from the back," You stood with his back to the camera and heard a voice. "Excellent. Tepr slightly raised his head and close your eyes." You have done the instructions but no schelcha camera followed. Instead, the engine suddenly earned machine.'
				act 'Turn out':
					cls
					money = 0
					gs 'stat'
					'You turned around and saw that no camera no. Both men sit in the audit, which began to move and tore through the streets. You frantically realized that her dress and the money you have left in the car. You threw as last lohushku.'
					act 'Leave': minut += 15 & gt $curloc
					end
				end
			end
		end
	exit
	end
end

gs 'family'




act 'Go to the town': minut += 15 & gt 'gorodok'

act 'Exit to the northern highway': minut += 15 & nroad = 20 & gt 'road'


--- vokzalG ---------------------------------

# vokzalGin
$din_vokzalg_kassi = {
cls
gs 'stat'
'<center><H4>Cashier</H4></center>'
'<center><img src="images\qwest/alter/kassa.jpg"></center>'
'Ticket to the city costs 200 rubles.'
if money >= 200:
	act 'Buy a ticket to the Center (200 rubles)':
	cls
	money -= 200
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped at the station.'

		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped at the station.'

			act 'To go further':
			cls
			minut += 15
			gs 'stat'
			'<center><img src="images\etogame\electri.jpg"></center>'
			'After 15 minutes the train stopped at the station.'
				act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images\etogame\electri.jpg"></center>'
				'After 15 minutes the train stopped at the Centre.'

				act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal'
				end

				act 'Exit': minut += 5 & nroad = 5 & gt 'road'
			end

			act 'Exit': minut += 5 & nroad = 10 & gt 'road'
		end

		act 'Exit': minut += 5 & nroad = 15 & gt 'road'
	end
end
act 'Get away from banks': minut += 1 & gt 'vokzalGin'
}
$din_vokzalg_kabinet = {
cls
gs 'stat'
'You came to the office of chief of station. About cabinet hanging ad "Wanted lady. 2 hours of work at any time, the salary of 50 rubles a day."'
act 'Leave': minut += 1 & gt 'vokzalGin'
	if hour >= 8 and hour <= 16:
		act 'Login to Account':
		cls
		gs 'stat'
		'You knocked on the door and entered the office of the chief. Elderly man distracted from scribbling and looked at you "On what issue?"'

		act 'Leave': minut += 1 & gt 'vokzalGin'
			if vokzalVork = 0:
				act 'Arranged a cleaner':
				cls
				vokzalVork = 1
				minut += 15
				gs 'stat'
				'You said that you would like to apply cleaner. Chief of station delighted obviously that nobody wants to work for such meager wages. He recorded your data and explained. You´ll have to wash the floors at the station and clean toilets. How to do it, so get 50 rubles. If something does not have time, you will not receive anything. Then you came out of his office and he showed pantry that stores inventory.'
				act 'Leave': minut += 1 & gt 'vokzalGin'
				end
			end
		end
	end
}
$din_vokzalg_toilet_deyst = {
	if hapri = 0:
		act 'comb your hair':
		cla
		set minut = minut + 3
		set hapri = 1
		 if vokzalToilet=1:act 'finish':dynamic $din_vokzalg_toilet_f
		 if vokzalToilet=2:act 'finish':dynamic $din_vokzalg_toilet_m
		end
	end

	if mop = 1 and kosmetica > 0:
		act 'apply makeup':
		cla
		*clr
		'<center><img src="pic\mop.jpg" ></center>'
			act 'Light make-up':
			cla
			set minut = minut + 3
			set kosmetica = kosmetica - 1
			set mop = 2
			'You legonechko summed eyes and lips a little tint.'
			if vokzalToilet=1:act 'finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet=2:act 'finish':dynamic $din_vokzalg_toilet_m
			end

			if kosmetica >= 2:
				 act 'normal makeup':
				 cla
				 set minut = minut + 5
				 set kosmetica = kosmetica - 2
				 set mop = 3
				 'You lipstick, summed up the eyes and eyelids.'
				if vokzalToilet=1:act 'finish':dynamic $din_vokzalg_toilet_f
				if vokzalToilet=2:act 'finish':dynamic $din_vokzalg_toilet_m
				 end
			end

			if kosmetica >= 3:
				 act 'Challenging makeup':
				 cla
				 set minut = minut + 10
				 set kosmetica = kosmetica - 3
				 set vidageday = vidageday - 1
				 set mop = 4
				 'You densely nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.'
				if vokzalToilet=1:act 'finish':dynamic $din_vokzalg_toilet_f
				if vokzalToilet=2:act 'finish':dynamic $din_vokzalg_toilet_m
				 end
			end
		end
	end

	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
		act 'Wash up (0:15)':
		cla
		*clr
		dynamic $showerdin
		set sweat -= 1
		set minut += 15
		'<center><img src="images\pics\wash5.jpg"></center>'
		'You carefully washed sperm with yourself.'
		if vokzalToilet = 1: act 'Finish': dynamic $din_vokzalg_toilet_f
		if vokzalToilet = 2: act 'Finish': dynamic $din_vokzalg_toilet_m
		end
	end

	if cumlip > 0 or cumface > 0:
		act 'Wash cum off face (0:15)':
		cla
		*clr
		set mop = 1
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 15
		'<center><img src="images\etogame\facesp.jpg"></center>'
		'You carefully washed sperm from her face.'
		if vokzalToilet = 1: act 'Finish': dynamic $din_vokzalg_toilet_f
		if vokzalToilet = 2: act 'Finish': dynamic $din_vokzalg_toilet_m
		end
	end

	if cumfrot > 0:
		act 'Wipe the cum from clothing (0:15)':
		cla
		*clr
		set cumfrot = 0
		set sweat -= 1
		set minut += 15
		'<center><img src="images\etogame\frotsp.jpg"></center>'
		'You erase traces of semen from the clothes.'
		if vokzalToilet = 1: act 'Finish': dynamic $din_vokzalg_toilet_f
		if vokzalToilet = 2: act 'Finish': dynamic $din_vokzalg_toilet_m
		end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		if vokzalToilet = 1: act 'Finish': dynamic $din_vokzalg_toilet_f
		if vokzalToilet = 2: act 'Finish': dynamic $din_vokzalg_toilet_m
		end
	end

	if horny >= 90:
		act 'Masturbate':
		cls
		gs 'stat'
		'<center><img src="images\qwest\alter\Ev\mastr.jpg"></center>'
		'You closed booth, removed the pants and sat on the toilet.'
		'Your fingers began to caress expiring pussy juice and you started to rub her clit.'
		orgasm += 1
		mastr += 1
		horny = 0
		gs 'stat'
		'Soon pleasant wave began to spread throughout the body and you covered a very powerful orgasm.'
		if vokzalToilet = 1: act 'Finish': dynamic $din_vokzalg_toilet_f
		if vokzalToilet = 2: act 'Finish': dynamic $din_vokzalg_toilet_m
		end
	end
}

$din_vokzalg_toilet_f = {
cls
gs 'stat'
vokzalToilet = 1
'<center><H4>Women´s WC</H4></center>'
'<center><img src="images\pic/PublicToilet.jpg"></center>'
'You opened the door to women taulet and went inside.'
act 'Leave': minut += 1 & dynamic $din_vokzalg_toilet
dynamic $din_vokzalg_toilet_deyst
}
$din_vokzalg_toilet_m = {
cls
gs 'stat'
vokzalToilet = 2
'<center><H4>Male toilet</H4></center>'
'<center><img src="images\pic/PublicToilet.jpg"></center>'
'You opened the door to the men´s room and went inside.'
if cloth_vid=1:
	act 'Stand and wait for the adventure.':gt'vokBimbo','pos1'
	act 'Go into the booth':gt'vokBimbo','pos5'
end
act 'Leave': minut += 1 & dynamic $din_vokzalg_toilet
dynamic $din_vokzalg_toilet_deyst
}
$din_vokzalg_toilet = {
cls
gs 'stat'
vokzalToilet = 0
'<center><H4>Station</H4></center>'
'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
'You are logged in to be where the wing station <a href="exec:minut += 1 & dynamic $din_vokzalg_toilet_f">female</a> and <a href="exec:minut += 1 & dynamic $din_vokzalg_toilet_m">men´s</a> toilet.'
act 'Leave': minut += 1 & gt 'vokzalGin'
}
$din_vokazalg_podbros2 = {
cls
gs 'stat'
'You showed your money man and he said that this was the sum and not enough in his wallet. The man demanded that you returned the money.'
	act 'Money back':
	cls
	money = 0
	podbros = 1
	gs 'stat'
	'<center><H4>Station</H4></center>'
	'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
	'You gave the man his money, that would not contrive a scandal and not to be attracted by the police for theft.'
		act 'Leave': minut += 1 & gt 'vokzalGin'
	end
}
$din_vokzalg_podbros = {
cls
gs 'stat'
'<center><H4>Station</H4></center>'
'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
'You cant raise the purse and then some sort of slim girl leans to the purse. You are catching the first to raise the purse and she offers to step aside and share the money.'

act 'Go with a purse':
cls
gs 'stat'
'<center><H4>Station</H4></center>'
'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
'You took the purse and went to the door, the girl began loudly yelling that you stole a purse. To you approached by a man who lost wallet and demanded it back. You gave the man purse, he counted the money and said that the purse is not enough large sum of money. Then he asked, what would you show him your money.'
	act 'Show money': dynamic $din_vokazalg_podbros2
end

act 'Giving purse and go': minut += 1 & gt 'vokzalGin'

act 'Step aside and share the money':
cls
gs 'stat'
'<center><H4>Station</H4></center>'
'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
'You went to one side with a girl and got a purse that would share the money. You divided the money on a flat and gave half girl, thrusting the remaining money in your pocket. At this point, a man came up to you, lost wallet. He took the wallet out of your hands. He counted the money and said that the purse is not enough large sum of money. Then he asked, what would you show him your money.'
	act 'Show money': dynamic $din_vokazalg_podbros2
end
}
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
$metka = $ARGS[0]
$loc = $CURLOC
frost = 0
'<center><H4>Station</H4></center>'
'<center><img src="images\qwest/alter/vokzal.jpg"></center>'
'In the center of the station waiting room and <a href="exec:dynamic $din_vokzalg_kassi">Case</a> with the scoreboard. In one wing are <a href="exec:dynamic $din_vokzalg_kabinet">offices bosses</a>, and in the other <a href="exec:minut += 1 & dynamic $din_vokzalg_toilet">Toilets</a>.'
clr
gs 'stat'

if podbros = 0:
podrand = rand(0,1)
	if money >= 1000 and hour >= 8 and hour <= 20 and podrand = 0:
		'Walking along the station you notice how a man falls thick <a href="exec:dynamic $din_vokzalg_podbros">purse</a>.'
	end
end

act 'Leave': minut += 3 & gt 'vokzalG'

if vokzalVork >= 1:
	if cleZalDay ! day:
		act 'Mopping the floor in the waiting room':
		cls
		cleZalDay = day
		minut += 60
		sweat += 1
		vital += RAND(0,1)
		stren += RAND(0,1)
		gs 'stat'
		'<center><img src="images\etogame\clener1.jpg"></center>'
		'You took inventory, poured water into a bucket and began to wash the floor in the waiting room.'
		act 'Leave': minut += 1 & gt 'vokzalGin'
		end
	end
	if cleMTDay ! day:
		act 'Mopping the floor in the men´s room':
		cls
		cleMTDay = day
		minut += 30
		sweat += 1
		vital += RAND(0,1)
		stren += RAND(0,1)
		gs 'stat'
		'<center><img src="images\etogame\clener1.jpg"></center>'
		'You took inventory, poured water into a bucket and went to the men´s room.'
		!if gloryholeVokzal = 9:gloryholeVokzal = 10 & ''
		!if gloryholeVokzal = 8:gloryholeVokzal = 9 & ''
		!if gloryholeVokzal = 6:gloryholeVokzal = 7 & ''
		!if gloryholeVokzal = 5:gloryholeVokzal = 6 & ''
		!if gloryholeVokzal = 4:gloryholeVokzal = 5 & ''
		!if gloryholeVokzal = 3:gloryholeVokzal = 4 & ''
		!if gloryholeVokzal = 2:gloryholeVokzal = 3 & ''
		if gloryholeVokzal = 1: gloryholeVokzal = 2 & 'You notice that on the floor near the hole in the wall located in one of the booths what that strange white drops. You started to wipe them off the floor cloth and realized that it was sperm.'
		if gloryholeVokzal = 0: gloryholeVokzal = 1 & 'You saw in one of the walls is fenced off from each other lockers circular opening at the waist. You curiously examined the smooth opening and proceeded to clean with a shrug.'
		'You began to wash the floor in the men´s room, and then began to scrub toilets.'
		act 'Leave': minut += 1 & gt 'vokzalGin'
		end
	end
	if cleWTDay ! day:
		act 'Mopping the floor in the women´s restroom':
		cls
		cleWTDay = day
		minut += 30
		sweat += 1
		vital += RAND(0,1)
		stren += RAND(0,1)
		gs 'stat'
		'<center><img src="images\etogame\clener1.jpg"></center>'
		'You took inventory, poured water into a bucket and began to wash the floor in the ladies'' room, and then began to scour bowls.'
		act 'Leave': minut += 1 & gt 'vokzalGin'
		end
	end
	if cleMTDay = day and cleWTDay = day and cleZalDay = day and cleZarplatDay ! day:
		act 'Get salary':
		cls
		cleZarplatDay = day
		vokzalVork += 1
		money += 50
		minut += 3
		gs 'stat'
		'You went to the cashier and got their money.'
		act 'Leave': minut += 1 & gt 'vokzalGin'
		end
	end

end
--- vokzalGin ---------------------------------

# volley
gs 'stat'
'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
'Teams took to the field and started playing.'
if volleysostav = 1: 'You sit on the bench watching your team plays.'
act 'Leave': gt 'gdksport'
act 'Go to coaching': gt 'Voltrener'
--- volley ---------------------------------

# Voltrener
	$din_trener_bj = {
		act 'give blowjob':
		cls
		bj += 1
		if trenerSex > 0: trenerSex += 1
		if trenerSex = 0: trenerSex = 1 & guy += 1
		if volleysostav > 0: trenerepa += 2
		gs 'stat'
		'<center><img src="images\qwest\alter\ev\tren.jpg"></center>'
		'You squatted in front of the coach and stroked his crotch and felt how his cock stood up. You reached into his sweatpants gum holding with the other hand and groped hot cock trainer. You pulled the standing member of sweatpants and leaned toward him around his lips.'

			if trenerSex >= 5:

			end

			if tipTrsex = 0:
			cumlip += 1
			swallow += 1
			gs 'stat'
			'Coach groaned slightly and your mouth spurted warm jet of sperm. You started to swallow warm liquid fills your mouth.'
			end

			if volleysostav = 0:
			volleysostav = 1
			trenerepa = 20
			'Coach bosses cock in his pants. "Okay <<$surname>>, you are very diligent girl, maybe you will come out of sense, consider that you have a team, but of course in replacement players."'
			end
		if tipTrsex = 0: act 'Leave': tipTrsex = 0 & gt 'gdksport'
		end
	}
	$din_trener_gorslut = {
	gs 'stat'
	'You reluctantly nodded his head, "It´s true, I really <<$gnikname>>. And what does this have to volleyball?" Coach smiled, "Indirect attitude, very indirectly, we´re now discussing how you get into the team. And I wonder what you can do. You know what I Gauvreau?"'
		act 'No':
		cls
		gs 'stat'
		'You shake your head and told the coach that do not understand the coach sighed, "And you do not mind bleschesh, is not it? Well, I lonely man, and all around a pretty young girl. So clear?"'
		act 'Leave': gt 'gdksport'
		dynamic $din_trener_bj
		end

		act 'Coach put his hand on her knee':
		cls
		gs 'stat'
		'You leaned forward slightly and put her palm on his knee coach grin you whispered "Need a little demonstration of my other skills? I understand you correctly?" Coach leaned back in his chair, "You´re a smart girl of <<$name>>, go on."'
		dynamic $din_trener_bj
		end
	}

	gs 'stat'
	'<center><img src="images\qwest\alter\gdksport.jpg"></center>'
	'You went into the room the coach in which there are cups, balls, sports equipment and a different table where sometimes sitting coach and fills various papers. Coach Mikhail Vlasov does not only lovers but also in the section just coach a professional team volleybolistok.'
	if volleysostav > 0:
	if trenerepa < 20: 'The coach does not wish you any longer.'
	if trenerepa >= 20 and trenerepa < 40: 'Coach barely tolerates you.'
	if trenerepa >= 40 and trenerepa < 60: 'You have a normal relationship with the coach.'
	if trenerepa >= 60 and trenerepa < 80: 'You have a good relationship with the coach.'
	if trenerepa >= 80: 'Trainer in you doted.'
		if trenerepa <= 0:
		volleysostav = -1
		'Coach menacing appeals to you. "All <<$surname>>, you make me sick with their flourishes. I´ll exclude from the team!"'
		act 'Leave': gt 'gdksport'
		exit
		end

	end
		act 'Talk with the coach':
		cls
		gs 'stat'
			if volleysostav = -1:
				if trenerSex = 0:
				'Coach looked up at you, "<<$surname>>. Did not even come near me. Longer I´ll put you in command!"'
				end
				if trenerSex > 0:
				'Coach looked up at you, "<<$surname>>. Did not even come near me. Longer I´ll put you in the team!"'
				end
			end
		if volleysostav = 0:
				if volleyboll < 25:
				'Coach looked at you "And <<$surname>>. Do not distract me from things."'
				end
				if volleyboll >= 25 and volleyboll < 50:
				'Coach looked at you "And <<$surname>>. You need to devote more time to training, you are all very bad."'
				end
				if volleyboll >= 50 and volleyboll < 75:
				'Coach looked at you "And <<$surname>>. You certainly did not play bad, but not bad for an amateur. Higher level you do not you pull."'
				end
				if volleyboll >= 75:
				'Coach looked at you "And <<$surname>>. Do you have the makings of athletes, though I´m not sure that at the professional level you get that either."'
					act 'Asks the pros':
					cls
					gs 'stat'
					if GorSlut = 0:
							if volleyboll < 100:
							'You started to ask the coach to include you in command, but he shook his head. "<<$surname>> is not buried, you have a good amateur level. Potyanesh But you do not."'
							end
							if volleyboll >= 100:
							'You started to ask the coach to include you in the team, the coach thought. "Of course you can try to include you in the replacement, but I do not even know if I should."'
								act 'Persuade':
								cls
								dom -= 1
								gs 'stat'
									if dom >= 10:
									!if volleysostav > 0:trenerepa -= 1
									volleysostav = 1
									trenerepa = 20
									'You started to prove the coach that you want to include in the team, the coach tried to protest, but your head was so convincing that he eventually gave up. "Okay <<$surname>>, I´ll put you in command until naturally only in the bench."'
									else
									'You started to prove the coach that you want to include in the team, but failed to show sufficient vigor and coach threw all your arguments denying you.'
									end
								act 'Leave': gt 'gdksport'
								end
							end
					end
					if GorSlut > 0:
					'You started to ask the coach to include you in the. Coach thought, "Hey <<$surname>>, then other devchoki about you say different things. Example you <<$gnikname>>. Is that true?"'
							act 'It´s all lies':
							cls
							gs 'stat'
								if dom > 0:
								'You started to prove the coach that rumors about you it´s all lies and dismiss them envious. You said quite convincingly and coach seems to believe.'
									act 'Make sure to include the team':
									cls
									dom -= 1
									gs 'stat'
										if dom >= 10:
										!if volleysostav > 0:trenerepa -= 1
										volleysostav = 1
										trenerepa = 20
										'You started to prove the coach that you want to include in the team, the coach tried to protest, but your head was so convincing that he eventually gave up. "Okay <<$surname>>, I´ll put you in command until naturally only in the bench."'
										else
										'You started to prove the coach that you want to include in the team, but failed to show sufficient vigor and coach threw all your arguments denying you.'
										end
									act 'Leave': gt 'gdksport'
									end
								else
								'You started to prove the coach that rumors about you it´s all lies and dismiss them envious. You said not very convincing and coach you frankly do not believe. "<<$surname>>, stop lying, You´re holding me for a fool?"'
									act 'Okay, it´s true, I <<$gnikname>>':
									cls
									gs 'stat'
									dynamic $din_trener_gorslut
									end
								end
							act 'Leave': gt 'gdksport'
							end

							act 'It´s true, I <<$gnikname>>':
							cls
							gs 'stat'
							dynamic $din_trener_gorslut
							end

					end
					act 'Leave': gt 'gdksport'
					end
				end
			end
			if volleysostav > 0:
				if trenerSex = 0:
				'Coach looked at you "And <<$surname>>. Do not distract me from things."'
				end
				if trenerSex > 0:
				'Coach looked at you "And <<$surname>>. Done for coming."'
					act 'Coach put his hand on her knee':
					cls
					gs 'stat'
					'You leaned forward slightly and put her palm on his knee coach grin you whispered "Need a little demonstration of my skills? I understand you correctly?" Coach leaned back in his chair, "You´re a smart girl of <<$name>>, go on."'
					dynamic $din_trener_bj
					end
				end
			end
		act 'Leave': gt 'gdksport'
		end
	act 'Leave': gt 'gdksport'
--- Voltrener ---------------------------------

# soba
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
gs 'stat'
'<center><img src="images\zoo\dog2.jpg"></center>'
clr
if zoo >= 3 and zoodogonceday ! day: zoodogonceday = day & gt 'soba', 'hardcoredog'
if horny >= 50 and vagina > 0 and husband = 0: act 'Play with <<$namesob>>th': gt 'soba','gamedog'
if husband > 0 and week < 6 and hour < 17 and hour > 7: act 'Play with <<$namesob>>th': gt 'soba','gamedog'
	act 'Even walk <<$namesob>>':
	cls
	'<center><img src="images\zoo\dog_walk.jpg"></center>'
	'<center><b>You are grazed his <<$namesob>>and</center></b>'
	set minut += 30
	gs 'stat'
	act 'The house': gt 'korr'
		if horny >= 70 and zoo > 0 and streetdogday ! day: act 'Coitus': dynamic $polactdog
	end
act 'Leave': gt 'korr'
act 'Take on euthanasia':
	set sobaka = 0
	set zoo = 0
	set minut += 60
	gt 'korr'
	end
end

if $ARGS[0] = 'gamedog':
cla
*clr
horny += 30
gs 'stat'
'<center><img src="images\zoo\1.jpg"></center>'
'I called <<$namesob>>and to his bed, that would play with him. I kissed him, played with legs, stroking his neck and stomach. Suddenly, I have a pussy starts to itch. I can not understand why, but I strongly wanted sex. Suddenly I saw a member of his stallion. I came up with the idea completely obezbashennoy. I wanted to play with this member.'

act 'Leave': dom += 5 & gt 'korr'


	act 'Writing lick':
	cla
	*clr
	'<center><img src="images\zoo\2.jpg"></center>'
	'I leaned back against the wall and spread her legs. I handed my dog ​​helped find my hole. My stallion understood, and began to lick my pussy with his tongue. It was strange and nice. His tongue licked all at once. It was very unusual. I decided to change the posture.'
		act 'Change position':
		cla
		set horny += 10
		set minut += 10
		set os += 10
		*clr
		'<center><img src="images\zoo\4.jpg"></center>'
		'He licks my pussy with his tongue with a rough surface. For the full experience, I Spreading their delicate fingers pussy lips.'
		act 'More actions': gt 'soba','gamedog'
		end
	end

	act 'Take by mouth':
	set os += 10
	set horny += 10
	set minut += 10
	cla
	*clr
	'<center><img src="images\zoo\3.jpg"></center>'
	'I herded the dog on the floor, and turned her back to yourself. With one hand I took the balls. Then I closed my eyes and tongue touched the penis. From an unusual member of the dog to lick, I realized that it´s not so scary. I suck this dick until the swelling and the appearance of the venous network. When it reaches the desired size, I substituted him her pussy.'
	act 'More actions': gt 'soba','gamedog'
	end

	if os > 20:
		act 'Insert dick in pussy':
		set horny += 30
		set minut += 10
		cla
		*clr
		gs 'stat'
		'<center><img src="images\zoo\5.jpg"></center>'
		'Having reached the desired size, excited body goes into my wet cunt. Vaginal sex with a pet is very unusual way. Dog fuck me powerful spurts. He placed deep in my crotch. And this animal brought me to orgasm. I shuddered, and holding their feet and cock, which was inside of me, and I cried. <<$namesob>>of this stuck it out and he began to tremble. It became clear what will happen next. I should very quickly up your face, that would not miss the chance to get this white liquid of my pet.'
			act 'Substitute person':
			set orgasm += 1
			set horny = 0
			set minut += 5
			set zoo += 1
			set swallow += 1
		set cumface += 1
		set vagina += 1
		set throat += 1
			set os = 0
			cla
		*clr
		gs 'stat'
		'<center><img src="images\zoo\9.jpg"></center>'
		'My sex with a dog completes a powerful ejaculation, which shelled and smear all over my face, even got a few drops in the mouth. Taste natural juices - sperm, I loved.'
			if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
		act 'Release <<$namesob>> and get': gt 'korr'
		end
		end
	end
end

if $args[0] = 'hardcoredog':
cla
*clr
'<center><img src="images\zoo\zoof.jpg"></center>'
'You came to <<$namesob>> in doggie was in a playful mood,'
'he began to wag his tail and nose poke you between her legs.'
	act 'Kiss <<$namesob>>':
	cla
	*clr
	'<center><img src="images\zoo\zoof1.jpg"></center>'
	'You framed face to face <<$namesob>>, and stuck a reed'
	act 'Go with <<$namesob>> in the bedroom':
		set horny += 10
		set minut += 5
		cla
		*clr
		gs 'stat'
		'You undress and lie down on the bed put my vagina <<$namesob>>, he begins to lick her carefully lick your pussy'
		'<center><img src="images\zoo\spa.jpg"></center>'
		' You get wet'
		act 'Wank dick dog':
			set horny += 10
			set minut += 5
			cla
			*clr
			gs 'stat'
			'You nadrachival member <<$namesob>>'
			'<center><img src="images\zoo\sog.jpg"></center>'
			' Since you begin to pour juices'
			act 'Take in mouth <<$namesob>>':
				set horny += 10
				set minut += 5
				cla
				*clr
				gs 'stat'
				'You lick dick <<$namesob>> choking on saliva'
				'<center><img src="images\zoo\spa1.jpg"></center>'
				' You start to go crazy with excitement'
				act 'Doggy-Style before <<$namesob>>':
					set horny += 10
					set minut += 5
					cla
					*clr
					gs 'stat'
					'Kobelek jumps on you and starts to rub a member of your vagina'
					'<center><img src="images\zoo\spa2.jpg"></center>'
					' You or what not soobrozhaete of sexual desire'
					act 'lie on your back and help him get in <<$namesob>>':
						set minut += 5
						cla
						*clr
						gs 'stat'
						'You lays down on his back legs and pushes the stick in his dick hole in its expiring'
						'<center><img src="images\zoo\spa3.jpg"></center>'
						act 'hug legs <<$namesob>>':
							set minut += 5
							cla
							*clr
							gs 'stat'
							'You cuddle up to her dog legs and fuck with him'
							'<center><img src="images\zoo\spa4.jpg"></center>'
							' Covers you orgasm but you can not stop here'
							act 'fill <<$namesob>> on the back and jump on his cock':
								set minut += 5
								cla
								*clr
								gs 'stat'
								'You jump on the penis male'
								'<center><img src="images\zoo\spa5.jpg"></center>'
								' You just mad with sex'
								act 'Crustaceans stand before doggie':
									set minut += 5
									cla
									*clr
									gs 'stat'
									'You jumped off a bent penis and cancer'
									'<center><img src="images\zoo\spa6.jpg"></center>'
									' <<$namesob>> jumped on you and threw you a member of your broken-down pussy.'
									'You feel that he is ready to be discharged'
									act 'Merge with the dog in orgasm':
										set zoo += 1
										set swallow += 1
										set vagina += 1
										set throat += 1
										set orgasm += 1
										set minut += 5
										set horny = 0
										set cumpussy += 1
										cla
										*clr
										gs 'stat'
										'You clung to the dog and he razryazhaetsya in you'
										'<center><img src="images\zoo\spa7.jpg "></center>'
										'Member <<$namesob>> grappled with vashoy vagina in a strong castle'
										act 'Get out of bed': gt 'korr'
										if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
										end
									end
								end
							end
						end
					end
				end
			end
		end
	act 'Go with <<$namesob>> the hall':
		cla
		*clr
		'<center><img src="images\zoo\zoof3.jpg"></center>'
		'You went into the hall undressed and sat on the sofa, <<$namesob>> very excited and began to jump on you'
		act 'try to push <<$namesob>>':
			cla
			*clr
			'You tried to throw off the dog, but <<$namesob>> no longer process any attention to your attempts'
			'<center><img src="images\zoo\zoof 4.jpg"></center>'
			act 'Continue to resist <<$namesob>>':
				cla
				*clr
				'Your struggle with <<$namesob>> failed,'
				'<center><img src="images\zoo\zoof5.jpg"></center>'
				'<<$namesob>> lot of stuff on the couch and went into your pussy'
				'<center><img src="images\zoo\zoof6.jpg"></center>'
				act 'Hug legs and fuck <<$namesob>>':
					cla
					*clr
					gs 'stat'
					'You surrendered passion with his doggie'
					'<center><img src="images\zoo\zoof7.jpg"></center>'
					'You covered orgasm'
					act 'Take charge of semen in the mouth': gt 'soba', 'cumshot1'
					act 'Let cums in pussy': gt 'soba', 'cumshot2'
					end
				end
			end
		act 'Substitute the ass <<$namesob>>':
			cla
			*clr
			gs 'stat'
			'You povarachivaetsya back and gets cancer'
			'<center><img src="images\zoo\zoof10.jpg"></center>'
			' take the term <<$namesob>>and go in his hole <<$namesob>> finished off with all the force you'
			'<center><img src="images\zoo\zoof9.jpg"></center>'
			act 'Take charge of semen in the mouth': gt 'soba', 'cumshot1'
			act 'Let cums in pussy': gt 'soba', 'cumshot2'
			end
		end
	act 'Leave': gt 'korr'
	end

	act 'Even walk <<$namesob>>':
	cla
	*clr
	'<center><img src="images\zoo\dog_walk.jpg"></center>'
	'<center><b>You are grazed his <<$namesob>>and see that he was very excited</center></b>'
	set minut += 10
	act 'The house': gt 'korr'
	set minut += 10
	gs 'stat'
		act 'Go to a private place':
		cla
		*clr
		'Do you give <<$namesob>> into the woods behind the house, pick up his dick and start nadrachivat'
		'<center><img src="images\zoo\yl1.jpg"></center>'
			act 'Take off underwear and bend':
			set horny += 10
			set minut += 5
			cla
			*clr
			gs 'stat'
			'You bend down before <<$namesob>>, he begins to lick your pussy'
			'<center><img src="images\zoo\yl2.jpg"></center>'
			'You chustvuete that starts to get wet between the legs'
				act 'Suck dick in <<$namesob>>':
				set horny += 10
				set minut += 10
				cla
				*clr
				gs 'stat'
				'You greedily suck dick <<$namesob>>'
				'<center><img src="images\zoo\yl3.jpg"></center>'
				' This is even more exciting and you want to have sex'
				act 'Shove dick in pussy': gt 'soba', 'zoof14'
				act 'Doggy-Style before <<$namesob>>': gt 'soba', 'zoof15'
				end
			end
		end
	end
end

if $args[0] = 'cumshot2':
cla
*clr
	set zoo += 1
	set swallow += 1
	set vagina += 1
	set throat += 1
	set cumlip += 1
	set orgasm += 1
	set horny = 0
	set minut += 25
	cla
	*clr
	gs 'stat'
	'<<$namesob>> discharges into your vagina, you stick together with the dog in passion'
	'<center><img src="images\zoo\zoof8.jpg"></center>'
	'You covered orgasm'
	if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
	act 'Leave': gt 'korr'
end

if $args[0] = 'cumshot1':
cla
*clr
	set zoo += 1
	set swallow += 1
	set vagina += 1
	set throat += 1
	set cumpussy += 1
	set orgasm += 1
	set horny = 0
	set minut += 25
	cla
	*clr
	gs 'stat'
	'<<$namesob>> is discharged into the mouth'
	'<center><img src="images\zoo\zoof11.jpg"></center>'
	'You covered orgasm'
	if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
	act 'Leave': gt 'korr'
end

if $args[0] = 'zoof14':
cla
*clr
	set orgasm += 1
	set horny = 0
	set minut += 5
	set zoo += 1
	set swallow += 1
	set vagina += 1
	set throat += 1
	set cumpussy += 1
	cla
	*clr
	gs 'stat'
	'You take the term <<$namesob>> and start to fuck them selves'
	'<center><img src="images\zoo\yl4.jpg"></center>'
	'Dog discharged you, you sodragaetes orgasm'
	if REXQW = 0: act 'Look around': gt 'soba', 'zoof16'
	act 'Go home': gt 'korr'
end

if $args[0] = 'zoof15':
cla
*clr
	set orgasm += 1
	set horny = 0
	set minut += 5
	set zoo += 1
	set swallow += 1
	set vagina += 1
	set throat += 1
	set cumpussy += 1
	cla
	*clr
	gs 'stat'
	'You turn your back on <<$namesob>> he jumps on you and starts fucking'
	'<center><img src="images\zoo\yl5.jpg"></center>'
	'Dog discharged you, you sodragaetes orgasm'
	if REXQW =0: act 'Look around': gt 'soba', 'zoof16'
	act 'Go home': gt 'korr'
end

if $args[0] = 'zoof16':
	cla
	*clr
	'You notice in the bushes with his pants Woman'
	'<center><img src="images\zoo\yl6.jpg"></center>'
	act 'Talk':
		set minut += 5
		cla
		*clr
		gs 'stat'
		'You go up to her, thinking how to start a conversation'
		'"You see I´m keen doggie?" - She suddenly starts talking'
		'YES! - Joyfully exclaimed you'
		'"Come see me talk about your hobby" - said the girl, threw you a business card and left'
		'<center><img src="images\zoo\yl6.jpg"></center>'
		set REXQW = 1
		act 'Go home': gt 'korr'
	end
end

if $args[0] = 'zoof27':
cla
*clr
set minut += 5
	cla
	*clr
	gs 'stat'
	'You called <<$namesob>>'
	'<center><img src="images\zoo\kuh2.jpg "></center>'
	'He ran to the kitchen wagging his tail'
	act 'Undress and give the dog to lick':
		set zoo += 1
		set minut += 10
		set swallow += 1
		set throat += 1
		set orgasm += 1
		cla
		*clr
		gs 'stat'
		'You shoot yourself with things and substitute Kobel''kov pussy, he carefully licks her'
		'<center><img src="images\zoo\kuh1.jpg"></center>'
		' Orgasm you covered'
		if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
		act 'Dress and come': gt 'korr'
	end
	act 'Undress and stand in front of dog cancer':
	set zoo += 1
	set minut += 10
	set swallow += 1
	set vagina += 1
	set throat += 1
	set orgasm += 1
		cla
		*clr
		gs 'stat'
		'You stand up doggy dog ​​jumps on you and starts fucking'
		'<center><img src="images\zoo\kuh.jpg"></center>'
		' Orgasm you covered'
		if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
		act 'Dress and come': gt 'korr'
	end
end


if $args[0] = 'zoof30':
cla
*clr
set minut += 5
	cla
	*clr
	gs 'stat'
	'You undressed and called <<$namesob>>'
	'<center><img src="images\zoo\kuh2.jpg "></center>'
	'He ran into the hall delighted as a child'
	act 'Lie down on the sofa and spread her legs':
		set horny += 10
		set minut += 10
		cla
		*clr
		gs 'stat'
		'Kobelek ran up to you and started to lick between your legs'
		'<center><img src="images\zoo\zal1.jpg"></center>'
		' You swept excitation'
		act 'Lie on the floor and spread her legs':
			set horny += 10
			set minut += 10
			cla
			*clr
			gs 'stat'
			'Dog looming over you and rubbed member'
			'<center><img src="images\zoo\zal4.jpg"></center>'
			' Between his legs became wet'
			act 'Doggy-Style and give the dog': gt 'soba', 'doganalstile'
			act 'Embrace the feet and take dick': gt 'soba', 'dogpussystile'
		end
	end
	act 'Die of cancer and substitute pussy':
		set horny += 10
		set minut += 10
		cla
		*clr
		gs 'stat'
		'Kobelek ran up to you and started to lick between your legs'
		'<center><img src="images\zoo\zal.jpg"></center>'
		' You swept excitation'
		act 'Lie on the floor and spread her legs':
			set horny += 10
			set minut += 10
			cla
			*clr
			gs 'stat'
			'Dog looming over you and rubbed member'
			'<center><img src="images\zoo\zal4.jpg"></center>'
			' Between his legs became wet'
			act 'Doggy-Style and give the dog': gt 'soba', 'doganalstile'
			act 'Embrace the feet and take dick': gt 'soba', 'dogpussystile'
		end
	end
end

if $args[0] = 'doganalstile':
cla
*clr
	set zoo += 1
	set minut += 10
	set swallow += 1
	set vagina += 1
	set throat += 1
	set orgasm += 1
	cla
	*clr
	gs 'stat'
	'You stand up doggy dog ​​jumps on you and starts fucking'
	'<center><img src="images\zoo\zal3.jpg"></center>'
	' Orgasm you covered'
	if REXQW = 1: act 'Call Sonia': gt 'soba', 'dzoof1'
	act 'Dress and come': gt 'korr'
end

if $args[0] = 'dogpussystile':
cla
*clr
	set zoo += 1
	set minut += 10
	set swallow += 1
	set vagina += 1
	set throat += 1
	set orgasm += 1
	cla
	*clr
	gs 'stat'
	'You obhatyvaete his feet, a member easily finds its way into your pussy'
	'<center><img src="images\zoo\zal2.jpg"></center>'
	' Orgasm you covered'
	if REXQW = 1: act 'Call Sonia': xgt 'soba', 'dzoof1'
	act 'Dress and come': gt 'korr'
end

if $args[0] = 'dzoof1':
	cla
	*clr
	'Have your boy is no longer worth what a shame. But you know what to do'
	act 'Call Sonia':
		cla
		'Hi, this is <<$name>> - you say'
		'What is <<$name>>? Ah! the girl who loves dogs - asks Sonia'
		'Yes, it is - without a shadow of a doubt from your lips to pronounce'
		'Waiting for you in the park, in the forest. After 20 minutes - Sonia said before hanging up'
		act 'Running in the park':
			cla
			*clr
			gs 'stat'
			'<center><img src="images\zoo\dzoof1.jpg"></center>'
			'You have been seeing in the forest sitting on a bench Sonya between her legs wielded male language'
			act 'Greet Sonia':
				cla
				*clr
				gs 'stat'
				'<center><img src="images\zoo\dzoof1.jpg"></center>'
				'Hey - you said'
				'Hi, Sonia said: "Meet, this is my friend, his name is Rex"'
				act 'Meet with Rex':
					set horny += 10
					set minut += 3
					cla
					*clr
					gs 'stat'
					'<center><img src="images\zoo\dzoof2.jpg"></center>'
					'You came to the dog and started to play with him'
					'    - Show him my pussy, said Sonya'
					act 'Show pussy':
						set horny += 10
						set minut += 3
						cla
						*clr
						gs 'stat'
						'<center><img src="images\zoo\dzoof2.jpg"></center>'
						'You came to the dog'
						'    - Undress and play with him, he loves naked-smiled Sonia'
						act 'Play with Rex':
							set horny += 10
							set minut += 3
							cla
							*clr
							gs 'stat'
							'<center><img src="images\zoo\dzoof4.jpg"></center>'
							'You undressed and began playing with his dog.'
							'Your pussy moistened and head rushed erotic thoughts'
							'Have you noticed that the dog was excited too'
							'    - I see you provoke him, and now refresh - said Sonya'
							'    - How? - Asked you'
							'    - Are you a little? Lips, said Sonya'
							act 'Soothe Rex':
								set minut += 5
								set dzoo += 1
								set lip += 1
								cla
								*clr
								gs 'stat'
								'<center><img src="images\zoo\dzoof3.jpg"></center>'
								'You knelt down and began to suck Rex, he quickly discharged into your mouth.'
								'Sonia smiled and said: "Oh, you slut, seduced my boy, come to me will be punished"'
								act 'Go to Sonia':
									cla
									*clr
									set minut += 10
									gs 'stat'
									'<center><img src="images\zoo\dzoof16.jpg"></center>'
									'You came to the apartment of Sonia, she turned to you and said playfully'
									'Well you´re ready to punishment?'
									act 'Hakazhi me':
										cla
										*clr
										set minut += 5
										gs 'stat'
										'<center><img src="images\zoo\dzoof6.jpg"></center>'
										'Now it´s my turn to have fun, if you know what I mean - said Sonya'
										act 'Work tab':
											set minut += 5
											set horny += 10
											cla
											*clr
											gs 'stat'
											'<center><img src="images\zoo\dzoof7.jpg"></center>'
											'You are trapped between the legs of Sony, and began to lick her, she began to get wet.'
											'Rex ran to you and put you jealously from Sony.'
											'What are you offended boy? - Sonia said and began to play with Rex'
											act 'View Sonya Rex':
												set minut += 5
												set horny += 10
												cla
												*clr
												gs 'stat'
												'<center><img src="images\zoo\dzoof8.jpg"></center>'
												'You watched as Sonia flirts with Rex, head have got bad thoughts you started excited.'
												'Calm and caressed him - said Sonya.'
												act 'Caress Rex':
													set minut += 5
													set horny += 10
													cla
													*clr
													gs 'stat'
													'<center><img src="images\zoo\dzoof9.jpg"></center>'
													'You began to stroke and caress Rex suddenly noticed that he was excited.'
													act 'Pick up a member of Rex':
														set minut += 3
														set horny += 10
														cla
														*clr
														gs 'stat'
														'<center><img src="images\zoo\dzoof17.jpg"></center>'
														'You picked up a member of the dog and started to caress it.'
														'Seeing this Sonia took off her panties and sat on the sofa spread legs'
														act 'Watch':
															set minut += 3
															set horny += 10
															cla
															*clr
															gs 'stat'
															'<center><img src="images\zoo\dzoof10.jpg"></center>'
															'Rex ran up to Sonya and began to lick her breasts.'
															act 'Caress herself':
																set minut += 2
																set horny += 10
																cla
																*clr
																gs 'stat'
																'<center><img src="images\zoo\dzoof11.jpg"></center>'
																'You removed the panties and began stroking his pussy.'
																'Rex noticed wagging tail, he ran up to you and buried between her legs'
																'Sonia said with a grin: "Well let´s see who wins," and got cancer'
																act 'Watch':
																	set minut += 3
																	set horny += 10
																	cla
																	*clr
																	gs 'stat'
																	'<center><img src="images\zoo\dzoof13.jpg"></center>'
																	' Rex ran from you jumped at Sonya and planted his cock into her.'
																	'You also stood near Soni cancer began to swing her ass invitingly'
																	'You want it bitch? Said Sonia'
																	act 'Yes, I want to':
																		set minut += 3
																		set horny += 10
																		cla
																		*clr
																		gs 'stat'
																		'<center><img src="images\zoo\Dzoof14.jpg"></center>'
																		'Sonia took Rex and put it on you, his cock quickly entered into you.'
																		'Lick me! - Said Sonya'
																		act 'Lick Sonia':
																			set tzoo += 1
																			set zoo += 1
																			set minut += 20
																			set swallow += 1
																			set vagina += 1
																			set throat += 1
																			set orgasm += 1
																			set horny = 0
																			cla
																			*clr
																			gs 'stat'
																			'<center><img src="images\zoo\dzoof15.jpg"></center>'
																			'You greedily licked her vagina and Sony behind you pecked Rex.'
																			'Rex finished in you, and then Sonya covered orgasm'
																			'She then shown the door of your apartment after throwing a few bills'
																			act 'Leave': gt 'park','start'
																		end
																	end
																end
															end
														end
													end
												end
											end
										end
									end
								end
							end
						end
					end
					act 'Send Sonia': gt 'park','start'
					end
				end
			act 'Change Your Mind': gt 'park','start'
		end
	end
end

--- soba ---------------------------------

# krol
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><img src="images\zoo\1791_640.jpg"></center>'
'<center><<$namekrol>> rests.</center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Leave': gt 'korr'
act 'Grant on skewers for meat':
	set krolik = 0
	set minut += 60
	set money += 200
	gt 'korr'
	end
end
--- krol ---------------------------------

# popu
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><img src="images\zoo\parrot2.jpg"></center>'
'<center><<$namepopu>> sitting in his cell.</center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Leave': gt 'korr'
act 'Release window':
	set popugai = 0
	set minut += 10
	gt 'korr'
	end
end
--- popu ---------------------------------

# qwlocdog
cls
minut += 3
gs 'stat'
'You pick up the phone and a female voice tells you. "Hello <<$name>>, this is Margaret.''s Meet today in the cafe?"'

	act 'Oh, I have a lot of things, I just can not today.':
	cla
	qwdogiventday = day
	'(You) - Oh, I have a lot of things, I just can not segdnya.'
	'(Margarita) - Okay. Then I´ll call in a week.'
	act 'Hang up.': gt 'korr'
	end

	act 'I do not mind.':
	cla
	QWdogReiq = 3
	qwdogiventday = day
	'(You) - I do not mind.'
	'(Margarita) - Wonderful. Then wait in the cafe.'
	act 'Hang up.': gt 'korr'
	end
--- qwlocdog ---------------------------------

# RimmaSexQW
cls
minut += 15
rimmaday = day
gs 'stat'
'You came to Rimma that you smiled affably. And she said, I´ll end up, can go to you?'

act 'Sorry, but I have things': gt 'butik','start'

if money >= 250:
	act 'Rimma go to your home':
	cls
	minut += 30
	money -= 250
	gs 'stat'
	'Rima went to work and you caught a taxi. Machine quickly dovezla you home and you went to the apartment with Rima.'
		act 'Sex': dynamic $rimmasexdi
	end
end

$rimmasexdi = {
cls
minut += 30
lesbian += 1
RimmaSex += 1
if RimmaSex > 21: RimmaSex = 21 & RimmaEndEvent = 1 & RimmaRandEvent = RAND(2,21)
orgasm = orgasm + 1
horny = 0
gs 'stat'
if RimmaSex = 23:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	gs 'stat'
	'<center><img src="images\zoo\rimma23.jpg"></center>'
	''
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 22:
'<center><img src="images\zoo\rimmaBJ.jpg"></center>'
'Rima pulled the strap of her purse and necklace with a chain leash employee. You put a collar and chain handed Rimma already wore a strap. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	gs 'stat'
	'<center><img src="images\zoo\rimma22.jpg"></center>'
	''
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 21 or RimmaEndEvent = 1 and RimmaRandEvent = 21:
'<center><img src="images\zoo\rimma21.jpg"></center>'
'Rimma ordered you to squat and got over you. Your face was between her legs, suddenly hit you in the face of urine flow. Rimma without warning and sank just peed on you. You shock sat motionless until the jet of warm urine running down your face. After that you Rimma ordered to lick her. You began to lick at the same time and ended with Rimma.'
end
if RimmaSex = 20 or RimmaEndEvent = 1 and RimmaRandEvent = 20:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	anus += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma20.jpg"></center>'
	'Rimma you bent and her strapon entered your ass, she began to fuck you, you covered from an orgasm that you piss. Rima laughed at you.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 19 or RimmaEndEvent = 1 and RimmaRandEvent = 19:
'<center><img src="images\zoo\rimmaBJ.jpg"></center>'
'Rima pulled the strap of her purse and necklace with a chain leash employee. You put a collar and chain handed Rimma already wore a strap. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	anus += 1
	vagina += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma19.jpg"></center>'
	'Rimma you put cancer and began to peck in the pussy, then pulled the strap and you put him in the ass, you were moaning held by the throat collar. Finally you are finished.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 18 or RimmaEndEvent = 1 and RimmaRandEvent = 18:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	anus += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma18.jpg"></center>'
	'Rima put you cancer and you feel like you strap rested in the anus, you groaned and tried to relax. Strap came into you and Rimma start you fuck in the ass. She grabbed you by the hair and raised arm your face without stopping to peck you. Finally you are finished.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 17 or RimmaEndEvent = 1 and RimmaRandEvent = 17:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	vagina += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma17.jpg"></center>'
	'Rimma you put cancer and has driven you strap pussy began furiously fuck you and slam you in the ass hands until you have finished.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 16 or RimmaEndEvent = 1 and RimmaRandEvent = 16:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	vagina += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma16.jpg"></center>'
	'Rima put you on your back and spread your legs, she had driven strap you in the pussy and began to furiously fuck you until you are covered orgasm.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 15 or RimmaEndEvent = 1 and RimmaRandEvent = 15:
'<center><img src="images\zoo\rimma14.jpg"></center>'
'Rima pulled the strap of her purse and put them on it. She put you on your knees and slipped the strap you in the mouth, that you started to suck lubricating saliva.'
	act 'Further':
	cls
	cls
	minut += 30
	vagina += 1
	gs 'stat'
	'<center><img src="images\zoo\rimma15.jpg"></center>'
	'Rima does not put you over and has driven you from your saliva wet strapon in pussy, she began to furiously fuck you and soon you covered orgasm.'
	act 'Hold it': gt 'korr'
	end
exit
end
if RimmaSex = 14 or RimmaEndEvent = 1 and RimmaRandEvent = 14:
anus += 8
'<center><img src="images\zoo\rimma13.jpg"></center>'
'Rimma you put cancer and heavily greased lubricated anus you enter you immediately became both hands, gradually she managed it and she started to fuck your ass hands until you have finished.'
end
if RimmaSex = 13 or RimmaEndEvent = 1 and RimmaRandEvent = 13:
anus += 8
'<center><img src="images\zoo\rimma12.jpg"></center>'
'Rima put you on your back and lifting your ass properly lubed your anus. Her hand came easily to you and Rima followed became poking you in the ass his second hand. Soon the two hands were you in the ass and started to fuck Rimma your ass. Soon you left off.'
end
if RimmaSex = 12 or RimmaEndEvent = 1 and RimmaRandEvent = 12:
anus += 6
vagina += 5
'<center><img src="images\zoo\rimma11.jpg"></center>'
'Rima put you back on the bed and began to thrust one hand you in the ass, and the other hand in the vagina. Soon both hands inside you and Rima started to fuck you hands, you could not stand such pressure and finished.'
end
if RimmaSex = 11 or RimmaEndEvent = 1 and RimmaRandEvent = 11:
anus += 6
'<center><img src="images\zoo\rimma10.jpg"></center>'
'Rimma you put cancer and began to thrust his hand to you in the ass, her hand was soon entirely in your ass and she began to actively fuck your anus its river, you could not last long and roughly finished.'
end
if RimmaSex = 10 or RimmaEndEvent = 1 and RimmaRandEvent = 10:
anus += 6
'<center><img src="images\zoo\rimma9.jpg"></center>'
'Rimma you put cancer and began to fuck your ass fingers sometimes spitting on the hole. Soon she was able to stick to your ass the whole hand and you left off.'
end
if RimmaSex = 9 or RimmaEndEvent = 1 and RimmaRandEvent = 9:
anus += 5
'<center><img src="images\zoo\rimma8.jpg"></center>'
'Expanding convenient for you, Rima started to fuck your ass fingers soon from her skillful actions you covered orgasm.'
end
if RimmaSex = 8 or RimmaEndEvent = 1 and RimmaRandEvent = 8:
anus += 3
'<center><img src="images\zoo\rimma7.jpg"></center>'
'Rima put you on the back and started to caress your clitoris tongue simultaneously massaging your anus hand. Soon you covered orgasm.'
end
if RimmaSex = 7 or RimmaEndEvent = 1 and RimmaRandEvent = 7:
vagina += 5
'<center><img src="images\zoo\rimma6.jpg"></center>'
'Rima put you on the back and began to enter your fingers into the vagina until her whole hand was not inside you. Then she started to fuck you one second hand caressing your body. You began moaning in orgasm and Rimma passionately grabbed you by the throat.'
end
if RimmaSex = 6 or RimmaEndEvent = 1 and RimmaRandEvent = 6:
vagina += 5
'<center><img src="images\zoo\rimma5.jpg"></center>'
'Rima put you on the back and began to lick your clitoris. You felt her fingers penetrate your pussy and begin to fuck you. Rimma gradually introduced new fingers and now she began to fuck you in the pussy with his fist, you broke and finished.'
end
if RimmaSex = 5 or RimmaEndEvent = 1 and RimmaRandEvent = 5:
vagina += 2
'<center><img src="images\zoo\rimma4.jpg"></center>'
'Rima put you on the back and began to lick your clitoris. You felt her fingers penetrate your pussy and begin to fuck you. Soon you covered orgasm.'
end
if RimmaSex = 4 or RimmaEndEvent = 1 and RimmaRandEvent = 4:
'<center><img src="images\zoo\rimma3.jpg"></center>'
'Rima put you on the back and sat on top substituting his sweaty pussy. You started to lick her and caress her arms soon Rima strongly pressed to your face her crotch finished, you also embraced orgasm.'
end
if RimmaSex = 3 or RimmaEndEvent = 1 and RimmaRandEvent = 3:
'<center><img src="images\zoo\rimma2.jpg"></center>'
'Rima sat on the sofa legs spread, you dropped to her knees and began to lick her pussy with his tongue, while not forgetting to caress her pussy fingers. Rima began to moan in bliss and taking your hair harder pressed to her pussy until she began to beat in orgasm, at this time you also embraced orgasm.'
end
if RimmaSex = 2 or RimmaEndEvent = 1 and RimmaRandEvent = 2:
'<center><img src="images\zoo\rimma.jpg"></center>'
'Rimma lay on top of you and offered her pussy started to lick your passion. You began to caress her tongue pussy Rimma and soon engulfed you unearthly bliss ended with orgasm.'
end
act 'Hold it': gt 'korr'
}
--- RimmaSexQW ---------------------------------

# bed
if $ARGS[0] = 'start':
cla
clr
!set shour = 24 - hour

gs 'stat'

set houserabrand = RAND(0,100)
set housevorrand = RAND(0,200)

if hour > 22 and houserabrand < 2 and houserab = 1 and houserabday ! day and son < 10 and tanhouse1 = 1: gt 'bed','rab'
if hour > 22 and housevorrand = 0 and housrA = 1 and husband = 0: gt 'bed','vor'

if nude = 0: '<center><img src="images\pics\bed.jpg"></center>'
if nude = 1: '<center><img src="images\pics\son.jpg"></center>'

'You lie on the bed. Alarm set for <<timer>> hours <<timerM>> minutes.'

if mop ! 1 and AutoMakeup ! 1: '<B><font color = red>Need to wash off makeup before going to bed.</font></B>'

act 'Get out of bed':gt'bed','fin'

if son > 10:
	'You are not tired.'
	act 'Try to sleep': gt 'bed2','dosip'
else
	act 'Undress and go to bed': gt 'bed2'
end

act 'Set Alarm Clock':gt'budilnik','start'

if dildo > 0 and horny >= 50:
	act 'Masturbate':
		cla
		*clr
		set minut += 30
		set mastr += 1
		set manna += 15
		set willpower += 15
		set vagina += 1
		if husband > 0 and housrA = 1 and husbandrink ! 10:
			if week > 5 or week < 6 and hour > 16:
				cla
				*clr
				'<center><img src="images\img\hasb\m21.jpg"></center>'
				'You sit down and type dildo their pussy'
				if hour > 22 or hour < 7: '<<$husName>> looks at you, obviously a little dumbfounded.'
				if hour >= 7 and hour <= 22: 'Once you get a taste of how enters the room <<$husName>>'
				if harakHusb = 0:
					'"What are you doing dear?" he asks.'
					'"I´m sorry dear, but I really need, and you´ve been busy," you reply, without stopping to masturbate.'
					'"And often you do that," he asks.'
					'"Owned so often, less often in the ass, if you want to see?" asked you'
					if izvratH = 0:
						set husband -= 1
						'"I´ll wait outside the door until you´re done," he said and left. You continued to satisfy themselves rapidly and soon finished.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'bed','start'
						end
					if izvratH = 1:
						'"Well, I do not know," he stammered.'
						'"So you want" you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m22.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus <<$husName>> closely watched as the dildo disappears in your ass and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"Can I join?" a little embarrassed he asks.'
							act 'Solve':
								cla
								*clr
								set analorgasm += 1
								set orgasm += 1
								set horny = 0
								'<center><img src="images\img\hasb\m23.jpg"></center>'
								'<<$husName>> gets dick and starts masturbating, it is not what you expected, and at first you even felt a little sad that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at the way you drive the dildo his popkui be covered and you pleasure, you screamed and fell to the table, having experienced an orgasm, dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you took the dildo from ass and began to lick it, looking into the eyes of her husband, from such a spectacle he immediately discharged onto the floor. You are drawn to him sticking out his lips, in a second he had passionately kissed you.'
								act 'Finish': gt 'bed','start'
								end
							end
						end
					end
				if harakHusb = 1:
					'"That´s a number I mean you is not enough?" he asks.'
					'"I´m sorry dear, but I really need, and you´ve been busy," you reply, without stopping to masturbate.'
					'"Well then, show me everything that you know how I´ll look," he says.'
					'"And how do I do it in the ass, too, to show?" asked you'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"No, do not, and yet that´s enough," he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
						'"For such a lovely audience anything, but only after the intermission," you laughed. <<$husName>> helped you get down from the table.'
						set horny = 0
						set orgasm += 1
						act 'Finish': gt 'bed','start'
						end
					if izvratH = 1:
						set husband += 1
						'"And how is it necessarily demonstrate" he said.'
						'"Anything you want," you said'
						act 'Show':
							cla
							*clr
							'<center><img src="images\img\hasb\m22.jpg"></center>'
							'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as the dildo disappears in your ass and then reappears. Do you see how his pants swell.'
							'"Dear anything else you want?" smiling you ask.'
							'"I do not just want to but I´ll do," he said, unbuttoning his pants and substitute member of your face.'
							act 'Take by mouth':
								cla
								*clr
								'<center><img src="images\img\hasb\m24.jpg"></center>'
								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I´ll take this hole."'
								act 'Substitute ass':
									set picrand = 89
									gt 'sex','anal'
									end
								end
							end
						end
					end
				if harakHusb = 2:
					'"What hole itching?" he asks.'
					'"I´m sorry dear, but I really need, and you´ve been busy," you reply, without stopping to masturbate.'
					if izvratH = 0:
						set husband += 1
						set husbizvradd += 1
						'"Well then, open your mouth," he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I´m going to fuck you"'
						act 'Spread her legs':
							set picrand = 89
							gt 'sex','vag'
							end
						end
					if izvratH = 1:
						set husband += 1
						set SUB += 1
						'"Insert this crap myself in the ass and mash, I´ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
						act 'Take by mouth':
							cla
							*clr
							'<center><img src="images\img\hasb\m24.jpg"></center>'
							'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point now I´m ass Flare."'
							act 'Substitute ass':
								set picrand = 89
								gt 'sex','anal'
								end
							end
						end
					end
				else
				set horny = 0
				set orgasm += 1
				'<center><img src="images\pics\mastr.gif"></center>'
				'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
				act 'Breath.': gt 'bed','start'
				end
			else
			set horny = 0
			set orgasm += 1
			'<center><img src="images\pics\mastr.gif"></center>'
			'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
			act 'Breath.': gt 'bed','start'
			end
		end
	end

	if zoo > 6 and housrA = 1 and dogday ! day and houserabrand < 4: gt 'bed1', 'sog1'
end

if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM
end

if $ARGS[0] = 'rab':
cla
*clr
set minut += 120
set houserabday = day
'<center><img src="images\img\th\r0.jpg"></center>'
'Once you get into bed as you mistress comes into the room, "What a bitch sleep going?" she said from the doorway.'
'"Yes," you reply.'
'"Yes, who?" she continues.'
'"Yes, ma´am," you reply and sit on the bed, she was drunk and barely standing on his feet and in his hands a bottle of wine from which it often takes a sip.'
'"That´s better, but today you have to be punished," she lifts up her skirt and she jumps out from under the strap. "Suck," she commanded.'
act 'Take by mouth':
	cla
	*clr
	set SUB += 2
	set lesbian += 1
	if analplugIN = 1: set analplugIN = 0
	if mop ! 1: set mop = 0
	'<center><img src="images\img\th\r1.jpg"></center>'
	'You took the strap in his mouth and started sucking him off, not the taste of rubber gives you pleasure and you did it without much enthusiasm. Hostess, though she was drunk, but perfectly vidila that you do not try, then she started to beat podmahivat your movements, driving him deeper into your mouth. You become suspended on and did not like it.'
	'"Oh damn stubborn, lay down on the bed quickly," with these words, she strongly pushed you on the bed.'
	act 'Lie':
		cla
		*clr
		'<center><img src="images\img\th\r2.jpg"></center>'
		'You lay on the bed and she climbed on top of you and kneeling over you, you vskhvatila his head and forcefully planted his mouth on the strap. You tried to pull away, but it was useless, her hands firmly held your head. She continued to rape your mouth, you hardly catch the moment that-be for air, and she thrust her it deeper and deeper, eventually he started to slip down your throat, and breathing was absolutely nothing. When you´re starting to lose consciousness she took it out of your throat and you handled on its side, wheezing sniffed.'
		'"And now to punishment, get up cancer," she said. "And what if it was" you think, but do not say the hearing began.'
		act 'Rise in a pose':
			cla
			*clr
			set anal += 1
			'<center><img src="images\img\th\r3.jpg"></center>'
			'You get up on all fours on the bed. "But it´s too much," said the hostess, and erases your saliva with the strap, "You need to punish, not pooscherit. Spreading ass."'
			'Realizing that you will you breed buttocks with his hands and try to relax your ass, but you did not try, the pain pierces your body when it is with force pushes the strap you in the anus and not giving your ass to get used to gaining crazy pace, you let your buttocks and seizes blanket with hands and teeth. Tears poured from my eyes, you whine, but she still continues, finally a little tired it lowers the tempo and asks, "Well, it hurts."'
			'"Yes ma´am, very hurt" through tears you say.'
			'"Well, today I have a good bit smazhem" she says, and begins pouring wine from a bottle on the strap and your ass.'
			'"Thank you, Mrs." you say, and it is again gaining momentum. First, you got a little easier, but then the wine is dry and start to dry your skin, you become so much hurt by what you already screaming with laughter. "Why did not anyone come in and not hurt her," you think, because your cries have been heard not only in the apartment, but also around the entrance, but no one came, neither Tanya nor Nicholas. Finally she was tired, and removing the strap out of the room without saying anything. You collapsed on the bed and whined, your ass was on fire and you were afraid to even move after spending an hour so you are asleep.'
			act 'Sleep': gt 'bed2'
			end
		end
	end
if DOM > 20:
	act 'Refuse':
		cla
		*clr
		set DOM += 1
		set lesbian += 1
		set orgasm += 1
		set houserab = 2
		'<center><img src="images\img\th\r4.jpg"></center>'
		'"No," you reply.'
		'"Are you syavka vyaknula, suck alive while not become worse," she started up.'
		'"No," answered you again.'
		'"All right, you asked for it myself," she screamed and swung, going to hit you, you did not wait for punch and kick her in the stomach.'
		'"Bitch," she moaned, bending in half. And then you have suffered, you jumped out of bed and vskhvativ her head hit the knee in the face, she flew into the corner, but you do not calm down, remembering the taste of her dirty boots and sneakers you get up to her and started to push it into his mouth, When you could not shove it in its entirety, you threw away and sneakers vskhvativ her hair yanked off the floor and thrown on the bed. It was lying on the bed covering her face with her hands, you jumped on the bed and embarking on her face sat on top of her. "Lick bitch lick" you yell, she tried to throw you, but nothing happened, you got right in her face, continuing to yell something she licked, you will soon feel her tongue on her pussy, but you did not care you fidgeted on her face increasing pace, soon you started excited. She did not resist sticking his tongue out and tried to catch them to your pussy, terevshuyusya wildly about her face. You start to like her submissive and you get more excited thinking about what you nasiluete it, you have even begun to think about something to put her strap-on and have fun with it as you began to lay an orgasm, you shrank his crotch in her face and finished . When you finally got off her, her whole face was covered in your discharge, she quietly got out of bed, straightened his clothes and left the room leaving you goodbye "Creature." She obviously did not forget, now you should be careful, who knows what´s on her mind.'
		act 'Breath.': gt 'bed','start'
		end
	end
end

if $ARGS[0] = 'vor':
cla
*clr
set minut += 60
'<center><img src="images\img\spaln\g0.jpg"></center>'
'You lay on the bed when he heard what the sound in the hallway. Once you have decided to get up to look into the room ran two masked, you do not have time to open his mouth like a knife in your throat helpful. "Only piskni bitch´ll cut." croaked one of them. They tied your hands and one went to search the apartment, and the second was to guard you. He sat and looked carefully you, then took a knife and began podit them on your body, "What scared?" he asked, thinking that it is better you keep silent, you said nothing and looked downcast gaze to the floor. "I see what´s scary," he grinned. Then he began to feel you, you tried to pull away, but the knife was back in your throat, "Sit still bitch until the pen is not planted," he croaked, and continued to feel you. Finally returned to the second "All get out of here," he said.'
'"Wait let this pacifier remember seeing what juicy" said sitting with you'
if vnesh >= 30:
	set guy += 2
	set bj += 1
	set sex += 1
	set rape += 1
	'"And what, savory nipple, even when such happen to fuck" said the first.'
	act 'Plead':
		cla
		*clr
		set minut += 30
		'<center><img src="images\img\spaln\g1.jpg"></center>'
		'You have shrunk with horror, "Well nipple kneel down and open your mouth, but see, you touch the teeth from ear to ear throat vskroy" said the second pulling member. You began to plead not touch you, but received oplevuhu knelt. He jabbed a member you on the lips, you reluctantly opened his mouth and then his cock was in your mouth, hands clenching your head, he began to fuck you in the mouth, for those too made a second, and then they tried to shove into your mouth, both terms, but decided that their members will touch each other, and that in their opinion, even if they are in the female mouth, smacks of the blue, back to the first option and proceeded to rape your mouth one by one. All event was intended to evoke disgust you, and that was the first couple of minutes, but then you are surprised to catch myself on the fact that their hands are now just lie on your head, and all the movements you make yourself and are actively working language.'
		'"Let´s get up cancer" commanded one.'
		act 'Up':
			cla
			*clr
			set picrand = 38
			set orgasm += 1
			'<center><img src="images\img\spaln\g2.jpg"></center>'
			'You stood up and bent over one of them stood behind and put your dick in pussy, went inside. "Yes, it all flows, listen Grey like this bitch" he said.'
			'"Mouth Shut" growled at him a second inserting dick in your mouth. They proceeded to rape you on both sides, but you are overwhelmed with desire, you stood with cancer tied his hands behind his back and the two strangers had you. You diligently podmahivat one second while sucking dick suddenly darkened eyes, the body and pleasant shiver ran you huddled in orgasm. One that had pulled your mouth dick "What´s wrong with this bitch, she has epilepsy," he cried. "Yeah, no, I told her to please, this bitch came." said the second. They untied the hands of you, "Let´s see what she can do with her hands swagger" said one.'
			act 'Continue': xgt 'sexdvoe','var'
			end
		end
	end
if vnesh < 30:
	'"We bring down I said," repeated the first "And her mouth shut," he added. The second did not argue and taking clothes from your closet stuffed into your mouth. "If earlier than half an hour you will get out, you do not live," said the first, and they´re gone. You did not wait half an hour and started trying to break free, well that sites they really did not know how to knit and soon you managed to untie'
	act 'Assess the damage': gt 'bed','vorend'
	end
end

if $ARGS[0] = 'vorend':
	cla
	*clr

	if remsitr = 0: '<center><img src="images\etogame\sitr.jpg"></center>'
	if remsitr = 1: '<center><img src="images\etogame\sitr2.jpg"></center>'

	'When it was over, you walk around the apartment to see what was lost.'

	if stolmoney > 0:
		'They took <<stolmoney>> rubles from the table.'
		set stolmoney = 0
	end

	if money > 0:
		'They took <<money>> rubles that you were with him.'
		set money = 0
	end

	if komp = 1:
		'They took his computer.'
		set komp = 0
	end

	gs 'stat'
	act 'Finish': gt 'sitr'
end
--- bed ---------------------------------

# bed1
if $ARGS[0] = 'start':
cla
set shour = 24 - hour
clr
gs 'stat'
if nude = 0: '<center><img src="images\pics\bed.jpg"></center>'
if nude = 1: '<center><img src="images\pics\son.jpg"></center>'
'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'
if mop ! 1 and AutoMakeup ! 1: '<B><font color = red>Need to wash off makeup before going to bed.</font></B>'
set shour = 24 - hour
set stimer = 24 - timer
! будильник на 7 = 17, время 20 = 4

	act 'Set Alarm Clock': gt 'budilnik','start'
	if son > 10:
	'You are not tired.'
	end

	if son < 10:
		act 'Undress and go to bed': gt 'bed2'
	end

	if dildo > 0 and horny >= 50 and sex > 0:
		act 'Masturbating using dildo':
		cla
		*clr
		set horny = 0
		set minut += 30
		set mastr += 1
		set orgasm += 1
		set manna += 15
		set willpower += 15
		'<center><img src="images\pics\mastr.gif"></center>'
		'You phallus stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
		act 'Breath.': gt 'bed','start'
		end
	end

	act 'Get out of bed':
	cla
	gt 'bed','fin'
	end

	act 'Try to sleep': gt 'bed2','dosip'
end

if $args[0] = 'sogn':
cla
*clr
set horny += 10
set minut += 10
dogday = day
cla
*clr
'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy'
'<center><img src="images\zoo\2.jpg"></center>'
act 'Succumb to the desire': gt 'bed1','sog2'
act 'Discarded dog': gt 'bed','start'
end

if $args[0] = 'sog1':
if zoo >= 6:
	if husband > 0 and husbandrink ! 10:
		if hour > 22 or hour < 7:
			cla
			*clr
			set minut += 30
			'<center><img src="images\zoo\z1.jpg"></center>'
			'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy.'
			if harakHusb = 0:
				set zoo += 1
				set horny = 0
				set orgasm += 1
				'"What´s he doing dear, stop him," cries the husband'
				'"I can not, try myself," you reply.'
				set husband -= 1
				'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
				'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> starts to rush through the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
				'"Oh my God, that he was going to do?" shrieked <<$husName>>, Seeing the dog attempts to jump on you.'
				'"What you do not clear he wants to fuck me" you said.'
				'"Dear try again to free" pleaded husband.'
				act 'Try':
					cla
					*clr
					'<center><img src="images\zoo\z2.jpg"></center>'
					'You reluctantly start trying to push the dog and move away, but it appears to him backwards, and <<$namesob>> leans on you and all your weight is on. You feel his penis rubs against your thighs ischya hole.'
					if izvratH = 0:
						'"Oh my God, I can not look at it," cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
						'"I´ll take him now on euthanasia," said <<$husName>>'
						end
					if izvratH = 1:
						'"Well get off of her," shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes Svetsik so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
						'"I´ll take him now on euthanasia," said <<$husName>>'
						end
					act 'Allow':
						set sobaka = 0
						set zoo = 0
						gt 'bedr'
						end
					act 'Not authorized':
						cla
						'"No, dear, he is not guilty, he has the instincts, I´ll take it for mating and he will calm down," you said.'
						'"Well dear, whatever you say."'
						act 'Finish': gt 'bedr'
						end
					end
				end
			if harakHusb = 1:
				'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
				'"I can not, try myself," you reply.'
				if izvratH = 0:
					'<<$husName>> tries ottoschit dog but he growls and grins, then he goes to the bath and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
					'"I´ll take him now on euthanasia," said <<$husName>>'
					act 'Allow':
						set sobaka = 0
						set zoo = 0
						gt 'sitr'
						end
					act 'Not authorized':
						cla
						'"No, dear, he is not guilty, he has the instincts, I´ll take it for mating and he will calm down," you said.'
						'"Okay, look itself, your dog."'
						act 'Finish': gt 'bedr'
						end
					end
				if izvratH = 1:
					set zoo += 1
					set bj += 1
					set swallow += 1
					set cumlip += 1
					'"Can not or do not want," said <<$husName>> smiling and continues to sit and watch as the dog you licks.'
					'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
					act 'Take by mouth':
						cla
						*clr
						'<center><img src="images\zoo\z3.jpg"></center>'
						'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body in a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat at you with intent nedvuhslyslennymi.'
						'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings an old sheet, threw it at the dog picks up the ends and picks up dog is in the bag improvezirovannom.'
						'"I´ll take him now on euthanasia," said <<$husName>>'
						act 'Allow':
							set sobaka = 0
							set zoo = 0
							gt 'sitr'
							end
						act 'Not authorized':
							cla
							'"No, dear, he is not guilty, he has instincts, besides from trying so hard," you said.'
							'"Well, if he was trying so hard you can thank him" ironically husband.'
							act 'Jerk dog':
								cla
								*clr
								set husband -= 1
								'<center><img src="images\zoo\z6.jpg"></center>'
								'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'
								act 'Finish': gt 'bedr'
								end
							act 'Suck dog':
								cla
								*clr
								set swallow += 1
								set husband -= 40
								'<center><img src="images\zoo\z7.jpg"></center>'
								'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
								'"Well, you´re a pervert," the husband says with obvious distaste.'
								act 'Finish': gt 'bedr'
								end
							act 'Finish': gt 'bedr'
							end
						end
					end
				end
			if harakHusb = 2:
				'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
				'"I can not, try myself," you reply.'
				if izvratH = 0:
					set manna -= 15
					set willpower -= 15
					'<<$husName>> tries ottoschit dog but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, had not dog up as a husband begins to kick harder, seeing his condition, you scored in the corner and covering his head with hands close eyes. A few minutes later the dog stops.'
					'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
					'"Well, what froze shalt say to you, I do this on the trash Dogmeat´ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
					act 'Finish':
						set sobaka = 0
						set zoo = 0
						gt 'bedr'
						end
					end
				if izvratH = 1:
					set zoo += 1
					set bj += 1
					set swallow += 1
					set cumlip += 1
					set SUB += 1
					'"What do you mean I can not, that you like the way he licks you," shouts <<$husName>>.'
					'"No, of course you do not," you begin to make excuses.'
					'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him," he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'
					act 'Take by mouth':
						cla
						*clr
						'<center><img src="images\zoo\z4.jpg"></center>'
						'<<$husName>> grabs a dog by the collar iderzhit until you slide on the floor under the dog. Nedozhidayas oplivuhi you hiding his lust take by mouth and takes dick dog suck, husband watching you and cheers saying that the dog loved your mouth. Soon he was bored just watch and he dropped his pants says "Well Spreads legs."'
						act 'Allow':
							cla
							*clr
							set suprdolg += 1
							set sex += 1
							set anal += 1
							'<center><img src="images\zoo\z5.jpg"></center>'
							'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you´re not trying, as well, cup your point."'
							act 'Substitute ass':
								cla
								*clr
								set analorgasm += 1
								set orgasm += 1
								set horny = 0
								'<center><img src="images\zoo\z8.jpg"></center>'
								'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
								act 'Finish': gt 'bedr'
								end
							end
						end
					end
				end
			else
			gt 'bed1', 'sogn'
			end
		end
	if husband = 0 or husbandrink = 10: gt 'bed1', 'sogn'
	end
end

if $args[0] = 'sog2':
cla
*clr
set horny += 10
set minut += 10
cla
*clr
'You take the term <<$namesob>> and start it nadrachivat'
'<center><img src="images\zoo\sog.jpg"></center>'
act 'Take by mouth': gt 'bed1','sog3'
act 'Spread her legs': gt 'bed1','sog4'
end

if $args[0] = 'sog3':
cla
*clr
set horny += 10
set minut += 10
cla
*clr
'You greedily swallow dick <<$namesob>>'
'<center><img src="images\zoo\sog1.jpg"></center>'
act 'Spread her legs': gt 'bed1','sog4'
end

if $args[0] = 'sog4':
cla
*clr
set minut += 10
set orgasm += 1
set horny = 0
set minut += 5
set zoo += 1
set swallow += 1
set vagina += 1
set throat += 1
set cumpussy += 1
cla
*clr
'You push the legs and <<$namesob>> fuck you in your pussy'
'<center><img src="images\zoo\sog2.jpg"></center>'
'Finally dog ​​ends up in you'
act 'Hug the dog and sleep': gt 'bed2','dosip'
end





if $ARGS[0] = 'fin':
cla
gt $locM, $metkaM
!SAVEGAME 'avtosave.sav'
	!'if housr = 1 and housrA = 1:
		if nude = 0: set $nude = 'In the corridor'
		if nude = 1: set $nude = 'Get dressed'
	set housrA = 0
	gt 'bedr'
	end'

end
--- bed1 ---------------------------------

# bed2
if $ARGS[0] = 'dosip':
	dosip = 1
else
	dosip = 0
end

$wokeup = {
	if daystart < 10 and StoryLine = 0: 'My first thought was how you woke up, "Damn. This is not a dream, I do now baba."'
	if daystart >= 10 and daystart < 30 and StoryLine = 0: 'You sleepy little surprised popyalitsya its female body.'

	act 'Get out of bed and get dressed (0:15)':
		cla
		set InSleep = 0
		set numdress = odedosna
		set minut += 15
		set tanga = 1
		set nude = 0
		gt 'bed','fin'
	end

	act 'Get out of bed':
		cla
		InSleep = 0
		gt 'bed','fin'
	end

	act 'Try to sleep': gt 'bed2','dosip'
}

if numdress ! 0: set odedosna = numdress
set nude = 1
set numdress = 0

'<center><img src="images\pics\son.jpg"></center>'

if mop ! 1 and AutoMakeup = 1: set mop = 1 & 'Before going to bed you washed away your makeup.'
if analplugIN = 1: set analplugIN = 0 & 'Before going to bed you took the butt plug off.'
if vibratorIN = 1: set vibratorIN = 0 & 'Before going to bed you remove the vibrator.'
!if vibratorIN = 1: set vibratorIN = 0 & 'Before going to bed you washed away your makeup.'

if mop > 1: set mop = 0 & set vidageday -= 1 & 'Cosmetics smeared face, you think that looks bad for sleeping with makeup, skin ages faster from it.'

!WD: moved health to sleep loop
!set health += RAND(5,10)
set hapri = 0
InSleep = 1
AEnema = 1
HasWashed = 1

set slep = RAND(0,3)
if StoryLine = 1: slep = 0

if slep = 0: set $slep = 'not dreaming'
if slep = 1: set $slep = 'dream about what it is not clear images from the past'
if slep = 2: set $slep = 'dreaming moon gazing at the world with his one bloody eye'
if slep = 3: set $slep = 'dreaming that you are a man again'

'You sleep and you <<$slep>>.'

:loop_sleep

set minut += 5
set stime += 5

if stime > 20:
	set stime -= 20
	set son   += 1
	!WD: health gain from sleep now dependent on length of sleep
	health    += RAND(0,1)
end


gs 'stat'

if hour = timer and minut >= timerM:
	set manna -= 10

	'You slept. The alarm clock goes off.'

	dynamic $wokeup

elseif son > 23 and dosip = 0:
	set manna -= 10

	'You slept.'

	dynamic $wokeup

elseif son > 47 and dosip = 1:
	set manna -= 10
	set dosip = 0
	set son -= 24

	'You slept.'

	dynamic $wokeup
else
	jump 'loop_sleep'
end
--- bed2 ---------------------------------

# budilnik
if $ARGS[0] = 'start':
cla
clr
gs 'stat'
'<center><img src="images\etogame\bed2.jpg"></center>'
*nl
*nl
if numbud = 4: '<center><B><<bud1>><<bud2>>: <<bud3>><<bud4>></B></center>'
if numbud = 3: '<center><B><<bud1>><<bud2>>: <<bud3>></B><<bud4>></center>'
if numbud = 2: '<center><B><<bud1>><<bud2>></B>: <<bud3>><<bud4>></center>'
if numbud = 1: '<center><B><<bud1>></B><<bud2>>: <<bud3>><<bud4>></center>'
if numbud = 0: '<center><<bud1>><<bud2>> <<bud3>><<bud4>></center>'
*nl
'<center><B><a href="exec:GT ''budilnik'',''1''">1</a> <a href="exec:GT ''budilnik'',''2''">2</a> <a href="exec:GT ''budilnik'',''3''">3</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''4''">4</a> <a href="exec:GT ''budilnik'',''5''">5</a> <a href="exec:GT ''budilnik'',''6''">6</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''7''">7</a> <a href="exec:GT ''budilnik'',''8''">8</a> <a href="exec:GT ''budilnik'',''9''">9</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''0''">0</a></B></center>'
'<center><B><a href="exec:GT ''budilnik'',''Reset''">Reset</a> <a href="exec:GT ''budilnik'',''Time''">Set the time</a></B></center>'
	act 'Put Service':
	cla
	set bud1 = 0
	set bud2 = 0
	set bud3 = 0
	set bud4 = 0
	set numbud = 0
	gt 'budilnik','fin'
	end
end

if $ARGS[0] = 'Time':
cla
if bud1 > 0:
set timer = bud1 * 10
set timer += bud2
end
if bud2 > 0 and bud1 = 0:
set timer = bud2
end
if bud1 = 0 and bud2 = 0:
set timer = 0
end
if bud3 > 0:
set timerM = bud3 * 10
set timerM += bud4
end
if bud4 > 0 and bud3 = 0:
set timerM = bud4
end
if bud3 = 0 and bud4 = 0:
set timerM = 0
end
if timer > 23: set timer = 0
if timerM > 60: set timerM = 0

'Clock wound <<timer>> hours <<timerM>> minutes.'

	act 'Service put in place':
	cla
	gt 'budilnik','fin'
	end
end


if $ARGS[0] = '1':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 1 & set numbud = 4
	if numbud = 2: set bud3 = 1 & set numbud = 3
	if numbud = 1: set bud2 = 1 & set numbud = 2
	if numbud = 0: set bud1 = 1 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '2':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 2 & set numbud = 4
	if numbud = 2: set bud3 = 2 & set numbud = 3
	if numbud = 1: set bud2 = 2 & set numbud = 2
	if numbud = 0: set bud1 = 2 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '3':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 3 & set numbud = 4
	if numbud = 2: set bud3 = 3 & set numbud = 3
	if numbud = 1: set bud2 = 3 & set numbud = 2
	if numbud = 0: set bud1 = 3 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '4':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 4 & set numbud = 4
	if numbud = 2: set bud3 = 4 & set numbud = 3
	if numbud = 1: set bud2 = 4 & set numbud = 2
	if numbud = 0: set bud1 = 4 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '5':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 5 & set numbud = 4
	if numbud = 2: set bud3 = 5 & set numbud = 3
	if numbud = 1: set bud2 = 5 & set numbud = 2
	if numbud = 0: set bud1 = 5 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '6':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 6 & set numbud = 4
	if numbud = 2: set bud3 = 6 & set numbud = 3
	if numbud = 1: set bud2 = 6 & set numbud = 2
	if numbud = 0: set bud1 = 6 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '7':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 7 & set numbud = 4
	if numbud = 2: set bud3 = 7 & set numbud = 3
	if numbud = 1: set bud2 = 7 & set numbud = 2
	if numbud = 0: set bud1 = 7 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '8':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 8 & set numbud = 4
	if numbud = 2: set bud3 = 8 & set numbud = 3
	if numbud = 1: set bud2 = 8 & set numbud = 2
	if numbud = 0: set bud1 = 8 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '9':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 9 & set numbud = 4
	if numbud = 2: set bud3 = 9 & set numbud = 3
	if numbud = 1: set bud2 = 9 & set numbud = 2
	if numbud = 0: set bud1 = 9 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = '0':
cla
	if numbud = 4:
	end
	if numbud = 3: set bud4 = 0 & set numbud = 4
	if numbud = 2: set bud3 = 0 & set numbud = 3
	if numbud = 1: set bud2 = 0 & set numbud = 2
	if numbud = 0: set bud1 = 0 & set numbud = 1
gt 'budilnik','start'
end

if $ARGS[0] = 'Reset':
cla
set bud1 = 0
set bud2 = 0
set bud3 = 0
set bud4 = 0
set numbud = 0
gt 'budilnik','start'
end


if $ARGS[0] = 'fin':
cla
gt $locM, $metkaM
	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'bedr'
	end'
end
--- budilnik ---------------------------------

# divan
if $ARGS[0] = 'start':
cla
$divmastr = {
cls
'<center><img src="images\pics\divmas.jpg"></center>'
set minut += 15
sweat += 1
set horny += RAND(1,5)
if divanmastr = 0: divanmastr = 1 & set mastr += 1
gs 'stat'
'You lay down on the sofa and began to fondle her one-handed chest with a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
if horny >= 100: orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
act 'Get off the couch': divanmastr = 0 & gt 'divan','fin'
if horny >= 75: act 'Proceed': dynamic $divmastr
}
clr
gs 'stat'
'<center><img src="images\pics\divan.jpg"></center>'
'You lay down on the sofa.'
	act 'Lie':
	cla
	waiting = input ("How many minutes to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Get off the couch': gt 'divan','fin'
	end

	if TV > 0:
		act 'Watch TV':
		cla
		gt 'TV','start'
		end
	end

	if book > 0:
		act 'Read a book (0:30)':
		cla
		*clr
		'<center><img src="images\pics\book.jpg"></center>'
		set minut += 30
		set horny += 5
		'You are reading a book.'
		act 'Put the book': gt 'divan','start'
		end
	end

	if horny >= 75:
		act 'Masturbate (0:15)':
		dynamic $divmastr
		end
	end

	act 'Get off the couch':
	cla
	gt 'divan','fin'
	end
end

if $ARGS[0] = 'fin':
cla
gt $locM, $metkaM
	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'sitr'
	end'
end
--- divan ---------------------------------

# Komp
if $ARGS[0] = 'start':
cla
clr
gs 'stat'
set elektro += 5
'<center><img src="images\pics\komp.jpg"></center>'
'With the computer happily welcomes you start window.'
	act '15 minutes play patience': gt 'Komp','pasians'

	if GameCD > 0: act 'Play Disopl': gt 'KGDstart'

	if GameCD2 > 0: act 'Play Sunset Dead': gt 'KGZstart'

	if GameCD3 > 0: act 'Play Albido': gt 'FSstart'
	!act 'Sunset Review of the Dead': gt 'KGZstart'
	if internet > 0:
	set internet = internetM/60
	'You´ve got <<internet>> hours of Internet'
		act 'Browser': gt 'Komp','brows'
	end
	if webCam > 0 and webcamday ! day: act 'Make self porno': gt 'selfPorno','start'
	if karta >= 10:
	'You can pay online through your bank account. 1:00 Internet costs 10 rubles. On account of <<karta>>rubles.'

		act 'Pay online bank account':
			cla
			intinp = input ("How much money to put on the internet? (h = 10 rubles).")
			if intinp <= 0 or intinp * 10 > karta:
				'Invalid amount.'
			end
			if intinp*10 <= karta:
				set inttime = intinp * 10
				set karta -= inttime

				set internetM += intinp * 60
				set internet = internetM/60
				'You paid <<inttime>> hours of Internet, you now have <<internet>> hours of the Internet. Your account was removed <<intinp>> rubles.'
			end
			act 'Get out of the payment system': gt 'Komp','start'
		end

	end

	act 'Shut down the computer':
	cla
	gt 'Komp','fin'
	end
end

if $ARGS[0] = 'brows':
cla
*clr
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You entered into a search engine.'
act 'Apartment repair site (0:15)': gt 'Komp','remont'
if housr = 1 and husband = 0: act 'Rent your apartment': gt 'Komp','sale'
act 'Porno (0:15)': gt 'Komp','porno'
act 'Singles (0:15)': gt 'Komp','znak'
if hour < 20 and hour > 7: act 'Jobs.su': gt 'Komp','rabota'
act 'Cable TV services (0:15)': gt 'Komp','kabtv'
act 'Online game': gt 'KGstart'
if shantfoto > 0: act 'Search photos heroine in "In the ass."': gt 'Komp','foto'
if gor_dorm = 7: act 'Letter from Evgenia': gt 'etoexhib','pos91'
act 'Exit the browser': gt 'Komp','start'
end

if $ARGS[0] = 'sale':
cla
*clr
set minut += 2
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You are logged in to the site for free ads.'
if obkvsdam = 0 and housrA = 1:
	act 'Rent out Residental apartment': set obkvsdam['Street'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
	act 'Rent out Downtown apartment': set obkvsdam['Down'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
	act 'Rent out Northern apartment': set obkvsdam['Nord'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
	end
if obkvsdam['Street']>0 or obkvsdam['Down']>0 or obkvsdam['Nord']>0:
	act 'Check responses to your ad':
		cla
		CompCheckedResponses = 1
		if obkvsdam['Street'] = 1: 'No one has responded to your residental apartment ad'
		if obkvsdam['Down'] = 1: 'No one has responded to your downtown apartment ad'
		if obkvsdam['Nord'] = 1: 'No one has responded to your northern apartment ad'
		if obkvsdam['Street']>1 or obkvsdam['Down']>1 or obkvsdam['Nord']>1:
			if obkvsdam['Street']>1:
				set predsumm= (obkvsdam['Street'] * 1000) + 5000
				'Want to stay in your residental apartment for a month (<<predsumm>> rub).'
				act 'Rent (Residental)':
					set sdaday['Street'] = day
					set sdamonth['Street'] = month + 1
					set houserent['Street'] = 1
					set money += predsumm
					gt 'Komp','sale'
				end
			end
			if obkvsdam['Down']>1:
				set predsumm= (obkvsdam['Down'] * 1000) + 5000
				'Want to stay in your downtown apartment for a month (<<predsumm>> rub).'
				act 'Rent (Downtown)':
					set sdaday['Down'] = day
					set sdamonth['Down'] = month + 1
					set houserent['Down'] = 1
					set money += predsumm
					gt 'Komp','sale'
				end
			end
			if obkvsdam['Nord']>1:
				set predsumm= (obkvsdam['Nord'] * 1000) + 5000
				'Want to stay in your northern apartment for a month (<<predsumm>> rub).'
				act 'Rent (Northern)':
					set sdaday['Nord'] = day
					set sdamonth['Nord'] = month + 1
					set houserent['Nord'] = 1
					set money += predsumm
					gt 'Komp','sale'
				end
			end
		end
		act 'Exit': gt 'Komp','start'
	end
end
act 'Exit': gt 'Komp','start'
end

if $ARGS[0] = 'remont':
cla
*clr
set minut += 15
set internetM -= 60
set elektro += 3
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You are logged in apartment repairs.'
	if housr = 1:
		if rembedr = 0:
			act '50 refurbished bedrooms sput':
			if money >= 50000:
				cla
				set rembedr = 1
				set money -= 50000
				'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
			else
				cla
				'Unfortunately, you will not have enough money.'
			end
			act 'Exit': gt 'Komp','remont'
			end
		end

		if remsitr = 0:
			act 'Renovate hall 50,000 rubles':
			if money >= 50000:
				cla
				set remsitr = 1
				set money -= 50000
				'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
			else
				cla
				'Unfortunately, you will not have enough money.'
			end
			act 'Exit': gt 'Komp','remont'
			end
		end

		if remkorr = 0:
			act 'Repair corridor 50,000 rubles':
			if money >= 50000:
				cla
				set remkorr = 1
				set money -= 50000
				'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
			else
				cla
				'Unfortunately, you will not have enough money.'
			end
			act 'Exit': gt 'Komp','remont'
			end
		end

		if remvanr = 0:
			act 'Renovate the bathroom 50,000 rubles':
			if money >= 50000:
				cla
				set remvanr = 1
				set money -= 50000
				'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
			else
				cla
				'Unfortunately, you will not have enough money.'
			end
			act 'Exit': gt 'Komp','remont'
			end
		end

		if remkuhr = 0:
			act 'Renovate a kitchen 50,000 rubles':
			if money >= 50000:
				cla
				set remkuhr = 1
				set money -= 50000
				'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
			else
				cla
				'Unfortunately, you will not have enough money.'
			end
			act 'Exit': gt 'Komp','remont'
			end
		end
	end

act 'Exit': gt 'Komp','start'
end

if $ARGS[0] = 'porno':
cla
*clr
set minut += 15
set internetM -= 60
set manna += 5
set elektro += 3
set willpower += RAND(5,10)
set manna += RAND(10,50)
set horny += 5
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You went to a porn site.'
$pornomastr = {
cls
'<center><img src="images\pics\kompmas.jpg"></center>'
set minut += 15
sweat += 1
set horny += RAND(10,25)
if divanmastr = 0: divanmastr = 1 & set mastr += 1
gs 'stat'
'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
if horny >= 100: orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
act 'Finish': divanmastr = 0 & gt 'Komp','porno'
if horny >= 50: act 'Proceed': dynamic $pornomastr
}

	act 'Watch porn on':
	cla
	'<center><img src="images\etogame\porno.jpg"></center>'
	gt 'Komp','porno'
	end

	if horny >= 50: act 'Masturbate (0:15)': dynamic $pornomastr

act 'Exit': gt 'Komp','start'
end

if $ARGS[0] = 'pasians':
cla
*clr
set minut += 15
set manna += 5
set elektro += 3
set willpower += RAND(5,10)
set manna += RAND(10,50)
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You entertained for an hour unfolding of solitaire on the computer.'
act 'Lay another 15 minutes': gt 'Komp','pasians'
act 'Close Solitaire': gt 'Komp','start'
end

if $ARGS[0] = 'znak':
cla
*clr
set minut += 15
set internetM -= 60
set manna += 5
set elektro += 3
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You are logged on to a dating site.'
'Selection of boys is only possible if there is no boyfriend.'

	if bfA <= 0:
		act 'To pick up a guy with a gentle disposition':
		cla
		gs 'boy'
		gs 'boyfrend','start'
		set stopboy = 0
		set harakBoyA = 0
		'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
		act 'Exit': gt 'Komp','start'
		end

		act 'To pick up a guy with a common character':
		cla
		gs 'boy'
		gs 'boyfrend','start'
		set stopboy = 0
		set harakBoyA = 1
		'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
		act 'Exit': gt 'Komp','start'
		end

		act 'To pick up a guy with a strong character':
		cla
		gs 'boy'
		gs 'boyfrend','start'
		set stopboy = 0
		set harakBoyA = 2
		'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
		act 'Exit': gt 'Komp','start'
		end
	end
	if gor_dorm = 8:
		act 'Pick suitors for Eugene':
			cla
			gor_dorm = 9
			'You shoveled tens of questionnaires before selecting suitable candidates in all respects and sent letters inviting them to meet.'
			'Now we have to wait her turn, something with them or not.'
			act 'Leave': gt 'Komp','start'
		end
	end


act 'Exit': gt 'Komp','start'
end

if $ARGS[0] = 'kabtv':
cla
*clr
set minut += 15
set internetM -= 60
set elektro += 3
clr
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You are logged in to the website provider of cable TV.'
	if kabel = 1:
		'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'
		act 'Abandon cable TV':
		cla
		'You have disconnected cable channels, paying the current month'
		kabel = 1
		money = money - 300
		gt 'Komp','kabtv'
		end
	end
	if kabel = 0 and TV = 1:
		'You do not have a cable TV'
		act 'Connect cable TV':
		cla
		'Unfortunately for viewing cable television requires a more modern TV'
		gt 'Komp','kabtv'
		end
	end
	if kabel = 0 and TV >= 2:
		'You do not have a cable TV'
		act 'Connect Cable TV (300 rubles per month)':
		cla
		'You hooked up cable TV services'
		kabel = 1
		gt 'Komp','kabtv'
		end
	end
act 'Exit': gt 'Komp','start'
end

if $ARGS[0] = 'foto':
cla
*clr
set internetM -= 60
set elektro += 3
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
'You are logged in to the social network "in the ass."'
	if shantfoto > 0:
		act 'Search':
		cla
		set minut += 60
		set fotsearchrand = rand(0,10)
			if fotsearchrand <= 7:
			'You did not find anyone, maybe better luck later.'
			act 'Finish': gt 'Komp','foto'
			end
			if fotsearchrand > 7:
			set shantfoto -= 1
			set gerofotorand = rand(0,100)
			'You found the heroine a photo shoot'
				if gerofotorand > 30:
				'Judging by the photos on her page this poor girl and take her with nothing.'
				act 'Finish': gt 'Komp','foto'
				end
				if gerofotorand >= 5 and gerofotorand <= 30:
				set shantsr += 1
				'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'
				act 'Finish': gt 'Komp','foto'
				end
				if gerofotorand < 5:
				set shantbog += 1
				'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'
				act 'Finish': gt 'Komp','foto'
				end
			end
		end
	end
act 'Browser': gt 'Komp','brows'
end

if $ARGS[0] = 'rabota':
cla
*clr
set minut += 60
set internetM -= 60
set komprabota = RAND(0,10)
gs 'stat'
'<center><img src="images\pics\komp.jpg"></center>'
if komprabota = 0:
	'You found an ad: "Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
	if vnesh < 30: 'But you are under this description does not fit'
	if vnesh >= 30:
		act 'Go at': gt 'qjob','var1'
		end
	if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
	act 'Finish': gt 'Komp','brows'
	end
if komprabota = 1:
	'You found an ad: "Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
	if vnesh < 30: 'But you are under this description does not fit'
	if vnesh >= 30:
		act 'Go at': gt 'qjob','var2'
		end
	if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
	act 'Finish': gt 'Komp','brows'
	end
if komprabota > 1 and komprabota < 5:
	'You found an ad: "The artist is required naturschitsa, simpotichnoy appearance, cash 1,000 rubles."'
	if vnesh < 15: 'But you are under this description does not fit'
	if vnesh >= 15:
		act 'Go at': gt 'qjob','var3'
		end
	if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
	act 'Finish': gt 'Komp','brows'
	end
if komprabota > 4:
	'You did not find anything suitable.'
	if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
	act 'Finish': gt 'Komp','brows'
	end
end

if $ARGS[0] = 'fin':
gt $locM, $metkaM
end
--- Komp ---------------------------------

# selfPorno
if $ARGS[0] = 'start':
	clr
	gs 'stat'
	'You have spent <<selfPornVidTime>> minutes on your film and had <<videoOrgasm>> orgasms on camera.'
	if selfPornVidTime<300:
		if nude ! 1:
			act 'Strip': dynamic $selfPorno_Strip
		end

		act 'Fondle Breasts': dynamic $selfPorno_Fondle

		if nude = 1:
			act 'Masturbate':dynamic $selfPorno_Masturbate
		end

		if nude = 1 and dildo > 0:
			act 'Masturbate with dildo': dynamic $selfPorno_Dildo
		end

		if nude = 1 and zoo >= 1:
			act 'Fuck your dog': dynamic $selfPorno_Dog
		end
	else
		'You have spent over five hours on a single video, your done with it.'
	end

	if selfPornVidTime>0 and DVDDisk > 0: act 'Finish Video and burn to disk': dynamic $selfPorno_Disk
	if selfPornVidTime>0: act 'Finish Video and upload to site': dynamic $selfPorno_Finish

	act 'Leave webcam program': gt 'Komp','start'
end

$selfPorno_Strip = {
	cla
	*clr
	set nude=1
	set odedosna=numdress
	set numdress=0
	set selfPornVidTime += 5
	set minut += 5
	set selfPornVar += 5
	set horny += 5
	clr
	!gs 'stat'
	'You spent five minutes stripping erotically.'
	act 'Continue': gt 'selfPorno','start'
}

$selfPorno_Fondle = {
	cla
	*clr
	gs 'stat'
	set minut+=5
	if nude ! 1:
		set selfPornVidTime += 5
		set selfPornVar += 3
		set horny += 7
		clr
		'You spent five minutes fondling your breasts through your clothes.'
	else
		set selfPornVidTime += 5
		set selfPornVar += 5
		set horny += 10
		clr
		'You spent five minutes fondling your breasts.'
	end

	act 'Continue': gt 'selfPorno','start'
}

$selfPorno_Masturbate = {
	cla
	*clr
	gs 'stat'
	set selfPornVidTime += 10
	set minut += 10
	set mastr += 1
	set manna += 15
	set willpower += 15
	set horny += 10
	if horny <=90:
		clr
		set selfPornVar += 5
		'You spend ten minutes masturbating for the camera.'
		act 'Continue': gt 'selfPorno','start'
	else
		clr
		set videoOrgasm += 1
		set selfPornVar += 8
		'You spend ten minutes masturbating for the camera and end up orgasming.'
		act 'Continue': gt 'selfPorno','start'
	end
}

$selfPorno_Dildo = {
	cla
	*clr
	gs 'stat'
	set selfPornVidTime += 10
	set minut += 10
	set mastr += 1
	set manna += 15
	set willpower += 15
	set horny += 15
	set selfPornVar += 5
	if horny <=85:
		set selfPornVar += 10
		clr
		'You spend ten minutes masturbating for the camera with a dildo.'
		act 'Continue': gt 'selfPorno','start'
	else
		clr
		set videoOrgasm += 1
		set selfPornVar += 15
		'You spend ten minutes masturbating for the camera with a dildo and end up orgasming.'
		act 'Continue': gt 'selfPorno','start'
	end
}

$selfPorno_Dog = {
	cla
	*clr
	gs 'stat'
	set selfPornDogTime = rand(10,25)
	set selfPornVidTime += selfPornDogTime
	set minut += selfPornDogTime
	set zoo += 1
	set manna += 15
	set willpower += 15
	set horny += 15
	set selfPornVar += selfPornDogTime
	if horny <=85:
		set selfPornVar += 10
		clr
		'You spend <<selfPornDogTime>> minutes having sex with your dog on camera.'
		act 'Continue': gt 'selfPorno','start'
	else
		set videoOrgasm += 1
		set selfPornVar += 15
		clr
		'You spend <<selfPornDogTime>> minutes having sex with your dog on camera and end up orgasming.'
		act 'Continue': gt 'selfPorno','start'
	end
}

$selfPorno_Finish = {
	clr
	gs 'stat'
	set webcamday = day
	if selfPornVidTime >= 0 and selfPornVidTime < 20:
		set selfPornVidMoney = selfPornVar*50*videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid+=1
		cls
		'You put together your video and upload it to a site'
		act 'Continue': gt 'Komp','start'
	end
	if selfPornVidTime >= 20 and selfPornVidTime < 120:
		set selfPornVidMoney = selfPornVar*100*videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid+=1
		cls
		'You put together your video and upload it to a site'
		act 'Continue': gt 'Komp','start'
	end
	if selfPornVidTime >= 120:
		set selfPornVidMoney = selfPornVar*75*videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid+=1
		cls
		'You put together your video and upload it to a site'
		act 'Continue': gt 'Komp','start'
	end
}

$selfPorno_Disk = {
	clr
	gs 'stat'
	set webcamday = day
	set DVDDisk -= 1
	set selfPornvidDVD+=1
	set minut += 10
	set selfPornVidTime = 0
	set selfPornVar = 0
	set videoOrgasm = 0
	'You burned your porn video to a DVD.'
	act 'Continue': gt 'Komp','start'
}
--- selfPorno ---------------------------------

# mirror
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	gs 'portmirror'
	set $goto1 = 'mirror'
	set $goto2 = 'fin'
	dynamic $portmirror
	act 'Move away from the mirror':
		cla
		gt '<<$goto1>>','<<$goto2>>'
	end
end

if $ARGS[0] = 'fin':
cla

gt $locM, $metkaM

	!'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
	set housrA = 0
	gt 'korr'
	end

	if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
	set housrA = 0
	set housrMir = 0
	gt 'bedr'
	end

	if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
	set fitMir = 0
	gt 'fit','razd'
	end

	if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
	set stripMir = 0
	gt 'stwork','start'
	end

	if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
	set palMir = 0
	gt 'palatka','start'
	end

	if saunaYouRoom = 1:
	saunaYouRoom = 0
	gt $locBroom, $metkaBroom
	end

	if housrA = 0 and obMir = 1:
	set obMir = 0
	gt 'obroom','start'
	end

	if housrA = 0 and borMir = 1:
	set borMir = 0
	gt 'bordel','start'
	end

	if housrA = 0 and tanhouse1 = 1:
	set tanhouse1 = 0
	gt 'spalnya'
	end'

end
--- mirror ---------------------------------

# stol
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	'Oddments drawer.'
	if Stolprezik > 0: 'In the drawer are <<Stolprezik>> condoms'
	if Stoltabletki > 0: 'In the drawer are <<Stoltabletki>> birth control pills'
	if Stollubri > 0: 'In the drawer is lubricant, enough for <<Stollubri>> uses.'
	!if prezik > 0: 'Packing condoms, it <<prezik>> pc.'
	!if tabletki > 0: 'Birth control pills <<tabletki>> pc.'
	!if lubri > 0: 'Lubricant, enough for <<lubri>> time.'
	if krem > 0: 'Sunblock <<krem>>'
	if abonement > 0: 'Subscription is valid for <<abonement>> Occupation'

	if dildo > 0: 'Realistic Dildo'

	act 'Close the drawer':
		cla
		gt 'stol','fin'
	end

	if prezik > 0:
		act 'Remove condoms from purse':
		stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <<prezik>> condoms.)")
			if stolIN <= 0 or stolIN > prezik:
			else
			set stolprezik += stolIN
			set prezik -= stolIN
			end
		gt 'stol','start'
		end
	end

	if Stolprezik > 0:
		act 'Get condoms from desk':
		stolOUT = input ("How many condoms to place in purse? (Desk has <<stolprezik>> condoms.)")
			if stolOUT <= 0 or stolOUT > stolprezik:
			else
			set stolprezik -= stolOUT
			set prezik += stolOUT
			end
		gt 'stol','start'
		end
	end

	if tabletki > 0:
		act 'Remove pills from purse':
		stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <<tabletki>> pills.)")
			if stolIN <= 0 or stolIN > tabletki:
			else
			set Stoltabletki += stolIN
			set tabletki -= stolIN
			end
		gt 'stol','start'
		end
	end

	if Stoltabletki > 0:
		act 'Get pills from desk':
		stolOUT = input ("How many birth control pills to place in purse? (Desk has <<Stoltabletki>> pills.)")
			if stolOUT <= 0 or stolOUT > Stoltabletki:
			else
			set Stoltabletki -= stolOUT
			set tabletki += stolOUT
			end
		gt 'stol','start'
		end
	end

	if lubri > 0:
		act 'Remove lubricant from purse':
		stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <<lubri/5>> uses.)")
			if stolIN <= 0 or stolIN > lubri/5:
			else
			set Stollubri += stolIN * 5
			set lubri -= stolIN * 5
			end
		gt 'stol','start'
		end
	end

	if Stollubri > 0:
		act 'Get lubricant from desk':
		stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <<Stollubri/5>> uses.)")
			if stolOUT <= 0 or stolOUT > Stollubri/5:
			else
			set Stollubri -= stolOUT * 5
			set lubri += stolOUT * 5
			end
		gt 'stol','start'
		end
	end

	if money > 0:
		act 'Put your money in the drawer':
		cla
		stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> rubles.)")
			if stolIN <= 0 or stolIN > money:
			!'Not correct operation.'
			else
			set stolmoney += stolIN
			set money -= stolIN
			end
		gt 'stol','start'
		end
	end

	if stolmoney > 0:
		act 'Take money from the desk.':
		cla
		stolOUT = input ("How much money do you want place in your purse? (There is <<stolmoney>> rubles here.)")
			if stolOUT <= 0 or stolOUT > stolmoney:
			!'Not correct operation.'
			else
			set stolmoney -= stolOUT
			set money += stolOUT
			!'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
			end
		gt 'stol','start'
		end
	end
end


if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM
	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'sitr'
	end'
end
--- stol ---------------------------------

# telefon
$objmobilaraz = {
cla
set telotvet = RAND(0,10)
'"Yes, I´m listening," said a voice from the speaker.'
act 'Invite to movie':
	cla
	'YOU: Come with me to the movies?'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the theater.'
	act 'Go': gt 'kinosvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
if month > 5 and temper > 20 and osadki < painweather:
act 'Invite a walk in the park':
	cla
	'YOU: Let´s go take a walk in the park.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the park.'
	act 'Go': gt 'parksvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
	end
act 'Invite billiards':
	cla
	'YOU: Let´s go to the pool.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour of billiards.'
	act 'Go': gt 'billsvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
act 'Invite a cafe':
	cla
	'YOU: Let´s go to the cafe.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the cafe.'
	act 'Go': gt 'kafesvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
act 'Invite casino':
	cla
	'YOU: Let´s go to the casino´s go.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour at the casino.'
	act 'Go': gt 'kazinosvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
act 'Hangup': gt 'telefon','fin'
}

$objmobilarazboy = {
cla
set telotvet = RAND(0,10)
'"Yes, I´m listening," said a voice from the speaker.'
act 'Invite to movie':
	cla
	'YOU: Come with me to the movies?'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the theater.'
	act 'Go': gt 'svidboy','kinosvid'
	end
	if telotvet <= 3: dynamic $telotkaz
	end
if month > 5 and temper > 20 and osadki < painweather:
act 'Invite a walk in the park':
	cla
	'YOU: Let´s go take a walk in the park.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the park.'
	act 'Go': gt 'svidboy','parksvid'
	end
	if telotvet <= 3: dynamic $telotkazboy
	end
	end
act 'Invite billiards':
	cla
	'YOU: Let´s go to the pool.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour of billiards.'
	act 'Go': gt 'svidboy','billsvid'
	end
	if telotvet <= 3: dynamic $telotkazboy
	end
act 'Invite a cafe':
	cla
	'YOU: Let´s go to the cafe.'
	if telotvet > 3:
	'<<$telsob>>: Well let an hour in the cafe.'
	act 'Go': gt 'svidboy','kafesvid'
	end
	if telotvet <= 3: dynamic $telotkazboy
	end
act 'Hangup': gt 'telefon','fin'
}

$telotkaz = {
cla
set minut += 10
'<<$telsob>>: Sorry I´m busy, come next time.'
act 'Hangup': gt 'telefon','fin'
}

$telotkazboy = {
cla
set minut += 10
'<<$boyA>>: Sorry, I´m busy right now, come next time.'
act 'Hangup': gt 'telefon','fin'
}

if $ARGS[0] = 'start':
cla
clr
gs 'stat'

if vladimirday ! day and vladimirQW = 20 and hour = 16: gt 'qwloc2'
if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6: gt 'qwloc3'
if vladimirday ! day and vladimirQW = 35 and hour = 16 and week = 6: GT 'qwloc4'
if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12: GT 'qwlocdog'
	if ring = 0:
	if number = 6: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></B></center>'
	if number = 5: '<center><B><<num6>><<num5>>-<<num4>><<num3>>-<<num2>></B><<num1>></center>'
	if number = 4: '<center><B><<num6>><<num5>>-<<num4>><<num3>></B>-<<num2>><<num1>></center>'
	if number = 3: '<center><B><<num6>><<num5>>-<<num4>></B><<num3>>-<<num2>><<num1>></center>'
	if number = 2: '<center><B><<num6>><<num5>></B>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	if number = 1: '<center><B><<num6>></B><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	if number = 0: '<center><<num6>><<num5>>-<<num4>><<num3>>-<<num2>><<num1>></center>'
	*nl
	'<center><B><a href="exec:GT ''telefon'',''1''">1</a> <a href="exec:GT ''telefon'',''2''">2</a> <a href="exec:GT ''telefon'',''3''">3</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''4''">4</a> <a href="exec:GT ''telefon'',''5''">5</a> <a href="exec:GT ''telefon'',''6''">6</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''7''">7</a> <a href="exec:GT ''telefon'',''8''">8</a> <a href="exec:GT ''telefon'',''9''">9</a></B></center>'
	'<center><B><a href="exec:GT ''telefon'',''Reset''">Clear</a> <a href="exec:GT ''telefon'',''0''">0</a> <a href="exec:GT ''telefon'',''Call''">Call</a></B></center>'

if hour >= 8 and hour <= 19:
	if telalla > 0:
		act 'Call Alla':
			$telsob = 'Alla'
			dynamic $objmobilaraz
			end
		end
	if telmasha > 0:
		act 'Call Masha':
			$telsob = 'Masha'
			dynamic $objmobilaraz
			end
		end
	if telkat > 0:
		act 'Call Kate':
			$telsob = 'Katia'
			dynamic $objmobilaraz
			end
		end
	if bfA > 0 and svidanieA = 0:
		act 'Call <<$boyA>>': dynamic $objmobilarazboy
		end
	end
		if nastjaqw = 1 and week = 6 and vnesh > 20: act 'Call Nastya': gt 'nastja','pos4'
		if nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! day: act 'Chat with Nastya': gt 'nastja', 'pos13'
		if hour >= 8 and hour <= 20 and nastjaqw = 2 and week = 6 and vnesh > 20 and nastjaday ! day: act 'On the beach with Nastya': gt 'nastja','pos12'
		if nastjaqw = 5 and week = 6 and nastjaday ! day: act 'Invite Nastya': gt 'nastja','pos22'
		if nastjaqw = 6 and nastjaday ! day: act 'Call Nastya': gt 'nastja','pos31'

		act 'Hangup':
		cla
		gt 'telefon','fin'
		end
	end

	if ring = 1:
		if ringA = 1:
		gt 'telefon','boyA'
		exit
		end

		if ringB = 1:
		gt 'telefon','boyB'
		exit
		end

		if ringC = 1:
		gt 'telefon','boyC'
		exit
		end
	end


end

if $ARGS[0] = 'boyA':
cla
clr
gs 'stat'
set ring = 0
set ringA = 0
set boydayA = day
set svetrand = RAND(0,5)
if svetrand = 0: set $sveta = 'lapulya'
if svetrand = 1: set $sveta = 'Bunny'
if svetrand = 2: set $sveta = 'pussy'
if svetrand = 3: set $sveta = 'small fish'
if svetrand = 4: set $sveta = 'Svetsik'
if svetrand = 5: set $sveta = '<<$name>>'
'Hi <<$sveta>> is <<$boyA>> how´s it going?'
act 'Normally':
	cla
	'(You) - normally, and you have both?'
	'(<<$boyA>>) - just great, that´s just miss you, can meet today?'
	if pregtime <= dayA and pregtime >= 7 and pregtalk = 0:
		act 'Honey, you will soon become a dad.':
			cla
			pregtalk = 1
			'(You) - Honey, you will soon become a dad.'
			if harakBoyA = 0:
				if bfA >= 90:
					'(<<$boyA>>) - This is wonderful! We will soon be addition.'
					set love = 1
					'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants you to meet his parents.'
					'He warns you that my mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upset her. Therefore, you must look gorgeous, the dress from a boutique, well-groomed and curled hair, cosmetics in moderation.'
					'At the next vstreche once you will be totally ready <<$boyA>> will take you to their parents.'
					act 'Hang up.': gt 'telefon','fin'
					act 'Meet tonight':
						cla
						set svidanieA = 1
						'(You) - can be found in the evening.'
						'(<<$boyA>>) - What time I come to your house?'
						act 'Call time.':
							cla
							meetday = daystart
							meethour = input ("Name the hour in which the guy to come. now <<hour>> hour, you can only assign a greater number of")
							if meethour <= hour or meethour > 23: meethour = 20
							'(You) - Do it in 20 hours.'
							'(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
							$meetloc[0] = $HouseLocation
							act 'Hang up.': gt 'telefon','fin'
							end
						end
					end
				if bfA < 90:
					'(<<$boyA>>) - I´m not yet ready to become a dad. I´ll give you the money for an abortion. Go out and get rid of the child.'
					money += 20000
					act 'Hang up.': gt 'telefon','fin'
					end
				end
			if harakBoyA = 1:
				'(<<$boyA>>) - I´m not yet ready to become a dad. I´ll give you the money for an abortion. Go out and get rid of the child.'
				money += 20000
				act 'Hang up.': gt 'telefon','fin'
				end
			if harakBoyA = 2:
				'(<<$boyA>>) - What? Yes you ohuel! Somewhere tucked pussy and now dumped on me. Come on you dick.'
				set bfA = 0
				pregtalk = 0
				act 'Hang up.': gt 'telefon','fin'
				end
			end
		end
	if pregtime > dayA and pregtime >= 7 and pregtalk = 0:
		act 'Honey, you will soon become a dad.':
			cla
			'(You) - Honey, you will soon become a dad.'
			'(<<$boyA>>) - How the fuck dad? We meet with you less than you´re pregnant. Sprained whore who is here, and go to him. Everything. I can not call. Goodbye.'
			set bfA = 0
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	if week > 1 and week < 5 and workKafe = 1:
		act 'Oh, sorry, I´m working today.':
			cla
			'(You) - Oh, sorry, I´m working today.'
			'(<<$boyA>>) - okay, call tomorrow.'
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	act 'Tonight':
		cla
		set bfA += 1
		set svidanieA = 1
		meetday = daystart
		'(You) - can be found in the evening.'
		'(<<$boyA>>) - What time I come to your house?'
		act 'Call time.':
			cla
			meethour = input ("Name the hour in which the guy to come. Now <<hour>> hour, you can only assign a greater number of single-digit")
			if meethour <= hour or meethour > 23: meethour = 20
			'(You) - Come on in <<meethour>> hours.'
			'(<<$boyA>>) - Okay, <<$sveta>> then to <<meethour>> hours.'
			$meetloc[0] = $HouseLocation
			act 'Hang up.': gt 'telefon','fin'
			end
		end
	act 'I´m busy today. Call tomorrow.':
		cla
		set bfA -= 1
		'(You) - I´m busy today. Call tomorrow.'
		if bfa <= 0: set bfa = 0 & '(<<$boyA>>) - damn, you´ve fucked me, come on dick.'
		if bfa > 0: '(<<$boyA>>) - okay, until then.'
		act 'Hang up.': gt 'telefon','fin'
		end
	end
act 'Leave':
	cla
	set bfA = 0
	gt 'telefon','fin'
	end
end

if $ARGS[0] = 'boyB':
cla
clr
gs 'stat'
set ring = 0
set ringB = 0
set boydayB = day

'<<$boyB>> offers a walk.'
	act 'Leave':
	cla
	set bfB = 0
	gt 'telefon','fin'
	end

	act 'Call tomorrow':
	cla
	set bfB -= 1
		if bfB <= 0: set bfB = 0 & '<<$boyB>> said he throws you.'
		if bfB > 0: '<<$boyB>> angry and hung up.'
	gt 'telefon','fin'
	end

	act 'Tonight':
	cla
	set bfB += 1
	set svidanieB = 1
	'<<$boyB>> asked how much he come to your house.'
		act 'Let 20 hours.':
		cla
		'You are warmly said goodbye and ended the conversation on this.'
		$meetloc[1] = $HouseLocation
		act 'Hang up.': gt 'telefon','fin'
		end
	end
end

if $ARGS[0] = 'boyC':
cla
clr
gs 'stat'
set ring = 0
set ringC = 0
set boydayC = day

'<<$boyC>> offers a walk.'
	act 'Leave':
	cla
	set bfC = 0
	gt 'telefon','fin'
	end

	act 'Call tomorrow':
	cla
	set bfC -= 1
		if bfC <= 0: set bfC = 0 & '<<$boyC>> said he throws you.'
		if bfC > 0: '<<$boyC>> angry and hung up.'
	gt 'telefon','fin'
	end

	act 'Tonight':
	cla
	set bfC += 1
	set svidanieC = 1
	'<<$boyC>> asked how much he come to your house.'
		act 'Let 20 hours.':
		cla
		'You are warmly said goodbye and ended the conversation on this.'
		$meetloc[2] = $HouseLocation
		act 'Hang up.': gt 'telefon','fin'
		end
	end
end

if $ARGS[0] = 'Call':
cla
	if num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 1:
	'Allo. This firehouse. Speak.'
	elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 2:
	'Allo. This is the police. Speak.'
	elseif num6 = 0 and num5 = 0 and num4 = 0 and num3 = 0 and num2 = 0 and num1 = 3:
	'Allo. This ambulance. Speak.'
	else
	'Dialtone'
	end

	act 'Hangup':
	cla
	gt 'telefon','fin'
	end
end


if $ARGS[0] = '1':
cla
	if number = 6:
	end
	if number = 5: set num1 = 1 & set number = 6
	if number = 4: set num2 = 1 & set number = 5
	if number = 3: set num3 = 1 & set number = 4
	if number = 2: set num4 = 1 & set number = 3
	if number = 1: set num5 = 1 & set number = 2
	if number = 0: set num6 = 1 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '2':
cla
	if number = 6:
	end
	if number = 5: set num1 = 2 & set number = 6
	if number = 4: set num2 = 2 & set number = 5
	if number = 3: set num3 = 2 & set number = 4
	if number = 2: set num4 = 2 & set number = 3
	if number = 1: set num5 = 2 & set number = 2
	if number = 0: set num6 = 2 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '3':
cla
	if number = 6:
	end
	if number = 5: set num1 = 3 & set number = 6
	if number = 4: set num2 = 3 & set number = 5
	if number = 3: set num3 = 3 & set number = 4
	if number = 2: set num4 = 3 & set number = 3
	if number = 1: set num5 = 3 & set number = 2
	if number = 0: set num6 = 3 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '4':
cla
	if number = 6:
	end
	if number = 5: set num1 = 4 & set number = 6
	if number = 4: set num2 = 4 & set number = 5
	if number = 3: set num3 = 4 & set number = 4
	if number = 2: set num4 = 4 & set number = 3
	if number = 1: set num5 = 4 & set number = 2
	if number = 0: set num6 = 4 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '5':
cla
	if number = 6:
	end
	if number = 5: set num1 = 5 & set number = 6
	if number = 4: set num2 = 5 & set number = 5
	if number = 3: set num3 = 5 & set number = 4
	if number = 2: set num4 = 5 & set number = 3
	if number = 1: set num5 = 5 & set number = 2
	if number = 0: set num6 = 5 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '6':
cla
	if number = 6:
	end
	if number = 5: set num1 = 6 & set number = 6
	if number = 4: set num2 = 6 & set number = 5
	if number = 3: set num3 = 6 & set number = 4
	if number = 2: set num4 = 6 & set number = 3
	if number = 1: set num5 = 6 & set number = 2
	if number = 0: set num6 = 6 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '7':
cla
	if number = 6:
	end
	if number = 5: set num1 = 7 & set number = 6
	if number = 4: set num2 = 7 & set number = 5
	if number = 3: set num3 = 7 & set number = 4
	if number = 2: set num4 = 7 & set number = 3
	if number = 1: set num5 = 7 & set number = 2
	if number = 0: set num6 = 7 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '8':
cla
	if number = 6:
	end
	if number = 5: set num1 = 8 & set number = 6
	if number = 4: set num2 = 8 & set number = 5
	if number = 3: set num3 = 8 & set number = 4
	if number = 2: set num4 = 8 & set number = 3
	if number = 1: set num5 = 8 & set number = 2
	if number = 0: set num6 = 8 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '9':
cla
	if number = 6:
	end
	if number = 5: set num1 = 9 & set number = 6
	if number = 4: set num2 = 9 & set number = 5
	if number = 3: set num3 = 9 & set number = 4
	if number = 2: set num4 = 9 & set number = 3
	if number = 1: set num5 = 9 & set number = 2
	if number = 0: set num6 = 9 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = '0':
cla
	if number = 6:
	end
	if number = 5: set num1 = 0 & set number = 6
	if number = 4: set num2 = 0 & set number = 5
	if number = 3: set num3 = 0 & set number = 4
	if number = 2: set num4 = 0 & set number = 3
	if number = 1: set num5 = 0 & set number = 2
	if number = 0: set num6 = 0 & set number = 1
gt 'telefon','start'
end

if $ARGS[0] = 'Reset':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt 'telefon','start'
end


if $ARGS[0] = 'fin':
cla
set num1 = 0
set num2 = 0
set num3 = 0
set num4 = 0
set num5 = 0
set num6 = 0
set number = 0
gt $locM, $metkaM
	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'korr'
	end'
end

--- telefon ---------------------------------

# TV
if $ARGS[0] = 'start':
cla

clr
gs 'stat'
set elektro += 5

'<center><img src="images\pics\telek.jpg"></center>'
'You turn on the TV and settled comfortably on the couch.'

if TV = 1: 'Ancient TV turns on and out came the sound of hoarse advertising.'
if TV = 2: 'Huge plasma joined and out came the sound of advertising smartly.'

if kabel = 0:
	'You do not have cable, so shows only one channel at a constant advertising and news.'
	act 'Watch TV (1:00)': gt 'TV','nokable'
end

if kabel = 1:
	'You have cable TV.'
	act 'Watch TV (1:00)': gt 'TV','kable'
end

if daystart < 10 and StoryLine = 0: 'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'
	act 'Turn off the TV and get off the couch':
		cla
		gt 'TV','fin'
	end
end

if $ARGS[0] = 'nokable':
cla
*clr
set minut += 60
set manna += 3
set willpower += RAND(5,10)
set manna += RAND(10,50)
set elektro += 3
clr
gs 'stat'
'<center><img src="images\pics\telek.jpg"></center>'
'You are viewing the central channel lying on the couch. Watch almost nothing solid and cheesy advertising program.'
if daystart < 10 and StoryLine = 0: 'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'

act 'Watch TV (1:00)': gt 'TV','nokable'
act 'Turn off the TV and get off the couch': gt 'TV','fin'
end

if $ARGS[0] = 'kable':
cla
*clr
set minut += 60
set manna += 6
set willpower += RAND(10,20)
set manna += RAND(50,100)
set elektro += 3
clr
gs 'stat'
'<center><img src="images\pics\telek.jpg"></center>'
'You are viewing cable television.'
if daystart < 10 and StoryLine = 0: 'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'

act 'Watch TV (1:00)': gt 'TV','kable'
act 'Turn off the TV and get off the couch': gt 'TV','fin'
end

if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM
end
--- TV ---------------------------------

# vann
$stirkao = {
cla
*clr
set minut += dirtbelo * 5
set clrbelo += dirtbelo
set poroshok -= 1
set dirtbelo = 0
set manna -= 10
'<center><img src="images\etogame\stir.jpg"></center>'
'You soak the clothes in a basin pour the washing powder there. You then wash your clothes until they are clean.'
act 'Finish': gt 'vann','start'
}
if $ARGS[0] = 'start':
cla
clr
gs 'stat'
if obdysh = 1 and vannin = 0:
	set vanobrand = RAND(0,10)
	set vannin = 1
	if vanobrand = 0: gt 'vann','v1'
	if vanobrand = 1: gt 'vann','v2'
	if vanobrand = 2: gt 'vann','v3'
	end
set vannin = 1
'<center><img src="images\pics\wash1.jpg"></center>'
if shampoo = 0: 'Damn, you''re out of shampoo'
if obdysh = 1 or tanhouse1 = 1 or palMir = 1 or bordysh = 1:
	if dirtbelo > 0 and poroshok > 0: '<a href="exec: dynamic $stirkao ">You have clothes you can wash</a>'
	if tampon > 0 and mesec > 0 and isprok = 0:
		act 'Use a tampon':
			cla
			*clr
			set tampon -= 1
			set isprok = 1
			set minut += 5
			set manna -= 5
			'<center><img src="images\pics\wash3.jpg"></center>'
			'You use a tampon.'
			act 'Finish': gt 'vann','start'
			end
		end
	if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
		act 'Wash up (0:05)':
			cla
			*clr
			set cumpussy = 0
			set cumbelly = 0
			set cumass = 0
			set cumlip = 0
			set cumface = 0
			set cumanus = 0
			set cumfrot = 0
			set sweat -= 1
			set minut += 5
			set clrbelo -= 1
			set dirtbelo += 1
			'<center><img src="images\pics\wash5.jpg"></center>'
			'You carefully wash off the sperm from your body.'
			act 'Finish': gt 'vann','start'
			end
		end
	if cumlip > 0 or cumface > 0:
		act 'Wash cum off your face (0:05)':
			cla
			*clr
			set mop = 1
			set cumlip = 0
			set cumface = 0
			set sweat -= 1
			set minut += 5
			'<center><img src="images\etogame\facesp.jpg"></center>'
			'You carefully wash the sperm from your face.'
			act 'Finish': gt 'vann','start'
			end
		end
	if mop ! 1:
		act 'Wash off cosmetics':
			cla
			set mop = 1
			set minut += 15
			'You wash off  your makeup.'
			act 'Finish': gt 'vann','start'
			end
		end
	if klisma = 1 and klismaday ! day:
		act 'Give yourself an enema (0:05)':
			cla
			*clr
			set minut += 5
			set klismaday = day
			set klismaday1= 1
			'<center><img src="images\picV\klisma.jpg"></center>'
			'You give yourself an enema, now your ass is clean and ready for anal sex.'
			act 'Finish': gt 'vann','start'
			end
		end
	if vibrator = 1 and vibratorIN = 0:
		act 'Insert the vibrator (0:05)':
			cla
			*clr
			set minut += 5
			set vibratorIN = 1
			if vagina < 30: set vagina += 2
			'<center><img src="images\etogame\vibrator.jpg"></center>'
			'You bend over and insert the vibrator into your pussy.'
			act 'Finish': gt 'vann','start'
			end
		end
	if vibrator = 1 and vibratorIN = 1:
		act 'Remove the vibrator (0:05)':
			cla
			*clr
			set minut += 5
			set vibratorIN = 0
			if vagina < 30: set vagina += 1
			'<center><img src="images\etogame\vibrator.jpg"></center>'
			'You bend over and remove the vibrator from your pussy.'
			act 'Finish': gt 'vann','start'
			end
		end
	if analplug = 1 and analplugin = 0 and klismaday1= 1:
		act 'Insert a butt plug (0:05)':
			cla
			*clr
			set minut += 5
			set analplugIN = 1
			if anus < 30: set anus += 5
			'<center><img src="images\etogame\analplug.jpg"></center>'
			if butpluguse > 0: 'You bend over and expertly insert the buttplug into your anus.'
			if butpluguse = 0: set butpluguse = 1 & '"I don''t even want to touch this, why the hell did I buy it?", you think. Still, you decide to take a closer look. Feel, smell, in general, that ordinary gag. "Oh, was not," you think, "Wow priest ever to develop, it will have great adventures, you could even say a huge and thick adventures with crimson heads, uh, that I got carried away." You scratched thin fingers unusually hairy head. When you put the plug in your ass it is a bit painful at first while the bulbous head enters, but as soon as the widest part plunged into the murky depths of your rectum, it became easier and almost gag herself flew to the end, and got put on the manufacturer place.'
			act 'Finish': gt 'vann','start'
			end
		end
	if analplug = 1 and analplugin = 1:
		act 'Remove the butt plug (0:05)':
			cla
			*clr
			set minut += 5
			set analplugIN = 0
			if anus < 30: set anus += 1
			'<center><img src="images\etogame\analplug.jpg"></center>'
			if butpluguse > 0: 'You bend over remove your buttplug with ease.'
			act 'Finish': gt 'vann','start'
			end
		end
	end
act 'Get out': gt 'vann','fin'
if mosolmaz > 0 and mosol > 0:
	act 'Rub ointment onto your pussy (0:05)':
		cla
		minut += 5
		mosolmaz -= 1
		mosol -= 5
		'You take a tube of cream and rub it onto your itchy vulva.'
		act 'Get out and get dressed': gt 'vann','fin'
		end
	end
if shampoo > 0:
	act 'Take a shower (0:15)':
		cla
		*clr
		if tanga = 1:
			set clrbelo -= 1
			set dirtbelo += 1
			end
		shampoo -= 1
		set minut += 15
		set horny += 1
		set hapri = 0
		set mop = 1
		if sweat > -3: set sweat = -3
		set HasWashed = 0
		dynamic $showerdin
		if frost > 0: frost = 0
		'<center><img src="images\pics\dush.jpg"></center>'
		if daystart < 10 and StoryLine = 0: 'It is really wild to see your new body with all its smooth curves, breasts with large nipples, wide hips, and smooth legs. You begin to lather your body in the shower noticing how soft and tender it feels. Once you lather yourself with soap you wash in the shower, continuing to experience new and strange sensations.'
		if daystart >= 10 and daystart < 30 and StoryLine = 0: 'You have already gotten used to a woman''s body and its softness doesn''t surprise you very much.'
		if daystart >= 30 and StoryLine = 0 or StoryLine > 0: 'You carefully lather soap over your body trying not to miss any spot, and then wash off in the shower.'
		if (leghair > 0 or lobok > 0) and stanok > 0:
			act 'Get razor': gt 'vann','brit'
		end
		if horny >= 90:
			act 'Use the showerhead on your pussy':
				cla
				*clr
				set horny = 0
				set minut += 30
				set mastr += 1
				set orgasm += 1
				set manna += 15
				set willpower += 15
				'<center><img src="images\pics\wash2.jpg"></center>'
				'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. Soon you feel a warm wave covers your entire body and you begin to shudder as the orgasm overtakes you.'
				act 'Get out and get dressed': gt 'vann','fin'
				end
			end
		if horny >= 40 and hormy < 90:
			act 'Send shower pussy':
				cla
				*clr
				set horny += 5
				set minut += 30
				set manna += 10
				set willpower += 10
				'<center><img src="images\pics\wash2.jpg"></center>'
				'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. At first it feels very nice, but after a while it starts to be a little bit painful. You decide to stop masturbating.'
				act 'Get out and get dressed': gt 'vann','fin'
				end
			end
		act 'Get out and get dressed': gt 'vann','fin'
		end
	end
if shampoo > 0:
	act 'Take a bath (1:00)':
		cla
		*clr
		if tanga = 1:
			set clrbelo -= 1
			set dirtbelo += 1
			end
		shampoo -= 1
		set minut += 60
		if sweat > -3: set sweat = -3
		set horny += 1
		!set dirtbelo += 1
		set hapri = 0
		set mop = 1
		set manna += 10
		dynamic $showerdin
		if frost > 0: frost = 0
		set skinvan += 1
		set HasWashed = 0
		if skinvan = 20: set skinvan = 0 & set skin += 1
		'<center><img src="images\pics\wash4.jpg"></center>'
		if daystart < 10: 'You got into the bathroom and sat down in the warm water, sticking out of the water your knees are rounded and smooth, which you blinked, you still have not got used to his new body was wildly like to look at all these roundness. Starting lather body you unwittingly turned their attention to the chest, it´s so soft and big, and when you touch her body appear in what is unfamiliar but pleasant sensations. Then you washed with soap yourself and you can already out of the bathroom.'
		if daystart >= 10 and daystart < 30: 'You got into the bathroom and sat down in the warm water, you have a little accustomed to his new body and calmly soaping all these curves and bulges, then you flushed the soap.'
		if daystart >= 30: 'You got into the bathroom and went into the warm water stolidly staring at his smooth legs sticking out of the water. You lathered his body and then washed soap rubbing his hands over his curves of the female body.'
		!'You got into the bathroom and went into the warm water. Lathered body and flushed.'
		if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			act 'Get razor': gt 'vann','brit'
			end
		if obdysh = 1: set vannmastrand = RAND(0,5)
		if horny >= 90:
			act 'Direct water on pussy':
				cla
				*clr
				if obdysh = 1 and vannmastrand = 1: gt 'vann','v4'
				set horny = 0
				set minut += 30
				set mastr += 1
				set orgasm += 1
				set manna += 15
				set willpower += 15
				'<center><img src="images\pics\wash7.jpg"></center>'
				'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
				act 'Get out and get dressed': gt 'vann','fin'
				end
			end
		if horny >= 40 and horny < 90:
			act 'Direct water on pussy':
				cla
				*clr
				if obdysh = 1 and vannmastrand = 1: gt 'vann','v4'
				set horny += 5
				set minut += 30
				set manna += 10
				set willpower += 10
				'<center><img src="images\pics\wash7.jpg"></center>'
				'You sent a water faucet on pussy and tight jet of warm water began to caress you. At first it was not even bad, but then sleep and arousal, even as it was not nice. So you stopped masturbating.'
				act 'Get out and get dressed': gt 'vann','fin'
				end
			end
		act 'Get out and get dressed': gt 'vann','fin'
		end
	end
end

if $ARGS[0] = 'brit':
cla
'You rinse the razor blade which looks in good enough shape for <b><<stanok>></b> more shaves.'
if leghair > 0 and stanok > 0:
	act 'Shave your legs (0:15)':
		cla
		*clr
		set minut += 15
		set leghair = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images\pics\shave.jpg"></center>'
		if daystart < 10: 'You lather your legs, amazed by how soft they feel, before picking up the razor. You think to yourself, you''re going to have to start removing your body hair. You begin to slowly and gently shave off the hair on your legs, noticing the sikly smooth nature of your skin afterwards. Soon you shave off all hair from your legs and rinse them to get rid of excess foam.'
		if daystart >= 10 and daystart < 30: 'You lathered her soft feet and took in hand razor. You have grown accustomed to his new body and shaved legs calmly knowing that hairy legs with your new body is not beautiful. Finally shaving was done with and you flushed foam stroking his smooth as silk legs.'
		if daystart >= 30: 'You lathered his feet and took a razor. Habitual movements you shaved hair on the legs and washed shaving foam.'
		!'You lathered up and shaved hair with them.'
		act 'Postpone machine': gt 'vann','brit'
		end
	end
if lobok > 0 and stanok > 0:
	act 'Shave pubis (0:15)':
		cla
		*clr
		set minut += 15
		set lobok = -5
		set horny += 5
		set stanok -= 1
		if obdysh = 1 and obbritinvent = 0:
			set britrand = RAND(0,5)
			if britrand = 5: gt 'vann','brit1'
			end
		'<center><img src="images\pics\shave3.jpg"></center>'
		if daystart < 10: 'You have decided to shave pubis, lathered his foam and picking up a razor realized that he did not imagine how it shaved. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you´re used to. But finally it was done with shaving and you flushed with foam pussy stroking her hand and wondering sensations.'
		if daystart >= 10 and daystart < 30: 'You foam lathered his groin, trying not to miss a single crease on her pussy. Then neat movements began shave pussy trying not to cut. Finally you did it and you flushed foam pubic hair and pussy.'
		if daystart >= 30: 'You lathered crotch and took a razor habitual movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
		!'You lathered pubis, then shaved all the hair from it.'
		act 'Postpone machine': gt 'vann','brit'
		end
	end
act 'Get out and get dressed': gt 'vann','fin'
end

if $ARGS[0] = 'fin':
cla
set vannin = 0
gt $locM, $metkaM
end

if $ARGS[0] = 'brit1':
cla
*clr
set obbritinvent = 1
'<center><img src="images\img\ob\brit1.jpg"></center>'
'While you smeared pubis foam in bath guy came, you were so passionate about what did not even notice it and only when he turned on the shaver socket looked up and saw him standing in front of you with a smile and treat your crotch. A few seconds later, he looked up from your feet, and said, "Hey, do you mind that I´m here, too, shave." and noticing your not very deft movement, which still continued to put foam on pussy, he added, "I can help, if necessary, when I have an older sister flew four years ago, so the bride from her fled, that had sometimes help shave. And then with a belly that does the most. " You and presented as a boy, who was still thirteen years probably was squatting in front of the pregnant girl and shaves her pussy, it´s probably had his first sexual experience.'
act 'Let him stay':
	cla
	*clr
	set horny += 40
	'<center><img src="images\img\ob\brit2.jpg"></center>'
	'"Shave all you want," you replied and went back to his task. A few minutes later the guy graduated and started watching you, he came closer, eventually sat down with you and help you began shortly razor was already in the hands of unego. Since you became delot nothing, you started to talk to him, "Do you often helped shave sister?"'
	'"Yes, when both first time in two weeks, and then once every two days, she then became very fractious, and only a little stubble appeared so I ran with a razor, although I bristle even this language is not felt." Then he paused, realizing that blurted out too much.'
	'"Well, you´re done, not everyone will be helping her sister in such a delicate matter." you continue pretending that nothing zatetili.'
	'"Well, how else, I have the same except it´s nobody there. So I helped her in everything, and helped clean up, and even gave birth, I shave and wash it helped. Though she herself could have, but I always requested. " until he raskazyval you noticed that in his pants narostalo excitement.'
	'"So while you lick her or just touch?" suddenly asked you.'
	'"Snatch touched well then, and began to lick." he blurted out and immediately stopped and blushed, you smiled pleased that dragged him from the truth.'
	'"And she gratified as you, or you´re not the language of work and did not deserve?" asked you, the guy looked at the floor, all red as a lobster, but then decided to be seen, that still was asleep and began to speak.'
	'"Well, why did not deserve deserved. First time by chance happened, then I do not know how to shave, well naelozil hands on her so that she had finished first I was scared and ran out of the bathroom, and sleduyuzhy day, she had me again in the bath called and told to shave, shave it well, so there was nothing. I say it so that there is shaved, and she said the language test that´s how I first lick, and when she finished when she came to me in the pants and pulls climbed began to suck . When I finished, she said that every time I do it nicely, it will be my pleasure to do so. " he finished.'
	'"Well, you do not even fuck never?" asked you already forgotten about the razor and carefully listening to the story.'
	'"Well, actually it was. When I got used to the daily blowjob, we do this for three or four times a day doing, and so she had for twenty or thirty minutes to suck in the end when I was once again granted it, and already got a member of that -would stick in her mouth, she told me to bring the cream. When I brought it she lay on her side and said we were brother and sister and therefore can not be in the pussy and ass in here can. then I rubbed her anus cream and gently began to come. And she smiled-that I did not hesitate because it is no longer a girl and my pod her pain does not deliver. Then I drove straight off to her and started to move convulsively. I loved it podmahivala my ass, and when I finished, then just milked him his anus. So then I had already stopped giving her mouth and ass just had, and when she gave birth it was then already expanse in all positions tested her ass. " raskazyval he so vividly that you have drawn the images in my head all this and soon your pussy flowed that did not escape his gaze.'
	'"Well, here I finished, something else may pobreem?" he asked, already took the shaving foam.'
	act 'Come on':
		cla
		*clr
		set picrand = 74
		'<center><img src="images\img\ob\brit3.jpg"></center>'
		'"Come on, and that will shave, my chest hair does not grow." you said'
		'"Well, I´m now your whole body check" With these words, he began to put foam on you, smearing it all over your body. His hands slid over you, you melted at his touch and when he slid to your current pussy already being almost finished.'
		act 'Continue': gt 'sex','kuni'
		end
	act 'No thanks': gt 'vann','start'
	end
act 'Scream':
	cla
	'You yelled so that you probably even on the street could be heard. "Do not you cry, I wanted to just help, and generally have to close the door." He tried to reassure you, but you only cried out. He had no choice as to jump out of the bathroom and run.'
	act 'Finish': gt 'vann','brit'
	end
end

if $ARGS[0] = 'v1':
cla
*clr
'<center><img src="images\img\ob\v0.jpg"></center>'
'You went into the bathroom and saw a girl sitting on the edge of the bath and feet smeared with cream.'
'"Sorry, I´ll come later." you said and turned to leave.'
'"Yes, okay, come on I´m almost finished," she said with a smile. You came back and turned to the sink to wash their hands began to occupy themselves than that until she leaves. But she was not in a hurry, and in a couple of minutes you asked "Do you want your feet too smear?"'
act 'Refuse':
	cla
	'"No, thank you" you replied.'
	'"Well, as you want" she said, and after a few minutes, finally finished and left.'
	act 'To do their job': gt 'vann','start'
	end
act 'Agree':
	cla
	*clr
	set picrand = 21
	'<center><img src="images\img\ob\v1.jpg"></center>'
	'"Come on," you said, and she began to put the cream on your feet. Her hands stroked your calves, gradually rising up to the hips and then to the buttocks, she stayed on them longer. Her hands were crushed your ass down periodically to the inside of the thighs and inapplicable fingers touched your pussy, soon it happened more often. When you slightly radvinuli feet, she kept one hand there massaging your pussy, and the second continued to stroke your buttocks. Soon you will feel on your feet not only her hands, but her lips, she kissed your feet moving eventually rising up, and now her tongue slid on your buttocks, and started down to her pussy.'
	act 'Proceed': gt 'lezbsex','kuni'
	end
end

if $ARGS[0] = 'v2':
cla
*clr
'<center><img src="images\img\ob\v2.jpg"></center>'
'You went into the bathroom and turned to the sink to wash steel, Soon you heard behind what that strange sound. Realizing that you are not in the bathroom alone, you turned sharply and see Man standing in a bath towel around his neck. He palilsya your ass and masturbated you even a little flattered that he masturbates looking at you. He continued to selflessly masturbate unnoticed that you look at it, a few seconds later, he finally noticed and tried to cover with a towel, went to the door, muttering something under his breath, apparently it was apologies.'
act 'Let him go': gt 'vann','start'
act 'Offer help':
	cla
	*clr
	set picrand = 75
	'<center><img src="images\img\ob\v3.jpg"></center>'
	'"Let me help you" escaped you. The guy paused and finally said something articulate - "What?" you podozhli him in full and running his hand under his towel groped dildo. The guy relaxed and removed the towel, you meanwhile, dropped to a crouch and took his penis in his hand began to stroke it, then led by the hand up and down. He began to moan.'
	act 'Writing lick': gt 'sex','kuni'
	act 'Take by mouth': gt 'sex','minet'
	act 'Continue':
		cla
		*clr
		set cumlip += 1
		set cumface += 1
		'<center><img src="images\img\ob\v4.jpg"></center>'
		'You continued to work with his hands, a minute later the guy sat on the edge of the bed and then lay down. You actin continued to wield two-handed, and judging by his moans happy he liked it. Once you´ve started thinking about what would caress his hands not only as a member in your hands began to twitch. "Damn," you said, and immediately realized that nothing opened his mouth, pulled out his penis and flew jet of sperm you right in the face, and some got in my mouth. "Damn, you and skorostrel." told you spitting sperm. "Sorry," mumbled and quickly gathered guy jumped out of the bathroom.'
		act 'To do their job': gt 'vann','start'
		end
	end
end

if $ARGS[0] = 'v3':
cla
*clr
'<center><img src="images\img\ob\v5.jpg"></center>'
'You literally fly into the bathroom and seated on the toilet. "Wow, still a little, and just peed" you thought with relief, but then you realize that edge you have someone else here, turning his head, you see a guy washable. He stands smiling and says, "Hi."'
'"Hi," you reply, trying pridamat something to say. "Sorry, I just have to" finally you say.'
'"Yes, I hear very, judging by the sound for a long time, very necessary." he says, laughing. Of you still pouring down, you´re ready to sink into the ground, but can not stand. Meanwhile man climbs out of the bathroom and stood up in front of you starts to silently watch and you see his cock medleno but surely increasing. Soon he is worth and he makes a small step forward, now his dildo literally inches from your face. He shakes them a bit from your lips, clearly hinting at a blowjob. Finally it bothers you and you start talking intending to say something he would put it away from your face. But as soon as you open your mouth, as he immediately makes dvischenie pelvis and his dildo is in your mouth.'
'"Sorry, but I am also very necessary." he said still smiling.'
act 'Bite':
	cla
	'You squeeze teeth and covered his head with his hands, that would not prilitelo. He starts screaming and swearing, nazavaya you these words, the value of which you can not even imagine, then you squeeze even more teeth. He was no longer screaming and begging poskulivaet only release, you can see he beat podoyalsya, fearing that may remain without any member. You decompress teeth and the guy runs out into the hallway, in the buff, showering curses you.'
	act 'To do their job': gt 'vann','start'
	end
act 'Suck':
	cla
	*clr
	set bj += 1
	'<center><img src="images\img\ob\v6.jpg"></center>'
	'You began gently licking the head and hand massage testicles. The guy started to moan, and then he grabbed your head with both hands, legs wide apart and planted your head so that the term immediately flew down your throat, you began to choke and popytalalis away, but his hand firmly held your head. Soon he relaxed hand, you began to suck his cock swallowing himself. A few minutes later he took a member of your mouth and lift you off the toilet, turned and put the cancer.'
	act 'Continue':
		cla
		*clr
		set sex += 1
		'<center><img src="images\img\ob\v7.jpg"></center>'
		'He put his penis in your vagina, and started with the power to penetrate into you, his movements were strong and deep. You do not have time podtiretsya after pee and now drops of urine running down your thighs. You looked down on the toilet and you head climbed thought "What am I doing, fuck me in an almost public toilet, I´m cancer over the toilet full of urine and on my own leg drains urine from behind a complete stranger jerk fucks me like a cheap whore. Horror I sat down, and the most disgusting thing I like how he does it. " These thoughts all your excitement vanished and you just stood and waited as he sated. Soon he pulled out of you penis and commanded that you dropped on the floor.'
		act 'Sit on the floor':
			cla
			*clr
			set cumlip += 1
			set cumface += 1
			set cumbelly += 1
			'<center><img src="images\img\ob\v8.jpg"></center>'
			'You fell to the floor, until you sit down with you, he pulled a T-shirt.'
			'"Mouth open, now finished," he said nayarivaya his dick hand. You opened your mouth and you splattered sperm bay you chest and face, in my mouth got a few drops that you spat.'
			'"Well, thank you, to me it lacked." said the guy dressed and walked out, leaving you on the floor all in the semen, "That ran pee" you thought.'
			act 'To do their job': gt 'vann','start'
			end
		end
	end
end

if $ARGS[0] = 'v4':
cla
*clr
set minut += 30
set mastr += 1
'<center><img src="images\img\ob\v9.jpg"></center>'
'You have sent water faucet on pussy and tight jet of warm water began to caress you, then you put the funnel and its place was taken by his fingers. You selflessly masturbated suddenly heard that turn on the faucet in the sink. Opening his eyes, you see a guy standing at the sink, he looked at you and smiled.'
'"I´m sorry to interrupt, I´ll keep you will not interfere," he said, without looking away from your pussy, which still Sherudilo your fingers.'
act 'Scream':
	cla
	*clr
	set horny = 0
	'<center><img src="images\img\ob\v10.jpg"></center>'
	'You yelled so that you most laid ears. Guy without hesitation hurried retreat and left the bathroom. You are once again left alone, but the excitement is gone and you have nothing to like.'
	act 'To do their job': gt 'vann','start'
	end
act 'Cover up':
	cla
	*clr
	'<center><img src="images\img\ob\v10.jpg"></center>'
	'You began to slowly crawl to the bathroom, that would cover his naked pussy, soapy water, and tried to close the chest hand that you do not really succeed. The guy kept watch over you and his smile grew wider, and then you realize that your hand is still stroking your pussy and his eyes only excites you. Making an effort you took the hand. He walked up to you and sat on the edge of the tub, lifted out of the water loofah handed to you, "Can I help you? ... I mean back rub," he said. You sat and stared blankly at him not knowing what to say, and his hands were pulled down again.'
	act 'Refuse':
		cla
		*clr
		'<center><img src="images\img\ob\v10.jpg"></center>'
		'"No, thank you" barely squeezed you out of yourself.'
		'"Well, as you want" a guy turned around and went to the door, on the threshold he turned "Would you shut the door, and then there is a different contingent hangs out." and walked out.'
		act 'To do their job': gt 'vann','start'
		end
	act 'Agree':
		cla
		*clr
		set picrand = 76
		'<center><img src="images\img\ob\v11.jpg"></center>'
		'You nodded in agreement, and he immediately threw off everything and you got into the bath. He began to rub your body sponge, soon joined her and his other hand, she glided over your body, caressing his chest, then down to her pussy below. Worth his fingers touch your pussy as you shuddered and clung to him all over, his erection caught between your buttocks. He began to move up, down, and you slightly caved giving him room to maneuver, but he did not enter into you, and put his hands on your shoulders and gently pressed, you will immediately understand what he wants, knelt down and turned to face him. Here was his throbbing dildo, you took it in hand and to right in his mouth.'
		act 'Take by mouth': gt 'sex','minet'
		end
	end
end
--- vann ---------------------------------

# meet
if $ARGS[0] = 'start':
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 15
set dayA += 1
set svidanieA = 0
giftNum = giftNumA
$boy = $boyA
$namev = $boy
$boybody = $boybodyA
$boybod = $boybodA
$boyface = $boyfaceA
!длинна члена
dick = dickA
!! половая сила от 0 до 2
silaVag = silaVagA
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = financeA
!!проверка по внешности, от параметра vnesh
vneshBoy = vneshBoyA
$boyClo = $boyCloA
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = figurBoyA
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = titBoyA
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = haerBoyA
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = harakBoyA
!извращенность
izvrat = izvratA
if love = 3:
	'Met you <<$boyA>> and planted them in a hired wedding limousine.'
	act 'Sit in a limousine.':
		cla
		'You got into the limo, and <<$boyA>> sat in another car. Soon the limo pulled up to the palace wedding.'
		act 'Marry husband':
			cla
			set minut += 60
			love = 0
			bfA = 0
			husband = 100
			husbanday = 0
			$husName = $boyA
			$husHair = $boyfaceA
			$husBody = $boybodyA
			$husFat = $boybodA
			husDick = dickA
			harakHusb = harakBoyA
			izvratH = izvratA
			set silavagH = silavagA
			husbFin = financeA
			husbandMark = 1
			'The wedding took place at a cafe. There were not many guests and of course only part of the groom. It was a lot of congratulations, toasts, merrymaking and cries bitterly. By evening, all drunk and you with souped husband took home.'
			act 'Wedding night.': gt 'husbsex','room'
			end
		end
	exit
	end
if love = 2:
	'<<$boyA>> looks very excited and suddenly pulls the ring out of the box.'
	'(<<$boyA>>) - <<$name>>. I offer you my hand and heart with very, come for my husband.'
	act 'No. (Rasstatsya)':
		set minut += 60
		set bfA = 0
		set pregtalk = 0
		gt $HouseLocation
		end
	act 'Yes':
		cla
		'You agreed and put a ring on your finger. <<$boyA>> rejoiced and hugged kissed you.'
		'(<<$boyA>>) - And now you gone choose a wedding dress.'
		act 'Go for the dress':
			cla
			set minut += 60
			set love = 3
			'You got in a taxi with his bride and went to the store to choose a dress. You have chosen an expensive and luxurious dress and <<$boyA>> paid his purchase.'
			'After all these winding through the city and you´re tired <<$boyA>> to drive you home, warning that the next meeting you´re married.'
			act 'Leave.': gt $HouseLocation
			end
		end
	exit
	end
if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 0:
	'<<$boyA>> looks very excited, he decided to look around you that you are willing to appear before his mother.'
	act 'Go to parents.': gt 'love','mother'
	exit
	end
if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 1 and tanga = 1:
	'<<$boyA>> examining you decided that you are ready to appear before his friends.'
	act 'Go to friends.': gt 'love','frends'
	exit
	end
if skin = 0: set bfa -= 2 & set $meetskin = 'worth looking at his feet'
if skin = 1: set bfa -= 1 & set $meetskin = 'throws at you view'
if skin = 2: set $meetskin = 'Looking at you'
if skin = 3: set bfa += 1 & set $meetskin = 'seeing you smiling'
if skin = 4: set bfa += 2 & set $meetskin = 'seeing you smiling'
if harakBoyA = 0:
	if mop <= 2 and mop > 0: set bfA += 1 & set $meetmop = 'you are so beautiful today.'
	if mop = 4: set bfA -= 1 & set $meetmop = 'great weather today.'
	end
if harakBoyA = 1:
	if mop <= 3 and mop > 0: set bfA += 1 & set $meetmop = 'you are so beautiful today.'
	if mop = 4: set bfA -= 1 & set $meetmop = 'clearly you made up, not like Halloween.'
	end
if harakBoyA = 2:
	if mop = 4: set bfA += 1 & set $meetmop = 'you are so beautiful today.'
	if mop <= 2 and mop > 0: set bfA -= 1 & set $meetmop = 'great weather today.'
	end
if mop = 0: set bfA -= 1 & set $meetmop = 'Um, you have flowed cosmetics.'
if hapri = 1 and curly > 0: set bfA += 2 & set $meethair = 'You have a very beautiful hairstyle.'
if hapri = 1 and curly = 0: set bfA += 1 & set $meethair = 'You have pretty hair.'
if hapri = 0: set bfA -= 1 & set $meethair = 'I look at you in a hurry for our meeting.'
if harakBoyA = 0: set $meet = '"Hello darling, I am glad to see you, <<$meetmop>> <<$meethair>>"'
if harakBoyA = 1: set $meet = '"Hello <<$name>>, I am glad to see you, <<$meetmop>> <<$meethair>>"'
if harakBoyA = 2: set $meet = '"Hi Svetsik! Glad to see you, <<$meetmop>> <<$meethair>>"'
set $meetcol = ''
if dayA > 10 and harakBoy = 2:
	if haerBoyA ! hcol:
		bfA = bfA - 5
		if haerBoyA = 0: set $meetcol = '<<$boyA>> tells you that you would go black hair.'
		if haerBoyA = 1: set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
		if haerBoyA = 2: set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
		if haerBoyA = 3: set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end
	if haerBoyA = hcol:
		set bfA += 1
		'<<$boyA>> says that you have a wonderful hair color.'
		end
	end
if dayA > 20 and harakBoy = 1:
	if haerBoyA ! hcol:
		bfA = bfA - 5
		if haerBoyA = 0: set $meetcol = '<<$boyA>> tells you that you would go black hair.'
		if haerBoyA = 1: set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
		if haerBoyA = 2: set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
		if haerBoyA = 3: set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end
	if haerBoyA = hcol:
		set bfA += 1
		'<<$boyA>> says that you have a wonderful hair color.'
		end
	end
if dayA > 30 and harakBoy = 0:
	if haerBoyA ! hcol:
		bfA = bfA - 5
		if haerBoyA = 0: set $meetcol = '<<$boyA>> tells you that you would go black hair.'
		if haerBoyA = 1: set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
		if haerBoyA = 2: set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
		if haerBoyA = 3: set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end
	if haerBoyA = hcol:
		set bfA += 1
		'<<$boyA>> says that you have a wonderful hair color.'
		end
	end
if lip = 0: set $meetlip = 'thin lips'
if lip = 1: set $meetlip = 'soft lips'
if lip = 2: set $meetlip = 'plump lips'
if lip = 3: set $meetlip = 'large, plump lips'
if lip = 4: set $meetlip = 'thick and huge lips'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ДИАЛОГ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'At the entrance <<$meetskin>> <<$boyA>>. You´ll see he comes to you and says. <<$meet>> <<$meetcol>>'
if financeA = 0: set $clom = 'deshovy dressed in a tracksuit.'
if financeA = 1: set $clom = 'dressed in jeans and a sweater.'
if financeA = 2: set $clom = 'dressed in a respectable and expensive jacket.'
if harakBoyA = 0: '<<$boyA>> looks timid and not confident young man <<$clom>>'
if harakBoyA = 1: '<<$boyA>> looks calm and confident young man <<$clom>>'
if harakBoyA = 2: '<<$boyA>> looks cocky and brash young man <<$clom>>'
if dayA >= 2 and financeA = 2 and giftDay < (dayA - giftNum):
	set giftrand = RAND(0,2)
	if giftrand <= financeA:
		set giftDayA = dayA
		set giftNum += 1
		set gift = RAND(bfa * 20, bfa * 30)
		if gift > 2500: gift = 2500
		giftNumA = giftNum
		set money += gift
		'<<$boyA>> reached into his pocket and pulled out a gift for you <<gift>> rubles.'
		end
	end
if dayA >= 5 and financeA = 1 and giftDay < (dayA - giftNum):
	set giftrand = RAND(0,2)
	if giftrand <= financeA:
		set giftDayA = dayA
		set giftNum += 1
		set gift = RAND(bfa * 10, bfa * 20)
		if gift > 1500: gift = 1500
		giftNumA = giftNum
		set money += gift
		'<<$boyA>> reached into his pocket and pulled out a gift for you <<gift>> rubles.'
		end
	end
if dayA >= 10 and financeA = 0 and giftDay < (dayA - giftNum):
	set giftrand = RAND(0,2)
	if giftrand <= financeA:
		set giftDayA = dayA
		set giftNum += 1
		set gift = RAND(bfa * 5, bfa * 10)
		if gift > 500: gift = 500
		giftNumA = giftNum
		set money += gift
		'<<$boyA>> reached into his pocket and pulled out a gift for you. He gave you <<gift>> rubles.'
		end
	end
'<<$boybody>> <<$boybod>> <<$boyface>> walks up to you and wants to kiss you.'
if venera < 4 and cumface = 0:
	!cumlip
	act 'Kiss with tongue.':
		cla
		if cumlip = 0:
			'<center><img src="images\etogame\kiss.jpg"></center>'
			if harakBoyA = 0: set bfa -= 2 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> blushed and pulled away.'
			if harakBoyA = 1: set bfa -= 1 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> gently obsasal your language.'
			if harakBoyA = 2: set bfa += 2 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> aggressively pushed his tongue into your mouth and almost started to fuck you in the mouth with his tongue.'
			act 'Finish the kiss.': xgt 'meet','a'
			exit
			end
		if cumlip > 0:
			'<center><img src="images\etogame\cumlip.jpg"></center>'
			'<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pull away. "What is it?" he asked, "Do you smell mouth sperm."'
			if izvrat = 1:
				set bfa += 5
				set DOM += 1
				'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'
				act 'Finish the kiss.': xgt 'meet','a'
				exit
				else
				set bfa = 0
				'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'
				act 'Leave.': gt $HouseLocation
				exit
				end
			end
		end
	act 'Kiss on the lips.':
		cla
		if cumlip = 0:
			'<center><img src="images\etogame\kiss1.jpg"></center>'
			if harakBoyA = 0: 'You framed to kiss her lips and <<$boyA>> a little embarrassed kissed you.'
			if harakBoyA = 1: set bfa += 2 & 'You framed for a kiss lips <<$boyA>> quickly kissed you.'
			if harakBoyA = 2: set bfa -= 1 & 'You framed for a kiss lips <<$boyA>> juicy kiss you, pressing his lips to your firm <<$meetlip>>.'
			act 'Finish the kiss.': xgt 'meet','a'
			exit
			end
		if cumlip > 0:
			'<center><img src="images\etogame\cumlip.jpg"></center>'
			'<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pull away. "What is it?" he asked, "Do you smell mouth sperm."'
			if izvrat = 1:
				set bfa += 5
				set DOM += 1
				'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'
				act 'Finish the kiss.': xgt 'meet','a'
				exit
				else
				set boya = 0
				'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'
				act 'Leave.': gt $HouseLocation
				exit
				end
			end
		end
	act 'Kiss on the cheek.':
		cla
		'<center><img src="images\etogame\kiss2.jpg"></center>'
		set DOM += 1
		if harakBoyA = 0: set bfa += 1 & 'You framed and cheek <<$boyA>> timidly kissed you.'
		if harakBoyA = 1: 'You framed and cheek <<$boyA>> you kissed.'
		if harakBoyA = 2: set bfa -= 2 & 'You framed and cheek <<$boyA>> kissed you discouraged with views.'
		if giftDayA = dayA:
			set bfa -= 3
			if harakBoyA = 0: '<<$boyA>> looks upset.'
			if harakBoyA = 1: '<<$boyA>> looks offended.'
			if harakBoyA = 2: '<<$boyA>> looks angry.'
			end
		act 'Finish the kiss.': xgt 'meet','a'
		exit
		end
	act 'Do not kiss.':
		cla
		set DOM += 2
		if harakBoyA = 0: set bfa -= 1 & 'You nodded and said hello, <<$boyA>> get confused and blushed slightly.'
		if harakBoyA = 1: set bfa -= 2 & 'You nodded and said hello <<$boyA>> frowned slightly.'
		if harakBoyA = 2: set bfa -= 3 & 'You nodded and said hello <<$boyA>> chuckled and grinned.'
		if giftDayA = dayA:
			set bfa -= 3
			if harakBoyA = 0: '<<$boyA>> looks upset.'
			if harakBoyA = 1: '<<$boyA>> looks offended.'
			if harakBoyA = 2: '<<$boyA>> looks angry.'
			end
		act 'Next.': xgt 'meet','a'
		exit
		end
	end
if venera >= 4:
	'<center><img src="images\etogame\venera.jpg"></center>'
	set bfa = 0
	'<<$boyA>> take a closer look at you and said, "What have you got with the lips? They are very sore. Is that genital herpes? I´d better go, do not want to get infected. Goodbye."'
	act 'Leave.': gt $HouseLocation
	exit
	end
if cumface > 0:
	'<center><img src="images\etogame\cumface.jpg"></center>'
	'<<$boyA>> take a closer look at you and said, "What have you got stuck in your hair? Is that sperm?"'
	if izvrat = 1:
		set bfa += 5
		set DOM += 1
		'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'
		act 'Yes it is the sperm still have questions?':
			cla
			'(You) - Yes, it´s sperm still have questions?'
			'<<$boyA>> shook his head.'
			xgt 'meet','a'
			end
		exit
		else
		set boya = 0
		'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'
		act 'Leave.': gt $HouseLocation
		exit
		end
	end
end

if $ARGS[0] = 'a':
if financeA = 0:
	if glamur = 1:
		set bfa -= (harakBoyA + 1)
		'"And you dress smartly," remarked skeptical <<$boyA>> looking at your expensive dress.'
		end
	if skirt = 1 or sport = 1:
		set bfa += (harakBoyA + 1)
		'"A classy outfit," said <<$boyA>>'
		end
	set mesorand = RAND(0,1)
	if mesorand = 0:
		'<<$boyA>> offered you a beer in the stairwell.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'podezdM','start'
		exit
		end
	if mesorand = 1:
		'<<$boyA>> suggest that you take a walk in the park.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'parkM','start'
		exit
		end
	end
if cumfrot > 0:
	'"Hey, what are you smeared?" asked <<$boyA>> looking at your ass. "It´s sperm!"'
	if izvrat = 1:
		set bfa += 5
		set DOM += 1
		'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'
		else
		set bfa = 0
		'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'
		act 'Leave.': gt $HouseLocation
		exit
		end
	end
if financeA = 1:
	if glamur = 1 or skirt = 1:
		set boyA += (harakBoyA + 1)
		'"Great clothes," said admiringly <<$boyA>>.'
		end
	if sport = 1:
		set bfa -= (harakBoyA + 1)
		'"And you´re athletic girl" skeptical noticed <<$boyA>> looking at your clothes.'
		end
	set mesorand = RAND(0,2)
	if mesorand = 0:
		'<<$boyA>> suggest that you go to the movies.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'kinoM','start'
		exit
		end
	if mesorand = 1:
		'<<$boyA>> suggest that you take a walk in the park.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'parkM','start'
		exit
		end
	if mesorand = 2:
		'<<$boyA>> suggest that you sit in a cafe.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'kafeM','start'
		exit
		end
	end
if financeA = 2:
	if glamur = 1:
		set bfa += (harakBoyA + 1)
		'"You´ve got great taste in clothes," said admiringly <<$boyA>> looking at your expensive dress.'
		end
	if glamur = 0:
		set bfa -= (harakBoyA + 1)
		'"Dear naryadets" remarked skeptical <<$boyA>> examining your unpretentious clothes.'
		end
	set mesorand = RAND(0,1)
	if mesorand = 0:
		'<<$boyA>> suggest that you go to a cafe.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'kafeM','start'
		exit
		end
	if mesorand = 1:
		'<<$boyA>> suggest that you go to a restaurant.'
		act 'Sorry, but I urgently need to escape.':
			cla
			set bfa -= (harakBoyA + 1)
			gt $HouseLocation
			end
		act 'Come on.': gt 'restoranM','start'
		exit
		end
	end
end
--- meet ---------------------------------

# restoranM
if $ARGS[0] = 'start':
set minut += 30
'You came to the restaurant and sat at a table. <<$boyA>> ordered the waiter food and good wine. You have to wait when you bring the food.'
	if dayA > 15 and harakBoyA = 2: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 1: gs 'boylove','tits'
	if dayA > 25 and harakBoyA = 0: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 2: gs 'boylove','figure'
	if dayA > 25 and harakBoyA = 1: gs 'boylove','figure'
	if dayA > 30 and harakBoyA = 0: gs 'boylove','figure'
	gs 'anekdot'
	'<<$boyA>> anecdote tells you "<<$anek>>."'

	act 'Laugh.':
	cla
	set SUB += 1
	set bfa += 1
	xgt 'restoranM','a'
	end

	act 'Smile.':
	cla
	!set bfa -= 1
	xgt 'restoranM','a'
	end

	act 'Not funny.':
	cla
	set DOM += 1
	set bfa -= 1
	xgt 'restoranM','a'
	end
end

if $ARGS[0] = 'a':
set minut += 30
set fat += 1

'Finally you brought food. <<$boyA>> pour you wine and proposed a toast to love.'

	act 'There.':
	cla
	xgt 'restoranM','b'
	end
end

if $ARGS[0] = 'b':
set minut += 30
set fat += 1
	if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end

	if energy < 20:
	set energy += 20
	set fat += 1
	'You gladly ate the food.'
	end

	if water >= 20:
	'Tea in you no longer climbs.'
	end

	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
alko += 2
gs 'stat'
'After some time with food and wine, and was done with <<$boyA>> proposed to hold you.'

act 'Home.': gt 'sexm','start'
end
--- restoranM ---------------------------------

# kafeM
if $ARGS[0] = 'start':
set minut += 30
'You´ve come to the cafe and sat at a table. <<$boyA>> ordered the waiter for food and wine. You have to wait when you bring the food.'
	if dayA > 15 and harakBoyA = 2: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 1: gs 'boylove','tits'
	if dayA > 25 and harakBoyA = 0: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 2: gs 'boylove','figure'
	if dayA > 25 and harakBoyA = 1: gs 'boylove','figure'
	if dayA > 30 and harakBoyA = 0: gs 'boylove','figure'
	gs 'anekdot'
	'<<$boyA>> anecdote tells you "<<$anek>>."'

	act 'Laugh.':
	cla
	set SUB += 1
	set bfa += 1
	xgt 'kafeM','a'
	end

	act 'Smile.':
	cla
	xgt 'kafeM','a'
	end

	act 'Not funny.':
	cla
	set DOM += 1
	set bfa -= 1
	xgt 'kafeM','a'
	end
end

if $ARGS[0] = 'a':
set minut += 30
set fat += 1
'Finally you brought food. <<$boyA>> pour you wine and proposed a toast to you.'
	act 'There.':
	cla
	xgt 'kafeM','b'
	end
end

if $ARGS[0] = 'b':
set minut += 30
set fat += 1
	if energy >= 30:
	set fat += 5
	'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
	set fat += 3
	set energy += 10
	'You pushed through the power of a meal.'
	end

	if energy < 20:
	set energy += 20
	set fat += 1
	'You gladly ate the food.'
	end

	if water >= 20:
	'Tea in you no longer climbs.'
	end

	if water < 20:
	'You gladly drank a mug of tea.'
	set water += 20
	end
alko += 2
gs 'stat'
'The cafe and the music started <<$boyA>> proposed to dance.'
	act 'Dance.':
	cla
	set bfa += 1
	xgt 'kafeM','dance'
	end

	act 'Refuse.':
	cla
	set bfa -= 1
	xgt 'kafeM','end'
	end
end

if $ARGS[0] = 'dance':
set minut += 5
'<center><img src="images\etogame\dance.jpg"></center>'
'You went out with a guy on the dance floor <<$boyA>> hug you, then you started to dance together.'
	if harakBoyA = 0:
	'<<$boyA>> is very correct in dance, he hugs you and frankly embarrassed.'
		act 'Finish the dance.':
		cla
		set bfa += 1
		xgt 'kafeM','end'
		end
	end
	if harakBoyA = 1:
	'<<$boyA>> very confidently lead you to the dance.'
		act 'Finish the dance.':
		cla
		set bfa += 1
		xgt 'kafeM','end'
		end
	end
	if harakBoyA = 2:
	'<<$boyA>> grabs your butt while dancing and pressed against you, you feel through the fabric of his hard cock rests against your stomach.'
	'He whispers to you, go to the toilet.'
		act 'Finish the dance.':
		cla
		set bfa += 1
		xgt 'kafeM','end'
		end

		act 'Go to the toilet.': xgt 'kafeM','tualet'
	end

end

if $ARGS[0] = 'tualet':
set minut += 30
set horny += 10
'<<$boyA>> pulled you into the toilet and began to knead already open your chest and you climb between her legs.'
act 'Give blowjob': gt 'kafeM','bj'
act 'Bend over the toilet.': gt 'kafeM','sex'
end

if $ARGS[0] = 'sex':
*clr
gs 'brosok'
set sex += 1
sexa += 1
set vagina += 1
set horny += SUB
set bfa += 2
'<center><img src="images\picVA\kafe.jpg"></center>'
'You got his dick out of his pants and masturbate him to begin with, <<$boyA>> took out a condom and put on the penis, then he made you cancer over the toilet and stabbed your quivering pussy your <<$dick>> centimeter member.'

	if horny >= 90:
	set horny = 0
	set manna += 15
	set willpower += 15
	set orgasm += 1
	'You feel like something is growing inside of you and all your bottom turned into a blazing fire pleasant fire in a minute smooth movements on the penis you had to hand over his mouth to stop up that would not scream from orgasm.'
	end
'Soon <<$boyA>> could not resist and finished in a condom.'

	act 'Next.': gt 'kafeM','end'
end

if $ARGS[0] = 'bj':
*clr
gs 'brosok'
set bj += 1
bja += 1
set swallow += 1
set cumlip += 1
set horny += SUB
set bfa += 2
'<center><img src="images\picVA\kafe1.jpg"></center>'
'You got his dick out of his pants and masturbate him to begin with, then squatted in front of him and around his lips slowly began to suck it <<$dick>> centimeter term in the closet.'
'Soon <<$boyA>> could not resist and finished in your mouth, filling it with his tart semen you swallow cum, but she still poured out of your mouth and ran down his lips and chin.'
'You faithfully looked into the eyes of the guy with his semen smeared face.'

	act 'Next.': gt 'kafeM','end'
end


if $ARGS[0] = 'end':
set minut += 30

'<<$boyA>> offered to hold you.'

act 'Home.': gt 'sexm','start'
end
--- kafeM ---------------------------------

# parkM
if $ARGS[0] = 'start':
set minut += 30
'You leisurely stroll through the park.'
	if dayA > 15 and harakBoyA = 2: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 1: gs 'boylove','tits'
	if dayA > 25 and harakBoyA = 0: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 2: gs 'boylove','figure'
	if dayA > 25 and harakBoyA = 1: gs 'boylove','figure'
	if dayA > 30 and harakBoyA = 0: gs 'boylove','figure'
	gs 'anekdot'
	'<<$boyA>> anecdote tells you "<<$anek>>."'

	act 'Laugh.':
	cla
	set SUB += 1
	set bfa += 1
	xgt 'parkM','a'
	end

	act 'Smile.':
	cla
	xgt 'parkM','a'
	end

	act 'Not funny.':
	cla
	set DOM += 1
	set bfa -= 1
	xgt 'parkM','a'
	end
end

if $ARGS[0] = 'a':

	if harakBoyA = 0:
	gs 'stihi'
	'<<$boyA>> reads poetry for you <<$stihi>>.'
	act 'Next.': gt 'parkM','aa'
	end
	if harakBoyA = 1:
	'<<$boyA>> to take you by the hand and you are walking through the deserted dimensional paths of the park.'
	act 'Next.': gt 'parkM','aa'
	end
	if harakBoyA = 2:
	'<<$boyA>> and stopped taking your waist hugged. "You´re a cool girl." he said and kissed you on the lips.'
	act 'Kissing.': gt 'parkM','kiss'
		act 'Suspended.':
		cla
		set DOM += 1
		set bfa -= 1
		'You removed the face from a kiss <<$boyA>> does not look happy, "Okay, Svetsik, went on a walk as the pioneers."'
		act 'Next.': gt 'parkM','aa'
		end
	end
end

if $ARGS[0] = 'kiss':
set minut += 15
set bfa += 1
set horny += 5
'<<$boyA>> kisses you and you feel his hand grabs your ass and begins to knead her. It excite you a little touch <<$boyA>> takes you by the hand and dragged into the bushes.'
	act 'Stop it.':
	cla
	set DOM += 1
	set bfa -= 1
	'You pulled his hand out of his hand <<$boyA>> does not look happy, "Okay, Svetsik, went on a walk as the pioneers."'
	act 'Next.': gt 'parkM','aa'
	end

	act 'Go with the guy.': gt 'parkM','sexrand'
end

if $ARGS[0] = 'sexrand':
clr
*clr
set minut += 15
set bfa += 1
set horny += 15
clr
gs 'stat'
'<center><img src="images\picVA\park.jpg"></center>'
'<<$boyA>> pulled you into the bush and exposing your breasts began to lick her. It is very nice and you eyes closed immersed in what is bliss. <<$boyA>> stands in front of you on the knee and extends to your pussy.'
	act 'Stop it.':
	cla
	set DOM += 1
	set bfa -= 1
	'You sidestepped and covered his chest, <<$boyA>> does not look happy, "Okay, Svetsik, went on a walk as the pioneers."'
	act 'Next.': gt 'parkM','aa'
	end

	act 'Afford.': gt 'parkM','sexrand1'
end

if $ARGS[0] = 'sexrand1':
clr
*clr
set minut += 15
set bfa += 1
set horny += 20
clr
gs 'stat'
'<center><img src="images\picVA\park1.jpg"></center>'
'<<$boyA>> bared your pussy and began to caress her hand, then gently, then increasing the tempo, you are very much excited, your pussy is wet and aching demanding stuff yourself. <<$boyA>> whispers to you, "Suck me!"'
	act 'We can not do that here.':
	cla
	set DOM += 1
	set bfa -= 1
	'You backed away from the guy and began to dress, <<$boyA>> does not look happy, "Okay, Svetsik, went on a walk as the pioneers."'
	act 'Next.': gt 'parkM','aa'
	end

	act 'Get on your knees.': gt 'parkM','sexrand2'
end

if $ARGS[0] = 'sexrand2':
clr
*clr
set minut += 15
set bfa += 1
set horny += 5
set bj += 1
bja += 1
gs 'brosok'
clr
gs 'stat'
'<center><img src="images\picVA\park2.jpg"></center>'
'You knelt in front of a guy and <<$boyA>> you buried his face in his sticking <<dickA>> centimeter member. You cupped his mouth and began to suck.'
'After a couple of minutes <<$boyA>> told you, "Baby, if you so will continue, I finish. Let´s have sex!"'

	act 'Continue to suck.': gt 'parkM','sexrand3'
	act 'Sex.': gt 'parkM','sexrand4'
end

if $ARGS[0] = 'sexrand3':
clr
*clr
set minut += 15
set bfa += 1
set horny += 5
set cumlip += 1
set swallow += 1
clr
gs 'stat'
'<center><img src="images\picVA\park3.jpg"></center>'
'You continued enthusiastically sucking dick and <<$boyA>> issuing zdavlenny moan pulled into your mouth and a vigorous stream of burning semen.'
'You swallow choking her, but she did not want to umeschatsya in your mouths and poured out of him spreading his chin.'
'<<$boyA>> took out a member of your mouth stuffed with Concha and tucked it into his pants, helped you climb then said goodbye and left promising to call you.'
	act 'Leave.': gt 'park','start'
end

if $ARGS[0] = 'sexrand4':
clr
*clr
set minut += 15
set sex += 1
sexa += 1
clr
gs 'stat'
'<center><img src="images\picVA\park4.jpg"></center>'
set pose = 1
set $nameV = $boyA
set dick = dickA
set silavag = silavagA
'<<$boyA>> poctavil you on your feet and put his hands on you bowed to the ground.'
gs 'orgazm','start'
act 'Leave.': gt 'park','start'
end

if $ARGS[0] = 'aa':
set minut += 30
'Walked an hour <<$boyA>> proposed to hold you.'

act 'Home.': gt 'sexm','start'
end
--- parkM ---------------------------------

# kinoM
if $ARGS[0] = 'start':
set minut += 30
'You have come to the cinema. <<$boyA>> bought two tickets for the back row.'
	if dayA > 15 and harakBoyA = 2: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 1: gs 'boylove','tits'
	if dayA > 25 and harakBoyA = 0: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 2: gs 'boylove','figure'
	if dayA > 25 and harakBoyA = 1: gs 'boylove','figure'
	if dayA > 30 and harakBoyA = 0: gs 'boylove','figure'
	gs 'anekdot'
	'While you wait for the show <<$boyA>> anecdote tells you "<<$anek>>."'

	act 'Laugh.':
	cla
	set SUB += 1
	set bfa += 1
	xgt 'kinoM','a'
	end

	act 'Smile.':
	cla
	xgt 'kinoM','a'
	end

	act 'Not funny.':
	cla
	set DOM += 1
	set bfa -= 3
	xgt 'kinoM','a'
	end
end

if $ARGS[0] = 'a':
*clr
set minut += 90
set fat += 2
'<center><img src="images\etogame\kino.jpg"></center>'
'Finally started the session. And you <<$boyA>> entered the room, found their seats and sat on comfortable chairs. <<$boyA>> put a big jar of popcorn on your knees and you have become his turn.'

	if harakBoyA < 2:
		act 'Hug his arm.':
		cla
		set bfa += 1
		'Have you hugged his hand and he kissed you, and then sat out the entire session holding hands.'
		xgt 'kinoM','b'
		end
	end
	if harakBoyA = 2:
		act 'Hug his arm.':
		cla
		set bfa += 1
		'Have you hugged his hand and he kissed you, then his hand began obschupyvat your knee <<$boyA>> whispered to you, baby, I want you.'
		act 'Clean it out and watch a movie.': xgt 'kinoM','b'
		act 'Masturbate.': gt 'kinoM','hj'
		act 'Suck.': gt 'kinoM','bj'
		act 'Sit down on his cock.': gt 'kinoM','sex'
		end
	end

	act 'Watch a movie.':
	cla
	set bfa -= 1
	set intel += 1
	'Cinema proved interesting and you sat out the entire session without interrupting the movie.'
	xgt 'kinoM','b'
	end
end

if $ARGS[0] = 'sex':
*clr
gs 'brosok'
set sex += 1
sexa += 1
set vagina += 1
set horny += SUB
set bfa += 2
'<center><img src="images\picVA\sinema.jpg"></center>'
'You got his dick out of his pants and masturbate him to begin with, <<$boyA>> took out a condom and put on the penis, after that you took the <<$dick>> centimeter of his dick wet pussy and began to move slowly in the dark hall of audience.'
	if horny >= 90:
	set horny = 0
	set manna += 15
	set willpower += 15
	set orgasm += 1
	'You feel like something is growing inside of you and all your bottom turned into a blazing fire pleasant fire in a minute smooth movements on the penis you had to hand over his mouth to stop up that would not scream the entire hall from orgasm.'
	end
'Soon <<$boyA>> could not resist and finished in a condom.'

	act 'Next.': gt 'kinoM','b'
end

if $ARGS[0] = 'bj':
*clr
gs 'brosok'
set bj += 1
bja += 1
set swallow += 1
set cumlip += 1
set horny += SUB
set bfa += 2
'<center><img src="images\picVA\sinema1.jpg"></center>'
'You got his dick out of his pants and masturbate him to begin with, then leaned over him and around his lips slowly began to suck it <<$dick>> centimeter member viewers in the dark hall.'
'Soon <<$boyA>> could not resist and finished in your mouth, you have tried to swallow all the sperm because spit still nowhere.'

	act 'Next.': gt 'kinoM','b'
end

if $ARGS[0] = 'hj':
*clr
gs 'brosok'
set hj += 1
hja += 1
set horny += SUB
set bfa += 1
'<center><img src="images\picVA\sinema2.jpg"></center>'
'You got his dick out of his pants and began to fondle his hands in a dark room viewers.'
'Soon, your skillful movements guy finished you in her hands, you wiped them on his handkerchief.'

	act 'Next.': gt 'kinoM','b'
end


if $ARGS[0] = 'b':
set minut += 30
set fat += 1
'Session ended, the lights came on in the theater and the people went to the exit <<$boyA>> proposed to hold you.'

act 'Home.': gt 'sexm','start'
end
--- kinoM ---------------------------------

# podezdM
if $ARGS[0] = 'start':
set minut += 15
'<<$boyA>> said, "Let´s go to the shop, buy pivasika"'

	act 'Start embracing.':
	cla
		if harakBoyA = 0: set bfa += 2
		if harakBoyA = 1: set bfa += 1
		if harakBoyA = 2: set bfa -= 1
	'<center><img src="images\etogame\boygo.jpg"></center>'
	'You go to embracing kiosk there <<$boyA>> buy beer and chips and you go to the nearest entrance.'
	gt 'podezdM','kiosk'
	end

	act 'Go hand in hand.':
	cla
		if harakBoyA = 0: set bfa += 1
		if harakBoyA = 1: set bfa += 2
		if harakBoyA = 2: set bfa -= 1
	'<center><img src="images\etogame\boygo1.jpg"></center>'
	'You go hand in hand to stall there <<$boyA>> buy beer and chips and you go to the nearest entrance.'
	gt 'podezdM','kiosk'
	end

	act 'Go next.':
	cla
		if harakBoyA = 0: set bfa -= 1
		if harakBoyA = 1: set bfa += 1
		if harakBoyA = 2: set bfa += 2
	'<center><img src="images\etogame\boygo2.jpg"></center>'
	'You go up to the kiosk, there <<$boyA>> buy beer and chips and you go to the nearest entrance.'
	gt 'podezdM','kiosk'
	end

end

if $ARGS[0] = 'kiosk':
cla
*clr
set minut += 30
set fat += 1
set manna += 10
set willpower += 10
'<center><img src="images\etogame\podezdM.jpg"></center>'
'At the entrance you guy opens a bottle of beer and delivers it to you.'
set podrand = RAND(5,100)

	act 'Drink a little.':
	cla
	alko += 1
	gs 'stat'
		if podrand < 9:
		xgt 'podezdM','kiosk1'
		end
		if podrand >= 9:
		gt 'podezdM','grup'
		end
	end

	act 'Drink a bottle.':
	cla
	alko += 2
	gs 'stat'
	set fat += 1
	set manna += 10
	set willpower += 10
		if podrand < 9:
		gt 'podezdM','kiosk1'
		end
		if podrand >= 9:
		gt 'podezdM','grup'
		end
	end

end

if $ARGS[0] = 'kiosk1':
cla
*clr
	if dayA > 15 and harakBoyA = 2: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 1: gs 'boylove','tits'
	if dayA > 25 and harakBoyA = 0: gs 'boylove','tits'
	if dayA > 20 and harakBoyA = 2: gs 'boylove','figure'
	if dayA > 25 and harakBoyA = 1: gs 'boylove','figure'
	if dayA > 30 and harakBoyA = 0: gs 'boylove','figure'
	gs 'anekdot'
	'<<$boyA>> drinking beer and anecdote tells you "<<$anek>>."'

	act 'Laugh.':
	cla
	set SUB += 1
	set bfa += 1
	gt 'podezdM','kiosk2'
	end

	act 'Smile.':
	cla
	gt 'podezdM','kiosk2'
	end

	act 'Not funny.':
	cla
	set DOM += 1
	set bfa -= 1
	gt 'podezdM','kiosk2'
	end
end

if $ARGS[0] = 'kiosk2':
cla
*clr
	if harakBoyA = 0:
		if daya < 20 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if daya >= 20 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if boyonceA = 1:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
	end
	if harakBoyA = 1:
		if daya < 10 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if daya >= 10 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if boyonceA = 1:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
	end
	if harakBoyA = 2 and izvrat = 0:
		if daya < 3 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if daya >= 3 and boyonceA = 0:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
		if boyonceA = 1:
		'<<$boyA>> drank beer and offered to take you home.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
	end
	if harakBoyA = 2 and izvrat = 1:
		if daya < 3 and boyonceA = 0:
		'<<$boyA>> drank beer and threw the bottle told you. "<<$name>>, you´re so juicy, I want you!" with these words he came up to you and hugged the waist dug its lips in yours, his tongue entered your mouth.'
		act 'Break.':
		cla
		'You escaped from the grip of his, and that he has told you, "Well, what you break, you want to do this myself."'
		act 'Fuck you!.':
		cla
		set DOM += 1
		set bfA = 0
		gt 'street'
		end

		act 'Kissing.':
				cla
				'<<$boyA>> kisses you and his hands down to your waist on her ass and tight squeeze.'
				gt 'sexm','startPod'
				end
		end

		act 'Kissing.':
		cla
		set SUB += 1
		'<<$boyA>> kisses you and his hands down to your waist on her ass and tight squeeze.'
			gt 'sexm','startPod'
			end
		exit
		end

		if daya >= 3 and boyonceA = 0:
		'<<$boyA>> drank beer and suggested we go to your house and fuck you in all the cracks.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end

		if boyonceA = 1:
		'<<$boyA>> drank beer and suggested we go to your house and fuck you in all the cracks.'
		act 'Go with a guy before his entrance.': gt 'sexm','start'
		exit
		end
	end

end

if $ARGS[0] = 'grup':
cla
*clr
'<center><img src="images\etogame\podezdM1.jpg"></center>'
'In a couple of guys got locked, they came to your boyfriend and greeted him. Boys brought vodka and a snack.'
	act 'Refuse to drink.':
	cla
		if harakBoyA = 0: set bfa += 1
		if harakBoyA = 1: set bfa -= 1
		if harakBoyA = 2: set bfa -= 2
	gt 'podezdM','grup1'
	end

	act 'Drink a little.':
	cla
	alko += 1
	gs 'stat'
		if harakBoyA = 0: set bfa += 1
		if harakBoyA = 1: set bfa += 2
		if harakBoyA = 2: set bfa += 1
	gt 'podezdM','grup1'
	end

	act 'Thump with the guys.':
	cla
	alko += 2
	gs 'stat'
		if harakBoy = 0: set bfa -= 1
		if harakBoy = 1: set bfa += 1
		if harakBoy = 2: set bfa += 2
	set fat += 1
	set manna += 10
	set willpower += 10
	gt 'podezdM','grup2'
	end
end

if $ARGS[0] = 'grup1':
cla
*clr
gs 'stat'
'You tusite in porch with the guys, they poison jokes, thumps and yuk.'
'<<$boyA>> drank beer and offered to take you home.'
	act 'Go with a guy before his entrance.': gt 'sexm','start'
end

if $ARGS[0] = 'grup2':
cla
*clr
gs 'stat'
'You nakiryalis hard floor and floats beneath your feet, one of the guys hug your waist, that you would not have fallen.'
'Another man cackled and began to paw you chest.'
	if harakBoyA = 0:
	'<<$boyA>> began to mumble, "You guys that can not be so!"'
	'At that drunken guys just laughed and began pulling off your clothes.'
	act 'Resist.': gt 'sexm','gangrape'
	act 'Surrender.': gt 'sexm','gangbang'
	exit
	end

	if harakBoyA = 1:
	'<<$boyA>> stood up and yelled, "Hey, you ohreneli what? That´s my chick, took his hands."'
	'Guys take a back seat and loosened his grip.'
	act 'Go with a guy before his entrance.': gt 'sexm','start'
	act 'Shut up, I´ll decide who I sleep, go here boys.': gt 'sexm','gangbang'
	exit
	end

	if harakBoyA = 2 and izvrat = 0:
	'<<$boyA>> stood up and silently broke a bottle over the head guy who you pawing at his chest, the guy fell to the floor and groaned. <<$boyA>> quietly and confidently said, "Who else wants some?"'
	'Guys you instantly released and moved aside.'
	act 'Go with a guy before his entrance.': gt 'sexm','start'
	act 'Or maybe all together ..?': gt 'sexm','gangbang'
	exit
	end

	if harakBoyA = 2 and izvrat = 1:
	'<<$boyA>> neigh "Let this whore in a circle is empty!"'
	'Drunk guys were enthusiastic about the proposal and began pulling off your clothes.'
	act 'Resist.': gt 'sexm','gangrape'
	act 'Surrender.': gt 'sexm','gangbang'
	exit
	end
end
--- podezdM ---------------------------------

# sexm
if $ARGS[0] = 'start':
cla
*clr
if love = 0 and bfa >= 100 and daya >= 30 and husband = 0:
	act 'Talk about cohabitation.': gt 'love','start'
	end
'<<$boyA>> will guide you to the entrance.'
if harakBoyA = 2: 'Svetsik can priglasish me over for a cup of coffee?'
if harakBoyA = 1: 'Let me kiss you, love.'
if harakBoyA = 0: '<<$name>> yet, I´ll wait until we meet again and I will miss you.'
act 'Kiss goodbye to':
	cla
	if boyonceA = 0:
		if harakBoyA = 2:
			if daya < 3:
				set bfa += 1
				'<<$boyA>> kisses you on the lips goodbye hands and squeezes your ass.'
				end
			if daya >= 3:
				set bfa -= 2
				'<<$boyA>> kisses you on the lips and pulled away from the kiss mumbling irritably, "Well, so far, the dynamo."'
				end
			end
		if harakBoyA = 1:
			if daya < 10:
				set bfa += 2
				'<<$boyA>> kisses you on the lips goodbye hugging your waist.'
				end
			if daya >= 10:
				set bfa -= 2
				'<<$boyA>> kisses you on the lips goodbye and goodbye says, "How long will we as the pioneers of the handles to hold?".'
				end
			end
		if harakBoyA = 0:
			if daya < 20:
				set bfa += 3
				'<<$boyA>> kisses you on the lips goodbye and gently hugs your waist.'
				end
			if daya >= 20:
				set bfa -= 1
				'<<$boyA>> kisses you on the lips goodbye and broke away from the kiss looks at you big sad eyes.'
				end
			end
		end
	if boyonceA = 1:
		if harakBoyA = 2:
			if daya < 3:
				set bfa -= 2
				'<<$boyA>> kisses you on the lips goodbye hands and squeezes your ass.'
				end
			if daya >= 3:
				set bfa -= 3
				'<<$boyA>> kisses you on the lips and pulled away from the kiss mutters in exasperation, "What you do today you do not want sex?"'
				end
			end
		if harakBoyA = 1:
			if daya < 10:
				set bfa -= 1
				'<<$boyA>> kisses you on the lips goodbye hugging your waist.'
				end
			if daya >= 10:
				set bfa -= 2
				'<<$boyA>> kisses you on the lips goodbye goodbye and says "Okay, live a day without sex.".'
				end
			end
		if harakBoyA = 0:
			if daya < 20:
				set bfa += 1
				'<<$boyA>> kisses you on the lips goodbye and gently hugs your waist.'
				end
			if daya >= 20:
				set bfa -= 1
				'<<$boyA>> kisses you on the lips goodbye and broke away from the kiss looks at you big sad eyes.'
				end
			end
		end
	act 'Go to the apartment': gt $HouseLocation
	end
act 'Say goodbye':
	cla
	if boyonceA = 0:
		if harakBoyA = 2:
			if daya < 3:
				set bfa -= 1
				'<<$boyA>> slightly annoyed, "Do not be a holy innocence."'
				end
			if daya >= 3:
				set bfa -= 3
				'<<$boyA>> irritated "So even you do not want to kiss? Oh well."'
				end
			end
		if harakBoyA = 1:
			if daya < 10:
				set bfa += 1
				'<<$boyA>> waved and walked out of the house.'
				end
			if daya >= 10:
				set bfa -= 2
				'<<$boyA>> you irritably waved goodbye and walked quickly out of the house.'
				end
			end
		if harakBoyA = 0:
			if daya < 20:
				set bfa += 2
				'<<$boyA>> waving you goodbye and smiling.'
				end
			if daya >= 20:
				set bfa -= 1
				'<<$boyA>> waving goodbye to you and looking at you big sad eyes.'
				end
			end
		end
	if boyonceA = 1:
		if harakBoyA = 2:
			if daya < 3:
				set bfa -= 2
				'<<$boyA>> annoyed, "Well what are you dick of yourself break your hymen?"'
				end
			if daya >= 3:
				set bfa -= 4
				'<<$boyA>> in a rage "squeamish?"'
				end
			end
		if harakBoyA = 1:
			if daya < 10:
				set bfa -= 1
				'<<$boyA>> waved and walked out of the house.'
				end
			if daya >= 10:
				set bfa -= 3
				'<<$boyA>> you irritably waved goodbye and walked quickly out of the house.'
				end
			end
		if harakBoyA = 0:
			if daya < 20:
				set bfa += 1
				'<<$boyA>> waving you goodbye and smiling.'
				end
			if daya >= 20:
				set bfa -= 2
				'<<$boyA>> waving goodbye to you and looking at you big sad eyes.'
				end
			end
		end
	act 'Go to the apartment': gt $HouseLocation
	end
if husband = 0:
	act 'To invite':
		cla
		gt 'sexm','room'
		end
	end
if husband > 0:
	if week < 6 and hour < 17 and hour > 7:
		act 'To invite': gt 'sexm','room'
		end
	if week > 5 or week < 6 and hour > 16:
		act 'To say that the house husband and you can not.':
			cla
			if harakBoyA = 0:
				set bfA = 0
				'"What, are you married, you obmannyvala me, and I loved you so, goodbye!" he shouted and ran away in tears.'
				act 'Go to the apartment': gt 'korr'
				end
			if harakBoyA = 1:
				'"Well then, see you, I´ll call you," he said quietly and left.'
				act 'Go to the apartment': gt 'korr'
				end
			if harakBoyA = 2:
				'"My husband is not a wall, and can move up and can Climb a little higher, for example stop in the attic?" he said, grinning pretty.'
				act 'Refuse': set bfa -= 1 & gt 'korr'
				act 'Agree':
					set bfa += 1
					set boycherdaksex = 1
					gt 'sexm','room'
					end
				end
			end
		end
	end
end

!harakHusb > 0

if $ARGS[0] = 'room':
if boycherdaksex = 1:
	'<center><img src="images\etogame\cherdak.jpg"></center>'
	'You guy climbed into the attic.'
	end
if boycherdaksex = 0:
	'<center><B><font color = maroon>Bedroom</font></B></center>'
	if rembedr = 0: '<center><img src="images\etogame\bedr.jpg"></center>'
	if rembedr = 1: '<center><img src="images\etogame\bedr2.jpg"></center>'
	'You took off his shoes and went with a guy in the bedroom.'
	end
clr
set minut += 20
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if harakBoyA = 2:
	'<<$boyA>> grabs you and rudely pushes you to your starting passionately kiss you and try to steal your clothes.'
	set sexrand = RAND(0,3)
	'Finally <<$boyA>> won in an unequal battle with your bra straps and you section.'
	if boyonceA = 1:
		if sexrand = 0:
			'"<<$name>>, pine I huytsa juicy."'
			act 'Give blowjob':
				cla
				set bfa += 3
				gt 'sexm','minet'
				end
			act 'I do not want to let another': gt 'sexm','variant'
			end
		if sexrand = 1:
			'"<<$name>>, cup your ass."'
			act 'Anal':
				cla
				set bfa += 5
				gt 'sexm','anal'
				end
			act 'Oh nafig, come on another': gt 'sexm','variant'
			end
		if sexrand = 2:
			'"Lie down and spread your Svetsik Lyashko."'
			act 'Spread her legs': gt 'sexm','miss'
			act 'I do not want to let another': gt 'sexm','variant'
			end
		if sexrand = 3:
			'"Arise Svetsik crustaceans."'
			act 'Doggy-Style': gt 'sexm','dog'
			act 'I do not want to let another': gt 'sexm','variant'
			end
		end
	if boyonceA = 0:
		'<<$boyA>> threw you on the bed and bit his lips to your breast.'
		act 'Sex': gt 'sexm','miss'
		act 'I do not want to let another': gt 'sexm','variant'
		end
	end
if harakBoyA = 1:
	'<<$boyA>> gently hugs you and cuddle.'
	set sexrand = RAND(0,3)
	'You undress and smoothly <<$boyA>> tells you how you want, darling.'
	act 'I want as much as you want.':
		cla
		if boyonceA = 1:
			if sexrand = 0:
				'"Svetulya, I suck."'
				act 'Give blowjob':
					cla
					set bfa += 2
					gt 'sexm','minet'
					end
				act 'I do not want to let another': gt 'sexm','variant'
				end
			if sexrand = 1:
				'"Svetulya, I want you in the ass."'
				act 'Anal':
					cla
					set bfa += 4
					gt 'sexm','anal'
					end
				act 'I do not want to let another': gt 'sexm','variant'
				end
			if sexrand = 2:
				'"Svetulya, I want you."'
				act 'Spread her legs': gt 'sexm','miss'
				act 'I do not want to let another': gt 'sexm','variant'
				end
			if sexrand = 3:
				'"Svetulya, stand on all fours."'
				act 'Doggy-Style': gt 'sexm','dog'
				act 'I do not want to let another': gt 'sexm','variant'
				end
			end
		if boyonceA = 0:
			'<<$boyA>> threw you on the bed and bit his lips to your breast.'
			act 'Sex': gt 'sexm','miss'
			act 'I do not want to let another': gt 'sexm','variant'
			end
		end
	act 'Propose options': gt 'sexm','variant'
	end
if harakBoyA = 0:
	'<<$boyA>> is shy and does not know what to do.'
	act 'Propose options': gt 'sexm','variant'
	end
end

if $ARGS[0] = 'variant':
if harakBoyA = 0: set bfa += 1
if harakBoyA = 2: set bfa -= 1
'<<$boyA>> looking at you and waiting for what you say'
act 'Spread her legs': gt 'sexm','miss'
act 'Doggy-Style': gt 'sexm','dog'
act 'Anal': gt 'sexm','anal'
act 'Give blowjob': gt 'sexm','minet'
act 'Masturbate him': gt 'sexm','hand'
if kunday ! day:
	act 'Cooney': gt 'sexm','kuni'
	end
if DOM > 0 and boyonceA = 1 and harakBoyA = 0 and izvratA = 1 and strapon > 0:
	act 'Otstraponili': gt 'sexm','strapon'
	end
end

if $ARGS[0] = 'minet':
*clr
set popolaini = 1
set bfA += 1
gs 'brosok'
set bj += 1
set bja += 1
set dick = dickA
set harakBoy = harakBoyA
set minut += 30
set $nameV = $boyA
gs 'stat'
'<center><img src="images\picV\bj.jpg"></center>'
'<<$boyA>> as a member you spent on the lips.'
if bj = 1: 'You thought, "Damn, I rolled, I sit in front of a man, and he told me in the mouth by a dick pokes."'
gs 'oral','start'
act 'Continue to suck.':
	cla
	*clr
	set swallow += 1
	set cumlip += 1
	set bfa += 3
	'<center><img src="images\picV\swallow.jpg"></center>'
	'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
	act 'Leave.': gt 'sexm','endsex'
	end
act 'Remove the mouth.':
	cla
	*clr
	if harakBoyA = 0:
		'<center><img src="images\picV\hand.jpg"></center>'
		'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
		end
	if harakBoyA = 1:
		set tiprand = RAND(0,3)
		if tiprand < 3:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
			end
		if tiprand = 3:
			set facial += 1
			set cumface += 1
			set bfa += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'You took out a member and at this point <<$boyA>> is dead right on your face, covering it with warm and sticky cum.'
			end
		end
	if harakBoyA = 2:
		set facial += 1
		set cumface += 1
		set bfa += 1
		'<center><img src="images\picV\facial.jpg"></center>'
		'<<$boyA>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
		end
	act 'Leave.': gt 'sexm','endsex'
	end
end

if $ARGS[0] = 'hand':
*clr
set popolaini = 1
gs 'brosok'
set DOM += 1
set hj += 1
set hja += 1
set minut += 30
set horny += DOM
gs 'stat'
'<center><img src="images\picV\hand1.jpg"></center>'
'You got it <<dick>> centimeter penis and began to caress her arms around his arms, moving the skin on the crimson head.'
'Soon, your skillful movements guy finished you in her hands, covering them with warm and sticky sperm.'
if harakBoyA = 0: set bfA -= 1
if harakBoyA = 1: set bfA -= 5
if harakBoyA = 2: set bfA -= 10
act 'Wipe your hands and carry to the door guy.': gt 'sexm','endsex'
end

if $ARGS[0] = 'kuni':
*clr
set kunday = day
gs 'brosok'
set DOM += 1
set kuni += 1
set minut += 30
set horny += DOM + (silaVag * 2 + 5)
gs 'stat'
'<center><img src="images\picV\kuni.jpg"></center>'
'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
'<<$boyA>> lay down between your legs and began to work the tongue on your pussy.'
	if harakBoyA = 0: set bfA -= 1
	if harakBoyA = 1: set bfA -= 5
	if harakBoyA = 2: set bfA -= 10
	if horny >= 90:
	set horny = 0
	set manna += 15
	set willpower += 15
	set orgasm += 1
	'Man of skillful actions you covered orgasm.'
	else
	'Actions Man though they were exciting, but they started to bore you.'
	end

	act 'Further.':
	cla
	if husband > 0 and hour < 17 and hour > 7 and boycherdaksex = 0: set popolaini = 2 & gt 'sexm','popala'
	gt 'sexm','variant'
	end
end

if $ARGS[0] = 'strapon':
*clr
gs 'brosok'
set DOM += 5
set pegging += 1
set minut += 30
set horny += DOM
gs 'stat'
'<center><img src="images\picV\pegging.jpg"></center>'
'You got out of the drawer and put his strap. <<$boyA>> got cancer on the bed.'
'Greased lubricated anus guy and stuck it in the strap. While you fuck his ass, he groaned, and finally finished. You remove the strap from him and went to the bathroom.'
	set bfA += 5
	act 'Wipe your hands and carry to the door guy.':
	cla
	gt 'korr'
	end
end


if $ARGS[0] = 'anal':
	*clr
	set popolaini = 3
	set bfA   += 1
	gs 'brosok'
	set minut += 30
	gs 'stat'
	set anal  += 1
	anala     += 1
	if dickA < anus: set anus += 1
	'<center><img src="images\picV\dog2.jpg"></center>'

	if analplugin = 1 :
		analpluginbonus = 10
		analplugin      = 0

		if anus < 16 :
			'<<$boyA>> has pulled out of your narrow and tight ass plug'
		end

		if anus >= 16 :
			' <<$boyA>>pulled out of your ass juices dripping feverish stopper'
		end

		'and you feel as hard cock rested in your hole.'

		if anus + analpluginbonus < dick:
			'You screamed and bit his lip from a sharp pain when it <<dickA>> member centimeter apart your ass you entered.'
		end

		if anus + analpluginbonus >= dick:
			'You groaned when his feelings of overcrowding <<dickA>> member centimeter apart your ass you entered.'
		end

		'Finally <<$boyA>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'
		cumass      += 1
		set minut   += 3
		set cumanus += 1
		if anus < dickA: set anus += 1
		set horny += ((anus - dickA)*3)
		if horny < 1 : set horny = 1

			if horny >= 100 :
				horny           = 1
				set orgasm     += 1
				set analorgasm += 1
				' In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
			end

			act 'Hold up doors.': set analpluginbonus = 0 & gt 'sexm','endsex'

	else
		if lubri = 0:
			set lubonus = 2
			'Lubricant and you do not have <<$boyA>> spitting on his fingers became saliva to lubricate your ass.'
		end

		if lubri > 0:
			set lubri  -= 1
			set lubonus = 10
			'You got out of the box with a tube of lube and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
		end

		'<<$boyA>> put your stomach on the bed apart and began to massage your buttocks your anus with your fingers, first one, then two.'
		if anus < 10: 'When your ass you entered three fingers involuntarily groaned in pain.'
		if anus >= 10: 'Then the guy brought you three fingers and started to stretch your anus.'
		'<<$boyA>> pulled his fingers out of your buttocks and you feel his hard cock rested in your hole.'

		if anus + lubonus < dickA:
			'You screamed and bit his lip from a sharp pain as his cock parted your ass you entered.'
		end

		if anus + lubonus >= dickA:
			'You moan from the feeling of overcrowding as his cock parted your ass you entered.'
		end

		'<<$boyA>> stopped for a moment giving your ass adapt to member protruding from it, and then started to drive them all the more insistent.'

		if anus + lubonus + 2 < dickA:
			if mop > 1: set mop = 0
			'You cried and clutched his teeth into the pillow when <<dickA>> centimeter cock began to fuck your ass on full force.'
		end

		if anus + lubonus + 2 >= dickA:
			'You started to moan rhythmically in time with the movements member inside you.'
		end

		'Finally <<$boyA>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'

		if klismaday ! day:
			set bfA -= 8
			'<<$boyA>> took out a member of your ass and see on your dick shit said, "Oban, Charlie and the Chocolate Factory, baby, before anal enema should be done, but it is not hygienic to knead the clay by a dick."'
		end

		if klismaday = day:
			set cumanus += 1
			if anus < dickA: set anus += 1
			set horny   += ((anus - dickA)*3)
			if horny < 1 : set horny = 1

			if horny >= 100 :
				horny           = 1
				set orgasm     += 1
				set analorgasm += 1
				' In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
			end

			set bfA += 5
			'<<$boyA>> took out a member of you and kissed you went to the bathroom.'
		end

		if anus < dick: set anus += 1
		act 'Hold up doors.': set lubonus = 0 & gt 'sexm','endsex'
	end
end


if $ARGS[0] = 'miss':
	*clr
	set popolaini = 3
	set bfA      += 1
	gs 'brosok'
	set sex      += 1
	sexa         += 1
	set minut    += 30
	gs 'stat'
	set pose      = 0
	set $nameV    = $boyA
	set dick      = dickA
	set silavag   = silavagA
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$boyA>> spread your legs and began to fondle her fingers pussy.'
	gs 'orgazm','start'
	act 'Hold up doors.': gt 'sexm','endsex'
end


if $ARGS[0] = 'dog':
	*clr
	set popolaini = 3
	set bfA      += 1
	gs 'brosok'
	set sex      += 1
	sexa         += 1
	set minut    += 30
	gs 'stat'
	set pose      = 1
	set $nameV    = $boyA
	set dick      = dickA
	set silavag   = silavagA
	'<center><img src="images\picV\dog1.jpg"></center>'
	'<<$boyA>> poctavil you cancer and spread your bread before you enter.'
	gs 'orgazm','start'
	act 'Hold up doors.': gt 'sexm','endsex'
end


if $ARGS[0] = 'startPod':
	set podrand = RAND(0,1)

	if podrand = 0:
		'<<$boyA>> whispered to you, take it in your mouth.'

		act 'Fuck off!':
			cla
			set DOM += 1
			set bfA  = 0
			gt 'street'
		end

		act 'Stand on his heels': gt 'sexm','blow'
	end

	if podrand = 1:
		'<<$boyA>> began to strip off your clothes.'

		act 'Fuck off!':
			cla
			set DOM += 1
			set bfA  = 0
			gt 'street'
		end

		act 'Doggy-Style': gt 'sexm','doggy'
	end
end


if $ARGS[0] = 'doggy':
	set bfA    += 1
	gs 'brosok'
	set sex    += 1
	sexa       += 1
	set minut  += 30
	set pose    = 1
	set $nameV  = $boyA
	set dick    = dickA
	set silavag = silavagA
	'<center><img src="images\picV\dog.jpg"></center>'
	'<<$boyA>> poctavil you cancer and spread your bread before you enter.'
	gs 'orgazm','start'
	act 'Correct clothes and leave.':
		cla
		gt 'street'
	end
end


if $ARGS[0] = 'blow':
	set minut += 20
	'You squatted and <<$boyA>> pulled out his penis.'

	act 'Take by mouth':
		cla
		*clr
		set bfA          += 1
		gs 'brosok'
		set bj           += 1
		bja              += 1
		set dick          = dickA
		set harakBoy      = harakBoyA
		set minut        += 30
		set $nameV        = $boyA
		'<center><img src ="images\picV\bj.jpg"></center>'
		'<<$boyA>> as a member you spent on the lips.'
		if bj = 1: 'You thought, "Damn, I rolled, I sit in front of a man, and he told me in the mouth by a dick pokes."'
		gs 'oral','start'

		act 'Continue to suck.':
			cla
			*clr
			set swallow += 1
			set cumlip  += 1
			'<center><img src="images\picV\swallow.jpg"></center>'
			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'

			act 'Leave.':
				cla
				gt 'korr'
			end
		end

		act 'Remove the mouth.':
			cla
			*clr

			if harakBoyA = 0:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
			end

			if harakBoyA = 1:
			set tiprand = RAND(0,3)

				if tiprand < 3:
					'<center><img src="images\picV\hand.jpg"></center>'
					'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
				end

				if tiprand = 3:
					set facial  += 1
					set cumface += 1
					'<center><img src="images\picV\facial.jpg"></center>'
					'You took out a member and at this point <<$boyA>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end

			if harakBoyA = 2:
				set facial  += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'<<$boyA>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
				cla
				gt 'korr'
			end
		end
	end

	act 'Masturbate him':
		cla
		*clr
		gs 'brosok'
		set DOM   += 1
		set hj    += 1
		hja       += 1
		set minut += 30
		set horny += DOM
		'<center><img src="images\picV\hand1.jpg"></center>'
		'You got his dick and began to caress her arms around his hands.'
		'Soon, your skillful movements guy finished you in her hands.'
		if harakBoyA = 0: set bfA -= 1
		if harakBoyA = 1: set bfA -= 5
		if harakBoyA = 2: set bfA -= 10

		act 'Wipe your hands and walk away.':
			cla
			gt 'korr'
		end
	end
end


if $ARGS[0] = 'gangrape':
	'You began struggling and one of the guys hit you with his hand on the cheek, saying, "Shut up slut Spreads and thighs! And that´ll blow fuck up now!"'
	act 'Obey.': gt 'sexm','gangbang'

	act 'Start a fight.':
		cla
		set $nameV        = 'Drunken mug'
		!Статы
		set strenV        = 100
		set speedV        = 20
		set agilV         = 10
		set reactV        = 10
		set vitalV        = 50
		set intelV        = 10
		set willV         = 10
		!Навыки
		set magikV        = 100
		set boxingV       = 10
		set shootV        = 100
		!Параметры
		set healthV       = vitalV * 10 + strenV * 5
		set mannaV        = intelV * 10 + magikV * 10
		set willpowerV    = willV * 10
		set BonusAtakV    = 0
		set BonusDefV     = 0
		!программа действий
		set program       = 0
		set gangrapeFight = 1
		if spellavtoklon = 1: set klon = 3
		if spellbefshild = 1: set defence = 500
		gt 'fight','start'
	end
end


if $ARGS[0] = 'gangbang':
	'<center><img src="images\picV\gangbang.jpg"></center>'

	if izvrat = 1:
		set bfA += 5
	else
		set bfa = 0
	end

	set minut   += 30
	set gang    += 1
	set guy     += 4
	bj          += 4
	anal        += 1
	sex         += 1
	set cumface += 1
	set cumlip  += 1
	set facial  += 1
	set vagina  += 1
	set anus    += 1
	set throat  += 1
	if mop > 1: set mop = 0
	set SUB     += 3
	set horny   += SUB * 10
	'One of the guys live in the porch and dragged you into his apartment, there tore your clothes.'
	'Boys undressed and put you on their knees substituting peppers for maintenance. You obediently steel is processed mouth and hands fat cock like a real mnogostanochnitsa.'
	'One of the boys lay on the couch and grabbed you by the waist and pulled to his planted your pussy on his cock, you do not have time to come to his senses as your lips pressed against two wet from your saliva member.'
	'You feel like your anus lubricated than that cold and then started coming there something big and solid.'

	act 'Moan.':
		cla
		*clr
		'<center><img src="images\picV\gangbang1.jpg"></center>'
		'You moan when you planted in the ass fat cock and started to fuck you in all holes.'

		if anus >= 10:
			set horny += anus + SUB
			'Two members of hammering you from behind, you feel like they rub through the thin barriers according blazing between the anus and the vagina sloshing. You redoubled enthusiasm treat their two dick swollen lips from work.'
		end

		if anus < 10:
			set horny += (10 - anus)
			'From your eyes dripping tears from severe pain when the hard cock ramming your ass and rub through a fine stenochku with another member in your pussy.'
		end

		if horny >= 90:
			set orgasm += 1
			'Sensation in the abdomen began to grow and soon your whole body as if struck shock you moan from orgasm.'
		end

		'It seems the guys have played enough with you and you have decided obkonchat face. You removed from the members and pointed to the floor.'

		act 'Get on your knees.':
			cla
			*clr
			'<center><img src="images\picV\gangbang2.jpg"></center>'
			'You humbly knelt before the guys, they surrounded you and started to cum on your face, covering it with sticky, warm and fragrant sperm.'
			'After the boys ran out, they lost interest in you and began to leave.'

			act 'Leave.':
				cla
				gt 'korr'
			end
		end
	end
end


if $ARGS[0] = 'popala':
	cla
	*clr

	if popolaini = 1:
		'<center><img src="images\img\hasb\p0.jpg"></center>'
		'Once you going to go into the bath that would wash as appeared on the threshold your husband caught you kneeling in front of the entire semen dipping member.'
	end

	if popolaini = 2:
		'<center><img src="images\img\hasb\p5.jpg"></center>'
		'Once you have gathered to change the pose as her husband enters the room.'
	end

	if popolaini = 2:
		'<center><img src="images\img\hasb\p4.jpg"></center>'
		'Once you´ve got the taste as husband enters the room.'
	end

	if harakHusb = 0:
		'"Honey what´s happening here, what are you cheating on me," stammered <<$husName>> looking at you.'
		'"<<$husName>> it´s not what you think it´s just sex, no feelings, I love only you. For me, it does not mean anything, come to me I´ll show you how much I love you. "Answered you do not understand how you can´t be a delusion.'

		if izvratH = 0:
			'"No, I´m going, you betrayed our love." he faltered and ran from the room almost sobbing.'
			set husbizvradd = 0
			set husbharmin  = 0
			set husbandMark = 0
			set husband     = 0
			set divorced   += 1

			if harakBoyA = 0:
				set bfA = 0
				'"So you´re married, you do obmannyvala, and I loved you so, goodbye!" your guy shouted and ran after her husband.'
				act 'Leave': gt 'korr'
			end

			if harakBoyA = 1:
				'"Well, I see you are not up to me, so perhaps I´ll go, but if you want I can and stay, comfort," said <<$boyA>>'
				act 'Let him go': gt 'korr'

				act 'Let it remain':
					set bfA    += 1
					set picrand = 83
					if popolaini = 3: set picrand = 84
					xgt 'sex','var'
				end
			end

			if harakBoyA = 2:
				'"This is a room, but oh well clown ran, and I once again ready, let´s continue, let this wimp fells" said <<$boyA>>, clearly intending to continue the evening.'
				act 'Refuse': set bfA -= 1 & gt 'korr'

				act 'Continue':
					set bfA    += 2
					set picrand = 83
					if popolaini = 3: set picrand = 84
					xgt 'sex','var'
				end
			end
		end

		if izvratH = 1:
			'"You really only love me." asked <<$husName>>.'
			'"Yes, but you come to me I sbelayu you all that he did, but it will be with love and you will understand what is the difference" you replied, still amazed at how he believes in this nonsense. <<$husName>> came up to you and you unbuttoned his pants got dick.'

			if harakBoyA = 0:
				set bfA         = 0
				set husbizvradd = 0
				set husbharmin  = 0
				set husbandMark = 0
				set husband     = 0
				set divorced   += 1
				'"So you´re married, you do obmannyvala, and I loved you so, you despicable liar, goodbye!" your guy shouted and ran out of the room.'
				'"He´s right, you´re a liar, and you do not deserve me, you´re a fallen woman, I do not want you vidit" burst into tears and ran your husband to follow the guy.'
				act 'Leave': gt 'korr'
			end

			if harakBoyA = 1:
				'<<$boyA>> stood and watched as you fucked by her husband, "Well, my fake it, so you can not compare, let you enter into it, and I´ll give her mouth, then here is something to compare" he said.'
				'"But come on." perked <<$husName>> "Dear lie down on the bed"'

				act 'Lie down':
					cla
					*clr
					set houseslut += 1
					'<center><img src="images\img\hasb\p1.jpg"></center>'
					'You lay on the bed and <<$husName>> you entered into the vagina, and <<$boyA>> lay before you substitute member to the mouth. You diligently podmahivat husband does not satisfy the lover forgetting mouth.'
					'"Maybe in another try, that would say so check in all positions and be uverrenymi to end." again proposed <<$boyA>>, and the husband agreed.'

					act 'Continue':
						set bfA += 1
						if popolaini = 1: set picrand = 40
						if popolaini = 2: set picrand = 41
						if popolaini = 3: set picrand = 42
						xgt 'sexdvoe','var'
					end
				end
			end

			if harakBoyA = 2:
				'"That´s right, fuck her mouth, and even better Poimena her ass, and I´ll dryuchit her mouth, you look like an ass she can show your love, or not," said <<$boyA>>, explicitly podnachivaya your husband.'
				'"Yeah, come to bed, see how you´re going to love her ass," said <<$husName>>.'

				act 'Lie down':
					cla
					*clr
					set houseslut += 1
					'<center><img src="images\img\hasb\p2.jpg"></center>'
					'You lay on the bed and <<$husName>> you entered into the anus, and <<$boyA>> lay before you substitute member to the mouth. You diligently podmahivat husband trying to put his ass on his cock to the root, not forgetting to meet her lover mouth.'
					'"Now, let me, let show your love for your cock, removed from her ass mouth." again proposed <<$boyA>>, and the husband agreed.'

					act 'Continue':
						set bfA += 1
						if popolaini = 2: set picrand = 41
						if popolaini = 1: set picrand = 40
						if popolaini = 3: set picrand = 42
						xgt 'sexdvoe','var'
					end
				end
			end
		end
	end

	if harakHusb = 1:
		set husbizvradd = 0
		set husbharmin  = 0
		set husbandMark = 0
		set husband     = 0
		set divorced   += 1
		'"What the crap is going on here," said <<$husName>> looking at you.'
		'"<<$husName>> it´s not what you think it´s just sex, no feelings, I love only you. For me, it does not mean anything, come to me I´ll show you how much I love you." Answer You do not understand how you can´t be a delusion.'

		if izvratH = 0:
			'"You do ohrenela slut, what love. You fuck with everyone, but I can see if she likes you go forest whore." he said and left the room, slamming the door.'

			if harakBoyA = 0:
				set bfA = 0
				'"So you´re married, you do obmannyvala, and I loved you so, goodbye!" your guy shouted and ran out of the room.'
				act 'Leave': gt 'korr'
			end

			if harakBoyA = 1:
				'"Well, I see you are not up to me, so perhaps I´ll go, but if you want I can and stay, comfort," said <<$boyA>>'
				act 'Let him go': gt 'korr'

				act 'Let it remain':
					set bfA    += 1
					set picrand = 83
					if popolaini = 3: set picrand = 84
					xgt 'sex','var'
				end
			end

			if harakBoyA = 2:
				'"This is a room, but oh well hubby dumped, and I once again ready, let´s continue, let this cuckold goes shoals horns knocks" said <<$boyA>>, clearly intending to continue the evening.'
				act 'Refuse': set bfA -= 1 & gt 'korr'

				act 'Continue':
					set bfA    += 2
					set picrand = 83
					if popolaini = 3: set picrand = 84
					xgt 'sex','var'
				end
			end
		end

		if izvratH = 1:
			set bfA = 0
			'"You will then hear yourself what nonsense talking about" asked <<$husName>>.'
			'"I´m sorry" and just told you, his eyes downcast.'
			'<<$husName>> came up to you, "I´ll leave today and will file for divorce, but lastly, I will punish you," he said rastegivaya pants and pulling member. "Well, what froze suck, whore."'

			if harakBoyA = 0:
				act 'Take by mouth':
					cla
					*clr
					'<center><img src="images\img\hasb\p3.jpg"></center>'
					'"So you´re married, you cheated on me, and I loved you so, you despicable liar, goodbye!" your guy shouted and ran out of the room.'
					'<<$husName>> did not pay attention to him, he put dick in your mouth and keeping you a head literally started to fuck you in the mouth with each thrust pushing it deeper. You frantically grabbed the air, trying not to choke as he continued, suddenly he made a sudden movement and his cock popped into your throat, you tried to pull away, but he obmatiril telling you endure. He gave you a couple of seconds to get used to the term in the throat and began to fuck your throat, you do not get enough air and you frantically began to beat him to get free, but <<$husName>> only tightened his grip on your glolovu. When you´re starting to lose consciousness, he finally finished, you feel his sperm spread on your throat, making a couple of strong aftershocks, he let you go and you collapsed on the floor coughing sperm mixed with your saliva and swallowing wheezing air. <<$husName>> looked as you writhe on the floor, spat on the floor next to you, and left.'
					act 'Leave': gt 'korr'
				end
			end

			if harakBoyA = 1:
				'<<$boyA>> stood and watched as you fucked by her husband, "Well, I probably will go." he said.'
				'"Wait, let this whore for two write out" offered him <<$husName>>.'
				'"And come on, I´m with her all the more power does not intend to meet." replied <<$boyA>>'

				act 'Lie on the bed':
					cla
					*clr
					'<center><img src="images\img\hasb\p1.jpg"></center>'
					'You lay on the bed and <<$husName>> you entered into the vagina, and <<$boyA>> lay before you substitute member to the mouth. You diligently podmahivat husband does not satisfy the lover forgetting mouth.'
					'"And he still fucks very best," said the husband.'
					'"I could not agree" supported <<$boyA>>'

					act 'Continue':
						if popolaini = 1: set picrand = 40
						if popolaini = 2: set picrand = 41
						if popolaini = 3: set picrand = 42
						xgt 'sexdvoe','var'
					end
				end
			end

			if harakBoyA = 2:
				'"That´s right these whores should be punished, if you want to let me help, otymeem it together so it will not be able to sit a week," said <<$boyA>>, explicitly podnachivaya your husband.'
				'"Yes, let´s punish the bitch, and then go to the pub otpraznuem my divorce and remove a couple of bitches and punish, I stamped" said <<$husName>>.'

				act 'Lie on the bed':
					cla
					*clr
					'<center><img src="images\img\hasb\p2.jpg"></center>'
					'You lay on the bed and <<$husName>> you entered into the anus, and <<$boyA>> lay before you substitute member to the mouth. You diligently podmahivat husband trying to put his ass on his cock to the root, not forgetting to meet her lover mouth.'
					'"And the ass she still works smartly" said <<$husName>>.'
					'"Yeah, and leave me some" replied <<$boyA>>'

					act 'Continue':
						if popolaini = 1: set picrand = 40
						if popolaini = 2: set picrand = 41
						if popolaini = 3: set picrand = 42
						xgt 'sexdvoe','var'
					end
				end
			end
		end
	end

	if harakHusb = 2:
		set fingal += 1
		'"Oh damn," you had to hear before you fly off the wall by a powerful blow to the face.'

		if izvratH = 0:
			set husbizvradd = 0
			set husbharmin  = 0
			set husbandMark = 0
			set husband     = 0
			set divorced   += 1
			set bfA         = 0
			set mop         = 0
			set minut      += 120
			set stolmoney   = 0
			set money       = 0
			set komp        = 0
			'Lying in the corner you saw the husband gets blow after blow on the guy, and <<$boyA>> hard fighting tries to jump out the door, finally he did it and he runs out of the apartment at a breakneck pace.'
			'<<$husName>> suited to you, "Here ... you ... whore ... cock ... and pussy ... and ass ... and that´s in your mouth." he says putting a strong kick in in shivot at every word, the last word, he hits kicks you in the face and you are off. You woke up two hours later, neither the husband nor the things in the house was not yes and some of your too.'
			act 'Leave': gt 'korr'
		end

		if izvratH = 1:
			set bfA        = 0
			set houseslut += 1
			'"Oh damn, and that allowed you substitutes him their holes" asked <<$husName>>, "And you tell me now money should have to pay for the pleasure, this is my slut," he added, referring to the guy. "And now we have it together fuck what not povadno." he added, lifting you off the floor and throwing on the bed.'
			if harakBoyA = 0: '<<$boyA>> tried to protest, but seeing your face contorted with rage husband agreed'
			if harakBoyA = 1: '<<$boyA>> acquiesced'
			if harakBoyA = 2: '<<$boyA>> gladly accepted'

			act 'Continue':
				if popolaini = 1: set picrand = 40
				if popolaini = 2: set picrand = 41
				if popolaini = 3: set picrand = 42
				xgt 'sexdvoe','var'
			end
		end
	end
end


if $ARGS[0] = 'endsex':
	if husband > 0 and hour < 17 and hour > 7 and boycherdaksex = 0: gt 'sexm','popala'
	set boycherdaksex = 0
	gt 'korr'
end
--- sexm ---------------------------------

# anekdot
set anrand = RAND(0,11)
if anrand = 0: set $anek = '- How do you feel about clowns?
- Just do not have to provoke me on anti-government statements!'
if anrand = 1: set $anek = 'Wearing a driver, dropping out of the "Okie" might accidentally throw it through the thigh.'
if anrand = 2: set $anek = 'Two old men on a bench in a nursing home:
- A grandson asked me yesterday what I did during the sexual revolution.
- So what did you tell him?
- Told me almost immediately captured, and the rest of life I spent dishwashing.'
if anrand = 3: set $anek = 'Odessa. Is brought by the fat lady, and a few steps behind her with huge bags woven skinny husband. Strap for holding one of the bags hanging in different directions, the child. Man said sadly:
- Fima still believe my experience: never get married!
The boy thinks for a long time, poking a finger in the nose of his free hand, and then it is reasonable to ask:
- Dad, who I will then share their bitter experience?'
if anrand = 4: set $anek = 'Policeman - GIVE
Chief - TRIBUTE
Beggar - Kinh
Doctor - take out
Official - SUN
Billion oligarch - QUY
Instead of the normal wage - PRICK

Live in Russia, but for some "Chinese" literacy ...'
if anrand = 5: set $anek = 'Unlike other cats, my perfectly distinguish day and night.
Throughout the night sleeping in the bedroom, and in the morning cheerfully runs sleep in the hall.'
if anrand = 6: set $anek = 'Our Earth - is a place where aliens show their children how to live.'
if anrand = 7: set $anek = 'At the press conference:
- Anatoly Borisitch, but you promised all along the Volga River, in exchange for a voucher? Where can I get my part?
- Take a bucket, go to Nizhny Novgorod, go to the river ...'
if anrand = 8: set $anek = 'Girls, if you had a choice: world peace or neoblezayuschy manicure, what color nail polish would you choose?'
if anrand = 9: set $anek = 'We as if dancing in the church - you´re the defendant, and you will be put, and if more than one hundred million stolen - you are only a witness ...'
if anrand = 10: set $anek = 'Based on teachers'' wages, our government consists of vengeful Losers.'
if anrand = 11: set $anek = 'Last year I asked Santa Claus become compatriot Gerard Depardieu. Who knew that the old man so perverted.'
if anrand = 12: set $anek = 'A guy goes to a meeting late, nervous, can not find a place to park. Raises his face to the sky and said:
- Lord, help me to find a place to park. I then give up drinking and going every Sunday to go to church!
Miraculously appears free place. Guy again turned to the sky:
- And, all is not necessary. Found!'

if anrand = 13: set $anek = '- Watson, what are you smoking? Let me guess - Tobacco "Queen of Virginia" with leaves cherries jubilee issue of velvet in the box?
- Amazingly, Holmes! How did you guess?
- By Jove, my dear Watson! Well, not Mrs. Hudson stole that pack from my room!'

if anrand = 14: set $anek = 'Comes out in the morning traffic cop on the road, his head after yesterday´s split.
Looks - Jeep carried. Well, he stopped him in order to collect funds for the sober. Looks, and there sits a homeless person. Documents examined - though homeless machine. Well cop asked him:
- You´re a bum. Where did you get such a cool took a wheelbarrow?
- A new Russian drunk I offered if I make them laugh - my jeep. Well, I have them and laugh.
- But how?
- Yes, I´m one bald head on shit, it just grew hair, it´s killing was.
Ment removes cap, there bald. He says:
- And you do not care because I can?
- Can.
Bum shit cop on his bald head, a out of the bushes hear laughter and crying:
- No, well, finally, so I gave him another hut and gifts.'

if anrand = 15: set $anek = 'Glamorous Muscovite comes to visit the village to the grandmother.
- Grandma, where you can go there at night?
- In a bucket.'

if anrand = 16: set $anek = 'Lesson "Fundamentals of Orthodox Culture." The teacher:
- And remember, kids! Those who would learn to "4" and "5", will go to paradise. A
those who will learn from the "2" and "3" - to hell!
Little Johnny from the back row:
- Marivanna, and that can not be alive to finish school?'

if anrand = 17: set $anek = 'The slogan "strangle corruption" has been recognized as extremist calling for the violent overthrow of the existing order.'

if anrand = 18: set $anek = 'Husband:
- What in-law is coming?
Wife:
- Numbers or dick?'

if anrand = 19: set $anek = 'English lesson.
In the back row got a man - checking
of the District Board. Young teacher writing on the chalkboard English phrase and asks the students to translate. The class is silent, and suddenly, with the penultimate hand pulls Vovochka desks.
The teacher hesitated, but do nothing - has caused.
Little Johnny:
- That ass. Now to plant!
The teacher, blushing with shame:
- Little Johnny, how can you!!!
Little Johnny said, turning to the man:
- Do you know English - nothing to prompt!'

if anrand = 20: set $anek = 'Husband to his Wife:
- Let´s play pretend games.
- How´s that?
- Well, as if you were Little Red Riding Hood, and I am a wolf.
- Class, come on!
- Well, then, go, bake pies...'

if anrand = 21: set $anek = 'That´s because Depardieu surprised when sober...'

if anrand = 22: set $anek = 'Headquarters of the Ku Klux Klan:
- Tell me, how do I join your organization?
- It´s easy. Soak 6 blacks and one cat.
- A cat for that?
- Congratulations, you are taken'

if anrand = 23: set $anek = 'There are three friends.
One wife for ten years - another mistress - third betrothed (the bride).
Well discussed their men, this and that - decided to experiment: wear leather black lingerie - sexy stockings with belt - high heels - an eye mask, and so to meet their loved ones.

A week later found.

"Bride" tells - He came home, I met him in stockings, wearing a mask in high heels - he attacked me said that I love of his life and we had sex all night.

Mistress says - I went to his office - shut the door - opened the cloak - and there´s leather underwear, mask, heels - he did not say anything, but we have 5 hours of non-stop having sex.

Wife says sheepishly - husband came home from work, I opened the door in black leather lingerie, sexy stockings and a mask - he looked at me and asked, "What´s for dinner, Batman?"'

if anrand = 24: set $anek = '- Your bank gives loans on parole?
- No problem...
- And if I do not return?
- You will be ashamed before God when appear.
- When it has to be...
- Now, if the fifth do not return, the sixth appear.'

if anrand = 25: set $anek = 'Biology lesson.
The teacher tells the children:
- Children! You know that stamen and pistil in flowers - is the reproductive organs.
On the back row Vovochka:
- Damn. I smelt them.'

if anrand = 26: set $anek = '- And my last one after five minutes, the server broke.
- Is he hakep ??!
- He mydak!!'

if anrand = 27: set $anek = 'A plane is flying. The pilot on the speakerphone:
- Ladies and gentlemen, you are greeted by the captain. Listen to the information about our flight. Our flight is at an altitude of 10,000 feet at a speed of 900 kilometers per hour, the temperature behind... Shit... A-A-A-A! .. What´s that? .. WELL, PIZDETS...
Inside, a deathly silence.

A minute later, again on the radio:
- I beg your pardon our dear passengers. Just that our flight attendant knocked on my hot coffee. Did you now my white pants in front...

A guy in the front row:
- Your pants, it´s all garbage! You should have seen my pants back...'

if anrand = 28: set $anek = 'Escaped from a zoo elephant. Call the sheriff:
- Sir! In my garden there is a huge gray rat!!!!

She sryvet tail cabbage......
- And what is it doing?
- Sir! You will not believe!.....'

if anrand = 29: set $anek = 'Marriage bed - a husband and wife:
Wife: - My dear, let´s we play role-playing games?
Husband: - Come on.
Wife: - You are a taxi driver, and I am a young, pretty girl who arrived, but I have no money with him to pay the fare.
Husband: - Come on.
Wife: - Uncle taxi driver, I have no money to pay the fare, let me go, please!
Husband: - Go...'

if anrand = 30: set $anek = 'Put a baby pacifier next to the stove, and it melted stuck to the table.
Scored in Yandex: how to pull out the nipple?...
Forgot that looking for...'

if anrand = 31: set $anek = 'Once upon a time an old Indian told his grandson one vital truth.
- Inside every man is a struggle, much like the struggle between two wolves.
One wolf is evil - envy, jealousy, sorrow, selfishness, ambition, lies...
The other wolf is good - peace, love, hope, courtesy, truth, goodness, faithfulness...

Little Indian, touched to the heart the words of his grandfather, thought for a few moments, and then asked:
- And what a wolf wins in the end?
Face of an old Indian touched a faint smile, and he replied:
- Always wins the wolf that you feed.'

if anrand = 32: set $anek = 'An interview with the Russian businessman.
Reporter:
- Tell me what you think about the traffic police?
Businessman:
- Bandits uniquely. Do nothing, a complete mess on the streets, robbing drivers at every opportunity, washed-up motherfuckers.
To .:
- Yes, the opinion of an impartial, frankly. What do you think about Russian tamozhenikah?
B .:
- Hmm, I think I got a little excited about the cops. Normal in general guys are polite, do not take too much.'

if anrand = 33: set $anek = '- I do not know what to do. Cockroaches tortured. Shastayut everywhere - no peace.
- Did you buy a piece of chalk for cockroaches.
- What helps?
- Of course. You see - sitting in a corner, draw...'

if anrand = 34: set $anek = '- Hello! Rewrite me his apartment.
- What do you allow yourself!?
- Oh, sorry, not with principles. Do you believe in God?'

if anrand = 35: set $anek = 'It feels like an old Russian saying "fools no law" and the concept of "parliamentary immunity" are somehow connected.'

if anrand = 36: set $anek = 'If money is measured in groups, I have a dimple.'

if anrand = 37: set $anek = 'Policeman stops the car.
Lowered the window, the driver of an ingratiating smile:
"Good morning, Comrade Captain´s right please, TITLE, power of attorney, strahovochka itself, everything is as it should be, as it should..."
With the rear seat child´s voice:
"Dad, where´s the box?"'

if anrand = 38: set $anek = '- Why are you so inflated? What happened?
- Give her husband on Feb. 23 set of fishing lures.
- Well, all right. You have it for 10 years every weekend fishing goes. What´s wrong?
- He´s in his hands turned, and turned and asked: What is it??'

if anrand = 39: set $anek = 'Mom asks young son:
- Little Johnny, and who ate all the candy?
son:
- Brownie.
A voice from behind the stove:
- Do not bullshit me!'

if anrand = 40: set $anek = 'Pole comes to church for confession and says to the priest:
- Ban the priest, I have sinned.
- What is the sin, my son?
- I cheated a Jew...
The priest, after a brief hesitation:
- It is not a sin, my son. It´s a miracle!'

if anrand = 41: set $anek = 'University. Session. Reading room.
A lot of people how to prepare.
To one student comes another:
- Hey, you´re holding the book upside down!
- And you´re human, Freud, or what?
- And then Freud?
- This is - the book! What are her legs? You still say that I look down it between the pages ..!'

if anrand = 42: set $anek = '- Please change the guarantor of the Constitution to guarantee...
- Can not help, the entire batch defective.'

if anrand = 43: set $anek = 'Jew, before reaching home by taxi, goes silently out of the car and starts
fumbling in his pockets, and under his breath mutters:
- Damn, it seems the car dropped the purse...
Hearing this, the taxi driver presses the gas and unwound. Jew, looking after the taxi, sarcastically says:
- A Rabinovich is not lying, it really works...'

if anrand = 44: set $anek = 'Son quarrels with parents:
- I´m tired of always be with you, always be on time! I want romance, freedom, beer, girls! I´m going, and do not try to hold me back!

Son resolutely goes to the door. At the door of his father catches.
- Dad, I said, do not try to stop me!
- I´m not stopping you, son. I´m with you!'

if anrand = 45: set $anek = 'Met a girl on a hen party. All night they were telling jokes,
funny stories and shared with the other sisters their dreams...
By the morning of the cabinet fell dead with shame lieutenant Rzhev.'

if anrand = 46: set $anek = 'Turkmen President Saparmurat Niyazov in the great book "Rukhnama" proudly says that Turkmen invented the wheel, writing, smelting metals. No one denies that. Just the other nations at this time to produce computers and flew to the moon.'

if anrand = 47: set $anek = '- I hesitate to put you a diagnosis...
Probably, it is alcoholism.
- All right, doctor. I´ll be there when you´re sober.'

if anrand = 48: set $anek = 'I do not want to say old, but all the sounds that I was making once during sex, now I publish, just from your couch...'

if anrand = 49: set $anek = 'Wife to her Husband says:
- Let´s make love like in the movies! The husband agreed. Had it, as he wanted, then on her face cumshot...
She wiped:
- Yeah, my favorite! Other films we´re looking!!!'

if anrand = 50: set $anek = 'it is:
- Tell me why if a guy had a lot of girls, he - macho, but if the girl a lot of guys - damn it?
he:
- You know, if one key opens many locks - a key drop dead! And if one lock fit all the keys - it´s definitely worthless castle!'
--- anekdot ---------------------------------

# stihi
set strand = RAND(0,10)


if strand = 0: set $stihi = 'You - the sunlight in my dark!
You - my happiness among a heap of misery!
You - the sense that I wanted to find.
You - the muse. Not what one would die.

You - the incentive to fight despite everything!
You - the world from which there is no escape!
Magical warmth of your gentle hand
I warmed, probably thousands of years!

You - faith, leading to light tops!
You - the pain, without which love is not known.
You - the life of callous, heartless machines!
Worst of all - you become a stranger to me!

I´m afraid that one day will burn all bridges.
But I believe: with me your light forever!
I understand now. Paradise where there is you!
And hell - this is where you do not have with me.'


if strand = 1: set $stihi = 'Why go against fate,
She steps for us too prejudging
Admit it, we met of dreams,
Love opened the gates of the sacred.

Trust me, go ahead, do not tushuy,
I, like you, from feeling a little confused,
Let me just one kiss,
To rotate the spatial time.

I´ll be your guide here,
Sleep easily that in this world is beautiful,
Do not argue, you lit a fire in me
And his amber hair captivated.

Oh, nowhere to paint your camp
Understandably so, with the gods, the blind,
In these eyes saw the ocean,
His love intoxicated with happiness.

Let me stay with you forever
And the waves of love wander century,
Let me whisper to you verses
And the beauty queen enjoy.'


if strand = 2: set $stihi = 'You know perfectly itself,
That without you I can not,
Going a little crazy
Captivated by thy smile.

Are speechless when,
Opposite angel eyes,
I always ready to repeat:
"You are the best, period."

In thy light and easy,
You do not love is impossible,
Flying high - high
Sitting on a cloud with caution.

Do not worry, I´m always near,
And in sorrow and in joy will,
Together transcend cold
Code trust miracle.

You know perfectly itself,
But I say it again,
What I´m crazy about you,
I do not need any other happiness.'


if strand = 3: set $stihi = 'Tears streaming down his cheek,
When I think of you at night.
I want to be with you quickly,
Preserve thee my kitten.

I thank God for you,
And most of my life, I love you.
Thank you for the fact that we have brought with you,
Love for you, I found eternal.

Now we wake up together forever
And no one will separate us,
Your love in my heart shape
And never fly.'


if strand = 4: set $stihi = 'Love you! My darling!
You´re like a timid flower!
With you I´m not alone
You breathe, you live
these lines and I do not write in vain,
want anyone to know you - my dear!
I am very pleased that we have linked the fate!
I sincerely love you, soul,
You deserve me
Such love and respect!
I want to hear your sweet voice,
I always want to be near you!
I want to hold you tight,
And the touch of your lips, I gently!
I want to look into your beautiful eyes,
Looking at them, I´m like in a fairy tale ...
Spinning and rejoicing with you,
Under the starry sky and the moon!
I can not without you,
like an angel without love,
as the sun without heaven
as the sea without water ...'


if strand = 5: set $stihi = 'Help to understand love
And how to understand the feelings,
Teach me how to fly,
By the time the clouds to climb.
Help catch a wave
But keep your hand tight,
I´m afraid to go to the bottom,
As fear heart knife cuts.
Help greet the dawn
In Cornflower open field
You whisper "hello"
Enjoying thee.
Help to forget the sadness
And believe the word "happiness"
But left, promise
Do not break love apart.
I am open to you soul,
I am ready to embark on a given
Your voice sounds in me,
Eyes glowed at night.
Help. Not that I die.
Without love, the heart is empty,
Angel, I love you,
Help me understand the feelings.'


if strand = 6: set $stihi = 'I write about love will not stop,
With you I will walk in the garden again.
In your eyes only I will look green,
Whole body cast into a sweet shiver again.

I did not hold back in the hands of soul excitement,
A heart beats in the pendulum of love.
My angel - I´ll bestow moments
You again in this sweet night catch.

Let your eyes radiate love again,
And lips, whispering sweet words.
Each other´s hands tightly hugging,
Go crazy with happiness head.

Let in the dream was this feeling,
Are you a great night will extend whim.
Love for you, a special kind of art,
In his heart remained ardent feelings of courage.'



if strand = 7: set $stihi = 'If only you had been there,
Near everywhere and always,
Warm and affectionate gaze,
Warmed me in the cold.

If only lip native,
Gently woke in the morning,
Thoughts, love sick,
Steel verses yesterday.

Beautiful life is not necessary,
If you´re not around,
If only you were happy
At dawn meeting.

If only happiness shone
Princess my eyes,
Just to breathe feelings,
<<$name>> of your love.'


if strand = 8: set $stihi = 'Mad wind of change
Rips head dangerous.
I just ask him to return,
Make my life perfect.

It´s so nice to live in the world,
With a smile, greet the new day.
And be happy on the planet,
With Beloved, morning start.

Go crazy when apart,
Madly new meeting wait.
And messages in the laptop,
Inexorably gain.

But maybe not, that´s exactly
About feelings just write.
Perceiving all cardio
Just have to wait and wait.'


if strand = 9: set $stihi = 'Rivers flow I´m ready to change,
And change kontenenty places.
Ready to conquer the mountain tops,
And the satellite to the ocean floor.
And every day to give you happiness.
OPGW love you till skonchaniya century
And embrace standing in the moonlight.
I want you to know it all,
After all, these are not empty words!'


if strand = 10: set $stihi = 'In a desperate battle,
We relocate forward.
And drowning in prayers,
What awaits us?

The most difficult path,
We have chosen.
Each step is a careful,
To the top of fate.

Will not give up,
Not one step back.
Everything bad forget
Important because the result.

We love her,
Will carry forever.
And a happy life,
Will live a hundred years before ...'

--- stihi ---------------------------------

# love
if $ARGS[0] = 'start':
cla
*clr
if harakBoyA = 0: gt 'love','0'
if harakBoyA = 1: gt 'love','1'
if harakBoyA = 2: gt 'love','2'
end

if $ARGS[0] = '0':
cla
*clr
set love = 1
'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants you to meet his parents.'
'He warns you that his mother is very demanding and rigorous, <<$boyA>> says that he loves her mother and does not want to upset her. Therefore, you must look gorgeous, use the dress from a boutique, well-groomed and with curled hair and use cosmetics in moderation.'

'At the next date, if are ready, <<$boyA>> will take you to their parents.'

	act 'To invite':
		cla
		gt 'sexm','room'
	end
end

if $ARGS[0] = 'mother':
cla
*clr

set minut += 60

'<<$boyA>> to drive you to the home of his parents. You got out, took the elevator, after a call to the door you opened, it was clear that you were waiting for. You entered the apartment, you greet an elderly gray-haired muzhichek dressed in trousers and shirt, as long as you wore slippers in the hallway passed an elderly woman with thin, fastidiously pursed lips, she invited you to a table.'
'You went to the room <<$boyA>> chair pushed you and you sat down at a table set already. Mother sat in front of you your guy. She began to consider you with disgust in his eyes as bydto sat in front of her vile insect, not a girl her son. Nous, darling, and what do you do for a living?'

if work > 0 and workKafe = 1: 'You answered that you are a waitress in a cafe.'

if student > 0 and diplom = 0: 'I study at the university.'
if diplom = 1: 'Graduate graduated from university.'

if work = 0: 'I´m unemployed.'

if modelfoto > 0:
	'To which she smiled and said with disgust, "What are you not telling us how to shoot for web sites?" After these words, she laid on the table, your naked photos. "My son, my mother cares about you, this girl is not worthy of you."'
	'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshovaya whore! Get out."'
	set bfA = 0
	act 'Leave': gt $HouseLocation
	exit
end

if kavslut > 0:
	set bfA = 0
	'To which she smiled and said with disgust, "Son, let this slut all Armenians in the market know. Only and discuss <<$name>> waitress and her tear into all the cracks, she does not deserve it!"'
	'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
	act 'Leave': gt $HouseLocation
	exit
end

if frot > 3:
	set bfA = 0
	'To which she smiled and said with disgust, "Son, this slut all perverts on the subway know and lots pulled, who´s next to her ass to settle down. She is not worthy of you!"'
	'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
	act 'Leave': gt $HouseLocation
	exit
end

if gloryhole > 30:
	set bfA = 0
	'To which she smiled and said with disgust, "Son, your Svetulya moonlights members sucking sex Shope, you want a wife himself? She is not worthy of you!"'
	'<<$boyA>> blushed and said, "<<$name>>, I loved you so, and you, you just deshevaya whore! Get out."'
	act 'Leave': gt $HouseLocation
	exit
end

	'On what she tearful eyes looked at his son and said, "Very nice, Well Well son, it´s your choice who I am, that would interfere in your life, I just gave you, nursed and outgrowths, now you already have the right course forget about your mom and let it alone loves you and wishes you the best. If you need it, please, I do not forbid. "'
	'<<$boyA>> looked down, "Mom, what are you, I love you, but <<$name>> also dear to me."'
	'Mother jumped flashing eyes, "Son, you vstrechaeshsya with her recently, what do you know about her?"'
	'<<$boyA>> a long time to persuade his mother and excuses, finally she let you out of their predatory claws and you´re ready to leave.'
	set love = 2
	act 'Leave': gt $HouseLocation
end

if $ARGS[0] = '1':
cla
*clr
set love = 1
'You started talking about cohabitation. What <<$boyA>> told you that it is in principle not against, but first he wants to introduce you to their friends.'
'He says that you have to look chic, the dress from a boutique, well-groomed and curled hair, cosmetics in moderation, something to envy his friends are dead.'
'At the next vstreche once you will be totally ready <<$boyA>> will take you to your friends.'
act 'To invite':
	cla
	gt 'sexm','room'
	end
end

if $ARGS[0] = 'frends':
cla
*clr
'<center><img src="images\img\hasb\z0.jpg"></center>'
if proverka1 = 0 and proverka2 = 0 and proverka3 = 0 and proverka4 = 0 and proverka5 = 0:
	set minut += 180
	'<<$boyA>> to drive you to your friends. The apartment had two guys <<$boyA>> introduced you as his bride, you sat down at a table set. You talked a couple of hours of fun when everything was eaten and drunk almost all <<$boyA>> has invited you to dance, you gladly agreed. <<$boyA>> was already pretty drunk and he´s bad at dancing, but good at it you paw, his hands squeezed your buttocks, he soon ran them under her dress and continued to stroke your ass. Her skirt rode up your panties and brought to the public, the guys were sitting on the sofa without taking your eyes from your buttocks. As a result, one of the guys got up from the couch and rocking podozhel to you "Very best bum on your heifers, let check out" he said, and slapped you on the buttocks so that you already jumped. <<$boyA>> and let you napravilssya to him "You do ohrenel, it´s my girl, you can watch, you can not touch."'
	end
if modelfoto > 0 and proverka1 = 0:
	'"Yes calm down, she removed Golo not believe climbed in Inet´s full of pictures of her naked." the guy said.'
	'"Is it true?" asked <<$boyA>> turning to you.'
	'"Yes, I filmed naked, and I did that this was not a three-fuck and just showing her beautiful body." you said'
	if intel <= 30:
		set guy += 2
		set picrand = 39
		set bfA = 0
		'"Yes, I do not care what you were demonstrated once filmed naked whore means" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "Suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole buzz chippy" guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		act 'Further': xgt 'sexdvoe','var'
		end
	if intel > 30:
		set proverka1 = 1
		'You have a few minutes to crucify about what you did not commit anything wrong and that his friends just jealous. In the end, you managed to convince him otherwise, and <<$boyA>> agree with you.'
		act 'Further': gt 'love','frends'
		end
	exit
	end
if kavslut > 0 and proverka2 = 0:
	cla
	'"Yes, you wait, this whore all Armenians know, go ask any of the waitress Svetku, you her hole in detail describe" the boy said'
	'"Is it true?" asked <<$boyA>> turning to you. Do not think of anything better you plunged into mourning.'
	'"Yes, these freaks raped me several times"'
	if intel <= 50:
		set guy += 2
		set picrand = 39
		set bfA = 0
		'"Yes, I do not care who gets raped again several times means you liked and you yourself went to them damn" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "Suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole buzz chippy" guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		act 'Further': gt 'sexdvoe','var'
		end
	if intel > 50:
		set proverka2 = 1
		'You have a few minutes to crucify about what you poor and miserable, and how these have brutally raped Caucasians. In the end, you managed to convince him and <<$boyA>> hug you and said that more will not allow anyone to offend you.'
		act 'Further': gt 'love','frends'
		end
	exit
	end
if frot > 3 and proverka3 = 0:
	cla
	'"Yes, you wait, this whore in the subway all the perverts know want myself to go down the subway and you can fuck her in the car right in front of everyone," said the boy'
	'"Is it true?" asked <<$boyA>> turning to you.'
	'"What do you mean how could you think such a thing about me, if there is what that damn ride in the car so it´s something that I" cried out and you went for it.'
	if intel <= 40:
		set guy += 2
		set picrand = 39
		set bfA = 0
		'"Mouth shut whore, I believe your friends, if they say it was you mean it was you" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "Suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole buzz chippy" guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		act 'Further': gt 'sexdvoe','var'
		end
	if intel > 40:
		set proverka3 = 1
		'Deciding that the best defense is attack, you have a few minutes yelling at him. In the end, you managed to convince him and <<$boyA>> begins to soothe you saying that he does not blame you, but just asking.'
		act 'Further': gt 'love','frends'
		end
	exit
	end
if gloryhole > 30 and proverka4 = 0:
	cla
	'"Yes you wait, this slut in a sex shop through a hole sucks." the guy said'
	'"Is it true?" asked <<$boyA>> turning to you.'
	'"What do you mean how could you think such a thing about me, if there is some sort of a whore in the mouth takes it so that I that if" you cried and went to him. "And you´re a freak with what is decided, that I sucked you that you have something to compare?" you started to attack the guy.'
	if intel <= 60:
		set guy += 2
		set picrand = 39
		set bfA = 0
		'"Mouth shut whore, I believe your friends, if they say it was you mean it was you" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "Suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole buzz chippy" guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		act 'Further': gt 'sexdvoe','var'
		end
	if intel > 60:
		set proverka4 = 1
		'Deciding that the best defense is attack, you have a few minutes yelling at him. In the end, you managed to convince him and <<$boyA>> begins to soothe you saying that he does not blame you, but just asking.'
		act 'Further': gt 'love','frends'
		end
	exit
	end
if film > 2 and proverka5 = 0:
	cla
	'"Yes you wait, this slut in porn filmed." the guy said'
	'"Is it true?" asked <<$boyA>> turning to you.'
	'"Yes, but that was long before you, it is a mistake of youth and a couple of times, I had a very difficult time, but I do not do this for a long time" you started trying to squeeze out a tear.'
	if intel <= 70 and izvrat = 0:
		set guy += 2
		set picrand = 39
		set bfA = 0
		'"Mouth shut slut acted in porn whore means" with these words he threw you on the sofa. You tried to get up to leave, but <<$boyA>> stopped you, "Where are you going slut so much time powdering my brains and decided that we can just dump. Well guys Let this whore around." he said, and sat down on the sofa unbuttoned his pants "Suck" he shouted and pryatyanul your head to the perineum. Having decided that it is better not to argue with three drunken men you took his dick out of his pants and sent it into his mouth. Others also joined, one sat on the couch next to <<$boyA>> and took a member you grasped his hand and began to suck both poperemeno, the second time it took off your clothes and knelt launched language you pussy. The guy sitting on the couch and began wildly hiccup <<$boyA>> shouted at him, "Get out of here, but it still messed her whole buzz chippy" guy got up from the couch and immediately closed her mouth rushed to the toilet.'
		act 'Further': gt 'sexdvoe','var'
		end
	if intel > 70 or izvrat = 1:
		set proverka5 = 1
		'You have a few minutes grovel about how you love him and that everything that came before it, was a mistake. In the end, you managed to convince him and <<$boyA>> hugs you and whispers in his ear "A couple of tricks you probably remember, then you will show."'
		act 'Further': gt 'love','frends'
		end
	exit
	end
'"Okay, let´s go from here Svetsik, it´s time," said <<$boyA>> and you´re headed for the exit.'
set love = 2
act 'Leave': gt 'street'
end

if $ARGS[0] = '2':
cla
*clr
'(Further actions are available.)'
act 'To invite':
	cla
	gt 'sexm','room'
	end
end
--- love ---------------------------------

# brosok
if boyonceA = 0:
!скачек требований после секса
set boyonceA = 1
set guy += 1

!$bfsex += ''+''+$boyA+' First sex'+day+'th'+$month+'.'+'member'+dickA+' cm'+$boybody+' '+$boybod+' '+$boyface+'. He'+$boyClo
$bfsex += '<font color = maroon>'+$boyA+'</font>: He was a '+$boybody+' '+$boybod+' '+$boyface+'. Most of the time he was '+$boyClo+' First time we had sex was on the '+day+'th of '+$month+'. He had a '+dickA+' cm long member'

	if dickA > 20:
		$bfsex += '[:o].'
	elseif dickA > 14:
		$bfsex += '[:)].'
	else
		$bfsex += '[:(].'
	end

	if harakBoyA = 0: $bfsex += 'He was a calm and self-possessed character.<br>'
	if harakBoyA = 1: $bfsex += 'He was cheerful and sociable nature.<br>'
	if harakBoyA = 2:$bfsex += 'He was irascible and very rigid.<br>'

	if financeA = 0:
		if harakBoyA = 0: set vneshBoyA += 2
		if harakBoyA = 1: set vneshBoyA += 4
		if harakBoyA = 2: set vneshBoyA += 8
	end
	if financeA = 1:
		if harakBoyA = 0: set vneshBoyA += 6
		if harakBoyA = 1: set vneshBoyA += 10
		if harakBoyA = 2: set vneshBoyA += 14
	end
	if financeA = 2:
		if harakBoyA = 0: set vneshBoyA += 14
		if harakBoyA = 1: set vneshBoyA += 18
		if harakBoyA = 2: set vneshBoyA += 22
	end
end
--- brosok ---------------------------------

# down
$metka = $ARGS[0]
$loc = $CURLOC

gs 'dinam'

'<center><B>Downtown</B></center>'
'<center><img src="images\etogame\down.jpg"></center>'
clr

gs 'stat'
gs 'time'

set palMir = 0
set bordysh = 0
set housrA = 0
set palMir = 0
set obdysh = 0
set tanhouse1 = 0
set obMir = 0
set obLoker = 0
set houseob = 0
set borMir = 0
set borLoker = 0

if shantpopala > 0:
	cla
	*clr
	set hour += 8
	set cumbelly += 1
	set cumpussy += 1
	set cumass += 1
	set cumlip += 1
	set cumface += 1
	set cumfrot += 1
	set cumanus += 1
	set fingal += 1
	set guy += 2
	set rape += 1
	set sex += 1
	set bj += 1
	set anal += 1
	set shantpopala -= 1
	'<center><img src="images\img\centr\rape.jpg"></center>'
	'On the street close to you, a black jeep suddenly hit the brakes. You turn your head to see what''s happening and see two large men jump of it and start to run towards you in. Before you can react and run away, they grap you and drag you into the car.'
	'"You''re doing this for a living? Taking pictures of naked people in the park?", one of the shouts, holding one of the pictures to your face you''ve made awhile back and sent someone over a social network, hoping they would pay the ransom.'
	'"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
	'"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
	'You wake up somewhere out of town, you''re tied up and naked. You look down on yourself and notice traces of cum on your body, it also seems like that cum is flowing from your ass and your pussy.'
	'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.' 
	'"Oh, she is finally awake, then the next fuck-cycle will be far more fun.", one of the men said, as he noticed you moving. Some of them are starting to get a evil grin on their face.'
	'They got up and came back at you, barely a minute later you wished your were still knocked out, as these jackasses had their ways with. You tried to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost you consciousness again.'
	'You feel groggy as you wake up, but it feels like someone is grapping you by the hair and shouts at you. "Let this be a lesson for you, bitch.", he shouts, then kicks you into the stomach and leaves. As you collapse on the ground holding your stomach in pain, you take a glimpse at the street and see the assholes driving away in their black jeep. The mainroad is about 200m away, you crawl most of the way there, but soon you can walk again and eventually you find your way back to one of the mainstreets.'
	act 'Leave': gt $curloc
	exit
end

if BuyHous['Down'] >= 1 and houserent['Down'] ! 1:
	act '<b>GO HOME</b>':
		$HouseLocation = 'down'
		gorand = RAND(0,100)
		if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
		gt 'gopnew','start'
		exit
		end
		if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
		gt 'gopnew','start'
		exit
		end
	gt 'korr'
	end
end
	act 'Wait':
	cla
	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Take a look at the clock': gt curloc
	end
	
act 'Take a cab':
	cla
	*clr
	'<center><img src="images\etogame\taxi1.jpg"></center>'
	'You caught a passing taxi.'
	'"The drive will cost you <b>250 rubles</b>", the driver says.'
	set minut += 5
	if $loc!'street':
		act 'Go to the Residential Area':
			set $loc = 'street'
			dynamic $taxi
			end
		end
	if $loc!'down':
		act 'Go to the City Center':
			set $loc = 'down'
			dynamic $taxi
			end
		end
	if $loc!'Nord':
		act 'Go to the Northern Area':
			set $loc = 'Nord'
			dynamic $taxi
			end
		end
	act 'Turn him down and leave': gt '<<$loc>>'
	end

if car > 0 and cardrive = 2:
	'In the parking stands your <a href="exec:GS ''carF'',''start''"><<$car>></a>.'
end

dynamic $vladimir_driver

if hour >= 8 and hour <= 22: 'A kiosk is selling <a href="exec: dynamic $kiosksig">cigarettes</a>.'
if tanya > 0 and tanwork = 0 and hour >= 16 and hour <= 21 and tanday ! day: '<a href="exec: gt ''tanhouse''">Flat-Thani</a>'
if tanwork = 1: '<a href="exec: gt ''house''">Thanis</a> flat'
if izoldaWQ >= 1: '<a href="exec: GT ''qwIzoldaApp''">Isoldes</a> flat'
if mainQW >= 1: '<a href="exec: GT ''lab'',''start''">Karinas</a> secret hideout'
if hour >= 9 and hour <= 21: 'On the main street is a store called <a href="exec: minut += 15 & GT ''NewCloShop''">"Fashionista"</a>, a clothing store exclusively for women'
if yaq = 1: '<a href="exec: GT ''yarik'',''start''">Yaroslavs</a> apartment'
if peter > 0: '<a href="exec: GT ''peterroom'',''start_door''">Peters</a> apartment'
if hour >= 4 and hour <= 23: 'The <a href="exec: GT ''metro'',''start''">Metro</a> Station is within a 5 minute walk from here.'
if week >= 4 and hour >= 15: 'The trendy <a href="exec: GT ''club'',''start''">Nightclub</a>, with it''s shining lights, attracts young people from all over the city.'
if hour >= 15 or hour <= 2: 'The <a href="exec: GT ''stripclub'',''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
if (week = 1 or week = 3 or week = 5) and hour >= 8 and worksalon = 1: 'Use the back entrance to get to <a href="exec: gt ''salon'',''early''">work at the beauty salon</a>'
if hour >= 9 and hour <= 20:
'In the center is a large <a href="exec:gt ''torgcentr''">shopping center</a>'
if hour >= 9 and hour <= 21: 'On the mainstreet, a brand new <a href="exec:GT ''budgetclothes'',''start''">G&M store</a> opened it´s doors.'
'There is a <a href="exec:GT ''foto'',''start''">photo studio</a> next to a popular <a href="exec:GT ''fit'',''start''">fitness center</a>, where professional athletes can train.'
'At the <a href="exec:GT ''bass'',''start''">pool</a>, people can train for the next beach season.'
end
'A 30 minute walk away is the <a href="exec: set minut += 44 & GT ''park'',''start''">central park</a>. You can reach all the districts of the town while walking through it. Walking to it''s center should take far less than an hour.'
if hour >= 8 and hour <= 22: 'Infront of the expensive <a href="exec: GT ''restoran'',''start''">Restaurant</a> are luxury cars parking.'
'A shop for <a href="exec:GT ''sexshop'',''start''">sex toys</a> is open for perverts from all around the city.'
if hour >= 6 and hour <= 23: 'Diner <a href="exec: GT ''burger'',''start''">Bystroeshka</a>.'
if bordel > 0 and hour >= 20 or bordel > 0 and hour <= 3: 'Inside the courtyard is the entrance to the <a href="exec: GT ''bordel''">brothel</a>.'
if pornstudio >= 1 and hour > 5: 'At the <a href="exec: GT ''pornstudio'',''start''">Porn Studio</a>, a variety of naughty movies are created'
if week < 6 and hour >= 7: 'At the <a href="exec: GT ''univer'',''start''">University</a> you can earn your diploma.'
if hour >= 6 and hour <= 23: 'The <a href="exec: GT ''dorm'',''start''">Hostel</a> offers a small, but cheap, living space, but you have to be student at the university.'
if week < 6 and hour >= 9 and hour <= 18: 'You can see the most important <a href="exec: GT ''bank'',''start''">Bank</a> in the city from here.'
if week < 6 and hour >= 8 and hour <= 17: 'In the largest skyscraper is a huge <a href="exec: GT ''office'',''start''">Project Organization</a> located.'
if hour >= 8 and hour <= 22: 'At the <a href="exec: GT ''agentned''">Real Estate Agency</a> you can buy or rent an apartment.'
if hour = meethour and $meetloc = $CURLOC:
	if svidanieA = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieB = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieC = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
end
!if beg >= 50 and begmon ! month and hour >= 6 and hour <= 23: 'Start at <a href="exec:GT ''beg1'',''start''">running competition</a>'
!end
dynamic $din_street_cum
dynamic $meet_boyfriend
--- down ---------------------------------

# agentned
gs 'stat'
'<center><B><font color = maroon>Real Estate Agency</font></B></center>'

act 'Exit': gt 'down'

if BuyHous['Street'] ! 1 or BuyHous['Down'] ! 1 or BuyHous['Nord'] ! 1:
	'You can buy an apartment in a residential area, Downtown or Northern region.'
	'Renting an apartment costs 200 rubles per day, minimum rental is for a period of 30 days.'

	if money >= 2000000:
		if BuyHous['Street'] ! 1:
			act 'Buy an apartment is residental dirstrict':
				cls
				money -= 2000000
				housr = 1
				BuyHous = 1
				housr['Street'] = 1
				BuyHous['Street'] = 1
				gs 'stat'
				'You bought an apartment in the residential area.'
				act 'Exit': gt 'down'
			end
		end
		if BuyHous['Down'] ! 1:
			act 'Buy an apartment is downtown':
				cls
				money -= 2000000
				housr = 1
				BuyHous = 1
				housr['Down'] = 1
				BuyHous['Down'] = 1
				gs 'stat'
				'You bought an apartment in the downtown.'
				act 'Exit': gt 'down'
			end
		end
		if BuyHous['Nord'] ! 1:
			act 'Buy an apartment is northern region':
				cls
				money -= 2000000
				housr = 1
				BuyHous = 1
				housr['Nord'] = 1
				BuyHous['Nord'] = 1
				gs 'stat'
				'You bought an apartment in the northern region.'
				act 'Exit': gt 'down'
			end
		end
	end
end

if BuyHous['Street']!1 or BuyHous['Down']!1 or BuyHous['Nord']!1:
	if money >= 6000:
		if BuyHous['Street'] ! 1:
			act 'Rent an apartment in residental district':
				cls
				money -= 6000
				housr = 1
				BuyHous = 2
				housr['Street'] = 1
				BuyHous['Street'] = 2
				ArendHouseSL['Street'] += 30
				gs 'stat'
				'You rented a flat in a residential area. Now you <<ArendHouseSL[''Street'']>> rental days.'
				act 'Exit': gt 'down'
			end
		end
		if BuyHous['Down'] ! 1:
			act 'Rent an apartment in downtown':
				cls
				money -= 6000
				housr = 1
				BuyHous = 2
				housr['Down'] = 1
				BuyHous['Down'] = 2
				ArendHouseSL['Down'] += 30
				gs 'stat'
				'You rented a flat in a downtown. Now you <<ArendHouseSL[''Down'']>> rental days.'
				act 'Exit': gt 'down'
			end
		end
		if BuyHous['Nord'] ! 1:
			act 'Rent an apartment in northern region':
				cls
				money -= 6000
				housr = 1
				BuyHous = 2
				housr['Nord'] = 1
				BuyHous['Nord'] = 2
				ArendHouseSL['Nord'] += 30
				gs 'stat'
				'You rented a flat in a northern region. Now you <<ArendHouseSL[''Nord'']>> rental days.'
				act 'Exit': gt 'down'
			end
		end
	end
end

if ArendHouseSL['Street']>0: 'Your residential house has <<ArendHouseSL[''Street'']>> rental days left.'
if ArendHouseSL['Down']>0: 'Your Downtown house has <<ArendHouseSL[''Down'']>> rental days left.'
if ArendHouseSL['Nord']>0: 'Your northern district house has <<ArendHouseSL[''Nord'']>> rental days left.'
--- agentned ---------------------------------

# bank
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Bank</font></B></center>'
'<center><img src="images\etogame\bank.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if karta > 0: 'In the bank <<karta>> rubles'

	if BankPapper = 1 and dayBankPapper = day:
		act 'Giving documents':
		cls
		set minut += 15
		BankPapper = 2
		gs 'stat'
		'You went to the office and gave the documents to the manager.'
		act 'Leave': minut += 5 & gt 'down'
		end

	end

	if money > 0:
		act 'Deposit money':
		cla
		set minut += 5
		kartaIN = input ("How much money you want to deposit into the account?")
			if kartaIN <= 0 or kartaIN > money:
			'Not correct operation.'
			else
			set karta += kartaIN
			set money -= kartaIN
			'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
			end

		act 'Move away': gt 'bank','start'
		end

	end

	if karta > 0:
		act 'Withdrawing money':
		cla
		set minut += 5
		kartaOUT = input ("How much do you want to withdraw from account?")
			if kartaOUT <= 0 or kartaOUT > karta:
			'Not correct operation.'
			else
			set karta -= kartaOUT
			set money += kartaOUT
			'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
			end

		act 'Move away': gt 'bank','start'
		end
	end

act 'Exit': gt 'down'
end
--- bank ---------------------------------

# kameraKPZ
gs 'stat'
'<center><B><font color = maroon>pre-trial chamber</font></B></center>'
'<center><img src="images\etogame\kpz.jpg"></center>'
'Large chamber with wooden benches.'


if kameraKPZ < 3:

	act 'Sit':
	cla
	minut += 60
	kameraKPZ += 1
	gs 'stat'
	'You sat on the hard wooden bench and began to consider your position.'
	act '...': gt $curloc
	end

else
'By lattice policeman came and Anatoly Borisovich. The policeman immediately stepped aside and host bystroezhki said. "<<$name>>, <<$name>>, well, how could you?"'
	act 'Tell him how everything was.':
	cls
	minut += 60
	gs 'stat'
	'<center><img src="images\etogame\kpz.jpg"></center>'
	'You were telling Ivan tried to persuade you to have sex and you refused him as he naplel you tales about your raise and gave you the keys. As you took the envelope and gave it to Ivan. Anatoly Borisovich sad you looked through the bars. "<<$name>>. Ivan showed himself a true professional and honest person. He made his way to the main managers of the lower classes. And you mean to tell me that he was tempted by what is 650000? Risking all, his position, his career, reputation, only to have that would steal the money and annoy you? You just dishwasher. What sense would he do that? Besides Ivan decent salary and maybe soon it will become director of the branch. "'
		act 'Convinced of his innocence':
		cls
		minut += 60
		gs 'stat'
		'<center><img src="images\etogame\kpz.jpg"></center>'
		'You began to convince the owner bystroezhki his innocence. Anatoly Borisovich thinking about something. "Raison put you there is no me. I need to get my money back. And if we assume that you´re not lying, then I warmed the snake on his chest.''s What I tell you. Pohodataystvuyu I, what would you have released on bail. You where it will be a month before the trial that would clear himself. If you can not, then I´m sorry, I can not help. "'
			act 'Agree':
			cls
			minut += 260
			gs 'stat'
			'<center><img src="images\etogame\kpz.jpg"></center>'
			'Certainly no choice and you do not agree with Anatoly. He quickly went to it and after a while you have been released from the bullpen. Anatoly Borisovich met you in his car and invited you to sit down to it.'
				act 'Go with Anatoly':
				cls
				minut += 30
				PodpiskaNeviezd = 1
				IvanKvartira = 1
				gs 'stat'
				'<center><img src="images\maggot\car.jpg"></center>'
				'You got into the car and drove off. Anatoly said. "Now I´ll take you to your house. I think you need some rest. Ivan lives in the northern region, act like you know. But remember, if it is what mischief again, I´m not going to pull out. And remember girl. You have to court where it month. During this time, you should either give me back my money, or prove me guilty of Ivan, or you sit. I´ll make sure that your term would not have been suspended. Otpravishsya six years quilted stitching in some sort of wilderness surrounded by old prostitutes drug addicts, cheats and other charges. And by the court you will transfer the money to me until you have paid the entire amount. If anything, find me in bystroezhke. " You came to your house and said goodbye with Anatoly.'
				act 'Out of the car.': gt 'street'
				end
			end
		end
	end
end
--- kameraKPZ ---------------------------------

# bass
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Pool</font></B></center>'
'<center><img src="images\etogame\bass.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Entrance to the pool is worth 100 rubles, you must have a swimsuit.'

	act 'QUIT': set minut += 5 & gt 'down'

	if db >= 1 and bikini > 0 and Goraday ! day: act 'Search ZHoru': Goraday = day & gt 'klofdomhouse','ev42'

	if money >= 100 and bikini > 0:
		act 'To pay 100 rubles per 1 hour in the pool':
		cla
		set minut += 5
		set money -= 100
		gt 'bass','a'
		end

	end

end

if $ARGS[0] = 'a':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Pool</font></B></center>'
if magik < 4: '<center><img src="images\etogame\bass.jpg"></center>'
if magik >= 4 and kisameQW = 0:
'<center><img src="images\etogame\bass1.jpg"></center>'
'In pool floats hefty athlete, he swims with mad speed and clearly feels like a fish in water, he come to the shore to the edge of the pool and in one motion jumps right in front of you. Looking at you, he greedily smiling showing you a range of white teeth.'
	act 'Watch for swimmers':
	cla
	*clr
	set kisameQW = 1
	set minut += 60
	if sweat > -3: set sweat = -3
	set manna += 5
	set willpower += 5
	if stren < 30: set stren += 1
	'<center><img src="images\qwest\kisame.jpg"></center>'
	'Athlete put on a towel and walked up to you. He smiled and said "Hi sweetie My name is Kisame just for you Kitty!"'
		act 'Hi! I <<$name>>.':
		cla
		'(You) - Hi! I <<$name>>.'
		'(Plavec) - Svetsik can swim together?'
		'Kisame without waiting grabs you by the waist and powerful jump jumps to the middle of the pool.'
		act 'Next.': gt 'kisameQW','start'
		end

		act 'Fuck off Kish!':
		cla
		'(You) - Fuck off Kish!'
		'(Plavec) - How rude!'
		'You do not have time to blink as an athlete grabbed you by the waist and lifted over your head easily threw you into the middle of the pool.'
		'When you spitting surfaced over the water you can see how to you under the water at breakneck speed approaching Kisame.'
		act 'Next.': gt 'kisameQW','start'
		end
	end
end
if kisameQW = 1 and KisameDead < 1:
'<center><img src="images\qwest\kisameV.jpg"></center>'
'Seeing you akulopodobny Kisame smiling "Hi baby. Want me to fill your hot mouth his shark-seed?"'
	act 'Attack (Kisame mag10)':
	cla
	set horny += 10
	set $nameV = 'Kisame'
	!Статы
	set strenV = 300
	set speedV = 100
	set agilV = 100
	set reactV = 100
	set vitalV = 200
	set intelV = 100
	set willV = 50
	!Навыки
	set magikV = 10
	set boxingV = 100
	set shootV = 100
	!Параметры
	set healthV = vitalV * 10 + strenV * 5
	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
	set willpowerV = willV * 10
	set BonusAtakV = 0
	set BonusDefV = 0
	!программа действий
	set program = 5
	!!!!!!!!!!!!!!!!!!!!
	!!!!!!!!!!!!!!!!!!!!
	set KisaFight = 1
	set klonV = 5
	set defenceV = 800
	if spellavtoklon = 1: set klon = 3
	gt 'fight','start'
	end

	act 'Make him a blowjob under water':
	cla
	*clr
	set minut += 60
	set horny += 100
	if sweat > -3: set sweat = -3
	set manna += 5
	set willpower += 5
	if stren < 40: set stren += 1
	if KisameSex = 0: set KisameSex = 1 & Set guy += 1
	set bj += 1
	set swallow += 1
	set SUB += 1
	'<center><img src="images\qwest\kisameBJ.jpg"></center>'
	'You downcast eyes, Kisame smiled even wider and dragged you into the water. His strong hands pressed your face to his groin and you wrapped around his dick lips quite quickly Kisame finished your mouth.'
	act 'Out of the water': gt 'bass','start'
	end
end


	act 'Swim (1:00)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
	set minut += 60
	if sweat > -3: set sweat = -3
	set manna += 5
	set willpower += 5
	if stren < 40: set stren += 1
	'<center><img src="images\pics\swim.jpg"></center>'
	'You iskupnulis in the pool, the water refreshes and invigorates.'
	act 'Out of the water': gt 'bass','start'
	end

act 'QUIT': gt 'bass','start'
end
--- bass ---------------------------------

# burger
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Diner Bystroeshka</font></B></center>'
'<center><img src="images\etogame\burger.jpg"></center>'
'The most nutritious food in the county, and sing a couple of kilograms dial reads bright advertising on the wall.'
'Also in the works eatery <a href="exec:GT ''butoilet''">WC</a> to visitors.'
if BistroBoss > 0: '<a href="exec: GT ''burgerBoss''">The Cabinet of the Director</a> Anatoly Chubais'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end


	if money >= 100:
		act 'Eat 100 rubles':
		cla
		*clr
		'<center><img src="images\pics\food.jpg"></center>'
		set minut += 30
		set health += 10
		set money -= 100
		set manna += 5
		set willpower += 5
			if energy >= 30:
			set fat += 8
			'You can no longer have.'
			end
			if energy >= 20 and energy < 30:
			set fat += 6
			set energy += 10
			'You pushed through the power of a meal.'
			end
			if energy < 20:
			set energy += 20
			set fat += 4
			'You gladly ate the food.'
			end
			if water >= 20:
			'Tea in you no longer climbs.'
			end
			if water < 20:
			'You gladly drank a mug of tea.'
			set water += 20
			end
		act 'Get up from the table': gt 'burger','start'
		end
	end

	if IvanPodstavaQW = 2:
		act 'Come into the office to Anatoly Borisovich':
		cls
		gs 'stat'
		'You went to the office of the owner. He appeared in his place, dealing with your papers. Anatoly Borisovich looked at you and said, "Well? Are there any news?"'
		act 'Exit': gt 'burger','start'
			if money >= 650000:
				act 'To repay the debt':
				cls
				money -= 650000
				IvanPodstavaQW = 5

				gs 'stat'
				'Did you get the money and counted 650,000 Arkady Borisovich. He counted the money and promised that no prosecution will be no more.'
				act 'Exit': gt 'burger','start'
				end
			end
			if IvanEvidence = 1:
				act 'Show proof':
				cls
				IvanPodstavaQW = 6
				IvanKvartira = 0
				IvanEvidence = 0
				gs 'stat'
				'You showed record recognition on camera Arkady Borisovich where Ivan confessed and promised to return the money. Arkady Borisovich took you record and said that the further he will understand and take a statement from the police.'
				act 'Exit': gt 'burger','start'
				end
			end
		end

	end

	if posuda = 0:
		act 'Talk about work':
		cla
		'You went into the office on which was written Manager. You met a smart girl. She began to tell you, you can work almost every day. Come in any time when running a snack bar and wash the dishes 1:00, for it will get 100 rubles immediately on hand.'
		act 'And refuse to leave': gt 'burger','start'
			act 'Accept work':
			cla
			set posuda = 1
			'You agreed to work.'
			act 'Exit': gt 'burger','start'
			end
		end
	end

	if posuda >= 3 and posudaA = 0:
		act 'Go to the manager':
		cla
		'You went to the office of the Manager. The girl told the manager that you are not running bad and offered you another part-time job. You can wash the floors in the morning, from 8 to 9-. 1:00 cleaning floors and is now 100 rubles immediately on hand.'
		act 'And refuse to leave': gt 'burger','start'
			act 'Agree to work':
			cla
			set posudaA = 1
			'You agreed to work.'
			act 'Exit': gt 'burger','start'
			end
		end
	end

	if posuda >= 1 and posudaday ! day and NoBistroWork = 0 and PersSecWork = 0:
		act 'Wash the dishes for 100 rubles (1:00)':
		cla
		*clr
		set posudaday = day
		set minut += 60
		set posuda += 1
		set manna -= 15
		set money += 100
		set sweat += 1

		if bistroQW = 10: bistroQW = 0

		'<center><img src="images\pics\dirt.jpg"></center>'
		!'<<bistroQW>>'
		'You are within an hour washed the dirty dishes from the food residue and grease. After that you were given 100 rubles for his work.'

			if vnesh >= 20 and posuda >= 7 and bistroQW < 10:
			if bistroQW = 1:$bistrotext = 'From the office of the owner came out and saw Bystroezhki you smiled. "<<$name>>. My offer still stands. It pays to go to a restaurant?"'

			if bistroQW = 0:
				bistroQW = 1
				$bistrotext = 'From the office of the owner came Bystroezhki and nearly bumped into you.
- Oh, sorry. How could I not see such a charming girl.
- Do not worry - you responded with a smile.
- Can you meet? I Anatoly Borisovich.
- <<$name>>.
Anatoly took your hand and kissed it.
-Would you like to dine out, and not in that hole?'
			end

			'<<$bistrotext>>'
			act 'Refuse': gt 'burger','start'
				act 'Agree':
				cls
				bistroQW = 10
				'"Let´s go first to the shop, pick up your gorgeous dress. And then the restaurant is not allowed in with anything." Said Anatoly seeing you on the street to his car.'
					act 'Get in the car':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images\maggot\car.jpg"></center>'
					bistroQW = 20
					'Anatoly Ehav in the car to take you by the hand and not let go until the very end of the road.'
					'After you have gone in a very expensive boutique with a French name.'
					'Anatoly said that you picked up the dress.'
					'After a few dresses shown, he made ​​a choice and told you to go to the dressing room.'
						act 'Go into the fitting room':
						cls
						minut += 15
						gs 'stat'
						'<center><img src="images\maggot\butic.jpg"></center>'
						'You undressed and began to inspect the dress.'
						'Suddenly went into the dressing Anatoly.'
						'- Sorry, could not resist that would not look at their beauty.'
						'Looking at dresses, Anatoly said,'
						'- I think you will here is gray. It is the way the most precious thing there is. And you know, <<$name>>, for such gifts must be very well thanks.'
						'Anatoly eyes pointed at his pants showing what he wants from you.'

							act 'Give blowjob':
							cls
							minut += 15
							gs 'stat'
							bistroQW = 50
							bj += 1
							guy += 1
							swallow += 1
							cumlip += 1
							dress[24] = 1
							set dressH[24] = 160
							set dressB[24] = bedra
							'<center><img src="images\maggot\bj.jpg"></center>'
							'You went down and squatted in front of Anatoly, he unbuttoned his pants and pulled out his penis. You leaned over his hard cock and kissed him, feeling his warmth. Glib tongue cock licking and sucking his struchek relish in her big wet mouth and you started to suck his dick.'
							'Soon Anatoly groaned and you feel like in your mouth spurt of warm liquid. You are not distracted from the steel blowjob swallow cum, trying not to choke. Anatoly straightened clothes and left.'
							'Disguised as you went out and seemed to Anatolia.'
							'He smiled and gestured to the seller that takes the dress.'

								act 'Exit from the boutique':
								cls
								minut += 15
								gs 'stat'
								'<center><img src="images\maggot\car.jpg"></center>'
								'Whew, Svetsik. I that tired. Let´s go to a restaurant like some other time. Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
								act 'Out of the car': gt 'street'
								end
							end

							act 'Crease':
							cls
							minut += 15
							gs 'stat'
							'You neznaya hesitated what to do. Anatoly Borisovich took you by the shoulders and pushed you to them, from what you squatted helplessly. He unbuttoned his pants and pulled out her own dick already risen.'
								act 'Frightened look':
								cls
								minut += 1
								bistroQW = 50
								bj += 1
								guy += 1
								!swallow += 1
								!cumlip += 1
								dress[24] = 1
								set dressH[24] = 160
								set dressB[24] = bedra
								gs 'stat'
								'<center><img src="images\maggot\pr.jpg"></center>'
								'You looked up startled and looked at Anatoly Chubais and immediately you feel like a hot head of his cock rested you on the lips. Anatoly began to move his cock your lips. "Do not be shy baby, it oblizni his tongue."'
									act 'Lick':
									cls
									minut += 2
									!swallow += 1
									!cumlip += 1
									gs 'stat'
									'<center><img src="images\maggot\pr1.jpg"></center>'
									'You hesitantly stuck out his tongue and licked purple head. Then again and again, finally you become tongue to lick his dick the whole length of wetting his saliva.'
										act 'Licking dick':
										cls
										minut += 2
										!swallow += 1
										!cumlip += 1
										gs 'stat'
										'<center><img src="images\maggot\pr2.jpg"></center>'
										'You continued to lick dick and Anatoly Borisovich taking you behind your head pushed closer to the penis. You feel like you are on the lips rested member. Your wet lips parted and hot and firm flesh became a member of your mouth filling it completely. "That´s it baby, suck it now." said Anatoly Borisovich start moving your hips and slowly fuck your mouth. You cupped his lips tightly member and began to feel like skin on the penis moves along the rod.'
											act 'Sucking dick':
											cls
											minut += 2
											!swallow += 1
											cumlip += 1
											facial += 1
											cumface += 1
											gs 'stat'
											'<center><img src="images\maggot\pr3.jpg"></center>'
											'You become actively suck dick and feel like getting tired jaw. Suddenly your mouth hot jet shot. You by surprise even released member of his mouth and slapped Next jet of sperm you on the nose. Emerged from the mouth part of the semen and hung on your chin. Anatoly Borisovich took you for stronger head began to stick your mouth ends member.'
												act 'Sit on the floor':
												cls
												minut += 2
												gs 'stat'
												'<center><img src="images\maggot\pr4.jpg"></center>'
												'Finally Anatoly Borisovich stopped and cleaned cum dick in his pants buttoned pants. You sit on the floor stunned before fitting them with semen dripping from his face, feeling quite cheesy, like nothing on earth the taste of semen. Anatoly Borisovich helped you get to his feet and quickly walked out of the dressing room. You become pytatsya erase from the face of the sperm by removing traces.'
													act 'Exit out of the dressing':
													cls
													minut += 2
													gs 'stat'
													!'<center><img src="images\maggot\pr4.jpg"></center>'
													'You came out of the dressing room, with a red face from shame. You seem as if the surrounding is already aware of the fact that you just suck dick in a public place. Chubais said the saleswoman that he buys for you to dress her and paid. Saleswoman wrapped dress and you felt her gaze on her face when she gave you a package with the dress.'
														act 'Exit from the boutique':
														cls
														minut += 15
														gs 'stat'
														'<center><img src="images\maggot\car.jpg"></center>'
														'You came out of the boutique with Anatoly Borisovich. "Whew, Svetsik. I that tired. Let´s go to a restaurant like some other time." Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
														act 'Out of the car': gt 'street'
														end
													end
												end
											end
										end
									end
								end
							end

							if dom > 0:
								act 'Thank you very much. (Deny)':
								cls
								dom += 5
								'You grinned and said, "Thank you very much," Anatoly flushed and said emphatically, "You know what I mean." then he unbuttoned his pants and pulled out a member risen.'
								'You laughed, "That´s it, I understand perfectly, you can carry this dress myself, if you think I´m laying for each bellied, fat cat, who thinks he saddled his fate and fancies himself the king of the world and brutal macho, so not par my brain baby, and its fledgling shove back into the socket until it fell out, and then I look out there in the nest next to the chick, a couple of balls hatched not because you looked, I help them hatch knee. In general, sebi away in horror, Casanova unfinished. "'
								'Antaloy erupted and began to threaten "Yes I am, I´ll fire you!"'
								'You laughed in his face, "Oh scared, all right shudder fired and then he´ll be here this rag to wash the dishes."'
								'Anatoly pale, flushed and hissing angrily jumped out of the fitting followed by your loud laughter.'
									act 'Leave':
									cla
									set minut += 5
									gt 'down'
									end
								end
							end
						end
					end
				end

			exit
			end
			if bistroQW = 20:
			bisrand = RAND(0,10)
				if bisrand = 10:
				'From the office of the owner came Bystroezhki Anatoly Borisovich and see you turned away from the arrogant mien.'
				end
			end
			if bistroQW = 56:
			'When you´re finished you suddenly approached manager Ivan. "Okay <<$name>>. Sorry. I was wrong about you. I do not know what I was bitten by a fly. We just want people to post Assistant Manager. I think you come near. Nature you have. Well? Do you agree?"'
				act 'Yes.':
				cls
				gs 'stat'
				'You agreed with the proposal to become assistant manager Ivan. Ivan immediately beamed with happiness. "Well then, you first work assignments, here´s the keys to the cabinet Borisych. Leave them while at home. Go to his office, open the safe and take it from there envelope. Do not forget to close only after themselves safe. How Come take an envelope to me. understood everything? Act! "'
					act 'I changed my mind.':
					cls
					bistroQW = 57
					gs 'stat'
					'You refused the offer of Ivan and noticed how his face flashed a shadow of annoyance. He said disappointedly you. "Well, as you know, my job offer."'
					act 'Leave': gt 'burger','start'
					end

					act 'Take the key and go into the office Chubais.':
					cls
					bistroQW = 111
					gs 'stat'
					'Taking key Ivan you went to the office of the owner. Opened his door. Entered the office and went to the safe. Kyuchom second on the ring you opened the safe and saw there what that documents and thick envelope.'
						act 'Look in the envelope':
						cls
						gs 'stat'
						$burgerIvanText = 'And looked into the envelope. Then you close the safe and headed to the exit.'
						'You looked at the envelope and saw there a thick wad of money. Vskidku, that about half a million. From what you see you even whistled.'
						act 'Envelope attributed to Ivan':
							cls
							IvanPodstavaDay = day
							IvanPodstavaQW = 1
							NoBistroWork = 1
							gs 'stat'
							'Coming out of the office, you saw that in the corridor outside the cooler worth Ivan and talking on the cell phone. Seeing you, he waved his hand to you. You came up and gave the envelope to Ivan. He quickly picked it up and put it in his jacket pocket. After that, you nodded. You can go. You want to give him the keys to the cabinet Chubais, but Ivan shook his head and closing his hand tube told you. "Leave the keys while at home. Come tomorrow, we shall discuss the details of your new appointment.'
							act 'Leave': gt 'burger','start'
							end
						end

						act 'Envelope attributed to Ivan':
						cls
						$burgerIvanText = 'You took the envelope and close the safe headed out.'
						IvanPodstavaDay = day
						IvanPodstavaQW = 1
						NoBistroWork = 1
						gs 'stat'
						'Coming out of the office, you saw that in the corridor outside the cooler worth Ivan and talking on the cell phone. Seeing you, he waved his hand to you. You came up and gave the envelope to Ivan. He quickly picked it up and put it in his jacket pocket. After that, you nodded. You can go. You want to give him the keys to the cabinet Chubais, but Ivan shook his head and closing his hand tube told you. "Leave the keys while at home. Come tomorrow, we shall discuss the details of your new appointment.'
						act 'Leave': gt 'burger','start'
						end
					end
				end

				act 'No.':
				cls
				bistroQW = 57
				gs 'stat'
				'You refused the offer of Ivan and noticed how his face flashed a shadow of annoyance. He said disappointedly you. "Well, as you know, my job offer."'
				act 'Leave': gt 'burger','start'
				end
			exit
			end
			if bistroQW = 50:
			'During operation, you learned that Chubais is away on business affairs and his manager replaces Ivan. When you are ready to go to work from the office manager came out and Ivan came to you in a conspiratorial tone said. "Well <<$name>>, you obviously do not want to work for those pennies? Come to me, spec. Spec work for. Salary."'

				act 'Go to the manager´s office':
				cls
				minut += 15
				gs 'stat'
				bistroQW = 55
				!bj += 1
				!guy += 1
				!swallow += 1
				!cumlip += 1
				'<center><img src="images\maggot\bj1.jpg"></center>'
				'You went into the office and closed the pre Ivan the front door of the castle, and sat down in a chair in front of you at ease lounging in it. You went to the manager and waited for what he would do, he sneered and deftly grabbed you by the hand pulling yourself.'
					act 'Bend':
					cls
					'<center><img src="images\maggot\bj2.jpg"></center>'
					'You bent over and came face to face with Ivan, he whispered, unbuttoning his pants, to "work baby mouth."'
						act 'Take by mouth':
						cls
						minut += 3
						gs 'stat'
						bj += 1
						guy += 1
						'<center><img src="images\maggot\bj3.jpg"></center>'
						'Still standing in front of Ivan you even more bent and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and began to suck his cock absorbing into your hot mouth until the very end, utykayas nose at every movement in curly pubis that tickle your nose.'
						'Ivan finally broke down and without warning began to cum in your mouth. Jet of hot liquid hit you in the mouth, you have opened wide-eyed, but you continued to suck dick spewing seed finally you had a mouth full of semen already and you could not contain it and it has emerged on your lips member Ivan.'
							act 'Swallow cum and clean his cock language':
							cls
							minut += 2
							swallow += 1
							cumlip += 1
							money += 1500
							gs 'stat'
							'<center><img src="images\maggot\bj4.jpg"></center>'
							'You squatted in front of the manager and swallowing sperm began to lick the remnants of the still standing, but quickly fall off the penis.'
							'Finally cock completely satisfied Ivan fell and gave you half thousand rubles for the work you have done.'
							act 'Leave': gt 'burger','start'
							end

						end
					end

					if dom > 0 or dom = 0 and sub = 0:
						act 'Leave':
						cls
						bistroQW = 56
						gs 'stat'
						'<center><img src="images\maggot\bj1.jpg"></center>'
						'You escaped from the hands of Ivan was not expecting such a reaction. He glared at you, "I mean Borisych suck, and his deputy squeamish?" You were taken aback by these words. How does he know about what happened in the fitting room. Apparently on your face that is reflected Ivan chuckled. "Yes Borisitch raskazal himself about it. If you calculated, but the fact that you manage Okrut Borisitch, then nothing. Did you tell him something and not really needed. And I´m offering you a decent zarobotok. So, be a good boy and show me that knows your mouth. "'
						act 'Perebesh!': dom += 1 & gt 'burger','start'
							act 'Take by mouth':
							cls
							bistroQW = 55
							minut += 3
							gs 'stat'
							bj += 1
							guy += 1
							'<center><img src="images\maggot\bj3.jpg"></center>'
							'Still standing in front of Ivan you even more bent and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and began to suck his cock absorbing into your hot mouth until the very end, utykayas nose at every movement in curly pubis that tickle your nose.'
							'Ivan finally broke down and without warning began to cum in your mouth. Jet of hot liquid hit you in the mouth, you have opened wide-eyed, but you continued to suck dick spewing seed finally you had a mouth full of semen already and you could not contain it and it has emerged on your lips member Ivan.'
								act 'Swallow cum and clean his cock language':
								cls
								minut += 2
								swallow += 1
								cumlip += 1
								money += 1500
								gs 'stat'
								'<center><img src="images\maggot\bj4.jpg"></center>'
								'You squatted in front of the manager and swallowing sperm began to lick the remnants of the still standing, but quickly fall off the penis.'
								'Finally cock completely satisfied Ivan fell and gave you half thousand rubles for the work you have done.'
								act 'Leave': gt 'burger','start'
								end

							end
						end

					end

				exit
				end

			end

			if bistroQW = 55:
			'To you and Ivan approached the manager said "I´ll see you in my office."'
				act 'Go to the manager´s office':
				cls
				bistroQW = 60
				'You went into the office, Ivan sat at the table and motioned you under the table. You understand that Ivan wants, what would you crawled under the table.'
					act 'Crawl under the table':
					cls
					minut += 3
					gs 'stat'
					bj += 1
					swallow += 1
					cumlip += 1
					money += 1500
					'<center><img src="images\maggot\bjud.jpg"></center>'
					'You crawled under the table and pulled out Ivan in front of your face his penis. You cupped his mouth and began to suck trying to incorporate it into your mouth as deeply as possible. Under the table was cramped and uncomfortable to suck, but you have coped and buccal a few minutes in your mouth poured semen Ivan you started quickly swallow, that would not ispachkatsya.'
					'Thereafter, as Ivan and for the first time took a half thousand and handed to you.'
					act 'Leave': gt 'burger','start'
					end
				end
			end

			if bistroQW = 60:
			'Ivan that is nowhere to be seen and he has not approached you, you had the idea to check his office.'
				act 'Go to the manager´s office':
				cls
				bistroQW = 65
				'You came to the office, but it was closed, you came to the deputy manager and told you with a chuckle, "What <<$name>>? Without a" tea stick "does not work? I know all about you and our general manager. But it was not until the end of the week. And if you do not want me to tell others how you earn a living, then you go to the office and serve me. "'
				''
					act 'Obediently nod':
					cls
					bj += 1
					swallow += 1
					cumlip += 1
					cumface += 1
					guy += 1
					'<center><img src="images\maggot\bj21.jpg"></center>'
					'You went into the office and squatted before deputy manager, he took a member and put it in your face showering smell not washed crotch. You licked the salty cock and sigh of despair began to suck him. Pimply jerk lasted just a few of your movements and began violently cum in your mouth, you could not even all ubratsya mouth and ran down his lips.'
					act 'Leave': gt 'burger','start'
					end

					act 'Send it':
					cls
					'You said contemptuously pryshavomu this boy, that he would go to hell, with its threats.'
					'Ha, listen here slut! Chief - my father, he is the master bystroezhki and Borisitch just a hired director. And if you know Borisitch fuck and suck all who offer it will bury you alive! Would silently mouth a couple of days to work and everything, and so…'
					'After these words, he called 2-movers and said'
					'- guys do not want to blow off steam on this larva? Do not worry, it will be good-natured. Serve to complete. Am I right Svetik?'

						act 'Yes':
						cls
						bistroQW = 70
						bj += 1
						guy += 3
						gruzsex += 1
						'<center><img src="images\maggot\tri.jpg"></center>'
						'You jitters mumbled yes, in front of three men and porters smiled. You quickly taking his hand was taken to the warehouse, helped you to undress and put on his knees presenting three members to serve.'
						'You began diligently to serve three members one by one and sucking their hands soon nadrachivaya men groaned and grabbed one of them is the head of the suspended member.'
							act 'Substitute person':
							cls
							cumface += 3
							facial += 1
							'<center><img src="images\maggot\tri2.jpg"></center>'
							'Hot jet of sperm slapped you in the face, you closed your eyes and just feel the skin getting stinky seed face. Soon after the bombing stopped and your face all covered with a thick layer of sticky Cum, guys looked pretty and laughed at you. After which they left the warehouse giving you myself.'
							''
							act 'Leave': gt 'burger','start'
							end
						end

						act 'Scream at full throat and run': bistroQW = 61 & gt 'burger','start'
					end
				end
			end

			if bistroQW >= 65 and soplakTimes ! 3:
			'To you came pimply deputy manager and taking his hand led him into his office.'
			'In office, he sat on a chair pulled out dick and put you in front of him on all fours.'
				act 'Work mouth':
				cls
				bj += 1
				sub += 1
				'<center><img src="images\maggot\bj31.jpg"></center>'
				'You kneeling in front of a kid sitting in a chair, began to make him a blowjob diligently sucking dick, prick caressing tongue and testicles, and the barrel with one hand nadrachivaya'
					act '...':
					cls
					cumlip += 1
					money += 300
					soplakTimes += 1
					'<center><img src="images\maggot\bj32.jpg"></center>'
					'Hot jet of sperm slapped you in the mouth, you have continued to hand nadrachivat member while being careful not to drop out of his mouth a drop of nasty tasting liquid. Finally stream dried up and showing you pimply zamu mouthful Cum swallow his sperm. He grinned and tossed on the floor three hundred-dollar bills. You picked them up and hid, rose up from his knees and left the office.'
					''
					act 'Leave': gt 'burger','start'
					end
				end
			exit
			end

			if bistroQW = 57 and BistroBoss = 0 or bistroQW >= 65 and BistroBoss = 0 and soplakTimes = 3:
			BistroBoss = 1
			if soplakTimes = 3: soplakTimes = 4
			'When you have finished, seemed on the verge of bystroezhki Anatoly Borisovich, he nodded to you "Hello <<$name>>, you´re done, come to me."'
			act 'Leave': gt 'burger','start'
			exit
			end


		act 'Leave': gt 'burger','start'
		end
	end

	if posudaA >= 1 and posudaAday ! day and hour < 10 and NoBistroWork = 0 and PersSecWork = 0:
		act 'Wash the floor (1:00 100 rubles)':
		cla
		*clr
		set posudaAday = day
		set minut += 60
		set posuda += 1
		set manna -= 15
		set money += 100
		set sweat += 1
		'<center><img src="images\etogame\clener1.jpg"></center>'
		'You within the hour namyvali floor eatery. After that you were given 100 rubles for his work.'
		act 'Leave': gt 'burger','start'
		end
	end
end
--- burger ---------------------------------

# burgerBoss
!Подъяблонская
!Калдазар Келвин Бродус
!Андрей Криворотов
!Денис Добровольский

gs 'stat'
if BistroBoss = 10:
if week < 6 and hour >= 9 and hour < 17: 'Anatoly Borisovich sitting at the table and talking to someone on the phone.'
if week < 6 and hour < 9 or week < 6 and hour >= 17: 'Anatoly Chubais is not there.'
if week >= 6: 'Now weekends and Anatoly Chubais is not there.'
act 'Leave': gt 'burger','start'
	if PersSecWork = 2:
		if week < 6 and hour < 10:
		'Anatoly Borisovich looked sternly at you, "<<$name>>, you´re fired, and I did not raise, go away, we´re done, I, my wife more than you."'
		end
	end
	if PersSecWork = 1:
		if week < 6 and hour < 10 and ofclo = 1:
		act 'Work': gt 'burgerWork'
		end

		!if week < 6 and hour < 10 and ofclo = 1:
		if week < 6 and hour >= 9 and hour < 17:
			act 'Resign':
				PersSecWork = 0
				work = 0
				minut += 20
				gt 'burger','start'
			end
		end

		if week < 6 and hour < 10 and ofclo ! 1:
		'Anatoly Borisovich looked sternly at you, "<<$name>>, what are you dressed up? Go home and change your clothes, you hooky today!"'
		end

	end

	if PersSecWork = 0 and week < 6:
		if secrDiplom = 1:
			act 'Show diploma':
			cls
			minut += 1
			gs 'stat'
			'You showed diploma Anatoly Borisovich, "A labor there?"'
				act 'No':
				cls
				minut += 1
				gs 'stat'
				'You said what works elsewhere. Anatoly Borisovich smiled a little, "What could I take you to work, what would you need to quit my former employment. You think hard, I do not force you, but I´ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. "'
					act 'Leave': gt 'burger','start'
				end

				if work = 0:
					act 'That labor':
					cls
					minut += 1
					gs 'stat'
					'Labor you put on the table. Anatoly Borisovich little smile, "You think well, I will not force you, but I´ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. From you I need loyalty, hard work, strict compliance guidelines."'
						act 'Leave': gt 'burger','start'

						act 'Find a job':
						cls
						minut += 1
						work = 1
						PersSecWork = 1
						gs 'stat'
						'You agreed to become secretary Anatoly Chubais, he took your career, made a copy of passport and diploma, and began to tell. Come back every weekday at bystroezhku no later than 9 o´clock, carefully observe the dress code. Receive calls, write, print documents, in general nothing supernatural. Will work to 17ti hours, salary every month.'
							act 'Leave': gt 'burger','start'

						end
					end

				end


			end
		end
	end
end

if BistroBoss = 1:
'You have entered the principal´s office. Anatoly Borisovich sitting at the table and studied the documents, you see, he put them aside and showed you invited to sit on a chair.'

	act 'Sit on a chair':
	cls
	minut += 1
	BistroBoss = 10
	gs 'stat'
		if bistroQW = 57:
		kosmetica += 200
		'You sat on a chair and smiled Anatoly Borisovich you. "I´m so glad this damn trip over. I had already missed you. Incidentally I do not come empty-handed, here´s a gift." with these words Anatoly Borisovich put on the table a set of expensive cosmetics. "And yet, I want you to devote some of the details. I am married and I have kids. So do not even stutter about any marriage, this I will not go. My wife, the daughter of a very influential deputy and my current position of Director of the lousy diner time, very soon I´ll get the post of deputy minister of construction, but for now I just need to get the record in labor. So, you showed yourself a stiff upper lip, I need loyal people, and I invite you to be my secretary. Do you have passed the diploma courses secretary? "'
			if secrDiplom = 1:
			act 'Yes, I have a diploma.':
				cls
				minut += 1
				gs 'stat'
				'You said that you already have a diploma Secretary. Anatoly Borisovich smiled. "What are you still done. Listen, I now need to make a couple of calls, leave now."'
				act 'Leave': gt 'burger','start'
				end
			end
			if secrDiplom = 0 and sekrObu > 0:
			act 'I do not have a diploma, but I am a secretary.':
				cls
				minut += 1
				gs 'stat'
				'You said that you already have a diploma Secretary. Anatoly Borisovich smiled. "What are you still done. Douchishsya, come to me. Listen, I now need to make a couple of calls, leave now."'
				act 'Leave': gt 'burger','start'
				end
			end
			if secrDiplom = 0 and sekrObu = 0:
			act 'No.':
				cls
				sekrObu = 1
				minut += 1
				gs 'stat'
				'You shook his head. Anatoly Borisovich smiled. "It does not matter, I now pay for your training and once you´re done, come to me."'
				act 'Leave': gt 'burger','start'
				end
			end

		end
		if bistroQW >= 65:
		'You sat on a chair and Chubais gave you a grim look. "I did not think you were such deshovke. What is your fee? Three weave for suction to swallow?" He pulled out his bill of 300 rubles and threw it on the floor. "Get up on your knees and work it off, as you are able, vaflersha."'
		act 'Leave': gt 'burger','start'
			act 'To kneel':
			cls
			minut += 5
			money += 300
			bj += 1
			swallow += 1
			cumlip += 1
			BistroBoss = 2
			BistroBossDay = day
			gs 'stat'
			'<center><img src="images\qwest\sosed\bj2.jpg"></center>'
			'You knelt down and took the money from the floor. Anatoly Borisovich member and you got tipped off his face on his solid body. Then you gripped it with his lips and began to suck as hard core feeling fills your mouth. Anatoly Borisovich his teeth with pleasure "Suck slut, now swallow, and that would be swallowed up all the drops!" You feel like you hit the sperm in her mouth and began to swallow cum quickly, that would not choke. When finished, Anatoly Borisovich took dick in pants and said, "Now get out."'
			act 'Leave': gt 'burger','start'
			end
		end
	end

end
if BistroBoss = 2 and BistroBossDay = day:
'Knocking you walked into the office to Anatoly Borisovich. He looked angrily at you, "I said, get out of here."'
act 'Leave': gt 'burger','start'
end

if BistroBoss = 2 and BistroBossDay ! day:
'Knocking you walked into the office to Anatoly Borisovich. He looked darkly at you and got a bill of 300 rubles, "Get up on your knees and work it off, as you are able, vaflersha."'
act 'Leave': gt 'burger','start'
BistroBossDay = day
	act 'To kneel':
	cls
	minut += 5
	money += 300
	bj += 1
	swallow += 1
	cumlip += 1
	BistroBossDay = day
	gs 'stat'
	'<center><img src="images\qwest\sosed\bj2.jpg"></center>'
	'You knelt down and took the money from the floor. Anatoly Borisovich member and you got tipped off his face on his solid body. Then you gripped it with his lips and began to suck as hard core feeling fills your mouth. Anatoly Borisovich his teeth with pleasure "Suck slut, now swallow, and that would be swallowed up all the drops!" You feel like you hit the sperm in her mouth and began to swallow cum quickly, that would not choke. When finished, Anatoly Borisovich took dick in pants and said, "Now get out."'
	act 'Leave': gt 'burger','start'
	end
end
--- burgerBoss ---------------------------------

# burgerWork
$dinBistroWork = {
	act 'Dinner':
	cls
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 5
	set willpower += 5
	'You took bystroezhke food and sat at a table for dinner.'
		if energy >= 30:
		set fat += 8
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set fat += 6
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		set fat += 4
		'You gladly ate the food.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	gs 'stat'

		dynamic $dinBistroWork3
	end
}

$dinBistroWork2 = {
	act 'Leave work':
	cls
	gs 'stat'
		if kompromatBlackMail >= 6 and ivanFilmBJ > 0:
		kobl = 0
		kobl2 = 2
		end
		if kompromatBlackMail >= 6 and ivanFilmBJ = 0:
		kobl = 0
		kobl2 = 2
		end
		if kompromatBlackMail < 6:
		kobl = 0
		kobl2 = 1
		end
		komblrand = RAND(kobl, kobl2)
		if kompromatBlackMail >= 2:
		if komblrand = 0:
			'After work, you are going to leave bystroezhki, but you came Ivan. "Where are you going, baby? And how to suck my candy?"'
				act 'Agree':
				cls
				bj += 1
				cumlip += 1
				swallow += 1
				kompromatBlackMail += 1
				minut += 5
				gs 'stat'
				'<center><img src="images\qwest\sosed\ivanBJ.jpg"></center>'
				'Ivan took you around the corner to a dirty alley bystroezhki smelling urine. He pulled out of his pants member. "And now for the baby and try to work better." You squatted in front of Ivan and took his penis in her mouth, it was salty and not washed. You started to suck trying to act more active, what would Ivan finished as quickly as possible. Ivan finally puffed and began to cum in your mouth. You quickly swallowed shooting eyes on the sides, in the hope that no one sees. Once you swallow cum, Ivan cleaned dick in his pants "Average nipple. Now get out of here!"'
				act 'Leave': gt 'down'
				end

				dynamic $din_Ivan_work4
			end
			if komblrand = 1:
			'After work, you are going to leave bystroezhki, but you came Ivan. "Where are you going, baby? And how to suck my candy?"'
				act 'Agree':
				cls
				bj += 1
				cumlip += 1
				swallow += 1
				kompromatBlackMail += 1
				minut += 5
				gs 'stat'
				'<center><img src="images\qwest\sosed\ivanBJcar.jpg"></center>'
				'Ivan took you to your car standing in the alley, he got behind the wheel and you sat next to him. Ivan got dick out of his pants and grabbed you by the hair pulled your face to his groin until his cock is not buried you in your <<$liptalk3>>. You opened your mouth and allow the members to enter between your lips. You started trying to suck harder to compress their <<$liptalk3>> on the penis that Ivan would be finished quickly. Ivan finally broke down and finished in your mouth. You continued to suck dick swallowing sperm while falling. Ivan tucked dick in his pants and said, "Okay cocksucker, get out."'
				act 'Leave': gt 'down'
				end

				dynamic $din_Ivan_work4
			end
			if komblrand = 2:
			'After work, you are going to leave bystroezhki, but you came Ivan. "Where are you going, baby? And how to suck my candy?"'
				act 'Agree':
				cls
				kompromatBlackMail += 1
				minut += 5
				gs 'stat'
				'<center><img src="images\maggot\car.jpg"></center>'
				'Ivan took you to your car standing in the alley, he got behind the wheel and you sat next to him. Ivan started the car and you go to the northern region. "And do not forget baby while you slushaesh me you have a job and prospects, but it is worth to you piss me off, and all you will take off from his job as a traffic jam." Soon you come to a new building, Ivan put the car in the free space. You got out and went with Ivan in the staircase. The lift takes you up to the apartment of Ivan and he opened the door for you. Ivan, without delay, to take you by the hand and led her into the bedroom. There he sat on the bed and took out the camera. Ivan got dick out of his pants and said, "Suck it baby, how can you do, should not get a bad porn."'

					act 'Suck':
					cls
					minut += 5
					bj += 1
					ivanFilmBJ += 1
					gs 'stat'
					'<center><img src="images\qwest\sosed\ivanBJfilm.jpg"></center>'
					'You sat down on his knees in front of Ivan and clasped their <<$liptalk3>> member. Ivan sent to you in the face the camera and filmed as you suck his cock closeup. Ivan put you back on the couch and sat on your chest so that his cock was in front of your face.'
					act 'Suck':
						cls
						minut += 5
						gs 'stat'
						'<center><img src="images\qwest\sosed\ivanBJfilm2.jpg"></center>'
						'North top Ivan began to fuck you in the mouth every time a member of his firm head sticking in your throat, you suck diligently trying not to choke. While Ivan did not forget to shoot you on camera. Finally he took a dick out of your mouth.'
							act 'Open mouth':
							cls
							minut += 5
							facial += 1
							cumface += 1
							gs 'stat'
							'<center><img src="images\qwest\sosed\ivanBJfilm3.jpg"></center>'
							'Ivan began to finish you on your <<$liptalk3>> and language. Cum dripping from your lips on his chin and chest. Ivan finally turned off the camera and put it away in a drawer. "Not bad chlenososka fulfilled. Can wash up and get out."'
							act 'Leave': cumface = 0 & gt 'nord'
							end
						end
					end
				dynamic $din_Ivan_work4
				end

				dynamic $din_Ivan_work4
			end
			if komblrand = 3:
			''

			end
		exit
		end
	gt 'burger','start'
	end

}
$dinBistroWork3 = {
	act 'Work':
	cls
	PSBBtimes = 2
	minut += 30
	minut += 60 * 3
	gs 'stat'
	'<center><img src="images\qwest\sosed\work.jpg"></center>'
	!gs 'BurgerTip'
	'You sat down and started on the computer to prepare the contract.'
	dynamic $burger_work_din
	dynamic $dinBistroWork2
	end

}

gs 'BurgerTip'
if hour < 10: hour = 10 & minut = 0 & PersSecWorkTimes += 1
gs 'stat'
'<center><img src="images\qwest\sosed\work.jpg"></center>'
'You sit in front of his office cabinet Chubais.'

if hour < 17:
	act 'Work before lunch':
	cls
	PSBBtimes = 1
	minut += 60 * 2
	gs 'stat'
	'<center><img src="images\qwest\sosed\work.jpg"></center>'
	!gs 'BurgerTip'
	'You sat at the table and began to prepare the agreement on the computer.'
		if TerminalPapper = 1:
		TerminalPapper = 0
		kosiakBU += 1
		'Chubais gave you dressing for what you are not carried documents in a storage terminal and disrupted supplies.'
		end
		if TerminalPapper = 2:
		TerminalPapper = 0
		'Anatoly Borisovich thanked you for what you just delivered documents to storage terminal.'
		end
		if BankPapper = 2:
		BankPapper = 0
		'Anatoly Borisovich thanked you for what you just delivered the documents to the bank.'
		end
		if BankPapper = 1:
		BankPapper = 0
		kosiakBU += 1
		'Anatoly Borisovich chastised you for what you did not take the documents to the bank.'
		end
		if BuSWworkEnd = 1 or kompromatBlackMail = 1:
		'Chubais came into your office and put the paper in front of you with a pen. "Write on your own. I do not need a secretary with a past like yours."'
		act 'Write a statement of resignation':
			cls
			work = 0
			PersSecWork = 2
			Pay = PersSecWorkTimes * 2500
			PersSecWorkTimes = 0
			money += Pay
			gs 'stat'
			'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It´s over <<$name>>, get out of here."'
			act 'Leave': gt 'down'
			end
		exit
		end

	dynamic $burger_work_din
	dynamic $dinBistroWork
	end
end
--- burgerWork ---------------------------------

# BurgerTip
$burger_work_din = {
burand = RAND(0,6)
	if burand = 0:
	'You lit lamp on the table communicator. Anatoly Borisovich calls you to itself.'
		act 'Go to the office Chubais':
		cls
		gs 'stat'
		'<center><img src="images\qwest\sosed\work2.jpg"></center>'
		bossrand = RAND(0,3)
			if bossrand = 0:
			'You went into his office and approached the table Chubais. He turned his head to you "<<$name>>, bring coffee."'

				act 'Bring coffee':
				cls
				gs 'stat'
				'<center><img src="images\qwest\sosed\work3.jpg"></center>'
				'Did you go to the kitchen and prepared coffee for the boss. Then brought his boss.'
				if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
				end
			end
			if bossrand = 1:
			'You went into his office and approached the table Chubais. He turned his head to you "Svetochka. Take these documents, and go to the chief accountant. Formalize it and you bring them to me."'
				act 'Go to the chief accountant':
				cls
				gs 'stat'
				'<center><img src="images\qwest\sosed\work9.jpg"></center>'
				'You took the papers and went to the chief accountant. Elena G. irritably took documents, muttered something under his breath, put the signature and printed several accounts. "To Bring the Director."'
					act 'Go to the director':
					cls
					gs 'stat'
					'<center><img src="images\qwest\sosed\work2.jpg"></center>'
					'Taking the documents you went back to the director´s office and gave him the documents.'

					if PSBBtimes = 1: dynamic $dinBistroWork
					if PSBBtimes = 2: dynamic $dinBistroWork2
					end
				end
			end
			if bossrand = 2:
			'You went into his office and approached the table Chubais. He turned his head to you "Svetochka. Take these documents and bring them to Ivan, let will immediately"'
				act 'Go to Ivan':
				cls
				gs 'stat'
				'<center><img src="images\qwest\sosed\work7.jpg"></center>'
				'You took the papers and went to the senior manager Ivan.'
				'Ivan sat in his office and worked on the computer. You gave him a folder with documents "Chubais said to do this immediately." Ivan took the folder from your hands and you ran eyes nodded.'
					act 'Go to her':
					cls
					gs 'stat'
					'<center><img src="images\qwest\sosed\work.jpg"></center>'
					'Documents giving you went to his office.'
					if PSBBtimes = 1: dynamic $dinBistroWork
					if PSBBtimes = 2: dynamic $dinBistroWork2
					end
				end
			end
			if bossrand = 3:
			cls
			bossexrand = RAND(0,3)
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\sosed\boss<<bossexrand>>.jpg "></center>'
			'You went into his office and approached the table Chubais. He got up from the table and walked over to you'
				if bossexrand = 0: 'Chubais came up to you and passionately pressed to the wall covering you with kisses.'
				if bossexrand = 1: 'His hand slid down your stomach and crawled under her skirt, you felt his hand began to caress your pussy.'
				if bossexrand = 2: 'He grabbed you in the ass and lifted up her skirt you began to knead your soft ass.'
				if bossexrand = 3: 'Anatoly Borisovich put his hands on your hips, his hands slid up your skirt bullying.'

				act 'Kiss':
				cls
				horny += 10
				gs 'stat'
				'<center><img src="images\qwest\sosed\bossex.jpg"></center>'
				'Anatoly Borisovich sat on the couch holding you firmly in their hands. He put you over the top and began to kiss you and fondle your ass.'
				dynamic $boss_din_bj
					act 'Continue':
					cls
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\sosed\bossex2.jpg"></center>'
					'Anatoly Borisovich began to undress you and threw you back. He kissed you and you climbed his hands between her legs feeling the pussy'
					bosstipsexrand = RAND(1,10)
						if bosstipsexrand >= 3:
						dynamic $boss_din_sex2
						end
						if bosstipsexrand < 3:
						'Chubais fingers began to fondle your anus and you feel like you went his finger in the ass.'
						dynamic $boss_din_anal2
						end
					end
				end

				act 'To kneel':
				cls
				gs 'stat'
				'<center><img src="images\qwest\sosed\bossex1.jpg"></center>'
				'You kneel before the head and began to unbutton his pants with his thin fingers. Anatoly Borisovich stood before you and not moving silently staring you in the face. Finally, you undid his pants and shoved his hand into his pants boss groped his cock.'
					act 'Caress cock through the briefs':
					cls
					gs 'stat'
					'<center><img src="images\qwest\sosed\bossBJ.jpg"></center>'
					'Vashie thin fingers lowered pants with the chief, and his standing member mound protruded through the panties. You kissed briefs in place mound feeling firm flesh through the fabric. Then playfully took in his mouth dick right through the panties and began to fondle.'
					dynamic $boss_din_bj
					end

					dynamic $boss_din_bj
				end
			end

		end
	exit
	end

	if burand = 1:
	cls
	gs 'stat'
	'<center><img src="images\qwest\sosed\work5.jpg"></center>'
		if PSBBtimes = 1:
		bosstiprand = RAND(0,3)
			if bosstiprand = 0:
			TerminalPapper = 1
			DayTerminalPapper = day
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, take these documents to the North area, in a storage terminal, then you can be free today."'
			act 'Leave': gt 'down'
			end
			if bosstiprand = 1:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I´ll leave up for lunch. But now bring up products, you accept the products instead of me."'
				act 'Take products':
				cls
				gs 'stat'
				'To the rear entrance truck arrived with food. To you approached the driver with the instruments of acceptance. You signed the documents and ordered the baggage handlers to unload the car.'
				if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
				end
			end
			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
			if bosstiprand = 2:
			BankPapper = 1
			dayBankPapper = day
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, run to the bank with these documents. How otneseshsya documents can be free today."'
			act 'Leave': gt 'down'
			end
			if bosstiprand = 3:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, call programmer who have part-time, my PC is broken"'
				act 'Call programmer':
				cls
				gs 'stat'
					if sosedQW = 0:
					'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
					end
					if sosedQW > 0 and sosedKnowWork > 0:
					sosedKnowWork = 1
					'Soon the office entered Timothy, your neighbor. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
					end
					if sosedQW > 0 and sosedKnowWork = 0:
					sosedKnowWork = 1
					'Soon the office entered Timothy, your neighbor. He was surprised to see you. You chatted cheerfully, Timothy is working part-time in bystroezhke, repairing office equipment, charges cartridges.'
					end
				if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
				end
			end
		end
		!!!!!!!!!!!!!!!!!!!!!!!
		!!!!!!!!!!!!!!!!!!!!!!!
		if PSBBtimes = 2:
		bosstiprand = RAND(0,3)
			if bosstiprand = 0:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I have to leave early today, here´s a print, well, so far." Anatoly Borisovich then left the office.'
			bburand = RAND(0,10)
				if bburand = 0:
				'To your office went senior manager Ivan.'
				dynamic $din_Ivan_work
					if kompromatLife = 0 or kompromatBlackMail > 1:
					'Ivan grinned "I need shtampulki on here these papers." You took the seal and stamp on paper Ivan.'
					if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
					end
				end
				if bburand = 1:
				'To your office assistant manager went Sergei.'
				'Sergei looked you carnivorous eyes "Anatoly Borisovich at?" You said no.'
					if sergeyPQW = 1:
					'Pimply young man chuckled and sat on the edge of the table. "<<$name>>, you´re dynamite. Cafe I invested for you, and you with me here and so cost.''s No nice of you."'
					end
					if sergeyPQW = 0:
					'Pimply kid sat on the edge of the table "Svetsik you cool the girl can descend to something?"'
					act 'No! And do not even think about it!':
						cls
						gs 'stat'
						'You have rejected this rookie and he jumped up from the table left his office.'
						if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
						end

						act 'Come on.':
						cls
						gs 'stat'
						'<center><img src="images\qwest\sosed\work7.jpg"></center>'
						'Sergei delighted and promised to go after you left. Working time has come to an end and re-entered the office Sergei. "Come on."'
							act 'Go.':
							cls
							minut += 60
							horny += 15
							water = 24
							energy = 24
							salo += 2
							fat += 20
							gs 'stat'
							'<center><img src="images\qwest\sosed\kafe2.jpg"></center>'
							'You went with Sergei and logged in located not far from bystroezhki cafe. Sergei ordered drinks and food and you sat down at the table. Order soon earned and you began to eat and drink wine. Soon you´re a bit tipsy and the conversation flowed naturally. Sergei called the waitress and paid with her. You went out with his partner, and pimply he suddenly hugged you "<<$name>>, went to me."'
								act 'Refuse.':
								cls
								minut += 15
								sergeyPQW = 1
								gs 'stat'
								!'<center><img src="images\qwest\sosed\kafe2.jpg"></center>'
								'You refused molestation obsessive brat and left.'
								act 'Leave.': gt 'down'
								end


							end
						end
					exit
					end
					if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
				end
				if bburand = 2:
				'To your office came GlavBukh Lena.'
				'Lena looked disapprovingly you "Chef at home?" You said that he was gone. Lena lipped gone.'
					if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
				end
				if bburand = 3:
				'To your office came personnel manager Vic.'
				'Vick you smiled "Chef at home?" You replied that he was gone. Vick said he would call the next time left.'
					if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
				end
				if bburand > 3:
				'Allotted time you sat in the office alone, bored and expanding solitaire on the computer.'
				if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
				end

			end
			!!!!!!!!!!!!!!!!!!!!!!!!!
			!!!!!!!!!!!!!!!!!!!!!!!!!
			if bosstiprand = 1:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, went along with me, have fun."'
				act 'Go with Anatoly Borisovich':
				cls
				gs 'stat'
				BurMestoRand = RAND(0,1)
				'<center><img src="images\maggot\car.jpg"></center>'
					if BurMestoRand = 0:
					'You got in the car to Anatoly Borisovich and you went to the residential area of ​​the city. Soon the car stopped near the sauna. Chubais said with a smile. "I made room for us."'
						act 'Go to the sauna':
						cls
						gs 'stat'
							if SaunaWhore > 0:
							BuSWworkEnd = 1
							'You are logged in to the sauna and suddenly faced with mother at the entrance, which provided you work in the sauna. She said with surprise, "<<$name>>, what the hell, are you now indvidualka? Slugger I work, and even dare to come here?" Anatoly Borisovich wondered, "What´s going on here, then you know the <<$name>>?" Nurse laughed, "Do I know <<$name>> Yes her pussy real goldmine! Of course I know it, I have it working as a prostitute." Anatoly Borisovich blushed, "How? <<$name>>? You´re just a whore?" You began to mutter, trying to come up with on the fly how do you otmazatsya. Anatoly Borisovich shook his head. "I was wrong about you, <<$name>>." After that, he went silently out of the sauna and you heard his car left. Nurse continued to laugh at you "<<$name>>, you´re a whore, and if you manage to still Okrut decent guy, if your past will come up, then you no self-respecting man, to live is not. Consider it a free lesson to you."'
							act 'Leave': gt 'street'
							end

							if SaunaWhore = 0:
							'You are logged in to the sauna and Chubais held you in luxurious rooms which he made. He quickly began to undress and you too undressed. Then he walked up to you. "<<$name>>, I suck."'
								act 'Further':
								cls
								minut += 5
								bj += 1
								gs 'stat'
								'<center><img src="images\qwest\sosed\bossBJS.jpg"></center>'
								'You squatted in front of the boss and taking dick kissed his hand. His cock began to twitch gradually rising. You prick the skin baring penis and licked it. Then you cupped member lips and began to suck him. Do you feel as a member in your mouth uvilichivaetsya gradually in size and becomes harder, finally gets full member and you suck it with sucking sounds covering saliva. Anatoly Borisovich pulls his dick out of your mouth and steers you to the bench.'
									act 'Further':
									cls
									minut += 5
									protect = 1
									$boy = 'Anatoly'
			dick = 12
			silavag = 0
									gs 'stat'
									'<center><img src="images\qwest\sosed\bossSexS.jpg"></center>'
									'Anatoly Borisovich put a condom on the penis and lay down on the bench pulling your hand to yourself. You have thrown a leg over the boss stomach and sat on top of him, then you took his hard hand and sent it into my pussy.'
									dynamic $sexstart3
									'You heard Anatoly Borisovich groaned and twitched a few times, he took you with ebya and you saw that sperm filled condom.'
									if sweat > -3: set sweat = -3
									'Then you went into the shower to wash. Coming out of the shower, you saw that Anatoly Borisovich already dressed. "<<$name>>, I´ve got to run." He kissed you and left.'
									act 'Leave': gt 'street'
									end
								end
							end
						end
					end
					if BurMestoRand = 1:
					'You got in the car and suddenly the phone rang boss. He frowned and picked up the receiver. "Yes dear, I will soon." He hung up. "We have to go home, Svetsik, quick suck, and I´ll go."'
						act 'Suck':
						cls
						minut += 5
						bj += 1
						cumlip += 1
						swallow += 1
						gs 'stat'
						'<center><img src="images\qwest\sosed\bossBJcar.jpg"></center>'
						'Anatoly Borisovich sat on the couch waiting for your actions. You leaned over and unzipped his pants taking out his cock from his pants. You leaned over his groin and his lips wrapped around his flaccid penis, which gradually began to get up in your mouth. You sucked it as deep as possible and faster, trying to boss that finished. Finally Anatoly Borisovich little moan and warm liquid squirted into your mouth. Trying not ispachkad expensive car you started to swallow cum boss. After Anatoly Borisovich finished, he put his dick in pants and said goodbye to you.'
						act 'Leave': gt 'down'
						end
					end
				end
			exit
			end
			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
			if bosstiprand = 2:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, call programmer who have part-time, my PC is broken"'
				act 'Call programmer':
				cls
				gs 'stat'
					if sosedQW = 0:
					'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
					end
					if sosedQW > 0 and sosedKnowWork > 0:
					sosedKnowWork = 1
					'Soon the office entered Timothy, your neighbor. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
					end
					if sosedQW > 0 and sosedKnowWork = 0:
					sosedKnowWork = 1
					'Soon the office entered Timothy, your neighbor. He was surprised to see you. You chatted cheerfully, Timothy is working part-time in bystroezhke, repairing office equipment, charges cartridges.'
					end
				if PSBBtimes = 1: dynamic $dinBistroWork
				if PSBBtimes = 2: dynamic $dinBistroWork2
				end
			end
			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
			if bosstiprand = 3:
			'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, you have to stay at work today. Come to me now partners for business negotiations."'
				act 'Further':
				cls
				minut += 60
				gs 'stat'
				'By Anatoly Borisovich two men came and they settled down in his office. Anatoly Borisovich occasionally caused you that would bring coffee. An hour later, the men were gone and Anatoly Borisovich let you go.'
				act 'Leave': gt 'down'
				end
			end
		end
	exit
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if burand = 2:
	'To your office went senior manager Ivan.'
	dynamic $din_Ivan_work
		if kompromatLife = 0 or kompromatBlackMail > 1:
		'Ivan grinned "I need shtampulki on here these papers." You ran to the boss and he stamped on the document, and then you classify documents Ivan.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
		end
	exit
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if burand = 3:
	'To your office assistant manager went Sergei.'
	'Sergei greedily examining you said "Ivan told these documents include the main, on the signature."'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
	exit
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if burand = 4:
	'To your office came GlavBukh Lena.'
	'Lena arrogant as ever with mine said "I need a print head of the payment for these." You classify documents to the chief, he slap seals and documents you gave Lena.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
	exit
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if burand = 5:
	'To your office came personnel manager Vic.'
	'She smiled at you, "I´ve brought the documents, who is retiring as always, you need to put the press." You classify documents to the chief and he slap stamps. After that you classify documents Vick.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
	exit
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if burand = 6:
	'To your office came elegantly dressed woman with an arrogant person.'
		if gossipBU < 10:
		'The lady looked scornfully asked you and disgust "at Shreds?" You nodded his head, a lady came in without knocking into the office to Anatoly Borisovich and after a while they went out together, Chubais said on the way "Yes dear, certainly today´ll come to your mother." When the woman left Antaoly Borisovich chuckled "My wife is a rare bitch."'
			if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
		end
		if gossipBU >= 10:
		'Lady you looked contemptuously and angrily opened the door to Anatoly Borisovich, you heard her shrill voice, "Tolia, I know all about your adventures with his sekretutkoy, and if you do not immediately vygonish this slut from work, then I myself leave you, you understand? " Anatoly Borisovich zabubnil "Yes, dear, you know, I just love you." He was red in the face out of the office and you threw the paper on the table, ''Write on his own! "'
			act 'Write a statement of resignation':
			cls
			work = 0
			PersSecWork = 2
			Pay = PersSecWorkTimes * 2500
			PersSecWorkTimes = 0
			money += Pay
			gs 'stat'
			'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It´s over <<$name>>, get out of here."'
			act 'Leave': gt 'down'
			end
		end
	exit
	end

}
$boss_ass_din = {
bossassrand = RAND(0,3)
	if bossassrand = 0:
	'When you bend over to pick up the papers from the table, then got a slap on the ass savory from Anatoly Borisovich.'
	end
}

$boss_din_bj = {
act 'Get a member of cowards':
cls
numbjrand = RAND(0,14)
wantrand = RAND(0,3)
bj += 1
gs 'stat'
'<center><img src="images\qwest\sosed\bossBJ<<numbjrand>>.jpg "></center>'
'Did you get a member of pants around his boss and his <<$liptalk>> his lips purple head. Your tongue quickly worked on a smooth surface of the head feeling all the twists member. Clasping member you took it into his mouth to the throat and began to move her head. Your eyes stared at the curly pubic Chubais and sometimes his hair tickling your nose.'
	if wantrand = 3:
	'Anatoly Borisovich took a member of your mouth "<<$name>>, I want you."'
	dynamic $boss_din_bendover
	end
	if wantrand = 2:
	'Anatoly Borisovich muffled groan "Svetsik if you prodolzhish, then I finish"'
	dynamic $boss_din_bendover
	dynamic $boss_din_bj2
	end
	if wantrand < 2:
	'Anatoly Borisovich groaned obviously going to finish.'
	dynamic $boss_din_bj_cum
	end
end
}
$boss_din_go_toilet = {
	act 'Go to the toilet':
	cls
	bosstoirand = RAND(0,10)
	gs 'stat'
		if bosstoirand = 10:
		gossipBU += 1
		'You went to the toilet, but in the hallway accidentally collided with Ivan. Ivan looked at you with a grin and turned away went about his business.'
		dynamic $boss_din_toilet_wash
		end
		if bosstoirand = 9:
		gossipBU += 1
		'You went to the toilet, but in the hallway accidentally encountered a chief accountant Lena. Lena looked at you and saw sperm muttered "whore" and went on her way.'
		dynamic $boss_din_toilet_wash
		end
		if bosstoirand = 8:
		gossipBU += 1
		'You went to the toilet, but in the hallway accidentally collided with the personnel manager Vika. Vick saw you cum and her eyes widened in surprise, then she wrinkled her nose in disgust and walked away.'
		dynamic $boss_din_toilet_wash
		end
		if bosstoirand = 7:
		gossipBU += 1
		'You went to the toilet, but in the hallway accidentally encountered a deputy manager Sergei. Pimply young man Serge saw semen on you and laughed, "That´s because cocksucker" after he ran somewhere.'
		dynamic $boss_din_toilet_wash
		end
		if bosstoirand < 7:
		bosstoirandin = RAND(0,10)
		if bosstoirandin = 10:
		gossipBU += 1
		'You quietly slipped into the toilet, but the toilet nose to nose faced the chief accountant Lena. Lena looked at you and saw sperm muttered "whore" and went on her way.'
		dynamic $boss_din_toilet_wash2
		end
		if bosstoirandin = 9:
		gossipBU += 1
		'You quietly slipped into the toilet, but the toilet faced nose to nose with the personnel manager Vika Vika saw you cum and her eyes widened in surprise, then she wrinkled her nose in disgust and walked away.'
		dynamic $boss_din_toilet_wash2
		end
		if bosstoirandin < 9:
		if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
		if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
		'You quietly slipped into the toilet. <<$deytoibur>><<$deytoibur2>>'
		cumface = 0
		cumfrot = 0
		if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
		end

		end

	end
}
$boss_din_toilet_wash = {
	if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
	if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
	'You went into the bathroom and turned the water in the sink. <<$deytoibur>><<$deytoibur2>>'
	cumface = 0
	cumfrot = 0
if PSBBtimes = 1: dynamic $dinBistroWork
if PSBBtimes = 2: dynamic $dinBistroWork2
}
$boss_din_toilet_wash2 = {
	if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
	if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
	'You turned the water in the sink. <<$deytoibur>><<$deytoibur2>>'
	cumface = 0
	cumfrot = 0
if PSBBtimes = 1: dynamic $dinBistroWork
if PSBBtimes = 2: dynamic $dinBistroWork2
}
$boss_din_bj_cum = {
	act 'Remove the member of his mouth':
	cls
	reaktrand = RAND(0,10)
	gs 'stat'
		if reaktrand <= 5:
		'<center><img src="images\qwest\sosed\bossBJcum.jpg"></center>'
		'You took time member of his mouth. The hour is a member of sperm splattered on the floor, you caressed member hand until finally Anatoly Borisovich not exhausted. After that he removed his pants and member sat at the table.'
			if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
		end

		if reaktrand > 5 and reaktrand < 9:
		cumfrot += 1
		'<center><img src="images\qwest\sosed\bossBJcum2.jpg"></center>'
		'You took time member of his mouth. The hour is a member of sperm splattered on the floor, you caressed member hand until finally Anatoly Borisovich not exhausted. then he removed the cock in his pants and sat down. Starting to brush up, you notice that you got some sperm on her blouse.'
			dynamic $boss_din_go_toilet
		end

		if reaktrand >= 9:
		cumface += 1
		cumfrot += 1
		'<center><img src="images\qwest\sosed\bossBJcum3.jpg"></center>'
		'Once you have removed the member of his mouth as directed jet of sperm hit you in the face. You closed your eyes and you immediately got sperm on eyelashes. When you rubbed their eyes, they saw that the sperm just got on your clothes.'
		dynamic $boss_din_go_toilet
		end
	gs 'stat'
	end

	dynamic $boss_din_bj2

}

$boss_din_bj2 = {
	act 'Continue to suck':
	cls
	cumlip += 1
	gs 'stat'
	'<center><img src="images\qwest\sosed\bossBJcum4.jpg"></center>'
	'You continued to suck and immediately poured into your mouth warm sperm, which was mixed with saliva while you continued to suck dick deciduous.'
		act 'Spit out':
		cls
		gs 'stat'
		'<center><img src="images\qwest\sosed\bossBJcum5.jpg"></center>'
		'When sperm ceased to flow out of the penis you spit cum rushed out of his mouth, but his mouth was nasty, sharp taste of sperm.'
			boburand = RAND(0,10)

			if boburand > 2:
			if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
			end
			if boburand <= 2:
			cumfrot += 1
			'Spitting sperm you notice that a few drops of semen got you on her blouse.'
			gs 'stat'
			dynamic $boss_din_go_toilet
			end
		end

		act 'Swallow':
		cls
		swallow += 1
		gs 'stat'
		'<center><img src="images\qwest\sosed\bossBJcum6.jpg"></center>'
		'You rushed to swallow warm and nasty sperm in the mouth but left an unpleasant taste of semen.'
			boburand = RAND(0,10)
			if boburand > 2:
			if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
			end
			if boburand <= 2:
			cumfrot += 1
			'Spitting sperm you notice that a few drops of semen got you on her blouse.'
			gs 'stat'
			dynamic $boss_din_go_toilet
			end
		end
	end
}

$boss_din_bendover = {
	act 'Lie chest on the table':
	cls
	bosstipsex = RAND(0,10)
	gs 'stat'
	!bossfuck
	'<center><img src="images\qwest\sosed\bossbendover.jpg"></center>'
	'You bent down and went chest on the table, with his hands and parted skirt ass.'
		if bosstipsex <= 8:
		'Anatoly Borisovich rubbed a little head of his penis on your mokrenkaya pussy.'
		dynamic $boss_din_sex
		end

		if bosstipsex > 8:
		'Anatoly Borisovich bent down and spit you on the ass, then you felt his finger collected saliva and you went into the anus.'
		dynamic $boss_din_anal
		end
	end


}
$boss_din_sex = {
	act 'Moan':
	cls
	bosstipsex = RAND(0,10)
	gs 'stat'
	!bossfuck
	'<center><img src="images\qwest\sosed\bossfuck.jpg"></center>'
	'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
	$boy = 'Anatoly'
	dick = 12
	silavag = 0
	pose = 1
	dynamic $sexstart2
	!dynamic $sexcum

	bosswantrand = RAND(0,10)

		if bosswantrand >= 3:
		set cumass += 1
		'<<$boy>> took out of you cock and you feel like a stream of sperm you naked by the ass.'
		'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, the sperm still left on your body.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
		end

		if bosswantrand < 3:
		'Anatoly Borisovich took a member of your pussy and uper it in your ass.'
		dynamic $boss_din_anal
		end
	end

}
$boss_din_anal = {
	act 'Relax the anus':
	cls
	bosstipsex = RAND(0,10)
	gs 'stat'
	!bossfuck
	'<center><img src="images\qwest\sosed\bossanal.jpg"></center>'
	'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
	$boy = 'Anatoly'
	dick = 12
	silavag = 0
	pose = 1
	dynamic $analsex
	!dynamic $sexcum
	cumanus+= 1
	'<<$boy>> and groaned as you felt something in your ass was dispensed heat from the sperm.'
	'Finally Chubais took out your cock and the buttocks took it in his pants.'

		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2

	end
}
$boss_din_sex2 = {
	act 'Moan':
	cls
	bosstipsex = RAND(0,10)
	gs 'stat'
	!bossfuck
	'<center><img src="images\qwest\sosed\bossfuck2.jpg"></center>'
	'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
	$boy = 'Anatoly'
	dick = 12
	silavag = 0
	pose = 0
	dynamic $sexstart2
	!dynamic $sexcum

	bosswantrand = RAND(0,10)

		if bosswantrand >= 3:
		set cumbelly += 1
		'<<$boy>> took out of you cock and you feel like a stream of sperm you naked by the ass.'
		'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, the sperm still left on your body.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
		end

		if bosswantrand < 3:
		'Anatoly Borisovich took a member of your pussy and uper it in your ass.'
		dynamic $boss_din_anal2
		end
	end

}
$boss_din_anal2 = {
	act 'Relax the anus':
	cls
	bosstipsex = RAND(0,10)
	gs 'stat'
	!bossfuck
	'<center><img src="images\qwest\sosed\bossanal2.jpg"></center>'
	'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
		$boy = 'Anatoly'
		dick = 12
		silavag = 0
		pose = 0
		dynamic $analsex
		!dynamic $sexcum
		cumanus+= 1
		'<<$boy>> and groaned as you felt something in your ass was dispensed heat from the sperm.'
		'Finally Chubais took out your cock and the buttocks took it in his pants.'

		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2

	end
}

$din_Ivan_work = {
	if kompromatLife > 0 and kompromatBlackMail = 0:
	'Ivan grinned "Svetsik, Svetsik. I could not have imagined that such a cute girl, this rich life." he put the photo on your desk. You picked her up and looked. <<$kompromatFoto>>. Ivan gladly stretched like a cat caught the mouse "Svetsik understand, everything would be fine, but our chief claim to a political career. And in politics it´s not just that his secretary loves to act in this way. He, too, will suffer." So, you can collect things and find new employment. "When Anatoly Borisovich know, you fly out of here with a bang."'
		dynamic $din_Ivan_work2

		act 'Keep silent':
		cls
		kompromatBlackMail = 1
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\sosed\work5.jpg"></center>'
		'Ivan seeing your silence frowned slightly. "Okay, baby, you will destroy the pride." Ivan got irritated and cleaned photo in his pocket.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
		dynamic $din_Ivan_work2
		end
	end
}
$din_Ivan_work2 = {
	act 'Ivan plead not show these pictures':
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images\qwest\sosed\work5.jpg"></center>'
	'You began to plead not show pictures of Ivan boss. Ivan chuckled, "I see you are ready to cooperate.''ll Go to my office to discuss."'
		act 'Go with Ivan in his office':
		cls
		kompromatBlackMail = 2
		gs 'stat'
		'You came to the office of Ivan and he closed the door with a key. "Well baby, I want to start to look at you naked. Undress!"'
		act 'Undress':
			cls
			kompromatBlackMail = 2
			gs 'stat'
			'You undressed feeling the gaze of Ivan. When you were naked in front of him, he slowly walked across the room, staring at you. His hand took you for the chest and you feel his fingers covered your nipple. "Not bad, not bad. Maybe we´ll get along and. Now on your knees bitch and open your fucking mouth wide."'
				act 'Get on your knees and open your mouth':
				cls
				kompromatBlackMail = 2
				cumface += 1
				facial += 1
				boy += 1
				gs 'stat'
				'<center><img src="images\qwest\sosed\ivanfacial.jpg"></center>'
				'You knelt down and opened his mouth. Ivan got dick out of his pants and began to masturbate in front of your face, watching you with his gaze. "I knew you´d be my whore!" sperm from his cock splattered on your face. Then another and another jet. After Ivan finished on your face, he put his dick in his pants and said, "Okay, get out of my office slut, and do not forget, I do not report anything to the chief, but you are in my hands."'
					if PSBBtimes = 1: dynamic $dinBistroWork
			if PSBBtimes = 2: dynamic $dinBistroWork2
				end
			end

			dynamic $din_Ivan_work3
		end

		dynamic $din_Ivan_work3
	end
}
$din_Ivan_work3 = {
	act 'Refuse':
	cls
	kompromatBlackMail = 1
	gs 'stat'
	'<center><img src="images\qwest\sosed\work7.jpg"></center>'
	'You refused to undress. Ivan sighed. "All the same, you stupid pussy, and I´m tired of messing with you, it is easier to get rid of you once and for all." Ivan went to the door, opened it, and pointed out to you at the door.'
		if PSBBtimes = 1: dynamic $dinBistroWork
		if PSBBtimes = 2: dynamic $dinBistroWork2
	end

}
$din_Ivan_work4 = {
	act 'Refuse':
	cls
	kompromatBlackMail = 1
	gs 'stat'
	'<center><img src="images\qwest\sosed\work7.jpg"></center>'
	'You refused. Ivan sighed. "All the same, you stupid pussy, and I´m tired of messing with you, it is easier to get rid of you once and for all." He turned and walked away'
		act 'Leave': gt 'down'
	end

}
--- BurgerTip ---------------------------------

# butik
if $ARGS[0] = 'start':
cla
*clr
set mag = 1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 5
'<center><B><font color = maroon>Boutique</font></B></center>'
'<center><img src="images\etogame\butik.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'7m kinds of dresses, all at 25,000 rubles'
set evrand = RAND(0,100)
	if evrand >= 80 and skin > 0 and lesbiQW = 0:
	'In the boutique you see a stylish and slender woman forty years.'
		act 'Stare at the woman.': gt 'event','lesbi'
	end

	if QWdogreiqTimer = 0 and QWdogReiq = 1 and week = 7 and qwdogiventday ! day:
	qwdogiventday = day
	'Going into the boutique you start hanging on rassmatrevat veshlkah plate.Vzyav one you try on in passing it back and hang with mild grimassy brezglivosti.Neozhidanno attracts your attention One of the dresses, began to study it more closely kakoeto you feel a strange feeling as if you are looking for:'
	act 'Disregard': gt 'butik','start'
	act 'Look around': dynamic $butikreiqdi
	exit
	end

	if RimmaSex > 0:
		if rimmaday ! day:
		'Apartment <a href="exec:GT ''RimmaSexQW''">Rima</a> you smiled and bit his lip and started shooting eyes in your direction.'
		else
		'Rima smiled at you and do business.'
		end
	end

	if palto < 3:
	'The boutique sells fur coat for winter. 50000 RUB'
		if money >= 50000:
			act 'Buy a fur coat':
			cla
			set money -= 50000
			set palto = 3
			$palto = 'fur coat'
			'You bought a fur coat.'
			act 'QUIT': gt 'butik','start'
			end
		end
	end

	if money >= 25000:
		if dress[1] = 0:
			act 'Inspect the 1st dress.': set numdres = 1 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[2] = 0:
			act 'Inspect the 2nd dress.': set numdres = 2 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[3] = 0:
			act 'Inspect the third dress.': set numdres = 3 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[5] = 0:
			act 'Inspect 5e dress.': set numdres = 5 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[6] = 0:
			act 'Inspect 6e dress.': set numdres = 6 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[7] = 0:
			act 'Inspect 7e dress.': set numdres = 7 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[8] = 0:
			act 'Inspect 8e dress.': set numdres = 8 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[9] = 0:
			act 'Inspect the 9th dress.': set numdres = 9 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[10] = 0:
			act 'Inspect 10s dress.': set numdres = 10 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[11] = 0:
			act 'Inspect 11e dress.': set numdres = 11 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[12] = 0:
			act 'Inspect 12e dress.': set numdres = 12 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[13] = 0:
			act 'Inspect the 13th dress.': set numdres = 13 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[14] = 0:
			act 'Inspect 14e dress.': set numdres = 14 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[15] = 0:
			act 'Inspect 15e dress.': set numdres = 15 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[16] = 0:
			act 'Inspect 16e dress.': set numdres = 16 & payclo = 25000 & gt 'loker','dress'
			end
		if dress[17] = 0:
			act 'Inspect 17e dress.': set numdres = 17 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[18] = 0:
			act 'Inspect 18e dress.': set numdres = 18 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[19] = 0:
			act 'Inspect 19e dress.': set numdres = 19 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[20] = 0:
			act 'Inspect 20s dress.': set numdres = 20 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[21] = 0:
			act 'Inspect 21e dress.': set numdres = 21 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[22] = 0:
			act 'Inspect 22e dress.': set numdres = 22 & payclo = 25000 & gt 'loker','dress'
		end
		if dress[23] = 0:
			act 'Inspect 23rd dress.': set numdres = 23 & payclo = 25000 & gt 'loker','dress'
		end
	end
act 'WITHDRAW FROM BOUTIQUE':
	cla
	set minut += 5
	gt 'torgcentr'
	end
end
--- butik ---------------------------------

# butoilet
set minut += 5
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\etogame\PublicToilet.jpg"></center>'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)


	if tanga = 1:
		act 'Remove Underwear':
		cla
		set tanga = 0
		gt $curloc
		end
	end
act 'Off the toilet': gt 'burger','start'

	act 'Look in the mirror':
		cla
		gs 'portmirror'
		set $goto1 = $curloc
		set $goto2 = ''
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			gt $curloc
		end
	end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
	act 'Wash up (0:15)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm with yourself.'
	act 'Exit': gt $curloc
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off face (0:15)':
	cla
	*clr
	set mop = 1
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed sperm from her face.'
	act 'Exit': gt $curloc
	end
end

if cumfrot > 0:
	act 'Wipe the cum from clothing  (0:15)':
	cla
	*clr
	set cumfrot = 0
	set sweat -= 1
	set minut += 15
	!'<center><img src="images\etogame\facesp.jpg"></center>'
	'You erase traces of semen from the clothes.'
	act 'Exit': gt $curloc
	end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		act 'Finish': gt $curloc
	end
end
--- butoilet ---------------------------------

# cfnm
if $ARGS[0] = 'start':
cla
*clr
set horny += 5
set minut += 15
set money -= 50
'<center><img src="images\picVA\cfnm.jpg"></center>'
clr
gs 'stat'
'Stripper bared your breasts and began to lick your nipples.'
	if hour < 23:
		act 'Enjoy': gt 'cfnm','tits'
		act 'Hand touch his penis': gt 'cfnm','hand'
	end
	act 'Move away': gt 'stripclub','stolW'
end

if $ARGS[0] = 'tits':
cla
*clr
set horny += 10
set minut += 15
'<center><img src="images\picVA\cfnm1.jpg"></center>'
clr
gs 'stat'
'Stripper sucking and biting your nipples.'
	if horny < 90:
		if hour < 23:
			act 'Enjoy': gt 'cfnm','eat'
			act 'Hand touch his penis': gt 'cfnm','hand'
		end
		act 'Move away': gt 'stripclub','stolW'
	end
	if horny >= 90:
	act 'Surrender': gt 'cfnm','sex'
	end
end

if $ARGS[0] = 'hand':
cla
*clr
set horny += 5
set minut += 15
fotoCFNMblowjob += 1
'<center><img src="images\picVA\cfnmHand.jpg"></center>'
clr
gs 'stat'
'You took stripper dick hand and began to fondle him in front of other girls.'
	act 'Take by mouth': gt 'cfnm','blow'
	act 'Stop': gt 'cfnm','eat'
end

if $ARGS[0] = 'eat':
cla
*clr
set horny += 10
set minut += 15
'<center><img src="images\picVA\cfnm2.jpg"></center>'
clr
gs 'stat'
'Stripper you covered with a towel from the surrounding put his penis into your hand.'
	if horny < 90:
		if hour < 23:
			act 'Take by mouth': gt 'cfnm','blow'
			act 'Wank it': gt 'cfnm','hand'
		end
		act 'Escape from stripper': gt 'stripclub','stolW'
	end
	if horny >= 90:
	act 'Surrender': gt 'cfnm','sex'
	end
end

if $ARGS[0] = 'blow':
cla
*clr
set horny += 10
set minut += 15
set bj += 1
set guy += 1
'<center><img src="images\picVA\cfnmBlow.jpg"></center>'
clr
gs 'stat'
'You took in her mouth dick hidden from prying eyes for a towel stripper. Other girls interested hidden from their eyes and stripper removed the towel.'
	if horny < 90:
		if hour < 23:
			act 'Suck in front of everyone.': gt 'cfnm','blow2'
			act 'Stop sucking.': gt 'cfnm','hand'
		end
		act 'Escape from stripper': gt 'stripclub','stolW'
	end
	if horny >= 90:
	act 'Surrender': gt 'cfnm','sex'
	end
end

if $ARGS[0] = 'blow2':
cla
*clr
set horny += 10
set minut += 15
fotoCFNMblowjob += 1
'<center><img src="images\picVA\cfnmBlow2.jpg"></center>'
clr
gs 'stat'
'Stripper removed the towel, you blushed with shame, but he continued to suck in front of the girls laughing at you.'
	if horny < 90:
		act 'Cum on face.': gt 'cfnm','blow4'
		act 'Cum in mouth.': gt 'cfnm','blow3'
		if DOM > 0:
			act 'Closing on the floor.': gt 'cfnm','end'
		end
	end
	if horny >= 90:
	act 'Surrender': gt 'cfnm','sex'
	end
end

if $ARGS[0] = 'blow3':
cla
*clr
set horny += 10
set minut += 15
set cumlip += 1
set swallow += 1
!set cumface += 1
!set facial += 1
set SUB += 1
fotoCFNMblowjobCum += 1
'<center><img src="images\picVA\swallow.jpg"></center>'
clr
gs 'stat'
'Stripper takes dick out of your mouth and fingering it in front of your face, you stand humbly before him on his knees with his mouth open, finally landing viscous jet of sperm in your mouth, you licks and licks tart cum from his lips, you burned with shame when the surrounding spectators whooped you.'
	act 'Escape from stripper': gt 'stripclub','stolW'
end

if $ARGS[0] = 'blow4':
cla
*clr
set horny += 10
set minut += 15
!set cumlip += 1
!set swallow += 1
set cumface += 1
set facial += 1
set SUB += 1
fotoCFNMblowjobCum += 1
'<center><img src="images\picVA\facial.jpg"></center>'
clr
gs 'stat'
'Stripper takes dick out of your mouth and fingering it in front of your face, you stand humbly kneeling before him, finally viscous jet of sperm land you on the cheek, you blush with shame when the surrounding spectators whooped you.'
	act 'Escape from stripper': gt 'stripclub','stolW'
end


if $ARGS[0] = 'end':
cla
*clr
set horny += 10
set minut += 15
!set cumlip += 1
!set swallow += 1
'<center><img src="images\picVA\end.jpg"></center>'
clr
gs 'stat'
'You remove a member of the stripper from his face and he ends up on the floor.'
	act 'Escape from stripper': gt 'stripclub','stolW'
end

if $ARGS[0] = 'sex':
cla
*clr
set horny = 0
set minut += 15
!set cumlip += 1
!set swallow += 1
!set cumface += 1
!set facial += 1
set sex += 1
set cumass += 1
set SUB += 5
fotoCFNMsex += 1
'<center><img src="images\picVA\sex.jpg"></center>'
clr
gs 'stat'
set manna += 15
set willpower += 15
set orgasm += 1
set vagina += 1
'Stripper unfolds you and puts cancer, his cock ramming your expiring moisture pussy you instantly falls orgasm. You moan and screaming, the crowd whooped and stripper puts his fingers in your mouth, you chew them in ecstasy and finally stripper takes his dick out of you and you ends up on his ass.'
	act 'Escape from stripper': gt 'stripclub','stolW'
end
--- cfnm ---------------------------------

# club
if $ARGS[0] = 'start':
$sexloc = $CURLOC
cla
*clr
set minut += 5
'<center><B><font color = maroon>Night club</font></B></center>'
'<center><img src="images\etogame\club.jpg"></center>'
'The entrance area of the club is full of young people. The entrance itself is guarded by the heavy and strong type of men, who check everyones passport. A Ticket costs 500 rubles.'

clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'Leave the club':
	cla
	set minut += 5
	gt 'down'
	end
	
	!!! I got annoyed that only skirts and the stuff from Fashionista can get you into the club.
	
	if money >= 500 and mop > 1 and sweat < 1:
		if ski = 1 or odetshort = 1 or odetkis = 1 or odetpants = 1 or odetjeans = 1 or glamur = 1:
			'The security guard looks at you and fully inspects you.'
				if ski = 1 and leghair <= 2 or odetshort = 1 and leghair <= 2:
				'You can feel his eyes all over your body, but eventually he nods and lets you inside.'
					act 'Enter the club (500 rubles)':
					cla
					set minut += 5
					set money -= 500
					frost = 0
					gt 'club','inside'
					end
				end
				if odetkis = 1 or glamur = 1:
				'You can feel his eyes all over your body, but eventually he nods and lets you inside.'
					act 'Enter the club (500 rubles)':
					cla
					set minut += 5
					set money -= 500
					frost = 0
					gt 'club','inside'
					end
				end
				if odetjeans = 1 and vnesh >= 30 or odetpants = 1 or vnesh >= 15 or odetshort = 1 and vnesh >= 15:
				'You can feel his eyes all over your body, but eventually he nods and lets you inside.'
					act 'Enter the club (500 rubles)':
					cla
					set minut += 5
					set money -= 500
					frost = 0
					gt 'club','inside'
					end
				end
			else
				'The bouncer shakes his head. He tells he won''t let you in and you have no idea why.'
			end
		else 
			'The bouncer shakes his head. He tells he won''t let you in and you have no idea why.'
		end
	end

if $ARGS[0] = 'inside':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Night club</font></B></center>'
'<center><img src="images\etogame\club9.jpg"></center>'
'<a href="exec:gt ''club'',''vip''">Vip-room.</a>'
'The music here is loud and the bass bumping. You can see a laser show at the stage and on the poorly lit dancefloor you see the people dancing, like there''s no tomorrow.'

clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	if hour <= 3 or hour >= 15:
	act 'WC': gt 'club','toi'

	act 'Dancefloor': gt 'club','dance'

	act 'Bar': gt 'club','bar'
	end

	act 'Leave the club':
	cla
	set drunk = 0
	set minut += 5
	gt 'down'
	end



end

if $ARGS[0] = 'toi':
cla
*clr
'Shit, there''s a very long queue infront of the womens toilet. You can''t tell how long this is going to take.'
	act 'Wait in line':
	cla
	Set minut += rand(10,30)
	'Finally there''s a free booth for you.'
	act 'WC': gt 'club','tou'
	end

	act 'Go to the mens toilet':
	cla
	Set acta += 1
	'You slip unnoticed into the mens toilet room.'
		act 'Go into a free booth':
		Set randbj = RAND(1,100)
		if TQuest = 0 and horny < 50: gt 'club','tou'
		if TQuest = 0 and horny >= 50: gt 'Klub2','WC'
		if TQuest = 1: gt 'Klub2','tualet1'
		if TQuest = 2: gt 'Klub2','tualet2'
		if TQuest >= 3 and randbj < 60: gt 'club','tou'
		if TQuest >= 3 and randbj >= 60: gt 'Klub2','tualet1'
		end
	end

	act 'Go back to the dancefloor': gt 'club','inside'
end



if $ARGS[0] = 'tou':
cla
*clr
set minut += 5
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\etogame\club3.jpg"></center>'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get off the toilet': gt 'club','inside'

	if tanga = 1:
		act 'Remove your underwear':
		cla
		set tanga = 0
		gt 'club','toi'
		end
	end

	act 'Look into the mirror':
		cla
		gs 'portmirror'
		set $goto1 = 'club'
		set $goto2 = 'tou'
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			gt 'club','tou'
		end
	end

	if cumpussy > 0 or cumbelly > 0 or cumass > 0  and cumanus > 0:
		act 'Clean yourself (0:15)':
		cla
		*clr
		set cumpussy = 0
		set cumbelly = 0
		set cumass = 0
		set cumanus =0
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 15
		'<center><img src="images\pics\wash5.jpg"></center>'
		'You clean yourself and remove any traces of cum.'
		act 'Exit': gt 'club','tou'
		end
	end

	if cumlip > 0 or cumface > 0:
		act 'Clean your face from cum (0:15)':
		cla
		*clr
		set mop = 1
		set cumlip = 0
		set cumface = 0
		set sweat -= 1
		set minut += 15
		'<center><img src="images\etogame\facesp.jpg"></center>'
		'As there are drops of cum in your face, you clean your face to get rid of them.'
		act 'Exit': gt 'club','tou'
		end
	end

	if cumfrot > 0:
		act 'Wipe the cum off your clothes (0:15)':
		cla
		*clr
		set cumfrot = 0
		set sweat -= 1
		set minut += 15
		!'<center><img src="images\etogame\facesp.jpg"></center>'
		'You use a tissue and a bit of water to remove cum stains in your clothes. '
		act 'Exit': gt 'club','toi'
		end
	end
	if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change the tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change the tampon.'
		act 'Done': gt 'club','tou'
		end
	end
end



if $ARGS[0] = 'dance':
cla
*clr
'<center><B><font color = maroon>The dance floor</font></B></center>'
'<center><img src="images\etogame\club9.jpg"></center>'
'The club is filled to the brink with people. Most of which are dancing on the dancefloor.'
clr
gs 'stat'

act 'Exit': gt 'club','inside'

	if hour <= 3 or hour >= 16:

		act 'Dance (0:30)':
		cla
		*clr
		set minut += 30
		set fat -= 1
		set dance += 1
		set manna += 10
		set willpower += 10
		set clrand = RAND(0,100)
		frost = 0
		'<center><img src="images\etogame\club4.jpg"></center>'
		'On the dance floor very closely, you can put a hand on his shoulder one guy to make a couple of steps and pressed her chest already to another, and in the dance, how much one can do in dance.'
			if vnesh >= clrand:
			set horny += 1
			gs 'boy'
			'While you''re dancing you feel that someone is groping your ass, you turn around and see <<$boybody>> <<$boybod>> <<$boyface>>. He''s <<$boyClo>>'
				act 'Dance with him':
				cla
				*clr
				set minut += 30
				set dance += 1
				set horny += 1 + SUB
				'<center><img src="images\etogame\club8.jpg"></center>'
				'You continue to dance with the guy on the dancefloor, but he doesn''t stop touching your. It somehow gets you excited, when a random guy is touching you in public.'
					if horny < 90:
					act 'Go to the dance floor': gt 'club','dance'
					end

					act 'Kiss':
					cla
					set minut += 15
					set horny += 1 + SUB
					set dansexclub = rand(0,1)
					if dansexclub = 1:
					'You''re passionately kissing the guy, while he''s continously groping you, always dedicating one of his hands to either your tits or your ass. "Why don''t we go to the VIP-Area. There we''ll have a bit more privacy.", he says inbetween kisses.'
						set picrand = 38
						if horny < 70:
							act 'Go to the dance floor': gt 'club','dance'
							end
						act 'Go to Vip-room with the guy. "': xgt 'sex','var'
						end
					if dansexclub = 0:
					'You''re passionately kissing the guy, while he''s continously groping you, always dedicating one of his hands to either your tits or your ass. "Let´s go to the toilet.", he says with a smile.'
						if horny < 70:
							act 'Go to the dance floor': gt 'club','dance'
							end
						act 'Go to the toilet with a guy': gt 'club','sex'
						end
					end
				end
			if clrand > 85:
				cla
				*clr
				'<center><img src="images\img\centr\dancelezb.jpg"></center>'
				'While you''re dancing you a hand groping your ass. You turn around to see who touched your, but you''re surprised to see women smiling at you, she seems to be biting her lips.'
				set dansexclub = rand(0,1)
				if dansexclub = 0:
					act '"Let´s go to the toilet, to have fun."': gt 'club','lezbsort'
					end
				if dansexclub = 1:
					set picrand = rand(13,17)
					act '"Let´s go to VIP-Room, to have fun."': xgt 'lezbsex','var'
					end
				act 'Send it': gt 'club','inside'
				end
			end
		act 'Go away': gt 'club','dance'
		end

		act 'Go up to the DJ (0:30)':
		cla
		*clr
		set minut += 30
		'<center><img src="images\etogame\club7.jpg"></center>'
			if alexeyQW = 0: 'The DJ does not pay you any attention.'
			if alexeyQW > 0 and alexeySex = 0: 'Alexei looks up and smiles at you, he recognizes you from the vocal school.'
			if alexeyQW > 0 and alexeySex > 0:
			'As Alexei sees you, he invites you into his DJ booth.'
			act 'Go into the booth':
			cls
			set minut += 30
			gs 'stat'
			'<center><img src="images\etogame\club7.jpg"></center>'
			'Alexei barely talks to you as he''s only paying attention to the music.'
			if alexeyClubSex = 3 and sashaClubQW = 0:
			set sashaClubQW = 1
			'Into the booth came a man, who seems to be somewhere in forties. He has a large belly, has a bald head and is wearing glasses. Alexei greeted him and introduced you to him, his name is Alexander E. and he''s the owner of the club.'
			'Alexander had a small talk with Alexei, then he left again.'
			act 'Leave the booth': gt 'club','dance'
			exit
			end

			if alexeyClubSex ! 3 or sashaClubQW > 0:
					act 'Leave the booth': gt 'club','dance'

						act 'Get on your knees and give him a BJ':
						cls
						alexeySex += 1
						alexeyClubSex += 1
						horny += 10
						bj += 1
						minut += 10
						gs 'stat'
						picrand = RAND(0,13)
						if picrand = 0: '<center><img src="images\qwest\alexey\bj.jpg"></center>'
						if picrand = 1: '<center><img src="images\qwest\alexey\bj1.jpg"></center>'
						if picrand = 2: '<center><img src="images\qwest\alexey\bj2.jpg"></center>'
						if picrand = 3: '<center><img src="images\qwest\alexey\bj3.jpg"></center>'
						if picrand = 4: '<center><img src="images\qwest\alexey\bj4.jpg"></center>'
						if picrand = 5: '<center><img src="images\qwest\alexey\bj5.jpg"></center>'
						if picrand = 6: '<center><img src="images\qwest\alexey\bj6.jpg"></center>'
						if picrand = 7: '<center><img src="images\qwest\alexey\bj7.jpg"></center>'
						if picrand = 8: '<center><img src="images\qwest\alexey\bj8.jpg"></center>'
						if picrand = 9: '<center><img src="images\qwest\alexey\bj9.jpg"></center>'
						if picrand = 10: '<center><img src="images\qwest\alexey\bj10.jpg"></center>'
						if picrand = 11: '<center><img src="images\qwest\alexey\bj11.jpg"></center>'
						if picrand = 12: '<center><img src="images\qwest\alexey\bj12.jpg"></center>'
						if picrand = 13: '<center><img src="images\qwest\alexey\bj13.jpg"></center>'
						'You kneel down and wrap your <<$liptalk>> around his cock and you begin to suck on it. Alexei helped by moving his hips back and forth, you notice his moving is in sync to the beat of the music he''s playing. After a few minutes he groans, "You better swallow it all, I don''t want anyone to clean up our mess."'
						gs 'oral','0'
							act 'He''s cumming':
							cls
							horny += 10
							minut += 10
							swallow += 1
							cumlip += 1
							gs 'stat'
							picrand = RAND(0,13)
							if picrand = 0: '<center><img src="images\qwest\alexey\bjcum.jpg"></center>'
							if picrand = 1: '<center><img src="images\qwest\alexey\bjcum1.jpg"></center>'
							if picrand = 2: '<center><img src="images\qwest\alexey\bjcum2.jpg"></center>'
							if picrand = 3: '<center><img src="images\qwest\alexey\bjcum3.jpg"></center>'
							if picrand = 4: '<center><img src="images\qwest\alexey\bjcum4.jpg"></center>'
							if picrand = 5: '<center><img src="images\qwest\alexey\bjcum5.jpg"></center>'
							if picrand = 6: '<center><img src="images\qwest\alexey\bjcum6.jpg"></center>'
							if picrand = 7: '<center><img src="images\qwest\alexey\bjcum7.jpg"></center>'
							if picrand = 8: '<center><img src="images\qwest\alexey\bjcum8.jpg"></center>'
							if picrand = 9: '<center><img src="images\qwest\alexey\bjcum9.jpg"></center>'
							if picrand = 10: '<center><img src="images\qwest\alexey\bjcum10.jpg"></center>'
							if picrand = 11: '<center><img src="images\qwest\alexey\bjcum11.jpg"></center>'
							if picrand = 12: '<center><img src="images\qwest\alexey\bjcum12.jpg"></center>'
							if picrand = 13: '<center><img src="images\qwest\alexey\bjcum13.jpg"></center>'
							'Streams of sperm hit you in the mouth and began to run down your <<$liptalk>>. Alexei wiped his dick on your <<$liptalk>> and put it away in his pants.'
							'You began greedily to swallow his warm cum and use your finger to collect the drips, that escaped your mouth, then lick your finger clean. Once you''ve swallowed every last drop, you stand up again and thank him for this tasty snack.'
							act 'Leave the booth': gt 'club','dance'
							end
						end
					end
				end
			end
		act 'Leave the booth': gt 'club','dance'
		end
	end
end

if $ARGS[0] = 'bar':
cla
*clr
set minut += 5
'<center><B><font color = maroon>bar</font></B></center>'
'<center><img src="images\etogame\club10.jpg"></center>'
'You have to squeeze yourself through the crowd to get to the bar. On your way, random guys try to lay their hands around you, try to convince you into dancing or drinking with them, some even try to grope your tits or ass and some play the white knight and try to get your attention by protecting you.'
clr
gs 'stat'
if vnesh > 14: set barsexrand = rand(0,10)
if barsexrand = 1: gt 'club','bar0'
if barsexrand = 2: gt 'club','bar1'
act 'Go back': gt 'club','inside'

if alko >= 7:
cls
	temp = RAND(0,100)
					if temp = 5:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club1.jpg"></center>'
					'You''re so drunk, you can barely remember where you live.'
					act 'Try to go home': gt 'street'
					exit
					end
					if temp = 6:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club2.jpg"></center>'
					'The last thing you remember is how you sucked the cock of one of the male strippers.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 7:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand4.jpg"></center>'
					'The last thing you remember, is how you sucked someones cock in the middle of the dancefloor.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 8:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club5.jpg"></center>'
					'The last thing you remember, is how you tried to pose as a waitress.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 9:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand6.jpg"></center>'
					'The last thing you remember, is a sex scene at the tables, where a girl is bent over one and fucked by a guy from behind.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 10:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand7.jpg"></center>'
					'You see a small group of girl loosing it on the dancefloor. They''re moving like there''s no tomorrow.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 11:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand8.jpg"></center>'
					'You see two hot girls passionately kissing each other.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end
					if temp = 12:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand9.jpg"></center>'
					'The last thing you remember, is a girl who crawled under a table, because she probably dropped her phone. But her skirt moves up and reveals her bare naked ass and the fact that she didn''t put on any panties.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 13:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand10.jpg"></center>'
					'You notice a women who is giving a guy a blowjob, then the women opens her mouth, with the cock in her hand and the guy pours champangne into her mouth.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 14:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand11.jpg"></center>'
					'You happen to notice a small group of drunken girls giggling. One of which is fingering the pussy of another girl.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 15:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand12.jpg"></center>'
					'The last thing you can remember is dancing closely with a black guy, with his hands on your hips.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 16:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club13.jpg"></center>'
					'The last thing you remember, is how you tried to dance with a random guy.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 17:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club14.jpg"></center>'
					'The last thing you remember, is how you undressed and danced half naked in front of everyone.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 18:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand15.jpg"></center>'
					'You see a guy and a girl on the dancefloor kissing each other. The guy however uses one of his hands to have some fun with the girls pussy.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 19:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand16.jpg"></center>'
					'You can see a drunken girl spreading her legs on one of the bar stools, she''s not wearing any panties and the bloke next to her takes the opportunity and fingers the girl.' 
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 20:
					horny += 5
					gs 'stat'
					'<center><img src="images\picKav\ivrand17.jpg"></center>'
					'You can see a guy hugging and kissing a drunken girl, while another guy sucks on her exposed tits.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 21:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club21.jpg"></center>'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 22:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club22.jpg"></center>'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 23:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club23.jpg"></center>'
					'You''re so drunk that you fell asleep on the spot. A man from the security had to wake you up and escorted you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp = 24:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club24.jpg"></center>'
					'The last thing you''re able to remember is, that used the mens bathroom to pee.'
					'You''re too drunk to continue partying here. The security has to escort you out.'
					act 'Leave': gt 'down'
					exit
					end

					if temp > 24:
					horny += 5
					gs 'stat'
					'<center><img src="images\etogame\club25.jpg"></center>'
					'You''re so drunk that you fell asleep on the spot. A man from the security had to wake you up and escorted you out.'
					act 'Leave': gt 'down'
					exit
					end
end

	if money >= 300:

		act 'Buy some booze (300 rubles)':
		cla
		*clr
		set minut += 30
		set fat += 1
		set manna += 10
		set willpower += 10
		alko += 2
		set water += 5
		set energy += 5
		set son += 5
		set horny += rand(10,50)
		set money -= 300
		frost = 0
		'<center><img src="images\etogame\club6.jpg"></center>'
		'You found a free bar stool and sat down on it. You ordered the barkeeper to mix you a cocktail and a few moments later, you sipping on a sweet one.'
		act 'Stand up': gt 'club','bar'
		end
	end
end


if $ARGS[0] = 'sex':
cla
*clr
dynamic $venerasiak
set minut += 5
'<center><B><font color = maroon>toilet stall</font></B></center>'
'<center><img src="images\etogame\sex.jpg"></center>'
clr
gs 'stat'
set $nameV = 'Stranger'
set dick = RAND(10,18)
'You went with the guy to the mens toilet and he dragged you into one of the free booths. He started to caress your breats and pussy, then helped you getting rid of the clothes.'
	act 'Give him a blowjob':
	cla
	*clr
	set bj += 1
	set guy += 1
	set horny += VAF
	'<center><img src="images\picV\clubBJ.jpg"></center>'
	gs 'oral','start'
		act 'Take his cock out of your mouth':
		cla
		*clr
			if harakBoy = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You take his cock and point it away from you. He groans as he cums and most of his cum gets splattered onto the floor, with a few drips covering your hand.'
			end
			if harakBoy = 1:
				act 'Point his cock at the floor':
				cla
				'<center><img src="images\picV\hand.jpg"></center>'
				'You take his cock and point it away from you. He groans as he cums and most of his cum gets splattered onto the floor, with a few drips covering your hand.'
				act 'Stand up': gt 'club','toi'
				end

				act 'Let him cum on your face':
				cla
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\clubFacial1.jpg"></center>'
				'You grabed his cock and point his "gun" at your face. He groans as he cums and you can feel hot streams of semen covering your face.'
				act 'Stand up': gt 'club','toi'
				end

			exit
			end

			if harakBoy = 2:
			set facial += 1
			set cumface += 1
			set SUB += 1
			'<center><img src="images\picV\clubFacial.jpg"></center>'
			'The bloke grabs your hair and cums on your face. You quickly close your eyes, but it''s too late, a few drips of semen make it into your eyes. It hurts a bit.'
			end
		act 'Stand up': gt 'club','toi'
		end

		act 'Swallow his cum':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\clubSwallow.jpg"></center>'
		'The guy came in your mouth, you can feel his hot and salty semen pouring into it. Without hesistation you swallow it, you can''t tell why, but somehow you start to enjoy the taste of fresh, warm sperm.'
		act 'Stand up': gt 'club','toi'
		end

	end

	act 'Doggy-Style':
	cla
	*clr
	set sex += 1
	set guy += 1
	set horny += SUB
	set vagina += 1
	'<center><img src="images\picV\clubSex.jpg"></center>'
	'You turn around and kneel on the toilet seat. "Fuck me", you say and present your ass and pussy to him.'
	'You don''t have to tell him twice, he grabs your hips, positions his cock infront of your pussy and with a strong push he enters your vagina. You moan with pleasure and you are surprised by the sheer force he used to enter you.'
	'He grunts heavy as he fucks you like the bitch in heat that you are. He continues with force and speed, if he''s slowing down, you can''t notice it, but it doesn''t take long and both of you are reaching the state of orgasm.'
	'You look at him, "Don''t you dare to cum inside.". Inbetween his grunts he nods and a few seconds later he cums outside of you, you are relived that he at least acts a bit like a gentleman.'''
	gs 'orgazm','start'
	act 'Stand up': gt 'club','toi'
	end
end

if $ARGS[0] = 'bar0':
cla
*clr
'<center><B><font color = maroon>Bar</font></B></center>'
'<center><img src="images\img\centr\bar0.jpg"></center>'
'As you sit at the bar, a woman walk up to you and begins to chat with you.'
'During the conversation you get the feeling that she''s flirting with you and before you even can react, her hands wander over your body, giving you a sensational feeling.'
act 'Move away from her': gt 'club','bar'
act 'Kiss her':
	cla
	*clr
	'<center><img src="images\img\centr\bar1.jpg"></center>'
	'Her flirting works on you. You move closer to her and begin to kiss her. At first, it feels weird for you, kissing a random woman that is, but it doesn''t take long for the kissing to move for awkward to passionately..'
	act 'Tell her to meet at the toilet': gt 'club','lezbsort'
	act 'Strip her':
		cla
		*clr
		set lesbian += 1
		set girl += 1
		'<center><img src="images\img\centr\bar2.jpg"></center>'
		'You remove her top and begin to caress and kiss her breasts. You suck on her nipples while your hand unbuttons her pants and slip your hand in to get a feel for her pussy. You are a bit surprised to find an already moistened pussy.'
		act 'Lick her pussy':
			cla
			*clr
			'<center><img src="images\img\centr\bar3.jpg"></center>'
			'"Wait a second, let me help you with my pants.", she says, panting softly into your ear, while she drops her pants. Then she sat down on a bar stool and you moved her panty aside and began to lick her womanly folds.'
			'Moments later, she moans heavy and cums. You look up to her and giggle softly. "Why don''t we switch and I make you feel good now?", she says, still panting heavy.'
			act 'Switch positions':
				cla
				*clr
				set horny = 0
				'<center><img src="images\img\centr\bar4.jpg"></center>'
				'You stand up and she goes down on you, starting to lick your flower and sticking two fingers into your now wet cunt. She''s very skilled with her tongue and it takes her only minutes to make you cum.'
				'You''re blissfully smiling at her. "Thank you.", you say to her..'
				if dildo = 0:
					cla
					*clr
					'Now that the adrenalin fades away again, both you begin to blush as you notice, that the people around you stare at you. Both of you quickly dress-up again and go parted ways.'
					act 'Leave': gt 'club','inside'
					end
				if dildo > 0:
					act 'Get dildo':
						cla
						*clr
						'<center><img src="images\img\centr\bar5.jpg"></center>'
						'She chuckles, "Ohh you think we''re done? I saw that you carry dildos with you." You blush and nod. "Use them.", she tells you.'
						'You take out your dildos, inserting one into her still wet pussy and one into your own wet cunt, you turn on their vibrations function and move them in and out, both of you are once again panting heavy.'
						act 'Give her one':
							cla
							*clr
							set horny = 0
							set orgasm += 1
							'<center><img src="images\img\centr\bar6.jpg"></center>'
							'You both stand up and use a dildo to move it in and out of each others pussy. She moves close to you and begins kissing you. Your feelings are overflowing and both of you come together at the same time.'
							'Now that the adrenalin fades away again, both you begin to blush as you notice, that the people around you stare at you. Both of you quickly dress-up again and go parted ways.'
							act 'Leave': gt 'club','inside'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'bar1':
cla
*clr
'<center><B><font color = maroon>Bar</font></B></center>'
'<center><img src="images\img\centr\bar7.jpg"></center>'
'While you sit on one of the bar stools a man comes to and grabs on of your ass cheeks. "Why don''t we both have some fun together, huh?", the bloke says and you can hear, that he had more than one beer.'
act 'Send':
	if drunk < 4: gt 'club','bar'
	if drunk >= 4: gt 'club','rape'
	end
if DOM > 10:
	act 'Tell him to lick you':
		cla
		*clr
		set kuni += 1
		'<center><img src="images\img\centr\barkuni.jpg"></center>'
		'"Sure", you say with a witty smile, "Why don''t you lick my pussy?" You stand up, remove your panties and bend over the stool. "Go on, what are you waiting for.", you tell him.'
		'He kneels down and begins to move his tongue between your folds. You immediately begin to moan softly. You close your eyes and admit to yourself, that he''s not half bad at it.'
		act 'Turn him down': gt 'club','bar'
		act 'Suck his cock': gt 'club','bar2'
		act 'Let him fuck you': gt 'club','bar3'
		end
	end
act 'Blow job': gt 'club','bar2'
act 'Post': gt 'club','bar3'
end

if $ARGS[0] = 'bar2':
cla
*clr
dynamic $venerasiak
set bj += 1
set guy += 1
'<center><B><font color = maroon>Bar</font></B></center>'
'<center><img src="images\img\centr\barminet.jpg"></center>'
'You bend over, unbutton his pants and take out his cock. You bite your lips in anticipation and start to suck on it with your <<$liptalk>>. He''s moaning and smiling at the fact, that a random girl at a club is giving him a header.'
act 'Post': gt 'club','bar3'
act 'Continue to suck':
	cla
	*clr
	set cumlip += 1
	set minut += 6
	'<center><img src="images\img\centr\barcum.jpg"></center>'
	'You suck his cock for a few minutes and not long after, he grabs and holds your head and presses you against his crotch as he cums inside your mouth. You gag a few seconds, then feel his hot cum flowing into you and you swallow every drip of his semen.'
	'He takes his cock out and a few drips of cum land on your chin. You use your fingers to clean it up, then lick them clean. Both of you smile at each other and he eventually thank you, zips-up his pants and moves away.'
	act 'Move away': gt 'club','inside'
	end
end

if $ARGS[0] = 'bar3':
cla
*clr
set sex += 1
set cumpussy += 1
set minut += 10
'<center><B><font color = maroon>Bar</font></B></center>'
'<center><img src="images\img\centr\barsex.jpg"></center>'
'You remove your panties and sit down sideways on one of the stools. The guy unzips his cock and quickly enters your pussy. Both of you start to moan in pleasure and he kisses your neck gently. About ten minutes later of rough fucking he cums on your ass check and you pull up your panties, still breathing heavy.'
act 'Leave': gt 'club','inside'
end

if $ARGS[0] = 'rape':
cla
*clr
dynamic $venerasiak
set SUB += 5
set rape += 1
'<center><B><font color = maroon>Bar</font></B></center>'
set barraperand = rand(0,1)
	if barraperand = 0:
	set bj += 1
	'<center><img src="images\img\centr\barminet.jpg"></center>'
	'The guy notices you being heavily drunk and you couldn''t resits anything right now. He orders you to unbutton his pants, take out his cock and begin to suck on it. He grabs your hair and forces your to deepthroat it.'
		act 'Further':
		set barraperand1 = rand(0,1)
			if barraperand1 = 0:
			cla
			*clr
			set cumlip += 1
			set cumface += 1
			set minut += 6
			'<center><B><font color = maroon>Bar</font></B></center>'
			'<center><img src="images\img\centr\barcum.jpg"></center>'
			'A few minutes later he is finally done and pushes your head against his crotch, forcing you to swallow his cum. You can''t help but to enjoy the tase of his semen in your mouth.'
			act 'Leave': gt 'club','inside'
			end

			if barraperand1 = 1:
			cla
			*clr
			set sex += 1
			set cumpussy += 1
			set minut += 8
			'<center><B><font color = maroon>Bar</font></B></center>'
			'<center><img src="images\img\centr\barsex.jpg"></center>'
			'The bloke takes his cock out of your mouth, tells you postion yourself in the stool and then he begins to fuck you roughly. As you''re drunk you barely register anmything, but you catch yourself moaning heavy. Not even ten minutes laters he takes his cock out of your pussy and cums on your ass.'
			act 'Leave': gt 'club','inside'
			end
		end
	end
	if barraperand = 1:
	set sex += 1
	set cumpussy += 1
	'<center><img src="images\img\centr\barsex.jpg"></center>'
	'You are trying to send it, but your tongue drunk guy is braided and seeing that you are not able to resist, pulls out his cock turns you on a stool and saliva-moistened member enters your vagina, it tears you to force shoving his dick as deep as possible, and finally finishing the leaves.'
	act 'Leave': gt 'club','inside'
	end
end

if $ARGS[0] = 'lezbsort':
cla
*clr
dynamic $venerasiak
set girl += 1
set lesbian += 1
set minut += 10
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\img\centr\lezbsort.jpg"></center>'
'She follows you into the womens bathroom and you lure her into one of the empty booths.'
act 'Lick her': gt 'club','lezbsort1'
act 'Tell her to lick you': gt 'club','lezbsort2'
act 'Leave her': gt 'club','tou'
end

if $ARGS[0] = 'lezbsort1':
cla
*clr
set minut += 10
set horny = 0
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\img\centr\sortukuni.jpg"></center>'
'You remove her pants and sit down on the toilet. She happily does as you told her. She spreads her legs and you begin to lick her cunt furiously. She moans heavily and plays with her erect nipples. Some time later you make cum.'
	if hour >= 15 or hour <= 3: act 'Now it''s your turn': gt 'club','lezbsort2'

act 'Leave her': gt 'club','tou'
end

if $ARGS[0] = 'lezbsort2':
cla
*clr
set minut += 10
set horny = 0
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\img\centr\sortkuni.jpg"></center>'
'You sit donw on the toilet and move your feet up. "Lick it", you tell her. She seductively bites her lips and happily follows your orders. The woman parts your pussy lips and begins to lick your cunt. Every so often she switches between licking your pink flesh and your flower. She doesn''t stop until you cry out in pleasure and cum.'
	if hour >= 15 or hour <= 3: act 'Lick her': gt 'club','lezbsort1'
act 'Leave her': gt 'club','tou'
end

if $ARGS[0] = 'vip':
	if vipcart = 0 and vipday ! day:
	'A security guard stops you from going any further. "I''m sorry, I can''t let your through, because you don''t own a VIP-Card. You can buy one for 10.000 rubles, which will be good for 10 visits."'
		if money >= 10000:
			act 'Buy a VIP-Card':
			set money -= 10000
			set vipcart = 10
			set vipday = day
			gt 'vipclub','start'
			end
		end
	end
	act 'Leave him be and go away': gt 'club','inside'


	if vipcart > 0 and vipday ! day:
		act 'Go to the VIP-Area':
		set vipcart -= 1
		set vipday = 1
		set vipday = day
		gt 'vipclub','start'
		end
	end
if vipday = day: act 'Go back the main area': gt 'vipclub','inside'
end
--- club ---------------------------------

# danceclass
set minut += 5
'<center><B><font color = maroon>Dance Class</font></B></center>'
'<center><img src="images\etogame\danceclass.jpg"></center>'
'Modern room with good lighting and mirrors for the development of dance skills.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

set razdtumbler = 0


	act 'Modern club dancing':
	cla
	*clr
	set minut += 120
	set fat -= 5
	speed+= RAND(1,3)
	set manna -= 5
	set sweat += 3
	dance += RAND(5,15)
	'<center><img src="images\etogame\fit1.jpg"></center>'
	if dance < 100: 'You studied modern dance club, which is very popular in discos.'
	if dance >= 100: 'Podcherpnut you tried something new in modern club dancing, but you all already know it.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Striptease':
	cla
	*clr
	set minut += 120
	set fat -= 5
	set agil+= RAND(1,3)
	set manna -= 8
	set sweat += 3
	!stripdance += 1
	'<center><img src="images\etogame\stripdance.jpg"></center>'
		if dance >= 100:
		stripdance += RAND(2,10)
		'You studied passionately razdevatsya dance music.'
		if stripdance >= 100: 'But you could not learn anything new, it´s all you have and know how well you know.'
		end
		if dance < 100:
		dance += RAND(5,15)
		'Striptease for you too complicated, you can not perform the dance moves combining them strip. Teacher recommends that you first learn ordinary club dances.'
		end
	act 'Leave': gt 'fit','razd'
	end

	act 'Dancing on a pole':
	cla
	*clr
	set minut += 120
	set fat -= 10
	set stren+= RAND(1,3)
	vital += RAND(1,3)
	set manna -= 5
	set sweat += 3
	!poledance += 1
	'<center><img src="images\etogame\poledance.jpg"></center>'
		if dance >= 100 and stripdance >= 100 and stren >= 80:
		poledance += RAND(2,5)
		'You studied various acrobatics on the pole.'
		if poledance >= 100: 'But you could not learn anything new, it´s all you have and know how well you know.'
		end
		if dance < 100 or stripdance < 100 or stren < 80:
		'Already in the first exercise, you crashed with a pole. It seems this kind of dance you until the teeth'
		if stren < 80: 'The teacher explained that you dance on the pole, except the ability to dance, and still requires physical strength.'
		end
	act 'Leave': gt 'fit','razd'
	end
--- danceclass ---------------------------------

# dorm
if $ARGS[0] = 'start':
cla
*clr

set minut += 5
'<center><B><font color = maroon>share</font></B></center>'
'<center><img src="images\etogame\dorm.jpg"></center>'
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
	if student > 0:
		act 'Stop by':
		cla
		set minut += 5
		set reccoldorm = 1
		gt 'dorm','korr'
		end
	end
	if reccoldorm < 1 and student = 0:
		act 'Try to go':
		cla
		set minut += 5
		gt 'dorm','in'
		end
	end

	act 'QUIT':
	cla
	set minut += 5
	reccoldorm = 0
	gt 'down'
	end
end

if $ARGS[0] = 'in':
cla
*clr
gs 'stat'
	if student =0:
	'You do not have the student refuses vahtersha and you miss.'
		act 'Leave': gt 'down'

		if afra > 0:
			act 'I to DeMarcus':
			cla
			'You said that you have to DeMarcus. Vahtersha chuckled, "Whore, bedding for niggers, go jump on their black bolt"'
			set reccoldorm = 1
			act 'Sign in': gt 'dorm','korr'
			end
		end

		if gosh > 0:
			act 'What I Gaucher':
			cla
			'You said that you have to Gaucher. Vahtersha chuckled, "Goshin next litter? Mozglyak Yes this is all fucked dorm now slut themselves go to him. Heh, go to your stud, litter."'
			set reccoldorm = 1
			act 'Sign in': gt 'dorm','korr'
			end
		end
	end
end

if $args[0] = 'korr':
clr
gs 'stat'
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><img src="images\img\centr\obkorr.jpg"></center>'
'Before you obschazhny usual hallway with dilapidated walls, the same doors of some rooms or music is heard yelling drunken students.'
	act 'Leave':
	cla
	set minut += 5
	set reccoldorm = 0
	gt 'down'
	end

	if student > 0:
	act 'Your room': gt 'obroom','start'
		act 'On a shared kitchen':
		set minut += 5
		gt 'obkitchen'
		end

		act 'In a shared bathroom':
		set minut += 5
		set obdysh = 1
		gt 'vann','start'
		end
	end

	if student > 0 and week = 5 and hour > 18 and hour < 23:
	'In the corridor rumbles music seems Friday party in full swing.'
	act 'The party': gt 'vecher','start'
	end

	if afra > 0 and hour < 22 and hour >= 7:
		act 'DeMarcus room':
		cla
		Set afrand = RAND(1,2)
			if afrand = 1:
			'You knocked on the room DeMarcus, but it is not at'
			set minut += 5
			gs 'stat'
				act 'Leave': gt 'dorm','korr'
			end

			if afrand = 2:
			*clr
			'You knocked on the room DeMarcus. After a couple of hefty seknd you opened inflated African. He smiled when he saw snow-white smile and invited you to his room. There he quickly covered quite luxurious table for student and invited you to a table.'
				act 'Drink with DeMarcus':
				cls
				minut += 120
				gs 'stat'
				'You drank wine with DeMarcus and he began to grope you in the chest. Then he raised your T-shirt and began to suck your nipples and play with her breasts, you become very good.'
				Set afrand = RAND(1, afra)
					if afrand = 1:
					if demarkus = 0: Set guy += 1 & Set demarkus = 1
					Set sex += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus section and put you to bed, he pulled out his huge black cock and your feet apart you entered.'
					'<center><img src="images\pics2\afra.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead on your stomach.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 2:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1

					!Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					!Set cumbutt += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus section and put you back on the floor, he pulled out his huge black cock and your feet apart you entered.'
					'<center><img src="images\pics2\afra1.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead on your stomach.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 3:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1

					!Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					!Set cumbutt += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus section and you put the cancer on the bed, he pulled out his huge black cock and apart your bread came in you.'
					'<center><img src="images\pics2\afra2.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead on your ass.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 4:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1
					!
					Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					anus += 1
					'Demarcus section and you put the cancer on the bed, he pulled out his huge black cock and apart your bread came into your anus.'
					'<center><img src="images\pics2\afra4.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only then it is dead in your ass.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 5:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1

					!Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					!Set cumbutt += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus section and you put the cancer on the bed, he pulled out his huge black cock and went into your pussy stretching it to the limit.'
					'<center><img src="images\pics2\afra24.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead on your ass.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 6:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1
					!
					Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					anus += 1
					'Demarcus section you and put it on the bed, he pulled out his huge black cock and your feet apart came into your anus.'
					'<center><img src="images\pics2\afra16.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 7:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1
					!
					Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					anus += 1
					'Demarcus section and you lay on the bed, he easily picked up and you sat on your anus huge dick.'
					'<center><img src="images\pics2\afra13.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 8:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1
					!
					Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					anus += 1
					'Demarcus section and you lay on the bed, he easily picked up and you sat on your anus huge dick.'
					'<center><img src="images\pics2\afra20.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 9:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1

					!Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					!Set cumbutt += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus section and you lay on the bed, he easily picked up and you sat on his huge cock your pussy.'
					'<center><img src="images\pics2\afra11.jpg"></center>'
					'Demarcus until you bored into his huge tool you had to finish a few times and only if he is dead.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 10:
					Set throat += 1
					Set sex += 1
					Set oral += 1
					Set cumface += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra3.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 11:
					Set throat += 1
					Set sex += 1
					Set oral += 1
					Set cumface += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra10.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 12:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					Set cumface += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra14.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 13:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra18.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 14:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra23.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 15:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra31.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 16:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra32.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 17:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra33.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 18:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra34.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 19:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra35.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 20:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra36.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 21:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra37.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 22:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra38.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 23:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra39.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 24:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra40.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand = 25:
					Set throat += 1
					!Set guy += 1
					Set sex += 1
					Set oral += 1
					!
					!Set anal += 1
					!Set cumlip += 1
					Set cumface += 1
					!Set cumbutt += 1
					!Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					VAF += 1
					'Demarcus put you on your knees and put your mouth his huge black cock'
					'<center><img src="images\pics2\afra41.jpg"></center>'
					'While Demarcus pecked you mouth with his black cock, and you carefully aspirated and caressed his pussy when DeMarcus took cock and began to cum on your face, you embraced orgasm.'
					act 'Leave': gt 'dorm','korr'
					end

					if afrand >= 26:
					!Set throat += 1
					!Set guy += 1
					Set sex += 1
					!Set oral += 1

					!Set anal += 1
					!Set cumlip += 1
					!Set cumface += 1
					!Set cumbutt += 1
					Set cumass += 1
					Set horny = 0
					Set afra += 1
					orgasm += 1
					vagina += 1
					'Demarcus put you on the bed and spread her legs, taking his huge black cock he came into your pussy.'
					'<center><img src="images\pics2\afra42.jpg"></center>'
					'While Demarcus pecked you as a member, you had to finish a few times on his dick, and then he pulled out his dick and cum on you overworked vagina.'
					act 'Leave': gt 'dorm','korr'
					end
				end

			end
		end
	end

	if afra > 10 and hour >= 8 and hour < 22:
		act 'Room African students':
		cls
		minut += 5
		gs 'stat'
		Set afrand = RAND(1,2)
			if afrand = 1:
			'You knocked on the room Africans, but there was no'
			act 'Leave': set minut += 5 & gt 'dorm','korr'
			end

			if afrand = 2:
			minut += 120
			gs 'stat'
			'You knocked on the room Africans, you opened the black giant, and he grabbed you by the arm and dragged into the room in which you saw five Africans. Africans have surrounded you and you started to grab for the chest and back. Most intelligible words were Cumdump, whore, white trash, bimbo slut.'
			if afragang = 0: Set afragang = 1 & Set guy += 6
			set hour += 2
			Set afrand = RAND(1, afra)
				if afrand = 1:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				Set afra += 1
				vagina += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra5.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 2:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				Set afra += 1
				vagina += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra6.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 3:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				Set afra += 1
				vagina += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra7.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 4:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra8.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 5:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra9.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 6:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra12.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 7:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra17.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 8:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra19.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 9:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra21.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 10:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra22.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 11:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra25.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand = 12:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra26.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end

				if afrand >= 13:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				set gang += 1
				Set anal += 1
				Set cumlip += 2
				Set cumface += 2
				Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				vagina += 1
				Set afra += 1
				orgasm += 1
				'Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fuck in all holes in the gears.'
				'<center><img src="images\pics2\afra27.jpg"></center>'
				'While you fucked in all holes you left off a few times and Africans obstruhali you almost the entire body.'
				act 'Leave': gt 'dorm','korr'
				end
			end
		end
	end

	if afra > 20 and afragang = 1 and hour >= 8 and hour < 22:
		act 'Kendra´s room':
		cls
		minut += 15
		gs 'stat'
			if kendra = 5:
			'Kendra came out of the room and invited to her, she is not thinking long undressed and offered you my pussy for the service.'
				act 'Unclothed':
				cla
				Set sex += 1
				Set lesb += 1
				Set horny = 0
				orgasm += 1
				gs 'stat'
				'Kendra dress strap and hard fucks you'
				Set picrand = RAND(1,5)
				if picrand = 1: '<center><img src="images\pics2\kendraStrap.jpg"></center>'
				if picrand = 2: '<center><img src="images\pics2\kendraStrap2.jpg"></center>'
				if picrand = 3: '<center><img src="images\pics2\kendraStrap3.jpg"></center>'
				if picrand = 4: '<center><img src="images\pics2\kendraStrap4.jpg"></center>'
				if picrand = 5: '<center><img src="images\pics2\kendraStrap.jpg"></center>'
				vagina += 1
				act 'Leave': gt 'dorm','korr'
				end
			end

			if kendra =4:
			'Came out of the room pretty African Kendra, she suggested you make another tattoo, after which it will allow you to lick her.'
			act 'Leave': gt 'dorm','korr'
				act 'A tattoo':
				cla
				minut += 60
				gs 'stat'
				set tatrand = rand(1,2)
				Set kendra = 5
				Set tat = 5
					if tatlip = 0: 'Kendra fills you on the lip of the stigma huesoska'

					if tatrand = 1:
					'<center><img src="images\body\tatlip1.jpg"></center>'
					tatlip = 1
					end

					if tatrand = 2:
					'<center><img src="images\body\tatlip3.jpg"></center>'
					tatlip = 3
					end

					if tatlip = 1 or tatlip = 3:
					'"Agaa. So you already have it? Well done, good bitch. Now get to work!"'
					end

					if tatlip > 1 and tatlip<>3:
					'Kendra sees that you already have a tattoo on his lip. "Nothing´s a quick fix oo" - she says, and fills you in on the lip of the stigma cocksucker. So masterfully that old flame and not noticeable.'
					end

					act 'Lick at Kendra':
					cla
					Set sex += 1
					Set lesb += 1
					Set horny = 0
					orgasm += 1
					vagina += 1
					'Kendra undresses and puts you cancer, she wears a strap and insert it in your pussy.'
					'<center><img src="images\pics2\kendraStrap.jpg"></center>'
					act 'Leave': gt 'dorm','korr'
					end
				end
			end
			!
			if kendra =3:
			'Came out of the room pretty African Kendra, she suggested you make another tattoo, after which it will allow you to lick her.'
			act 'Leave': gt 'dorm','korr'
				act 'A tattoo':
				cla
				minut += 60
				gs 'stat'
				Set kendra = 4
				Set tat = 4
					if tatvag = 3:
					'Kendra says that you already have such a stigma, a predatory smile and savory otveschshivaem you slap on the vagina'
					end

					if tatvag = 0:
					'Kendra fills you in the groin whore stigma for blacks'
					'<center><img src="images\body\tatvag3.jpg"></center>'
					end

					if tatvag > 0 and tatvag<>3:
					'Kendra sees that you already have a tattoo in the groin. "Nothing, it´s a quick fix, we" - she says, and fills you in the groin whore stigma for blacks over the old tattoo. So masterfully that old flame and not noticeable.'
					'<center><img src="images\body\tatvag3.jpg"></center>'
					end

				set tatvag = 3

					act 'Lick at Kendra':
					cla
					*clr
					Set lesb += 1
					Set horny += 20
					'Kendra undresses and inserts you licking her pussy for you skillfully running tongue in her juicy pussy and Kendra ends violently'
					'<center><img src="images\pics2\kendra3.jpg"></center>'
					act 'Leave': gt 'dorm','korr'
					end
				end
			end

			if kendra = 2:
			'Came out of the room pretty African Kendra, she suggested you make another tattoo, after which it will allow you to lick her.'
			act 'Leave': gt 'dorm','korr'
				act 'A tattoo':
				cla
				minut += 60
				gs 'stat'
				Set kendra = 3
				Set tat = 3
					if tatplech = 4:
					'Kendra sees you on the shoulder tattoo whores for blacks, grins and goes to bed'
					end

					if tatplech = 0:
					'Kendra fills you on the shoulder whore stigma for blacks'
					'<center><img src="images\body\tatplech4.jpg"></center>'
					set tatplech = 4
					end

					if tatplech > 0 and tatplech<>4:
					set tatplech = 4
					'Kendra sees that you already have a tattoo on his shoulder. "Nothing, it´s a quick fix, we" - she says, and fills you on the shoulder whore stigma for blacks over the old tattoo. So masterfully that old flame and not noticeable.'
					'<center><img src="images\body\tatplech4.jpg"></center>'
					end

					act 'Lick at Kendra':
					cla
					*clr
					Set lesb += 1
					Set horny += 20
					'Kendra undresses and inserts you licking her pussy for you skillfully running tongue in her juicy pussy and Kendra ends violently'
					'<center><img src="images\pics2\kendra2.jpg"></center>'
					act 'Leave': gt 'dorm','korr'
					end
				end
			end

			if kendra = 1:
			'Came out of the room pretty African Kendra, she suggested you make another tattoo, after which it will allow you to lick her.'
			act 'Leave': gt 'dorm','korr'
				act 'A tattoo':
				cla
				*clr
				minut += 60
				gs 'stat'
				Set kendra = 2
				Set tat = 2

					if tatleg = 1 or tatleg = 2:
					'Oh, what an independent girl, she already did. Now you can do what you came for.'
					end

					if tatleg = 0:
					'Kendra fills you at the foot of the stigma whores for blacks'
					'<center><img src="images\body\tatleg2.jpg"></center>'
					set tatleg = 2
					end

					if  tatleg > 2:
					'Kendra sees that you already have a tattoo in the groin. "Nothing, it´s a quick fix, we" - she says, and fills you at the foot of the stigma whores for blacks over the old tattoo. So masterfully that old flame and not noticeable.'
					'<center><img src="images\body\tatleg2.jpg"></center>'
					set tatleg = 2
					end

					act 'Lick at Kendra':
					cla
					*clr
					Set repa = 9
					Set lesb += 1
					if kendrasex = 0: kendrasex = 1 & girl = girl + 1
					Set horny += 20
					'Kendra undresses and inserts you licking her pussy for you skillfully running tongue in her juicy pussy and Kendra ends violently'
					'<center><img src="images\pics2\kendra.jpg"></center>'
					act 'Leave': gt 'dorm','korr'
					end
				end
			end

			if kendra = 0:
			'Came out of the room pretty African, she introduced herself as Kendari and said that he knows about what you litter for Africans. She invited you to make the proper tattoo, after which it will allow you to lick her.'
			act 'Leave': gt 'dorm','korr'
				act 'A tattoo':
				cla
				minut += 60
				gs 'stat'
				Set kendra = 1
				Set tat = 1

				if tatupb = 4:
					'Oh, so you already have the stigma of a whore? And we spend time here! Come on, do your thing wet, whore.'
				end

				if tatupb = 0:
					'Kendra fills you on the rump whore stigma'
					'<center><img src="images\body\tatupb4.jpg"></center>'
					set tatupb = 4
				end

				if tatupb > 0 and tatupb<>4:
					'Kendra sees that you already have a tattoo on the lower back. "Nothing, it´s a quick fix, we" - she says, and fills you whore stigma on top of the old tattoo. So masterfully that old flame and not noticeable.'
					'<center><img src="images\body\tatupb4.jpg"></center>'
					set tatupb = 4
				end

				act 'Lick at Kendra':
					cla
					*clr
					if kendrasex = 0: kendrasex = 1 & girl += 1
					Set lesb += 1
					Set horny += 20
					'Kendra undresses and inserts you licking her pussy for you skillfully running tongue in her juicy pussy and Kendra ends violently'
					'<center><img src="images\pics2\afra30.jpg"></center>'
					act 'Leave': gt 'dorm','korr'
					end
				end
			end
		end
	end

	if gosh > 0 and hour >= 8 and hour < 22:
		act 'Room Goshi':
		cla
		minut += 15
		gs 'stat'
		'You open the door and invites Gosh enter'
			act 'Walk into a room Goshi':
			cla
			*clr
			minut += 60
			gs 'stat'
			if goshsex = 0: Set goshsex = 1 & Set guy += 1
			'Gosh starts kleitbsya to you fondle your breasts and slowly undress you'
			set srand = RAND(1,3)
				if srand = 1:
				!Set throat += 1
				Set sex += 1
				!Set oral += 1

				!Set anal += 1
				!Set cumlip += 2
				!Set cumface += 2
				!Set cumbutt += 1
				Set cumass += 1
				Set horny = 0
				orgasm += 1
				vagina += 1
				'Gosh enters his cock into your pussy while he fucked you have finished and then he came to you.'
				Set picrand = RAND(1,5)
				if picrand = 1: '<center><img src="images\pics2\gosh2.jpg"></center>'
				if picrand = 2: '<center><img src="images\pics2\gosh11.jpg"></center>'
				if picrand = 3: '<center><img src="images\pics2\gosh13.jpg"></center>'
				if picrand = 4: '<center><img src="images\pics2\gosh14.jpg"></center>'
				if picrand = 5: '<center><img src="images\pics2\gosh15.jpg"></center>'
				act 'Leave': gt 'dorm','korr'
				end

				if srand = 2:
				Set throat += 1
				Set sex += 1
				Set oral += 1
				Set cumlip += 1
				Set cumface += 2
				'Gosh puts you on your knees and fucks you in the mouth, then he pulls out and cums dick on your face.'
				Set picrand = RAND(1,5)
				if picrand = 1: '<center><img src="images\pics2\gosh.jpg"></center>'
				if picrand = 2: '<center><img src="images\pics2\gosh3.jpg"></center>'
				if picrand = 3: '<center><img src="images\pics2\gosh4.jpg"></center>'
				if picrand = 4: '<center><img src="images\pics2\gosh5.jpg"></center>'
				if picrand = 5: '<center><img src="images\pics2\gosh7.jpg"></center>'
				gs 'oral','0'
				act 'Leave': gt 'dorm','korr'
				end

				if srand = 3:
				Set sex += 1
				Set anal += 1
				Set cumbutt += 1
				orgasm += 1
				anus += 1
				'Gosh you lubricate the anus and flexing his fingers, then he puts you in the ass dick.'
				Set picrand = RAND(1,5)
				if picrand = 1: '<center><img src="images\pics2\gosh6.jpg"></center>'
				if picrand = 2: '<center><img src="images\pics2\gosh8.jpg"></center>'
				if picrand = 3: '<center><img src="images\pics2\gosh9.jpg"></center>'
				if picrand = 4: '<center><img src="images\pics2\gosh10.jpg"></center>'
				if picrand = 5: '<center><img src="images\pics2\gosh12.jpg"></center>'
				act 'Leave': gt 'dorm','korr'
				end
			end

			act 'Go for a walk with Gosha':
			cla
			Set gosh += 1
			minut += 120
			gs 'stat'
			'You walk with Gosha, it is very interesting conversationalist and gallant.'
			act 'Leave': gt 'dorm','korr'
			end
		end
	end
end
--- dorm ---------------------------------

# fit
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Fitness Center</font></B></center>'
'<center><img src="images\etogame\fit.jpg"></center>'
'Subscribe to the 30 classes worth 3000 ruble'
'Be sure to come to class in sportswear.'
if abonement > 0: 'Subscription is valid for <<abonement>> Occupation'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	if money >= 3000:
		act 'Buy a subscription (3,000 rubles)':
		cla
		set money -= 3000
		set abonement += 30
		'You bought a ticket for 30 lessons'
		act 'Move away from cash': gt 'fit','start'
		end
	end

	if abonement > 0 and fitday ! day:
		act 'Walk in dressing room':
		cla
		frost = 0
		set abonement -= 1
		set fitday = day
		set razdtumbler = 1
		gt 'fit','razd'
		end
	end
end

if $ARGS[0] = 'razd':
clr
gs 'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 5
'<center><B><font color = maroon>Dressing</font></B></center>'
'<center><img src="images\etogame\razd.jpg"></center>'

'Classifieds'
'Recruited girls section races, the winners of the competition receive cash prizes.'
'Attention, visit the sports section razreshaetsya only with tracksuits.'

	if razdrand = 0 and tanznak = 0 and tanday ! day:
	tanday = day
	'In the locker room you notice <a href="exec:gt ''fitgirl''">cute girl</a>.'
	end

	if tanznak = 2:
	cls
	'<center><img src="images\img\centr\razd4.jpg"></center>'
	'"You at least as name, maniac, and then raped her and Chesney did not even had the" asked the girl caught her breath.'
	'"I am the <<$name>>, and I will not rape you herself was not against" you said trying to find the eyes of her panties.'
	'"Looking for this?" asked the girl twirling on his finger your panties "I´m Tanya, and yet you seduced me, I did not have before the girls, and as it turned out a very good reason, I live here with my parents, if you want to come for a visit."'
	'"Okay as anything the race, briefs is true" you said holding out his hand.'
	'"Nope, do not return, there must me something to stay on the memory of the first girl." With these words, Tanya slipped your panties in his pocket and left.'
	set tanznak = 3
	set tanga = 0
	set nude = 1
	set tanya += 5
	act 'Further': gt 'fit','razd'
	exit
	end


if begsec = 0: act 'Join section running': gt 'fit','1'

if begsec > 0 and razdtumbler = 1 and sport > 0: act 'Go to section': gt 'beg','start'
if begsec > 0 and razdtumbler = 1 and sport > 0 and beg >= 20 and week = 6: act '<B>Competitions on the run</B>': gt 'beg1','start'

	act 'Take a shower (0:15)':
	cla
	*clr
	set minut += 15
	if sweat > -3: set sweat = -3
	set horny += 1
	set hapri = 0
	set mop = 1
	dynamic $showerdin
	'<center><img src="images\pics\dush.jpg"></center>'
	'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
	act 'Get out of the shower': gt 'fit','razd'
	end

	act 'Mirror':
	cla
	set fitMir = 1
	gt 'mirror','start'
	end

	act 'Cabinet':
	cla
	set fitLoker = 1
	gt 'loker','start'
	end

	if razdtumbler = 1 and sport > 0:
		act 'Go to the gym':
		cla
		gt 'fit','raz'
		end

		act 'Go to the dance studio.':
		cla
		gt 'danceclass'
		end
	end

	if razdtumbler = 0 or sport = 0:
		act 'Exit of the locker room':
		cla
		gt 'fit','start'
		end
	end
end

if $ARGS[0] = 'raz':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Fitness Center</font></B></center>'
'<center><img src="images\etogame\fit.jpg"></center>'
'In the fitness center a lot of different programs for the physical development of the organism.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

set razdtumbler = 0
set sportzalrand = rand(0,20)

	act 'Aerobics (Squeegee fat)':
	cla
	*clr
	set minut += 120
	set fat -= 10
	set reakt += RAND(1,3)
	set manna -= 5
	set sweat += 3
	if sportzalrand = 0: gt 'zal','0'
	if sportzalrand = 1: gt 'zal','1'
	if sportzalrand = 2: gt 'zal','2'
	if sportzalrand = 3: gt 'zal','3'
	'<center><img src="images\etogame\fit1.jpg"></center>'
	'You are very vigorously the exercises for the music ebbs fat.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Trenazhorka (in force)':
	cla
	*clr
	set minut += 120
	set stren += RAND(1,3)
	set fat -= 1
	set manna -= 5
	set sweat += 3
	if sportzalrand = 0: gt 'zal','0'
	if sportzalrand = 1: gt 'zal','1'
	if sportzalrand = 2: gt 'zal','2'
	if sportzalrand = 3: gt 'zal','3'
	'<center><img src="images\etogame\fit2.jpg"></center>'
	'Did you do with iron for strength.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Trenazhorka (endurance)':
	cla
	*clr
	set minut += 120
	set vital += RAND(1,3)
	set manna -= 5
	set fat -= 2
	set sweat += 3
	if sportzalrand = 0: gt 'zal','0'
	if sportzalrand = 1: gt 'zal','1'
	if sportzalrand = 2: gt 'zal','2'
	if sportzalrand = 3: gt 'zal','3'
	'<center><img src="images\etogame\fit3.jpg"></center>'
	'Trainers were you doing on the development of endurance.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Tennis testing of protection (skill)':
	cla
	*clr
	set minut += 120
	set agil += RAND(1,3)
	set fat -= 5
	set manna -= 5
	set sweat += 3
	set TenisDef += 1
	if sportzalrand = 0: gt 'zal','0'
	if sportzalrand = 1: gt 'zal','1'
	if sportzalrand = 2: gt 'zal','2'
	if sportzalrand = 3: gt 'zal','3'
	'<center><img src="images\etogame\fit4.jpg"></center>'
	'You do tennis practicing defensive actions.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Tennis working out attacks (velocity)':
	cla
	*clr
	set minut += 120
	set speed += RAND(1,3)
	set manna -= 5
	set fat -= 5
	set sweat += 3
	set TenisAt += 1
	if sportzalrand = 0: gt 'zal','0'
	if sportzalrand = 1: gt 'zal','1'
	if sportzalrand = 2: gt 'zal','2'
	if sportzalrand = 3: gt 'zal','3'
	'<center><img src="images\etogame\fit4.jpg"></center>'
	'You do practicing tennis attacking actions.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Section kickboxing': gt 'fit','kik'

end



if $ARGS[0] = 'kik':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Kickboxing Section</font></B></center>'
'<center><img src="images\etogame\kik.jpg"></center>'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
gs 'razrKik'
	act 'Testing jabs on pear':
	cla
	*clr
	set minut += 120
	set speed += RAND(1,3)
	set manna -= 5
	set fat -= 4
	set sweat += 3
	set Jab += RAND(1,3)
	'<center><img src="images\etogame\kik1.jpg"></center>'
	'You practiced on pear jab, straight punches with long step forward. These strikes are not so powerful as the police, but they are faster.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Testing power beats on a pear':
	cla
	*clr
	set minut += 120
	set stren += RAND(1,3)
	set manna -= 5
	set fat -= 4
	set sweat += 3
	set Punch += RAND(1,3)
	'<center><img src="images\etogame\kik1.jpg"></center>'
	'You practiced on pear powerful force capable of hitting an opponent shake. These impacts are powerful, but they are hard to get.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Testing of kicks':
	cla
	*clr
	set minut += 120
	set stren += RAND(1,3)
	set manna -= 5
	set fat -= 4
	set sweat += 3
	set Kik += RAND(1,3)
	'<center><img src="images\etogame\kik1.jpg"></center>'
	'You practiced on pear powerful kicks able to cut down an opponent. These impacts are powerful, but are very difficult to hit.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Testing of protection':
	cla
	*clr
	set minut += 120
	set agil += RAND(1,3)
	set manna -= 5
	set fat -= 4
	set sweat += 3
	set KikDef += RAND(1,3)
	'<center><img src="images\etogame\kik1.jpg"></center>'
	'You practiced defense movements.'
	act 'Leave': gt 'fit','razd'
	end

	act 'Sparing (training bout in the ring)':
	cla
	*clr
	set round = 0
	'You need to choose a rival for sparring'
		act 'Rival':
		set minut += 120
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set strenV = RAND(10,20)
		set speedV = RAND(10,20)
		set agilV = RAND(10,20)
		set reactV = RAND(10,20)
		set vitalV = RAND(10,20)
		set intelV = 10
		set willV = 10
		!Навыки
		set JabV = RAND(5,20)
		set PunchV = RAND(5,20)
		set KikV = RAND(5,20)
		set KikDefV = RAND(5,20)
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set $nameV = 'Sparring partner'
		set formula = 3
		set sparing = 1
		gt 'kikbox','start'
		end

	end

	if week >= 5:
	'You can spend an amateur fight.'
		act 'Amateur fight':
		set round = 0
		set minut += 120
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set razrand = RAND(0,1)
			if razradKik + razrand = 0:
			set strenV = RAND(10,20)
			set speedV = RAND(10,20)
			set agilV = RAND(10,20)
			set reactV = RAND(10,20)
			set vitalV = RAND(10,20)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(10,30)
			set PunchV = RAND(10,30)
			set KikV = RAND(10,30)
			set KikDefV = RAND(10,30)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival without discharge'
			set formula = 3
			set amateur = 1
			end

			if razradKik + razrand = 1:
			set strenV = RAND(15,25)
			set speedV = RAND(15,25)
			set agilV = RAND(15,25)
			set reactV = RAND(15,25)
			set vitalV = RAND(15,25)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(15,35)
			set PunchV = RAND(15,35)
			set KikV = RAND(15,35)
			set KikDefV = RAND(15,35)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival c third discharge'
			set formula = 3
			set amateur = 1
			end

			if razradKik + razrand = 2:
			set strenV = RAND(20,30)
			set speedV = RAND(20,30)
			set agilV = RAND(20,30)
			set reactV = RAND(20,30)
			set vitalV = RAND(20,30)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(30,50)
			set PunchV = RAND(30,50)
			set KikV = RAND(30,50)
			set KikDefV = RAND(30,50)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival co second discharge'
			set formula = 3
			set amateur = 1
			end

			if razradKik + razrand = 3:
			set strenV = RAND(30,40)
			set speedV = RAND(30,40)
			set agilV = RAND(30,40)
			set reactV = RAND(30,40)
			set vitalV = RAND(30,40)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(40,60)
			set PunchV = RAND(40,60)
			set KikV = RAND(40,60)
			set KikDefV = RAND(40,60)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival c first discharge'
			set formula = 3
			set amateur = 1
			end

			if razradKik + razrand = 4:
			set strenV = RAND(40,60)
			set speedV = RAND(40,60)
			set agilV = RAND(40,60)
			set reactV = RAND(40,60)
			set vitalV = RAND(40,60)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(60,80)
			set PunchV = RAND(60,80)
			set KikV = RAND(60,80)
			set KikDefV = RAND(60,80)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival CCM'
			set formula = 3
			set amateur = 1
			end

			if razradKik + razrand >= 5:
			set strenV = RAND(60,100)
			set speedV = RAND(60,100)
			set agilV = RAND(60,100)
			set reactV = RAND(60,100)
			set vitalV = RAND(60,100)
			set intelV = 10
			set willV = 10
			!Навыки
			set JabV = RAND(80,110)
			set PunchV = RAND(80,110)
			set KikV = RAND(80,110)
			set KikDefV = RAND(80,110)
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Rival MS'
			set formula = 3
			set amateur = 1
			end
		gt 'kikbox','start'
		end
	end

end

if $ARGS[0] = '1':
cla
*clr
set minut += 5
Set begsec = 1
'You signed up for the run section'
act 'Leave': gt 'fit','razd'
end
--- fit ---------------------------------

# fitgirl
$dintaniastart = {
if dom > 10:
	act 'Molest':
	cla
	*clr
	set tanday = day
	gs 'stat'
	'<center><img src="images\img\centr\razd1.jpg"></center>'
	'You walk up to a girl and vskhvativ one hand on the buttock deploy to face him'
		if vnesh < 20:
		'Girl puts you off, and shouting something about you and all your other relative, out of the locker room'
		act '...': gt 'fit','razd'
		end

		if vnesh >= 20:
		'Girl vskhvatila your hand squeezing her ass, but stopped for a moment considering you, she probably expected to see a guy or girl does.'
			act 'Take advantage of the confusion':
			cla
			*clr
			gs 'stat'
			'<center><img src="images\img\centr\razd2.jpg"></center>'
			'While she was trying to understand what is happening you pulled up her shirt and began to fondle her nipples tongue, and now her hand stroking your buttocks'
			act 'Further': set tanznak = 1 & gt 'lezbsex','start'
			end

			act 'Wait for her reaction':
			cls
			gs 'stat'
				if vnesh < 30:
				'Girl smiling at you, but removes your hand and leaves, sending you a kiss.'
				act '...': gt 'fit','razd'
				end
				if vnesh >= 30:
				cla
				*clr
				'<center><img src="images\img\centr\razd3.jpg"></center>'
				'The girl pressed to you even stronger and kisses your lips.'
					act 'Further':
					set tanznak = 1
					gt 'lezbsex','start'
					end
				end
			end
		end
	end
end
}

gs 'stat'

'Girl notices your look and smile turns. Girl undressing and taking toiletries goes into the shower.'
act 'Turn': gt 'fit','razd'

act 'Walk-in shower behind a girl':
cls
set minut += 15
if sweat > -3: set sweat = -3
set horny += 1
set hapri = 0
set mop = 1
dynamic $showerdin
shovertania += 1
'<center><img src="images\pics\dush.jpg"></center>'
gs 'stat'
'Logged-in shower. There´s no one, except this girl. The girl looked around and see you smile again turned away.'
dynamic $dintaniastart
act 'Out of the shower': gt 'fit','razd'
end
--- fitgirl ---------------------------------

# foto
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Studio</font></B></center>'
'<center><img src="images\etogame\foto.jpg"></center>'
'In the deserted studio, only photographer sits under the light of a desk lamp, and that is doing on the computer.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if pfilmNO = 1:
'You´re blacklisted, you no decent studio will not have affairs, goodbye.'
act 'Leave': gt 'down'
exit
end
	if model > 0 and modelmon = month:
	'This month, for you will no longer work.'
	if pornstudio = 0:
		Set pornstudio = 2 & 'Here, take a business card. Casting pornoaktriss.'
		end
	end

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	if parkblackmail = 2:
	act 'Look around for a blackmailer': gt 'foto','blackm'
	end

	if model = 0 and parkblackmail<>2:
		act 'Ask about work Centerfolds':
		cla
		set minut += 5
			if vidage < 20:
				if skin < 2:
				'Girl, your acne on the face Centerfolds do nothing.'
				else
				'Hmm, undress, I look at you.'
				act 'Undress': gt 'foto','model'
				end
			end
			if vidage >= 20:
			'You asked about the work of a model, but the photographer you said "I´m sorry, but you look like a pretty mature woman, we also need young girls." this way you have indicated that you look too old for this business.'
			end
		act 'Leave': gt 'foto','start'
		end
	end

	if model > 0 and modelmon ! month and  venera < 3:
	act 'Ask about work': gt 'foto','model'
	end
end

if $ARGS[0] = 'model':
	cla
	*clr
	if vnesh >= 20:
		'(Photographer) - well, we just need the model. So, wait a second, I´ll see exactly what we need.'
		set minut += 5
		'<center><B><font color = maroon>Photographer</font></B></center>'
		'<center><img src="images\etogame\fotograph.jpg"></center>'
		clr
		gs 'stat'
		if model = 0: set model = 1
		set modelpay = vnesh * 100
		cla
		*clr
		set modelmon = month
		Set forand = RAND(1,7)
		if forand = 1:
			'So, we need a model dressed in stockings and sexy body. Payment <<3*modelpay/2>> hour.'
			act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
				cla
				Set slava += 1
				set minut += 180
				set modelpayfin = 9 * modelpay/2
				set money += modelpayfin
				Set modelfoto += 1
				*clr
				'<center><img src="images\etogame\model1.jpg"></center>'
				'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
				clr
				gs 'stat'
				'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
				act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 2:
			'So, we need a model dressed in some stockings. Photos of breast and genital close-up and general pictures. Payment <<2*modelpay>> hour.'
			act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
				cla
				Set slava += 1
				set minut += 180
				set modelpayfin = 6 * modelpay
				set money += modelpayfin
				Set modelfoto += 1
				*clr
				'<center><img src="images\etogame\model2.jpg"></center>'
				'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
				clr
				gs 'stat'
				'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
				act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 3:
			'So, we need a model dressed in sexy clothing with an open chest. Payment <<3*modelpay/2>> hour.'
			act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
				cla
				Set slava += 1
				set minut += 180
				set modelpayfin = 9 * modelpay/2
				set money += modelpayfin
				Set modelfoto += 1
				*clr
				'<center><img src="images\etogame\model3.jpg"></center>'
				'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
				clr
				gs 'stat'
				'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
				act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 4:
		'So, we need a model completely naked. Photos of breast and genitals, buttocks, all close-up and general pictures. Payment <<2*modelpay>> hour.'
		act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
			cla
			Set slava += 1
			set minut += 180
			set modelpayfin = 6 * modelpay
			set money += modelpayfin
			Set modelfoto += 1
			*clr
			'<center><img src="images\etogame\model4.jpg"></center>'
			'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
			clr
			gs 'stat'
			'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
			act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 5:
		'So, we need a model completely naked, masturbating using dildo. Payment <<5*modelpay/2>> hour.'
		act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
			cla
			Set slava += 1
			set mastr += 1
			set minut += 180
			set modelpayfin = 5 * 3 * modelpay/2
			set money += modelpayfin
			set modelfoto += 1
			*clr
			'<center><img src="images\etogame\model5.jpg"></center>'
			'You undressed and three hours spent taking various poses for a photographer and poking holes in different dildos.'
			clr
			gs 'stat'
			'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
			act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 6:
		'So, we need a model dedicated to lesbian sex with another girl. Payment <<3*modelpay>> hour.'
		act 'I do not fit': gt 'foto','start'
			act 'Agree (3:00)':
			cla
			*clr
			Set slava += 1
			set lesbian += 1
			Set minut += 180
			set modelpayfin = 9 * modelpay
			set money += modelpayfin
			Set modelfoto += 1
			set girl += 1
			*clr
			'<center><img src="images\etogame\model6.jpg"></center>'
			'You undressed and three hours spent taking various poses with another girl before Pictured petting orgasms and lust.'
			clr
			gs 'stat'
			'After three hours of filming photographer gave you <<modelpayfin>> rubles.'
			act 'Change into his clothes': gt 'foto','start'
			end
		end
		if forand = 7:
		'You stripped naked and photographer busily began to examine your naked body.'
		'Photographer examined you and offered you <<modelpay>> per hour filming naked.'
		act 'Leave': gt 'foto','start'
			act 'Agree (3:00)':
			cla
			*clr
			set minut += 180
			set modelpayfin = 3 * modelpay
			set money += modelpayfin
			set modelfoto += 1
			'<center><img src="images\etogame\fotograph.jpg"></center>'
			'Photographer said what poses you should take, you are trying to fully implement his instructions and took the most candid poses horny females.'
			'You filmed naked 3:00 and earned <<modelpayfin>> rubles.'
			act 'Leave': gt 'foto','start'
			end
		end
	else
		'Photographer examined you. "I´m afraid you do not come to us."'
		act 'Leave': gt 'foto','start'
	end
end

if $ARGS[0] = 'blackm':
*clr
gs 'stat'
if parkblackmail = 2:
'My name is Victor appears not familiar to you man. I pay good money to students that I have supplied new actresses. So you have to work you invested in money.'
	act 'What do you want?':
	cla
	'Nothing special <<$имя>>. Just to let you do what you like - he nodded at the pictures.'
		act 'Fucked in front of the camera?':
		cla
		'Victor smiled. -Well, yes. It´s not difficult. You continued to sit dumbfounded. Today, a lot of time is required. Come, I have everything ready and waiting for you already. -Today? - You are quite confused, but Victor nodded, and his face became rigid. You looked at the pictures and stood up. Steel toe cotton.'
			act 'Go into the room':
			cla
			'On the back of a chair hung candid lingerie and white shirt. Apparently, all of this meant to you. You dressed up and sat on the edge of the bed. At this time, two men entered the room - blond and pretty inflated to look slender brunette. -So, well, a simple scenario. - Ordered Victor, coming with his camera in the room. Girl undressing. Poraskovanney and do not delay. And then you know all the boys. And for the girls will surprise - and he winked ugly guys. You put on the bed and told to undress. Hands do not listen, but after a couple of blond poking you decided not to resist. Took off his shirt, undid the bra, and then the guys have already taken matters into their own hands. He literally ripped from you and bra and panties and fell into bed. No foreplay in was not in sight. Blond put you on all fours and abruptly entered, you have not even had time to be excited. It hurt, but he fucked sharply, sweeping and clutched his chest hurt. Second, too undressed and decided to give you in the mouth. Slender brunette has given you a good slap in the face, tears gushed from his eyes themselves.'
				act 'Open mouth':
				cla
				clr
				Set throat += 1
				Set guy += 2
				Set sex += 1
				Set bj += 1
				Set gang += 1
				Set cumlip += 1
				set swallow += 1
				$nameV = 'Blond'
				pose = 1
				dick = 18
				'<center><img src="images\pics2\studia.jpg"></center>'
				'You have opened my mouth, and he shoved his cock, long and thick. You began to choke, but it literally you sit down, holding his head. They fuck you together, and walked beside Victor, no longer hiding and shooting, shoot, shoot. In his hand was a lovely big camcorder.'
				gs 'orgazm','start'
				' They finished together. Blonde poured everything you into the uterus. Brunette forced to swallow everything. You fell onto the bed.'
					act 'Begin to cry':
					cla
					*clr
					'You fell onto the bed and wept. Not bad, tears always look very cool, - said Victor pressing pause. Thus, <<$имя>> tempted, and boys can enjoy.'
						act 'In the shower':
						cla
						'Did you go to the shower and went to the set. There you have been waiting for. Suck on, grabbing you by the hand, pulled the blonde to her and went into her mouth. Black, meanwhile, began to stroke your ass. Why such a weasel - thought you nasazhivayas Penis blond. And then he realized where. Brunette finger began entering the hole and before you came, what he wants.'
							act 'No!':
							cla
							Set sex += 1
							Set bj += 1
							Set throat += 1
							Set anal += 1
							Set cumass += 1
							Set cumlip += 1
							set cumface += 1
							'<center><img src="images\pics2\studia2.jpg"></center>'
							'You shouted No! Do not yell, good soundproofing here. And your ass is still fuck, so do not twitch and relax. - Already two fingers brunette were you. You sobbing again sucking blonde. Three fingers. At that moment, when giving your mouth quickened and was ready to cum, brunette perched member of your rings and abruptly entered. You yelled again, but the blonde quickly plugged your mouth sperm bryzhzhuschim member and roaring "Swallow, swallow, bitch" - planted itself. When he finally finished, black hair pinned you to the bed all over and started to fuck in the ass. It was just crazy sick - without lubrication, but he did not finish, then pulling out entirely, then abruptly entering again, just ripping you. Finally, you feel like it is speeding up, and you poured semen into the rectum. Nothing worse and you could not imagine.'
								act 'Substitution':
								cla
								*clr
								Set sex += 1
								Set anal += 1
								Set sex += 1
								Set cumbelly += 1
								Set cumass += 1
								'<center><img src="images\pics2\studia3.jpg"></center>'
								'After showering you already thought that Victor you let go, it turned out that Victor has not yet finished. Fingered you guys again, a little thin dildo fuck. It already seemed just a trifle compared with anal sex. And then you put black hair on his penis and began to fuck, lifting and dropping a little, came back blond hair and tilted you close to your chest brunette. You felt his cock on her ass and realized that they will fuck you in both holes. The second term is slowly coming into you, and you feel like they rub through the thin partition, you have just used as a whore. They fuck you two about half an hour.'
								$nameV = 'Brunet'
								pose = 1
								dick = 18
								gs 'orgazm','start'
								Set parkblackmail = 4
								Set studiaday = 7
								'I´ll call you when you said you still need Viktor goodbye.'
								act 'Leave': gt 'Down'
								end
							end
						end
					end
				end
			end
		end
	end
end
end
--- foto ---------------------------------

# lab
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Laboratory Karina</font></B></center>'
'<center><img src="images\qwest\lab.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	act 'Train with Juugo':
	cla
	gt 'lab','jugo'
	end

	act 'Train with Karin':
	cla
	gt 'lab','karin'
	end

	if judosparday ! day:
		act 'Sparring (Juugo, mutant power 600)':
		cla
		set judosparday = day
		set $nameV = 'Juugo'
		!Статы
		set strenV = 600
		set speedV = 60
		set agilV = 60
		set reactV = 50
		set vitalV = 200
		set intelV = 50
		set willV = 50
		!Навыки
		set magikV = 100
		set boxingV = 100
		set shootV = 100
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 10 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 0
		set jugoFight = 2
		gt 'fight','start'
		end
	end

	if karinsparday ! day:
		act 'Sparring (Karin mag6)':
		cla
		set karinsparday = day
		set $nameV = 'Karin'
		!Статы
		set strenV = 60
		set speedV = 100
		set agilV = 100
		set reactV = 60
		set vitalV = 100
		set intelV = 100
		set willV = 100
		!Навыки
		set magikV = 100
		set boxingV = 100
		set shootV = 100
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 6 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 4
		set karinFight = 1
		gt 'fight','start'
		end
	end
end

if $ARGS[0] = 'jugo':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Juugo</font></B></center>'
'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
'Juugo sitting on floor and looking aloof kudato in space.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': gt 'lab','start'

	if jugoday ! day:
		act 'Develop strength (1:00)':
		cla
		set stren += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Reach speeds (1:00)':
		cla
		set speed += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop agility (1:00)':
		cla
		set agil += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop reaction (1:00)':
		cla
		set react += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop endurance (1:00)':
		cla
		set vital += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

	end

end

if $ARGS[0] = 'karin':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Karina</font></B></center>'
'<center><img src="images\picPRE\karinPRE.jpg"></center>'
'Karyn as always studying something.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': gt 'lab','start'
	act 'I´m too fat and do not want to get fat.':
	cla
	'(You) - Karin, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
	'(Karin) - Ugh, that´s the same ponavylazyat downs of pussy, and then I vozis with them. Dick with you, take it. Just remember, this spell forever, you´ll be able to just come and change the waist and thighs, and since boobs are made of fat, I only supreme mercy 1st size you do, a little, shoved silicone. And the decision to reverse is or whether silicone doll or live as a man, I raskoldovyvat you will not. Since you have more fat will not be absorbed and body parameters are kept magically, marvel not at the post of dystrophy and not marvel that force will fall faster from malnutrition, you will no longer internal reserves.'
		act 'No no no, I changed my mind. Will continue smarter.': gt 'lab','karin'
		act 'I would want that waist was ...':
		cla
		set dounspell = 1
		set TaliaDoun = input ("Waist in inches?")
			if TaliaDoun <= 0: set TaliaDoun = 20
			act 'I would want that thighs ...':
			cla
			set bedraDoun = input ("Hips in inches?")
				if bedraDoun <= 0: set bedraDoun = 40
				act 'Enjoy your stupidity.': gt 'lab','karin'
			end
		end
	end

	if IvanPodstavaQW = 2 and poverKAR = 0 and softKAR = 0:
		act 'Ask for help with Ivan Karin':
		cla
		gs 'stat'
		'You explained the situation and asked her to Karin assistance. Karin said thoughtfully. "I do not think there is any physical evidence of the guilt of Ivan. Necessary is achieved recognition. I think it would be possible to capture and interrogate. Or drink his cunning truth serum and interrogate. Anyway it is necessary to remove it all on video."'
			act 'Military solution':
			cls
			poverKAR = 1
			gs 'stat'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'You have decided to achieve recognition Ivan force. Karin told you. You go to the apartment of Ivan. There vstretishsya with Juugo. It will help resolve the issue. Just see if he will go to the second level of the press, he was distraught. At the second level of the press he turns into a monster.'
			act 'QUIT': gt 'lab','karin'
			end

			act 'Tricky decision':
			cls
			softKAR = 1
			gs 'stat'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'You have decided to achieve recognition Ivan cunning. Karin told you. You go to the apartment of Ivan. There we meet with you and obtyapaem owners.'
			act 'QUIT': gt 'lab','karin'
			end

		end

	end

	if poverKAR = 2:
		act 'Approach to Karin about attacks apartments Ivan':
		cla
		poverKAR = 3
		'You came to Karin and she sighed. "Yes, failed. Juugo caught a bullet in his head and his strength went up to the next level, it has cured, made almost invulnerable, but finally deprived of his mind. Juugo not only gained recognition for Ivan, and not just kill him, he blew part of the entrance his attack. But there are pluses. Cops think it was a gas explosion. But now you have to either pay the debt or goes to jail. "'
		act 'QUIT': gt 'lab','karin'
		end
	end


	if karinday ! day:
		act 'Develop intelligence (1:00)':
		cla
		set intel += RAND(3,6)
		set minut += 60
		set karinday = day
		'Did you do with Karin developing his intellect.'
		act 'QUIT': gt 'lab','karin'
		end

		act 'Will develop (1:00)':
		cla
		set will += RAND(3,6)
		set minut += 60
		set karinday = day
		'Did you do with Karin developing his intellect.'
		act 'QUIT': gt 'lab','karin'
		end

	end

	if spelltuman = 0 and magik >= 1:
		act 'Learn technique fog (1:00)':
		cla
		set minut += 60
		set spelltuman = 1
		'You learned the technique call fog in battle.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellklon = 0 and magik >= 1:
		act 'Learn technique protection cloning (1:00)':
		cla
		set minut += 60
		set spellklon = 1
		'You learned the technique of substitution clone themselves in battle.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellstun = 0 and magik >= 2:
		act 'Learn technique paralysis (1:00)':
		cla
		set minut += 60
		set spellstun = 1
		'You learned the technique of paralyzing the enemy.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellwind = 0 and magik >= 2:
		act 'Learn mist blowing (1:00)':
		cla
		set minut += 60
		set spellwind = 1
		'You learned the technique of blowing mist.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellklon2 = 0 and magik >= 2:
		act 'Learn triple cloning (1:00)':
		cla
		set minut += 60
		set spellklon2 = 1
		'You learned the technique Troynova cloning.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellenergo = 0 and magik >= 3:
		act 'Learn energoschit (1:00)':
		cla
		set minut += 60
		set spellenergo = 1
		'You learned the technique energoschita.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellinit = 0 and magik >= 3:
		act 'Learn technique deceleration time (1:00)':
		cla
		set minut += 60
		set spellinit = 1
		'You learned the technique of time dilation.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 4 and spellhel = 0:
	!'With this level of magic I can not teach you anymore.'
		act 'Learn the technique of treatment (1:00)':
		cla
		set minut += 60
		set spellhel = 1
		'You learned the technique of treatment.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 5 and spellavtoklon = 0:
		act 'Learn technique avtoklonirovaniya (1:00)':
		cla
		set minut += 60
		set spellavtoklon = 1
		'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 6 and spellbefshild = 0:
		act 'Learn technique prior Shield (1:00)':
		cla
		set minut += 60
		set spellbefshild = 1
		'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
		act 'QUIT': gt 'lab','karin'
		end
	end
end
--- lab ---------------------------------

# NewCloShop
$shmotmag = {
	!WD: Allow view even if has no funds
	cla

	if newclo[i] ! 0:
		MSG 'You already own these clothes.'
		GOTO $loc, $metka
	end

	VIEW 'images\clothes\newclo\<<i>>.jpg'

	act 'Return item':
		VIEW
		GOTO $loc, $metka
	end

	if money >= 3000:
		act 'Buy':
			money     -= 3000
			newclo[i]  = 1
			newcloH[i] = 60
			newcloB[i] = bedra
			VIEW
			GOTO $loc, $metka
		end
	end

	act 'Leave':
		mag    = 0
		minut += 15
		VIEW
		gt 'down'
	end
}

$metka  = $ARGS[0]
$loc    = $CURLOC
$metkaM = $ARGS[0]
$locM   = $CURLOC
mag     = 1
'<center><B><font color = maroon>Shop "Fashionista"</font></B></center>'
clr
VIEW
gs 'stat'
fcolor  = rgb(0,0,0)
bcolor  = rgb(255,255,255)
LCOLOR  = rgb(106,90,205)


act 'Leave':
	mag    = 0
	minut += 15
	VIEW
	gt 'down'
end

if hour >= 9 and hour <= 21:
	'<center><B>All clothing for 3000 rubles</font></B></center>'
	'<table><tr>
<a href="exec:set i = 1 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\1.jpg" height="120" /></div></a>    <a href="exec:set i = 2 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\2.jpg" height="120" /></div></a>    <a href="exec:set i = 3 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\3.jpg" height="120" /></div></a>    <a href="exec:set i = 4 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\4.jpg" height="120" /></div></a>    <a href="exec:set i = 5 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\5.jpg" height="120" /></div></a>    <a href="exec:set i = 6 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\6.jpg" height="120" /></div></a>    <a href="exec:set i = 7 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\7.jpg" height="120" /></div></a>    <a href="exec:set i = 8 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\8.jpg" height="120" /></div></a>    <a href="exec:set i = 9 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\9.jpg" height="120" /></div></a>    <a href="exec:set i = 10 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\10.jpg" height="120" /></div></a>  <a href="exec:set i = 11 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\11.jpg" height="120" /></div></a>  <a href="exec:set i = 12 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\12.jpg" height="120" /></div></a>  <a href="exec:set i = 13 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\13.jpg" height="120" /></div></a>  <a href="exec:set i = 14 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\14.jpg" height="120" /></div></a>  <a href="exec:set i = 15 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\15.jpg" height="120" /></div></a>  <a href="exec:set i = 16 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\16.jpg" height="120" /></div></a>  <a href="exec:set i = 17 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\17.jpg" height="120" /></div></a>  <a href="exec:set i = 18 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\18.jpg" height="120" /></div></a>  <a href="exec:set i = 19 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\19.jpg" height="120" /></div></a>  <a href="exec:set i = 20 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\20.jpg" height="120" /></div></a>  <a href="exec:set i = 21 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\21.jpg" height="120" /></div></a>  <a href="exec:set i = 22 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\22.jpg" height="120" /></div></a>  <a href="exec:set i = 23 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\23.jpg" height="120" /></div></a>  <a href="exec:set i = 24 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\24.jpg" height="120" /></div></a>  <a href="exec:set i = 25 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\25.jpg" height="120" /></div></a>  <a href="exec:set i = 26 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\26.jpg" height="120" /></div></a>  <a href="exec:set i = 27 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\27.jpg" height="120" /></div></a>  <a href="exec:set i = 28 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\28.jpg" height="120" /></div></a>  <a href="exec:set i = 29 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\29.jpg" height="120" /></div></a>  <a href="exec:set i = 30 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\30.jpg" height="120" /></div></a>  <a href="exec:set i = 31 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\31.jpg" height="120" /></div></a>  <a href="exec:set i = 32 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\32.jpg" height="120" /></div></a>  <a href="exec:set i = 33 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\33.jpg" height="120" /></div></a>  <a href="exec:set i = 34 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\34.jpg" height="120" /></div></a>  <a href="exec:set i = 35 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\35.jpg" height="120" /></div></a>  <a href="exec:set i = 36 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\36.jpg" height="120" /></div></a>  <a href="exec:set i = 37 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\37.jpg" height="120" /></div></a>  <a href="exec:set i = 38 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\38.jpg" height="120" /></div></a>  <a href="exec:set i = 39 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\39.jpg" height="120" /></div></a>  <a href="exec:set i = 40 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\40.jpg" height="120" /></div></a>  <a href="exec:set i = 41 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\41.jpg" height="120" /></div></a>  <a href="exec:set i = 42 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\42.jpg" height="120" /></div></a>  <a href="exec:set i = 43 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\43.jpg" height="120" /></div></a>  <a href="exec:set i = 44 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\44.jpg" height="120" /></div></a>  <a href="exec:set i = 45 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\45.jpg" height="120" /></div></a>  <a href="exec:set i = 46 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\46.jpg" height="120" /></div></a>  <a href="exec:set i = 47 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\47.jpg" height="120" /></div></a>  <a href="exec:set i = 48 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\48.jpg" height="120" /></div></a>  <a href="exec:set i = 49 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\49.jpg" height="120" /></div></a>  <a href="exec:set i = 50 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\50.jpg" height="120" /></div></a>  <a href="exec:set i = 51 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\51.jpg" height="120" /></div></a>  <a href="exec:set i = 52 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\52.jpg" height="120" /></div></a>  <a href="exec:set i = 53 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\53.jpg" height="120" /></div></a>  <a href="exec:set i = 54 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\54.jpg" height="120" /></div></a>  <a href="exec:set i = 55 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\55.jpg" height="120" /></div></a>  <a href="exec:set i = 56 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\56.jpg" height="120" /></div></a>  <a href="exec:set i = 57 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\57.jpg" height="120" /></div></a>  <a href="exec:set i = 58 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\58.jpg" height="120" /></div></a>  <a href="exec:set i = 59 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\59.jpg" height="120" /></div></a>  <a href="exec:set i = 60 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\60.jpg" height="120" /></div></a>  <a href="exec:set i = 61 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\61.jpg" height="120" /></div></a>  <a href="exec:set i = 62 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\62.jpg" height="120" /></div></a>  <a href="exec:set i = 63 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\63.jpg" height="120" /></div></a>  <a href="exec:set i = 64 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\64.jpg" height="120" /></div></a>  <a href="exec:set i = 65 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\65.jpg" height="120" /></div></a>  <a href="exec:set i = 66 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\66.jpg" height="120" /></div></a>  <a href="exec:set i = 67 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\67.jpg" height="120" /></div></a>  <a href="exec:set i = 68 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\68.jpg" height="120" /></div></a>  <a href="exec:set i = 69 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\69.jpg" height="120" /></div></a>  <a href="exec:set i = 70 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\70.jpg" height="120" /></div></a>  <a href="exec:set i = 71 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\71.jpg" height="120" /></div></a>  <a href="exec:set i = 72 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\72.jpg" height="120" /></div></a>  <a href="exec:set i = 73 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\73.jpg" height="120" /></div></a>  <a href="exec:set i = 74 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\74.jpg" height="120" /></div></a>  <a href="exec:set i = 75 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\75.jpg" height="120" /></div></a>  <a href="exec:set i = 76 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\76.jpg" height="120" /></div></a>  <a href="exec:set i = 77 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\77.jpg" height="120" /></div></a>  <a href="exec:set i = 78 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\78.jpg" height="120" /></div></a>  <a href="exec:set i = 79 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\79.jpg" height="120" /></div></a>  <a href="exec:set i = 80 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\80.jpg" height="120" /></div></a>  <a href="exec:set i = 81 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\81.jpg" height="120" /></div></a>  <a href="exec:set i = 82 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\82.jpg" height="120" /></div></a>  <a href="exec:set i = 83 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\83.jpg" height="120" /></div></a>  <a href="exec:set i = 84 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\84.jpg" height="120" /></div></a>  <a href="exec:set i = 85 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\85.jpg" height="120" /></div></a>  <a href="exec:set i = 86 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\86.jpg" height="120" /></div></a>  <a href="exec:set i = 87 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\87.jpg" height="120" /></div></a>  <a href="exec:set i = 88 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\88.jpg" height="120" /></div></a>  <a href="exec:set i = 89 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\89.jpg" height="120" /></div></a>  <a href="exec:set i = 90 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\90.jpg" height="120" /></div></a>  <a href="exec:set i = 91 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\91.jpg" height="120" /></div></a>  <a href="exec:set i = 92 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\92.jpg" height="120" /></div></a>  <a href="exec:set i = 93 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\93.jpg" height="120" /></div></a>  <a href="exec:set i = 94 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\94.jpg" height="120" /></div></a>  <a href="exec:set i = 95 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\95.jpg" height="120" /></div></a>  <a href="exec:set i = 96 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\96.jpg" height="120" /></div></a>  <a href="exec:set i = 97 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\97.jpg" height="120" /></div></a>  <a href="exec:set i = 98 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\98.jpg" height="120" /></div></a>  <a href="exec:set i = 99 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\99.jpg" height="120" /></div></a>  <a href="exec:set i = 100 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\100.jpg" height="120" /></div></a>    <a href="exec:set i = 101 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\101.jpg" height="120" /></div></a>    <a href="exec:set i = 102 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\102.jpg" height="120" /></div></a>    <a href="exec:set i = 103 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\103.jpg" height="120" /></div></a>    <a href="exec:set i = 104 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\104.jpg" height="120" /></div></a>    <a href="exec:set i = 105 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\105.jpg" height="120" /></div></a>    <a href="exec:set i = 106 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\106.jpg" height="120" /></div></a>    <a href="exec:set i = 107 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\107.jpg" height="120" /></div></a>    <a href="exec:set i = 108 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\108.jpg" height="120" /></div></a>    <a href="exec:set i = 109 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\109.jpg" height="120" /></div></a>    <a href="exec:set i = 110 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\110.jpg" height="120" /></div></a>    <a href="exec:set i = 111 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\111.jpg" height="120" /></div></a>    <a href="exec:set i = 112 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\112.jpg" height="120" /></div></a>    <a href="exec:set i = 113 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\113.jpg" height="120" /></div></a>    <a href="exec:set i = 114 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\114.jpg" height="120" /></div></a>    <a href="exec:set i = 115 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\115.jpg" height="120" /></div></a>    <a href="exec:set i = 116 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\116.jpg" height="120" /></div></a>    <a href="exec:set i = 117 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\117.jpg" height="120" /></div></a>    <a href="exec:set i = 118 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\118.jpg" height="120" /></div></a>    <a href="exec:set i = 119 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\119.jpg" height="120" /></div></a>    <a href="exec:set i = 120 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\120.jpg" height="120" /></div></a>    <a href="exec:set i = 121 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\121.jpg" height="120" /></div></a>    <a href="exec:set i = 122 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\122.jpg" height="120" /></div></a>    <a href="exec:set i = 123 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\123.jpg" height="120" /></div></a>    <a href="exec:set i = 124 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\124.jpg" height="120" /></div></a>    <a href="exec:set i = 125 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\125.jpg" height="120" /></div></a>    <a href="exec:set i = 126 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\126.jpg" height="120" /></div></a>    <a href="exec:set i = 127 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\127.jpg" height="120" /></div></a>    <a href="exec:set i = 128 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\128.jpg" height="120" /></div></a>    <a href="exec:set i = 129 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\129.jpg" height="120" /></div></a>    <a href="exec:set i = 130 & dynamic $shmotmag"><div style="width:100%; max-width:100px; max-height:120px;"><img src="images\clothes\newclo\130.jpg" height="120" /></div></a>
</tr></table>'


!{
	<a href="exec:set i = 1 & dynamic $shmotmag"><img src="images\clothes\newclo\1.jpg" width="100"</a>    <a href="exec:set i = 2 & VIEW ''images\clothes\newclo\2.jpg''&dynamic $shmotmag">Option2</a>   <a href="exec:set i = 3 & VIEW ''images\clothes\newclo\3.jpg''&dynamic $shmotmag">Option3</a>   <a href="exec:set i = 4 & VIEW ''images\clothes\newclo\4.jpg''&dynamic $shmotmag">Option4</a>   <a href="exec:set i = 5 & VIEW ''images\clothes\newclo\5.jpg''&dynamic $shmotmag">Option5</a>   <a href="exec:set i = 6 & VIEW ''images\clothes\newclo\6.jpg''&dynamic $shmotmag">Option6</a>   <a href="exec:set i = 7 & VIEW ''images\clothes\newclo\7.jpg''&dynamic $shmotmag">Option7</a>   <a href="exec:set i = 8 & VIEW ''images\clothes\newclo\8.jpg''&dynamic $shmotmag">Option8</a>
	<a href="exec:set i = 9 & VIEW ''images\clothes\newclo\9.jpg''&dynamic $shmotmag">Option9</a>   <a href="exec:set i = 10 & VIEW ''images\clothes\newclo\10.jpg''&dynamic $shmotmag">Option10</a>    <a href="exec:set i = 11 & VIEW ''images\clothes\newclo\11.jpg''&dynamic $shmotmag">Option11</a>    <a href="exec:set i = 12 & VIEW ''images\clothes\newclo\12.jpg''&dynamic $shmotmag">Option12</a>    <a href="exec:set i = 13 & VIEW ''images\clothes\newclo\13.jpg''&dynamic $shmotmag">Option13</a>    <a href="exec:set i = 14 & VIEW ''images\clothes\newclo\14.jpg''&dynamic $shmotmag">Option14</a>    <a href="exec:set i = 15 & VIEW ''images\clothes\newclo\15.jpg''&dynamic $shmotmag">Option15</a>    <a href="exec:set i = 16 & VIEW ''images\clothes\newclo\16.jpg''&dynamic $shmotmag">Option16</a>
	<a href="exec:set i = 17 & VIEW ''images\clothes\newclo\17.jpg''&dynamic $shmotmag">Option17</a>    <a href="exec:set i = 18 & VIEW ''images\clothes\newclo\18.jpg''&dynamic $shmotmag">Option18</a>    <a href="exec:set i = 19 & VIEW ''images\clothes\newclo\19.jpg''&dynamic $shmotmag">Option19</a>    <a href="exec:set i = 20 & VIEW ''images\clothes\newclo\20.jpg''&dynamic $shmotmag">Option20</a>    <a href="exec:set i = 21 & VIEW ''images\clothes\newclo\21.jpg''&dynamic $shmotmag">Option21</a>    <a href="exec:set i = 22 & VIEW ''images\clothes\newclo\22.jpg''&dynamic $shmotmag">Option22</a>    <a href="exec:set i = 23 & VIEW ''images\clothes\newclo\23.jpg''&dynamic $shmotmag">Option23</a>    <a href="exec:set i = 24 & VIEW ''images\clothes\newclo\24.jpg''&dynamic $shmotmag">Option24</a>
	<a href="exec:set i = 25 & VIEW ''images\clothes\newclo\25.jpg''&dynamic $shmotmag">Option25</a>    <a href="exec:set i = 26 & VIEW ''images\clothes\newclo\26.jpg''&dynamic $shmotmag">Option26</a>    <a href="exec:set i = 27 & VIEW ''images\clothes\newclo\27.jpg''&dynamic $shmotmag">Option27</a>    <a href="exec:set i = 28 & VIEW ''images\clothes\newclo\28.jpg''&dynamic $shmotmag">Option28</a>    <a href="exec:set i = 29 & VIEW ''images\clothes\newclo\29.jpg''&dynamic $shmotmag">Option29</a>    <a href="exec:set i = 30 & VIEW ''images\clothes\newclo\30.jpg''&dynamic $shmotmag">Option30</a>    <a href="exec:set i = 31 & VIEW ''images\clothes\newclo\31.jpg''&dynamic $shmotmag">Option31</a>    <a href="exec:set i = 32 & VIEW ''images\clothes\newclo\32.jpg''&dynamic $shmotmag">Option32</a>
	<a href="exec:set i = 33 & VIEW ''images\clothes\newclo\33.jpg''&dynamic $shmotmag">Option33</a>    <a href="exec:set i = 34 & VIEW ''images\clothes\newclo\34.jpg''&dynamic $shmotmag">Option34</a>    <a href="exec:set i = 35 & VIEW ''images\clothes\newclo\35.jpg''&dynamic $shmotmag">Option35</a>    <a href="exec:set i = 36 & VIEW ''images\clothes\newclo\36.jpg''&dynamic $shmotmag">Option36</a>    <a href="exec:set i = 37 & VIEW ''images\clothes\newclo\37.jpg''&dynamic $shmotmag">Option37</a>    <a href="exec:set i = 38 & VIEW ''images\clothes\newclo\38.jpg''&dynamic $shmotmag">Option38</a>    <a href="exec:set i = 39 & VIEW ''images\clothes\newclo\39.jpg''&dynamic $shmotmag">Option39</a>    <a href="exec:set i = 40 & VIEW ''images\clothes\newclo\40.jpg''&dynamic $shmotmag">Option40</a>
	<a href="exec:set i = 41 & VIEW ''images\clothes\newclo\41.jpg''&dynamic $shmotmag">Option41</a>    <a href="exec:set i = 42 & VIEW ''images\clothes\newclo\42.jpg''&dynamic $shmotmag">Option42</a>    <a href="exec:set i = 43 & VIEW ''images\clothes\newclo\43.jpg''&dynamic $shmotmag">Option43</a>    <a href="exec:set i = 44 & VIEW ''images\clothes\newclo\44.jpg''&dynamic $shmotmag">Option44</a>    <a href="exec:set i = 45 & VIEW ''images\clothes\newclo\45.jpg''&dynamic $shmotmag">Option45</a>    <a href="exec:set i = 46 & VIEW ''images\clothes\newclo\46.jpg''&dynamic $shmotmag">Option46</a>    <a href="exec:set i = 47 & VIEW ''images\clothes\newclo\47.jpg''&dynamic $shmotmag">Option47</a>    <a href="exec:set i = 48 & VIEW ''images\clothes\newclo\48.jpg''&dynamic $shmotmag">Option48</a>
	<a href="exec:set i = 49 & VIEW ''images\clothes\newclo\49.jpg''&dynamic $shmotmag">Option49</a>    <a href="exec:set i = 50 & VIEW ''images\clothes\newclo\50.jpg''&dynamic $shmotmag">Option50</a>    <a href="exec:set i = 51 & VIEW ''images\clothes\newclo\51.jpg''&dynamic $shmotmag">Option51</a>    <a href="exec:set i = 52 & VIEW ''images\clothes\newclo\52.jpg''&dynamic $shmotmag">Option52</a>    <a href="exec:set i = 53 & VIEW ''images\clothes\newclo\53.jpg''&dynamic $shmotmag">Option53</a>    <a href="exec:set i = 54 & VIEW ''images\clothes\newclo\54.jpg''&dynamic $shmotmag">Option54</a>    <a href="exec:set i = 55 & VIEW ''images\clothes\newclo\55.jpg''&dynamic $shmotmag">Option55</a>    <a href="exec:set i = 56 & VIEW ''images\clothes\newclo\56.jpg''&dynamic $shmotmag">Option56</a>
	<a href="exec:set i = 57 & VIEW ''images\clothes\newclo\57.jpg''&dynamic $shmotmag">Option57</a>    <a href="exec:set i = 58 & VIEW ''images\clothes\newclo\58.jpg''&dynamic $shmotmag">Option58</a>    <a href="exec:set i = 59 & VIEW ''images\clothes\newclo\59.jpg''&dynamic $shmotmag">Option59</a>    <a href="exec:set i = 60 & VIEW ''images\clothes\newclo\60.jpg''&dynamic $shmotmag">Option60</a>    <a href="exec:set i = 61 & VIEW ''images\clothes\newclo\61.jpg''&dynamic $shmotmag">Option61</a>    <a href="exec:set i = 62 & VIEW ''images\clothes\newclo\62.jpg''&dynamic $shmotmag">Option62</a>    <a href="exec:set i = 63 & VIEW ''images\clothes\newclo\63.jpg''&dynamic $shmotmag">Option63</a>    <a href="exec:set i = 64 & VIEW ''images\clothes\newclo\64.jpg''&dynamic $shmotmag">Option64</a>
	<a href="exec:set i = 65 & VIEW ''images\clothes\newclo\65.jpg''&dynamic $shmotmag">Option65</a>    <a href="exec:set i = 66 & VIEW ''images\clothes\newclo\66.jpg''&dynamic $shmotmag">Option66</a>    <a href="exec:set i = 67 & VIEW ''images\clothes\newclo\67.jpg''&dynamic $shmotmag">Option67</a>    <a href="exec:set i = 68 & VIEW ''images\clothes\newclo\68.jpg''&dynamic $shmotmag">Option68</a>    <a href="exec:set i = 69 & VIEW ''images\clothes\newclo\69.jpg''&dynamic $shmotmag">Option69</a>    <a href="exec:set i = 70 & VIEW ''images\clothes\newclo\70.jpg''&dynamic $shmotmag">Option70</a>    <a href="exec:set i = 71 & VIEW ''images\clothes\newclo\71.jpg''&dynamic $shmotmag">Option71</a>    <a href="exec:set i = 72 & VIEW ''images\clothes\newclo\72.jpg''&dynamic $shmotmag">Option72</a>
	<a href="exec:set i = 73 & VIEW ''images\clothes\newclo\73.jpg''&dynamic $shmotmag">Option73</a>    <a href="exec:set i = 74 & VIEW ''images\clothes\newclo\74.jpg''&dynamic $shmotmag">Option74</a>    <a href="exec:set i = 75 & VIEW ''images\clothes\newclo\75.jpg''&dynamic $shmotmag">Option75</a>    <a href="exec:set i = 76 & VIEW ''images\clothes\newclo\76.jpg''&dynamic $shmotmag">Option76</a>    <a href="exec:set i = 77 & VIEW ''images\clothes\newclo\77.jpg''&dynamic $shmotmag">Option77</a>    <a href="exec:set i = 78 & VIEW ''images\clothes\newclo\78.jpg''&dynamic $shmotmag">Option78</a>    <a href="exec:set i = 79 & VIEW ''images\clothes\newclo\79.jpg''&dynamic $shmotmag">Option79</a>    <a href="exec:set i = 80 & VIEW ''images\clothes\newclo\80.jpg''&dynamic $shmotmag">Option80</a>
	<a href="exec:set i = 81 & VIEW ''images\clothes\newclo\81.jpg''&dynamic $shmotmag">Option81</a>    <a href="exec:set i = 82 & VIEW ''images\clothes\newclo\82.jpg''&dynamic $shmotmag">Option82</a>    <a href="exec:set i = 83 & VIEW ''images\clothes\newclo\83.jpg''&dynamic $shmotmag">Option83</a>    <a href="exec:set i = 84 & VIEW ''images\clothes\newclo\84.jpg''&dynamic $shmotmag">Option84</a>    <a href="exec:set i = 85 & VIEW ''images\clothes\newclo\85.jpg''&dynamic $shmotmag">Option85</a>    <a href="exec:set i = 86 & VIEW ''images\clothes\newclo\86.jpg''&dynamic $shmotmag">Option86</a>    <a href="exec:set i = 87 & VIEW ''images\clothes\newclo\87.jpg''&dynamic $shmotmag">Option87</a>    <a href="exec:set i = 88 & VIEW ''images\clothes\newclo\88.jpg''&dynamic $shmotmag">Option88</a>
	<a href="exec:set i = 89 & VIEW ''images\clothes\newclo\89.jpg''&dynamic $shmotmag">Option89</a>    <a href="exec:set i = 90 & VIEW ''images\clothes\newclo\90.jpg''&dynamic $shmotmag">Option90</a>    <a href="exec:set i = 91 & VIEW ''images\clothes\newclo\91.jpg''&dynamic $shmotmag">Option91</a>    <a href="exec:set i = 92 & VIEW ''images\clothes\newclo\92.jpg''&dynamic $shmotmag">Option92</a>    <a href="exec:set i = 93 & VIEW ''images\clothes\newclo\93.jpg''&dynamic $shmotmag">Option93</a>    <a href="exec:set i = 94 & VIEW ''images\clothes\newclo\94.jpg''&dynamic $shmotmag">Option94</a>    <a href="exec:set i = 95 & VIEW ''images\clothes\newclo\95.jpg''&dynamic $shmotmag">Option95</a>    <a href="exec:set i = 96 & VIEW ''images\clothes\newclo\96.jpg''&dynamic $shmotmag">Option96</a>
	<a href="exec:set i = 97 & VIEW ''images\clothes\newclo\97.jpg''&dynamic $shmotmag">Option97</a>    <a href="exec:set i = 98 & VIEW ''images\clothes\newclo\98.jpg''&dynamic $shmotmag">Option98</a>    <a href="exec:set i = 99 & VIEW ''images\clothes\newclo\99.jpg''&dynamic $shmotmag">Option99</a>    <a href="exec:set i = 100 & VIEW ''images\clothes\newclo\100.jpg''&dynamic $shmotmag">Option100</a> <a href="exec:set i = 101 & VIEW ''images\clothes\newclo\101.jpg''&dynamic $shmotmag">Option101</a> <a href="exec:set i = 102 & VIEW ''images\clothes\newclo\102.jpg''&dynamic $shmotmag">Option102</a> <a href="exec:set i = 103 & VIEW ''images\clothes\newclo\103.jpg''&dynamic $shmotmag">Option103</a> <a href="exec:set i = 104 & VIEW ''images\clothes\newclo\104.jpg''&dynamic $shmotmag">Option104</a>
	<a href="exec:set i = 105 & VIEW ''images\clothes\newclo\105.jpg''&dynamic $shmotmag">Option105</a> <a href="exec:set i = 106 & VIEW ''images\clothes\newclo\106.jpg''&dynamic $shmotmag">Option106</a> <a href="exec:set i = 107 & VIEW ''images\clothes\newclo\107.jpg''&dynamic $shmotmag">Option107</a> <a href="exec:set i = 108 & VIEW ''images\clothes\newclo\108.jpg''&dynamic $shmotmag">Option108</a> <a href="exec:set i = 109 & VIEW ''images\clothes\newclo\109.jpg''&dynamic $shmotmag">Option109</a> <a href="exec:set i = 110 & VIEW ''images\clothes\newclo\110.jpg''&dynamic $shmotmag">Option110</a> <a href="exec:set i = 111 & VIEW ''images\clothes\newclo\111.jpg''&dynamic $shmotmag">Option111</a> <a href="exec:set i = 112 & VIEW ''images\clothes\newclo\112.jpg''&dynamic $shmotmag">Option112</a>
	<a href="exec:set i = 113 & VIEW ''images\clothes\newclo\113.jpg''&dynamic $shmotmag">Option113</a> <a href="exec:set i = 114 & VIEW ''images\clothes\newclo\114.jpg''&dynamic $shmotmag">Option114</a> <a href="exec:set i = 115 & VIEW ''images\clothes\newclo\115.jpg''&dynamic $shmotmag">Option115</a> <a href="exec:set i = 116 & VIEW ''images\clothes\newclo\116.jpg''&dynamic $shmotmag">Option116</a> <a href="exec:set i = 117 & VIEW ''images\clothes\newclo\117.jpg''&dynamic $shmotmag">Option117</a> <a href="exec:set i = 118 & VIEW ''images\clothes\newclo\118.jpg''&dynamic $shmotmag">Option118</a> <a href="exec:set i = 119 & VIEW ''images\clothes\newclo\119.jpg''&dynamic $shmotmag">Option119</a> <a href="exec:set i = 120 & VIEW ''images\clothes\newclo\120.jpg''&dynamic $shmotmag">Option120</a>
	<a href="exec:set i = 121 & VIEW ''images\clothes\newclo\121.jpg''&dynamic $shmotmag">Option121</a> <a href="exec:set i = 122 & VIEW ''images\clothes\newclo\122.jpg''&dynamic $shmotmag">Option122</a> <a href="exec:set i = 123 & VIEW ''images\clothes\newclo\123.jpg''&dynamic $shmotmag">Option123</a> <a href="exec:set i = 124 & VIEW ''images\clothes\newclo\124.jpg''&dynamic $shmotmag">Option124</a> <a href="exec:set i = 125 & VIEW ''images\clothes\newclo\125.jpg''&dynamic $shmotmag">Option125</a> <a href="exec:set i = 126 & VIEW ''images\clothes\newclo\126.jpg''&dynamic $shmotmag">Option126</a> <a href="exec:set i = 127 & VIEW ''images\clothes\newclo\127.jpg''&dynamic $shmotmag">Option127</a> <a href="exec:set i = 128 & VIEW ''images\clothes\newclo\128.jpg''&dynamic $shmotmag">Option128</a>
	<a href="exec:set i = 129 & VIEW ''images\clothes\newclo\129.jpg''&dynamic $shmotmag">Option129</a> <a href="exec:set i = 130 & VIEW ''images\clothes\newclo\130.jpg''&dynamic $shmotmag">Option130</a>
}
end
--- NewCloShop ---------------------------------

# office
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Office of Engineering companies</font></B></center>'
	'<center><img src="images\etogame\office.jpg"></center>'

	if workSec = 0: 'Requirements: diploma proving you passed a secretary certification course.'
	if workSec = 0: 'Schedule: 9am to 5pm, Monday to Friday.'
	if workSec = 0: 'Salary: 800 rubles/day, deposited to your bank account on the 25th of the month'
	if workSec = 0: 'Dress code: ust come to work in office clothes.'

	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	if secrDiplom = 1 and work = 0 and workSec = 0:
		act 'Interview for a job':
			cla
			set minut += 60
			'You''ve come to the personnel department, and after taking a look at your diploma and resume they offered you a job as secretary.'

			act 'Refuse': gt 'office','start'

			act 'Take the job':
				cla
				set work = 1
				set workSec = 1
				set sekDay = 0
				'You took the work book and said that you could go to work the next business day.'

				act 'Leave': gt 'office','start'
			end
		end
	end

	if hour >= 9 and hour < 17 and workSec >= 1: 'You''re late for work and you were sent home.'
	if workSec >= 1 and ofclo = 0 and hour >= 9 and hour < 17: 'You are not dressed according to the corporate dress code.'
	if hour < 9 and workSec >= 1 and ofclo = 1:
		act 'Go to work':
			set sekDay += 1
			set hour = 9
			set minut = 0
			gt 'office','work'
		end
	end

	if worksec = 1:
		act 'Resign':
			cla
			set minut += 30
			set work = 0
			set workSec = 0
			'You quit and you don''t get any money for the last month.'

			act 'QUIT': gt 'down'
		end
	end

	act 'QUIT': gt 'down'
end

if $ARGS[0] = 'work':
	gs 'stat'
	cla
	*clr
	'<center><B><font color = maroon>your workplace</font></B></center>'
	'<center><img src="images\etogame\sekr.jpg"></center>'
	'You sat down at your desk.'
	if fidayoffice = 0:
		set fidayoffice = 1
		'The  girl at the neighboring table smiled at you: "Hi, I am <<$name>>, and what is your name?"'
		'"<<$name>>," you answered.'
		'"What, however, it is likely that they would not be confused, all the secretaries name is <<$name>>, to you here she worked also called Saint." she laughed.'
		'"Yeah, it''s that-be boss new names do not remember." you add.'
		'"Well and good laugh enough, come to work, and now the boss will come and we will arrange for the laugh at work." she said and began to disassemble the paper on the table.'
	end

	if fidayoffice = 1: '<<$name>> as always you were buried up to your nose in papers.'

	if hour < 17:
		act 'Work':
			set minut += 60
			cla
			'You print documents, email, and bring your boss coffee.'
			set officerand = RAND(0,15)

			if officerand > 8 and svetslut = 0: gt 'office','<<$name>>'
			if officerand > 8 and svetslut = 2: gt 'office','boss1'
			if officerand > 8 and officelezb > 5 and officekom ! 1: gt 'office','komer0'
			if officerand = 10 and officekom = 1: gt 'office','komer1'
			if officebestslut >= 3 and officerand = 11: gt 'office','motiv1'
			if officebestslut >= 3 and officerand = 12: gt 'office','motiv2'
			if officebestslut >= 3 and officerand = 13: gt 'office','motiv3'
			if officerand = 9 and officeslut > 5:
				cla
				*clr
				'<center><img src="images\img\office\m0.jpg"></center>'
				'You work somewhere zapropastilas <<$name>>, chef left. In the study includes one of the managers, "Hi Svetsik, can you help me?"'

				act 'How can I help?':
					cla
					*clr
					'<center><img src="images\img\office\m1.jpg"></center>'
					'"How can I help?" you ask.'
					'"I was told you are great at relieving stress." With these words, he went right up to you and removed his already standing member from his pants. You caught his head and began to move up to his penis.'

					act 'Take by mouth':
						set picrand     = 54
						set officeslut += 1
						set guy        += 1
						gt 'sex','minet'
					end

					if officeslut < 10:
						act 'Send him packing': gt 'office','work'
					end
				end
			end

			if officerand = 8 and officeslut > 5:
				cla
				*clr
				'<center><img src="images\img\office\m2.jpg"></center>'
				'You work somewhere zapropastilas <<$name>>, chef and left as an evil broke konditseoner. You get too hot and you rastegivat couple top buttons of her blouse, so now your breasts almost falling out of her. In the study includes one of the managers, "Hi Svetsik, chef at home?".'
				'"No, I left." you answer and dive back into the paper.'
				'"It''s hot here, you." he says slowly approaching you and neotvodya look on your chest that and tries to jump out of blouses.'

				act 'Yes':
					cla
					*clr
					'<center><img src="images\img\office\m3.jpg"></center>'
					'"Yes, damn air conditioner broke down again," you reply, without looking up.'
					'"Oh I see, you''re just weak." he begins, and suddenly cut short, turns you to itself and you jerked her blouse, well at least not the buttons scattered around, and just jumped out of the loop, bites his lips to your breast, and with all the passion starts to fondle her. You cann''t even first understand what is happening, but that is starting to like you opredelleno.'

					act 'Surrender':
						set picrand     = 55
						set officeslut += 1
						set guy        += 1
						gt 'sex','minet'
					end

					if officeslut < 10:
						act 'Banish it': gt 'office','work'
					end
				end
			end

			if officerand = 7 and officeslut > 5:
				cla
				*clr
				'<center><img src="images\img\office\m4.jpg"></center>'
				'You should make copies of the documents, and you went to the archive where there was a huge copier. While you copied, came into the office one of the managers, and began to search among stelozhey with folders, you do not pay any attention to him and continued to do their work. A minute later, you felt his hand on my ass. "She asks, tell the truth that you have the best ass and you''re always ready to prove it?" he said, and without waiting for your answer, he continued, "Now I will test it." With these words, his hands slid under your clothes.'

				act 'Let him':
					cla
					*clr
					set officeslut += 1
					'<center><img src="images\img\office\m5.jpg"></center>'
					'You said nothing turned to him and kissed her, he began to undress you, and in a minute you were naked to the waist, and he hugged you with one hand, and the second full massaging your pussy. Your hand automatically reached for his pants and pulled out yet fully risen member and began to masturbate.'
					'"That''s clever, and now also, but mouth," he said.'

					act 'Squatted':
						cla
						*clr
						'<center><img src="images\img\office\m6.jpg"></center>'
						'You squatted down and took his penis in her mouth, he was still sluggish and you easily absorbed it all, moved his mouth taking it in one cheek, then another, soon you will feel as he began to grow in your mouth and is now placed only his third. You selflessly sucked when the office door opened and a girl came marketer, she froze on the threshold of seeing you.'
						'"Oh, sorry, I just do not think" she said, and turned to the door.'
						'"C''mon you Masha, it has not prevented from doing what she wanted, and you can even join" he said.'
						'"No, no thank you, I will not be long." she said and went to the shelves.'
						'You keep doing blowjob not paying attention to her. A few minutes later she graduated and because vydya shelvings start watching you. Then she took the phone and started to shoot you, commenting on the record. "Here is our secretary <<$name>> sucks dick, she izvesna around the office as faultless davalka look with pleasure how she does it. Svetsik let myself masturbate, something would have been clearly seen that you like it." You''re running a hand between her legs and began to actively play their clitoris. You damn excited that she takes you, and you are beginning to show the camera the entire process, releasing member of his mouth and licking it from the base to the head, then again taking in the mouth and with a contented purr sweetly suck it. She turned to the guy, "She will suck and let''s fuck her already, and I''ll post all gifts, and then send out around the office, let them look at our hos capable, and you try to come on, we''ll make excellent reputation whore that -would you release from the men was not, as you like when you fuck all. " With these words, she went to the corner and stopped, continuing to shoot.'
						'"Now fuck, let pososet little more, it''s so like that even do not want to interrupt."'

						act 'Continue':
							set picrand     = 56
							set officeslut += 3
							set guy        += 1
							gt 'sex','minet'
						end
					end

					if officeslut < 10:
						act 'Banish it': gt 'office','work'
					end
				end

				if officeslut < 10:
					act 'Leave': gt 'office','work'
				end
			end

			if officerand = 6 and officeslut > 5:
				cla
				*clr
				'<center><img src="images\img\office\m8.jpg"></center>'
				'You work somewhere zapropastilas <<$name>>, chef left. In the study includes one of the managers, "Hi Svetsik, chef at home?".'
				'"No, I left." you answer and dive back into the paper.'
				'"Why are you so tense, I''ll let massazhik do." he says, and not waiting for an answer comes behind you and starts massaging your shoulders. This really helps you relax in a chair, close your eyes and enjoy, yet strong hands massaging your shoulders.'
				'"Well liked?" His voice brought you back to earth'

				act 'Yes':
					cla
					*clr
					'<center><img src="images\img\office\m9.jpg"></center>'
					'"Yes, very much, thank you," you reply without opening his eyes.'
					'"Well thank you, it''s too much, but mutual aid will be just right." he says.'
					'"What do you mean?" you started, but opened his eyes immediately realized what he was saying. In front of your eyes was standing member, you yourself do not understand how the hand and pulled him vskhvatila mouth, and the mouth is slightly parted ready to take it dildo. "What am I doing?" flashed through your mind. "Apparently I was so used to be given to this office, it is already at the level of reflexes. So take or not to take, that is the question."'

					act 'Mark':
						set picrand     = 57
						set officeslut += 1
						set guy        += 1
						gt 'sex','minet'
					end

					if officeslut < 10:
						act 'Banish it': gt 'office','work'
					end
				end
			end

			if officerand = 5 and officeslut > 5:
				cla
				*clr
				'<center><img src="images\img\office\m10.jpg"></center>'
				'You work somewhere zapropastilas <<$name>>, chef left and you re-freezes the computer. Swearing you call your sysadmin and ask him to come. In the study included a sysadmin and looking at computer govoit that he take it now and tomorrow will bring. "What am I going to do tomorrow, come here now and correct." you started.'
				'"Well, no, it''s long, I have other work for many more, although we can agree and then I will fix it for you now," he says'
				'"And how do we agree?" you ask.'
				'"Well, you''re the girl that in itself is not operational, everyone knows how you can negotiate." he says.'

				act 'And how do':
					cla
					*clr
					'<center><img src="images\img\office\m11.jpg"></center>'
					'"Yes, very simply," he says, and respond quickly pulls out his cock.'
					'While you''re standing in a stupor pridamat trying to say, he pushes you in a chair and vskhvativ hair attracts her dildo. Once you open your mouth something to say something, as he immediately volzovalsya this and pushed his penis in your mouth.'

					act 'Suck':
						set picrand     = 58
						set officeslut += 1
						set guy        += 1
						gt 'sex','minet'
					end

					if officeslut < 10:
						act 'Bite':
							cla
							'You squeeze teeth, he screamed and pulls his dick out of your mouth and say "Bitch!" runs out of the office. You kick the computer out of anger and lo and behold, he is running again.'

							act 'Back to work': gt 'office','work'
						end
					end
				end
			end

			if officerand = 0 and officeslut > 20 and officebestslut < 1:
				cla
				*clr
				set officebestslut = 1
				set officeslut    += 1
				set gang          += 1
				set guy           += 4
				'<center><img src="images\img\office\g3.jpg"></center>'
				'In office boss runs, and immediately begins to tell you, "Well, then the <<$name>>, in the conference room now sit four of our largest shareholder, I was a little nakosyachil and now I need some time to prepare the documents which your task is now to go to them and make sure that -would be for them this hour goes as well, something they would not even remember me. Well, you''re a smart girl, the whole office is fucked, so fuck four more, and I will appoint you to a position in accordance with your talents. Let''s run Sammy''s ass, let them fuck your ass today, and not mine. All run. " You got up and headed to the conferenc room, on the road thinking about what position he spoke, and what kind of talent you are, but to fuck with everyone. Entering the room you viditechetveryh men, clearly not in the best mood. "Well, I now have the same otebut" flashed in your head, but to be out late, you yourself made the reputation of the office whore. You push the skirt bares his chest and calmly climbs on the table in front of them. "Lord for your contribution to the development naschego business today you are given a present from the company, you can not only watch but also to touch wherever you like and paste it wherever you want and desire." do not believe what you do, you just close your eyes prepare for what is now holes on your living space will not leave.'

				act 'Start':
					set picrand = 17
					gt 'paysex','var'
				end
			end

			act 'Finish': gt 'office','work'
		end

		act 'In the principal''s office': gt 'office','boss'
		act 'Corridor': gt 'office','kor'

		act 'Chat with <<$name>>':
			cla
			set minut += 30
			set officerand = RAND(0,10)
			if officeslut > 0 and officerand > 8: gt 'office','negr'
			set officebolt = rand(0,3)
			if officebolt = 0: '"Can you imagine, say, our bookkeeper at corporate which has 40, stuck to one of the managers trying to get him into office. He barely escaped." - Raskazala <<$name>>.'
			if officebolt = 1: '"Imagine, in one corporate party so I typed that danced a striptease on the table at all, then I was so ashamed, all went finger poked, I even wanted to resign, but changed her mind, boss gave me even a premium, I said that office decoration, and if the rest of the finger poke, so this is what the show is nothing to them. " - Raskazala <<$name>>.'
			if officebolt = 2: '"We had one girl, so she marketer at regular gatherings drunk and fell asleep in the common room, and woke up naked and covered in semen, around 20 prezikov used pieces lying around, I do not know how many people raped her there, but it two days later for Labour came vraskoryachku and could not sit down. " - Raskazala <<$name>>.'
			if officebolt = 3: '"Imagine, in one corporate party our sysadmin drunk and fell asleep in the toilet, so marketers girls opened his warehouse and typing older keyboards and there are boards that strapped it all to him with tape, turned knight in armor, so we all office in the morning the toilet waiting when he wakes up, he went out and only then realized that something strapped to it.''s laughter that was. " - Raskazala <<$name>>.'

			act 'Finish': gt 'office','work'
		end

		if svetslut = 1:
			act '<<$name>> to ask about her relationship with the boss':
				cla
				set minut   += 30
				set svetslut = 2
				'"<<$name>> and what is your relationship with the boss?" you asked.'
				'"What has sang that <<$name>> slut barefoot sleeping?" she snapped.'
				'"No, no one spoke, I just opened the door and you are on Kolyanom with by a dick in your mouth." you answered in the same tone.'
				'"Come on do not be mad, I thought again, dear colleagues tongue to dissolve. And I with my boss so perepihnemsya in office and run away, he underpaid me for it, if you are about it." said <<$name>>'
				'"No, I was just asking." told you.'
				'"You I''m sorry that I said, just thinking that they are again forgotten what he once unsatisfied." said <<$name>>.'
				'"And why do it again?" you asked.'
				'"Yes they are already started poking fingers, and I''m just going to leave, well, took to complete the whole month. So their boss month, all" fuck "without vazilina, when I came back, so they''ll all so kind and gentle Svetochka want it, want it, hypocrisy. " she replied.'
				'"A wife that he does not?" you asked'
				'"And who knows, I''ve never seen it, well, probably does not, then when I''m back from vacation, he gave me two days out of the office almost did not issue, I took a day off after a whole day in the bathroom provolyalas not believe this walk almost could not sit down and do not say anything about, I did not close ass week. So here so unsatisfied vyebet boss or secretary, or all. And I like to be a secretary, I''m lonely, healthy, young girl and also want sex, that''s just more than a month on vacation do not go, I remember, so sit the patient becomes. " she laughed.'
				'There came into the office one of the managers with a pile of papers and you have to interrupt your conversation.'

				act 'Finish': gt 'office','work'
			end
		end

		if svetslut = 3:
			act 'Ask about sex in the office with you.':
				cla
				set minut   += 30
				set svetslut = 4
				'Waiting when the boss is not at home, you have decided to ask Amy about the incident in the office of the chief.'
				'"Well, it was, as you know, I''ll be back in a minute with the tea?" you asked'
				'"Well I''m sorry I could not help it when you''re out he started kissing me, and I turned on if I did not stop. I was once in the metro began groping someone, so I''m still trying his hands with clean themselves in the crush was so excited that he gave right there in the car, in front of everyone, I was so ashamed, I still do not go on the subway. Chief really wanted to stop, but I said you were not going to chat and still know the entire office. " said <<$name>>.'
				'"Are you really can not stay?" you asked.'
				'"Well, not quite so, I have a threshold, but it is very low. I honestly when you see these things with tea very much like what would you now, but if it is absolutely honest, I could not stop but continued especially something to you Seeing and now. " she said.'

				act 'Say it like you':
					cla
					*clr
					set officelezb = 1
					'<center><img src="images\img\office\s2.jpg"></center>'
					'"Well, actually, I like you too, but only you, but he is not, so I left." told you.'
					'"But with this point in detail," said <<$name>>, closing the door with a key and sitting on your desk, "We definitely worth to clarify this issue, so to speak delve into the basics." she continued.'

					act '"Not now"':
						cla
						'"We will investigate this issue with you, but not now, maybe later." you said'
						'"Well, just do not forget me this question very interested" said <<$name>> and opened the door back behind his desk.'

						act 'Back to work': gt 'office','work'
					end

					act 'Raise no objection':
						cla
						*clr
						'<center><img src="images\img\office\s3.jpg"></center>'
						'"The question really needs more careful study." With these words, you got up and threw one knee on the table. <<$name>> immediately floated hands, they slipped through your body and now she unbuttoned on your clothes.'

						act 'Continue':
							cla
							*clr
							set girl    += 1
							set lesbian += 1
							'<center><img src="images\img\office\s4.jpg"></center>'
							'You sat down on the table allowing you to undress her. She undressed you procrastinate, licking on every bare inch of your body, her tongue was just a huge, very long and thick, you even thought about how he placed in her mouth. You are excited to have so many that felt like a puddle beneath you going out of your selections.'

							act 'Let continues':
								cla
								*clr
								set orgasm += 1
								'<center><img src="images\img\office\s5.jpg"></center>'
								'You threw your feet on the table and shirokorazveli knees to the side, giving her maximum access to your pussy. <<$name>> pulled off her panties and began to push them to you in the pussy, you first want to argue, but the feel of silk sliding your pussy like you and deprive you leaned forward, urging her to continue. <<$name>> glared lips you pussy and began to caress your clitoris tongue while medleno pulling panties out of your vagina when they are almost completely vyskozili she began to push back their language, so repeated numberless times. Soon you felt that here now over.'

								act 'Come':
									cla
									'You started to finish and pleasant waves of orgasm enveloped you, when finished <<$name>> pulled out of you her panties stuffed them sede mouth and started to remove medleno literally embroidering of them every drop, "Vkusnyashka, only next time do not be so selfish, and I cease to be friends with you. " she said.'

									act 'Back to work': gt 'office','work'
								end

								act 'Meet each other':
									cla
									*clr
									'<center><img src="images\img\office\s7.jpg"></center>'
									'You stop the light and lay down on the table, waving her tongue between his fingers spread apart. She smiled, realizing what you want and quickly climbed onto the table. You follow her example took her panties and shoved them in her pussy, but your language is not so large and is pushed them into her vagina you did not, then did you do it with your fingers and tongue began treating her clitoris. <<$name>> at this time literally fucked you with his tongue, you create a sense of what''s inside you is not a member of a language, but very nimble and agile. After a couple of minutes you pochuvsvovali as her body began to tremble and she came in a few seconds you have followed suit, and enveloped you orgasm.'

									act 'Back to work': gt 'office','work'
								end
							end

							act 'Lick her':
								cla
								*clr
								'<center><img src="images\img\office\s6.jpg"></center>'
								'You helped <<$name>> lie down on the table and began to fondle her pussy tongue, she took her panties and began to push them into your pussy, you have removed her hand and proceeded to do. You shoved her pussy panties, then pulled them medleno and again thrust, while not ceasing tongue caress her clitoris. After a couple of minutes you pochuvsvovali as her body began to tremble, ready to finish.'

								act 'Let ends':
									cla
									'When she had finished, she said "Just let the next time you give yourself to me to meet, and I do not want vygledet selfish."'

									act 'Back to work': gt 'office','work'
								end

								act 'Meet each other':
									cla
									*clr
									set orgasm += 1
									'<center><img src="images\img\office\s7.jpg"></center>'
									'You stopped and spihnuv <<$name>> from the table, went at it yourself, waving her tongue between his fingers spread apart. She smiled, realizing what you want and quickly climbed onto the table. You took the panties and stuffed them in her pussy, her clitoris prodolzhayaaktivno process language. <<$name>> at this time literally fucked you with his tongue, you create a sense of what''s inside you is not a member of a language, but very nimble and agile. After a couple of minutes you pochuvsvovali as her body began to tremble and she came in a few seconds you have followed suit, and enveloped you orgasm.'

									act 'Back to work': gt 'office','work'
								end
							end
						end

						act 'Not now':
							cla
							'"We will investigate this issue with you, but not now, maybe later." you said'
							'"Well, just do not forget me this question very interested" said <<$name>> and opened the door back behind his desk.'

							act 'Back to work': gt 'office','work'
						end
					end
				end

				act 'Indignant':
					cla
					'"What do you mean, I never would have joined, how do you do this came to mind. All closed the subject and do not start." cut you.'

					act 'Back to work': gt 'office','work'
				end
			end
		end

		if officelezb > 0 or officeslut > 0:
			act 'Pester World':
				cla
				*clr
				set minut      += 30
				set officerand  = RAND(0,10)
				if officeslut > 0 and officerand > 8: gt 'office','dostavka'
				set lesbian    += 1
				set picrand     = 19
				set officelezb += 1
				'<center><img src="images\img\office\s8.jpg"></center>'
				'You climb on the table and legs spread wide are calling <<$name>> "Svetsik you do not help me in an intimate question?".'
				'<<$name>> separates the head from the papers and her face slips smile, "Well, it does not help, be sure to help you.". With these words, she rises from the table and sent to you, simultaneously closing the door.'

				act 'Start': xgt 'lezbsex','var'
			end
		end
	end

	if hour >= 17:
		act 'Leave work': gt 'down'
	end
end


if $ARGS[0] = 'boss':
	cla
	*clr
	set minut     += 15
	set officerand = RAND(0,15)
	if officeslut > 0 and officerand = 10: gt 'office','boss2'
	if officeslut > 0 and officerand = 9: gt 'office','boss3'
	if officeslut > 0 and officerand = 8: gt 'office','boss4'
	if officeslut > 0 and officerand = 7: gt 'office','boss5'
	if officeslut > 0 and officerand = 6: gt 'office','boss6'
	gs 'stat'
	'<center><B><font color = maroon>Account Officer</font></B></center>'
	'<center><img src="images\etogame\boss.jpg"></center>'

	if officebestslut = 1:
		cla
		'"And here you are, well Come on, sit down. Came for the new appointment." he says.'
		'"And what is the position?" ask you, sitting in a chair.'
		'"Yes, actually it is not a position, and additional responsibilities, but with very good additional charge." he says.'
		'"And what do I have to do." you ask.'
		'"Yes soobstvenno nothing new will motivate some employees, and of helping to conclude contracts and delivery of objects." he says.'
		'"And how to motivate" misunderstanding you ask.'
		'"Yes, as usual, is that people get tired, naturally performance drops, deadlines are screwed, and we pay a penalty, but if they just promotivirot that work will be completed in time. Here you''ll motivate them, but as I think you yourself dogadyvaeshs, and I tell them that you will kotrolirovat their work. Well when contracting the same distracting them from a careful reading of the contract, his body. That something like this, all right? " he asks.'
		'"So you want me to become a full-time whore, and how much extra charge?" asked you do not believe in something that is not sent it immediately, but also interested in the price.'
		'"20,000 per month plus a basic salary, as well, do you agree?" he says, his face blurred satisfied smile, as if you have already agreed to.'

		act 'Agree':
			cla
			set officebestslut = 3
			'"Well, I agree." you reply.'
			'"That''s good, well, then going to the city is just one solid client arrived, he is now in a hotel, go to it together. See how you can do it." he said.'

			act 'Go': gt 'office','motiv0'
		end

		act 'Refuse':
			cla
			'"No, thanks, I''m not a prostitute, I fuck for fun, not for money," you reply.'
			'"Well, then fuck for fun, day gi count premium for good work. Predlogat Mind you I do I will not. So how exactly otkazyvaeshs soglasishsya or still?" he says.'

			act 'Agree':
				cla
				set officebestslut = 3
				'"Well, I agree." you reply.'
				'"That''s good, well, then going to the city is just one solid client arrived, he is now in a hotel, go to it together. See how you can do it." he said.'
				act 'Go': gt 'office','motiv0'
			end

			act 'Refuse':
				set officebestslut = 2
				gt 'office','work'
			end
		end
	end

	if officeslut > 0:
		act 'Harassing boss':
			cla
			*clr
			set officeslut += 1
			set picrand = RAND(61,63)
			'<center><img src="images\img\office\b<<picrand>>.jpg "></center>'
			'Seeing that in the study besides the chief one, you close the door with a wink to the <<$name>> she did not let her in, she smiled and makes you wagged his finger and whispered "slut." You are going to the boss on the move getting rid of clothes. Going into the dense you kiss him and say, "I''ve got a chef that it came out, you do not see?" and spreads her legs a little.'
			'"I wonder what happened to my best employee, let''s see," he says.'

			act 'Spread her legs': gt 'sex','kuni'
		end
	end
	act 'Leave the office': gt 'office','work'
end


if $ARGS[0] = 'kor':
	cla
	*clr
	set minut += 5
	gs 'stat'
	'<center><B><font color = maroon>corridor</font></B></center>'
	'<center><img src="images\etogame\office.jpg"></center>'

	if hour < 17:
		act 'To their workplace': gt 'office','work'
		act 'Restroom': gt 'office','kuh'
	end

	if hour >= 17:
		act 'Leave work': gt 'down'
	end
end


if $ARGS[0] = 'kuh':
	cla
	*clr
	set minut += 5
	gs 'stat'
	set officerand = RAND(0,10)
	if officeslut > 8 and officerand > 8: gt 'office','gang'
	if officerand < 2 and officeslut > 5:
		cla
		*clr
		'<center><img src="images\img\office\m12.jpg"></center>'
		'Entering the room you can see the cooler in one of the managers, "Hello <<$name>>, to have a drink some water." seems it does not interest you want to drink or not, it just brings stakanch to your lips, literally forcing you to drink.'

		act 'Drink':
			cla
			*clr
			'<center><img src="images\img\office\m13.jpg"></center>'
			'You have no choice as a drink, you open your mouth and start drinking. His second hand starts to hug your waist. "Well at least not reached under her skirt," you think, but its rather posmetrev smirk realized that rushed to conclusions.'
			'"That''s good girl all drunk, you''re all over this docile?" he said, and without waiting for an answer continued, "I know that obedient, I already blogged about that you are very diligent girl" with these words, his hand went up your spine and shoulder blades reaching, he began to press forward, so that you start to bend.'

			act 'Do not resist':
				cla
				*clr
				set officeslut += 1
				'<center><img src="images\img\office\m14.jpg"></center>'
				'Second hand he unbuttoned his pants and unleashed his already standing member. The first hand has moved from the back of your head and continued to push down putting your mouth on his penis.'
				'"That fellow keep myself" he said as his cock was half you in the WTU and began stroking you on the head, you obediently began to suck his cock odnovremmeno masturbate his hand. In office paruraz someone looked, then you heard the door female giggles, like girls in marketing from the next room all the stops at the door and peeped behind you, soon the door opened a little bit and you began to distinguish the girls faces. First you wanted to stay, but his hand on your head you just pressed harder to the penis. And when the door was already half open and you will clearly see how some girls watched with interest for you, and some with phones in their hands shooting going on, this is your only spurred chustvovat and you like to have your feet your juices flowing. Would you like that, would they all vidili and turned slightly, revealing to them the best review.'

				act 'Continue':
					set picrand     = 59
					set officeslut += 1
					set guy        += 1
					gt 'sex','minet'
				end
			end

			if officeslut < 10:
				act 'Push him away and run': gt 'office','work'
			end
		end
		exit
	end
	'<center><B><font color = maroon>Lounge</font></B></center>'
	'<center><img src="images\etogame\kuh.jpg"></center>'

	if hour < 17:
		act 'Eat':
			set minut     += 30
			set health    += 10
			set manna     += 5
			set willpower += 5

			if energy >= 30:
				set fat += 5
				'You can no longer have.'
			end

			if energy >= 20 and energy < 30:
				set fat += 3
				set energy += 10
				'You pushed through the power of a meal.'
			end

			if energy < 20:
				set energy += 20
				set fat += 1
				'You gladly ate the food.'
			end

			if water >= 20:
				'Tea in you no longer climbs.'
			end

			if water < 20:
				'You gladly drank a mug of tea.'
				set water += 20
			end
		end

		act 'Corridor': gt 'office','kor'
	end

	if hour >= 17:
		act 'Leave work': gt 'down'
	end
end

if $ARGS[0] = '<<$name>>':
	cla
	*clr
	set minut   += 30
	set svetslut = 1
	'<center><img src="images\img\office\s1.jpg"></center>'
	'You brought the documents to the chief for his signature, and <<$name>> had just gone to him, waiting for ten minutes you have decided to place documents. Opening the door you dumbfounded, stood at the head of the table, and <<$name>> makes him a blowjob on her knees and looking at it through the eyes of devotees. You shut the door quietly, "I hope they let me invisible" you thought.'

	act 'Back to work': gt 'office','work'
end


if $ARGS[0] = 'boss1':
	cla
	*clr
	set minut += 30
	'<center><img src="images\img\office\b1.jpg"></center>'
	'Chief invited to the <<$name>> itself, it was not 30 minutes, you have already decided that they''re having fun again, when he called and you went into the office, you will not see anything, <<$name>> sitting on the sofa with a notebook in hand and write down something .'
	'"Come in, sit down." said the boss.'
	'You sat down next to the <<$name>> and he began raskazyvat you that you have to do. Ten minutes later, he looked at you and said, "<<$name>>, bring all three of us a cup of tea, and then we sit here for a long time."'

	act 'Bring tea':
		cla
		*clr
		'<center><img src="images\img\office\b2.jpg"></center>'
		'Returning with tea you froze in the doorway, <<$name>> lay on her side on the couch with her legs spread wide, and the chief lying behind her bored into her pussy with his cock. "This is the room and what it means, because they know that I''ll be right back," you thought.'

		act 'Join':
			cla
			*clr
			set officeslut += 1
			set balls       += 1
			set bj         += 1
			set guy        += 1
			set girl       += 1
			set lesbian    += 1
			'<center><img src="images\img\office\b3.jpg"></center>'
			'You put the tea tray on the sofa and knelt down and start to fondle his scrotum language. Chef takes you behind the head and presses the stronger their balls, quickly realizing that he wants you pull his balls in her mouth and start to chew as he continues to fuck <<$name>>.'

			act 'Continue':
				cla
				*clr
				'<center><img src="images\img\office\b4.jpg"></center>'
				'He pulled his cock out of the <<$name>> and put it to you standing mouth, a couple of seconds of <<$name>> join you and you started to suck his solo dildo.'

				act 'Substitute him pussy':
					cla
					*clr
					set sex += 1
					'<center><img src="images\img\office\b5.jpg"></center>'
					'You get up from the couch doggy style, legs wide apart, head immediately came to you in the vagina, began to fuck her strong sweeping movements. <<$name>> twirled around a bit, sat on the floor between your legs, and her tongue began to caress your clitoris. After a few minutes he took out his cock you with the words "Well now cup your ass Svetsik, mash it up a bit, and then sat up in a chair all day."'

					act 'Doggy-Style':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b7.jpg"></center>'
						'You get up on the couch on all fours sticking her ass, <<$name>> immediately climbs under you and it gets you a huge tongue in pussy. Chef settles behind you and giving first World how to lick dick, you insert it into the anus. When your little ass accustomed to the member within yourself, you have lowered his head and began to indulge <<$name>> language. When the ass it hurt you began to crawl and moan, then he pulled out of you and inserted dildo <<$name>> in the mouth, for lubrication, then got into your anus. Inside you move two, on the one hand a huge Svetin tongue caressed your vagina, the other in the anus with a big dick moving speed boss, these two pistons moving in sync bringing you great pleasure, and a few minutes later you cried from nacrite you orgasm. Feed shlynuvshy of you filled Svetin mouth and removing the dildo head out of your anus sent his <<$name>> in the mouth, your mouth fills her juices gushed out, pouring through her lips and spreading over his face. He again put you in the ass dick increasing the tempo until you writhing in orgasm. Soon his cock swelled and began to throb ready to finish.'

						act 'Finish': gt 'office','boss0'

					end

					act 'Sit on top':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b8.jpg"></center>'
						'You push him on the sofa and seated on top of his cock head priderzhivvaet you hips until you sit down neatly on his anus dildo, <<$name>> waits until his cock in your ass will disappear and knelt launches its huge tongue you pussy. When the ass it hurt you began to crawl and moan, then he lifts you holding the hip and takes a dildo, <<$name>> immediately takes it into his mouth, abundantly lubricating saliva, and then re-directs you in the ass. Inside you move two, on the one hand a huge Svetin tongue caressed your vagina, the other in the anus with a big dick moving speed boss, these two pistons moving in sync bringing you great pleasure, and a few minutes later you cried from nacrite you orgasm. Feed shlynuvshy of you filled Svetin mouth. He builds up the pace until you writhing in orgasm. Soon his cock swelled and began to throb ready to finish.'
						act 'Finish': gt 'office','boss0'
					end

					act 'Lie down on the sofa':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b9.jpg"></center>'
						'You lie on a couch and lift your feet to the top of <<$name>> immediately gets on you substituting his ass to your face, you Spreading her buttocks with his hands and bites tongue in her anus, then massaging it, pushing inward. Chef introduces you to a member of the anus and when your little ass accustomed to the member within himself, he begins to rapidly increase the pace. Soon you can no longer caress Svetin ass but only moan under the pressure member moving with speed trains expression, and gives you pleasure, a few minutes later you cried from nacrite you orgasm. He further accelerated until you squirming in orgasm. Soon his cock swelled and began to throb ready to finish.'

						act 'Finish': gt 'office','boss0'
					end
				end

				act 'Substitute her pussy':
					cla
					*clr
					set orgasm += 1
					'<center><img src="images\img\office\b6.jpg"></center>'
					'You sit down on the couch legs spread wide and beckon <<$name>>, her tongue was very long, you even have the feeling that you have entered into the vagina dick when it launched there own language. Chef also joined up with <<$name>> from behind, penetrating her vagina member, <<$name>> moaned and her tongue penetrated deeper into your pussy, she moved it so deftly that you have a minute later finishing her juices pouring sofa. A few minutes later her boss took out his penis and saying "Well now cup your ass Svetsik, mash it up a bit, and then sat up in a chair all day." looked at you.'

					act 'Doggy-Style':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b7.jpg"></center>'
						'You get up on the couch on all fours sticking her ass, <<$name>> immediately climbs under you and it gets you a huge tongue in pussy. Chef settles behind you and giving first World how to lick dick, you insert it into the anus. When your little ass accustomed to the member within yourself, you have lowered his head and began to indulge <<$name>> language. When the ass it hurt you began to crawl and moan, then he pulled out of you and inserted dildo <<$name>> in the mouth, for lubrication, then got into your anus. Inside you move two, on the one hand a huge Svetin tongue caressed your vagina, the other in the anus with a big dick moving speed boss, these two pistons moving in sync bringing you great pleasure, and a few minutes later you cried from nacrite you orgasm. Feed shlynuvshy of you filled Svetin mouth and removing the dildo head out of your anus sent his <<$name>> in the mouth, your mouth fills her juices gushed out, pouring through her lips and spreading over his face. He again put you in the ass dick increasing the tempo until you writhing in orgasm. Soon his cock swelled and began to throb ready to finish.'

						act 'Finish': gt 'office','boss0'
					end

					act 'Sit on top':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b8.jpg"></center>'
						'You push him on the sofa and seated on top of his cock head priderzhivvaet you hips until you sit down neatly on his anus dildo, <<$name>> waits until his cock in your ass will disappear and knelt launches its huge tongue you pussy. When the ass it hurt you began to crawl and moan, then he lifts you holding the hip and takes a dildo, <<$name>> immediately takes it into his mouth, abundantly lubricating saliva, and then re-directs you in the ass. Inside you move two, on the one hand a huge Svetin tongue caressed your vagina, the other in the anus with a big dick moving speed boss, these two pistons moving in sync bringing you great pleasure, and a few minutes later you cried from nacrite you orgasm. Feed shlynuvshy of you filled Svetin mouth. He builds up the pace until you writhing in orgasm. Soon his cock swelled and began to throb ready to finish.'

						act 'Finish': gt 'office','boss0'
					end

					act 'Lie down on the sofa':
						cla
						*clr
						set anal       += 1
						set orgasm     += 1
						set analorgasm += 1
						'<center><img src="images\img\office\b9.jpg"></center>'
						'You lie on a couch and lift your feet to the top of <<$name>> immediately gets on you substituting his ass to your face, you Spreading her buttocks with his hands and bites tongue in her anus, then massaging it, pushing inward. Chef introduces you to a member of the anus and when your little ass accustomed to the member within himself, he begins to rapidly increase the pace. Soon you can no longer caress Svetin ass but only moan under the pressure member moving with speed trains expression, and gives you pleasure, a few minutes later you cried from nacrite you orgasm. He further accelerated until you squirming in orgasm. Soon his cock swelled and began to throb ready to finish.'

						act 'Finish': gt 'office','boss0'
					end
				end
			end
		end

		act 'Leave tea and exit':
			set svetslut = 3
			gt 'office','work'
		end
	end
end


if $ARGS[0] = 'boss0':
	cla
	*clr
	set cumlip += 1
	'<center><img src="images\img\office\b10.jpg"></center>'
	'Taking out a member of your ass, and you boss gets <<$name>> kneels before his pulsating dildo. <<$name>> jet of sperm flies in the face, she immediately wraps his lips to suck from the rest, but you can only lick the drops from her face.'

	act 'Back to work': gt 'office','work'
end


if $ARGS[0] = 'komer0':
	cla
	*clr
	set officekom = 1
	set girl     += 1
	set lesbian  += 1
	set minut    += 30
	gs 'stat'

	'<center><img src="images\img\office\k0.jpg"></center>'
	'You summoned Commercial Director. You went to the office at the table sat a woman much older than 30, she pointed out to you on a chair, you obediently sat down and waited.'
	'She carefully looked you up and down, and began to say "My name is Natalia, well, are you already know, and you have a new secretary, and how you work with us?"'
	'"Very well, I do not like" you began, but she stopped you gesture.'
	'"Other and you can not say, and the second secretary, I see you work well together." she said, and you just nodded confirming her words. "And how do you her tongue, though gorgeous?" she asked.'

	act 'Marvel':
		cla
		*clr
		'<center><img src="images\img\office\k1.jpg"></center>'
		'"I do not understand what you are saying" you started making a surprised face. You do not even understand how she came to you a second ago she was sitting at the table, and now stood in front of you, holding your chin. Her face was inches from your "Do not lie to me, girl, I can see through you, or do you think that when you are in the office Svetka fuck no one sees or hears me better not soritsya and then crush as cockroach. ponel You got me? " she asked, and you only nodded in response. "Well, now show me that you really ponel" With that, she lifted her skirt and turned to you naked buttocks.'

		act 'Kiss':
			cla
			*clr
			'<center><img src="images\img\office\k2.jpg"></center>'
			'You took her hips and began to kiss the buttocks, with the utmost passion. "That''s clever, I see we work well together, and now finish that start" with these words, she took off her panties and sat on the table.'

			act 'Lick':
				cla
				*clr
				'<center><img src="images\img\office\k4.jpg"></center>'
				'You knelt down and pressed his lips to her pussy, you diligently licking her pussy and clitoris. "Shove inside" she commanded, you immediately put his tongue in her vagina. "Hmm, the tongue is small, but it''s fixable," she said, after these words, you felt something happening to you as something strange, or your tongue began to grow, whether it decreased the vagina, you are actively fucked her tongue and he took out her to the uterus, a few minutes later she finished, removing language and you realize that it does not fit in your mouth. You looked at her with horror on his face, she smiled and began to decrease your tongue back to its normal size.'
				'"All you can go the next time will be a mutual pleasure, I promise." she said. You keep looking at her feeling his tongue, "What udivlyaeshsya Misha, who is really who, and you should not be surprised magic. Okay enough to sit on the floor sheepishly, go to him." With these words, she returned to her desk. You got up and headed for the door, thinking nobody raskazyvat about what happened.'

				act 'Back to work': gt 'office','work'
			end
		end

		act 'Push off':
			cla
			*clr
			'<center><img src="images\img\office\k3.jpg"></center>'
			'You otolknuli her away and jumped to his feet froze, not knowing what''s going on, you pushed her in front of him, now it was not there, and then you vskhvatili strong hands behind your chest and sat back in his chair, looking up you will see it on a . She stood clutching your chest in his hands, "Do not be so rude to me, Misha, I''m angry and I can not, and then you will not maid and ochkom toilet in the station, and will be with me gentle I can give you a feel like a man again. So what to choose, we will be friends or will swallow shit until the end of the century. "'

			act 'Fight':
				set over = 5
				gt 'gameover'
			end

			act 'Ask about the male image.':
				cla
				*clr
				set vagina   += 1
				set officeman = 1
				'<center><img src="images\img\office\k5.jpg"></center>'
				'"You really can make me a man?" you asked.'
				'"I said I can not give you feel like a man again, for a few minutes, and we can have fun." she replied.'
				'"Well what do you want." you answered.'
				'"That''s smart, good girl or a boy, but oh well what''s the difference, you''re not alone and you know who you are. Now listen and remember you''ll do whatever I tell you, and that you''d better-remembered and never thought erepenitsa I will punish you now a little bit. " when she say it like you were on her desk obsolyutno naked. You could not move and say the same could not, she podozhla to you from behind and plunged his fingers into her vagina, inside they began to expand and lengthen and that is within you already wielded enormous tentacles, you tried to scream, but from the open mouth does not take off no sound. Soon she finished and you Stroud slipped from the table and began to dress. "And now back to work, I''ll get you yet." she said.'

				act 'Back to work': gt 'office','work'
			end
		end
	end
end


if $ARGS[0] = 'komer1':
	cla
	*clr
	set minut += 30
	gs 'stat'
	'<center><img src="images\img\office\k6.jpg"></center>'
	'As soon you enter the office as she dug her lips in your. "Well, that girl fun?" she asked.'

	act 'Start':
		set picrand = 20
		xgt 'lezbsex','var'
		end

	if officeman = 1:
		act 'Becoming a Man':
			cla
			*clr
			'<center><img src="images\img\office\k7.jpg"></center>'
			'"You want to fuck me, Come here look what I got," she said, "So you make me a man" you started and then stopped short when he heard a man''s voice, looking at yourself you realize that it has already done, "Well, what metering, come to me, let try your creation to the taste. " she said. You podozhli to her and she quickly taking out your cock, took it into his mouth and began to suck, you stood and enjoyed, not believing that the longer you suck someone''s dick while you suck.'

			act 'Fuck her':
				cla
				*clr
				'<center><img src="images\img\office\k8.jpg"></center>'
				'You pulled the cock from her mouth and lifted her benefits on the table. Inserting your dildo in her pussy fuck you started it with the force will drive a dick in her pussy, Natalia moaned with pleasure, and after a few seconds roughly finished, glaring claws at your back. You continued to fuck her teperyashnim enjoying your position, but soon you feel like something inside of you starts to change and your body moving eventually start again turn into a woman.'

				act 'Come':
					cla
					*clr
					'<center><img src="images\img\office\k9.jpg"></center>'
					'Until you finally turned into a girl, you are dragging down Natalia on the floor and just going to plunge it into his mouth dildo as he starts to cum and streams of sperm pouring on her chest, and a few drops reaches the mouth. When it ends, you re standing in front of her girlish body, and Natalia licks your sperm from his chest. "Here you have soiled, given clean now," she says, and you go down on your knees and begin to lick his own cum from her chest.'

					act 'Back to work': gt 'office','work'
				end
			end
		end
	end
end


if $ARGS[0] = 'dostavka':
	cla
	*clr
	set minut += 30
	gs 'stat'
	'<center><img src="images\img\office\s9.jpg"></center>'
	'Once you have started to have fun as a knock on the door of the cabinet. You barely managed to stop the <<$name>>, and sat her down on a chair to fix it first, and then himself. However, she and Narov continue brakes seen it already ripped and she had ostanavitsya nemogla. You grief half sat her back in the chair and opened the door. The doorbell went courier "Well, you girls are so long, I''m tired of standing. You sign for the parcel."'

	act 'Sign':
		cla
		*clr
		'<center><img src="images\img\office\s10.jpg"></center>'
		'You get up and take the messenger of paper, something to sign, and you notice that the <<$name>> had already jumped from his chair and to right to it, finding tearing off his shirt. "And then you do not get up?" says she came up to him with an already bare-chested and grabs his crotch. You understand that the brakes she finally blew, and the choice you have left is not great.'

		act 'Shoved him':
			cla
			'You get in the papers and sign for them to foist courier pushes him out the door, "Go away, you do not see the girl is not in itself." Closing the door to the <<$name>> you turn around it, has been around completely naked, "Well, come to me, vredina." she says.'

			act 'Start':
				set lesbian    += 1
				set picrand     = 19
				set officelezb += 1
				xgt 'lezbsex','var'
			end
		end

		act 'Close the door':
			cla
			*clr
			set officeslut += 1
			'<center><img src="images\img\office\s11.jpg"></center>'
			'You close the door and see the <<$name>> turning sitting on a table with her legs spread wide, and sits next to the courier and fondles her breasts. Podshodite to him and bent removing his erection out of his pants around his lips, tongue you start to caress the head, sucking it.'

			act 'Continue':
				set picrand  = 26
				set guy     += 1
				set lesbian += 1
				gt 'podrsex','var'
			end
		end
	end
end

if $ARGS[0] = 'negr':
	cla
	*clr
	set minut += 30
	gs 'stat'
	'<center><img src="images\img\office\s12.jpg"></center>'
	'While you were chatting with <<$name>> entered the room your handyman, a huge Negro with a strange name Kas was once told you that it is an abbreviation of his real name, but you could not remember it. He began to check whether the furniture is not broken, do not hang out there. <<$name>> immediately asked him to check the sofa legs. <<$name>> sat on your desk and start looking at the Casa until he lifted the couch, noticing attention to the person Kas started demonstrotivno raise sofa from different sides, vnimateelno examining each foot. The muscles in his arms and he strongly allocated them diligently demonstrated. You watched the <<$name>> that is clearly liked the idea, and judging by the movements of her hips, her panties already soaked. Suddenly she turned to you and asked quietly, "chocolates you want?"'

	act 'Want':
		cla
		*clr
		'<center><img src="images\img\office\s13.jpg"></center>'
		'"I want" without a second thought you said. <<$name>> bypassed your desk and taking you by the hand lifted from his chair "Well then, it must entice" she whispered, and his head vskhvativ you dug into your lips, trying to push your tongue in your mouth.'

		act 'Otolknut her':
			cla
			'You pushed her, with the words "Not mad?". Seeing that the situation is heating Kas rather quickly leave the room. "Well, startled chocolate, vredina" said <<$name>> and pouting defiantly returned to his desk.'
			act 'Back to work': gt 'office','work'
		end

		act 'Answer her':
			cla
			*clr
			set officeslut += 1
			'<center><img src="images\img\office\s14.jpg"></center>'
			'You decompress lips, running her tongue inside. After a few seconds you feel like a strong hand squeezes your glutes and then penetrates below to your pussy. You degradability spreads her legs giving Casa room for maneuver, as <<$name>> removed from you, and now you kiss lips touch. You run your hand into his pants and find that there is already in full wielded <<$name>> nadrachivaya his cock.'

			act 'Continue':
				set picrand  = 27
				set guy     += 1
				set lesbian += 1
				gt 'podrsex','var'
			end
		end
	end
end

if $ARGS[0] = 'boss2':
	cla
	*clr
	set minut      += 30
	set officeslut += 1
	'<center><img src="images\img\office\b11.jpg"></center>'
	'"A <<$name>>, come on you just in time" with these words the chief stood up and came to you without formally launched their hands under your clothes, exposing your breasts. "I just need to pull off. Mouth So You work for a start." he continued.'

	act 'To kneel':
		cla
		*clr
		'<center><img src="images\img\office\b12.jpg"></center>'
		'"With pleasure," you reply and then squatted down to get him and start sucking dildo. Once you''ve got the taste as the office door opened and entered the courier.'
		'"What the hell, what you need, do not you see I''m busy." the chief said, pointing at you, still sucking his cock.'
		'"So let me girl there said that you can" he says, "That bitch she asks, as she knew that I was here," you thought, releasing a member of the mouth. "So you sign for delivery?" Courier continued, his eyes fixed on your bare ass.'
		'"Prove Svetsik" said chef helping you climb'

		act 'Sign':
			cla
			*clr
			set officeslut += 1
			'<center><img src="images\img\office\b13.jpg"></center>'
			'You quietly take the messenger of paper and turned to the table to paint at this time begins to talk with the chief courier. "How do you like her ass, though very best, but if you only knew that it could be up to her, shake <<$name>> rolls."'
			'"With pleasure," you reply, and start shake buttocks.'
			'"You''re not shy Sun her finger in the ass, she did so fuck that cum in my pants. Raskazhite <<$name>> as you like when you''re ass dryuchat." continued supervision'
			'"Just love it when hot cock fucks my ass, I love milk it ochkom to hot seed to fill my ass." raspolyalis you. In this vryamya courier stuck his finger in your anus and you started actively fucking him.'
			'"Well, what froze shoot pants now this slut fuck us both. Svetsik truth?" said the boss.'

			act '"Yes"':
				set picrand = 24
				set guy += 1
				xgt 'sexdvoe','var'
			end
		end
		if officeslut < 10:
			act 'Run out of the office':
				cla
				'You run out of the office, finding adjusting clothes. "Well, sailed, and who I am now going to fuck, you what?" you hear the voice of the boss behind his back, and followed you out of the office runs a courier.'

				act 'Back to work': gt 'office','work'
			end
		end
	end
end

if $ARGS[0] = 'boss3':
	cla
	*clr
	set minut      += 30
	set officeslut += 1

	'<center><img src="images\img\office\b14.jpg"></center>'
	'"A <<$name>>, come on you just in time, we''re celebrating with a partner deal." said the boss sees you included in the study.'
	'"I just love to confess about you, saying that the best secretary did not find, and it works well, and fucks superbly, but he does not believe." he said pointing to the other man, "says his secretary better, so you have to Svetsik defend the honor of the company, show him how you are able to use their holes." continued supervision'

	act 'To kneel':
		cla
		*clr
		'<center><img src="images\img\office\b15.jpg"></center>'
		'"With pleasure," you reply, and immediately squatted pull out dildo and start sucking. You''re struggling.'
		'"Well, as I said, she asks the best sucks." smiling boss said, seeing contented individual partner.'
		'"Yeah, sucks perfectly, but as with other holes also skillfully managed?" he replied.'
		'"Svetsik vstanovis crustaceans, arrange a test drive of your pussy," said the boss helping you climb'

		act 'Bend':
			cla
			*clr
			'<center><img src="images\img\office\b16.jpg"></center>'
			'You bend down over the table, and plant hips, head just spit your labia, you put on the penis so that his balls hit on your hips and start moving wildly twisting hips. "Wow, that''s a nipple." was all he said.'
			'"And that you still have not tried the ass." grinned the boss. "Well, okay, I probably also to join you, this slut handles two better than one, right Svetsik?" the boss said removing his pants.'

			act '"Yes"':
				set picrand = 25
				set guy    += 1
				xgt 'sexdvoe','var'
			end
		end
	end
end


if $ARGS[0] = 'boss4':
	cla
	*clr
	set minut      += 30
	set officeslut += 1

	'<center><img src="images\img\office\b17.jpg"></center>'
	'"A <<$name>>, come on you just in time." said the boss sees you included in the study. He walked up to you and vskhvativ hips lifted and posodil on the table, spreading your legs he knelt and pressed to your pussy, his tongue slid over your lips and clit tickling, bringing you great pleasure. You were so passionate about the process that is not immediately noticed as one entered the office of the company''s managers. When you finally will see him, he was standing a few feet away from you, carefully watching the process.'

	act 'Beckon':
		cla
		*clr
		set orgasm     += 1
		set officeslut += 1
		'<center><img src="images\img\office\b18.jpg"></center>'
		'You beckon him with a gesture, and he immediately suited to you and starts to fondle your breasts. Operations initially did not even notice him, and continues to lick your pussy, but when you are covering an orgasm and you ended up with a cry, he looks up and sees him. "Well, she asks, well, slut, you love when you fuck two members, well, now we''ll fuck what froze take your pants." he said.'
		act 'Start':
			set picrand = 26
			set guy += 1
			xgt 'sexdvoe','var'
		end
	end

	if officeslut < 10:
		act 'Run out of the office': gt 'office','work'
	end
end


if $ARGS[0] = 'gang':
	cla
	*clr
	set guy        += 3
	set bj         += 3
	set swallow    += 6
	set minut      += 30
	set officeslut += 1
	set gang       += 1

	'<center><img src="images\img\office\g0.jpg"></center>'
	'Going to the rest room you will see in it the three managers. "A <<$name>>, hello, we are just talking about you, do you want to ask something." said one of them coming to you.'
	'"Yes, and what you want to know?" you asked. At this time, the others also come to you, literally surrounded.'
	'"Oh, just a sheer trifle you ever once in all holes fucked." asked one, and immediately began skolzmt six hands on your body.'
	'"Hey, stop otstante" you tried to escape, but it was useless.'
	'"Come on, everyone knows that the first whore in the office and you like to be davalkoy, so do not erepensya and kneel and suck." With these words, they lowered you on your knees and taking out members began poking them in your face.'

	act 'Suck':
		cla
		*clr
		'<center><img src="images\img\office\g1.jpg"></center>'
		'Nothing to do, you have opened my mouth and began to serve them one by one, first medleno reluctantly moving eventually got the taste and began to go out of their way.'
		'"You look like razduharilis that like to suck?" said one.'
		'"Yes" stricter able to answer you with a member in the mouth. You veering from one member to another and did not know what to take for that, would satisfy all.'
		'"Come on guys, let''s in a row, and then this whore already dizzy from so many members of the" one of them said, and they were lined up in front of you.'

		act 'Suck':
			cla
			*clr
			'<center><img src="images\img\office\g2.jpg"></center>'
			'You began to suck one while the other two hands masturbate, and when he had finished, swallowing sperm, and moved to the next, continuing nadrachivat other-that would not have fallen so passed two laps, and you could not stop continuing with pleasure milking their members and swallow cum. "That nanasytnaya, a couple of liters of sperm and swallowed all the little, so it must often feed" laughed one. "Yeah, she asks spermoedka" supported the second. "Okay, we all in her mouth, but in your mouth, let''s have all the holes fuck off." said third'

			act 'Start':
				set picrand = 16
				gt 'paysex','var'
			end
		end
	end
end


if $ARGS[0] = 'boss5':
	cla
	*clr
	set minut      += 30
	set officeslut += 1

	'<center><img src="images\img\office\b19.jpg"></center>'
	'"A <<$name>>, come on you just in time, I have so stiff neck Mash it up a bit," said the boss sees you included in the study. You immediately go up to him and start to massage his neck and shoulders.'
	'"So, okay?" asked you about ten minutes later.'
	'"Yes <<$name>> is perfect, it remains to remove the tension." he says.'

	act 'Take off':
		cla
		*clr
		set swallow += 1
		set bj      += 1
		'<center><img src="images\img\office\b20.jpg"></center>'
		'You bend down to his crotch member of freeing from captivity pants, take by mouth fledgling boss dildo and start sucking odnovremmeno Shchekotov yayscha his hand, soon it swells and is hardly fit in your mouth. A few minutes later you feel like it starts to pulsate, the chief lays down on your head and your hand deeper inserts his dildo your mouth so that it rests in your throat and starts to cum. You frantically swallows not to choke when the stream has dried up, you lick the remnants of the seed with his dick and already going to clean it back in your pants, as chief stops you. "Clever, I''ll let podlagodaryu" With these words, he gets up and sits in a chair you and throws your feet.'

		act 'Start':
			set picrand = 60
			gt 'sex','kuni'
		end
	end

	if officeslut < 10:
		act 'Refuse': gt 'office','work'
	end
end


if $ARGS[0] = 'boss6':
	cla
	*clr
	set spank      += 1
	set minut      += 30
	set officeslut += 1

	'<center><img src="images\img\office\b21.jpg"></center>'
	'"A <<$name>>, come on you just in time. Go to the archive and bring me back some projects," said the boss sees you included in the study. You quickly go to the archives and brought together all the necessary papers are returned to the office, and the thing at the very table you drop all the documents and they scatter in all directions, now you two hours to lay them into folders. Chef today is clearly not in the best mood, he starts yelling at you and then walks up to you and vskhvativ neck throws a side. You swooped on his desk and spread on it, tears streamed from his eyes, and he continues to yell at you'

	act 'Further':
		cla
		*clr
		'<center><img src="images\img\office\b22.jpg"></center>'
		'He walks up to you and pulling the belt of his trousers begins to smack you. You squeeze teeth and endure until the belt runs through your buttocks, tired he lifts her skirt and you spit on your anus with a sweep puts you in the ass dick, you cried out and he throws a belt you in the mouth, and continues to furiously fuck your ass soon it starts slowing down. Slightly recovering himself, he knocks you off the table and commands to open his mouth.'

		act 'Open mouth':
			set picrand = 64
			gt 'sex','minet'
		end
	end
end


if $ARGS[0] = 'motiv0':
	cla
	*clr
	set minut += 180

	'<center><img src="images\img\office\m15.jpg"></center>'
	'You come with the head to the hotel and go up to the room to the client. While the chef with the client to discuss the contract you park yourself on the bed and pretend that something down. When it comes to controversial issues, chief transplanted to you on the bed and starts stroking you. His hands glide over your body then crept under her skirt then stroking his chest, soon your skirt is Zadran to the waist. Customer looks to you between the legs without taking his eyes, seeing this boss says "can make a little break to relax." and you vskhvativ crotch pulls up, you go and find yourself standing on all fours on the bed with a bare ass. "You''re like Svetsik help us relax?" appeals to you boss.'

	act 'Of course':
		cla
		*clr
		'<center><img src="images\img\office\m16.jpg"></center>'
		'"With pleasure, help" you reply and looking at customer beckon with his finger, he gets up and as you can see in his trousers bulged impressive size penis. He walks up to you and you grabbing his penis, first spend tongue over his trousers, then they start to kiss and try to take by mouth directly with pants, chef at this time wielding fingers in your pussy. When you remove the last member of the client out of his pants, pulls out his boss and joins you.'

		act 'Start':
			set picrand = 29
			set guy    += 1
			xgt 'sexdvoe','var'
		end
	end
end

if $ARGS[0] = 'motiv1':
	cla
	*clr
	set minut  += 120
	set picrand = RAND(65,68)

	'<center><img src="images\img\office\m<<picrand>>.jpg "></center>'
	'It suits you and the boss says, "So now come Svetsik one client, your task is to convince him to sign a contract. So dui in the conference room"'
	'"Already running" you reply and head to the conference room. After a few minutes the client belongs doovor you give him and when he begins to read, you start to seduction, then you lightly touch his chest shaking all over, then spend yourself on the thighs slightly lifting her skirt and populate my hand, close your eyes while back and vygidaete . Soon your efforts reach the goal, the client no longer looks to the contract, but only to you. Convinced that he is ready, you have higher lifts up her skirt and spreads her legs so that it can be clearly seen that there is between them. You put one hand on his foot and start to stroke it gradually approaching the already noticeable bulging mound in his pants, he did not wait. It first hand "accidentally" spit your hips and then you push the legs even wider, he starts stroking your hips, getting higher and that his hand was already under your skirt regard namoknuvshey already pretty pussy. You unbutton his pants, and release his dildo.'

	act 'Start':
		set guy += 1
		gt 'sex','minet'
	end
end


if $ARGS[0] = 'motiv2':
	cla
	*clr
	set officerand2 = RAND(1,4)
	if officerand2  = 1: gt 'office','motiv4'
	set picrand     = RAND(69,73)
	set minut      += 240
	set swallow    += 2
	set bj         += 2
	set guy        += 2

	'<center><img src="images\img\office\m<<picrand>>.jpg "></center>'
	'It suits you and the boss says, "So <<$name>>, you need to go to the object, there is one of our masters became strongly with late deadlines works promotiviruy it as you are able."'
	'"Well, have a meal." you answer and go to the site.'
	'Arriving at the object you see a guy who goes from corner to corner and does almost nothing. Seeing you he begins to portray violent activities. "So what do you like polzash sleepy fly" you say.'
	'"I work, but the timing is just unreal," he says.'
	'"Or maybe it''s not unrealistic deadlines, and you just do not want to work?" you ask.'
	'"No I work, I just do not physically have time to do everything." he says.'
	'"And let so if you three hours this is done, I thank you." you say.'
	'"How would you not thank me, but I did three hours does not have time, then work for a few days at least," he says.'
	'"Is that you just do not know how I ever thank you." you say'
	'"How''s that?" he asks.'
	'"Well, look, I''ll make you a small down payment and get a finish as the rest" With these words, you go up to him and pulled out his cock. The guy opened his mouth in surprise.'

	act 'Take by mouth':
		cla
		*clr
		'<center><img src="images\img\office\m0<<picrand>>.jpg "></center>'
		'You took the head in her mouth and started sucking slowly. Then you have it swallowed the the most balls, he twitched, but not fired. And you continued to lick the head and trunk, with hand caressed his balls. He lasted about five minutes, and then his cock throbbed in his mouth and you flew a jet of sperm. When you swallow cum, then licked the remnants of his cock and took it back into his pants. "So, you, have time to finish in three hours," you asked.'
		'He said nothing, and immediately began vskhvativshis tool for work. Two hours later it was all over. Guy standing in front of you with a satisfied smile on his face, "I''m finished," he said at a little breather.'
		'"Good for you, keep up the good work and we''ll meet again, well, now accept my gratitude. But while I waited for you, it was quite cool, maybe you have a little razogreesh" you said and spread her legs showing him her pussy. The guy did not waste time on words and immediately latched on to your crotch.'

		act 'Start': gt 'sex','kuni'
	end
end


if $ARGS[0] = 'motiv3':
	cla
	*clr
	set picrand     = RAND(30,33)
	set officerand2 = RAND(1,4)
	if officerand2  = 1: gt 'office','motiv5'
	set minut      += 240
	set swallow    += 2
	set bj         += 2
	set guy        += 2

	'<center><img src="images\img\office\m<<picrand>>.jpg "></center>'
	'It suits you and the boss says, "So <<$name>>, you need to go to the object, there a couple of our artists have become much late with deadlines works promotiviruy them as you are able."'
	'"Well, have a meal." you answer and go to the site.'
	'Arriving at the object you see two masters who obsolyutno do nothing. Seeing you they did not even try to portray the kind of work. "So what are you seated" you say.'
	'"We have a break," they replied.'
	'"And your break did not last, you''re the last three days have not done anything" you started'
	'"Listen, it''s not so simple, as you need to be here to think, and then if we now do that tomorrow we will have to redo, in general there are three more days." said one'
	'"And let us so if you three hours as should all think and do, I thank you," you say.'
	'"How would you thank us, but do it here in three hours did not turn out, then work for three days, at least" meets the second.'
	'"That you just do not know how I ever thank you." you say'
	'"How''s that?" asks both in unison.'
	'"Well, look, I''ll make you a small down payment, and the rest are done now" with these words, you approach them and get them members. They look at each other udevlenno.'

	act 'Take by mouth':
		cla
		*clr
		'<center><img src="images\img\office\m0<<picrand>>.jpg "></center>'
		'Clasping his lips a member of one of them and lowering the tongue on the head, made a few moves up and down. Then took his balls in her palm and began to fondle them, and a second hand at this time caressing another member. Sometimes you let a member of his mouth, giving him the opportunity to look at how you play the tongue with his head. He lasted about two minutes, and then his cock throbbed in his mouth and you flew a jet of sperm. When you swallow sperm, then switched to the second, repeating the whole procedure. "So, you will have time to three hours to finish, something to get the main prize?" asked you when swallowed semen second and rose from his knees.'
		'"Sure have time" with one voice and said they vskhvativshis for tool started to work. Two hours later it was all over. They come to you and proudly announced, "We have finished."'
		'"That''s well done, now take your gratitude" you said, throwing off her clothes.'

		act 'Start': xgt 'sexdvoe','var'
	end
end


if $ARGS[0] = 'motiv4':
	cla
	*clr
	set picrand = 29
	set minut  += 180
	set guy    += 1
	'<center><img src="images\img\office\m17.jpg"></center>'
	'It suits you and the boss says, "So <<$name>>, you need to go to the object, there is one of our masters became strongly with late deadlines works promotiviruy it as you are able."'
	'"Well, have a meal." you answer and go to the site.'
	'Once you get out of the office as you catches <<$name>>. "I''ll go with you," she said.'
	'"Well, let''s go." you reply.'
	'Arriving at the object you see a guy who goes from corner to corner and does almost nothing. Seeing you he begins to portray violent activities. Only are you going to say something like wedged <<$name>> "Well, what we''re barely moving, do not want to sleep with two at once."'
	'"What?" he said in surprise.'
	'"Well then, we have been sent, they say there is such a master work, skilled, responsible, go cheer him, to thank for the good work. And we come and see it?" run against it at the guy.'
	'"What?" still with a surprised look, he says.'
	'"Lazy gouging, that''s what. And do you think that''s what we reward you" continues to shine.'
	'"So I put this, that''ll do it now." he says, and adds a little thinking "And you did not breed?".'
	'"We, you, yes you hurt we need to breed, so see if two hours later all done, get both of us, and something you would not doubt I''ll now make a small down payment." says <<$name>> and falling to her knees and pulling his dick.'

	act 'Watch':
		cla
		*clr
		'<center><img src="images\img\office\m18.jpg"></center>'
		'You watch as his cock disappears in her mouth <<$name>>, she carefully licked it, caressing the head tongue, then swallow it whole, so that its language Shchekotov balls. The sight you get wet between the legs, and once you decide to join, as it ends with a long groan <<$name>> pouring sperm in her mouth. "So, you, have time to finish in two hours," you ask him while licking the remnants of the seed of <<$name>> with his dildo.'
		'He said nothing, and immediately began vskhvativshis tool for work. Two hours later it was all over. Guy standing in front of you with a satisfied smile on his face, "I''m finished," he said at a little breather.'
		'"Good girl, now go to us," praised him starting to undress <<$name>>, you have followed'

		act 'Start': gt 'podrsex','var'
	end
end


if $ARGS[0] = 'motiv5':
	cla
	*clr
	set picrand = 34
	set minut  += 180
	set guy    += 2
	'<center><img src="images\img\office\m19.jpg"></center>'
	'It suits you and the boss says, "So <<$name>>, you need to go to the object, there a couple of our artists have become much late with deadlines works promotiviruy them as you are able."'
	'"Well, have a meal." you answer and go to the site.'
	'Arriving at the object you see only one of the two masters who had to finish the finish sauna. While he did not see you, you go out in the back find towels and undressed in one turn around. You go back to the master, seeing you he looks dumbfounded look "What are you doing here girl?" Finally he asks.'
	'"Yes, that''s thought to warm up, and you are still poking around, and can be done just quickly take a steam together?" you reply.'
	'"What?" he said in surprise.'
	'"That you''re not intelligent, I say that I have time, though small, but a couple of hours, I can wait, and if you follow it all the time to finish then allowed to rub my back, and not just her." you say.'
	'"And if I finish, and you run away?" still with a surprised look, he says.'

	act 'Undress':
		cla
		*clr
		'<center><img src="images\img\office\m20.jpg"></center>'
		'"And where naked run away" and you reply off his towel on the bench and seated him.'
		'He looks at you with even more surprised look. "Well, what you got, time that goes" you say'
		'"Yes, of course, is already running" he says, and starts to work. An hour later, he finishes, "All done." happily announces it.'
		'"Well, come to me." you say, pushing the legs invitingly.'

		act 'Start':
			cla
			*clr
			'<center><img src="images\img\office\m21.jpg"></center>'
			'Once you jump on him, as the door bursts into the second, with a package of food and beer.'
			'He walks up to you galloping on a limb and did not seem to think of any better then asks "Girl, and you do not want to eat?"'
			'You quickly grab his pants, "Well, I would taste the sausage" you say.'
			'He immediately starts to undress. "You said the same sausage, sausage and not skinny." laughs first.'
			'"So you''re a toothpick from it" meets the second, and extracts from his pants his dignity, which is more like a decent loaf of sausage than a sausage.'

			act 'Continue': xgt 'sexdvoe','var'
		end
	end
end
--- office ---------------------------------

# restoran
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Restaurant</font></B></center>'
'<center><img src="images\etogame\restoran.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	!eto было glamur > 1 and vnesh > 50
	if glamur >= 1 and mop > 1 and hapri = 1 and sweat <= 0:
	'A man at the entrance table politely interested in what you prefer in the VIP room or in the common room'
		if money >= 5000:
			act 'VIP room 5000 RUR':
			cla
			set money -= 5000
			gt 'restoran','vip'
			end
		end
	act 'Common room': gt 'restoran','zal'
	else
	'It suits you man and politely informs you that with a similar appearance to the restaurant can not.'
	end

	act 'Out of the restaurant':
	cla
	set minut += 5
	gt 'down'
	end

	if vladimirday = day and vladimirQW = 21 and hour = 20: gt 'qwmeet'

end


if $ARGS[0] = 'zal':
cla
*clr
set minut += 5
'<center><B><font color = maroon>restaurant, common room</font></B></center>'
'<center><img src="images\etogame\restoran2.jpg"></center>'
'The room was pretty good atmosphere. Soft lighting and light furniture. Until you hear the sounds of music, the clink of glasses and female laughter. It seems you can finally relax a little.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	!etogame
	nastjarand = RAND(0,100)
	if nastjarand > 80 and nastjaqw = 0 and energy > 15 and nastjaday ! day:
	cls
	nastjaday = day
	gs 'stat'
		'<center><img src="images\etogame\nastja1.jpg"></center>'
		'In the hall you notice a pretty girl, wondering why she was sitting alone. She looks pretty good. While you looked at prekrastno stranger she caught your eye on himself and suddenly looked at you.'
		act 'Look down':
		cla
		'She turned away'
		act 'Leave': gt 'restoran', 'zal'
		end

		act 'Smile at her': gt 'nastja', 'pos1'
	end

	if money >= 5000:
		act 'Eat 5,000 rubles':
		cla
		set minut += 60
		energy =22
		fat += 5
		water = 22
		willpower += 30
		manna = manna + 80
		health = health + 20
		money -= 5000
		'On the recommendation of a chef, a wonderful dish you ordered and ate with pleasure in a noisy restaurant hall.'
		act 'Leave': gt 'restoran', 'zal'
		end
	end
	act 'Leave': set minut += 5 & gt 'restoran','start'
end

if $ARGS[0] = 'vip':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Restaurant, VIP room</font></B></center>'
'<center><img src="images\etogame\restoran3.jpg"></center>'
'Caught in the vip box you caught yourself thinking that smile involuntarily. In the bed of a calm and friendly atmosphere. Soft lighting and furniture in the Empire style. You hear soft music. Finally, your new weak feminine essence, albeit briefly, but can feel safe.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'Leave':
	cla
	set minut += 5
	gt 'restoran','start'
	end

	if money >= 5000:
		act 'Eat 5,000 rubles':
		cla
		set minut += 60
		energy = 22
		fat += 5
		water = 22
		willpower += 30
		manna = manna + 100
		health = health + 20
		money -= 5000
		'On the recommendation of a chef, a wonderful dish you ordered and ate with pleasure in the cozy vip room of the restaurant.'
		act 'Leave': gt 'restoran', 'vip'
		end
	end
end
--- restoran ---------------------------------

# salon
if $ARGS[0] = 'start':
gs 'stat'
$zavivka = {
set minut += 60
set curly += 10
set money -= 1000
if salonrand = 0 and masha = 0: gt 'salon','0'
'You curled hair.'
gs 'stat'
gt 'salon','start'
}
$solyariy = {
set minut += 60
set tan += 10
set money -= 1000
if salonrand > 6 and nastjaqw > 2: gt 'etoexhib','pos1'
if salonrand = 0 and masha = 0: gt 'salon','0'
'You sunbathe in the solarium.'
gs 'stat'
gt 'salon','start'
}
$resnici = {
set minut += 60
set resnic += 1
set money -= 5000
if salonrand = 0 and masha = 0: gt 'salon','0'
'You lengthen lashes.'
gs 'stat'
gt 'salon','start'
}
$epilyaciya = {
set minut += 60
set leghair = -20
set lobok = -20
set money -= 5000
if salonrand = 0 and masha = 0: gt 'salon','0'
'You had a full body hair removal.'
gs 'stat'
gt 'salon','start'
}
$ozdormas = {
set minut += 60
set salo -= 2
set vidageday += 3
set money -= 5000
if salonrand = 0:
	cla
	*clr
	'<center><img src="images\img\centr\mass.jpg"></center>'
	'During the massage guy is interested and his fingers start to slip masljannye it in your pussy then in the ass.'
	set picrand = rand(25,28)
	act 'Indignant': gt 'salon','start'
	act 'Enjoy':
		set guy += 1
		gt 'sex','minet'
		end
	end
gs 'stat'
gt 'salon','start'
}
$tatyadd = {
!set minut += 60
cla
if tatlip = 0:
	act 'View on the lip tattoo number 1':
		cla
		*clr
		'<center><img src="images\body\tatlip1.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatlip = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			set vaf += 10
			gs 'stat'
			'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View on the lip tattoo number 2':
		cla
		*clr
		'<center><img src="images\body\tatlip2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatlip = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			set vaf += 10
			gs 'stat'
			'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View on the lip tattoo number 3':
		cla
		*clr
		'<center><img src="images\body\tatlip3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatlip = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			set vaf += 10
			'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
if tatplech = 0:
	act 'View tattoo on his shoulder, "flowers"':
		cla
		*clr
		'<center><img src="images\body\tatplech1.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatplech = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open the shoulders and you stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on his shoulder, "butterfly"':
		cla
		*clr
		'<center><img src="images\body\tatplech2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatplech = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open the shoulders and you stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on his shoulder, "flowers number 2"':
		cla
		*clr
		'<center><img src="images\body\tatplech3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatplech = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open shoulders, and you stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on his shoulder, "Queen of Spades"':
		cla
		*clr
		'<center><img src="images\body\tatplech4.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatplech = 4
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open shoulders, and you stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
if tatback = 0:
	act 'View tattoo "wings" on the back number 1':
		cla
		*clr
		'<center><img src="images\body\tatb1.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatback = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open back, and you are stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo "wings" on the back number 2':
		cla
		*clr
		'<center><img src="images\body\tatb2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatback = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open back, and you are stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo "corset" on the back':
		cla
		*clr
		'<center><img src="images\body\tatb3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatback = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open back, and you are stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattooed "characters" on the back':
		cla
		*clr
		'<center><img src="images\body\tatb4.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatback = 4
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, open back, and you are stuffed tattoo.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
if tatupb = 0:
	act 'View tattoo on the lower back number 1':
		cla
		*clr
		'<center><img src="images\body\tatupb1.jpg"></center>'
		'Tattoo on the lower back is traditionally called trump stamp, shlyuhino stigma tattoo girls are not burdened weight behavior.'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatupb = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on the lower back.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on the lower back number 2':
		cla
		*clr
		'<center><img src="images\body\tatupb2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatupb = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on the lower back.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on the lower back number 3':
		cla
		*clr
		'<center><img src="images\body\tatupb3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatupb = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on the lower back.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo on the lower back number 4':
		cla
		*clr
		'<center><img src="images\body\tatupb4.jpg"></center>'
		'Tattoo on the lower back is traditionally called trump stamp, shlyuhino stigma tattoo girls are not burdened weight behavior.'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatupb = 4
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on the lower back.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
if tatvag = 0:
	act 'View tattoo in the groin "Stars"':
		cla
		*clr
		'<center><img src="images\body\tatvag.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatvag = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo in the groin "Lick me"':
		cla
		*clr
		'<center><img src="images\body\tatvag2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatvag = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo in the groin "Black Owned"':
		cla
		*clr
		'<center><img src="images\body\tatvag3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatvag = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo in the groin "Lucky"':
		cla
		*clr
		'<center><img src="images\body\tatvag4.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatvag = 4
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View tattoo in the groin "Angel of sin"':
		cla
		*clr
		'<center><img src="images\body\tatvag5.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatvag = 5
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
if tatleg = 0:
	act 'View a tattoo on her ankle number 1':
		cla
		*clr
		'<center><img src="images\body\tatleg1.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatleg = 1
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on her ankle.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View a tattoo on her ankle number 2':
		cla
		*clr
		'<center><img src="images\body\tatleg2.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatleg = 2
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on her ankle.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View a tattoo on her ankle number 3':
		cla
		*clr
		'<center><img src="images\body\tatleg3.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatleg = 3
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on her ankle.'
			act 'Exit': gt 'salon','start'
			end
		end
	act 'View a tattoo on her ankle number 4':
		cla
		*clr
		'<center><img src="images\body\tatleg4.jpg"></center>'
		act 'Exit': gt 'salon','start'
		act 'A tattoo':
			cla
			Set tatleg = 4
			Set horny += 5
			Set money -= 8000
			minut += 60
			gs 'stat'
			'You lie on the couch, and you packed a tattoo on her ankle.'
			act 'Exit': gt 'salon','start'
			end
		end
	end
gs 'stat'
}
$uhodkosha = {
set minut += 60
set skin += 1
set money -= 15000
if salonrand = 0 and masha = 0: gt 'salon','0'
'You mask the face, after a while removed her beautician.'
gs 'stat'
gt 'salon','start'
}
$delgub = {
set minut += 60
set lip -= 1
set money -= 15000
'You have reduced the lips.'
gs 'stat'
gt 'salon','start'
}
$addgub = {
set minut += 60
set lip += 1
set money -= 25000
'You increased the lips.'
gs 'stat'
gt 'salon','start'
}
$addglaza = {
set minut += 60
set glaraz += 1
set money -= 30000
'You have increased eye.'
gs 'stat'
gt 'salon','start'
}
$addtitki = {
set minut += 60
set silicone += 10
set money -= 150000
'You have inserted silicone breast increasing their size by 10 cm'
gs 'stat'
gt 'salon','start'
}
$delshir = {
set minut += 60
set fat = 0
set salo = 0
set money -= 150000
'You totally suck the fat out of the body.'
gs 'stat'
gt 'salon','start'
}
$omoloshenie = {
set minut += 60
set vidageday += 50
set money -= 250000
if salonrand = 0 and masha = 0: gt 'salon','0'
'You spent rejuvenation procedures, they can not turn the clock to sleep, they can only stop the aging at the time.'
gs 'stat'
gt 'salon','start'
}

$sexloc = $CURLOC
if week = 1 and hour >= 9 and hour <= 10 and worksalon = 1: gt 'salon','beginwork'
if week = 3 and hour >= 9 and hour <= 10 and worksalon = 1: gt 'salon','beginwork'
if week = 5 and hour >= 9 and hour <= 10 and worksalon = 1: gt 'salon','beginwork'
cla
*clr
set salonrand = rand(0,9)
set minut += 5
'<center><B><font color = maroon>Beauty</font></B></center>'
'<center><img src="images\etogame\salon.jpg"></center>'
'Approach to <a href="exec:gt ''salon'',''1''">the administrator.</a>'
if money >= 1000: '<a href="exec: dynamic $solyariy ">Solarium - 1tyr</a>'
if money < 1000: 'Solarium - 1,000 rubles'
if money >= 5000: '<a href="exec: dynamic $resnici ">Elongation eyelashes - sput 5</a>'
if money < 5000: 'Lengthening eyelashes - 5,000 rubles'
if money >= 5000: '<a href="exec: dynamic $epilyaciya ">Complete removal - sput 5</a>'
if money < 5000: 'Complete Hair Removal - 5,000 rubles'
if money >= 5000: '<a href="exec: dynamic $ozdormas ">Wellness massage (accelerates fat, rejuvenates the body), 5000 rubles</a>'
if money < 5000: 'Wellness massage (accelerates fat, rejuvenates the body), 5000 rubles'
if money >= 8000: '<a href="exec: dynamic $tatyadd ">Tatuiroka or piercing - 8 thousand</a>'
if money < 8000: 'Tatuiroka or piercing - eight thousand rubles'
if money >= 15000: '<a href="exec: dynamic $uhodkosha ">Skin Care - 15,000 rubles</a>'
if money < 15000: 'Skin Care - 15,000 rubles'
if money >= 15000 and lip > 0: '<a href="exec: dynamic $delgub ">Reduction of the lips - sput 15</a>'
if money < 15000 or lip < 1: 'Lip Reduction - 15,000 rubles'
if money >= 25000 and lip < 4: '<a href="exec: dynamic $addgub ">Lip Augmentation - sput 25</a>'
if money < 25000 or lip >= 4: 'Lip augmentation - 25,000 rubles'
if money >= 30000: '<a href="exec: dynamic $addglaza ">Increase the eye - 30,000 rubles</a>'
if money < 30000: 'Increased eye - 30,000 rubles'
if money >= 150000: '<a href="exec: dynamic $addtitki ">Breast Augmentation - 150,000 rubles</a>'
if money < 150000: 'Breast Augmentation - 150,000 rubles'
if money >= 150000: '<a href="exec: dynamic $delshir ">Suction fat - 150,000 rubles</a>'
if money < 150000: 'Suction of fat - 150,000 rubles'
if money >= 250000: '<a href="exec: dynamic $omoloshenie ">Procedures for rejuvenation - sput 250</a>'
if money < 250000: 'Rejuvenation - 250,000 rubles'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if hour < 8 or hour > 20:
	cls
	'Beauty is closed and you are asked to retire.'
	act 'QUIT': set minut += 5 & gt 'torgcentr'
	exit
	end
act 'QUIT': set minut += 5 & gt 'torgcentr'
end

if $ARGS[0] = '0':
cla
*clr
set cumfrot += 1
'<center><img src="images\img\centr\pri1.jpg"></center>'
'During the procedure, the girl manages to stain your clothes which is a liquid, it is now on the traces are very similar to sperm. You start to vomuschatsya suits you and the administrator tries to reassure you, that obyaschaya girl will be punished and you offset the cost of chemical cleaning in Ramer 5000rub.'
act 'Agree': set money += 5000 & gt 'salon','start'
if DOM > 10:
	act 'Require punish now':
		cla
		set orgasm += 1
		set DOM += 1
		'Administrator looks at you not knowing what you want'
		'"What is not clear, I want something to punish this bitch now" started to resent you.'
		'"Do you want something to punish her?" asked the receptionist'
		'"Fuck it here with me," cried you.'
		'"Sorry, but I can not do that," stammered guy'
		act '"All you can"':
			cla
			*clr
			'<center><img src="images\img\centr\pri2.jpg"></center>'
			'"All you can" you said and rastegnuv pants guy got his dick dildo strongly excited by it was clear that the guy really like your idea of ​​punishment.'
			act '"Suck it bitch"':
				cla
				*clr
				'<center><img src="images\img\centr\pri3.jpg"></center>'
				'With these words, you pulled the girl´s head to the penis and she obediently around his lips.'
				'"Moving, deeper" you customized Woman'
				act '"Put her cancer"':
					cla
					*clr
					'<center><img src="images\img\centr\pri4.jpg"></center>'
					'Man obediently put her cancer, and put his dildo in her vagina, the girl quietly vzvignula, and the guy went into the role fucked her yarosno shoving member as deeply as possible into it. You took her hand and put on her pubis, she obediently began to massage your clitoris'
					act '"Plant it on top"':
						cla
						*clr
						'<center><img src="images\img\centr\pri5.jpg"></center>'
						'Man sat on a chair, she quickly hopped on top and started jumping, you took her buttocks and each time it jump with power lowered it to a member of the girl cried, and you continued to stick it on his dildo.'
						act '"Lie down on the floor"':
							cla
							*clr
							'<center><img src="images\img\centr\pri6.jpg"></center>'
							'The girl lay on the floor, and fell in with Perrin side, you´re sat on the girl´s face she did not give you a chance to give the order and once your pussy was in the zone dosigaemosti her tongue began to lick you trying not to miss a millimeter your pussy, both outside and inside , how many missed her tongue. Soon pleasant wave covered you and you left off sitting on her face'
							act '"Finish"':
								cla
								*clr
								'<center><img src="images\img\centr\pri7.jpg"></center>'
								'The guy stood up, lifted her to her knees and discharged, filling her mouth, face and chest with hot sperm'
								'"That´s necessary to punish bitches" with these words, you take a card girl "So you have Masha, I can call you, you have a good tongue" with these words you left on the floor leaving the girl all in the semen.'
								set telmasha = 1
								set masha += 1
								act 'Leave': gt 'salon','start'
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '1':
set minut += 5
cla
if worksalon = 0:
	'You ask whether you take on the job.'
	if masash < 10:
		'You do not be able to come when you learn'
		act 'Move away': gt 'salon','start'
		end
	if masash >= 10:
		'"Well, we need a masseuse.''ll Work Monday, Wednesday and Friday from 9 to 10 hours, and come out to replace, will work up to 19 hours. Not come, you will not be counted this day in wages. Salary listed 25 th, for each an elaborate shift - 800 rubles. "'
		'"Labor should hand over to the personnel department. You understand, will work?"'
		if work = 0:
			act 'Move away': gt 'salon','start'
			act 'Find a job':
				cla
				set worksalon = 1
				set work = 1
				'You classify working in the personnel department. "'
				act 'Move away': gt 'salon','start'
				end
			end
		act 'Move away': gt 'salon','start'
		end
	end
if worksalon = 1:
	act 'Resign': gt 'salon','discharge'
	act 'Move away': gt 'salon','start'
	end
end

if $ARGS[0] = 'beginwork':
cla
*clr
'<center><B><font color = maroon>Beauty</font></B></center>'
'<center><img src="images\etogame\salon.jpg"></center>'
'You have replaced a beauty salon.'
act 'Start work':
	set smena += 1
	gt 'worksalon','start'
	end
act 'Resign': gt 'salon','discharge'
end

if $ARGS[0] = 'discharge':
cla
set minut += 10
set worksalon = 0
set work = 0
set pay = smena * 800
set money += pay
set smena = 0
'The administrator looked at you: "Here is your payment <<pay>> rubles and employment history. Goodbye."'
act 'Leave': gt 'salon','start'
end
if $ARGS[0] = 'early':
	cla
	'<center><B><font color = maroon>Beauty</font></B></center>'
	'<center><img src="images\etogame\salon.jpg"></center>'
	act 'Wait until work begins':
		hour = 9
		minut = 0
		gt 'salon','start'
	end
end
--- salon ---------------------------------

# hairsalon
!!! Maruda Hair Mod
$pokraska = {
clr
cla
set money -= 1000
'You ask the woman hairdresser, if she could dye your hair.'
'"Sure.", she says.'
'"Which colour would like to have your hair dyed in?"'
if hcol ! 0:
	act 'Black':
		cla
		*clr
		'"Black", you say, "I want it to be raven black, dark as the night, please."'
		'"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 60
			set hcol = 0
			'About an hour later, everything should be dried up and the female hairdress comes back to you.'
			'She removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay the 1000 rubles.'
		act 'Leave': gt 'hairsalon','start'
		end
	end
end
if hcol ! 1:
	act 'Brown':
		cla
		*clr
		'"I''d like to have my hair brown", you say.'
		'"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 60
			set hcol = 1
			'About an hour later, everything should be dried up and the female hairdress comes back to you.'
			'She removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay the 1000 rubles.'
		act 'Leave': gt 'hairsalon','start'
		end
	end
end
if hcol ! 2:
	act 'Red':
		cla
		*clr
		'"I''d like to have my in a fiercely red", you say with a devilish grin.'
		'"Sure thing!", she laughs, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 60
			set hcol = 2
			'About an hour later, everything should be dried up and the female hairdress comes back to you.'
			'She removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay the 1000 rubles.'
		act 'Leave': gt 'hairsalon','start'
		end
	end
end
if hcol ! 3:
	act 'Blonde':
		cla
		*clr
		'"Blonde! Blondes have more fun. I want to see if that is true!", you giggle.'
		'"Blondes definately have more fun!", she says with a wink, "Why don''t you take a seat?"'
		'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'
		act 'Sit down':
			cla	
			*clr
			set minut += 60
			set hcol = 3
			'About an hour later, everything should be dried up and the female hairdress comes back to you.'
			'She removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay the 1000 rubles.'
		act 'Leave': gt 'hairsalon','start'
		end
	end
end
gs 'stat'
}
$zavivka = {
	set minut += 20
	set curly += 10
	set money -= 500
	'You have your hair curled'
	gs 'stat'
	gt 'hairsalon','start'
}
$cuthair = {
cla
*clr
set money -= 750
'You approach the female hairdresser and ask, "Hi, I would like to get my hair cut. Can someone do it now or do I have to wait?"'
'She smiles, "Sure thing, have you already decided on how much we shall cut off?"'
if hairlength > 10:
	act 'Very short':
		cla
		*clr
		'"I''d like to have my hair cut very short", you say.'
		'"Of course", she says with a friendly smile on her face, while leading you to a free seat.'
		'"Yes, please", you answer and sit down.'
		act 'Sit down.':
			cla
			*clr
			set minut += 30
			set hairlength = 10
		'About half an hour later she is done and what''s left from you former hairstyle is a very short buzzcut.'
		'You stand up and pay the women at the counter.'
		act 'Stand up': gt 'hairsalon','start'
		end
	end
end
if hairlength > 31:
	act 'Short, but not too short':
		cla
		*clr
		'"I''d like to have my hair cut short, but not too short", you tell her.'
		'"I know what you mean, that''s not problem at all", she says, as she turns around one of the free seats and makes a gesture to you, to sit down.'
		act 'Sit down.':
			if hairlength > 60:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 30
						set hairlength = 31
						set hbangs = 1
						set hapri = 1
						'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 31
						set hapri = 1
						'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
			else 
				cla
				*clr
				set minut += 30
				set hairlength = 31
				set hapri = 1
				'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
				'You stand up and pay the women at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end
if hairlength > 81:
	act 'About chin-line length':
		cla
		*clr
		'"Could you cut my hair back to my chin line, please?", you ask her.'
		'"Sure, no problem", she tells you getting a chair for you ready.'
		act 'Sit down.':
			if hairlength > 90:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 30
						set hairlength = 81
						set hbangs = 1
						set hapri = 1
						'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 81
						set hapri = 1
						'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
			else 
				cla
				*clr
				set minut += 30
				set hairlength = 31
				set hapri = 1
				'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
				'You stand up and pay the women at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end
if hairlength > 161:
	act 'Shoulder Length':
		cla
		*clr
		'"I would like to have my hair cut back to about the height of my shoulder. Would you please be so kind and do that?", you ask her.'
		'"Sure, no problem", she tells you, geasturing you, to sit down into a free chair.'
		act 'Sit down.':
			if hairlength > 170:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 30
						set hairlength = 161
						set hbangs = 1
						set hapri = 1
						'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 161
						set hapri = 1
						'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
			else 
				cla
				*clr
				set minut += 30
				set hairlength = 161
				set hapri = 1
				'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
				'You stand up and pay the women at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end
if hairlength > 261:
	act 'About Brastrap length':
		cla
		*clr
		'"Could you cut my hair back to where my bra-strap sits?", you ask her.'
		'"That''s absolutely no problem.", she says, when geasturing you sit down on one of the free seat'
		act 'Sit down.':
			if hairlength > 280:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 30
						set hairlength = 261
						set hbangs = 1
						set hapri = 1
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits, in addition she made you a fringe, covering your forehead, as requested.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 261
						set hapri = 1
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
			else 
				cla
				*clr
				set minut += 30
				set hairlength = 261
				set hapri = 1
				'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
				'You stand up and pay the women at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end
if hairlength > 401:
	act 'Cut the tips':
		cla
		*clr
		'"Could you cut my hair back a bit?", you ask her. '
		'"Wow, your hair is beautiful! But, sure, that''s no problem.", she tells you, geasturing you, to sit down into a free chair.'
		act 'Sit down.':
			if hairlength > 401:
				cla
				*clr
				'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'
					act 'Yes': 
						cla
						*clr
						set minut += 30
						set hairlength = 401
						set hbangs = 1
						set hapri = 1
						'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter and as requested, she cut you a nice fringe,, which now covers your forehead.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 401
						set hapri = 1
						'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter.'
						'You stand up and pay the women at the counter.'
						act 'Stand up': gt 'hairsalon','start'
					end
			else 
				cla
				*clr
				set minut += 30
				set hairlength = 401
				set hapri = 1
				'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter. '
				'You stand up and pay the women at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end
}
$makebraids = {
	cla
	*clr
	'"I''d like to have my hair braided. Could you do that?", you as the female hairdresser.'
	'She takes a look at you hair and nods, "Sure, you have beautiful, long hair, it shouldn''t be a problem at all."'
	'The hairdresser tells you to sit down on one of the free seats and she''ll get on it immediately.'
		act 'Sit down':
			cla
			*clr
			'"Just relax, we''ll be done in no time.", she tells you.'
				act 'Relax':
				cla
				*clr
				set minut += 40
				set hbraids = 20
				set money -= 1250
				'"And we are done.", she says.'
				'You stand up and pay her at the counter.'
				act 'Stand up': gt 'hairsalon','start'
			end
		end
	end
end

}
if $ARGS[0] = 'start':
gs 'stat'

'<center><B><font color=maroon>The Golden Curl Salon</font></B></center>'
'<center>A well reviewed hair salon, capable of creating the most beautiful hairstyles. For a price of course.</center>'
'<center>Next to the check out are two aisles filled with premium merchandise for you hair, including Scrunchies, Hairpins and Shampoo.</center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
''
if money >= 750 and hairlength > 15: '<a href="exec: dynamic $cuthair ">Cut your hair - 750 rubles</a>'
if money < 750 and hairlength <= 15: 'You don''t have enough money to get your hair properly cut. It costs 750 rubles but you only have <<money>>.'
''
if money >= 500 and hairlength > 80: '<a href="exec: dynamic $zavivka ">Curl your hair - 500 rubles</a>'
if money < 500: 'You cannot afford curling your hair, as it costs 500 rubles, which you do not have at the moment.'
if money >= 300 and hairlength <= 30: 'Your hair is too short to curl.'
''
if money >= 1000: '<a href="exec: dynamic $pokraska ">Dye your hair - 1.000 rubles</a>'
if money < 1000: 'You cannot afford dyeing your hair, as you are missing the 1.000 rubles required for it.'
''
if money >= 1250 and hairlength > 80: '<a href="exec: dynamic $makebraids">Braid your hair - 1250 rubles</a>'
if money >= 1250 and hairlength <= 80: 'While you do have enough money to get your hair braided, your hair is not long enough to get it done properly and get a satisfying outcome.'
if money < 1250 and hairlength > 80: 'You don''t have the 1.250 rubles, which you''ll need to get your hair braided.'
if money < 1250 and hairlength <= 80: 'Not only you''re missing the 1.250 rubles required to do this hair job, you''re hair is also too short to get it braided.'


if hour =< 8 or hour >= 20:
	cls
	'The hair salon is closed. You should come back during their working hours.'
	act 'Leave': set minut += 2 & gt 'torgcentr'
	exit
	end
act 'Leave': set minut += 2 & gt 'torgcentr'
end

if money >= 100:
	act 'Buy Scrunchies - 100 rubles':
		cls
		money    -= 100
		hscrunch += 10
		'You pay the cashier and bought the small box.'
		act 'Move away': gt 'hairsalon','start'
	end
end

if money >= 120:
	act 'Buy Hairaccessories - 120 rubles':
		cls
		money    -= 120
		hpingrip += 10
		'You pay the cashier and bought the small box.'
		act 'Move away': gt 'hairsalon','start'
	end
end

!!! Maruda Hair Mod

--- hairsalon ---------------------------------

# sexshop
if $ARGS[0] = 'start':
cla
*clr
$sexloc = $CURLOC
set shrand = rand(0,100)
if kendra > 0 and shrand < 10: gt 'sexshop','kendra'
if tanga = 0 and shrand > 90: gt 'sexshop','shprod'
set minut += 5
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B><font color = maroon>Sex Toys</font></B></center>'
'<center><img src="images\etogame\sexshop.jpg"></center>'
'Lubricant - 300 rubles'
'Dildo - 800 rubles'
'Vibrator - 1300 rubles'
'Strap 1,200 rubles'
'Butt plug 1,200 rubles'
pl
'In the basement are located the private booths for viewing porn movies (50 rubles 15 minutes).'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
act 'QUIT':
	cla
	set ghnow = 0
	set minut += 5
	gt 'down'
	end

	if SUB >= 100 and analplug = 1 and dildo = 1 and vnesh > 26 and Peter < 1:
	set Peterrand = RAND(0,100)
		if Peterrand > 50 :
		'Are you interested in looking at the middle-aged man, apparently he was the owner of this store'
			act 'Zainteresovatsya owner of the store' :
			cla
			*clr
			'<center><img src="images\peter\peter.jpg"></center>'
			'I´m Peter, I´m watching you for a long time. I often see you here. I think it will be interesting together ...'
			act 'Go with Peter': gt 'Peterroom','start'
				act 'QUIT':
				cla
				set ghnow = 0
				set minut += 5
				gt 'down'
				end
			end
		end
	end

	act 'Go to the basement': gt 'sexshop','podval'


	if gloryhole >= 20 and pornstudio = 0:
		'You notice the corner of his eye, that the seller is trying to get your attention'
		act 'Approach, to learn what was the matter': gt 'sexshop','porn'
	end

	if money >= 300:
		act 'Buy lubricant 300 rubles':
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion*300 > money: 'You do not have enough money.'
		if portion*300 <= money:
			set lubri += portion * 5
			set money -= portion * 300
			set minut += 5
			'<center><img src="images\etogame\kassa.jpg"></center>'
			'You bought a lubricant and paid the money to the cashier.'
			end
		act 'Move away from the counter': gt 'sexshop','start'
		end
	end
	if money >= 800 and dildo = 0:
		act 'Buy dildo 800 rubles':
		cla
		*clr
		set minut += 15
		set dildo = 1
		set money -= 800
		'<center><img src="images\etogame\kassa.jpg"></center>'
		'You bought a dildo and get paid in cash.'
		act 'Move away from the counter': gt 'sexshop','start'
		end
	end
	if money >= 1300 and vibrator = 0:
		act 'Buy vibrator 1300 rubles':
		cla
		*clr
		set minut += 15
		set vibrator = 1
		set money -= 1300
		'<center><img src="images\etogame\kassa.jpg"></center>'
		'You bought a vibrator and get paid in cash.'
		act 'Move away from the counter': gt 'sexshop','start'
		end
	end
	if money >= 1200 and strapon = 0:
		act 'Buy a strap 1200 rubles':
		cla
		*clr
		set minut += 15
		set strapon = 1
		set money -= 1200
		'<center><img src="images\etogame\kassa.jpg"></center>'
		'You bought a strap-on and paid the money to the cashier.'
		act 'Move away from the counter': gt 'sexshop','start'
		end
	end

	if money >= 1200 and analplug = 0:
		act 'Buy anal plug 1200 rubles':
		cla
		*clr
		set minut += 15
		set analplug = 1
		set money -= 1200
		'<center><img src="images\etogame\kassa.jpg"></center>'
		'You bought a butt plug and get paid in cash.'
		act 'Move away from the counter': gt 'sexshop','start'
		end
	end

	if money >= 1000:
		if hooker[1] = 0:
			act 'Inspect clothes prostitutes. Number 1':
			cla
			*clr
			'<center><img src="images\clothes\hooker1.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[1] = 1
				set hookerH[1] = 200
				set hookerB[1] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[2] = 0:
			act 'Inspect clothes prostitutes. Number 2':
			cla
			*clr
			'<center><img src="images\clothes\hooker2.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[2] = 1
				set hookerH[2] = 200
				set hookerB[2] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[3] = 0:
			act 'Inspect clothes prostitutes. Number 3':
			cla
			*clr
			'<center><img src="images\clothes\hooker3.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[3] = 1
				set hookerH[3] = 200
				set hookerB[3] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[4] = 0:
			act 'Inspect clothes prostitutes. Number 4':
			cla
			*clr
			'<center><img src="images\clothes\hooker4.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[4] = 1
				set hookerH[4] = 200
				set hookerB[4] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[5] = 0:
			act 'Inspect clothes prostitutes. Number 5':
			cla
			*clr
			'<center><img src="images\clothes\hooker5.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[5] = 1
				set hookerH[5] = 200
				set hookerB[5] = bedra
				gt 'sexshop','start'
				end
			end
		end
				if hooker[201] = 0:
			act 'Inspect clothes prostitutes. Number 201':
			cla
			*clr
			'<center><img src="images\clothes\hooker201.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[201] = 1
				set hookerH[201] = 200
				set hookerB[201] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[202] = 0:
			act 'Inspect clothes prostitutes. Number 202':
			cla
			*clr
			'<center><img src="images\clothes\hooker202.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[202] = 1
				set hookerH[202] = 200
				set hookerB[202] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[203] = 0:
			act 'Inspect clothes prostitutes. Number 203':
			cla
			*clr
			'<center><img src="images\clothes\hooker203.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[203] = 1
				set hookerH[203] = 200
				set hookerB[203] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[204] = 0:
			act 'Inspect clothes prostitutes. Number 204':
			cla
			*clr
			'<center><img src="images\clothes\hooker204.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[204] = 1
				set hookerH[204] = 200
				set hookerB[204] = bedra
				gt 'sexshop','start'
				end
			end
		end
		if hooker[205] = 0:
			act 'Inspect clothes prostitutes. Number 205':
			cla
			*clr
			'<center><img src="images\clothes\hooker205.jpg"></center>'
			'Clothing prostitutes.'
			'Costs 1000 rubles.'
			act 'Leave': gt 'sexshop','start'
				act 'Buy':
				cla
				set money -= 1000
				set hooker[205] = 1
				set hookerH[205] = 200
				set hookerB[205] = bedra
				gt 'sexshop','start'
				end
			end
		end
	end



end

if $ARGS[0] = 'podval':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Basement with cubicles for watching movies</font></B></center>'
'<center><img src="images\etogame\gloryholeBooths1.jpg"></center>'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths

act 'Go to a free booth': gt 'sexshop','pip'
act 'Go to the toilet': gt 'sexshop','toi'
if masharab = 1:
	act 'Go to Masha': gt 'masharoom','start'
	end
act 'Walk out basement': gt 'sexshop','start'
end

if $ARGS[0] = 'toi':
cla
*clr
set minut += 5
'<center><B><font color = maroon>WC</font></B></center>'
'<center><img src="images\etogame\PublicToilet.jpg"></center>'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)


	if tanga = 1:
	act 'Remove Underwear':
	cla
	set tanga = 0
	gt 'sexshop','toi'
	end
	end

	act 'Look in the mirror':
		cla
		gs 'portmirror'
		set $goto1 = 'sexshop'
		set $goto2 = 'toi'
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			gt 'sexshop','toi'
		end
	end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
	act 'Wash up (0:15)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm with yourself.'
	act 'Exit': gt 'sexshop','toi'
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off face (0:15)':
	cla
	*clr
	set mop = 1
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed sperm from her face.'
	act 'Exit': gt 'sexshop','toi'
	end
end

if cumfrot > 0:
	act 'Wipe the cum from clothing  (0:15)':
	cla
	set cumfrot = 0
	set sweat -= 1
	set minut += 15
	!'<center><img src="images\etogame\facesp.jpg"></center>'
	'You erase traces of semen from the clothes.'
	act 'Exit': gt 'sexshop','toi'
	end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		act 'Finish': gt 'sexshop','toi'
		end
	end
act 'Off the toilet': gt 'sexshop','podval'
end



if $ARGS[0] = 'pip':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Booth movies</font></B></center>'
'<center><img src="images\etogame\ghBooths.jpg"></center>'
'Small cabinet with a TV on the wall, bill acceptor and two holes in the walls at waist level.'
if ghnow > 0: 'You served <<ghnow>> cocks.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths
act 'Get out of the booth': gt 'sexshop','podval'

	if money >= 50 and hour < 23:
		act '50 rubles a stick machine':
		cla
		set money -= 50
		set minut += 15
		'Once you have paid the money earned TV on the wall showing porn.'
		set ghrand = RAND(0,10)
			set horny += 5
			set manna += 5
			'You sat on a chair and watched porn, he began to have a little exciting.'
			act 'The movie ended': gt 'sexshop','pip'

			if horny >= 50:
				act 'Masturbate':
				cla
				set horny += 10
				set manna += 10
				'You caress her pussy fingers and enjoy the pleasant sensation between her legs.'
					if horny >= 100:
					set orgasm += 1
					set horny = 0
					set manna += 15
					set willpower += 15
					set mastr += 1
					'Gradually spread over the pleasurable sensations throughout the body and covers you orgasm.'
					end
				act 'The movie ended': gt 'sexshop','pip'
				end
			end


			if ghrand >= 10 - (cumlip * 2):
				'You hear in the next stall turn on the TV.'

				act 'Stick a finger in the hole (to serve the stranger)':
				cla
				*clr
				set ghnow += 1
				set money += 300
				set fingerRand = RAND(0,4)
				if fingerRand = 0: '<center><img src="images\etogame\ghFinger.jpg"></center>'
				if fingerRand = 1: '<center><img src="images\etogame\ghFinger1.jpg"></center>'
				if fingerRand = 2: '<center><img src="images\etogame\ghFinger2.jpg"></center>'
				if fingerRand = 3: '<center><img src="images\etogame\ghFinger3.jpg"></center>'
				if fingerRand = 4: '<center><img src="images\etogame\ghFinger4.jpg"></center>'
				'You poked fingers in the hole showing that you are ready to serve member.'
				'Stranger slipped into the hole 300 rubles, and then out of the hole seemed his cock.'
					act 'Sucking dick':
					cla
					*clr
					set horny += VAF
					set guy += 1
					set bj += 1
					set gloryhole += 1
					set swallow += 1
					set cumlip += 1
					dynamic $venerasiak
					set ghprand = RAND(0,37)
					if ghprand = 0: '<center><img src="images\picV\gloryhole.jpg"></center>'
					if ghprand = 1: '<center><img src="images\picV\gloryhole1.jpg"></center>'
					if ghprand = 2: '<center><img src="images\picV\gloryhole2.jpg"></center>'
					if ghprand = 3: '<center><img src="images\picV\gloryhole3.jpg"></center>'
					if ghprand = 4: '<center><img src="images\picV\gloryhole4.jpg"></center>'
					if ghprand = 5: '<center><img src="images\picV\gloryhole5.jpg"></center>'
					if ghprand = 6: '<center><img src="images\picV\gloryhole6.jpg"></center>'
					if ghprand = 7: '<center><img src="images\picV\gloryhole7.jpg"></center>'
					if ghprand = 8: '<center><img src="images\picV\gloryhole8.jpg"></center>'
					if ghprand = 9: '<center><img src="images\picV\gloryhole9.jpg"></center>'
					if ghprand = 10: '<center><img src="images\picV\gloryhole10.jpg"></center>'
					if ghprand = 11: '<center><img src="images\picV\gloryhole11.jpg"></center>'
					if ghprand = 12: '<center><img src="images\picV\gloryhole12.jpg"></center>'
					if ghprand = 13: '<center><img src="images\picV\gloryhole13.jpg"></center>'
					if ghprand = 14: '<center><img src="images\picV\gloryhole14.jpg"></center>'
					if ghprand = 15: '<center><img src="images\picV\gloryhole15.jpg"></center>'
					if ghprand = 16: '<center><img src="images\picV\gloryhole16.jpg"></center>'
					if ghprand = 17: '<center><img src="images\picV\gloryhole17.jpg"></center>'
					if ghprand = 18: '<center><img src="images\picV\gloryhole18.jpg"></center>'
					if ghprand = 19: '<center><img src="images\picV\gloryhole19.jpg"></center>'
					if ghprand = 20: '<center><img src="images\picV\gloryhole20.jpg"></center>'
					if ghprand = 21: '<center><img src="images\picV\gloryhole21.jpg"></center>'
					if ghprand = 22: '<center><img src="images\picV\gloryhole22.jpg"></center>'
					if ghprand = 23: '<center><img src="images\picV\gloryhole23.jpg"></center>'
					if ghprand = 24: '<center><img src="images\picV\gloryhole24.jpg"></center>'
					if ghprand = 25: '<center><img src="images\picV\gloryhole25.jpg"></center>'
					if ghprand = 26: '<center><img src="images\picV\gloryhole26.jpg"></center>'
					if ghprand = 27: '<center><img src="images\picV\gloryhole27.jpg"></center>'
					if ghprand = 28: '<center><img src="images\picV\gloryhole28.jpg"></center>'
					if ghprand = 29: '<center><img src="images\picV\gloryhole29.jpg"></center>'
					if ghprand = 30: '<center><img src="images\picV\gloryhole30.jpg"></center>'
					if ghprand = 31: '<center><img src="images\picV\gloryhole31.jpg"></center>'
					if ghprand = 32: '<center><img src="images\picV\gloryhole32.jpg"></center>'
					if ghprand = 33: '<center><img src="images\picV\gloryhole33.jpg"></center>'
					if ghprand = 34: '<center><img src="images\picV\gloryhole34.jpg"></center>'
					if ghprand = 35: '<center><img src="images\picV\gloryhole35.jpg"></center>'
					if ghprand = 36: '<center><img src="images\picV\gloryhole36.jpg"></center>'
					if ghprand = 37: '<center><img src="images\picV\gloryhole37.jpg"></center>'
					'You took the cock in her mouth and began to suck him, treating him with her lips struggling.'
						if horny >= 100:
						set VAF += 1
						set orgasm += 1
						set horny = 0
						set manna += 15
						set willpower += 15
						set lip += 1
						'<B>Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.</B>'
						end
					'Finally the stranger began to cum in your mouth filling it with vigorous sperm. Once you´ve licked all the sperm from a member of the wall, a man came out of the booth.'
					act 'Wipe your face': gt 'sexshop','pip'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'porn':
cla
*clr
set minut += 5
'In general, you have a noble blowjob, everyone knows that. Do not you want to earn extra money in the porn business actress? Pay there is certainly better than here, and cocks, maybe even more if they work. Well? Other proposals will not be!'
	act 'Agree':
	cla
	*clr
	pornstudio = 2
	gt 'pornstudio','1'
	end
	act 'Refuse':
	cla
	*clr
	pornstudio = 1
	gt 'sexshop','start'
	end
end

if $ARGS[0] = 'kendra':
cla
*clr
set minut += 10
gs 'stat'
'<center><img src="images\img\centr\shkend.jpg"></center>'
'In the store you can see Kendra, trying on latex clothes.'
'"Who do we have here, my favorite litter, come to me and I have already very excited choosing a toy, now we are testing something on the spot" Kendra laughed, sitting down on the table and opening your legs.'
act 'Away from her': gt 'sexshop','start'
if DOM > 10: act 'First deserve': gt 'sexshop','kendra4'
	act 'Serve Kendra':
	cla
	*clr
	set SUB += 1
	!set girl += 1
	set lesbian += 1
	'<center><img src="images\img\centr\shkend1.jpg"></center>'
	'You quickly throw off clothes and knelt before the current Kendra pussy and lick her host. As long as you carefully suck Kendra yells and praises your tongue, saying that more than one tab is not pleased her as yours.'
	'"Now take anything from toys" says Kendra'
	act 'Mark Dildo': gt 'sexshop','kendra1'
	act 'Give her strapon': gt 'sexshop','kendra2'
	end
end

if $ARGS[0] = 'kendra1':
cla
*clr
set pipirand = rand(0,3)
set minut += 10
gs 'stat'
'<center><img src="images\img\centr\shkend2.jpg"></center>'
'You take a dildo, and licking the pussy insert Kendra. While you with one hand oruduete dildo in her pussy, the second caress her clit trying to bring herself to orgasm. Kendra meanders sitting on the table carefully podmahivaya your movements to the beat.'
	if pipirand > 0:
	set orgasm += 1
	'When Kendra starts sodragatsya whole body orgasm, you also covers the wave of orgasm. Slightly recovering himself, Kendra looks at you, "And yet you are beautiful litter, even committed odovremeno with me"'
	act 'Finish': gt 'sexshop','start'
	end

	if pipirand = 0:
		act 'Oops ...':
		cla
		*clr
		set sweat += 1
		'<center><img src="images\img\centr\shkend4.jpg"></center>'
		'Suddenly, when you were ready to cum, Kendra began writing her urine was flowing through the dildo already have flowed through your hand.'
		'"Damn," you cried out and were about to throw a dildo.'
		'"Let´s finish up, slut," cried Kendra'
		act 'Send it': gt 'sexshop','kendra3'
			act 'Continue':
			cla
			*clr
			set sweat += 3
			set SUB += 2
			set horny = 0
			'<center><img src="images\img\centr\shkend3.jpg"></center>'
			'You dutifully continued to wield a dildo, still stroking her clitoris, but excitement is already gone. Her urine dripping from a dildo on your hand and now the hand and stomach and thighs, everything was in her urine.'
			'Finally she finished, "And now Carney me, and then I become dirty." commanded Kendra'
			act 'Send it': gt 'sexshop','kendra3'
				act 'Lick':
				cla
				*clr
				set SUB += 2
				'<center><img src="images\img\centr\shkend5.jpg"></center>'
				'You dutifully moved closer to her and began to slowly lick the urine from her thighs and pussy.'
				'"Hold still active nipple" Customized you Kendra. You began to lick faster, with difficulty restraining retching from urine taste in the mouth.'
				'"That´s clever, come to me often, have fun" with these words Kendra dressed and gone, leaving you sitting on the floor in a puddle of urine.'
				act 'Leave': gt 'sexshop','start'
				end
			end
		end
	end
end

if $ARGS[0] = 'kendra2':
cla
*clr
set minut += 10
gs 'stat'
'<center><img src="images\img\centr\shkend8.jpg"></center>'
'Kendra strap dress and looking at you asking, "Well, that beauty in which you insert hole?".'
	act 'In the vagina':
	cla
	*clr
	set sex += 1
	vagina += 1
	set orgasm += 1
	set horny = 0
	'<center><img src="images\img\centr\shkend10.jpg"></center>'
	'Kendra sits in a chair and you jump up to the top of her strap-on entering their pussy. You are riding on a strap, and Kendra podmahivaet bottom you trying to shove it as far as possible. Neskolko minutes through such jumps orgasm covers you, and you slide with Kendra.'
	'"That´s clever, come to me often, have fun" with these words Kendra got dressed and went'
	act 'Leave': gt 'sexshop','start'
	end

	act 'In Anus':
	cla
	*clr
	set anal += 1
	set orgasm += 1
	anus += 1
	set horny = 0
	'<center><img src="images\img\centr\shkend9.jpg"></center>'
	'You jump up on the table and spreads his legs, gently introduces Kendra strap you in the anus and gives your ass neskolkosekund used to, then it begins to move. Strap-on slides inside your ass and you will soon become a nice, seeing that you enjoy the process of Kendra begins to slowly accelerate, and you lozhite hand on his crotch and fingers massiruete clitoris, after a few minutes you orgasm covers you whole body shudder convulsively bows down and Kendra cuddle so that you strap is included in the entire length of the anus, you have dark eyes and you are off.'
	'When you come to a Kendra is already dressed, "Well, you have nifiga a orgasm, it will be necessary to find a double strap want to see that you two will trunks" with these words Kendra left.'
	act 'Leave': gt 'sexshop','start'
	end
end

if $ARGS[0] = 'kendra3':
set minut += 10
set anal += 1
anus += 1
set rape += 1
cla
*clr
'<center><img src="images\img\centr\shkend6.jpg"></center>'
'"Oh damn, I´m now going to teach obedience" with these words Kendra jumped up and threw you to the table on which sat a moment ago more themselves. Falling on the table you swipe back, and while you´re writhing in pain on the table, Kendra wore a strap, and pressed his hands to the table your hips nachila push it to you in the anus, even neudosuzhivshis lubricate it. For your back pain was added pain of rupture threesome anus. Kendra fucked with force your anus saying that you litter and voting rights you have.'
'When she finally tired, you just brushed the floor from the table, you fell with a thud on the floor.'
'"On your knees slut," she hissed.'
	act 'To kneel':
	cla
	*clr
	'<center><img src="images\img\centr\shkend7.jpg"></center>'
	'You scrambled to his knees, his back ached terribly, and it seems from the anus dripping blood.'
	'"Suck" commanded Kendra substituting strap to your face. Have you looked at the strap, which were traces of your blood.'
	'"Yes suck you already." Kendra cried and vskhvatila your hair, you reflexively opened his mouth something to scream, but Kendra pushed him strapon before. She fucked you in the mouth with the same ostervineniem munutu ago that you tore the anus.'
	'When she finally calmed down and let go of your hair, you have no way to hit the floor, Kendra leaned over you and said, "Remember you litter, what you say and do that, I will say on the street naked cancer stand, will stand, and thank all of you who fuck, and now learn the lesson, and I have to go "after she got dressed and left.'
	act 'Leave': gt 'sexshop','start'
	end
end

if $ARGS[0] = 'kendra4':
cla
*clr
set minut += 10
set orgasm += 1
set horny = 0
set picrand = rand(11,12)
'<center><img src="images\img\centr\shkend<<picrand>>.jpg "></center>'
'Kendra looked surprised at you until you threw off her clothes.'
'Undressed you turned to her ass and sticking out his ass "Well look, you will finish to orgasm can try strapon"'
if picrand = 11: 'Kendra knelt down and began to lick your pussy, her tongue slid over sexual sponges, a sensitive clitoris and drooping into the vagina a few minutes of her effort, you left off.'
if picrand = 12: 'Kendra knelt down and her tongue stuck on the move you in getting inside the anus, you had oschushenie you in the ass snake crawled and twisted it all storrony, fingers it penetrated into the vagina for a few minutes because of her tongue snaked in your ass and pussy Palchikov diligently massaging you have experienced orgasm.'
'"Well, I will fulfill your desires?" Kendra said, catching his breath. "Now my full proof."'
act 'Give her strapon': gt 'sexshop','kendra2'
if DOM > 25: act '"Perebesh"': gt 'sexshop','start'
end

if $ARGS[0] = 'shprod':
cla
*clr
set minut += 5
'<center><img src="images\img\centr\shprod.jpg"></center>'
'The store is right for you to begin to offer the seller and try what that miniskirt "Girl you is very you will only try on"'
act 'Refuse': gt 'sexshop','start'
	act 'Try':
	cla
	*clr
	set picrand = 47
	'<center><img src="images\img\centr\shprod1.jpg"></center>'
	'You wear a skirt out of the booth and vydya napravlyuetes the mirror, you do not have panties and skirt on so short that looks more like a belt did not cover anything and all your charms visible from all directions.'
	'Approaching the mirror you are considering this so-called skirt seller kneels behind you and starts praising naglazhivat your ass skirt, his hands already wander around your hips and lips as close to your buttocks says that when they touch on your skin, word soon cease and remain just the touch of his lips to your skin, closer to prilizhayuschiesya pussy.'
	act 'Push him': gt 'sexshop','start'
	act 'Let him': gt 'sex','kuni'
	end
end
--- sexshop ---------------------------------

# shopdacha

'<center><B><font color = maroon>Shop for all homes</font></B></center>'
'<center><img src="images\etogame\shopdacha.jpg"></center>'
'In this store you can buy a cottage in a cooperative, land for cottage for 1.5 million and pay for all the buildings.'
'All payment shop produces a bank card. On your map now <<karta>> rubles.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': set minut += 5 & gt 'torgcentr'
if hour < 8 or hour > 20:
'Shop is closed and you are asked to retire.'
else

	if karta >= 30000 and dachaest = 0:
		act 'Buy a cottage for 30,000 rubles':
		cls
		karta -= 30000
		dachaest = 1
		minut += 15
		etoexhib = 0
		gs 'stat'
		'You bought a house with a garden in the dacha cooperative at 5 km. along the northern road.'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 1500000 and placeMansion = 0:
		act 'Buy land for Mansion for 1.5 million rubles':
		cls
		karta -= 1500000
		placeMansion = 1
		minut += 5
		gs 'stat'
		'You have bought land for Mansion'
		act 'Leave': gt $curloc
		end
	end


	if karta >= 500000 and placeMansion = 1:
		act 'Connect water, electricity for 500,000 rubles':
		cls
		karta -= 500000
		placeMansion = 2
		minut += 5
		gs 'stat'
		'You paid for a connection of services to the site'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 1500000 and placeMansion = 2:
		act 'Build Mansion´s shell for 1.5 million rubles':
		cls
		karta -= 1500000
		placeMansion = 3
		minut += 5
		gs 'stat'
		'You paid for the construction of the Mansion´s shell'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
		act 'Build rooms for 500,000 rubles':
		cls
		karta -= 500000
		ymanrem[3] = 1
		minut += 5
		gs 'stat'
		'You paid for the construction of the Mansion´s rooms'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
		act 'Build baths for 800,000 rubles':
		cls
		karta -= 800000
		banaMansion = 1
		minut += 5
		gs 'stat'
		'You paid for the construction of the Mansion´s bathrooms'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
		act 'Build pool for 500,000 rubles':
		cls
		karta -= 500000
		bassMansion = 1
		minut += 5
		gs 'stat'
		'You paid for the construction of the Mansion´s pool'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
		act 'Pay for repairs Hall for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[3] = 2
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
		act 'Pay lounge furniture for 150,000 rubles':
		cls
		karta -= 150000
		ymanrem[3] = 3
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
		act 'Pay for repairs bedroom for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[4] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
		act 'Pay bedroom furniture for 300,000 rubles':
		cls
		karta -= 300000
		ymanrem[4] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
		act 'Pay bathroom renovation for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[5] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
		act 'Pay for bathroom furniture and fixtures for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[5] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture and sanitary ware.'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
		act 'Pay renovated kitchen for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[6] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
		act 'Pay kitchen furniture for 350,000 rubles':
		cls
		karta -= 250000
		ymanrem[6] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture for the kitchen.'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
		act 'Pay for repairs hall for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[7] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
		act 'Pay furniture hall for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[7] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture for the hall'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
		act 'Pay for repairs fireplace room for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[8] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
		act 'Pay for the purchase of furniture for the fireplace room for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[8] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture.'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
		act 'Children´s room to pay for repairs for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[9] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
		act 'Pay for the purchase of furniture for the nursery 250,000':
		cls
		karta -= 250000
		ymanrem[9] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
		act 'Pay for repairs library for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[10] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
		act 'Pay for the purchase of furniture for libraries for 250,000 rubles':
		cls
		karta -= 250000
		ymanrem[10] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
		act 'Pay for repairs gym 250,000':
		cls
		karta -= 250000
		ymanrem[11] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
		act 'Pay furniture gym 250,000':
		cls
		karta -= 250000
		ymanrem[11] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture for the gym'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
		act 'Pay for repair of the 250 000':
		cls
		karta -= 250000
		ymanrem[12] = 1
		minut += 5
		gs 'stat'
		'You pay for repairs'
		act 'Leave': gt $curloc
		end
	end

	if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
		act 'Pay for the purchase of furniture for the office 250 000':
		cls
		karta -= 250000
		ymanrem[12] = 2
		minut += 5
		gs 'stat'
		'You paid for the purchase of furniture.'
		act 'Leave': gt $curloc
		end
	end
end
--- shopdacha ---------------------------------

# sportShop
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Sporting goods store</font></B></center>'
	'<center><img src="images\etogame\sportshop.jpg"></center>'
	clr

	gs 'stat'

	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	lcolor = rgb(106,90,205)

	act 'QUIT':
		cla
		set minut += 5
		gt 'torgcentr'
	end

	act 'In the women´s clothing department':
		cla
		set minut += 5
		gt 'sportshop','clo'
	end

	if skak = 0 and money >= 500:
		act 'Buy rope 500 rubles':
			cla
			set minut += 5
			set money -= 500
			set skak = 1
			act 'Pick up a package': gt 'sportshop','start'
		end
	end

	if obruch = 0 and money >= 1500:
		act 'Buy hoop 1,500 rubles':
			cla
			set minut += 5
			set money -= 1500
			set obruch = 1
			act 'Pick up a package': gt 'sportshop','start'
		end
	end

	if bookYog = 0 and money >= 1500:
		act 'Buy benefits of yoga 1,500 rubles':
			cla
			set minut += 5
			set money -= 1500
			set bookYog = 1
			act 'Pick up a package': gt 'sportshop','start'
		end
	end

	if remsitr = 1 and treadmill = 0 and money >= 5000:
		act 'Treadmill 5000 rubles':
			cla
			set minut += 5
			set money -= 5000
			set treadmill = 1

			'The attendant informed that they can send it directly to your house.'

			act 'Give the address': gt 'sportshop','start'
		end
	end
end

if $ARGS[0] = 'clo':
	cla
	*clr

	set mag = 1

	$metka = $ARGS[0]
	$loc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC

	set minut += 5

	'<center><B><font color = maroon>Department of women´s clothing.</font></B></center>'
	'<center><img src="images\etogame\sportshop.jpg"></center>'

	clr

	gs 'stat'

	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	'All clothing costs 4,000 rubles, sportswear dimensionless.'

	act 'Get out of the department':
		cla
		set minut += 5
		gt 'sportshop','start'
	end

	if money >= 4000:
		if yoga[1] = 0:
			act 'Inspect 1st sportswear.': set numdres = 1 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[2] = 0:
			act 'Inspect 2nd sportswear.': set numdres = 2 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[3] = 0:
			act 'Inspect 3rd sportswear.': set numdres = 3 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[4] = 0:
			act 'Inspect 4th sportswear.': set numdres = 4 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[5] = 0:
			act 'Inspect 5th sportswear.': set numdres = 5 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[6] = 0:
			act 'Inspect 6th sportswear.': set numdres = 6 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[7] = 0:
			act 'Inspect 7th sportswear.': set numdres = 7 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[8] = 0:
			act 'Inspect 8th sportswear.': set numdres = 8 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[9] = 0:
			act 'Inspect 9th sportswear.': set numdres = 9 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[10] = 0:
			act 'Inspect 10th sportswear.': set numdres = 10 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[11] = 0:
			act 'Inspect 11th sportswear.': set numdres = 11 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[12] = 0:
			act 'Inspect 12th sportswear.': set numdres = 12 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[13] = 0:
			act 'Inspect 13th sportswear.': set numdres = 13 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[14] = 0:
			act 'Inspect 14th sportswear.': set numdres = 14 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[15] = 0:
			act 'Inspect 15th sportswear.': set numdres = 15 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[16] = 0:
			act 'Inspect 16th sportswear.': set numdres = 16 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[17] = 0:
			act 'Inspect 17th sportswear.': set numdres = 17 & payclo = 4000 & gt 'loker','yoga'
		end
		if yoga[18] = 0:
			act 'Inspect 18th sportswear.': set numdres = 18 & payclo = 4000 & gt 'loker','yoga'
		end
	end
end
--- sportShop ---------------------------------

# stripclub
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
Set scrand = RAND(1,100)
if scrand <= 40 and stripday ! day:
set stripday = day
Set cfnm = 1
end
if scrand > 40 and stripday ! day:
set stripday = day
Set cfnm = 0
end
if cfnm = 1: 'Today´s program, male striptease, ticket 500 rub.'
if cfnm = 0: 'Today´s program, striptease, ticket 500 rub.'
act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	if stripdolg > 0 and money >= 50000:
		act 'Pay a fine of 50,000 rubles':
			set stripdolg = 0
			set money -= 50000
			gt 'stripclub','start'
			end
		end


	if stripdolg = 0:

	if cfnm = 1 and money >= 500 and hour < 23:
		act 'Pay 500 rubles and enter':
		cla
		set money -= 500
		set minut += 5
		frost = 0
		gt 'stripclub','forwoman'
		end
	end
	if cfnm = 0 and money >= 500 and hour < 23:
		act 'Pay 500 rubles and enter':
		cla
		set money -= 500
		set minut += 5
		frost = 0
		gt 'stripclub','forman'
		end
	end
	if stripdance > 0 and stripwork = 0:
		act 'Talk to the manager about the work as a stripper':
		cla
		set minut += 15
		gs 'stat'
		'You performed in the manager´s office. In the office, a young man asked you to sit down and began his speech. "We are working every day from 15 to 2 nights. Sometimes there are days of male strippers. Strippers we do not pay, only provide costumes. This is to ensure that there was an incentive to earn a tip. Just stripper can dance lap dance for a fee client but this should be of interest to the client, with each lap dance stripper gets 800 rubles, 200 is the club can not otkazyvatsya from private dances. And if a lap dance is a solid stripdens, then dance on stage involves a lot of work on the pole. Unless you dance on a pole, it is not pozortes. with interchangeable I do not hurry, strippers themselves when they want to come to work. schedule is free, I just do not want your labor, and work as a stripper can be combined with other types of work. So how? Satisfied? "'
		act 'No': gt 'stripclub','start'
			act 'Yes':
			cls
			stripwork = 1
			'Yes, I´m happy with everything you nodded. Manager held you in the fitting room and showed a woman who is responsible for the costumes. It introduced you to the chief of security, who wrote you Propus and left leaving you.'
			if cfnm = 0: act 'Osmatrivatsya': gt 'stwork','start'
			if cfnm = 1:
			'Today the program male striptease, so some guys behind the scenes.'
			act 'Exit': gt 'stripclub','start'
			end
			end
		end
	end

	if cfnm = 0 and stripwork > 0:
	act 'Walk in dressing room': frost = 0 & gt 'stwork','start'
	elseif cfnm > 0 and stripwork > 0:
	'Today there is no work, male striptease.'
	end

	end


end

if $ARGS[0] = 'forman':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub1.jpg"></center>'
clr
gs 'stat'
'On the stage in the main hall are the girls undress to the music, there is a service privat dance, worth 1000 rubles for the dance.'

	act 'QUIT':
	cla
	set minut += 5
	gt 'stripclub','start'
	end

	if hour < 23:
		act 'Sit at a table near the stage and watch striptease': gt 'stripclub','stol'
		if money >= 1000:
		act 'Order a lap dance (1000 rubles)': gt 'stripclub','privat'
		end
		if money >= 5000:
		act 'Order a special show':
			set stprrand = rand(0,1)
			if stprrand = 0: gt 'stripclub','stpr1'
			if stprrand = 1: gt 'stripclub','stpr2'
			end
		end
	end
end

if $ARGS[0] = 'privat':
cla
*clr
set money -= 1000
set minut += 60
set horny += 25
set DOM += 1
clr
gs 'stat'
set privrand = RAND(0,4)
if privrand = 0:
	'<center><img src="images\img\centr\priv2.jpg"></center>'
	'During the girls keen on and begin to caress you frankly.'
	act 'Finish': gt 'stripclub','forman'
	act 'Let them': gt 'stripclub','privsex'
	end
if privrand > 0:
	'<center><img src="images\etogame\privat.jpg"></center>'
	'Very hot girls dancing around you, you feel as an aphrodisiac.'
	if money >= 1000:
	act 'Another lap dance (1000 rubles)': gt 'stripclub','privat'
	end
	act 'Go to scene': gt 'stripclub','forman'
	end
end

if $ARGS[0] = 'stol':
cla
*clr
clr
gs 'stat'
'<center><img src="images\etogame\stripclub2.jpg"></center>'
'On the stage lit girl dancing and undressing smartly before strenuous male audience.'

	act 'See striptease':
	cla
	*clr
	clr
	gs 'stat'
	set minut += 15
	'<center><img src="images\etogame\stripclub4.jpg"></center>'
	'Girl dancing around you clearly raschityvaya on tips.'
		if money >= 50:
			act 'Shove her 50 rubles':
			cla
			*clr
			set horny += 5
			set minut += 15
			set money -= 50
			'<center><img src="images\etogame\stripclub6.jpg"></center>'
			'You are stuck in the 50 rubles stripper panties and she invitingly start wagging her hips and shake tits in front of you, you feel like you gradually begin to be excited.'
			act 'Further': gt 'stripclub','stol'
			end
		end

		act 'Downcast eyes':
		cla
		set horny -= 5
		set minut += 15
		'You decided not to give money to a stripper and took from her eyes, you feel a little ashamed and excitation decreases.'
		act 'Further': gt 'stripclub','stol'
		end
	end

	act 'Away from the scene': gt 'stripclub','forman'
end


if $ARGS[0] = 'forwoman':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub1.jpg"></center>'
clr
gs 'stat'

	act 'QUIT':
	cla
	set minut += 5
	gt 'stripclub','start'
	end

	if hour < 23 and zenit > 0 and minifoto = 0:
		act 'Photograph':
			set minut += 10
			'As soon as you get the camera to you immediately approached security guard, and said that there should not be removed, you apologize and hide the camera in her purse.'
			end
		end

	if hour < 23 and minifoto > 0:
		act 'Photograph':
			cla
			set minut += 60
			'You remove the mini camera and start to gently remove walking down the hall.'
			set stripfotorand = rand(0,10)
			if stripfotorand < 2:
				set minifoto = 0
				set stripdolg = 1
				'It suits you and tight security guard taking you by the hand leads to the output, the output is already waiting for the administrator, it takes you a camera, and says that you have a fine of 50,000 rubles. and until you pay to join the club can no longer.'
				act 'Exit': gt 'stripclub','start'
				end
			if stripfotorand >= 2 and stripfotorand < 6:
				set shantfoto += 1
				'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close, but in the end you still manage to make a normal picture.'
				act 'Exit': gt 'stripclub','start'
				end
			if stripfotorand >= 6:
				'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close.'
				act 'Exit': gt 'stripclub','start'
				end
			end
		end

	if hour < 23:
		act 'Sit at a table near the stage and watch striptease': gt 'stripclub','stolW'
	end
end

if $ARGS[0] = 'stolW':
cla
*clr
clr
gs 'stat'
'<center><img src="images\picVA\stripW.jpg"></center>'
'On stage act and inflated athletic guys, girls squeal and shoved them money in the heat.'
	if hour < 23:
		act 'See striptease':
		cla
		*clr
		clr
		gs 'stat'
		set minut += 15
		'<center><img src="images\picVA\stripW1.jpg"></center>'
		'To you a stripper came and hugged you.'
			if money >= 50:
				act 'Shove him 50 rubles':
				cla
				*clr
				set horny += 5
				set minut += 15
				set money -= 50
				'<center><img src="images\picVA\stripW2.jpg"></center>'
				'You shoved 50 rubles strippers and he sat on a chair you started dancing in front of you, he pulled off melting and you´ll see who gets his dick. Stripper took you to his chest, trying to get her out from under her blouse.'
				act 'Stop': gt 'stripclub','stolW'
				!act 'Touch his hand member': gt 'cfnm','start'
				act 'Let him expose your breasts': gt 'cfnm','start'
				end
			end

			act 'Downcast eyes':
			cla
			set horny -= 5
			set minut += 15
			'You decided not to give money to strippers and looked away from him, you feel a little ashamed and arousal decreases.'
			act 'Further': gt 'stripclub','stolW'
			end
		end
	end

	act 'Away from the scene': gt 'stripclub','forwoman'
end

if $ARGS[0] = 'privsex':
cla
*clr
set horny = 0
set orgasm += 1
'<center><img src="images\img\centr\priv3.jpg"></center>'
'You widely spreads her legs and has been one lick your pussy, bringing you to orgasm, and the second continues to caress the body.'
act 'Finish': gt 'stripclub','forman'
act 'More': gt 'stripclub','privsex1'
end

if $ARGS[0] = 'privsex1':
cla
*clr
set girl += 2
set lesbian += 1
set privpicrand = RAND(4,7)
'<center><img src="images\img\centr\priv<<privpicrand>>.jpg "></center>'
'You caress each other.'
act 'Finish': gt 'stripclub','forman'
if hour > 23:
act 'More': gt 'stripclub','privsex1'
end
end

if $ARGS[0] = 'stpr1':
cla
*clr
set horny += 30
'<center><img src="images\img\centr\prsex1.jpg"></center>'
'The room includes two girls with a strap, and begin to fuck each other.'
act 'Finish': gt 'stripclub','forman'
act 'Join':
	cla
	*clr
	set SUB += 3
	set girl += 2
	set lesbian += 1
	set sex += 1
	set anal += 1
	'<center><img src="images\img\centr\prsex2.jpg"></center>'
	'You undress and kneels in front of the girls, they against you and substitute Strap to your face, you start vskhvativ Strap them greedily sucking, licking the remnants of their juices.'
	act 'Doggy-Style':
		cla
		*clr
		'<center><img src="images\img\centr\prsex3.jpg"></center>'
		'You get up cancer and one of the girls comes to you in the pussy as you continue to suck the second.'
		act 'In Two Smoking Barrels':
			cla
			*clr
			set horny = 0
			set orgasm += 1
			'<center><img src="images\img\centr\prsex4.jpg"></center>'
			'You sodites one of the threesome and the second girl enters you into the anus, they fuck you in both holes bringing to Orgs.'
			act 'Further':
				cla
				*clr
				set cumlip += 1
				set cumface += 1
				set cumbrest += 1
				'<center><img src="images\img\centr\prsex5.jpg"></center>'
				'When you are finished, the girls stand over you and out of their threesome poured liquid to taste much like a sperm, it is poured into your mouth, face and chest.'
				act 'Finish': gt 'stripclub','forman'
				end
			end
		end
	end
end

if $ARGS[0] = 'stpr2':
cla
*clr
set girl += 2
set lesbian += 1
'<center><img src="images\img\centr\prsex6.jpg"></center>'
'The room includes two girls with a strap in his hand, they strip you and freeze in anticipation of your wishes.'
act 'Fuck them':
	cla
	*clr
	set DOM += 3
	'<center><img src="images\img\centr\prsex7.jpg"></center>'
	'You wear the strap, and the girls kneel and begin to suck it.'
	act 'Fuck them': gt 'stripclub','stpr3'
	end
act 'Surrender':
	cla
	*clr
	set SUB += 3
	'<center><img src="images\img\centr\prsex8.jpg"></center>'
	'You get up on his knees, and girls wear Vibrators and give you their sucking you with joy and doing.'
	act 'Surrender': gt 'stripclub','stpr4'
	end
end

if $ARGS[0] = 'stpr3':
cla
*clr
set horny = 0
set orgasm += 1
set prsexrand = rand(9,13)
'<center><img src="images\img\centr\prsex<<prsexrand>>.jpg "></center>'
'You fuck them as your heart wants, eventually ends themselves.'
if hour > 23:
act 'More': gt 'stripclub','stpr3'
end
act 'Finish': gt 'stripclub','forman'
end

if $ARGS[0] = 'stpr4':
cla
*clr
set horny = 0
set orgasm += 1
set prsexrand = rand(14,19)
'<center><img src="images\img\centr\prsex<<prsexrand>>.jpg "></center>'
'They twirl as you want, then fucking couple then one by one, in the end you end.'
if hour > 23:
act 'More': gt 'stripclub','stpr4'
end
act 'Finish': gt 'stripclub','forman'
end
--- stripclub ---------------------------------

# stwork
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 5
stripMir = 1
'<center><B><font color = maroon>Dressing for strippers</font></B></center>'
'<center><img src="images\etogame\striprazd.jpg"></center>'
'On the wall of the set <a href="exec:GT ''mirror'',''start''">mirrors</a> to whom <a href="exec:dynamic $stripgirl">girls</a> lead myself up before performances.'
'<a href="exec:stripMir = 0 & GT ''stripclub'',''start''">Do not noticeable, steel door</a> in the hallway overlooks the back yard and all the staff goes through the door to work, and not through the front door. About this entry is always worth <a href="exec:dynamic $stripohr">guard</a>.'
'Behind wooden door located <a href="exec:dynamic $striptoilet">toilet for staff</a>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if tatplech > 0: stripKoef = RAND(1,3)
if tatback > 0: stripKoef2 = RAND(1,3)
if tatback > 0: stripKoef3 = RAND(1,3)
if tatupb > 0: stripKoef4 = RAND(3,6)
if tatleg > 0: stripKoef5 = RAND(1,3)
publichot = vnesh - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
publichotstart = publichot
if hour >= 15 or hour <= 2:
	if mop >= 4:
		if hapri = 1:
			if sweat <= 0:
				if leghair <= 0 and lobok <= 0:
					if fingal <= 0:
					act 'Go on stage': stpredmet = 3 & gt 'stwork2'
					else
					'With such a black eye as you have nothing to do on stage.'
					end
				else
				'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
				end
			else
			'Lord, from you the same stinks like a horse, one must first wash.'
			end
		else
		'Not with this disheveled hair pokazyvatsya in public.'
		end
	else
	'Need to work very defiant makeup.'
	end

else
'Working time is over. Time to go home.'
end


$stripgirl = {
cls
gs 'stat'
striptalkrand = RAND(0,10)
if striptalkrand = 0:$striptalk = 'Have you heard? Then came one somehow the girl, all so beautiful, but the stage was full of zero can not do anything, so it only booed.'
if striptalkrand = 1:$striptalk = 'I´m telling you, men give birth to girls with tattoos.'
if striptalkrand = 2:$striptalk = 'On a pole over much more profitable than just dance striptease, easier to excite the customer, but this pole is difficult.'
if striptalkrand = 3:$striptalk = 'Phew, it does not go out on stage, going back all sweaty, disheveled hair and makeup certainly splyvet. Here one can go bankrupt cosmetics.'
if striptalkrand = 4:$striptalk = 'Generally these private dances, though guaranteed money but it is not on the scene can make more money.'
if striptalkrand = 5:$striptalk = 'Then the girl was ugly one, came on the scene, immediately let her boo, but she started spinning around a pole, customers jaw dropped, it is not bad earned.'
if striptalkrand = 6:$striptalk = 'And why the manager never says male or female day? I recently rushed to work, even nail broke, I take refuge, and here these bears jump on stage. Turned around and went back.'
if striptalkrand = 7:$striptalk = 'Some dechonki told that they had problems arise on the job. For many stritizersha power whore.'
if striptalkrand = 8:$striptalk = 'Here one fat woman trying to dance on the pole, so muzzle flopped on the floor and put a strong bruise.'
if striptalkrand = 9:$striptalk = 'Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but to no avail.'
if striptalkrand = 10:$striptalk = 'I heard a decent clubs abroad strippers themselves pay for the right to work in the club.'
'Girls are engaged with their appearance in the mirror fun chatting about all sorts of trivia.'
'<<$striptalk>>'
act 'Move away': gt $curloc,'start'
}

$stripohr = {
cls
gs 'stat'
'Hefty bored guard at the door. Seeing you it lazily throws "Hello <<$name>>."'
act 'Move away': gt $curloc,'start'
}


$striptoilet2 = {
cls
gs 'stat'
'You rinsed the razor blade which will be enough for <<stanok>> time.'
	if leghair > 0 and stanok > 0:
		act 'Shave your legs (0:15)':
		cla
		*clr
		set minut += 15
		set leghair = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images\pics\shave.jpg"></center>'
		'You lathered up and shaved hair with them.'
		act 'Postpone machine': dynamic $striptoilet2
		end
	end
	if lobok > 0 and stanok > 0:
		act 'Shave pubis (0:15)':
		cla
		*clr
		set minut += 15
		set lobok = -5
		set horny += 5
		set stanok -= 1
		'<center><img src="images\pics\shave3.jpg"></center>'
		'You lathered pubis, then shaved all the hair from it.'
		act 'Postpone machine': dynamic $striptoilet2
		end
	end
act 'Out of the shower and get dressed': dynamic $striptoilet
}


$striptoilet = {
cls
'<center><img src="images\LakeCafe\Toilet.jpg"></center>'
'Dirty and smelly toilet that seems to have never been cleaned'
gs 'stat'

	if tanga = 1:
	act 'Remove Underwear':
	cla
	set tanga = 0
	dynamic $striptoilet
	end
	end

	act 'Look in the mirror':
		cla
		gs 'portmirror'
		set $goto1 = 'stwork'
		set $goto2 = ''
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			dynamic $striptoilet
		end
	end

	if mop ! 1:
		act 'Wash off makeup':
		cla
		*clr
		minut += 5
		mop = 1
		'<center><img src="images\etogame\mop.jpg"></center>'
		'You flushed makeup.'
		act 'Exit': dynamic $striptoilet
		end
	end

	act 'Take a shower (0:15)':
	cla
	*clr
	set minut += 15
	if sweat > -3: set sweat = -3
	set horny += 1
	set hapri = 0
	set mop = 1
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus = 0
	set cumlip = 0
	set cumface = 0
	set cumanus =0
	'<center><img src="images\pics\dush.jpg"></center>'
	'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
		if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
		act 'Get razor': dynamic $striptoilet2
		end
		if horny >= 90:
			act 'Send shower pussy':
			cla
			*clr
			set horny = 0
			set minut += 30
			set mastr += 1
			set orgasm += 1
			set manna += 15
			set willpower += 15
			'<center><img src="images\pics\wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
			act 'Get out and get dressed': dynamic $striptoilet
			end
		end
		if horny >= 40 and hormy < 90:
			act 'Send shower pussy':
			cla
			*clr
			set horny += 5
			set minut += 30
			set manna += 10
			set willpower += 10
			'<center><img src="images\pics\wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. First you were very nice, but after a while, even as it was painful. Excitation of sleep and you stop masturbating.'
			act 'Get out and get dressed': dynamic $striptoilet
			end
		end

	act 'Out of the shower and get dressed': dynamic $striptoilet
	end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
	act 'Wash up (0:15)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm with yourself.'
	act 'Exit': dynamic $striptoilet
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off face (0:15)':
	cla
	*clr
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed sperm from her face.'
	act 'Exit': dynamic $striptoilet
	end
end

if cumfrot > 0:
	act 'Wipe the cum from clothing  (0:15)':
	cla
	*clr
	set cumfrot = 0
	set sweat -= 1
	set minut += 15
	!'<center><img src="images\etogame\facesp.jpg"></center>'
	'You erase traces of semen from the clothes.'
	act 'Exit': dynamic $striptoilet
	end
end

act 'Off the toilet': gt $curloc,'start'
}

end
--- stwork ---------------------------------

# stwork2
!set minut += 15
'<center><B><font color = maroon>Stage</font></B></center>'
'<center><img src="images\etogame\stripclub1.jpg"></center>'
if publichot < 10:$pubhot = 'and boo you, screams are heard "remove this stupid cow"'
if publichot >= 10 and publichot < 20:$pubhot = 'and you boo'
if publichot >= 20 and publichot < 30:$pubhot = 'Catching and frankly bored drinking and talking among themselves'
if publichot >= 30 and publichot < 60:$pubhot = 'sometimes throws at you accompanied by smiles views'
if publichot >= 60 and publichot < 70:$pubhot = 'and legim interest examined you and conduct conversations with each other over a beer'
if publichot >= 70 and publichot < 80:$pubhot = 'interest examined with you'
if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, some even visible sweat on their foreheads'
if publichot >= 90:$pubhot = 'forgotten about his drinking, whooped and rumble money'
'Men sitting in front of the stage <<$pubhot>>.'
clr
gs 'stat'
$pubhotdi = {
if publichot < 30: payrand = 0 & 'Nobody even paid any attention to your movements on the stage.'
if publichot >= 30 and publichot < 60: payrand = 0 & 'A couple of people looked at you but no more than that, you tip no one has.'
if publichot >= 60 and publichot < 70:
payrand = RAND(0,1)
	if payrand = 0: 'A couple of people looked at you but no more than that, you tip no one has.'
	if payrand = 1:
	paymoneyrand = RAND(1,3)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
end
if publichot >= 70 and publichot < 80:
payrand = RAND(0,5)
	if payrand = 0: 'Tip you no one has.'
	if payrand = 1:
	paymoneyrand = RAND(1,3)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 2:
	paymoneyrand = RAND(2,4)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 3:
	paymoneyrand = RAND(3,5)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 4:
	paymoneyrand = RAND(4,6)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 5:
	paymoneyrand = RAND(5,10)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
end

if publichot >= 80 and publichot < 90:
payrand = RAND(0,10)
	if payrand = 0: 'Tip you no one has.'
	if payrand = 1:
	paymoneyrand = RAND(1,3)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 2:
	paymoneyrand = RAND(2,4)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 3:
	paymoneyrand = RAND(3,5)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 4:
	paymoneyrand = RAND(4,6)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 5:
	paymoneyrand = RAND(5,10)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 6:
	paymoneyrand = RAND(7,12)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 7:
	paymoneyrand = RAND(10,15)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 8:
	paymoneyrand = RAND(15,20)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 9:
	paymoneyrand = RAND(20,30)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 10:
	paymoneyrand = RAND(30,50)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
end
if publichot >= 90:
payrand = RAND(0,15)
	if payrand = 0: 'Tip you no one has.'
	if payrand = 1:
	paymoneyrand = RAND(1,3)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 2:
	paymoneyrand = RAND(2,4)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 3:
	paymoneyrand = RAND(3,5)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 4:
	paymoneyrand = RAND(4,6)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 5:
	paymoneyrand = RAND(5,10)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 6:
	paymoneyrand = RAND(7,12)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 7:
	paymoneyrand = RAND(10,15)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 8:
	paymoneyrand = RAND(15,20)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 9:
	paymoneyrand = RAND(20,30)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 10:
	paymoneyrand = RAND(30,40)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 11:
	paymoneyrand = RAND(40,50)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 12:
	paymoneyrand = RAND(50,60)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 13:
	paymoneyrand = RAND(60,70)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 14:
	paymoneyrand = RAND(70,80)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
	if payrand = 15:
	paymoneyrand = RAND(80,100)
	money += paymoneyrand * 10
	'Some guy shoved you in panties <<paymoneyrand>>0 rubles'
	end
end
}

if hour >= 15 or hour <= 2:
	if stpredmet > 0:
		act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
		cls
		minut += 5
		stpredmet -= 1
		sweat += 1
		fat -= 3
		manna -= RAND(5,10)
		if stpredmet = 1: sweat += 1
		if stpredmet = 0: hapri = 0 & stripdancesum += 1
		publichot += RAND(stripdance/30, stripdance/10)
		if publichotstart = publichot: publichot -= RAND(5,10)&publichotstart = publichot
		gs 'stat'
		'<center><img src="images\etogame\stripclub2.jpg"></center>'
		'You danced on stage undressing in public.'
			if ves > rost-90:
			vesrand = RAND(0,100)
			if vesrand >= 75:
			publichot -= RAND(5,10)
			'In the hall they laugh at you, "Look how fat she hang out. Aga and ass shaking like jelly."'
			end
			end
		dynamic $pubhotdi
		act 'further': gt $curloc
		end

		act 'Dance around a pole 5 minutes (<<stpredmet>> garments)':
		cls
		minut += 5
		stpredmet -= 1
		sweat += 2
		fat -= 5
		manna -= RAND(10,50)
		if stpredmet = 1: hapri = 0
		if stpredmet = 0: mop = 0 & stripdancesum += 1
		hapri = 0
		publichot += RAND(stripdance/20, stripdance/5)+ RAND(poledance/20, poledance/5)
		if publichotstart = publichot: publichot -= RAND(5,10)&publichotstart = publichot
		gs 'stat'
		'<center><img src="images\etogame\strippole.jpg"></center>'
		'You danced around the pole showing acrobatics and sexy undressing in public.'
			if ves > rost-90:
			vesrand = RAND(0,100)
			if vesrand >= 75:
			'Performing another trick on the pole you have not kept your weight and crashed to the floor. The crowd laughed, "Hey, hippopotamus, stomp at the swamp where it came from."'
			publichot = 15
			fingalrand = RAND(0,100)
			if fingalrand >= 75:
			fingal += RAND(2,5)
			'When you fall, you greatly venerated person on the floor and it seems you have a bruise on his face blurred.'
			end
			end
			if vesrand >= 50:
			publichot -= RAND(5,10)
			'In the hall they laugh at you, "Look how fat she hang out. Aga and ass shaking like jelly."'
			end
			end
		dynamic $pubhotdi
		act 'further': gt $curloc
		end
	end

	if stpredmet = 0:
		if publichot >= 80 and publichot < 90:
		privatrand = RAND(0,100)
			if privatrand >= 90:
			'After the dance, the guard showed you that you have a customer for a private dance.'
			dynamic $privatdancedi
			exit
			end
		end
		if publichot >= 90:
		privatrand = RAND(0,100)
			if privatrand >= 70:
			'After the dance, the guard showed you that you have a customer for a private dance.'
			dynamic $privatdancedi
			exit
			end
		end

	end



else
'Working time is over. Time to go home.'
end


act 'Quit the stage': gt 'stwork','start'

$privatdancedi = {
act 'Go for a lap dance':
cls
minut += 30
money += 800
sweat = 1
hapri = 0
mop = 0
fat -= 5
stripdancesum += 1
if stprrand = 0: gt 'stwork2','pr1'
if stprrand = 1: gt 'stwork2','pr2'
if stprrand = 2: gt 'stwork2','pr3'
gs 'stat'
'<center><img src="images\etogame\privatstrip.jpg"></center>'
'In a separate room to the music you within half an hour showed different erotic dancing client.'
act 'Go to the locker room': gt 'stwork','start'
end
}


if $ARGS[0] = 'pr1':
cla
*clr
!set money += 2000
'<center><img src="images\img\centr\pr1.jpg"></center>'
'Four-bedded before you dance guys, after a while they offer you service them in full for 5000 rubles.'
act 'Leave': gt 'stwork','start'
	act 'Agree':
	set gang += 1
	set guy += 4
	set picrand = 12
	set money += 5000
	gt 'paysex','var'
	end
end

if $ARGS[0] = 'pr2':
cla
*clr
!set money += 2000
'<center><img src="images\img\centr\pr2.jpg"></center>'
'You dance in front of a guy while he fingering, he soon offers, serve it in full for 3000 rubles.'
act 'Leave': gt 'stwork','start'
	act 'Agree':
	set guy += 1
	set picrand = 39
	set money += 3000
	xgt 'sex','var'
	end
end

if $ARGS[0] = 'pr3':
cla
*clr
!set money += 2000
'<center><img src="images\img\centr\pr3.jpg"></center>'
'You with another dancer portray leysbiyskie game after a few minutes you offer to make your games more realistic for each 2000rub.'
act 'Leave': gt 'stwork','start'
	act 'Agree':
	set girl += 1
	set lesbian += 1
	set picrand = 18
	set money += 2000
	xgt 'lezbsex','var'
	end
end
--- stwork2 ---------------------------------

# torgcentr
gs 'stat'
'<center><B>Shopping mall</B></center>'
'<center><img src="images\img\centr\torgcentr.jpg"></center>'

if hour >= 8 and hour <= 20:
	'Elite <a href="exec:GT ''butik'',''start''">Boutique</a> with a fashionable and expensive clothes.'
	'Next to it there is an expensive <a href="exec:GT ''salon'',''start''">Beauty Spa</a>.'
	'<a href="exec: minut += 3 & GT''hairsalon'',''start''">The Golden Curl Salon</a>.'
	'On the other side <a href="exec:GT ''young_shop''">Shop-Keys Pussy</a> sells clothing for young adults and a <a href="exec:GT ''sportShop'',''start''">sporting goods store</a>.'
	'Further ahead you can see a <a href="exec:$loc=''torgcentr''&GT ''pharmacy'',''start''">pharmacy</a> and a <a href="exec:GT ''zoomagazine'',''start''">pet shop</a>. In front of them a stand with the saying: <a href="exec:GT ''shopdacha''">Shop for all homes</a>.'
	'Near the <a href="exec:gt ''kino''">movies</a> there is a <a href="exec:gt ''bouling''">bowling alley</a> and a <a href="exec:gt ''billiard''">billiard hall</a>.'
	'Located on the ground floor <a href="exec:$loc=''torgcentr''&GT ''shop'',''start''">network supermarket</a> takoyzhe in the residential area.'
end

act 'Leave': gt 'down'
--- torgcentr ---------------------------------

# univer
if $ARGS[0] = 'start':
$sexloc = $CURLOC
cla
*clr
set minut += 5
'<center><B><font color = maroon>The University of</font></B></center>'
'<center><img src="images\etogame\univer.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if student = 0 and abiturient = 0: 'Preparatory courses cost 15,000'
'Examinations for admission to the University are held in August.'
'All lectures begin with a 8:00, late for a lecture is not allowed.'
if student > 0: 'You learn how to <<semestr>> semester <<kurs>> course'
if abiturient = 1: 'You entrant.'
	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age >= 17:
	''
		act 'Pay for training course 15,000 rubles':
		cla
		set minut += 5
		set money -= 15000
		set abiturient = 1
		'You paid 15,000 for preparatory courses. Classes start in 21chas, on weekdays'
		act 'Move away': gt 'univer','start'
		end

	end

	if abiturient >= 1 and month < 9 and hour < 21 and week < 6:
		act 'Attend preparatory courses (1:00)':
		cla
		*clr
		set minut += 60
		set abiturient += 1
		set intel += 1
		'<center><img src="images\etogame\Classroom.jpg"></center>'
		'You were engaged in preparatory courses within an hour.'
		act 'Get out of class': gt 'univer','start'
		end
	end

	if month = 8 and student = 0 and diplom = 0 and age >= 17:
	'You can try to take an entrance exam.'
		act 'Take the entrance exam (1:00)':
		cla
		*clr
		set minut += 60
		'<center><img src="images\etogame\Classroom.jpg"></center>'
		'You passed the entrance exam to university.'
			if intel + abiturient >= 100:
			set student = 1
			set kurs = 1
			set semestr = 1
			set abiturient = 0
			'You have successfully passed the entrance exams and can start training in September.'
			else
			'You failed the entrance exam.'
			end
		act 'Get out of class': gt 'univer','start'
		end
	end

	if week < 6 and student > 0 and month > 8 and month < 12:
	! 1й семестр
		act 'Go to the deanery':
		cla
		if semestr = 2 and examen = 0: set examen = 2
		gt 'univer','dekanat'
		end
	end
	if week < 6 and student > 0 and month > 1 and month < 5:
	! 2й семестр
		act 'Go to the deanery':
		cla
		if semestr = 1 and examen = 0: set examen = 2
		gt 'univer','dekanat'
		end
	end
	if week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
	! 1й семестр экзамены
	act 'Go for exams': gt 'univer','examen'
	end
	if week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
	! 2й семестр экзамены
	act 'Go for exams': gt 'univer','examen'
	end

end


if $ARGS[0] = 'dekanat':
$sexloc = $CURLOC
cla
*clr

if examen = 1:
set examen = 0
	if semestr = 2:
	set semestr = 1
	set kurs += 1
	end
	if semestr = 1:
	set semestr = 2
	end
end

if kurs = 2:
set diplom = 1
set student = 0
set kurs = 0
set semestr = 0
set abiturient = 0
set stipuha = 0
'YOU handed a diploma.'
end

if examen = 2:
set student = 0
set kurs = 0
set semestr = 0
set abiturient = 0
set stipuha = 0
set lektor = 0
'YOU expelled from university.'
end

set minut += 5
'<center><B><font color = maroon>Dean</font></B></center>'
'<center><img src="images\etogame\dekanat.jpg"></center>'
clr
gs 'stat'
'You learn how to <<semestr>> semester <<kurs>> course'
'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
if kursovikD > 0: 'You passed <<kursovikD>> coursework.'


act 'Escape from the dean´s office': gt 'univer','start'
	if hour < 8 and student > 0:
		act 'At the lecture':
		cla
		*clr
		set minut += 360
		set hour = 14
		set minut = 0
		set lektor += 1
		set intel += 1
		'<center><img src="images\etogame\Classroom1.jpg"></center>'
		'You were sitting in lectures and recorded for teacher notes.'
		set zanrand = rand(0,9)
		if zanrand = 0:
			set minut += 60
			'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
			'Classes are over, but you have to stay.'
			act 'Remain in the classroom':
				cla
				*clr
				zanpicrand = rand(1,3)
				'<center><img src="images\img\oldtown\zan<<zanpicrand>>.jpg "></center>'
				'After the class lecturer explains to you for an hour thing.'
				act 'Leave': gt 'univer','dekanat'
				act 'Seduce':
					cla
					*clr
					if zanpicrand = 1: set picrand = 44
					if zanpicrand = 2: set picrand = 45
					if zanpicrand = 3: set picrand = 46
					'<center><img src="images\img\oldtown\zan1<<zanpicrand>>.jpg "></center>'
					'You grab his penis, he reflexively pulls away, but then relaxes and allows you to continue.'
					act 'Blow job': gt 'sex','minet'
					end
				end
			end
		if zanrand = 1:
			set minut += 60
			'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
			'Classes are over, but you have to stay.'
			act 'Remain in the classroom':
				cla
				*clr
				zanpicrand = rand(4,6)
				'<center><img src="images\img\oldtown\zan<<zanpicrand>>.jpg "></center>'
				'After exercising for an hour lecturer explains to you another girl the importance of its subject.'
				act 'Leave': gt 'univer','dekanat'
				act 'Seduce':
					cla
					*clr
					if zanpicrand = 4: set picrand = 20
					if zanpicrand = 5: set picrand = 21
					if zanpicrand = 6: set picrand = 22
					'<center><img src="images\img\oldtown\zan1<<zanpicrand>>.jpg "></center>'
					'You go down on your knees and grab his penis, the other girl looks at you with round eyes, but then also starts to stick to the teacher to design, he resists a little at first, but then completely given into your hand.'
					act 'Blow job': gt 'podrsex','var'
					end
				end
			end
		act 'Exit from the audience': gt 'univer','dekanat'
		end
	end

	if kursovik >= 100:
		act 'Pass the course work':
		cla
		*clr
		set intel += 1
		set kursovik = 0
		set kursovikD += 1
		'<center><img src="images\etogame\Classroom1.jpg"></center>'
		'You passed the course work.'
		act 'Exit from the audience': gt 'univer','dekanat'
		end
	end

end

if $ARGS[0] = 'examen':
cla
*clr
set minut += 60
'<center><B><font color = maroon>Exam</font></B></center>'
'<center><img src="images\etogame\examen.jpg"></center>'
clr
gs 'stat'
	if lektor > 55 and kursovikD >= kurs:
	set examen = 1
	set kursovikD = 0
	set stipuha = 1
	set lektor = 0
	!1200
	'You are well attended classes and you have no outstanding coursework, exam so you put a gun.'

	jump 'exitexamem'
	end
	if ((intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
	set examen = 1
	set kursovikD = 0
	set stipuha = 0
	'You answered all the questions in the ticket and you have no outstanding coursework, so you score? Exam.'
	set lektor = 0
	act 'Exit from the audience': gt 'univer','dekanat'
	exit
	end
	if (intel >= 100) and kursovikD >= kurs + 10:
	set examen = 1
	set kursovikD = 0
	set stipuha = 1
	'You showed great zeal and independence in learning, so you put a gun exam.'
	set lektor = 0
	jump 'exitexamem'
	!exit
	end
	if (intel < 70 and lektor <= 40) or kursovikD < kurs:
	set examen = 2
	set stipuha = 0
	'You do not pass the exam.'
	end
	if examen = 0:
	set examen = 2
	set stipuha = 0
	'You do not pass the exam.'
	end
:exitexamem
act 'Exit from the audience': gt 'univer','dekanat'
end
--- univer ---------------------------------

# yarik
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Apartment businessman Yaroslav</font></B></center>'
'<center><img src="images\yaroslav\3609.11_paradniy_pod-ezd.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'Ring the doorbell':
	cla
		if hour >= 16 and hour <= 17 and yaq = 1:
		'You have reached the door and you opened'
		act 'Take the apartment': gt 'yarik','yaqw'
		else
		'You rang the doorbell but no one answers.'
			act 'Leave':
			cla
			set minut += 5
			gt 'down'
			end
		end
	end
end

if $ARGS[0] = 'yaqw':
cla
*clr
'<center><img src="images\yaroslav\1365154132_studentka-ischet-rabotu-1.jpg" width = 750 height = 450 ></center>'
'Oh, the <<$name>>! Hi! Come on. - Said Yaroslav.'
	act 'Come and listen to Yaroslav':
	cla
	*clr
	'<center><img src="images\yaroslav\1365154130_studentka-ischet-rabotu-2.jpg" width = 750 height = 450 ></center>'
	'I need you wiped the dust socks cleaned and washed clothes.'
		act 'Okay':
		set minut += 20
		cla
		'<b>You cleaned the apartment to Yaroslav, as he sat for some papers and read them.</b>'
		'Suddenly he came to you. <<$name>>, you can go to wipe tile in the bathroom?'
		clr
		gs 'stat'
			act 'Sorry, I can not, you need to run':
			cla
			set minut += 120
			set manna += 50
			set money += 2000
			set uborkayar += 1
			'I dare not detain you. Here are your two pieces. Come even if you want. It happens.'
			gt 'down'
			end

			act 'Good':
			set minut += 10
			cla
			*clr
			'<center><img src="images\yaroslav\1365154198_studentka-ischet-rabotu-3.jpg" width = 750 height = 450 ></center>'
			'Damn. Forced me to scrub his bathroom, well rabotenka to what I sunk - grumbled to myself - my manicure, my clothes - all messed up, well at least we have to earn money for the club.'
				act 'Scrubbing the floor':
				set minut += 5
				cla
				*clr
				'<center><img src="images\yaroslav\1365154197_studentka-ischet-rabotu-4.jpg" width = 750 height = 450 ></center>'
				'Apparently decided to check how I cope, Jaroslav came into the bathroom and stood in the entrance, but when he saw me, sexually embarked crustaceans and nadraivayuschuyu foam sponge floor, all thoughts about the quality of flew out of his head.'
					act 'Indignant':
					cla
					*clr
					'<center><img src="images\yaroslav\1365154177_studentka-ischet-rabotu-5.jpg" width = 750 height = 450 ></center>'
					'- Hey! - I spun around - that you pyalites on my ass? - I cried indignantly, but immediately appreciate the richness of the men I had a plan of making tip.'
						act 'Up':
						cla
						*clr
						'<center><img src="images\yaroslav\1365154183_studentka-ischet-rabotu-6.jpg" width = 750 height = 450 ></center>'
						'Yaroslav I started making excuses stopped, stood up to his full height and making eyes master of the house, she began to rub the transparent wall. Listen, I´m here I want to earn a little tip that would be enough for me on new fashionable clothes. I hope you do not mind? - I defiantly said Yaroslav.'
							act 'Become dirty':
							cla
							*clr
							'<center><img src="images\yaroslav\1365154181_studentka-ischet-rabotu-7.jpg" width = 750 height = 450 ></center>'
							'- But I do not know anything really - I said, squeezing themselves with soapy sponge - you see, all soiled, where I am now in a wet t-shirt, it would have to stay and wait until dry.'
								act 'Remove the T-shirt':
								cla
								*clr
								'<center><img src="images\yaroslav\1365154123_studentka-ischet-rabotu-8.jpg" width = 750 height = 450 ></center>'
								'With these words, I pulled off his soaked shirt and impressive her bra, then squeezed over the remaining foam asked Yaroslav - Could you help me, I need to dry and then I´m so wet ...'
									act 'Listen Yaroslav':
									cla
									*clr
									'<center><img src="images\yaroslav\1365154153_studentka-ischet-rabotu-9.jpg" width = 750 height = 450 ></center>'
									'It has long been understood what I am, Jaroslav overexcited, taking plump wallet out of his pants, turned to me - You said that you did not have enough money - I suggest you combine business with pleasure.'
										act 'See what happens next':
										set minut += 10
										cla
										*clr
										'<center><img src="images\yaroslav\1365154194_studentka-ischet-rabotu-10.jpg" width = 750 height = 450 ></center>'
										'Taking cock from his pants, he continues - Show me what you can do with their hands and get a good tip.'
											act 'Mark member':
											cla
											*clr
											'<center><img src="images\yaroslav\1365154141_studentka-ischet-rabotu-13.jpg" width = 750 height = 450 ></center>'
											'Satisfied that I could so easily dissolve a man on the headstock, I took his penis in her pen, she began to take her up and down, then speeding up slowing the pace, his pink lips clung to his lips lustful men and sticking his tongue stuck in his mouth.'
												act 'Fall down':
												cla
												*clr
												'<center><img src="images\yaroslav\1365154216_studentka-ischet-rabotu-12.jpg" width = 750 height = 450 ></center>'
												'Then I slowly dropped to her knees and began to swallow his farm to his sensual mouth, licking it like ice cream. Jaroslav not expecting such abilities at such a young girl moaned with pleasure, being sprayed stronger, not wanting to push dick in her mouth and into my tender pussy.'
													act 'Sucking dick':
													set minut += 20
													cla
													*clr
													'<center><img src="images\yaroslav\1365154178_studentka-ischet-rabotu-11.jpg" width = 750 height = 450 ></center>'
													'- Want to earn more? - I asked the man. In response, I moaned and without ceasing to swallow cock furiously nodded.'
														act 'Up':
														cla
														*clr
														'<center><img src="images\yaroslav\1365154172_studentka-ischet-rabotu-14.jpg" width = 750 height = 450 ></center>'
														'- Well, I know that you´re a good girl. Saying this, he stuck his phallus out of my mouth and took me in his arms, seated on the countertop.'
															act 'Extend the legs':
															cla
															*clr
															'<center><img src="images\yaroslav\1365154194_studentka-ischet-rabotu-15.jpg" width = 750 height = 450 ></center>'
															'Taking off his pants, he was flexing with my vagina, thrusting his strong male hands in my crack.'
																act 'Savoury':
																cla
																*clr
																'<center><img src="images\yaroslav\1365154144_studentka-ischet-rabotu-16.jpg" width = 750 height = 450 ></center>'
																'However, not enduring a long, he rubbed his penis to sexual sponges, and then sharply vognul him inside.'
																	act 'Moan':
																	cla
																	*clr
																	'<center><img src="images\yaroslav\1365154203_studentka-ischet-rabotu-17.jpg" width = 750 height = 450 ></center>'
																	'Grabbing me comfortably, he became a force to shove your dick in my pussy very young, I´m from such pressure moaned, clutching her legs nails to distract from the pain that delivers huge penis men, developing my pussy.'
																		act 'Savoury':
																		set minut += 20
																		cla
																		*clr
																		'<center><img src="images\yaroslav\1365154147_studentka-ischet-rabotu-18.jpg" width = 750 height = 450 ></center>'
																		'Big dick Yaroslav continued to ram my pussy. I was moaning and panting.'
																			act 'Ask':
																			set minut += 20
																			cla
																			*clr
																			'<center><img src="images\yaroslav\1365154175_studentka-ischet-rabotu-19.jpg" width = 750 height = 450 ></center>'
																			'- I hope you will not forget to thank me for my ability - I asked. In response Jaroslav nodded and stuck only stronger term in the warm, wet cunt, working it like a piston.'
																				act 'Expand':
																				cla
																				*clr
																				'<center><img src="images\yaroslav\1365154194_studentka-ischet-rabotu-20.jpg" width = 750 height = 450 ></center>'
																				'<center><img src="images\yaroslav\1365154188_studentka-ischet-rabotu-21.jpg" width = 750 height = 450 ></center>'
																				'Unfolding me, he grabbed me by the leg and began to pull me over, in unison with the movements of the pelvis with the other hand extending into my mouth ajar sexually.'
																					act 'Breathe':
																					set minut += 20
																					cla
																					*clr
																					'Finally poking him, he heard my sigh of grief, and played with a member smuglovo ringlet near the anus, several times drove the head of the penis in my razdrochenny valve.'
																					'<center><img src="images\yaroslav\1365154232_studentka-ischet-rabotu-22.jpg" width = 750 height = 450 ></center>'
																					'<center><img src="images\yaroslav\1365154212_studentka-ischet-rabotu-23.jpg" width = 750 height = 450 ></center>'
																					'<center><img src="images\yaroslav\1365154145_studentka-ischet-rabotu-24.jpg" width = 750 height = 450 ></center>'
																						act 'Get off':
																						cla
																						*clr
																						'<center><img src="images\yaroslav\1365154164_studentka-ischet-rabotu-26.jpg" width = 750 height = 450 ></center>'
																						'<center><img src="images\yaroslav\1365154143_studentka-ischet-rabotu-25.jpg" width = 750 height = 450 ></center>'
																						'Then lowered me to the floor, he lay on his back, and I started to pull on his dick, stretching my bread. I moved her hips, occasionally poprygivaya his bolt again and thrusting it into the full depth.'
																							act 'Peel and substitute person':
																							set minut += 5
																							set horny = 0
																							set vagina += 1
																							set throat += 1
																							set orgasm += 1
																							cla
																							*clr
																							'<center><img src="images\yaroslav\1365154169_studentka-ischet-rabotu-27.jpg" width = 750 height = 450 ></center>'
																							'As soon as the feeling began to moan loudly Yaroslav, and as his cock grew in the final rush, I jumped off the man and on his knees, eagerly opened her mouth in anticipation, as I will have to warm thick liquid splashing of a man´s penis, gave me so many pleasant minutes. And finally escaped from the phallus jet seed that filled my face and chest.'
																								act 'In the bathroom':
																								set minut += 20
																								set sweat = 0
																								set hapri = 0
																								cla
																								*clr
																								'<center><img src="images\yaroslav\1365154231_studentka-ischet-rabotu-28.jpg" width = 750 height = 450 ></center>'
																								'- Good girl, you´re a very good worker, ran up to me after class, I´ll help you with the earnings. Now go rinse and I will calculate for your excellent work - said Yaroslav.'
																									act 'Get dressed up and go':
																									set money += 3000
																									set uborkayar += 1
																									cla
																									set minut += 25
																									gt 'down'
																									end
																								end
																							end
																						end
																					end
																				end
																			end
																		end
																	end
																end
															end
														end
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	act 'Leave': gt 'down'
	end
act 'Leave': gt 'down'
end
--- yarik ---------------------------------

# zoomagazine
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Pet Shop</font></B></center>'
	*nl
	'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
	*nl

	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	'Dog 3000'
	'Rabbit 2000'
	'Parrot 3000'

	if money >= 3000 and sobaka = 0:
		act 'Buy a dog (3000 rubles)':
		cla
		*clr
		'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
			act 'Hello, I would like to get a dog':
			cla
			*clr
			'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
			'<center><b>Sorry, but we were only male dogs.</center></b>'
				act 'Buy a dog':
				cla
				*clr
				set minut += 10
				set sobaka += 1
				set money -= 3000
				'<center><img src="images\zoo\dog1.jpg" width = 600 height = 500 ></center>'
				'<center><b>You bought a dog-Dalmatians.</center></b>'
				$namesob = input ("I'll call a dog ...")
				act 'Move away from the counter': gt 'zoomagazine','start'
				end

				act 'Leave': gt 'zoomagazine','start'
			end
		end
	end

	if money >= 2000 and krolik = 0:
		act 'Buy a rabbit (2000 rubles)':
		cla
		*clr
		'<center><img src="images\zoo\x_2b1d398b.jpg"></center>'
		'<center><b>You bought a rabbit.</center></b>'
		$namekrol = input ("I call rabbit ...")
		set minut += 10
		set krolik += 1
		set money -= 2000
		act 'Move away from the counter': gt 'zoomagazine','start'
		end
	end

	if money >= 3000 and popugai = 0:
		act 'Buy a parrot (3000 rubles)':
			cla
			*clr
			'<center><img src="images\zoo\parrot1.jpg"></center>'
			'<center><b>You bought a parrot.</center></b>'
			$namepopu = input ("I call parrot ...")
			set minut += 10
			set popugai += 1
			set money -= 3000
			act 'Move away from the counter': gt 'zoomagazine','start'
		end
	end
act 'Leave': gt 'torgcentr'
end

--- zoomagazine ---------------------------------

# budgetclothes
$budgetshort={
cla
act 'remove item.':GOTO $loc, $metka
if short[i]=0 and money>=2000:
	 act 'buy':
		 money-=2000
		 short[i]=1
		 shortH[i]=60
		 shortB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$budgetskirt={
cla
act 'remove item.':GOTO $loc, $metka
if skirt[i]=0 and money>=2000:
	 act 'buy':
		 money-=2000
		 skirt[i]=1
		 skirtH[i]=60
		 skirtB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$budgetdress={
cla
act 'remove item.':GOTO $loc, $metka
if dress[i]=0 and money>=4500:
	 act 'buy':
		 money-=4500
		 dress[i]=1
		 dressH[i]=60
		 dressB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$budgetprofi={
cla
act 'remove item.':GOTO $loc, $metka
if profi[i]=0 and money>=3000:
	 act 'buy':
		 money-=3000
		 profi[i]=1
		 profiH[i]=60
		 profiB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$budgetpants={
cla
act 'remove item.':GOTO $loc, $metka
if pants[i]=0 and money>=1750:
	 act 'buy':
		 money-=1750
		 pants[i]=1
		 pantsH[i]=60
		 pantsB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$budgetjeans={
cla
act 'remove item.':GOTO $loc, $metka
if jeans[i]=0 and money>=1500:
	 act 'buy':
		 money-=1500
		 jeans[i]=1
		 jeansH[i]=60
		 jeansB[i]=bedra
		 GOTO $loc, $metka
		 end
	 else
	 GOTO $loc, $metka
	 end
}

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
mag=1

'<center><B><font color=maroon>Welcome to G&M - Trendy Styles for EVERYONE</font></B></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Leave the store':
	 cla
	 set minut = minut + 3
	 gt'down'
	 end
end
if hour>=9 and hour<=21:
'<table>
<tr>


<center><B>Jeans Department - Prices: 1500 Rubles</font></B></center>

<a href="exec:set i=201&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans208.jpg" height="200" /></div></a>	<a href="exec:set i=209&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans209.jpg" height="200" /></div></a>	<a href="exec:set i=210&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans210.jpg" height="200" /></div></a>	<a href="exec:set i=211&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans211.jpg" height="200" /></div></a>	<a href="exec:set i=212&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans212.jpg" height="200" /></div></a>	<a href="exec:set i=213&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans213.jpg" height="200" /></div></a>	<a href="exec:set i=214&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans214.jpg" height="200" /></div></a>	<a href="exec:set i=215&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans215.jpg" height="200" /></div></a>	<a href="exec:set i=216&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans216.jpg" height="200" /></div></a>	<a href="exec:set i=217&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans217.jpg" height="200" /></div></a>	<a href="exec:set i=218&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans218.jpg" height="200" /></div></a>	<a href="exec:set i=219&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans219.jpg" height="200" /></div></a>	<a href="exec:set i=220&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans220.jpg" height="200" /></div></a>	<a href="exec:set i=221&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans221.jpg" height="200" /></div></a>	<a href="exec:set i=222&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans222.jpg" height="200" /></div></a>	<a href="exec:set i=223&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans223.jpg" height="200" /></div></a>	<a href="exec:set i=224&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans224.jpg" height="200" /></div></a>	<a href="exec:set i=225&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans225.jpg" height="200" /></div></a>	<a href="exec:set i=226&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans226.png" height="200" /></div></a>	<a href="exec:set i=227&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans227.jpg" height="200" /></div></a>	<a href="exec:set i=228&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans228.jpg" height="200" /></div></a>	<a href="exec:set i=229&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans229.jpg" height="200" /></div></a>	<a href="exec:set i=230&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans230.jpg" height="200" /></div></a>	<a href="exec:set i=231&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans231.jpg" height="200" /></div></a>	<a href="exec:set i=232&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans232.jpg" height="200" /></div></a>	<a href="exec:set i=236&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans236.jpg" height="200" /></div></a>	<a href="exec:set i=237&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans237.jpg" height="200" /></div></a>	<a href="exec:set i=238&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans238.jpg" height="200" /></div></a>	<a href="exec:set i=239&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans239.jpg" height="200" /></div></a>	<a href="exec:set i=240&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans240.jpg" height="200" /></div></a>	<a href="exec:set i=241&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans241.jpg" height="200" /></div></a>	<a href="exec:set i=243&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans243.jpg" height="200" /></div></a>	<a href="exec:set i=244&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans244.jpg" height="200" /></div></a>	<a href="exec:set i=245&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans245.jpg" height="200" /></div></a>	<a href="exec:set i=246&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans246.jpg" height="200" /></div></a>	<a href="exec:set i=247&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans247.jpg" height="200" /></div></a>	<a href="exec:set i=248&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans248.jpg" height="200" /></div></a>	<a href="exec:set i=249&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans249.jpg" height="200" /></div></a>	<a href="exec:set i=250&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans250.jpg" height="200" /></div></a>	<a href="exec:set i=251&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans251.jpg" height="200" /></div></a>	<a href="exec:set i=252&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans252.jpg" height="200" /></div></a>	<a href="exec:set i=253&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans253.jpg" height="200" /></div></a>	<a href="exec:set i=254&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans254.jpg" height="200" /></div></a>	<a href="exec:set i=255&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans255.jpg" height="200" /></div></a>	<a href="exec:set i=256&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans256.jpg" height="200" /></div></a>	<a href="exec:set i=257&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans257.jpg" height="200" /></div></a>	<a href="exec:set i=258&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans258.jpg" height="200" /></div></a>	<a href="exec:set i=259&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans259.jpg" height="200" /></div></a>	<a href="exec:set i=260&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans260.jpg" height="200" /></div></a>	<a href="exec:set i=261&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans261.jpg" height="200" /></div></a>	<a href="exec:set i=262&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans262.jpg" height="200" /></div></a>	<a href="exec:set i=263&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans263.jpg" height="200" /></div></a>	<a href="exec:set i=264&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans264.jpg" height="200" /></div></a>	<a href="exec:set i=265&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans265.jpg" height="200" /></div></a>	<a href="exec:set i=266&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans266.jpg" height="200" /></div></a>	<a href="exec:set i=267&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans267.jpg" height="200" /></div></a>	<a href="exec:set i=268&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans268.jpg" height="200" /></div></a>	<a href="exec:set i=269&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans269.jpg" height="200" /></div></a>	<a href="exec:set i=270&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans270.jpg" height="200" /></div></a>	<a href="exec:set i=271&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans271.jpg" height="200" /></div></a>	<a href="exec:set i=272&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans272.jpg" height="200" /></div></a>	<a href="exec:set i=273&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans273.jpg" height="200" /></div></a>	<a href="exec:set i=274&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans274.jpg" height="200" /></div></a>	<a href="exec:set i=275&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans275.jpg" height="200" /></div></a>	<a href="exec:set i=276&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans276.jpg" height="200" /></div></a>	<a href="exec:set i=278&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans278.jpg" height="200" /></div></a>	<a href="exec:set i=279&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans279.jpg" height="200" /></div></a>	<a href="exec:set i=280&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans280.jpg" height="200" /></div></a>	<a href="exec:set i=281&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans281.jpg" height="200" /></div></a>	<a href="exec:set i=282&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans282.jpg" height="200" /></div></a>	<a href="exec:set i=283&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans283.jpg" height="200" /></div></a>	<a href="exec:set i=285&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans285.jpg" height="200" /></div></a>	<a href="exec:set i=286&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans286.jpg" height="200" /></div></a>	<a href="exec:set i=287&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans287.jpg" height="200" /></div></a>	<a href="exec:set i=289&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans289.jpg" height="200" /></div></a>	<a href="exec:set i=290&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans290.jpg" height="200" /></div></a>	<a href="exec:set i=291&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans291.jpg" height="200" /></div></a>	<a href="exec:set i=292&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans292.jpg" height="200" /></div></a>	<a href="exec:set i=293&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans293.jpg" height="200" /></div></a>	<a href="exec:set i=294&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans294.jpg" height="200" /></div></a>	<a href="exec:set i=295&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans295.jpg" height="200" /></div></a>	<a href="exec:set i=297&dynamic $budgetjeans"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\jeans297.jpg" height="200" /></div></a>	


<center><B>Leggings and other skin tight pants - Prices: 1750</font></B></center>

<a href="exec:set i=201&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants208.jpg" height="200" /></div></a>	<a href="exec:set i=210&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants210.jpg" height="200" /></div></a>	<a href="exec:set i=211&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants211.jpg" height="200" /></div></a>	<a href="exec:set i=212&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants212.jpg" height="200" /></div></a>	<a href="exec:set i=213&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants213.jpg" height="200" /></div></a>	<a href="exec:set i=214&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants214.jpg" height="200" /></div></a>	<a href="exec:set i=215&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants215.jpg" height="200" /></div></a>	<a href="exec:set i=216&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants216.jpg" height="200" /></div></a>	<a href="exec:set i=217&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants217.jpg" height="200" /></div></a>	<a href="exec:set i=218&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants218.jpg" height="200" /></div></a>	<a href="exec:set i=219&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants219.jpg" height="200" /></div></a>	<a href="exec:set i=220&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants220.jpg" height="200" /></div></a>	<a href="exec:set i=221&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants221.jpg" height="200" /></div></a>	<a href="exec:set i=222&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants222.jpg" height="200" /></div></a>	<a href="exec:set i=223&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants223.jpg" height="200" /></div></a>	<a href="exec:set i=226&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants226.jpg" height="200" /></div></a>	<a href="exec:set i=227&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants227.jpg" height="200" /></div></a>	<a href="exec:set i=228&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants228.jpg" height="200" /></div></a>	<a href="exec:set i=230&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants230.jpg" height="200" /></div></a>	<a href="exec:set i=231&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants231.jpg" height="200" /></div></a>	<a href="exec:set i=232&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants232.jpg" height="200" /></div></a>	<a href="exec:set i=233&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants233.jpg" height="200" /></div></a>	<a href="exec:set i=234&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants234.jpg" height="200" /></div></a>	<a href="exec:set i=235&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants235.jpg" height="200" /></div></a>	<a href="exec:set i=236&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants236.jpg" height="200" /></div></a>	<a href="exec:set i=237&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants237.jpg" height="200" /></div></a>	<a href="exec:set i=238&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants238.jpg" height="200" /></div></a>	<a href="exec:set i=239&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants239.jpg" height="200" /></div></a>	<a href="exec:set i=240&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants240.jpg" height="200" /></div></a>	<a href="exec:set i=241&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants241.jpg" height="200" /></div></a>	<a href="exec:set i=242&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants242.jpg" height="200" /></div></a>	<a href="exec:set i=243&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants243.jpg" height="200" /></div></a>	<a href="exec:set i=244&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants244.jpg" height="200" /></div></a>	<a href="exec:set i=245&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants245.jpg" height="200" /></div></a>	<a href="exec:set i=246&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants246.jpg" height="200" /></div></a>	<a href="exec:set i=247&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants247.jpg" height="200" /></div></a>	<a href="exec:set i=248&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants248.png" height="200" /></div></a>	<a href="exec:set i=249&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants249.jpg" height="200" /></div></a>	<a href="exec:set i=250&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants250.jpg" height="200" /></div></a>	<a href="exec:set i=251&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants251.jpg" height="200" /></div></a>	<a href="exec:set i=252&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants252.jpg" height="200" /></div></a>	<a href="exec:set i=253&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants253.jpg" height="200" /></div></a>	<a href="exec:set i=254&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants254.jpg" height="200" /></div></a>	<a href="exec:set i=255&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants255.jpg" height="200" /></div></a>	<a href="exec:set i=256&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants256.jpg" height="200" /></div></a>	<a href="exec:set i=257&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants257.jpg" height="200" /></div></a>	<a href="exec:set i=258&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants258.jpg" height="200" /></div></a>	<a href="exec:set i=259&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants259.jpg" height="200" /></div></a>	<a href="exec:set i=260&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants260.jpg" height="200" /></div></a>	<a href="exec:set i=261&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants261.jpg" height="200" /></div></a>	<a href="exec:set i=262&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants262.jpg" height="200" /></div></a>	<a href="exec:set i=263&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants263.jpg" height="200" /></div></a>	<a href="exec:set i=264&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants264.jpg" height="200" /></div></a>	<a href="exec:set i=265&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants265.jpg" height="200" /></div></a>	<a href="exec:set i=266&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants266.jpg" height="200" /></div></a>	<a href="exec:set i=267&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants267.jpg" height="200" /></div></a>	<a href="exec:set i=268&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants268.jpg" height="200" /></div></a>	<a href="exec:set i=269&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants269.jpg" height="200" /></div></a>	<a href="exec:set i=270&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants270.jpg" height="200" /></div></a>	<a href="exec:set i=271&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants271.jpg" height="200" /></div></a>	<a href="exec:set i=273&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants273.jpg" height="200" /></div></a>	<a href="exec:set i=274&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants274.jpg" height="200" /></div></a>	<a href="exec:set i=275&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants275.jpg" height="200" /></div></a>	<a href="exec:set i=276&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants276.jpg" height="200" /></div></a>	<a href="exec:set i=277&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants277.jpg" height="200" /></div></a>	<a href="exec:set i=278&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants278.jpg" height="200" /></div></a>	<a href="exec:set i=279&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants279.png" height="200" /></div></a>	<a href="exec:set i=280&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants280.jpg" height="200" /></div></a>	<a href="exec:set i=281&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants281.jpg" height="200" /></div></a>	<a href="exec:set i=282&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants282.jpg" height="200" /></div></a>	<a href="exec:set i=283&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants283.jpg" height="200" /></div></a>	<a href="exec:set i=284&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants284.png" height="200" /></div></a>	<a href="exec:set i=285&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants285.jpg" height="200" /></div></a>	<a href="exec:set i=286&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants286.jpg" height="200" /></div></a>	<a href="exec:set i=287&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants287.jpg" height="200" /></div></a>	<a href="exec:set i=288&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants288.jpg" height="200" /></div></a>	<a href="exec:set i=289&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants289.jpg" height="200" /></div></a>	<a href="exec:set i=290&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants290.jpg" height="200" /></div></a>	<a href="exec:set i=291&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants291.jpg" height="200" /></div></a>	<a href="exec:set i=292&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants292.jpg" height="200" /></div></a>	<a href="exec:set i=293&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants293.jpg" height="200" /></div></a>	<a href="exec:set i=294&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants294.jpg" height="200" /></div></a>	<a href="exec:set i=295&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants295.jpg" height="200" /></div></a>	<a href="exec:set i=296&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants296.jpg" height="200" /></div></a>	<a href="exec:set i=297&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants297.jpg" height="200" /></div></a>	<a href="exec:set i=298&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants298.jpg" height="200" /></div></a>	<a href="exec:set i=299&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants299.jpg" height="200" /></div></a>	<a href="exec:set i=300&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants300.jpg" height="200" /></div></a>	<a href="exec:set i=301&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants301.jpg" height="200" /></div></a>	<a href="exec:set i=302&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants302.jpg" height="200" /></div></a>	<a href="exec:set i=303&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants303.jpg" height="200" /></div></a>	<a href="exec:set i=304&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants304.jpg" height="200" /></div></a>	<a href="exec:set i=305&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants305.jpg" height="200" /></div></a>	<a href="exec:set i=306&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants306.jpg" height="200" /></div></a>	<a href="exec:set i=307&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants307.jpg" height="200" /></div></a>	<a href="exec:set i=309&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants309.png" height="200" /></div></a>	<a href="exec:set i=311&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants311.jpg" height="200" /></div></a>	<a href="exec:set i=312&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants312.jpg" height="200" /></div></a>	<a href="exec:set i=313&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants313.jpg" height="200" /></div></a>	<a href="exec:set i=314&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants314.jpg" height="200" /></div></a>	<a href="exec:set i=315&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants315.jpg" height="200" /></div></a>	<a href="exec:set i=316&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants316.jpg" height="200" /></div></a>	<a href="exec:set i=317&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants317.jpg" height="200" /></div></a>	<a href="exec:set i=318&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants318.jpg" height="200" /></div></a>	<a href="exec:set i=319&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants319.jpg" height="200" /></div></a>	<a href="exec:set i=320&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants320.jpg" height="200" /></div></a>	<a href="exec:set i=320&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants320.jpg" height="200" /></div></a>	<a href="exec:set i=321&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants321.jpg" height="200" /></div></a>	<a href="exec:set i=322&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants322.jpg" height="200" /></div></a>	<a href="exec:set i=324&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants324.jpg" height="200" /></div></a>	<a href="exec:set i=325&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants325.jpg" height="200" /></div></a>	<a href="exec:set i=326&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants326.jpg" height="200" /></div></a>	<a href="exec:set i=327&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants327.jpg" height="200" /></div></a>	<a href="exec:set i=328&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants328.jpg" height="200" /></div></a>	<a href="exec:set i=329&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants329.jpg" height="200" /></div></a>	<a href="exec:set i=330&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants330.jpg" height="200" /></div></a>	<a href="exec:set i=331&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants331.jpg" height="200" /></div></a>	<a href="exec:set i=332&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants332.jpg" height="200" /></div></a>	<a href="exec:set i=333&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants333.jpg" height="200" /></div></a>	<a href="exec:set i=334&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants334.jpg" height="200" /></div></a>	<a href="exec:set i=335&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants335.jpg" height="200" /></div></a>	<a href="exec:set i=336&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants336.jpg" height="200" /></div></a>	<a href="exec:set i=337&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants337.jpg" height="200" /></div></a>	<a href="exec:set i=338&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants338.jpg" height="200" /></div></a>	<a href="exec:set i=339&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants339.jpg" height="200" /></div></a>	<a href="exec:set i=341&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants341.jpg" height="200" /></div></a>	<a href="exec:set i=342&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants342.jpg" height="200" /></div></a>	<a href="exec:set i=343&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants343.jpg" height="200" /></div></a>	<a href="exec:set i=344&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants344.jpg" height="200" /></div></a>	<a href="exec:set i=345&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants345.jpg" height="200" /></div></a>	<a href="exec:set i=346&dynamic $budgetpants"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\pants346.jpg" height="200" /></div></a>	


<center><B>Hot Shorts for a Hot Summer day - Prices: 2000 Rubles</font></B></center>

<a href="exec:set i=201&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short208.jpg" height="200" /></div></a>	<a href="exec:set i=209&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short209.jpg" height="200" /></div></a>	<a href="exec:set i=210&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short210.jpg" height="200" /></div></a>	<a href="exec:set i=211&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short211.jpg" height="200" /></div></a>	<a href="exec:set i=212&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short212.jpg" height="200" /></div></a>	<a href="exec:set i=213&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short213.jpg" height="200" /></div></a>	<a href="exec:set i=214&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short214.jpg" height="200" /></div></a>	<a href="exec:set i=215&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short215.jpg" height="200" /></div></a>	<a href="exec:set i=216&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short216.jpg" height="200" /></div></a>	<a href="exec:set i=217&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short217.jpg" height="200" /></div></a>	<a href="exec:set i=218&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short218.jpg" height="200" /></div></a>	<a href="exec:set i=219&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short219.jpg" height="200" /></div></a>	<a href="exec:set i=220&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short220.jpg" height="200" /></div></a>	<a href="exec:set i=221&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short221.jpg" height="200" /></div></a>	<a href="exec:set i=222&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short222.jpg" height="200" /></div></a>	<a href="exec:set i=223&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short223.jpg" height="200" /></div></a>	<a href="exec:set i=224&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short224.jpg" height="200" /></div></a>	<a href="exec:set i=225&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short225.jpg" height="200" /></div></a>	<a href="exec:set i=226&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short226.jpg" height="200" /></div></a>	<a href="exec:set i=227&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short227.jpg" height="200" /></div></a>	<a href="exec:set i=228&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short228.jpg" height="200" /></div></a>	<a href="exec:set i=229&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short229.jpg" height="200" /></div></a>	<a href="exec:set i=230&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short230.jpg" height="200" /></div></a>	<a href="exec:set i=231&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short231.jpg" height="200" /></div></a>	<a href="exec:set i=232&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short232.jpg" height="200" /></div></a>	<a href="exec:set i=233&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short233.jpg" height="200" /></div></a>	<a href="exec:set i=234&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short234.jpg" height="200" /></div></a>	<a href="exec:set i=235&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short235.jpg" height="200" /></div></a>	<a href="exec:set i=236&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short236.jpg" height="200" /></div></a>	<a href="exec:set i=237&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short237.jpg" height="200" /></div></a>	<a href="exec:set i=238&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short238.jpg" height="200" /></div></a>	<a href="exec:set i=239&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short239.jpg" height="200" /></div></a>	<a href="exec:set i=240&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short240.jpg" height="200" /></div></a>	<a href="exec:set i=241&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short241.jpg" height="200" /></div></a>	<a href="exec:set i=242&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short242.jpg" height="200" /></div></a>	<a href="exec:set i=244&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short244.jpg" height="200" /></div></a>	<a href="exec:set i=245&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short245.jpg" height="200" /></div></a>	<a href="exec:set i=246&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short246.jpg" height="200" /></div></a>	<a href="exec:set i=247&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short247.jpg" height="200" /></div></a>	<a href="exec:set i=248&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short248.jpg" height="200" /></div></a>	<a href="exec:set i=249&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short249.jpg" height="200" /></div></a>	<a href="exec:set i=250&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short250.jpg" height="200" /></div></a>	<a href="exec:set i=251&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short251.jpg" height="200" /></div></a>	<a href="exec:set i=252&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short252.jpg" height="200" /></div></a>	<a href="exec:set i=253&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short253.jpg" height="200" /></div></a>	<a href="exec:set i=255&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short255.jpg" height="200" /></div></a>	<a href="exec:set i=256&dynamic $budgetshort"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\short256.jpg" height="200" /></div></a>	


<center><B>Our Outfit-Collection with skirts in (almost) all lenghts - Prices: 2000 Rubles</font></B></center>

<a href="exec:set i=201&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt208.jpg" height="200" /></div></a>	<a href="exec:set i=209&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt209.jpg" height="200" /></div></a>	<a href="exec:set i=210&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt210.jpg" height="200" /></div></a>	<a href="exec:set i=211&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt211.jpg" height="200" /></div></a>	<a href="exec:set i=212&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt212.jpg" height="200" /></div></a>	<a href="exec:set i=213&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt213.jpg" height="200" /></div></a>	<a href="exec:set i=214&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt214.jpg" height="200" /></div></a>	<a href="exec:set i=215&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt215.jpg" height="200" /></div></a>	<a href="exec:set i=216&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt216.jpg" height="200" /></div></a>	<a href="exec:set i=217&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt217.jpg" height="200" /></div></a>	<a href="exec:set i=218&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt218.jpg" height="200" /></div></a>	<a href="exec:set i=219&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt219.jpg" height="200" /></div></a>	<a href="exec:set i=221&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt221.jpg" height="200" /></div></a>	<a href="exec:set i=222&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt222.jpg" height="200" /></div></a>	<a href="exec:set i=223&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt223.jpg" height="200" /></div></a>	<a href="exec:set i=224&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt224.jpg" height="200" /></div></a>	<a href="exec:set i=225&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt225.jpg" height="200" /></div></a>	<a href="exec:set i=226&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt226.jpg" height="200" /></div></a>	<a href="exec:set i=227&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt227.jpg" height="200" /></div></a>	<a href="exec:set i=228&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt228.jpg" height="200" /></div></a>	<a href="exec:set i=229&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt229.jpg" height="200" /></div></a>	<a href="exec:set i=230&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt230.jpg" height="200" /></div></a>	<a href="exec:set i=232&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt232.jpg" height="200" /></div></a>	<a href="exec:set i=233&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt233.jpg" height="200" /></div></a>	<a href="exec:set i=234&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt234.jpg" height="200" /></div></a>	<a href="exec:set i=235&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt235.jpg" height="200" /></div></a>	<a href="exec:set i=237&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt237.jpg" height="200" /></div></a>	<a href="exec:set i=238&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt238.jpg" height="200" /></div></a>	<a href="exec:set i=239&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt239.jpg" height="200" /></div></a>	<a href="exec:set i=240&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt240.jpg" height="200" /></div></a>	<a href="exec:set i=242&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt242.jpg" height="200" /></div></a>	<a href="exec:set i=243&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt243.jpg" height="200" /></div></a>	<a href="exec:set i=245&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt245.jpg" height="200" /></div></a>	<a href="exec:set i=246&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt246.jpg" height="200" /></div></a>	<a href="exec:set i=247&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt247.jpg" height="200" /></div></a>	<a href="exec:set i=248&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt248.jpg" height="200" /></div></a>	<a href="exec:set i=249&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt249.jpg" height="200" /></div></a>	<a href="exec:set i=250&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt250.jpg" height="200" /></div></a>	<a href="exec:set i=251&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt251.jpg" height="200" /></div></a>	<a href="exec:set i=252&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt252.jpg" height="200" /></div></a>	<a href="exec:set i=253&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt253.jpg" height="200" /></div></a>	<a href="exec:set i=254&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt254.jpg" height="200" /></div></a>	<a href="exec:set i=255&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt255.jpg" height="200" /></div></a>	<a href="exec:set i=256&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt256.jpg" height="200" /></div></a>	<a href="exec:set i=257&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt257.jpg" height="200" /></div></a>	<a href="exec:set i=258&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt258.jpg" height="200" /></div></a>	<a href="exec:set i=259&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt259.jpg" height="200" /></div></a>	<a href="exec:set i=260&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt260.jpg" height="200" /></div></a>	<a href="exec:set i=261&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt261.jpg" height="200" /></div></a>	<a href="exec:set i=262&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt262.jpg" height="200" /></div></a>	<a href="exec:set i=263&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt263.jpg" height="200" /></div></a>	<a href="exec:set i=264&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt264.jpg" height="200" /></div></a>	<a href="exec:set i=265&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt265.jpg" height="200" /></div></a>	<a href="exec:set i=266&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt266.jpg" height="200" /></div></a>	<a href="exec:set i=267&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt267.jpg" height="200" /></div></a>	<a href="exec:set i=268&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt268.jpg" height="200" /></div></a>	<a href="exec:set i=269&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt269.jpg" height="200" /></div></a>	<a href="exec:set i=270&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt270.jpg" height="200" /></div></a>	<a href="exec:set i=271&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt271.jpg" height="200" /></div></a>	<a href="exec:set i=272&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt272.jpg" height="200" /></div></a>	<a href="exec:set i=273&dynamic $budgetskirt"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\skirt273.jpg" height="200" /></div></a>	


<center><B>Need something for a nights out? Sexy Dresses! - Prices 4500 Rubles</font></B></center>

<a href="exec:set i=201&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress208.jpg" height="200" /></div></a>	<a href="exec:set i=209&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress209.jpg" height="200" /></div></a>	<a href="exec:set i=210&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress210.jpg" height="200" /></div></a>	<a href="exec:set i=211&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress211.jpg" height="200" /></div></a>	<a href="exec:set i=212&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress212.jpg" height="200" /></div></a>	<a href="exec:set i=213&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress213.jpg" height="200" /></div></a>	<a href="exec:set i=214&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress214.jpg" height="200" /></div></a>	<a href="exec:set i=215&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress215.jpg" height="200" /></div></a>	<a href="exec:set i=216&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress216.jpg" height="200" /></div></a>	<a href="exec:set i=217&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress217.jpg" height="200" /></div></a>	<a href="exec:set i=218&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress218.jpg" height="200" /></div></a>	<a href="exec:set i=219&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress219.jpg" height="200" /></div></a>	<a href="exec:set i=220&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress220.jpg" height="200" /></div></a>	<a href="exec:set i=221&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress221.jpg" height="200" /></div></a>	<a href="exec:set i=222&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress222.jpg" height="200" /></div></a>	<a href="exec:set i=223&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress223.jpg" height="200" /></div></a>	<a href="exec:set i=224&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress224.jpg" height="200" /></div></a>	<a href="exec:set i=225&dynamic $budgetdress"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\dress225.jpg" height="200" /></div></a>	


<center><B>Do you need a professional dress for your work? - Prices 3000 Rubles</font></B></center>

<a href="exec:set i=201&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi201.jpg" height="200" /></div></a>	<a href="exec:set i=202&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi202.jpg" height="200" /></div></a>	<a href="exec:set i=203&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi203.jpg" height="200" /></div></a>	<a href="exec:set i=204&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi204.jpg" height="200" /></div></a>	<a href="exec:set i=205&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi205.jpg" height="200" /></div></a>	<a href="exec:set i=206&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi206.jpg" height="200" /></div></a>	<a href="exec:set i=207&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi207.jpg" height="200" /></div></a>	<a href="exec:set i=208&dynamic $budgetprofi"><div style="width:100%; max-width:200px; max-height:200px;"><img src="images\clothes\profi208.jpg" height="200" /></div></a>	
</tr>
</table>'

end
--- budgetclothes ---------------------------------

# Nord
$metka = $ARGS[0]
$loc = $CURLOC
gs 'dinam'
'<center><B>Northern region</B></center>'
'<center><img src="images\etogame\nord.jpg"></center>'
clr
gs 'stat'
gs 'time'

!act 'Exit to the northern highway': minut += 15 & nroad = 0 & gt 'road'
if BuyHous['Nord'] >= 1 and houserent['Nord'] ! 1:
	act '<b>GO HOME</b>':
		$HouseLocation = 'Nord'
		gorand = RAND(0,100)
		if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
		gt 'gopnew','start'
		exit
		end
		if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
		gt 'gopnew','start'
		exit
		end
	gt 'korr'
	end
end
	act 'Wait':
	cla
	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Take a look at the clock': gt curloc
	end
	
act 'Take a cab':
	cla
	*clr
	'<center><img src="images\etogame\taxi1.jpg"></center>'
	'You caught a passing taxi.'
	'"The drive will cost you <b>250 rubles</b>", the driver says.'
	set minut += 5
	if $loc!'street':
		act 'Go to the Residential Area':
			set $loc = 'street'
			dynamic $taxi
			end
		end
	if $loc!'down':
		act 'Go to the City Center':
			set $loc = 'down'
			dynamic $taxi
			end
		end
	if $loc!'Nord':
		act 'Go to the Northern Area':
			set $loc = 'Nord'
			dynamic $taxi
			end
		end
	act 'Turn him down and leave': gt '<<$loc>>'
	end

if car > 0:
	if cardrive = 3 or cardrive >= 6 and cardrive <= 9: 'In the parking stands your <a href="exec: GS ''carF'',''start''"><<$car>></a>.'
end

dynamic $vladimir_driver

litltown = 0
if hour >= 8 and hour <= 22: 'A kiosk is selling <a href="exec: dynamic $kiosksig">cigarettes</a>.'
'<a href="exec:minut += 15 & GT ''vokzal''">Train Station</a> to get to the small Town.'
if slavaQW >= 1: '<a href="exec: GT ''qwBarPolet''">Bar "Flight"</a>.'
'There is a <a href="exec:GT ''zaprF'',''start''">Gas</a> Station near the street'
if hour >= 5 and hour <= 23: 'The <a href="exec: GT ''metro'',''start''">Metro</a> Station is within a 5 minute walk from here.'
if hour >= 9 and hour <= 17 and week > 1: '<a href="exec: GT ''autosalonF'',''start''">Car Dealership</a>'
if hour >= 9 and hour <= 20 and week < 7: '<a href="exec: GT ''autoservisF'',''start''">Repair Shop</a>'
if hour >= 9 and hour <= 17 and week > 1: 'Used <a href="exec: GT ''autotraidF'',''start''">Car Dealership</a>'
if hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''dk'',''start''">The House of Culture named after Lenin</a>'
if bumtolik > 3 and hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''buklinik'',''start''">Mercy clinic</a>'
if hour >= 8 and hour <= 20: 'The parking lot, which is engulfed in bright lights, belongs to a <a href="exec: GT ''shop'',''start''">Supermarket</a>'
if hour >= 12 and hour < 20: 'Above the door to a basement room is a bright neon sign for a <a href="exec: GT ''pirsingsalon''">piercing parlor</a>'
'The <a href="exec: set minut += 59 & GT ''park'',''start''">central park</a> is quite far from here, but it''s not out of walking range. You can reach all the districts of the town while walking through it. Walking there should take you about less than an hour.'
if tobiQW >= 1: 'The old mansion, home to <a href="exec: GT ''kakuzu'',''start''">Kakuzu</a>'
'There is a huge building, with bright lights, which houses a <a href="exec:GT ''casino''">Casino</a> and a hotel.'
if hour >= 14 or hour < 4: 'Located far away from the buildings <a href="exec: GT ''lakecafe'',''main''">barbecue</a>.'
if jouryResult = 10: 'In one of the building you can find <a href="exec: GT ''youry''">Georges</a> flat'
if IvanKvartira > 0: 'In one of these building is  <a href="exec: GT ''ivanRoom''">Manager Ivans</a> apartment'
'A long and high fence, which is build around the <a href="exec:GT ''Terminal''">storage terminal</a>'
if hour = meethour and $meetloc = $CURLOC:
	if svidanieA = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieB = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
	if svidanieC = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
end

dynamic $din_street_cum
dynamic $meet_boyfriend
--- Nord ---------------------------------

# Terminal
set minut += 5
'<center><B><font color = maroon>Storage terminal</font></B></center>'
'<center><img src="images\etogame\terminal.jpg"></center>'
clr
gs 'stat'
!fcolor = rgb(0,0,0)
!bcolor = rgb(255,255,255)
!LCOLOR = rgb(106,90,205)
'A plurality of storage buildings to which drive up truck for loading and unloading.'


	act 'Leave':
	cla
	set minut += 5
	gt 'nord'
	end

	if TerminalPapper = 1 and DayTerminalPapper = day:
		act 'Classified documents':
		cls
		set minut += 15
		TerminalPapper = 2
		fcolor = rgb(0,0,0)
		bcolor = rgb(255,255,255)
		LCOLOR = rgb(106,90,205)
		gs 'stat'
		'You went to the office and gave the documents to the manager.'
		act 'Leave': minut += 5 & gt 'nord'
		end

	end

--- Terminal ---------------------------------

# ivanRoom
set minut += 5
'<center><B><font color = maroon>Apartment manager Ivan</font></B></center>'
'<center><img src="images\etogame\podezdhr.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Apartment door Ivan steel, with good locks.'


	act 'QUIT':
	cla
	set minut += 5
	gt 'nord'
	end

if poverKAR = 1:
'You came to the door behind you and Ivan heard a rustling. You turned and saw Juugo. He walked up to you and said, "Ivan the apartment. You to take this camera and shoot. Now we´ll get him."'
	act 'Come on we´ll get this monster':
	cls
	IvanKvartira = 0
	poverKAR = 2
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\gun.jpg"></center>'
	'Juugo went to the door, you notice a tattoo on his face woke up and came to life, covering his skin black lines. Line broke and you saw like Juugo fists began to increase. He growled and punched the door. The door slammed bent. Juugo hand grabbed the door and opened it, pulling out the lock. Juugo with a roar broke into the apartment. You ran into the apartment after Juugo and saw Ivan left the room holding a gun. Ivan shot and Juugo twitched, then Ivan shot again and again. Juugo fell to the floor. Ivan ran out of ammo and he began frantically reloading the gun.'
		if dom > 0:
			act 'Embed Ivan':
			cls
			gs 'stat'
			!'<center><img src="images\etogame\gun.jpg"></center>'
			'You ran to Ivan with a plan to kick him while he reloads the gun. Ivan suddenly jumped back into the room and slammed the door in your face. The inertia you bumped into the door. Immediately slammed a shot and splinters flew out the door, but the bullet did not accidentally hurt you and shrieking flew past. Behind you heard what that movement and as you saw in the hallway on his feet gets Juugo, tightened his wounds. Even the bullet hole in his forehead became rapidly tightened. Pokryvatsya body became black and what is a scab on his head grew horns. Juugo shouted furiously "NOW YOU DIE!" and rushed to the wooden door behind which hid Ivan turning it into pieces and flinging you aside. You saw that Ivan lying on the floor in blood and without movement, the gun fell from his hand weakened. Juugo with a triumphant cry rushed to Ivan and became powerful blows beat the motionless body. You have seen how just a second Juugo turned his head to a bloody pulp Ivan. Juugo but did not stop there and you feel like it´s going to force, concentrating in his hand. The air smelled of ozone and there was a nasty, thin squeal. You understand that now Juugo hit than it is very powerful.'
				act 'Run':
				cls
				gs 'stat'
				!'<center><img src="images\etogame\gun.jpg"></center>'
				'You turned and ran out of the apartment. Rear hit powerful explosion shook the house, ringing in your ears and you fell on the floor. Looking around you realize that Ivan apartment collapsed, sticking out of the doorway chip concrete slab in the air spinning dust, ears ringing.'
				act 'Run away from the entrance': gt 'nord'
				end
			end
		end

		act 'Freeze in horror':
		cls
		gs 'stat'
		'<center><img src="images\etogame\gun.jpg"></center>'
		'You froze in horror and looked at Ivan and Juugo. Juugo was lying in blood, his head was a decent bullet hole from which flowed bloody mess. Ivan quickly reloaded and sent it to you. Juugo suddenly rolled over on the floor and you have seen how his wounds tightened. Body is covered with black and what that crust. Ivan started and pointing the gun at Juugo shot at it. Bullets whistled hit the wall deflects off the body Juugo. Juugo finally turned into what that monster with horns and jumped to his feet angrily screamed "NOW YOU DIE!" Ivan began to retreat, trying to reload the gun. Juugo lightning jumped him and hit Ivan zashvyrnuv him like a rag doll in the room. You saw that Ivan lying on the floor in blood and without movement, the gun fell from his hand weakened. Juugo with a triumphant cry rushed to Ivan and became powerful blows beat the motionless body. You have seen how just a second Juugo turned his head to a bloody pulp Ivan. Juugo but did not stop there and you feel like it´s going to force, concentrating in his hand. The air smelled of ozone and there was a nasty, thin squeal. You understand that now Juugo hit than it is very powerful.'
			act 'Run':
			cls
			gs 'stat'
			!'<center><img src="images\etogame\gun.jpg"></center>'
			'You turned and ran out of the apartment. Rear hit powerful explosion shook the house, ringing in your ears and you fell on the floor. Looking around you realize that Ivan apartment collapsed, sticking out of the doorway chip concrete slab in the air spinning dust, ears ringing.'
			act 'Run away from the entrance': gt 'nord'
			end
		end


	end
end
if softKAR = 1:
'You came to kavrtire Ivan Karin and see there. She adjusted her glasses and told you. "Ivan is now in her apartment."'
	act 'What´s the plan?':
	cls
	horny = 0
	gs 'stat'
	'<center><img src="images\picPRE\karinPRE.jpg"></center>'
	'Karin began to explain, "I can impose on you a temporary spell. Ivan did not recognize you. We seduce him, this means I have enough to smell it and immediately vozbudishsya. Main us to control myself. Then when he is ready he will offer drink, Hems him the means that would unleash his tongue. write his confession on camera. And the hat. "'
		act 'Let´s get down':
		cls
		minut += 5
		horny += 10
		gs 'stat'
		'<center><img src="images\picPRE\karinPRE.jpg"></center>'
		'Karina something probomotala and touched your face with his hand. She removed his hand and said, "Everything you do not know Ivan, here hold this bottle. Here strong aphrodisiac that works when his sniffing. Beware, we are not immune to it." Karin gave you bubble and you sprinkled a little front door, trying not to inhale the aroma. Karin rang the bell at the door and the door opened. Ivan appeared on the threshold, he looked a little bewildered at you. Karin smiled sweetly Ivan "We life of social surveys, can we ask you a few questions?" Ivan aside gesture inviting you to go to the apartment.'
		act 'Enter the apartment':
			cls
			minut += 5
			horny += 50
			gs 'stat'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'Together with Karin you entered the apartment and went to Ivan in his living room. The room was clean and cozy. Ivan invited you to sit on the sofa and sat down in front of you. Karin began to ask questions about sex Ivan. Ivan looked surprisingly calm for a man fell under the aphrodisiac. You tried not to breathe and still feel its impact. Karin elbow and pushed you to your eyes showed vial.'
				act 'Splash secretly':
				cls
				minut += 5
				horny += 25
				gs 'stat'
				'<center><img src="images\picPRE\karinPRE.jpg"></center>'
				'While distracted Karin Ivan showing him her cleavage, you secretly still gushed aphrodisiac in the air and feel like themselves became excited. Karin all alluring and seductive talked with Ivan trying to seduce him, you even noticed her cheeks were flushed. But Ivan reacted quite calmly at what is happening and you barely noticed as he was interested, but did not notice any signs of arousal. Meanwhile Karin again poked you in the ribs.'
					act 'Splash again':
					cls
					minut += 5
					horny += 25
					gs 'stat'
					'<center><img src="images\picPRE\karinPRE.jpg"></center>'
					'Karin got up from the sofa and turning his back to Ivan leaned over and began fumbling in his bag seductively curving. Ivan looked curiously at the bottom Karin and quietly looked away. You gushed again and felt like your pussy swelled and began to demand attention. Karin meanwhile sat on the sofa. It was evident that an aphrodisiac and it acted. She reddened lips, cheeks reddened and she frantically clutched his feet. Ivan looked at you with interest, but again, no sign of the beyond excitement showed. Karin broke down and snatched you from the hands of the bubble. She stood up and asked Ivan to smell perfume, and tell her what he thinks of them. Ivan smiled at it and said, "Sorry, I have a cold. Quite odors do not feel." Karin helplessly sat on the couch all her cunning plan with magic and alchemy collapsed on the banal cold.'
						act 'Suggest a drink':
						cls
						minut += 5
						gs 'stat'
						'<center><img src="images\picPRE\karinPRE.jpg"></center>'
						'You are offered a drink to Ivan. He chuckled, "Girls, I do not know what you´re up here, but no. Themselves think two unfamiliar girl, come to my house, asking me stupid questions, entice, offer a drink, you can klofelinschitsy? Podolete me something else, and I pass out ? " Karin noticeably flustered realizing that her plan raspolzsya at the seams. Ivan got up from the couch and invited you to leave the apartment. Karin tried to take something else. But Ivan was already set up and you see off Vym nothing left to do but to proceed to the exit.'
							act 'Leave the apartment':
							cls
							minut += 5
							softKAR = 0
							gs 'stat'
							'<center><img src="images\picPRE\karinPRE.jpg"></center>'
							'Together with Karin you left the apartment and Ivan closed the door behind you. Karin angrily slammed fist into his palm. "The devil. Well, who would have thought? Okay, I ran. Disassemble itself."'
							act 'Go out of the house': gt 'nord'
							end
						end

						act 'Be silent':
						cls
						minut += 5
						gs 'stat'
						'<center><img src="images\qwest\Threesome.jpg"></center>'
						'You helplessly silent, but Karin was found first. "Runny nose? I know the perfect remedy for a cold." Karin came to Ivan and put her hand on his nose began to massage his. Eyes on Ivan became clear that nasmortk began to pass and he began to feel an aphrodisiac. Ivan grabbed Karin and drew her to him. She tried resisting, but very powerful aphrodisiac, and she lashed out at Ivan began to kiss him. Second hand Ivan attracted you to her. You feel powerful excitement of the situation.'
							act '...':
							cls
							minut += 5
							softKAR = 2
							gs 'stat'
							'<center><img src="images\qwest\Threesome1.jpg"></center>'
							'Karin kissing Ivan began to unbutton his pants. Finally hard cock Ivan was on the loose. Karin leaned to the penis and began to suck. Ivan dug its lips in your lips and began to kiss you under the greedy smack Karina. Ivan took your head in his hands and sent it to his groin.'
								act 'Suck a cock together with Karin':
								cls
								minut += 5
								guy += 1
								if KarinSex = 0: KarinSex = 1 & girl += 1
								bj += 1
								gang += 1
								gs 'stat'
								'<center><img src="images\qwest\Threesome2.jpg"></center>'
								'Exhausted from morbid craving you moaning along with Karin, suck dick, vylizyvyete balls. You greedily bites his lips into a hard and hot flesh Crimson member, trying to suck in his mouth as much as possible.'
									act '....':
									cls
									minut += 5

									gs 'stat'
									'<center><img src="images\qwest\Threesome3.jpg"></center>'
									'Karin Ivan dropped onto his back and tearing on the go with their clothes jumped on top of his cock. While Karin furiously rides a member Ivan you caress his testicles and stroking ass Karin.'
										act 'Sit pussy on Ivan´s face':
										cls
										minut += 5
										kuni += 1
										gs 'stat'
										'<center><img src="images\qwest\Threesome4.jpg"></center>'
										'While Karin skips out on a limb you walked Ivan and transferred through the leg by placing his head in front of her pussy on his face. Ivan began to lick your pussy, incredible bliss enveloped you. Ivan after a while you took off your face and put Karin back.'
											act '69 Karin':
											cls
											minut += 5
											lesb += 1
											sex += 1
											vagina += 1
											orgasm += 1
											gs 'stat'
											'<center><img src="images\qwest\Threesome5.jpg"></center>'
											'You started to lick pussy Karin and felt as something solid Bound you expiring juices pussy. When a hard cock parted the folds of your pussy, you suffocated from surging feelings for you. Do you dizzy and took possession of the whole body bliss, you suddenly gripped the present orgasm shuddering convulsions, you heard their cry as if the part of the body and felt Karin under you also began to shudder from orgasm. Ivan groaned and pulled his penis out of you, he grabbed you with Karin and put you in front of him on his knees.'
												act 'On your knees':
												cls
												minut += 5
												facial += 1
												cumface += 1
												gs 'stat'
												'<center><img src="images\qwest\Threesome6.jpg"></center>'
												'You knelt together with Karin and Ivan began to masturbate his penis in front of your faces. Suddenly flew out of his cock and hot jet of sperm hit on your faces. Member of some more time flying jet of sperm fall on your face with Karin. But Ivan finally dried out and helplessly sat on the couch trying to catch my breath. Karin whispered to you, cameras ready.'
													act 'Cooking chamber':
													cls
													softKAR = 10
													IvanEvidence = 1
													cumface = 0
													gs 'stat'
													'<center><img src="images\picPRE\karinPRE.jpg"></center>'
													'You secretly prepared a camera sending it out of her purse at Ivan and included it. Karin meanwhile handed him a glass of water, Ivan thirsty drank water and Karin asked him. Tell me how you stole from his boss. Ivan grinned "Elementary, I lost in the casino and I urgently need money. I knew this old asshole lie in the safe money on bribes. This slut did not give me a dishwasher. And I was born a brilliant plan. Naboltal that I fool her take the manager. Yeah, how did the manager. And Imagine this fool fell for such nonsense. I gave her the keys that stole. arose where the camera will not see me, and sent it to the cleaning lady pridurochnuyu take money. She brought them to me, "said Karin "And where is the money?" Ivan said sadly "long ringing. Know, holy card debt." Karin grinned, "it´s done. Ivan And you go to sleep." Ivan immediately snoring on the couch. Karin turned to you. "Yes, I almost screwed up because of his cold. Good lesson for you. Everything can not go according to plan. Thought I had to paralyze him, but I have since tried once. Paralyzed object choked when I poila. Hardly its pumping. Okay, let´s go faster. umoemsya´s just. " You just quickly washed up in the bathroom, along with Karin, flush sperm. She obviously avoiding your eyes and you will be worth on the street, she immediately began to say goodbye to you.'
													act 'Leave': gt 'nord'
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end
--- ivanRoom ---------------------------------

# dk
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>House of Culture named after Lenin</B></center>'
'<center><img src="images\etogame\dk4.jpg"></center>'
'Hours: 9 to 17, the weekend Saturday, Sunday.'

	if hour >= 9 and hour <= 17 and week < 6:
	act 'Go to the House of Culture': gt 'dk','holl'
	end

	if avtoskul >= 1 and avtoskul < 11 and skulday ! day and week >= 6 and money >= 1000:
		act 'Driver Training class cost 1,000 rubles (2:00)':
		cla
		*clr
		money -= 1000
		set skulday = day
		set avtoskul += 1
		set minut += 120
		'<center><img src="images\etogame\dk2.jpg"></center>'
		'You studied by modern methods driving.'
		act 'Leave': gt 'dk','holl'
		end
	end

act 'Leave': gt 'nord'
end


if $ARGS[0] = 'holl':
cla
*clr
set minut += 5
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>House of Culture</B></center>'
'<center><img src="images\etogame\dk1.jpg"></center>'
'Available services, driving school, payment 30,000 rubles. 10 classes, at any time convenient for you during the working day at home culture.'
'Education office programs, degree-granting Secretary. 15,000 rubles, training period of 30 days.'
!'Medium for new opportunities - only here only freebie.'
'On the wall hangs sign.'
'Singing lessons: 500 rubles per session.'
'Massage lessons: 5,000 rubles per session.'
'Personal growth course: 1,000 rubles per session.'

	!{
	 act 'Зайти к медиуму':
	cla
	*clr
	Set minut += 30
	killobj
	addobj 'Back'
	'You did not understand, if anything happened, and mixed feelings came from the charlatan.'
	act 'Leave': gt 'dk','holl'
	end
	}

	if money >= 1000:
		act 'Personal Growth class cost 1,000 rubles (1:00)':
		cls
		money -= 1000
		dom += 5
		minut += 60
		gs 'stat'
		'You are in for an hour with other visitors and played up leading different life situations and learn to be a winner in life situations, to defend their interests. After the course, you feel that your dominance grew.'
		act 'Leave': gt 'dk','holl'
		end
	end


if secrDiplom = 0 and sekrObu > 0: set sekrObuA = sekrObu - 1 & 'Trained on the Secretary-General <<sekrObuA>> 30 days of'
	if hour >= 9 and hour <= 17 and week < 6:
		if vokalday ! day and alexeySex > 0 and alexeyVopros = 2:
			act 'Go to singing lessons':
			cls
			alexeyQW += 1
			vokal += 1
			vokalday = day
			horny += 30
			gs 'stat'
			'You are engaged in an hour with Alexei vocal that every now and then caressed your foot, then touch the ass, then stroked his chest.'
			deystrand = RAND(0,10)
				if deystrand >= 8:
				'After time spent Alexei turned to you "Today I can not Svetsik, a lot of work, I suck quick.'
					act 'Get on your knees and take in the mouth':
					cls
					alexeySex += 1
					horny += 10
					bj += 1
					minut += 10
					gs 'stat'
					picrand = RAND(0,13)
					if picrand = 0: '<center><img src="images\qwest\alexey\bj.jpg"></center>'
					if picrand = 1: '<center><img src="images\qwest\alexey\bj1.jpg"></center>'
					if picrand = 2: '<center><img src="images\qwest\alexey\bj2.jpg"></center>'
					if picrand = 3: '<center><img src="images\qwest\alexey\bj3.jpg"></center>'
					if picrand = 4: '<center><img src="images\qwest\alexey\bj4.jpg"></center>'
					if picrand = 5: '<center><img src="images\qwest\alexey\bj5.jpg"></center>'
					if picrand = 6: '<center><img src="images\qwest\alexey\bj6.jpg"></center>'
					if picrand = 7: '<center><img src="images\qwest\alexey\bj7.jpg"></center>'
					if picrand = 8: '<center><img src="images\qwest\alexey\bj8.jpg"></center>'
					if picrand = 9: '<center><img src="images\qwest\alexey\bj9.jpg"></center>'
					if picrand = 10: '<center><img src="images\qwest\alexey\bj10.jpg"></center>'
					if picrand = 11: '<center><img src="images\qwest\alexey\bj11.jpg"></center>'
					if picrand = 12: '<center><img src="images\qwest\alexey\bj12.jpg"></center>'
					if picrand = 13: '<center><img src="images\qwest\alexey\bj13.jpg"></center>'
					'You kneel before him and clasped his dick <<$liptalk>> began to suck. Alexei helped hips almost peck you in the mouth. Finally he groaned "Catch huesoska their rations if that is on the floor, lick will make."'
					gs 'oral','0'
						act 'Substitute mouth':
						cls
						horny += 10
						minut += 10
						swallow += 1
						cumlip += 1
						gs 'stat'
						picrand = RAND(0,13)
						if picrand = 0: '<center><img src="images\qwest\alexey\bjcum.jpg"></center>'
						if picrand = 1: '<center><img src="images\qwest\alexey\bjcum1.jpg"></center>'
						if picrand = 2: '<center><img src="images\qwest\alexey\bjcum2.jpg"></center>'
						if picrand = 3: '<center><img src="images\qwest\alexey\bjcum3.jpg"></center>'
						if picrand = 4: '<center><img src="images\qwest\alexey\bjcum4.jpg"></center>'
						if picrand = 5: '<center><img src="images\qwest\alexey\bjcum5.jpg"></center>'
						if picrand = 6: '<center><img src="images\qwest\alexey\bjcum6.jpg"></center>'
						if picrand = 7: '<center><img src="images\qwest\alexey\bjcum7.jpg"></center>'
						if picrand = 8: '<center><img src="images\qwest\alexey\bjcum8.jpg"></center>'
						if picrand = 9: '<center><img src="images\qwest\alexey\bjcum9.jpg"></center>'
						if picrand = 10: '<center><img src="images\qwest\alexey\bjcum10.jpg"></center>'
						if picrand = 11: '<center><img src="images\qwest\alexey\bjcum11.jpg"></center>'
						if picrand = 12: '<center><img src="images\qwest\alexey\bjcum12.jpg"></center>'
						if picrand = 13: '<center><img src="images\qwest\alexey\bjcum13.jpg"></center>'
						'Jet of sperm hit you in the mouth and began to run down your <<$liptalk>>. Alexei wiped his dick on your <<$liptalk>> and put it away in his pants.'
						'You began diligently to swallow warm, stinky sperm and semen to collect the remains of spilled from his chin. Once you swallow a seed, you licked his lips and rose up from the floor were about to leave.'
						act 'Leave': gt 'dk','holl'
						end
					end
				else
				'After the lesson, Lech taking you by the hand led to his home.'
				if sashaClubQW = 0: act 'Go': gt 'alex'
					if sashaClubQW > 0:
					ivrand = RAND(0,10)
						if ivrand < 8: act 'Go': gt 'alex'
						if ivrand >= 8: act 'Go': gt 'alexgang'
					end
				end
			end
		end

		if money >= 500 and vokalday ! day and alexeySex > 0 and alexeyVopros = 1:
			act 'Singing lesson cost 500 rubles':
			cls
			money -= 500
			alexeyQW += 1
			vokal += 1
			vokalday = day
			gs 'stat'
			'You are engaged in an hour with Alexei vocals, which gave no indication that when you otduplil it in all holes.'
			act 'Leave': gt 'dk','holl'
			end
		end


		if money >= 500 and vokalday ! day and alexeySex > 0 and alexeyVopros = 0:
			act 'Singing lesson cost 500 rubles':
			cls
			alexeyQW += 1
			vokal += 1
			vokalday = day
			gs 'stat'
			'You are logged in to the office to Alexei. He guiltily looked at you and said. "Sorry, this is a musician first and foremost a creative person, and only then, drunken rednecks."'
			'You could not help smiling at the memory as you dragged the carcass of his teacher sleeping with his back, where he was snoring peacefully.'
			'Alexei open smile came up to you. "<<$name>>. We can now proceed in two ways. Now we both forget that between us and that it would not continue to learn as in what happened, or we can vstrechatsya. Vstrechatsya If we, as a true gentleman, I will not charge you fee, but will be very hard to invite you to come and visit. Choose. "'
				act 'Let´s forget that between us that it was.':
				cls
				money -= 500
				alexeyVopros = 1
				'You offered Alexei forget what happened and gave him 500 rubles per lesson Lech nodded sadly and began to teach you vocal.'
				act 'Leave': gt 'dk','holl'
				end

				act 'If you do not napivatsya so, then we could try again.':
				cls
				alexeyVopros = 2
				'You playfully smiled and told him that you do not mind him vstrechatsya if it will not be so napivatsya. Alexei smiled with relief. "That´s good. And now engaged." The remaining time you have dedicated classes.'
				act 'Leave': gt 'dk','holl'
				end
			end

		end



		if money >= 500 and vokalday ! day and alexeySex = 0:
			act 'Singing lesson cost 500 rubles (1:00)':
			cls
			minut += 60
			set money -= 500
			alexeyQW += 1
			vokal += 1
			vokalday = day
			gs 'stat'
			!'<center><img src="images\etogame\dk2.jpg"></center>'
			if alexeyQW = 1: 'You entered the office where he was man with long hair pulled back in a ponytail. He looked at you confident look and well-modulated voice said. "Come on girl, you´re on the vocals?" You nodded his head and gave him 500 rubles. He put them in his pocket and inserted introduced "I´m Alex, and you?" You answered him saying that your name is <<$name>>. After that, the man began to deal with you. You did not notice as an hour passed. You went out and the man politely said goodbye to you.'
			if alexeyQW = 2: horny += 10 & 'Alexei met you and pick up the money began to deal with you when you have something that did not work, he touched his hand to explain is the face. Not knowing for what, you is a little excited.'
			if alexeyQW >= 3 and alexeyQW < 7: horny += 10 & 'Alexei met you and pick up the money began to deal with you when you have something that did not work, he touched his hand to explain is the face. Not knowing for what, you is a little excited. After training, he politely said goodbye to you.'
			if alexeyQW >= 7: horny += 20 & 'Alexei met you and pick up the money began to deal with you when you have something that did not work, he touched his hand to explain is the face. Not knowing for what, you is exciting. Alexei looked at you as if you´ve seen right through and sometimes you just smiled easily.'
				if alexeyQW = 10 and alexeyVQW = 0:
				'Even during the lessons you caught his teacher smell of alcohol. After classes, you came to Alex and offered you go to somewhere together.'
					act 'Go with Alexei':
					cls
					'Alexei took you by the elbow and led somewhere along the way telling you about myself, he was a professional musician. Laban where only can work in DC phonics, moonlights as a DJ in a club. In you, he immediately saw the talent, the voice you have not delivered, but he is rapidly developing that Alex just blown your data. The conversation you did not even notice how came to the door. Alexei charmingly smiled and invited you to his home.'
						act 'Leave': gt 'nord'

						act 'Alexei go home':
						cls
						alexeyVQW += 1
						minut += 120
						gs 'stat'
						'Alexei lives in a studio apartment, all the decoration which says that he was a bachelor, a musician and a rare wino. Lying on the floor of the bottle, in the room are huge concert speakers occupying floor kamnaty worth what that equipment. Alexei put you on the sofa and brought alcohol with a snack. He sat on Odal from you on an armchair. And you started drinking. Lech helpful, simple, cheerful guy with a rich biography and interesting outlook on life, you have been very pleased with him obschatsya but Alex quickly tipsy and frankly looked drunk.'
						'He looked at you and said intelligent look "Well <<$name>>, you do not just agreed to come to visit me? I think it´s time to go to the main action. Come to me."'
						'You think to yourself, what is he still arrogant, but did not expect to get up and not solid legs went to the chair where he sat Lech.'
						'When you come to a chair Alex brazenly took dick out of his pants and winked at you, "Well, do not be shy, everything on your own."'
							act 'Get on your knees and take in the mouth':
							cls
							guy += 1
							alexeySex = 1
							horny += 10
							bj += 1
							minut += 10
							gs 'stat'
							'<center><img src="images\qwest\alexey\bj.jpg"></center>'
							'You kneel in front of him and stared at his cock, he is really great, is not less than 20 centimeters. Caressed his hands clasped you your dick <<$liptalk>> and began to suck. While you are smacking their lips on a dick flushed, Lech took the mug with beer and began to sip her pointedly. After that, he dismissed you from the penis and dragged onto the bed.'
							gs 'oral','0'
								act 'Unclothed':
								cls
								minut += 10
								set $nameV = 'Alexey'
								$boy = $nameV
								set dick = 20
								set silavag = 2
								pose = 1
								gs 'stat'
								'<center><img src="images\qwest\alexey\sex.jpg"></center>'
								'Hardly you undressed as Alesya practically force pulled you on the bed and put the cancer.'
								dynamic $sexstart
								'Alexei slapped you in the ass with his hand and said, "I see people at once, you´re a real slut, and your place is cancer or kneeling with by a dick in your mouth. You´re the one that you want."'
								dynamic $sexstart2
								'During sex Alex stuck somehow smeared cream finger in the ass and began to move it there. Soon he took his dick out of your pussy and stuck to them stared you in the ass.'
									act 'Moan':
									cls
									minut += 10
									set $nameV = 'Alexey'
									$boy = $nameV
									set dick = 20
									set silavag = 2
									pose = 1
									gs 'stat'
									'<center><img src="images\qwest\alexey\anal.jpg"></center>'
									dynamic $analsex
									gs 'BDsex','ancum'
									'Alexei had finished fell on your back and kissed you on the cheek. You lay underneath without knowing what to do. Soon he heard snoring Alexis. You tried to push apart but it does. With difficulty you got rid of it with herself on the bed and crawled out from under his sleeping carcass. Lech slept soundly filling the room leaping to their snoring. You indignantly dressed and decided to leave the apartment.'
									act 'Leave': gt 'nord'
									end
								end

							end
						end
					end
				end
			act 'Leave': gt 'dk','holl'
			end
		end

		if avtoskul = 0 and money >= 30000 and prava = 0:
			act 'Driver Training course costs 30,000 rubles':
			cla
			set money -= 30000
			set avtoskul = 1
			!'<center><img src="images\etogame\dk2.jpg"></center>'
			'You paid the money in cash and can now learn every day on the right within 2 hours.'
			act 'Leave': gt 'dk','holl'
			end
		end

		if secrDiplom = 0 and sekrObu = 0 and money >= 15000:
			act 'Secretarial course cost 15,000 rubles':
			cla
			set money -= 15000
			set sekrObu = 1
			!'<center><img src="images\etogame\dk2.jpg"></center>'
			'You paid the money in cash and can now learn every day at the secretary within 2 hours. 10 training days total.'
			act 'Leave': gt 'dk','holl'
			end
		end

		if sekrObu > 0 and sekrObu < 11 and secrday ! day:
			act 'Learn from the Secretary (2:00)':
			cla
			*clr
			set secrday = day
			set sekrObu += 1
			set minut += 120
			'<center><img src="images\etogame\kurs.jpg"></center>'
			'You went into the office with computers, mostly student in such courses are women. In class the teacher came and started to tell you the intricacies of the Secretary and the basics of working in the office programs.'
			if cumfrot > 0: set horny += 10 & 'You nervously fumble on a chair trying to hide the stain of semen on her ass, but it seems out worse. You started to pay attention to the other student.'
			act 'Leave': gt 'dk','holl'
			end
		end

		if sekrObu >= 11 and secrday ! day:
			act 'Get cum Secretary':
			cla
			*clr
			set secrday = day
			set sekrObu = 0
			set minut += 15
			set secrDiplom = 1
			'<center><img src="images\etogame\kurs.jpg"></center>'
			'You went into the office with computers, mostly student in such courses are women. In class the teacher came and started to tell you the intricacies of the Secretary and the basics of working in the office programs.'
			act 'Leave': gt 'dk','holl'
			end
		end

		if avtoskul >= 1 and avtoskul < 11 and skulday ! day:
			act 'Learn from the right (2:00)':
			cla
			*clr
			set skulday = day
			set avtoskul += 1
			set minut += 120
			'<center><img src="images\etogame\dk2.jpg"></center>'
			'You studied by modern methods driving.'
				if nikpravaQW = 1:

				end
			act 'Leave': gt 'dk','holl'
			end
		end
if avtoskul >= 11 and skulday ! day:
	act 'Pass on the right (2:00)':
		cla
		*clr
		set minut += 120
		set avtoskul = 0
		set prava = 1
		set minut += 120
		'<center><img src="images\etogame\dk3.jpg"></center>'
		'You went with traffic cops within 2 hours of the city, he was satisfied and did not find what pridratsya.'
		'You gave ready-law.'
		act 'Leave': gt 'dk','holl'
		end
	end
if money >= 5000 and masash < 10 and masashshoolday ! day:
	act 'Learn massage':
		cla
		set masashshoolday = day
		set money -= 5000
		set masash += 1
		set minut += 120
		gs 'stat'
		'You two o´clock studied massage'
		if masash = 10: 'You are issued a certificate of course completion masseurs.'
		act 'Leave': gt 'dk','holl'
		end
	end
end
act 'Leave': gt 'nord'
end
--- dk ---------------------------------

# kakuzu
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>Mansion Kakuzu</B></center>'
'<center><img src="images\etogame\mansion.jpg"></center>'
'Old gloomy mansion, which even at the local gun-shot approach fear and sincerely believe that lives there that is very bad. No need to have some sort of skills that make your system, from the death blows.'

	act 'Enter the mansion': gt 'kakuzu','mansion'
act 'Leave': gt 'nord'
end

if $ARGS[0] = 'mansion':
cla
*clr
set minut += 5
clr
gs 'stat'
'<center><B>Mansion Kakuzu</B></center>'
'<center><img src="images\etogame\mansion1.jpg"></center>'
'The room sits Kakuzu not paying any attention to you'

	act 'Talk to Kakuzu': gt 'kakuzu','mansion1'
act 'Leave': gt 'kakuzu','start'
end

if $ARGS[0] = 'mansion1':
cla
*clr
set minut += 5
clr
gs 'stat'
'<center><B>Kakuzu</B></center>'
'<center><img src="images\qwest\kakuzu.jpg"></center>'
if tobiQW = 1: 'I know who you are and what you need. Pay 100 pieces and then I move, that would teach you how to achieve affinity with the elements.'
if tobiQW = 2:'You have <<srodpaper>> sheets of paper to determine the affinity of the elements. If you run out of paper, you have to buy more at Kakuzu 10 thousand sheet.'



	if money >= 100000 and tobiQW = 1:
		act 'Here´s the money (100,000 rubles)':
		cla
		set money -= 100000
		set tobiQW = 2
		set srodpaper = 10
		'You put money in front of Kakuzu. He threw them in a drawer without even looking.'
		'You asked, "Do not even going to count?" What Kakuzu said quietly, "if there is not enough even if the ruble, I will find and kill you."'
		'(Kakuzu) - Listen to me carefully. Elemental there are five pieces,'
		'fire - this school has the most powerful of all the damage and the weakest protection. But there is nothing better school fire that would nail the opponent with a single blow.'
		'lightning - this school each his hit paralyzes opponent weaker than damage from the fire, but if you´re hooked by lightning, then quickly you will achieve any.'
		'wind - weak loss, weak defense, but no fog, no clones can not save them from the wind, any offensive spell destroys clones wind and fog, plus Spell wind is almost impossible to dodge.'
		'Plot - protective school, but the attacks are very dangerous ground if the enemy attack misses, then will stick in the ground and can not move. Just near the ground is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
		'Water - Damage to the school is small, but all spells manna water taken from the enemy, the same high level of water protection is very dangerous, she eats manna from an enemy, regenerates, although it is weaker cham similar land protection.'
		'Affinity with the elements means that you can learn this particular element. You can not explore another element after selecting affinity until izuchish element completely. I´ll give you 10 sheets of paper magic. Each sheet cost me 5,000 rubles. Concentrate the energy in a piece of paper and when you succeed, then you can either start over and hope for another element, or select the element on which you managed skontsentrirovatsya.'
		act 'Mark sheets': gt 'kakuzu','mansion1'
		end
	end

	if tobiQW = 2 and srodpaper <= 0 and money >= 10000:
		act 'I need another paper (10 thousand)':
		cla
		set money -= 10000
		set srodpaper += 1
		'You gave money and Kakuzu handed a sheet of paper.'
		act 'Mark sheets': gt 'kakuzu','mansion1'
		end
	end

	if tobiQW = 2:
		act 'Tell us again about the elements':
		cla
		'(Kakuzu) - Stupid, listen and remember. Elemental there are five pieces,'
		'fire - this school has the most powerful of all the damage and the weakest protection. But there is nothing better school fire that would nail the opponent with a single blow.'
		'lightning - this school each his hit paralyzes opponent weaker than damage from the fire, but if you´re hooked by lightning, then quickly you will achieve any.'
		'wind - weak loss, weak defense, but no fog, no clones can not save them from the wind, any offensive spell destroys clones wind and fog, plus Spell wind is almost impossible to dodge.'
		'Plot - protective school, but the attacks are very dangerous ground if the enemy attack misses, then will stick in the ground and can not move. Just near the ground is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
		'Water - Damage to the school is small, but all spells manna water taken from the enemy, the same high level of water protection is very dangerous, she eats manna from an enemy, regenerates, although it is weaker cham similar land protection.'
		'Affinity with the elements means that you can learn this particular element. You can not explore another element after selecting affinity until izuchish element completely. I´ll give you 10 sheets of paper magic. Each sheet cost me 5,000 rubles. Concentrate the energy in a piece of paper and when you succeed, then you can either start over and hope for another element, or select the element on which you managed skontsentrirovatsya.'
		act 'Move away': gt 'kakuzu','mansion1'
		end
	end
	if tobiQW = 2 and srodpaper > 0 and manna < 2000: 'You do not have the forces that continue to concentration.'

	if tobiQW = 2 and srodpaper > 0 and manna >= 2000:
		act 'Concentrating the energy in the sheet of paper (1:00)':
		cla
		set minut += 60
		set manna -= 2000
		set sweat += 5
		if srodstvo = 0: set srodrand = RAND(1,5)
		set srodstvo += RAND(1,10)
		'You concentrate energy in the sheet of paper. You feel that you are spending a huge amount of mana for this action.'
			if srodstvo < 100:
			'You get tired and sweating like a horse, but your efforts have lead to anything.'
			act 'Move away': gt 'kakuzu','mansion1'
			end
			if srodstvo >= 100:
			set srodpaper -= 1
				if srodrand = 1: 'Paper broke in your hands. Kakuzu nodded approvingly affinity with fire. Will you fix it?'
				if srodrand = 2: 'Paper electrified in your hands, and from sparks. Kakuzu nodded approvingly affinity with lightning. Will you fix it?'
				if srodrand = 3: 'Paper hardened in your hands. Kakuzu nodded approvingly affinity with the land. Will you fix it?'
				if srodrand = 4: 'Paper shattered to pieces in your hands. Kakuzu nodded approvingly affinity with the wind. Will you fix it?'
				if srodrand = 5: 'Paper soaked in your hands. Kakuzu nodded approvingly affinity for water. Will you fix it?'

				act 'Secure affinity':
				cla
				set tobiQW = 3
				set stihia = srodrand
				set srodstvo = 0
				gt 'kakuzu','mansion1'
				end

				act 'Unsubscribe from this affinity':
				set srodstvo = 0
				gt 'kakuzu','mansion1'
				end
			end
		end

	end
	if tobiQW = 3 and manna < 1000:
	'Kakuzu tells you "You have almost no energy, you need to rest."'
	end
	if tobiQW = 3 and manna >= 1000:
		if stihia = 1:
			if magik >= 6 and spellfire1 = 0:
				act 'Learn Flame (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellfireL += RAND(1,10)
					if spellfireL < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellfireL >= 100:
					set spellfire1 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 7 and spellfire2 = 0:
				act 'Study the release of fire (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellfire2L += RAND(1,10)
					if spellfire2L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellfire2L >= 100:
					set spellfire2 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 8 and spellfire3 = 0:
				act 'Study Barrier fire (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellfire3L += RAND(1,10)
					if spellfire3L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellfire3L >= 100:
					set spellfire3 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 9 and spellfire4 = 0:
				act 'Study Firestorm (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellfire4L += RAND(1,10)
					if spellfire4L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellfire4L >= 100:
					set spellfire4 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 10 and spellfire5 = 0:
				act 'Learn Flame Shield (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellfire5L += RAND(1,10)
					if spellfire5L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellfire5L >= 100:
					set spellfire5 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end

		end
		if stihia = 2:
			if magik >= 6 and spellele1 = 0:
				act 'Study Discharge (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spelleleL += RAND(1,10)
					if spelleleL < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spelleleL >= 100:
					set spellele1 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 7 and spellele2 = 0:
				act 'Learn Lightning (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellele1L += RAND(1,10)
					if spellele1L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellele1L >= 100:
					set spellele2 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 8 and spellele3 = 0:
				act 'Electro study barrier (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellele2L += RAND(1,10)
					if spellele2L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellele2L >= 100:
					set spellele3 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 9 and spellele4 = 0:
				act 'Dance study thousands of birds (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellele3L += RAND(1,10)
					if spellele3L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellele3L >= 100:
					set spellele4 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 10 and spellele5 = 0:
				act 'Study Plyaschuschaya sphere (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellele4L += RAND(1,10)
					if spellele4L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellele4L >= 100:
					set spellele5 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end

		end
		if stihia = 3:
			if magik >= 6 and spellert1 = 0:
				act 'Study Quicksand (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellertL += RAND(1,10)
					if spellertL < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellertL >= 100:
					set spellert1 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 7 and spellert2 = 0:
				act 'Active protection study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellert2L += RAND(1,10)
					if spellert2L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellert2L >= 100:
					set spellert2 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 8 and spellert3 = 0:
				act 'Study Chasm (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellert3L += RAND(1,10)
					if spellert3L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellert3L >= 100:
					set spellert3 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 9 and spellert4 = 0:
				act 'Absolute protection study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellert4L += RAND(1,10)
					if spellert4L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellert4L >= 100:
					set spellert4 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 10 and spellert5 = 0:
				act 'Study Sando (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellert5L += RAND(1,10)
					if spellert5L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellert5L >= 100:
					set spellert5 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
		end
		if stihia = 4:
			if magik >= 6 and spellwind1 = 0:
				act 'Learn Gust (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwind1L += RAND(1,10)
					if spellwind1L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwind1L >= 100:
					set spellwind1 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 7 and spellwind2 = 0:
				act 'Horrific study pressure (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwind2L += RAND(1,10)
					if spellwind2L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwind2L >= 100:
					set spellwind2 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 8 and spellwind3 = 0:
				act 'Vacuum protective sphere (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwind3L += RAND(1,10)
					if spellwind3L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwind3L >= 100:
					set spellwind3 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 9 and spellwind4 = 0:
				act 'Vacuum Rockets (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwind4L += RAND(1,10)
					if spellwind4L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwind4L >= 100:
					set spellwind4 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 10 and spellwind5 = 0:
				act 'Devouring vacuum (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwind5L += RAND(1,10)
					if spellwind5L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwind5L >= 100:
					set spellwind5 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
		end
		if stihia = 5:
			if magik >= 6 and spellwater1 = 0:
				act 'Creek study manna (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwaterL += RAND(1,10)
					if spellwaterL < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwaterL >= 100:
					set spellwater1 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 7 and spellwater2 = 0:
				act 'Flooding study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater2L += RAND(1,10)
					if spellwater2L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwater2L >= 100:
					set spellwater2 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 8 and spellwater3 = 0:
				act 'Water bubble study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater3L += RAND(1,10)
					if spellwater3L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwater3L >= 100:
					set spellwater3 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 9 and spellwater4 = 0:
				act 'Water study shark missile (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater4L += RAND(1,10)
					if spellwater4L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwater4L >= 100:
					set spellwater4 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
			if magik >= 10 and spellwater5 = 0:
				act 'Study the Great Flood (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater5L += RAND(1,10)
					if spellwater5L < 100:
					'You diligently spell for an hour, but could not grasp it.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
					if spellwater5L >= 100:
					set spellwater5 = 1
					'Finally you will able to study the spell.'
					act 'Move away': gt 'kakuzu','mansion1'
					end
				end

			end
		end



	end

act 'Leave': gt 'kakuzu','mansion'
end
--- kakuzu ---------------------------------

# youry
$roomyour = {
set $nameV = 'Yuri'
$boy = $nameV
set dick = 18
set silavag = 2
harakBoy = 1
NoGuy = 1
GoToGuy = 1
finance = 1
act 'On the bed': gt 'BDsex','start'
}

set minut += 5
'<center><B><font color = maroon>Flat George</font></B></center>'
'<center><img src="images\peter\peterdoor.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'nord'
	end

	act 'Ring the doorbell':
	cla
		if hour > 16:
		'You rang the doorbell. The door opened very quickly, stood on the threshold Yuri. He invited you to enter.'
			act 'Login to Jury':
			cls
			minut += 15
			gs 'stat'
			'You entered the apartment to Yuri, he held you in the hall and sat on a chair. Went into the kitchen and priens bottle of champagne with grapes.'
			act 'Drinking with Yuri':
				cls
				minut += 15
				gs 'stat'
				'You are listening to as Yuri praises your sex skills drank champagne. Yuri suggested we go to bed.'
				dynamic $roomyour
				end
			end
		exit
		else
		'You rang the doorbell, but nobody answered you.'
		end
	act 'Away from the door': gt $curloc
	end
--- youry ---------------------------------

# alex
minut += 30
horny += 10
gs 'stat'
'Arriving at the apartment Lech that hour dragged various alcohol and made a starter, then you sat down at a table in the hall talking to each other.'
'Finally you opyaneli and Lech attracted you to her.'

act 'Get on your knees and take in the mouth':
cls
alexeySex += 1
horny += 10
bj += 1
minut += 10
gs 'stat'
picrand = RAND(0,13)
if picrand = 0: '<center><img src="images\qwest\alexey\bj.jpg"></center>'
if picrand = 1: '<center><img src="images\qwest\alexey\bj1.jpg"></center>'
if picrand = 2: '<center><img src="images\qwest\alexey\bj2.jpg"></center>'
if picrand = 3: '<center><img src="images\qwest\alexey\bj3.jpg"></center>'
if picrand = 4: '<center><img src="images\qwest\alexey\bj4.jpg"></center>'
if picrand = 5: '<center><img src="images\qwest\alexey\bj5.jpg"></center>'
if picrand = 6: '<center><img src="images\qwest\alexey\bj6.jpg"></center>'
if picrand = 7: '<center><img src="images\qwest\alexey\bj7.jpg"></center>'
if picrand = 8: '<center><img src="images\qwest\alexey\bj8.jpg"></center>'
if picrand = 9: '<center><img src="images\qwest\alexey\bj9.jpg"></center>'
if picrand = 10: '<center><img src="images\qwest\alexey\bj10.jpg"></center>'
if picrand = 11: '<center><img src="images\qwest\alexey\bj11.jpg"></center>'
if picrand = 12: '<center><img src="images\qwest\alexey\bj12.jpg"></center>'
if picrand = 13: '<center><img src="images\qwest\alexey\bj13.jpg"></center>'

'You kneel before him and clasped his dick <<$liptalk>> began to suck. Alexei lying relaxed and caught the buzz finally he dismissed you from the members and led to the bed.'

gs 'oral','0'
	act 'Unclothed':
	cls
	minut += 10
	set $nameV = 'Alexey'
	$boy = $nameV
	set dick = 20
	set silavag = 2
	pose = 1
	gs 'stat'
	'<center><img src="images\qwest\alexey\sex.jpg"></center>'
	'Hardly you undressed as Alesya practically force pulled you on the bed and put the cancer.'
	dynamic $sexstart
	'Alexei slapped you in the ass with his hand and said, "Well, how are flowing already a slut? Like ass twist on dick?"'
	dynamic $sexstart2
	'During sex Alex stuck somehow smeared cream finger in the ass and began to move it there. Soon he took his dick out of your pussy and stuck to them stared you in the ass.'
		act 'Moan':
		cls
		minut += 10
		set $nameV = 'Alexey'
		$boy = $nameV
		set dick = 20
		set silavag = 2
		pose = 1
		gs 'stat'
		'<center><img src="images\qwest\alexey\anal.jpg"></center>'
		dynamic $analsex
		gs 'BDsex','ancum'
		'Alexei had finished with you slipped and went into the bathroom.'
		act 'Leave': gt 'nord'
		end
	end
end
--- alex ---------------------------------

# alexgang
minut += 30
horny += 10

gs 'stat'

'Arriving at the apartment Lech that hour dragged various alcohol and made a starter, then you sat down at a table in the hall talking to each other.'
'At this moment, the doorbell rang, Lech went to open. You heard a man´s voice in the hallway, "Hi Lech, I do not opazdal?" Lech said, "Come."'

if alexgangbang = 0:
	'You´re a little surprised, who would it be. At this moment entered the room Alexander E., nightclub owner. He greeted you and sat down on a chair.'
else
	'Entered the room Alexander E., nightclub owner. He greeted you and sat down on a chair.'
end

'Alexei began pouring alcohol and you have been drinking in Troy.'

if alexgangbang = 0:
	'Alex finally put down the bottle aside and got dick out of his pants. "Crawl here" You looked at him in surprise and looked at Sasha. Lech urged you "C´mon, do not tushuysya, everything is fine."'
else
	'Alex finally put down the bottle aside and got dick out of his pants. "Crawl here"'
end

act 'Get on your knees and take in the mouth':
cls

alexgangbang += 1
horny += 10
bj += 1
minut += 10

gs 'stat'

picrand = RAND(0,13)
if picrand = 0: '<center><img src="images\qwest\alexey\bj.jpg"></center>'
if picrand = 1: '<center><img src="images\qwest\alexey\bj1.jpg"></center>'
if picrand = 2: '<center><img src="images\qwest\alexey\bj2.jpg"></center>'
if picrand = 3: '<center><img src="images\qwest\alexey\bj3.jpg"></center>'
if picrand = 4: '<center><img src="images\qwest\alexey\bj4.jpg"></center>'
if picrand = 5: '<center><img src="images\qwest\alexey\bj5.jpg"></center>'
if picrand = 6: '<center><img src="images\qwest\alexey\bj6.jpg"></center>'
if picrand = 7: '<center><img src="images\qwest\alexey\bj7.jpg"></center>'
if picrand = 8: '<center><img src="images\qwest\alexey\bj8.jpg"></center>'
if picrand = 9: '<center><img src="images\qwest\alexey\bj9.jpg"></center>'
if picrand = 10: '<center><img src="images\qwest\alexey\bj10.jpg"></center>'
if picrand = 11: '<center><img src="images\qwest\alexey\bj11.jpg"></center>'
if picrand = 12: '<center><img src="images\qwest\alexey\bj12.jpg"></center>'
if picrand = 13: '<center><img src="images\qwest\alexey\bj13.jpg"></center>'

'You kneel before him and clasped his dick <<$liptalk>> began to suck. Alexei sat relaxed and caught the buzz finally he dismissed you from the members and led to the bed.'
gs 'oral','0'
'Lech you lifted and moved to the bed where Sasha was sitting. He put you on all fours, face to Sasha.'
	act 'Take by mouth Sasha':
	cls
if sashaclubsex = 0: sashaclubsex = 1 & guy += 1
	gang += 1
	alexgangbang += 1
	horny += 10
	bj += 1
	minut += 10
	set $nameV = 'Alexey'
	$boy = $nameV
	set dick = 20
	set silavag = 2
	pose = 1
	cumlip += 1
	swallow += 1
	gs 'stat'
	picrand = RAND(0,9)
	if picrand = 0: '<center><img src="images\qwest\alexey\gang.jpg"></center>'
	if picrand = 1: '<center><img src="images\qwest\alexey\gang1.jpg"></center>'
	if picrand = 2: '<center><img src="images\qwest\alexey\gang2.jpg"></center>'
	if picrand = 3: '<center><img src="images\qwest\alexey\gang3.jpg"></center>'
	if picrand = 4: '<center><img src="images\qwest\alexey\gang4.jpg"></center>'
	if picrand = 5: '<center><img src="images\qwest\alexey\gang5.jpg"></center>'
	if picrand = 6: '<center><img src="images\qwest\alexey\gang6.jpg"></center>'
	if picrand = 7: '<center><img src="images\qwest\alexey\gang7.jpg"></center>'
	if picrand = 8: '<center><img src="images\qwest\alexey\gang8.jpg"></center>'
	if picrand = 9: '<center><img src="images\qwest\alexey\gang9.jpg"></center>'
	'Standing on all fours, you started to suck Sasha. He was not big and soft dick hard standing in your mouth. Working hard but you got his cock stiffen.'
	dynamic $sexstart
	'Dangle your body from bumps in the ass during frictions and Lehi nebilo you need to move your head during a blow job, you just have to work on the lips clasping member tightly.'
	dynamic $sexstart2
	'Sasha came too in your mouth. Sperm was not much and you can easily swallow all.'
	act 'Leave': gt 'nord'
	end
end
--- alexgang ---------------------------------

# lakecafe
if $ARGS[0] = 'main':

cla
*clr
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
gs 'stat'
set barrnd = RAND(1,3)
!LCWorkRand = RAND(1,6)
'<center><img src="images\LakeCafe\LakeCafe.jpg"></center>'
*nl
*nl
'Naiobyknovenneyshaya barbecue, of which there are many in the vast country.'
'The cost of lunch - 75 rubles'
'Opening hours cafe - 14:00 to 04:00'
*nl

	if hour >= 14 or hour < 4:

		if barmenshameet = 0:
			if barrnd = 1: 'Over the bar stands smiling <a href="exec: GT ''lakecafe'',''barmensha''">barmaid</a> and polishes glasses'
			if barrnd = 2: 'Over the bar stands smiling <a href="exec: GT ''lakecafe'',''barmensha''">barmaid</a> and wipes the table'
			if barrnd = 3: 'Over the bar stands smiling <a href="exec: GT ''lakecafe'',''barmensha''">barmaid</a> and something mixes'
		end

		if barmenshameet = 1:
			if barrnd = 1: 'Over the bar stands <a href="exec: GT ''lakecafe'',''barmensha''">Gene</a> and polishes glasses'
			if barrnd = 2: 'Over the bar stands <a href="exec: GT ''lakecafe'',''barmensha''">Gene</a> table and rubs'
			if barrnd = 3: 'Over the bar stands <a href="exec: GT ''lakecafe'',''barmensha''">Gene</a> and something mixes'
		end



		if week = 1 and hour = 22:

			if LCWorkRand = 1:
			randguycafe = RAND(3,6)
			if LCwork = 0: 'One of the tables sits a group of men and drinks, talking loudly and laughing.'
			if LCwork = 1: 'One of the tables sitting <a href="exec: GT ''LCwork'',''start1''"><<randguycafe>> men</a> and drinks, talking loudly and laughing.'
			end

			if LCWorkRand = 2:
			if LCwork = 0: 'One of the tables sits an older man and eating barbecue.'
			if LCwork = 1: 'One of the tables sitting <a href="exec: GT ''LCwork'',''start2''">an older man</a> and eating barbecue.'
			end

			if LCWorkRand = 3:
			if LCwork = 0: 'One of the tables sit two men and a drink.'
			if LCwork = 1: 'One of the tables sit <a href="exec: GT ''LCwork'',''start3''">two men</a> and drink.'
			end

			if LCWorkRand = 4:
			if LCwork = 0: 'One of the tables sit a guy with a girl and talk about something.'
			if LCwork = 1: 'One of the tables sit <a href="exec: GT ''LCwork'',''start4''">boy and girl</a> and talk about something.'
			end

			if LCWorkRand = 5:
			if LCwork = 0: 'One of the tables sits a girl, and dining.'
			if LCwork = 1: 'One of the tables sitting <a href="exec: GT ''LCwork'',''start5''">girl</a>, and dining.'
			end

			if LCWorkRand = 6:
			if LCwork = 0: 'One of the tables sits a fat man and talking on the phone.'
			if LCwork = 1: 'One of the tables sitting <a href="exec: GT ''LCwork'',''start6''">fat man</a> and talking on the phone.'
			end
		end
	*nl
	'- <a href="exec:GT ''laketoilet'',''main''">Toilet</a>'

		if money >= 75:
			act 'Eat 75 rubles':
			cla
			*clr
				act 'Get up from the table': set minut += 20 & gt 'lakecafe','main'
			'<center><img src="images\pics\food.jpg"></center>'
			set minut += 30
			set health += 10
			set money -= 75
			set manna += 5
			set willpower += 5
				if energy >= 30:
				set fat += 5
				'You can no longer have.'
				end
				if energy >= 20 and energy < 30:
				set fat += 3
				set energy += 10
				'You pushed through the power of a meal.'
				end
				if energy < 20:
				set energy += 20
				set fat += 1
				'You gladly ate the food.'
				end
				if water >= 20:
				'Tea in you no longer climbs.'
				end
				if water < 20:
				'You gladly drank a mug of tea.'
				set water += 20
				end
			end
		end

	end

if LCwork2 >= 1 and LCwork2day ! day and hour = 18:
	act 'Help in the kitchen':
	gt 'LCwork','Kitchen'
	end
end

act 'Leave': set minut += 2 & gt 'nord'
end

if $ARGS[0] = 'barmensha':
cls
gs 'stat'
'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
*nl
*nl
	if barmenshameet = 0:

	'The bartender looked at your eyes and, with a smile, asked:'
	'-Would that something?'

	end

	if barmenshameet = 1:

	'Eugene smiled, when you come to it'
	'Hi! - She said with a smile'

	end

	if hour >= 14 or hour < 4:
		if barmenshameet = 0:
			act 'Chat':
			cla
			*clr
			set barmenshameet = 1
			set JenyaLC = 10
			set minut += 30
			gs 'stat'
			'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
			'You chatted with bartender. During the conversation, you found out that her name is Eugene and it works here with his girlfriend, Angela, in which a cook on the barbecue.'
				act '...':
				gt 'lakecafe','barmensha'
				end
			end
		end

		if barmenshameet = 1:
			act 'Chat':
			cla
			*clr
			if JenyaLC < 60: set JenyaLC += 3
			set minut += 30
			gs 'stat'
			'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
			'You talk about the affairs of Zhenya, work, life and all sorts of trivia.'
				act '...':
				gt 'lakecafe','barmensha'
				end
			end
		end


		if JenyaLC >= 60 and horny > 50:
			act 'Flirt':
			cla
			*clr
			set minut += 10
			gs 'stat'
			'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
			'You chat with Eugene, making it ambiguous hints. Eugene seems to understand you and invites you to go for it. You agree to abide with her to the kitchen.'
				act '...':
				if JenyaLCfirst = 0: gt 'LCporn','firsttime'
				if JenyaLCfirst = 1: gt 'LCporn','sex'
				end
			end
		end

		if JenyaLC >= 35:
			act 'Ask about work':
			cla
			*clr
			'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
				if LCworkwork2 < 1:


				'You ask about the work of Eugene. She tells you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, during which you will be paid 175 rubles.'
				set LCworkwork2 = 1
				set LCwork2 = 1

				act '...':
				set minut += 4
				gt 'lakecafe','barmensha'
				end

				else

				'You ask about the work of Eugene. It reminds you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, get paid 175 rubles.'


				act '...':
				set minut += 4
				gt 'lakecafe','barmensha'
				end

				end
			end
		end

		if JenyaLC >= 80:
			act 'Ask about the "special" work':
			cla
			*clr
			'<center><img src="images\LakeCafe\LakeBarmensha.jpg"></center>'
				if LCworkwork = 0:

				'You ask Zhenyu about the "special" work. It tells you that on Monday, at 22 o´clock, in the cafe visitors who need quality "service." Pay from 500 to 2,000 rubles.'
					act '...':
					set LCworkwork = 1
					set LCwork = 1
					set minut += 4
					gt 'lakecafe','barmensha'
					end
				end

				if LCworkwork = 1:
				'You ask about the work of Eugene. It reminds you of conditions: on Mondays, at 22 o´clock, you will need to "serve" certain visitors. Paid for it from 500 to 2000 rubles.'
					act '...':
					set minut += 3
					gt 'lakecafe','barmensha'
					end
				end

			end
		end

	end

act 'Move away': gt 'lakecafe','main'

end
--- lakecafe ---------------------------------

# laketoilet
set LCtoiletiventrand = RAND(1,100)

if $ARGS[0] = 'main':
cla
*clr
if hour < 4 and LCtoiletiventrand >= 83 and LCtoiletivent = 0:
'<center><img src="images\LakeCafe\ToiletSexStart.jpg"></center>'
'You went to the bathroom and saw a man in the corner drochaschego. It seems he did not see you.'

act 'Be company':
set LCtoiletivent = 1
gt 'LCporn','toiletsex'
end

act 'Off the toilet': gt 'lakecafe','main'

else
'<center><img src="images\LakeCafe\Toilet.jpg"></center>'
'Dirty and smelly toilet that seems to have never been cleaned'
clr
gs 'stat'

	if tanga = 1:
	act 'Remove Underwear':
	cla
	set tanga = 0
	gt 'laketoilet','main'
	end
	end

	act 'Look in the mirror':
		cla
		gs 'portmirror'
		set $goto1 = 'laketoilet'
		set $goto2 = 'main'
		dynamic $portmirror
		act 'Move away from the mirror':
			cla
			gt 'laketoilet','main'
		end
	end


if cumpussy > 0 or cumbelly > 0 or cumass > 0 or  cumanus > 0:
	act 'Wash up (0:15)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm with yourself.'
	act 'Exit': gt 'laketoilet','main'
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash cum off face (0:15)':
	cla
	*clr
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 15
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed sperm from her face.'
	act 'Exit': gt 'laketoilet','main'
	end
end

if cumfrot > 0:
	act 'Wipe the cum from clothing  (0:15)':
	cla
	*clr
	set cumfrot = 0
	set sweat -= 1
	set minut += 15
	!'<center><img src="images\etogame\facesp.jpg"></center>'
	'You erase traces of semen from the clothes.'
	act 'Exit': gt 'laketoilet','main'
	end
end
if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change a tampon':
		cla
		*clr
		set tampon -= 1
		set isprok = 1
		set minut += 5
		set manna -= 5
		'<center><img src="images\pics\wash3.jpg"></center>'
		'You change a tampon.'
		act 'Finish': gt 'laketoilet','main'
		end
	end

act 'Off the toilet': gt 'lakecafe','main'
end
end
--- laketoilet ---------------------------------

# LCporn
if $ARGS[0] = 'firsttime':
cla
*clr
set JenyaLCfirst = 1
gs 'stat'
'You walk into the kitchen, then fold into the pantry. Eugene looks at you look awkward and says:'
'-This may scare you a bit, but you had to someday find out ...'
'She priopuskaet skirt and you see ... dick! Eugene begins to caress his fingers, looking at you. She touches your chest.'
'<center><img src="images\LakeCafe\LakeFirstTime.jpg"></center>'
	act 'Proceed':
	cla
	*clr
	set randlcpic = RAND(1,7)
	!set sex += 1
	set sexfuta += 1
	!set cumass += 1
	!set cumpussy += 1
	set JenyaLC += 5
	set minut += 40
	set $nameV = 'Zhenya'
	$boy = 'Zhenya'
	set dick = 17
	set silavag = 1
	pose = 1
	gs 'stat'
	if randlcpic = 1: '<center><img src="images\LakeCafe\RandSex1\1.jpg"></center>'
	if randlcpic = 2: '<center><img src="images\LakeCafe\RandSex1\2.jpg"></center>'
	if randlcpic = 3: '<center><img src="images\LakeCafe\RandSex1\3.jpg"></center>'
	if randlcpic = 4: '<center><img src="images\LakeCafe\RandSex1\4.jpg"></center>'
	if randlcpic = 5: '<center><img src="images\LakeCafe\RandSex1\5.jpg"></center>'
	if randlcpic = 6: '<center><img src="images\LakeCafe\RandSex1\6.jpg"></center>'
	if randlcpic = 7: '<center><img src="images\LakeCafe\RandSex1\7.jpg"></center>'
	*nl
	*nl
	'You allow it to continue. She takes off your clothes and you lie on the mattress together.'
	dynamic $sexudo
	dynamic $sexcum
		act 'Exit': gt 'Lakecafe','main'
	end

	act 'Leave':
	cla
	*clr
	'Frightened, you get away from the barbecue.'
	set JenyaLC -= 10
	set minut += 7
	gs 'stat'
		act '...': gt 'nord'
	end
end

if $ARGS[0] = 'sex':
cla
*clr
'<center><img src="images\LakeCafe\LakeFirstTime.jpg"></center>'
'Eugene leads you to the closet and looks at you expectantly.'
set randlcpic = RAND(1,7)
	act 'Vaginal':
	cla
	*clr
	set sexfuta += 1
	set JenyaLC += 5
	set minut += 40
	Set horand = RAND(1,100)
	set $nameV = 'Zhenya'
	$boy = 'Zhenya'
	set dick = 17
	set silavag = 1
	pose = 1
	if randlcpic = 1: '<center><img src="images\LakeCafe\RandSex1\1.jpg"></center>'
	if randlcpic = 2: '<center><img src="images\LakeCafe\RandSex1\2.jpg"></center>'
	if randlcpic = 3: '<center><img src="images\LakeCafe\RandSex1\3.jpg"></center>'
	if randlcpic = 4: '<center><img src="images\LakeCafe\RandSex1\4.jpg"></center>'
	if randlcpic = 5: '<center><img src="images\LakeCafe\RandSex1\5.jpg"></center>'
	if randlcpic = 6: '<center><img src="images\LakeCafe\RandSex1\6.jpg"></center>'
	if randlcpic = 7: '<center><img src="images\LakeCafe\RandSex1\7.jpg"></center>'
	*nl
	*nl
	'Zhenya you undress, and then lie down on the mattress.'
	dynamic $sexudo
	dynamic $sexcum
	gs 'stat'
		act 'Exit': gt 'Lakecafe','main'
	end

	act 'Oral':
	cla
	*clr
	set bj += 1
	set sexfuta += 1
	set JenyaLC += 5
	set minut += 20
	set cumface += 1
	set facial += 1
	set minut += 40
	set $nameV = 'Zhenya'
	$boy = 'Zhenya'
	Set horand = RAND(1,100)

	if randlcpic = 1: '<center><img src="images\LakeCafe\RandSex2\1.jpg"></center>'
	if randlcpic = 2: '<center><img src="images\LakeCafe\RandSex2\2.jpg"></center>'
	if randlcpic = 3: '<center><img src="images\LakeCafe\RandSex2\3.jpg"></center>'
	if randlcpic = 4: '<center><img src="images\LakeCafe\RandSex2\4.jpg"></center>'
	if randlcpic = 5: '<center><img src="images\LakeCafe\RandSex2\5.jpg"></center>'
	if randlcpic = 6: '<center><img src="images\LakeCafe\RandSex2\6.jpg"></center>'
	if randlcpic = 7: '<center><img src="images\LakeCafe\RandSex2\7.jpg"></center>'
	*nl
	*nl
	'Zhenya undress you, then you are clasped her jaw member. Eugene takes vases by the hair and fucks you in the mouth. Groaning, Jack pulled out his cock and cum on you face, then dressed and came out of the closet.'
	gs 'oral','0'
	gs 'stat'
		act 'Exit': gt 'Lakecafe','main'
	end
end


if $ARGS[0] = 'toiletsex':
cla
*clr
set dick = 14
set hj += 1
$nameV = 'Muzhik'
set $boy = 'Muzhik'
'<center><img src="images\LakeCafe\ToiletSexEnd.jpg"></center>'
'You came from behind and hugged the man. Going down to his cock, you started nadrachivat it. Man stopped you took my hand and led through the back door into the street. Relegating you for dustbins, he bent and began to fuck you.'
dynamic $sexudo
dynamic $sexcum
act 'Leave':
gt 'laketoilet','main'
end

end
--- LCporn ---------------------------------

# LCwork
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 1: start
if $ARGS[0] = 'start1':
set horand = RAND(1,100)+ 40
set facial += 1
set gang += 1
set slutty += 1
set anal += 1
set bj += 1
dynamic $venerasiak
set randLCpay = RAND(500,2000)
set minut += 140
guy += randguycafe
if vagina < 20: vagina += randguycafe
cla
*clr
'<center><img src="images\LakeCafe\LakeWork\1a.jpg"></center>'
'You walk up to a group of men and say that today you serve them. They get up and lead you to the car. During the trip they were stroking your boobs and legs, put their hands in her panties and fingers in his mouth. When you came, they stripped and put you in position. You guys ripped into all the cracks, and then obkonchali your entire body.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'
	act '...':
	cls
	'<center><img src="images\LakeCafe\LakeWork\1b.jpg"></center>'
	'They gave you wash and able to take to the house. You got for it <<randLCpay>> rubleyyu'
	gs 'stat'
	act '...': set money += randLCpay & gt 'street'
	end
end


!LC WORK 1: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 2: start
if $ARGS[0] = 'start2':
cla
*clr
set horand = RAND(1,100)
set sex += 1
set slutty += 1
set facial += 1
set cumface += 1
set randLCpay = RAND(500,2000)
set minut += 140
if vagina < 18: vagina += 1
dynamic $venerasiak
guy += 1
'<center><img src="images\LakeCafe\LakeWork\2a.jpg"></center>'
'You walk up to the old man and say that you have come to serve him. He gets up priobnimaet you and you go with him to his car. He takes you into the woods, where you stop and undresses. He spread your legs and fuck you in the pussy, then finished on your face.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'

	act '...':
	cls
	'<center><img src="images\LakeCafe\LakeWork\2b.jpg"></center>'
	'He got into his car and drove you home. For this you got <<randLCpay>> rubles.'
	gs 'stat'
	act '...': set money += randLCpay & gt 'street'
	end
end

!LC WORK 2: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 3: start
if $ARGS[0] = 'start3':
cla
*clr
set horand = RAND(1,100) + 20
set sex += 1
set anal += 1
set bj += 1
set slutty += 1
set facial += 1
set cumface += 1
set cumlip += 1
set randLCpay = RAND(500,2000)
set minut += 140
dynamic $venerasiak
guy += 2
if vagina < 18: vagina += 2
'<center><img src="images\LakeCafe\LakeWork\3a.jpg"></center>'
'You walk up to the two guys and say you go with them today. They lead you into the car and taken to the apartment, where you fuck in all the cracks. Groaning, they got their huytsy and finished on your face.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'

	act '...':
	cls
	'<center><img src="images\LakeCafe\LakeWork\3b.jpg"></center>'
	'Without giving you a wash, they kicked you out of the house. For this you got <<randLCpay>> rubles.'
	gs 'stat'
	act '...': set money += randLCpay & gt 'Nord'
	end
end
!LC WORK 3: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 4: start
if $ARGS[0] = 'start4':
cla
*clr
set horand = RAND(1,100) + 20
set sex += 1
set kuni += 1
set gang += 1
set lesbian += 1
set anal += 1
set bj += 1
set slutty += 1
set cumbelly += 1
set randLCpay = RAND(500,2000)
set minut += 140
dynamic $venerasiak
girl += 1
guy += 1
if vagina < 18: vagina += 1
'<center><img src="images\LakeCafe\LakeWork\4a.jpg"></center>'
'You go up to the couple and say that today serve them. They lead you to his apartment. You start with a girl every way to please the guy. After a while the man could not resist and you finished on the tummy. His girlfriend licked a little seed from your belly.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'
	act '...':
	cls
	'<center><img src="images\LakeCafe\LakeWork\4b.jpg"></center>'
	'You went out of their apartment and came to the house. For this you got <<randLCpay>> rubles.'
	act '...': set money += randLCpay & gt 'street'
	end
end

!LC WORK 4: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 5: start
if $ARGS[0] = 'start5':
set horand = RAND(1,100)
set lesbian += 1
set kuni += 1
set slutty += 1
set randLCpay = RAND(500,2000)
girl += 1
dynamic $venerasiak
cla
*clr
'<center><img src="images\LakeCafe\LakeWork\5.jpg"></center>'
'You walk up to a girl and say that you are with her today. It leads you to his apartment. Girl you start to fondle each other, Suva fingers and all objects in their holes. After playing, she lets you.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'
'You came out of her apartment and came to the house. For this you got <<randLCpay>> rubles.'
gs 'stat'
	act '...': set money += randLCpay & gt 'street'
end


!LC WORK 5: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK 6: start
if $ARGS[0] = 'start6':
cla
*clr
set horand = RAND(1,100)
set sex += 1
set hj += 1
set facial += 1
set slutty += 1
set randLCpay = RAND(500,2000)
guy += 1
dynamic $venerasiak
if vagina < 18: vagina += 1
'<center><img src="images\LakeCafe\LakeWork\6a.jpg"></center>'
'You go up to the fat man, and say that today serve it. He leads you to the car and drives to his house, where you fucking vagina. Groaning, he pulled out his dick and you masturbate member took semen on your face.'
if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > horny: Set horny += 10 & 'You were not satisfied'
	act '...':
	cls
	'<center><img src="images\LakeCafe\LakeWork\6b.jpg"></center>'
	'You went out of their apartment and came to the house. For this you got <<randLCpay>> rubles.'
	gs 'stat'
	act '...': set money += randLCpay & gt 'street'
	end
end
!LC WORK 6: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! LC WORK KITCHEN: start
if $ARGS[0] = 'Kitchen':
cla
*clr
set minut += 90
set LCwork2 += 1
set money += 175
set LCwork2day = day
'<center><img src="images\LakeCafe\KitchenWorkCafe.jpg"></center>'
*nl
'You wash the dishes, floors, chop vegetables, cook food for half an hour, for what you give your deserved 175 rubles.'
	act '...':
	gt 'lakecafe','main'
	end
end
! LC WORK KITCHEN: end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

--- LCwork ---------------------------------

# pirsingsalon
$pirsyaz = {
cls
minut += 30
money -= 5000
pirsA = 1
gs 'stat'
'<center><img src="images\etogame\pirsing.jpg"></center>'
'Master pierced tongue and put you back post.'
act 'Leave': gt $curloc
}
$pirsyazout = {
cls
minut += 30
money -= 5000
pirsA = 0
gs 'stat'
'<center><img src="images\etogame\pirsing.jpg"></center>'
'Master took the post of your tongue.'
act 'Leave': gt $curloc
}
$pirsgub = {
cls
minut += 30
money -= 6000
pirsB = 1
gs 'stat'
'<center><img src="images\etogame\pirsing2.jpg"></center>'
'Master your lip pierced and put a ring there.'
act 'Leave': gt $curloc
}
$pirsgubout = {
cls
minut += 30
money -= 6000
pirsB = 0
gs 'stat'
'<center><img src="images\etogame\pirsing2.jpg"></center>'
'Master took the ring out of your lips.'
act 'Leave': gt $curloc
}
$pirsysh = {
cls
minut += 30
money -= 3000
pirsC = 1
gs 'stat'
'Master your ears pierced and put back earrings.'
act 'Leave': gt $curloc
}
$pirsyshout = {
cls
minut += 30
money -= 3000
pirsC = 0
gs 'stat'
'Master took earrings from your ears.'
act 'Leave': gt $curloc
}
$pirsnos = {
cls
minut += 30
money -= 5000
pirsD = 1
gs 'stat'
'Master your nose pierced and put the ring back.'
act 'Leave': gt $curloc
}
$pirsnosout = {
cls
minut += 30
money -= 5000
pirsD = 0
gs 'stat'
'Master took the ring out of your nose.'
act 'Leave': gt $curloc
}
$pirsbro = {
cls
minut += 30
money -= 5000
pirsE = 1
gs 'stat'
'Master pierced eyebrow and put you back post.'
act 'Leave': gt $curloc
}
$pirsbroout = {
cls
minut += 30
money -= 5000
pirsE = 0
gs 'stat'
'Master took the post of your eyebrows.'
act 'Leave': gt $curloc
}
$pirssos = {
cls
minut += 30
money -= 10000
pirsF = 1
gs 'stat'
'Master pierced nipples and you put there rings.'
act 'Leave': gt $curloc
}
$pirssosout = {
cls
minut += 30
money -= 10000
pirsF = 0
gs 'stat'
'Master took out of your nipple rings.'
act 'Leave': gt $curloc
}
$pirsvla = {
cls
minut += 30
money -= 25000
pirsG = 1
gs 'stat'
'Master you pierced labia and vagina put there post.'
act 'Leave': gt $curloc
}
$pirsvlaout = {
cls
minut += 30
money -= 25000
pirsG = 0
gs 'stat'
'Master took the post of your labia.'
act 'Leave': gt $curloc
}
$pirspyp = {
cls
minut += 30
money -= 10000
pirsN = 1
gs 'stat'
'Master pierced navel and put you back post.'
act 'Leave': gt $curloc
}
$pirspypout = {
cls
minut += 30
money -= 10000
pirsN = 0
gs 'stat'
'Master took the post from your navel.'
act 'Leave': gt $curloc
}

gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B>Piercing Salon</B></center>'
'<center><img src="images\etogame\pirsingstudia.jpg"></center>'
'Small cabin where the master of a loner.'
if hour >= 12 and hour < 20 and pirsA = 0 and money >= 5000: '<a href="exec: dynamic $pirsyaz">Make a tongue piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsA = 1 and money >= 5000: '<a href="exec: dynamic $pirsyazout">Remove tongue piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsB = 0 and money >= 6000: '<a href="exec: dynamic $pirsgub">Make a lip piercing 6000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsB = 1 and money >= 6000: '<a href="exec: dynamic $pirsgubout">Remove Lippenpiercing 6000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsC = 0 and money >= 3000: '<a href="exec: dynamic $pirsysh">Make piercings 3000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsC = 1 and money >= 3000: '<a href="exec: dynamic $pirsyshout">Remove piercings 3000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsD = 0 and money >= 5000: '<a href="exec: dynamic $pirsnos">Make a nose piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsD = 1 and money >= 5000: '<a href="exec: dynamic $pirsnosout">Remove nose piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsE = 0 and money >= 5000: '<a href="exec: dynamic $pirsbro">Make an eyebrow piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsE = 1 and money >= 5000: '<a href="exec: dynamic $pirsbroout">Remove eyebrow piercing 5000 rub.</a>.'
if hour >= 12 and hour < 20 and pirsF = 0 and money >= 10000: '<a href="exec: dynamic $pirssos">Make a nipple piercing 10,000 rubles.</a>.'
if hour >= 12 and hour < 20 and pirsF = 1 and money >= 10000: '<a href="exec: dynamic $pirssosout">Remove nipple piercings 10,000 rubles.</a>.'
if hour >= 12 and hour < 20 and pirsG = 0 and money >= 25000: '<a href="exec: dynamic $pirsvla">Make a vagina piercing 25,000 rubles.</a>.'
if hour >= 12 and hour < 20 and pirsG = 1 and money >= 25000: '<a href="exec: dynamic $pirsvlaout">Remove the vagina piercing 25,000 rubles.</a>.'
if hour >= 12 and hour < 20 and pirsN = 0 and money >= 10000: '<a href="exec: dynamic $pirspyp">Make a navel piercing 10,000 rubles.</a>.'
if hour >= 12 and hour < 20 and pirsN = 1 and money >= 10000: '<a href="exec: dynamic $pirspypout">Remove navel piercings 10,000 rubles.</a>.'
act 'Leave': gt 'nord'
--- pirsingsalon ---------------------------------

# vokzal
'<center><H4>Station</H4></center>'
'<center><img src="images\etogame\vokzal.jpg"></center>'
clr
gs 'stat'
gs 'time'

temp = RAND(1,100)
if temp > 70: 'You see <a href="exec: GT ''etoexhib'',''pos54''">suspicious character.</a>'

act 'Leave': minut += 15 & gt 'nord'

act 'Exit to the northern highway': minut += 15 & nroad = 0 & gt 'road'

if money >= 200:
	act 'Buy a ticket to the town':
	cls
	money -= 200
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped at the station.'

		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped at the station.'

			act 'To go further':
			cls
			minut += 15
			gs 'stat'
			'<center><img src="images\etogame\electri.jpg"></center>'
			'After 15 minutes the train stopped at the station.'
				act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images\etogame\electri.jpg"></center>'
				'After 15 minutes the train stopped in the Township.'

				act 'Exit': minut += 5 & nroad = 20 & gt 'VokzalG'
				end

				act 'Exit': minut += 5 & nroad = 15 & gt 'road'
			end

			act 'Exit': minut += 5 & nroad = 10 & gt 'road'
		end

		act 'Exit': minut += 5 & nroad = 5 & gt 'road'
	end

end
--- vokzal ---------------------------------

# obekt
'<center><H4>An object</H4></center>'
'<center><img src="images\etogame\obekt.jpg"></center>'
'Construction at the site is stopped and the territory silence, only the guard walks.'
clr
gs 'stat'
gs 'time'

if car > 0 and cardrive = 12:
set cardrive = 12
'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

act 'Penetrate to the construction site':
cls
minut += 5
gs 'stat'
	if ObjektOpen = 0:
	if ObjektBil = 0: ObjektBil = 1
	'Construction guarded very carefully, just not be able to enter.'
	act 'Leave': gt $curloc
	else
	gt 'obekt2'
	end
end

if ObjektBil = 1:

end

act 'Go on the road': minut += 15 & nroad = 16 & gt 'road'
--- obekt ---------------------------------

# obekt2
'<center><H4>An object</H4></center>'
'<center><img src="images\etogame\obekt.jpg"></center>'
'At the construction site is not technology, but still worth a construction trailer in which sits a watchman. Failure in the land closed the iron plate.'
clr
gs 'stat'
gs 'time'

act 'Failure to penetrate the':
cls
minut += 10
gs 'stat'

gt 'dangeon'
end

act 'Exit from the construction site.':
cls
minut += 5
gs 'stat'
gt 'obekt'
end
--- obekt2 ---------------------------------

# dangeon
$dundincif = {
cls
gs 'stat'
'8809 = 6'
'7111 = 0'
'2172 = 0'
'6666 = 4'
'1111 = 0'
'3213 = 0'
'7662 = 2'
'9312 = 1'
'0000 = 4'
'2222 = 0'
'3333 = 0'
'5555 = 0'
'8193 = 3'
'8096 = 5'
'7777 = 0'
'9999 = 4'
'7756 = 1'
'6855 = 3'
'9881 = 5'
'5531 = 0'
'Have a smart sense in such tomfoolery, because often clever fool walks.'

act 'Move away from labels': gt $curloc
}
$dundinboch = {
cls
gs 'stat'
if openstateDM2 = 0: openstateDM2 = 1
'Chimes hear soon reconcile those who quarrel.'
act 'Move away from the barrel': gt $curloc
}
$dundinsvitok = {
cls
gs 'stat'
svitokRTS = 1
heart += 1
'You picked up the scroll and he crumbled. As if you breathed in the wind. You listen to the feelings and understand that you have something changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
act 'Move away': gt $curloc
}

gs 'stat'

if dungeonMark = 0:
'<center><img src="images\picPRE\dunPRE.jpg"></center>'
'The man-made cave in depth which shows the door.'
	act 'Get out of the dungeon': minut += 5 & gt 'obekt2'

	act 'Enter the door': minut += 5 & dungeonMark = 1 & gt $curloc

end
if dungeonMark = 1:
'<center><img src="images\picPRE\dunPRE1.jpg"></center>'
'Quite large and deserted room in which there is nothing but a bunch of bones in the corner.'
	act 'Exit': minut += 5 & dungeonMark = 0 & gt $curloc
	act 'Go deep into': minut += 5 & dungeonMark = 2 & gt $curloc
end
if dungeonMark = 2:
	if svitokRTS = 1:

	exit
	end

'<center><img src="images\picPRE\dunPRE2.jpg"></center>'
'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
	act 'Exit from the gallery': minut += 5 & dungeonMark = 1 & gt $curloc
	act 'Sign in 1yu room': minut += 5 & dungeonMark = 3 & gt $curloc
	act 'Sign in 2w room':
	cls
		if openstateDM = 1:
		minut += 5
		dungeonMark = 4
		gt $curloc
		end
		if openstateDM = 0:
		:markanotherrand
		DMN[1] = RAND(0,9)
		DMN[2] = RAND(0,9)
		DMN[3] = RAND(0,9)
		DMN[4] = RAND(0,9)
		if DMN[1] = DMN[2] and DMN[1] = DMN[3] and DMN[1] = DMN[4]:jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 8 and DMN[3] = 0 and DMN[4] = 9: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 1 and DMN[3] = 1 and DMN[4] = 1: jump 'markanotherrand'
		if DMN[1] = 2 and DMN[2] = 1 and DMN[3] = 7 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 3 and DMN[2] = 2 and DMN[3] = 1 and DMN[4] = 3: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 6 and DMN[3] = 6 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 9 and DMN[2] = 3 and DMN[3] = 1 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 1 and DMN[3] = 9 and DMN[4] = 3: jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 0 and DMN[3] = 9 and DMN[4] = 6: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 7 and DMN[3] = 5 and DMN[4] = 6: jump 'markanotherrand'
		if DMN[1] = 6 and DMN[2] = 8 and DMN[3] = 5 and DMN[4] = 5: jump 'markanotherrand'
		if DMN[1] = 9 and DMN[2] = 8 and DMN[3] = 8 and DMN[4] = 1: jump 'markanotherrand'
		if DMN[1] = 5 and DMN[2] = 5 and DMN[3] = 3 and DMN[4] = 1: jump 'markanotherrand'
		i = 0
		numdmr = 0
		:markdnm
		i += 1
		if DMN[i] = 0 or DMN[i] = 6 or DMN[i] = 9:
		numdmr += 1
		elseif DMN[i] = 8:
		numdmr += 2
		else
		end
		if i < 4: jump 'markdnm'
		numberOSDM = input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>>=?")
			if numberOSDM < 0 or numberOSDM > 8 or numdmr ! numberOSDM:
			MSG("Silence, nothing has changed")
			gt $curloc
			else
			openstateDM = 1
			MSG("In the door that just clicked")
			gt $curloc
			end
		end
	end
	if openstateDM2 = 2: act 'Sign in third room': minut += 5 & dungeonMark = 5 & gt $curloc
end
if dungeonMark = 3:
'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
'The room in which the middle stands a stone dais on which are various dusty bottles.'
'Scrawled on the wall of what is <a href="exec:dynamic $dundincif ">signs</a>.'
	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc

end
if dungeonMark = 4:
'<center><img src="images\picPRE\dunPRE4.jpg"></center>'
'Small room in which there are what that <a href="exec:dynamic $dundinboch ">Drums</a>.'

	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc

	if openstateDM2 = 1:
	'In another barrel you see a device where you can enter numbers.'
		act 'Enter the numbers':
		cls
		numberOSDM2 = input("12,1,1,1,2,1,3,?,?,?,?")
			if numberOSDM2 = rikudootvet:
			openstateDM2 = 2
			MSG("Outside that it rattled.")
			else
			MSG("Silence, nothing has changed")
			end
		gt $curloc
		end
	end
end
if dungeonMark = 5:
'<center><img src="images\picPRE\dunPRE5.jpg"></center>'
'The room in which the middle, sitting on a stone throne cobwebbed skeleton.'
if svitokRTS = 0: 'In the hands of a skeleton lying <a href="exec: dynamic $dundinsvitok ">scroll</a>.'
	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc
end
--- dangeon ---------------------------------

# dachain
'<center><B><font color = maroon>Cottage</font></B></center>'
'<center><img src="images\etogame\dachain.jpg"></center>'
'Your favorite summer residence.'
clr
gs 'stat'
gs 'time'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if hour >= 6 and hour <= 20 and etoexhib = 11: 'Kopashatsya working in the garden, hmm ... maybe sometime <a href="exec: GT ''etoexhib'',''pos10''">motivate</a> for them to work quicker and smarter.'
if hour >= 6 and hour <= 20 and etoexhib = 12: 'Leave in <a href="exec: GT ''etoexhib'',''pos11''">garden in lingerie and robe.</a>'
if hour >= 6 and hour <= 20 and etoexhib = 13 and temp ! day: 'I wonder how to <a href="exec: GT ''etoexhib'',''pos12''">garden</a>'


if hour < 23:
	act 'Lie on the couch':
		cla
		minut += 60
		if son < 30:
			son += 5
		else
			son = 29
		end
		'I relax lying on the couch.'
		act 'Pull': gt 'dachain'
	end
end

if hour >= 23:
	act 'Sleep in a bed':
		cla
		*clr
		'<center><img src="images\pics\son.jpg"></center>'
		if analplugIN = 1: set analplugIN = 0 & 'Before going to bed you took a butt plug.'
		if vibratorIN = 1: set vibratorIN = 0 & 'Before going to bed you remove the vibrator.'
		if mop > 1: set mop = 0 & set vidageday -= 1 & 'Cosmetics smeared face, you think that looks bad for sleeping with makeup, skin ages faster from it.'
		set tanga = 1
		set health += 5
		set hapri = 0
		InSleep = 1
		gs 'stat'
		'You slept'
			act 'Up':
			cla
			InSleep = 0
			minut += 480
			son = 30
			gt 'dachain'
			end
	end
end
act 'Go outside': minut += 15 & gt 'dachamy'
--- dachain ---------------------------------

# dachamy
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Cottage</H4></center>'
'<center><img src="images\etogame\dachamy.jpg"></center>'
'Your favorite summer residence.'
clr
gs 'stat'
gs 'time'
act 'Go into the house': gt 'dachain'
if hour < 23 and hour >= 7:
	act 'Inspect garden':
		cla
		minut += 5
		if etoexhib < 16: gt 'dachaogr0'
		if etoexhib = 16: gt 'dachaogr'
		end
	end
act 'Exit the alley': minut += 15 & gt 'dachi'
--- dachamy ---------------------------------

# dachaogr
*clr
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBed = $ARGS[0]
$locBed = $CURLOC
$metkaP = $ARGS[0]
$locP = $CURLOC
$metkaFight = $ARGS[0]
$locFight = $CURLOC

'<center><H4>Garden</H4></center>'
if month > 4 and month < 10:
	'<center><img src="images\etogame\vspah.jpg"></center>'
	'Well-kept garden.'
	end
if month <= 4 or month >= 10:
	'<center><img src="images\etogame\vspah.jpg"></center>'
	'Not for planting season'
	end
gs 'stat'
!fcolor = rgb(0,0,0)
!bcolor = rgb(255,255,255)
!LCOLOR = rgb(106,90,205)
gs 'time'
act 'Leave':
minut = minut + 5
gt 'dachamy'
end
--- dachaogr ---------------------------------

# dachaogr0
clr
gs 'stat'
gs 'time'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

'<center><B><font color = maroon>Vegetable</font></B></center>'
'<center><img src="images\etogame\burjan.jpg"></center>'
if etoexhib < 11: 'Whole vegetable garden overgrown with weeds and weeds. Any crop here outgrowths impossible. Looks like the former owners did not care about him. We must figure out how to dig up the garden.'
if etoexhib = 11: 'Working with lazy and smoke breaks dig in the ground, pull weeds.'
if etoexhib >= 12 and etoexhib < 14: 'Workers digging the ground. Stumps removed.'
if etoexhib = 14 and temp ! day:
	cls
	gs 'stat'
	'<center><B><font color = maroon>Vegetable</font></B></center>'
	'<center><img src="images\etogame\vspah.jpg"></center>'
	'Your kitchen garden plowed. Razchercheny beds neatly. Planted with apple trees.'
	'Satisfied drunken workers rest in the shade. Clearly, for the money they took a drink. And, apparently under doping, finished faster.'
	act 'Pay': gt 'etoexhib', 'pos14'
	end

if etoexhib = 15 and temp ! day:
	cls
	gs 'stat'
	'<center><B><font color = maroon>Vegetable</font></B></center>'
	'<center><img src="images\etogame\vspah.jpg"></center>'
	'Your kitchen garden plowed. Razchercheny beds neatly. Planted with apple trees.'
	'Tired workers rest in the shade.'
	act 'Pay money':
		cla
		*clr
		'You paid a working 3000 rubles.'
		money -= 3000
		etoexhib = 16
		gs 'stat'
		act 'To lodge': minut += 15 & gt 'dachamy'
		end
	if etoexhib = 15 and horny > 30:
		act 'Pay body': gt 'etoexhib','pos13'
		end
	end
act 'To lodge': minut += 15 & gt 'dachamy'
--- dachaogr0 ---------------------------------

# dachi
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Suburban Cooperative</H4></center>'
'<center><img src="images\etogame\dachi.jpg"></center>'
clr
gs 'stat'
gs 'time'
if car > 0 and cardrive = 17:
	set cardrive = 17
	'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	end
'Initially alley dug into the ground <a href="exec:GT ''etoexhib'',''pos7''">column with ads</a>.'
'At the end of the alley to be <a href="exec:GT ''etoexhib'',''pos6''">a spring with spring water</a>.'
if dachaest = 1:
	'Either <a href="exec:GT ''dachamy'',''start''">suburban area</a>.'
	'On the contrary your 6 acres situated exactly the same <a href="exec: GT ''etoexhib'',''pos8''">plot neighbor</a>.'
	end
if etoexhib < 13: 'You chuvtvuete slight presence of magic.'
act 'Stroll through the alleys': gt 'etoexhib','pos2'
act 'Exit the highway': minut += 15 & nroad = 5 & gt 'road'
--- dachi ---------------------------------

# graveyard
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Cemetery</H4></center>'
'<center><img src="images\etogame\graveyard.jpg"></center>'
'A very peaceful place immersed in the silence of circumferential philosophical thoughts about the impermanence of life.'
'At the far end of the cemetery you can see the dilapidated building, which used to be whether the crypt, or chapel.'
clr
gs 'stat'
gs 'time'



act 'Exit the highway': minut += 15 & nroad = 3 & gt 'road'


act 'Go to the crypt':
cls
minut += 15
gs 'stat'
gs 'time'
'<center><img src="images\etogame\graveyard2.jpg"></center>'
'Barred windows protect windows covered with dust all around the bushes.'
act 'Exit the highway': minut += 15 & gt $curloc
end
--- graveyard ---------------------------------

# locmansion
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cottage settlement</H4></center>'
'<center><img src="images\etogame\locmansion.jpg"></center>'
'Elite settlement which can afford to live only the cream of society.'
clr
gs 'stat'
gs 'time'

if car > 0 and cardrive = 19:
set cardrive = 19
'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

act 'Exit the highway': minut += 15 & nroad = 1 & gt 'road'

if placeMansion > 0: '<a href="exec: GT ''youplace''">Your Land</a>.'
--- locmansion ---------------------------------

# motel
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Motel</H4></center>'
'<center><img src="images\etogame\motel.jpg"></center>'
'Roadside motel where truckers stop for something to eat and sleep.'
clr
gs 'stat'
gs 'time'



act 'Exit the highway': minut += 15 & nroad = 14 & gt 'road'
--- motel ---------------------------------

# road
$polustanok = {
cls
gs 'stat'
'Ordinary railway platform.'
act 'Exit': minut += 10 & nroad = 5 & gt 'road'
if money >= 150:
	act 'Buy a ticket to the town (150 rubles)':
	cls
	money -= 150
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped at the station.'

		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped at the station.'

			act 'To go further':
			cls
			minut += 15
			gs 'stat'
			'<center><img src="images\etogame\electri.jpg"></center>'
			'After 15 minutes the train stopped in the Township.'
				act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG'
			end

			act 'Exit': minut += 15 & nroad = 15 & gt 'road'
		end

		act 'Exit': minut += 10 & nroad = 10 & gt 'road'
	end
end
if money >= 50:
	act 'Buy a ticket to the Centre (50 rubles)':
	cls
	money -= 50
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped at the Centre.'
	act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal'
	end
end
}

$polustanok2 = {
cls
gs 'stat'
'Ordinary railway platform.'
act 'Exit': minut += 10 & nroad = 10 & gt 'road'
if money >= 100:
	act 'Buy a ticket to the town (100 rubles)':
	cls
	money -= 100
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped at the station.'

		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped in the Township.'
			act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG'
		end

		act 'Exit': minut += 10 & nroad = 15 & gt 'road'
	end
end
if money >= 100:
	act 'Buy a ticket to the Center (100 rubles)':
	cls
	money -= 100
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped at the Centre.'
		act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal'

		end
	act 'Exit': minut += 20 & nroad = 5 & gt 'road'
	end
end
}
$polustanok3 = {
cls
gs 'stat'
'Ordinary railway platform.'
act 'Exit': minut += 15 & nroad = 15 & gt 'road'
if money >= 50:
	act 'Buy a ticket to the town (50 rubles)':
	cls
	money -= 100
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
	'After 15 minutes the train stopped in the Township.'
		act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG'
	end
end
if money >= 150:
	act 'Buy a ticket to the Center (150 rubles)':
	cls
	money -= 150
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\electri.jpg"></center>'
	'You paid for the ticket and boarded the train going in the town.'
		act 'To go further':
		cls
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\electri.jpg"></center>'
		'After 15 minutes the train stopped at the station.'
			act 'To go further':
			cls
			minut += 15
			gs 'stat'
			'<center><img src="images\etogame\electri.jpg"></center>'
			'After 15 minutes the train stopped at the Centre.'

			act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal'
			end

			act 'Exit': minut += 5 & nroad = 5 & gt 'road'
		end
	act 'Exit': minut += 20 & nroad = 10 & gt 'road'
	end
end
}
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Northern Highway</H4></center>'
'<center><img src="images\etogame\road.jpg"></center>'
'<center><<nroad>> km</center>'
'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.'
clr
gs 'stat'
gs 'time'
if car > 0 and cardrive = 19 and ncarroad = nroad:
'Standing on the sidelines <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if nroad = 0: act 'Go to town': minut += 60 & gt 'nord'

if nroad = 16: act 'Go to object': minut += 60 & gt 'obekt'

if nroad = 20: act 'Go to town': minut += 60 & gt 'gorodok'

if nroad < 20: act 'Go north': minut += 60 & nroad += 1 & gt $curloc

if nroad > 0: act 'Go south': minut += 60 & nroad -= 1 & gt $curloc

if nroad = 0:
'Outskirts of the town which brought sad ramshackle huts of kryazhestyh trees.'
end
if nroad = 1:
'Not podaleku from the city could be seen <a href="exec:minut += 15 & GT ''locmansion''">houses</a>.'
end
if nroad = 2:
''
end
if nroad = 3:
'Podaleku not seen from the road <a href="exec:minut += 15 & GT ''graveyard''">cemetery</a>.'
end
if nroad = 4:
''
end
if nroad = 5:
'Not podaleku from the road is <a href="exec:dynamic $polustanok">railway stop</a> next to which is <a href="exec:minut += 15 & GT ''dachi''">cottage cooperative</a>.'
end
if nroad = 6:
''
end
if nroad = 7:
''
end
if nroad = 8:
''
end
if nroad = 9:
''
end
if nroad = 10:
'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
end
if nroad = 11:
''
end
if nroad = 12:
''
end
if nroad = 13:
''
end
if nroad = 14:
'Near the road is <a href="exec:minut += 15 & GT ''motel''">motel</a>'
end
if nroad = 15:
'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>.'
end
if nroad = 16:
'Not podaleku is seen from the road abandoned building.'
end
if nroad = 17:
''
end
if nroad = 18:
''
end
if nroad = 19:
''
end
if nroad = 20:
'Highway abuts the old provincial town.'
end
--- road ---------------------------------

# youplace
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Your Land</H4></center>'
if placeMansion < 2: '<center><img src="images\etogame\yzemelniy.jpg"></center>'
if placeMansion = 2: '<center><img src="images\etogame\ystart.jpg"></center>'
if placeMansion = 3: '<center><img src="images\etogame\yosobnak.jpg"></center>'
''
clr
gs 'stat'
gs 'time'

if car > 0 and cardrive = 18:
set cardrive = 18
'<a href="exec:GS ''carF'',''start''">Your <<$car>></a> is parked here.'
end


act 'Go to the village': minut += 15 & gt 'locmansion'

if bassMansion = 1: '<a href="exec: gt ''ybass''">Pool</a>.'
if banaMansion >= 1: '<a href="exec: gt ''yban''">Bath</a>.'
if placeMansion = 3: '<a href="exec: gt ''ymans''">Go inside</a>.'

if karta >= 1500000 and placeMansion = 0:
	act 'Buy land for cottage 1500000':
	cls
	karta -= 1500000
	placeMansion = 1
	minut += 5
	gs 'stat'
	'You have bought land for cottage'
	act 'Leave': gt $curloc
	end
end


if karta >= 500000 and placeMansion = 1:
	act 'Pay for water, electricity and building foundations 500,000 rubles':
	cls
	karta -= 500000
	placeMansion = 2
	minut += 5
	gs 'stat'
	'You paid for a supply of communications to the site and zero cycle'
	act 'Leave': gt $curloc
	end
end

if karta >= 1500000 and placeMansion = 2:
	act 'Pay for the construction and external finish of the building 1.5 million':
	cls
	karta -= 1500000
	placeMansion = 3
	minut += 5
	gs 'stat'
	'You paid for the construction of housing mansion'
	act 'Leave': gt $curloc
	end
end

if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
	act 'Pay for the construction of 500 rooms sput':
	cls
	karta -= 500000
	ymanrem[3] = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of the rooms.'
	act 'Leave': gt $curloc
	end
end

if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
	act 'Pay for the construction of baths 800,000':
	cls
	karta -= 800000
	banaMansion = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of baths.'
	act 'Leave': gt $curloc
	end
end

if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
	act 'Pay for the construction of 500,000 basseynai':
	cls
	karta -= 500000
	bassMansion = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of the pool'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
	act 'Pay for repairs Hall 250000':
	cls
	karta -= 250000
	ymanrem[3] = 2
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
	act 'Pay lounge furniture 150 000':
	cls
	karta -= 150000
	ymanrem[3] = 3
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
	act 'Pay for repairs sleeping 250,000':
	cls
	karta -= 250000
	ymanrem[4] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
	act 'Pay bedroom furniture 300 000':
	cls
	karta -= 300000
	ymanrem[4] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
	act 'Pay bathroom renovation 250,000':
	cls
	karta -= 250000
	ymanrem[5] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
	act 'Pay for furniture and fixtures for the bathroom 250000':
	cls
	karta -= 250000
	ymanrem[5] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture and sanitary ware.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
	act 'Pay renovated kitchen 250000':
	cls
	karta -= 250000
	ymanrem[6] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
	act 'Pay kitchen furniture 350 000':
	cls
	karta -= 250000
	ymanrem[6] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the kitchen.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
	act 'Pay for repairs hall 250000':
	cls
	karta -= 250000
	ymanrem[7] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
	act 'Pay furniture hall 250000':
	cls
	karta -= 250000
	ymanrem[7] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the hall'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
	act 'Pay for repairs fireplace room 250000':
	cls
	karta -= 250000
	ymanrem[8] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
	act 'Pay for the purchase of furniture for the fireplace room 250000':
	cls
	karta -= 250000
	ymanrem[8] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
	act 'Children´s room to pay for repairs 250 000':
	cls
	karta -= 250000
	ymanrem[9] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
	act 'Pay for the purchase of furniture for the nursery 250,000':
	cls
	karta -= 250000
	ymanrem[9] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
	act 'Pay for repairs library 250000':
	cls
	karta -= 250000
	ymanrem[10] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
	act 'Pay for the purchase of furniture for libraries 250000':
	cls
	karta -= 250000
	ymanrem[10] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
	act 'Pay for repairs gym 250,000':
	cls
	karta -= 250000
	ymanrem[11] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
	act 'Pay furniture gym 250,000':
	cls
	karta -= 250000
	ymanrem[11] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the gym'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
	act 'Pay for repair of the 250 000':
	cls
	karta -= 250000
	ymanrem[12] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
	act 'Pay for the purchase of furniture for the office 250 000':
	cls
	karta -= 250000
	ymanrem[12] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture.'
	act 'Leave': gt $curloc
	end
end
--- youplace ---------------------------------

# ybass
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Pool</font></B></center>'
'<center><img src="images\etogame\ybass.jpg"></center>'
clr
gs 'stat'

act 'Swim (0:15)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumanus =0
	set cumlip = 0
	set cumface = 0
	set cumfrot = 0
	set minut += 15
	if sweat > -3: set sweat = -3
	set manna += 5
	set willpower += 5
	if stren < 40: set stren += 1
	'<center><img src="images\DeX\land\pool.jpg"></center>'
	'You swim in the pool, the water is refreshing and invigorating.'
	act 'Out of the water': gt 'ybass'
end
act 'Go to your house': minut += 5 & gt 'youplace'
--- ybass ---------------------------------

# yban
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Bath</font></B></center>'
'<center><img src="images\etogame\yban.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Go to your house': minut += 5 & gt 'youplace'
--- yban ---------------------------------

# ymans
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>House</font></B></center>'
'<center>Hall</center>'
if ymanrem[3] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[3] = 1: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[3] = 2: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[3] = 3: '<center><img src="images\etogame\ymans.jpg"></center>'
if ymanrem[3] = 3: '<a href="exec: GT ''mirror'',''start''">The mirror</a> hangs on the wall'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if ymanrem[3] >= 1: act 'Bedrooms': minut += 1 & gt 'ybedr'
if ymanrem[3] >= 1: act 'Bathroom': minut += 1 & gt 'yvan'
if ymanrem[3] >= 1: act 'Kitchen': minut += 1 & gt 'ykuh'
if ymanrem[3] >= 1: act 'Living Room': minut += 1 & gt 'yzal'
if ymanrem[3] >= 1: act 'Fireplace room': minut += 1 & gt 'ykamin'
if ymanrem[3] >= 1: act 'Nursery': minut += 1 & gt 'ydet'
if ymanrem[3] >= 1: act 'Library': minut += 1 & gt 'ybib'
if ymanrem[3] >= 1: act 'Gymnasium': minut += 1 & gt 'ysport'
if ymanrem[3] >= 1: act 'Cabinet': minut += 1 & gt 'ykabinet'
if nude = 0: act 'Go outside': minut += 5 & gt 'youplace'
--- ymans ---------------------------------

# ybedr
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>House</font></B></center>'
'<center>Bedroom</center>'
if ymanrem[4] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[4] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[4] = 2: '<center><img src="images\etogame\ybedr.jpg"></center>'
if ymanrem[4] = 2: 'Bright and beautiful room, with a nice <a href="exec: GT ''bed'',''start''">double bed</a>. Near the entrance is a modern <a href="exec:GT ''loker'',''start''">wardrobe</a>. Against the wall are a table and a <a href="exec:GT ''mirror'',''start''">mirror</a>'
clr
gs 'stat'
act 'Leave the room': minut += 1 & gt 'ymans'
--- ybedr ---------------------------------

# yvan
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>House</font></B></center>'
'<center>Bathroom</center>'
if ymanrem[5] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[5] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[5] = 2: '<center><img src="images\etogame\yvan.jpg"></center>'
if ymanrem[5] = 2: 'On the wall hangs a <a href="exec: GT ''mirror'',''start''">mirror</a>'
clr
gs 'stat'
if tampon > 0:
'On a shelf are tampons in a pack. You have <B><<tampon>></B> left'
else
'<B><font color = red>You have no tampons left.</font></B>'
end
if stanok > 0: 'On a shelf you have razor blades, you can use them <B><<stanok>></B> times.'
if dirtbelo > 0: 'In the cart is <font color = red><B><<dirtbelo>></B></font> pieces of dirty laundry.'
if poroshok > 0:
'Under the bath is some washing powder, which is enough for <B><<poroshok>></B> washes.'
else
'<B><font color = red>You do not have any detergent to wash your clothes.</font></B>'
end
if clrbelo > 0:
'In the locker there are <font color = blue><B><<clrbelo>></B></font> clean underwear.'
!else
!'<B><font color = red>You can not wash yourself, because you do not have clean underwear.</font></B>'
end
'<a href="exec: gt ''vann'',''start'' ">Start washing yourself</a>'

if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
	husband += 5
	set poroshok -= 2
	husporday = day
	'Washing machine washed your husbands smelly socks and his clothes.'
end

if dirtbelo > 0 and poroshok >= dirtbelo:
	clrbelo += dirtbelo
	poroshok -= dirtbelo
	dirtbelo = 0
	'Washing machine washed your laundry'
elseif poroshok<dirtbelo:
	'You ran out of powder for washing machine.'
end

act 'Leave the room': minut += 1 & gt 'ymans'

if tanga = 0:
	act 'Wear underwear':
	cla
	set tanga = 1
	gt $curloc
	end
end
if tanga = 1:
	act 'Take off underwear':
	cla
	set tanga = 0
	gt $curloc
	end
end

if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change tampon':
	cla
	*clr
	set tampon -= 1
	set isprok = 1
	set minut += 5
	set manna -= 5
	'<center><img src="images\pics\wash3.jpg"></center>'
	'You change a tampon.'
	act '(CONTINUE)': gt $curloc
	end
end

if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
	act 'Wash sperm from yourself (0:05)':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass = 0
	set cumlip = 0
	set cumface = 0
	set cumanus = 0
	set cumfrot = 0
	set sweat -= 1
	set minut += 5
	set clrbelo -= 1
	set dirtbelo += 1
	'<center><img src="images\pics\wash5.jpg"></center>'
	'You carefully washed sperm from yourself.'
	act '(CONTINUE)': gt $curloc
	end
end

if cumlip > 0 or cumface > 0:
	act 'Wash off the sperm on your face (0:05)':
	cla
	*clr
	set cumlip = 0
	set cumface = 0
	set sweat -= 1
	set minut += 5
	'<center><img src="images\etogame\facesp.jpg"></center>'
	'You carefully washed sperm from your face.'
	act '(CONTINUE)': gt $curloc
	end

end

if mop ! 1:
	act 'Wash off cosmetics':
	cla
	set mop = 1
	set minut += 15
	'You washed off your makeup.'
	act '(CONTINUE)': gt $curloc
	end
end

if klisma = 1 and klismaday ! day:
	act 'Give yourself an enema (0:05)':
	cla
	*clr
	set minut += 5
	set klismaday = day
	set klismaday1= 1
	'<center><img src="images\picV\klisma.jpg"></center>'
	'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'
	act '(CONTINUE)': gt $curloc
	end
end

if vibrator = 1 and vibratorIN = 0:
	act 'Insert the vibrator in your vagina (0:05)':
	cla
	*clr
	set minut += 5
	set vibratorIN = 1
	if vagina < 30: set vagina += 2
	'<center><img src="images\etogame\vibrator.jpg"></center>'
	'You bent over and inserted the vibrator in your pussy.'
	act '(CONTINUE)': gt $curloc
	end
end

if vibrator = 1 and vibratorIN = 1:
	act 'Remove the vibrator (0:05)':
	cla
	*clr
	set minut += 5
	set vibratorIN = 0
	if vagina < 30: set vagina += 1
	'<center><img src="images\etogame\vibrator.jpg"></center>'
	'You bent over and took the vibrator out of your vagina.'
	act '(CONTINUE)': gt $curloc
	end
end

if analplug = 1 and analplugin = 0 and klismaday1= 1:
	act 'Insert a butt plug (0:05)':
	cla
	*clr
	set minut += 5
	set analplugIN = 1
	if anus < 30: set anus += 5
	'<center><img src="images\etogame\analplug.jpg"></center>'
	if butpluguse > 0: 'You bent over and inserted the anal plug.'
	if butpluguse = 0: set butpluguse = 1 & '"If I don´t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'
	act '(CONTINUE)': gt $curloc
	end
end

if analplug = 1 and analplugin = 1:
	act 'Remove the butt plug (0:05)':
	cla
	*clr
	set minut += 5
	set analplugIN = 0
	if anus < 30: set anus += 1
	'<center><img src="images\etogame\analplug.jpg"></center>'
	if butpluguse > 0: 'You bent over and took out the butt plug.'
	act '(CONTINUE)': gt $curloc
	end
end
--- yvan ---------------------------------

# ykuh
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>House</font></B></center>'
'<center>Kitchen</center>'
if ymanrem[6] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[6] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[6] = 2: '<center><img src="images\etogame\ykun.jpg"></center>'
if ymanrem[6] = 2: ''
clr
gs 'stat'
if dirttarelka > 0 and fairy >= dirttarelka:
cltarelka += dirttarelka
fairy -= dirttarelka
dirttarelka = 0
'Dishwasher washed your dirty dishes.'
elseif fairy<dirttarelka:
'Tou have no more dishwashing detergent.'
end
if cltarelka > 0:
'In the cabinet you have <B><<cltarelka>></B> clean plates'
else
'<B><font color = red>You don´t have any clean plates left.</font></B>'
end
if dirttarelka > 0: 'In the sink are <B><<dirttarelka>></B> dirty dishes. <a href="exec: dynamic $dirtarm ">Wash the dishes</a>.'
if fairy > 0:
'Under the sink is some dishwashing detergent, which is enough for <B><<fairy>></B> times.'
else
'<B><font color = red>You have nothing to wash dishes with. You should buy some dishwashing detergent.</font></B>'
end
if eda > 0:
if cltarelka = 0 or edahot > 0:$edagot = ''
if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec: dynamic $edagotd ">Cook meal (0:30)</a>'
'In the refrigerator is enough food for <B><<eda>></B> servings. <<$edagot>>'
elseif edaD = 0 and eda = 0:
'<B><font color = red>The fridge is empty, you have nothing to eat.</font></B>'
end
if edaD > 0:
'In the refrigerator is some healthy meals that´s good for <B><<edaD>></B> servings.'
end

act 'Leave the room': minut += 1 & gt 'ymans'


if edahot > 0: '<a href="exec: dynamic $edahotd ">On the table is a cooked meal (0:30).</a>'


if pranik > 0:
'You have <<pranik>> cookies.'
	act 'Drink tea with cookies (0:15)':
	cla
	*clr
	minut += 15
	pranik -= 1
	set health += 30
	set manna += 100
	energy += 20
	water += 20
	fat += 50
	frost = 0
	gs 'stat'
	'<center><img src="images\pics\food.jpg"></center>'
	'You drank tea with cookies, sweet and very bad for your figure, but so good.'
	act 'Get up from the table': gt $curloc
	end
end

if edaD > 0:
	act 'Cook some dietary food (0:30)':
	cla
	*clr
	frost = 0
	'<center><img src="images\pics\food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 20
	set edaD -= 1
		if energy >= 30:
		'You are full.'
		end
		if energy >= 20 and energy < 30:
		set energy += 10
		'You are not hungry but you ate it anyway.'
		end
		if energy < 20:
		set energy += 20
		'You gladly ate some cooked food.'
		end
		if water >= 20:
		'You don´t want to drink anymore.'
		end
		if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
		end
	act 'Get up from the table': gt $curloc
	end
end

if fatdel > 0:
	act 'Consume fat burners':
	cla
	*clr
	set fatdel -= 1
	set fat -= 25
	if fat < 0: fat = 0
	'You drank fat burning capsule. These capsules operate gradually and results will not be seen immediately.'
	act 'Get up from the table': gt $curloc
	end
end

	act 'Drink':
	cla
	set minut += 5
		if water >= 20:
		'You are not thirsty.'
		end
		if water < 20:
		'You gladly drank a glass of water.'
		set water += 20
		end
	act 'Get up from the table': gt $curloc
	end

if husband > 0 and husbanday > 0 and huseatday ! day and eda >= 2:
	act 'Cook a meal for your husband, 2 servings (1:00)':
	cla
	*clr
	husband += 5
	set eda -= 2
	set minut += 60
	huseatday = day
	manna -= 25
	'<center><img src="images\pics\cook.jpg"></center>'
	'You cooked some food for your husband.'
	act 'Put the food on the table': gt $curloc
	end
end

if lekarstvo > 0:
'You have <<lekarstvo>> tablets.'
	if sick > 0 and lekarday ! day:
		act 'Take a pill':
		cla
		*clr
		set minut += 5
		lekarday = day
		lekarstvo -= 1
		sick -= sick * 20/100
		set lekrand = RAND(0,8)
		if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
		if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
		if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
		if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
		if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
		if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
		if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
		if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
		if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
		'You took the pill'
		act 'Move away': gt $curloc
		end
	end
end

if vitamin > 0:
'You have <<vitamin>> vitamins.'
	if vitaminday ! day:
		act 'Take some vitamins':
		cla
		*clr
		set minut += 5
		vitaminday = day
		vitamin -= 1
		frost = 0
		if KandidozOnce = 1: Kandidoz -= 2
		if GerpesOnce = 1: Gerpes -= 2
		if SifacOnce = 1 and Sifilis >= 10: Sifilis -= RAND(0,1)
		set skinvan += 1
		if skinvan = 20: set skinvan = 0 & set skin += 1
		'You took vitamins'
		act 'Move away': gt $curloc
		end
	end
end
--- ykuh ---------------------------------

# yzal
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>House</font></B></center>'
'<center>Living Room</center>'
if TV = 0: set $TV = 'That would be a great place for TV, which you do not have'
if TV = 1: set $TV = 'Ancient <a href="exec:GT ''TV'',''start''">TV</a>'
if TV = 2: set $TV = 'huge plasma <a href="exec:GT ''TV'',''start''">TV</a>'
if ymanrem[7] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[7] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[7] = 2: '<center><img src="images\etogame\yzal.jpg"></center>'
if ymanrem[7] = 2: '<<$TV>> . Luxury <a href="exec: GT ''divan'',''start''">leather sofa</a>'
clr
gs 'stat'

act 'Leave the room': minut += 1 & gt 'ymans'
--- yzal ---------------------------------

# ykamin
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Detached</font></B></center>'
'<center>fireplace room</center>'
if ymanrem[8] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[8] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[8] = 2: '<center><img src="images\etogame\ykamin.jpg"></center>'
if ymanrem[8] = 2: '<a href="exec: GT ''stol'',''start''">a table</a>'
gs 'stat'

act 'Leave the room': minut += 1 & gt 'ymans'
--- ykamin ---------------------------------

# ydet
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Detached</font></B></center>'
'<center>Children</center>'
if ymanrem[9] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[9] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[9] = 2: '<center><img src="images\etogame\ydet.jpg"></center>'
if ymanrem[9] = 2: ''
clr
gs 'stat'

act 'Leave the room': minut += 1 & gt 'ymans'
--- ydet ---------------------------------

# ybib
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Detached</font></B></center>'
'<center>Library</center>'
if ymanrem[10] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[10] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[10] = 2: '<center><img src="images\etogame\ybib.jpg"></center>'
if ymanrem[10] = 2: ''
clr
gs 'stat'

act 'Leave the room': minut += 1 & gt 'ymans'
--- ybib ---------------------------------

# ysport
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Detached</font></B></center>'
'<center>Gym</center>'
if ymanrem[11] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[11] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[11] = 2: '<center><img src="images\etogame\ysport.jpg"></center>'
if ymanrem[11] = 2: ''
clr
gs 'stat'
'In the hall is enough space for a variety of sport activities'

if treadmillday ! day:
'<a href="exec: dynamic $sitr_tread_d ">Treadmill</a>'
end
if obruchday ! day:
'<a href="exec: dynamic $sitrobrd ">Twist hoop</a>'
end
if bookYogday ! day:
'<a href="exec: dynamic $sitryogd ">Meditation</a>'
end
if skakday ! day:
'<a href="exec: dynamic $sitrskakd ">Jumping rope</a>'
end
if pressday ! day:
'<a href="exec: dynamic $sitrpressd ">Abdominal Exercises</a>'
end
if pushday ! day:
'<a href="exec: dynamic $sitrpushd ">Push-ups</a>'
end

act 'Leave the room': minut += 1 & gt 'ymans'
--- ysport ---------------------------------

# ykabinet
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B><font color = maroon>Detached</font></B></center>'
'<center>Cabinet</center>'
if ymanrem[12] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[12] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[12] = 2: '<center><img src="images\etogame\ykabinet.jpg"></center>'
if ymanrem[12] = 2: '<a href="exec: GT ''Komp'',''start''">computer</a>'
clr
gs 'stat'

act 'Leave the room': minut += 1 & gt 'ymans'
--- ykabinet ---------------------------------

# BDSM
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
clr
gs 'stat'
'You came to the set where all was ready for filming a porn movie.'
act 'Begin participating in the shooting':
cla
*clr
if hcol = 0: '<center><img src="images\studia\Brunette_2.jpg"></center>'
if hcol = 1: '<center><img src="images\studia\Brown_2.jpg"></center>'
if hcol = 2: '<center><img src="images\studia\Redhead_2.jpg"></center>'
if hcol = 3: '<center><img src="images\studia\Blonde_2.jpg"></center>'
'You started filming a scene with two actors'
	act 'Shoot a scene with blowjob':
	cla
	*clr
	guy += 2
	bj += 2
	gang += 1
	if hcol = 0: '<center><img src="images\studia\Brunette_3.jpg"></center>'
	if hcol = 1: '<center><img src="images\studia\Brown_3.jpg"></center>'
	if hcol = 2: '<center><img src="images\studia\Redhead_3.jpg"></center>'
	if hcol = 3: '<center><img src="images\studia\Blonde_3.jpg"></center>'
	'You cupped his lips and took a dick into the palm of the second member of the actor and began to work vigorously for the camera, alternately sucking members and trying to pull his mouth at once both members.'
		act 'Doggy-Style':
		cla
		*clr
		anal += 1
		anus += 1
			if hcol = 0: '<center><img src="images\studia\Brunette_4.jpg"></center>'
			if hcol = 1: '<center><img src="images\studia\Brown_4.jpg"></center>'
			if hcol = 2: '<center><img src="images\studia\Redhead_4.jpg"></center>'
			if hcol = 3: '<center><img src="images\studia\Blonde_4.jpg"></center>'

		'One of the actors made you cancer and began rudely thrust you his hard cock in the ass, after his cock entered into you, he began furiously fuck you in the ass, but you continued to suck vtrogo ...'
			act 'Sit on ...':
			cla
			*clr
			if hcol = 0: '<center><img src="images\studia\Brunette_5.jpg"></center>'
			if hcol = 1: '<center><img src="images\studia\Brown_5.jpg"></center>'
			if hcol = 2: '<center><img src="images\studia\Redhead_5.jpg"></center>'
			if hcol = 3: '<center><img src="images\studia\Blonde_5.jpg"></center>'
			'You famously sat on one dick ass and continued to suck the other ...'
				act 'Continue movements':
				cla
				*clr
				if hcol = 0: '<center><img src="images\studia\Brunette_6.jpg"></center>'
				if hcol = 1: '<center><img src="images\studia\Brown_6.jpg"></center>'
				if hcol = 2: '<center><img src="images\studia\Redhead_6.jpg"></center>'
				if hcol = 3: '<center><img src="images\studia\Blonde_6.jpg"></center>'
				'Peasants and swapped prodlolzhili to fuck you'
					act 'Prepare to double penetration':
					cla
					*clr
					sex += 1
					vagina += 1
					if hcol = 0: '<center><img src="images\studia\Brunette_7.jpg"></center>'
					if hcol = 1: '<center><img src="images\studia\Brown_7.jpg"></center>'
					if hcol = 2: '<center><img src="images\studia\Redhead_7.jpg"></center>'
					if hcol = 3: '<center><img src="images\studia\Blonde_7.jpg"></center>'
					'You got pussy on one member, and felt like a second penis enters you itching anus and broken-'
						act 'Enjoy':
						cla
						*clr
						if hcol = 0: '<center><img src="images\studia\Brunette_8.jpg"></center>'
						if hcol = 1: '<center><img src="images\studia\Brown_8.jpg"></center>'
						if hcol = 2: '<center><img src="images\studia\Redhead_8.jpg"></center>'
						if hcol = 3: '<center><img src="images\studia\Blonde_8.jpg"></center>'
						'Outstretched legs, you will enjoy the activities in the two bow members hammering your body as pistons, you groan and roll Spreading his arms to the operator was convenient to take close-up.'
							act 'Time to finish ...':
							cla
							*clr
							facial += 1
							swallow += 1
							if hcol = 0: '<center><img src="images\studia\Brunette_9.jpg"></center>'
							if hcol = 1: '<center><img src="images\studia\Brown_9.jpg"></center>'
							if hcol = 2: '<center><img src="images\studia\Redhead_9.jpg"></center>'
							if hcol = 3: '<center><img src="images\studia\Blonde_9.jpg"></center>'
							'Boys took out their thick members of you and you readily vsali before them on their knees and opened his mouth lustfully awaiting sperm guys did not take long and soon the hot jet of sperm began to lash down your face and drip down his chin on his chest.'
								act 'Get fee':
								minut = minut + 480
								film = film + 1
								BDSMfilm = BDSMfilm + 1
								money = money + vnesh * 500
								actr = 0
								cla
								*clr
								clr
								gs 'stat'
								'<center><img src="images\studia\dvd-disс.jpg"></center>'
								'You spent 9 hours on filming'
								'and received <<vnesh*500>>p. cash'
									act 'Leave the studio': gt 'down'
								end
							end
						end
					end
				end
			end
		end
	end
end
--- BDSM ---------------------------------

# toilet
if $ARGS[0] = 'start':
cla
$metka = $ARGS[0]
$loc = $CURLOC
*clr
set minut += 5
'<center><img src="images\toilet\cabin.jpg"></center>'
'Do you hear any noises at some of the booths ...'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'Come up with a toilet':
	cla
	set minut += 5
	gt 'sexshop','podval'
	end

	act 'Look at each booth':
	cla
	*clr
	clr
	gs 'stat'
	toisexrand = RAND(0,100)
	'<center><img src="images\toilet\pry_1.jpg"></center>'
	'You looked into the booth and all ....'
		if toisexrand < 66 :
			act 'And anyone not found ...':
			set minut += 10
			cla
			*clr
			clr
			gs 'stat'
			'<center><img src="images\toilet\cabin_0.jpg"></center>'
			'And all the booths were empty'
				act 'Come up with a toilet': gt 'sexshop','podval'
			end
		end

		if toisexrand >= 66 :
			act 'Saw a naked girl masturbating ....':
			set toigirlrand = RAND(1,2)
				if toigirlrand = 1:
				set minut += 10
				cla
				*clr
				clr
				gs 'stat'
				'<center><img src="images\toilet\toisex_1_1.jpg"></center>'
				'You know her, this girl watched porn in the next stall ....'
				'You have enabled cell phone and started filming herself as she caresses ...'
					act 'Enter into the booth and show that bitch ....': gt 'toilet','1'
					act 'You took a good movie on a mobile phone and gone ...': gt 'toilet','0'

				end

				if toigirlrand = 2:
				set minut += 10
				cla
				*clr
				clr
				gs 'stat'
				'<center><img src="images\toilet\toisex_2_1.jpg"></center>'
				'You know her - this girl watched porn in the next stall ....'
				'You have enabled cell phone and started filming herself as she caresses ...'
					act 'Enter into the booth and show that bitch ....': gt 'toilet','2'
					act 'You took a good movie on a mobile phone and gone ...': gt 'toilet','0'
				end
			end
		end
	end
end

if $ARGS[0] = '0':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut += 10
horny = horny + 50
'<center><img src="images\toilet\pornjrolik.jpg"></center>'
'Finding and viewing movies on your phone you are very excited ...'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)


	act 'Delete movie and walk out basement ...': gt 'sexshop','start'
	act 'Sell ​​clip on one of the porn sites ...!':
	cla
	*clr
	bankfond = bankfond + 1000
	'<center><img src="images\toilet\pornjrolik.jpg"></center>'
	'Uploading videos on the Internet, you sold it to porn site for 1000 rubles!'
	'You transferred the money to the account ...'
		act 'Walk out basement ...': gt 'sexshop','start'
	end
end

if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
clr
gs 'stat'
gs 'time'
'<center><img src="images\toilet\toisex_1_2.jpg"></center>'
'You knocked on the stall and she opened the door a little delay'
'She had to get dressed, but her cheeks were glowing eyes and ran - she realized that he slept ...'
'You: - Well, what a good rest? I wrote down all your pranks on mobile ...'
'She: - Why? What do you want?'
'You: - Are you rested? And I want to relax again ... So take off your clothes and do what I say ...'
'Otherwise, it is a video on the Internet today is! Gee-gee-gee ...'

	act 'She agreed and took off her bra ...':
	cla
	*clr
	'<center><img src="images\toilet\toisex_1_3.jpg"></center>'
	'Nipples on her small breasts excitedly sticking ...'
	'Looking at her you excited and your cock swollen ...'
	'She looked at you and waiting for further orders ....'
	'You: - Take off your pants and kiss my dick ...'
		act '...':
		cla
		*clr
		'<center><img src="images\toilet\toisex_1_4.jpg"></center>'
		'Removing panties she got down on her knees and kiss your cock ...'
		'Kissing is certainly nice, but I want a good suction ...'
			act 'Let ka kiddie more active ....':
			cla
			*clr
			'<center><img src="images\toilet\toisex_1_5.jpg"></center>'
			'She began actively otsayvat you ...'
			'You are excited and want to shove her cock in my mouth a little deeper ....'
				act 'Put in your mouth most tomatoes ...':
				cla
				*clr
				'<center><img src="images\toilet\toisex_1_6.jpg"></center>'
				'You are rude and started to fuck her deep in her mouth ...'
				'Probably need to try it with coarser ...'
					act 'Swat hair and bend to the toilet ...':
					cla
					*clr
					'<center><img src="images\toilet\toisex_1_7.jpg"></center>'
					'Bent his head to the toilet you started to insult her ...'
					'You called her a dirty whore and her slave ...'
					'Bitch was excited and kept saying: - Yes, my lord!'
						act 'Dunk your head in the toilet and wash ...':
						cla
						*clr
						'<center><img src="images\toilet\toisex_1_8.jpg"></center>'
						'You okunli her head in the ass ...'
						'She was trembling with excitement and asked her to cum in her mouth ...'
							act 'Give her suck ...':
							cla
							*clr
							'<center><img src="images\toilet\toisex_1_9.jpg"></center>'
							'She began to masturbate you substituting your sexy mouth ...'
							'Reaching the peak of excitement you removed it aside ...'
							'You: - Get on your knees bitch! Open your mouth and wait!'
								act '...':
								cla
								*clr
								'<center><img src="images\toilet\toisex_1_10.jpg"></center>'
								'He dutifully stood up and looking into your eyes waited for the apogee ...'
								'You discharge of semen in her mouth, and a few drops fell on the rim of the toilet ...'
								'Continuing to play the role of the Master, you said ...'
									act '- Swallow the whole sperm and lick the toilet bowl ...':
									set horny = 0
									set girl += 1
									set minut += 30
									sexm = sexm + 1
									manna = manna + 25
									cla
									*clr
									clr
									gs 'stat'
									'<center><img src="images\toilet\toisex_1_11.jpg"></center>'
									'Resignedly she began to lick clean the toilet ...'
									'And you thought: "Do not offer if she participated in the filming of" ...'
									'Judging by her inclination to obey - it could play in the genre BDSM'
									'These films are more expensive than usual, and actresses such genre is not enough ...'
									'You: - Listen sweetheart! You´re gorgeous! I have a proposal for you ...'
										act 'I needed an actress in the genre BDSM':
										set BDSMactressrand = RAND(1,2)
											if BDSMactressrand = 1:
											cla
											*clr
											BDSMactress = BDSMactress + 1
											'<center><img src="images\toilet\toisex_1_1.jpg"></center>'
											'It: - This is an interesting aredlozhenie. Where and when?'
											'You: - Come to the casting on Saturday! Shooting on Sundays!'
											'She: - I agree!'
											'You: - I am very pleased'
												act 'Here, take a business card! And to meet ...': gt 'sexshop','start'
											end

											if BDSMactressrand = 2:
											cla
											*clr
											'<center><img src="images\toilet\oblom_1.jpg"></center>'
											'She: - Fuck you for dick! Goat!'
											'You: Honey, what are you so? I thought you like domination!'
											'She: - Yes, I fear with almost peed - thought you were some kind of maniac!'
											'You: - Well, sorry neponyatochka out! Video phone I remove as dogovorivatsya!'
												act 'Go ...':
												cla
												*clr
												bankfond = bankfond + 1000
												'<center><img src="images\toilet\pornjrolik.jpg"></center>'
												'- That´s because of a bitch! - You might think ....'
												'You I still become a star! Though on the Internet!'
												'And finding a movie on your phone, sold it to one of the porn sites for 1000 rubles!'
												'You transferred the money to the account ...'
													act 'Walk out basement': gt 'sexshop','start'
												end
											end
										end
									end
								end
							end
						end
			end
				end
			end
		end
	end
end

if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
clr
gs 'stat'
gs 'time'
'<center><img src="images\toilet\toisex_2_2.jpg"></center>'
'You knocked on the stall and she opened the door a little delay'
'She had to get dressed, but her cheeks were glowing eyes and ran - she realized that he slept ...'
'You: - Well, what a good rest? I wrote down all your pranks on mobile ...'
'She: - Why? What do you want?'
'You: - Are you rested? And I want to relax again ... So take off your clothes and do what I say ...'
'Otherwise, it is a video on the Internet today is! Gee-gee-gee ...'

	act 'She agreed and took off her blouse ...':
	cla
	*clr
	'<center><img src="images\toilet\toisex_2_3.jpg"></center>'
	'Nipples on her small breasts excitedly sticking ...'
	'Looking at her you excited and your cock swollen ...'
	'She looked at you and waiting for further orders ....'
	'You: - Take off your pants and suck my dick ...'
		act '...':
		cla
		*clr
		'<center><img src="images\toilet\toisex_2_4.jpg"></center>'
		'Removing panties she knelt down and began to suck you dick ...'
		'It´s certainly nice, but I want a good suction ...'
			act 'Let ka kiddie more active ....':
			cla
			*clr
			'<center><img src="images\toilet\toisex_2_5.jpg"></center>'
			'She began actively otsayvat you ...'
			'You are excited and want to shove her cock in my mouth a little deeper ....'
				act 'Put in your mouth most tomatoes ...':
				cla
				*clr
				'<center><img src="images\toilet\toisex_2_6.jpg"></center>'
				'You are rude and started to fuck her deep in her mouth ...'
				'Probably need to try it with coarser ...'
					act 'Swat hair and bend to the toilet ...':
					cla
					*clr
					'<center><img src="images\toilet\toisex_2_7.jpg"></center>'
					'Bent his head to the toilet you started to insult her ...'
					'You called her a dirty whore and her slave ...'
					'You: - Female lick the toilet!'
					'She: - Yes my lord!'
						act 'Dunk your head in the toilet and wash ...':
						cla
						*clr
						'<center><img src="images\toilet\toisex_2_8.jpg"></center>'
						'You okunli her head in the ass ...'
						'She was trembling with excitement and asked her to cum in her mouth ...'
							act 'Give it a lick dick ...':
							cla
							*clr
							'<center><img src="images\toilet\toisex_2_9.jpg"></center>'
							'She began to lick your dick their sexual tongue ...'
							'Reaching the peak of excitement you finished in her mouth ...'
							'You: - swallow cum bitch! Open your mouth and show me how you did it!'
								act '...':
								cla
								*clr
								'<center><img src="images\toilet\toisex_2_10.jpg"></center>'
								'He dutifully swallowed and opened her mouth ...'
								'Have you checked - she really swallowed every drop posleedney ...'
								'You: - Well, ka bitch conducted on hand between your legs and show me ...'
									act '....':
									set horny = 0
									set girl += 1
									set minut += 30
									sexm = sexm + 1
									manna = manna + 25
									cla
									*clr
									clr
									gs 'stat'
									'<center><img src="images\toilet\toisex_2_11.jpg"></center>'
									'Groaning she held her fingers on her pussy ...'
									'Sheath of her was full of grease - you can see that she was excited ...'
									'And you thought: "Do not offer if she participated in the filming of" ...'
									'Judging by her inclination to obey - it could play in the genre BDSM'
									'These films are more expensive than usual, and actresses such genre is not enough ...'
									'You: - Listen sweetheart! You´re gorgeous! I have a proposal for you ...'
										act 'I needed an actress in the genre BDSM':
										set BDSMactressrand = RAND(1,2)
											if BDSMactressrand = 1:
											cla
											*clr
											BDSMactress = BDSMactress + 1
											'<center><img src="images\toilet\toisex_2_3.jpg"></center>'
											'It: - This is an interesting aredlozhenie. Where and when?'
											'You: - Come to the casting on Saturday! Shooting on Sundays!'
											'She: - I agree!'
											'You: - I am very pleased'
												act 'Here, take a business card! And to meet ...': gt 'sexshop','start'
											end

											if BDSMactressrand = 2:
											cla
											*clr
											'<center><img src="images\toilet\oblom_1.jpg"></center>'
											'She: - Fuck you for dick! Goat!'
											'You: Honey, what are you so? I thought you like domination!'
											'She: - Yes, I fear with almost peed - thought you were some kind of maniac!'
											'You: - Well, sorry neponyatochka out! Video phone I remove as dogovorivatsya!'
												act 'Go ...':
												cla
												*clr
												bankfond = bankfond + 1000
												'<center><img src="images\toilet\pornjrolik.jpg"></center>'
												'- That´s because of a bitch! - You might think ....'
												'You I still become a star! Though on the Internet!'
												'And finding a movie on your phone, sold it to one of the porn sites for 1000 rubles!'
												'You transferred the money to the account ...'
													act 'Walk out basement': gt 'sexshop','start'
												end
											end
										end
									end
								end
							end
						end
			end
				end
			end
		end
	end
end
--- toilet ---------------------------------

# film

if $ARGS[0] = 'film':
cla
clr
gs 'stat'
!pfilmA
	if pfilmA >= 5:
	cla
	Set pfilmA = 0
	Set pfilm = 0
	film = film + 1
	'You dosnyal in the film.'
	act 'Approach to Peter': gt 'pornstudio', 'start'
	act 'Finish': gt 'down'
	end

	if час >= 22 and pfilmA < 5:
	cla
	'Time is too late for filming'
	act 'Go home': gt 'down'
	end

	if hour < 22 and pfilmA < 5 and pfilm > 0:
	cla
	Set minut += 60
	gs 'stat'
	Set money += 1000
	if pfilmA = 0: Set guy+= 1
	bj += 1
	Set pfilmA += 1
	'You undress and start shooting.'
	Set prand = RAND(1,2)
		if prand = 1:
		Set porand = RAND(1,10)
		if porand = 1: '<center><img src="images\picBJ\bj.jpg"></center>'
		if porand = 2: '<center><img src="images\picBJ\bj2.jpg"></center>'
		if porand = 3: '<center><img src="images\picBJ\bj3.jpg"></center>'
		if porand = 4: '<center><img src="images\picBJ\bj4.jpg"></center>'
		if porand = 5: '<center><img src="images\picBJ\bj5.jpg"></center>'
		if porand = 6: '<center><img src="images\picBJ\bj6.jpg"></center>'
		if porand = 7: '<center><img src="images\picBJ\bj7.jpg"></center>'
		if porand = 8: '<center><img src="images\picBJ\bj8.jpg"></center>'
		if porand = 9: '<center><img src="images\picBJ\bj9.jpg"></center>'
		if porand = 10: '<center><img src="images\picBJ\bj10.jpg"></center>'
		'You suck dick for an hour at the actor portraying the passion and lust. Really hard to concentrate when there are fixtures, Assistant, you continually shoved the camera to face.'
		end
		if prand = 2:
		facial += 1
		Set porand = RAND(1,10)
		if porand = 1: '<center><img src="images\picBJ\fa.jpg"></center>'
		if porand = 2: '<center><img src="images\picBJ\fa2.jpg"></center>'
		if porand = 3: '<center><img src="images\picBJ\fa3.jpg"></center>'
		if porand = 4: '<center><img src="images\picBJ\fa4.jpg"></center>'
		if porand = 5: '<center><img src="images\picBJ\fa5.jpg"></center>'
		if porand = 6: '<center><img src="images\picBJ\fa6.jpg"></center>'
		if porand = 7: '<center><img src="images\picBJ\fa7.jpg"></center>'
		if porand = 8: '<center><img src="images\picBJ\fa8.jpg"></center>'
		if porand = 9: '<center><img src="images\picBJ\fa9.jpg"></center>'
		if porand = 10: '<center><img src="images\picBJ\fa10.jpg"></center>'
		'You suck dick for an hour at the actor portraying the passion and lust. He ends up on your face, you lick the sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		end
	act 'Finish': gt 'down'
	if hour < 22: act 'Acting on': gt 'film','film'
	end

end



if $ARGS[0] = 'film2':
cla
clr
gs 'stat'
!pfilmB
	if pfilmB >= 10:
	cla
	Set pfilmB = 0
	Set pfilm = 0
	film = film + 1
	'You dosnyal in the film.'
	act 'Approach to Peter': gt 'pornstudio', 'start'
	act 'Go home': gt 'down'
	end

	if час >= 22 and pfilmB < 10:
	cla
	'Time is too late for filming'
	act 'Go home': gt 'down'
	end

	if hour < 22 and pfilmB < 10 and pfilm > 0:
	cla
	Set minut += 60
	gs 'stat'
	Set money += 3000
	if pfilmB = 0: guy += 1
	Set pfilmB += 1
	'You undress and start shooting.'
	Set prand = RAND(1,3)
		if prand = 1:
		bj += 1
		Set porand = RAND(1,10)
		if porand = 1: '<center><img src="images\picBJ\bj.jpg"></center>'
		if porand = 2: '<center><img src="images\picBJ\bj2.jpg"></center>'
		if porand = 3: '<center><img src="images\picBJ\bj3.jpg"></center>'
		if porand = 4: '<center><img src="images\picBJ\bj4.jpg"></center>'
		if porand = 5: '<center><img src="images\picBJ\bj5.jpg"></center>'
		if porand = 6: '<center><img src="images\picBJ\bj6.jpg"></center>'
		if porand = 7: '<center><img src="images\picBJ\bj7.jpg"></center>'
		if porand = 8: '<center><img src="images\picBJ\bj8.jpg"></center>'
		if porand = 9: '<center><img src="images\picBJ\bj9.jpg"></center>'
		if porand = 10: '<center><img src="images\picBJ\bj10.jpg"></center>'
		'You suck dick for an hour at the actor portraying the passion and lust. Really hard to concentrate when there are fixtures, Assistant, you continually shoved the camera to face.'
		end

		if prand = 2:
		anus += 1
		Set anal += 1
		Set porand = RAND(1,10)
		if porand = 1: '<center><img src="images\pics\anal.jpg"></center>'
		if porand = 2: '<center><img src="images\pics\anal2.jpg"></center>'
		if porand = 3: '<center><img src="images\pics\anal3.jpg"></center>'
		if porand = 4: '<center><img src="images\pics\anal4.jpg"></center>'
		if porand = 5: '<center><img src="images\pics\anal5.jpg"></center>'
		if porand = 6: '<center><img src="images\pics\anal6.jpg"></center>'
		if porand = 7: '<center><img src="images\pics\anal7.jpg"></center>'
		if porand = 8: '<center><img src="images\pics\anal8.jpg"></center>'
		if porand = 9: '<center><img src="images\pics\anal9.jpg"></center>'
		if porand = 10: '<center><img src="images\pics\anal10.jpg"></center>'
		'An hour you fucked in the ass for the camera, you do not pleasant, but you portray passion and pleasure. Finally, the actor does not stand up and fills your ass with his sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		end

		if prand = 3:
		Set sex += 1
		vagina+= 1
		facial += 1

		set porand = RAND(0,1)
		if porand = 0:
			picrand = RAND(1,6)
			'<center><img src="images\pics\vagcow<<picrand>>.jpg"></center>'
		else
			picrand = RAND(1,5)
			'<center><img src="images\pics\vagdog<<picrand>>.jpg"></center>'
		end

		'You have an hour before the camera, you portray passion and lust. He ends up on your face, you lick the sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		end
	act 'Go home': gt 'down'
	if hour < 22: act 'Acting on': gt 'film','film2'
	end

end
--- film ---------------------------------

# pornstudio
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
'<center><img src="images\studia\studiа_0.jpg"></center>'

act 'Leave': gt 'down'

	if hour >= 9 and hour <= 22:
	'Manager´s office opened.'

	act 'Go to the manager': gt 'pornstudio','man'
	act 'Visit the Assistant queries manager': gt 'pornstudio','pomman'

	if bomzQW = 1 and week = 4 and workDisk = 0: act 'Arrive at the expense of': dynamic $workbomzdi

	if workDisk = 1 and week = 5:
		act 'Take a drive':
		cls
		minut += 5
		gs 'stat'
		workDisk = 2
		'You are given a disk, and specify whether you remember all the instructions. You nod your head and head to the exit with the disc. Moving away from the studio near you heard someone else came out of a nearby building and headed for you. "Avoid deserted places, maybe blow over" you had hoped, and went on.'
		act 'Leave': gt 'down'
		end
	end

	if workDisk = 3 and week = 5:
		act 'Give the envelope':
		cls
		minut += 5
		workDisk = 4
		gs 'stat'
			if konvert = 0:
			'Starting kopatsya in things you struck terror. No envelope. You all again ransacked, but no envelope.'
			'-WHAT! But how could this happen! You know, in what you got dibs?!'
			'You stand and you can not squeeze out a single word. Sounds like your situation is really deplorable.'
			'Manager grabs the phone and explains the situation to the other party. After listening to a couple of minutes, he hung up.'
			'So-so - he said - his boss was in a good mood, so I have good news. You have a week. Until next Friday evening you shall bring into the studio 200000. If you bring - we leave, but more than an actress you work with us you can not.'
			'Otherwise, the consequences will be grim.'
			workDolg = 200000
			workDolgDay = 7
			else
			konvert = 0
			money += 5000
			'You gave the envelope to the manager and he gave you 5,000 rubles'
			end
			act 'Leave': gt 'down'
		end
	end

	if workDolg > 0 and money >= workDolg:
		act 'To repay the debt':
		cls
		minut += 5
		gs 'stat'
		workDisk = 0
		money -= workDolg
		workDolg = 0
		'You gave the money owed to the studio.'
		act 'Leave': gt 'down'
		end
	end

	if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
		act 'Show help about sexually transmitted diseases cured':
		cls
		minut += 5
		pfilmNoVenera = 0
		pfilmNO = 0
		gs 'stat'
		'You gave a certificate of sexually transmitted diseases cured and you promised to consider your reinstatement as a porn actress.'
		act 'Leave': gt 'down'
		end
	end

	else
	'Porn studio closed'
	end

end

if $ARGS[0] = 'pomman':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5

'Young guy knocks on the computer keys in a small office.'
'"How can I help you?".'

if pfilmSTOP = 0: act 'What rating views from my video?': gt 'pornstudio','myvid'

act 'Leave': gt 'pornstudio','start'
end

if $ARGS[0] = 'myvid':
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
set minut += 5
if film = 0: '"You have no videos."'
	if film > 0:
	'"Do you <<film>> videos. Their rating is still very low, quite simply, they are almost nobody is looking."'
	'The guy whispers "By the way if you suddenly want to, I can contribute to their removal from the network - if you go down to the price."'
	act 'Rasprosov more': gt 'pornstudio','myvid2'
	end
act 'Leave': gt 'pornstudio','start'
end

if $ARGS[0] = 'myvid2':
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
set minut += 5
set films_stop_payment = film * 40000
'So long as little video views, we are not very interested in them, and I can remove them. But will have to pay all the costs of the studio, about 40,000 each. A total amount of <<films_stop_payment>>. In addition, site-hoster does not love these models, so that the more you do not get a job with us.'
if money >= films_stop_payment: act 'Agree': gt 'pornstudio','myvid3'
act 'Leave': gt 'pornstudio','start'
end

if $ARGS[0] = 'myvid3':
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
set minut += 5
set money -= films_stop_payment
set pfilmSTOP = 1
$pfilmstory_new = 'In the porn industry you know the name' + $pfname + '. You starred in porn' + film + ' times. Shooting ceased all video seized.'
set film = 0
'So, your video removed. Have a nice day.'
act 'Leave': gt 'pornstudio','start'
end

if $ARGS[0] = 'man':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
'<center><img src="images\studia\studiа_0.jpg"></center>'
'Boss porn studio met you welcome and gestured you sit on the couch.'

	if pfilmNO = 1:
	'You´re blacklisted, you no decent studio will not have affairs, goodbye.'
	act 'Leave': gt 'pornstudio','start'
	exit
	end

	if pfilmSTOP = 1:
	'You yourself decided to end all business with us.'
	act 'Leave': gt 'pornstudio','start'
	exit
	end

	if pfilmday = daystart and pfilm > 0:
	'Do not distract me from my work. Like I said, tomorrow shooting.'
	act 'Leave': gt 'pornstudio','start'
	exit
	end

	if pfilmday >= daystart + 2 and pfilmNOPAY = 0:
	pfilmNO = 1
	'You did not come to the shooting. Plucked them. I paid a lot of dough assistants, actors, cameramen, plus rental studio, and you took it and threw me. No, with you I do not want to work and am submitting your name in the blacklist.'
	act 'Leave': gt 'pornstudio','start'
	exit
	end

	if pfilm > 0 and hour = 10:
	pfilmday = day
	'Come on honey inspection.'
	act 'Go for medical check-up': gt 'pf','doc'
	exit
	elseif pfilm > 0 and hour = 11:
	pfilmday = day
	'Do not be late, my patience is not eternal, strictly tells you Peter. Vividly honey inspection.'
	act 'Go for medical check-up': gt 'pf','doc'
	exit
	elseif pfilm > 0 and hour = 12:
	pfilmday = day
	'What the dick? There´s only one waiting for you. Hurry honey inspection.'
	act 'Go for medical check-up': gt 'pf','doc'
	exit
	elseif pfilm > 0 and hour > 12:
	pfilmday = day
	'I told you not to be late? Said. Get out of here, I´m out for you a lot of money lost. Actors paid assistants, operator, doctor, and because of you slut, shooting all failed.'
	'Either you come tomorrow and work for free, or get out and I know you do not want.'
		act 'Himself worked for free moron':
		pfilmNO = 1
		pfilm = 0
		gt 'pornstudio','start'
		end

		act 'Well, in return for free.':
		pfilmNOPAY = 1
		gt 'pornstudio','start'
		end
	!else
	!'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
	!act 'Leave': gt 'pornstudio','start'
	exit
	end


if film = 0 and firstkasting = 0:
'You sat down on the sofa and asked the boss. I see you for the first time with us. Want to rent a porno movie?'

	act 'I changed my mind': gt 'pornstudio','start'

	act 'Yes':
	cla
	set minut += 5
	gs 'stat'
	'You have confirmed their desire to play in a porn movie. Boss nodded. All right. First you need to spend casting.'
	'Razdentes, me see your body.'
	act 'I changed my mind': gt 'pornstudio','start'

		act 'Unclothed':
		cla
		minut += 5
		gs 'stat'
		'You undressed in front of the boss, he got up from his chair and walked eyeing you. "Lie down on the couch and spread your legs."'
		act 'I changed my mind': gt 'pornstudio','start'
			act 'Lie down on the sofa and spread her legs':
			cla
			minut += 5
			gs 'stat'
			'You lay down on the couch and pushed her feet. Boss took fotoaparat and took a few pictures, explaining that it is for the portfolio. After that, the boss asked you to kneel.'
				act 'To kneel':
				cla
				minut += 5
				gs 'stat'
				'You got up from the couch and knelt in front of the boss. He took a few more pictures. "Now open your mouth and stick your tongue as if you now face will finish."'
					act 'Open mouth stick um language':
					cla
					minut += 5
					gs 'stat'
					'You have opened my mouth and stuck out her tongue. Boss again sfotkal you. "Not bad, now suck my thumb" He put in your mouth as his thick finger sordelka.'
						act 'Thumb sucking':
						cla
						minut += 5
						gs 'stat'
						'You started to suck his thumb trying to look sexier as possible. Boss touched your breast with the other hand while you were busy with his finger.'
						'He pulled his finger out of your mouth, you said curtly, "get dressed." and sat down at the table. You quickly got dressed and sat on the couch.'
						'(Boss) - I can call Peter. Firstly you need a nickname for filming.'
							act 'Called alias':
							cla
							firstkasting = 1
							$pfname = input ("What will be your alias?")
							if $pfname <= 0:$pfname = '<<$name>> Huesoskina'

							'<<$pfname>>, um, okay, go. Now listen, the composition of pornographic men have a permanent, all before shooting pass medical examination. You´ll also pass a medical examination. If you find any sign of a sexually transmitted disease, then dosvidaniya forever. This point is clear? Take care of health. I´m not going to jeopardize his actors.'
							'We shoot films not so often. About once a month.'
							''
							'We´ll see. That we need.'
							act '.....': gt 'pornstudio','man'
							end

						end
					end
				end
			end
		end
	end
elseif film = 0 and firstkasting = 1 and pfilm = 0:
'So, you´re new girl, and we just have an order for a brand new girl. In the genre handdzhob. You´ll have to masturbate guy, and he would finish your chest. All this for 3000.'
	act 'Agree':
	cla
	pfilm = 1
	pfilmday = daystart
	'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
	act 'Leave': gt 'pornstudio','start'
	end

	act 'I changed my mind': gt 'pornstudio','start'
elseif film > 0:
	if daystart > pffilmday and pfilm = 0:
	'Come on <<$pfname>>. So, let´s see what I can pick up for you.'
	frand = RAND(1,6)
	!frand = 6
	if frand = 1: 'Job handles need podorochit guy and he pulls on his chest. 2000.'
	if frand = 2: 'Do blowjob guy, ending in the mouth and face. 3 thousand.'
	if frand = 3: 'Classical, first blowjob, then sex with the end in the mouth and face. 5000.'
	if frand = 4: 'Tough classic, first blowjob, then sex, then anal and ending up in the mouth and face. 6000.'
	if frand = 5: 'Group sex with two guys in all holes, but without double penetration. 7000.'
	if frand = 6: 'Threesome with two guys with double penetration. 9000.'

		act 'Perhaps wait for more suitable suggestions':
		pffilmday = daystart + 1
		gt 'pornstudio','start'
		end

		act 'Agree':
		cla
		pfilm = frand
		pfilmday = daystart
		'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
		act 'Leave': gt 'pornstudio','start'
		end

	else
	if pffilmday-daystart > 0:
		$talkpsno = 'Come back <<pffilmday-daystart>>days'
		'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
	end
	if pffilmday-daystart = 0:
		$talkpsno = 'Come back tomorrow'
		'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
	end
	act 'Leave': gt 'pornstudio','start'
	end

end

'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
act 'Leave': gt 'pornstudio','start'

	!'if week < 6 and pornstudio > 1 and pfilmA = 0 and pfilmB = 0:
	set porand = RAND(1,3)
		if porand < 3:
		'Who needs an actress doing a blowjob. 1000 per hour. Filming will take 5 hours. Not necessarily immediately removed. Can come and shoot for an hour.'

			act 'Agree':
			Set pfilm = 1
			gt 'film','film'
			end
		end

		if porand = 3:
		'Who needs an actress for the film, anal, classic, deep blowjob. 3000 per hour. Filming will take 10:00. Not necessarily immediately removed. Can come and shoot for an hour.'

			act 'Agree':
			Set pfilm = 2
			gt 'film','film2'
			end
		end

	end

	if week < 6 and hour >= 10 and pfilmA > 0:
	'You are not yet fully appeared in the film and you have to continue.'
		act 'Go to the set':
		Set pfilm = 1
		gt 'film','film'
		end
	end

	if week < 6 and hour >= 10 and pfilmB > 0:
	'You are not yet fully appeared in the film and you have to continue.'
		act 'Go to the set':
		Set pfilm = 2
		gt 'film','film2'
		end
	end

	if actr = 1 and pfilmA = 0 and pfilmB = 0:
	'Now you have nothing to do in the studio, come Sunday'
	end

	if week = 6 and actr = 0:
		act 'Try your luck at kastinge for starring': gt 'pornstudio','2'
	end

	if week = 7 and actr = 1:
		act 'Go to the shooting': gt 'pornstudio','3'
	end

	if week < 6 and hour >= 22:
		act 'Go home': gt 'down'
	end'
end



if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
set minut += 5
clr
gs 'stat'
'<center><img src="images\studia\Pierre_1.jpg"></center>'
'You came to the studio, looking for someone to look, who to approach to the issue.'
'To you approached by a young man who introduced Peter, you are greeted and met.'
	act 'Set out the purpose of your visit':
	cla
	*clr
	minut = minut + 60
	'<center><img src="images\studia\Pierre_2.jpg"></center>'
	'Peter smiled and said that the new actresses are always welcome, just terrible, of course, in the business do not take. On the first couple of auditions will take place, if you like the public - you can not take them.'
	'I´ll tell you that here and how, but under one condition - you have to undress.'

		act 'Undress':
		cla
		*clr
		'<center><img src="images\studia\casting_3.jpg"></center>'
		'First there is a casting actresses - as I said, if you are terrible - you can not hope only comes when you have a beautiful appearance.'

			act '......':
			cla
			*clr
			'<center><img src="images\studia\model_0.jpg"></center>'
			'Then she selected for the lead role.'
			'Here you have to be the most beautiful.'

				act '......':
				cla
				*clr
				'<center><img src="images\studia\Film_0.jpg"></center>'
				'Well then filming itself - an interesting and exciting process'
				'And the output we get ....'

					act '......':
					cla
					*clr
					'<center><img src="images\studia\dvd-disс.jpg"></center>'
					'Then on what I make money.'
						act 'Everything is clear, but how and where everything is for sale? Maybe I want to see for yourself ..':
						cla
						*clr
						'<center><img src="images\studia\Pierre_2.jpg"></center>'
						'The sauna is in a residential area we have one man .. And in a sex shop, how could you understand there garters. Now here are thinking about selling in the university. If we have this who helped - increased profits used well, with dividend entitlements assistant, of course.'
							act 'And any problems with the law?':
							cla
							*clr
							'<center><img src="images\studia\ment_0.jpg"></center>'
							'Specifically for you - yet. We´ve got their contracts with the cops, maybe in the future you will be able to help us to keep them in power, but for now - I told you all have to try on the weekend.'
								act 'Well like all realized':
								cla
								*clr
								'<center><img src="images\studia\Pierre_2.jpg"></center>'
								'Boy, girl, enjoy yourself and do not take away I have more time'
								pornstudio = 3
								gt 'pornstudio','start'
								end

							end
						end
			end
				end
			end
		end
	end
end


if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
set carraf = rand(10,250)
castingrand = RAND(1,6)
if castingrand = 1: '<center><img src="images\studia\casting_1.jpg"></center>'
if castingrand = 2: '<center><img src="images\studia\casting_2.jpg"></center>'
if castingrand = 3: '<center><img src="images\studia\casting_3.jpg"></center>'
if castingrand = 4: '<center><img src="images\studia\casting_4.jpg"></center>'
if castingrand = 5: '<center><img src="images\studia\casting_5.jpg"></center>'
if castingrand = 6: '<center><img src="images\studia\casting_6.jpg"></center>'
'You spent eight o´clock in the casting producer was undressing in front and taking a variety of poses.'
minut = minut + 120
gs 'stat'
minut = minut + 120
gs 'stat'
minut = minut + 120
gs 'stat'
minut = minut + 120
gs 'stat'
	if vnesh < carrar:
	'You have not taken the role, very sorry'
	end

	if vnesh >= carrar:
	'Your role'
	actr = 1
	end

	act 'Finish':
	gt 'pornstudio','start'
	end
end

if $ARGS[0] = '3':
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
actr = 0
gt 'bdsm'
end
--- pornstudio ---------------------------------

# pf
if $ARGS[0] = 'boss':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	*clr
	gs 'stat'
	set minut += 30

	film += 1
	if pfilm = 1: pfcash = 2000 & $filmtext = ' where you snimalilis as otdrachivali guy and he descended on your boobs.'
	if pfilm = 2: pfcash = 3000 & $filmtext = ' where you snimalilis aspirated as a member of the guy and he goes down you in the mouth and face.'
	if pfilm = 3: pfcash = 5000 & $filmtext = ' where you snimalilis aspirated as a member of the guy, then he fucked you and cum in your mouth.'
	if pfilm = 4: pfcash = 6000 & $filmtext = ' where you snimalilis aspirated as a member of the guy, then he fucked you in the pussy and ass and pulled you into his mouth.'
	if pfilm = 5: pfcash = 7000 & $filmtext = ' where you snimalilis as you in all holes hollows two men.'
	if pfilm = 6: pfcash = 9000 & $filmtext = ' where you snimalilis as you hammering in all holes two men and even double penetration.'

	$pfilmhistory+=film+') shot on '+year+'.'+$month+'.'+day+':'+$filmtext+'<br>'

	if pfilmNOPAY = 0:
		money += pfcash
		'Peter you counted <<pfcash>> per shot in the film and wished good luck'
	end

	if pfilmNOPAY = 1:
		pfilmNOPAY = 0
		'You have fulfilled his sentence and the film was made for free.'
	end

	!pornFame += vnesh + (pfilm * 10)
	pfilm = 0

	if film < 10: filmkoef = 2
	if film >= 10 and film < 20: filmkoef = 5
	if film >= 20: filmkoef = 10
	pffilmday = daystart+(film + filmkoef)
	pfilmday = 0

	'I think we will have a job for you no earlier than one <<pffilmday-daystart>>day.'

	act 'Leave': gt 'pornstudio','start'
end


if $ARGS[0] = 'doc':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
'You went into the office where the doctor was waiting in a white robe. He quickly pulled on rubber gloves and briefly told you undress.'
'You removed the clothes and sat in the high gynecological chair legs apart. The doctor came up to you and started inspection. After inspection, he took a syringe and took you out of the vein blood samples.'
'Now after half an hour and will be ready tests, if you have at least something, they will show.'

act 'Wait': gt 'pf','lab'
end


if $ARGS[0] = 'lab':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30

	if venera > 0:
	'Your analysis showed a sexually transmitted disease. doctor told you and called Peter. Peter looked at the piece of paper with analyzes.'
	'Well, it <<$pfname>>I think your career is over. Goodbye.'
	pfilmNO = 1
	pfilmNoVenera = 1
	act 'Leave': gt 'pornstudio','start'
	else
	'Well Well, you´re clean. Go into the dressing room'
	act 'Go to the dressing room': gt 'pf','grim'
	end

end

if $ARGS[0] = 'grim':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
'In the dressing room waiting for you already lean and withered as roach woman.'
hapri = 1
mop = 4
gs 'stat'
if pfilm > 3:
	'The first cases you put a powerful enema.'
end
'You put in front of the mirror, brushed and laid makeup.'
!если сцены с аналом, то клизма.

!
	act 'Go to the set':
	if pfilm = 1: gt 'pf','1'
	if pfilm = 2: gt 'pf','2'
	if pfilm = 3: gt 'pf','3'
	if pfilm = 4: gt 'pf','4'
	if pfilm = 5: gt 'pf','5'
	if pfilm = 6: gt 'pf','6'
	end
end


if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30

akrand = RAND(1,5)
if akrand = 1:$pakter = 'Alexey'
if akrand = 2:$pakter = 'Sergey'
if akrand = 3:$pakter = 'George'
if akrand = 4:$pakter = 'Ignat'
if akrand = 5:$pakter = 'Semen'

'On the site already bustling assistants installing lighting, so that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
	act 'Removed':
	cla
	*clr
	minut += 30
	gs 'stat'
	if akrand = 1 and aksex1 = 0: aksex1 = 1 & guy += 1
	if akrand = 2 and aksex2 = 0: aksex2 = 1 & guy += 1
	if akrand = 3 and aksex3 = 0: aksex3 = 1 & guy += 1
	if akrand = 4 and aksex4 = 0: aksex4 = 1 & guy += 1
	if akrand = 5 and aksex5 = 0: aksex5 = 1 & guy += 1
	hj += 1
	'<center><img src="images\studia\hj.gif"></center>'
	'<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
		act 'Masturbate on chest':
		cla
		*clr
		minut += 5
		'<center><img src="images\studia\hjcumontits.gif"></center>'
		'<<$pakter>> began to finish your chest, and you continued to jerk his cock squeezing his hot cum on himself.'
			act 'Walk in shower':
			cla
			*clr
			minut += 5
			if sweat > -3: set sweat = -3
			set horny += 1
			set mop = 1
			set cumpussy = 0
			set cumbelly = 0
			set cumass = 0
			set cumanus =0
			set cumlip = 0
			set cumface = 0
			'<center><img src="images\pics\dush.jpg"></center>'
			'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
			act 'Go to Peter': gt 'pf','boss'
			end
		end
	end

end

if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
akrand = RAND(1,5)
if akrand = 1:$pakter = 'Alexey'
if akrand = 2:$pakter = 'Sergey'
if akrand = 3:$pakter = 'George'
if akrand = 4:$pakter = 'Ignat'
if akrand = 5:$pakter = 'Semen'

'On the site already bustling assistants installing lighting, so that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
	act 'Removed':
	cla
	*clr
	minut += 30
	gs 'stat'
	if akrand = 1 and aksex1 = 0: aksex1 = 1 & guy += 1
	if akrand = 2 and aksex2 = 0: aksex2 = 1 & guy += 1
	if akrand = 3 and aksex3 = 0: aksex3 = 1 & guy += 1
	if akrand = 4 and aksex4 = 0: aksex4 = 1 & guy += 1
	if akrand = 5 and aksex5 = 0: aksex5 = 1 & guy += 1
	hj += 1
	'<center><img src="images\studia\hj.gif"></center>'
	'<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
		act 'Take by mouth':
		cla
		*clr
		bj += 1
		minut += 5
		'<center><img src="images\studia\bj.gif"></center>'
		'<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
			act 'Suck':
			cla
			*clr
			minut += 5
			'<center><img src="images\studia\deep.gif"></center>'
			'<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'
			'Finally he took a member of you. It is time to remove ejaculation.'
				act 'Sit on your knees and open your mouth':
				cla
				*clr
				minut += 5
				cumlip += 1
				facial += 1
				gs 'stat'
				'<center><img src="images\studia\cum.gif"></center>'
				'<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
				act 'Clean the mouth from his cock sperm':
					cla
					*clr
					minut += 5
					cumface += 1
					swallow += 1
					gs 'stat'
					'<center><img src="images\studia\bj2.gif"></center>'
					'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
						act 'Walk in shower':
						cla
						*clr
						minut += 5
						if sweat > -3: set sweat = -3
						set horny += 1
						set mop = 1
						set cumpussy = 0
						set cumbelly = 0
						set cumass = 0
						set cumanus =0
						set cumlip = 0
						set cumface = 0
						'<center><img src="images\pics\dush.jpg"></center>'
						'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
						act 'Go to Peter': gt 'pf','boss'
						end
					end

				end
			end
		end
	end

end

if $ARGS[0] = '3':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
akrand = RAND(1,5)
if akrand = 1:$pakter = 'Alexey'
if akrand = 2:$pakter = 'Sergey'
if akrand = 3:$pakter = 'George'
if akrand = 4:$pakter = 'Ignat'
if akrand = 5:$pakter = 'Semen'

'On the site already bustling assistants installing lighting, so that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
	act 'Removed':
	cla
	*clr
	minut += 30
	gs 'stat'
	if akrand = 1 and aksex1 = 0: aksex1 = 1 & guy += 1
	if akrand = 2 and aksex2 = 0: aksex2 = 1 & guy += 1
	if akrand = 3 and aksex3 = 0: aksex3 = 1 & guy += 1
	if akrand = 4 and aksex4 = 0: aksex4 = 1 & guy += 1
	if akrand = 5 and aksex5 = 0: aksex5 = 1 & guy += 1
	hj += 1
	'<center><img src="images\studia\hj.gif"></center>'
	'<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
		act 'Take by mouth':
		cla
		*clr
		bj += 1
		minut += 5
		'<center><img src="images\studia\bj.gif"></center>'
		'<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
			act 'Suck':
			cla
			*clr
			minut += 5
			'<center><img src="images\studia\deep.gif"></center>'
			'<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'

				act 'Stand up doggy style':
				cla
				*clr

				sex += 1
				vagina += 1
				minut += 15
				'<center><img src="images\studia\sex.gif"></center>'
				'You got up on all fours and <<$pakter>> you drove his dick in pussy on the most balls. He began to fuck you hard-hitting all case you on the behind and if it did not hold hands tenaciously your buttocks, then you would definitely have fallen after the first blow.'

					act 'Sit on your knees and open your mouth':
					cla
					*clr
					minut += 5
					cumlip += 1
					facial += 1
					gs 'stat'
					'<center><img src="images\studia\cum.gif"></center>'
					'<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
						act 'Clean the mouth from his cock sperm':
						cla
						*clr
						minut += 5
						cumface += 1
						swallow += 1
						gs 'stat'
						'<center><img src="images\studia\bj2.gif"></center>'
						'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
							act 'Walk in shower':
							cla
							*clr
							minut += 5
							if sweat > -3: set sweat = -3
							set horny += 1
							set mop = 1
							set cumpussy = 0
							set cumbelly = 0
							set cumass = 0
							set cumanus =0
							set cumlip = 0
							set cumface = 0
							'<center><img src="images\pics\dush.jpg"></center>'
							'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
							act 'Go to Peter': gt 'pf','boss'
							end
						end

					end

				end
			end
		end
	end
end

if $ARGS[0] = '4':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
akrand = RAND(1,5)
if akrand = 1:$pakter = 'Alexey'
if akrand = 2:$pakter = 'Sergey'
if akrand = 3:$pakter = 'George'
if akrand = 4:$pakter = 'Ignat'
if akrand = 5:$pakter = 'Semen'

'On the site already bustling assistants installing lighting, so that there were no shadows.'
'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
	act 'Removed':
	cla
	*clr
	minut += 30
	gs 'stat'
	if akrand = 1 and aksex1 = 0: aksex1 = 1 & guy += 1
	if akrand = 2 and aksex2 = 0: aksex2 = 1 & guy += 1
	if akrand = 3 and aksex3 = 0: aksex3 = 1 & guy += 1
	if akrand = 4 and aksex4 = 0: aksex4 = 1 & guy += 1
	if akrand = 5 and aksex5 = 0: aksex5 = 1 & guy += 1
	hj += 1
	'<center><img src="images\studia\hj.gif"></center>'
	'<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
		act 'Take by mouth':
		cla
		*clr
		bj += 1
		minut += 5
		'<center><img src="images\studia\bj.gif"></center>'
		'<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
			act 'Suck':
			cla
			*clr
			minut += 5
			'<center><img src="images\studia\deep.gif"></center>'
			'<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'

				act 'Stand up doggy style':
				cla
				*clr
				sex += 1
				vagina += 1
				minut += 5
				'<center><img src="images\studia\sex.gif"></center>'
				'You got up on all fours and <<$pakter>> you drove his dick in pussy on the most balls. He began to fuck you hard-hitting all case you on the behind and if it did not hold hands tenaciously your buttocks, then you would definitely have fallen after the first blow.'
				'Finally the actor pulled out of you cock and you feel like it touches you in the anus.'
				act 'Relax the anus':
					cla
					*clr
					anal += 1
					anus += 1
					minut += 5
					'<center><img src="images\studia\sex.gif"></center>'
					'You tried as best they could relax the anus that would painlessly Hollow member. <<$pakter>> gradually came into your ass and began to peck your ass like a steam hammer.'

						act 'Sit on your knees and open your mouth':
						cla
						*clr
						minut += 5
						cumlip += 1
						facial += 1
						gs 'stat'
						'<center><img src="images\studia\cum.gif"></center>'
						'<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
							act 'Clean the mouth from his cock sperm':
							cla
							*clr
							minut += 5
							cumface += 1
							swallow += 1
							gs 'stat'
							'<center><img src="images\studia\bj2.gif"></center>'
							'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
								act 'Walk in shower':
								cla
								*clr
								minut += 5
								if sweat > -3: set sweat = -3
								set horny += 1
								set mop = 1
								set cumpussy = 0
								set cumbelly = 0
								set cumass = 0
								set cumanus =0
								set cumlip = 0
								set cumface = 0
								'<center><img src="images\pics\dush.jpg"></center>'
								'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
								act 'Go to Peter': gt 'pf','boss'
								end
							end

						end
					end

				end
			end
		end
	end
end

if $ARGS[0] = '5':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
akrand = RAND(1,5)
	if akrand = 1:
	$pakter = 'Alexey'
	if aksex1 = 0: aksex1 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 2:
	$pakter = 'Sergey'
	if aksex2 = 0: aksex2 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 3:
	$pakter = 'George'
	if aksex3 = 0: aksex3 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 4:
	$pakter = 'Ignat'
	if aksex4 = 0: aksex4 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 5:
	$pakter = 'Semen'
	if aksex5 = 0: aksex5 = 1 & guy += 1
		akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
	end
gang += 1
'On the site already bustling assistants installing lighting, so that there were no shadows.'
'Actors <<$pakter>> and <<$pakter2>> peppers before play dirty magazines that would lead them to a state of combat readiness.'
	act 'Removed':
	cla
	*clr
	minut += 10
	gs 'stat'
	bj += 2
	'<center><img src="images\studia\tbj.gif"></center>'
	'Cast members got started and you bash them in the face.'
		act 'Suck':
		cla
		*clr
		minut += 15
		gs 'stat'
		'<center><img src="images\studia\tbj2.gif"></center>'
		'You started to suck both members trying to deprive no one attention, caressing them with his tongue, lips and sucked.'
			act 'Fuck':
			cla
			*clr
			minut += 15
			sex += 1
			vagina += 1
			gs 'stat'
			'<center><img src="images\studia\three.gif"></center>'
			'You got up on all fours and <<$pakter>> you drove his dick in pussy until you have aspirated <<$pakter22>>.'
				act 'Anal':
				cla
				*clr
				minut += 15
				anal += 1
				anus += 1
				gs 'stat'
				'<center><img src="images\studia\threea.gif"></center>'
				'<<$pakter>> drove a screw you in the ass until you have aspirated <<$pakter22>>.'
					act 'Cum on face':
					cla
					*clr
					minut += 5
					cumface += 1
					facial += 1
					gs 'stat'
					'<center><img src="images\studia\tcum.gif"></center>'
					'<<$pakter22>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
						act 'Walk in shower':
						cla
						*clr
						minut += 5
						if sweat > -3: set sweat = -3
						set horny += 1
						set mop = 1
						set cumpussy = 0
						set cumbelly = 0
						set cumass = 0
						set cumanus =0
						set cumlip = 0
						set cumface = 0
						'<center><img src="images\pics\dush.jpg"></center>'
						'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
						act 'Go to Peter': gt 'pf','boss'
						end

					end
				end
			end
		end
	end

end



if $ARGS[0] = '6':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 30
akrand = RAND(1,5)
	if akrand = 1:
	$pakter = 'Alexey'
	if aksex1 = 0: aksex1 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 2:
	$pakter = 'Sergey'
	if aksex2 = 0: aksex2 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 3:
	$pakter = 'George'
	if aksex3 = 0: aksex3 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 4:
	$pakter = 'Ignat'
	if aksex4 = 0: aksex4 = 1 & guy += 1
	akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Semen'
		$pakter22 = 'Seed'
		if aksex5 = 0: aksex5 = 1 & guy += 1
		end
	end
	if akrand = 5:
	$pakter = 'Semen'
	if aksex5 = 0: aksex5 = 1 & guy += 1
		akrand2 = RAND(1,4)
		if akrand2 = 1:
		$pakter2 = 'Alexey'
		$pakter22 = 'Alexei'
		if aksex1 = 0: aksex1 = 1 & guy += 1
		end
		if akrand2 = 2:
		$pakter2 = 'Sergey'
		$pakter22 = 'Sergei'
		if aksex2 = 0: aksex2 = 1 & guy += 1
		end
		if akrand2 = 3:
		$pakter2 = 'George'
		$pakter22 = 'George'
		if aksex3 = 0: aksex3 = 1 & guy += 1
		end
		if akrand2 = 4:
		$pakter2 = 'Ignat'
		$pakter22 = 'Ignat'
		if aksex4 = 0: aksex4 = 1 & guy += 1
		end
	end
gang += 1
'On the site already bustling assistants installing lighting, so that there were no shadows.'
'Actors <<$pakter>> and <<$pakter2>> peppers before play dirty magazines that would lead them to a state of combat readiness.'
	act 'Removed':
	cla
	*clr
	minut += 10
	gs 'stat'
	bj += 2
	'<center><img src="images\studia\tbj.gif"></center>'
	'Cast members got started and you bash them in the face.'
		act 'Suck':
		cla
		*clr
		minut += 15
		gs 'stat'
		'<center><img src="images\studia\tbj2.gif"></center>'
		'You started to suck both members trying to deprive no one attention, caressing them with his tongue, lips and sucked.'
			act 'Fuck':
			cla
			*clr
			minut += 15
			sex += 1
			vagina += 1
			gs 'stat'
			'<center><img src="images\studia\three.gif"></center>'
			'You got up on all fours and <<$pakter>> you drove his dick in pussy until you have aspirated <<$pakter22>>.'
				act 'Anal':
				cla
				*clr
				minut += 15
				anal += 1
				anus += 1
				gs 'stat'
				'<center><img src="images\studia\threea.gif"></center>'
				'<<$pakter>> drove a screw you in the ass until you have aspirated <<$pakter22>>.'

					act 'Double Penetration':
					cla
					*clr
					minut += 15
					anus += 1
					vagina += 1
					gs 'stat'
					'<center><img src="images\studia\three2.gif"></center>'
					'<<$pakter>> lay down and you sat down on his cock pussy <<$pakter2>> came from behind and you feel his penis penetrates your anus. You guys started to peck holes in two, hard dicks rubbing against each other through the thin stenochku in your body.'

						act 'Cum on face':
						cla
						*clr
						minut += 5
						cumface += 1
						facial += 1
						gs 'stat'
						'<center><img src="images\studia\tcum.gif"></center>'
						'<<$pakter22>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
							act 'Walk in shower':
							cla
							*clr
							minut += 5
							if sweat > -3: set sweat = -3
							set horny += 1
							set mop = 1
							set cumpussy = 0
							set cumbelly = 0
							set cumass = 0
							set cumanus =0
							set cumlip = 0
							set cumface = 0
							'<center><img src="images\pics\dush.jpg"></center>'
							'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
							act 'Go to Peter': gt 'pf','boss'
							end
						end
					end
				end
			end
		end
	end

end
--- pf ---------------------------------

# BDman
if $ARGS[0] = 'givi':
!set stopboy = 0
$boy = 'Givi K.'
$boybody = 'small'
$boybod = 'thick'
$boyface = 'bald'
!длинна члена
dick = 20
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 10
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 1
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end


if $ARGS[0] = 'ashot':
!set stopboy = 0
$boy = 'Ashot'
$boybody = 'average growth'
$boybod = 'muscular'
$boyface = 'black-haired'
!длинна члена
dick = 18
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 1
!!проверка по внешности, от параметра vnesh
vneshBoy = 15
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end


if $ARGS[0] = 'arthur':
!set stopboy = 0
$boy = 'Arthur'
$boybody = 'average growth'
$boybod = 'muscular'
$boyface = 'black-haired'
!длинна члена
dick = 19
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end

if $ARGS[0] = 'abdula':
!set stopboy = 0
$boy = 'Abdul'
$boybody = 'long'
$boybod = 'skinny'
$boyface = 'gray'
!длинна члена
dick = 21
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end

if $ARGS[0] = 'hasan':
!set stopboy = 0
$boy = 'Hasan'
$boybody = 'average growth'
$boybod = 'abdominous'
$boyface = 'black-haired'
!длинна члена
dick = 18
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end


if $ARGS[0] = 'kamil':
!set stopboy = 0
$boy = 'Camille'
$boybody = 'average growth'
$boybod = 'thin'
$boyface = 'black-haired'
!длинна члена
dick = 20
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end

if $ARGS[0] = 'aslan':
!set stopboy = 0
$boy = 'Aslan'
$boybody = 'small'
$boybod = 'thin'
$boyface = 'black-haired'
!длинна члена
dick = 17
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end

if $ARGS[0] = 'muhtar':
!set stopboy = 0
$boy = 'Mukhtar'
$boybody = 'small'
$boybod = 'thick'
$boyface = 'black-haired'
!длинна члена
dick = 18
!! половая сила от 0 до 2
silaVag = 2
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = 2
!!проверка по внешности, от параметра vnesh
vneshBoy = 25
$boyClo = 'dressed in a leather jacket and cap'
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = 2
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = 2
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = 3
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = 2
!извращенность
izvrat = 1
end
--- BDman ---------------------------------

# BDsex
if $ARGS[0] = 'start':
!выбор интеракций
!gs 'BDsex','start'
minut += 3
if NoGuy = 0: guy += 1
horny += 10
gs 'stat'
'<center><img src="images\picKav\petting.jpg"></center>'
	if harakBoy = 0:
	'<<$boy>> hugs you and gently caress your breasts.'
	act 'Lick me': gt 'BDsex','kuni'
	act 'Stroking his cock': gt 'BDsex','hj'
	act 'Take by mouth': gt 'BDsex','minet'
	act 'Lie on your back and spread her legs': gt 'BDsex','sex'
	act 'Stand on all fours': gt 'BDsex','sex2'
	act 'Anal': gt 'BDsex','anal2'
	end

	if harakBoy = 1:
	'<<$boy>> you and skillfully caresses your breasts.'
	brand = RAND(0,100)
		if brand < 70:
		'<<$boy>> you hugs and caresses your pussy with his fingers.'
		trand = RAND(0,2)
			if trand < 2:
			'It puts you in the back.'
			act 'Lie on your back and spread her legs': gt 'BDsex','sex'
			else
			'It turns your stomach.'
			act 'Stand on all fours': gt 'BDsex','sex2'
			end
			act 'Let me suck': gt 'BDsex','minet'
		else
		'<<$boy>> baby, caressed my mouth.'
			act 'Stroking his cock': gt 'BDsex','hj'
			act 'Take by mouth': gt 'BDsex','minet'
			act 'I do not want to. Lie on your back and spread her legs': gt 'BDsex','sex'
		end
	end

	if harakBoy = 2:
	'<<$boy>> hugs you and passionately caress your breasts.'
	brand = RAND(0,100)
		if brand < 70:
		'<<$boy>> caresses your pussy with his fingers.'
		trand = RAND(0,2)
			if trand < 2:
			'It puts you in the back.'
			act 'Lie on your back and spread her legs': gt 'BDsex','sex'
			else
			'It turns your stomach.'
			act 'Stand on all fours': gt 'BDsex','sex2'
			end
		end

		if brand >= 70 and brand < 90:
		'<<$boy>> takes you behind your head and pulls you to face your penis.'
		act 'Take by mouth': gt 'BDsex','minet'
			if dom > 0:
				act 'Lie on your back and spread her legs': gt 'BDsex','sex'
				act 'Stand on all fours': gt 'BDsex','sex2'
			end
		end

		if brand >= 90:
		'<<$boy>> tells you that he wants you in the ass.'
		act 'Anal': gt 'BDsex','anal2'
			if dom > 0:
				act 'I do not want to! Lie on your back and spread her legs': gt 'BDsex','sex'
				act 'I´ll get cancer, but not in the ass ladies!': gt 'BDsex','sex2'
				act 'Take by mouth': gt 'BDsex','minet'
			end
		end
	end
end


if $ARGS[0] = 'kuni':
minut += 15
gs 'stat'
set DOM += 1
set kuni += 1
set horny += DOM + (silaVag * 2 + 5)
'<center><img src="images\picV\kuni.jpg"></center>'
'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
'<<$boy>> lay down between your legs and began to work the tongue on your pussy.'
	if horny >= 90:
	set horny = 0
	set manna += 15
	set willpower += 15
	set orgasm += 1
	'Man of skillful actions you covered orgasm.'
	else
	'Actions Man though they were exciting, but they started to bore you.'
	end

	act 'Stroking his cock': gt 'BDsex','hj'
	act 'Take by mouth': gt 'BDsex','minet'
	act 'Lie on your back and spread her legs': gt 'BDsex','sex'
	act 'Stand on all fours': gt 'BDsex','sex2'
	act 'Anal': gt 'BDsex','anal2'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!vagina
!!!!!!!!!!!!!!!!!sex
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'sex':
!миссионерская поза
minut += 10
gs 'stat'
'<center><img src="images\picV\vag.jpg"></center>'
pose = 0
gs 'BDsex','org'
givfinrand = RAND(0,10)
	if harakBoy > 0:
		if givfinrand >= 8:
		'Suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		act 'Substitute person': gt 'BDsex','facial'
		act 'Open mouth': gt 'BDsex','swallow'
		exit
		end
	end
givfinrand = RAND(0,10)
	if harakBoy = 2:
		if givfinrand >= 8:
		'Suddenly <<$boy>> you took out a member and began to fondle your ass preparing it to penetrate.'
		act 'Anal': gt 'BDsex','anal2'
		exit
		end
	end
gs 'BDsex','cum'
act 'Leave': gt 'BDsex','end'
end

if $ARGS[0] = 'sex2':
!раком
minut += 10
gs 'stat'

picrand = RAND(1,5)
'<center><img src="images\pics\vagdog<<picrand>>.jpg"></center>'

pose = 1
gs 'BDsex','org'
givfinrand = RAND(0,10)
	if harakBoy > 0:
		if givfinrand >= 8:
		'Suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		act 'Substitute person': gt 'BDsex','facial'
		act 'Open mouth': gt 'BDsex','swallow'
		exit
		end
	end
givfinrand = RAND(0,10)
	if harakBoy = 2:
		if givfinrand >= 8:
		'Suddenly <<$boy>> you took out a member and began to fondle your ass preparing it to penetrate.'
		act 'Anal': gt 'BDsex','anal2'
		exit
		end
	end
gs 'BDsex','cum'
act 'Leave': gt 'BDsex','end'
end

if $ARGS[0] = 'sex3':
!с верху
minut += 10
gs 'stat'
picrand = RAND(1,6)
'<center><img src="images\pics\vagcow<<picrand>>.jpg"></center>'
pose = 0
gs 'BDsex','org'
gs 'BDsex','cum'

end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!anal
!!!!!!!!!!!!!!!!!!anus
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'anal':
!миссионерская поза
minut += 10
gs 'stat'

gs 'bdsex','an'
gs 'bdsex','ancum'

end

if $ARGS[0] = 'anal2':
!раком
minut += 10
gs 'stat'
picrand = RAND(1,10)
if picrand = 1: '<center><img src="images\pics\anal.jpg"></center>'
if picrand = 2: '<center><img src="images\pics\anal2.jpg"></center>'
if picrand = 3: '<center><img src="images\pics\anal3.jpg"></center>'
if picrand = 4: '<center><img src="images\pics\anal4.jpg"></center>'
if picrand = 5: '<center><img src="images\pics\anal5.jpg"></center>'
if picrand = 6: '<center><img src="images\pics\anal6.jpg"></center>'
if picrand = 7: '<center><img src="images\pics\anal7.jpg"></center>'
if picrand = 8: '<center><img src="images\pics\anal8.jpg"></center>'
if picrand = 9: '<center><img src="images\pics\anal9.jpg"></center>'
if picrand = 10: '<center><img src="images\pics\anal10.jpg"></center>'
gs 'bdsex','an'
givfinrand = RAND(0,10)
	if harakBoy > 0:
		if givfinrand >= 8:
		'Suddenly <<$boy>> took out of you cock and taking you by the shoulders put in front of him on his knees.'
		act 'Substitute person': gt 'BDsex','facial'
		act 'Open mouth': gt 'BDsex','swallow'
		exit
		end
	end
gs 'bdsex','ancum'
act 'Leave': gt 'BDsex','end'
end

if $ARGS[0] = 'anal3':
!с верху

gs 'bdsex','an'
gs 'bdsex','ancum'

end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!hj
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'hj':
!ханджоб
hj += 1
minut += 5
gs 'stat'
'<center><img src="images\picV\hand1.jpg"></center>'
'You got it <<dick>> centimeter penis and began to caress her arms around his arms, moving the skin on the crimson head.'
bjrand = RAND(0,100)
	if bjrand >= 75:
		if harakBoy = 0:
		'<<$boy>> moaned, "I´m going to come."'
			act 'Let ends':
			cla
			*clr
			'<center><img src="images\picV\hand2.jpg"></center>'
			'<<$boy>> finished her hands covering you in their hot and sticky cum.'
			act 'Leave': gt 'BDsex','end'
			end

			act 'Take by mouth': gt 'BDsex','minet'
			act 'Lie on your back and spread her legs': gt 'BDsex','sex'

		elseif harakBoy = 1:
		'<<$boy>> groaned "Svetsik take in the mouth or let sex going to do."'
			act 'Take by mouth': gt 'BDsex','minet'
			act 'Lie on your back and spread her legs': gt 'BDsex','sex'
		else
		brand = RAND(0,100)
			if brand < 70:
			'<<$boy>> caresses your pussy with his fingers.'
			trand = RAND(0,2)
				if trand < 2:
				'It puts you in the back.'
				act 'Lie on your back and spread her legs': gt 'BDsex','sex'
				else
				'It turns your stomach.'
				act 'Stand on all fours': gt 'BDsex','sex2'
				end
			end

			if brand >= 70 and brand < 80:
			'<<$boy>> tells you that he wants you in the ass.'
			act 'Anal': gt 'BDsex','anal2'
				if dom > 5:
					act 'I do not want to! Lie on your back and spread her legs': gt 'BDsex','sex'
					act 'I´ll get cancer, but not in the ass ladies!': gt 'BDsex','sex2'
					act 'Take by mouth': gt 'BDsex','minet'
				end
			end
			if brand >= 80:
			'<<$boy>> tightens your face to its members.'
			act 'Take by mouth': gt 'BDsex','minet'
			end

		end
	else
	'<<$boy>> Now finish.'
		act 'Substitute person': gt 'BDsex','facial'
		act 'Open mouth': gt 'BDsex','swallow'
	end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!bj
!!!!!!!!!!!!!!!!!!!!throat
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'minet':
!минет
minut += 5
gs 'stat'
picrand = RAND(0,4)
if picrand = 0: '<center><img src="images\picV\bj.jpg"></center>'
if picrand = 1: '<center><img src="images\picV\bj1.jpg"></center>'
if picrand = 2: '<center><img src="images\picV\bj2.jpg"></center>'
if picrand = 3: '<center><img src="images\picV\bj3.jpg"></center>'
if picrand = 4: '<center><img src="images\picV\bj4.jpg"></center>'
gs 'bdsex','autobj'
bjrand = RAND(0,100)
	if bjrand >= 75:
		if harakBoy = 0:
		'<<$boy>> moaned, "I´m going to come."'
			act 'In the palm of your hand':
			cla
			*clr
			'<center><img src="images\picV\hand2.jpg"></center>'
			'<<$boy>> finished her hands covering you in their hot and sticky cum.'
			act 'Leave': gt 'BDsex','end'
			end

			act 'Lie on your back and spread her legs': gt 'BDsex','sex'

		elseif harakBoy = 1:
		'<<$boy>> groaned "Svetsik take in the mouth or let sex going to do."'
			act 'Lie on your back and spread her legs': gt 'BDsex','sex'
		else
		brand = RAND(0,100)
			if brand < 70:
			'<<$boy>> caresses your pussy with his fingers.'
			trand = RAND(0,2)
				if trand < 2:
				'It puts you in the back.'
				act 'Lie on your back and spread her legs': gt 'BDsex','sex'
				else
				'It turns your stomach.'
				act 'Stand on all fours': gt 'BDsex','sex2'
				end
			end

			if brand >= 70:
			'<<$boy>> tells you that he wants you in the ass.'
			act 'Anal': gt 'BDsex','anal2'
				if dom > 0:
					act 'I do not want to! Lie on your back and spread her legs': gt 'BDsex','sex'
					act 'I´ll get cancer, but not in the ass ladies!': gt 'BDsex','sex2'
				end
			end

		end
	else
	'<<$boy>> Now finish.'
		act 'Substitute person': gt 'BDsex','facial'
		act 'Open mouth': gt 'BDsex','swallow'
		if harakBoy = 0:
			act 'In the palm of your hand':
			cla
			*clr
			'<center><img src="images\picV\hand2.jpg"></center>'
			'<<$boy>> finished her hands covering you in their hot and sticky cum.'
			act 'Leave': gt 'BDsex','end'
			end
		end
	end
end

if $ARGS[0] = 'facial':
facial += 1
cumface += 1
minut += 3
gs 'stat'
picrand = RAND(1,5)
if picrand = 1: '<center><img src="images\pics\facial.jpg"></center>'
if picrand = 2: '<center><img src="images\pics\facial2.jpg"></center>'
if picrand = 3: '<center><img src="images\pics\facial3.jpg"></center>'
if picrand = 4: '<center><img src="images\pics\facial4.jpg"></center>'
if picrand = 5: '<center><img src="images\pics\facial5.jpg"></center>'
'Thick jet of sperm hit sharply smelling you in the face.'
act 'Brush up': gt 'BDsex','end'
end

if $ARGS[0] = 'swallow':
swallow += 1
cumlip += 1
minut += 3
gs 'stat'
picrand = RAND(1,10)
if picrand = 1: '<center><img src="images\pics\cum.jpg"></center>'
if picrand = 2: '<center><img src="images\pics\cum2.jpg"></center>'
if picrand = 3: '<center><img src="images\pics\cum3.jpg"></center>'
if picrand = 4: '<center><img src="images\pics\cum4.jpg"></center>'
if picrand = 5: '<center><img src="images\pics\cum5.jpg"></center>'
if picrand = 6: '<center><img src="images\pics\cum6.jpg"></center>'
if picrand = 7: '<center><img src="images\pics\cum7.jpg"></center>'
if picrand = 8: '<center><img src="images\pics\cum8.jpg"></center>'
if picrand = 9: '<center><img src="images\pics\cum9.jpg"></center>'
if picrand = 10: '<center><img src="images\pics\cum10.jpg"></center>'
'Thick jet of sperm hit sharply smelling your mouth.'
act 'Brush up': gt 'BDsex','end'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!выход
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'end':
NoGuy = 0
	if InYouHome = 1:
	InYouHome = 0
	'<<$boy>> politely said goodbye and left.'
	act 'Leave': gt 'korr'
	exit
	end

	if harakBoy = 0:
	set minut += 15
	if sweat > -3: set sweat = -3
	set horny += 1
	set hapri = 1
	set mop = 1
	dynamic $showerdin
	'<center><img src="images\pics\dush.jpg"></center>'
	'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
	end
	if harakBoy = 1:
	if cumface > 0: cumface = 0
	'You have washed and <<$boy>> began to hurry you.'
	end
	if harakBoy = 2:
	'<<$boy>> has not given you even go to the bathroom.'
	end


!
	if finance > 0:
	if finance = 1: money += 300
	if finance = 2: money += 500
	'<<$boy>> give you money for a taxi and evicted from the apartment.'
	end
	if finance = 0:
	'<<$boy>> you are evicted from the apartment.'
	end
	if GoToGuy = 0:
		act 'Leave':
		gorand = RAND(0,2)
		if gorand = 0: gt 'street'
		if gorand = 1: gt 'down'
		if gorand = 2: gt 'nord'
		end
	end
	if GoToGuy > 0:
		act 'Leave':
		if GoToGuy = 1: GoToGuy = 0 & gt 'nord'
		if GoToGuy = 2: GoToGuy = 0 & gt 'street'
		end
	end
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'org':
set protect = 0
set vidageday -= 1
	if tabletki <= 0 and prezik > 0 and NoCondomUse = 0:
		set prezik -= 1
		set protect = 1
		'<<$boy>> you took a condom and put it on your <<dick>> centimeter member.'
	end


	if mesec > 0:
	!месячные, оргазм не возможен
	set horny = 0
	set manna -= 10
	set willpower -= 10
	'Do you monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> centimeter dick fuck your pussy.'
	end

	if mesec <= 0 and vagina > 0:
	!месячных нет
	!horny - возбужденность
	!vagina - эластичность вагины
	!silavag - умение парня 0-неумеха, 1-середняк 2-ебарь
	!dick - размер члена парня
	!orgazm - коэфициент удовольствия Итог
	!0 - очень больно, 1 - больно, 2 - не приятно, 3 - так себе, 4 - недооргазм 5 - оргазм
	set smazka = horny/10
	set prinat = smazka + vagina
		if dick >= prinat * 2:
		!член критично больше возможностей гг
			if silavag = 0: set orgazm = 0
			if silavag = 1: set orgazm = 1
			if silavag = 2: set orgazm = 2
		end

		if dick < prinat*2 and dick > prinat:
		!член больше возможностей гг
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny >= 80 and horny < 90: set orgazm = 3
				if horny >= 70 and horny < 80: set orgazm = 2
				if horny >= 60 and horny < 70: set orgazm = 1
				if horny < 60: set orgazm = 0
			end
			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny >= 70 and horny < 80: set orgazm = 3
				if horny >= 60 and horny < 70: set orgazm = 2
				if horny >= 50 and horny < 60: set orgazm = 1
				if horny < 50: set orgazm = 0
			end
			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny >= 60 and horny < 70: set orgazm = 3
				if horny >= 50 and horny < 60: set orgazm = 2
				if horny >= 40 and horny < 50: set orgazm = 1
				if horny < 40: set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
		!член меньше возможностей гг
			if silavag = 0:
				if horny >= 80: set orgazm = 5
				if horny >= 60 and horny < 80: set orgazm = 4
				if horny >= 40 and horny < 60: set orgazm = 3
				if horny < 40: set orgazm = 2
			end
			if silavag = 1:
				if horny >= 70: set orgazm = 5
				if horny >= 50 and horny < 70: set orgazm = 4
				if horny >= 30 and horny < 50: set orgazm = 3
				if horny < 30: set orgazm = 2
			end
			if silavag = 2:
				if horny >= 60: set orgazm = 5
				if horny >= 40 and horny < 60: set orgazm = 4
				if horny >= 20 and horny < 40: set orgazm = 3
				if horny < 20: set orgazm = 2
			end
		end
		if dick <= prinat and dick < vagina:
			if silavag = 0:
				if horny >= 100: set orgazm = 5
				if horny >= 90 and horny < 100: set orgazm = 4
				if horny < 90: set orgazm = 6
			end
			if silavag = 1:
				if horny >= 90: set orgazm = 5
				if horny >= 80 and horny < 90: set orgazm = 4
				if horny < 80: set orgazm = 6
			end
			if silavag = 2:
				if horny >= 80: set orgazm = 5
				if horny >= 70 and horny < 80: set orgazm = 4
				if horny < 70: set orgazm = 6
			end
		end

		if orgazm = 0:
		set horny = 0
		set manna -= 15
		set willpower -= 15
		'You groaned in pain when <<$boy>> you entered, tears flowed from her eyes and between her legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> centimeter dick fuck your pussy.'
		end
		if orgazm = 1:
		set horny -= 10
		set manna -= 10
		set willpower -= 10
		'You bite my lip in pain when <<$boy>> you entered, between the legs painful. You are frowning and moaning in pain while strong <<dick>> centimeter dick fucks your pussy.'
		end
		if orgazm = 2:
		set horny -= 5
		set manna -= 5
		set willpower -= 5
		'You winced at the sudden pain when <<$boy>> you entered, between the legs pain that gradually become calm and quite tolerable. Are you trying to get aroused while strong <<dick>> centimeter dick fucks your pussy, but you do not go out.'
		end
		if orgazm = 3:
		!set horny += 5
		set manna += 5
		set willpower += 5
		'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy.'
		end
		if orgazm = 4:
		!set horny += 10
		set manna += 10
		set willpower += 10
		'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end
		if orgazm = 5:
		set horny = 0
		set manna += 15
		set willpower += 15
		set orgasm += 1
		'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> centimeter dick fuck your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
		end
		if orgazm = 6:
		set horny += 5
		set manna += 5
		set willpower += 5
		'You feel as a member enters your pussy when <<$boy>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
		end
		if vagina <= dick: set vagina += 1
	end

	if vagina = 0 and mesec <= 0:
	set horny = 0
	set manna -= 15
	set willpower -= 15
	set vagina += 1
	'You bite my lip in pain and tears gushed from his eyes when <<$boy>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
	end
if vagina < dick: vagina += 1
sex += 1
end



if $ARGS[0] = 'cum':
	if protect ! 1:
	!не защищенный секс
	set finrand = RAND(0,1)
		if finrand = 0:
		!внутрь
		set cumpussy += 1
		'<<$boy>> groaned and you feel like jet of sperm hit you inside your body.'
			if tabletki <= 0 and mesec <= 0:
			gs 'preg'
			set manna -= 15
			set willpower -= 15
			'Hell, because after all, you can fly, you thought with horror.'
			end
		end
		if finrand = 1:
		!наружу
			if pose = 0:
			set cumbelly += 1
			'<<$boy>> groaned and removing a member of you finished your stomach.'
			end
			if pose = 1:
			set cumass += 1
			'<<$boy>> groaned and removing a member of you finished on your ass.'
			end
		end
	end
	if protect = 1:
	set protect = 0
	'<<$boy>> groaned and you realized that he had finished in the condom.'
	end
set pose = 0
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'autobj':
bj += 1
'You little fingers caress <<dick>> centimeter term then cupped his mouth and began to suck.'
	if harakBoy = 0:
	'<<$boy>> closed his eyes in pleasure and enjoying the caress of your lips.'
	end
	if harakBoy = 1:
	'<<$boy>> staring you in the face until your lips glide over his hard dick.'
	end
	if harakBoy = 2:
	if mop > 1: set mop = 0
	set hapri = 0
	set throat += 1
	'<<$boy>> to take you by the hair and began to fuck you in the mouth, from blows to the throat member you tears flowed from his eyes.'
	end
	set horny += throat + SUB + VAF - DOM
'Hard and hot cock slides in your wet her mouth filling it completely, your lips tightly wrapped around his dick caressing.'
	if horny >= 100:
	set VAF += 1
	set orgasm += 1
	set horny = 20
	set manna += 15
	set willpower += 15
	set lipkoef += 1
		if lipkoef > 50:
		set lipkoef = 0
		set lip += 1
		end
	'Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.'
	end
!'Finally <<$boy>> groaned and you realize that now he will start to finish.'
end


if $ARGS[0] = 'an':

!{
	if analplugin = 1:
		analpluginbonus = 10
		analplugin = 0
		if anus < 16: '<<$boy>> has pulled out of your narrow and tight ass plug'

		if anus >= 16: '<<$boy>> pulled out of your ass juices dripping feverish stopper'
		'and you feel as hard cock rested in your hole.'

		if anus + analpluginbonus < dick:
		'You screamed and bit his lip from a sharp pain when it <<dick>> member centimeter apart your ass you entered.'
		end
		if anus + analpluginbonus >= dick:
		'You groaned when his feelings of overcrowding <<dick>> member centimeter apart your ass you entered.'
		end
		!gs 'BDsex','ancum'
	end
}

	if analplugin = 1:
		!WD: No Anal Lube if Anal Plug
		!analpluginbonus = 10
		set lubonus = 15
		analplugin = 0
		!'<<$boy>> has pulled out of your narrow and tight ass plug'

		if anus < 16:
			'<<$boy>> has pulled out of your narrow and tight ass plug'
		else
			'<<$boy>> pulled out of your ass juices dripping feverish stopper'
		end
	end

	if dick < anus: set anus += 1

!{ !WD: Anal Plug consistancy
	if lubri = 0:
		set lubonus = 2
		'Lubricant and you do not have <<$boy>> spitting on his fingers became saliva to lubricate your ass.'
	end

	if lubri > 0:
		set lubri  -= 1
		set lubonus = 10
		'You took a tube of lubricant and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
	end
}
	if lubonus = 0:
		if lubri > 0:
			set lubri  -= 1
			set lubonus = 10
			'You took a tube of lubricant and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
		else
			set lubonus = 2
			'You do not have any lubricant so <<$boy>> spits on his fingers and uses saliva to lubricate your ass.'
		end
	end

	'<<$boy>> put your stomach on the bed apart and began to massage your buttocks your anus with your fingers, first one, then two.'
	if anus < 10: 'When your ass you entered three fingers involuntarily groaned in pain.'
	if anus >= 10: 'Then the guy brought you three fingers and started to stretch your anus.'
	'<<$boy>> pulled his fingers out of your buttocks and you feel his hard cock rested in your hole.'
	if anus + lubonus < dick: 'You screamed and bit his lip from a sharp pain when it <<dick>> member centimetre apart your ass you entered.'
	if anus + lubonus >= dick: 'You groaned when his feelings of overcrowding <<dick>> member centimeter apart your ass you entered.'
	'<<$boy>> stopped for a moment giving your ass adapt to member protruding from it, and then started to drive them all the more insistent.'

	if anus + lubonus + 2 < dick:
		if mop > 1: set mop = 0
		'You cried and clutched his teeth into the pillow when <<dick>> centimeter cock began to fuck your ass on full force.'
	end

	if anus + lubonus + 2 >= dick:
		'You started to moan rhythmically in time with the movements member inside you.'
	end

	anal += 1
end


if $ARGS[0] = 'ancum':
	'Finally <<$boy>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'
	cumass      += 1
	set minut   += 3
	set cumanus += 1
	if anus < dick: set anus += 1
	set horny   += (anus - dick)*3
	if horny < 1: set horny = 1

	if horny >= 100:
		horny           = 1
		set orgasm     += 1
		set analorgasm += 1
		'In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
	end
end
--- BDsex ---------------------------------

# boy
!'<<$boy>> <<$boybody>> <<$boybod>> <<$boyface>>. <<$boy>> <<$boyClo>>'

!Рандомные мужские имена
Set boynamerand = RAND(1,38)
!Русские имена
if boynamerand = 1:  Set $boy = 'Alexander'
if boynamerand = 2:  Set $boy = 'Alexey'
if boynamerand = 3:  Set $boy = 'Albert'
if boynamerand = 4:  Set $boy = 'Anatoly'
if boynamerand = 5:  Set $boy = 'Anton'
if boynamerand = 6:  Set $boy = 'Arkady'
if boynamerand = 7:  Set $boy = 'Andrew'
if boynamerand = 8:  Set $boy = 'Boris'
if boynamerand = 9:  Set $boy = 'Vadim'
if boynamerand = 10: Set $boy = 'Valentine'
if boynamerand = 11: Set $boy = 'Valery'
if boynamerand = 12: Set $boy = 'Basil'
if boynamerand = 13: Set $boy = 'Victor'
if boynamerand = 14: Set $boy = 'Vitaly'
if boynamerand = 15: Set $boy = 'Vladimir'
if boynamerand = 16: Set $boy = 'Vyacheslav'
if boynamerand = 17: Set $boy = 'Gennady'
if boynamerand = 18: Set $boy = 'George'
if boynamerand = 19: Set $boy = 'Gregory'
if boynamerand = 20: Set $boy = 'Denis'
if boynamerand = 21: Set $boy = 'Eugene'
if boynamerand = 22: Set $boy = 'Yegor'
if boynamerand = 23: Set $boy = 'Ivan'
if boynamerand = 24: Set $boy = 'Igor'
if boynamerand = 25: Set $boy = 'Kirill'
if boynamerand = 26: Set $boy = 'Leonid'
if boynamerand = 27: Set $boy = 'Maxim'
if boynamerand = 28: Set $boy = 'Michael'
if boynamerand = 29: Set $boy = 'Oleg'
if boynamerand = 30: Set $boy = 'Paul'
if boynamerand = 31: Set $boy = 'Peter'
if boynamerand = 32: Set $boy = 'Semen'
if boynamerand = 33: Set $boy = 'Sergey'
if boynamerand = 34: Set $boy = 'Stepan'
if boynamerand = 35: Set $boy = 'Fedor'
if boynamerand = 36: Set $boy = 'Edward'
if boynamerand = 37: Set $boy = 'Yuri'
if boynamerand = 38: Set $boy = 'Jacob'
$namev = $boy

!Внешность
Set boybodyrand = RAND(1,3)
if boybodyrand = 1:  Set $boybody = 'tall'
if boybodyrand = 2:  Set $boybody = 'average'
if boybodyrand = 3:  Set $boybody = 'short'

Set boybodrand = RAND(1,4)
if boybodrand = 1:   Set $boybod = 'thin'
if boybodrand = 2:   Set $boybod = 'athletic'
if boybodrand = 3:   Set $boybod = 'chunky'
if boybodrand = 4:   Set $boybod = 'fat'

Set boyfacerand = RAND(1,3)
if boyfacerand = 1:  Set $boyface = 'black'
if boyfacerand = 2:  Set $boyface = 'brunet'
if boyfacerand = 3:  Set $boyface = 'blond'
!размер елды
set grdikrand = RAND(0,100)
if grdikrand < 80:
set dick = RAND(12,18)
end
if grdikrand >= 80 and grdikrand < 90:
set dick = RAND(8,12)
end
if grdikrand >= 90:
set dick = RAND(18,25)
end
! половая сила
set silaVag = RAND(0,2)

!переменная отвечающая за guy
set boyonce = 0

set harakBoy = RAND(0,2)

!Переменные отвечающие за то какие черты нравятся
!Обеспеченность, отвечает за деньги и требования
set finance = RAND(0,2)
	if finance = 0:
	!нищий гопник или работяга
	!проверка по внешности Первичная
		if harakBoy = 0: set vneshBoy = RAND(0,2)
		if harakBoy = 1: set vneshBoy = RAND(0,4)
		if harakBoy = 2: set vneshBoy = RAND(0,8)
	set $boyClo = 'wearing a tracksuit.'
	end
	if finance = 1:
	!середняк
	!проверка по внешности
		if harakBoy = 0: set vneshBoy = RAND(0,4)
		if harakBoy = 1: set vneshBoy = RAND(0,6)
		if harakBoy = 2: set vneshBoy = RAND(0,8)
	set $boyClo = 'wearing jeans and a sweater.'
	end
	if finance = 2:
	!середняк
	!проверка по внешности
		if harakBoy = 0: set vneshBoy = RAND(4,8)
		if harakBoy = 1: set vneshBoy = RAND(6,8)
		if harakBoy = 2: set vneshBoy = RAND(8,10)
	set $boyClo = 'wearing an expensive suit.'
	end

!требования по фигуре, размеру груди, цвет волос.
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
set figurBoy = RAND(0,2)
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
set titBoy = RAND(0,2)
!0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
set haerBoy = RAND(0,3)
!характер  0 - мягкий, 1 -норма 2 - агрессор

set randizvrat = RAND(0,100)
if randizvrat < 80: set izvrat = 0
if randizvrat >= 80: set izvrat = 1
--- boy ---------------------------------

# boyfrend
if $ARGS[0] = 'start':
	if bfA = 0 and stopboy = 0:
	set stopboy = 1
	gs 'boyfrend','A'
	end
	if bfA > 0 and bfB = 0 and stopboy = 0:
	set stopboy = 1
	gs 'boyfrend','B'
	end
	if bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
	set stopboy = 1
	gs 'boyfrend','C'
	end
	if bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:
	'Hmm, you are already three boyfriend, why do you need a fourth?'
	end
end

if $ARGS[0] = 'A':
!set stopboy = 0
Set $boyA = $boy
set boybodyrandA = boybodyrand
Set $boybodyA = $boybody
set boybodrandA = boybodrand
Set $boybodA = $boybod
set boyfacerandA = boyfacerand
set $boyfaceA = $boyface
set dickA = dick
set silaVagA = silaVag
set financeA = finance
set vneshBoyA = vneshBoy
set $boyCloA = $boyClo
set figurBoyA = figurBoy
set titBoyA = titBoy
set haerBoyA = haerBoy
set harakBoyA = harakBoy
set boydayA = day
set bfA = 1
set daya = 0
set boyonceA = 0
set izvratA = izvrat
set giftDayA = 0
set giftNumA = 0
set love = 0
end

if $ARGS[0] = 'B':
!set stopboy = 0
Set $boyB = $boy
set boybodyrandB = boybodyrand
Set $boybodyB = $boybody
set boybodrandB = boybodrand
Set $boybodB = $boybod
set boyfacerandB = boyfacerand
set $boyfaceB = $boyface
set dickB = dick
set silaVagB = silaVag
set financeB = finance
set vneshBoyB = vneshBoy
set $boyCloB = $boyClo
set figurBoyB = figurBoy
set titBoyB = titBoy
set haerBoyB = haerBoy
set harakBoyB = harakBoy
set boydayB = day
set bfB = 1
set dayb = 0
set boyonceB = 0
end

if $ARGS[0] = 'C':
!set stopboy = 0
Set $boyC = $boy
set boybodyrandC = boybodyrand
Set $boybodyC = $boybody
set boybodrandC = boybodrand
Set $boybodC = $boybod
set boyfacerandC = boyfacerand
set $boyfaceC = $boyface
set dickC = dick
set silaVagC = silaVag
set financeC = finance
set vneshBoyC = vneshBoy
set $boyCloC = $boyClo
set figurBoyC = figurBoy
set titBoyC = titBoy
set haerBoyC = haerBoy
set harakBoyC = harakBoy
set boydayC = day
set bfC = 1
set dayc = 0
set boyonceC = 0
end
--- boyfrend ---------------------------------

# boylove
if $ARGS[0] = 'haer':
	if haerBoyA ! hcol:
	bfA = bfA - 1
		if haerBoyA = 0: '<<$boyA>> says that you are very beautiful, although he likes brunettes.'
		if haerBoyA = 1: '<<$boyA>> says that you are very beautiful, although he likes the brown-haired.'
		if haerBoyA = 2: '<<$boyA>> says that you are very beautiful, although he likes red.'
		if haerBoyA = 3: '<<$boyA>> says that you are very beautiful, although he likes blondes.'
	end
	if haerBoyA = hcol:
	set bfA += 1
	'<<$boyA>> says that you have beautiful hair.'
	end
end

if $ARGS[0] = 'figure':

	if figurBoyA = 0:
		if bedra < 80:
		set bfA += 1
		'<<$boyA>> tells you that you have a perfect figure.'
		end

		if bedra >= 80:
		set bfA -= 1
		'<<$boyA>> says that you love him despite the fact that he always met with skinny.'
		end
	end

	if figurBoyA = 1:
		if bedra > 80 and bedra < 100:
		set bfA += 1
		'<<$boyA>> tells you that you have a perfect figure.'
		end

		if bedra <= 80:
		set bfA -= 1
		'<<$boyA>> asks whether you have anorexia.'
		end

		if bedra >= 100:
		set bfA -= 1
		'<<$boyA>> asks whether you are going on a diet.'
		end
	end

	if figurBoyA = 2:
		if bedra >= 100:
		set bfA += 1
		'<<$boyA>> tells you that you have a perfect figure.'
		end

		if bedra < 100:
		set bfA -= 1
		'<<$boyA>> says that you are beautiful, but the woman should be in the body.'
		end
	end
end

if $ARGS[0] = 'tits':
!titBoyA
	if titBoyA = 0:
		if tits < 3:
		set bfA += 1
		'<<$boyA>> tells you that you have beautiful breasts.'
		end

		if tits >= 3:
		set bfA -= 1
		'<<$boyA>> says that you love him despite the fact that he prefers small breasts.'
		end
	end

	if titBoyA = 1:
		if tits >= 3 and tits <= 4:
		set bfA += 1
		'<<$boyA>> tells you that you have perfect breasts.'
		end

		if tits < 3:
		set bfA -= 1
		'<<$boyA>> says that you are beautiful, though small breasts.'
		end

		if tits > 4:
		set bfA -= 1
		'<<$boyA>> says that you have a really huge breasts.'
		end
	end

	if titBoyA = 2:
		if tits > 4:
		set bfA += 1
		'<<$boyA>> tells you that you have a great chest.'
		end

		if tits <= 4:
		set bfA -= 1
		'<<$boyA>> says that you are beautiful, though small breasts.'
		end
	end

end
--- boylove ---------------------------------

# svi
if $ARGS[0] = 'poor':
set minut += 20
	if selfPornvidDVDCarry > 0:
		act 'Give him one of your amaeur porn videos':
			set selfPornvidDVDCarry -= 1
			set bfA += 1
		end
	end
	if Venera >= 3:
	set bfA = 0
	'<<$boyA>> you saw signs of venereal disease and dumped you.'
	act 'Leave': gt $HouseLocation
	exit
	end
	if sweat > 1:
	!вспотели
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
		if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
		if harakBoyA = 3: '<<$boyA>> tells you that it appeared urgent business.'
		if harakBoyA = 4: '<<$boyA>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
		if harakBoyA = 5: '<<$boyA>> tells you that you would not hurt to wash.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if vatnik = 2:
	!ватник
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
		if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
		if harakBoyA = 3: '<<$boyA>> tells you that it appeared urgent business.'
		if harakBoyA = 4: '<<$boyA>> scornfully looks at you and tells you that she had her urgent business.'
		if harakBoyA = 5: '<<$boyA>> tells you that you are in rags like a scarecrow.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
	set bfA = 0
	'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if daya < 10 and boyonceA = 0:
	!конфетно букетный период
	set vstrand = RAND(0,2)
		if vstrand = 0:
		'<<$boyA>> offers a walk in the park.'
			act 'Walk in the park':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You walked in the park with a guy. <<$boyA>> telling stories and jokes hunted.'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 1:
		'<<$boyA>> offers to go to the cinema.'
			act 'Go to the cinema':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You went to the cinema for a new movie. <<$boyA>> hug you.'
				act 'Hug his hand':
				cla
				'You watch a movie guy hugging hand. Finally the film ends.'
				set bfA += 1
					act 'To invite':
					cla
					if dayA < 3: set bfA -= 1
					gt 'svidan','kvartA'
					end

					act 'Say goodbye and go home':
					cla
					set bfA += 1
					gt $HouseLocation
					end
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 2:
		'<<$boyA>> offers a drink pivasika in porch.'
			act 'Drink beer':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'<<$boyA>> bought pivasika and crackers and you went with him to the porch, where drinking and fun chatting.'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end
	end

	if daya >= 10 and boyonceA = 0:
	'<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
		act 'Leave':
		cla
		set bfA = 0
		gt $HouseLocation
		end

		act 'Agrees to have sex':
		cla
		*clr
		set minut += 20
		'You agreed to have sex. <<$boyA>> happy.'
			act 'Go to your apartment': gt 'svidan','kvartA'
			act 'Go into the bushes': gt 'svidan','kustA'
		end
	exit
	end

	if dayA > 15: gs 'boylove','haer'
	if dayA > 30: gs 'boylove','figure'
	if dayA > 60: gs 'boylove','tits'

	if boyonceA > 0:
	'<<$boyA>> offers to hang out in the stairwell with pivasikom.'
		act 'Potusit':
		cla
		set minut += 60
		set fat += 1
		set bfA += 1
		'You drank beer in the stairwell with her boyfriend. <<$boyA>> hugged you and said that he wants you.'
		act 'Go to your apartment': gt 'svidan','kvartA'
		act 'Go into the bushes': gt 'svidan','kustA'
		end

		act 'Refuse':
		cla
		set bfA -= 1
		gt $HouseLocation
		end
	end
end

if $ARGS[0] = 'norm':
set minut += 20
	if Venera >= 3:
	set bfA = 0
	'<<$boyA>> you saw signs of venereal disease and dumped you.'
	act 'Leave': gt $HouseLocation
	exit
	end
	if sweat > 1:
	!вспотели
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
		if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if vatnik = 2:
	!ватник
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
		if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
	set bfA = 0
	'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if daya < 10 and boyonceA = 0:
	!конфетно букетный период
	set vstrand = RAND(0,2)
		if vstrand = 0:
		'<<$boyA>> offers to go to the cafe.'
			act 'Go to the cafe':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 1:
		'<<$boyA>> offers to go to the cinema.'
			act 'Go to the cinema':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You went to the cinema for a new movie. <<$boyA>> hug you.'
				act 'Hug his hand':
				cla
				'You watch a movie guy hugging hand. Finally the film ends.'
				set bfA += 1
					act 'To invite':
					cla
					if dayA < 3: set bfA -= 1
					gt 'svidan','kvartA'
					end

					act 'Say goodbye and go home':
					cla
					set bfA += 1
					gt $HouseLocation
					end
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 2:
		'<<$boyA>> provides for a walk.'
			act 'Walk':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'<<$boyA>> to take you by the arm and you were walking down the street talking.'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end
	end

	if daya >= 10 and boyonceA = 0:
	'<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
		act 'Leave':
		cla
		set bfA = 0
		gt $HouseLocation
		end

		act 'Agrees to have sex':
		cla
		*clr
		set minut += 20
		'You agreed to have sex. <<$boyA>> happy.'
			act 'Go to your apartment': gt 'svidan','kvartA'

			act 'Go in his car': gt 'svidan','carA'
		end
	exit
	end
	if dayA > 12 and skin < 2: set bfA -= 1
	if dayA > 12: gs 'boylove','haer'
	if dayA > 24: gs 'boylove','figure'
	if dayA > 48: gs 'boylove','tits'
	if dayA > 22 and glaraz < 1: set bfA -= 1
	if dayA > 40 and lip < 1: set bfA -= 1

	if boyonceA > 0:
	'<<$boyA>> offers sit in a cafe.'
		act 'The cafe':
		cla
		set minut += 60
		set fat += 1
		set bfA += 1
		'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said that he wants you.'
		act 'Go to your apartment': gt 'svidan','kvartA'
		act 'Go in his car': gt 'svidan','carA'
		end

		act 'Refuse':
		cla
		set bfA -= 1
		gt $HouseLocation
		end
	end
end

if $ARGS[0] = 'reach':
set minut += 20
	if Venera >= 3:
	set bfA = 0
	'<<$boyA>> you saw signs of venereal disease and dumped you.'
	act 'Leave': gt $HouseLocation
	exit
	end
	if sweat > 1:
	!вспотели
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
		if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if vatnik = 2:
	!ватник
	set bfA -= 1
		if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
		if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
		if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
	set bfA = 0
	'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
	act 'Leave': gt $HouseLocation
	exit
	end

	if dayA > 5 and skin < 3: set bfA -= 1
	if dayA > 10: gs 'boylove','haer'
	if dayA > 20: gs 'boylove','figure'
	if dayA > 30: gs 'boylove','tits'
	if dayA > 10 and glaraz < 2: set bfA -= 1
	if dayA > 6 and lip < 2: set bfA -= 1
	if dayA > 8 and resnic < 1: set bfA -= 1


	if daya < 10 and boyonceA = 0:
	!конфетно букетный период
	set vstrand = RAND(0,2)
		if vstrand = 0:
		'<<$boyA>> offers to go to the cafe.'
			act 'Go to the cafe':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 1:
		'<<$boyA>> offers to go to the cinema.'
			act 'Go to the cinema':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'You went to the cinema for a new movie. <<$boyA>> hug you.'
				act 'Hug his hand':
				cla
				'You watch a movie guy hugging hand. Finally the film ends.'
				set bfA += 1
					act 'To invite':
					cla
					if dayA < 3: set bfA -= 1
					gt 'svidan','kvartA'
					end

					act 'Say goodbye and go home':
					cla
					set bfA += 1
					gt $HouseLocation
					end
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end

		if vstrand = 2:
		'<<$boyA>> offers to go to the restaurant.'
			act 'Go to the restaurant':
			cla
			set minut += 60
			set fat += 1
			set bfA += 1
			'<<$boyA>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'
				act 'To invite':
				cla
				if dayA < 3: set bfA -= 1
				gt 'svidan','kvartA'
				end

				act 'Say goodbye and go home':
				cla
				set bfA += 1
				gt $HouseLocation
				end
			end

			act 'Refuse':
			cla
			set bfA -= 1
			gt $HouseLocation
			end
		end
	end

	if daya >= 10 and boyonceA = 0:
	'<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
		act 'Leave':
		cla
		set bfA = 0
		gt $HouseLocation
		end

		act 'Agrees to have sex':
		cla
		*clr
		set minut += 20
		'You agreed to have sex. <<$boyA>> happy.'
			act 'Go to your apartment': gt 'svidan','kvartA'
			act 'Go to him': gt 'svidan','hisA'
		end
	exit
	end

	if boyonceA > 0:
	'<<$boyA>> offers sit in a cafe.'
		act 'The cafe':
		cla
		set minut += 60
		set fat += 1
		set bfA += 1
		'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said that he wants you.'
		act 'Go to your apartment': gt 'svidan','kvartA'
		act 'Go to him': gt 'svidan','hisA'
		end

		act 'Refuse':
		cla
		set bfA -= 1
		gt $HouseLocation
		end
	end
end
--- svi ---------------------------------

# svidan
if $ARGS[0] = 'start':
	if svidanieA = 1 and svidanieB = 1 and svidanieC = 1:
	set bfA = 0
	set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna = 0
	set willpower -= 30
	'<<$boyA>>, <<$boyB>> and <<$boyC>> come up to you, then look at each other in bewilderment. They understand everything and go. <<$boyC>> throws you goodbye "Well, you whore!"'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 1 and svidanieC = 0:
	set bfA -= 1
	set bfB = 0
	!set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyA>> and <<$boyB>> come up to you, then look at each other in bewilderment. <<$boyA>> asked what kind of bloke you pinned. At that <<$boyB>> is outraged that he´s your guy and not this half-wit.'
		if bfA > 0: '<<$boybodyA>> <<$boybodA>> <<$boyA>> punches his rival´s face. <<$boyB>> falls to the ground with a broken face. <<$boyA>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfA <= 0: '<<$boyA>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyB>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 0 and svidanieC = 1:
	set bfA -= 1
	!set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyA>> and <<$boyC>> come up to you, then look at each other in bewilderment. <<$boyA>> asked what the dick from the mountain to you pinned. At that <<$boyC>> is outraged that he´s your guy and not this half-wit.'
		if bfA > 0: '<<$boybodyA>> <<$boybodA>> <<$boyA>> punches his rival´s face. <<$boyC>> falls to the ground with a broken face. <<$boyA>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfA <= 0: '<<$boyA>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 0 and svidanieB = 1 and svidanieC = 1:
	set bfB -= 1
	!set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyB>> and <<$boyC>> come up to you, then look at each other in bewilderment. <<$boyB>> asked what the dick from the mountain to you pinned. At that <<$boyC>> is outraged that he´s your guy and not this half-wit.'
		if bfb > 0: '<<$boybodyB>> <<$boybodB>> <<$boyB>> punches his rival´s face. <<$boyC>> falls to the ground with a broken face. <<$boyB>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfb <= 0: '<<$boyB>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 0 and svidanieC = 0:
	set dayA += 1
	set svidanieA = 0
	set willpower += RAND(5,10)
	set manna += RAND(5,10)
		if harakBoy = 0:
			if mop <= 2 and mop > 0: set bfA += 1
			if mop = 4: set bfA -= 1
		end
		if harakBoy = 1:
			if mop <= 3 and mop > 0: set bfA += 1
			if mop = 4: set bfA -= 1
		end
		if harakBoy = 2:
			if mop = 4: set bfA += 1
			if mop <= 2 and mop > 0: set bfA -= 1
		end
	'<<$boybodyA>> <<$boybodA>> <<$boyA>> comes up to you and kisses you welcoming.'
		if dayA >= 30:
		set giftrand = RAND(0,2)
			if giftrand <= financeA:
			set gift = RAND(bfa * 10, bfa * 50)
			set money += gift
			'<<$boyA>> made a gift to you <<gift>> rubles.'
			end
		end
	act 'Kiss.': gt 'svidan','a'
		act 'Avoid kissing.':
		cla
		set bfA -= 1
		gt 'svidan','a'
		end
	exit
	end

	if svidanieA = 0 and svidanieB = 1 and svidanieC = 0:
	set dayB += 1
	set svidanieB = 0
	'<<$boybodyb>> <<$boybodb>> <<$boyb>> comes up to you and kisses you welcoming.'
	act 'Kiss.': gt 'svidan','b'
	exit
	end

	if svidanieA = 0 and svidanieB = 0 and svidanieC = 1:
	set dayc += 1
	set svidaniec = 0
	'<<$boybodyc>> <<$boybodc>> <<$boyc>> comes up to you and kisses you welcoming.'
	act 'Kiss.': gt 'svidan','c'
	exit
	end
end

if $ARGS[0] = 'a':
	if financeA = 0: gt 'svi','poor'
	if financeA = 1: gt 'svi','norm'
	if financeA = 2: gt 'svi','reach'
end


if $ARGS[0] = 'kustA':
*clr
set minut += 20
'You hid in the corner and ukromnoi <<$boyA>> pulled out his penis.'
	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'carA':
*clr
set minut += 20
'You got in the car and <<$boyA>> hug you and started kissing.'
	act 'Sex':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set sex += 1
	set minut += 30
	set pose = 0
	set $nameV = $boyA
	set dick = dickA
	set silavag = silavagA
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$nameV>> you put on your back and spread your legs.'
	gs 'orgazm','start'
		act 'Leave.':
		cla
		gt 'street'
		end
	end

	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'hisA':
*clr
set minut += 20
'Once you have entered the apartment <<$boyA>> hug you and started kissing.'
	act 'Sex':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set sex += 1
	set minut += 30
	set pose = 0
	set $nameV = $boyA
	set dick = dickA
	set silavag = silavagA
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$nameV>> you put on your back and spread your legs.'
	gs 'orgazm','start'
		act 'Leave.':
		cla
		gt 'street'
		end
	end

	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'kvartA':
*clr
if housr > 0: set housrA = 1 & set housrMir = 0
set minut += 20
'Once you have entered the apartment <<$boyA>> hug you and started kissing.'
	if husband = 0:
		act 'Sex':
		cla
		*clr
		set bfA += 1
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set sex += 1
		set minut += 30
		set pose = 0
		set $nameV = $boyA
		set dick = dickA
		set silavag = silavagA
		'<center><img src="images\picV\vag.jpg"></center>'
		'<<$nameV>> you put on your back and spread your legs.'
		gs 'orgazm','start'
			act 'Hold up doors.':
			cla
			gt 'mirror','fin'
			end
		end


		act 'Take by mouth':
		cla
		*clr
		set bfA += 1
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set bj += 1
		set dick = dickA
		set harakBoy = harakBoyA
		set minut += 30
		set $nameV = $boyA
		'<center><img src="images\picV\bj.jpg"></center>'
		'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
		gs 'oral','start'
			act 'Continue to suck.':
			cla
			*clr
			set swallow += 1
			set cumlip += 1
			'<center><img src="images\picV\swallow.jpg"></center>'
			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
				act 'Hold up doors.':
				cla
				gt 'mirror','fin'
				end
			end

			act 'Remove the mouth.':
			cla
			*clr
				if harakBoyA = 0:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if harakBoyA = 1:
				set tiprand = RAND(0,3)
					if tiprand < 3:
					'<center><img src="images\picV\hand.jpg"></center>'
					'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
					end
					if tiprand = 3:
					set facial += 1
					set cumface += 1
					'<center><img src="images\picV\facial.jpg"></center>'
					'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
					end
				end
				if harakBoyA = 2:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
				end

				act 'Hold up doors.':
				cla
				gt 'mirror','fin'
				end
			end
		end

		act 'Masturbate him':
		cla
		*clr
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set DOM += 1
		set hj += 1
		set minut += 30
		set horny += DOM
		'<center><img src="images\picV\hand1.jpg"></center>'
		'You stripped and put the guy on the bed, while they themselves sat next to him and began to fondle his penis hands.'
		'Soon, your skillful movements guy finished you in her hands.'
		if harakBoyA = 0: set bfA -= 1
		if harakBoyA = 1: set bfA -= 5
		if harakBoyA = 2: set bfA -= 10
			act 'Wipe your hands and hold up to the door.':
			cla
			gt 'mirror','fin'
			end
		end

		if DOM > 1 and kunday ! day and mesec <= 0:
			act 'Cooney':
			cla
			*clr
			set kunday = day
				if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
			set DOM += 1
			set kuni += 1
			set minut += 30
			set horny += DOM + (silaVag * 2 + 5)
			'<center><img src="images\picV\kuni.jpg"></center>'
			'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
			'<<$boyA>> lay down between your legs and began to work the tongue on your pussy.'
			if harakBoyA = 0: set bfA -= 1
			if harakBoyA = 1: set bfA -= 5
			if harakBoyA = 2: set bfA -= 10
				if horny >= 90:
				set horny = 0
				set manna += 15
				set willpower += 15
				set orgasm += 1
				'Man of skillful actions you covered orgasm.'
				else
				'Actions Man though they were exciting, but they started to bore you.'
				end

				act 'Further.':
				cla
				gt 'svidan','kvartA'
				end
			end

		end

	end
end
--- svidan ---------------------------------

# Alphabet
ACT 'In the corridor':
	gt 'floor'
END
'<center><B>dorm room</B></center>'
'<center><img src="images\etogame\obskom.jpg"></center>'
clr
gs 'stat'
'Narrow room with a single window, wooden floor, three <a href="exec:GT ''Beds'',''choice''">beds</a>, small <a href="exec:GT ''table''">table</a> and a few chairs. At the entrance stands the old <a href="exec:GT ''cupboard''">wardrobe</a> to which to attach the old <a href="exec:GT ''zerkaloO''">mirror</a>.'
if palto = 1: 'At the entrance hangs a simple Chinese women´s down jacket'
if palto = 2: 'At the entrance hangs a woman´s coat'
if palto = 3: 'At the entrance hangs a dear lady´s coat'

if daystart = 0: Set daystart = 1
if house = 1 and student = 0: Set house = 0 & 'You are being evicted from their dormitory if right now you find yourself through the computer place to stay, you will remain without a roof over your head at the first exit from the hostel.'

act 'roommate Vic':
cla
clr
gs 'stat'
'Vick sits on her bed and as always paints her nails.'
act 'Room': gt 'Alphabet'
	if час < 23:
		act 'Chat with Vika (1:00)':
		cla
		Set час += 1
		Set Vika += 5
		Set kosmskill += 1
		if repa < 30: Set repa += 1
		set talkrand = RAND(0,18)
		if talkrand = 0: 'You started talking with Vika, she tells you about the boys she met, about parties, about cosmetics.'
		if talkrand = 1: 'Wick says she was in a cafe and invited her to dance even then the guy who paid her bill.'
		if talkrand = 2: 'Wick says she worked as a waitress at a strip bar, quite lucrative job for students, although customers are very pristavuchi.'
		if talkrand = 3: 'Vic tells you that several sections of beautiful girls running at the college went on a European level sports competitions and earn big money, but of course that Vick priznaetsya her laziness so they plow.'
		if talkrand = 4: 'Vick says that one of her friends flew from a guy who did not have time to pull out of it. But Vick smarter, she buys in a pharmacy contraceptives, 100% satisfaction guarantee.'
		if talkrand = 5: 'Vick says that to stay, buy an apartment or a car can be only having a PC, via the Internet.'
		if talkrand = 6: 'Vic tells how one of her friend, bought a car, took place in the market and hired a saleswoman. He can only buy the goods in stock and bring it to market themselves and money flowing to it.'
		if talkrand = 7: 'Vic tells how she once winter went outside without a coat and a bad cold.'
		if talkrand = 8: 'Vic tells about a girlfriend who all did not know how to lose weight, then started going to the sauna and lose weight. True it is costly.'
		if talkrand = 9: 'Vick says that before she was fond of diets, but they deteriorated skin and went pryshi, and start to hurt, now Vick cracks for three and only become more beautiful.'
		if talkrand = 10: 'Vic says that she used to go to dances and the Internet has managed to get into a nightclub tantsorshey, but she quickly tired of it.'
		if talkrand = 11: 'Vick says in the park, she accidentally went to the panel and she was offered sex for money, but do not spoil the reputation of Vic wanted, besides a large number of partners from start to age faster.'
		if talkrand = 12: 'Vic tells how she acted naked in studio, not a dusty job, but reputation suffers.'
		if talkrand = 13: 'Vick told her friend as one that everyone perceived as a slut arranged several parties in the cafe at his own expense, then it refers to become better.'
		if talkrand = 14: 'Vic tells a horror story about how one pretty girl did not wash his feet and did not shave, then became so terrible to her for all obbegat kilometer.'
		if talkrand = 15: 'Vic says that she buys tampons always with a reserve, and then if they go without a monthly then quickly prevratishsya in slut.'
		if talkrand = 16: 'Vic tells how one of her guys wanted anal sex, but she was not in possession of Vaseline.'
		if talkrand = 17: 'Vick says the summer sunning herself on the beach, for this truth had her buy a swimsuit, but it came in handy in the winter and go to the pool. The pool is not a bad tool to maintain a healthy body.'
		if talkrand = 18: 'Vic tells an interesting psychological effect is in the stores do not notice things that are not short of money.'
		act 'Room': gt 'Alphabet'
		end
		if Vika > 10:
		cla
		if vikavecher = 0: Set vikavecher = 1
		'Vic tells you that the party is planned, as well, and always on Fridays. You can go there with Vika'
		act 'Go to a party': gt 'party','start'
		act 'I have business': gt 'Alphabet'
		end
		if Vika > 10 and Vzaem = 0:
			act 'Borrow from Wiki 1000 rubles':
			cla
			Set money += 1000
			Set Vzaem = 1
			'Vick fumbled in her purse and gave you 1000 rubles in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if Vika > 10 and Vzaem = 1 and money >= 1000:
			act 'Giving Vick debt 1,000 rubles':
			cla
			Set money -= 1000
			Set Vzaem = 0
			Set Vika += 5
			'You gave Vick 1000 rubles taken you in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if vikasex > 0 and Vika > 20:
			act 'Offer fun':
			cla
			Set час += 1
			Set $girl = 'Vetch'
			gt 'lesb','start'
			end
		end
	end
end

act 'roommate Galya':
cla
clr
gs 'stat'
'Galya overlaid textbooks and bison.'
act 'Room': gt 'Alphabet'
	if час < 23:
		act 'Engage with Galya (1:00)':
		cla
		Set час += 1
		Set intel += 1
		Set Gala += 5
		if repa > 1: Set repa -= 1
		'You overlaid textbooks and began to prepare together with Galya.'
		act 'Room': gt 'Alphabet'
		end
		if Gala > 10 and Gzaem = 0:
			act 'Borrow from Ghali 1000 rubles':
			cla
			Set money += 1000
			Set Gzaem = 1
			'Galya rummaged in my purse and gave you 1000 rubles in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if Gala > 10 and Gzaem = 1 and money >= 1000:
			act 'Giving Gala 1000 rubles debt':
			cla
			Set money -= 1000
			Set Gzaem = 0
			Set Gala += 5
			'You gave Gale 1000 rubles taken you in debt'
			act 'Room': gt 'Alphabet'
			end
		end

	end
end

!act 'Test':
!Set newboy = 1
!gs 'boy'
!gs 'boyopred'
!act 'Room': gt 'Alphabet'
!end
--- Alphabet ---------------------------------

# party
if $ARGS[0] = 'start':
cla
	if vikavecher = 1:
	gt 'party','first'
	end
	if vikavecher > 1:
	gt 'party','evening'
	end
end

if $ARGS[0] = 'first':
cla
Set vikavecher = 2
'You have come to the party with Vika. The party was held in the male dormitory, the company of beautiful girls and guys were drinking, dancing to the music and fun.'
wait 1000
'Are you politely said hello, but of particular interest to you, nobody showed'
	act 'Be overmodest':
	cla
	Set час = 23
	'You modestly sat in a corner, that would not interfere with other fun. To you started glued what that small, long-haired guy. The other guys he was called explicitly for a laugh and otherwise as a fairy and did not call.'
	clr
	Set fairy = 1
	gs 'stat'
	act 'Leave': gt 'Lok'
	end

	act 'Cheerful':
	cla
	Set час = 23
	'You drank vodka together with all and struck up a conversation gradually. You dovlno strongly opyaneli and started dancing with sex. What is a little boy with a gentle girlish face and long blond hair trying to provide you clumsy attentions. The other guys he was called explicitly for a laugh and was referred to as a fairy. Gradually you kick in the trash and bran.'
	'You woke up in a strange room, lying on his stomach, thank god clothes, then no you are not drunk ripped.'
	Set fairy = 2
	if джинсы = 2: '<center><img src="images\picparty\jeanscum.jpg"></center>'
	if джинсы ! 2: '<center><img src="images\picparty\skirtcum.jpg"></center>'
	'What´s this? Damn! What that bastard, you dragged into another room and obkonchal your ass.'
	act 'Leave': gt 'Lok'
	end

end

if $ARGS[0] = 'evening':
cla
'You have come to the party, a lot of beautiful girls and guys, drink, dance and hang out.'
	act 'Sit modestly':
	cla
	Set час = 23
	Set zrand = RAND(50,100)
		if vnesh < zrand:
		cla
		'You modestly sat watching the whole party opened others.'
		act 'Leave': gt 'Lok'
		end
		if vnesh >= zrand:
		cla
		'You modestly modestly sat in a corner, but a guy came up to you and started to talk to you.'
		act 'Snub and go': gt 'Lok'
			act 'Keep the conversation':
			cla
			wait 1000
			'Party ends and your new friend offers you to spend'
			act 'Refuse': gt 'Lok'
				act 'Go with a guy':
				Set newboy = 1
				gs 'boy'
				gs 'boyopred'
				gt 'Lok'
				end

			end
		end
	end
	act '<<$name>>':
	cla
	Set час = 23
	Set horny -= 10
	'You have fun, dance and Bukhaev.'
	Set itrand = RAND(1,10)
	if itrand = 1: xgt 'party','total'
	if itrand = 2: xgt 'party','itog2'
	if itrand = 3: xgt 'party','itog3'
	if itrand = 4: xgt 'party','itog4'
	if itrand = 5: xgt 'party','itog5'
	if itrand = 6: xgt 'party','itog6'
	if itrand = 7: xgt 'party','itog7'
	if itrand = 8: xgt 'party','itog8'
	if itrand = 9: xgt 'party','itog9'
	if itrand = 10: xgt 'party','itog10'
	end
end

if $ARGS[0] = 'total':
cla
Set repa += 1
'<center><img src="images\picparty\itog.jpg"></center>'
'Gradually you distribute alcohol as hell and you start to feel sick, you end vechereniki spent hugging the toilet.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog2':
cla
Set repa += 1
'<center><img src="images\picparty\itog2.jpg"></center>'
'You danced and hooligans, you had the idea to dance with Vika, ended your dance light lesbian show with savory lingering kisses.'
act 'Leave': gt 'Lok'
	act 'Vika leave an empty room':
	cla
	Set $girl = 'Vetch'
	if vikasex = 0: Set vikasex = 1 & Set sexf += 1
	gt 'lesb','start'
	end
end

if $ARGS[0] = 'itog3':
cla
Set repa += 1
'<center><img src="images\picparty\itog3.jpg"></center>'
'You nakiryalis and slept in the next room with a few hardcore sex.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog4':
cla
Set repa += 1
'<center><img src="images\picparty\itog4.jpg"></center>'
'You get opyaneli and began to molest girls, how come you and do not understand, but you have exposed breasts and Vic kiss and lick your nipples in front of everyone.'
act 'Leave': gt 'Lok'
	act 'Vika leave an empty room':
	cla
	Set $girl = 'Vetch'
	if vikasex = 0: Set vikasex = 1 & Set sexf += 1
	gt 'lesb','start'
	end
end

if $ARGS[0] = 'itog5':
cla
Set repa += 1
'<center><img src="images\picparty\itog5.jpg"></center>'
if throat > 10: Set money += 100 & 'Fun and drinking, you had an argument about the girl that will be able to shove down your throat it a whole banana, not great wisdom that you have done with success and at the table. The girl gave you 100 rubles.'
if throat <= 10: Set money -= 100 & 'Fun and drinking, you had an argument about the girl that will be able to shove down your throat myself a banana, you have choked on a half a banana and lost the argument. Then you gave 100 rubles.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog6':
cla
Set repa += 1
'<center><img src="images\picparty\itog6.jpg"></center>'
'You all evening molested girl with big breasts begging her to kiss her breasts. By evening, the two of you got drunk in the trash and then you climbed her face in his chest and began kissing them.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog7':
cla
Set repa += 1
'<center><img src="images\picparty\itog7.jpg"></center>'
'Natreskavshis in zyuzyu you bared her breasts and started licking her nipples.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog8':
cla
Set repa += 1
'<center><img src="images\picparty\itog8.jpg"></center>'
'You ran with Vika Vika became sex with what that guy is not known. You were lying next fun chatting with her until Vika tore drunk in the trash is not familiar guy.'
act 'Leave': gt 'Lok'
	act 'Caress Vic':
	cla
	Set $girl = 'Vetch'
	Set sex += 1
	if vikasex = 0: Set vikasex = 1 & Set sexf += 1
	*clr
	'<center><img src="images\picvag\tri.jpg"></center>'
	'You kiss and fondle breasts Vicki, she is very excited and you have decided to give her to lick your pussy.'
	Set horny += 60
	if horny < 100: 'You started to get tired of licking and wanted to continue'
	if horny >= 100: Set horny = 0 & 'Muscles of the vagina began to decline sharply, the entire abdomen as if covered hot wave of pleasure, you scream from a powerful orgasm.'
	wait 3000
	'The guy pulls his dick out of Vicki and lifting it inserts his penis into her mouth.'
		act 'Watch':
		cla
		*clr
		'<center><img src="images\picvag\tri4.jpg"></center>'
		'Vick guy cums in her mouth. Vicki peremazanny lips in semen and it stretches to you that would have kissed her.'
			act 'Kissing with Vika':
			cla
			*clr
			Set cumlip += 1
			'<center><img src="images\picvag\tri3.jpg"></center>'
			'You´re kissing licking each other´s cum.'
			act 'Leave': gt 'Lok'
			end
		end

		act 'Suck together with Vika':
		cla
		*clr
		Set sexm += 1
		Set oral += 1
		Set cumface += 1
		'<center><img src="images\picvag\tri2.jpg"></center>'
		'You fucked by dick together with Vika finally ends Perrin you on the face.'
			act 'Kissing with Vika':
			cla
			*clr
			Set cumlip += 1
			'<center><img src="images\picvag\tri3.jpg"></center>'
			'You´re kissing licking each other´s cum.'
			act 'Leave': gt 'Lok'
			end
		end
	end
end

if $ARGS[0] = 'itog9':
cla
Set repa += 1
'<center><img src="images\picparty\itog9.jpg"></center>'
'Girls love to have fun, you two had a drunken girlfriends lesbian show right at the party. Caressing, kissing and squeezing each other in front of everyone.'
act 'Leave': gt 'Lok'
end

if $ARGS[0] = 'itog10':
cla
Set repa += 1
'<center><img src="images\picparty\itog10.jpg"></center>'
'You got drunk and danced with what that guy who you dirty paw tits.'
act 'Leave': gt 'Lok'
	act 'Touch for pants':
	cla
	Set repa += 1
	Set sexm += 1
	gs 'boy'
	gt 'BJ','start'
	end
end
--- party ---------------------------------

# Market
'<center><B>Market</B></center>'
'<center><img src="images\etogame\rinok2.jpg"></center>'
Set час += 1
Set horny += 1
if car = 0: Set money -= 20 & 'You get on the shuttle bus and pay the fare of 20 rubles.'
if car > 0 and benzin > 0: Set benzin -= 1 & 'You reached into your <<$marka>>.'
if car > 0 and benzin <= 0: Set money -= 20 & 'You ran out of gas and you had to go on the bus, paying the fare of 20 rubles.'
'Bustling market, you can buy in the market place to buy clothes or for 30,000 rubles and receive income from the outlet, but for the purchase and delivery of course need to have a car. You can trade yourself or hire a saleswoman.'
clr
gs 'stat'
act 'Buy': gt 'RynokP','choice'
act 'Go home': gt 'street'
if rinwork > 0 and час < 9:
	act 'Salesmen':
	cla
	*clr
	Set час = 17
	Set fat += 5
	Set monrand = RAND(500,2000)
	Set money += monrand
	clr
	gs 'stat'

	'You all day selling things in the market and earned <<monrand>> rubles'
	Set rinrand = RAND(1,100)
		if rinrand < 70 and palevorin = 0 and rinhoz = 0:
		act 'Go home': gt 'street'
		end

		if rinrand >= 70 and palevorin = 0 and rinhoz = 0:
		'To you approached the owner of the tent and began to pester you, promising to write premium'
			act 'Refuse':
			cla
			Set money -= 2000
			'The owner imposes on you a fine of 2,000 rubles'
			act 'Go home': gt 'street'
			end
		act 'Ogle': gt 'RynokHoz','start'
		end

		if rinrand < 60 and palevorin = 0 and rinhoz = 1:
		act 'Go home': gt 'street'
		end
		if rinrand >= 60 and palevorin = 0 and rinhoz = 1:
		'To you approached the owner of the tent and began to pester you, promising to write premium'
			act 'Refuse':
			cla
			Set money -= 2000
			'The owner imposes on you a fine of 2,000 rubles'
			act 'Go home': gt 'street'
			end
		act 'Ogle': gt 'RynokHoz','start'
		end

		if rinrand < 60 and palevorin = 1:
		'On the market there is a rumor among the sellers that you fucks boss tray'
		act 'Go home': gt 'street'
		end

		if rinrand >= 60 and palevorin = 1:
		'To you approached the owner of the tent and began to pester you, promising to write premium'
			act 'Refuse':
			cla
			Set money -= 2000
			'The owner imposes on you a fine of 2,000 rubles'
			act 'Go home': gt 'street'
			end
		act 'Ogle': gt 'RynokHoz','start'
		end

		if rinrand < 40 and palevorin = 2:
		'On the market there is a rumor among the sellers that you fucks boss tray with buddies'
		Set slutrand = RAND(1,100)
			if slutrand >= 70:
			'After work, you came to the Armenian and tried to persuade you a blowjob.'
			act 'Agree': gt 'RynokHoz','opusteha2'
			end
		act 'Go home': gt 'street'
		end

		if rinrand >= 40 and rinrand < 70 and palevorin = 2:
		'To you approached the owner of the tent and began to pester you, promising to write premium'
			act 'Refuse':
			cla
			Set money -= 2000
			'The owner imposes on you a fine of 2,000 rubles'
			act 'Go home': gt 'street'
			end
		act 'Ogle': gt 'RynokHoz','start'
		end

		if rinrand >= 70 and palevorin = 2:
		'To you approached the owner of the tent c already familiar to you guys and they began to entice you to perform oral sex, promising to write premium'
			act 'Refuse':
			cla
			Set money -= 2000
			'The owner imposes on you a fine of 2,000 rubles'
			act 'Go home': gt 'street'
			end
		act 'Ogle': gt 'RynokHoz','opusteha'
		end
	end

	act 'Resign':
	cla
	Set work = 0
	Set rinwork = 0
	'You are fired.'
	act 'Go home': gt 'street'
	end

end

if busRinok = 0 and money >= 30000 and car > 0:
	act 'Buy a place in the market for a month 30000 rub':
	cla
	Set busRinok = 30
	Set money -= 30000
	'You bought a place in the market for 30,000 rubles. You need the goods'
	act 'Go home': gt 'street'
	end
end
!с 7 до 16, 9 часов
if busRinok > 0 and tovarR > 0 and rinhour ! число:
	act 'Trade independently':
	cla
	Set fat -= 2
	Set rinhour = число
	Set torghour = 16 - rinhour
	Set torgrand = RAND(1,50)
	if tovarR >= torgrand: Set tovarR -= torgrand
	if tovarR < torgrand: Set torgrand = tovarR & Set tovarR = 0
	Set torgmoney = torgrand * 200
	Set money += torgmoney
	'You´ve earned a day <<torgmoney>> rubles, sold out <<torgrand>> pieces of the item, you have <<tovarR>> units of goods.'
	Set час = 17
	Set torgmoney = 0
	clr
	gs 'stat'
	act 'Go home': gt 'street'
	end

	if rinokTorg = 0 and rinhour ! число:
		act 'Hire a saleswoman':
		cla

		Set rinokTorg = 1
		'You hired saleswoman 1000 rubles per day'
		act 'Go home': gt 'street'
		end
	end
	if rinokTorg = 1 and rinhour ! число and tovarR > 0:
		act 'Release the goods saleswoman.':
		cla
		Set rinokTorgW = 1
		Set rinhour = число
		Set torghour = 16 - rinhour
		Set torgrand = RAND(1,50)
		if tovarR >= torgrand: Set tovarR -= torgrand
		if tovarR < torgrand: Set torgrand = tovarR & Set tovarR = 0
		Set torgmoney = torgrand * 200
		'You have given goods saleswoman, she can trade on their own.'
		act 'Go home': gt 'street'
		end
	end
end

if rinokTorg = 1 and rinhour ! число:
	act 'Dismiss saleswoman':
	cla
	Set rinokTorg = 0
	'You hired fired saleswoman'
	act 'Go home': gt 'street'
	end
end
--- Market ---------------------------------

# Klub2
if $ARGS[0] = 'tualet1':
cla
*clr
gs 'stat'
'<center><img src="images\pics\glory.jpg"></center>'
'You went into the booth and closed the door. The walls are covered with obscene graffiti in the walls and booths carved strange round holes. Sitting on the toilet you hear what that noise in the next stall. Through the hole in the wall you looked someone´s eyes.'
'In a hole in the wall squeezed fat cock. Lustful voice said, "here´s a yum yum, baby."'
'This is so not surprisingly, that you do not believe in the reality of what is happening to touch the finger member. It is hard and hot.'
act 'Leave': gt 'club','inside'
	act 'Take a closer look':
	cla
	*clr
	Set vaf += 1
	if TQuest = 1: Set TQuest = 2
	Set guy += 1
	Set bj+= 1
	Set horny += 5

	Set throat += 1
	'You lean against a member, it´s so big, warm and solid, you licked it, then again and again.'
	'<center><img src="images\pics\glory1.jpg"></center>'
		act 'Cover lips':
		cla
		*clr
		'You bows member lips and start sucking it, trying to take it as deep as possible.'
		'<center><img src="images\pics\glory2.jpg"></center>'
		'Suddenly, in your mouth and poured hot tart liquid.'
			act 'Swallow':
			cla
			*clr
			Set vaf += 2
			set swallow += 1
			Set cumlip += 1
			'You dial a mouthful of sperm, and then swallow it, sperm is not tasty, sticky and sharp taste.'
			'<center><img src="images\pics\glory3.jpg"></center>'
			'A male voice telling you - excellent crumb, the money you deserve, a member of the hole and the hole disappears pushes two thousandths bills.'
			Set money += 2000
			act 'Leave': gt 'club','inside'
			end
			act 'Spit out':
			cla
			Set cumface += 1
			'You dial a mouthful of sperm, the sperm is not tasty, sticky and sharp, you spit it on the floor.'
			'<center><img src="images\pics\glory3.jpg"></center>'
			'A male voice telling you - excellent crumb, the money you deserve, a member of the hole and the hole disappears pokes thousandth bill.'
			Set money += 1000
			act 'Leave': gt 'club','inside'
			end
		end
	end
end

if $ARGS[0] = 'WC':
cla
*clr
Set horny += 20
clr
gs 'stat'
'You pee sitting on the toilet and began to wipe the vagina toilet paper. Apparently you pressed too hard because you embraced the thrill of touching between the legs.'
act 'Leave': gt 'street'
	act 'Caress herself':
	cla
	Set TQuest = 1
	Set horny = 0
	set mastr += 1
	orgasm += 1
	'You caress his fingers swollen pussy until you orgasm does not cover.'
	'<center><img src="images\pics\tomas.jpg"></center>'
	'After orgasm, you take it easy, but hear from the next stall pant, look at the wall you see that someone is peeking through the hole located in the wall.'
	'The man behind the wall and realized that found giggled, great show. Eye of the holes in the wall and disappeared into it squeezed thousandth bill.'
	Set money += 1000
	gs 'stat'
	act 'Leave': gt 'club','inside'
	end
end

if $ARGS[0] = 'tualet2':
cla
*clr
'You sit in a booth and hear how you behind the toilet comes someone to slam the door adjacent booths. Before you came that the two of them.'
'Voice from the next stall told you - do not be afraid baby, we will not hurt you, on the contrary, we will give you a couple of delicious candy with cream filling.'
act 'Leave': gt  'club','inside'
	act 'Wait':
	cla
	Set slutiness += 10
	'On both sides of your booth through holes in the walls climbed members. Voice on the wall said, come on, baby, come on, we´re fed.'
	'You took both members of the hands and began to caress them, then bent over to one of the members and took it into his mouth.'
	'<center><img src="images\pics\glory4.jpg"></center>'
	wait 3000
	cla
	*clr
	'You enthusiastically fucked by both members in turn.'
	'<center><img src="images\pics\glory5.jpg"></center>'
	wait 3000
	cla
	*clr
	'Finally one of the men ends up in your mouth.'
	'<center><img src="images\pics\glory6.jpg"></center>'
	'You licks and start to finish processing the second term.'
	wait 3000
	cla
	*clr
	'The second man also lowers your mouth.'
	'<center><img src="images\pics\glory7.jpg"></center>'
	'You nakonchal mouthful hand you wipe the face, but in semen smeared all your face.'
	Set horand = RAND(1,100)
	if horand > horny: Set horny += 10 & 'You were not satisfied'
	if horand <= horny: Set horny = 0 & 'You covered orgasm'
	wait 3000
	'Glad voice said from behind the wall - you´re a great pacifier, I think you´ve earned a reward.'
	Set money += 3000
	'Three thousand ruble banknote pokes through the hole in the wall.'
	wait 1000
	'A male voice said - it works for you. Take another card, if you want to come to have fun and make money.'
	Set TQuest = 3
	if pornstudio = 0: pornstudio = 2
	Set guy += 2
	Set bj+= 2
	set swallow += 2
	Set cumlip += 2
	Set deep += 2
	act 'Leave': gt 'club','inside'
	end
end
--- Klub2 ---------------------------------

# KGstart
$KGOLklassvibor = {
cls
'You must select a character class.'
if KGOLrace = 1:
'For people available classes: Warrior, Thief, Mage.'
	act 'Warrior':$KGOLklass = 'Warrior'&KGOLklass = 1 & dynamic $KGOLklassvibor2
	act 'Thief':$KGOLklass = 'Thief'&KGOLklass = 2 & dynamic $KGOLklassvibor2
	act 'Magician':$KGOLklass = 'Magician'&KGOLklass = 3 & dynamic $KGOLklassvibor2
elseif KGOLrace = 2:
'For elves available classes Priest, Archer.'
	act 'Priest':$KGOLklass = 'Priest'&KGOLklass = 4 & dynamic $KGOLklassvibor2
	act 'Archer':$KGOLklass = 'Archer'&KGOLklass = 5 & dynamic $KGOLklassvibor2
else
'Classes available for zveroidov Barbarian.'
	act 'Barbarian':$KGOLklass = 'Barbarian'&KGOLklass = 6 & dynamic $KGOLklassvibor2
end

}
$KGOLklassvibor2 = {
cls
KGOLexp = 0
KGOLlvl = 1
KGOLbrona = 0
KGOLwpower = 0
'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
if KGOLklass = 1:
KGOLstren = 30
KGOLspeed = 20
KGOLvital = 30
KGOLintel = 20
elseif KGOLklass = 2:
KGOLstren = 20
KGOLspeed = 30
KGOLvital = 20
KGOLintel = 30
elseif KGOLklass = 3:
KGOLstren = 10
KGOLspeed = 20
KGOLvital = 20
KGOLintel = 50
elseif KGOLklass = 4:
KGOLstren = 10
KGOLspeed = 10
KGOLvital = 10
KGOLintel = 70
elseif KGOLklass = 5:
KGOLstren = 20
KGOLspeed = 40
KGOLvital = 10
KGOLintel = 30
else
KGOLstren = 40
KGOLspeed = 10
KGOLvital = 40
KGOLintel = 10
end
KGHP = KGOLvital * 10
KGManna = KGOLintel * 10
act 'Play': KGOLpers = 1 & gt 'KGOLgame'

	act 'Delete a character':
	KGOLpers = 0
	gt $curloc
	end
}
minut += 1
gs 'stat'
if KFOnLineReaga > 0:
'Welcome to the game Vertep World. You can play more <<KFOnLineReaga>> days'
'At any time you can pay with a credit card that would extend the duration of the account.'
'30 days 1000 rubles, on your credit card <<karta>>rubles'
	if KGOLpers > 0:
	'You can get in the game your character, or delete it'
	'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
		act 'Play': gt 'KGOLgame'

		act 'Delete a character':
		KGOLpers = 0
		gt $curloc
		end


	else
	'You can create a character'
		act 'Create a character':
		cls
		$KGOLname = input("Введите ваш ник")
		if $KGOLname <= 0: msg 'Not valid nickname'&gt $curloc
		'Your nickname <<$KGOLname>>'
		'You must select the player race'
		act 'Man':$KGOLrace = 'Man'&KGOLrace = 1 & dynamic $KGOLklassvibor
		act 'Elf':$KGOLrace = 'Elf'&KGOLrace = 2 & dynamic $KGOLklassvibor
		act 'Zveroid':$KGOLrace = 'Zveroid'&KGOLrace = 3 & dynamic $KGOLklassvibor
		end
	end

	if karta >= 1000:
		act 'Payment akkuaunta':
		karta -= 1000
		KFOnLineReaga += 30
		gt $curloc
		end

	end

	if karta > 0:
		act 'Donat money in the game (1rub = 1moneta)':
		cla
		KGOLdonat = input("Сколько денег вы хотите задонатить?")
			if KGOLdonat <= 0 or KGOLdonat < karta:
			msg 'Not valid operation'
			else
			karta -= KGOLdonat
			KGOLmoney += KGOLdonat
			msg 'Transferred to your account <<KGOLdonat>> coins'
			end
		gt $curloc
		end
	end

else
'Welcome to the online game Vertep World'
'To play this game you have to pay 1,000 rubles for 30 days with a credit card.'
	if karta >= 1000:
		act 'Payment':
		karta -= 1000
		KFOnLineReaga += 30
		gt $curloc
		end

	end

end

act 'Exit': gt 'Komp','start'
--- KGstart ---------------------------------

# KGOLgame
minut += 1
gs 'stat'
if KGOLset = 0:$KGOLset = 'On the head there is nothing'
if KGOLset2 = 0:$KGOLset2 = 'Body simple clothes'
if KGOLset3 = 0:$KGOLset3 = 'Simple shoes on his feet'
if KGOLset4 = 0:$KGOLset4 = 'No gloves on hands'
if KGOLset5 = 0:$KGOLset5 = 'No weapon'
$KGOLstat = {
clr
pl '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
pl '<a href="exec:dynamic $KGOLstat2 ">Close Statistics</a>'
if KGOLneedExp > 0: pl 'Total experiment <<KGOLexp>>, it is necessary to next level <<KGOLneedExp>> experience'
if KGOLneedExp <= 0: pl '<a href="exec:dynamic $KGOLrise "><font color = red>You need to increase the level.</font></a>'
pl 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, the bonus damage from weapons <<KGOLwpower>>'
nl
pl '<center>Exodus</center>'
pl '<<$KGOLset>>'
pl '<<$KGOLset2>>'
pl '<<$KGOLset3>>'
pl '<<$KGOLset4>>'
pl '<<$KGOLset5>>'
nl
pl '<center>Equipment</center>'
if KGOLpotionH > 0: pl 'Health potions <<KGOLpotionH>> pieces. <a href="exec:KGOLpotionH -= 1 & KGHP += 100 & gs ''stat''&gt $curloc "><font color = red>Drink.</font></a>'
if KGOLpotionM > 0: pl 'Mana potions <<KGOLpotionM>> pieces. <a href="exec:KGOLpotionM -= 1 & KGManna += 100 & gs ''stat''&gt $curloc "><font color = red>Drink.</font></a>'

pl '<center>PVE</center>'
pl 'Ratio <<KGOLWin>>, losses <<KGOLLoss>>'
pl '<center>PVP</center>'
pl 'Ratio <<KGOLpvpWin>>, losses <<KGOLpvpLoss>>'
}
$KGOLstat2 = {
gs 'stat'
}
KGHPMAX = KGOLvital * 10
KGMannaMax = KGOLintel * 10
if KGHP > KGHPMAX: KGHP = KGHPMAX
if KGManna > KGMannaMax: KGManna = KGMannaMax
KGOLbrona -= KGOLbronaMod
KGOLbronaMod = 0
KGOLstren -= KGOLstrenMod
KGOLstrenMod = 0
KGOLspeed -= KGOLspeedMod
KGOLspeedMod = 0
KGOLvital -= KGOLvitalMod
KGOLvitalMod = 0
KGOLintel -= KGOLintelMod
KGOLintelMod = 0
KGOLwpower -= KGOLwpowerMod
KGOLwpowerMod = 0
KGOLcooldown = 0

if KGHP < KGHPMAX and KGOLhirka > 0:
kghneed = KGHPMAX - KGHP
	if KGOLhirka >= kghneed:
	KGOLhirka -= kghneed
	KGHP = KGHPMAX
	else
	KGHP = KGOLhirka
	KGOLhirka = 0
	end
end
if KGHP < 0: KGHP = 0

gs 'KGOLexpa'
'<a href="exec:GT ''KGstart''">Get out of the game</a>'
'<a href="exec:dynamic $KGOLstat ">View Statistics</a>'
'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
'Life <<KGHP>>, the manna <<KGManna>>'
if KGHP < KGHPMAX: 'You´ve got <<KGHP*100/KGHPMAX>>% of life'
if KGManna < KGMannaMax: 'You´ve got <<KGManna*100/KGMannaMax>>% of manna'
if KGOLhirka > 0: 'Hirka can restore automatically <<KGOLhirka>> health units'
if KGOLPrizeM > 0: 'You have <<KGOLmoney>> coins'
if KGOLneedExp <= 0: '<a href="exec: dynamic $KGOLrise "><font color = red>You need to increase the level.</font></a>'
if KGOLpoint > 0: '<a href="exec: dynamic $KGOLrise "><font color = red>You have not allocated skill points.</font></a>'
if KGOLspellpoint >= 4: '<a href="exec: dynamic $KGOLrise2 "><font color = red>You can choose your skill.</font></a>'
'<<KGOLspellpoint>>'
''

'<center><B>Countryside</B></center>'
'You are in the picturesque village where to spawn characters stand motionless. NPC standing pillars and in the distance one can see the monsters.'

act 'Approach the NPC':
cls
minut += 1
	if KGOLmqw = 12 and KGOLlvl >= 5:
	KGOLmqw = 13
	'(NPS) - <<$KGOLname>> you need to kill the royal 10t beetles. Reward 200 experience.'
	end

	if KGOLmqw = 13 and KGOLqwvip >= 10:
	KGOLqwvip = 0
	KGOLmqw = 14
	KGOLexp += 200
	'(NPS) - <<$KGOLname>> congratulations, that´s a reward of 200 experience.'
	end

	if KGOLmqw = 10 and KGOLlvl >= 5:
	KGOLmqw = 11
	'(NPS) - <<$KGOLname>> you need to kill toads 10t. Reward 100 experience.'
	end

	if KGOLmqw = 11 and KGOLqwvip >= 10:
	KGOLqwvip = 0
	KGOLmqw = 12
	KGOLexp += 100
	'(NPS) - <<$KGOLname>> congratulations, that´s a reward of 100 experience.'
	end

	if KGOLmqw = 8:
	KGOLmqw = 9
	'(NPS) - <<$KGOLname>> you need to kill 30t young cacti. Then I´ll give you a helmet.'
	end

	if KGOLmqw = 9 and KGOLqwvip >= 30:
	KGOLqwvip = 0
	KGOLmqw = 10
	KGOLset = 1
	KGOLbrona += 2
	$KGOLset = 'Helm of rough skin'
	'(NPS) - <<$KGOLname>> congratulations, here´s your helmet.'
	end

	if KGOLmqw = 6:
	KGOLmqw = 7
	'(NPS) - <<$KGOLname>> you need to kill wolves 25t toothless. Then I´ll give you mittens.'
	end

	if KGOLmqw = 7 and KGOLqwvip >= 25:
	KGOLqwvip = 0
	KGOLmqw = 8
	KGOLset4 = 1
	KGOLbrona += 2
	$KGOLset4 = 'Gauntlets of rough skin'
	'(NPS) - <<$KGOLname>> congratulations, here´s your mittens.'
	end

	if KGOLmqw = 4:
	KGOLmqw = 5
	'(NPS) - <<$KGOLname>> you need to kill 20t sundews. Then I will give you boots.'
	end

	if KGOLmqw = 5 and KGOLqwvip >= 20:
	KGOLqwvip = 0
	KGOLmqw = 6
	KGOLset3 = 1
	KGOLbrona += 2
	$KGOLset3 = 'Rugged Leather Boots'
	'(NPS) - <<$KGOLname>> congratulations, here are your boots.'
	end

	if KGOLmqw = 2:
	KGOLmqw = 3
	'(NPS) - <<$KGOLname>> you need to kill 10t rainbow beetles. Then I will give you armor.'
	end

	if KGOLmqw = 3 and KGOLqwvip >= 10:
	KGOLqwvip = 0
	KGOLmqw = 4
	KGOLset2 = 1
	KGOLbrona += 10
	$KGOLset2 = 'Simple armor'
	'(NPS) - <<$KGOLname>> congratulations, here´s your armor.'
	end

	if KGOLmqw = 0:
	KGOLmqw = 1
	'(NPS) - <<$KGOLname>> you need to kill prey 5t colors. Then I´ll give you a weapon.'
	end

	if KGOLmqw = 1 and KGOLqwvip >= 5:
	KGOLqwvip = 0
	KGOLmqw = 2
	KGOLset5 = 1
	KGOLwpower = 10
	if KGOLklass = 1 or KGOLklass = 6:$KGOLset5 = 'In the hands of a simple sword'
	if KGOLklass = 2:$KGOLset5 = 'In the hands of ordinary daggers'
	if KGOLklass = 3 or KGOLklass = 4:$KGOLset5 = 'In the hands of a simple staff'
	if KGOLklass = 5:$KGOLset5 = 'In the hands of a simple bow'
	'(NPS) - <<$KGOLname>> congratulations, here´s your gun.'
	end
act 'Leave': gt $curloc
end

act 'Go to the store':
cls
minut += 1
	if KGOLmoney >= 300:
		act 'Buy health potion 300':
		KGOLmoney -= 300
		KGOLpotionH += 1
		gt $curloc
		end
	end
	if KGOLmoney >= 300:
		act 'Buy a potion of mana 300':
		KGOLmoney -= 300
		KGOLpotionM += 1
		gt $curloc
		end
	end
	if KGOLmoney >= 1500 and KGOLhirka <= 0:
		act 'Buy hirka 1500':
		KGOLmoney -= 1500
		KGOLhirka += 10000
		gt $curloc
		end
	end
act 'Leave': gt $curloc
end

if KGHP < KGHPMAX or KGManna<KGMannaMax:
	act 'Regenerate (1:00)':
	cls
	minut += 60
	KGHP = KGHPMAX
	KGManna = KGMannaMax
	'It was very sad. You´ve been sitting for an hour to regenerate your character. But free.'
	act 'Leave': gt $curloc
	end
end

if KGHP > 0:
	act 'Farm near the village':
	cls
	minut += 1
	KGOLdist = RAND(1,10)
	'On a variety of monsters roam the field'
		act 'Predatory flower':
		gs 'KGOLenemy','0'
		gt 'KGOLfight'
		end

		act 'Iridescent beetle':
		gs 'KGOLenemy','1'
		gt 'KGOLfight'
		end

		act 'Sundew':
		gs 'KGOLenemy','2'
		gt 'KGOLfight'
		end

		act 'Toothless dog':
		gs 'KGOLenemy','3'
		gt 'KGOLfight'
		end

		act 'Young cactus':
		gs 'KGOLenemy','4'
		gt 'KGOLfight'
		end
	end
end

if KGOLlvl >= 5 and KGHP > 0:
	act 'Farm near the mill':
	cls
	minut += 1
	KGOLdist = RAND(1,10)
	'Mill about a variety of monsters roam'
		act 'Toad':
		gs 'KGOLenemy','5'
		gt 'KGOLfight'
		end

		act 'Royal beetle':
		gs 'KGOLenemy','6'
		gt 'KGOLfight'
		end

		act 'Spotted mantis':
		gs 'KGOLenemy','7'
		gt 'KGOLfight'
		end

		act 'Plague Rat':
		gs 'KGOLenemy','8'
		gt 'KGOLfight'
		end

		act 'Prickly cactus':
		gs 'KGOLenemy','9'
		gt 'KGOLfight'
		end
	end

	act 'Boss Level 5':
	gs 'KGOLboss','1'
	gt 'KGOLfight'
	end

end
--- KGOLgame ---------------------------------

# KGOLenemy
if $ARGS[0] = '0':
$KGname = 'Predatory flower'
KGOLstrenV = 10
KGOLspeedV = 10
KGOLvitalV = 10
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(1,3)
KGOLPrizeM = RAND(10,30)
KGOLennum = 0
KGOLbronaV = 0
KGOLneedDist = 10
KGOLpowerV = KGOLintelV
end

if $ARGS[0] = '1':
$KGname = 'Iridescent beetle'
KGOLstrenV = 20
KGOLspeedV = 10
KGOLvitalV = 10
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(2,5)
KGOLPrizeM = RAND(15,35)
KGOLennum = 1
KGOLbronaV = 0
KGOLneedDist = 4
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '2':
$KGname = 'Sundew'
KGOLstrenV = 20
KGOLspeedV = 20
KGOLvitalV = 10
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(3,7)
KGOLPrizeM = RAND(20,40)
KGOLennum = 2
KGOLbronaV = 0
KGOLneedDist = 5
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '3':
$KGname = 'Toothless dog'
KGOLstrenV = 25
KGOLspeedV = 20
KGOLvitalV = 20
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(5,10)
KGOLPrizeM = RAND(30,50)
KGOLennum = 3
KGOLbronaV = 0
KGOLneedDist = 5
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '4':
$KGname = 'Young cactus'
KGOLstrenV = 25
KGOLspeedV = 25
KGOLvitalV = 20
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(7,14)
KGOLPrizeM = RAND(35,60)
KGOLennum = 4
KGOLbronaV = 0
KGOLneedDist = 6
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '5':
$KGname = 'Toad'
KGOLstrenV = 25
KGOLspeedV = 30
KGOLvitalV = 25
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(10,18)
KGOLPrizeM = RAND(40,65)
KGOLennum = 5
KGOLbronaV = 0
KGOLneedDist = 6
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '6':
$KGname = 'Royal beetle'
KGOLstrenV = 25
KGOLspeedV = 30
KGOLvitalV = 35
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(12,20)
KGOLPrizeM = RAND(45,65)
KGOLennum = 6
KGOLbronaV = 0
KGOLneedDist = 4
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '7':
$KGname = 'Spotted mantis'
KGOLstrenV = 35
KGOLspeedV = 30
KGOLvitalV = 35
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(14,22)
KGOLPrizeM = RAND(50,70)
KGOLennum = 7
KGOLbronaV = 0
KGOLneedDist = 4
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '8':
$KGname = 'Plague Rat'
KGOLstrenV = 40
KGOLspeedV = 30
KGOLvitalV = 40
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(16,24)
KGOLPrizeM = RAND(55,75)
KGOLennum = 8
KGOLbronaV = 0
KGOLneedDist = 4
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '9':
$KGname = 'Prickly cactus'
KGOLstrenV = 40
KGOLspeedV = 40
KGOLvitalV = 40
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(18,20)
KGOLPrizeM = RAND(60,85)
KGOLennum = 9
KGOLbronaV = 0
KGOLneedDist = 4
KGOLpowerV = KGOLstrenV
end

if $ARGS[0] = '10':

end
--- KGOLenemy ---------------------------------

# KGOLboss
if $ARGS[0] = '1':
$KGname = 'BOSS "Blue rat"'
KGOLstrenV = 30
KGOLspeedV = 30
KGOLvitalV = 100
KGOLintelV = 10
KGHPV = KGOLvitalV * 10
KGMannaV = KGOLintelV * 10
KGOLPrizeExp = RAND(25,50)
KGOLPrizeM = RAND(150,350)
KGOLennumBoss = 1
KGOLbronaV = 0
KGOLneedDist = 3
KGOLpowerV = KGOLstrenV
KGOLennum = -1
end

if $ARGS[0] = '2':

end

if $ARGS[0] = '3':

end

if $ARGS[0] = '4':

end

if $ARGS[0] = '5':

end
--- KGOLboss ---------------------------------

# KGOLfight
minut += 1
gs 'stat'
if otkathirki > 0: otkathirki -= 1

if KGHP < KGHPMAX and KGOLhirka > 0 and otkathirki <= 0:
kghneed = KGHPMAX - KGHP
otkathirki = 3
	if KGOLhirka >= kghneed:
	KGOLhirka -= kghneed
	KGHP = KGHPMAX
	else
	KGHP = KGOLhirka
	KGOLhirka = 0
	end
end
if KGOLdist < 0: KGOLdist = 0
if KGOLtimer > 0:
KGOLtimer -= 1
	if KGOLtimer <= 0:
	KGOLbrona -= KGOLbronaMod
	KGOLbronaMod = 0
	KGOLstren -= KGOLstrenMod
	KGOLstrenMod = 0
	KGOLspeed -= KGOLspeedMod
	KGOLspeedMod = 0
	KGOLvital -= KGOLvitalMod
	KGOLvitalMod = 0
	KGOLintel -= KGOLintelMod
	KGOLintelMod = 0
	KGOLwpower -= KGOLwpowerMod
	KGOLwpowerMod = 0
	end
end
if unvis > 0: 'You are invisible'
if poison > 0: poison -= 1 & KGHPV -= KGOLspell4 * 10 & 'The poison causes damage to the enemy <<KGOLspell4*10>>'
if firecircle > 0: firecircle -= 1 & KGHPV -= KGOLspell9 * 50 & 'Circle of fire causes damage to the enemy <<KGOLspell9*50>>'
'Life <<KGHP>>, the manna <<KGManna>>'
'<<$KGname>> Life <<KGHPV>>manna <<KGMannaV>>'
if KGOLhirka > 0: 'Hirka can restore automatically <<KGOLhirka>> health units'
if otkathirki > 0: 'Hirka retrace through <<otkathirki>> moves.'
'Distance <<KGOLdist>>'
if KGOLtimer > 0: 'Obkast will act more <<KGOLtimer>> Rounds'
if KGOLcooldown > 0: 'Rollback skills completed by <<KGOLcooldown>> Rounds'
!конец боя
if KGHP <= 0:
KGOLloss += 1
poison = 0
firecircle = 0
manna -= 100
'You lost the fight'
act 'Go to Rep.': gt 'KGOLgame'
exit
end
if KGHPV <= 0:
poison = 0
firecircle = 0
KGOLWin += 1
KGOLmoney += KGOLPrizeM
KGOLexp += KGOLPrizeExp
manna += 100
'<<$KGname>> fell. You win the fight.'
'You got <<KGOLPrizeM>> coins and <<KGOLPrizeExp>> experience'
if KGOLennumBoss = 1 and boss5lvl = 0: boss5lvl = 1 & KGOLhirka += 5000 & 'With boss tumbled small hirka'
if KGOLennum = 0 and KGOLmqw = 1: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 1 and KGOLmqw = 3: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 2 and KGOLmqw = 5: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 3 and KGOLmqw = 7: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 4 and KGOLmqw = 9: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 5 and KGOLmqw = 11: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
if KGOLennum = 6 and KGOLmqw = 13: KGOLqwvip += 1 & 'Another mob zafarmlen quest for'
act 'Disengage': gt 'KGOLgame'
exit
end
!инициатива
KGOLiniV = RAND(KGOLspeedV/2, KGOLspeedV * 2)
KGOLini = RAND(KGOLspeed/2, KGOLspeed * 2)
if KGOLini = KGOLiniV:
hodrand = RAND(0,1)
if hodrand = 0: KGOLini = 1 & KGOLiniV = 0
if hodrand = 1: KGOLini = 0 & KGOLiniV = 1
end
if KGOLini > KGOLiniV: KGOLiniSUM += 1
if KGOLini < KGOLiniV: KGOLiniSUM -= 1
if KGOLiniSUM > 3: KGOLini = 0 & KGOLiniV = 1 & KGOLiniSUM = 0
if KGOLiniSUM<-3: KGOLini = 1 & KGOLiniV = 0 & KGOLiniSUM = 0
!ходы
if KGOLini > KGOLiniV or unvis > 0:
'Now your turn'
	if KGOLklass = 1:
	!воин
		if KGOLdist < 3:
		act 'Attack':
		cla
		KGOLpower = KGOLstren + KGOLwpower
		dynamic $KGOLatk
		act 'Further': gt $curloc
		end

		if KGOLspell > 0 and KGManna >= KGOLspell * 10:
		act 'Powerful blow (<<KGOLspell*10>> manna)':
				cla
				KGManna -= KGOLspell
				KGOLpower = KGOLstren + KGOLwpower+(KGOLspell * 100)
				dynamic $KGOLatk
				act 'Further': gt $curloc
				end
		end

		if KGOLspell2 > 0 and KGManna >= KGOLspell2 * 10:
		act 'Multiple shot (<<KGOLspell2*10>> manna)':
				cla
				KGManna -= KGOLspell2
				KGOLpower = KGOLstren + KGOLwpower
				KGLOloop = KGOLspell2 + 1
				dynamic $KGOLatkKGOLspell2
				act 'Further': gt $curloc
				end
		end

		if KGOLspell3 > 0 and KGManna >= KGOLspell3 * 10 and KGOLcooldown <= 0:
		act 'Increase armor (<<KGOLspell3*10>> manna)':
				cla
				KGManna -= KGOLspell3
				KGOLbronaMod += KGOLspell3 * 5
				KGOLtimer += KGOLspell3 + 1
				KGOLcooldown += KGOLspell3 + 3
				act 'Further': gt $curloc
				end
		end
		end
	elseif KGOLklass = 2:
	!вор
		if KGOLdist < 5:
		act 'Attack':
		cla
		KGOLpower = KGOLstren + KGOLwpower
		dynamic $KGOLatk
		act 'Further': gt $curloc
		end

		if KGOLspell4 > 0 and KGManna >= KGOLspell4 * 10:
		act 'Sneaky shot (<<KGOLspell4*10>> manna)':
				cla
				KGManna -= KGOLspell4
				KGOLpower = KGOLstren + KGOLwpower+(KGOLspell5 * 100)
				dynamic $KGOLatk
				act 'Further': gt $curloc
				end
		end

		if KGOLspell5 > 0 and KGManna >= KGOLspell5 * 10:
		act 'Poison Blade (<<KGOLspell5*10>>manna)':
				cla
				KGManna -= KGOLspell5
				KGOLpower = KGOLstren + KGOLwpower
				dynamic $KGOLatkPoison
				act 'Further': gt $curloc
				end
		end

		if KGOLspell6 > 0 and KGManna >= KGOLspell6 * 10 and KGOLcooldown <= 0:
		act 'Invisibility (<<KGOLspell6*10>> manna)':
				cla
				KGManna -= KGOLspell6
				unvis += KGOLspell6 + 1
				KGOLcooldown += KGOLspell6 + 3
				act 'Further': gt $curloc
				end
		end
		end
	elseif KGOLklass = 3:
	!маг
		act 'Attack':
		cla
		KGOLpower = KGOLintel + KGOLwpower
		dynamic $KGOLatk
		act 'Further': gt $curloc
		end

		if KGOLspell7 > 0 and KGManna >= KGOLspell7 * 10:
			act 'Faerboll (<<KGOLspell7*10>> manna)':
			cla
			KGManna -= KGOLspell7
			KGOLpower = RAND(KGOLspell7 * 100, KGOLspell7 * 200)
			dynamic $KGOLatkFB
			act 'Further': gt $curloc
			end
		end

		if KGOLspell8 > 0 and KGManna >= KGOLspell8 * 10:
			act 'Dropping (<<KGOLspell5*10>> manna)':
			cla
			KGManna -= KGOLspell5
			KGOLdist += RAND(KGOLspell5 * 10, KGOLspell5 * 50)
			'You flung the enemy and now the distance between you <<KGOLdist>> meter'
			act 'Further': gt $curloc
			end
		end

		if KGOLspell9 > 0 and KGManna >= KGOLspell9 * 10 and KGOLcooldown <= 0:
			act 'Circle of fire (<<KGOLspell9*10>> manna)':
			cla
			KGManna -= KGOLspell9
			firecircle += KGOLspell9 + 1
			KGOLcooldown += KGOLspell9 + 3
			'Everything around you is burning hellfire'
			act 'Further': gt $curloc
			end
		end
	elseif KGOLklass = 4:
	!жрец
		act 'Attack':
		cla
		KGOLpower = KGOLintel + KGOLwpower
		dynamic $KGOLatk
		act 'Further': gt $curloc
		end
	elseif KGOLklass = 5:
	!лучник
		act 'Attack':
		cla
		KGOLpower = KGOLspeed + KGOLwpower
		dynamic $KGOLatk
		act 'Further': gt $curloc
		end
	else
	!варвар
		if KGOLdist < 2:
		act 'Attack':
			cla
			KGOLpower = KGOLstren + KGOLwpower
			dynamic $KGOLatk
			act 'Further': gt $curloc
			end
		end
	end

	if KGOLdist > 0:
		act 'Flee to the enemy':
		KGOLdist -= RAND(KGOLspeed/20, KGOLspeed/10)
		gt $curloc
		end
	end

	act 'Flee from the enemy':
	KGOLdist += RAND(KGOLspeed/20, KGOLspeed/10)
	gt $curloc
	end

	if KGOLpotionH > 0:
		act 'Drink a health potion':
		KGOLpotionH -= 1
		KGHP += 100
		gt $curloc
		end
	end

	if KGOLpotionM > 0:
		act 'Drink the potion manna':
		KGOLpotionM -= 1
		KGManna += 100
		gt $curloc
		end
	end
else
'Now opponents'
	if KGOLdist <= KGOLneedDist:
	'<<$KGname>> attacks you'
	dynamic $KGOLatkV
	else
	KGOLdist -= RAND(KGOLspeedV/20, KGOLspeedV/10)
	'<<$KGname>> running toward you'
	end

	act 'Further': gt $curloc
end
--- KGOLfight ---------------------------------

# KGOLexpa
KGOLneedExpNextLvl=(KGOLlvl * 10)*KGOLlvl
KGOLneedExp = KGOLneedExpNextLvl - KGOLexp
if KGOLneedExp <= 0 and KGOLlvl > KGOLlvlr: KGOLlvlr = KGOLlvl & KGOLpoint += 10 & KGOLspellpoint += 1 & KGOLlvl += 1 & KGOLexp = 0

$KGOLatk = {
KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV)
KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2)
if KGOLataka >= KGOLzasV:
	if KGOLataka >= KGOLzasV * 2:
	KGHPnpow = RAND(KGOLpower/2, KGOLpower)
	KGHPV -= KGHPnpow
	'<font color = green>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(KGOLpower/10, KGOLpower/4)
	KGHPntpow = KGHPnpow - KGOLbronaV
	if KGHPntpow <= 0: KGHPntpow = 1
	KGHPV -= KGHPnpow
	'<font color = blue>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = red><<$KGname>> dodged your attack</font>'
end
}
$KGOLatkPoison = {
KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV)
KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2)
if KGOLataka >= KGOLzasV:
poison += KGOLspell4 + 1
	if KGOLataka >= KGOLzasV * 2:
	KGHPnpow = RAND(KGOLpower/2, KGOLpower)
	KGHPV -= KGHPnpow
	'<font color = green>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(KGOLpower/10, KGOLpower/4)
	KGHPntpow = KGHPnpow - KGOLbronaV
	if KGHPntpow <= 0: KGHPntpow = 1
	KGHPV -= KGHPnpow
	'<font color = blue>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = red><<$KGname>> dodged your attack</font>'
end
}
$KGOLatkFB = {
KGHPV -= KGOLpower
'<font color = green>Faerbol inflicts damage <<KGOLpower>> U</font>'
}
$KGOLatkV = {
KGOLzas = RAND(KGOLspeed/4, KGOLspeed)
KGOLatakaV = RAND(KGOLspeedV/2, KGOLspeedV * 2)
if KGOLatakaV >= KGOLzas:
	if KGOLatakaV >= KGOLzas * 2:
	KGHPnpow = RAND(KGOLpowerV/2, KGOLpowerV)
	KGHP -= KGHPnpow
	'<font color = red>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(KGOLpowerV/10, KGOLpowerV/4)
	KGHPntpow = KGHPnpow - KGOLbrona
	if KGHPntpow <= 0: KGHPntpow = 1
	KGHP -= KGHPnpow
	'<font color = brown>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = green>You dodged the attack</font>'
end
}

$KGOLrise = {
cls
'<center><B>increasing the screen layer</B></center>'
'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>'
'Improve skills points available <<KGOLpoint>>'
if KGOLpoint > 0:
	act 'Force':
	KGOLstren += 1
	KGOLpoint -= 1
	dynamic $KGOLrise
	end

	act 'Speed ​​/Dodge':
	KGOLspeed += 1
	KGOLpoint -= 1
	dynamic $KGOLrise
	end

	act 'Endurance':
	KGOLvital += 1
	KGOLpoint -= 1
	dynamic $KGOLrise
	end

	act 'Intelligence':
	KGOLintel += 1
	KGOLpoint -= 1
	dynamic $KGOLrise
	end
end

act 'Exit the screen improve': gt 'KGOLgame'
}
$KGOLrise2 = {
cls
'<center><B>Screen skills</B></center>'
'Available skill points increase <<KGOLspellpoint/4>>'
''
if KGOLspellpoint >= 4:
if KGOLklass = 1:
!воин
'Powerful punch Skill =<<KGOLspell>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Multiple blow Skill =<<KGOLspell2>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell2 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Increased armor Skill =<<KGOLspell3>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell3 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
elseif KGOLklass = 2:
!вор
'Sneaky blow Skill =<<KGOLspell4>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell4 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Poison Blade, Skill =<<KGOLspell5>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell5 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Invisibility Skill =<<KGOLspell6>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell6 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
elseif KGOLklass = 3:
!маг
'Faerbol, Skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell7 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Dropping, Skill =<<KGOLspell8>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell8 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Circle of fire, Skill =<<KGOLspell9>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell9 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
elseif KGOLklass = 4:
!жрец
'Hit, Skill =<<KGOLspell10>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell10 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Treatment Skill =<<KGOLspell11>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell11 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Obkast, Skill =<<KGOLspell12>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell12 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
elseif KGOLklass = 5:
!лучник
'Powerful shot, Skill =<<KGOLspell13>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell13 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Triple shot, Skill =<<KGOLspell14>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell14 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Regen mana Skill =<<KGOLspell15>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell15 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
else
!варвар
'Thunderbolt, Skill =<<KGOLspell16>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell16 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Stan Skill =<<KGOLspell17>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell17 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
'Recovery, Skill =<<KGOLspell18>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell18 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
end
end
act 'Exit the screen skills': gt 'KGOLgame'
}


$KGOLatkKGOLspell2 = {
:multiloop
KGLOloop -= 1
dynamic $KGOLatk
if KGLOloop > 0: jump 'multiloop'
}
--- KGOLexpa ---------------------------------

# KGDstart
'<center><B>Disopl</B></center>'
''

if KGDsave > 0: act 'Load a saved game': gt 'KGDgame'

act 'Play a new game':
KGDsave = 1
KGDmoney = 1000
KGDHP = 100
KGDlvl = 1
KGDexp = 0
KGDdam = 10
KGDkarta = 5
KGDsput2 = 0
KGDsput3 = 0
KGDsput4 = 0
KGDsput5 = 0
KGDsput6 = 0
KGDday = 1
KGDfarm = 0
KGDlvlr = 0
KGDlvlr2 = 0
KGDlvlr3 = 0
KGDlvlr4 = 0
KGDlvlr5 = 0
KGDlvlr6 = 0
KGDpartyCreate = 0
gt 'KGDgame'
end


act 'Exit': gt 'Komp','start'
--- KGDstart ---------------------------------

# KGDgame
minut += 1
gs 'stat'
gs 'KGDexp'
'<center><B>Date <<KGDday>></B></center>'
'<center><B>Your town</B></center>'
'<center>Buildings</center>'
'Tower Hero, which stores <<KGDmoney>> Resources'
'Farms <<KGDfarm>> pieces'
''
'<center><B>List Party hero (6t people maximum)</B></center>'
'Hero. Level <<KGDlvl>>Life <<KGDHP>>Done <<KGDdam>>'
if KGDsput2 > 0: '<<$KGDname2>>. Level <<KGDlvl2>>Life <<KGDHP2>>Done <<KGDdam2>>'
if KGDsput3 > 0: '<<$KGDname3>>. Level <<KGDlvl3>>Life <<KGDHP3>>Done <<KGDdam3>>'
if KGDsput4 > 0: '<<$KGDname4>>. Level <<KGDlvl4>>Life <<KGDHP4>>Done <<KGDdam4>>'
if KGDsput5 > 0: '<<$KGDname5>>. Level <<KGDlvl5>>Life <<KGDHP5>>Done <<KGDdam5>>'
if KGDsput6 > 0: '<<$KGDname6>>. Level <<KGDlvl6>>Life <<KGDHP6>>Done <<KGDdam6>>'
''
'<center><B>Brands for</B></center>'
'Do you own <<KGDkarta>>% of'


act 'Next Day':
cls
KGDbrod = 0
KGDday += 1
KGDmoney += KGDkarta * 5 + KGDfarm * 10
gt $curloc
end

if KGDmoney >= 150 and KGDfarm > KGDkarta:
	act 'Build a farm (150 resources)':
	cls
	KGDmoney -= 150
	KGDfarm += 1
	gt $curloc
	end
end

	act 'Arrange the soldiers':
	cls
	KGDpartyCreate = 1
	$kgdplace = '1st place empty'
	$kgdplace2 = '2nd place is empty'
	$kgdplace3 = '3rd place is empty'
	$kgdplace4 = '4th place is empty'
	$kgdplace5 = '5th place is empty'
	$kgdplace6 = '6th place is empty'
	kgdplace = 0
	kgdplace2 = 0
	kgdplace3 = 0
	kgdplace4 = 0
	kgdplace5 = 0
	kgdplace6 = 0
	gt 'KGDparty'
	end

if KGDbrod = 0 and KGDpartyCreate > 0:
	act 'Win territory':
	cls
	KGDbrod = 1

	gt 'KGDbefore'
	end
end



if KGDsput6 = 0 and KGDmoney >= 250:
	act 'Hire a satellite (250 resources)':
	cls
	KGDmoney -= 250
	KGDpartyCreate = 0
		act 'Warrior':
			if KGDsput2 = 0:
			$KGDname2 = 'Warrior'
			KGDlvl2 = 1
			KGDHP2 = 100
			KGDdam2 = 10
			KGDsput2 = 1
			KGDexp2 = 0
			gt $curloc
			exit
			end

			if KGDsput3 = 0:
			$KGDname3 = 'Warrior'
			KGDlvl3 = 1
			KGDHP3 = 100
			KGDdam3 = 10
			KGDsput3 = 1
			KGDexp3 = 0
			gt $curloc
			exit
			end

			if KGDsput4 = 0:
			$KGDname4 = 'Warrior'
			KGDlvl4 = 1
			KGDHP4 = 100
			KGDdam4 = 10
			KGDsput4 = 1
			KGDexp4 = 0
			gt $curloc
			exit
			end

			if KGDsput5 = 0:
			$KGDname5 = 'Warrior'
			KGDlvl5 = 1
			KGDHP5 = 100
			KGDdam5 = 10
			KGDsput5 = 1
			KGDexp5 = 0
			gt $curloc
			exit
			end

			if KGDsput6 = 0:
			$KGDname6 = 'Warrior'
			KGDlvl6 = 1
			KGDHP6 = 100
			KGDdam6 = 10
			KGDsput6 = 1
			KGDexp6 = 0
			gt $curloc
			exit
			end

		end

		act 'Magician':
			if KGDsput2 = 0:
			$KGDname2 = 'Magician'
			KGDlvl2 = 1
			KGDHP2 = 60
			KGDdam2 = 20
			KGDsput2 = 1
			KGDexp2 = 0
			gt $curloc
			exit
			end

			if KGDsput3 = 0:
			$KGDname3 = 'Magician'
			KGDlvl3 = 1
			KGDHP3 = 60
			KGDdam3 = 20
			KGDsput3 = 1
			KGDexp3 = 0
			gt $curloc
			exit
			end

			if KGDsput4 = 0:
			$KGDname4 = 'Magician'
			KGDlvl4 = 1
			KGDHP4 = 60
			KGDdam4 = 20
			KGDsput4 = 1
			KGDexp4 = 0
			gt $curloc
			exit
			end

			if KGDsput5 = 0:
			$KGDname5 = 'Magician'
			KGDlvl5 = 1
			KGDHP5 = 60
			KGDdam5 = 20
			KGDsput5 = 1
			KGDexp5 = 0
			gt $curloc
			exit
			end

			if KGDsput6 = 0:
			$KGDname6 = 'Magician'
			KGDlvl6 = 1
			KGDHP6 = 60
			KGDdam6 = 20
			KGDsput6 = 1
			KGDexp6 = 0
			gt $curloc
			exit
			end

		end

		act 'Archer':
			if KGDsput2 = 0:
			$KGDname2 = 'Archer'
			KGDlvl2 = 1
			KGDHP2 = 80
			KGDdam2 = 15
			KGDsput2 = 1
			KGDexp2 = 0
			gt $curloc
			exit
			end

			if KGDsput3 = 0:
			$KGDname3 = 'Archer'
			KGDlvl3 = 1
			KGDHP3 = 80
			KGDdam3 = 15
			KGDsput3 = 1
			KGDexp3 = 0
			gt $curloc
			exit
			end

			if KGDsput4 = 0:
			$KGDname4 = 'Archer'
			KGDlvl4 = 1
			KGDHP4 = 80
			KGDdam4 = 15
			KGDsput4 = 1
			KGDexp4 = 0
			gt $curloc
			exit
			end

			if KGDsput5 = 0:
			$KGDname5 = 'Archer'
			KGDlvl5 = 1
			KGDHP5 = 80
			KGDdam5 = 15
			KGDsput5 = 1
			KGDexp5 = 0
			gt $curloc
			exit
			end

			if KGDsput6 = 0:
			$KGDname6 = 'Archer'
			KGDlvl6 = 1
			KGDHP6 = 80
			KGDdam6 = 15
			KGDsput6 = 1
			KGDexp6 = 0
			gt $curloc
			exit
			end

		end

		act 'Priest':
			if KGDsput2 = 0:
			$KGDname2 = 'Priest'
			KGDlvl2 = 1
			KGDHP2 = 40
			KGDdam2 = 20
			KGDsput2 = 1
			KGDexp2 = 0
			gt $curloc
			exit
			end

			if KGDsput3 = 0:
			$KGDname3 = 'Priest'
			KGDlvl3 = 1
			KGDHP3 = 40
			KGDdam3 = 20
			KGDsput3 = 1
			KGDexp3 = 0
			gt $curloc
			exit
			end

			if KGDsput4 = 0:
			$KGDname4 = 'Priest'
			KGDlvl4 = 1
			KGDHP4 = 40
			KGDdam4 = 20
			KGDsput4 = 1
			KGDexp4 = 0
			gt $curloc
			exit
			end

			if KGDsput5 = 0:
			$KGDname5 = 'Priest'
			KGDlvl5 = 1
			KGDHP5 = 40
			KGDdam5 = 20
			KGDsput5 = 1
			KGDexp5 = 0
			gt $curloc
			exit
			end

			if KGDsput6 = 0:
			$KGDname6 = 'Priest'
			KGDlvl6 = 1
			KGDHP6 = 40
			KGDdam6 = 20
			KGDsput6 = 1
			KGDexp6 = 0
			gt $curloc
			exit
			end

		end
	end
end

act 'Quit Game': gt 'Komp','start'
--- KGDgame ---------------------------------

# KGDexp
KGDneedExpNextLvl=(KGDlvl * 10)*KGDlvl
KGDneedExp = KGDneedExpNextLvl - KGDexp
if KGDneedExp <= 0 and KGDlvl > KGDlvlr: KGDlvlr = KGDlvl & KGDlvl += 1 & KGDexp = 0 & KGDHP += 10 & KGDdam += 5

KGDneedExpNextLvl2=(KGDlvl2 * 10)*KGDlvl2
KGDneedExp2 = KGDneedExpNextLvl2 - KGDexp2
if KGDneedExp2 <= 0 and KGDlvl2 > KGDlvlr2: KGDlvlr2 = KGDlvl2 & KGDlvl2 += 1 & KGDexp2 = 0 & KGDHP2 += 10 & KGDdam2 += 5

KGDneedExpNextLvl3=(KGDlvl3 * 10)*KGDlvl3
KGDneedExp3 = KGDneedExpNextLvl3 - KGDexp3
if KGDneedExp3 <= 0 and KGDlvl3 > KGDlvlr3: KGDlvlr3 = KGDlvl3 & KGDlvl3 += 1 & KGDexp3 = 0 & KGDHP3 += 10 & KGDdam3 += 5

KGDneedExpNextLvl4=(KGDlvl4 * 10)*KGDlvl4
KGDneedExp4 = KGDneedExpNextLvl4 - KGDexp4
if KGDneedExp4 <= 0 and KGDlvl4 > KGDlvlr4: KGDlvlr4 = KGDlvl4 & KGDlvl4 += 1 & KGDexp4 = 0 & KGDHP4 += 10 & KGDdam4 += 5

KGDneedExpNextLvl5=(KGDlvl5 * 10)*KGDlvl5
KGDneedExp5 = KGDneedExpNextLvl5 - KGDexp5
if KGDneedExp5 <= 0 and KGDlvl5 > KGDlvlr5: KGDlvlr5 = KGDlvl5 & KGDlvl5 += 1 & KGDexp5 = 0 & KGDHP5 += 10 & KGDdam5 += 5

KGDneedExpNextLvl6=(KGDlvl6 * 10)*KGDlvl6
KGDneedExp6 = KGDneedExpNextLvl6 - KGDexp6
if KGDneedExp6 <= 0 and KGDlvl6 > KGDlvlr6: KGDlvlr6 = KGDlvl6 & KGDlvl6 += 1 & KGDexp6 = 0 & KGDHP6 += 10 & KGDdam6 += 5
--- KGDexp ---------------------------------

# KGDbefore

KGDhealth = KGDHP
KGDhealth2 = KGDHP2
KGDhealth3 = KGDHP3
KGDhealth4 = KGDHP4
KGDhealth5 = KGDHP5
KGDhealth6 = KGDHP6

gt 'KGDfight'
--- KGDbefore ---------------------------------

# KGDfight
'Your Party'
'First line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'Second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'
''
'Game enemy'
''
'First line. <<$kgdplacev>> <<$kgdplacev2>> <<$kgdplacev3>>'
'Second line. <<$kgdplacev4>> <<$kgdplacev5>> <<$kgdplacev6>>'

act 'Leave': gt 'KGDgame'


!вот тут то я и обосрался, ниасилив групповой бой
--- KGDfight ---------------------------------

# KGDparty
'In part 2 of the line, front, protects a back. Each maximum of 3 fighter.'
''
if KGDrazm = 0:
'Hero. Level <<KGDlvl>>Life <<KGDHP>>damage <<KGDdam>>. <a href="exec:KGDrazm = 1 & KGDsubsp = 1 & dynamic $kgddin ">Post</a>'
else
'Hero. Level <<KGDlvl>>Life <<KGDHP>>Done <<KGDdam>>'
end
if KGDsput2 > 0:
	if KGDrazm2 = 0:
	'<<$KGDname2>>. Level <<KGDlvl2>>Life <<KGDHP2>>, damage <<KGDdam2>>. <a href="exec:KGDrazm2 = 1 & KGDsubsp = 2 & dynamic $kgddin ">Place</a>'
	else
	'<<$KGDname2>>. Level <<KGDlvl2>>Life <<KGDHP2>>Done <<KGDdam2>>'
	end
end
if KGDsput3 > 0:
	if KGDrazm3 = 0:
	'<<$KGDname3>>. Level <<KGDlvl3>>Life <<KGDHP3>>, damage <<KGDdam3>>. <a href="exec:KGDrazm3 = 1 & KGDsubsp = 3 & dynamic $kgddin ">Place</a>'
	else
	'<<$KGDname3>>. Level <<KGDlvl3>>Life <<KGDHP3>>Done <<KGDdam3>>'
	end
end
if KGDsput4 > 0:
	if KGDrazm4 = 0:
	'<<$KGDname4>>. Level <<KGDlvl4>>Life <<KGDHP4>>, damage <<KGDdam4>>. <a href="exec:KGDrazm4 = 1 & KGDsubsp = 4 & dynamic $kgddin ">Place</a>'
	else
	'<<$KGDname4>>. Level <<KGDlvl4>>Life <<KGDHP4>>Done <<KGDdam4>>'
	end
end
if KGDsput5 > 0:
	if KGDrazm5 = 0:
	'<<$KGDname5>>. Level <<KGDlvl5>>Life <<KGDHP5>>, damage <<KGDdam5>>. <a href="exec:KGDrazm5 = 1 & KGDsubsp = 5 & dynamic $kgddin ">Place</a>'
	else
	'<<$KGDname5>>. Level <<KGDlvl5>>Life <<KGDHP5>>Done <<KGDdam5>>'
	end
end
if KGDsput6 > 0:
	if KGDrazm6 = 0:
	'<<$KGDname6>>. Level <<KGDlvl6>>Life <<KGDHP6>>, damage <<KGDdam6>>. <a href="exec:KGDrazm6 = 1 & KGDsubsp = 6 & dynamic $kgddin ">Place</a>'
	else
	'<<$KGDname6>>. Level <<KGDlvl6>>Life <<KGDHP6>>Done <<KGDdam6>>'
	end
end

'First line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'Second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'

$kgddin = {
cls
'First line. <<$kgdplace>> <<$kgdplace2>> <<$kgdplace3>>'
'Second line. <<$kgdplace4>> <<$kgdplace5>> <<$kgdplace6>>'
if kgdplace = 0:
	act '1st place':
	kgdplace = 1
		if KGDsubsp = 1:$kgdplace = 'Hero'&KGDsput = 1
		if KGDsubsp = 2:$kgdplace = $KGDname2 & KGDsput2 = 1
		if KGDsubsp = 3:$kgdplace = $KGDname3 & KGDsput3 = 1
		if KGDsubsp = 4:$kgdplace = $KGDname4 & KGDsput4 = 1
		if KGDsubsp = 5:$kgdplace = $KGDname5 & KGDsput5 = 1
		if KGDsubsp = 6:$kgdplace = $KGDname6 & KGDsput6 = 1
	gt $curloc
	end
end
if kgdplace2 = 0:
	act '2nd place':
	kgdplace2 = 1
		if KGDsubsp = 1:$kgdplace2 = 'Hero'&KGDsput = 2
		if KGDsubsp = 2:$kgdplace2 = $KGDname2 & KGDsput2 = 2
		if KGDsubsp = 3:$kgdplace2 = $KGDname3 & KGDsput3 = 2
		if KGDsubsp = 4:$kgdplace2 = $KGDname4 & KGDsput4 = 2
		if KGDsubsp = 5:$kgdplace2 = $KGDname5 & KGDsput5 = 2
		if KGDsubsp = 6:$kgdplace2 = $KGDname6 & KGDsput6 = 2
	gt $curloc
	end
end
if kgdplace3 = 0:
	act '3rd place':
	kgdplace3 = 1
		if KGDsubsp = 1:$kgdplace3 = 'Hero'&KGDsput = 3
		if KGDsubsp = 2:$kgdplace3 = $KGDname2 & KGDsput2 = 3
		if KGDsubsp = 3:$kgdplace3 = $KGDname3 & KGDsput3 = 3
		if KGDsubsp = 4:$kgdplace3 = $KGDname4 & KGDsput4 = 3
		if KGDsubsp = 5:$kgdplace3 = $KGDname5 & KGDsput5 = 3
		if KGDsubsp = 6:$kgdplace3 = $KGDname6 & KGDsput6 = 3
	gt $curloc
	end
end
if kgdplace4 = 0:
	act '4th place':
	kgdplace4 = 1
		if KGDsubsp = 1:$kgdplace4 = 'Hero'&KGDsput = 4
		if KGDsubsp = 2:$kgdplace4 = $KGDname2 & KGDsput2 = 4
		if KGDsubsp = 3:$kgdplace4 = $KGDname3 & KGDsput3 = 4
		if KGDsubsp = 4:$kgdplace4 = $KGDname4 & KGDsput4 = 4
		if KGDsubsp = 5:$kgdplace4 = $KGDname5 & KGDsput5 = 4
		if KGDsubsp = 6:$kgdplace4 = $KGDname6 & KGDsput6 = 4
	gt $curloc
	end
end
if kgdplace5 = 0:
	act '5th place':
	kgdplace5 = 1
		if KGDsubsp = 1:$kgdplace5 = 'Hero'&KGDsput = 5
		if KGDsubsp = 2:$kgdplace5 = $KGDname2 & KGDsput2 = 5
		if KGDsubsp = 3:$kgdplace5 = $KGDname3 & KGDsput3 = 5
		if KGDsubsp = 4:$kgdplace5 = $KGDname4 & KGDsput4 = 5
		if KGDsubsp = 5:$kgdplace5 = $KGDname5 & KGDsput5 = 5
		if KGDsubsp = 6:$kgdplace5 = $KGDname6 & KGDsput6 = 5
	gt $curloc
	end
end
if kgdplace6 = 0:
	act '6th place':
	kgdplace6 = 1
		if KGDsubsp = 1:$kgdplace6 = 'Hero'&KGDsput = 6
		if KGDsubsp = 2:$kgdplace6 = $KGDname2 & KGDsput2 = 6
		if KGDsubsp = 3:$kgdplace6 = $KGDname3 & KGDsput3 = 6
		if KGDsubsp = 4:$kgdplace6 = $KGDname4 & KGDsput4 = 6
		if KGDsubsp = 5:$kgdplace6 = $KGDname5 & KGDsput5 = 6
		if KGDsubsp = 6:$kgdplace6 = $KGDname6 & KGDsput6 = 6
	gt $curloc
	end
end
}

act 'Leave': gt 'KGDgame'
--- KGDparty ---------------------------------

# KGZstart
minut += 1
nosave = 1
gs 'stat'
KGZrec = KGZday * 24 + KGZhour - 32
if KGZrecord < KGZrec: KGZrecord = KGZrec
'<center><B>Dead Set</B></center>'
'<center><B>Record <<KGZrecord>> hours</B></center>'
if KGZdost = 1: 'Achievement: Found Fort Bragg'
'Is a survival game, the task will hold as much as possible.'



if KGZHP > 0: act 'Load a saved game': gt 'KGZgame'

act 'Play a new game':
cls
KGZHP = 100
KGZplace = 0
KGZday = 1
KGZhour = 8
KGZsup = 3
KGZmedkit = 1
KGZcopcar = 0
KGZgun = 0
bullet = 0
KGZgun2 = 0
bullet2 = 0
KGZgun3 = 0
bullet3 = 0
KGZgenerator = 0
KGZbolgarka = 0
KGZcopdoor = 0
KGZratia = 0
KGZfortQW = 0
KGZfortOru = 0
KGZgranade = 0
KGZdost = 0
KGZgruzBenz = 0
KGZgruzBenzMark = 0
KGZgruzovik = 0
KGZlok = 0
KGZlok2 = 0
KGZweapon = 0
'INTRODUCTION'
'DeGross entertainment'
'in collaboration with'
'PAPA_GANS inc.'
'are'
'Sunset dead.'
'As harsh and merciless this world. Not that past life was better or worse. All its advantages and disadvantages. You were probably wondering, what kind of a zombie apocalypse, there are pros? I´ll tell you ... Freedom. Freedom of action and freedom of choice, everyone is free to do what really wants. For me, the beginning of the end of the world, was liberation. And even now, I realize that I was only here because of their choice, their freedom.'
'In a past life I was an ordinary man: he went to work, met a girl, paying loans and was going to fly on vacation at some resort. On a day when everything changed, I woke up surprisingly early, the sun´s rays coming through the curtains and joyfully heralded a new day, and with it the complete collapse of the old society.'
'My girl was not there, then I thought that she had gone to work early. How wrong I was. To my surprise, the apartment was not the light, and I put the coffee brewed in the old. Normally I do not have time to watch it, but that day I decided not to rush to work, and simply enjoy the morning. Fire a couple of balls, said that it would be necessary to go to the grocery store and absorb rather take breakfast and read long deferred detective.'
'My peace interrupted some noise outside the front door. I heard heart-rending cries, which ended after a few seconds. Still not understanding what was happening, I grabbed the phone and quickly dialed 911. As the tube was silence, frightening and ruthless, no beeps, no sound at all, just my own echo was given in the endless corridors of radio waves.'
act 'Play': gt 'KGZgame'
end


act 'Exit': nosave = 0 & gt 'Komp','start'
--- KGZstart ---------------------------------

# KGZgame
minut += 1
gs 'stat'
gs 'KGZdyn'

if KGZHP <= 0:
cla
*clr
'<center><B>GAME OVER</B></center>'
act 'Quit Game': gt 'KGZstart'
exit
end

if KGZhour >= 6 and KGZhour <= 21:
KGZsvet = 1
else
KGZsvet = 0
end

'<a href="exec:GT ''KGZstart''">Get out of the game</a>'
'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
if KGZsup <= 0: 'You have no provisions, you are starving!'
'Edged weapons: <<$KGZweapon>>'
if KGZgun > 0: '<<$KGZgun>>'
if KGZgun2 > 0: '<<$KGZgun2>>'
if KGZgun3 > 0: '<<$KGZgun3>>'
if KGZgenerator > 0:
if KGZbenzin = 0:$KGZbenzin = 'But the generator does not work because you do not have gasoline.'
if KGZbenzin = 1:$KGZbenzin = 'You have filled a full tank of gasoline.'
'Do you have a portable generator runs on gasoline. <<$KGZbenzin>>'
end
if KGZbolgarka > 0: 'Do you have a Bulgarian powered by electricity.'
if KGZratia = 1: 'Do you have a radio.'
''
if KGZplace = 0:
'<center><B>Apartment</B></center>'
'Your apartment is a safe place. The apartment is stored provisions, which will be enough to <<KGZsup>> days'
	if KGZmedkit > 0:
	'First aid kits <<KGZmedkit>> pieces'
		if KGZHP < 100:
			act 'Treated':
			cls
			KGZhour += 1
			KGZHP = 100
			KGZmedkit -= 1
			minut += 1
			gs 'stat'
			'You heal health through kits.'
			act 'Further': gt $curloc
			end
		end
	end

	act 'Laze':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
	act 'Further': gt $curloc
	end


	act 'Leave the apartment':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 1
	KGZbatl = 0
	'You cautiously left the apartment trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

end

if KGZplace = 1:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Street</B></center>'
'On the street the broken machine, lie the corpses.'
	if KGZbatl = 0:
	'Roam the streets <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(5,30)
				if KGZsvet = 2: KGZdist = RAND(3,10)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod
	end

end

if KGZplace = 2:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Shop</B></center>'
'In store stale air from spoiled food and dead.'
	if KGZbatl = 0:
	'Wander around the store <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(3,10)
				if KGZsvet = 2: KGZdist = RAND(2,8)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod2
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod2
	end

end

if KGZplace = 3:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Hospital</B></center>'
'Hospital floor littered with papers and dead bodies of patients and physicians.'
	if KGZbatl = 0:
	'Wander around the hospital <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(3,10)
				if KGZsvet = 2: KGZdist = RAND(2,8)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod3
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod3
	end

end

if KGZplace = 4:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Boulevard</B></center>'
'On the boulevard cluster of abandoned and wrecked cars everywhere corpses.'
	if KGZbatl = 0:
	'Wander along the boulevard <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(5,30)
				if KGZsvet = 2: KGZdist = RAND(3,10)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod4
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod4
	end

end

if KGZplace = 5:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Hunting Store</B></center>'
'In hunting stores all counters are flipped, things scattered on the floor and something where visible decaying corpses.'
	if KGZbatl = 0:
	'Roam around the room <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,6)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod5
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod5
	end

end

if KGZplace = 6:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Police station</B></center>'
'At the police station the police corpses scattered on the floor, tables overturned and papers strewn all around.'
	if KGZbatl = 0:
	'Roam around the room <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod6
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod6
	end

end

if KGZplace = 7:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Drugstore</B></center>'
'In store everything upside down and smells mertvyachinoy.'
	if KGZbatl = 0:
	'Roam around the room <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod7
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod7
	end

end

if KGZplace = 8:
KGZdead = RAND(KGZday * 2, KGZday * 4)
'<center><B>Route</B></center>'
'On the highway, a huge traffic jam of abandoned cars, where there are some broken machines and the dead bodies.'
	if KGZbatl = 0:
	'Wander along the highway <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(5,30)
				if KGZsvet = 2: KGZdist = RAND(3,10)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod8
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod8
	end

end

if KGZplace = 9:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Threading</B></center>'
'At the gas station is a pair of abandoned cars. No electricity and speakers only work in manual mode.'
	if KGZbatl = 0:
	'Roam around the room <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod9
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod9
	end

end

if KGZplace = 10:
KGZdead = RAND(KGZday * 5, KGZday * 10)
	if KGZplaceA = 20: KGZplace = 100 & gt $curloc
	if KGZplaceA = 10: KGZplace = 11 & gt $curloc
	if KGZplaceA = 0: KGZplace = 8 & gt $curloc
'<center><B>Highway in Fort Bragg</B></center>'
'<center><B><<KGZplaceA>>th kilometer</B></center>'
'On the highway are broken machines are corpses.'
	if KGZbatl = 0:
	'Wander along the highway <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
			act 'Srazhatsya':
				if KGZsvet = 1: KGZdist = RAND(5,30)
				if KGZsvet = 2: KGZdist = RAND(3,10)
			gt 'KGZfight'
			end
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod10
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod10
	end

end

if KGZplace = 11:
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Fort Bragg</B></center>'
'Fort Bragg is a small building surrounded by a fence.'
	if KGZbatl = 0:
	'Roam around the fort <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(3,10)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod11
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod11
	end

end

if KGZplace = 12:
if KGZdost = 0: KGZdost = 1
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Roof Fort Bragg</B></center>'
'On the roof is full of lying motionless rotting bodies, many spent cartridges.'
'Provisions enough for <<KGZsup>> day'
if KGZfortQW > 0: '<a href="exec: dynamic $KGZvincent">Young tired man in the form of Ranger</a>, sits leaning on a sniper rifle.'
	if KGZmedkit > 0:
	'First aid kits <<KGZmedkit>> pieces'
		if KGZHP < 100:
			act 'Treated':
			cls
			KGZhour += 1
			KGZHP = 100
			KGZmedkit -= 1
			minut += 1
			gs 'stat'
			'You heal health through kits.'
			act 'Further': gt $curloc
			end
		end
	end

	act 'Rest':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	'You have settled on the convenient roof, not taking his eyes off the hatch which can climb dead.'
	act 'Further': gt $curloc
	end


	act 'Exit to the fort':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 11
	KGZbatl = 0
	'You gently down into the hatch, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

end

if KGZplace = 13:
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Fort Bragg</B></center>'
'<center><B>Food Storage</B></center>'
'Stock dark and heard noises.'
	if KGZbatl = 0:
	'Wander around the warehouse <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod13
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod13
	end

end

if KGZplace = 14:
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Fort Bragg</B></center>'
'<center><B>Infirmary</B></center>'
'In the hospital is dark and heard noises.'
	if KGZbatl = 0:
	'By Infirmary roam <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod14
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod14
	end

end

if KGZplace = 15:
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Fort Bragg</B></center>'
'<center><B>Arms</B></center>'
'In the armory dark and heard noises.'
	if KGZbatl = 0:
	'On weapons roam <<KGZdead>>Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod15
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod15
	end

end

if KGZplace = 16:
KGZdead = RAND(KGZday * 10, KGZday * 20)
'<center><B>Fort Bragg</B></center>'
'<center><B>Garage</B></center>'
'The garage is dark and heard noises.'
	if KGZbatl = 0:
	'Roam around the garage <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod16
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod16
	end

end


if KGZplace = 100:
KGZdead = RAND(KGZday * 20, KGZday * 30)
'<center><B>City Koldkrik</B></center>'
'The city was destroyed and fires could be seen.'
	if KGZbatl = 0:
	'Roam the streets <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod100
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod100
	end
end

if KGZplace = 101:
'<center><B>House</B></center>'
'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
	if KGZmedkit > 0:
	'First aid kits <<KGZmedkit>> pieces'
		if KGZHP < 100:
			act 'Treated':
			cls
			KGZhour += 1
			KGZHP = 100
			KGZmedkit -= 1
			minut += 1
			gs 'stat'
			'You heal health through kits.'
			act 'Further': gt $curloc
			end
		end
	end

	act 'Laze':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
	act 'Further': gt $curloc
	end


	act 'Out of the house':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 100
	KGZbatl = 0
	'You cautiously left the apartment trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

end

if KGZplace = 102:
KGZdead = RAND(KGZday * 5, KGZday * 10)
'<center><B>Supermarket</B></center>'
'At the supermarket, dark and heard noises.'
	if KGZbatl = 0:
	'Roam the halls of the Trade <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod102
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod102
	end
end

if KGZplace = 200:
KGZdead = RAND(KGZday, KGZday * 2)
'<center><B>Forest</B></center>'
'In the dark forest and heard noises.'
	if KGZbatl = 0:
	'Wander through the woods <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod200
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod200
	end
end

if KGZplace = 201:
KGZdead = RAND(KGZday, KGZday * 3)
'<center><B>Farm</B></center>'
'Large fenced farm fence.'
	if KGZbatl = 0:
	'Wander around the neighborhood <<KGZdead>> Dead'
	KGZagr = RAND(0,10)
		if KGZagr <= 8:
		'Sensing you dead immediately rush to the attack.'
		act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
		else
		'Fortunately, you do not notice the dead.'
		dynamic $KGZvihod201
		end
	else
	'The Walking Dead is not visible.'
	dynamic $KGZvihod201
	end
end

if KGZplace = 202:
'<center><B>House</B></center>'
'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
	if KGZmedkit > 0:
	'First aid kits <<KGZmedkit>> pieces'
		if KGZHP < 100:
			act 'Treated':
			cls
			KGZhour += 1
			KGZHP = 100
			KGZmedkit -= 1
			minut += 1
			gs 'stat'
			'You heal health through kits.'
			act 'Further': gt $curloc
			end
		end
	end

	act 'Laze':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
	act 'Further': gt $curloc
	end


	act 'Out of the house':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 201
	KGZbatl = 0
	'You cautiously left the apartment trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

end
--- KGZgame ---------------------------------

# KGZdyn

if KGZweapon = 0:$KGZweapon = 'Fists' & $KGZweapona = 'Fist'
if KGZweapon = 1:$KGZweapon = 'Baton' & $KGZweapona = 'Shillelagh'
if KGZweapon = 2:$KGZweapon = 'Ax' & $KGZweapona = 'Ax'
if KGZgun > 0:$KGZgun = 'Pistol, cartridges <<bullet>>piece'
if KGZgun2 > 0:$KGZgun2 = 'Shotgun cartridges <<bullet2>>piece'
if KGZgun3 > 0:$KGZgun3 = 'Automatic, cartridges <<bullet3>>piece'

if KGZhour >= 24:
KGZhour -= 24
KGZday += 1
	if KGZsup = 0:
	KGZHP -= 10
	else
	KGZsup -= 1
	end

end



$KGZvihod = {
if KGZweapon = 0: KGZweapon = 1 & 'You found a good cudgel lying on the pavement and took her'
	act 'Go to the apartment':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 0
	KGZbatl = 0
	'You went to the apartment carefully trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the store':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 2
	KGZbatl = 0
	'You cautiously went to the store with smashed storefronts trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the hospital':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 3
	KGZbatl = 0
	'You went to the hospital carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the boulevard':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 4
	KGZbatl = 0
	'You gingerly walked down the street, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

}
$KGZvihod2 = {
	act 'Go to the street':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 1
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search provisions':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the store looking for food.'
	KGZsupoisk = RAND(0,100)
		if KGZsupoisk = 100:
		KGZsup += 1
		'You found enough food to stretch another day.'
		elseif KGZday<KGZsupoisk:
		KGZsup += 1
		'You found enough food to stretch another day.'
		else
		'You are not able to find anything edible, all that you have found rotten and no good for eating.'
		end
	act 'Further': gt $curloc
	end

}
$KGZvihod3 = {
	act 'Go to the street':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 1
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search kits':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the hospital looking kit.'
	KGZsupoisk = RAND(0,100)
		if KGZsupoisk = 100:
		KGZmedkit += 1
		'You have found a first aid kit.'
		elseif KGZday<KGZsupoisk:
		KGZmedkit += 1
		'You have found a first aid kit.'
		else
		'You are not able to find anything useful.'
		end
	act 'Further': gt $curloc
	end

}
$KGZvihod4 = {
	act 'Go to the street to the side of his house':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 1
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the hunting store':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 5
	KGZbatl = 0
	'You carefully went hunting store trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the police station':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 6
	KGZbatl = 0
	'You cautiously went to the police station trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the hardware store':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 7
	KGZbatl = 0
	'You cautiously went to the hardware store trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZcopcar = 0:
		act 'Search the police car':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		!KGZplace = 2
		KGZbatl = 1
		KGZcopcar = 1
		'Noiselessly you started searching the police car.'
		if KGZgun = 0: KGZgun = 1 & 'You have found a pistol'
		bullet += 10
		'You found 10t ammunition for the gun.'
		act 'Further': gt $curloc
		end
	end

	act 'Go on the highway':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 8
	KGZbatl = 0
	'You cautiously walked towards the highway trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

}

$KGZvihod5 = {
	act 'Leave the store':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 4
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search salesroom':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the hunting store.'
	if KGZgun2 = 0: KGZgun2 = 1 & 'You found a shotgun'
	bulletrand = RAND(3,20)
	bullet2 += bulletrand
	'You have found <<bulletrand>>to be shotgun cartridges.'
	act 'Further': gt $curloc
	end

}

$KGZvihod6 = {
	act 'Get Outside':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 4
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search the police station':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the police station.'
	if KGZgun = 0: KGZgun = 1 & 'You have found a pistol'
	bulletrand = RAND(3,20)
	bullet += bulletrand
	'You have found <<bulletrand>>be ammo for the gun.'
	act 'Further': gt $curloc
	end

	if KGZcopdoor = 0:
	'Armed room is locked on a massive iron door which can be opened only grinder, but the trouble is, there is no electricity.'
		if KGZgenerator > 0 and KGZbenzin > 0 and KGZbolgarka > 0:
			act 'Uncover grinder armed room':
			cls
			KGZhour += 1
			minut += 1
			gs 'stat'
			KGZcopdoor = 1
			KGZbatl = 0
			'Noiselessly you started searching the police station.'
			if KGZgun3 = 0: KGZgun3 = 1 & 'You found Machine'
			bullet3 += 500
			'You have found 500 tons of ammunition for machine.'
			KGZdead = KGZday * 10
			'The noise from the grinder ran dead and attacked you.'
			act 'Srazhatsya': KGZdist = RAND(5,8)&gt 'KGZfight'
			end
		end
	end

	if KGZcopdoor = 1:
	'Armory room is empty, just a bunch of dead on the floor, according to a recent fight with you.'
		if KGZratia = 0:
			act 'Pick up radio':
			cls
			KGZhour += 1
			minut += 1
			gs 'stat'
			KGZratia = 1
			KGZbatl = 1
			'You have found a radio. Including it you heard the voice repeating the same phrase. "Everyone who hears me. Safe Haven is 10m kilometer highway. Go to Fort Bragg."'
			act 'Further': gt $curloc
			end
		end
	end

}
$KGZvihod7 = {
	act 'Get Outside':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 4
	KGZbatl = 0
	'You carefully went into the street trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search the store':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the hardware store.'
		if KGZweapon < 2:
		KGZweapon = 2
		'You found an ax'
		act 'Further': gt $curloc
		exit
		end

		if KGZgenerator = 0:
		KGZgenerator = 1
		'You found refillable portable generator gasoline.'
		act 'Further': gt $curloc
		exit
		end

		if KGZbolgarka = 0:
		KGZbolgarka = 1
		'You found grinder is powered by electricity.'
		act 'Further': gt $curloc
		exit
		end
	'You did not find anything useful.'
	act 'Further': gt $curloc
	end

}
$KGZvihod8 = {
	act 'Exit at Boulevard':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 4
	KGZbatl = 0
	'You went to the boulevard carefully trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the gas station':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 9
	KGZbatl = 0
	'Noiselessly you went to the gas station.'
	act 'Further': gt $curloc
	end

	if KGZratia > 0:
		act 'Go in the direction of Fort Bragg':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZplace = 10
		KGZplaceA = 1
		KGZbatl = 0
		'Noiselessly you went toward Fort Bragg.'
		act 'Further': gt $curloc
		end
	end

}
$KGZvihod9 = {
	act 'Exit the highway':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplace = 8
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZbenzin = 0:
		act 'Pour gasoline':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZbenzin = 1
		KGZbatl = 0
		'Noiselessly you poured gasoline from the column.'
		act 'Further': gt $curloc
		end
	end

}
$KGZvihod10 = {
if KGZplaceA < 10:$KGZplaceA = 'Fort Bragg' & $KGZplaceB = 'from the city'
if KGZplaceA > 10:$KGZplaceA = 'from the city' & $KGZplaceB = 'Fort Bragg'
	act 'Go in the direction <<$KGZplaceA>>':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplaceA += 1
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go in the direction <<$KGZplaceB>>':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplaceA -= 1
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZplaceA > 10:
		act 'Go to the forest':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZbatl = 0
		KGZplace = 200
		'You have gone off the highway into the woods.'
		act 'Further': gt $curloc
		end

	end

}
$KGZvihod11 = {
if KGZfortQW = 0: 'From the roof of a shot is fired with a sniper rifle.'
if KGZfortQW = 0: 'The man on the roof screaming you. "Fort Bragg fell. I stayed living person. Save me. Ammo I end, and ghouls and climb."'
	act 'Probivatsya the roof':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	if KGZfortQW = 0: KGZfortQW = 1
	KGZplace = 12
	KGZbatl = 0
	KGZdead = RAND(KGZday * 20, KGZday * 30)
	'You ran into a fort surrounded on all sides dead.'
	act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
	end

	act 'Go to the side of the highway (the side leading to the city)':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplaceA = 9
	KGZplace = 10
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the side of the highway (leading side of the city)':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplaceA = 11
	KGZplace = 10
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZfortQW = 2:
		act 'Probivatsya on food warehouse':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZplace = 13
		KGZbatl = 0
		KGZdead = RAND(KGZday * 20, KGZday * 30)
		'You ran to the warehouse surrounded on all sides dead.'
		act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
		end

		act 'Probivatsya infirmary':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZplace = 14
		KGZbatl = 0
		KGZdead = RAND(KGZday * 20, KGZday * 30)
		'You ran into the hospital surrounded on all sides dead.'
		act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
		end

		act 'Probivatsya armory':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZplace = 15
		KGZbatl = 0
		KGZdead = RAND(KGZday * 20, KGZday * 30)
		'You ran into the hospital surrounded on all sides dead.'
		act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
		end

		act 'Probivatsya in garage':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZplace = 16
		KGZbatl = 0
		KGZdead = RAND(KGZday * 20, KGZday * 30)
		'You ran into the hospital surrounded on all sides dead.'
		act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
		end

	end

}

$KGZvihod13 = {
	act 'Exit at Fort Bragg':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 11
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search the warehouse':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the dark warehouse.'
	udacharand = RAND(0,1)
		if udacharand = 1:
		KGZsuprand = RAND(1,3)
		KGZsup += KGZsuprand
		'You have found the diet <<KGZsuprand>> days'
		end
		if udacharand = 0:
		KGZdead = RAND(KGZday * 5, KGZday * 10)
		'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
		act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
		exit
		end
	act 'Further': gt $curloc
	end

}
$KGZvihod14 = {
	act 'Exit at Fort Bragg':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 11
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search the infirmary':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
	'Noiselessly you started searching the dark infirmary.'
	udacharand = RAND(0,1)
		if udacharand = 1:
		KGZmedkit += 1
		'You have found a first aid kit'
		end
		if udacharand = 0:
		KGZdead = RAND(KGZday * 5, KGZday * 10)
		'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
		act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
		exit
		end
	act 'Further': gt $curloc
	end

}
$KGZvihod15 = {
	act 'Exit at Fort Bragg':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 11
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Search armory':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	!KGZplace = 2
	KGZbatl = 0
		if KGZfortOru = 1:
		'In Munitions nothing useful.'
		end
		if KGZfortOru = 0:
		KGZfortOru = 1
		'In Munitions you find ammunition for machine 300 pieces and 10 grenades.'
		KGZgranade += 10
		bullet3 += 300
		end
	'.'
	act 'Further': gt $curloc
	end

}
$KGZvihod16 = {
	act 'Exit at Fort Bragg':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 11
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZgruzovik = 0:
		act 'Climb into the truck':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		!KGZplace = 2
		KGZbatl = 0
			if KGZgruzBenz = 1:
			'You sat in the cab on the driver´s seat and brought the truck.'
				act 'Go':
				cls
				'Truck uterine growled jumped into the courtyard of the fort where a crowd had gathered the dead, you go to cut into the crowd and began to push the ghouls, the engine speed drops, the engine roared overwrought gliding over crushed bodies, dead hands clung to the cabin. Some ghouls hung on the cabin in the mirror was clear that the body you have climbed too dead. Gate to the fort closed and they have to knock.'
					act 'Clear the gate':
					cls
					'You disperse truck hit the gate of the fort. You strongly shaken and rattled the gate collapsed. Something like a truck drove out of the courtyard of the fort on the highway clogged.'
						act 'Drive along the highway into town':
						cls
						KGZgruzovik = 1
						KGZplace = 10
						KGZplaceA = 9
						'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
						KGZdead = RAND(KGZday * 50, KGZday * 100)
						act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
						end

						act 'Ride on the highway out of town':
						cls
						KGZgruzovik = 2
						KGZplace = 10
						KGZplaceA = 11
						'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
						KGZdead = RAND(KGZday * 50, KGZday * 100)
						act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
						end

						act 'To go along the side of the city':
						cls
						KGZgruzovik = 3
						KGZplace = 10
						KGZplaceA = 7
						'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
						KGZdead = RAND(KGZday * 50, KGZday * 100)
						act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
						end

						act 'To go along the side of the city':
						cls
						KGZgruzovik = 4
						KGZplace = 10
						KGZplaceA = 13
						'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
						KGZdead = RAND(KGZday * 50, KGZday * 100)
						act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
						end

					end

				end
			end
			if KGZgruzBenz = 0:
			KGZgruzBenzMark = 1
			'Heck, empty tank truck, standing next column, you only need to fill.'
			end
		act 'Get out of the cab': gt $curloc
		end
	end

	if KGZgruzBenzMark = 1:
		act 'Exit at Fort Bragg':
		cls
		KGZhour += 1
		minut += 1
		gs 'stat'
		KGZbatl = 0
		KGZgruzBenz = 1
		'You carefully tucked truck gasoline.'
		act 'Further': gt $curloc
		end
	end

}


$KGZvihod100 = {
	act 'Wander through the dead city':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 100
	'You went cautiously, trying not to stumble on the dead.'
	KGZlocrand = RAND(0,100)
		if KGZlocrand >= 90 and KGZlok = 0:
		'You have found a solid house with iron bars on the windows'
		KGZlok = 1
		act 'Enter the house': KGZplace = 101 & gt $curloc
		end
		if KGZlocrand >= 80 and KGZlok2 = 0:
		KGZlok2 = 1
		'You find a large supermarket where when it sold a variety of goods'
		act 'Sign in to supermarket': KGZplace = 102 & gt $curloc
		end
	act 'Further': gt $curloc
	end

	act 'Go to the side of the highway':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZplaceA = 19
	KGZplace = 10
	KGZbatl = 0
	'You went to the highway carefully, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	if KGZlok = 1: act 'Enter the house': KGZhour += 1 & KGZplace = 101 & gt $curloc

	if KGZlok2 = 1: act 'Sign in to supermarket': KGZhour += 1 & KGZplace = 102 & gt $curloc

}
$KGZvihod102 = {
	act 'Get out of the supermarket':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 100
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Scour supermarket':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	'You gently started to fumble in search of useful, trying not to stumble on the dead.'
	udarand = RAND(0,100)
		if udarand >= 90:
		tiprand = RAND(0,1)
		if tiprand = 0: KGZsup += 1 & 'You are lucky and you find food'
		if tiprand = 1: KGZmedkit += 1 & 'You are lucky and you find a first aid kit'
		end
	act 'Further': gt $curloc
	end

}
$KGZvihod200 = {
	act 'Walk through the woods to the highway':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 10
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Walk through the woods from the highway':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 201
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

}
$KGZvihod201 = {
	act 'Go to the forest':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 200
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

	act 'Go to the farmhouse':
	cls
	KGZhour += 1
	minut += 1
	gs 'stat'
	KGZbatl = 0
	KGZplace = 202
	'You went cautiously, trying not to stumble on the dead.'
	act 'Further': gt $curloc
	end

}
$KGZvincent = {
cls
if KGZfortQW = 1: KGZfortQW = 2
'The fort has arsenal and warehouse with food, hospital and garage with trucks. But a lot of dead, really a lot. Several soldiers tried to break but died. Some tried to use flamethrowers, but still dead burn, they manage to reach the man and the end. From the fort should leave as soon as possible.'

act 'Further': gt $curloc
}
$KGZfizatk = {
if KGZweapon = 0:
KGZuspeh = RAND(0,100)
	if KGZuspeh <= 30:
	KGZdead -= 1
	'You were very good ghouls fist on the head and he fell stopping moves.'
	else
	'Ghoul irreversible no attention to your punch.'
	end
end
if KGZweapon = 1:
KGZuspeh = RAND(0,100)
	if KGZuspeh <= 50:
	KGZdead -= 1
	'You were very good ghouls club head and he fell stopping moves.'
	else
	'Ghoul irreversible no attention to your clubbing.'
	end
end
if KGZweapon = 2:
KGZuspeh = RAND(0,100)
	if KGZuspeh <= 70:
	KGZdead -= 1
	'You were very good ghouls ax on the head and he fell stopping moves.'
	else
	'Ghoul irreversible no attention to your ax blow.'
	end
end
if KGZdead > 0:
'<<KGZdead>> dead clutching at you, trying to tear.'
kgzuron = RAND(KGZdead * 2, KGZdead * 5)
KGZHP -= kgzuron
'<B><font color = red>you have caused damage <<kgzuron>> units.</font></B>'
end
}
$KGZgunatk = {
KGZuspeh = RAND(0,100)
	if KGZdist <= 5:
		if KGZuspeh <= 90:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	elseif KGZdist <= 10:
		if KGZuspeh <= 80:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	else
		if KGZuspeh <= 70:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	end
}
$KGZgunatk2 = {
KGZuspeh = RAND(0,100)
	if KGZdist <= 5:
		if KGZuspeh <= 100:
		KGZdead -= 1
		'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	elseif KGZdist <= 10:
		if KGZuspeh <= 70:
		KGZdead -= 1
		'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	else
		if KGZuspeh <= 50:
		KGZdead -= 1
		'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	end
}
$KGZgunatk3 = {
KGZuspeh = RAND(0,100)
	if KGZdist <= 5:
		if KGZuspeh <= 70:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	elseif KGZdist <= 10:
		if KGZuspeh <= 95:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	else
		if KGZuspeh <= 85:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You hit the dead.'
		end
	end
}
$KGZgunatk4 = {
:KGZmarkgun
KGZbulgun -= 1
KGZuspeh = RAND(0,100)
	if KGZdead > 0:
		if KGZdist <= 5:
			if KGZuspeh <= 80:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		elseif KGZdist <= 10:
			if KGZuspeh <= 70:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		else
			if KGZuspeh <= 60:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		end
	end
if KGZbulgun > 0: jump 'KGZmarkgun'
}
$KGZgunatk5 = {
:KGZmarkgunb
KGZbulgun -= 1
KGZuspeh = RAND(0,100)
	if KGZdead > 0:
		if KGZdist <= 5:
			if KGZuspeh <= 70:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		elseif KGZdist <= 10:
			if KGZuspeh <= 60:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		else
			if KGZuspeh <= 50:
			KGZdead -= 1
			'You put a bullet in his head and he fell ghoul stopping moves.'
			else
			'You hit the dead.'
			end
		end
	end
if KGZbulgun > 0: jump 'KGZmarkgunb'
}
$KGZdeadmanatk = {
if KGZdist > 0: KGZdist -= 1
if KGZdead > 0 and KGZdist <= 2:
'<<KGZdead>> dead clutching at you, trying to tear.'
kgzuron = RAND(KGZdead * 2, KGZdead * 5)
KGZHP -= kgzuron
'<B><font color = red>you have caused damage <<kgzuron>> units.</font></B>'
elseif KGZdist > 2 and KGZdead > 0:
'<<KGZdead>> The Dead wheezing and limping approach you.'
end

}

$KGZgranatk = {
KGZuspeh = RAND(0,100)
KGZgranade -= 1
'You threw a grenade into the Dead'
	if KGZdist <= 5:
	'Powerful explosion threw the dead in different directions'
	KGZdist += RAND(1,5)
	KGZdead -= RAND(5,20)
	KGZHP -= RAND(5,20)
	'You hurt by a grenade'
	elseif KGZdist <= 10:
	'Powerful explosion threw the dead in different directions'
	KGZdist += RAND(1,3)
	KGZdead -= RAND(3,10)
	else
		if KGZuspeh <= 5:
		KGZdead -= 1
		'You put a bullet in his head and he fell ghoul stopping moves.'
		else
		'You do not dokinuli grenade and it exploded harmlessly.'
		end
	end
}
--- KGZdyn ---------------------------------

# KGZfight
minut += 1
gs 'stat'
gs 'KGZdyn'

if KGZHP <= 0:
cla
*clr
manna -= 100
'<center><B>GAME OVER</B></center>'
act 'Quit Game': gt 'KGZstart'
exit
end

if KGZdead <= 0:
cls
KGZbatl = 1
manna += 100
'All the dead were silent on the ground.'
act 'Leave': gt 'KGZgame'
exit
end
if GZdist < 0: GZdist = 0

!'<a href="exec:GT ''KGZstart''">Get out of the game</a>'
'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
'Edged weapons: <<$KGZweapon>>'
if KGZgun > 0: '<<$KGZgun>>'
if KGZgun2 > 0: '<<$KGZgun2>>'
if KGZgun3 > 0: '<<$KGZgun3>>'
'To you run <<KGZdead>> dead. They are at a distance <<KGZdist>> meters.'

if KGZdost = 1:
'Vincent fires a rifle.'
KGZdead -= 1
'One of the dead falls with prostrelyanny head.'
	if KGZdead <= 0: gt $curloc
end

if KGZgun > 0 and bullet > 0:
	act 'Shoot a gun':
	cls
	bullet -= 1
	dynamic $KGZgunatk
	dynamic $KGZdeadmanatk
	act 'Further': gt $curloc
	end
end

if KGZgun2 > 0 and bullet2 > 0:
	act 'Shoot a shotgun':
	cls
	bullet2 -= 1
	dynamic $KGZgunatk2
	dynamic $KGZdeadmanatk
	act 'Further': gt $curloc
	end
end

if KGZgun3 > 0 and bullet3 > 0:
	act 'Shoot a machine gun (single)':
	cls
	bullet3 -= 1
	dynamic $KGZgunatk3
	dynamic $KGZdeadmanatk
	act 'Further': gt $curloc
	end

	if bullet3 >= 3:
		act 'Shoot a machine gun (short burst)':
		cls
		bullet3 -= 3
		KGZbulgun = 3
		dynamic $KGZgunatk4
		dynamic $KGZdeadmanatk
		act 'Further': gt $curloc
		end
	end

	if bullet3 >= 10:
		act 'Shoot a machine gun (long queue)':
		cls
		bullet3 -= 10
		KGZbulgun = 10
		dynamic $KGZgunatk5
		dynamic $KGZdeadmanatk
		act 'Further': gt $curloc
		end
	end
end

if KGZgranade > 0:
	act 'Throw a grenade':
	cls
	dynamic $KGZgranatk
	act 'Further': gt $curloc
	end
end

if KGZdist <= 2:
	act 'Strike <<$KGZweapona>>':
	cls
	dynamic $KGZfizatk
	act 'Further': gt $curloc
	end
else
	act 'Wait':
	cls
	KGZdist -= 1
	gt $curloc
	end

	act 'Go to meet the dead':
	cls
	KGZdist -= 2
	gt $curloc
	end

	act 'Scoot':
	cls
		if KGZdead >= 10:
		KGZdist -= 5
		'Dead too much and they surrounded you, you can not escape.'
		act 'Fuck!': gt $curloc
		else
		KGZdedrandrun = RAND(0,1)
			if KGZdedrandrun = 0:
			KGZbatl = 1
			'You managed to escape from the dead.'
			act 'Leave': gt 'KGZgame'
			end
			if KGZdedrandrun = 1:
			KGZdist -= 5
			KGZdead += RAND(KGZdead, KGZdead * 5)
			'You have stumbled upon other dead and now you have to fight with a lot of dead.'
			act 'Fuck!': gt $curloc
			end
		end
	end
end
--- KGZfight ---------------------------------

# FSstart
minut += 1
nosave = 1
gs 'stat'
'<center><B>Albida</B></center>'
'.'
'<B>Your current character</B>'
'<<$FSpers>>'

if FSpers = 1: act 'Load a saved game': gt 'KGZgame'

act 'Play a new game':
cls
FSfemin = 0
FSfigur = 0
FScolor = 0
FSface = 0
FSskin = 0
FShvost = 0
dicktipe = 0
FSdick = 18
FSvagina = 0
FStits = 0
FStitsLine = 0
FSpers = 1
FSday = 0
FShour = 8
FSsup = 1
FSplace = 0
FSgem = 0
FSmedkit = 0

FSlvl = 1
FSexp = 0
FSstren = 10
FSspeed = 10
FSagil = 10
FSreakt = 10
FSvital = 10
FSHP = FSvital * 10

FSbrona = 0
FSweaponDam = 0

$FSname = input("Enter nickname")
if $FSname <= 0:$FSname = 'Player'
'Character Name <<$FSname>>'
act 'Play': gt 'FSgame'
end

act 'Exit': nosave = 0 & gt 'Komp','start'
--- FSstart ---------------------------------

# FSgame
minut += 1
gs 'stat'
gs 'FSstat'
'<center><B>Hotel room</B></center>'
''
	if FSmedkit > 0:
	'First aid kits <<FSmedkit>> pieces'
		if FSHP < 100:
			act 'Treated':
			cls
			FShour += 1
			FSHP = 100
			FSmedkit -= 1
			minut += 1
			gs 'stat'
			'You heal health through kits.'
			act 'Further': gt $curloc
			end
		end
	end

	act 'Laze':
	cls
	FShour += 1
	minut += 1
	gs 'stat'
	'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
	act 'Further': gt $curloc
	end


	act 'Leave the room':
	cls
	FShour += 1
	minut += 1
	gs 'stat'
	!'You left the room.'
	gt 'FSroom'
	end
--- FSgame ---------------------------------

# FSstat
FSneedExpNextLvl=(FSlvl * 10)*FSlvl
FSneedExp = FSneedExpNextLvl - FSexp
if FSneedExp <= 0 and FSlvl > FSlvlr: FSlvlr = FSlvl & FSpoint += 5 & FSlvl += 1 & FSexp = 0

if FSfemin < 45:$FSfemin = 'Men'
if FSfemin >= 45 and FSfemin >= 55:$FSfemin = 'Androgynous'
if FSfemin > 55:$FSfemin = 'Female'

if FSfigur < 45:$FSfigur = 'Male figure'
if FSfigur >= 45 and FSfigur >= 55:$FSfigur = 'Androgynous figure'
if FSfigur > 55:$FSfigur = 'Female figure'

if FScolor < 0: FScolor = 0
if FScolor > 5: FScolor = 5
if FScolor = 0:$FScolor = 'Black hair' & $FSsherst = 'Black'
if FScolor = 1:$FScolor = 'Brown hair' & $FSsherst = 'Brown'
if FScolor = 2:$FScolor = 'Foxy hair' & $FSsherst = 'Redhead'
if FScolor = 3:$FScolor = 'Blonde hair' & $FSsherst = '<<$name>>'
if FScolor = 4:$FScolor = 'Pink hair' & $FSsherst = 'Pink'
if FScolor = 5:$FScolor = 'White hair' & $FSsherst = 'White'

if FSface <= 0:$FSface = '<<$FSfemin>> person. <<$FScolor>>'
if FSface = 1:$FSface = '<<$FSfemin>> a person with cat ears and nose. <<$FScolor>>'
if FSface = 2:$FSface = '<<$FSfemin>> a person with dog ears and nose. <<$FScolor>>'
if FSface = 3:$FSface = '<<$FSfemin>> A person with fox ears and nose. <<$FScolor>>'
if FSface = 4:$FSface = '<<$FSfemin>> The person with the protruding ears and nose. <<$FScolor>>'
if FSface = 5:$FSface = '<<$FSfemin>> A person with cow´s ears and nose. <<$FScolor>>'
if FSface >= 6:$FSface = '<<$FSfemin>> a person with ears and nose like a lizard. <<$FScolor>>'

if FSskin <= 0:$FSskin = 'Normal skin'
if FSskin = 1:$FSskin = '<<$FSsherst>> The fur on the body'
if FSskin >= 2:$FSskin = 'Scales on body'

if FShvost <= 0:$FShvost = ''
if FShvost = 1:$FShvost = 'Cat´s tail'
if FShvost = 2:$FShvost = 'Dog´s tail'
if FShvost = 3:$FShvost = 'Foxtail'
if FShvost = 4:$FShvost = 'Horse´s tail'
if FShvost = 5:$FShvost = 'Cow´s Tail'
if FShvost >= 6:$FShvost = 'Reptile tail'

if dicktipe <= 0:$dicktipe = 'Normal male'
if dicktipe = 1:$dicktipe = 'Conical, covered with soft spines cat'
if dicktipe = 2:$dicktipe = 'Red, a large dog at the base node'
if dicktipe = 3:$dicktipe = 'Covered with coarse, black leather bull'
if dicktipe >= 4:$dicktipe = 'Powerful horse'

if FSdick > 0:$FSdick = '<<$dicktipe>> long dick <<FSdick>>, see'
if FSdick <= 0:$FSdick = ''

if FSvagina > 0:$FSvagina = 'Between the legs of you is Snatch.'
if FSvagina <= 0:$FSvagina = ''

if FStits = 1:$FStitrazm = 'AA'
if FStits = 2:$FStitrazm = 'A resolution'
if FStits = 3:$FStitrazm = 'size B'
if FStits = 4:$FStitrazm = 'size C'
if FStits = 5:$FStitrazm = 'size D'
if FStits = 6:$FStitrazm = 'size E'
if FStits = 7:$FStitrazm = 'size F'
if FStits > 8:$FStitrazm = 'size F +'

if FStits > 0 and FStitsLine = 0:$FStits = 'Female breast <<$FStitrazm>>'
if FStits > 0 and FStitsLine = 1:$FStits = 'Two pairs of women´s breasts <<$FStitrazm>>'
if FStits > 0 and FStitsLine >= 2:$FStits = 'Three pairs of nipples <<$FStitrazm>>'

if FSpers = 0:$FSpers = 'You have no character'
if FSpers > 0:$FSpers = '<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>'
'Level <<FSlvl>>, exp <<FSexp>>, need for next level <<FSneedExp>> exp'
'Life <<FSHP>>'
'Strength <<FSstren>>'
'Speed <<FSspeed>>'
'Agility <<FSagil>>'
'Initiative <<FSreakt>>'
'Endurance <<FSvital>>'


if FShour >= 24:
FShour -= 24
FSday += 1
	if FSsup = 0:
	FSHP -= 10
	else
	FSsup -= 1
	end
end

if FSHP > 100: FSHP = 100

'<a href="exec:GT ''FSstart''">Get out of the game</a>'
'Day <<FSday>>, h <<FShour>>'
'<<FSgem>> of coins. Food enough for <<FSsup>> days'
''

$FSatk = {
KGOLzas = RAND(FSagilV/4, FSagilV)
KGOLataka = RAND(FSspeed/2, FSspeed * 2)
if KGOLataka >= KGOLzas:
	if KGOLataka >= KGOLzas * 2:
	KGHPnpow = RAND(FSstren/2, FSstren)+ RAND(FSweaponDam/2, FSweaponDam)
	FSHPV -= KGHPnpow
	'<font color = green>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(FSstren/4, FSstren/2)+ RAND(FSweaponDam/4, FSweaponDam/2)
	KGHPntpow = KGHPnpow - FSbronaV
	if KGHPntpow <= 0: KGHPntpow = 1
	FSHPV -= KGHPnpow
	'<font color = blue>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = red><<$FSnameV>> dodged your attack</font>'
end
}
$FSatkV = {
KGOLzas = RAND(FSagil/4, FSagil)
KGOLataka = RAND(FSspeedV/2, FSspeedV * 2)
if KGOLataka >= KGOLzas:
	if KGOLataka >= KGOLzas * 2:
	KGHPnpow = RAND(FSstrenV/2, FSstrenV)+ RAND(FSweaponDamV/2, FSweaponDamV)
	FSHP -= KGHPnpow
	'<font color = red>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(FSstrenV/4, FSstrenV/2)+ RAND(FSweaponDamV/4, FSweaponDamV/2)
	KGHPntpow = KGHPnpow - FSbrona
	if KGHPntpow <= 0: KGHPntpow = 1
	FSHP -= KGHPnpow
	'<font color = brown>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = green>You dodged the attack</font>'
end
}
--- FSstat ---------------------------------

# FSfight
minut += 1
gs 'stat'
'Your health <<FSHP>>.'
'<<$FSnameV>>Health <<FSHPV>>'

!конец боя
if FSHP <= 0:
FSloss += 1
'You lost the fight'
act 'Leave': gt 'FSgame'
exit
end
if FSHPV <= 0:
FSWin += 1
'<<$FSnameV>> fell. You win the fight.'
'You got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
act 'Disengage': gt 'FSgame'
exit
end
!инициатива
KGOLiniV = RAND(FSreaktV/2, FSreaktV * 2)
KGOLini = RAND(FSreakt/2, FSreakt * 2)
if KGOLini = KGOLiniV:
hodrand = RAND(0,1)
if hodrand = 0: KGOLini = 1 & KGOLiniV = 0
if hodrand = 1: KGOLini = 0 & KGOLiniV = 1
end
if KGOLini > KGOLiniV: KGOLiniSUM += 1
if KGOLini < KGOLiniV: KGOLiniSUM -= 1
if KGOLiniSUM > 3: KGOLini = 0 & KGOLiniV = 1 & KGOLiniSUM = 0
if KGOLiniSUM<-3: KGOLini = 1 & KGOLiniV = 0 & KGOLiniSUM = 0
!ходы
if KGOLini > KGOLiniV:
'Now your turn'
	act 'Attack':
	cls
	''
	dynamic $FSatk
	act 'Further': gt $curloc
	end
else
'Now opponents'
'<<$FSnameV>> attacks you'
	dynamic $FSatkV
	act 'Further': gt $curloc
end
--- FSfight ---------------------------------

# FSroom
minut += 1
gs 'stat'
gs 'FSstat'
'<center><B>Street</B></center>'



	act 'Walk into a room':
	cls
	FShour += 1
	minut += 1
	gs 'stat'
	!'You left the room.'
	gt 'FSgame'
	end

	act 'Wander':
	cls
	FShour += 1
	minut += 1
	gs 'stat'
	'You wander through the deserted streets.'
	act 'Further': gt $curloc
	end


										тдсмтссссссс
--- FSroom ---------------------------------

# young_shop
if $ARGS[0] = 'start':
$sexloc = $CURLOC
gs 'stat'
act 'Finish the job': dynamic $endwork
end

$endwork = {
!if young_shop_work = 1 and young_shop_miss < 3:
cla
if week = 5 and young_shop_salary > 0:
	act '<font color = green>Get a Salary</font>':
	gt 'andrey'
	end
else
	act '<B>Get out of the shop</B>':
	minut += 3
	gt 'torgcentr'
	end
end
}

'<B><center><font size = 4><font color = black>'' '' pussy-Keys</font></center></B>'
*nl
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
$sexloc = $CURLOC
'<center><img src="images\pictures\young_shop.jpg"></center>'
*nl
'Small shop clothing for young people. Mostly pretty bold outfits for emancipated young people with attractive bodies.'
	!if young_shop_work = 0:
	'Manager is open from 10:00 to 18:00.'
		act '<font color = navy>Login to the manager</font>':
		minut += 1
		gt 'andrey'
		end
	!end
*nl

act '<B>Get out of the shop</B>':
minut += 3
gt 'torgcentr'
end

act '<font color = navy>Department of Women´s Clothing</font>':
minut += 1
gt 'sell_young_clothes'
end

if hour = 15 and young_shop_work = 1 and week < 6:
'Manager is open from 10:00 to 18:00.' & *nl
	act '<font color = green>Work</font>':
	cla
	inWorkYoungShop = 1
	young_shop_salary += 1
	'<B>I cleaned two o´clock in the department to get better and hang clothes, serving customers. Rabotenka not dusty and even pretty good.</B>'
	*nl
	minut += 135
	gs 'stat'
	set random = RAND(1,80)
		if random > 50 and random <= 55: gt 'young_shop','0'
		if random > 55 and random <= 60: gt 'young_shop','1'
		if random > 60 and random <= 65: gt 'young_shop','2'
		if random > 65 and random <= 70: gt 'young_shop','3'
		if random > 70 and random <= 75: gt 'young_shop','4'
		if random > 75 and random <= 80: gt 'young_shop','5'

		if random >= 1 and random <= 20 and (kira <> 0 or young_shop_salary < 3):
		'<B>Regular unremarkable day at work comes to an end.</B>'
		*nl
		act 'Finish the job': dynamic $endwork
		end

		if random >= 1 and random <= 20 and kira = 0 and young_shop_salary >= 3:
		cla
		set kira = 1
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'Twenty minutes before the end of the day a lady comes up to me with a girl glamorous appearance. Girl constantly turns and asks the woman:'
		'- Mom, is not necessary. Let´s buy in stores .. Well, MAAM ..'
		'- Stop acting up! All your classmates in such clothes go, I do not want my girl over bullied because she is not like all! - Woman full of determination and certainly not going to change his intentions.'
		'- Hello, I help you? - With a smile on his face I come to my mother and daughter.'
		'Lady inspects appraising me down so the head and turns to his daughter:'
		'- You see, Kira, a girl a little older than you, and dressed .. - she does not have time to finish the sentence, because Vick starts acting up again:'
		'- Well, just as no one goes! I can not on the street in this form appear, and even without a bra. I´ll see it all!'
		'- And why not? - Woman throws up his hands in surprise. - It would be ashamed, do not you still have grown! So, that´s enough, I´m tired.'
		'She turns to me with a haughty smile and looks me in the eye:'
		'- Girl, tell me, your clothes fit like my children Kira? - A little nod and she says clearly just waiting for a positive response.'
		*nl
			act 'Yes, of course':
			cla
			*clr
			'Throwing another look at the girl, I confidently replied:'
			'- Naturally! All my friends buy clothes only in this shop. We have a transparent blouse kakraz that will look great on your daughter! And there is a suitable size. And yes, all our products are designed to be worn without a bra - I quickly find the right size and helpfully stretch blouse tearful Kira. - Booth there, you can try!'
			'Woman takes daughter in his arms and carries with it a little in the cabanas. 7 minutes later, they returned.'
			*nl
			'<center><img src="images\pictures\young_shop_quest9.jpg"></center>'
			*nl
			'- As I thought, you are well this blouse! By the way, this model has just arrived in our shop, she created a beautiful Italian designer .. - I am happy to pronounce.'
			'- Yes, all Kirin girlfriends will be jealous! And how much is this beauty?'
			'- Exclusive offer - only 2,400.'
			'I notice that Cyrus already resigned to his fate and decide to provoke it a bit:'
			*nl
				act 'With a mini-skirt better':
				*clr
				'- You know, with a mini-skirt on your blouse revealed 100%. Look at this model, imagine how great it will look on your daughter!'
				'- What do I have it all? .. - Not hoping for a positive outcome, sighs Cyrus.'
				'Woman takes her skirt in hand, twirls it inspects for defects and marriage, and with a confident expression leads daughter-in dressing room.'
				'- And such as skirts worn without panties or am I mistaken? - Woman looking back at me.'
				'- It is highly desirable - I say, nodding.'
				'- Clear.'
				'After a couple of minutes behind the curtain begins some scuffling. Apparently the girl again started to act up and hang back. Mom, are pretty scruffy and tired, out of the booth and asks for help:'
				'- She always rests, can you do something you do?'
				'In the words of the woman´s face becomes clear to me that if my daughter now I do not get rid of underwear completely, they will simply leave and do not buy, and I would lose the premium that could earn for this sale.'
				'I go into the booth and see Kira, who, despite his tearful appearance, looks amazing in a new outfit. It is a pity that there are unlikely to have the words right impact, but if I do it myself, then shy skromnyasha Cyrus probably did not even try to stop me.'
				*nl
				cla
					act 'Persuade Cyrus':
					*clr
					delact 'Persuade Cyrus'
					'I decide to address their psychological skills and persuade Cyrus off her panties.'
					*nl
						if intel >= 50:
						cla
						*clr
						'Fortunately Kira very trusting girl, and my leadership qualities are not pumped. I managed to convince her that absolutely should not be embarrassed and that the mother wants for her nothing but good.'
						'Vick slowly puts his hands under her skirt and pulls off her panties.'
						'- You feel like a breeze blowing from the bottom? Imagine how nice it would be to go walking on the street.'
						'- What if someone sees?'
						'- Oh, do not be greedy - I clap on the shoulder Cyrus. - Let them look and dream. All your friends will envy you and ask why when you´re with them, all the guys only look at you.'
						'I bring Kira from the locker room and pass panties her mother.'
						'- Once an awkward, but you can afford to leave them, or throw it away? I want to wean my daughter from underwear, and then all of these purchases will be wasted. Hide from her panties and bras all until she gets used.'
						'I decide to leave the panties themselves and shove them in her purse. Mom is paying at the cash register and takes her daughter dressed in a new blouse and mini-skirt.'
						'Kira looks and smiles at me goodbye, and then leaves, flashing naked booty in every breeze.'
						*nl
						'<center><img src="images\pictures\characters\photo_dressed_[$vika]_13.src="></center>'
						*nl

							act 'Finish the job': dynamic $endwork
						else
						'Unfortunately, despite my best efforts, I can not get her to talk and there is only one way out ..'
						*nl
							act 'Remove her panties':
							cla
							*clr
							'- Well, - I bend over and thrust his hands under her skirt Kira. The girl could not even imagine that it´s possible.'
							'I lift my mini skirt and slowly Cyrus pulls off her panties. Bares her pussy is right before my eyes at a distance of 10 centimeters. I notice that the girl is very excited because of this situation and her panties a little wet. Delicate aroma hit my nose and I smiled.'
							'Kira took off her panties, I show her wet spot, and then hide behind panties and get out of the booth.'
							'- We managed to agree - smile I pretend that I managed to persuade Cyrus off her panties on their own.'
							'- Oh, how wonderful, wonderful - a woman and her daughter examines and decides to buy a blouse and mini-skirt.'
							'Before leaving Cyrus thanked me, and I wink at her, to which she gives a very pleasant smile.'
							*nl
							'<center><img src="images\pictures\characters\photo_dressed_[$vika]_13.png"></center>'
							*nl
								act 'Finish the job': dynamic $endwork
							end
						end
					end
				end
			end

			act 'No, it is too early':
			cla
			*clr
			'- Sorry, but it is too early to wear such clothes. Especially since she does not want - I breed hands.'
			'- How so? I see on TV that they all go to these outfits! - Woman looks at me with disbelief. She obviously could not imagine that she would be against the clothing worn by itself and which should sell.'
			'"Glamorous m revised zomboyaschik clearly wants whore of the daughters do" - I think, looking into the eyes of the lady and ulybayus.'
			*nl
				act 'Convince a woman':
				cla
				delact 'Convince a woman'
				'This can not be so leave! I resolve to do everything in my power to convince strange mother.'
				*nl
					if intel >= 60:
					'- You seriously think so, but I do ..? - Glamorous lady ponders my words their meager umishkom and decides to eat them meaning. - Okay, let´s go to a regular store.'
					'Before leaving Cyrus smiles at me and says:'
					'- Thank you .. bye! - Girl waving me handle and runs after her mother.'
					*nl
					'<center><img src="images\pictures\characters\photo_dressed_[$vika]_13.png"></center>'
					*nl

						act 'Finish the job': dynamic $endwork
					else
					'- What are you saying? And on TV, so wrong show? What I´m talking to you all! - Glamorous lady could not understand the meaning of my words. - All Kira, we go to another store.'
					'Before leaving, the girl thanked me for trying to save her and runs away after mama.'
					*nl
					'<center><img src="images\pictures\characters\photo_dressed_[$vika]_13.png"></center>'
					*nl

						act 'Finish the job': dynamic $endwork
					end
				end
			end
		end

		if random = 21:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'I´m just finishing cute blouses hanging from the new collection, as the old lady comes up to me 70 years and begins a long, dull monologue from which I learned a lot about himself, his work, the contemporary fashion and a long tradition.'
		'To start grandmother complains modern society and its mores: floss, corruption, drugs, seals and everything. Then she remembers the old happy time when the grass was greener and women at age 18 married virgins:'
		'- And now that .. That´s my granddaughter in the classroom no virgins left. And she is in 7th grade student, they have there 15 girls in the classroom! How so .. And one girl, Lena name like already made three abortion. What is this world - grandmother prichetala 20 minutes and I could not manage to calm her down and show the door of the store.'
		'- Here´s granddaughter, you also learn at school is probably why you dress, do not you ashamed?'
		*nl

			act 'Shame on you!':
			cla
			'- And why I should be ashamed of that? I did nothing wrong and depraved do not! It´s just beautiful clothes, fashion is now such that it will not Stalinist times.'
			'- Yeah, when Comrade Stalin would this just could not happen! - Here begins a new lecture about old times, honesty, integrity, correctness.'
			'Old lady long crucified, but it is also finally get bored and she begins to waddle to the door, showering our shop and curses of modern youth.'
			*nl
				act 'Finish the job': dynamic $endwork
			end


			act 'It is only at work so':
			cla
			'- Of course a shame, but I can not be different. Need to earn money, works not want to eat. And my sister, and it is necessary to take care of her - I long crucified, talking about his plight and promising grandmother never go out like this.'
			'Finally grandmother, satisfied with my answer, I praise and begins with the cross, wish me happiness and kindness.'
			'I´m an old lady with relief to the exit.'
			*nl
				act 'Finish the job': dynamic $endwork
			end
		end

		if random = 22:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'Passing the cabanas, I hear strange noises from there. Perhaps some dresses, but there´s something wrong.'
		'Going on about the curiosity, I´m making sure that I did not notice, look inside and see a rather strange picture:'
		*nl
		'<center><img src="images\pictures\young_shop_quest2.jpg"></center>'
		*nl
		'Whether a couple doterpela not, whether they have nowhere else, whether they are just perverts. It is difficult to say, and now it is a special value has not.'
		'I watch as the cute girl is very skillfully suck a man´s penis and I do not know how to react. Watching them, I can not continue - that think of me if they see as an employee spying for customers to change clothes.'
		*nl
			if horny >= 80:
			'I´m too excited to ignore what is happening or disperse representation.'
				act 'Eavesdrop':
				cla
				*clr
				'I decide to stand next to the cabin and listen to the joy of a young couple. I listen as she licks smacking and sucking cock. Then she makes a strange rattle and nature of changes occurring.'
				'- Do they not confine blowjob? - I look down again to the booth and see what was wrong. The guy holding the girl´s hair and pulls her mouth firmly on the penis. I have never seen a girl with such force fucked in the throat.'
				'- She can suffocate - but instead to help minetchitsa I spend a hand through her hardened nipples and rush to the skirt.'
				'Then I hear the guy starts moaning, and the girl coughed plaintively asks him:'
				'- Come on, come on, Cum on my face, yes .. - I once again look in the booth.'
				*nl
					act 'Look into the booth':
					cla
					*clr
					'<center><img src="images\pictures\young_shop_quest3.jpg"></center>'
					*nl
					'All the girl´s face covered with thick sperm.'
					'Guy again puts cock into her mouth so she choby brushed his semen. Then he quietly begins to wear pants, watching as the girl palms collects sperm from her face and hides it in his mouth.'
					'I decide a little bit away from the booth, and then they can suddenly go out and caught me. A minute later, a pair of shows and I see that she is not very carefully wiped her face and traces of sperm visible to the naked eye.'
					'As such, the steam coming out of the store into the street.'
					*nl
					horny += 10
						act 'Finish the job': dynamic $endwork
					end
				end
			end

			if horny < 80:
				act 'Ignore':
				cla
				*clr
				'This is clearly not my business, and just snoop and eavesdrop somehow indecent. Of course, I could get rid of them, but I do not want to deprive young people of good memories and spoil their fun.'
				'I am going away from the booth and start folding scattered visitors blouses and hang them in places. After a few minutes, a couple out of the booth and I see traces of semen on the girl´s face. All my efforts to overcome smile turn into failure, and I´m just her hand.'
				'Meanwhile blowjob with her boyfriend out of the store into the street.'
				*nl
					act 'Finish the job': dynamic $endwork
				end

				act 'Disperse':
				cla
				*clr
				'Ahem, uh .. - I expectorate. - You all right, can you help?'
				'- Yeah, you can come in and help - I hear the muffled voice of the guy. - Ouch, that hurts.'
				'Girl takes out a member of his mouth and hit the guy in the balls, loudly says:'
				'- We now finish and exit.'
				'A minute later the pair shows the booth and the girl gives to me a shy smile and a little blushing, takes her boyfriend out of the store.'
				*nl
					act 'Finish the job': dynamic $endwork
				end
			end
		end

		if random = 23:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'I go to the cabanas and find there left shirt. Just remember that she was put on a shopper who is 5 minutes ago bought a blouse and it is gone from the store. Apparently, she decided to throw a t-shirt and just left in the booth.'
		'I decide to wait until the end of the shift, the shopper can return. An hour passes and my shift ends, nobody´s shirt comes. I carefully look around her: ordinary shirt, almost new, no holes, no dirt no. Can pick yourself?'
		*nl

			act 'Pick up a':
			cla
			'Before leaving, I take a shirt with a. Girl she did not need, and I am not so rich to almost throw new things.'
			*nl
				if wear_chest_have_[6] = 0:
				'no action'
				else
				'<B>- Although, I also already has one. With such a pile of things as I have, it´s easy and lured .. Okay, the second is the same I do not need - I leave the T-shirt in the store.</B>'
				*nl
				end

				act 'Finish the job': dynamic $endwork
			end

			act 'Finish the job': dynamic $endwork

		end

		if random = 24:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'I went in today I cabanas and not approached collect clothes that left another buyer after fitting. Accidentally drops a mini-skirt and lifting it, I notice a very inconspicuous element on the baseboard. I immediately throws the heat:'
			'- Yes, it´s a hidden camera - the thought pierced me like an arrow. I could not think what we have in store you might find something like that!'
			'What to do now, should probably tell the manager, he will understand, or .. What if he knows? No, this can not be.'
		*nl
			act 'Tell about the camcorder':
			cla
			'I´m breaking in without knocking at the manager´s office and start chattering about what happened.'
			'- Hey, hey, <<$name>>, calm down! What happened??'
			'- There, there, in the booth, - trembling hands I point in the direction of changing booths. - Faster!'
			'Manager reluctantly rises from his chair and goes for me. Going into the booth, he squats and pulls the camera glued to the plinth.'
			'- It is necessary to call .. - I begin to prompt the manager, but he interrupts me in mid-sentence:'
			'- Wait, we should think - manager stands and twirls kamerku hands. - If we call the cops, here is a start .. Shop closed, pereroyut all here, and more can be fined or something worse. As host learns so completely freaked pouvolnyaet indiscriminately.'
			'- Let´s just like this: Now you calm down and go home, and I´m here all inspection. We all problems to anything! You vigilance premium good we write only a word or anyone, okay?'
			'- Yes, of course - my shift anyway coming to an end and I decide to just go home and forget about everything.'
			*nl
				act 'Finish the job': dynamic $endwork
			end

			act 'Keep silent':
			cla
			'I take a few deep breaths and force myself to calm down, bring my thoughts in order.'
			'- I did not install the camera, am not responsible, I can always say that and never knew about it. In the booth, I do not dress up. Generally, girls who will remove the camera still does not know, but someone look, entertain, work. I do not mind.'
			'I decide not to touch the camera and just keep working.'
			*nl
				act 'Finish the job': dynamic $endwork
			end
		end

		if random = 25:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'Man approached me 40 years and asks for help in choosing clothes for her little daughter:'
		'- Hello, my beauty, help me to choose a gift for my daughter´s birthday.'
		'- Yes, of course. What´s her size?'
		'- Yes, I do not even know .. Well, her figure like yours, only smaller breasts. Maybe you will try out for yourself?'
		'- In principle, I do not mind, now you pick up a suit. And how old is your daughter? - I do not work, visitors today for some reason are not shown, so that the fitting clothing is a great way to while away a few minutes.'
		'- It is much younger than you, but does not develop for years, the figure is less than 16 do not give! - Buyer´s eyes sparkled as he began to think about his daughter.'
		*nl
			if intel >= 40:
			'Struck me as boiling water .. Yes, he´s a pedophile, he can choose his little daughter such clothes, but still with a smile on his face. Maybe I need to do something about it? ..'
			*nl

				act 'Pass pedophile':
				cla
				'- I am happy for you to try on a few options. Wait here, and I´ll run to the store and immediately find all the blouses and skirts to fit and will try! - Trying not to betray nervousness, I ulabyyus men who hide behind the door to the premises.'
					'Describing all the manager, I´m going to the warehouse, quickly find several options of clothes and change into running the booth. Pedophile lustfully watching as I´m better in front of him once skirt, go to the store when several policemen.'
					'Pedoisteriya in full swing, in that the police do not even think to listen to the arguments of men, pinned it leads to a patrol car.'
					'- Nothing, now send your daughter to workers care, they will understand psychologists your fault or not - with these words derive cops guy from the store.'
				*nl
					act 'Finish the job': dynamic $endwork
				end
			end

			act 'Try on clothes':
			*clr
			cla
				if intel >= 40:
				'Actually, it´s none of my business if his daughter not satisfied with something, she herself may apply to the authorities, and I still can not destroy the whole family, with his nose where it should not!'
				*nl
				end

				if intel < 40:
				'Suspecting nothing, I say that now all children precocious develop.'
				'I go to the warehouse and collect all the clothes that fit me, back to cabanas ..'
				'Man constantly jokes and makes a very nice compliments about my figure. Every time I´m hiding behind a curtain booth, he tries to peep how I dress up and continues to laugh it off when I notice it.'
				'During the show, he kept spinning me on the spot, trying to see what is hidden under a skirt and my chest feels a considering blouses.'
				'His actions seem to me a little suspicious, but I write it off on haroshie mood and sociability.'
				'Once I finally try on all the skirts and blouses, he chooses and asks me to change once more.'
				'- What a beauty, for my daughter it will look simply amazing. Listen .. and you do not want to make some money?'
				'- In what sense? - I was surprised to breed hands.'
				'- You know, you´re so beautiful and sexy, I´m very excited looking at you! I will pay 5000 if you just billeting in this clothes, with his skirt. Naturally, no panties and bra. Nothing else to do.'
				*nl
				horny += 30
				gs 'stat'
				end

				act 'Refuse':
				*clr
				cla
				'<center><img src="images\pictures\young_shop_quest4.jpg"></center>'
				*nl
				'- What are you, crazy? I´m not going to do that! - A blatant bid I just discouraged. - You do not have to persuade me, it just will not! Go to offer his daughter is.'
				'- Make sure you will do so - buyer out of the booth and waits until I will disguise myself, and will give him clothes, then calmly pays and leaves the store. I´m disgusted look after him.'
				*nl
					act 'Finish the job': dynamic $endwork
				end

				if horny >= 80: delact 'Refuse' & '<font size = 3><font color = black><B>I´m too excited to refuse such an offer.</B></font>'

				act 'Agree':
				cla
				set money += 5000
				msg 'Excited buyer pulls out of his pocket and handed me a purse <B>5000</B> RR'
				set horny += 10
				*clr
				cla
				'- Okay, but the more I will not do anything! - 5,000 rubles - a great motivator and it would be foolish to ignore such a sum.'
				if horny >= 100: 'Yes, and my body just craves to have someone look at it.'
				'I unfasten and disavow her bra baring her breasts to a stranger. Then I thrust his hands under her skirt and slowly removes her panties.'
				'I pull a little blouse to podcherktut its almost bare chest and thrust his hand under her skirt to slowly remove her panties.'
				'I unfasten and disavow her bra baring her breasts to a stranger.'
				'Licking his lips, I´ll take the edge mini skirts and little back arching back, begin to lift the edges up. Meanwhile man unzips his fly and vynimet already hardened member and humid outside.'
				'I flushed with excitement, standing in the locker room without panties and bra, lifting her skirt so that my pussy is perfectly visible, and look at how male jerking his cock. Do not have time to recover as the man begins to wheeze, and realize that he is now to finish.'
				'Suddenly he takes a step forward and lays down his hand on my shoulder. Strong movement he puts me on my knees. I want to argue against such behavior, citing our agreement, but I understand that just do not have time to do it. Man starts muffled moan and I understand that his cock explode.'
				*nl
				gs 'stat'

					act 'Close your eyes':
					set horny += 10
					facial += 1
					cumface += 1
					gs 'stat'
					*clr
					cla
					*nl
					'<center><img src="images\pictures\young_shop_quest8.jpg"></center>'
					*nl
					'I have nowhere to go. I barely have time to close his eyes before a powerful jet of sperm hitting me in the face. Then another. I feel a strong masculine fragrance. Cum completely covers my face, hair gets in and begins to flow on clothes, leaving a thick spots.'
					*nl

						if vaf > 10:
						'It´s so much on me, I´m starting to collect sperm in his hands, and then with great pleasure to lick her fingers.'
						*nl
						swallow += 1
						cumlip += 1
						gs 'stat'
						'This smell and taste is driving me crazy, my legs give way and I feel like the underbelly begins to shudder. I´m coming.'
						'Recovering, I see a man standing over me and smiling:'
						'- You voskhotitelna, beautiful! Let´s take your clothes off, I buy these clothes - here I begin to speak, you need to bring new things, and these get dirty, or at least clean, but the buyer interrupts me. - No, I do not need to be cleaned, these tracks will remind me of the wonderful moments with you.'
						'I undress and dress up in their clothes, then quickly run to the locker room. My shift had time to finish until I measure all of these outfits, and before leaving we must put himself in order.'
							act 'Finish the job': dynamic $endwork
						else
						'When sperm flows cease to beat me in the face, I open my eyes and see right before your eyes appetizing big dick, all covered with sperm. It emanates a strong masculine fragrance.'
						*nl

						if vaf > 0: swallow += 1 & cumlip += 1 & 'I do not hold back and take a cock in her mouth. It turns out that he has not completely drained and I feel like the last time he flinches and my mouth filled with sperm. I am very neat and clean out the member took out his mouth.'
						'I raise my eyes to the buyer and smile at him.'
						'- You voskhotitelna, beautiful! Let´s take your clothes off, I buy these clothes - here I begin to speak, you need to bring new things, and these get dirty, or at least clean, but the buyer interrupts me. - No, I do not need to be cleaned, these tracks will remind me of the wonderful moments with you.'
						'I undress and dress up in their clothes, then quickly run to the locker room. My shift had time to finish until I measure all of these outfits, and before leaving we must put himself in order.'
						*nl
							act 'Finish the job': dynamic $endwork
						end
					end
				end

				act 'Finish the job': dynamic $endwork
			end
		end

		if random = 26:
		*clr
		cla
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'<<$name>>, see here - approached me Nastya. - I´ve got a nice blouse, new, but with a slight defect. The manager is going to put it at a good discount <B>-70%</B>, may want to take yourself?'
		'In store we have it for <B>2400</B> rubles sold, you can buy <B>720</B>. Look at this:'
			act 'Finish the job': dynamic $endwork
		end

		if random = 27:
		*clr
		cla
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'<center><img src="images\pictures\young_shop_quest5.jpg"></center>'
		*nl
		'In the shop go 2 guys very glamorous appearance and begin to consider the transparent blouses. I often notice them in this neighborhood probably live somewhere near. They constantly go together and holding hands. I go to the guys and helpfully interested in:'
		*nl

			act 'Help you?':
			cla
			'- Hello, I see you pick up a gift for his girls, can you help?'
				if vnesh < 50:
				'Guys appreciatively examine me from head to toe and one of them says with disdain:'
				'- Get out, nasty, without you understand, you most need the help! - And starts insulting discuss my appearance with her boyfriend.'
				'I am going away from them and beckons me another customer.'
				*nl
					act 'Finish the job': dynamic $endwork
				else
				'Guys appreciatively examine me from head to toe and one of them says with interest:'
				'- What a pretty girl. Do not worry, my beauty, we do with a mustache! - The guy waving me goodbye, and took his friend´s hand, starts admiringly discuss my appearance.'
				'I am going away from them and beckons me another customer.'
				*nl
					act 'Finish the job': dynamic $endwork
				end
			end
		end

		if random = 28:
		*clr
		cla
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		money += 1000
		'<center><img src="images\pictures\young_shop_quest6.jpg"></center>'
		'In store tumble three boozy woman of indeterminate age, dressed in clothes podrypannuyu. All as one in torn kalgotkah, colorful miniskirts and dirty T-shirts.'
		'- Whores? - I ask Nastia.'
		'- Oh, by the way, you see the one in the red skirt? - Nastya nods toward the ugliest of them. - She studied in a parallel class.'
		'- She´s what, 18 years?? Horror, what brings dissolute lifestyle - I declare accusingly.'
		'- Depraved nothing to do with - says Nastya. - Some girls have been on the order of more guys than her, but they do not look! You just have to look after themselves, not plump and dope Shiryaev in the doorways.'
		'Slut, not even an example, choose the first available things and carry them to the cashier. Nastya´s friend throws a pile on the counter dirty crumpled rubles and pulling a face says:'
		'- Procedure? - No answer, virgins take their belongings and leave the store.'
		'- Here you go, you half - Nastya puts me a pile of rubles. - They are a little short changed, not in cash to lay down the same ..'
		*nl
		act 'Finish the job': dynamic $endwork
		end

		if random >= 29 and random <= 34:
		*clr
		cla
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		'In the beginning of the shift manager asked me to come to him after work, but the reasons are not named.'
		'I approached the door to his office and I´m going to knock. Then I noticed that the door was slightly preotkryta and look inside.'
		*nl

			act 'Look inside':
			cla
			'<center><img src="images\pictures\young_shop_quest10.jpg"></center>'
			*nl
			'Then my eyes opened obscene picture. Andrew M. is facing the monitor, his pants pulled down, and in the hands of a member. The manager looks at the monitor and fingering his penis, which put on a condom. Almost immediately he throws back his head and starts to cum.'
			'Filling a condom with sperm, he removes it wipes member and throws a condom in the waste basket. Then he starts to pull his pants and walk toward the door.'
			'I´m trying not to make a sound, run back from the door and hide behind the boxes near the service exit. Andrei Mikhailovich, noticing nothing, to pass into the toilet. I´m out of his hiding place and I go to his office. Out of curiosity, I look to the monitor and see the stage from selected German porn. Then I throw a look into the basket and see her lying in a condom full of sperm.'
			*nl

				act 'Wait for the manager':
				cla
				'With a smile, I step away from the table manager, representing what I´d do if he saw me at the monitor, and even with a condom in her hand.'
				'A minute later, Andrew M. returns:'
				'- And, <<$name>>, fellow that came! Wait, I´ll give you a piece of paper, you need to sign it - the manager comes to his desk for a long time and finally goes through the papers handed me some paper.'
				'I thought in my head is not on pieces of paper, in that I do not read, sign and return the document manager. After saying goodbye, I´m going back to the shop floor.'
				*nl
					act 'Finish the job': dynamic $endwork
				end

				act 'Take the condom':
				cla
				*clr
				'<center><img src="images\pictures\condom_cum.jpg"></center>'
				*nl
				'I decide a little hooliganism. Reaches into the basket and takes out a condom. It is slippery and still warm. I pick up a condom over his head to see through it to the light bulb. Then suddenly I hear the door open to the study. Another half a second and I noticed with a condom in her hand! I do not even have extra moment to hide his hands behind his back.'
				*nl
					act 'In your mouth!':
					cla
					'I have no other options .. I barely have time to shove a condom in her mouth, as I see Andrei´s eyes:'
					'- And, <<$name>>, fellow that came! Wait, I´ll give you a piece of paper, you need to sign it - the manager comes to his desk for a long time and finally goes through the papers handed me some paper.'
					'I absolutely do not read it and then sign, then utter:'
					'- Dohvianiya - I vygozhu the office and run straight to the locker room and took out a condom from his mouth, I throw it in the trash.'
					'Well, that Andrew M. tied condom before thrown, otherwise I would have had a mouth full of sperm!'
					*nl
						act 'Finish the job': dynamic $endwork
					end
				end

			end
		end

		if random >= 35 and random <= 39:
		cla
		*clr
		!set katia = 1
		'<B><center><font size = 4><font color = black>Case for paper</font></center></B>'
		*nl
		if katia = 0: 'Very often in the shop comes a strange girl with brown hair. Today she again appeared. As usual it is very long walks through the cabin and that thread examines, but I have never seen anything so she was trying on.
			I constantly get the impression that she was looking at me. When I raise my eyes, I can see how it starts to fuss, turns and glares at the nearest skirt begins to examine with interest.
			I tried many times to come and offer assistance, but it is constantly lowers her eyes, blushes and mutters under his breath:
			- No, thanks, I´ll handle it, - a minute after that, she just runs away from the store.
			Actually, I do not even remember that she ever bought something for ever just walks considers chooses. She dressed simply, but not poor, can not say that she can not afford and just comes to dream.
			It kind of strange ..'
		if katia = 1: 'Kate comes again today. She is a very shy girl and difficult to understand what´s on her mind. I told her several times asked the question, what it comes to, selects and buys nothing, but she always remained silent. I simply want to help.
			It is a pity that the staff is forbidden to invite friends to shop and chat with them, because of this I have to stay away from Katie´s on. Although, if I could talk to her, I doubt that we would have made a constructive dialogue. Usually all the questions she answers: "I do not know," "simple," or "Well .." and silence.
			I think that Kate is constantly looking at me, and when we found the views, she smiles, blushes and turns away.'
		*nl
		katia = 1
			act 'Finish the job': dynamic $endwork
		end

		if random >= 40 and random <= 44:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Cool time</font></center></B>'
		*nl
		'No buyer for the rest of my shift. I calmly chatting with Nastya broken 2:00. She normally talks about her sexual experiences and feelings.'
		'Today she decides to relive their first sexual experience. This is her favorite subject, I even lost count of how many times she told me everything is described in detail. One pleases, although she is not confused and always calls the same number of guys that she lost her virginity in the school locker room after phys-ry.'
		*nl
		act 'Finish the job': dynamic $endwork
		end

		if random >= 45 and random <= 50:
		cla
		*clr
		'<B><center><font size = 4><font color = black>Heavy day</font></center></B>'
		*nl
		'Buyers rod like a cornucopia. I´m knackered all. Tell me one, gave the other, find the third, fourth bring fifth generally stick with incomprehensible conversations. Well, that did not work all day, and just two hours.'
			'At the end of my shift manager comes and asks to stay for an hour.'
			'- Listen, <<$name>>, there is such a thing: she can see - we have a blockage. Hang on for an hour, and I´ll award Naquin, you will not regret!'
		gs 'stat'
		*nl
			act 'Good':
			cla
			'- It seems that I have no choice: I can not throw you to the wolves!'
			'After working for an hour, I was very tired, but the thought of premium warms the soul.'
			*nl
			set minut+= 70
			gs 'stat'
			set young_shop_bonus += 3
				act 'Finish the job': dynamic $endwork
			end

			act 'I can not':
			cla
			if young_shop_bonus > 0: young_shop_bonus -= 1
			'- If any other day, but today I can not .. - I begin to make excuses, but the manager just shrugs his hand:'
			'- Okay, go home, you´ll manage without. Just do not count on a bonus for today!'
			*nl
				act 'Finish the job': dynamic $endwork
			end
		end
	end
end

if hour >= 8 and hour <= 18 and young_shop_work = 1 and young_shop_miss >= 3 and week < 6: gt 'andrey'
if hour > 21 or hour < 8 or week >= 6:
	cla
	'<B>Sorry, but the store is closed, - guard comes up to me. - Proceed to the exit.</B>'
	'<B><center><font color = red>The store is closing.</font></center></B>'
	act '<B>Get out of the shop</B>': gt 'torgcentr'
	end
gs 'stat'

if $ARGS[0] = '0':
cla
'In the shop includes a black man and rassmatiraet long underwear for those asking you to try underwear, referring to the fact that you have a figure as his girlfriend.'
act 'Refuse': dynamic $endwork
act 'Change into the booth':
	cla
	'You went into the booth and showed him dressed underwear, dressed in his clothes, you make a purchase.'
	act 'Leave': dynamic $endwork
	end
act 'To change when it':
	cla
	*clr
	set guy += 1
	'<center><img src="images\img\centr\mag0.jpg"></center>'
	'You begin to change right in front of him, twisting his back in front of him and otherwise demonstrating all its charms, soon you have achieved the desired when you have once again pushed the legs demonstiruya her pussy he stood in front of you on your knees and pressed his lips to your crotch'
	set picrand = 19
	act 'Entertain': gt 'sex','kuni'
	end
end

if $ARGS[0] = '1':
cla
'In man enters the store and long rassmatiraet women´s clothing, for those asking you to try, citing the fact that you have a figure as his girlfriend.'
act 'Refuse': dynamic $endwork
act 'Change into the booth':
	cla
	*clr
	set picrand = 29
	'<center><img src="images\img\centr\mag1.jpg"></center>'
	'You begin to change into a booth, and you notice that the guy spying on you through loosely closed curtain.'
	act 'Close the curtain': dynamic $endwork
	act 'Lay back room': set guy += 1 & gt 'sex','minet'
	end
end

if $ARGS[0] = '2':
cla
*clr
'<center><img src="images\img\centr\mag2.jpg"></center>'
'In store includes young couple, they long walk around the store and constantly watch over you and what you are arguing. As a result, they still come up to you and the girl strongly embarrassed trying to explain what they want from her zbivchevogo Raskaz you understand that it devstvenitsa and is not yet ready with the melt, but also does not want to lose the guy, so he finds the girls at once , and she oversees the process, it offers 2000rub. for sex with her boyfriend right there with her.'
act 'Refuse': dynamic $endwork
act 'Agree':
	set guy += 1
	set money += 2000
	set picrand = 35
	gt 'sex','minet'
	end
end

if $ARGS[0] = '3':
cla
*clr
'<center><img src="images\img\centr\mag3.jpg"></center>'
'In the store includes the company guys long walk down the hall arguing about something, and after that come up to you and announces to you that they had an argument, you´re a little osharanenaya listens essence of the dispute. It turned out that they had an argument that you can not tell whose cock suck black or white, and the winners will fuck you.'
act 'Send them': dynamic $endwork
act 'Ask what you get':
	cla
	set picrand = 15
	'You ask what you will with this guys laugh and say that you unforgettable feeling.'
	act 'Send them': dynamic $endwork
	act 'Lay back room':
		cla
		*clr
		set guy += 2
		'<center><img src="images\img\centr\mag4.jpg"></center>'
		'You make the guys in the back room they despise pants pulling its members, and you are blindfolded and you start trying every member of the taste, but you have not tried and could not guess which is which, two white guys win, the rest come from the back room.'
		act 'Prize winners': xgt 'sexdvoe','var'
		end
	end
end

if $ARGS[0] = '4':
cla
*clr
'<center><img src="images\img\centr\mag5.jpg"></center>'
'Half-day in-store rubbing two Guys are always flirting with you and trying to work, they have to pinch you for nars ass, after several unsuccessful attempts to send them, you are quite desperate to get rid of them.'
act 'Call the manager':
	cla
	'The manager quickly shoved the guys from the store.'
	act 'Finish the job': dynamic $endwork
	end
act 'Give them':
	set guy += 2
	set picrand = 16
	xgt 'sexdvoe','var'
	end
end

if $ARGS[0] = '5':
cla
'In the store stopped two girls, about an hour you showed them the goods while they are constantly concerned you as if by accident, when they bought all they wanted, one of them came up to you and whether you can sporosila kiss on the lips, you´re a little dumbfounded by such a manifestation votes on the machine answered duty phrase:'
'"Of course, all that you wish"'
'"Well, then takes off her panties, I want to kiss your lips sex"'
act 'Send them': dynamic $endwork
act 'Remove briefs':
	cla
	*clr
	set girl += 2
	set lesbian += 1
	'<center><img src="images\img\centr\mag6.jpg"></center>'
	'You shoot panties sodites on the counter and spreads her legs, she crouches to your pussy lips then licking clit then fucking your vagina with his long tongue, it bears fruit and a couple of minutes you flinch from orgasm.'
	act 'Thank her':
		cla
		*clr
		'<center><img src="images\img\centr\mag7.jpg"></center>'
		'You lozhite girl on the floor and dig into her crotch lips caressing tongue her pussy, soon she grabs your head and strongly pressed to her ends violently, her juices spreading over your lips and chin.'
		act 'Further':
			cla
			*clr
			'<center><img src="images\img\centr\mag8.jpg"></center>'
			'The second girl all this time stood on the sidelines and watching you masturbate when you are finished she sat in a chair and spread her legs wide to call you:'
			'"Hey girls and completely forget about me"'
			'The two of you went to the girl and knelt began to lick her pussy, your tongues constantly in contact, it was like what a strange kiss'
			act 'Further':
				cla
				*clr
				'<center><img src="images\img\centr\mag9.jpg"></center>'
				'One of the girls walked away, leaving you alone to meet her friend, you diligently licked her clitoris without forgetting stuff tongue in her vagina. Soon she squeezed his feet and your head was trapped between her thighs, you have nothing to breathe, and from it a flood in your mouth when she finally opened her legs then your whole face was in her secretions, and they ran down her thighs, you again floated his tongue carefully licking her thighs, leaving them a drop of juice.'
				act 'Leave': dynamic $endwork
				end
			end
		end
	end
end
--- young_shop ---------------------------------

# sell_young_clothes
set mag = 1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
'<B><center><font size = 4>Women´s Clothing</font></center></B>'
*nl
act '<font color = navy>Go</font>':
minut += 1
gt 'young_shop'
end
if odekis[1] = 0:
	act '<font color = navy>See the first variant of clothes</font>': set numdres = 1 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[2] = 0:
	act '<font color = navy>Display a second embodiment of clothing</font>': set numdres = 2 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[3] = 0:
	act '<font color = navy>See the third variant of clothes</font>': set numdres = 3 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[4] = 0:
	act '<font color = navy>See the fourth variant of clothes</font>': set numdres = 4 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[5] = 0:
	act '<font color = navy>See the fifth variant of clothes</font>': set numdres = 5 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[6] = 0:
	act '<font color = navy>See the sixth variant of clothes</font>': set numdres = 6 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[7] = 0:
	act '<font color = navy>See the seventh variant of clothes</font>': set numdres = 7 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[8] = 0:
	act '<font color = navy>See the eighth embodiment of clothing</font>': set numdres = 8 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[9] = 0:
	act '<font color = navy>See the ninth variant of clothes</font>': set numdres = 9 & payclo = 10000 & gt 'loker','odekis'
	end
if odekis[10] = 0:
	act '<font color = navy>See a tenth embodiment of clothing</font>': set numdres = 10 & payclo = 10000 & gt 'loker','odekis'
	end
--- sell_young_clothes ---------------------------------

# andrey
'<B><center><font size = 4><font color = purple>Manager Andrew M. Sobulyagin</font></center></B>'
*nl
*nl

if young_shop_work = 0:
if hour >= 18:
msg '<B><center>Andrew M. Sobulyagin goodbye and leaves. His work day ended</center></B>'
gt 'young_shop'
end

'<B>I knock on the door and walk into a room to the manager. He sits at a table and reading some papers.</B>'
	act 'Talk about work':
	cla
	minut += 5
	'The manager tells me that the store needs a girl consultant to work in the evening. Salary small but stable.'
	'Begin work on the next working day after employment.'
	'<B>Details</B>need to work 5 days a week (Monday-Friday) at 2:00. Salary - 800 rubles per day. Work need to come in 15 hours. Salary paid every week on Friday according to hours worked. 3 for truancy fired from his job.'
		act '<B>Mull conditions and arrive at a different time</B>':
		gt 'young_shop'
		end

		if work = 0 and hour < 15:
		'If operating conditions suit me, I can now fill in the blanks and sign documents.'
		*nl
			act 'Get a job':
			work = 1
			set young_shop_work = 1
			if week >= 1 and week <= 4: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting tomorrow</center></B>'
			if week = 5: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting on Monday</center></B>'
			minut+= 5
			gt 'young_shop'
			end
		end
	end

act 'Leave': gt 'young_shop'
end

if young_shop_work = 1:
	if hour>=19:
		msg '<B><center>Andrew M. Sobulyagin goodbye and leaves. His work day ended</center></B>'
		gt 'young_shop'
	end

'<B>I knock on the door and walk into a room to the manager. Andrew M. Sobulyagin normally picks papers, incidentally examining pictures of naked girls in the monitor.</B>' & *nl
	if week = 5 and young_shop_salary > 0:
	'<B>- Hello <<$char_name>>. For salary come from?</B>' & *nl
		act 'Get salary':
		minut += 15
			!'if char_responsible < 400 and young_shop_bonus >= 1:
			'<B><<$char_name>>, you are very irresponsible work, I have to deprive you of some bonuses! Try better.</B>'
			*nl
			set young_shop_bonus -= 2
			if young_shop_bonus < 0: set young_shop_bonus = 0
			set bonus_mood -= 100
			end

			if char_responsible >= 600:
			'<B><<$char_name>>, you are a very responsible person! Keep up the good work. Oh yeah, you also relies nadbavochka.</B>'
			*nl
			set young_shop_bonus += 2
			set bonus_mood += 100
			end'

		set money += young_shop_salary * 800 + young_shop_bonus * 200

			msg '<center>I worked <B><<young_shop_salary>></B> days and get paid <B><<young_shop_salary*800>></B> rubles and bonus <B><<young_shop_bonus*200>></B> rubles. Total <B><<young_shop_salary*800 + young_shop_bonus*200>></B> RR</center>'
		'<B>The manager counts I <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles and received my signature again puts his nose in the paper.</B>'
			*nl
			set young_shop_salary = 0
			set young_shop_bonus = 0
		act 'Leave': gt 'young_shop'
		end
	exit
	end

	if young_shop_miss >= 3:
	cla
	'- What kind of people! - Andrew M. leans back in his studio. - Where have you been? We agreed truancy 3 - dismissal.'
	*nl
		act '<font color = green>Agree to dismissal</font>':
		cla
			'- Well, I did not get to go to work every day - I sigh.'
			'Manager pulls paper and begins to fill the blanks. A few minutes later he hands me some papers and I put a signature.'
			'More I do not work in the store.'
		*nl
		set young_shop_work = 2
		set young_shop_miss = 0
		set char_honest += 5
		work = 0
		set bonus_mood -= 100

			if young_shop_salary > 0 or young_shop_bonus > 0:
			set money += young_shop_salary * 800 + young_shop_bonus * 200
			msg 'For <B><<young_shop_salary>></B> days I get paid <B><<young_shop_salary*800>></B> and a bonus rubles <B><<young_shop_bonus*200>></B> rubles. Total <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles'
			'<B>Andrew M. counts I <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles.</B>'
			*nl
			set young_shop_salary = 0
			set young_shop_bonus = 0
			end
		minut += 15
		act 'Leave': gt 'young_shop'
		end

		act '<font color = navy>leave a Beg</font>':
		cla
			'- But I can not lose my job! It is very necessary to me - I have already in tears. - Please do not fire me.'
			'- Then you have only one option: lock the door and show how your lips are able to convince - Andrew M. rises to his feet and taken the right hand for balls.'
		*nl
			act '<B>Escape</B>':
			minut += 2
			gt 'young_shop'
			end


			act '<font color = green>Lock the door and get on your knees</font>':
			cla
			'"It´s for work, go home and do nothing bad will happen" - I try to calm myself while lock the door. I turned to see how Sobulyagin unzips his pants and throws Mighty 18 centimeter penis. I go over and get up on his knees, his eyes closed.'
			'- What is stuck? Let´s start! - Andrew grins.'
			'I open my eyes and take a dick in both hands. From a distance of 5 centimeters, he seems to be simply overwhelming. I slightly open mouth and his tongue. First I lick the head, then the whole barrel member. A few minutes later I put my dick in your mouth and start doing translational movements of the head, the head is constantly licking tongue. I have a feeling that it grows in my mouth.'
			'I am very fond of their occupation and do not notice as a member starts hitting streaks of sperm into my throat and into the airways. Struggling, I try not to stay and keep coughing, but I have enough on just 15 seconds. Clearing his throat, I open my eyes and see the manager buttons fly and goes to leave.'
			'- And you did so! Such a valuable employee I can not dismiss. Spis absenteeism and you´ll write the last award for his efforts. And you go home to work today you can not go out, have worked! Only to any more truancy was not! - With these words he comes out of the office, and I´m starting to put itself in order.'
			*nl
			minut += 15
			if sobulaginsex = 0: sobulaginsex = 1 & guy += 1
			bj += 1
			swallow += 1
			cumlip += 1
			set young_shop_miss = 2
			set young_shop_salary = 1
			set young_shop_bonus = 2
			act 'Leave': gt 'young_shop'
			end
		end

	end

	if young_shop_miss < 3:

		act '<font color = maroon>dismissed</font>':
		cla
			'- I would like to resign - I come to the table manager.'
			'- Are you sure? Of course, I can arrange everything right Wait - Andrew M. scratching his head. - But then suddenly,?'
		*nl

			act '<B>Change of heart</B>':
				'- You know, I should still think about it - I''m moving back to the door. - Come on, I''ll come next time.'
				'- Right, something else may like?'
			*nl
			act 'Leave': gt 'young_shop'
			end

			act '<font color = maroon>dismissed</font>':
				'- No, I already thought about it very thoroughly!'
				'Okay, owner - a gentleman! - Manager fills several forms and gave me lictochki signature.'
			*nl
				if young_shop_salary > 0 or young_shop_bonus > 0:
				set money += young_shop_salary * 800 + young_shop_bonus * 200
				msg '<center>For <B><<young_shop_salary>></B> days I get paid <B><<young_shop_salary*800>></B> rubles and bonus <B><<young_shop_bonus*200>></B> rubles. Total <B><<young_shop_salary*800 + young_shop_bonus*200>></B> RR</center>'
				'<B>Andrew M. counts I <B><<young_shop_salary*800 + young_shop_bonus*200>></B> rubles.</B>'
				*nl
				set young_shop_salary = 0
				set young_shop_bonus = 0
				end
			set young_shop_work = 3
			set young_shop_miss = 0
			work = 0
			act 'Leave': gt 'young_shop'
			end
		end
	end
act 'Leave': gt 'young_shop'
end

if young_shop_work = 2 and work = 0:
	if hour>=18:
		msg '<B><center>Andrew M. Sobulyagin goodbye and leaves. His work day ended</center></B>'
		gt 'young_shop'
	end

'<B>I could ask for the manager to get me back to work.</B>'

	act 'Beg to return to work':
	cla
	'- I do not even know - Andrei Mikhailovich obviously do not want to hire progulschitsu.'
	'- Oh, please! I´ll do anything, I really need this job! - I do not even know how to convince him ..'
	'- Anything? Ha! I know what you could do - open the eyes of the manager begins to evaluate my body. - Frankly, I fuck you in the ass, and then you and I still otsosesh. Hand?'
	*nl
		act '<B>Never</B>':
		cla
		'Paint rushed to my face. I´m even a little stunned by what he heard:'
		'- Do you want me to do anal sex, and then I´ll have to lick all the juices from your penis? - It does not even fit in my head. - I will not do it!'
		'- Do you want, how you want! - Andrew M. clearly upset.'
		*nl
		act 'Leave': gt 'young_shop'
		end

		act '<font color = green>Agree</font>':
		'That´s not fair! You know how I need this job - I want to try to convince Andrew Sobulyagina.'
		'- I only give you a chance. Actually, according to the rules, I should have told you categorically refuse! So I´m doing pretty good deed - the manager rises from his chair. - Decide.'
		'- Okay, I agree - it seems that this is the best way out. - Thank you.'
		'Andrew goes to the door and locks it, and I undress before the goal.'
		'- And you have me shalunishka! - He comes up behind me and hugged starts to finger her nipples.'
		'I´m getting more comfortable in and lean forward. Spreading buttocks with both hands and close my eyes.'
		'- Okay, we can do without foreplay - Sobulyagin immediately swing plants with cock right up my ass and I turbid in the head from a sharp tearing pain.'
		'Coming to myself I only when Andrew puts me naked on the couch in his office:'
		'- I got so carried away your hole that did not manage to take out time and finished in your anus - the manager scratching his head. - Then I saw you some strange: glass eyes, to touch or words not react. You do not worry, everything was perfect! So get dressed and go home, I´ll work now decorated.'
		'I got up and slowly begin to dress. Hands some cotton and listen hard, and anus just lit. Dressing, I wipe his aching ass palm and fingers is dirty brown sperm.'
		'- Thank you very much! - I´m trying to smile on his face.'
		*nl
		set young_shop_work = 1
		work = 1
		if week >= 1 and week <= 4: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting tomorrow</center></B>'
		if week = 5: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting on Monday</center></B>'
		minut += 60
		act 'Leave': gt 'young_shop'
		end
	end
act 'Leave': gt 'young_shop'
end

if young_shop_work = 3:
	if hour>=18:
		msg '<B><center>Andrew M. Sobulyagin goodbye and leaves. His work day ended</center></B>'
		gt 'young_shop'
	end

'<B>The manager is not against me again take on the job, so I quit on their own, and was not fired for absenteeism.</B>'
		act 'Back to work':
		cla
		'- And we are waiting for you! - Andrew M. gave me forms. - I even argued with Valera from the male department, that you come back to us!'
		'I fill forms and return them to the manager.'
		*nl
		work = 1
		set young_shop_work = 1
		if week >= 1 and week <= 4: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting tomorrow</center></B>'
		if week = 5: msg '<B><center>I get a job in youth clothing store '' '' Kies pussy. Starting on Monday</center></B>'
		minut += 15
		act 'Leave': gt 'young_shop'
		end

act 'Leave': gt 'young_shop'
end
--- andrey ---------------------------------

# gopnew
$gopsexboy1 = {
if VasanTut = 3:
	set $guygop = 'Vasya'
	if vasansex = 0: vasansex = 1 & guy += 1
	end
if BerezaTut = 3:
	if berezasex = 0: berezasex = 1 & guy += 1
	set $guygop = 'Birch'
	end
if VitekTut = 3:
	if viteksex = 0: viteksex = 1 & guy += 1
	set $guygop = 'Witek'
	end
if KostilTut = 3:
	if kostilsex = 0: kostilsex = 1 & guy += 1
	set $guygop = 'Spike'
	end
if UdmurtTut = 3:
	if udmurtsex = 0: udmurtsex = 1 & guy += 1
	set $guygop = 'Udmurt'
	end
if SeriTut = 3:
	if serisex = 0: serisex = 1 & guy += 1
	set $guygop = 'Gray'
	end
cla
act 'Post': gt 'gopnew','1'
act 'Suck': gt 'gopnew','11'
act 'Writing in the ass': gt 'gopnew','12'
}

if $ARGS[0] = 'start':
'<center><B>Do COURT HOUSE</B></center>'
'<center><img src="images\etogame\dvor.jpg"></center>'
'You walk slowly around the yard, you go to a meeting a few guys gopnicheskogo species, with pivasom, Semko and caps.'
gtalkrand = RAND(0,10)
if gtalkrand = 0:$goptalk = 'vaflersha'
if gtalkrand = 1:$goptalk = 'waffle-iron'
if gtalkrand = 2:$goptalk = 'shkvarnaya'
if gtalkrand = 3:$goptalk = 'whore'
if gtalkrand = 4:$goptalk = 'Tvaryny'
if gtalkrand = 5:$goptalk = 'nipple'
if gtalkrand = 6:$goptalk = 'sheep'
if gtalkrand = 7:$goptalk = 'Shmarov'
if gtalkrand = 8:$goptalk = 'slut'
if gtalkrand = 9:$goptalk = 'huesoska'
if gtalkrand = 10:$goptalk = 'blyadushka'
set gtalkrand = RAND(0,10)
if gtalkrand = 0:$goptalk2 = 'how many cocks sucked today?'
if gtalkrand = 1:$goptalk2 = 'want to take the canine?'
if gtalkrand = 2:$goptalk2 = 'you struhnya on fucked.'
if gtalkrand = 3:$goptalk2 = 'Th silent? Mouthful Of Cum scored?'
if gtalkrand = 4:$goptalk2 = 'and in your mouth already Ssali? Or not?'
if gtalkrand = 5:$goptalk2 = 'what hollow you have more? Ass or pussy?'
if gtalkrand = 6:$goptalk2 = 'I came out of shock, and wipe your ass forgot podlizhesh tongue?'
if gtalkrand = 7:$goptalk2 = 'come to me for a ride on a scooter hairy.'
if gtalkrand = 8:$goptalk2 = 'berushka you in the mouth? Or a beggar in the ass?'
if gtalkrand = 9:$goptalk2 = 'want in your mouth Nass, that sea smell?'
if gtalkrand = 10:$goptalk2 = 'struhnyu you like to lick?'
gs 'gopwho'
gs 'goplust'
if opusk > 0:
	'Yo <<$goptalk>>, <<$goptalk2>> <<$gopnik>>'
	act 'Wait until suitable Gopnik':
		cla
		'To you came Gopnik'
		if gopopusday ! day:
			'Babosy you brought us?.'
			if money >= 2000:
				act 'Giving money':
					cla
					money -= 2000
					gopopusday = day
					'You gave money goparyam.'
					act 'Leave.': gt 'street'
					if GLust > 0:
						cla
						'<<$gopnik>>'
						'Come with us on a stick of tea.'
						act 'Go with Gopnik': gt 'gopnew','sexstart'
						end
					end
				else
				act 'Guys, please, I have no money':
					cla
					'You cried, "Guys, please, I have no money", you will immediately embedded in the stomach, ebalo Zavala crud. I see you´re not vkurivaesh the seriousness of your situation. Soot this scum in the car, go punish her.'
					act 'In the car': gt 'gopnew','degrading'
					end
				end
			end
		if gopopusday = day:
			if GLust > 0:
				cla
				'<<$gopnik>>'
				'Come with us on a stick of tea.'
				act 'Go with Gopnik': gt 'gopnew','sexstart'
				else
				'Okay, stomp out of here before we´re kind.'
				act 'Leave.': gt 'street'
				end
			end
		end
	act 'To pretend that you did not notice.':
		cla
		'You tried to pretend that did not see Gopnik and went to his house.'
		if gopopusday = day:
			'Gopnik neighing "Looking as rushed. Probably her fresh dick kisnet there, and we distract her."'
			act 'Run into the apartment.': gt 'street'
			end
		if gopopusday ! day:
			'Gopnik immediately overtaken and surrounded you. "You slut struhnya in ears or something hit? Slyshish Not that appeal to you."'
			'Babosy you brought us?.'
			if money >= 2000:
				act 'Giving money':
					cla
					money -= 2000
					gopopusday = day
					'You gave money goparyam.'
					act 'Leave.': gt 'street'
					if GLust > 0:
						cla
						'<<$gopnik>>'
						'Come with us on a stick of tea.'
						act 'Go with Gopnik': gt 'gopnew','sexstart'
						end
					end
				else
				act 'Guys, please, I have no money':
					cla
					'You cried, "Guys, please, I have no money", you will immediately embedded in the stomach, ebalo Zavala crud. I see you´re not vkurivaesh the seriousness of your situation. Soot this scum in the car, go punish her.'
					act 'In the car': gt 'gopnew','degrading'
					end
				end
			end
		end
	exit
	end
if sipovka > 0:
	'Hey sipovka shout you Gopnik. <<$gopnik>>'
	if GLust > 0:
		cla
		'Come with us on a stick of tea.'
		act 'Go with Gopnik': gt 'gopnew','sexstart'
		act 'Leave.': gt 'street'
		else
		'Okay, stomp out of here before we´re kind.'
		act 'Leave.': gt 'street'
		end
	exit
	end
if rosetka > 0:
	'Hey socket shout you Gopnik. <<$gopnik>>'
	if GLust > 0:
		cla
		'Come with us on a stick of tea.'
		act 'Go with Gopnik': gt 'gopnew','sexstart'
		act 'Leave.': gt 'street'
		else
		'Okay, stomp out of here before we´re kind.'
		act 'Leave.': gt 'street'
		end
	exit
	end
if loh > 0:
	'Hey lohushka shout you Gopnik. <<$gopnik>>'
	if gopdolg > 0 and gopdaydolg > daystart:
		'Do not forget about the debt.'
		end
	if gopdolg > 0 and gopdaydolg <= daystart:
		'Well, slut, brought the money?'
		if money >= gopdolg:
			act 'Pay.':
				cla
				money -= gopdolg
				gopdolg = 0
				'You gave <<gopdolg>> Gopnik rubles.'
				act 'Leave.': gt 'street'
				end
			else
			'You´ve admitted that you have no money to pay that Gopnik. They chuckled, then get up on his knees, slut.'
			act 'Kneel before Gopnik': gt 'gopnew','rapebj'
			end
		exit
		end
	act 'Leave.': gt 'street'
	exit
	end
if gnewQW = 4:
	'! Hey, sweetie <<$name>>, go pivas drink? <<$gopnik>>'
	act 'I would like to, but I´m in a hurry':
		cla
		'(You) - Sorry, but I´m in a hurry'
		'(Bob) - Come on, sit half an hour and have a chat, have time.'
		act 'Drink pivasika': gt 'gopnew','pivas'
		act 'Go': gt 'street'
		end
	act 'Drink pivasika': gt 'gopnew','pivas'
	end
if gnewQW = 3:
	set gopota += 5
	set gnewQW = 4
	'Great light you say cops swept, but you´re done no one handed, sit down raskazhesh as passed. <<$gopnik>>'
	'You sat down and began to tell Gopnik, omitting some details. When you are finished, one of Gopnik said, "We find this Cop bitch on a leash and you lurk, you will klasnaya sobachenka" they began to laugh, and you also laughed along with them.'
	act 'Leave.': gt 'street'
	end
if gnewQW = 2:
'Hey, sweetie <<$name>>, go pivas drink, or you can walk through the park in good pootzhimat suckers? <<$gopnik>>'
	act 'I would like a beer, but I´m in a hurry':
		cla
		'(You) - Sorry, but I´m in a hurry'
		'(Bob) - Come on, sit half an hour and have a chat, have time.'
		act 'Drink pivasika': gt 'gopnew','pivas'
		act 'Leave': gt 'street'
		end
	act 'Drink pivasika': gt 'gopnew','pivas'
	act 'Go to delyugu':
		*clr
		cla
		'<center><img src="images\etogame\park.jpg"></center>'
		Set goprandwork = RAND(1,100)
		if goprandwork < 75:
			cla
			Set minut += 60
			'You poshlyatsya with Kompashki but suckers can not see.'
			Set gopota += 1
			act 'Go home': gt 'street'
			end
		if goprandwork >= 75 and goprandwork < 95:
			cla
			set gopstop += 1
			Set gopota += 1
			Set minut += 60
			'You boys overcame mobilku but passing Mobil pawnshop you got money only for pivas.'
			act 'Go home': gt 'street'
			end
		if goprandwork >= 95:
			cla
			set gopstop += 1
			Set gopota += 1
			Set minut += 60
			Set randmon = RAND(50,500)
			Set money += randmon
			'You boys have pressed suckers money and CellPhones, surrendering to the pawnshop you share the money you got <<randmon>> rubles.'
			act 'Go home': gt 'street'
			end
		end
	end
if gnewQW = 1:
	'Hey, sweetie <<$name>>, go pivas drink? <<$gopnik>>'
	act 'I would like to, but I´m in a hurry':
		cla
		'(You) - Sorry, but I´m in a hurry'
		'(Bob) - Come on, sit half an hour and have a chat, have time.'
		act 'Drink pivasika': gt 'gopnew','pivas'
		act 'Go': gt 'street'
		end
	act 'Drink pivasika': gt 'gopnew','pivas'
	end
if gnewQW = 0:
	'One of them gets better cap thieves step is sent to you. "Hi, are you cool chick, will pivas for dating?"'
	act 'Drink pivasika': gt 'gopnew','pivas'
	act 'No':
		cla
		'You shook your head and going to go further, but Gopnik is not going to give up so easy.'
		'(Gopnik) - Yes, relax you, no you did not do anything, we are decent guys, and not what you scumbags.'
		act 'Okay, let´s go drink some beer': gt 'gopnew','pivas'
		act 'I said no.':
			cla
			*clr
			'You refused hooligan already sharply, making it clear they do not intend to drink a beer with them. Gopar squinted angrily, "squeamish our society?"'
			act 'Okay, let´s go drink some beer': gt 'gopnew','pivas'
			act 'Get off me':
				cla
				'You rudely told to fuck off hooligan, but he grabbed you by the arm and hissed angrily.'
				'"You´re not right bitch, you came to the well-intentioned, but you rude. I ask from you for that."'
				'Gopar took you by the hand and pulled into the driveway.'
				act 'Resist':
					cla
					'You tried to pry his hand out of his grasp and immediately received a resounding podschechinu that nearly knocked you to the ground.'
					'He roughly pulled you into the driveway and up the wall.'
					act 'What do you want from me?': gt 'gopnew','bazar'
					end
				act 'Submit':
					cla
					'You dutifully trudged over Gopnik. He roughly pulled you into the driveway and up the wall.'
					act 'What do you want from me?': gt 'gopnew','bazar'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'pivas':
'<center><B>Do COURT HOUSE</B></center>'
'<center><img src="images\etogame\dvor.jpg"></center>'
minut += 30
gs 'stat'
'You and the guys went to the playground, where they boarded on the bench.'
if cumface > 0 or cumlip > 0 or cumfrot > 0:
	'Bob looked closer to you, "shit, you´re in the same struhne, ohuet and sat with us zaforshmachennaya pivas drink, let´s go bitch, need to talk"'
	act 'Go through the gate with boys': gt 'gopnew','bazar'
	exit
	end
if gnewQW > 0:
	'You sat down with the guys on the bench and began to drink beer.'
	'To the playground came burly Udmurt and shaved bald on Grey.'
	if film > 0:
		pfknowrand = RAND(0,100)
		if film >= pfknowrand: filmknow = 1
		end
	if filmknow = 1:
		'Udmurt sat on the bench and does not lower his eyes off you. Suddenly he turned to you sipyaschim rough voice "is heard, where I could see you before?"'
		'You shrugged, so who knows where, I live here. Udmurt scratched his head. "Epta tochnyak, look guys." Udmurt got Mobil and began to show that that kid.'
		'You hear from the speakers as a woman´s phone moans and sucking sounds. Guys with one voice cracked a "ohuet, you´re a whore."'
		'Udmurt silently turned the phone screen to you and you see that it is a video where you suck dick.'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	if kavslut >= 3:
		kavknowrand = RAND(0,100)
		if kavknowrand >= 95: kavslutknow = 1
		end
	if kavslutknow = 1:
		'Gray looked at you and evil grin. "Hold on guys, I´ll tell you one prikolyuhu now. Anyway, I cook Ashot, well of local rygalovki, told how they Givi waitress in all holes zhuchat after work. He showed me that Shmarev. Anyway, you are now with her pivas Bukhaev , ha ha, prikinte it you schA struhnyu Ashot pivasom in the bottle is empty, eh? "'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	if frot >= 3:
		frotknowrand = RAND(0,100)
		if frot >= frotknowrand: frotknow = 1
		end
	if frotknow = 1:
		'Gray looked at you and evil grin. "Hold on guys, I´ll tell you one prikolyuhu now. Anyway, I for one huylo pogonyalom Grater such prikolyuhu said he rides on the subway and babsky zhoptsam sticks that would rub on them. So says was got on the subway faultless slut ready suffering always ass podstvait friendship. He sfotkal it on mobile. So this is your <<$name>> is the very slut underground, in a joke right?'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	end
if gnewQW = 0:
	gnewQW = 1
	'Guys introduced, the one who invited you to call Bob Nail, long blond birch, small, swarthy and apelike Witek and skinny guy named Crutch.'
	'Bob baklashku printed with pivasom and drank from it, then handed baklashku circle.'
	'To the playground came not tall and burly shaven bald guy with gold teeth.'
	'Fortress introduction of Udmurtia and Goldtooth turned gray.'
	if film > 0:
		pfknowrand = RAND(0,100)
		if film >= pfknowrand: filmknow = 1
		end
	if filmknow = 1:
		'Udmurt sat on the bench and does not lower his eyes off you. Suddenly he turned to you sipyaschim rough voice "is heard, where I could see you before?"'
		'You shrugged, so who knows where, I live here. Udmurt scratched his head. "Epta tochnyak, look guys." Udmurt got Mobil and began to show that that kid.'
		'You hear from the speakers as a woman´s phone moans and sucking sounds. Guys with one voice cracked a "ohuet, you´re a whore."'
		'Udmurt silently turned the phone screen to you and you see that it is a video where you suck dick.'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	if kavslut >= 3:
		kavknowrand = RAND(0,100)
		if kavknowrand >= 95: kavslutknow = 1
		end
	if kavslutknow = 1:
		'Gray looked at you and evil grin. "Hold on guys, I´ll tell you one prikolyuhu now. Anyway, I cook Ashot, well of local rygalovki, told how they Givi waitress in all holes zhuchat after work. He showed me that Shmarev. Anyway, you are now with her pivas Bukhaev , ha ha, prikinte it you schA struhnyu Ashot pivasom in the bottle is empty, eh? "'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	if frot >= 3:
		frotknowrand = RAND(0,100)
		if frot >= frotknowrand: frotknow = 1
		end
	if frotknow = 1:
		'Gray looked at you and evil grin. "Hold on guys, I´ll tell you one prikolyuhu now. Anyway, I for one huylo pogonyalom Grater such prikolyuhu said he rides on the subway and babsky zhoptsam sticks that would rub on them. So says was got on the subway faultless slut ready suffering always ass podstvait friendship. He sfotka it on mobile. So this is your <<$name>> is the very slut underground, in a joke right?'
		'Bob angrily threw a beer bottle to the side. "You bastard beer obschakovoe their fucking lips zafarshmachila. Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	if bomjshet >= 3:
		bomjknowrand = RAND(0,100)
		if bomjknowrand >= 95: bomjknow = 1
		end
	if bomjknow = 1:
		'Gray for a few minutes then looked at you, then phone, squinting as if something looked at. After he gave the kid a mobile phone and said, "Listen, pozyrte, I immediately threw trash, and there is any woman boobs homeless showed she not?". The phone went on her hands, then looked at him, then at you. You blushed, then Bob said, "Shit, yeah exactly it!"'
		'Bob angrily threw a beer bottle to the side. "You do bomzhiha ohuel us yashkatsya? Come on, you have to market."'
		act 'Go through the gate with boys': gt 'gopnew','bazar'
		exit
		end
	end
	'You sat on a bench and drank beer with Gopnik.'
	'<<$gopnik>>'
	set gopota += 1
	if gnewQW > 1:
		if VasanTut = 2 or BerezaTut = 2 or VitekTut = 2 or KostilTut = 2 or UdmurtTut = 2 or SeriTut = 2: gt 'gopnew','sexstart'
	end
	act 'Go': gt 'street'
end

if $ARGS[0] = 'bazar':
'You frightened mumbled "What do you want from me?". And at that moment it hit you in the stomach. "Shut up, bitch."'
'Go to first goparyu joined his three buddies and surrounded you.'
'(Gopar) - You´re a bitch is not particularly right. I Vasya nail. I know the area at all, and you saucy slut specifically roughened. You owe me!'
'Bob rudely shook you by the shoulders, "you agree bitch?"'
if magic > 0: 'At this point, you felt someone´s evil and powerful magical force that suppresses your and does not use against Gopnik.'
act 'Agree':
	cla
	*clr
	'Bob turned to cronies. "Everyone has heard? She agreed that she owed me and that she´s a bitch."'
	act 'I´m not a bitch!':
		cla
		*clr
		'Who snitch, that in the mouth fuck?'
		act 'Yes':
			cla
			*clr
			'Then huyli you waiting for? Take on the tusk, you´re pizdobolka. Eyewitnesses confirm. You do agree that you bitch and napizdela us that you´re not a bitch. Also agreed that pizdobolov in mouth fuck.'
			act 'Kneel before Gopnik': gt 'gopnew','rapebj'
			act 'Refuse':
				cla
				*clr
				'You said tvordo not. And then in my head like a shell burst. Bob hit you in the face with his fist. You flew from his hard hitting and venerated nape of the wall. Legs were like cotton and the strength to stand left.'
				act 'Kneel before Gopnik': gt 'gopnew','rapebj'
				end
			end
		act 'No':
			cla
			*clr
			'You ohuel? Pizdabolka! Immediately you are strongly embedded in the stomach and forces stay on his feet left.'
			act 'Kneel before Gopnik': gt 'gopnew','rapebj'
			end
		act 'I do not pizzhu!':
			cla
			*clr
			'You bitch twice napizdela! Guys, have you heard? Guys readily confirmed. Bob turned to you. "I´ll bitch now´ll knock your teeth if you will still complain."'
			'You agree that you pizdobolka?'
			act 'Agree':
				cla
				*clr
				'You agree not see another way out. Bob nodded and said, "Well, if I agree, then on my knees, I´m your fucking dick shove his mouth to complain could no longer."'
				act 'Kneel before Gopnik': gt 'gopnew','rapebj'
				end
			act 'No':
				cla
				*clr
				'You ohuel? Pizdabolka! Immediately you are strongly embedded in the stomach and forces stay on his feet left.'
				act 'Kneel before Gopnik': gt 'gopnew','rapebj'
				end
			end
		end
	act 'Keep silent':
		cla
		*clr
		'So understood. You bitch and specifically nakosyachila. Now you owe me.'
		act 'How much?': gt 'gopnew','dolg'
		end
	end
act 'No!':
	cla
	*clr
	'Explain why you do not agree. You what? I think pizdobolom?'
	act 'Yes, you pizdobol':
		cla
		*clr
		'You ohuel? Pizdabolka! Immediately you are strongly embedded in the stomach and forces stay on his feet left.'
		act 'Kneel before Gopnik': gt 'gopnew','rapebj'
		end
	act 'No, you do not pizdobol':
		cla
		*clr
		'Well, then it turns out that you bitch and pizdobolka.'
		act 'Agree':
			cla
			'So understood. You´re a bitch, and specifically pisdobolka nakosyachila. Now you owe me.'
			act 'How much?': gt 'gopnew','dolg'
			end
		act 'Disagree':
			cla
			'Th you bitch, stubborn. After this roar Bob punched you in the face with his fist.'
			act 'Kneel before Gopnik': gt 'gopnew','rapebj'
			end
		end
	end
end

if $ARGS[0] = 'rapebj':
minut += 3
rape += 1
'<center><img src="src="images\pictures\rapebj.jpg"></center>'
'Bob pulled out his dick not washed and put it in front of several sanitimetrah your face. He growled "Hula tupish you bitch? Razevat ebalo."'
act 'Clasp member lips':
	cla
	*clr
	if vasansex = 0: vasansex = 1 & guy += 1
	bj += 1
	'<center><img src="images\pictures\rapebj1.jpg"></center>'
	'You cupped jaws purple member Bob that being in front of your face just seemed huge and slowly began to suck.'
	'Bob growled at you, "What is this garbage? Suck on normal, vaflersha."'
	act 'Try': gt 'gopnew','tf'
	act 'Suck suck as': gt 'gopnew','tf'
	end
act 'Lick dick language':
	cla
	*clr
	if vasansex = 0: vasansex = 1 & guy += 1
	bj += 1
	'<center><img src="images\pictures\rapebj2.jpg"></center>'
	'You have opened my mouth and gently touched to hot tongue member.'
	'Bob growled at you, "What is this garbage? Suck on normal, vaflersha."'
	act 'Suck': gt 'gopnew','tf'
	act 'Lick on': gt 'gopnew','tf'
	end
act 'No!':
	cla
	*clr
	if vasansex = 0: vasansex = 1 & guy += 1
	bj += 1
	'<center><img src="images\pictures\rapebj3.jpg"></center>'
	'Bob grabbed you by the hair with one hand, and the other severely squeezed his throat and planted your mouth on his hat.'
	act 'Chokes': gt 'gopnew','tf'
	end
end

if $ARGS[0] = 'tf':
minut += 3
throat += 1
'<center><img src="images\pictures\rapebjt2.jpg"></center>'
'Bob holding your hair began to fuck you in the mouth. His cock hit you in the throat causing gagging reaction and causing tears to flow from his eyes.'
'You gasp from these bumps in the throat.'
act '.....':
	cla
	*clr
	minut += 3
	'<center><img src="images\pictures\rapebjt.jpg"></center>'
	'Suddenly Bob severe blow member drove it down your throat to the ground and began to hold you over the head. You feel that you are going to throw up.'
	act '.....':
		cla
		*clr
		minut += 3
		facial += 1
		cumface += 1
		if mop ! 1: mop = 0
		gs 'stat'
		'<center><img src="images\pictures\rapebjcum.jpg"></center>'
		'Bob abruptly pulled out of your throat cock and started to cum on your face, covering it with sperm. He growled at you, "What are you waiting whore lowered? Pure language."'
		act 'Brushing your tongue':
			cla
			*clr
			minut += 3
			swallow += 1
			cumlip += 1
			gs 'stat'
			'<center><img src="images\pictures\rapebjcum2.jpg"></center>'
			'You cupped his lips smeared with warm sperm head and began to suck her cum swallowing.'
			'Soon Vasyanya is tired and he tore your mouth from cleaning his penis "Now listen here Shmarov. Lowered vaflersha You fucking slut and proshmandovka now as an apology will come every day and pay me two mower, and I fuck you like them earn, right? If you do not bring it, I´ll shove a bottle in the pussy and in the belly pendalya ladies that she would burst your pizden tearing to shreds. And do not try to hide from me, I love you´ll get out of the ground, and mentovku stated my sidekick in the woods you will take out, vobyut ass handle of a shovel and then bury this shovel in the ass. You all right? "'
			'And do not forget bitch, you my property and have no voting rights. My buddies can have fun with you when they want to, okay? Whore.'
			act 'Yes':
				cla
				*clr
				minut += 3
				opusk = 1
				'<center><img src="images\pictures\spit.jpg"></center>'
				'Bob grabbed you by the hands and spit in your face, and then hit you in the stomach and you fell.'
				'Someone of the guys said, "John, come on, enough already with that whore." Bob growled "Use boys, slut."'
				'In the driveway ran what that man and hissed "Atas boys, garbage" Lightning Gopnik resorbed from the gateway leaving you lying on the pavement in Concha, saliva, tears and snot.'
				act 'Leave': gt 'street'
				end
			end
		end
	end
end

if $ARGS[0] = 'dolg':
	minut += 3
	loh += 1
	gopdolg = money + stolmoney + karta + 10000
	gopdaydolg = daystart + 10

	'After 10 days, you give <<gopdolg>> rubles. And I do not fuck where you´re going to take them, though by a pussy bidding, I FSUs, that the money was.'
	'Where to find us you know, if she does not come, then we will come to you and deal with you harshly. Truncated? Now get out of here slut.'
	act 'Leave': gt 'street'
	act 'Guys, this is too much, I do not have that kind of money':
		cla
		'(You) - Guys, this is too much, I do not have that kind of money'
		'(Bob) - Who is the fuck?'
		act 'Leave': gt 'street'
		act 'Maybe something like a different take?':
			cla
			'(You) - Maybe something like a different take?'
			'(Bob) - Well, you can work out a debt in kind.'
			act 'Leave': gt 'street'
			act 'Payment in kind':
				set sipovka += 1
				set gopdolg = 0
				set VasanTut = 3
				gt 'gopnew','sexstart'
			end
		end
	end
end

!rosetka
!sipovka
if $ARGS[0] = 'sexstart':
	minut += 3
	if opusk > 0 or sipovka > 0:
		if GLust = 1:
			if tiprand = 0: gt 'gopnew','1'
			if tiprand = 1: gt 'gopnew','11'
			if tiprand = 2: gt 'gopnew','12'
		end
		if GLust = 2: gt 'gopnew','2'
		if GLust = 3: gt 'gopnew','2'
		if GLust = 4: gt 'gopnew','2'
		if GLust = 5: gt 'gopnew','2'
		if GLust = 6: gt 'gopnew','2'
	end
	if opusk = 0 and sipovka = 0:
		if GLust = 2:
			'Two Gopnik suggest you go with them to the gateway'
			act 'Agrees to fuck with two': sipovka += 1 & gt 'gopnew','2'
		end
		if GLust = 3:
			'Three Gopnik suggest you go with them to the gateway'
			act 'Agrees to fuck with three': sipovka += 1 & gt 'gopnew','2'
		end
		if GLust = 4:
			'Four Gopnik suggest you go with them to the gateway'
			act 'Agrees to fuck with four': sipovka += 1 & gt 'gopnew','2'
		end
		if GLust = 5:
			'Five Gopnik suggest you go with them to the gateway'
			act 'Agrees to fuck with five': sipovka += 1 & gt 'gopnew','2'
		end
		if GLust = 6:
			'Six Gopnik suggest you go with them to the gateway'
			act 'Agrees to fuck with six': sipovka += 1 & gt 'gopnew','2'
		end
		if VasanTut = 2:
			'Bob offers you to go with him into the driveway'
			act 'Go with Vasyanya': VasanTut = 3 & dynamic $gopsexboy1
		end
		if BerezaTut = 2:
			'Birch offers you to go with him into the driveway'
			act 'Go with Birch': BerezaTut = 3 & dynamic $gopsexboy1
		end
		if VitekTut = 2:
			'Witek offers you to go with him into the driveway'
			act 'Go with Vic': VitekTut = 3 & dynamic $gopsexboy1
		end
		if KostilTut = 2:
			'Crutch offers you to go with him into the driveway'
			act 'Go with crutches': KostilTut = 3 & dynamic $gopsexboy1
		end
		if UdmurtTut = 2:
			'Udmurt offers you to go with him into the driveway'
			act 'Go with Udmurtia': UdmurtTut = 3 & dynamic $gopsexboy1
		end
		if SeriTut = 2:
			'Grey offers you to go with him into the driveway'
			act 'Go with Grey': SeriTut = 3 & dynamic $gopsexboy1
		end
		act 'Leave': gt 'street'
	end
end

if $ARGS[0] = '1':
	minut += 15
	gs 'stat'
	vagina += 1
	sex += 1
	set cumass += 1
	set picrand = RAND(1,6)
	if picrand = 1: '<center><img src="images\pics\gopslut.jpg"></center>'
	if picrand = 2: '<center><img src="images\pics\gopslut2.jpg"></center>'
	if picrand = 3: '<center><img src="images\pics\gopslut3.jpg"></center>'
	if picrand = 4: '<center><img src="images\pics\gopslut4.jpg"></center>'
	if picrand = 5: '<center><img src="images\pics\gopslut5.jpg"></center>'
	if picrand = 6: '<center><img src="images\pics\gopslut6.jpg"></center>'
	'<<$guygop>> gets you to a secluded place where posture and fucks.'
	set horand = RAND(1,100)
	if horand > horny:
		set horny += 10
		'You were not satisfied'
	else
		set horny = 0
		set orgasm += 1
		'You covered orgasm'
	end
	'<<$guygop>> commits you to wipe your ass and dick on your ass. After that wears pants and goes thump on.'
	act 'Leave': gt 'street'
end

if $ARGS[0] = '11':
	minut += 15
	gs 'stat'
	bj += 1
	set throat += 1
	set picrand = RAND(1,10)
	if picrand = 1: '<center><img src="images\pics\bj.jpg"></center>'
	if picrand = 2: '<center><img src="images\pics\bj2.jpg"></center>'
	if picrand = 3: '<center><img src="images\pics\bj3.jpg"></center>'
	if picrand = 4: '<center><img src="images\pics\bj4.jpg"></center>'
	if picrand = 5: '<center><img src="images\pics\bj5.jpg"></center>'
	if picrand = 6: '<center><img src="images\pics\bj6.jpg"></center>'
	if picrand = 7: '<center><img src="images\pics\bj7.jpg"></center>'
	if picrand = 8: '<center><img src="images\pics\bj8.jpg"></center>'
	if picrand = 9: '<center><img src="images\pics\bj9.jpg"></center>'
	if picrand = 10: '<center><img src="images\pics\bj10.jpg"></center>'
	'You remove a member Gopnik and take it in his mouth sucking diligently.'
	!{
	Set horand = RAND(1,100)
	if horand > oral: Set horny += 10 & 'You were not satisfied'
	if horand <= oral: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
	'Вы чувствуете что <<$guygop>> сейчас кончит'
	}
	gs 'oral','0'
	act 'Continue to suck':
		cla
		*clr
		set picrand = RAND(1,10)
		if picrand = 1: '<center><img src="images\pics\cum.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\cum2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\cum3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\cum4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\cum5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\cum6.jpg"></center>'
		if picrand = 7: '<center><img src="images\pics\cum7.jpg"></center>'
		if picrand = 8: '<center><img src="images\pics\cum8.jpg"></center>'
		if picrand = 9: '<center><img src="images\pics\cum9.jpg"></center>'
		if picrand = 10: '<center><img src="images\pics\cum10.jpg"></center>'
		'A powerful jet of sperm hits you in the mouth'

		act 'Swallow':
			cla
			Set cumlip += 1
			set swallow += 1
			'You swallow sperm <<$guygop>> wipes his dick on your lips and leaves.'
			act 'Leave': gt 'street'
		end

		act 'Spit out':
			cla
			Set cumlip += 1
			'You spat out semen on the ground.'
			act 'Leave': gt 'street'
		end
	end

	act 'Remove the mouth':
		cla
		Set bjrand = RAND(0,1)
		set picrand = RAND(1,5)
		if picrand = 1 and bjrand = 1: '<center><img src="images\pics\facial.jpg"></center>'
		if picrand = 2 and bjrand = 1: '<center><img src="images\pics\facial2.jpg"></center>'
		if picrand = 3 and bjrand = 1: '<center><img src="images\pics\facial3.jpg"></center>'
		if picrand = 4 and bjrand = 1: '<center><img src="images\pics\facial4.jpg"></center>'
		if picrand = 5 and bjrand = 1: '<center><img src="images\pics\facial5.jpg"></center>'
		if bjrand = 0: 'You have time to take out of his mouth and a member <<$guygop>> commits past you.'
		if bjrand = 1: Set cumface += 1 & '<<$guygop>> ends up on your face.'
		if bjrand = 1: 'All your face sticky and hot sperm, Gopnik wipes member of your lips and leaves.'
		act 'Leave': gt 'street'
	end
end

if $ARGS[0] = '12':
	minut += 15
	gs 'stat'

	anal += 1
	anus += 1
	set cumass += 1

	set picrand = RAND(1,6)
	if picrand = 1: '<center><img src="images\pics\gopslut.jpg"></center>'
	if picrand = 2: '<center><img src="images\pics\gopslut2.jpg"></center>'
	if picrand = 3: '<center><img src="images\pics\gopslut3.jpg"></center>'
	if picrand = 4: '<center><img src="images\pics\gopslut4.jpg"></center>'
	if picrand = 5: '<center><img src="images\pics\gopslut5.jpg"></center>'
	if picrand = 6: '<center><img src="images\pics\gopslut6.jpg"></center>'

	'<<$guygop>> gets you to a secluded place where posture and fucks.'

	set horand = RAND(1,100)
	if horand > horny:
		Set horny += 10
		'You were not satisfied'
	else
		set horny = 0
		set orgasm += 1
		'You covered orgasm'
	end
	'<<$guygop>> commits you to wipe your ass and dick on your ass. After that wears pants and goes thump on.'
	act 'Leave': gt 'street'
end

if $ARGS[0] = '2':
	minut += 30
	gs 'stat'
	if VasanTut = 3:
		$namgop = 'Vasya'
	else
		$namgop = ''
	end

	if BerezaTut = 3:
		$namgop2 = 'Birch'
	else
		$namgop2 = ''
	end

	if VitekTut = 3:
		$namgop3 = 'Witek'
	else
		$namgop3 = ''
	end

	if KostilTut = 3:
		$namgop4 = 'Spike'
	else
		$namgop4 = ''
	end

	if UdmurtTut = 3:
		$namgop5 = 'Udmurt'
	else
		$namgop5 = ''
	end

	if SeriTut = 3:
		$namgop6 = 'Gray'
	else
		$namgop6 = ''
	end

	$namgopsum = '<<$namgop>> <<$namgop2>> <<$namgop3>> <<$namgop4>> <<$namgop5>> <<$namgop6>> got its members and began to strip off your clothes.'

	if GLust ! 2: tiprand = RAND(0,1)

	if tiprand = 0 and GLust ! 2:
		Set bj += 3
		set gang += 1
		Set throat += 3
		Set cumlip += 2
		Set cumface += 1
		set picrand = RAND(1,11)
		if picrand = 1: '<center><img src="images\pics\tri.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\tri2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\tri3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\tri4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\tri5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\tri6.jpg"></center>'
		if picrand = 7: '<center><img src="images\pics\tri7.jpg"></center>'
		if picrand = 8: '<center><img src="images\pics\tri8.jpg"></center>'
		if picrand = 9: '<center><img src="images\pics\tri9.jpg"></center>'
		if picrand = 10: '<center><img src="images\pics\tri10.jpg"></center>'
		if picrand = 11: '<center><img src="images\pics\tri11.jpg"></center>'
		'<<$namgopsum>>. They put you into a crouch and began to beat their members in the face and you in turn have you in my mouth.'
		Set horand = RAND(1,100)
		if horand > horny:
			Set horny += 10
			'You were not satisfied'
		else
			Set horny = 0
			set orgasm += 1
			'You covered orgasm'
		end

		'They obkonchali you all the face and mouth.'
		act 'Leave': gt 'street'
	end

	if tiprand = 1 or GLust = 2:
		bj = bj + 1
		vagina += 1
		sex += 1
		anal += 1
		anus += 5
		set gang += 1
		Set throat += 3
		Set cumlip += 2
		Set cumface += 1
		set picrand = RAND(1,15)
		if picrand = 1: '<center><img src="images\pics\gang.jpg"></center>'
		if picrand = 2: '<center><img src="images\pics\gang2.jpg"></center>'
		if picrand = 3: '<center><img src="images\pics\gang3.jpg"></center>'
		if picrand = 4: '<center><img src="images\pics\gang4.jpg"></center>'
		if picrand = 5: '<center><img src="images\pics\gang5.jpg"></center>'
		if picrand = 6: '<center><img src="images\pics\gang6.jpg"></center>'
		if picrand = 7: '<center><img src="images\pics\gang7.jpg"></center>'
		if picrand = 8: '<center><img src="images\pics\gang8.jpg"></center>'
		if picrand = 9: '<center><img src="images\pics\gang9.jpg"></center>'
		if picrand = 10: '<center><img src="images\pics\gang10.jpg"></center>'
		if picrand = 11: '<center><img src="images\pics\gang11.jpg"></center>'
		if picrand = 12: '<center><img src="images\pics\gang12.jpg"></center>'
		if picrand = 13: '<center><img src="images\pics\gang13.jpg"></center>'
		if picrand = 14: '<center><img src="images\pics\gang14.jpg"></center>'
		if picrand = 15: '<center><img src="images\pics\gang15.jpg"></center>'
		'<<$namgopsum>>. They started to fuck you in all holes at a time.'
		Set horand = RAND(1,100)
		if horand > horny:
			Set horny += 10
			'You were not satisfied'
		else
			Set horny = 0
			set orgasm += 1
			'You covered orgasm'
		end
		'Otimeli you in all holes and obkonchali from all sides.'
		act 'Leave': gt 'street'
	end
end

if $ARGS[0] = 'degrading':
	minut += 120
	gs 'stat'
	if VasanTut = 3 and vasansex = 0: vasansex = 1 & guy += 1
	if BerezaTut = 3 and berezasex = 0: berezasex = 1 & guy += 1
	if VitekTut = 3 and viteksex = 0: viteksex = 1 & guy += 1
	if KostilTut = 3 and kostilsex = 0: kostilsex = 1 & guy += 1
	if UdmurtTut = 3 and udmurtsex = 0: udmurtsex = 1 & guy += 1
	if SeriTut = 3 and serisex = 0: serisex = 1 & guy += 1

	if VasanTut = 3:
		$namgop = 'Vasya'
	else
		$namgop = ''
	end

	if BerezaTut = 3:
		$namgop2 = 'Birch'
	else
		$namgop2 = ''
	end

	if VitekTut = 3:
		$namgop3 = 'Witek'
	else
		$namgop3 = ''
	end

	if KostilTut = 3:
		$namgop4 = 'Spike'
	else
		$namgop4 = ''
	end

	if UdmurtTut = 3:
		$namgop5 = 'Udmurt'
	else
		$namgop5 = ''
	end

	if SeriTut = 3:
		$namgop6 = 'Gray'
	else
		$namgop6 = ''
	end

	vagina += 10
	anus += 10
	anal += 1
	sex += 1
	rape += 1

	gopopusday = day
	$namgopsum = '<<$namgop>> <<$namgop2>> <<$namgop3>> <<$namgop4>> <<$namgop5>> <<$namgop6>> got its members and began to strip off your clothes.'

	degrand = RAND(0,8)
	if degrand = 0: '<center><img src="images\pictures\deg.jpg"></center>'
	if degrand = 1: '<center><img src="images\pictures\deg1.jpg"></center>'
	if degrand = 2: '<center><img src="images\pictures\deg2.jpg"></center>'
	if degrand = 3: '<center><img src="images\pictures\deg3.jpg"></center>'
	if degrand = 4: '<center><img src="images\pictures\deg4.jpg"></center>'
	if degrand = 5: '<center><img src="images\pictures\deg5.jpg"></center>'
	if degrand = 6: '<center><img src="images\pictures\deg6.jpg"></center>'
	if degrand = 7: '<center><img src="images\pictures\deg7.jpg"></center>'
	if degrand = 8: '<center><img src="images\pictures\deg8.jpg"></center>'

	'Gopota mocks you, you hit on the cheeks and breasts. Tuck in pussy different objects and spit in your face. After playing Gopnik release you.'

	act 'Leave': gt 'street'
end
--- gopnew ---------------------------------

# goplust
VasanLust = RAND(0,100)
BerezaLust = RAND(0,100)
VitekLust = RAND(0,100)
KotilLust = RAND(0,100)
UdmurtLust = RAND(0,100)
SeriLust = RAND(0,100)
GLust = 0


if VasanLust >= 50 and VasanTut = 1:
VasanTut = 2
GLust += 1
$gopV = 'Bob nail looks at you look greedy'
elseif VasanLust < 80 and VasanTut = 1:
$gopV = 'Bob nail looks at you with indifference'
elseif VasanTut = 0:
$gopV = ''
end

if BerezaLust >= 60 and BerezaTut = 1:
BerezaTut = 2
GLust += 1
$gopB = 'Birch looks at you with interest'
elseif BerezaLust < 95 and BerezaTut = 1:
$gopB = 'Birch does not look at you'
elseif BerezaTut = 0:
$gopB = ''
end

if VitekLust >= 60 and VitekTut = 1:
VitekTut = 2
GLust += 1
$gopVi = 'Vitek on driving with your breasts look'
elseif VitekLust < 90 and VitekTut = 1:
$gopVi = 'Witek delves into the phone'
elseif VitekTut = 0:
$gopVi = ''
end

if KotilLust >= 70 and KostilTut = 1:
KostilTut = 2
GLust += 1
$gopK = 'Crutch rummage your figure leer'
elseif KotilLust < 90 and KostilTut = 1:
$gopK = 'Crutch schelykaet Semyon'
elseif KostilTut = 0:
$gopK = ''
end

if UdmurtLust >= 80 and UdmurtTut = 1:
UdmurtTut = 2
GLust += 1
$gopU = 'Udmurt hard stare and stare at you as you see in his pants, the bulge between his legs grow.'
elseif UdmurtLust < 90 and UdmurtTut = 1:
$gopU = 'Udmurt squats and spits on asphalt'
elseif UdmurtTut = 0:
$gopU = ''
end

if SeriLust >= 90 and SeriTut = 1:
SeriTut = 2
GLust += 1
$gopS = 'Grey spits on the pavement through their gold teeth and grinning mischievously staring at your feet.'
elseif SeriLust < 95 and SeriTut = 1:
$gopS = 'Gray turned away and talking on the phone'
elseif SeriTut = 0:
$gopS = ''
end

$gopnik = '<<$gopV>> <<$gopB>> <<$gopVi>> <<$gopK>> <<$gopU>> <<$gopS>>'
--- goplust ---------------------------------

# gopwho
VasanTut = 1
brand = RAND(1,100)
if brand >= 40:
BerezaTut = 1
else
BerezaTut = 0
end
vrand = RAND(1,100)
if vrand >= 50:
VitekTut = 1
else
VitekTut = 0
end
krand = RAND(1,100)
if krand >= 60:
KostilTut = 1
else
KostilTut = 0
end
urand = RAND(1,100)
if urand >= 70:
UdmurtTut = 1
else
UdmurtTut = 0
end
srand = RAND(1,100)
if srand >= 80:
SeriTut = 1
else
SeriTut = 0
end
--- gopwho ---------------------------------

# avtonorm

if car = 1: set normhour = 20
if car = 2: set normhour = 20
if car = 3: set normhour = 20
if car = 4: set normhour = 20
if car = 5: set normhour = 20
if car = 6: set normhour = 20
if car = 7: set normhour = 20
if car = 8: set normhour = 20
if car = 9: set normhour = 15
if car = 10: set normhour = 18
if car = 11: set normhour = 15

if car >= 95: set normhour = 50



if wrek = 0:
set normneed = tehcar - teh
set normrem = normneed * normhour
end
if wrek = 1:
set normneed = tehcar - teh
set normremK = (normneed * normhour)*70
set normrem = (normneed * normhour)+ normremK
end
--- avtonorm ---------------------------------

# avt

!set tehNT = 200
!set tehT = RAND(10,200)



if tehT >= tehNT * 75/100: set $tehT = 'Machine in excellent condition.'
if tehT < tehNT*75/100 and tehT >= tehNT * 50/100: set $tehT = 'When the engine has what is background noise'
if tehT < tehNT*50/100 and tehT >= tehNT * 25/100: set $tehT = 'Machine rumbles and smokes.'
if tehT < tehNT*25/100: set $tehT = 'As this bowl was able to be got is not clear.'

if carT = 1:
if tehT >= tehNT * 75/100: set bupay = RAND(100000,180000)
if tehT < tehNT*75/100 and tehT >= tehNT * 50/100: set bupay = RAND(60000,130000)
if tehT < tehNT*50/100 and tehT >= tehNT * 25/100: set bupay = RAND(35000,65000)
if tehT < tehNT*25/100: set bupay = RAND(15000,50000)
end

if carT = 2:
if tehT >= tehNT * 75/100: set bupay = RAND(80000,100000)
if tehT < tehNT*75/100 and tehT >= tehNT * 50/100: set bupay = RAND(50000,90000)
if tehT < tehNT*50/100 and tehT >= tehNT * 25/100: set bupay = RAND(30000,60000)
if tehT < tehNT*25/100: set bupay = RAND(15000,40000)
end
--- avt ---------------------------------

# avb

if car = 1:
	if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(50000,100000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(40000,60000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(20000,40000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(10000,20000)
	end
end

if car > 1 and car < 6:
	if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(100000,200000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(80000,120000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(60000,90000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,70000)
	end
end

if car >= 6 and car < 11:
	if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(150000,220000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(100000,160000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(80000,120000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,90000)
	end
end

if car >= 11 and car <= 12:
	if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(70000,100000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(40000,80000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(20000,60000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(10000,30000)
	end
end

if car = 95:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(500000,900000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(400000,600000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(300000,500000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,300000)
	end
end

if car = 96:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,4800000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1150000,2550000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1160000)
	end
end

if car = 97:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(1000000,1800000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(540000,1200000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(150000,550000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,160000)
	end
end

if car = 98:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,4800000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1150000,2550000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1160000)
	end
end

if car = 99:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(2000000,3800000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(1540000,2200000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(550000,1550000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,560000)
	end
end

if car = 100:
	if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
	if wrek = 0:
	if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,5800000)
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1550000,2550000)
	if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1560000)
	end
end
--- avb ---------------------------------

# zaprF
if $ARGS[0] = 'start':
	cla
	*clr
	gs 'stat'
	set minut += 5
	clr
	$metka = $ARGS[0]
	$loc = $CURLOC

	'<center><B>Gas Station</B></center>'
	*nl
	'<center><img src="images\etogame\zapr.jpg"></center>'

	'Announcement, in connection with the features of the device gas stations, all cars to refuel a full tank.'
	'Cost of 1 liter of petrol 30 rubles.'

	if car > 0:
		if cardrive = 6 or cardrive = 21: 'On refueling costs your <a href="exec: GS ''carF'',''start''"><<$car>></a>.'
	end

	set zprbenz = 40 - benz
	if benz < 40 and car > 0 and cardrive = 6:
		set zprbenz = 40 - benz
		if zprbenz * 30 <= money:
			act 'Fill petrol':
				cla
				*clr
				set benz = 40
				set zprpay = zprbenz * 30
				set money -= zprpay
				'<center><B>Gas Station</B></center>'
				*nl
				'<center><img src="images\etogame\zapr1.jpg"></center>'
				'You have filled a full tank and paid <<zprpay>> rubles.'
				act 'Remove gun': gt 'zaprF','start'
			end
		else
			'You do not have enough money at the gas station.'
		end
	end

	if car > 0:
		act 'Buy a canister of gasoline with up to 5 liters of 150 rubles':
			cla
			set kanistra += 1
			set money -= 150
			'You bought a canister of gasoline. (It is automatically added to the trunk)'
			act 'Remove gun': gt 'zaprF','start'
		end
	end

	act 'Leave':
		if cardrive = 6:
			gt 'nord'
		elseif cardrive = 21:
			gt 'gorodok'
		elseif litltown = 0:
			gt 'nord'
		elseif litltown = 1:
			gt 'gorodok'
		end
	end
end
--- zaprF ---------------------------------

# autosalonF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
set cartraid = 1
'<center><B>Auto Show</B></center>'
'<center><img src="images\etogame\manager.jpg"></center>'
'List of vehicles for sale'
'<a href="exec:GS ''carF1'',''car''">2107</a>. - New price 200tyr'
'<a href="exec:GS ''carF1'',''car2''">2115</a>. - New price 310tyr'
'<a href="exec:GS ''carF1'',''car3''">2113</a>. - New price 290tyr'
'<a href="exec:GS ''carF1'',''car4''">2114</a>. - New price 300tyr'
'<a href="exec:GS ''carF1'',''car5''">VAZ 2110</a>. - New price 350tyr'
'<a href="exec:GS ''carF1'',''car6''">VAZ Kalina</a>. - New price 400tyr'
'<a href="exec:GS ''carF1'',''car7''">WHA Pryor</a>. - New price 450tyr'
'<a href="exec:GS ''carF1'',''car8''">Chevrolet Niva</a>. - New price 500tyr'
'<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - New price 500tyr'
'<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - New price 600tyr'
'<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - New price 1,000,000'
'<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - New price 5,000,000'
'<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - New price 2,000,000'
'<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - New price 5,000,000'
'<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - New price 4,500,000'
'<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - New price 8m'
act 'Talk to the manager': gt 'autosalonF','manager1'
act 'Leave': gt 'Nord'
end

if $ARGS[0] = 'manager1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
'<center><B>Auto Show</B></center>'
'<center><img src="images\etogame\manager.jpg"></center>'
'In the bank <<karta>> rubles'
*nl
'The manager smiled and said affably. To purchase, you must have the right and enough cash in the bank, we do not work for cash. As it is impossible to have two cars, I am sorry, but this new law antiprobkovy City Hall.'
act 'Leave': gt 'Nord'
	if prava = 1 and car = 0:
		if karta >= 200000:
			act 'Buy VAZ 2107 (200,000 rubles)':
			cla
			*clr
			set karta -= 200000
			set $car = '2107'
			set car = 1
			set benz = 3
			set cardrive = 8
			set teh = 200
			set tehcar = 200
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 310000:
			act 'Buy VAZ 2115 (310,000 rubles)':
			cla
			*clr
			set karta -= 310000
			set $car = '2115'
			set car = 2
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 290000:
			act 'Buy VAZ 2113 (290,000 rubles)':
			cla
			*clr
			set karta -= 290000
			set $car = '2113'
			set car = 3
			set benz = 3
			set cardrive = 8
			set teh = 290
			set tehcar = 290
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 300000:
			act 'Buy VAZ 2114 (300,000 rubles)':
			cla
			*clr
			set karta -= 300000
			set $car = '2114'
			set car = 4
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 350000:
			act 'Buy VAZ 2110 (350,000 rubles)':
			cla
			*clr
			set karta -= 350000
			set $car = 'VAZ 2110'
			set car = 5
			set benz = 3
			set cardrive = 8
			set teh = 350
			set tehcar = 350
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 400000:
			act 'Buy VAZ Kalina (400,000 rubles)':
			cla
			*clr
			set karta -= 400000
			set $car = 'VAZ Kalina'
			set car = 6
			set benz = 3
			set cardrive = 8
			set teh = 400
			set tehcar = 400
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 450000:
			act 'Buy VAZ Priora (450,000 rubles)':
			cla
			*clr
			set karta -= 450000
			set $car = 'VAZ PRIORA'
			set car = 7
			set benz = 3
			set cardrive = 8
			set teh = 450
			set tehcar = 450
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 500000:
			act 'Buy Chevrolet Niva (500,000 rubles)':
			cla
			*clr
			set karta -= 500000
			set $car = 'Chevrolet Niva'
			set car = 8
			set benz = 3
			set cardrive = 8
			set teh = 500
			set tehcar = 500
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 500000:
			act 'Buy UAZ Hunter (500,000 rubles)':
			cla
			*clr
			set karta -= 500000
			set $car = 'UAZ HUNTER'
			set car = 9
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 600000:
			act 'Buy UAZ Patriot (600,000 rubles)':
			cla
			*clr
			set karta -= 600000
			set $car = 'UAZ PATRIOT'
			set car = 10
			set benz = 3
			set cardrive = 8
			set teh = 400
			set tehcar = 400
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 1000000:
			act 'Buy Mitsubishi l200 (1000000)':
			cla
			*clr
			set karta -= 1000000
			set $car = 'Mitsubishi l200'
			set car = 95
			set benz = 3
			set cardrive = 8
			set teh = 2000
			set tehcar = 2000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 5000000:
			act 'Buy Audi Q7 (5000000)':
			cla
			*clr
			set karta -= 5000000
			set $car = 'Audi Q7'
			set car = 96
			set benz = 3
			set cardrive = 8
			set teh = 5000
			set tehcar = 5000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 2000000:
			act 'Buy Cadillac Escalade (2000000)':
			cla
			*clr
			set karta -= 2000000
			set $car = 'Cadillac Escalade'
			set car = 97
			set benz = 3
			set cardrive = 8
			set teh = 4000
			set tehcar = 4000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'autosalonF','manager'
			end

		end

		if karta >= 5000000:
			act 'Buy Porsche Cayenne (5000000)':
			cla
			*clr
			set karta -= 5000000
			set $car = 'Porsche Cayenne'
			set car = 98
			set benz = 3
			set cardrive = 8
			set teh = 3000
			set tehcar = 3000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 4500000:
			act 'Buy BMW X6 (4,5 mln)':
			cla
			*clr
			set karta -= 4500000
			set $car = 'BMW X6'
			set car = 99
			set benz = 3
			set cardrive = 8
			set teh = 4000
			set tehcar = 4000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end
		end

		if karta >= 8000000:
			act 'Buy Mercedes-Benz S 600 (8000000)':
			cla
			*clr
			set karta -= 8000000
			set $car = 'Mercedes-Benz S 600'
			set car = 100
			set benz = 3
			set cardrive = 8
			set teh = 8000
			set tehcar = 8000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end
		end
	end
end
--- autosalonF ---------------------------------

# autoservisF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
gs 'avtonorm'
'<center><B>Driving</B></center>'
'<center><img src="images\etogame\autoservis1.jpg"></center>'
if cardrive = 7:
	if wrek = 0:
		if teh >= tehcar * 75/100: 'Master your car inspected and said that she does not need any repairs or maintenance in those.'
		if teh < tehcar*75/100:
			'Master looked at your car and said that the cost of work <<normrem>>.'
			if money >= normrem:
				act 'Pay and repair':
					cla
					*clr
					set money -= normrem
					set minut += 60
					set teh = tehcar
					wrek = 0
					'<center><img src="images\etogame\autoservis2.jpg"></center>'
					'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <<normrem>> rubles'
					act 'Leave': gt 'Nord'
					end
				end
			end
		end
	if wrek = 1:
		'Master prisvisnul looking at your unit and said that the cost of work <<normrem>>.'
		if money >= normrem:
			act 'Pay and repair':
				cla
				*clr
				set money -= normrem
				set minut += 60
				set tehcar = tehcar / 2
				set teh = tehcar
				wrek = 0
				'<center><img src="images\etogame\autoservis2.jpg"></center>'
				'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <<normrem>> rubles'
				'Master before giving clues told you that you would not have tried to bring the car to this state.'
				act 'Leave': gt 'Nord'
				end
			end
		end
	end
if cardrive ! 7: 'Master smiled and said, "Girl, I need a car to see what though, that what you say. Fetches it to the car service, we´ll see."'
if wrek = 1 and cardrive ! 7 and car > 0:
	'At the service station operates a service evacuation of damaged cars to service centers, the cost in 2500'
	if money >= 2500:
		act 'Pay shipping cars 2500rub (1:00)':
			cla
			*clr
			set money -= 2500
			set cardrive = 7
			set minut += 60
			'<center><img src="images\etogame\autoservis2.jpg"></center>'
			'You sat for an hour in the service station, waiting when will bring your car. Finally the time has passed and your car was delivered to the gate Car.'
			act 'To master': gt 'autoservisF','start'
			end
		end
	end
act 'Leave': gt 'Nord'
end
--- autoservisF ---------------------------------

# autotraidF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
set minut += 5
gs 'stat'
cla
*clr
'<center><B>Car</B></center>'
'<center><img src="images\etogame\autotraid.jpg"></center>'
'Machine can only be bought if you have permission. And you can not have two cars.'
if hour <= 17:
	if car > 0: act 'Approach to cornerer': gt 'autotraidF','manager1'
	act 'View cars put up for sale': gt 'autotraidF','car'
	end
act 'Leave': gt 'Nord'
end

if $ARGS[0] = 'manager1':
$metka = $ARGS[0]
$loc = $CURLOC
set minut += 5
gs 'stat'
cla
*clr
'<center><B>Car</B></center>'
'<center><img src="images\etogame\autotraid.jpg"></center>'
gs 'avb'
if cardrive = 9 and car > 0:
	'Fence walked around the car and offered you for it <<bupay>> rubles'
	act 'Sell ​​for <<bupay>> (1:00)':
		cla
		set minut += 60
		money = money + bupay
		car = 0
		'You sold your car.'
		act 'Leave': gt 'Nord'
		end
	end
if cardrive ! 9:
	'Fence says that he needs to look at the car before you set a price, and if you want, it will call a tow truck for 2500 that would take your car to the market.'
	if money >= 2500:
		act 'Tow truck to market 2500rub (1:00)':
			cla
			set minut += 60
			set cardrive = 9
			set money -= 2500
			'You gave the money and waited for an hour and when you bring a car, you will finally see her tow truck unloaded near the market.'
			act 'To cornerer': gt 'autotraidF','manager1'
			end
		end
	end
act 'Leave': gt 'Nord'
end

if $ARGS[0] = 'car':
$metka = $ARGS[0]
$loc = $CURLOC
set minut += 5
gs 'stat'
cla
*clr
'<center><B>Car</B></center>'
'<center><img src="images\etogame\autotraid.jpg"></center>'
'So many cars in the parking lot that you can spend a lifetime and never osmotrish all machines, even if the machines on the go, you can understand their technical condition, the machine moves is not a cat in a bag can be a bargain, and can be a waste money, and do not forget, you still deliver it to the service will need.'
set carT = 0
if hour <= 17:
	act 'Inspect 2107 (on the go)':
		cla
		*clr
		'<center><B>2107 (on the move)</B></center>'
		'<center><img src="images\picar\car.jpg"></center>'
		set tehNT = 200
		set tehT = RAND(10, tehNT)
		set carT = 1
		gs 'avt'
		'<<$tehT>> The dealer wants <<bupay>> rubles'
		act 'Leave': gt 'autotraidF','car'
		if car = 0 and prava = 1 and money >= bupay:
		act 'Buy <<bupay>>rubles':
			cla
			set money -= bupay
			set $car = '2107'
				set car = 1
				set benz = 3
				set cardrive = 9
				set teh = tehT
				set tehcar = 200
				set wrek = 0
				'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
			act 'Leave': gt 'Nord'
			end
			end
		end
	act 'Inspect 2107 (not move)':
		cla
		*clr
		set tehNT = 200
		set tehT = RAND(10, tehNT)
		set bupay = RAND(10000,50000)
		'The machine is not on the move. Merchant wants to <<bupay>> rubles'
		act 'Leave': gt 'autotraidf','car'
		if car = 0 and prava = 1 and money >= bupay:
		act 'Buy <<bupay>>rubles':
			cla
			set money -= bupay
			set $car = '2107'
				set car = 1
				set benz = 3
				set cardrive = 9
				set teh = tehT
				set tehcar = 200
				set wrek = 1
				'You pay <<bupay>> rubles and bought a car. Merchant put her near the market.'
			act 'Leave': gt 'Nord'
			end
			end
		end
	act 'Inspect GAZ 3102 (on the go)':
		cla
		*clr
		'<center><B>3102 GAS (on the move)</B></center>'
		'<center><img src="images\picar\car11.jpg"></center>'
		set tehNT = 1000
		set tehT = RAND(10, tehNT)
		set carT = 2
		gs 'avt'
		'<<$tehT>> The dealer wants <<bupay>> rubles'
		act 'Leave': gt 'autotraidf','car'
		if car = 0 and prava = 1 and money >= bupay:
		act 'Buy <<bupay>>rubles':
			cla
			set money -= bupay
			set $car = 'GAZ 3102'
				set car = 11
				set benz = 5
				set cardrive = 9
				set teh = tehT
				set tehcar = 1000
				set wrek = 0
				'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
			act 'Leave': gt 'Nord'
			end
			end
		end
	act 'Inspect 3110 (on the go)':
		cla
		*clr
		'<center><B>3110 (on the move)</B></center>'
		'<center><img src="images\picar\car12.jpg"></center>'
		set tehNT = 800
		set tehT = RAND(10, tehNT)
		set carT = 2
		gs 'avt'
		'<<$tehT>> The dealer wants <<bupay>> rubles'
		act 'Leave': gt 'autotraidF','car'
		if car = 0 and prava = 1 and money >= bupay:
		act 'Buy <<bupay>>rubles':
			cla
			set money -= bupay
			set $car = '3110'
				set car = 12
				set benz = 5
				set cardrive = 9
				set teh = tehT
				set tehcar = 800
				set wrek = 0
				'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
			act 'Leave': gt 'Nord'
			end
			end
		end
	end
act 'Leave': gt 'Nord'
end
--- autotraidF ---------------------------------

# carF
$enddrive = {
if cardrive = 1: gt 'street'
if cardrive = 2: gt 'down'
if cardrive = 3: gt 'Nord'
if cardrive = 4: gt 'lake','start'
if cardrive = 5: gt 'park','start'
if cardrive = 6: gt 'zaprF','start'
if cardrive = 7: gt 'autoservisF','start'
if cardrive = 8: gt 'autosalonF','start'
if cardrive = 9: gt 'autotraidF','start'
if cardrive = 10: gt 'park','whore'
if cardrive = 11: gt 'sauna'
if cardrive = 12: gt 'obekt'
if cardrive = 17: gt 'dachi'
if cardrive = 18: gt 'youplace'
if cardrive = 19: gt 'road'
if cardrive = 20: gt 'gorodok'
if cardrive = 21: gt 'zaprF','start'
}

if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	*clr
	gs 'stat'
	set minut += 1
	clr
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	'<center><b><<$car>></b></center>'
	*nl

	if car = 1: '<center><img src="images\picar\car.jpg"></center>'
	if car = 2: '<center><img src="images\picar\car2.jpg"></center>'
	if car = 3: '<center><img src="images\picar\car3.jpg"></center>'
	if car = 4: '<center><img src="images\picar\car4.jpg"></center>'
	if car = 5: '<center><img src="images\picar\car5.jpg"></center>'
	if car = 6: '<center><img src="images\picar\car6.jpg"></center>'
	if car = 7: '<center><img src="images\picar\car7.jpg"></center>'
	if car = 8: '<center><img src="images\picar\car8.jpg"></center>'
	if car = 9: '<center><img src="images\picar\car9.jpg"></center>'
	if car = 10: '<center><img src="images\picar\car10.jpg"></center>'
	if car = 11: '<center><img src="images\picar\car11.jpg"></center>'
	if car = 12: '<center><img src="images\picar\car12.jpg"></center>'
	if car = 13: '<center><img src="images\picar\car13.jpg"></center>'
	if car = 14: '<center><img src="images\picar\car14.jpg"></center>'
	if car = 15: '<center><img src="images\picar\car15.jpg"></center>'
	if car = 16: '<center><img src="images\picar\car16.jpg"></center>'
	if car = 17: '<center><img src="images\picar\car17.jpg"></center>'
	if car = 18: '<center><img src="images\picar\car18.jpg"></center>'
	if car = 19: '<center><img src="images\picar\car19.jpg"></center>'
	if car = 20: '<center><img src="images\picar\car20.jpg"></center>'
	if car = 21: '<center><img src="images\picar\car21.jpg"></center>'
	if car = 22: '<center><img src="images\picar\car22.jpg"></center>'
	if car = 23: '<center><img src="images\picar\car23.jpg"></center>'
	if car = 24: '<center><img src="images\picar\car24.jpg"></center>'
	if car = 25: '<center><img src="images\picar\car25.jpg"></center>'
	if car = 26: '<center><img src="images\picar\car26.jpg"></center>'
	if car = 27: '<center><img src="images\picar\car27.jpg"></center>'
	if car = 28: '<center><img src="images\picar\car28.jpg"></center>'
	if car = 29: '<center><img src="images\picar\car29.jpg"></center>'
	if car = 30: '<center><img src="images\picar\car30.jpg"></center>'
	if car = 95: '<center><img src="images\picar\car95.jpg"></center>'
	if car = 96: '<center><img src="images\picar\car96.jpg"></center>'
	if car = 97: '<center><img src="images\picar\car97.jpg"></center>'
	if car = 98: '<center><img src="images\picar\car98.jpg"></center>'
	if car = 99: '<center><img src="images\picar\car99.jpg"></center>'
	if car = 100: '<center><img src="images\picar\car100.jpg"></center>'

	act 'Move away from the machine': dynamic $enddrive

	if kanistra > 0:
		'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
		if benz <= 35:
			act 'Pour canister into the tank':
				cla
				set benz += 5
				set kanistra -= 1
				'You filled canister of gasoline in the tank.'
				act 'Move away': gt 'carF','start'
			end
		end
	end
	act 'Get in the car': gt 'carF','salon'
end

if $ARGS[0] = 'salon':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 1
clr

'<center><b><<$car>></b></center>'
*nl

if car = 1: '<center><img src="images\picar\salon.jpg"></center>'
if car = 2: '<center><img src="images\picar\salon2.jpg"></center>'
if car = 3: '<center><img src="images\picar\salon3.jpg"></center>'
if car = 4: '<center><img src="images\picar\salon4.jpg"></center>'
if car = 5: '<center><img src="images\picar\salon5.jpg"></center>'
if car = 6: '<center><img src="images\picar\salon6.jpg"></center>'
if car = 7: '<center><img src="images\picar\salon7.jpg"></center>'
if car = 8: '<center><img src="images\picar\salon8.jpg"></center>'
if car = 9: '<center><img src="images\picar\salon9.jpg"></center>'
if car = 10: '<center><img src="images\picar\salon10.jpg"></center>'
if car = 11: '<center><img src="images\picar\salon11.jpg"></center>'
if car = 12: '<center><img src="images\picar\salon12.jpg"></center>'
if car = 13: '<center><img src="images\picar\salon13.jpg"></center>'
if car = 14: '<center><img src="images\picar\salon14.jpg"></center>'
if car = 15: '<center><img src="images\picar\salon15.jpg"></center>'
if car = 16: '<center><img src="images\picar\salon16.jpg"></center>'
if car = 17: '<center><img src="images\picar\salon17.jpg"></center>'
if car = 18: '<center><img src="images\picar\salon18.jpg"></center>'
if car = 19: '<center><img src="images\picar\salon19.jpg"></center>'
if car = 20: '<center><img src="images\picar\salon20.jpg"></center>'
if car = 21: '<center><img src="images\picar\salon21.jpg"></center>'
if car = 22: '<center><img src="images\picar\salon22.jpg"></center>'
if car = 23: '<center><img src="images\picar\salon23.jpg"></center>'
if car = 24: '<center><img src="images\picar\salon24.jpg"></center>'
if car = 25: '<center><img src="images\picar\salon25.jpg"></center>'
if car = 26: '<center><img src="images\picar\salon26.jpg"></center>'
if car = 27: '<center><img src="images\picar\salon27.jpg"></center>'
if car = 28: '<center><img src="images\picar\salon28.jpg"></center>'
if car = 29: '<center><img src="images\picar\salon29.jpg"></center>'
if car = 30: '<center><img src="images\picar\salon30.jpg"></center>'
if car = 95: '<center><img src="images\picar\salon95.jpg"></center>'
if car = 96: '<center><img src="images\picar\salon96.jpg"></center>'
if car = 97: '<center><img src="images\picar\salon97.jpg"></center>'
if car = 98: '<center><img src="images\picar\salon98.jpg"></center>'
if car = 99: '<center><img src="images\picar\salon99.jpg"></center>'
if car = 100: '<center><img src="images\picar\salon100.jpg"></center>'

'Gasoline - <<benz>>l, fuel tank capacity of 40 liters.'

if teh <= 0: set teh = 0 & set wrek = 1
if wrek = 1 or teh <= 0: set $teh = 'Car will not start, it needs repairs.'
if teh >= tehcar * 75/100 and wrek = 0: set $teh = 'Machine in excellent condition.'
if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set $teh = 'When moving the machine you have any noises'
if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set $teh = 'Car crash and barely rides.'
if teh < tehcar*25/100 and wrek = 0: set $teh = 'As this bowl can still go, is a mystery even to the designers.'

'<<$teh>>'

if cardrive = 1: 'Through the windshield you see the residential area.'
if cardrive = 2: 'Through the windshield you see downtown.'
if cardrive = 3: 'Through the windshield you see the northern region.'
if cardrive = 4: 'Through the windshield you see the lake.'
if cardrive = 5: 'Through the windshield you see the park.'
if cardrive = 17: 'Through the windshield you see a holiday village.'
if cardrive = 20: 'Through the windshield, you can see the town.'
if prava = 0: 'You have no rights.'

act 'Out of the car': dynamic $enddrive
if benz > 0 and wrek = 0 and prava > 0:
	if teh >= tehcar * 75/100 and wrek = 0:
		set wrekrand = RAND(0,1000)
		if wrekrand = 1000: set wrek = 1
		end
	if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0:
		set wrekrand = RAND(0,100)
		if wrekrand = 100: set wrek = 1
		end
	if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0:
		set wrekrand = RAND(0,100)
		if wrekrand >= 80: set wrek = 1
		end
	if teh < tehcar*25/100 and wrek = 0:
		set wrekrand = RAND(0,100)
		if wrekrand >= 40: set wrek = 1
		end
	if wrek = 1:
		'Something clattered loudly and the engine stalled.'
		act 'Fuck': gt 'carF','salon'
		end
	if alko > 0:
		dpsrand = RAND(0,100)
		if dpsrand <= alko:
			'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
			'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
			'Or let´s make the report. Now operates divestment forever for driving not sober.'
			if money >= 50000:
				act 'Give a bribe of 50 pieces':
					cla
					money = money - 50000
					'You pay and the policeman warns you that you will not be riding in this state.'
					act 'In the salon': gt 'carF','salon'
					end
				end
			act 'Come on, all under the law':
				cla
				prava = 0
				'Disempower you, not for driving sober.'
				act 'In the salon': gt 'carF','salon'
				end
			exit
			end
		end
	if alko >= 10:
		avarand = RAND(0,100)
		if avarand >= 50:
			teh = teh/2
			wrek = 1
			'You with a drunk crashed into a tree, breaking the car into pieces.'
			act 'In the salon': gt 'carF','salon'
			exit
			end
		end
	if wrek = 0:
		if cardrive >= 20:
			if cardrive ! 3:
				act 'Go to town':
					cla
					set minut += 75
					set benz -= 1
					set teh -= RAND(3,6)
					set cardrive = 3
					'You are more than an hour drive on the highway that would get here before the city.'
					dynamic $enddrive
					end
				end
			if cardrive ! 21:
				act 'Go to the gas station':
					cla
					set minut += 15
					set benz -= 1
					set teh -= RAND(1,3)
					set cardrive = 21
					'You get 15 minutes to the destination.'
					dynamic $enddrive
					end
				end
			end
		if placeMansion > 0 and cardrive ! 18:
			act 'Go to your site':
				cla
				if cardrive >= 20:
				set minut += 60
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 18
				else
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 18
				end
				'You drive to the town.'
				dynamic $enddrive
				end
			end

		if dachaest > 0 and cardrive ! 17:
			act 'Go to the country':
				cla
				if cardrive >= 20:
				set minut += 60
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 17
				else
				set minut += 20
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 17
				end
				'You drive to the village.'
				dynamic $enddrive
				end
			end

		if cardrive ! 1:
			act 'Go to the residential area':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 1
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 2:
			act 'Go to city center':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 2
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 3:
			act 'Go to the northern area':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 3
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 4:
			act 'Go to the lake':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 4
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 5:
			act 'Go to the park':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 5
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 6:
			act 'Go to the gas station':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 6
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 7:
			act 'Go to the car wash':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 7
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 8:
			act 'Go to a car dealership':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 8
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 9:
			act 'Go to the car market':
				cla
				set minut += 15
				set benz -= 1
				set teh -= RAND(1,3)
				set cardrive = 9
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 12:
			act 'Go on to':
				cla
				set minut += 60
				set benz -= 1
				set teh -= RAND(2,5)
				set cardrive = 12
				'You get 15 minutes to the destination.'
				dynamic $enddrive
				end
			end
		if cardrive ! 20:
			act 'Go to town':
				cla
				set minut += 75
				set benz -= 1
				set teh -= RAND(3,6)
				set cardrive = 20
				'You eat more than an hour on the highway to the town.'
				dynamic $enddrive
				end
			end
		act 'Go around the track (1:00)':
			cla
			'You go on the road.'
			numberRoad = input("In which city will stop (from 0 to 20)")
			if numberRoad >= 0 and numberRoad <= 20:
				set cardrive = 19
				set nroad = numberRoad
				set ncarroad = numberRoad
				end
			xgt 'carF','salon'
			end
		act 'To drive on the track (1:00)':
			cla
			set minut += 60
			set benz -= 4
			set teh -= RAND(2,6)
			set manna += 20
			set wipo += 10
			'You go to the track and having fun Likhachev, then turn back.'
			act 'Finish': xgt 'carF','salon'
			end
		end
	end
end
--- carF ---------------------------------

# carF1
if $ARGS[0] = 'car':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>2107</B></center>'
'<center><img src="images\picar\car.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon.jpg"></center>'
	act 'Leave': gt 'carF1','car'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end


if $ARGS[0] = 'car2':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>2115</B></center>'
'<center><img src="images\picar\car2.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon2.jpg"></center>'
	act 'Leave': gt 'carF1','car2'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car3':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>2113</B></center>'
'<center><img src="images\picar\car3.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon3.jpg"></center>'
	act 'Leave': gt 'carF1','car3'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car4':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>2114</B></center>'
'<center><img src="images\picar\car4.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon4.jpg"></center>'
	act 'Leave': gt 'carF1','car4'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car5':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ 2119</B></center>'
'<center><img src="images\picar\car5.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon5.jpg"></center>'
	act 'Leave': gt 'carF1','car5'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car6':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ Kalina</B></center>'
'<center><img src="images\picar\car6.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon6.jpg"></center>'
	act 'Leave': gt 'carF1','car6'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car7':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>VAZ Pryor</B></center>'
'<center><img src="images\picar\car7.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon7.jpg"></center>'
	act 'Leave': gt 'carF1','car7'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car8':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>Chevrolet Niva</B></center>'
'<center><img src="images\picar\car8.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon8.jpg"></center>'
	act 'Leave': gt 'carF1','car8'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car9':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>UAZ HUNTER</B></center>'
'<center><img src="images\picar\car9.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon9.jpg"></center>'
	act 'Leave': gt 'carF1','car9'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car10':
cla
*clr
gs 'stat'
set minut += 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>UAZ Patriot</B></center>'
'<center><img src="images\picar\car10.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon10.jpg"></center>'
	act 'Leave': gt 'carF1','car10'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car95':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>Mitsubishi l200</B></center>'
'<center><img src="images\picar\car95.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon95.jpg"></center>'
	act 'Leave': gt 'carF1','car95'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end

if $ARGS[0] = 'car96':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>Audi Q7</B></center>'
'<center><img src="images\picar\car96.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon96.jpg"></center>'
	act 'Leave': gt 'carF1','car96'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end


if $ARGS[0] = 'car97':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>Cadillac Escalade</B></center>'
'<center><img src="images\picar\car97.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon97.jpg"></center>'
	act 'Leave': gt 'carF1','car97'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end


if $ARGS[0] = 'car98':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>Porsche Cayenne</B></center>'
'<center><img src="images\picar\car98.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon98.jpg"></center>'
	act 'Leave': gt 'carF1','car98'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end



if $ARGS[0] = 'car99':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>BMW X6</B></center>'
'<center><img src="images\picar\car99.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon99.jpg"></center>'
	act 'Leave': gt 'carF1','car99'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end


if $ARGS[0] = 'car100':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
clr
'<center><B>Mercedes-Benz S 600</B></center>'
'<center><img src="images\picar\car100.jpg"></center>'

	act 'Sit in the lounge':
	cla
	*clr
	'<center><img src="images\picar\salon100.jpg"></center>'
	act 'Leave': gt 'carF1','car100'
	end

	act 'Leave':
	cla
	if cartraid = 1: gt 'autosalonF','start'
	if cartraid = 2: gt 'autotraidF','manager'
	end
end
--- carF1 ---------------------------------

# qwBarPolet
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
minut += 5
gs 'stat'
'<center><B><font color = maroon>Bar "Flight"</font></B></center>'
if hour >= 10:
'<center><img src="images\qwest\kim\bar.jpg"></center>'
'At the bar sat a few visitors. Bartender with a face scarred missing pours beer mugs.'


else
'The bar is closed and inlet written "hours with 10 to 24-hours."'
end
act 'Leave': gt 'nord'
--- qwBarPolet ---------------------------------

# qwbereg
$qwvlsexhjdy = {
	act 'Pat his hand between her legs.':
	cls
	minut += 5
	VladimirHJ += 1
	hj += 1
	gs 'stat'
	'<center><img src="images\qwest\sex\hand.jpg"></center>'
	'You started stoking by Vladimir crotch and felt his cock gets. He unzipped and pulled standing member who put you in her hands.'
	'You started to caress her slender fingers hard and hot cock Vladimir.'
		act 'Masturbate him.':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\qwest\sex\hand2.jpg"></center>'
		'You started stroking his cock harder and soon finished Vladimir groaning in your hands.'
		act '....': gt 'qwbereg2'
		end

		act 'To take by mouth.':
		cls
		minut += 5
		bj += 1
		VladimirBJ += 1
		gs 'stat'
		'<center><img src="images\qwest\sex\bj.jpg"></center>'
		'After going down on his knees with his lips wrapped around you a member of Vladimir and began to suck him absorbing every move his hard cock to the throat and abundantly wetting saliva.'
		'Finally Vladimir began stonoat and he is about to finish.'
			act 'Continue to suck.':
			cla
			*clr
			set swallow += 1
			set cumlip += 1
			'<center><img src="images\picV\swallow.jpg"></center>'
			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and Vladimir continued to finish in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
				act '....': gt 'qwbereg2'
			end

			act 'Remove the mouth.':
			cla
			*clr
			set tiprand = RAND(0,1)
				if tiprand = 1:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and Vladimir finished you in the palm.'
				end

				if tiprand = 0:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point Vladimir discharged directly on your face, covering it with warm and sticky cum.'
				end

				act '....': gt 'qwbereg2'
			end
		end

	end
}

minut += 30
gs 'stat'
'<center><B><font color = maroon>The boat</font></B></center>'
'<center><img src="images\qwest\vladimir\kater.jpg"></center>'
'Boat moored to the bank and Glory jumping from a boat tethered moorings. Everyone began to descend from the boat to shore. Vladimir said "Thank you now razvezet home and then pick me up and light."'
'Nikolai, Vitaliy and Isolde said goodbye and got into the car. Glory sat behind the wheel and drove off. You stayed near the boat together with Vladimir.'
'Vladimir gathered the remnants of food in a bag and threw it in the trash. Boxes with untouched food delivered to the deck until you wiped with a damp cloth table on the deck.'
'Finally with the cleaning has been completed and Vladimir sat on the sofa to rest on deck.'

	act 'To sit next to.':
	cls
	'<center><B><font color = maroon>Vladimir</font></B></center>'
	'<center><img src="images\qwest\vladimir\001.jpg"></center>'
	'You sat next to Vladimir, and he hugged you by the shoulders. "Well, how do you walk?"'
		act 'It was not bad. Great boat.':
		cla
		'(You) - It was not bad. Great you have a boat.'
		'(Vladimir) - not my boat. Lent one friend pokatatsya. Absolutely no time to rest, so you have to combine business meetings with the rest.'
		'Vladimir leaned to your face trying to kiss him.'
			act 'Tselovatsya.':
			cla
			minut += 5
			horny += 10
			VladimirSex += 1
			guy += 1
			gs 'stat'
			'You started with Vladimir tselovatsya sitting on the couch. His hands slid to your chest and began to knead her through clothing.'
			dynamic $qwvlsexhjdy

				act 'Savoury.':
				cls
				minut += 5
				horny += 15
				gs 'stat'
				'<center><img src="images\qwest\sex\tits.jpg"></center>'
				'Vladimir lifted your shirt and began to lick and suck your breasts. Gentle warmth pierced you and you become very good caresses Vladimir.'
				dynamic $qwvlsexhjdy

					act 'Savoury.':
					cla
					minut += 5
					horny += 15
					DOM += 1
					kuni += 1
					gs 'stat'
					'<center><img src="images\qwest\sex\kuni.jpg"></center>'
					'Vladimir started to remove your clothes that would get here before your pussy. He began to caress your tongue pussy.'
					if horny >= 90:
						set horny = 0
						set manna += 15
						set willpower += 15
						set orgasm += 1
						'Skillful actions of Vladimir orgasm you covered.'
						else
						'Actions Vladimir though they were exciting, but they started to bore you.'
						end

						dynamic $qwvlsexhjdy

						act 'Give him.':
						cls
						set sex += 1
						set minut += 30
						set pose = 0
						set $nameV = 'Vladimir'
						set dick = 16
						set silavag = 1
						'<center><img src="images\picV\vag.jpg"></center>'
						'<<$nameV>> spread your legs and began to fondle her fingers pussy.'
						gs 'orgazm','start'
						act '....': gt 'qwbereg2'
						end
					end
				end

			end
		end
	end
--- qwbereg ---------------------------------

# qwbereg2
minut += 15
vladimirday = day
vladimirQW = 35
gs 'stat'
'<center><img src="images\qwest\vladimir\car.jpg"></center>'
'Once you´ve finished with Wladimir fuck how to berth drove Audi. Glory came out of it and invited you to get in the car.'
'You sat in the back seat of the car and Vladimir, pleased, though tired and sat down next to you. Glory vtopil as usual and flew down the road.'
'Soon you were already around your porch. Vladimir promised to call you and left with Slava.'

act 'Go home.': gt 'street'
--- qwbereg2 ---------------------------------

# QwestDisdock
!в локацию stat на любое место
if qwestonce = 0:
set qwestonce = 1
!ADDQST 'qwest\qwest.qsp'
end

!ссылка на переход
!расположена в локации park  массив luna
if vladimirQW = 0 and hour >= 9 and hour <= 20 and week > 5: '<a href="exec: GT ''qwloc''">Near the fence strong man stands and looks at you</a>.'

!в локацию korr
if vladimirday ! day and vladimirQW = 20 and hour = 16: '<a href="exec: GT ''qwloc2''">The phone rings</a>.'

!в локацию telefon массив start
if vladimirday ! day and vladimirQW = 20 and hour = 16: gt 'qwloc2'

!в локацию restoran массив start

if vladimirday = day and vladimirQW = 21 and hour = 20: gt 'qwmeet'

!в локацию korr
if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6: '<a href="exec: GT ''qwloc3''">The phone rings</a>.'

!в локацию telefon массив start
if vladimirday ! day and vladimirQW = 25 and hour = 16 and week = 6: gt 'qwloc3'

!street
if vladimirday = day and vladimirQW = 30 and hour >= 16 and week = 6: '<a href="exec: GT ''qwmeet2''">Before your porch worth audit and near stolidly worth waiting for you driver Glory</a>.'

!down
if izoldaWQ >= 1: '<a href="exec: GT ''qwIzoldaApp''">Flat Isolde</a>.'

!nord
if slavaQW >= 1: '<a href="exec: GT ''qwBarPolet''">Bar "Flight"</a>.'
--- QwestDisdock ---------------------------------

# qwIzoldaApp
minut += 15
gs 'stat'

if hour >= 16 and izoldaday ! day:
izoldaday = day
'<center><B><font color = maroon>Isolda</font></B></center>'
'<center><img src="images\qwest\kolan\izolda.jpg"></center>'
'Door you opened Isolde. "Hello <<$name>>, come on."'

act 'Leave': gt 'down'
	act 'Enter the apartment':
	cla
	minut += 30
	izoldaWQ += 1
	gs 'stat'
		if izoldaWQ < 5:
		'You went to the apartment and Isolde you spent in the kitchen. There she poured tea, and you yourself. You sat at the table and began to chat about all sorts of trivia.'
		end
		if izoldaWQ >= 5 and izoldaSex = 0:
		'Isolde suggested that you drink wine. You agreed and went to the kitchen. Isolde opened a bottle of wine and poured two glasses. You drank it.'
			if izoldaWQ >= 10 and izoldaSex = 0:
			'Soon you both drunk and Isolde invited you to go to the lounge to relax.'
				act 'Go Isolde':
				cls
				girl += 1
				lesbian += 1
				izoldaSex = 1
				horny += 10
				gs 'stat'
				'<center><img src="images\qwest\kolan\izoldasex.jpg"></center>'
				'The room suddenly Isolde you kissed and hugged her gently.'
					act 'Tselovatsya Isolde':
					cls
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\kolan\izoldasex1.jpg"></center>'
					'Isolde´s head gently slipped from your lips to your breasts and began to caress them.'
						act '...':
						cls
						horny += 10
						gs 'stat'
						'<center><img src="images\qwest\kolan\izoldasex2.jpg"></center>'
						'Isolde you dropped on the couch and gently kisses covering section. Once you lay down on her back, she began to lick your pussy.'
							act '...':
							cls
							horny = 0
							orgasm += 1
							gs 'stat'
							'<center><img src="images\qwest\kolan\izoldasex3.jpg"></center>'
							'Blonde turned and climbed on you without stopping to lick your pussy. She throw the leg over you up her sweaty and expiring juices crack for sex. You started to caress her clitoris tongue and kiss her luscious lips, finally you both shook orgasm.'
								act 'Leave': gt 'down'
							end
						end
					end
				end
			end
		end
		if izoldaSex > 0:
		'Isolde offer you a drink of wine and you have gone with her to the kitchen, drinking a bottle she took you by the hand and led her into the room.'
			act 'Go Isolde':
			cls
			lesbian += 1
			izoldaSex += 1
			horny += 10
			gs 'stat'
			'<center><img src="images\qwest\kolan\izoldasex.jpg"></center>'
			'The room suddenly Isolde you kissed and hugged her gently.'
				act 'Tselovatsya Isolde':
				cls
				horny += 10
				gs 'stat'
				'<center><img src="images\qwest\kolan\izoldasex1.jpg"></center>'
				'Isolde´s head gently slipped from your lips to your breasts and began to caress them.'
					act '...':
					cls
					horny += 10
					gs 'stat'
					'<center><img src="images\qwest\kolan\izoldasex2.jpg"></center>'
					'Isolde you dropped on the couch and gently kisses covering section. Once you lay down on her back, she began to lick your pussy.'
						act '...':
						cls
						horny = 0
						orgasm += 1
						gs 'stat'
						'<center><img src="images\qwest\kolan\izoldasex3.jpg"></center>'
						'Blonde turned and climbed on you without stopping to lick your pussy. She throw the leg over you up her sweaty and expiring juices crack for sex. You started to caress her clitoris tongue and kiss her luscious lips, finally you both shook orgasm.'
							act 'Leave': gt 'down'
						end
					end
				end
			end
		end
	act 'Leave': gt 'down'
	end
else
'You rang the bell but no one answered you.'
act 'Leave': gt 'down'
end
--- qwIzoldaApp ---------------------------------

# qwloc

$qwnamedy = {
act '<<$name>>':
cla
vladimirQW = 10
'(You) - <<$name>>'
'(Vladimir) - Beautiful name to match you. I unfortunately have to go, but would like to meet with you again. Go to the restaurant to talk. Leave me your phone number, I´ll call you tomorrow.'
	act 'No (Go)':
	cla
	vladimirQW = 2
	'You turned on the man and went away from him.'
	act 'Leave': gt 'park','luna'
	end

	act 'Dictate the phone number':
	cla
	vladimirQW = 20
	vladimirday = day
	'You dictated phone Vladimir and he wrote it down in a small notebook in leather cover.'
	act 'Leave': gt 'park','luna'
	end
end
}



$qwvladdy = {
'(Male) - Hello. Vladimir I, I loved you, I would like pointeresovatsya your name.'

dynamic $qwnamedy

act 'Sorry, I´m busy.':
cla
vladimirQW = 1
'(You) - Sorry, I´m busy.'
'(Vladimir) - Well, what are you? I will not bite. Just want to know the name from the charming stranger.'
dynamic $qwnamedy

	act 'Yet I go (Go)':
	cla
	vladimirQW = 2
	'You turned on the man and went away from him.'
	act 'Leave': gt 'park','luna'
	end
end

}

minut += 5
gs 'stat'
gs 'time'
'<center><B><font color = maroon>Man</font></B></center>'
'<center><img src="images\qwest\vladimir\001.jpg"></center>'
if mop > 1 and hapri = 1:
	'Man standing near the fence and noticed your opinion you smiled.'



	act 'Come to a man':
	cla
	'You went to the man and he went away from the fence toward you.'
	dynamic $qwvladdy
	end

	act 'Smile':
	cla
	'You the man smiled at him and he went away from the fence toward you.'
	dynamic $qwvladdy
	end

	act 'Unscrew':
	cla
	'You turned away from the man and heard in his footsteps behind him.'
	dynamic $qwvladdy
	end
else
'The man looked at you and turned away.'
act 'Leave': gt 'park','luna'
end
--- qwloc ---------------------------------

# qwloc2
gs 'stat'

'You pick up the phone and a male voice said, "Hello <<$name>>, is Vladimir, remember we are not met for a long time in the park?"'


	act 'Hello, of course I remember.':
	cla
	vladimirQW = 21
	'(You) - Hey, of course I remember.'
	'(Vladimir) - My suggestion is to go to the restaurant is still in force. As you look at it?'
		act 'Oh, I have a lot of things, I just can not today.':
		cla
		vladimirQW = 20
		vladimirday = day
		'(You) - Oh, I have a lot of things, I just can not segdnya.'
		'(Vladimir) - Okay. Then I´ll call you tomorrow at 4 pm.'
		act 'Hang up.': gt 'korr'
		end

		act 'I do not mind.':
		cla
		vladimirQW = 21
		vladimirday = day
		'(You) - I do not mind.'
		'(Vladimir) - Wonderful. Then come to the restaurant in 20 hours.'
		act 'Hang up.': gt 'korr'
		end


	end
--- qwloc2 ---------------------------------

# qwloc3
gs 'stat'

'You pick up the phone and a male voice said, "Hello <<$name>>, is Vladimir, you want to ride on a boat?"'

	act 'Oh, I have a lot of things, I just can not today.':
	cla
	vladimirday = day
	'(You) - Oh, I have a lot of things, I just can not segdnya.'
	'(Vladimir) - Okay. Then I´ll call you tomorrow at 4 pm.'
	act 'Hang up.': gt 'korr'
	end

	act 'I do not mind.':
	cla
	vladimirQW = 30
	vladimirday = day
	'(You) - I do not mind.'
	'(Vladimir) - Wonderful. Now for you to come my driver and drive Thank you.'
	act 'Hang up.': gt 'korr'
	end
--- qwloc3 ---------------------------------

# qwloc4
gs 'stat'
'You pick up the phone and a male voice said, "Hello <<$name>>, is Vladimir, can converge to something?"'

	act 'Oh, I have a lot of things, I just can not today.':
	cla
	vladimirday = day
	'(You) - Oh, I have a lot of things, I just can not segdnya.'
	'(Vladimir) - Okay. Then I´ll call you tomorrow at 4 pm.'
	act 'Hang up.': gt 'korr'
	end

	act 'I do not mind.':
	cla
	vladimirQW = 40
	vladimirday = day
	'(You) - I do not mind.'
	'(Vladimir) - Wonderful. Now for you to come my driver and drive Thank you.'
	act 'Hang up.': gt 'korr'
	end
--- qwloc4 ---------------------------------

# qwmeet
$qwmeetdy = {
'The door opened and the driver Cars filed your hand.'
	act 'Leaning out of the car on the driver´s hand.':
	cls
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\kim\001.jpg"></center>'
	'Stepping out of the car you just now spotted the driver. It appeared to be a young man of Asian origin. He seemed confident guy smiled at you and impudent.'
	'Vladimir looked out of the car "This is my driver, Glory. He will bully you. Svetulya yet, I´ll call you."'
	'Asian smiled again and you shut the back door. Leaping into the driver´s seat, he again looked at you greedy, undressing eyes and slammed the door with a smirk. The car skidded to immediately jumped up and flew away disappearing into the distance.'
	act 'Go home.': gt 'street'
	end
}

minut += 5
gs 'stat'
vladimirQW = 25
vladimirday = day
'<center><B><font color = maroon>Vladimir</font></B></center>'
'<center><img src="images\qwest\vladimir\001.jpg"></center>'
'Once you have entered the door of the restaurant came to you with Vladimir lush bouquet of roses. Hello <<$name>>. Well, let´s go to a restaurant?'

	act 'Mark bouquet and go to a restaurant with Vladimir.':
	cla
	minut += 3
	gs 'stat'
	'You´re a little confused took a bouquet of roses and hands of Vladimir and he took you by the elbow led you to the restaurant. He led you to a table where the table plate "Special order" and substituting the chair you sit invited.'
		act 'Sit on a chair':
		cla
		minut += 3
		gs 'stat'
		'Waiter to bring you a menu and Vladimir asked you not to hesitate and order whatever you want.'
		act 'Make an order':
			cla
			minut += 3
			gs 'stat'
			'You made the order and the waiter taking the menu away. At the table, there was an awkward pause. Vladimir paused and asked. "You <<$name>> who work for?"'
			if workrin = 1:
			$qwvladwork = 'I work in the market.'
			elseif young_shop_work = 1:
			$qwvladwork = 'I work in a store.'
			elseif workKafe > 0:
			$qwvladwork = 'I work as a waitress in a cafe.'
			else
			$qwvladwork = 'By and large, nothing.'
			end

				act '<<$qwvladwork>>':
		cla
		minut += 15
				gs 'stat'
		'(You) - <<$qwvladwork>>'
		'(Vladimir) - Right. I know not a big desk, a business. Buy, Sell, for short.'
		'At this time the waiter brought to the table order. After the plates were placed. Vladimir continued.'
		'"I´m 40 years old. Married and has a child. With his wife have been a long time nothing binds and I´m ready to divorce her at any time."'
		'Vladimir poured the wine into the glasses and offered the first toast to the friendship.'
		act 'Have a drink':
					cla
					minut += 15
					energy = 21
					water = 21
					gs 'stat'
					'You drank wine and began to dig in the salad fork. Vladimir said. "Let´s move on you, I hope you do not mind?" You shake your head confirming that you too this official communication style is not very much.'
					'Vladimir continued "In business laws wolf. Impossible to stand still, we must constantly evolve. Now I open another business. Therefore could take you to work."'
					'You chewed salad and stared at him. "We just met, you do not know me."'
					'Vladimir nodded "Yes, but you´re a special girl. Unique. I just feel it."'
					'The restaurant has played live music and Vladimir invited you to tenets.'
						act 'Dancing with Vladimir':
						cla
						minut += 15
						gs 'stat'
						'Vladimir took you by the hand and led to the dance floor. There he you firmly embraced and began to carry on a dance. Do you feel like dancing your breasts pressed against his chest Vladimir and his hot hands tightly holding your waist.'
						'Soon the dance ended and Vladimir pododvinuv you a chair to help you sit down. You continue to dine and talk. At this time, Vladimir did not affect serious topics and told how he recently went to a ski resort.'
						'Once you ate and drank Vladimir suggested you carry home. He paid the waiter left a generous tip, and took you by the hand to come with you from the restaurant.'
							act 'Out of the restaurant':
							cls
							'<center><img src="images\qwest\vladimir\car.jpg"></center>'
							minut += 15
							gs 'stat'
							'The restaurant car was already prepared for you to Vladimir, he helped you to sit in the back seat and beating machine sat next to you. The driver closed the door and sat behind the wheel. Without turning, he asked where to go and you called him your address.'
							'You practically flew through the streets at breakneck speed. The driver was a real ace, he deftly around a turn and went around barely moving machines have never hit the brakes. Very quickly you come to your porch. Vladimir remarked sadly, "I unfortunately have to have a couple of things to do, so I´m in a hurry. I´ll call you tomorrow."'
							'He leaned over to kiss you you seeking.'
								act 'Give a kiss on the cheek':
								cla
								'You framed cheek and gently kissed you, Vladimir.'
								dynamic $qwmeetdy
								end

								act 'Kiss on the lips':
								cla
								'You kissed the lips of Vladimir. Its strong and firm lips gently digging into your soft and gentle sponge.'
								dynamic $qwmeetdy
								end
							end
						end
					end
		end
			end
		end
	end
--- qwmeet ---------------------------------

# qwmeet2
$qwmeetkatdy = {
'After the kiss, Vladimir took you by the hand went to acquaint you with your friends. Near the motor yacht talked two men and one woman.'
'Vladimir brought you to the thin one man is not of a certain age, with a rigid, fastidious person. This Nicholas is <<$name>>.'
	act 'Very nice':
	cls
	minut += 5
	gs 'stat'
	'<center><B><font color = maroon>Nick</font></B></center>'
	'<center><img src="images\qwest\kolan\001.jpg"></center>'
	'Nicholas did not close the flashing eyes looked at you and said politely pointed "Very nice."'
	'Vladimir brought you to the girl standing next to Nicholas and introduced you to each other. "It´s Isolde is <<$name>>."'
		act 'Very nice':
		cls
		minut += 5
		gs 'stat'
		'<center><B><font color = maroon>Isolda</font></B></center>'
		'<center><img src="images\qwest\kolan\izolda.jpg"></center>'
		'Young blonde smiled at and greeted you.'
		'Vladimir brought you to my second friend. "It Vitaly is <<$name>>."'
			act 'Very nice':
			cls
			minut += 5
			gs 'stat'
			'<center><B><font color = maroon>Vitali</font></B></center>'
			'<center><img src="images\qwest\marafet\001.jpg"></center>'
			'The man looked at you mad eyes and smiled. "Hello beautiful, welcome to our warm company"'
			'Vladimir looked "Well, since we´re all here, let´s go on the boat." Nicholas looked at the driver´s glory. "Hey Banzai, lend and moorings at the helm." Asian nodded and began fussing around the boat.'
				act 'Vzayti aboard boats':
				cls
				minut += 5
				gs 'stat'
				'<center><B><font color = maroon>The boat</font></B></center>'
				'<center><img src="images\qwest\vladimir\kater.jpg"></center>'
				'You boarded the boat and Asian Glory which Nicholas called Banzai cast off and deftly jumped on the boat. Glory started the boat and rushed to the river at full speed.'
				'Nicholas sat down on a seat on the deck beside him and Vitaly flopped. Vladimir started fussing on the deck but Nicholas interrupted him "Vova, stop running, let us make love to girls. Sit down and talk."'
				'Isolde, after Nicholas ducked into the cabin.'
					act 'Go to the cabin after Isolde':
					cls
					minut += 5
					gs 'stat'
					'<center><B><font color = maroon>Cabin</font></B></center>'
					'<center><img src="images\qwest\kolan\izolda.jpg"></center>'
					'The cabin was a box with a variety of provisions and Isolde competently serve food on a tray. She nodded to the tomatoes, cut yourself yet. You started taking a knife to cut tomatoes.'
						act 'Ask about her and Nicholas':
						cla
						minut += 5
						gs 'stat'
						'You asked that binds her and Nicholas. Isolde immediately responded, "We are not married but dating. Nicholas blank, do not have anyone Nigo, no wife, no children. He´s a very influential person in the city, with one mention of it all start to go toe the line."'
						'Nicholas mediates and resolves a variety of issues and disputes. The very same Isolde according to her works in one his room, he does almost nothing and gets not a bad salary. Nicholas gave her there.'
							act 'Ask about Vitali.':
							cla
							minut += 5
							gs 'stat'
							'You asked who is Vitaly. Isolde shrugged, "do not really know, Nikolai his cop calls. So probably he is cop."'
								act 'Ask about the glory.':
								cla
								minut += 5
								gs 'stat'
								'You asked whether she knows the glory, she smiled, "I do not know, but all the time around the Banzai Koli rubs, he rubbed his driver to Vovka. Brazen and crazy type, a really great driver. He kind of master of sport of racing."'
								act 'Come on deck with a tray.': gt 'qwpaluba'
								end
							end
						end
					end
				end

			end
		end
	end
}

$qwslavady = {
'Glory is not looking at you said "<<$name>>, where you met Volodya?"'
'You´re a little surprised that the driver called his boss told him but Volodya that you meet in the park.'
'The driver smiled "Yeah I remember. Carried I have it in the park with his wife and child. Then you already know that he has a wife and child, and?"'
'You nodded, "Yes, he told me." Glory chuckled avoiding another car at full speed "is clear. Cinderella found her prince on a white horse."'
'Police siren wailed from behind and began to demand that the megaphone would audi stopped. Glory and laughed even harder pressed the gas to the floor. "Not even a man who was born to catch up with me."'
'The machine flew quite a crazy speed and cars moving in the same direction disappeared behind you without having appear before you. Glory brought the car out of the city and sirens became audible. He grinned, "I told them thin intestine catch up with me."'
'Soon audi flew to the river and stopped near the pier on which are so few people. Glory out of the car and helped you vybratsya.'
'To you walked Vladimir.'
	act 'Give a kiss on the cheek':
	cls
	'<center><B><font color = maroon>Vladimir</font></B></center>'
	'<center><img src="images\qwest\vladimir\001.jpg"></center>'
	'You framed cheek and gently kissed you, Vladimir.'
	dynamic $qwmeetkatdy
	end

	act 'Kiss on the lips':
	cls
	'<center><B><font color = maroon>Vladimir</font></B></center>'
	'<center><img src="images\qwest\vladimir\001.jpg"></center>'
	'You kissed the lips of Vladimir. Its strong and firm lips gently digging into your soft and gentle sponge.'
	dynamic $qwmeetkatdy
	end
}

minut += 3
gs 'stat'
'<center><img src="images\qwest\kim\001.jpg"></center>'
'Glory smiled and gestured you get in the car on the front passenger seat.'

	act 'Sit next to the driver.':
	cls
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\kim\002.jpg"></center>'
	'You took a seat next to the driver. Glory came to the door and slammed it shut. He walked over to his seat and sat behind the wheel moved. Glory again flew through the city spit on traffic lights, signs and other cars.'
	dynamic $qwslavady
	end

	act 'Sit in the back seat.':
	cls
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\kim\002.jpg"></center>'
	'You defiantly took a backseat and Glory hmyknuv shut the door behind you. He walked over to his seat and sat behind the wheel moved. Glory again flew through the city spit on traffic lights, signs and other cars.'
	dynamic $qwslavady
	end
--- qwmeet2 ---------------------------------

# qwmeet3
minut += 3
gs 'stat'
'<center><img src="images\qwest\kim\001.jpg"></center>'
'Glory smiled and gestured you get in the car on the front passenger seat.'

	act 'Sit next to the driver.':
	cls
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\kim\002.jpg"></center>'
	'You took a seat next to the driver. Glory came to the door and slammed it shut. He walked over to his seat and sat behind the wheel moved. Glory again flew through the city spit on traffic lights, signs and other cars.'
		if slavaQW > 0: slavaQW += 1 & 'As long as you drove through the city, not by constraint, you chatted with Slava.'
		if slavaQW = 0: slavaQW = 1 & 'As long as you drove through the city, Glory told you that he tusit in my spare time at the bar located Flying in the northern region of the city.'
	dynamic $qwmeetdin
	end

	act 'Sit in the back seat.':
	cls
	minut += 3
	gs 'stat'
	'<center><img src="images\qwest\kim\002.jpg"></center>'
	'You defiantly took a backseat and Glory hmyknuv shut the door behind you. He walked over to his seat and sat behind the wheel moved. Glory again flew through the city spit on traffic lights, signs and other cars.'
	dynamic $qwmeetdin
	end

$qwmeetdin = {
'Finally the car stopped near the restaurant.'
	act 'Out of the car.':
	cls
	minut += 60
	energy = 21
	water = 21
	vladimirday = day
	vladimirQW = 35
	gs 'stat'
	'The restaurant you already met Vladimir. He will spend a reserved table. You drank and ate together with Vladimir, who spoke little and mostly compliments.'
		if VladimirKnowAboutHusband = 0:
		'Then you came out of the restaurant and sat in the car with Vladimir, Thank you belive drove to your home. Vladimir pointedly whispered, "can priglasish me to her?"'
		act 'Sorry, but I still have a case.': gt 'street'
			if husband <= 0:
				act 'Invite.':
				cls
				minut += 15
				set $nameV = 'Vladimir'
				$boy = 'Vladimir'
				set dick = 16
				silavag = 1
				NoGuy = 1
				InYouHome = 1
				harakBoy = 0
				finance = 2
				money += 5000
				'You passed with Vladimir in the bedroom. Vladimir skeptical osvotrel your humble abode and took out his wallet. I hope you will not mind if I give you money? He handed you five thousand. You hid a little money you offered.'
				act '...': gt 'BDsex','start'
				end
			end
			if husband > 0 and VladimirKnowAboutHusband = 0:
				act 'I am married.':
				cls
				VladimirKnowAboutHusband = 1
				'You told Vladimir that you have a husband. He kept apologizing and said goodbye to you.'
				act 'Leave.': gt 'street'
				end
			end
		end
		if VladimirKnowAboutHusband = 1:
		'After the meal you left the restaurant and got into the car with Vladimir. He suggested that you go to him, to a safe place.'
			act 'Sorry, but I still have a case.': gt 'street'
			act 'Agree.':
			cls
			minut += 15
			set $nameV = 'Vladimir'
			$boy = 'Vladimir'
			set dick = 16
			silavag = 1
			NoGuy = 1
			harakBoy = 0
			finance = 2
			GoToGuy = 2
			'Glory to you belive drove a rented apartment Vladimir. You got out and went up to the apartment.'
			'In the apartment you have been with Vladimir in the bedroom.'
			act '...': gt 'BDsex','start'
			end
		end
	end
}
--- qwmeet3 ---------------------------------

# qwpaluba
minut += 30
energy = 21
water = 21
gs 'stat'
'<center><B><font color = maroon>The boat</font></B></center>'
'<center><img src="images\qwest\vladimir\kater2.jpg"></center>'
'You brought the tray on the deck and put it on the table in front of men. Vladimir began pouring a glass of vodka and showed you sit on a chair inviting. Isolde came and also brought a variety of eatables on the tray.'
'You all but Glory sat at a table on the deck and after Vladimir vodka poured the glasses. Nicholas raised a toast "For the ladies present here."'
'All drank the stack and returned to their conversations. Vladimir floor vote in what is explained Nicholas. And frankly Vitaly sgaretu lounged smoking and staring at your feet.'
'Isolde stood leaning his hands on the gunwale and considered neighborhood. Glory led boat on the river.'

	act 'Approach to Isolde':
	cls
	izoldaWQ = 1
	minut += 15
	gs 'stat'
	'<center><B><font color = maroon>Isolda</font></B></center>'
	'<center><img src="images\qwest\kolan\izolda.jpg"></center>'
	'Glory began to make a turn that would return to the place from where you left. You clung to a rail next to Isolde, that would not fall, Nicholas shouted "Banzai, be careful, do not you carry firewood."'
	'Once you have chatted boat lined with Isolde about trifles. She called you my address in the city center and invited to come to anything like it.'
	'The boat finally dropped the course and began to stick to the shore where you set sail for a walk.'
	act 'Disembark': gt 'qwbereg'
	end

	act 'Approach to Glory':
	cls
	minut += 15
	gs 'stat'
	'<center><B><font color = maroon>Glory</font></B></center>'
	'<center><img src="images\qwest\kim\001.jpg"></center>'
	'Glory grinned when he saw you. "Hold on tight, I´m going to turn." You clung to railings and Asian rider banked on the river boat turning. Nicholas shouted "Banzai, be careful, do not you carry firewood."'
	'The driver smiled, "I can not help myself, I love speed. Do you like speed?"'
		act 'Not very':
		cla
		slavaQW = 1
		'(You) - Not really.'
		'(Glory) - You just do not feel it yet. What would you love to feel the speed it should be. I hang out in the evenings in the northern region, near the bar, "Flight", come back.'
		'The boat finally dropped the course and began to stick to the shore where you set sail for a walk.'
		act 'Disembark': gt 'qwbereg'
		end

		act 'Yes.':
		cla
		slavaQW = 1
		'(You) - Yes.'
		'(Glory) - In the evening, I hung out in the northern region, in the bar, "Flight", come back, I´ll show you what real speed.'
		'The boat finally dropped the course and began to stick to the shore where you set sail for a walk.'
		act 'Disembark': gt 'qwbereg'
		end
	end

	act 'Talk with Vitali':
	cls
	minut += 15
	gs 'stat'
	'<center><B><font color = maroon>Vitali</font></B></center>'
	'<center><img src="images\qwest\marafet\001.jpg"></center>'
	'You started talking with Vitali, he acknowledged that working with the police to the rank of captain. At this time, the boat banked sharply and began to go on the turn, you are not expecting such slid from the couch and grabbed the Vitali that would not fall. Nicholas shouted "Banzai, be careful, do not you carry firewood."'
	'Vitaliy you grabbed that you would not have fallen to the floor. After the boat leveled network it helped you on the couch, and his hands slid over your body and stopped by the ass. Then he took his hands with a sigh and poured vodka.'
	'The boat finally dropped the course and began to stick to the shore where you set sail for a walk.'
	act 'Disembark': gt 'qwbereg'
	end
--- qwpaluba ---------------------------------

# AnalPR
if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut += 1
set prosti = 0
clr
gs 'stat'
'<center><img src="images\img\prost\anal.jpg"></center>'
set dickK = dick * 10/100
if dickK < 1: set dickK = 1
set anus += dickK

	if anus < dick:
	set fun = 0
	set $analsex = 'Ass ached when the member entered her client waited for a bit until your ass adapt and gradually began to move his cock in you, gradually accelerating.'
	end

	if anus >= dick:
	set horny += anus
	set $analsex = 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
	end
'You got cancer and client uper you in your anus <<dick>> centimeter member. <<$analsex>>'
'Finally, the client does not stand up and ends in a condom.'
set anal += 1
money += ProsMoney * 100
set analprotect = 1
act 'Leave.': GOTO $locSex, $metkaSex
end

if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut += 1
set prosti = 0
clr
gs 'stat'
set picanRand = RAND(1,6)
if picanRand = 1: '<center><img src="images\img\prost\cowl.jpg"></center>'
if picanRand = 2: '<center><img src="images\img\prost\cowl2.jpg"></center>'
if picanRand = 3: '<center><img src="images\img\prost\cowl3.jpg"></center>'
if picanRand = 4: '<center><img src="images\img\prost\cowl4.jpg"></center>'
if picanRand = 5: '<center><img src="images\img\prost\cowl5.jpg"></center>'
if picanRand = 6: '<center><img src="images\img\prost\cowl6.jpg"></center>'
set dickK = dick * 10/100
if dickK < 1: set dickK = 1
set anus += dickK
	if anus < dick:
	set fun = 0
	set $analsex = 'A sharp pain pierced member of stuck in the ass, making you wince groan. Customer waited patiently until your anus, get used to stretching, but you still could not get rid of the nagging pain. Fake smile, through the desire to end this torture quickly, you give the signal to start the action. Client was cautious, starting with the slow movements in the anus, gradually accelerating, he forgot about your suffering, surrendering his own enjoyment, and not noticing as "goods", writhes and moans in pain.'
	end
	if anus >= dick:
	set horny += anus
	set $analsex = 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
	end
'As soon as you lay on the hood of the car, legs apart, you stared into the anus <<dick>> centimeter member. <<$analsex>>'

if klismaday ! day and analprotect = 0: act 'Leave': gt 'AnalPR','3'

	if klismaday = day:
	set money += 2000
	set cumanalRand = RAND(0,2)

		if cumanalRand = 0:
		'Suddenly the anus was empty, the client abruptly yanked member before it drops the seed watered half your ass.'
		set anal += 1
		set cumanal = cumass + 1
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if cumanalRand = 1:
		'Suddenly the anus was empty, the client abruptly yanked a member before his seed rain drops fell on your body, dirtying clothes traces of dairy.'
		set anal += 1
		set cumfrot += 1
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if cumanalRand = 2:
		'Customer traffic have become sharp and painful it literally rammed in the ass you finally feel like you´re inside you flowing sperm all over you think.'
		set anal += 1
		set cumanus += 1
		act 'Leave.': GOTO $locSex, $metkaSex
		end
	end
end

if $ARGS[0] = '3':
cla
*clr
gs 'stat'
'You were going to get the money but instead heard swearing. "You fear that the nipple completely lost my whole bolt in your shit, you do not know that I have a dick, and not brush the toilet, get out of here while intact, but money can not forget."'
act 'Leave.': GOTO $locSex, $metkaSex
if intel <= 100: act 'Be rude': gt 'AnalPR','4'
if intel >= 50: act 'Make amends': gt 'AnalPR','5'
end

if $ARGS[0] = '4':
cla
*clr
gs 'stat'
'<center><img src="images\img\prost\bjr.jpg"></center>'
'"Hey, I did not understand, chase my money ..." you did not get to finish. Man hit you strong blow to the chest, from which you crashed to the ground. "Money is wanted, well, what a bitch I´ll give them to you, but you are correct his mistake" after these words he drove you exhaling stench dick in her mouth. You were choking from the stench, but there was nothing, his eyes closed, as if saying yes, you tried to keep from vomiting, fear of causing mayhem. The stranger had you in my mouth, trying to touch every movement of your lips their balls. His cock soon became clean, but it did not stop him, it seemed an eternity before he again finished right in the throat. Looking at you roll in a mixture of saliva and vomit, he laughed and said no more words thrown in your face money.'
set money += ProsMoney * 100
set manna -= 30
set health -= 30
set willpower -= 30
set bj += 1
set throat += 1
act 'Leave.': GOTO $locSex, $metkaSex
end

if $ARGS[0] = '5':
cla
*clr
gs 'stat'
'<center><img src="images\img\prost\bjr1.jpg"></center>'
'You understand everything perfectly, you are at fault, and you correct client insanely angry and seems ready to tear you to pieces. You decide to make amends, his guilt polish smeared mouth organ client.'
set bj += 1
set throat += 1
act 'Suck': gt 'AnalPR','6'
end

if $ARGS[0] = '6':
cla
*clr
gs 'stat'
'<center><img src="images\img\prost\sexcar20.jpg"></center>'
'Bitter taste in the mouth of feces did not give you a taste of diluted semen. Freeing your mouth working, customer ordered to lie on the grass. You humbly and even with a certain touch of acting talent was acting innocent doll while you fuck. Client warmed your able mouth twitching long over you, quickly ran into the condom. While you lay recovering on your body fall three green paper, he was satisfied, happy smile you think.'
set vagina += 1
set money += ProsMoney * 110
act 'Leave.': GOTO $locSex, $metkaSex
end
--- AnalPR ---------------------------------

# blowPR
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
zpprand = RAND(0,100)
if zpprand >= 70: dynamic $venerasiak
set minut += 1
set guy += 1
set bj += 1
set throat += 1
set prosta += 1
!set son -= 1
clr
gs 'stat'
'<center><img src="images\img\prost\bj.jpg"></center>'
'Your hand slid crotch guy and unzipped his pants. You shoved his hand into his pants and pulled out his cock.'
if prezik > 0: act 'Wear a condom on the penis mouth.': gt 'blowPR','1'
!if prezik = 0:
act 'Mark cock in her mouth.': gt 'blowPR','2'
end

if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set minut += 5
set prezik -= 1
usecondom = 1
clr
gs 'stat'
set picrand = RAND(0,6)
if picrand = 0: '<center><img src="images\img\prost\bjp.jpg"></center>'
if picrand = 1: '<center><img src="images\img\prost\bjp2.jpg"></center>'
if picrand = 2: '<center><img src="images\img\prost\bjp3.jpg"></center>'
if picrand = 3: '<center><img src="images\img\prost\bjp4.jpg"></center>'
if picrand = 4: '<center><img src="images\img\prost\bjp5.jpg"></center>'
if picrand = 5: '<center><img src="images\img\prost\bjp6.jpg"></center>'
if picrand = 6: '<center><img src="images\img\prost\bjp7.jpg"></center>'
'You pulled his lips a condom on the penis'
	if prosti = 0:
	'Your lips slide down the barrel client until he cums in a condom'
	act 'Leave.': GOTO $locSex, $metkaSex
	end

	if prosti = 1:
	'Client sufficiently warmed up and you can continue.'
	act 'Further.': gt 'NormPR','1'
	end

	if prosti = 2:
	'Client sufficiently warmed up and you can continue.'
	act 'Further.': gt 'AnalPR','1'
	end
end

if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
dynamic $venerasiak
set minut += 5
usecondom = 1
clr
gs 'stat'
set picrand = RAND(0,5)
if picrand = 0: '<center><img src="images\img\prost\bjp8.jpg"></center>'
if picrand = 1: '<center><img src="images\img\prost\bjp9.jpg"></center>'
if picrand = 2: '<center><img src="images\img\prost\bjp10.jpg"></center>'
if picrand = 3: '<center><img src="images\img\prost\bjp11.jpg"></center>'
if picrand = 4: '<center><img src="images\img\prost\bjp12.jpg"></center>'
if picrand = 5: '<center><img src="images\img\prost\bjp13.jpg"></center>'
'You clasped lips member.'
act 'Suck': gt 'blowPR','12'
end

if $ARGS[0] = '12':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
	if prosti = 0:
	bjrand = RAND(0,100)
		if bj <= 15 and bjrand > 0 and bjrand <= 50:
		'You clumsy movements suck dick customer until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
		set cumlip += 1
		'<center><img src="images\img\prost\bjm.jpg"></center>'
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bj > 15 and bjrand > 0 and bjrand <= 50:
		set cumlip += 1
		'<center><img src="images\img\prost\bjm2.jpg"></center>'
		'Your trained sponge glide up and down, bringing pleasure to the customer. Very soon you will feel the taste of his seed that you swallow with delight to the last drop.'
		set cumlip += 1
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
		set cumface += 1
		'<center><img src="images\img\prost\bjf.jpg"></center>'
		'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
		set cumface += 1
		set mop = 0
		'<center><img src="images\img\prost\bjf.jpg"></center>'
		'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bjrand > 50 and bjrand <= 80 and bj > 15:
		set cumface += 1
		'<center><img src="images\img\prost\bjf2.jpg"></center>'
		'Your trained sponge glide up and down, bringing pleasure to the customer as soon as the client has released your mouth, you realize that your face is now flooded with sperm. You have time, tilt the head back with her eyes closed, heavy drops falling on your chin, forcing to smile at the thought of not smeared makeup.'
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bjrand > 80 and bjrand <= 100 and bj <= 15:
		'<center><img src="images\img\prost\bjt2.jpg"></center>'
		'You clumsy movements suck dick client, it stretches hands to your chest trying to expose it. You moaned, letting him know that was not the deal. Dissatisfied client continued to have you in my mouth. You have already relaxed, as a client, pushing, pulled wet from saliva member. His eyes closed, you feel like a drop of sperm not fall on your face and chest! Surprised you open your eyes in horror when he saw in the semen-stained clothing, and pretty smiling customer.'
		set cumfrot += 1
		act 'Leave.': GOTO $locSex, $metkaSex
		end

		if bjrand > 80 and bjrand <= 100 and bj > 15:
		'<center><img src="images\img\prost\bjt.jpg"></center>'
		'Your trained sponge glide up and down, bringing pleasure to the customer. He stretches his hands to your chest did not patiently trying to expose her, you understand everything without words. Exposing boobs you become even more carefully to work his mouth when he was already on the brink, you have stepped back sharply, slipping back with the member in a moment became a client shoot sperm on your carefully when substituted hemisphere. Left happy, he handed you another Piatihatki.'
		set money += 500
		act 'Leave.': GOTO $locSex, $metkaSex
		end
	end

	if prosti = 1:
	'Client sufficiently warmed up and you can continue.'
	act 'Further.': gt 'NormPR','2'
	end

	if prosti = 2:
	'Client sufficiently warmed up and you can continue.'
	act 'Further.': gt 'AnalPR','2'
	end
end
--- blowPR ---------------------------------

# NormPR
if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set prosti = 0
set minut += 15
set sex += 1
set protect = 1
clr
gs 'stat'
set sexprostRand = RAND(0,1)
	if sexprostRand = 0:
	'<center><img src="images\img\prost\sexcar.jpg"></center>'
	'You obediently lay naked in the back seat until your dick hole logged.'
	gs 'orgazm','start'
	end

	if sexprostRand = 1:
	'<center><img src="images\img\img\prost\sexcar2.jpg"></center>'
	'Standing on all fours, you felt like you were planting confident movement on the penis.'
	gs 'orgazm','start'
	end

act 'Leave.': GOTO $locSex, $metkaSex
end

if $ARGS[0] = '2':
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
set prosti = 0
set minut += 15
set sex += 1
clr
gs 'stat'
set prostRand = RAND(0,100)

if prostRand > 0 and prostRand <= 50:
set picpRand = RAND(1,7)
set pose = 1
'Becoming cancer, you feel hot prick seeking to get into the vagina.'
gs 'orgazm','start'
end

if prostRand > 50 and prostRand <= 75:
set picpRand = RAND(8,10)
set pose = 1
'Standing on all fours, you felt like a hole braced member.'
gs 'orgazm','start'
end

if prostRand > 75 and prostRand <= 100:
set pose = 0
set picpRand = RAND(11,17)
'You were ordered to undress and lie down on the hood of the car.'
gs 'orgazm','start'
end
if picpRand = 1: '<center><img src="images\img\prost\sexcar3.jpg"></center>'
if picpRand = 2: '<center><img src="images\img\prost\sexcar4.jpg"></center>'
if picpRand = 3: '<center><img src="images\img\prost\sexcar5.jpg"></center>'
if picpRand = 4: '<center><img src="images\img\prost\sexcar6.jpg"></center>'
if picpRand = 5: '<center><img src="images\img\prost\sexcar7.jpg"></center>'
if picpRand = 6: '<center><img src="images\img\prost\sexcar8.jpg"></center>'
if picpRand = 7: '<center><img src="images\img\prost\sexcar9.jpg"></center>'
if picpRand = 8: '<center><img src="images\img\prost\sexcar10.jpg"></center>'
if picpRand = 9: '<center><img src="images\img\prost\sexcar11.jpg"></center>'
if picpRand = 10: '<center><img src="images\img\prost\sexcar12.jpg"></center>'
if picpRand = 11: '<center><img src="images\img\prost\sexcar13.jpg"></center>'
if picpRand = 12: '<center><img src="images\img\prost\sexcar14.jpg"></center>'
if picpRand = 13: '<center><img src="images\img\prost\sexcar15.jpg"></center>'
if picpRand = 14: '<center><img src="images\img\prost\sexcar16.jpg"></center>'
if picpRand = 15: '<center><img src="images\img\prost\sexcar17.jpg"></center>'
if picpRand = 16: '<center><img src="images\img\prost\sexcar18.jpg"></center>'
if picpRand = 17: '<center><img src="images\img\prost\sexcar19.jpg"></center>'
act 'Leave.': GOTO $locSex, $metkaSex
end
--- NormPR ---------------------------------

# Prostitute
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
$metkaSex = $ARGS[0]
$locSex = $CURLOC
cla
*clr
set minut += 5
'<center><B><font color = maroon>Hooker</font></B></center>'
'<center><img src="images\etogame\park2.jpg"></center>'
clr
gs 'stat'
gs 'time'
if hour >= 16 and hour <= 23:
	if whoreQW = 2:
		'Prostitutes look at you with curiosity.'
		end
	if whoreQW = 1:
		'Prostitutes look at you with interest.'
		act 'Talk':
			cla
			set whoreQW = 2
			'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are free, do not work on anyone, but because of this many problems. Svimi Stella with her friends sometimes beat us and rob and sometimes come petty thugs and rob us of the money. If you want to work here, you have to pay and Stella and Bandyuk . course you cool, you can try to besiege Stella and her friends, but the bandits do not advise contact. And yet, you do not peck on customers, if you nebudesh dressed like a slut, you can buy some clothes in a sex shop. "'
			act 'Move away': gt 'prostitute','start'
			end
		end
	if whoreQW = 0:
		'Hey, you´re not one of us, would valyl from our point, and that the teeth will not collect.'
		act 'Fuck you!':
			cla
			set minut += 15
			set $nameV = 'Stoned prostitute'
			!Статы
			set strenV = 20
			set speedV = 30
			set agilV = 30
			set reactV = 30
			set vitalV = 50
			set intelV = 10
			set willV = 10
			!Навыки
			set magikV = 10
			set boxingV = 10
			set shootV = 10
			!Параметры
			set healthV = vitalV * 10 + strenV * 5
			set mannaV = intelV * 10 + magikV * 10
			set willpowerV = willV * 10
			set BonusAtakV = 0
			set BonusDefV = 0
			!программа действий
			set program = 0
			set prostitutFight = 1
			if spellavtoklon = 1: set klon = 3
			if spellbefshild = 1: set defence = 500
			gt 'fight','start'
			end
		act 'And how to become one of your own?':
			cla
			'And how to become one of your own? You asked. Brazen prostitute grinned spat. To do this, you have to pay Stella.'
			act 'Move away': gt 'prostitute','start'
			act 'I agree':
				cla
				whoreQW = 2
				'You agreed. Prostitute told you that you need to buy the appropriate clothing in sex Shope. Then customers will immediately understand that you´re a prostitute.'
				act 'Move away': gt 'prostitute','start'
				end
			end
		end
	if whoreQW > 1 and hook = 1 and son > 0:
		act 'Stand on the panel (0:15)':
			cla
			set minut += 10
			set prosrand = RAND(0,(vnesh + hour)*2)
			if prosrand < 20:
				'No you are not interested.'
				act 'Leave': gt 'prostitute','start'
				end
			if prosrand >= 20:
				'To you a car drove up.'
				set proseventrand = RAND(0,100)
				if proseventrand <= 5:
					'To you black jeep pulled up, opened the window and leaned out healthy brazen face. "Hey slut, it´s time to pay tribute. Shtukar Come here and get out on work."'
					if money >= 1000:
						act 'Giving money':
							cla
							set money -= 1000
							'You gave the money big man in the jeep. He put them in his pocket and left.'
							act 'Move away': gt 'prostitute','start'
							end
						end
					if money < 1000:
						act 'I have not earned much':
							cla
							money = 0
							'You big man began to explain that you have not earned it grabbed you by the arm and threw him into a jeep, there you have it brushed pocket and said that he will teach you how to work.'
							act 'Work':
								set $nameV = 'bandit'
								set $boy = 'Bandit'
								set dick = RAND(18,21)
								gt 'blowPR','start'
								end
							end
						end
					act 'Fuck you!':
						cla
						set minut += 15
						set $nameV = 'Bandit'
						!Статы
						set strenV = 200
						set speedV = 30
						set agilV = 20
						set reactV = 20
						set vitalV = 150
						set intelV = 10
						set willV = 10
						!Навыки
						set magikV = 10
						set boxingV = 10
						set shootV = 10
						!Параметры
						set healthV = vitalV * 10 + strenV * 5
						set mannaV = intelV * 10 + magikV * 10
						set willpowerV = willV * 10
						set BonusAtakV = 0
						set BonusDefV = 0
						!программа действий
						set program = 0
						set prostitutFight = 2
						if spellavtoklon = 1: set klon = 3
						if spellbefshild = 1: set defence = 500
						gt 'fight','start'
						end
					end
				if proseventrand > 5 and proseventrand <= 50:
				klient_needs = 0
				prosti = 0
				KlientMON = RAND(1,10)
					'The client wants to blow and asks how much it will cost.'
				end
				if proseventrand > 50 and proseventrand <= 75:
				klient_needs = 1
				prosti = 0
				KlientMON = RAND(3,25)
					'Client wants sex and asks how much it will cost.'
				end
				if proseventrand > 75 and proseventrand <= 95:
				klient_needs = 2
				prosti = 0
				KlientMON = RAND(5,40)
					'Client wants anal and asks how much it will cost.'
				end
				if proseventrand > 5 and proseventrand <= 95:
				klienVNPR = RAND(0,30)

				act 'Leave': gt 'prostitute','start'
					if ProsMoney > 0:
						act '<<ProsMoney * 100>> rubles':
						cls
						dynamic $universalklient
						end
					end

					act 'Assign a price':
					cls
					gs 'stat'
					ProsMoney = input("Enter a number below, which will multiplied by 100")
						if ProsMoney < 1:
						'The client looked at you in amazement and muttered "what that fucker." Then started the car and drove away.'
						act 'Leave': gt 'prostitute','start'
						else
						dynamic $universalklient
						end
					end


				end
				if proseventrand > 95:
					'To you approached a prostitute. "I hear you, slut, if you do not want problems, you have to pay Stella. Pyatihatnik Come here and get out on work."'
					if money >= 500:
						act 'Giving money':
							cla
							set money -= 500
							'You gave the money to the prostitute, she turned and walked away.'
							act 'Move away': gt 'prostitute','start'
							end
						end
					if money < 500:
						act 'I have not earned much':
							cla
							set money = 0
							'You started zhalovatsya that do not earn much money. You searched prostitute taking everything of value and left.'
							act 'Move away': gt 'prostitute','start'
							end
						end
					act 'Fuck you!':
						cla
						set minut += 15
						set $nameV = 'Prostitute'
						!Статы
						set strenV = 50
						set speedV = 50
						set agilV = 40
						set reactV = 30
						set vitalV = 60
						set intelV = 10
						set willV = 10
						!Навыки
						set magikV = 10
						set boxingV = 10
						set shootV = 10
						!Параметры
						set healthV = vitalV * 10 + strenV * 5
						set mannaV = intelV * 10 + magikV * 10
						set willpowerV = willV * 10
						set BonusAtakV = 0
						set BonusDefV = 0
						!программа действий
						set program = 0
						set prostitutFight = 3
						if spellavtoklon = 1: set klon = 3
						if spellbefshild = 1: set defence = 500
						gt 'fight','start'
						end
					end
				end
			end
		end
	end
act 'Leave':
	cla
	set minut += 5
	set prosta = 0
	gt 'park','start'
	end
end
--- Prostitute ---------------------------------

# Menu.Info
*NL 'Module to work with the menu'
*NL 'Version: 1.0'
*NL 'Author: Olegus t.Gl. (C) 2011'
*NL 'Website: http://olegus.ifiction.ru'
*NL 'e-mail: olegus.tgl @ gmail.com'
*NL 'icq: 145540276'
*NL 'Forum topic: http://forum.ifiction.ru/viewtopic.php?id = 1527'
--- Menu.Info ---------------------------------

# Menu.Create
if $ARGS[0] = '': EXIT
!----------
$ARGS[0] = 'otg_Menyu_'+$ARGS[0]
!----------
killvar '<<$ARGS[0]>>'
killvar '<<$ARGS[0]>>_Parametry'
killvar '<<$ARGS[0]>>_Vybrali'
killvar '<<$ARGS[0]>>_VybrannyyPunkt'
killvar '<<$ARGS[0]>>_Vremya'
killvar '<<$ARGS[0]>>_ModuliSobyty'

--- Menu.Create ---------------------------------

# Menu.Add
if $ARGS[0] = '' or $ARGS[1] = '': EXIT
!----------
if $ARGS[1] = '---' or lcase($ARGS[1])='separator':
	dynamic "$otg_Меню_<<$ARGS[0]>>[] = '-: -'"
	EXIT
end
!----------
ARGS[10] = arrsize('ARGS')
if ARGS[10]<3: $ARGS[2] = ''
if ARGS[10]<4: $ARGS[3] = ''
!----------
$ARGS[0] = 'otg_Menyu_<<$ARGS[0]>>'
$ARGS[1] = replace($ARGS[1],'''','''''')
if $ARGS[2]<>'': $ARGS[2] = ':'+replace($ARGS[2],'''','''''')
if $ARGS[3]<>'': $ARGS[3] = replace($ARGS[3],'''','''''')
!----------
dynamic "
	$<<$ARGS[0]>>[] = '<<$ARGS[1]>>Menu.{Processing}<<$ARGS[2]>>'
	$<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_Z'] = '<<$ARGS[1]>>'
	$<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_F'] = '<<$ARGS[3]>>'
"
!----------
$ARGS[3] = ''
if ARGS[10]>4:
	ARGS[11] = 4
	:otg_menyu_metka_1
	if ARGS[11]<ARGS[10]:
		if $ARGS[ARGS[11]]<>'':
			$ARGS[3] += ''''+replace($ARGS[ARGS[11]],'''','''''')+''''
		else
			if ARGS[ARGS[11]]<>0:
				$ARGS[3] += ','+str(ARGS[ARGS[11]])
			else
				$ARGS[3] += ''' '''
			end
		end
		ARGS[11] += 1
		jump 'otg_menyu_metka_1'
	end
end
!----------
dynamic "
$<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_P'] = '<<replace($ARGS[3],'''','''''')>>'
"
--- Menu.Add ---------------------------------

# Menu.AddCondition
if $ARGS[0] = '' or $ARGS[1] = '': EXIT
!----------
ARGS[10] = dyneval("Result = arrsize('otg_Menyu_<<$ARGS[0]>>')")
if dyneval("$Result = $otg_Меню_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-: -': EXIT
!----------
dynamic "
	$otg_Меню_<<$ARGS[0]>>_Параметры['<<ARGS[10]>>y'] = '<<replace($ARGS[1],'''','''''')>>'
"

--- Menu.AddCondition ---------------------------------

# Menu.AddModule
if $ARGS[0] = '' or $ARGS[1] = '': EXIT
!----------
ARGS[10] = dyneval("Result = arrsize('otg_Menyu_<<$ARGS[0]>>')")
if dyneval("$Result = $otg_Меню_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-: -': EXIT
!----------
dynamic "
	$otg_Меню_<<$ARGS[0]>>_Параметры['<<ARGS[10]>>_M'] = '<<replace($ARGS[1],'''','''''')>>'
"
--- Menu.AddModule ---------------------------------

# Menu.AddEvent
if $ARGS[0] = '' or $ARGS[1] = '': EXIT
!----------
$ARGS[1] = lcase(trim($ARGS[1]))
!----------
if $ARGS[1] = 'when you select':
	dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
elseif $ARGS[1] = 'selecting processing after':
	dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
elseif $ARGS[1] = 'failure of the choice':
	dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
end
--- Menu.AddEvent ---------------------------------

# Menu.Call
if $ARGS[0] = '': EXIT
!----------
ARGS[10] = arrsize('otg_Menyu_<<$ARGS[0]>>')
if ARGS[10] = 0: EXIT
!----------
$otg_Menu_Current = 'otg_Menyu_<<$ARGS[0]>>'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
ARGS[11] = 0
:otg_menyu_metka_2
if ARGS[11]<ARGS[10]:
	dynamic "
		$ARGS[0] = $<<$otg_Menu_Current>>_Параметры['<<ARGS[11]+1>>y']
		if $ARGS[0] = '':
			$otg_Меню_Вызываемое[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
			otg_Menu_Compliance[]=<<ARGS[11]+1>>
		else
			if dyneval($ARGS[0])<>0:
				$otg_Меню_Вызываемое[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
				otg_Menu_Compliance[]=<<ARGS[11]+1>>
			end
		end
	"
	ARGS[11] += 1
	!----------
	jump 'otg_menyu_metka_2'
end
!----------
otg_Menu_Time = 0
dynamic "
	<<$otg_Menu_Current>>_Выбрали = 0
	<<$otg_Menu_Current>>_ВыбранныйПункт = 0
	<<$otg_Menu_Current>>_Время = MSECSCOUNT
"
!----------
menu 'otg_Menyu_Vyzyvaemoe'
!----------
dynamic "
	if <<$otg_Menu_Current>>_Выбрали = 0:
		<<$otg_Menu_Current>>_Время = MSECSCOUNT-<<$otg_Menu_Current>>_Время
		$ARGS[0] = $<<$otg_Menu_Current>>_МодулиСобытий['failure of the choice']
		if $ARGS[0]<>'': dynamic $ARGS[0]
	else
		$ARGS[0] = $<<$otg_Menu_Current>>_МодулиСобытий['selecting processing after']
		if $ARGS[0]<>'': dynamic $ARGS[0],$<<$otg_Menu_Current>>_Параметры[str(<<$otg_Menu_Current>>_ВыбранныйПункт)+'_Z']"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры[str(<<$otg_Menu_Current>>_ВыбранныйПункт)+'_P']")+"
	end
"
!----------
killvar 'otg_Menyu_Tekuschee'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Выбрали")
--- Menu.Call ---------------------------------

# Menu.Chosen
if $ARGS[0] = '': EXIT
Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Выбрали")
--- Menu.Chosen ---------------------------------

# Menu.Time
if $ARGS[0] = '':
	Result = otg_Menu_Time
else
	Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Время")
end
--- Menu.Time ---------------------------------

# Menu.Destroy
if $ARGS[0] = '': EXIT
GS 'Menu.Create',$ARGS[0]
--- Menu.Destroy ---------------------------------

# Menu.{Processing}
ARGS[0] = otg_Menu_Compliance[ARGS[0]-1]
!----------
if ARGS[0] = 0: EXIT
!----------
$ARGS[0] = dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_F']")
$ARGS[1] = dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_M']")
!----------
dynamic "
	if $ARGS[1]<>'' or ($ARGS[0]<>'' and LOC $ARGS[0]):
		<<$otg_Menu_Current>>_Время = MSECSCOUNT-<<$otg_Menu_Current>>_Время
		otg_Menu_Time=<<$otg_Menu_Current>>_Время
		<<$otg_Menu_Current>>_Выбрали = -1
		<<$otg_Menu_Current>>_ВыбранныйПункт=<<ARGS[0]>>
		!----------
		$ARGS[3] = $<<$otg_Menu_Current>>_МодулиСобытий['when you select']
		if $ARGS[3]<>'': dynamic $ARGS[3],$<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_Z']"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
		!----------
		if $ARGS[1]<>'':
			dynamic $ARGS[1]"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
		else
			GS $ARGS[0]"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
		end
	else
		MSG 'Location ''<<$ARGS[0]>>'' not found!'
	end
",$ARGS[0],$ARGS[1]

--- Menu.{Processing} ---------------------------------

# casino
*PL '<right><img src="images\casino\zdcasino.jpg"></right>'
*PL 'You stand in front of the door of the huge building casinos.'
ACT 'Sign in casino':
	gt 'hall'
END
ACT 'Back in the northern area':
	gt 'nord'
END
minut += 10
gs 'stat'

!ТЕСТ
!if tobiQW < 1000:tobiQW = 1000
--- casino ---------------------------------

# mqroom
clr
gs 'stat'
set minut += 5

'<center><img src="images\casino\oldman1.jpg"></center>'
'You have gone with Plato Aristarkhovich to his room, he sat down at the table and you scroll from his pocket, put it in front of him.'
'Plato became Aristarkhovich scrutinize scroll. You shifted from foot to foot in anticipation of what he would say.'
'(Plato Aristarkhovich) - a very curious thing. Despite the fact that most of the characters familiar to me, common sense written eludes my understanding. I knew only a few phrases. What is called the scroll and scroll Rikudo need to stomp on the foot print. Print - it´s that big character in the center of the scroll.'
'(You) - stamp his foot? This is why?'
'(Plato Aristarkhovich) - I have no idea. ''d Never met. But that´s the phrase clearly indicates that it is necessary to stamp on the central characters. Next there is something about the growth of the forces, but it is unclear.'

act 'Put a roll on the floor and stamp his foot.':
cla
*clr
magika = 1
'You put a roll on the floor and stamped his foot on the large central characters.'
'Bright flash and scroll erupted beneath your feet. You felt something, a breeze and you dramatically headache.'
	act 'Fuck! As head pops!':
	cla
	'My head was pounding and buzzed like a steam hammer. You flew thought: "Now I think I will have a stroke." You grabbed his head and sat down in a chair, unable to think about anything.'
	'Plato Aristarkhovich fussing around, "what the hell is going on, do not worry, I´ll get the doctor."'
	'The man ran from the room and soon returned with the girl. She came up to you and you took his hand under the chin.'
		act 'Look into her eyes.':
		cla
		*clr
		inited = 1
		music_on = 1
		volume = 100
		$music_theme = 'orochimaru'
		gs 'init_music'
		'<center><img src="images\casino\oro.jpg"></center>'
		'Mother of God. Just thought you looked into her eyes. Deathly pale skin, cold and cruel snake eyes. Creature grinned.'
		'(Creature) - "So you see my true face. Wonderful." Hissed the snake creature voice.'
		'Looking into those eyes and you only managed to whisper, "Who are you?". Creature chuckled "Long story, you do not stand it and will soon die."'
		'At this point you are physically, the whole body felt as reality is broken and something terrible and powerful wedged in reality, trying to see you with his one eye.'
		'Creature with snake eyes sharply turned and looked at the door. "He came! I must skedaddle" - angrily hissed the creature. At this moment the door to the room and shattered into pieces in the doorway appeared a dark silhouette.'
			act 'Look at the stranger.':
			cla
			*clr
			'<center><img src="images\casino\tobi.jpg"></center>'
			'In the doorway stood a man in a black robe, on which were painted red clouds. His face covered with a mask slit for the eyes. You feel a huge force pervading space literally coming out of that eye. The masked man said dully, "Here we saw each other and Orochimaru. Again will flee?"'
			'Zmeeglazoe creature with a female body and snake hissed angrily eyes: "What else can I do Toby? Tsukuyomi While you run, I can only escape. But believe me, I change everything very quickly. You hunter of becoming a victim."'
			'Suddenly a man in a mask named Toby zmeeglazogo attacked, he rushed forward, trying to grab zmeeglazogo throat. At Orochimaru literally flew out of the sleeve snake toward Toby, but to your surprise snake flew through Toby and crashed into the door jamb.'
			'Toby grabbed Orochimaru hand by the throat and lifted like a feather on the ground. "Now you die!" - Tobey said grimly. Zmeeglazy gaped and crackled as you heard his jaw out of his mouth, something began to appear. Toby said in surprise: "What kind of trick, die with dignity."'
			'But zmeeglazy not want to die and leave in the hands of Toby empty shell, he literally flew out of his mouth.'
			'You watched in amazement through the headache Toby holding empty zmeeglazogo skin, and the zmeeglazy stands apart. It lasted a second and Orochimaru grabbed you as a feather, jumped out the window from the tenth floor.'
				act 'Scream in panic.':
				cla
				*clr
				'<center><img src="images\casino\oro.jpg"></center>'
				'Seeing the approaching ground, you panicked with the thought that now you die. But zmeeglazy hold you in my arms, landed on his feet, after breaking leg kick asphalt. You are seeing this strange creature in the face, it was cold and focused. Suddenly something crackled and looked down, you saw the legs zmeeglazogo turn into a snake´s tail.'
				'Sitting in steel hands Orochimaru, you literally flew through the streets, winding alleys and flying fences. You flew over the ground with terrific speed, without having to even understand where you are. Very quickly, the city remained behind and swept Orochimaru using his snake tail has the fields and forests. You feel physically as reality collapses behind you. Your pursuer Toby did not let it, tearing reality teleported trying to overtake you.'
				'With a busy person zmeeglazogo started dripping sweat. It hissed: "You too feel. He overtakes us. Remember, if I do not save, you will not save anybody. You´ll be dead soon." Suddenly you hear a thunderous voice "Shinra Tensei" and it was a feeling that you have flown on the wall. You where it was thrown and you rolling on the grass edge of the eye noticing that zmeeglazy also flew from the impact.'
				act 'Raise your head.':
					cla
					*clr
					'<center><img src="images\casino\pain.jpg"></center>'
					'Near you stood a tall, thin man with bright red hair, covered with piercings. Even the figure could be seen that it is not one-eyed Toby. Although hoodie was exactly the same, black with red clouds drawings.'
					'Orochimaru raised his head and hissed, "Payne!" Skinny guy walked slowly towards Orochimaru: "No one can just walk away from Dawn. Now I´m done with your immortal life."'
					'Zmeeglazy opened his mouth, and from there flew sword blades. But even Payne did not blink, the blade before it reached him a few centimeters, shattering into pieces. "That´s all you can Orochimaru? Skedaddle from Toby right in my hands, and before his death show such miserable spell?"'
					'Payne raised his hand in a fist and opened his hand. "CHIBAKU Tensei" - he said and flew out of his hand a small black ball and gently began to soar in the sky. Orochimaru yelled "No!"'
					'You feel how your body felt a little sand from the ground began to rise into the air and fly to the ball. Soon you too was lifted off the ground and pull the black ball. You clung to a tree stump that you are not utyanulo. This black hole realized you this guy with piercings just on my eyes and created a black hole there now we will tighten and grind. Pieces of land began to come off and fly toward the black hole. Trees cracked. Orochimaru with a cry rushed travel along the ground to you. He grabbed you and then you both get off the ground and carried to the black ball.'
						act 'Look at Orochimaru.':
						cla
						*clr
						'<center><img src="images\casino\oro.jpg"></center>'
						'Orochimaru, holding your hands, grinning. But you feel his fear. You quickly flew into a black hole, located high in the sky and realized that once there, you with zmeeglazym perish.'
						'Orochimaru hissed: "There is one last hope. I open my mouth, and you stick your hand in there, I have a scroll inside, you open it up and put her hand. Obey or we both die."'
						'Zmeeglazy opened her mouth so that there is not that hand, and you could get through a whole. You fastidiously hand shoved in his mouth and essentially felt there scroll. Removing it you quickly scroll unfurled, freaked characters.'
						'Looking up you realized that you have a few seconds before getting in touch with the black hole.'
							act 'Attach a hand to press on the scroll.':
							cla
							*clr
							cursed = 1
							'<center><img src="images\casino\oro.jpg"></center>'
							'You put a hand to scroll and scroll lightning burned. You embraced the same strange feeling that when approaching Toby. There was a feeling that reality has broken, but this time the center of this hole were you. The sensation you tore the fact that Orochimaru his teeth to you in the neck. You pierced stunning pain. Suddenly zmeeglazy let you go, and with all his strength hurled towards the ground away from the black hole. You understand that it is all spent force trying to save you from a devastating spell Payne.'
							'You flew down against the force of the black hole, while watching the black hole reached Orochimaru and his body began to break apart. But Orochimaru smiled despite his terrible, deadly pain and agony of his dying body. Finally there was only from zmeeglazogo bloody mess that swallowed the hole. Momentum imparted to you last effort Orochimaru ended and you began again to draw a black hole. You flew to her side feeling as you gradually get out of reality, a little bit more and you will be far from this place.'
							'But a black hole is close, you felt the impact of it, trying to tear you apart.'
							music_on = 0
							act 'Close your eyes': gt 'tuman'
							end
						end

					end
				end
			end
		end
	end
end
--- mqroom ---------------------------------

# avt1
*PL 'Game rules are very simple: toss a coin 10 rubles and you pull the lever. Jackpot 100 thousand rubles.'
*P '<center><img src="images\casino\avt.jpg"></center>'
ACT 'Pull the lever':
		if money >= 10:
			x_10 = rand(1,1000)
			set money -= 10
			if x_10 = 1000:
				set money += 100000
				msg 'You won the jackpot! Congratulations!'
			end
			if x_10 < 1000 and x_10 >= 850:
				set money += 20
				msg 'Congratulations, you have won 20 rubles'
			end
			if x_10 >= 500 and x_10 < 850:
				set money += 10
				msg 'Congratulations, you have won 10 rubles'
			end
			if x_10 < 500:
				set minut += 10
				msg 'Alas, you lost, try again'
			end



			clr

			gt 'avt1'
		else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'avt1'
		end

END
ACT 'Back to the Hall':
	gt 'igravt'
END

clr
gs 'stat'
set minut += 10
!PL 'In the bag: <<money>> rub.'
--- avt1 ---------------------------------

# avt2
*PL 'Game rules are very simple: toss a coin 100 rubles and you pull the lever. Jackpot million rubles.'
*P '<center><img src="images\casino\avt.jpg"></center>'
ACT 'Pull the lever':
		if money >= 100:
			x_10 = rand(1,1000)
			money = money - 100
			if x_10 = 1000:
				set money += 1000000
				msg 'You won the jackpot! Congratulations!'
			end
			if x_10 < 1000 and x_10 > 850:
				set money += 200
				msg 'Congratulations, you won 200 rubles'
			end
			if x_10 > 500 and x_10 <= 850:
				set money += 100
				msg 'Congratulations, you have won 100 rubles'
			end
			if x_10 <= 500:
				msg 'Alas, you lost, try again'
			end
			clr
			gt 'avt2'
		else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'avt2'
		end

END
ACT 'Back to the Hall':
	gt 'igravt'
END
clr
gs 'stat'
set minut += 10
--- avt2 ---------------------------------

# avt3
*PL 'Game rules are very simple: toss a coin 1,000 rubles and you pull the lever. Jackpot of 10 million rubles.'
*P '<center><img src="images\casino\avt.jpg"></center>'
ACT 'Pull the lever':
		if money >= 1000:
			x_10 = rand(1,1000)
			money = money - 1000
			if x_10 = 1000:
				set money += 10000000
				msg 'You won the jackpot! Congratulations!'
			end
			if x_10 < 1000 and x_10 >= 990:
				set money += 2000
				msg 'Congratulations, you won 2000 rubles'
			end
			if x_10 >= 850 and x_10 < 990:
				set money += 1000
				msg 'Congratulations, you won 1000 rubles'
			end
			if x_10 < 850:
				msg 'Alas, you lost, try again'
			end



			clr
			gt 'avt3'
		else
			msg 'And how are you going to play without money? Come back when you find the necessary amount'
				gt 'avt3'
		end

END
ACT 'Back to the Hall':
	gt 'igravt'
END
clr
gs 'stat'
set minut += 10
--- avt3 ---------------------------------

# amrul
*PL 'You leaned over the table.'
*P '<center><img src="images\casino\amrul.jpg"></center>'
ACT 'IPod':
	st_1 = input 'Enter the amount'
	if money < st_1:
		msg 'You have enough money'
		gt 'roulette'
	end
	if st_1 < 0:
		msg 'Wrong, try again'
		gt 'amrul'
	end
	if st_1 > 1000:
		msg 'The maximum rate of 1000 rubles'
		gt 'amrul'
	end
	set money -= st_1
	gt 'rate'
END
ACT 'move away from the table':
	gt 'roulette'
END
кч = 0
чнч = 0
мб = 0
дю = 0
ряд = 0
чи = 100
x_rul = 100

clr
gs 'stat'
set minut += 5
--- amrul ---------------------------------

# bar
ACT 'Back in the hall':
	gt 'hall'
END
--- bar ---------------------------------

# bldzh
*PL '<right><img src="images\casino\stolbd.jpg"></right>'
*P 'You are standing at a table game Blackjack'
ACT 'Approach to the dealer':
	gt 'krupe1'
END
ACT 'Sit at the table':
	gt 'igrkart1'
END
ACT 'Move away from the table':
	gt 'cards'
END
clr
gs 'stat'
set minut += 10
--- bldzh ---------------------------------

# igravt
*PL 'You enter the room and see a lot of slot machines and a bunch of people around them. Heard ringing constantly twitching handles and falling coins.'
*PL 'On the left side of the hall is very little availability.'
*PL 'Apparently there is less than the required rate of all but small gains.'
*PL 'The right of the people less and they bet more.'
*PL 'Well, in the back of the room sitting unit.'
*PL 'There´s biggest bet required, but the corresponding jackpot - 10 million rubles.'
*P '<right><img src="images\casino\zaligravt.jpg"></right>'
ACT 'For machines for 10 rubles':
	set minut += 10
	gt 'avt1'
END
ACT 'For machines for 100 rubles':
	gt 'avt2'
END
ACT 'For machines for 1000 rubles':
	gt 'avt3'
END
ACT 'Back in the hall':
	gt 'hall'
END
USEHTML = 1

clr
gs 'stat'
set minut += 10

--- igravt ---------------------------------

# igrkart1
!by Master Set (blakarchont@gmail.com)
!НАЧАЛО ИГРЫ
clr
gs 'stat'
set minut += 5
IF turn = 0:
CLA
'<right><img src="images\casino\stavkacw.jpg"></right>'
' Please give me your bets, gentlemen.'
ACT 'IPod':
deal = input 'Enter the amount'
if money < deal:
	msg 'You have enough money'
	gt 'igrkart1'
end
if deal < 0:
	msg 'Wrong, try again.'
	gt 'igrkart1'
end
if deal > 1000:
	msg 'The maximum rate of 1000 rubles.'
	gt 'igrkart1'
end
set money -= deal
turn = 1
GT 'igrkart1'
END
ACT 'Move away from the table':
GT 'bldzh'
END

END

!РАЗДАЧА КАРТ
IF turn = 1:
CLA
'<right><img src="images\casino\cartbd.jpg"></right>'
' The dealer deals the cards:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$d_card[1] = $number[number] + $suit[suit]
d_points = points[number]
suit = RAND(1,4)
number = RAND(1,13)
$p_card[1] = $number[number] + $suit[suit]
p_points = points[number]
suit = RAND(1,4)
number = RAND(1,13)
$p_card[2] = $number[number] + $suit[suit]
p_points = p_points + points[number]
IF p_points = 22: p_points = 21
wait 1000
IF p_points < 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
ACT 'Enough':
turn = 3
GT 'igrkart1'
END
ACT 'Another card':
turn = 2
GT 'igrkart1'
END
END
IF p_points = 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'BLACK JACK!'
prise = deal * 3
ACT 'Pick up the win <<prise>> rub.':
set money += prise
turn = 0
GT 'igrkart1'
END
END

END

!ДОПОЛНИТЕЛЬНАЯ КАРТА
IF turn = 2:
CLA
'<right><img src="images\casino\cartbde.jpg"></right>'
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[3] = $number[number] + $suit[suit]
p_points = p_points + points[number]
IF p_points <= 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
ACT 'Enough':
turn = 3
GT 'igrkart1'
END
ACT 'Another card':
turn = 22
GT 'igrkart1'
END
END
IF p_points > 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
'Bust! You lose.'
ACT '...':
turn = 0
GT 'igrkart1'
END
END
END

IF turn = 22:
CLA
'<right><img src="images\casino\cartbde.jpg"></right>'
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[4] = $number[number] + $suit[suit]
p_points = p_points + points[number]
IF p_points <= 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
'  <<$p_card[4]>>'
ACT 'Enough':
turn = 3
GT 'igrkart1'
END
ACT 'Another card':
turn = 222
GT 'igrkart1'
END
END
IF p_points > 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
'  <<$p_card[4]>>'
'Bust! You lose.'
ACT '...':
turn = 0
GT 'igrkart1'
END
END
END

IF turn = 222:
CLA
'<right><img src="images\casino\cartbde.jpg"></right>'
'The dealer deals one more card:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$p_card[5] = $number[number] + $suit[suit]
p_points = p_points + points[number]
wait 500
IF p_points <= 21:
'Bank card:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
'  <<$p_card[4]>>'
'  <<$p_card[5]>>'
ACT 'Enough':
turn = 3
GT 'igrkart1'
END
END
IF p_points > 21:
'Map of dealer:'
'  <<$d_card[1]>>'
'__________________________'
'Player Maps:'
'  <<$p_card[1]>>'
'  <<$p_card[2]>>'
'  <<$p_card[3]>>'
'  <<$p_card[4]>>'
'  <<$p_card[5]>>'
'Bust! You lose.'
ACT '...':
turn = 0
GT 'igrkart1'
END
END
END

!ДОБОР КАРТ БАНКУЮЩИМ
IF turn = 3:
CLA
'<right><img src="images\casino\cartbde.jpg"></right>'
'Dealer gets cards:'
'...'
suit = RAND(1,4)
number = RAND(1,13)
$d_card[2] = $number[number] + $suit[suit]
d_points = d_points + points[number]
IF p_points = 22: p_points = 21
wait 500
IF d_points >= 17:
'Bank cards:'
'  <<$d_card[1]>>'
'  <<$d_card[2]>>'
'Points dealer: <<d_points>>'
'__________________________'
'Player Points <<p_points>>'
'__________________________'
IF d_points > p_points:
'Casinos won'
ACT '...':
	turn = 0
	GT 'igrkart1'
END
END
IF d_points = p_points:
'Draw'
ACT 'Take a bet':
	set money += deal
	turn = 0
	GT 'igrkart1'
END
END
IF d_points < p_points:
'Player won'
prise = deal * 2
ACT 'Pick up the win <<prise>> rub.':
	set money += prise
	turn = 0
	GT 'igrkart1'
END
END
END
IF d_points < 17:
suit = RAND(1,4)
number = RAND(1,13)
$d_card[3] = $number[number] + $suit[suit]
d_points = d_points + points[number]
IF d_points <= 21:
'The dealer´s cards:'
'  <<$d_card[1]>>'
'  <<$d_card[2]>>'
'  <<$d_card[3]>>'
'Points dealer: <<d_points>>'
'__________________________'
'Player Points <<p_points>>'
'__________________________'
IF d_points > p_points:
	'Casinos won'
	ACT '...':
	turn = 0
	GT 'igrkart1'
	END
END
IF d_points = p_points:
	'Draw'
	ACT 'Take a bet':
	set money += deal
	turn = 0
	GT 'igrkart1'
	END
END
IF d_points < p_points:
	'Player won'
	prise = deal * 2
	ACT 'Pick up the win <<prise>> rub.':
	set money += prise
	turn = 0
	GT 'igrkart1'
	END
END
END
IF d_points > 21:
'The dealer´s cards:'
'  <<$d_card[1]>>'
'  <<$d_card[2]>>'
'  <<$d_card[3]>>'
'__________________________'
'Busting!'
'__________________________'
'Player won'
prise = deal * 2
ACT 'Pick up the win <<prise>> rub.':
	set money += prise
	turn = 0
	GT 'igrkart1'
END
END
END
END
--- igrkart1 ---------------------------------

# igrkart2
clr
gs 'stat'
set minut += 5

if turn1 = 0:
	CLA
	'<right><img src="images\casino\stavkacw.jpg"></right>'
	' Please give me your bets, gentlemen.'
	ACT 'IPod':
		deal = input 'Enter the amount'
		if money < deal:
			msg 'You have enough money'
			gt 'igrkart2'
		end
		if deal < 0:
			msg 'Wrong, try again.'
			gt 'igrkart1'
		end
		if deal > 1000:
			msg 'The maximum rate of 1000 rubles.'
			gt 'igrkart1'
		end
		set money -= deal
		turn1 = 1
		GT 'igrkart2'
	END
	ACT 'Move away from the table':
		GT 'kazvar'
	END
end

if turn1 = 1:
	CLA
	'<right><img src="images\casino\stavkacw.jpg"></right>'
	nich = 0
	ACT 'Put another draw':
		if money < deal:
			msg 'You have enough money'
			turn1 = 2
			nich = 0
			gt 'igrkart2'
		end
		set money -= deal
		turn1 = 2
		nich = 1
		gt 'igrkart2'
	end
	ACT 'Continue without an additional rate':
		turn1 = 2
		nich = 0
		gt 'igrkart2'
	end
end

if turn1 = 2:
	CLA
	'<right><img src="images\casino\cartcw.jpg"></right>'
	' The dealer deals the cards:'
	'...'
	suit = RAND(1,4)
	number = RAND(1,13)
	$di_card[1] = $number[number] + $suit[suit]
	di_points = points[number]
	di_poi = number
	suit = RAND(1,4)
	number = RAND(2,14)
	$pl_card[1] = $number[number] + $suit[suit]
	pl_points = points[number]
	pl_poi = number
	wait 1000
	'Map of dealer:'
	'  <<$di_card[1]>>'
	'__________________________'
	'Player Maps:'
	'  <<$pl_card[1]>>'
	if di_poi > pl_poi:
		' '
		'Casinos won'
		act 'You lost':
			turn1 = 0
			gt 'igrkart2'
		end
	end
	if di_poi < pl_poi:
		' '
		'You won'
		act 'You have won <<2*deal>> rub.':
			set money += 2 * deal
			turn1 = 0
			gt 'igrkart2'
		end
	end
	if di_poi = pl_poi:
		if nich = 1:
			' '
			'You won'
			act 'You have won <<11*deal>> rub.':
				set money += 11 * deal
				turn1 = 0
				gt 'igrkart2'
			end
		else
			turn1 = 3
			gt 'igrkart2'
		end
	end
end

if turn1 = 3:
	act 'Continue to play':
		if money < deal:
			msg 'You have enough money'
			gt 'igrkart2'
		end
		set money -= deal
		CLA
		'<right><img src="images\casino\cartcw.jpg"></right>'
		' The dealer deals the cards:'
		'...'
		suit = RAND(1,4)
		number = RAND(1,13)
		$di_card[2] = $number[number] + $suit[suit]
		di_points = points[number]
		di_poi = number
		suit = RAND(1,4)
		number = RAND(2,14)
		$pl_card[2] = $number[number] + $suit[suit]
		pl_points = points[number]
		pl_poi = number
		wait 1000
		'Map of dealer:'
		'  <<$di_card[1]>>'
		'  <<$di_card[2]>>'
		'__________________________'
		'Player Maps:'
		'  <<$pl_card[1]>>'
		'  <<$pl_card[2]>>'
		if di_poi > pl_poi:
			' '
			'Casinos won'
			act 'You lost':
				turn1 = 0
				gt 'igrkart2'
			end
		end
		if di_poi < pl_poi:
			' '
			'You won'
			act 'You have won <<4*deal>> rub.':
				set money += 4 * deal
				turn1 = 0
				gt 'igrkart2'
			end
		end
		if di_poi = pl_poi:
			' '
			'Again draw'
			act 'Pick up <<3*deal>> rub.':
				set money += 3 * deal
				turn1 = 0
				gt 'igrkart2'
			end
		end
	end
	act 'Pick up half your bet':
		if deal mod 2 = 1:
			deal = deal + 1
		end
		set money += deal/2
		gt 'igrkart2'
	end
end
--- igrkart2 ---------------------------------

# kazvar
*PL '<right><img src="images\casino\stolcw.jpg"></right>'
*P 'You are standing at the table games in Casino War'
ACT 'Approach to the dealer':
	gt 'krupe2'
END
ACT 'Sit at the table':
	gt 'igrkart2'
END
ACT 'Move away from the table':
	gt 'cards'
END
clr
gs 'stat'
set minut += 10
--- kazvar ---------------------------------

# croupier
*PL '- How can I help you?'
*P '<right><img src="images\casino\crup.jpg"></right>'
ACT 'Ask rules':
	msg 'The rules are very simple.
	First you choose the amount you want to bet.
	But note that in our casino maximum rate is 1000 rubles.
	Then you choose what to put their money. There are 5 types of bets:
	Color  -   1 to 1
	Chet/Odd -   1 to 1
	Small/Large-   1 to 1
	Dozen   -   1 to 2
	Series    -   1 to 2
	Number   -   1 to 36
	Well, then it all depends on your luck.'
	gt 'croupier'
END
ACT 'Move away from the dealer':
	gt 'roulette'
END
clr
gs 'stat'
set minut += 5
--- croupier ---------------------------------

# krupe1
*PL '<right><img src="images\casino\crupbd.jpg"></right>'
*P '- How can I help you?'
ACT 'Ask rules':
	msg 'Do you know how to play blackjack? Well then listen.
	Goal of the game - to score more points than the dealer, but not more than 21.
	Different cards offer different amounts of points.
	Ace = 11
	Cards with pictures = 10
	The rest of their face value
	(i.e. 9 = 9   8 = 8 etc.)
	After bidding the dealer deals the cards. But note that in our casino maximum rate is 1000 rubles. You two and one currently. Next you can gather additionally card or say enough, then the dealer will begin to gather additionally card itself. So in the end who has the most points he won. Returns 1 to 1.
	That´s all. Enjoy the game'
	gt 'krupe1'
END
ACT 'Move away from the dealer':
	gt 'bldzh'
END
clr
gs 'stat'
set minut += 5
--- krupe1 ---------------------------------

# krupe2
*PL '<right><img src="images\casino\crupcw.jpg"></right>'
*P '- How can I help you?'
ACT 'Ask rules':
	msg 'The rules are very simple.
	First you choose the amount you wish to wager.
	But note that in our casino maximum rate is 1000 rubles.
	The dealer deals the cards, whose card is more on par and he won. Returns 1 to 1.
	When nobody´s given you a choice: take half of your bet or continue playing (Your bid is automatically doubled). Whose card is more on par and he won. Returns 1 to 1. Draw When you receive a payment for an increase equal to your bet is returned to you and your total bet.
	Also, after the rate you are given the opportunity to bet on a draw. Then, in case of a tie the payment will be 10 to 1.
	Enjoy the game)'
	gt 'krupe2'
END
ACT 'Move away from the dealer':
	gt 'kazvar'
END
clr
gs 'stat'
set minut += 5
--- krupe2 ---------------------------------

# elevator
ACT 'Back':
	gt 'hotel'
END
ACT 'Go to your room':
	msg 'Sorry, but the elevator is not working'
	gt 'elevator'
	!if nomer = 0
	!   msg 'You have not paid room at this inn'
	!   gt 'elevator'
	!end
	!if nomer = 1
	!   gt 'number1'
	!end
	!if nomer = 2
	!   gt 'number2'
	!end
	!if nomer = 3
	!   gt 'number3'
	!end
	!if nomer = 4
	!   gt 'number4'
	!end
END
--- elevator ---------------------------------

# Mariya1
	'- How can I help you?'
act 'Move away': gt 'rack'
if nom_1 = 0:
	act 'Ask about plans for the evening':
	cla
		'- What are you doing tonight?'
		'- Meeting with her husband. Anything else?'
	act 'Move away': gt 'rack'
	end

	if tobiQW = 2000:
		act 'Why in the hotel so crowded?':
		cla
		tobiQW = 2001
			'- Why so crowded in the hotel?'
			'- Then stop members of Congress rare languages, as they call themselves quack.'
		act 'Move away': gt 'rack'
		end
	end
end
if nomer = 0:
	*clear
	act 'Stay':
		'- I would like to stay'
		'- Well, what would you like?'
		cla
		act 'Cheap room':
			'- Cheap room'
			nomer = 1
			nom_1 = 1
			gt 'mariya1'
		end
		act 'Standard Room':
			'- Standard Room'
			nomer = 2
			nom_1 = 1
			gt 'mariya1'
		end
		act 'Suite':
			'- Suite'
			nomer = 3
			nom_1 = 1
			gt 'mariya1'
		end
		act 'Presidential Suite':
			'- Presidential Suite'
			nomer = 4
			nom_1 = 1
			gt 'mariya1'
		end
	end
end
if nom_1 = 1 and flag = 0:
	*clear
	cla
	'- You shoot a room for one night.'
	sto_nom = nom_o[nomer]
	'- It will cost <<sto_nom>>'
	cla
	act 'Pay':
		if sto_nom > money:
			msg 'Not enough money'
			srokarend = 0
			nomer = 0
			nom_1 = 0
			gt 'mariya1'
		end
		money = money - sto_nom
		flag = 1
		nom_1 = 0
		nom_nom = rand(1,1000)
		'Thank you for using our services'
		'Your room <<nom_nom>>'
		cla
		act 'Goodbye':
			gt 'rack'
		end
	end
	act 'Change Your Mind':
		nomer = 0
		nom_1 = 0
		gt 'mariya1'
	end
end
if nom_1 = 0:
	act 'Move away':
		gt 'rack'
	end
end
--- Mariya1 ---------------------------------

# headwaiter
*PL '<right><img src="images\casino\metrd.jpg"></right>'
*P 'You want something from me?'
ACT 'Move away':
	gt 'hall'
END
clr
gs 'stat'
set minut += 5
--- headwaiter ---------------------------------

# number1
*PL 'bedroom'
*P 'toilet-shower'
--- number1 ---------------------------------

# number2
*PL 'lounge'
*PL 'bedroom'
*P 'toilet-shower'
--- number2 ---------------------------------

# number3
*PL 'lounge'
*PL 'bathroom'
*PL 'bar'
*P 'bedroom'
--- number3 ---------------------------------

# number4
*PL 'pool'
*PL 'jacuzzi'
*PL 'bar'
*PL 'bedroom'
*PL 'bathroom'
*P 'lounge'
--- number4 ---------------------------------

# RESULTS
*P '<right><img src="images\casino\resul.jpg"></right>'
clr
gs 'stat'
set minut += 5

x_rul = 100
x_rul = rand(0,36)
if x_rul = 0:
	$color = ' '
else
	if x_rul = 1 or x_rul = 3 or x_rul = 5 or x_rul = 7 or x_rul = 9 or x_rul = 12 or x_rul = 14 or x_rul = 16 or x_rul = 18 or x_rul = 19 or x_rul = 21 or x_rul = 23 or x_rul = 25 or x_rul = 27 or x_rul = 30 or x_rul = 32 or x_rul = 34 or x_rul = 36:
		$color = 'red'
	else
		$color = 'black'
	end
end
' '
'The ball stopped at <<x_rul>> <<$color>>'
if кч ! 0:
	if кч = 1:
		'1'
		if x_rul = 1 or x_rul = 3 or x_rul = 5 or x_rul = 7 or x_rul = 9 or x_rul = 12 or x_rul = 14 or x_rul = 16 or x_rul = 18 or x_rul = 19 or x_rul = 21 or x_rul = 23 or x_rul = 25 or x_rul = 27 or x_rul = 30 or x_rul = 32 or x_rul = 34 or x_rul = 36:
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if кч = 2:
		if x_rul = 2 or x_rul = 4 or x_rul = 6 or x_rul = 8 or x_rul = 10 or x_rul = 11 or x_rul = 13 or x_rul = 15 or x_rul = 17 or x_rul = 20 or x_rul = 22 or x_rul = 24 or x_rul = 26 or x_rul = 28 or x_rul = 29 or x_rul = 31 or x_rul = 33 or x_rul = 35:
			cla
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
end
if чнч ! 0:
	if чнч = 1:
		чнч = 0
		if x_rul mod 2 = 0:
			cla
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if чнч = 2:
		чнч = 0
		if x_rul mod 2 = 1:
			cla
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
end
if мб ! 0:
	if мб = 1:
		мб = 0
		if x_rul > 0 and x_rul < 19:
			cla
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if мб = 2:
		мб = 0
		if x_rul > 18 and x_rul < 37:
			cla
			act 'You have won <<2*st_1>>':
				set money += 2 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
end
if дю ! 0:
	if дю = 1:
		дю = 0
		if x_rul > 0 and x_rul < 13:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if дю = 2:
		дю = 0
		if x_rul > 12 and x_rul < 25:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if дю = 3:
		дю = 0
		if x_rul > 24 and x_rul < 37:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
end
if ряд ! 0:
	if ряд = 1:
		ряд = 0
		if x_rul = 1 or x_rul = 4 or x_rul = 7 or x_rul = 10 or x_rul = 13 or x_rul = 16 or x_rul = 19 or x_rul = 22 or x_rul = 25 or x_rul = 28 or x_rul = 31 or x_rul = 34:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if ряд = 2:
		ряд = 0
		if x_rul = 2 or x_rul = 3 or x_rul = 8 or x_rul = 11 or x_rul = 14 or x_rul = 17 or x_rul = 20 or x_rul = 23 or x_rul = 26 or x_rul = 29 or x_rul = 32 or x_rul = 35:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
	if ряд = 3:
		ряд = 0
		if x_rul = 3 or x_rul = 4 or x_rul = 9 or x_rul = 12 or x_rul = 15 or x_rul = 18 or x_rul = 21 or x_rul = 24 or x_rul = 27 or x_rul = 30 or x_rul = 33 or x_rul = 36:
			cla
			act 'You have won <<3*st_1>>':
				set money += 3 * st_1
				gt 'amrul'
			end
		else
			cla
			act 'You lost':
				gt 'amrul'
			end
		end
	end
end
if чи ! 100:
	if чи = x_rul:
		cla
		act 'You have won <<37*st_1>>':
			set money += 37 * st_1
			gt 'amrul'
		end
	else
		cla
		act 'You lost':
			gt 'amrul'
		end
	end
end
--- RESULTS ---------------------------------

# restaurant
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut += 5
'<center><B><font color = maroon>Bank</font></B></center>'
'<center><img src="images\etogame\bank.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Working hours are from 9 to 21.'

	act 'QUIT':
	cla
	set minut += 5
	gt 'hall'
	end
	if hour >= 9 and hour <= 21: act 'Go to the bank': gt 'bank','1'
end

if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
set minut += 5
'<center><B><font color = maroon>Bank</font></B></center>'
'<center><img src="images\etogame\bank1.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if bankfond > 0: 'Personal account <<bankfond>> rubles'
	act 'QUIT':
	cla
	set minut += 5
	gt 'restaurant','start'
	end


	if bankfond >= 0:
		act 'Put your money on personal account':
		cla
		set minut += 5
		kartaIN = input ("How much money you want to deposit into the account?")
			if kartaIN <= 0 or kartaIN > money:
			'Invalid operation.'
			else
			set bankfond += kartaIN
			set money -= kartaIN
			'You put into the account <<kartaIN>> rubles, now on your account <<bankfond>> rubles.'
			end

		act 'Move away': gt 'restaurant','1'
		end

		act 'Withdraw money from the personal account':
		cla
		set minut += 5
		kartaOUT = input ("How much money you want to withdraw from the account?")
			if kartaOUT <= 0 or kartaOUT > bankfond:
			'Not correct operation.'
			else
			set bankfond -= kartaOUT
			set money += kartaOUT
			'You debited <<kartaOUT>> rubles, now on your account <<bankfond>> rubles.'
			end

		act 'Move away': gt 'restaurant','1'
		end
	end
end
--- restaurant ---------------------------------

# roulette
*PL '<right><img src="images\casino\ruletka.jpg"></right>'
*P 'You came to the table with American roulette.'
ACT 'Approach to the dealer':
	gt 'croupier'
END
ACT 'Play':
	gt 'amrul'
END
ACT 'Back in the hall':
	gt 'hall'
END
clr
gs 'stat'
set minut += 10
--- roulette ---------------------------------

# rate
*PL '<right><img src="images\casino\stavkaru.jpg"></right>'
*NL
*P 'What will be put?'
ACT 'Red / Black':
	cla
	act 'Red':
		кч = 1
		gt 'RESULTS'
	end
	act 'Black':
		кч = 2
		gt 'RESULTS'
	end

END
ACT 'Even / Odd':
	cla
	act 'Even':
		чнч = 1
		gt 'RESULTS'
	end
	act 'Odd':
		чнч = 2
		gt 'RESULTS'
	end

END
ACT 'Small / Large':
	cla
	act 'Small: 1-18':
		мб = 1
		gt 'RESULTS'
	end
	act 'Large: 19-36':
		мб = 2
		gt 'RESULTS'
	end

END
ACT 'Dozen':
	cla
	act 'first dozen: 1-12':
		дю = 1
		gt 'RESULTS'
	end
	act 'Two Dozen: 13-24':
		дю = 2
		gt 'RESULTS'
	end
	act 'third dozen: 25-36':
		дю = 3
		gt 'RESULTS'
	end


END
ACT 'Series':
	cla
	act 'first row: 1,4,7,10,13,16,19,22,25,28,31,34':
		ряд = 1
		gt 'RESULTS'
	end
	act 'second row 2,5,8,11,14,17,20,23,26,29,32,35':
		ряд = 2
		gt 'RESULTS'
	end
	act 'third row: 3,6,9,12,15,18,21,24,27,30,33,36':
		ряд = 3
		gt 'RESULTS'
	end


END
ACT 'Number':
	чи = input 'Enter a number from 0-36'
	if чи < 0 and чи > 36:
		msg 'Said that it was only from 0 to 36'
		gt 'rate'
	end
	gt 'RESULTS'

END
ACT 'Nothing':
	gt 'amrul'
END
кч = 0
чнч = 0
мб = 0
дю = 0
ряд = 0
чи = 100

clr
gs 'stat'
set minut += 5
--- rate ---------------------------------

# theater
ACT 'Back in the hall':
	gt 'hall'
END

--- theater ---------------------------------

# hotel
ACT 'Go to the bar reception':
	gt 'rack'
END
ACT 'To lift':
	gt 'Elevator'
END
ACT 'Back in the hall':
	gt 'hall'
END
nom_o[1] = 100
nom_o[2] = 1000
nom_o[3] = 10000
nom_o[4] = 100000
clr
gs 'stat'
set minut += 5
'<right><img src="images\casino\metrd.jpg"></right>'
if tobiQW < 2000: 'In the hotel lobby deserted and alone bored girl at the reception.'
if tobiQW >= 2000 and tobiQW < 2100: 'In the lobby of the hotel is very crowded. Swarming everywhere comely old men in scanty jacket with patches on the elbows.'

if tobiQW = 2001:
'You notice that one of the patrons of the hotel, sitting in a chair, reading a book in which written squiggles, similar to the ones that scroll.'
	act 'Sorry to bother you. And what language is it written?':
	cla
	*clr
	'<right><img src="images\casino\oldman.jpg"></right>'
		'(You) - Sorry to bother you. And what language is it written?'
		'(Male) - This gracious, Old Japanese. And what? You understand the rare languages?'
		'(You) - Not at all, but I have a parchment, which are written very similar characters.'
		'(Male) - very curious! Can I see?'
		'(You) - Well, not in the same lobby!'
		'(Man) - Oh yeah, the right word, it´s me. I have, incidentally, called Plato Aristarkhovich, and you?'
		'(You) - You can simply Igor.'
		'(Plato Aristarkhovich) - Come into my room if you do not mind.'
	act 'Go with a man': gt 'mqroom'
	end
end
--- hotel ---------------------------------

# rack
ACT 'See the description of the rooms':
	cla
	*clear
	'The choice available to 4 types of rooms:'
	'1. Budget Room'

	'2. Standard rooms'

	'3. Suite'

	'4. Presidential Suite'
	act 'Finish reading': gt 'rack'

END
ACT 'Talk to a girl at the reception':
	gt 'mariya1'
END
ACT 'Move away from the rack':
	gt 'hotel'
END
'You are standing at the front reception and you smiling young girl behind the counter'
--- rack ---------------------------------

# cards
*PL '<right><img src="images\casino\zalcart.jpg"></right>'
*P 'In the hall a lot of free games tables in Blackjack and Casino Wars.'
ACT 'To the table game Blackjack':
	gt 'bldzh'
END
ACT 'To the table games in Casino War':
	gt 'kazvar'
END
ACT 'Back in the hall':
	gt 'hall'
END
clr
gs 'stat'
set minut += 10

!СИМВОЛЫ
! ♥
! ♠
! ♦
! ♣

!КОЛОДА КАРТ
$suit[1] = 'peak'
$symbol[1] = '♠'
$suit[2] = 'Clubs'
$symbol[2] = '♣'
$suit[3] = 'worms'
$symbol[3] = '♥'
$suit[4] = 'tambourine'
$symbol[4] = '♦'

$number[1] = 'Ace'
points[1] = 11
$number[2] = 'Deuce'
points[2] = 2
$number[3] = 'Three'
points[3] = 3
$number[4] = 'Four'
points[4] = 4
$number[5] = 'Five'
points[5] = 5
$number[6] = 'Six'
points[6] = 6
$number[7] = 'Seven'
points[7] = 7
$number[8] = 'Eight'
points[8] = 8
$number[9] = 'Nine'
points[9] = 9
$number[10] = 'Ten'
points[10] = 10
$number[11] = 'Jack'
points[11] = 10
$number[12] = 'Lady'
points[12] = 10
$number[13] = 'King'
points[13] = 10
$number[14] = 'Ace'
points[14] = 11
--- cards ---------------------------------

# Hall
*PL '<right><img src="images\casino\zdcasino.jpg"></right>'
*PL 'You entered the foyer of the building of a giant casino.'
*PL 'You can go:'
ACT 'Get out of the casino':
	gt 'casino'
END
USEHTML = 1
*clear

clr
gs 'stat'
set minut += 5

picrand = RAND(0,2)
if picrand = 0: '<right><img src="images\casino\hcasino1.jpg"></right>'
if picrand = 1: '<right><img src="images\casino\hcasino2.jpg"></right>'
if picrand = 2: '<right><img src="images\casino\hcasino3.jpg"></right>'

'By <a href="exec:GT ''headwaiter''">the head waiter</a>'
'In the Hall <a href="exec:GT ''igravt''">slot machines</a>'
'In room games <a href="exec:GT ''roulette''">Roulette</a>'
'In room games <a href="exec:GT ''cards''">Cards</a>'
!'In <a href="exec:GT ''restaurant''">restaurant</a>'
!'In <a href="exec:GT ''bar''">bar</a>'
!'In <a href="exec:GT ''theater''">Theatre</a>'
'K <a href="exec:GT ''hotel''">Hotel</a>'
--- Hall ---------------------------------

# $menu_skills
dynamic $objskills
--- $menu_skills ---------------------------------

# $menu_descrip
dynamic $objdescrip
--- $menu_descrip ---------------------------------

# $menu_statistika
dynamic $objstatistika
--- $menu_statistika ---------------------------------

# $menu_mobila
dynamic $objmobila
--- $menu_mobila ---------------------------------

# $menu_magic
dynamic $objmagic
--- $menu_magic ---------------------------------

# $menu_face
dynamic $objface
--- $menu_face ---------------------------------

# $menu_body
dynamic $objbody
--- $menu_body ---------------------------------

# $menu_clothes
dynamic $objclothes
--- $menu_clothes ---------------------------------

# $menu_tattoos
dynamic $objtattoos
--- $menu_tattoos ---------------------------------

# $menu_pirs
dynamic $objpirsing
--- $menu_pirs ---------------------------------

# $menu_obnovit
gs 'stat'
--- $menu_obnovit ---------------------------------

# $menu_bloknot
dynamic $objbloknot
--- $menu_bloknot ---------------------------------

# $menu_avariya
dynamic $objavariya
--- $menu_avariya ---------------------------------

# $menu_addoldmenu
dynamic $objoldmenu
--- $menu_addoldmenu ---------------------------------

# $menu_automatica
gs 'automatics'
dynamic $automatica
--- $menu_automatica ---------------------------------

# $menu_helper
gs 'menu_helper'
dynamic $helper_start
--- $menu_helper ---------------------------------

# menu_helper
$helper_start = {
clr
pl '<a href="exec:dynamic $helper_meeting">I want to meet someone</a>'
pl '<a href="exec:dynamic $helper_job">I want to earn money</a>'
pl '<a href="exec:dynamic $helper_stat">I want to increase my stats</a>'
}
$helper_meeting = {
clr
pl '<a href="exec:dynamic $helper_start">GO BACK</a>'
pl '<a href="exec:dynamic $helper_person, ''vladimir''">Vladimir</a>'
pl '<a href="exec:dynamic $helper_person, ''kate''">Kate/Katya</a>'
}
$helper_person = {
clr
pl '<a href="exec:dynamic $helper_meeting">GO BACK</a>'
if $ARGS[0] = 'vladimir':
	pl '<b>Can I meet him in my current state?</b>'
	if vnesh > 10: pl 'Yes you can'
	if vnesh <= 10: pl 'You need to be more attractive'&pl '<a href="exec: dynamic $helper_stats, ''attractiveness''">How can I be more attractive?</a>'
	nl
	pl '<b>Where to I meet him?</b>'
	pl 'In the park near the attractions.'
	pl 'Time must be between 9:00 and 20:00.'
	pl 'Weekday must be atleast friday.'
end
if $ARGS[0] = 'kate':
	pl '<b>Can I meet her in my current state?</b>'
	if vnesh >= 14: pl 'Yes you can'
	if vnesh < 14: pl 'You need to be more attractive to get further with her'&pl '<a href="exec: dynamic $helper_stats, ''attractiveness''">How can I be more attractive?</a>'
	nl
	pl '<b>Where to I meet her?</b>'
	pl 'At the lake while tanning.'
	pl 'You have 10% chance of meeting her.'
	nl
	pl '<b>How can I get her to talk about her job?</b>'
	pl 'Just talk to her until your relationship is high enough'
	pl 'Then go talk to her when she is sleeping and she will tell you about it'
end
}
$helper_stat = {
clr
pl '<a href="exec:dynamic $helper_start">GO BACK</a>'
pl '<a href="exec:dynamic $helper_stats, ''attractiveness''">Attractiveness</a>'
pl '<a href="exec:dynamic $helper_stats, ''str''">Strength</a>'
pl '<a href="exec:dynamic $helper_stats, ''dance''">Dancing</a>'
pl '<a href="exec:dynamic $helper_stats, ''striptease''">Striptease</a>'
pl '<a href="exec:dynamic $helper_stats, ''poledance''">Poledancing</a>'
}
$helper_stats = {
clr
pl '<a href="exec:dynamic $helper_stat">GO BACK</a>'
if $ARGS[0] = 'attractiveness':
	pl '<b>Attractiveness is increased by:</b>'
	pl '<a href="exec:dynamic $helper_stats_info, ''CurlyHair''">If you have curly hair</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''BreastSize''">Your breast size</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''Lips''">Your lips</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''Tan''">Your tan</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''Skin''">Your skin</a>'
	pl 'If you wear cosmetics'
	pl 'Your eyelashes'
	pl 'Your eyes'
	pl 'Your body type'
	pl 'Your leg hair'
	pl 'Your vagina hair'
	pl 'Your clothes'
	pl 'If you have brushed your hair'
	pl 'If you are wearing winter jacket'
	pl 'If you are wearing lip moisturizer'
	pl 'If you have tattoos'
	nl
	pl '<b>Attractiveness is decreased by:</b>'
	pl 'If you are sweaty'
	pl 'How old you look'
	pl 'If you have less teeth'
	pl 'If you have a disease'
	!'pl '<a href="exec:dynamic $helper_stats_info, ''''">If you wear cosmetics</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your eyelashes</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your eyes</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your body type</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your leg hair</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your vagina hair</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">Your clothes</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you have brushed your hair</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you are wearing winter jacket</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you are wearing lip moisturizer</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you have tattoos</a>'
	nl
	pl '<b>Attractiveness is decreased by:</b>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you are sweaty</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">How old you look</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you have less teeth</a>'
	pl '<a href="exec:dynamic $helper_stats_info, ''''">If you have a disease</a>''
end
if $ARGS[0] = 'str':
	pl '<b>Where can I increase it?</b>'
	if stren < 30: pl 'Watch swimmers at the pool but you can only do it if your strength is less than 30'
	if stren < 30: pl 'Swim at the lake but you can only do it if your strength is less than 30'
	if stren < 40: pl 'Give Kisame a blowjob at the pool but you can only do it if your strength is less than 40'
	if stren < 40: pl 'Swim at the pool but you can only do it if your strength is less than 40'
	pl 'In fitness center while learning poledancing'
	pl 'In fitness center while training force'
	pl 'In fitness center, kickboxing section while training power punches'
	pl 'In fitness center, kickboxing section while training kicks'
	pl 'Train at home'
	pl 'Train strength with Juugo'
	pl 'Alternate start school fitness class'
	nl
	pl '<b>How can it be decreased?</b>'
	pl 'If you are hungry for some time then it will slowly decrease'
end
if $ARGS[0] = 'dance':
	pl '<b>Where can I increase it?</b>'
	pl 'In fitness center or in House of Culture sport section'
end
if $ARGS[0] = 'striptease':
	pl '<b>Can I increase it in my current state?</b>'
	if dance >= 100: pl 'Yes you can'
	if dance < 100: pl 'You need to be better at <a href="exec: dynamic $helper_stats, ''dance''">dancing</a>'
	nl
	pl '<b>Where can I increase it?</b>'
	pl 'In fitness center if you have enough dancing skill'
end
if $ARGS[0] = 'poledance':
	pl '<b>Can I increase it in my current state?</b>'
	if dance >= 100 and stripdance >= 100 and stren >= 80: pl 'Yes you can'
	if dance < 100: pl 'You need to be better at <a href="exec: dynamic $helper_stats, ''dance''">dancing</a>'
	if stripdance < 100: pl 'You need to be better at <a href="exec: dynamic $helper_stats, ''striptease''">striptease</a>'
	if stren < 80: pl 'You need to have more <a href="exec: dynamic $helper_stats, ''str''">strength</a>'
	nl
	pl '<b>Where can I increase it?</b>'
	pl 'In fitness center if you have enough striptease skill, dancing skill and strength'
end
}
$helper_stats_info = {
clr
pl '<a href="exec:dynamic $helper_stats, ''attractiveness''">GO BACK</a>'
if $ARGS[0] = 'CurlyHair':
	pl '<b>Where can I increase it?</b>'
	pl 'In beauty salon'
	pl '<b>How can it be decreased?</b>'
	pl 'It will be decreased each day and if you are in the rain without an umbrella'
end
if $ARGS[0] = 'BreastSize':
	pl '<b>Where can I increase it?</b>'
	pl 'In beauty salon by getting silicone implants'
	pl 'It can be increased a tiny amount if you get more strenght, vitality and agility'
	pl '<b>How can it be decreased?</b>'
	pl 'Currently it cannot be decreased if you have silicone implants'
end
if $ARGS[0] = 'Lips':
	pl '<b>Where can I increase it?</b>'
	pl 'In beauty salon'
	pl 'If you smear lip moisturizer daily on your lips'
	pl '<b>How can it be decreased?</b>'
	pl 'It can be reduced in the beauty salon'
end
if $ARGS[0] = 'Tan':
	pl '<b>Where can I increase it?</b>'
	pl 'Fastest way is in beauty salon'
	pl 'When tanning on the beach. Having sunblock increases it slightly faster'
	pl '<b>How can it be decreased?</b>'
	pl 'It decreases daily'
end
if $ARGS[0] = 'Skin':
	pl '<b>Where can I increase it?</b>'
	pl 'In beauty salon'
	pl '<b>How can it be decreased?</b>'
	pl 'It won´t decrease'
end
}
$helper_job = {
clr
pl '<a href="exec:dynamic $helper_start">GO BACK</a>'
pl '<b>Main Jobs</b>'
pl '<a href="exec:dynamic $helper_jobs, ''cafe''">Cafe at Residental</a>'
pl '<a href="exec:dynamic $helper_jobs, ''poli''">Policlinic</a>'
pl '<b>Extra Jobs</b>'
pl '<a href="exec:dynamic $helper_jobs, ''cleaner''">Office Cleaner</a>'
pl '<a href="exec:dynamic $helper_jobs, ''strip''">Stripper</a>'
}
$helper_jobs = {
clr
pl '<a href="exec:dynamic $helper_job">GO BACK</a>'
if $ARGS[0] = 'cafe':
	pl '<b>Can I get the job in my current state?</b>'
	if vnesh >= 5 and work = 0: pl 'Yes you can'
	if vnesh < 5: pl 'You need to be more attractive to get the job'&pl '<a href="exec: dynamic $helper_stats, ''attractiveness''">How can I be more attractive?</a>'
	if work = 1: pl 'You are already working somewhere'
	nl
	pl '<b>How can I get the job?</b>'
	pl 'Just go to the cafe at residental and talk to the boss'
end
if $ARGS[0] = 'poli':
	pl '<b>Can I get the job in my current state?</b>'
	if katjob > 0: pl 'Yes you can'
	if katjob = 0: pl 'You need to get <a href="exec: dynamic $helper_person, ''kate''">Kate</a> to talk about her job'
end
if $ARGS[0] = 'cleaner':
	pl '<b>How can I get the job?</b>'
	pl 'You need to get <a href="exec:dynamic $helper_jobs, ''cafe''">cafe</a> job first'
	pl 'When your shift at the cafe is over go to the kitchen and talk to Tamara'
	pl 'Go home with Tamara and you will unlock it'
	nl
	pl 'Work enough times and you will be able to clean more'
end
if $ARGS[0] = 'strip':
	pl '<b>Can I get the job in my current state?</b>'
	if stripdance > 0: pl 'Yes you can'
	if stripdance = 0: pl 'You need to learn <a href="exec: dynamic $helper_stats, ''striptease''">striptease</a>'
	nl
	pl '<b>How can I get the job?</b>'
	pl 'Just go to the stripclub and talk to the manager'
	nl
	pl '<b>Can I earn more money somehow?</b>'
	pl 'The better your <a href="exec:dynamic $helper_stats, ''striptease''">striptease</a> and <a href="exec:dynamic $helper_stats, ''poledance''">poledancing</a> skill are the more likely you will earn more'
	pl 'Dance around the pole if you have any poledancing skill to get a chance to earn more'
end
}
--- menu_helper ---------------------------------

# $menu_dex_cheat
dynamic $dex_cheat
--- $menu_dex_cheat ---------------------------------

# $menu_options
gs 'menu_options'
dynamic $options_start
--- $menu_options ---------------------------------

# menu_options
$options_start = {
gs 'stat'
clr
if BakaGHomework = 0:$BakaGHomework = 'OFF'
if BakaGHomework = 1:$BakaGHomework = 'ON'
if NoCondomUse = 0:$NoCondomUse = 'OFF'
if NoCondomUse = 1:$NoCondomUse = 'ON'
if NoSTD = 0:$NoSTD = 'OFF'
if NoSTD = 1:$NoSTD = 'ON'
if ReminderSystem = 0:$ReminderSystem = 'OFF'
if ReminderSystem = 1:$ReminderSystem = 'ON'
if ShowStatsAs = 0:$ShowStatsAs = 'old style'
if ShowStatsAs = 1:$ShowStatsAs = 'bars'
if ShowStatsAs = 2:$ShowStatsAs = 'text'
if ShowStatsAs = 3:$ShowStatsAs = 'bars and text'
pl 'BakaG Homework System <a href="exec:dynamic $options_BakaGHomework"><<$BakaGHomework>></a>'
pl 'Don´t use condoms <a href="exec:dynamic $options_NoCondomUse"><<$NoCondomUse>></a>'
pl 'Disable STD system <a href="exec:dynamic $options_NoSTD"><<$NoSTD>></a>'
pl 'Reminder System <a href="exec:dynamic $options_ReminderSystem"><<$ReminderSystem>></a>'
pl '    Remind me when my supplies go below <a href="exec:dynamic $options_RSN"><<ReminderNumber>></a>'
pl 'Show stats as <a href="exec:dynamic $options_ShowStatsAs"><<$ShowStatsAs>></a>'
}
$options_BakaGHomework = {
if BakaGHomework = 0:
	BakaGHomework = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if BakaGHomework = 1:
	BakaGHomework = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_NoCondomUse = {
if NoCondomUse = 0:
	NoCondomUse = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if NoCondomUse = 1:
	NoCondomUse = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_NoSTD = {
if NoSTD = 0:
	NoSTD = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if NoSTD = 1:
	NoSTD = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_ReminderSystem = {
if ReminderSystem = 0:
	ReminderSystem = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if ReminderSystem = 1:
	ReminderSystem = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_RSN = {
ReminderNumber = input ("When will the system remind you?")
dynamic $options_start
}
$options_ShowStatsAs = {
ShowStatsAs += 1
if ShowStatsAs > 3: ShowStatsAs = 0
dynamic $options_start
}
--- menu_options ---------------------------------

# beg
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
set razdtumbler = 0
	'<center><img src="images\etogame\fit1.jpg"></center>'
	'You are stretching and warming up before your practice. From where you are you can see your coach, Ygor Y., coaching other athletes.'

	act 'Section races':
	cla
	*clr
	set minut += 120
	set speed += RAND(1,3)
	set manna -= 5
	set fat -= 5
	set sweat += 3
	set beg += RAND(2,5)

	'<center><img src="images\etogame\fit5.jpg"></center>'

	'You ran around the stadium practicing the skill of running and developing speed.'
	act 'Leave': gt 'fit','razd'
	end
end

if begsec > 0:
	act 'Go to coaching':
	cla
	' Igor Y. in his coaching. You are interested in your success at it.'
		if beg < 50:
		'You have to train, you have not even the third digit is not pulling in the main race and athleticism dyhalka. More importantly what would not be overweight, but diets undermine physical shape, so the coach recommends to use the sauna to dry.'
		act 'Exit': gt 'beg','start'
		end
		if beg >= 50 and razradbegEG = 0:
		'You´re doing fine, really well done, you can have a very good sporting future. May even become European champion. But remember, the key to victory, dyhalka, athleticism and an ounce.'
		act 'Leave': gt 'beg','start'
		end
	end
end
--- beg ---------------------------------

# beg1
if $ARGS[0] = 'start':
cla
*clr
clr
gs 'stat'
set minut += 60
Set kolsorev += 1
Set begmon = month
	if razradbeg = 0:
	'You write in a group beginners.'
	act 'Exit on the treadmill': xgt 'beg1','br'
	end
	if razradbeg = 1:
	'You write in a group treterazryadnikov.'
	act 'Exit on the treadmill': xgt 'beg1','3'
	end
	if razradbeg = 2:
	'You recorded in the second group of bits. City Championship.'
	act 'Exit on the treadmill': xgt 'beg1','2'
	end
	if razradbeg = 3:
	'You recorded in the first group of bits. Championship field.'
	act 'Exit on the treadmill': xgt 'beg1','1'
	end
	if razradbeg = 4:
	'You write in the CCM group. Championship region.'
	act 'Exit on the treadmill': xgt 'beg1','kms'
	end
	if razradbeg = 5:
	'You write in the group Masters of Sports. Russian Championship.'
	act 'Exit on the treadmill': xgt 'beg1','ross'
	end
	if razradbeg >= 6 and razradbeg < 16:
	'You write in the group International Master of Sports. Qualifying competition for access to the European Championship.'

	act 'Exit on the treadmill': xgt 'beg1','kval'
	end
	if razradbeg = 16:
		if razradbegK < 8:
		cla
		Set razradbegK = 0
		Set razradbeg = 6
		'You have not been qualified for the European Championship.'
		act 'Leave': gt 'fit','razd'
		end
		if razradbegK >= 8:
		cla
		Set razradbegK = 0
		Set razradbeg = 6
		'You write for the European Championship.'
		act 'Exit on the treadmill': xgt 'beg1','evro'
		end
	end



end

if $ARGS[0] = 'br':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = salo + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 10: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 10 and begresult < 20: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 20 and begresult < 30: 'You fought hard, but only managed to take 6th place.'
if begresult >= 30 and begresult < 40: 'You fought hard, but only managed to take 5th place.'
if begresult >= 40 and begresult < 50: 'You fought hard, but only managed to take 4th place.'
if begresult >= 50 and begresult < 60: Set bronzebeg += 1 & Set money += 100 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 100 rubles'
if begresult >= 60 and begresult < 70: Set silverbeg += 1 & Set money += 500 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 500 rubles'
if begresult >= 70: Set razradbeg = 1 & Set goldbeg += 1 & Set money += 1000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 1,000 rubles and third sports category on the run.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end

if $ARGS[0] = '3':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = salo + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 70: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 70 and begresult < 80: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 80 and begresult < 90: 'You fought hard, but only managed to take 6th place.'
if begresult >= 90 and begresult < 100: 'You fought hard, but only managed to take 5th place.'
if begresult >= 100 and begresult < 110: 'You fought hard, but only managed to take 4th place.'
if begresult >= 110 and begresult < 120: Set bronzebeg += 1 & Set money += 500 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 500 rubles'
if begresult >= 120 and begresult < 130: Set silverbeg += 1 & Set money += 1000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 1,000 rubles'
if begresult >= 130: Set razradbeg = 2 & Set goldbeg += 1 & Set money += 2000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 2,000 rubles and 2nd sports category on the run.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end


if $ARGS[0] = '2':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = salo + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 130: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 130 and begresult < 140: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 140 and begresult < 150: 'You fought hard, but only managed to take 6th place.'
if begresult >= 150 and begresult < 160: 'You fought hard, but only managed to take 5th place.'
if begresult >= 160 and begresult < 170: 'You fought hard, but only managed to take 4th place.'
if begresult >= 170 and begresult < 180: Set bronzebeg += 1 & Set money += 1000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 1,000 rubles'
if begresult >= 180 and begresult < 190: Set silverbeg += 1 & Set money += 2000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 2,000 rubles'
if begresult >= 200: Set razradbeg = 3 & Set goldbeg += 1 & Set money += 3000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 3000 rubles and 1st sports category on the run. You become the champion of the city on the run.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end


if $ARGS[0] = '1':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = salo + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 200: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 200 and begresult < 210: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 210 and begresult < 220: 'You fought hard, but only managed to take 6th place.'
if begresult >= 230 and begresult < 240: 'You fought hard, but only managed to take 5th place.'
if begresult >= 240 and begresult < 250: 'You fought hard, but only managed to take 4th place.'
if begresult >= 250 and begresult < 260: Set bronzebeg += 1 & Set money += 2000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 2,000 rubles'
if begresult >= 260 and begresult < 270: Set silverbeg += 1 & Set money += 3000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 3,000 rubles'
if begresult >= 270: Set razradbeg = 4 & Set goldbeg += 1 & Set money += 4000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 4000 rubles and the title of the CCM on the run. You become a champion of the region.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end


if $ARGS[0] = 'kms':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = salo + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 270: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 270 and begresult < 280: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 280 and begresult < 290: 'You fought hard, but only managed to take 6th place.'
if begresult >= 290 and begresult < 300: 'You fought hard, but only managed to take 5th place.'
if begresult >= 300 and begresult < 310: 'You fought hard, but only managed to take 4th place.'
if begresult >= 310 and begresult < 320: Set bronzebeg += 1 & Set money += 3000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 3,000 rubles'
if begresult >= 320 and begresult < 330: Set silverbeg += 1 & Set money += 4000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 4,000 rubles'
if begresult >= 330: Set razradbeg = 5 & Set goldbeg += 1 & Set money += 5000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 5000 rubles and the title of Master of Sports in the run. You become a champion of the region.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end



if $ARGS[0] = 'ross':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'

Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = (salo * 2) + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 330: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 330 and begresult < 340: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 340 and begresult < 350: 'You fought hard, but only managed to take 6th place.'
if begresult >= 350 and begresult < 360: 'You fought hard, but only managed to take 5th place.'
if begresult >= 360 and begresult < 370: 'You fought hard, but only managed to take 4th place.'
if begresult >= 370 and begresult < 380: Set bronzebeg += 1 & Set money += 4000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 4,000 rubles'
if begresult >= 380 and begresult < 390: Set silverbeg += 1 & Set money += 5000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 5,000 rubles'
if begresult >= 390: Set razradbeg = 6 & Set goldbeg += 1 & Set money += 6000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 6000 rubles and the title of International Master of Sports on the run. You become the champion of Russia.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end


if $ARGS[0] = 'kval':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
Set razradbeg += 1
Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = (salo * 3) + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 450: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 450 and begresult < 500: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 500 and begresult < 550: 'You fought hard, but only managed to take 6th place.'
if begresult >= 550 and begresult < 600: 'You fought hard, but only managed to take 5th place.'
if begresult >= 600 and begresult < 650: 'You fought hard, but only managed to take 4th place.'
if begresult >= 650 and begresult < 700: Set razradbegK += 1 & Set bronzebeg += 1 & Set money += 5000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 5,000 rubles'
if begresult >= 700 and begresult < 800: Set razradbegK += 1 & Set silverbeg += 1 & Set money += 10000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 10,000 rubles'
if begresult >= 800: Set razradbegK += 1 & Set goldbeg += 1 & Set money += 15000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 15 thousand rubles.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end


if $ARGS[0] = 'evro':
cla
'<center><img src="images\etogame\begsor.jpg"></center>'
'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
Set razradbeg += 1
Set begplus = beg + speed + vital + RAND(1,20)
Set begminus = (salo * 4) + RAND(1,20)
Set begresult = begplus - begminus
if begresult <= 0: 'You barely managed to reach the finish line, what place is really there, of course you are the last.'
if begresult > 0 and begresult < 450: 'You are not bad ran for dilettante course, as ranked last 8th place.'
if begresult >= 450 and begresult < 550: 'You fought hard, but managed to take only 7 penultimate place.'
if begresult >= 700 and begresult < 800: 'You fought hard, but only managed to take 6th place.'
if begresult >= 800 and begresult < 1000: 'You fought hard, but only managed to take 5th place.'
if begresult >= 1000 and begresult < 1300: 'You fought hard, but only managed to take 4th place.'
if begresult >= 1300 and begresult < 1800: Set razradbegEB += 1 & Set money += 10000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 10 thousand rubles'
if begresult >= 1800 and begresult < 2500: Set razradbegES += 1 & Set money += 15000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 15,000 rubles'
if begresult >= 2500: Set razradbegEG += 1 & Set money += 20000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20 thousand rubles. You are the champion of Europe.'
Set beg += 1
Set fat -= 10
act 'Leave': gt 'down'
end
--- beg1 ---------------------------------

# dinam
$taxi = {
cla
*clr
if workDisk = 3 and konvert = 1:
	badrand = RAND(0,100)
	if badrand >= 98: konvert = 0
	end
set minut += 15
if money >= 250: set money -= 250 & gt '<<$loc>>'
if money < 250:
	'<center><img src="images\picV\car.jpg"></center>'
	set bj += 1
	set guy += 1
	set swallow += 1
	set cumlip += 1
	dynamic $venerasiak
	'You have no money to pay the taxi driver that. He drove to somehow garages and taking out a member of his pants, you said "No money - then practiced."'
	'You are a taxi driver leaned over his fly and took his penis in her mouth. After a few minutes of mouth taxi driver is dead in your mouth and you were forced to swallow his cum.'
	act 'Leave': gt '<<$loc>>'
	end
}
--- dinam ---------------------------------

# husb
if $ARGS[0] = 'start':
clr
gs 'stat'
	if week < 6:
		if hour > 22 or hour < 7:
		'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
		end
		if hour = 7:
		'<<$husName>> sitting at the kitchen table.'
		end
		if hour = 17:
		'<<$husName>> sitting at the kitchen table.'
		end
		if hour > 17 and hour <= 22:
		'<<$husName>> sitting on a couch and watching television.'
		end
	else
		if hour > 22 or hour < 7:
		'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
		end
		if hour = 7:
		'<<$husName>> sitting at the kitchen table.'
		end
		if hour > 7 and hour < 17:
		'<<$husName>> sitting on a couch and watching television.'
		end
		if hour = 17:
		'<<$husName>> sitting at the kitchen table.'
		end
		if hour > 17 and hour <= 22:
		'<<$husName>> sitting on a couch and watching television.'
		end
	end

act 'Leave': GOTO $loc, $metka
if husbandsexday < 4:
	act 'Sex with my husband.': gt 'husbsex','room'
	end
end
--- husb ---------------------------------

# husbSex

if $ARGS[0] = 'room':
	'<center><B><font color = maroon>Bedroom</font></B></center>'
	if rembedr = 0: '<center><img src="images\etogame\bedr.jpg"></center>'
	if rembedr = 1: '<center><img src="images\etogame\bedr2.jpg"></center>'
	clr
	set minut         += 60
	fcolor             = rgb(0,0,0)
	bcolor             = rgb(255,255,255)
	LCOLOR             = rgb(106,90,205)
	set $nameV         = $husName
	set dick           = husDick
	set silavag        = silavagH
	set husbandsexday += 1
	set suprdolg      += 1
	'You went with her husband in the bedroom.'
	'<<$husName>> grabs you and rudely pushes you to your starting passionately kiss you and try to steal your clothes.'
	set sexrand = RAND(0,3)
	'Finally <<$husName>> won in an unequal battle with your bra straps and you section.'

	if husbdolg = 0:
		set sexrand  = 4
		set husbdolg = 1
		cla
		*clr
		'<center><img src="images\img\hasb\d0.jpg"></center>'
		'Only <<$husName>> climbed on you going to get in, someone stole it from you, and you will see two men in the room. One stood by the bed holding your husband´s hair, the second slightly to the side with a gun in his hand.'
		'"What a moron to pay you?" he asked what kept her husband.'
		'"I said I would do anything, I have no money now, but a month later I would do anything," replied <<$husName>>.'
		'"This had to think about when you sit down at the table, and we need the money now," continued the bandit.'
		'"But where I´ll take them now, face or what?" pleaded <<$husName>>.'
		'"Do not give birth to himself, we now have them in all your swirls look for holes, and you have 100,000," said the bandit.'

		if harakHusb < 2:
			'"Do not touch her, I´ll bring you all, tomorrow everything will be back" said <<$husName>>.'
			'"Come again tomorrow, but tomorrow and not touch, and look for today, but beautiful, open your mouth, but on wider-that would be just two instead of" neigh bandit.'
		end

		if harakHusb = 2:
			'"Not the boys, well, for it is not a sin and the debt write off, look what Kral." said <<$husName>>.'
			if vnesh < 15: '"Oh nah, what stole, she only wash the floors in a public toilet" replied the bandit.'
			if vnesh >= 15 and vnesh < 30: '"Well, never mind such popolzovavshis possible, but at a discount does not pull" replied the bandit.'
			if vnesh > 30: '"Yes, a good chick, but forget about the discount, put that payment for our costs," laughed a bandit.'
		end

		if vnesh >= 15: '"And you have a good little wife, now we will try it and probably will take away with you let your favor is done, as well as run for refund, unless of course want to go back" bandit laughed.'

		if money+stolmoney+karta >= 100000:
			act 'Offer money':
				cla
				if money >= 100000 and husbdolg = 1: set money -= 100000 & set husbdolg = 2
				if money + stolmoney >= 100000 and husbdolg = 1: set money += stolmoney - 100000 & set husbdolg = 2 & set stolmoney = 0
				if money + stolmoney + karta >= 100000 and husbdolg = 1: set money += stolmoney + karta - 100000 & set husbdolg = 2 & set stolmoney = 0 & set karta = 0
				'"I have money, I shall repay the debt" you said.'
				'"Good for you, but for the cost will still have to pay," said the bandit grinning.'
				act 'Open mouth': gt 'husbSex','dolg'
			end
		end

		act 'Open mouth': gt 'husbSex','dolg'
	end

	if sexrand = 0:
		'"<<$name>>, pine I huytsa juicy."'

		act 'Give blowjob':
			cla
			husband += 1
			gt 'husbsex','minet'
		end

		act 'I do not want to let another': husband -= 1 & gt 'husbsex','variant'
	end

	if sexrand = 1:
	'"<<$name>>, cup your ass."'

		act 'Anal':
			cla
			husband += 2
			gt 'husbsex','anal'
		end

		act 'Oh nafig, come on another': husband -= 1 & gt 'husbsex','variant'
	end

	if sexrand = 2:
		'"Lie down and spread your Svetsik Lyashko."'
		act 'Spread her legs': gt 'husbsex','miss'
		act 'I do not want to let another': husband -= 1 & gt 'husbsex','variant'
	end

	if sexrand = 3:
		'"Arise Svetsik crustaceans."'
		act 'Doggy-Style': gt 'husbsex','dog'
		act 'I do not want to let another': husband -= 1 & gt 'husbsex','variant'
	end
end


if $ARGS[0] = 'dolg':
	cla
	*clr
	set minut += 30
	set guy += 2
	set sex += 1
	set anal += 1
	set bj += 1
	'<center><img src="images\img\hasb\d1.jpg"></center>'
	'Bandits got their members and tried to push you in the mouth both at once, you tried to open his mouth as wide as possible, but the second term so really not fit, you end up with spit on the case and began to suck them one by one. Soon they got tired and hurl you to bed, she began to talk to who you first shove.'

	act 'Further':
		cla
		*clr
		'<center><img src="images\img\hasb\d2.jpg"></center>'
		'They began to twirl you all they want, each several times pereprobaval all your holes. Sometime you glanced at her husband.'
		if harakHusb = 0 and izvratH = 0: 'He huddled in the corner and cried quietly, not looking in your direction.'
		if harakHusb = 0 and izvratH = 1: 'He huddled in the corner and quietly wept ukratkoy looking in your direction, it was evident that he was very excited.'
		if harakHusb = 1 and izvratH = 0: 'He stood to the side, turned to the wall and did not look at you.'
		if harakHusb = 1 and izvratH = 1: 'He stood aside and watched you, it was evident that he was very excited.'
		if harakHusb = 2 and izvratH = 0: 'He stood to the side and not looking at you loud swearing, cursing that card, then himself, then calling you horny slut.'

		if harakHusb = 2 and izvratH = 1:
			cla
			*clr
			set picrand = 18
			'<center><img src="images\img\hasb\d2.jpg"></center>'
			'They began to twirl you all they want, each several times pereprobaval all your holes. Sometime you glanced at her husband.'
			'He stood aside and watched you masturbate currently a member. In the end, he could not resist and went to bed, as well, you want to, but it´s my bitch and I´ll fuck her too. The bandits did not object.'
			act 'Further': gt 'paysex','var'
		end

	act 'Finish': gt 'husbSex','dolgend'
	end
end


if $ARGS[0] = 'dolgend':
	cla
	*clr
	set cumpussy = 0
	set cumbelly = 0
	set cumass   = 0
	set cumanus  = 0
	set cumlip   = 0
	set cumface  = 0
	set cumanus  = 0
	set leghair  = -5
	set lobok    = -5
	if sweat > -3: set sweat = -3
	set hapri    = 1
	set mop      = 3
	gs 'stat'
	'<center><img src="images\img\hasb\d3.jpg"></center>'
	'When it was over, they took you to the bathroom and ordered to put himself in order, then led into the bedroom.'

	if vnesh >= 15 and husbdolg = 1:
		cla
		set husbdolg = 3
		set workDolg += 100000
		'"Well, babe, we´re gone c debts husband kind work" said one grinning.'

		act 'Go':
			cla
			'You have come to the sauna. Bandits have been dragged into what that room and started to explain. "You´re going to live here and work until not rasplatishsya debt. All clear? Try that buzz or escape, all we´ll bullet to the head and stabbed in the woods bury, truncated?"'
			'You frightened nodded, realizing that they are not joking.'
			act 'Look around': gt 'saunaroom'
		end

	exit
	end

	if vnesh >= 15 and husbdolg = 3:
		cla
		set saunaWorkWhore = 1
		'"Well babe, worked well, there is a desire to work more come to the sauna, where a job for you there," said one grinning.'
		act 'Finish': gt 'bedr'
	end
	if vnesh < 15: '"How frights not comb it frights remain" one said, looking at you. "Okay, go away, and you brought the money tomorrow, and then tomorrow we will be to fuck you." said second your husband.'
	set husbdolg = 4
	act 'Finish': gt 'bedr'
end


if $ARGS[0] = 'variant':
	'<<$husName>> looking at you and waiting for what you say'
	act 'Spread her legs': gt 'husbsex','miss'
	act 'Doggy-Style': gt 'husbsex','dog'
	act 'Anal': gt 'husbsex','anal'
	act 'Give blowjob': gt 'husbsex','minet'
	act 'Masturbate him': gt 'husbsex','hand'

	if kundayH ! day:
		act 'Cooney': gt 'husbsex','kuni'
	end

	if DOM > 0 and harakHusb = 0 and izvratH = 1 and strapon > 0:
		act 'Otstraponili': gt 'husbsex','strapon'
	end
end

if $ARGS[0] = 'minet':
	*clr
	gs 'brosok'
	set bj    += 1
	set minut += 30
	'<center><img src="images\picV\bj.jpg"></center>'
	'Her husband <<husDick>> centimeter member held you on the lips.'
	if bj = 1: 'You thought, "Damn, I rolled, I sit in front of a man, and he told me in the mouth by a dick pokes."'
	gs 'oral','start'

	act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip  += 1
		husband     += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$husName>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'

		act 'Leave.':
			cla
			gt 'vanr'
		end
	end

	act 'Remove the mouth.':
		cla
		*clr
		set tiprand = RAND(0,1)

		if tiprand = 1:
			husband -= 1
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$husName>> you finished in the palm.'
		end

		if tiprand = 0:
			set facial  += 1
			set cumface += 1
			husband     += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'You took out a member and at this point <<$husName>> is dead right on your face, covering it with warm and sticky cum.'
		end

		act 'Leave.':
			cla
			gt 'vanr'
		end
	end
end


if $ARGS[0] = 'hand':
	*clr
	gs 'brosok'
	set DOM   += 1
	set hj    += 1
	set minut += 30
	set horny += DOM
	'<center><img src="images\picV\hand1.jpg"></center>'
	'You got it <<husDick>> centimeter penis and began to caress her arms around his arms, moving the skin on the crimson head.'
	'Soon, your skillful movements husband finished you in her hands, covering them with warm and sticky sperm.'

	act 'Go to the bathroom.':
		cla
		gt 'vanr'
	end
end


if $ARGS[0] = 'kuni':
	*clr
	set kunday = day
	gs 'brosok'
	set DOM   += 1
	set kuni  += 1
	set minut += 30
	set horny += DOM + (silaVag * 2 + 5)
	'<center><img src="images\picV\kuni.jpg"></center>'
	'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
	'<<$husName>> lay down between your legs and began to work the tongue on your pussy.'

	if horny >= 90:
		set horny      = 0
		set manna     += 15
		set willpower += 15
		set orgasm    += 1
		'Man of skillful actions you covered orgasm.'
	else
		'Actions husband though they were exciting, but they started to bore you.'
	end

	act 'Further.':
		cla
		gt 'husbsex','variant'
	end
end


if $ARGS[0] = 'strapon':
	*clr
	gs 'brosok'
	set DOM     += 5
	set pegging += 1
	set minut   += 30
	set horny   += DOM
	'<center><img src="images\picV\pegging.jpg"></center>'
	'You got out of the drawer and put his strap. <<$husName>> got cancer on the bed.'
	'Greased lubricated anus husband and stuck him in the strap. While you fuck his ass, he groaned, and finally finished. You remove the strap from him and went to the bathroom.'

	act 'Go to the bathroom.':
		cla
		gt 'vanr'
	end
end


if $ARGS[0] = 'anal':
	*clr
	gs 'brosok'
	set anal += 1

	if analplugin = 1 :
		'<center><img src="images\picV\dog2.jpg"></center>'
		analpluginbonus = 10
		analplugin      = 0
		if anus < 16: '<<$husName>> has pulled out of your narrow and tight ass plug'

		if anus >= 16: '<<$husName>>pulled out of your ass juices dripping feverish stopper'
		'and you feel as hard cock rested in your hole.'

		if anus + analpluginbonus < husDick:
			'You screamed and bit his lip from a sharp pain when it <<husDick>> member centimeter apart your ass you entered.'
		end

		if anus + analpluginbonus >= husDick:
			'You groaned when his feelings of overcrowding <<husDick>> member centimeter apart your ass you entered.'
		end

		'Finally <<$husName>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'
		cumass      += 1
		!WD: match time with no Anal Plug
		!set minut   += 3
		set minut   += 30
		set cumanus += 1
		if anus < husDick: set anus += 1
		set horny += ((anus - husDick)*3)
		if horny < 1 : set horny = 1

		if horny >= 100 :
			horny           = 1
			set orgasm     += 1
			set analorgasm += 1
			'In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
		end
		act 'Go to the bathroom.':

			cla
			gt 'vanr'
		end

	else

		if husDick < anus: set anus += 1
		'<center><img src="images\picV\dog2.jpg"></center>'

		if lubri = 0:
			set lubonus = 2
			'Lubricant and you do not have <<$husName>> spitting on his fingers became saliva to lubricate your ass.'
		end

		if lubri > 0:
			set lubri  -= 1
			set lubonus = 10
			'You got out of the box with a tube of lube and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
		end

		'<<$husName>> put your stomach on the bed apart and began to massage your buttocks your anus with your fingers, first one, then two.'
		if anus < 10: 'When your ass you entered three fingers involuntarily groaned in pain.'
		if anus >= 10: 'Then the guy brought you three fingers and started to stretch your anus.'
		'<<$husName>> pulled his fingers out of your buttocks and you feel his hard cock rested in your hole.'

		if anus + lubonus < husDick:
			'You screamed and bit his lip from a sharp pain as his cock parted your ass you entered.'
		end

		if anus + lubonus >= husDick:
			'You moan from the feeling of overcrowding as his cock parted your ass you entered.'
		end

		'<<$husName>> stopped for a moment giving your ass to adjust to the protruding member in it, and then started to drive them all the more insistent.'

		if anus + lubonus + 2 < husDick:
			if mop > 1: set mop = 0
			'You cried and clutched his teeth into the pillow when <<husDick>> centimeter cock began to fuck your ass on full force.'
		end

		if anus + lubonus + 2 >= husDick:
			'You started to moan rhythmically in time with the movements member inside you.'
		end

		'Finally <<$husName>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'

		if klismaday ! day:
			husband -= 1
			'<<$husName>> took out a member of your ass and see on your dick shit said, "Damn. Svetsik my ass before sex."'
		end

		if klismaday = day:
			husband += 5
			'<<$husName>> took out a member of you and kissed you went to the bathroom.'
		end

		set minut += 30
		!WD: Duplicate
		!if anus < husDick: set anus += 1

		act 'Go to the bathroom.':
			cla
			set lubonus = 0
			gt 'vanr'
		end
	end
end


if $ARGS[0] = 'miss':
	*clr
	husband    += 1
	gs 'brosok'
	set sex    += 1
	set minut  += 30
	set pose    = 0
	set $nameV  = $husName
	set dick    = husDick
	set silavag = silavagH
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$husName>> spread your legs and began to fondle her fingers pussy.'
	gs 'orgazm','start'

	act 'Go to the bathroom.':
		cla
		gt 'vanr'
	end
end


if $ARGS[0] = 'dog':
	*clr
	husband   += 1
	gs 'brosok'
	set sex   += 1
	set minut += 30
	set pose   = 1
	set $nameV = $husName
	set dick   = husDick
	set silavag = silavagH
	'<center><img src="images\picV\dog1.jpg"></center>'
	'<<$husName>> poctavil you cancer and spread your bread before you enter.'
	gs 'orgazm','start'

	act 'Go to the bathroom.':
		cla
		gt 'vanr'
	end
end
--- husbSex ---------------------------------

# indik
if $ARGS[0] = '1':
	if a >= 100 :            set $ind = '<font color = green> ██████████ <<a1>></font>'
	if a < 100 and a >= 90 : set $ind = '<font color = green> █████████_ <<a1>></font>'
	if a < 90  and a >= 80 : set $ind = '<font color = green> ████████__ <<a1>></font>'
	if a < 80  and a >= 70 : set $ind = '<font color = green> ███████___ <<a1>></font>'
	if a < 70  and a >= 60 : set $ind = '<font color = blue > ██████____ <<a1>></font>'
	if a < 60  and a >= 50 : set $ind = '<font color = blue > █████_____ <<a1>></font>'
	if a < 50  and a >= 40 : set $ind = '<font color = blue > ████______ <<a1>></font>'
	if a < 40  and a >= 30 : set $ind = '<font color = red  > ███_______ <<a1>></font>'
	if a < 30  and a >= 20 : set $ind = '<font color = red  > ██________ <<a1>></font>'
	if a < 20  and a >= 10 : set $ind = '<font color = red  > █_________ <<a1>></font>'
	if a < 10  and a >= 1 :  set $ind = '<font color = red  > ▓_________ <<a1>></font>'
	if a <= 0 :              set $ind = '<font color = red  > __________ <<a1>></font>'
end
if $ARGS[0] = '2':
	if a >= 100 :            set $ind = '<font color = red   > ██████████ </font>'
	if a < 100 and a >= 90 : set $ind = '<font color = red   > █████████_ </font>'
	if a < 90  and a >= 80 : set $ind = '<font color = red   > ████████__ </font>'
	if a < 80  and a >= 70 : set $ind = '<font color = orange> ███████___ </font>'
	if a < 70  and a >= 60 : set $ind = '<font color = orange> ██████____ </font>'
	if a < 60  and a >= 50 : set $ind = '<font color = yellow> █████_____ </font>'
	if a < 50  and a >= 40 : set $ind = '<font color = yellow> ████______ </font>'
	if a < 40  and a >= 30 : set $ind = '<font color = green > ███_______ </font>'
	if a < 30  and a >= 20 : set $ind = '<font color = green > ██________ </font>'
	if a < 20  and a >= 10 : set $ind = '<font color = blue  > █_________ </font>'
	if a < 10  and a >= 1 :  set $ind = '<font color = blue  > ▓_________ </font>'
	if a <= 0 :              set $ind = '<font color = blue  > __________ </font>'
end
--- indik ---------------------------------

# klofdomhouse1
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
	act 'Ring the doorbell':
	cla
		if klofQW = 2 and hour >= 16 and klofday ! day:
		gt 'klofdomhouse','ev1'
		elseif klofQW > 2 and hour >= 16 and klofday ! day:
		gt 'klofdomhouse','start1'
		else
		'No one home'
		act 'Go home': gt 'street'
		end
	end

act 'Go home': gt 'street'
end

if $args[0] = 'ev1':
cla
*clr
set klofday = day
set minut += 5
'<center><img src="images\klof\klof.jpg"></center>'
'You rang the doorbell.'
'You do not open and you want to leave, but then the door opened.'
'Hi-<<$name>> said'
'-And that you said (smiling) male-through.'
act 'Stop by': gt 'klofdomhouse','ev2'
end

if $args[0] = 'ev2':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 1.JPG"></center>'
'You looked around the apartment was a pigsty, the walls papered with peeled everywhere strewn socks.'
'How pathetic something you guys here rebya - you said and smiled, eyes met the guy.'
'Nothing, we just arrived in this city soon obzhivaya said grinning guy.'
'- Clear. We are never met.'
'- Call me Zhora, and my sidekick Senya, and now just quickly clean this up in the apartment.'
act 'Clean up': gt 'klofdomhouse','ev4'
	if sub < 30 and horny < 75:
	act 'Leave': gt 'klofdomhouse','ev3'
	end
end

if $args[0] = 'ev3':
cla
*clr
set minut += 5
set klofQW -= 1
if dom > 0: set dom += 5
if sub > 0: set sub -= 5
'<center><img src="images\qwest\pnx.jpg"></center>'
'You decided that the guy above you just izdevaetsya and left.'
act 'Leave': gt 'street'
end

if $args[0] = 'ev4':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 3.JPG"></center>'
'Remove ZHore you approached and asked.'
'Jora-you promised money and entertainment, but so far I have not seen what this'
'Well-look, as I said we are not in a long time, until now we need a girl for home services'
'- When will become closer acquainted, talk about business.'
'- Now be a good girl and I discussed'
act 'Open your legs ZHore': gt 'klofdomhouse','ev5'
end

if $args[0] = 'ev5':
cla
*clr
set minut += 5
sex += 1
vagina += 1
'<center><img src="images\klof\klof 4.jpg"></center>'
'Jora began to fuck you in the pussy, suddenly the door opened.'
'Into the room came Senya and said, "Suck my cock baby ka"'
act 'Get a mouth Cenis': gt 'klofdomhouse','ev6'
end

if $args[0] = 'ev6':
cla
*clr
set hour += 23
set minut += 5
set klofQW += 1
cla
*clr
set money += 200
Set bj += 1
Set cumface += 1
set cumpussy += 1
'<center><img src="images\klof\klof 5.jpg"></center>'
'Jora zhetko pecked in your pussy, Xian fucked you in the mouth.'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'You are dressed and ready to go home.'
'To you approached and handed the money Jora: "Earned crumb"'
	if bj >= anal and bj >= sex:
	set callnm = 1
	end
	if anal >= oral and anal >= sex:
	set callnm = 2
	end
	if Sex >= bj and Sex >= anal:
	set callnm = 3
	end
	if vaf >= 100:
	set callnm = 4
	end
act 'Go home': gt 'street'
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'start1':
cla
*clr
set klofday = day
set minut += 5
gt 'klofdomhouse','ev7'
end

if $args[0] = 'ev7':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 1.JPG"></center>'
'You went to the apartment'
act 'Say hello to the guys': gt 'klofdomhouse','ev8'
end

if $args[0] = 'ev8':
cla
*clr
set minut += 5
'<center><img src="images\klof\klof 6.jpg"></center>'
'Hey baby, guys said, you ogolid breasts and began to fondle you.'
'- Hello boys miss me? - You said and blushed'
act 'Entertain ZHoru': gt 'klofdomhouse','ev9'
act 'entertain Senya': gt 'klofdomhouse','ev10'
act 'Entertain both': gt 'klofdomhouse','ev19'
act 'Ask Zhora about affairs': gt 'klofdomhouse', 'ev20'
end




if $args[0] = 'ev9':
cla
*clr

act 'Writing in the pussy ZHore.': gt 'klofdomhouse','ev13'
act 'Writing in the ass ZHore.': gt 'klofdomhouse','ev14'
act 'ZHore suck.': gt 'klofdomhouse','ev19'
end

if $args[0] = 'ev13':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set vagina += 1
Set sex += 1
set cumpussy += 1
'Jora zhetko pecked in your pussy.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 7.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 8.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 9.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'You feel that Jora razryazhaetsya you.'
'<center><img src="images\klof\klof 10.jpg"></center>'
'You are dressed and ready to go home.'
'Jora handed you the money, "Earned crumb"'
act 'Go home': gt 'street'
end

if $args[0] = 'ev14':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
Set anal += 1
set anus += 1
Set cumass += 1

'Jora with full force hammer you in the ass.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 11.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 12.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 13.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'Jora discharge you in the ass, in the ass and inserts gag'
	'<center><img src="images\klof\klof 14.jpg"></center>'
	'You are dressed and ready to go home.'
	'Jora handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end


if $args[0] = 'ev15':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set bj += 1
Set cumface += 1
'You passionately clasped Zhorin member lips.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 15.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 16.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 17.jpg."></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'Jora discharged in your face'
	set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 18.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 19.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 20.jpg."></center>'
	'You are dressed and ready to go home.'
	'Jora handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end




if $args[0] = 'ev10':
cla
*clr

act 'Writing in the pussy Seine.': gt 'klofdomhouse','ev 16'
act 'Writing in the ass Seine.': gt 'klofdomhouse','ev 17'
act 'Suck Seine.': gt 'klofdomhouse','ev 18'
end

if $args[0] = 'ev 16':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
set vagina += 1
Set sex += 1
'Hsien zhetko pecked in your pussy.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 7.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 8.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 9.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	'You feel that Jora razryazhaetsya you.'
	'<center><img src="images\klof\klof 10.jpg"></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end

if $args[0] = 'ev 17':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
Set cumass += 1
anal += 1
anus += 1
'Hsien with full force hammer you in the ass.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 11.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 12.jpg"></center>'
		if picrand = 3: '<center><img src="images\klof\klof 13.jpg"></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'

	act '....':
	cla
	*clr
	'Hsien discharge you in the ass, in the ass and inserts gag'
	'<center><img src="images\klof\klof 14.jpg"></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end

if $args[0] = 'ev 18':
cla
*clr
set minut += 30
set klofQW += 1
set money += 100
bj += 1
Set guy += 1
Set cumlip += 1
'You passionately clasped Senenin member lips.'
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 15.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 16.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 17.jpg."></center>'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
	act '....':
	cla
	*clr
	facial += 1
	'Hsien discharged in your face'
	set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 18.jpg"></center>'
		if picrand = 2: '<center><img src="images\klof\klof 19.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 20.jpg."></center>'
	'You are dressed and ready to go home.'
	'Hsien handed you the money, "Earned crumb"'
	act 'Go home': gt 'street'
	end
end


if $args[0] = 'ev19':
cla
*clr
set minut += 30
set klofQW += 2
set money += 200
sex += 1
Set bj += 1
Set cumface += 1
facial += 1
set cumpussy += 1
set vagina += 1
set picrand = RAND(1,3)
		if picrand = 1: '<center><img src="images\klof\klof 21.jpg."></center>'
		if picrand = 2: '<center><img src="images\klof\klof 22.jpg."></center>'
		if picrand = 3: '<center><img src="images\klof\klof 23.jpg."></center>'
'Jora brutally fuck you in the mouth and pussy Cenya dryuchit'
Set horand = RAND(1,100)
if horand <= sex: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
if horand > sex: Set horny += 10 & 'You were not satisfied'
'Finally they both finished, one in the pussy, the other on the face.'
'You are dressed and ready to go home.'
'Boys stretched you money, "Earned crumb"'
act 'Go home': gt 'street'
end

if $args[0] = 'ev20':
cla
*clr
set klofday = day
set minut += 5
'<center><img src="images\klof\klof.jpg"></center>'
'If you want to talk serious business with our boss'
	act 'Talk to the boss':
	cla
	if klofQW < 10: gt 'klofdomhouse','ev21'
	if klofQW >= 10: gt 'klofdomhouse','ev22'
	end
end

if $args[0] = 'ev21':
cla
*clr
'From the room came an ugly old man'
'<center><img src="images\klof\klof24.jpg"></center>'
'"Too early you climb into our business" - he said.'
act 'Go home': gt 'street'
end

if $args[0] = 'ev22':
cla
*clr
'From the room came an ugly old man'
'<center><img src="images\klof\klof24.jpg"></center>'
'Boss looked closely at you and said, "Come to me, look at what you´re ready for the money"'
act 'Go to the boss room.': gt 'klofdomhouse','ev23'
act 'Go home': gt 'street'
end

if $args[0] = 'ev23':
cla
*clr
'You went into the room boss surprisingly it was well renovated and furnished'
'<center><img src="images\klof\klof25.jpg"></center>'
'Well Well take off your clothes and show yourself - said the boss'

act 'Show yourself': gt 'klofdomhouse','ev24'
act 'Send it to .....': gt 'street'
end

if $args[0] = 'ev24':
cla
*clr
'You sat on the bed'
'<center><img src="images\klof\klof 26.jpg"></center>'
act 'Show breast': gt 'klofdomhouse','ev25'
end

if $args[0] = 'ev25':
cla
*clr
'You bared her breasts'
'<center><img src="images\klof\klof 26 (1).jpg"></center>'
act 'Show ass': gt 'klofdomhouse','ev26'
end

if $args[0] = 'ev26':
cla
*clr
'You pokazli his ass'
'<center><img src="images\klof\klof 26</center>.jpg"></center>'
act 'Remove dress': gt 'klofdomhouse','ev27'
end

if $args[0] = 'ev27':
cla
*clr
'You took off her dress'
'<center><img src="images\klof\klof 26 (4).jpg"></center>'
act 'Seduce the boss': gt 'klofdomhouse','ev28'
end

if $args[0] = 'ev27':
cla
*clr
'You sat on the bed and pushed the legs'
'<center><img src="images\klof\klof 26 (6).jpg"></center>'
act 'Seduce the boss': gt 'klofdomhouse','ev28'
end

if $args[0] = 'ev28':
cla
*clr
'You turned on its side and the boss showed their charms'
'<center><img src="images\klof\1284364hjl.jpg)"></center>'
act 'Spin the ass before the boss': gt 'klofdomhouse','ev29'
end

if $args[0] = 'ev29':
cla
*clr
'You turned on its side and the boss showed their charms'
'<center><img src="images\klof\1284365sgp.jpg"></center>'
act 'Seduce the boss': gt 'klofdomhouse','ev29'
end
--- klofdomhouse1 ---------------------------------

# Peterroom
if $ARGS[0] = 'start_door':
cla
*clr

set minut += 5
'<center><B><font color = maroon>Apartment Peter</font></B></center>'
'<center><img src="images\peter\peterdoor.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	act 'Ring the doorbell':
	cla
		if petersexday < 1:
		'You called, Peter opened the door.'
		'- Come on, get changed. I am now.'
		set petersexday += 1
			act 'Take the apartment': gt 'peterroom','start'
		else
		'You rang the doorbell but no one answers.'
			act 'QUIT':
			cla
			set minut += 5
			gt 'down'
			end
		end
	end
end

if $ARGS[0] = 'start':
cla
*clr

	if peter > 0 :
	set peterrand = RAND(1,2)
	'<center><img src="images\peter\9.jpg"></center>'
	'You get undressed, pinned collar and prepared. From the next room came the voice of Peter Vlasnyi: - Who is my whore?'
		act 'I, my lord ...':
		petersex = petersex + 1
		if analplugin = 1 : gt 'peterroom','klap'
		if peterrand < 2 : gt 'peterroom','d1'
		if peterrand > 1 : gt 'peterroom','d2'
		end
	end
	if peter < 1 :
	set petersexday += 1
	set minut += 10
	'<center><img src="images\peter\1.jpg"></center>'
	'<center>undressing and dressing it. He put a collar in front of you you picked up this narrow strip of skin with rivets and thinking.</center>'
		act 'Wear' :
		*clr
		cla
		'<center><img src="images\peter\2.jpg"></center>'
		'<center>You put the collar. Peter stroked whip you on the cheek:'
		'- Lustful girl! Stand up, turn around, hands behind your back!'
		'You execute the command and hands snap handcuffs.</center>'
			if analplugin = 1 :
			'And what have we here? Peter pulled the tip of the tube sticking out of the ass, and pulled her'
			set analplugin = 0
			end
			act 'smile':
			gs 'stat'
			cla
			*clr
			'<center><img src="images\peter\3.jpg"></center>'
			'Peter pulled you by the collar, put on his knees in front of him and ordered: - Come on bitch, now open your mouth raunchy.'

			act 'submit':
			cla
			*clr
			'<center><img src="images\peter\4.jpg"></center>'
			'Peter unbuttoned his pants and pulled out his dick 25santimetrovy. He grabbed you by the hair and put in your mouth the head of his penis. You obediently around her lips sucking and caressing his tongue, feeling as it increases and strains in your mouth.'
				act 'continue Composition' :
					cla
					*clr
					'<center><img src="images\peter\5.jpg"></center>'
					'And then Peter bent and you rudely and impatiently thrust member in your pussy and started to fuck like a blow-up doll. A few minutes later, he stopped and pulled his cock pushed you to the floor and ordered:'
					'- Crawl me, bitch!'
						act 'creep' : gt 'peterroom','klap'

				end

		end

		act 'does not comply' :
			*clr
			cla
			'<center><img src="images\peter\4_1.jpg"></center>'
			'-Have to punish - Peter with these words you crossed over the table and put you in the anus plug. - Pop up earlier than end flogging, will receive the same amount: - Peter became the side of you, spread the whip and started whipping. counting aloud strikes interspersed with your shouts and sobs ...'
			'- ... Ask me to fuck you, nine docile litter?'
			act 'Yes! I´ll be your whore!' : gt 'peterroom','klap'
		end


	end

end
	act 'Leave':
	gt 'down'
	end
end
end
if $ARGS[0] = 'klap':
cla
*clr
set horny += 10
gs 'stat'
'<center><img src="images\peter\6.jpg"></center>'
'Peter on a leash led you into the bedroom. Knocked on the huge bed and tied his hands and feet.'
'Then deftly put into your mouth gag: - ball on the strap and fastened it at the back.'
'- I love the light, as you moan, but when you´re talking about, you start talking nonsense. So it is better groan, honey ...'
	act 'moo':
	cla
	*clr
	'<center><img src="images\peter\7.jpg"></center>'
	'. Peter bore down on you from above. - Check how much you sweet ass? - Said Peter'
	if analplugin = 1 :
	', Pulled a butt plug'
	set analplugin = 0
	end
	'and put his huge erection to your anus entered it in half. You gasped in pain, and mooing in gag. - And I see you can not wait to get his ass completely - Peter saw your reaction and began to fuck your ass with every stroke penetrating deeper and deeper until his penis did not completely sink into you, and the balls hard slap on the buttocks. He fucks you so intense that you feel like my knees start to shake, and out of pussy and your juices flowing buttocks.'
		act 'moo' :
		cla
		*clr
		'<center><img src="images\peter\8.jpg"></center>'
		'He continues to stick you faster, then slows the rhythm, makes several deep movements and finishes filling your insides hot stream of sperm ....'
		set horny += SUB - DOM + (anus-25)*3
		set anal += 1
		if 25 > anus: set anus += 1
		if horny >= 100:
			horny  = 1
			set orgasm += 1
			set analorgasm += 1
			'in the ass was hot and orgasm you covered from head.'
		end
		'Ass to squelch freed from his penis. Peter sat on the bed, breathing heavily, and you remained lying bound, feeling of ass fucked slowly follows sperm.'
		act 'relax' : gt 'peterroom','end'
		end
	end

end

if $ARGS[0] = 'end':
cla
*clr
set SUB += 1
set minut += 30
gs 'stat'
'<center><img src="images\peter\vanroom.jpg"></center>'
'- You were great - said Peter and smacking you on the cheek, picked up and carried you to the bathroom where you showered together.'
	act 'Get out' :
	cla
	*clr
	set peter += 1
	'<center><img src="images\peter\mash.jpg"></center>'
	'You walked down the yard, and stopped the car, Peter. He kissed you on the lips and said:'
	'- <<$name>>, you really brighten up my lonely and gray existence. Your appearance is as the light in the dark, or a breath of fresh air ... I hope to see you again. But now I´m sorry things. You a lift?'
	set minut += 20
	act 'In the center' : gt 'down'
	act 'The house' : gt 'street'

	end

end

if $ARGS[0] = 'd1':
set horny += SUB - DOM + (anus-25)*3
set anal += 1
if 25 > anus: set anus += 1
	cla
	*clr
	'<center><img src="images\peter\d1-1.jpg"></center>'
	'Peter connects your hands behind your back. His hands take you by the hips and lifted your ass, placing you cancer. You dutifully lean and Peter catches the rope to the hook.'
	act 'sucking her fingers':
		cla
		*clr
		'<center><img src="images\peter\d1-2.jpg"></center>'
		'Peter pushes your hands halves drives his cock in the ass. You gasped in pain, and mooing in gag. - And I see you can not wait to get his ass completely - Peter saw your reaction and began to fuck your ass with every stroke penetrating deeper and deeper until his penis did not completely sink into you, and the balls hard slap on the buttocks.'
		act 'moan':
			cla
			*clr
			'<center><img src="images\peter\d1-3.jpg"></center>'
			'He fucks you so intense that you feel like my knees start to shake, and the legs from the pussy juices flow down your.'
			act 'moan':
				cla
				*clr
				'<center><img src="images\peter\d1-4.jpg"></center>'
				'He continues to stick you faster'
				if horny >= 100:
				set orgasm += 1
				set analorgasm += 1

				'You are very excited that grew in the ass sweet languor, and then suddenly become a hot orgasm and covered you with his head. Simultaneously with you ends Peter pounding dick deeper and filling your insides hot stream of sperm ....'
				end

				if horny < 100 :
				' and then slows the rhythm, makes several deep movements and finishes filling your insides hot stream of sperm ....'
				end
				'Ass to squelch freed from his penis. Peter sat on the bed, breathing heavily, and you remained kneeling with protruding upward booty fucked from which the legs dripping sperm.'


				act 'further' : gt 'peterroom','end'
			end
		end
	end

end

if $ARGS[0] = 'd2':
	set horny += SUB + VAF - DOM + (throat -25)*3
	cla
	*clr
	'<center><img src="images\peter\d2-1.jpg"></center>'
	'Peter put you on your knees, then lifted your head and holding her hands to force your mouth planted its piston. His head slipped down his throat, but he did not rest on this, continuing to press. And its 25 centimeter count began to enter into you further.'
	act 'suck':
		cla
		*clr
		'<center><img src="images\peter\d2-2.jpg"></center>'
		'- Cosi better whore! Inch by inch, pushing relentlessly pounding him deeper and deeper. After another push me you felt that your lips into something rested. And in a moment you realize that it is all inside.'
		act 'moan':
			cla
			*clr
			'<center><img src="images\peter\d2-3.jpg"></center>'
			'Tears streamed from his eyes, and Peter began slowly began to move. He took his hands away from your head, and now you hands grabbed his buttocks and continued to sit down on his spear. You trembling, you are lost in sensation between the legs fire raged in the chest ached pleasantly shamelessness and sense of awareness of their depravity.'
			act 'moo':
			cla
			*clr
			'<center><img src="images\peter\d2-4.jpg"></center>'
			'Peter began to finish and stopped drove a member as far as possible, you feel like you are somewhere deep pours his sperm., And on his balls your saliva flowing ...'
			set SUB += 1
			set bj += 1
			if horny >= 100:
			'Suddenly you start you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned and shuddered with orgasm, but Peter gripped you do not allow members to slip out of his mouth ...'
			set VAF += 1
			set willpower += 15
			set lipkoef += 1
			set orgasm += 1
			end
			act 'swallow' : gt 'peterroom','end'
			end
		end
	end

end
--- Peterroom ---------------------------------

# portnoi
if odetjeans = 1: set jeansB[numdress] = bedra
if odetyoga = 1: set yogaB[numdress] = bedra
if odetsarafan = 1: set sarafanB[numdress] = bedra
if odetshort = 1: set shortB[numdress] = bedra
if odetskirt = 1: set skirtB[numdress] = bedra
if odetdress = 1: set dressB[numdress] = bedra
if odetprofi = 1: set profiB[numdress] = bedra
if odetpants = 1: set pantsB[numdress] = bedra
if odetlatex = 1: set latexB[numdress] = bedra
if odethooker = 1: set hookerB[numdress] = bedra
if odetkis = 1: set odekisB[numdress] = bedra
if odetnewclo = 1: set newcloB[numdress] = bedra
--- portnoi ---------------------------------

# portnoi1
if $ARGS[0] = 'start':
gs 'stat'
cla

if odetjeans = 1 and numdress ! 1 and jeans[1] = 1 or odetjeans = 0 and jeans[1] = 1: 'Jeans 1 (strength <<jeansH[1]>>, hip size <<jeansB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans = 1 and numdress ! 2 and jeans[2] = 1 or odetjeans = 0 and jeans[2] = 1: 'Jeans 2 (strength <<jeansH[2]>>, hip size <<jeansB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans = 1 and numdress ! 3 and jeans[3] = 1 or odetjeans = 0 and jeans[3] = 1: 'Jeans 3 (strength <<jeansH[3]>>, hip size <<jeansB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans = 1 and numdress ! 4 and jeans[4] = 1 or odetjeans = 0 and jeans[4] = 1: 'Jeans 4 (strength <<jeansH[4]>> The size of the thighs <<jeansB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans = 1 and numdress ! 5 and jeans[5] = 1 or odetjeans = 0 and jeans[5] = 1: 'Jeans 5 (strength <<jeansH[5]>>, hip size <<jeansB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''jeans''">to take in</a>'

if odetshort = 1 and numdress ! 1 and short[1] = 1 or odetshort = 0 and short[1] = 1: 'Black shorts with a purple T-shirt (strength <<shortH[1]>>, hip size <<shortB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''short''">to take in</a>'
if odetshort = 1 and numdress ! 2 and short[2] = 1 or odetshort = 0 and short[2] = 1: 'Black shorts with striped jersey (strength <<shortH[2]>>, hip size <<shortB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''short''">to take in</a>'
if odetshort = 1 and numdress ! 3 and short[3] = 1 or odetshort = 0 and short[3] = 1: 'Black shorts with a black T-shirt (strength <<shortH[3]>>, hip size <<shortB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''short''">to take in</a>'
if odetshort = 1 and numdress ! 4 and short[4] = 1 or odetshort = 0 and short[4] = 1: 'Pink shorts with pink tops (strength <<shortH[4]>>, hip size <<shortB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''short''">to take in</a>'
if odetshort = 1 and numdress ! 5 and short[5] = 1 or odetshort = 0 and short[5] = 1: 'Sexy white shorts (strength <<shortH[5]>>, hip size <<shortB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''short''">to take in</a>'

if odetskirt = 1 and numdress ! 1 and skirt[1] = 1 or odetskirt = 0 and skirt[1] = 1: 'White skirt with a colorful blouse (strength <<skirtH[1]>>, hip size <<skirtB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt = 1 and numdress ! 2 and skirt[2] = 1 or odetskirt = 0 and skirt[2] = 1: 'Black leather skirt with a red sweater (strength <<skirtH[2]>>, hip size <<skirtB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt = 1 and numdress ! 3 and skirt[3] = 1 or odetskirt = 0 and skirt[3] = 1: 'White skirt with striped blouse (strength <<skirtH[3]>>, hip size <<skirtB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt = 1 and numdress ! 4 and skirt[4] = 1 or odetskirt = 0 and skirt[4] = 1: 'White skirt with a colorful blouse (strength <<skirtH[4]>>, hip size <<skirtB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt = 1 and numdress ! 5 and skirt[5] = 1 or odetskirt = 0 and skirt[5] = 1: 'Black leather skirt with a red blouse (strength <<skirtH[5]>>, hip size <<skirtB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''skirt''">to take in</a>'

if odetdress = 1 and numdress ! 1 and dress[1] = 1 or odetdress = 0 and dress[1] = 1: 'Black dress (strength <<dressH[1]>>, hip size <<dressB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 2 and dress[2] = 1 or odetdress = 0 and dress[2] = 1: 'Yellow dress (strength <<dressH[2]>>, hip size <<dressB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 3 and dress[3] = 1 or odetdress = 0 and dress[3] = 1: 'Blue dress (strength <<dressH[3]>>, hip size <<dressB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 4 and dress[4] = 1 or odetdress = 0 and dress[4] = 1: 'Black short dress (strength <<dressH[4]>>, hip size <<dressB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 5 and dress[5] = 1 or odetdress = 0 and dress[5] = 1: 'Red long dress (strength <<dressH[5]>>, hip size <<dressB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 6 and dress[6] = 1 or odetdress = 0 and dress[6] = 1: 'Red polka dot dress (strength <<dressH[6]>>, hip size <<dressB[6]>>) <a href="exec: set numdres = 6 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 7 and dress[7] = 1 or odetdress = 0 and dress[7] = 1: 'Brown dress (strength <<dressH[7]>>, hip size <<dressB[7]>>) <a href="exec: set numdres = 7 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 8 and dress[8] = 1 or odetdress = 0 and dress[8] = 1: 'Dress 8 (strength <<dressH[8]>>, hip size <<dressB[8]>>) <a href="exec: set numdres = 8 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 9 and dress[9] = 1 or odetdress = 0 and dress[9] = 1: 'Dress 9 (strength <<dressH[9]>>, hip size <<dressB[9]>>) <a href="exec: set numdres = 9 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 10 and dress[10] = 1 or odetdress = 0 and dress[10] = 1: 'dress 10 (strength <<dressH[10]>>, hip size <<dressB[10]>>) <a href="exec: set numdres = 10 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 11 and dress[11] = 1 or odetdress = 0 and dress[11] = 1: 'Dress 11 (strength <<dressH[11]>>, hip size <<dressB[11]>>) <a href="exec: set numdres = 11 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 12 and dress[12] = 1 or odetdress = 0 and dress[12] = 1: 'Dress 12 (strength <<dressH[12]>>, hip size <<dressB[12]>>) <a href="exec: set numdres = 12 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 13 and dress[13] = 1 or odetdress = 0 and dress[13] = 1: 'Dress 13 (strength <<dressH[13]>>, hip size <<dressB[13]>>) <a href="exec: set numdres = 13 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 14 and dress[14] = 1 or odetdress = 0 and dress[14] = 1: 'Dress 14 (strength <<dressH[14]>>, hip size <<dressB[14]>>) <a href="exec: set numdres = 14 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 15 and dress[15] = 1 or odetdress = 0 and dress[15] = 1: 'Dress 15 (strength <<dressH[15]>>, hip size <<dressB[15]>>) <a href="exec: set numdres = 15 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 16 and dress[16] = 1 or odetdress = 0 and dress[16] = 1: 'Dress 16 (strength <<dressH[16]>>, hip size <<dressB[16]>>) <a href="exec: set numdres = 16 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 17 and dress[17] = 1 or odetdress = 0 and dress[17] = 1: 'Dress 17 (strength <<dressH[17]>>, hip size <<dressB[17]>>) <a href="exec: set numdres = 17 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 18 and dress[18] = 1 or odetdress = 0 and dress[18] = 1: 'Dress 18 (strength <<dressH[18]>>, hip size <<dressB[18]>>) <a href="exec: set numdres = 18 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 19 and dress[19] = 1 or odetdress = 0 and dress[19] = 1: 'Dress 19 (strength <<dressH[19]>>, hip size <<dressB[19]>>) <a href="exec: set numdres = 19 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 20 and dress[20] = 1 or odetdress = 0 and dress[20] = 1: 'Dress 20 (strength <<dressH[20]>>, hip size <<dressB[20]>>) <a href="exec: set numdres = 20 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 21 and dress[21] = 1 or odetdress = 0 and dress[21] = 1: 'Dress 21 (strength <<dressH[21]>>, hip size <<dressB[21]>>) <a href="exec: set numdres = 21 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 22 and dress[22] = 1 or odetdress = 0 and dress[22] = 1: 'Dress 22 (strength <<dressH[22]>>, hip size <<dressB[22]>>) <a href="exec: set numdres = 22 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 23 and dress[23] = 1 or odetdress = 0 and dress[23] = 1: 'Dress 23 (strength <<dressH[23]>>, hip size <<dressB[23]>>) <a href="exec: set numdres = 23 & GT ''portnoi1'',''dress''">to take in</a>'
if odetdress = 1 and numdress ! 24 and dress[24] = 1 or odetdress = 0 and dress[24] = 1: 'dress 24 (strength <<dressH[24]>>, hip size <<dressB[24]>>) <a href="exec: set numdres = 24 & GT ''portnoi1'',''dress''">to take in</a>'

if odetprofi = 1 and numdress ! 1 and profi[1] = 1 or odetprofi = 0 and profi[1] = 1: 'Office clothes 1 (strength <<profiH[1]>>, hip size <<profiB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 2 and profi[2] = 1 or odetprofi = 0 and profi[2] = 1: 'Office dress 2 (strength <<profiH[2]>>, hip size <<profiB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''profi''">to take in</a>'

if odetpants = 1 and numdress ! 1 and pants[1] = 1 or odetpants = 0 and pants[1] = 1: 'Tight black leggings with black top (strength <<pantsH[1]>>, hip size <<pantsB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''pants''">to take in</a>'
if odetpants = 1 and numdress ! 2 and pants[2] = 1 or odetpants = 0 and pants[2] = 1: 'Tight black leggings with a red blouse (strength <<pantsH[2]>>, hip size <<pantsB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''pants''">to take in</a>'
if odetpants = 1 and numdress ! 3 and pants[3] = 1 or odetpants = 0 and pants[3] = 1: 'Purple skinny leggings with black top (strength <<pantsH[3]>>, hip size <<pantsB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''pants''">to take in</a>'
if odetpants = 1 and numdress ! 4 and pants[4] = 1 or odetpants = 0 and pants[4] = 1: 'Tight black leggings with black short topic (strength <<pantsH[4]>>, hip size <<pantsB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''pants''">to take in</a>'
if odetpants = 1 and numdress ! 5 and pants[5] = 1 or odetpants = 0 and pants[5] = 1: 'White skinny jeans with a black top (strength <<pantsH[5]>>, hip size <<pantsB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''pants''">to take in</a>'

if odetlatex = 1 and numdress ! 1 and latex[1] = 1 or odetlatex = 0 and latex[1] = 1: 'Black latex bodysuit (strength <<latexH[1]>>, hip size <<latexB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''latex''">to take in</a>'
if odetlatex = 1 and numdress ! 2 and latex[2] = 1 or odetlatex = 0 and latex[2] = 1: 'Purple latex dress (strength <<latexH[2]>>, hip size <<latexB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''latex''">to take in</a>'

if odethooker = 1 and numdress ! 1 and hooker[1] = 1 or odethooker = 0 and hooker[1] = 1: 'Prostitute outfit number 1 (strength <<hookerH[1]>>, hip size <<hookerB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''hooker''">to take in</a>'
if odethooker = 1 and numdress ! 2 and hooker[2] = 1 or odethooker = 0 and hooker[2] = 1: 'Prostitute outfit number 2 (strength <<hookerH[2]>>, hip size <<hookerB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''hooker''">to take in</a>'
if odethooker = 1 and numdress ! 3 and hooker[3] = 1 or odethooker = 0 and hooker[3] = 1: 'Prostitute outfit number 3 (strength <<hookerH[3]>>, hip size <<hookerB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''hooker''">to take in</a>'
if odethooker = 1 and numdress ! 4 and hooker[4] = 1 or odethooker = 0 and hooker[4] = 1: 'Outfit number 4 prostitute (strength <<hookerH[4]>>, hip size <<hookerB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''hooker''">to take in</a>'
if odethooker = 1 and numdress ! 5 and hooker[5] = 1 or odethooker = 0 and hooker[5] = 1: 'Prostitute outfit number 5 (strength <<hookerH[5]>>, hip size <<hookerB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''hooker''">to take in</a>'

if odetkis = 1 and numdress ! 1 and odekis[1] = 1 or odetkis = 0 and odekis[1] = 1: 'Youth outfit number 1 (strength <<odekisH[1]>>, hip size <<odekisB[1]>>) <a href="exec: set numdres = 1 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 2 and odekis[2] = 1 or odetkis = 0 and odekis[2] = 1: 'Youth outfit number 2 (strength <<odekisH[2]>>, hip size <<odekisB[2]>>) <a href="exec: set numdres = 2 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 3 and odekis[3] = 1 or odetkis = 0 and odekis[3] = 1: 'Youth outfit number 3 (strength <<odekisH[3]>>, hip size <<odekisB[3]>>) <a href="exec: set numdres = 3 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 4 and odekis[4] = 1 or odetkis = 0 and odekis[4] = 1: 'Youth outfit number 4 (strength <<odekisH[4]>>, hip size <<odekisB[4]>>) <a href="exec: set numdres = 4 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 5 and odekis[5] = 1 or odetkis = 0 and odekis[5] = 1: 'Youth outfit number 5 (strength <<odekisH[5]>>, hip size <<odekisB[5]>>) <a href="exec: set numdres = 5 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 6 and odekis[6] = 1 or odetkis = 0 and odekis[6] = 1: 'Youth outfit number 6 (strength <<odekisH[6]>>, hip size <<odekisB[6]>>) <a href="exec: set numdres = 6 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 7 and odekis[7] = 1 or odetkis = 0 and odekis[7] = 1: 'Youth outfit number 7 (strength <<odekisH[7]>>, hip size <<odekisB[7]>>) <a href="exec: set numdres = 7 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 8 and odekis[8] = 1 or odetkis = 0 and odekis[8] = 1: 'Youth outfit number 8 (strength <<odekisH[8]>>, hip size <<odekisB[8]>>) <a href="exec: set numdres = 8 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 9 and odekis[9] = 1 or odetkis = 0 and odekis[9] = 1: 'Youth outfit number 9 (strength <<odekisH[9]>>, hip size <<odekisB[9]>>) <a href="exec: set numdres = 9 & GT ''portnoi1'',''odekis''">to take in</a>'
if odetkis = 1 and numdress ! 10 and odekis[10] = 1 or odetkis = 0 and odekis[10] = 1: 'Youth outfit number 10 (strength <<odekisH[10]>>, hip size <<odekisB[10]>>) <a href="exec: set numdres = 10 & GT ''portnoi1'',''odekis''">to take in</a>'

if odetnewclo = 1 and numdress ! 1 and newclo[1] = 1 or odetnewclo = 0 and newclo[1] = 1: 'Fashionista´s  number 1 (strength <<newcloH[1]>>, hip size <<newcloB[1]>>) <a href="exec: numdres = 1 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 2 and newclo[2] = 1 or odetnewclo = 0 and newclo[2] = 1: 'Fashionista´s  number 2 (strength <<newcloH[2]>>, hip size <<newcloB[2]>>) <a href="exec: numdres = 2 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 3 and newclo[3] = 1 or odetnewclo = 0 and newclo[3] = 1: 'Fashionista´s  number 3 (strength <<newcloH[3]>>, hip size <<newcloB[3]>>) <a href="exec: numdres = 3 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 4 and newclo[4] = 1 or odetnewclo = 0 and newclo[4] = 1: 'Fashionista´s  number 4 (strength <<newcloH[4]>>, hip size <<newcloB[4]>>) <a href="exec: numdres = 4 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 5 and newclo[5] = 1 or odetnewclo = 0 and newclo[5] = 1: 'Fashionista´s  number 5 (strength <<newcloH[5]>>, hip size <<newcloB[5]>>) <a href="exec: numdres = 5 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 6 and newclo[6] = 1 or odetnewclo = 0 and newclo[6] = 1: 'Fashionista´s  number 6 (strength <<newcloH[6]>>, hip size <<newcloB[6]>>) <a href="exec: numdres = 6 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 7 and newclo[7] = 1 or odetnewclo = 0 and newclo[7] = 1: 'Fashionista´s  number 7 (strength <<newcloH[7]>>, hip size <<newcloB[7]>>) <a href="exec: numdres = 7 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 8 and newclo[8] = 1 or odetnewclo = 0 and newclo[8] = 1: 'Fashionista´s  number 8 (strength <<newcloH[8]>>, hip size <<newcloB[8]>>) <a href="exec: numdres = 8 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 9 and newclo[9] = 1 or odetnewclo = 0 and newclo[9] = 1: 'Fashionista´s  number 9 (strength <<newcloH[9]>>, hip size <<newcloB[9]>>) <a href="exec: numdres = 9 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 10 and newclo[10] = 1 or odetnewclo = 0 and newclo[10] = 1: 'Fashionista´s  number 10 (strength <<newcloH[10]>>, hip size <<newcloB[10]>>) <a href="exec: numdres = 10 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 11 and newclo[11] = 1 or odetnewclo = 0 and newclo[11] = 1: 'Fashionista´s  number 11 (strength <<newcloH[11]>>, hip size <<newcloB[11]>>) <a href="exec: numdres = 11 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 12 and newclo[12] = 1 or odetnewclo = 0 and newclo[12] = 1: 'Fashionista´s  number 12 (strength <<newcloH[12]>>, hip size <<newcloB[12]>>) <a href="exec: numdres = 12 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 13 and newclo[13] = 1 or odetnewclo = 0 and newclo[13] = 1: 'Fashionista´s  number 13 (strength <<newcloH[13]>>, hip size <<newcloB[13]>>) <a href="exec: numdres = 13 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 14 and newclo[14] = 1 or odetnewclo = 0 and newclo[14] = 1: 'Fashionista´s  number 14 (strength <<newcloH[14]>>, hip size <<newcloB[14]>>) <a href="exec: numdres = 14 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 15 and newclo[15] = 1 or odetnewclo = 0 and newclo[15] = 1: 'Fashionista´s  number 15 (strength <<newcloH[15]>>, hip size <<newcloB[15]>>) <a href="exec: numdres = 15 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 16 and newclo[16] = 1 or odetnewclo = 0 and newclo[16] = 1: 'Fashionista´s  number 16 (strength <<newcloH[16]>>, hip size <<newcloB[16]>>) <a href="exec: numdres = 16 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 17 and newclo[17] = 1 or odetnewclo = 0 and newclo[17] = 1: 'Fashionista´s  number 17 (strength <<newcloH[17]>>, hip size <<newcloB[17]>>) <a href="exec: numdres = 17 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 18 and newclo[18] = 1 or odetnewclo = 0 and newclo[18] = 1: 'Fashionista´s  number 18 (strength <<newcloH[18]>>, hip size <<newcloB[18]>>) <a href="exec: numdres = 18 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 19 and newclo[19] = 1 or odetnewclo = 0 and newclo[19] = 1: 'Fashionista´s  number 19 (strength <<newcloH[19]>>, hip size <<newcloB[19]>>) <a href="exec: numdres = 19 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 20 and newclo[20] = 1 or odetnewclo = 0 and newclo[20] = 1: 'Fashionista´s  number 20 (strength <<newcloH[20]>>, hip size <<newcloB[20]>>) <a href="exec: numdres = 20 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 21 and newclo[21] = 1 or odetnewclo = 0 and newclo[21] = 1: 'Fashionista´s  number 21 (strength <<newcloH[21]>>, hip size <<newcloB[21]>>) <a href="exec: numdres = 21 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 22 and newclo[22] = 1 or odetnewclo = 0 and newclo[22] = 1: 'Fashionista´s  number 22 (strength <<newcloH[22]>>, hip size <<newcloB[22]>>) <a href="exec: numdres = 22 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 23 and newclo[23] = 1 or odetnewclo = 0 and newclo[23] = 1: 'Fashionista´s  number 23 (strength <<newcloH[23]>>, hip size <<newcloB[23]>>) <a href="exec: numdres = 23 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 24 and newclo[24] = 1 or odetnewclo = 0 and newclo[24] = 1: 'Fashionista´s  number 24 (strength <<newcloH[24]>>, hip size <<newcloB[24]>>) <a href="exec: numdres = 24 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 25 and newclo[25] = 1 or odetnewclo = 0 and newclo[25] = 1: 'Fashionista´s  number 25 (strength <<newcloH[25]>>, hip size <<newcloB[25]>>) <a href="exec: numdres = 25 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 26 and newclo[26] = 1 or odetnewclo = 0 and newclo[26] = 1: 'Fashionista´s  number 26 (strength <<newcloH[26]>>, hip size <<newcloB[26]>>) <a href="exec: numdres = 26 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 27 and newclo[27] = 1 or odetnewclo = 0 and newclo[27] = 1: 'Fashionista´s  number 27 (strength <<newcloH[27]>>, hip size <<newcloB[27]>>) <a href="exec: numdres = 27 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 28 and newclo[28] = 1 or odetnewclo = 0 and newclo[28] = 1: 'Fashionista´s  number 28 (strength <<newcloH[28]>>, hip size <<newcloB[28]>>) <a href="exec: numdres = 28 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 29 and newclo[29] = 1 or odetnewclo = 0 and newclo[29] = 1: 'Fashionista´s  number 29 (strength <<newcloH[29]>>, hip size <<newcloB[29]>>) <a href="exec: numdres = 29 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 30 and newclo[30] = 1 or odetnewclo = 0 and newclo[30] = 1: 'Fashionista´s  number 30 (strength <<newcloH[30]>>, hip size <<newcloB[30]>>) <a href="exec: numdres = 30 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 31 and newclo[31] = 1 or odetnewclo = 0 and newclo[31] = 1: 'Fashionista´s  number 31 (strength <<newcloH[31]>>, hip size <<newcloB[31]>>) <a href="exec: numdres = 31 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 32 and newclo[32] = 1 or odetnewclo = 0 and newclo[32] = 1: 'Fashionista´s  number 32 (strength <<newcloH[32]>>, hip size <<newcloB[32]>>) <a href="exec: numdres = 32 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 33 and newclo[33] = 1 or odetnewclo = 0 and newclo[33] = 1: 'Fashionista´s  number 33 (strength <<newcloH[33]>>, hip size <<newcloB[33]>>) <a href="exec: numdres = 33 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 34 and newclo[34] = 1 or odetnewclo = 0 and newclo[34] = 1: 'Fashionista´s  number 34 (strength <<newcloH[34]>>, hip size <<newcloB[34]>>) <a href="exec: numdres = 34 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 35 and newclo[35] = 1 or odetnewclo = 0 and newclo[35] = 1: 'Fashionista´s  number 35 (strength <<newcloH[35]>>, hip size <<newcloB[35]>>) <a href="exec: numdres = 35 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 36 and newclo[36] = 1 or odetnewclo = 0 and newclo[36] = 1: 'Fashionista´s  number 36 (strength <<newcloH[36]>>, hip size <<newcloB[36]>>) <a href="exec: numdres = 36 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 37 and newclo[37] = 1 or odetnewclo = 0 and newclo[37] = 1: 'Fashionista´s  number 37 (strength <<newcloH[37]>>, hip size <<newcloB[37]>>) <a href="exec: numdres = 37 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 38 and newclo[38] = 1 or odetnewclo = 0 and newclo[38] = 1: 'Fashionista´s  number 38 (strength <<newcloH[38]>>, hip size <<newcloB[38]>>) <a href="exec: numdres = 38 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 39 and newclo[39] = 1 or odetnewclo = 0 and newclo[39] = 1: 'Fashionista´s  number 39 (strength <<newcloH[39]>>, hip size <<newcloB[39]>>) <a href="exec: numdres = 39 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 40 and newclo[40] = 1 or odetnewclo = 0 and newclo[40] = 1: 'Fashionista´s  number 40 (strength <<newcloH[40]>>, hip size <<newcloB[40]>>) <a href="exec: numdres = 40 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 41 and newclo[41] = 1 or odetnewclo = 0 and newclo[41] = 1: 'Fashionista´s  number 41 (strength <<newcloH[41]>>, hip size <<newcloB[41]>>) <a href="exec: numdres = 41 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 42 and newclo[42] = 1 or odetnewclo = 0 and newclo[42] = 1: 'Fashionista´s  number 42 (strength <<newcloH[42]>>, hip size <<newcloB[42]>>) <a href="exec: numdres = 42 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 43 and newclo[43] = 1 or odetnewclo = 0 and newclo[43] = 1: 'Fashionista´s  number 43 (strength <<newcloH[43]>>, hip size <<newcloB[43]>>) <a href="exec: numdres = 43 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 44 and newclo[44] = 1 or odetnewclo = 0 and newclo[44] = 1: 'Fashionista´s  number 44 (strength <<newcloH[44]>>, hip size <<newcloB[44]>>) <a href="exec: numdres = 44 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 45 and newclo[45] = 1 or odetnewclo = 0 and newclo[45] = 1: 'Fashionista´s  number 45 (strength <<newcloH[45]>>, hip size <<newcloB[45]>>) <a href="exec: numdres = 45 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 46 and newclo[46] = 1 or odetnewclo = 0 and newclo[46] = 1: 'Fashionista´s  number 46 (strength <<newcloH[46]>>, hip size <<newcloB[46]>>) <a href="exec: numdres = 46 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 47 and newclo[47] = 1 or odetnewclo = 0 and newclo[47] = 1: 'Fashionista´s  number 47 (strength <<newcloH[47]>>, hip size <<newcloB[47]>>) <a href="exec: numdres = 47 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 48 and newclo[48] = 1 or odetnewclo = 0 and newclo[48] = 1: 'Fashionista´s  number 48 (strength <<newcloH[48]>>, hip size <<newcloB[48]>>) <a href="exec: numdres = 48 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 49 and newclo[49] = 1 or odetnewclo = 0 and newclo[49] = 1: 'Fashionista´s  number 49 (strength <<newcloH[49]>>, hip size <<newcloB[49]>>) <a href="exec: numdres = 49 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 50 and newclo[50] = 1 or odetnewclo = 0 and newclo[50] = 1: 'Fashionista´s  number 50 (strength <<newcloH[50]>>, hip size <<newcloB[50]>>) <a href="exec: numdres = 50 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 51 and newclo[51] = 1 or odetnewclo = 0 and newclo[51] = 1: 'Fashionista´s  number 51 (strength <<newcloH[51]>>, hip size <<newcloB[51]>>) <a href="exec: numdres = 51 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 52 and newclo[52] = 1 or odetnewclo = 0 and newclo[52] = 1: 'Fashionista´s  number 52 (strength <<newcloH[52]>>, hip size <<newcloB[52]>>) <a href="exec: numdres = 52 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 53 and newclo[53] = 1 or odetnewclo = 0 and newclo[53] = 1: 'Fashionista´s  number 53 (strength <<newcloH[53]>>, hip size <<newcloB[53]>>) <a href="exec: numdres = 53 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 54 and newclo[54] = 1 or odetnewclo = 0 and newclo[54] = 1: 'Fashionista´s  number 54 (strength <<newcloH[54]>>, hip size <<newcloB[54]>>) <a href="exec: numdres = 54 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 55 and newclo[55] = 1 or odetnewclo = 0 and newclo[55] = 1: 'Fashionista´s  number 55 (strength <<newcloH[55]>>, hip size <<newcloB[55]>>) <a href="exec: numdres = 55 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 56 and newclo[56] = 1 or odetnewclo = 0 and newclo[56] = 1: 'Fashionista´s  number 56 (strength <<newcloH[56]>>, hip size <<newcloB[56]>>) <a href="exec: numdres = 56 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 57 and newclo[57] = 1 or odetnewclo = 0 and newclo[57] = 1: 'Fashionista´s  number 57 (strength <<newcloH[57]>>, hip size <<newcloB[57]>>) <a href="exec: numdres = 57 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 58 and newclo[58] = 1 or odetnewclo = 0 and newclo[58] = 1: 'Fashionista´s  number 58 (strength <<newcloH[58]>>, hip size <<newcloB[58]>>) <a href="exec: numdres = 58 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 59 and newclo[59] = 1 or odetnewclo = 0 and newclo[59] = 1: 'Fashionista´s  number 59 (strength <<newcloH[59]>>, hip size <<newcloB[59]>>) <a href="exec: numdres = 59 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 60 and newclo[60] = 1 or odetnewclo = 0 and newclo[60] = 1: 'Fashionista´s  number 60 (strength <<newcloH[60]>>, hip size <<newcloB[60]>>) <a href="exec: numdres = 60 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 61 and newclo[61] = 1 or odetnewclo = 0 and newclo[61] = 1: 'Fashionista´s  number 61 (strength <<newcloH[61]>>, hip size <<newcloB[61]>>) <a href="exec: numdres = 61 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 62 and newclo[62] = 1 or odetnewclo = 0 and newclo[62] = 1: 'Fashionista´s  number 62 (strength <<newcloH[62]>>, hip size <<newcloB[62]>>) <a href="exec: numdres = 62 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 63 and newclo[63] = 1 or odetnewclo = 0 and newclo[63] = 1: 'Fashionista´s  number 63 (strength <<newcloH[63]>>, hip size <<newcloB[63]>>) <a href="exec: numdres = 63 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 64 and newclo[64] = 1 or odetnewclo = 0 and newclo[64] = 1: 'Fashionista´s  number 64 (strength <<newcloH[64]>>, hip size <<newcloB[64]>>) <a href="exec: numdres = 64 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 65 and newclo[65] = 1 or odetnewclo = 0 and newclo[65] = 1: 'Fashionista´s  number 65 (strength <<newcloH[65]>>, hip size <<newcloB[65]>>) <a href="exec: numdres = 65 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 66 and newclo[66] = 1 or odetnewclo = 0 and newclo[66] = 1: 'Fashionista´s  number 66 (strength <<newcloH[66]>>, hip size <<newcloB[66]>>) <a href="exec: numdres = 66 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 67 and newclo[67] = 1 or odetnewclo = 0 and newclo[67] = 1: 'Fashionista´s  number 67 (strength <<newcloH[67]>>, hip size <<newcloB[67]>>) <a href="exec: numdres = 67 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 68 and newclo[68] = 1 or odetnewclo = 0 and newclo[68] = 1: 'Fashionista´s  number 68 (strength <<newcloH[68]>>, hip size <<newcloB[68]>>) <a href="exec: numdres = 68 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 69 and newclo[69] = 1 or odetnewclo = 0 and newclo[69] = 1: 'Fashionista´s  number 69 (strength <<newcloH[69]>>, hip size <<newcloB[69]>>) <a href="exec: numdres = 69 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 70 and newclo[70] = 1 or odetnewclo = 0 and newclo[70] = 1: 'Fashionista´s  number 70 (strength <<newcloH[70]>>, hip size <<newcloB[70]>>) <a href="exec: numdres = 70 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 71 and newclo[71] = 1 or odetnewclo = 0 and newclo[71] = 1: 'Fashionista´s  number 71 (strength <<newcloH[71]>>, hip size <<newcloB[71]>>) <a href="exec: numdres = 71 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 72 and newclo[72] = 1 or odetnewclo = 0 and newclo[72] = 1: 'Fashionista´s  number 72 (strength <<newcloH[72]>>, hip size <<newcloB[72]>>) <a href="exec: numdres = 72 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 73 and newclo[73] = 1 or odetnewclo = 0 and newclo[73] = 1: 'Fashionista´s  number 73 (strength <<newcloH[73]>>, hip size <<newcloB[73]>>) <a href="exec: numdres = 73 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 74 and newclo[74] = 1 or odetnewclo = 0 and newclo[74] = 1: 'Fashionista´s  number 74 (strength <<newcloH[74]>>, hip size <<newcloB[74]>>) <a href="exec: numdres = 74 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 75 and newclo[75] = 1 or odetnewclo = 0 and newclo[75] = 1: 'Fashionista´s  number 75 (strength <<newcloH[75]>>, hip size <<newcloB[75]>>) <a href="exec: numdres = 75 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 76 and newclo[76] = 1 or odetnewclo = 0 and newclo[76] = 1: 'Fashionista´s  number 76 (strength <<newcloH[76]>>, hip size <<newcloB[76]>>) <a href="exec: numdres = 76 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 77 and newclo[77] = 1 or odetnewclo = 0 and newclo[77] = 1: 'Fashionista´s  number 77 (strength <<newcloH[77]>>, hip size <<newcloB[77]>>) <a href="exec: numdres = 77 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 78 and newclo[78] = 1 or odetnewclo = 0 and newclo[78] = 1: 'Fashionista´s  number 78 (strength <<newcloH[78]>>, hip size <<newcloB[78]>>) <a href="exec: numdres = 78 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 79 and newclo[79] = 1 or odetnewclo = 0 and newclo[79] = 1: 'Fashionista´s  number 79 (strength <<newcloH[79]>>, hip size <<newcloB[79]>>) <a href="exec: numdres = 79 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 80 and newclo[80] = 1 or odetnewclo = 0 and newclo[80] = 1: 'Fashionista´s  number 80 (strength <<newcloH[80]>>, hip size <<newcloB[80]>>) <a href="exec: numdres = 80 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 81 and newclo[81] = 1 or odetnewclo = 0 and newclo[81] = 1: 'Fashionista´s  number 81 (strength <<newcloH[81]>>, hip size <<newcloB[81]>>) <a href="exec: numdres = 81 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 82 and newclo[82] = 1 or odetnewclo = 0 and newclo[82] = 1: 'Fashionista´s  number 82 (strength <<newcloH[82]>>, hip size <<newcloB[82]>>) <a href="exec: numdres = 82 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 83 and newclo[83] = 1 or odetnewclo = 0 and newclo[83] = 1: 'Fashionista´s  number 83 (strength <<newcloH[83]>>, hip size <<newcloB[83]>>) <a href="exec: numdres = 83 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 84 and newclo[84] = 1 or odetnewclo = 0 and newclo[84] = 1: 'Fashionista´s  number 84 (strength <<newcloH[84]>>, hip size <<newcloB[84]>>) <a href="exec: numdres = 84 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 85 and newclo[85] = 1 or odetnewclo = 0 and newclo[85] = 1: 'Fashionista´s  number 85 (strength <<newcloH[85]>>, hip size <<newcloB[85]>>) <a href="exec: numdres = 85 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 86 and newclo[86] = 1 or odetnewclo = 0 and newclo[86] = 1: 'Fashionista´s  number 86 (strength <<newcloH[86]>>, hip size <<newcloB[86]>>) <a href="exec: numdres = 86 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 87 and newclo[87] = 1 or odetnewclo = 0 and newclo[87] = 1: 'Fashionista´s  number 87 (strength <<newcloH[87]>>, hip size <<newcloB[87]>>) <a href="exec: numdres = 87 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 88 and newclo[88] = 1 or odetnewclo = 0 and newclo[88] = 1: 'Fashionista´s  number 88 (strength <<newcloH[88]>>, hip size <<newcloB[88]>>) <a href="exec: numdres = 88 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 89 and newclo[89] = 1 or odetnewclo = 0 and newclo[89] = 1: 'Fashionista´s  number 89 (strength <<newcloH[89]>>, hip size <<newcloB[89]>>) <a href="exec: numdres = 89 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 90 and newclo[90] = 1 or odetnewclo = 0 and newclo[90] = 1: 'Fashionista´s  number 90 (strength <<newcloH[90]>>, hip size <<newcloB[90]>>) <a href="exec: numdres = 90 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 91 and newclo[91] = 1 or odetnewclo = 0 and newclo[91] = 1: 'Fashionista´s  number 91 (strength <<newcloH[91]>>, hip size <<newcloB[91]>>) <a href="exec: numdres = 91 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 92 and newclo[92] = 1 or odetnewclo = 0 and newclo[92] = 1: 'Fashionista´s  number 92 (strength <<newcloH[92]>>, hip size <<newcloB[92]>>) <a href="exec: numdres = 92 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 93 and newclo[93] = 1 or odetnewclo = 0 and newclo[93] = 1: 'Fashionista´s  number 93 (strength <<newcloH[93]>>, hip size <<newcloB[93]>>) <a href="exec: numdres = 93 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 94 and newclo[94] = 1 or odetnewclo = 0 and newclo[94] = 1: 'Fashionista´s  number 94 (strength <<newcloH[94]>>, hip size <<newcloB[94]>>) <a href="exec: numdres = 94 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 95 and newclo[95] = 1 or odetnewclo = 0 and newclo[95] = 1: 'Fashionista´s  number 95 (strength <<newcloH[95]>>, hip size <<newcloB[95]>>) <a href="exec: numdres = 95 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 96 and newclo[96] = 1 or odetnewclo = 0 and newclo[96] = 1: 'Fashionista´s  number 96 (strength <<newcloH[96]>>, hip size <<newcloB[96]>>) <a href="exec: numdres = 96 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 97 and newclo[97] = 1 or odetnewclo = 0 and newclo[97] = 1: 'Fashionista´s  number 97 (strength <<newcloH[97]>>, hip size <<newcloB[97]>>) <a href="exec: numdres = 97 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 98 and newclo[98] = 1 or odetnewclo = 0 and newclo[98] = 1: 'Fashionista´s  number 98 (strength <<newcloH[98]>>, hip size <<newcloB[98]>>) <a href="exec: numdres = 98 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 99 and newclo[99] = 1 or odetnewclo = 0 and newclo[99] = 1: 'Fashionista´s  number 99 (strength <<newcloH[99]>>, hip size <<newcloB[99]>>) <a href="exec: numdres = 99 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 100 and newclo[100] = 1 or odetnewclo = 0 and newclo[100] = 1: 'Fashionista´s  number 100 (strength <<newcloH[100]>>, hip size <<newcloB[100]>>) <a href="exec: numdres = 100 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 101 and newclo[101] = 1 or odetnewclo = 0 and newclo[101] = 1: 'Fashionista´s  number 101 (strength <<newcloH[101]>>, hip size <<newcloB[101]>>) <a href="exec: numdres = 101 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 102 and newclo[102] = 1 or odetnewclo = 0 and newclo[102] = 1: 'Fashionista´s  number 102 (strength <<newcloH[102]>>, hip size <<newcloB[102]>>) <a href="exec: numdres = 102 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 103 and newclo[103] = 1 or odetnewclo = 0 and newclo[103] = 1: 'Fashionista´s  number 103 (strength <<newcloH[103]>>, hip size <<newcloB[103]>>) <a href="exec: numdres = 103 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 104 and newclo[104] = 1 or odetnewclo = 0 and newclo[104] = 1: 'Fashionista´s  number 104 (strength <<newcloH[104]>>, hip size <<newcloB[104]>>) <a href="exec: numdres = 104 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 105 and newclo[105] = 1 or odetnewclo = 0 and newclo[105] = 1: 'Fashionista´s  number 105 (strength <<newcloH[105]>>, hip size <<newcloB[105]>>) <a href="exec: numdres = 105 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 106 and newclo[106] = 1 or odetnewclo = 0 and newclo[106] = 1: 'Fashionista´s  number 106 (strength <<newcloH[106]>>, hip size <<newcloB[106]>>) <a href="exec: numdres = 106 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 107 and newclo[107] = 1 or odetnewclo = 0 and newclo[107] = 1: 'Fashionista´s  number 107 (strength <<newcloH[107]>>, hip size <<newcloB[107]>>) <a href="exec: numdres = 107 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 108 and newclo[108] = 1 or odetnewclo = 0 and newclo[108] = 1: 'Fashionista´s  number 108 (strength <<newcloH[108]>>, hip size <<newcloB[108]>>) <a href="exec: numdres = 108 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 109 and newclo[109] = 1 or odetnewclo = 0 and newclo[109] = 1: 'Fashionista´s  number 109 (strength <<newcloH[109]>>, hip size <<newcloB[109]>>) <a href="exec: numdres = 109 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 110 and newclo[110] = 1 or odetnewclo = 0 and newclo[110] = 1: 'Fashionista´s  number 110 (strength <<newcloH[110]>>, hip size <<newcloB[110]>>) <a href="exec: numdres = 110 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 111 and newclo[111] = 1 or odetnewclo = 0 and newclo[111] = 1: 'Fashionista´s  number 111 (strength <<newcloH[111]>>, hip size <<newcloB[111]>>) <a href="exec: numdres = 111 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 112 and newclo[112] = 1 or odetnewclo = 0 and newclo[112] = 1: 'Fashionista´s  number 112 (strength <<newcloH[112]>>, hip size <<newcloB[112]>>) <a href="exec: numdres = 112 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 113 and newclo[113] = 1 or odetnewclo = 0 and newclo[113] = 1: 'Fashionista´s  number 113 (strength <<newcloH[113]>>, hip size <<newcloB[113]>>) <a href="exec: numdres = 113 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 114 and newclo[114] = 1 or odetnewclo = 0 and newclo[114] = 1: 'Fashionista´s  number 114 (strength <<newcloH[114]>>, hip size <<newcloB[114]>>) <a href="exec: numdres = 114 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 115 and newclo[115] = 1 or odetnewclo = 0 and newclo[115] = 1: 'Fashionista´s  number 115 (strength <<newcloH[115]>>, hip size <<newcloB[115]>>) <a href="exec: numdres = 115 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 116 and newclo[116] = 1 or odetnewclo = 0 and newclo[116] = 1: 'Fashionista´s  number 116 (strength <<newcloH[116]>>, hip size <<newcloB[116]>>) <a href="exec: numdres = 116 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 117 and newclo[117] = 1 or odetnewclo = 0 and newclo[117] = 1: 'Fashionista´s  number 117 (strength <<newcloH[117]>>, hip size <<newcloB[117]>>) <a href="exec: numdres = 117 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 118 and newclo[118] = 1 or odetnewclo = 0 and newclo[118] = 1: 'Fashionista´s  number 118 (strength <<newcloH[118]>>, hip size <<newcloB[118]>>) <a href="exec: numdres = 118 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 119 and newclo[119] = 1 or odetnewclo = 0 and newclo[119] = 1: 'Fashionista´s  number 119 (strength <<newcloH[119]>>, hip size <<newcloB[119]>>) <a href="exec: numdres = 119 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 120 and newclo[120] = 1 or odetnewclo = 0 and newclo[120] = 1: 'Fashionista´s  number 120 (strength <<newcloH[120]>>, hip size <<newcloB[120]>>) <a href="exec: numdres = 120 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 121 and newclo[121] = 1 or odetnewclo = 0 and newclo[121] = 1: 'Fashionista´s  number 121 (strength <<newcloH[121]>>, hip size <<newcloB[121]>>) <a href="exec: numdres = 121 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 122 and newclo[122] = 1 or odetnewclo = 0 and newclo[122] = 1: 'Fashionista´s  number 122 (strength <<newcloH[122]>>, hip size <<newcloB[122]>>) <a href="exec: numdres = 122 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 123 and newclo[123] = 1 or odetnewclo = 0 and newclo[123] = 1: 'Fashionista´s  number 123 (strength <<newcloH[123]>>, hip size <<newcloB[123]>>) <a href="exec: numdres = 123 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 124 and newclo[124] = 1 or odetnewclo = 0 and newclo[124] = 1: 'Fashionista´s  number 124 (strength <<newcloH[124]>>, hip size <<newcloB[124]>>) <a href="exec: numdres = 124 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 125 and newclo[125] = 1 or odetnewclo = 0 and newclo[125] = 1: 'Fashionista´s  number 125 (strength <<newcloH[125]>>, hip size <<newcloB[125]>>) <a href="exec: numdres = 125 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 126 and newclo[126] = 1 or odetnewclo = 0 and newclo[126] = 1: 'Fashionista´s  number 126 (strength <<newcloH[126]>>, hip size <<newcloB[126]>>) <a href="exec: numdres = 126 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 127 and newclo[127] = 1 or odetnewclo = 0 and newclo[127] = 1: 'Fashionista´s  number 127 (strength <<newcloH[127]>>, hip size <<newcloB[127]>>) <a href="exec: numdres = 127 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 128 and newclo[128] = 1 or odetnewclo = 0 and newclo[128] = 1: 'Fashionista´s  number 128 (strength <<newcloH[128]>>, hip size <<newcloB[128]>>) <a href="exec: numdres = 128 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 129 and newclo[129] = 1 or odetnewclo = 0 and newclo[129] = 1: 'Fashionista´s  number 129 (strength <<newcloH[129]>>, hip size <<newcloB[129]>>) <a href="exec: numdres = 129 & GT ''portnoi1'',''newclo''">to take in</a>'
if odetnewclo = 1 and numdress ! 130 and newclo[130] = 1 or odetnewclo = 0 and newclo[130] = 1: 'Fashionista´s  number 130 (strength <<newcloH[130]>>, hip size <<newcloB[130]>>) <a href="exec: numdres = 130 & GT ''portnoi1'',''newclo''">to take in</a>'

if odetjeans=1 and numdress!201 and jeans[201]=1 or odetjeans=0 and jeans[201]=1:'Blue jeans with a grey tank top and a turquise hoodie. (The remaining strength <<jeansH[201]>> , The size of the hips <<jeansB[201]>>) <a href="exec:set numdres=201&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!202 and jeans[202]=1 or odetjeans=0 and jeans[202]=1:'Skin tight low-rise, dark blue jeans with a tight, purple tank top. (The remaining strength <<jeansH[202]>> , The size of the hips <<jeansB[202]>>) <a href="exec:set numdres=202&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!203 and jeans[203]=1 or odetjeans=0 and jeans[203]=1:'Skin tight dark blue jeans with a white tank top and a read hoodie. (The remaining strength <<jeansH[203]>> , The size of the hips <<jeansB[203]>>) <a href="exec:set numdres=203&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!204 and jeans[204]=1 or odetjeans=0 and jeans[204]=1:'Tight, torn light blue jeans with a bright purple T-Shirt, which has a deep, U-cut neckline. (The remaining strength <<jeansH[204]>> , The size of the hips <<jeansB[204]>>) <a href="exec:set numdres=204&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!205 and jeans[205]=1 or odetjeans=0 and jeans[205]=1:'Skin tight, low-rise and torn dark blue jeans with a white tank top and a black leather jacket. (The remaining strength <<jeansH[205]>> , The size of the hips <<jeansB[205]>>) <a href="exec:set numdres=205&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!206 and jeans[206]=1 or odetjeans=0 and jeans[206]=1:'Tight, low-rise dark blue jeans with a black tank top. (The remaining strength <<jeansH[206]>> , The size of the hips <<jeansB[206]>>) <a href="exec:set numdres=206&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!207 and jeans[207]=1 or odetjeans=0 and jeans[207]=1:'Skin tight, low-rise light blue jeans with a very short white tank top. (The remaining strength <<jeansH[207]>> , The size of the hips <<jeansB[207]>>) <a href="exec:set numdres=207&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!208 and jeans[208]=1 or odetjeans=0 and jeans[208]=1:'Skin tight blue jeans and a black tank top, which has a glittery pattern. It also has knee high boots. (The remaining strength <<jeansH[208]>> , The size of the hips <<jeansB[208]>>) <a href="exec:set numdres=208&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!209 and jeans[209]=1 or odetjeans=0 and jeans[209]=1:'Skin tight grey jeans and a neckholding brown top. (The remaining strength <<jeansH[209]>> , The size of the hips <<jeansB[209]>>) <a href="exec:set numdres=209&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!210 and jeans[210]=1 or odetjeans=0 and jeans[210]=1:'Light blue jeans with a white T-Shirt. (The remaining strength <<jeansH[210]>> , The size of the hips <<jeansB[210]>>) <a href="exec:set numdres=210&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!211 and jeans[211]=1 or odetjeans=0 and jeans[211]=1:'Skin tight, high rise dark grey jeans and a grey top, which has the american flag on it. (The remaining strength <<jeansH[211]>> , The size of the hips <<jeansB[211]>>) <a href="exec:set numdres=211&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!212 and jeans[212]=1 or odetjeans=0 and jeans[212]=1:'Tight blue jeans, with a black leather belt and a pink-white stripped hoodie. (The remaining strength <<jeansH[212]>> , The size of the hips <<jeansB[212]>>) <a href="exec:set numdres=212&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!213 and jeans[213]=1 or odetjeans=0 and jeans[213]=1:'Skin tight light grey jeans and a loose black T-Shirt. (The remaining strength <<jeansH[213]>> , The size of the hips <<jeansB[213]>>) <a href="exec:set numdres=213&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!214 and jeans[214]=1 or odetjeans=0 and jeans[214]=1:'Skin tight grey jeans, a green T-Shirt and a puple-black striped hoodie. (The remaining strength <<jeansH[214]>> , The size of the hips <<jeansB[214]>>) <a href="exec:set numdres=214&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!215 and jeans[215]=1 or odetjeans=0 and jeans[215]=1:'High rise, light blue jeans and a black halter top. (The remaining strength <<jeansH[215]>> , The size of the hips <<jeansB[215]>>) <a href="exec:set numdres=215&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!216 and jeans[216]=1 or odetjeans=0 and jeans[216]=1:'Skin tight dark blue jeans and a shiny sliver blouse, with a deep U-shaped cleavage. (The remaining strength <<jeansH[216]>> , The size of the hips <<jeansB[216]>>) <a href="exec:set numdres=216&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!217 and jeans[217]=1 or odetjeans=0 and jeans[217]=1:'Tight blue jeans and a breght red-black striped T-Shirt, with a deep cleavage. (The remaining strength <<jeansH[217]>> , The size of the hips <<jeansB[217]>>) <a href="exec:set numdres=217&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!218 and jeans[218]=1 or odetjeans=0 and jeans[218]=1:'High rise, skin tight blue jeans and a short grey see-through shirt. (The remaining strength <<jeansH[218]>> , The size of the hips <<jeansB[218]>>) <a href="exec:set numdres=218&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!219 and jeans[219]=1 or odetjeans=0 and jeans[219]=1:'Skin tight blue jeans and a white halter top. (The remaining strength <<jeansH[219]>> , The size of the hips <<jeansB[219]>>) <a href="exec:set numdres=219&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!220 and jeans[220]=1 or odetjeans=0 and jeans[220]=1:'Light blue jeans and a loose black top, with the wrtting in white saying "Sex Instructor". (The remaining strength <<jeansH[220]>> , The size of the hips <<jeansB[220]>>) <a href="exec:set numdres=220&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!221 and jeans[221]=1 or odetjeans=0 and jeans[221]=1:'Skin tight, light blue jeans and a white halter top under a blue-white blouse. (The remaining strength <<jeansH[221]>> , The size of the hips <<jeansB[221]>>) <a href="exec:set numdres=221&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!222 and jeans[222]=1 or odetjeans=0 and jeans[222]=1:'High rise, dark blue jeans and a golden bikini top. (The remaining strength <<jeansH[222]>> , The size of the hips <<jeansB[222]>>) <a href="exec:set numdres=222&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!223 and jeans[223]=1 or odetjeans=0 and jeans[223]=1:'High rise, dark blue jeans and a backless pink top. (The remaining strength <<jeansH[223]>> , The size of the hips <<jeansB[223]>>) <a href="exec:set numdres=223&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!224 and jeans[224]=1 or odetjeans=0 and jeans[224]=1:'High rise, light blue jeans and a backless silver top. (The remaining strength <<jeansH[224]>> , The size of the hips <<jeansB[224]>>) <a href="exec:set numdres=224&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!225 and jeans[225]=1 or odetjeans=0 and jeans[225]=1:'Skin tight, light blue jeans, with a white belt and a short and tight glittery golden halter top. (The remaining strength <<jeansH[225]>> , The size of the hips <<jeansB[225]>>) <a href="exec:set numdres=225&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!226 and jeans[226]=1 or odetjeans=0 and jeans[226]=1:'High rise, dark blue jeans and a short black halter top. (The remaining strength <<jeansH[226]>> , The size of the hips <<jeansB[226]>>) <a href="exec:set numdres=226&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!227 and jeans[227]=1 or odetjeans=0 and jeans[227]=1:'High rise, skin tight blue jeans and a loose fitting flesh colored top.(The remaining strength <<jeansH[227]>> , The size of the hips <<jeansB[227]>>) <a href="exec:set numdres=227&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!228 and jeans[228]=1 or odetjeans=0 and jeans[228]=1:'Skin tight, light blue high rise jeans and a tight white tank top. (The remaining strength <<jeansH[228]>> , The size of the hips <<jeansB[228]>>) <a href="exec:set numdres=228&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!229 and jeans[229]=1 or odetjeans=0 and jeans[229]=1:'Skin tight, light blue jeans and a pink halter top. (The remaining strength <<jeansH[229]>> , The size of the hips <<jeansB[229]>>) <a href="exec:set numdres=229&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!230 and jeans[230]=1 or odetjeans=0 and jeans[230]=1:'Skin tight, white high rise jeans and a loose fitting black-white striped top.(The remaining strength <<jeansH[230]>> , The size of the hips <<jeansB[230]>>) <a href="exec:set numdres=230&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!231 and jeans[231]=1 or odetjeans=0 and jeans[231]=1:'Skin tight, high rise light blue jeans, a tight fitting top in beige and a beige wool vest. (The remaining strength <<jeansH[231]>> , The size of the hips <<jeansB[231]>>) <a href="exec:set numdres=231&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!232 and jeans[232]=1 or odetjeans=0 and jeans[232]=1:'Skin tight, dark blue jeans, with a small brown belt and a white T-Shirt. (The remaining strength <<jeansH[232]>> , The size of the hips <<jeansB[232]>>) <a href="exec:set numdres=232&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!236 and jeans[236]=1 or odetjeans=0 and jeans[236]=1:'High rise, light blue jeans and a black tank top. (The remaining strength <<jeansH[236]>> , The size of the hips <<jeansB[236]>>) <a href="exec:set numdres=236&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!237 and jeans[237]=1 or odetjeans=0 and jeans[237]=1:'Low rise, dark blue jeans and a beige vest. (The remaining strength <<jeansH[237]>> , The size of the hips <<jeansB[237]>>) <a href="exec:set numdres=237&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!238 and jeans[238]=1 or odetjeans=0 and jeans[238]=1:'High rise, skin tight, dark blue jeans  and a short, yellow top. (The remaining strength <<jeansH[238]>> , The size of the hips <<jeansB[238]>>) <a href="exec:set numdres=238&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!239 and jeans[239]=1 or odetjeans=0 and jeans[239]=1:'High rise, skin tight, dark blue jeans, with a brown belt and a denim blue denim shirt. (The remaining strength <<jeansH[239]>> , The size of the hips <<jeansB[239]>>) <a href="exec:set numdres=239&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!240 and jeans[240]=1 or odetjeans=0 and jeans[240]=1:'Low rise, blue jeans and a white shirt. (The remaining strength <<jeansH[240]>> , The size of the hips <<jeansB[240]>>) <a href="exec:set numdres=240&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!241 and jeans[241]=1 or odetjeans=0 and jeans[241]=1:'High rise, skin tight, blue jeans, with a white-grey belt and a white tank top. (The remaining strength <<jeansH[241]>> , The size of the hips <<jeansB[241]>>) <a href="exec:set numdres=241&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!243 and jeans[243]=1 or odetjeans=0 and jeans[243]=1:'Blue jeans and a grey "Smiley" T-Shirt, with a very deep cleavage. (The remaining strength <<jeansH[243]>> , The size of the hips <<jeansB[243]>>) <a href="exec:set numdres=243&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!244 and jeans[244]=1 or odetjeans=0 and jeans[244]=1:'High rise, skin tight, light blue jeans and a short white tank top. (The remaining strength <<jeansH[244]>> , The size of the hips <<jeansB[244]>>) <a href="exec:set numdres=244&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!245 and jeans[245]=1 or odetjeans=0 and jeans[245]=1:'High rise, skin tight, dark blue jeans, with a small blue belt and a white shirt, with a deep cleavage. (The remaining strength <<jeansH[245]>> , The size of the hips <<jeansB[245]>>) <a href="exec:set numdres=245&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!246 and jeans[246]=1 or odetjeans=0 and jeans[246]=1:'Light blue jeans and a black neckhalter top. (The remaining strength <<jeansH[246]>> , The size of the hips <<jeansB[246]>>) <a href="exec:set numdres=246&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!247 and jeans[247]=1 or odetjeans=0 and jeans[247]=1:'High rise, skin tight, light blue jeans and a dark blue neckhalter top. (The remaining strength <<jeansH[247]>> , The size of the hips <<jeansB[247]>>) <a href="exec:set numdres=247&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!248 and jeans[248]=1 or odetjeans=0 and jeans[248]=1:'High rise, skin tight, dark blue jeans, with a small beige belt, a tight, red camisole and a beige blouse. (The remaining strength <<jeansH[248]>> , The size of the hips <<jeansB[248]>>) <a href="exec:set numdres=248&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!249 and jeans[249]=1 or odetjeans=0 and jeans[249]=1:'High rise, skin tight, light blue jeans, a short white camisole under a short black hoodie. (The remaining strength <<jeansH[249]>> , The size of the hips <<jeansB[249]>>) <a href="exec:set numdres=249&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!250 and jeans[250]=1 or odetjeans=0 and jeans[250]=1:'Skin tight, blue jeans, a light blue denim blouse under a blue denim jacket. (The remaining strength <<jeansH[250]>> , The size of the hips <<jeansB[250]>>) <a href="exec:set numdres=250&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!251 and jeans[251]=1 or odetjeans=0 and jeans[251]=1:'Tight, blue denim jeans and a black T-Shirt. (The remaining strength <<jeansH[251]>> , The size of the hips <<jeansB[251]>>) <a href="exec:set numdres=251&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!252 and jeans[252]=1 or odetjeans=0 and jeans[252]=1:'High rise, blue jeans, with a brown belt and a short, light pink T-Shirt. (The remaining strength <<jeansH[252]>> , The size of the hips <<jeansB[252]>>) <a href="exec:set numdres=252&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!253 and jeans[253]=1 or odetjeans=0 and jeans[253]=1:'Skin tight, light blue jeans and a short, tight, neon-pink top. (The remaining strength <<jeansH[253]>> , The size of the hips <<jeansB[253]>>) <a href="exec:set numdres=253&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!254 and jeans[254]=1 or odetjeans=0 and jeans[254]=1:'High rise, skin tight, blue jeans, with a black leather belt and a green shirt, with a very revealing cleavage. (The remaining strength <<jeansH[254]>> , The size of the hips <<jeansB[254]>>) <a href="exec:set numdres=254&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!255 and jeans[255]=1 or odetjeans=0 and jeans[255]=1:'Tight, light blue jeans and a short, beige shirt. (The remaining strength <<jeansH[255]>> , The size of the hips <<jeansB[255]>>) <a href="exec:set numdres=255&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!256 and jeans[256]=1 or odetjeans=0 and jeans[256]=1:'Blue jeans and a white tank top, with a deep cleavage. (The remaining strength <<jeansH[256]>> , The size of the hips <<jeansB[256]>>) <a href="exec:set numdres=256&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!257 and jeans[257]=1 or odetjeans=0 and jeans[257]=1:'High rise, skin tight, light blue jeans, with a black leather belt and a white T-Shirt. (The remaining strength <<jeansH[257]>> , The size of the hips <<jeansB[257]>>) <a href="exec:set numdres=257&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!258 and jeans[258]=1 or odetjeans=0 and jeans[258]=1:'Tight, dark grey pants and a dark blue shirt, with a deep cleavage. (The remaining strength <<jeansH[258]>> , The size of the hips <<jeansB[258]>>) <a href="exec:set numdres=258&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!259 and jeans[259]=1 or odetjeans=0 and jeans[259]=1:'High rise, tight, light blue jeans and a white tank top. (The remaining strength <<jeansH[259]>> , The size of the hips <<jeansB[259]>>) <a href="exec:set numdres=259&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!260 and jeans[260]=1 or odetjeans=0 and jeans[260]=1:'High rise, skin tight, light blue jeans and a short white top. (The remaining strength <<jeansH[260]>> , The size of the hips <<jeansB[260]>>) <a href="exec:set numdres=260&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!261 and jeans[261]=1 or odetjeans=0 and jeans[261]=1:'High rise, skin tight, white denim jeans and a short, red tube-top. (The remaining strength <<jeansH[261]>> , The size of the hips <<jeansB[261]>>) <a href="exec:set numdres=261&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!262 and jeans[262]=1 or odetjeans=0 and jeans[262]=1:'High rise, tight, light blue jeans and a leopard patterend tube top. (The remaining strength <<jeansH[262]>> , The size of the hips <<jeansB[262]>>) <a href="exec:set numdres=262&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!263 and jeans[263]=1 or odetjeans=0 and jeans[263]=1:'High rise, skin tight, blue jeans aand a white-yellow top. (The remaining strength <<jeansH[263]>> , The size of the hips <<jeansB[263]>>) <a href="exec:set numdres=263&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!264 and jeans[264]=1 or odetjeans=0 and jeans[264]=1:'Low rise, skin tight, light blue jeans and a short, pink camisole. (The remaining strength <<jeansH[264]>> , The size of the hips <<jeansB[264]>>) <a href="exec:set numdres=264&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!265 and jeans[265]=1 or odetjeans=0 and jeans[265]=1:'Tight, white denim pants and a short, red camisole. (The remaining strength <<jeansH[265]>> , The size of the hips <<jeansB[265]>>) <a href="exec:set numdres=265&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!266 and jeans[266]=1 or odetjeans=0 and jeans[266]=1:'High rise, skin tight, dark blue jeans, with a black leather blet and a tight, thin, black neckhalter top. (The remaining strength <<jeansH[266]>> , The size of the hips <<jeansB[266]>>) <a href="exec:set numdres=266&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!267 and jeans[267]=1 or odetjeans=0 and jeans[267]=1:'High rise, skin tight, blue jeans, with a small brown belt and a short white camisole. (The remaining strength <<jeansH[267]>> , The size of the hips <<jeansB[267]>>) <a href="exec:set numdres=267&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!268 and jeans[268]=1 or odetjeans=0 and jeans[268]=1:'High rise, tight, light blue jeans and a black tank top. (The remaining strength <<jeansH[268]>> , The size of the hips <<jeansB[268]>>) <a href="exec:set numdres=268&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!269 and jeans[269]=1 or odetjeans=0 and jeans[269]=1:'High rise, skin tight, blue jeans and a short, tight, light grey T-Shirt. (The remaining strength <<jeansH[269]>> , The size of the hips <<jeansB[269]>>) <a href="exec:set numdres=269&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!270 and jeans[270]=1 or odetjeans=0 and jeans[270]=1:'Tight, dark blue jeans and a grey T-Shirt. (The remaining strength <<jeansH[270]>> , The size of the hips <<jeansB[270]>>) <a href="exec:set numdres=270&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!271 and jeans[271]=1 or odetjeans=0 and jeans[271]=1:'Skin tight, blue jeans and a black shirt, with a revealing cleavage. (The remaining strength <<jeansH[271]>> , The size of the hips <<jeansB[271]>>) <a href="exec:set numdres=271&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!272 and jeans[272]=1 or odetjeans=0 and jeans[272]=1:'High rise, skin tight, dark blue jeans, with a grey belt and a colourful T-Shirt. (The remaining strength <<jeansH[272]>> , The size of the hips <<jeansB[272]>>) <a href="exec:set numdres=272&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!273 and jeans[273]=1 or odetjeans=0 and jeans[273]=1:'Tight, blue jeans and a grey camisole, with a very revealing cleavage. (The remaining strength <<jeansH[273]>> , The size of the hips <<jeansB[273]>>) <a href="exec:set numdres=273&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!274 and jeans[274]=1 or odetjeans=0 and jeans[274]=1:'High rise, tight, blue jeans and a white tube top. (The remaining strength <<jeansH[274]>> , The size of the hips <<jeansB[274]>>) <a href="exec:set numdres=274&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!275 and jeans[275]=1 or odetjeans=0 and jeans[275]=1:'High rise, skin tight, torn, blue jeans and a very tight, very short, black camisole, with a very revealing cleavage. (The remaining strength <<jeansH[275]>> , The size of the hips <<jeansB[275]>>) <a href="exec:set numdres=275&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!276 and jeans[276]=1 or odetjeans=0 and jeans[276]=1:'Tight, light blue jeans and a blue short, with a revealing cleavage. (The remaining strength <<jeansH[276]>> , The size of the hips <<jeansB[276]>>) <a href="exec:set numdres=276&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!278 and jeans[278]=1 or odetjeans=0 and jeans[278]=1:'High rise, skin tight, dark blue jeans and a white tank top, with a revealing cleavage, under a red, leather jacket. (The remaining strength <<jeansH[278]>> , The size of the hips <<jeansB[278]>>) <a href="exec:set numdres=278&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!279 and jeans[279]=1 or odetjeans=0 and jeans[279]=1:'High rise, skin tight, blue jeans and a short, blue neckhalter top. (The remaining strength <<jeansH[279]>> , The size of the hips <<jeansB[279]>>) <a href="exec:set numdres=279&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!280 and jeans[280]=1 or odetjeans=0 and jeans[280]=1:'High rise, tight, blue jeans and black top, with lacy parts. (The remaining strength <<jeansH[280]>> , The size of the hips <<jeansB[280]>>) <a href="exec:set numdres=280&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!281 and jeans[281]=1 or odetjeans=0 and jeans[281]=1:'High rise, tight, light blue jeans and a short, black camisole. (The remaining strength <<jeansH[281]>> , The size of the hips <<jeansB[281]>>) <a href="exec:set numdres=281&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!282 and jeans[282]=1 or odetjeans=0 and jeans[282]=1:'High rise, skin tight dark blue jeans and stripped, white-grey T-Shirt. (The remaining strength <<jeansH[282]>> , The size of the hips <<jeansB[282]>>) <a href="exec:set numdres=282&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!283 and jeans[283]=1 or odetjeans=0 and jeans[283]=1:'High rise, tight, light blue jeans, with a white-grey belt and a light brown top. (The remaining strength <<jeansH[283]>> , The size of the hips <<jeansB[283]>>) <a href="exec:set numdres=283&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!285 and jeans[285]=1 or odetjeans=0 and jeans[285]=1:'Skin tight, dark blue jeans and a brown tank top. (The remaining strength <<jeansH[285]>> , The size of the hips <<jeansB[285]>>) <a href="exec:set numdres=285&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!286 and jeans[286]=1 or odetjeans=0 and jeans[286]=1:'Blue jeans and a skin tight, black latex T-Shirt. (The remaining strength <<jeansH[286]>> , The size of the hips <<jeansB[286]>>) <a href="exec:set numdres=286&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!287 and jeans[287]=1 or odetjeans=0 and jeans[287]=1:'High rise, skin tight, light blue jeans, with a small brown belt and a short, colorful top. (The remaining strength <<jeansH[287]>> , The size of the hips <<jeansB[287]>>) <a href="exec:set numdres=287&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!289 and jeans[289]=1 or odetjeans=0 and jeans[289]=1:'Skin tight, dark blue jeans and a tight fitting, light brown camisole. (The remaining strength <<jeansH[289]>> , The size of the hips <<jeansB[289]>>) <a href="exec:set numdres=289&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!290 and jeans[290]=1 or odetjeans=0 and jeans[290]=1:'High rise, skin tight, black leather pants and a purple camisole. (The remaining strength <<jeansH[290]>> , The size of the hips <<jeansB[290]>>) <a href="exec:set numdres=290&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!291 and jeans[291]=1 or odetjeans=0 and jeans[291]=1:'Skin tight, grey jeans and a white tank top, under a neon-orange jacket. (The remaining strength <<jeansH[291]>> , The size of the hips <<jeansB[291]>>) <a href="exec:set numdres=291&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!292 and jeans[292]=1 or odetjeans=0 and jeans[292]=1:'High rise, skin tight, blue jeans and a short, black T-Shirt. (The remaining strength <<jeansH[292]>> , The size of the hips <<jeansB[292]>>) <a href="exec:set numdres=292&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!293 and jeans[293]=1 or odetjeans=0 and jeans[293]=1:'High rise, skin tight, blue jeans and a short, white tank top under a colorful blouse. (The remaining strength <<jeansH[293]>> , The size of the hips <<jeansB[293]>>) <a href="exec:set numdres=293&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!294 and jeans[294]=1 or odetjeans=0 and jeans[294]=1:'High rise, skin tight, blue jeans and a tight, grey top. (The remaining strength <<jeansH[294]>> , The size of the hips <<jeansB[294]>>) <a href="exec:set numdres=294&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!295 and jeans[295]=1 or odetjeans=0 and jeans[295]=1:'High rise, skin tight, blue jeans and a shirt, red top, with a very deep and revealing cleavage. (The remaining strength <<jeansH[295]>> , The size of the hips <<jeansB[295]>>) <a href="exec:set numdres=295&GT ''portnoi1'',''jeans''">to take in</a>'
if odetjeans=1 and numdress!297 and jeans[297]=1 or odetjeans=0 and jeans[297]=1:'Tight, light blue jeans and a white camisole. (The remaining strength <<jeansH[297]>> , The size of the hips <<jeansB[297]>>) <a href="exec:set numdres=297&GT ''portnoi1'',''jeans''">to take in</a>'

if odetshort=1 and numdress!201 and short[201]=1 or odetshort=0 and short[201]=1:'Light blue denim shorts, a black belt and a cropped, white tank top. (The remaining strength <<shortH[201]>>, The size of the hips <<shortB[201]>>) <a href="exec:set numdres=201&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!202 and short[202]=1 or odetshort=0 and short[202]=1:'Blue denim shorts and a grey tank top. (The remaining strength <<shortH[202]>>, The size of the hips <<shortB[202]>>) <a href="exec:set numdres=202&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!203 and short[203]=1 or odetshort=0 and short[203]=1:'Blue denim shorts and a black tank top. (The remaining strength <<shortH[203]>>, The size of the hips <<shortB[203]>>) <a href="exec:set numdres=203&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!204 and short[204]=1 or odetshort=0 and short[204]=1:'Blue denim shorts and a cropped, white tank top. (The remaining strength <<shortH[204]>>, The size of the hips <<shortB[204]>>) <a href="exec:set numdres=204&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!205 and short[205]=1 or odetshort=0 and short[205]=1:'Light blue denim shorts with a frilly, white tank top, which has a discreet color pattern. (The remaining strength <<shortH[205]>>, The size of the hips <<shortB[205]>>) <a href="exec:set numdres=205&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!206 and short[206]=1 or odetshort=0 and short[206]=1:'Light blue denim shorts, a light brown belt and a dark grey tank top.Light blue denim shorts, a light brown belt and a dark grey tank top. (The remaining strength <<shortH[206]>>, The size of the hips <<shortB[206]>>) <a href="exec:set numdres=206&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!207 and short[207]=1 or odetshort=0 and short[207]=1:'Loose grey shorts with a white tank top. (The remaining strength <<shortH[207]>>, The size of the hips <<shortB[207]>>) <a href="exec:set numdres=207&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!208 and short[208]=1 or odetshort=0 and short[208]=1:'Tight grey shorts with a white tank top. (The remaining strength <<shortH[208]>>, The size of the hips <<shortB[208]>>) <a href="exec:set numdres=208&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!209 and short[209]=1 or odetshort=0 and short[209]=1:'Dark blue denim shorts with a pink bikini top. (The remaining strength <<shortH[209]>>, The size of the hips <<shortB[209]>>) <a href="exec:set numdres=209&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!210 and short[210]=1 or odetshort=0 and short[210]=1:'Light blue denim shorts and a white bikini top, which has a pinkish colored pattern. (The remaining strength <<shortH[210]>>, The size of the hips <<shortB[210]>>) <a href="exec:set numdres=210&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!211 and short[211]=1 or odetshort=0 and short[211]=1:'Very short, blue denim shorts and a light pink shirt. (The remaining strength <<shortH[211]>>, The size of the hips <<shortB[211]>>) <a href="exec:set numdres=211&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!212 and short[212]=1 or odetshort=0 and short[212]=1:'Light blue denim shorts with a white shirt. (The remaining strength <<shortH[212]>>, The size of the hips <<shortB[212]>>) <a href="exec:set numdres=212&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!213 and short[213]=1 or odetshort=0 and short[213]=1:'Dark blue shorts and black leggins with a bright pink shirt. (The remaining strength <<shortH[213]>>, The size of the hips <<shortB[213]>>) <a href="exec:set numdres=213&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!214 and short[214]=1 or odetshort=0 and short[214]=1:'Very short, dark blue denim shorts with a grey T-Shirt. (The remaining strength <<shortH[214]>>, The size of the hips <<shortB[214]>>) <a href="exec:set numdres=214&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!215 and short[215]=1 or odetshort=0 and short[215]=1:'Loose, light blue denim shorts with a tight, brown shirt. (The remaining strength <<shortH[215]>>, The size of the hips <<shortB[215]>>) <a href="exec:set numdres=215&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!216 and short[216]=1 or odetshort=0 and short[216]=1:'Loose, blue denim shorts with a light grey T-Shirt, which a deep U-Style neckline. (The remaining strength <<shortH[216]>>, The size of the hips <<shortB[216]>>) <a href="exec:set numdres=216&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!217 and short[217]=1 or odetshort=0 and short[217]=1:'Light blue denim shorts with a white top. (The remaining strength <<shortH[217]>>, The size of the hips <<shortB[217]>>) <a href="exec:set numdres=217&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!218 and short[218]=1 or odetshort=0 and short[218]=1:'Light blue denim shorts with a halterless, pink top. (The remaining strength <<shortH[218]>>, The size of the hips <<shortB[218]>>) <a href="exec:set numdres=218&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!219 and short[219]=1 or odetshort=0 and short[219]=1:'Blue denim shorts with a grey tank top. (The remaining strength <<shortH[219]>>, The size of the hips <<shortB[219]>>) <a href="exec:set numdres=219&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!220 and short[220]=1 or odetshort=0 and short[220]=1:'Very short, white shorts and a white top. (The remaining strength <<shortH[220]>>, The size of the hips <<shortB[220]>>) <a href="exec:set numdres=220&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!221 and short[221]=1 or odetshort=0 and short[221]=1:'Tight, white denim shorts with a short, but colorful tank top. (The remaining strength <<shortH[221]>>, The size of the hips <<shortB[221]>>) <a href="exec:set numdres=221&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!222 and short[222]=1 or odetshort=0 and short[222]=1:'White shorts with a tight, light brown T-Shirt. (The remaining strength <<shortH[222]>>, The size of the hips <<shortB[222]>>) <a href="exec:set numdres=222&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!223 and short[223]=1 or odetshort=0 and short[223]=1:'Black shorts with a turquise belt and short, black-turquise T-Shirt. (The remaining strength <<shortH[223]>>, The size of the hips <<shortB[223]>>) <a href="exec:set numdres=223&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!224 and short[224]=1 or odetshort=0 and short[224]=1:'Blue shorts with a short, blue T-Shirt. (The remaining strength <<shortH[224]>>, The size of the hips <<shortB[224]>>) <a href="exec:set numdres=224&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!225 and short[225]=1 or odetshort=0 and short[225]=1:'Dark blue denim shorts and sheer, beige blouse. (The remaining strength <<shortH[225]>>, The size of the hips <<shortB[225]>>) <a href="exec:set numdres=225&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!226 and short[226]=1 or odetshort=0 and short[226]=1:'Light blue denim shorts, a dark blue tank top and a white vest. (The remaining strength <<shortH[226]>>, The size of the hips <<shortB[226]>>) <a href="exec:set numdres=226&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!227 and short[227]=1 or odetshort=0 and short[227]=1:'Very short, tight, black shorts with a yellow belt and a yellow hoodie. (The remaining strength <<shortH[227]>>, The size of the hips <<shortB[227]>>) <a href="exec:set numdres=227&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!228 and short[228]=1 or odetshort=0 and short[228]=1:'Very short, tight, black shorts and a orange-white vest. (The remaining strength <<shortH[228]>>, The size of the hips <<shortB[228]>>) <a href="exec:set numdres=228&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!229 and short[229]=1 or odetshort=0 and short[229]=1:'Very short denim shorts and a tight, short white T-shirt, which a deep U-shaped cutting. (The remaining strength <<shortH[229]>>, The size of the hips <<shortB[229]>>) <a href="exec:set numdres=229&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!230 and short[230]=1 or odetshort=0 and short[230]=1:'Tight, light blue denim shorts and a loose fitting blue top.(The remaining strength <<shortH[230]>>, The size of the hips <<shortB[230]>>) <a href="exec:set numdres=230&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!231 and short[231]=1 or odetshort=0 and short[231]=1:'Very short blue denim shorts, with a brown belt and a frilly, light blue neckhalter top. (The remaining strength <<shortH[231]>>, The size of the hips <<shortB[231]>>) <a href="exec:set numdres=231&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!232 and short[232]=1 or odetshort=0 and short[232]=1:'Dark blue denim shorts, with a large, light brown belt and a blue halter top, which has a deep U-shaped cutting. (The remaining strength <<shortH[232]>>, The size of the hips <<shortB[232]>>) <a href="exec:set numdres=232&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!233 and short[233]=1 or odetshort=0 and short[233]=1:'Blue denim shorts and a short white halter top, which you can see slightly through and it has a deep U-shaped neckline. (The remaining strength <<shortH[233]>>, The size of the hips <<shortB[233]>>) <a href="exec:set numdres=233&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!234 and short[234]=1 or odetshort=0 and short[234]=1:'Cropped dark blue denim short and a back free, light pink halter. (The remaining strength <<shortH[234]>>, The size of the hips <<shortB[234]>>) <a href="exec:set numdres=234&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!235 and short[235]=1 or odetshort=0 and short[235]=1:'Light blue denim shorts and a light brown top. (The remaining strength <<shortH[235]>>, The size of the hips <<shortB[235]>>) <a href="exec:set numdres=235&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!236 and short[236]=1 or odetshort=0 and short[236]=1:'Cropped blue denim shorts and a bright pink shirt, which has a very deep V-shaped cutting. (The remaining strength <<shortH[236]>>, The size of the hips <<shortB[236]>>) <a href="exec:set numdres=236&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!237 and short[237]=1 or odetshort=0 and short[237]=1:'Short yellow-black hotpants and a white tank top. (The remaining strength <<shortH[237]>>, The size of the hips <<shortB[237]>>) <a href="exec:set numdres=237&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!238 and short[238]=1 or odetshort=0 and short[238]=1:'Cropped white shorts and a light pink tank top. (The remaining strength <<shortH[238]>>, The size of the hips <<shortB[238]>>) <a href="exec:set numdres=238&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!239 and short[239]=1 or odetshort=0 and short[239]=1:'Cropped blue denim shorts and a loose fitting red halter top. (The remaining strength <<shortH[239]>>, The size of the hips <<shortB[239]>>) <a href="exec:set numdres=239&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!240 and short[240]=1 or odetshort=0 and short[240]=1:'Very short, cropped blue denim shorts and a red patterend blouse. (The remaining strength <<shortH[240]>>, The size of the hips <<shortB[240]>>) <a href="exec:set numdres=240&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!241 and short[241]=1 or odetshort=0 and short[241]=1:'Cropped light blue shorts and a very revealing white top. (The remaining strength <<shortH[241]>>, The size of the hips <<shortB[241]>>) <a href="exec:set numdres=241&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!242 and short[242]=1 or odetshort=0 and short[242]=1:'Light blue denim shorts, with a brown belt and a pink top. (The remaining strength <<shortH[242]>>, The size of the hips <<shortB[242]>>) <a href="exec:set numdres=242&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!244 and short[244]=1 or odetshort=0 and short[244]=1:'Cropped black denim shorts, with a studded black belt, a black tank top and a black leather vest. (The remaining strength <<shortH[244]>>, The size of the hips <<shortB[244]>>) <a href="exec:set numdres=244&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!245 and short[245]=1 or odetshort=0 and short[245]=1:'Short black hotpants and a white halter top. (The remaining strength <<shortH[245]>>, The size of the hips <<shortB[245]>>) <a href="exec:set numdres=245&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!246 and short[246]=1 or odetshort=0 and short[246]=1:'Light blue denim shorts, with a brown belt and a blue top, with a V-shaped cleavage. (The remaining strength <<shortH[246]>>, The size of the hips <<shortB[246]>>) <a href="exec:set numdres=246&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!247 and short[247]=1 or odetshort=0 and short[247]=1:'Light blue denim shorts and a loose fitting tank top.  (The remaining strength <<shortH[247]>>, The size of the hips <<shortB[247]>>) <a href="exec:set numdres=247&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!248 and short[248]=1 or odetshort=0 and short[248]=1:'Light blue denim shorts, with a yellow belt and a tight yellow halter top. (The remaining strength <<shortH[248]>>, The size of the hips <<shortB[248]>>) <a href="exec:set numdres=248&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!249 and short[249]=1 or odetshort=0 and short[249]=1:'Very short blue denim shorts and a very short, but cute top. (The remaining strength <<shortH[249]>>, The size of the hips <<shortB[249]>>) <a href="exec:set numdres=249&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!250 and short[250]=1 or odetshort=0 and short[250]=1:'Yellow hotpants and a short blue halter top. (The remaining strength <<shortH[250]>>, The size of the hips <<shortB[250]>>) <a href="exec:set numdres=250&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!251 and short[251]=1 or odetshort=0 and short[251]=1:'White hotpants and a tight fitting white top, which has a deep U-shaped neckline. (The remaining strength <<shortH[251]>>, The size of the hips <<shortB[251]>>) <a href="exec:set numdres=251&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!252 and short[252]=1 or odetshort=0 and short[252]=1:'Cropped light blue denim shorts, a very short yellow halter top and a light blue blouse.  (The remaining strength <<shortH[252]>>, The size of the hips <<shortB[252]>>) <a href="exec:set numdres=252&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!253 and short[253]=1 or odetshort=0 and short[253]=1:'Light blue denim shorts, a pink bikini top, which is under a red, flower-patterend see-through top. (The remaining strength <<shortH[253]>>, The size of the hips <<shortB[253]>>) <a href="exec:set numdres=253&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!255 and short[255]=1 or odetshort=0 and short[255]=1:'Blue denim shorts and a white shirt. (The remaining strength <<shortH[255]>>, The size of the hips <<shortB[255]>>) <a href="exec:set numdres=255&GT ''portnoi1'',''short''">to take in</a>'
if odetshort=1 and numdress!256 and short[256]=1 or odetshort=0 and short[256]=1:'Light blue denim shorts, with a brown snake-skin belt and a short dark brown T-Shirt. (The remaining strength <<shortH[256]>>, The size of the hips <<shortB[256]>>) <a href="exec:set numdres=256&GT ''portnoi1'',''short''">to take in</a>'

if odetskirt=1 and numdress!201 and skirt[201]=1 or odetskirt=0 and skirt[201]=1:'Orange-beige micro skirt and a top with a deep V-shaped cutting. (The remaining strength <<skirtH[201]>>, The size of the hips <<skirtB[201]>>) <a href="exec:set numdres=201&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!202 and skirt[202]=1 or odetskirt=0 and skirt[202]=1:'Black plaid mirco skirt and a grey T-Shirt, that has a deep V-cut neckline. (The remaining strength <<skirtH[202]>>, The size of the hips <<skirtB[202]>>) <a href="exec:set numdres=202&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!203 and skirt[203]=1 or odetskirt=0 and skirt[203]=1:'Light brown mini skirt with a tight dark brown short. (The remaining strength <<skirtH[203]>>, The size of the hips <<skirtB[203]>>) <a href="exec:set numdres=203&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!204 and skirt[204]=1 or odetskirt=0 and skirt[204]=1:'Light blue skirt with a tight fitting white top. (The remaining strength <<skirtH[204]>>, The size of the hips <<skirtB[204]>>) <a href="exec:set numdres=204&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!205 and skirt[205]=1 or odetskirt=0 and skirt[205]=1:'Dark blue denim micro skirt and a pink tank top. (The remaining strength <<skirtH[205]>>, The size of the hips <<skirtB[205]>>) <a href="exec:set numdres=205&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!206 and skirt[206]=1 or odetskirt=0 and skirt[206]=1:'Red patterned plaid micro skirt and a cute T-Shirt. (The remaining strength <<skirtH[206]>>, The size of the hips <<skirtB[206]>>) <a href="exec:set numdres=206&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!207 and skirt[207]=1 or odetskirt=0 and skirt[207]=1:'Light blue flower patterned high-waisted skirt and a short birhgt pink shirt.(The remaining strength <<skirtH[207]>>, The size of the hips <<skirtB[207]>>) <a href="exec:set numdres=207&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!208 and skirt[208]=1 or odetskirt=0 and skirt[208]=1:'White mini skirt with a blue tank top. (The remaining strength <<skirtH[208]>>, The size of the hips <<skirtB[208]>>) <a href="exec:set numdres=208&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!209 and skirt[209]=1 or odetskirt=0 and skirt[209]=1:'White flare mini skirt with a yellow top. (The remaining strength <<skirtH[209]>>, The size of the hips <<skirtB[209]>>) <a href="exec:set numdres=209&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!210 and skirt[210]=1 or odetskirt=0 and skirt[210]=1:'Blue denim mini skirt with a cropped light blue top. (The remaining strength <<skirtH[210]>>, The size of the hips <<skirtB[210]>>) <a href="exec:set numdres=210&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!211 and skirt[211]=1 or odetskirt=0 and skirt[211]=1:'Tight white mini skirt with buckles on the side and a red polkadot patterned blouse. (The remaining strength <<skirtH[211]>>, The size of the hips <<skirtB[211]>>) <a href="exec:set numdres=211&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!212 and skirt[212]=1 or odetskirt=0 and skirt[212]=1:'Blue denim skirt with a sliver belt and a tight grey neckhaltered top. (The remaining strength <<skirtH[212]>>, The size of the hips <<skirtB[212]>>) <a href="exec:set numdres=212&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!213 and skirt[213]=1 or odetskirt=0 and skirt[213]=1:'Light purple flare skirt with a see through yellow top. Get a nice vintage look with the right pantyhose and heels. (The remaining strength <<skirtH[213]>>, The size of the hips <<skirtB[213]>>) <a href="exec:set numdres=213&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!214 and skirt[214]=1 or odetskirt=0 and skirt[214]=1:'Dark grey flared micro skirt and a bright pink pullover. (The remaining strength <<skirtH[214]>>, The size of the hips <<skirtB[214]>>) <a href="exec:set numdres=214&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!215 and skirt[215]=1 or odetskirt=0 and skirt[215]=1:'High-waisted turquise pencil mini skirt and a very short purple top. (The remaining strength <<skirtH[215]>>, The size of the hips <<skirtB[215]>>) <a href="exec:set numdres=215&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!216 and skirt[216]=1 or odetskirt=0 and skirt[216]=1:'Dark blue pencil mini skirt, a white shirt with a white ribbon at the end of the V-shaped cutting and a small beige colored jacket. (The remaining strength <<skirtH[216]>>, The size of the hips <<skirtB[216]>>) <a href="exec:set numdres=216&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!217 and skirt[217]=1 or odetskirt=0 and skirt[217]=1:'High-waisted black leather skirt and a white T-Shirt, which has a high U-shaped cutting. (The remaining strength <<skirtH[217]>>, The size of the hips <<skirtB[217]>>) <a href="exec:set numdres=217&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!218 and skirt[218]=1 or odetskirt=0 and skirt[218]=1:'Dark blue flare skirt and a green T-Shirt. (The remaining strength <<skirtH[218]>>, The size of the hips <<skirtB[218]>>) <a href="exec:set numdres=218&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!219 and skirt[219]=1 or odetskirt=0 and skirt[219]=1:'Blue denim mini skirt and a trendy T-Shirt, with a high V-shaped cutting. (The remaining strength <<skirtH[219]>>, The size of the hips <<skirtB[219]>>) <a href="exec:set numdres=219&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!221 and skirt[221]=1 or odetskirt=0 and skirt[221]=1:'White mini skirt and a blue patterend halter top. (The remaining strength <<skirtH[221]>>, The size of the hips <<skirtB[221]>>) <a href="exec:set numdres=221&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!222 and skirt[222]=1 or odetskirt=0 and skirt[222]=1:'Blue denim mini skirt and a beige colored top, which is kept together by knots. (The remaining strength <<skirtH[222]>>, The size of the hips <<skirtB[222]>>) <a href="exec:set numdres=222&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!223 and skirt[223]=1 or odetskirt=0 and skirt[223]=1:'Purple mini skirt, a purple top and a black leather jacket. (The remaining strength <<skirtH[223]>>, The size of the hips <<skirtB[223]>>) <a href="exec:set numdres=223&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!224 and skirt[224]=1 or odetskirt=0 and skirt[224]=1:'Light blue flare skirt and a dark purple shirt, with a V-shaped cutting. (The remaining strength <<skirtH[224]>>, The size of the hips <<skirtB[224]>>) <a href="exec:set numdres=224&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!225 and skirt[225]=1 or odetskirt=0 and skirt[225]=1:'Purple patterned flared micro skirt and a pink tank top. (The remaining strength <<skirtH[225]>>, The size of the hips <<skirtB[225]>>) <a href="exec:set numdres=225&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!226 and skirt[226]=1 or odetskirt=0 and skirt[226]=1:'High-waisted grey pencil skirt and a black tank top. (The remaining strength <<skirtH[226]>>, The size of the hips <<skirtB[226]>>) <a href="exec:set numdres=226&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!227 and skirt[227]=1 or odetskirt=0 and skirt[227]=1:'Tight red micro skirt with a flower patterned belt and a white blouse with a very deep V-shaped cutting. (The remaining strength <<skirtH[227]>>, The size of the hips <<skirtB[227]>>) <a href="exec:set numdres=227&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!228 and skirt[228]=1 or odetskirt=0 and skirt[228]=1:'Red-Black colored pattern on a flared micro skirt and a white blouse under a black top. (The remaining strength <<skirtH[228]>>, The size of the hips <<skirtB[228]>>) <a href="exec:set numdres=228&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!229 and skirt[229]=1 or odetskirt=0 and skirt[229]=1:'tight purple mini skirt and a white see-through blouse. (The remaining strength <<skirtH[229]>>, The size of the hips <<skirtB[229]>>) <a href="exec:set numdres=229&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!230 and skirt[230]=1 or odetskirt=0 and skirt[230]=1:'Dark blue denim mini skirt and a light blue tank top. (The remaining strength <<skirtH[230]>>, The size of the hips <<skirtB[230]>>) <a href="exec:set numdres=230&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!232 and skirt[232]=1 or odetskirt=0 and skirt[232]=1:'Flower patterned flared micro skirt and a black top with a very deep V-shaped cutting. (The remaining strength <<skirtH[232]>>, The size of the hips <<skirtB[232]>>) <a href="exec:set numdres=232&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!233 and skirt[233]=1 or odetskirt=0 and skirt[233]=1:'Pink micro skirt and a black top with a U-Shaped cutting. (The remaining strength <<skirtH[233]>>, The size of the hips <<skirtB[233]>>) <a href="exec:set numdres=233&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!234 and skirt[234]=1 or odetskirt=0 and skirt[234]=1:'White mini skirt with a very tight light pink shirt. (The remaining strength <<skirtH[234]>>, The size of the hips <<skirtB[234]>>) <a href="exec:set numdres=234&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!235 and skirt[235]=1 or odetskirt=0 and skirt[235]=1:'Dark blue denim micro skirt and a red shirt. (The remaining strength <<skirtH[235]>>, The size of the hips <<skirtB[235]>>) <a href="exec:set numdres=235&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!237 and skirt[237]=1 or odetskirt=0 and skirt[237]=1:'Light pink micro skirt and a short white top, with a very deep V-shaped cutting.(The remaining strength <<skirtH[237]>>, The size of the hips <<skirtB[237]>>) <a href="exec:set numdres=237&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!238 and skirt[238]=1 or odetskirt=0 and skirt[238]=1:'Black pencil skirt and a loose white top. (The remaining strength <<skirtH[238]>>, The size of the hips <<skirtB[238]>>) <a href="exec:set numdres=238&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!239 and skirt[239]=1 or odetskirt=0 and skirt[239]=1:'Blue denim flared skirt and a blue flower patterend halter top. (The remaining strength <<skirtH[239]>>, The size of the hips <<skirtB[239]>>) <a href="exec:set numdres=239&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!240 and skirt[240]=1 or odetskirt=0 and skirt[240]=1:'Light blue denim skirt, a black tank top and a small black leather jacket. (The remaining strength <<skirtH[240]>>, The size of the hips <<skirtB[240]>>) <a href="exec:set numdres=240&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!242 and skirt[242]=1 or odetskirt=0 and skirt[242]=1:'Beige pencil skirt and a black tank top under a black blouse and a black belt, which closes the blouse. (The remaining strength <<skirtH[242]>>, The size of the hips <<skirtB[242]>>) <a href="exec:set numdres=242&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!243 and skirt[243]=1 or odetskirt=0 and skirt[243]=1:'Dark green flared skirt and a short white shirt under a short black leather-like vest. (The remaining strength <<skirtH[243]>>, The size of the hips <<skirtB[243]>>) <a href="exec:set numdres=243&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!245 and skirt[245]=1 or odetskirt=0 and skirt[245]=1:'Tight pink micro skirt and a grey tank top, with a deep U-shaped cutting under a denim jacket. (The remaining strength <<skirtH[245]>>, The size of the hips <<skirtB[245]>>) <a href="exec:set numdres=245&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!246 and skirt[246]=1 or odetskirt=0 and skirt[246]=1:'Black flared micro skirt and a red tank top, with a small black ribbon at the end of the very deep U-shaped cutting, under a bright pink jacket. (The remaining strength <<skirtH[246]>>, The size of the hips <<skirtB[246]>>) <a href="exec:set numdres=246&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!247 and skirt[247]=1 or odetskirt=0 and skirt[247]=1:'White denim mini skirt and dark purple T-Shirt with a very deep V-shaped cutting. (The remaining strength <<skirtH[247]>>, The size of the hips <<skirtB[247]>>) <a href="exec:set numdres=247&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!248 and skirt[248]=1 or odetskirt=0 and skirt[248]=1:'Black leather mini skirt and a black T-Shirth, which has a U-shaped cutting. (The remaining strength <<skirtH[248]>>, The size of the hips <<skirtB[248]>>) <a href="exec:set numdres=248&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!249 and skirt[249]=1 or odetskirt=0 and skirt[249]=1:'Black leather mini skirt and a very tight light pink T-Shirt with a deep U-shaped cutting. (The remaining strength <<skirtH[249]>>, The size of the hips <<skirtB[249]>>) <a href="exec:set numdres=249&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!250 and skirt[250]=1 or odetskirt=0 and skirt[250]=1:'Black pencil mini skirt and a dark purple T-Shirt. (The remaining strength <<skirtH[250]>>, The size of the hips <<skirtB[250]>>) <a href="exec:set numdres=250&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!251 and skirt[251]=1 or odetskirt=0 and skirt[251]=1:'Light blue denim micro skirt and a white halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[251]>>, The size of the hips <<skirtB[251]>>) <a href="exec:set numdres=251&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!252 and skirt[252]=1 or odetskirt=0 and skirt[252]=1:'White micro skirt and a pink-white flower patterend halterless top. (The remaining strength <<skirtH[252]>>, The size of the hips <<skirtB[252]>>) <a href="exec:set numdres=252&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!253 and skirt[253]=1 or odetskirt=0 and skirt[253]=1:'Pink mini skirt and a cute light pink T-Shirt. (The remaining strength <<skirtH[253]>>, The size of the hips <<skirtB[253]>>) <a href="exec:set numdres=253&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!254 and skirt[254]=1 or odetskirt=0 and skirt[254]=1:'Light blue denim micro skirt and a very short light yellow top, which is secured by a knot between the breasts.  (The remaining strength <<skirtH[254]>>, The size of the hips <<skirtB[254]>>) <a href="exec:set numdres=254&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!255 and skirt[255]=1 or odetskirt=0 and skirt[255]=1:'Black flared micro skirt and a black blouse, with a deep V-shaped cutting by default. (The remaining strength <<skirtH[255]>>, The size of the hips <<skirtB[255]>>) <a href="exec:set numdres=255&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!256 and skirt[256]=1 or odetskirt=0 and skirt[256]=1:'Black pencil mini skirt and a grey halter top, which has a deep U-shaped cutting. (The remaining strength <<skirtH[256]>>, The size of the hips <<skirtB[256]>>) <a href="exec:set numdres=256&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!257 and skirt[257]=1 or odetskirt=0 and skirt[257]=1:'White pencil mini skirt and a light green loose top, which a very deep but not very revealing V-shaped cutting. (The remaining strength <<skirtH[257]>>, The size of the hips <<skirtB[257]>>) <a href="exec:set numdres=257&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!258 and skirt[258]=1 or odetskirt=0 and skirt[258]=1:'Grey flared micro skirt and a dark brown halter top, which has a deep U-shaped neckline. (The remaining strength <<skirtH[258]>>, The size of the hips <<skirtB[258]>>) <a href="exec:set numdres=258&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!259 and skirt[259]=1 or odetskirt=0 and skirt[259]=1:'Light blue denim mini skirt and a white-blue striped leaf patterend tank top beneaf a cute dark blue jacket. (The remaining strength <<skirtH[259]>>, The size of the hips <<skirtB[259]>>) <a href="exec:set numdres=259&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!260 and skirt[260]=1 or odetskirt=0 and skirt[260]=1:'Light blue denim mini skirt and a cropped white halter top, which has a nice V-shaped cutting. (The remaining strength <<skirtH[260]>>, The size of the hips <<skirtB[260]>>) <a href="exec:set numdres=260&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!261 and skirt[261]=1 or odetskirt=0 and skirt[261]=1:'Glittery grey pencil mini skirt and a dark blue shirt. (The remaining strength <<skirtH[261]>>, The size of the hips <<skirtB[261]>>) <a href="exec:set numdres=261&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!262 and skirt[262]=1 or odetskirt=0 and skirt[262]=1:'Striped flared mini skirt, a light pink slightly see-through halter top and a brown belt as accessory. (The remaining strength <<skirtH[262]>>, The size of the hips <<skirtB[262]>>) <a href="exec:set numdres=262&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!263 and skirt[263]=1 or odetskirt=0 and skirt[263]=1:'High waisted black pencil skirt and a white T-Shirt. (The remaining strength <<skirtH[263]>>, The size of the hips <<skirtB[263]>>) <a href="exec:set numdres=263&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!264 and skirt[264]=1 or odetskirt=0 and skirt[264]=1:'Blue denim mini skirt and a white T-Shirt, which has a deep U-shaped cutting. (The remaining strength <<skirtH[264]>>, The size of the hips <<skirtB[264]>>) <a href="exec:set numdres=264&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!265 and skirt[265]=1 or odetskirt=0 and skirt[265]=1:'White flared mini skirt and a grey T-Shirt. (The remaining strength <<skirtH[265]>>, The size of the hips <<skirtB[265]>>) <a href="exec:set numdres=265&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!266 and skirt[266]=1 or odetskirt=0 and skirt[266]=1:'Light blue micro skirt and a tight white tank top. (The remaining strength <<skirtH[266]>>, The size of the hips <<skirtB[266]>>) <a href="exec:set numdres=266&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!267 and skirt[267]=1 or odetskirt=0 and skirt[267]=1:'Flared blue micro skit and a light yellow halter top, which provides a great view to anyone, due to its deep cutting. (The remaining strength <<skirtH[267]>>, The size of the hips <<skirtB[267]>>) <a href="exec:set numdres=267&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!268 and skirt[268]=1 or odetskirt=0 and skirt[268]=1:'Dark blue flared mini skirt and a cropped white T-Shirt, which has a deep V-shaped cutting. (The remaining strength <<skirtH[268]>>, The size of the hips <<skirtB[268]>>) <a href="exec:set numdres=268&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!269 and skirt[269]=1 or odetskirt=0 and skirt[269]=1:'Tight white pencil skirt, with a golden belt and tight turquise colored neckhaltered top. (The remaining strength <<skirtH[269]>>, The size of the hips <<skirtB[269]>>) <a href="exec:set numdres=269&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!270 and skirt[270]=1 or odetskirt=0 and skirt[270]=1:'Pink flared micro skirt and a white T-shirt, which has a few black lines to decorate it. (The remaining strength <<skirtH[270]>>, The size of the hips <<skirtB[270]>>) <a href="exec:set numdres=270&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!271 and skirt[271]=1 or odetskirt=0 and skirt[271]=1:'Stripe patterend White-Black-Red flared mini skirt and a beige shirt, which has a very deep V-shaped cutting. (The remaining strength <<skirtH[271]>>, The size of the hips <<skirtB[271]>>) <a href="exec:set numdres=271&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!272 and skirt[272]=1 or odetskirt=0 and skirt[272]=1:'Light blue denim micro skirt and a green tank top, which has a deep U-shaped cutting.  (The remaining strength <<skirtH[272]>>, The size of the hips <<skirtB[272]>>) <a href="exec:set numdres=272&GT ''portnoi1'',''skirt''">to take in</a>'
if odetskirt=1 and numdress!273 and skirt[273]=1 or odetskirt=0 and skirt[273]=1:'Red flared mini skirt and an orange T-shirt. It has a red belt as accessory to bind around the waist. It makes you look like Velma. (The remaining strength <<skirtH[273]>>, The size of the hips <<skirtB[273]>>) <a href="exec:set numdres=273&GT ''portnoi1'',''skirt''">to take in</a>'

if odetdress=1 and numdress!201 and dress[201]=1 or odetdress=0 and dress[201]=1:'Tight beige halter dress and beige-golden heels.(The remaining strength <<dressH[201]>>, The size of the hips <<dressB[201]>>) <a href="exec:set numdres=201&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!202 and dress[202]=1 or odetdress=0 and dress[202]=1:'Very short flower-style dress and pink pumps with golden heels.(The remaining strength <<dressH[202]>>, The size of the hips <<dressB[202]>>) <a href="exec:set numdres=202&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!203 and dress[203]=1 or odetdress=0 and dress[203]=1:'Glittery pink neckhalter dress.(The remaining strength <<dressH[203]>>, The size of the hips <<dressB[203]>>) <a href="exec:set numdres=203&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!204 and dress[204]=1 or odetdress=0 and dress[204]=1:'Tight wine red dress with a deep V cut.(The remaining strength <<dressH[204]>>, The size of the hips <<dressB[204]>>) <a href="exec:set numdres=204&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!205 and dress[205]=1 or odetdress=0 and dress[205]=1:'Tight bright red dress with a sheer black back.(The remaining strength <<dressH[205]>>, The size of the hips <<dressB[205]>>) <a href="exec:set numdres=205&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!206 and dress[206]=1 or odetdress=0 and dress[206]=1:'Grey green dress.(The remaining strength <<dressH[206]>>, The size of the hips <<dressB[206]>>) <a href="exec:set numdres=206&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!207 and dress[207]=1 or odetdress=0 and dress[207]=1:'Black lounge dress, including black heels.(The remaining strength <<dressH[207]>>, The size of the hips <<dressB[207]>>) <a href="exec:set numdres=207&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!208 and dress[208]=1 or odetdress=0 and dress[208]=1:'Glittery black dress with deep V cut.(The remaining strength <<dressH[208]>>, The size of the hips <<dressB[208]>>) <a href="exec:set numdres=208&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!209 and dress[209]=1 or odetdress=0 and dress[209]=1:'Tight black dress with thigh high boots.(The remaining strength <<dressH[209]>>, The size of the hips <<dressB[209]>>) <a href="exec:set numdres=209&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!210 and dress[210]=1 or odetdress=0 and dress[210]=1:'Tight bright blue dress.(The remaining strength <<dressH[210]>>, The size of the hips <<dressB[210]>>) <a href="exec:set numdres=210&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!211 and dress[211]=1 or odetdress=0 and dress[211]=1:'Glittery, black dress, with a deep V-shaped cleavage. (The remaining strength <<dressH[211]>>, The size of the hips <<dressB[211]>>) <a href="exec:set numdres=211&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!212 and dress[212]=1 or odetdress=0 and dress[212]=1:'Black dress, which has parts made of a see-trough material. (The remaining strength <<dressH[212]>>, The size of the hips <<dressB[212]>>) <a href="exec:set numdres=212&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!213 and dress[213]=1 or odetdress=0 and dress[213]=1:'White-beige dress, with a deep cleavage. (The remaining strength <<dressH[213]>>, The size of the hips <<dressB[213]>>) <a href="exec:set numdres=213&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!214 and dress[214]=1 or odetdress=0 and dress[214]=1:'2-part dress, with a short, tight skirt and a form-fitting top. (The remaining strength <<dressH[214]>>, The size of the hips <<dressB[214]>>) <a href="exec:set numdres=214&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!215 and dress[215]=1 or odetdress=0 and dress[215]=1:'Form-fittig black dress. (The remaining strength <<dressH[215]>>, The size of the hips <<dressB[215]>>) <a href="exec:set numdres=215&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!216 and dress[216]=1 or odetdress=0 and dress[216]=1:'Short, white dress. (The remaining strength <<dressH[216]>>, The size of the hips <<dressB[216]>>) <a href="exec:set numdres=216&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!217 and dress[217]=1 or odetdress=0 and dress[217]=1:'Dark blue dress with a revealing cleavage. (The remaining strength <<dressH[217]>>, The size of the hips <<dressB[217]>>) <a href="exec:set numdres=217&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!218 and dress[218]=1 or odetdress=0 and dress[218]=1:'Wine red dress, which has several lace parts. (The remaining strength <<dressH[218]>>, The size of the hips <<dressB[218]>>) <a href="exec:set numdres=218&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!219 and dress[219]=1 or odetdress=0 and dress[219]=1:'Red-blue-white dress. (The remaining strength <<dressH[219]>>, The size of the hips <<dressB[219]>>) <a href="exec:set numdres=219&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!220 and dress[220]=1 or odetdress=0 and dress[220]=1:'Black dress, with a revealing cleavage. (The remaining strength <<dressH[220]>>, The size of the hips <<dressB[220]>>) <a href="exec:set numdres=220&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!221 and dress[221]=1 or odetdress=0 and dress[221]=1:'Form-fitting, pink-grey dress. (The remaining strength <<dressH[221]>>, The size of the hips <<dressB[221]>>) <a href="exec:set numdres=221&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!222 and dress[222]=1 or odetdress=0 and dress[222]=1:'Pink dress. (The remaining strength <<dressH[222]>>, The size of the hips <<dressB[222]>>) <a href="exec:set numdres=222&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!223 and dress[223]=1 or odetdress=0 and dress[223]=1:'Long, glittery red dress, with a deep cleavage. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!224 and dress[224]=1 or odetdress=0 and dress[226]=1:'Long, formal dress in blue. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''portnoi1'',''dress''">to take in</a>'
if odetdress=1 and numdress!225 and dress[225]=1 or odetdress=0 and dress[227]=1:'Long, formal dress in red. (The remaining strength <<dressH[223]>>, The size of the hips <<dressB[223]>>) <a href="exec:set numdres=223&GT &GT ''portnoi1'',''dress''">to take in</a>'

if odetprofi = 1 and numdress ! 201 and profi[201] = 1 or odetprofi = 0 and profi[201] = 1: 'Office dress 201 (strength <<profiH[201]>>, hip size <<profiB[201]>>) <a href="exec: set numdres = 201 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 202 and profi[202] = 1 or odetprofi = 0 and profi[202] = 1: 'Office dress 202 (strength <<profiH[202]>>, hip size <<profiB[202]>>) <a href="exec: set numdres = 202 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 203 and profi[203] = 1 or odetprofi = 0 and profi[203] = 1: 'Office dress 203 (strength <<profiH[203]>>, hip size <<profiB[203]>>) <a href="exec: set numdres = 203 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 204 and profi[204] = 1 or odetprofi = 0 and profi[204] = 1: 'Office dress 204 (strength <<profiH[204]>>, hip size <<profiB[204]>>) <a href="exec: set numdres = 204 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 205 and profi[205] = 1 or odetprofi = 0 and profi[205] = 1: 'Office dress 205 (strength <<profiH[205]>>, hip size <<profiB[205]>>) <a href="exec: set numdres = 205 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 206 and profi[206] = 1 or odetprofi = 0 and profi[206] = 1: 'Office dress 206 (strength <<profiH[206]>>, hip size <<profiB[206]>>) <a href="exec: set numdres = 206 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 207 and profi[207] = 1 or odetprofi = 0 and profi[207] = 1: 'Office dress 207 (strength <<profiH[207]>>, hip size <<profiB[207]>>) <a href="exec: set numdres = 207 & GT ''portnoi1'',''profi''">to take in</a>'
if odetprofi = 1 and numdress ! 208 and profi[208] = 1 or odetprofi = 0 and profi[208] = 1: 'Office dress 208 (strength <<profiH[208]>>, hip size <<profiB[208]>>) <a href="exec: set numdres = 208 & GT ''portnoi1'',''profi''">to take in</a>'

if odetpants=1 and numdress!201 and pants[201]=1 or odetpants=0 and pants[201]=1:'Glittery silver leggings with a silver neckhalter top. (The remaining strength <<pantsH[201]>>, The size of the hips <<pantsB[201]>>) <a href="exec:set numdres=201&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!202 and pants[202]=1 or odetpants=0 and pants[202]=1:'Shiny silver leggings and a short white tube top. (The remaining strength <<pantsH[202]>>, The size of the hips <<pantsB[202]>>) <a href="exec:set numdres=202&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!203 and pants[203]=1 or odetpants=0 and pants[203]=1:'Shiny beige leggings and a frilly white T-Shirt, which people are able to see through. (The remaining strength <<pantsH[203]>>, The size of the hips <<pantsB[203]>>) <a href="exec:set numdres=203&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!204 and pants[204]=1 or odetpants=0 and pants[204]=1:'Grey leggings with a black tank top and a short black leather jacket. (The remaining strength <<pantsH[204]>>, The size of the hips <<pantsB[204]>>) <a href="exec:set numdres=204&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!205 and pants[205]=1 or odetpants=0 and pants[205]=1:'Black leggings with a light blue top, which provides a great view due to it very deep U-Shaped cutting. (The remaining strength <<pantsH[205]>>, The size of the hips <<pantsB[205]>>) <a href="exec:set numdres=205&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!206 and pants[206]=1 or odetpants=0 and pants[206]=1:'Shiny black leggings with a shiny silver top. (The remaining strength <<pantsH[206]>>, The size of the hips <<pantsB[206]>>) <a href="exec:set numdres=206&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!207 and pants[207]=1 or odetpants=0 and pants[207]=1:'Black leggings with a pink top. (The remaining strength <<pantsH[207]>>, The size of the hips <<pantsB[207]>>) <a href="exec:set numdres=207&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!208 and pants[208]=1 or odetpants=0 and pants[208]=1:'Tight blue jeggings with a black tank top. (The remaining strength <<pantsH[208]>>, The size of the hips <<pantsB[208]>>) <a href="exec:set numdres=208&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!210 and pants[210]=1 or odetpants=0 and pants[210]=1:'Tight grey leggings with discreet leopard pattern, a white blouse and a light brown jacket. (The remaining strength <<pantsH[210]>>, The size of the hips <<pantsB[210]>>) <a href="exec:set numdres=210&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!211 and pants[211]=1 or odetpants=0 and pants[211]=1:'Shiny black leggings, with a studded belt and a black T-Shirt. (The remaining strength <<pantsH[211]>>, The size of the hips <<pantsB[211]>>) <a href="exec:set numdres=211&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!212 and pants[212]=1 or odetpants=0 and pants[212]=1:'Shiny black leggings and a black-white striped camisole under a dark grey jacket. (The remaining strength <<pantsH[212]>>, The size of the hips <<pantsB[212]>>) <a href="exec:set numdres=212&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!213 and pants[213]=1 or odetpants=0 and pants[213]=1:'Black leggings and a white blouse. (The remaining strength <<pantsH[213]>>, The size of the hips <<pantsB[213]>>) <a href="exec:set numdres=213&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!214 and pants[214]=1 or odetpants=0 and pants[214]=1:'Black leggings and a short dark blue T-Shirt. (The remaining strength <<pantsH[214]>>, The size of the hips <<pantsB[214]>>) <a href="exec:set numdres=214&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!215 and pants[215]=1 or odetpants=0 and pants[215]=1:'Patterned blue leggings and a colorful tank top. (The remaining strength <<pantsH[215]>>, The size of the hips <<pantsB[215]>>) <a href="exec:set numdres=215&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!216 and pants[216]=1 or odetpants=0 and pants[216]=1:'Black leggings and a white tank top. (The remaining strength <<pantsH[216]>>, The size of the hips <<pantsB[216]>>) <a href="exec:set numdres=216&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!217 and pants[217]=1 or odetpants=0 and pants[217]=1:'Light pink leggings and a black tank top under a short grey hoodie. (The remaining strength <<pantsH[217]>>, The size of the hips <<pantsB[217]>>) <a href="exec:set numdres=217&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!218 and pants[218]=1 or odetpants=0 and pants[218]=1:'Grey leggings and a white neckhalter top. (The remaining strength <<pantsH[218]>>, The size of the hips <<pantsB[218]>>) <a href="exec:set numdres=218&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!219 and pants[219]=1 or odetpants=0 and pants[219]=1:'Black leggings and a pink T-Shirt. (The remaining strength <<pantsH[219]>>, The size of the hips <<pantsB[219]>>) <a href="exec:set numdres=219&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!220 and pants[220]=1 or odetpants=0 and pants[220]=1:'White leggings and a short, white tube top. (The remaining strength <<pantsH[220]>>, The size of the hips <<pantsB[220]>>) <a href="exec:set numdres=220&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!221 and pants[221]=1 or odetpants=0 and pants[221]=1:'Shiny, grey leggings and a short, blue blouse. (The remaining strength <<pantsH[221]>>, The size of the hips <<pantsB[221]>>) <a href="exec:set numdres=221&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!222 and pants[222]=1 or odetpants=0 and pants[222]=1:'Leopard patterned leggings and a short, red top. (The remaining strength <<pantsH[222]>>, The size of the hips <<pantsB[222]>>) <a href="exec:set numdres=222&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!223 and pants[223]=1 or odetpants=0 and pants[223]=1:'Beige pants and an oliv T-Shirt. (The remaining strength <<pantsH[223]>>, The size of the hips <<pantsB[223]>>) <a href="exec:set numdres=223&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!226 and pants[226]=1 or odetpants=0 and pants[226]=1:'Dark blue leggings and a black shirt. (The remaining strength <<pantsH[226]>>, The size of the hips <<pantsB[226]>>) <a href="exec:set numdres=226&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!227 and pants[227]=1 or odetpants=0 and pants[227]=1:'Grey leggings and a loose fitting, pink T-Shirt. (The remaining strength <<pantsH[227]>>, The size of the hips <<pantsB[227]>>) <a href="exec:set numdres=227&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!228 and pants[228]=1 or odetpants=0 and pants[228]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[228]>>, The size of the hips <<pantsB[228]>>) <a href="exec:set numdres=228&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!230 and pants[230]=1 or odetpants=0 and pants[230]=1:'Grey leggings, with a black leather belt and a black top. (The remaining strength <<pantsH[230]>>, The size of the hips <<pantsB[230]>>) <a href="exec:set numdres=230&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!231 and pants[231]=1 or odetpants=0 and pants[231]=1:'Blue leggings and a very short, blue top. (The remaining strength <<pantsH[231]>>, The size of the hips <<pantsB[231]>>) <a href="exec:set numdres=231&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!232 and pants[232]=1 or odetpants=0 and pants[232]=1:'Shiny black leggings and a short, black neckhalter top. (The remaining strength <<pantsH[232]>>, The size of the hips <<pantsB[232]>>) <a href="exec:set numdres=232&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!233 and pants[233]=1 or odetpants=0 and pants[233]=1:'Thin, grey leggings and a white T-Shirt. (The remaining strength <<pantsH[233]>>, The size of the hips <<pantsB[233]>>) <a href="exec:set numdres=233&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!234 and pants[234]=1 or odetpants=0 and pants[234]=1:'Shiny, black leggings and a black top. (The remaining strength <<pantsH[234]>>, The size of the hips <<pantsB[234]>>) <a href="exec:set numdres=234&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!235 and pants[235]=1 or odetpants=0 and pants[235]=1:'Shiny, patterned leggings and a black tank top. (The remaining strength <<pantsH[235]>>, The size of the hips <<pantsB[235]>>) <a href="exec:set numdres=235&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!236 and pants[236]=1 or odetpants=0 and pants[236]=1:'Grey leggings and a light purple T-Shirt. (The remaining strength <<pantsH[236]>>, The size of the hips <<pantsB[236]>>) <a href="exec:set numdres=236&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!237 and pants[237]=1 or odetpants=0 and pants[237]=1:'Dark blue leggings and a black top. (The remaining strength <<pantsH[237]>>, The size of the hips <<pantsB[237]>>) <a href="exec:set numdres=237&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!238 and pants[238]=1 or odetpants=0 and pants[238]=1:'Grey leggings and a light pink top. (The remaining strength <<pantsH[238]>>, The size of the hips <<pantsB[238]>>) <a href="exec:set numdres=238&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!239 and pants[239]=1 or odetpants=0 and pants[239]=1:'Grey leggings and a grey top. (The remaining strength <<pantsH[239]>>, The size of the hips <<pantsB[239]>>) <a href="exec:set numdres=239&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!240 and pants[240]=1 or odetpants=0 and pants[240]=1:'Dark grey leggings, with colorful stripes and a white T-Shirt. (The remaining strength <<pantsH[240]>>, The size of the hips <<pantsB[240]>>) <a href="exec:set numdres=240&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!241 and pants[241]=1 or odetpants=0 and pants[241]=1:'Grey leggings and a blue hoodie. (The remaining strength <<pantsH[241]>>, The size of the hips <<pantsB[241]>>) <a href="exec:set numdres=241&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!242 and pants[242]=1 or odetpants=0 and pants[242]=1:'White leggings and a white bikini top. (The remaining strength <<pantsH[242]>>, The size of the hips <<pantsB[242]>>) <a href="exec:set numdres=242&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!243 and pants[243]=1 or odetpants=0 and pants[243]=1:'White leggings and a orange-red top. (The remaining strength <<pantsH[243]>>, The size of the hips <<pantsB[243]>>) <a href="exec:set numdres=243&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!244 and pants[244]=1 or odetpants=0 and pants[244]=1:'Black leggings and a white camisole, with a deep cleavage. (The remaining strength <<pantsH[244]>>, The size of the hips <<pantsB[244]>>) <a href="exec:set numdres=244&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!245 and pants[245]=1 or odetpants=0 and pants[245]=1:'White leggings and a very short black tube top. (The remaining strength <<pantsH[245]>>, The size of the hips <<pantsB[245]>>) <a href="exec:set numdres=245&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!246 and pants[246]=1 or odetpants=0 and pants[246]=1:'Grey leggings and a black T-Shirt.  (The remaining strength <<pantsH[246]>>, The size of the hips <<pantsB[246]>>) <a href="exec:set numdres=246&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!247 and pants[247]=1 or odetpants=0 and pants[247]=1:'Black leggings and a short, black-white tank top. (The remaining strength <<pantsH[247]>>, The size of the hips <<pantsB[247]>>) <a href="exec:set numdres=247&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!248 and pants[248]=1 or odetpants=0 and pants[248]=1:'Dark grey leggings and a white tube top. (The remaining strength <<pantsH[248]>>, The size of the hips <<pantsB[248]>>) <a href="exec:set numdres=248&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!249 and pants[249]=1 or odetpants=0 and pants[249]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[249]>>, The size of the hips <<pantsB[249]>>) <a href="exec:set numdres=249&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!250 and pants[250]=1 or odetpants=0 and pants[250]=1:'Shiny brown leggings and a white T-Shirt. (The remaining strength <<pantsH[250]>>, The size of the hips <<pantsB[250]>>) <a href="exec:set numdres=250&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!251 and pants[251]=1 or odetpants=0 and pants[251]=1:'White leggings and a short, white tube-top. (The remaining strength <<pantsH[251]>>, The size of the hips <<pantsB[251]>>) <a href="exec:set numdres=251&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!252 and pants[252]=1 or odetpants=0 and pants[252]=1:'Wine red leggings and a dark blue denim jacket. (The remaining strength <<pantsH[252]>>, The size of the hips <<pantsB[252]>>) <a href="exec:set numdres=252&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!253 and pants[253]=1 or odetpants=0 and pants[253]=1:'Thin, white leggings and a white top. (The remaining strength <<pantsH[253]>>, The size of the hips <<pantsB[253]>>) <a href="exec:set numdres=253&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!254 and pants[254]=1 or odetpants=0 and pants[254]=1:'Light brown leggings and a blue denim jacket. (The remaining strength <<pantsH[254]>>, The size of the hips <<pantsB[254]>>) <a href="exec:set numdres=254&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!255 and pants[255]=1 or odetpants=0 and pants[255]=1:'White leggings and a very short, black tube top. (The remaining strength <<pantsH[255]>>, The size of the hips <<pantsB[255]>>) <a href="exec:set numdres=255&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!256 and pants[256]=1 or odetpants=0 and pants[256]=1:'Shiny red leggings and a white blouse. (The remaining strength <<pantsH[256]>>, The size of the hips <<pantsB[256]>>) <a href="exec:set numdres=256&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!257 and pants[257]=1 or odetpants=0 and pants[257]=1:'Black leggings and a light brown shirt. (The remaining strength <<pantsH[257]>>, The size of the hips <<pantsB[257]>>) <a href="exec:set numdres=257&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!258 and pants[258]=1 or odetpants=0 and pants[258]=1:'Shiny black leggings and a black top. (The remaining strength <<pantsH[258]>>, The size of the hips <<pantsB[258]>>) <a href="exec:set numdres=258&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!259 and pants[259]=1 or odetpants=0 and pants[259]=1:'Dark blue leggings and a green tube top. (The remaining strength <<pantsH[259]>>, The size of the hips <<pantsB[259]>>) <a href="exec:set numdres=259&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!260 and pants[260]=1 or odetpants=0 and pants[260]=1:'Blue leggings and a black shirt. (The remaining strength <<pantsH[260]>>, The size of the hips <<pantsB[260]>>) <a href="exec:set numdres=260&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!261 and pants[261]=1 or odetpants=0 and pants[261]=1:'Light blue leggings and a red-black T-Shirt. (The remaining strength <<pantsH[261]>>, The size of the hips <<pantsB[261]>>) <a href="exec:set numdres=261&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!262 and pants[262]=1 or odetpants=0 and pants[262]=1:'Black leggings and a white T-Shirt, with deep cleavage. (The remaining strength <<pantsH[262]>>, The size of the hips <<pantsB[262]>>) <a href="exec:set numdres=262&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!263 and pants[263]=1 or odetpants=0 and pants[263]=1:'Grey leggings and a white top. (The remaining strength <<pantsH[263]>>, The size of the hips <<pantsB[263]>>) <a href="exec:set numdres=263&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!264 and pants[264]=1 or odetpants=0 and pants[264]=1:'Black pants, with a black studded leather belt anbd a short, black top. (The remaining strength <<pantsH[264]>>, The size of the hips <<pantsB[264]>>) <a href="exec:set numdres=264&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!265 and pants[265]=1 or odetpants=0 and pants[265]=1:'Brown leggings and a light pink top, with a deep cleavage.(The remaining strength <<pantsH[265]>>, The size of the hips <<pantsB[265]>>) <a href="exec:set numdres=265&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!266 and pants[266]=1 or odetpants=0 and pants[266]=1:'Shiny, black leggings and a grey shirt. (The remaining strength <<pantsH[266]>>, The size of the hips <<pantsB[266]>>) <a href="exec:set numdres=266&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!267 and pants[267]=1 or odetpants=0 and pants[267]=1:'Dark blue leggings and a short, black top. (The remaining strength <<pantsH[267]>>, The size of the hips <<pantsB[267]>>) <a href="exec:set numdres=267&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!268 and pants[268]=1 or odetpants=0 and pants[268]=1:'Blue jeggings and a short, white top. (The remaining strength <<pantsH[268]>>, The size of the hips <<pantsB[268]>>) <a href="exec:set numdres=268&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!269 and pants[269]=1 or odetpants=0 and pants[269]=1:'Blue jeggings and a beige camisole. (The remaining strength <<pantsH[269]>>, The size of the hips <<pantsB[269]>>) <a href="exec:set numdres=269&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!270 and pants[270]=1 or odetpants=0 and pants[270]=1:'Black leggings and a black tube top. (The remaining strength <<pantsH[270]>>, The size of the hips <<pantsB[270]>>) <a href="exec:set numdres=270&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!271 and pants[271]=1 or odetpants=0 and pants[271]=1:'Blue pants and a short, white nackhalter top.  (The remaining strength <<pantsH[271]>>, The size of the hips <<pantsB[271]>>) <a href="exec:set numdres=271&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!273 and pants[273]=1 or odetpants=0 and pants[273]=1:'Black leggings and a beige tank top, under a blue shirt. (The remaining strength <<pantsH[273]>>, The size of the hips <<pantsB[273]>>) <a href="exec:set numdres=273&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!274 and pants[274]=1 or odetpants=0 and pants[274]=1:'Light blue leggings and a short, white T-Shirt. (The remaining strength <<pantsH[274]>>, The size of the hips <<pantsB[274]>>) <a href="exec:set numdres=274&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!275 and pants[275]=1 or odetpants=0 and pants[275]=1:'Wine red leggings and a short black shirt. (The remaining strength <<pantsH[275]>>, The size of the hips <<pantsB[275]>>) <a href="exec:set numdres=275&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!276 and pants[276]=1 or odetpants=0 and pants[276]=1:'Black leggings and a short black shirt. (The remaining strength <<pantsH[276]>>, The size of the hips <<pantsB[276]>>) <a href="exec:set numdres=276&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!277 and pants[277]=1 or odetpants=0 and pants[277]=1:'Shiny, pink leggings and a white jacket. (The remaining strength <<pantsH[277]>>, The size of the hips <<pantsB[277]>>) <a href="exec:set numdres=277&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!278 and pants[278]=1 or odetpants=0 and pants[278]=1:'Black leggings and a very short, black camisole. (The remaining strength <<pantsH[278]>>, The size of the hips <<pantsB[278]>>) <a href="exec:set numdres=278&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!279 and pants[279]=1 or odetpants=0 and pants[279]=1:'Shiny, golden leggings and a shiny, golden top. (The remaining strength <<pantsH[279]>>, The size of the hips <<pantsB[279]>>) <a href="exec:set numdres=279&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!280 and pants[280]=1 or odetpants=0 and pants[280]=1:'Grey leggings and a short, blue tube top. (The remaining strength <<pantsH[280]>>, The size of the hips <<pantsB[280]>>) <a href="exec:set numdres=280&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!281 and pants[281]=1 or odetpants=0 and pants[281]=1:'Shiny, black leggings and a red top.  (The remaining strength <<pantsH[281]>>, The size of the hips <<pantsB[281]>>) <a href="exec:set numdres=281&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!282 and pants[282]=1 or odetpants=0 and pants[282]=1:'Dark grey leggings and a grey tank top, under a grey jacket. (The remaining strength <<pantsH[282]>>, The size of the hips <<pantsB[282]>>) <a href="exec:set numdres=282&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!283 and pants[283]=1 or odetpants=0 and pants[283]=1:'White leggings and a black camisole, with a deep cleavage, under a short, black leather jacket. (The remaining strength <<pantsH[283]>>, The size of the hips <<pantsB[283]>>) <a href="exec:set numdres=283&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!284 and pants[284]=1 or odetpants=0 and pants[284]=1:'Black leggings and a grey neckhalter top. (The remaining strength <<pantsH[284]>>, The size of the hips <<pantsB[284]>>) <a href="exec:set numdres=284&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!285 and pants[285]=1 or odetpants=0 and pants[285]=1:'White leggings and a white top. (The remaining strength <<pantsH[285]>>, The size of the hips <<pantsB[285]>>) <a href="exec:set numdres=285&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!286 and pants[286]=1 or odetpants=0 and pants[286]=1:'White leggings and a short white camisole, under a blue jacket. (The remaining strength <<pantsH[286]>>, The size of the hips <<pantsB[286]>>) <a href="exec:set numdres=286&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!287 and pants[287]=1 or odetpants=0 and pants[287]=1:'Black leggings and a black top. (The remaining strength <<pantsH[287]>>, The size of the hips <<pantsB[287]>>) <a href="exec:set numdres=287&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!288 and pants[288]=1 or odetpants=0 and pants[288]=1:'Black leggings and a short, light blue denim vest. (The remaining strength <<pantsH[288]>>, The size of the hips <<pantsB[288]>>) <a href="exec:set numdres=288&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!289 and pants[289]=1 or odetpants=0 and pants[289]=1:'Patterned, black-white leggings and a loose fitting golden top. (The remaining strength <<pantsH[289]>>, The size of the hips <<pantsB[289]>>) <a href="exec:set numdres=289&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!290 and pants[290]=1 or odetpants=0 and pants[290]=1:'Black leather pants and a wine red tank top. (The remaining strength <<pantsH[290]>>, The size of the hips <<pantsB[290]>>) <a href="exec:set numdres=290&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!291 and pants[291]=1 or odetpants=0 and pants[291]=1:'Dark blue leggings adn a dark blue shirt. (The remaining strength <<pantsH[291]>>, The size of the hips <<pantsB[291]>>) <a href="exec:set numdres=291&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!292 and pants[292]=1 or odetpants=0 and pants[292]=1:'Black leggings and a black shirt. (The remaining strength <<pantsH[292]>>, The size of the hips <<pantsB[292]>>) <a href="exec:set numdres=292&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!293 and pants[293]=1 or odetpants=0 and pants[293]=1:'Wine red leggings and a short, blue tank top. (The remaining strength <<pantsH[293]>>, The size of the hips <<pantsB[293]>>) <a href="exec:set numdres=293&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!294 and pants[294]=1 or odetpants=0 and pants[294]=1:'Light grey leggings and a very short, blue top. (The remaining strength <<pantsH[294]>>, The size of the hips <<pantsB[294]>>) <a href="exec:set numdres=294&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!295 and pants[295]=1 or odetpants=0 and pants[295]=1:'Wine red leggings and a loose fitting, dark blue tank top. (The remaining strength <<pantsH[295]>>, The size of the hips <<pantsB[295]>>) <a href="exec:set numdres=295&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!296 and pants[296]=1 or odetpants=0 and pants[296]=1:'Black leggings and a red-white striped shirt. (The remaining strength <<pantsH[296]>>, The size of the hips <<pantsB[296]>>) <a href="exec:set numdres=296&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!297 and pants[297]=1 or odetpants=0 and pants[297]=1:'Shiny black leggings and a short, wine red top. (The remaining strength <<pantsH[297]>>, The size of the hips <<pantsB[297]>>) <a href="exec:set numdres=297&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!298 and pants[298]=1 or odetpants=0 and pants[298]=1:'White leggings and a neon-green top. (The remaining strength <<pantsH[298]>>, The size of the hips <<pantsB[298]>>) <a href="exec:set numdres=298&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!299 and pants[299]=1 or odetpants=0 and pants[299]=1:'Pink leggings and a purple top. (The remaining strength <<pantsH[299]>>, The size of the hips <<pantsB[299]>>) <a href="exec:set numdres=299&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!300 and pants[300]=1 or odetpants=0 and pants[300]=1:'Grey leggings and a white blouse. (The remaining strength <<pantsH[300]>>, The size of the hips <<pantsB[300]>>) <a href="exec:set numdres=300&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!301 and pants[301]=1 or odetpants=0 and pants[301]=1:'Shiny black leggings and a pink fishnet top. (The remaining strength <<pantsH[301]>>, The size of the hips <<pantsB[301]>>) <a href="exec:set numdres=301&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!302 and pants[302]=1 or odetpants=0 and pants[302]=1:'Black leggings and a white-black top. (The remaining strength <<pantsH[302]>>, The size of the hips <<pantsB[302]>>) <a href="exec:set numdres=302&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!303 and pants[303]=1 or odetpants=0 and pants[303]=1:'Red leggings and a black top. (The remaining strength <<pantsH[303]>>, The size of the hips <<pantsB[303]>>) <a href="exec:set numdres=303&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!304 and pants[304]=1 or odetpants=0 and pants[304]=1:'Black leggings and a white top. (The remaining strength <<pantsH[304]>>, The size of the hips <<pantsB[304]>>) <a href="exec:set numdres=304&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!305 and pants[305]=1 or odetpants=0 and pants[305]=1:'Shiny black leggings and a very short white-black top. (The remaining strength <<pantsH[305]>>, The size of the hips <<pantsB[305]>>) <a href="exec:set numdres=305&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!306 and pants[306]=1 or odetpants=0 and pants[306]=1:'Thin, white pants and a short, red top. (The remaining strength <<pantsH[306]>>, The size of the hips <<pantsB[306]>>) <a href="exec:set numdres=306&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!307 and pants[307]=1 or odetpants=0 and pants[307]=1:'Grey leggings and a black shirt. (The remaining strength <<pantsH[307]>>, The size of the hips <<pantsB[307]>>) <a href="exec:set numdres=307&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!309 and pants[309]=1 or odetpants=0 and pants[309]=1:'Black leggings and a white-black striped top, with a very revealing cleavage. (The remaining strength <<pantsH[309]>>, The size of the hips <<pantsB[309]>>) <a href="exec:set numdres=309&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!311 and pants[311]=1 or odetpants=0 and pants[311]=1:'Shiny beige leggings and a black top, with a deep cleavage. (The remaining strength <<pantsH[311]>>, The size of the hips <<pantsB[311]>>) <a href="exec:set numdres=311&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!312 and pants[312]=1 or odetpants=0 and pants[312]=1:'White leggings and a very short, white tube top, under a loose fitting blue top. (The remaining strength <<pantsH[312]>>, The size of the hips <<pantsB[312]>>) <a href="exec:set numdres=312&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!313 and pants[313]=1 or odetpants=0 and pants[313]=1:'Black leggings and a black camisole, with a deep cleavage. (The remaining strength <<pantsH[313]>>, The size of the hips <<pantsB[313]>>) <a href="exec:set numdres=313&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!314 and pants[314]=1 or odetpants=0 and pants[314]=1:'Skin tight, white pants and a beige top. (The remaining strength <<pantsH[314]>>, The size of the hips <<pantsB[314]>>) <a href="exec:set numdres=314&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!315 and pants[315]=1 or odetpants=0 and pants[315]=1:'Grey leggings and a white top, with a deep cleavage. (The remaining strength <<pantsH[315]>>, The size of the hips <<pantsB[315]>>) <a href="exec:set numdres=315&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!316 and pants[316]=1 or odetpants=0 and pants[316]=1:'Dark grey leggings and a black top. (The remaining strength <<pantsH[316]>>, The size of the hips <<pantsB[316]>>) <a href="exec:set numdres=316&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!317 and pants[317]=1 or odetpants=0 and pants[317]=1:'Dark grey leggings and a grey T-Shirt. (The remaining strength <<pantsH[317]>>, The size of the hips <<pantsB[317]>>) <a href="exec:set numdres=317&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!318 and pants[318]=1 or odetpants=0 and pants[318]=1:'Thin, shiny, black leggings and a black top. (The remaining strength <<pantsH[318]>>, The size of the hips <<pantsB[318]>>) <a href="exec:set numdres=318&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!319 and pants[319]=1 or odetpants=0 and pants[319]=1:'Black leggings and a short, black-white striped shirt. (The remaining strength <<pantsH[319]>>, The size of the hips <<pantsB[319]>>) <a href="exec:set numdres=319&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!320 and pants[320]=1 or odetpants=0 and pants[320]=1:'Thin, white pants and a short white top. (The remaining strength <<pantsH[320]>>, The size of the hips <<pantsB[320]>>) <a href="exec:set numdres=320&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!321 and pants[321]=1 or odetpants=0 and pants[321]=1:'Shiny black leggings and a ver short, shiny black camisole under a black leather jacket. (The remaining strength <<pantsH[321]>>, The size of the hips <<pantsB[321]>>) <a href="exec:set numdres=321&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!322 and pants[322]=1 or odetpants=0 and pants[322]=1:'Shiny black leggings and a black tank top, under a brown leather vest. (The remaining strength <<pantsH[322]>>, The size of the hips <<pantsB[322]>>) <a href="exec:set numdres=322&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!324 and pants[324]=1 or odetpants=0 and pants[324]=1:'Black leggings, with holes and a leopart patterned shirt, with some cleavage. (The remaining strength <<pantsH[324]>>, The size of the hips <<pantsB[324]>>) <a href="exec:set numdres=324&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!325 and pants[325]=1 or odetpants=0 and pants[325]=1:'Shiny black leggings and a colourful top. (The remaining strength <<pantsH[325]>>, The size of the hips <<pantsB[325]>>) <a href="exec:set numdres=325&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!326 and pants[326]=1 or odetpants=0 and pants[326]=1:'Shiny black leggings and a very short, black tube top. (The remaining strength <<pantsH[326]>>, The size of the hips <<pantsB[326]>>) <a href="exec:set numdres=326&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!327 and pants[327]=1 or odetpants=0 and pants[327]=1:'Shiny black leggings and a black top, with a very revealing cleavage. (The remaining strength <<pantsH[327]>>, The size of the hips <<pantsB[327]>>) <a href="exec:set numdres=327&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!328 and pants[328]=1 or odetpants=0 and pants[328]=1:'Black leggings and a long, black T-Shirt under a black leather jacket. (The remaining strength <<pantsH[328]>>, The size of the hips <<pantsB[328]>>) <a href="exec:set numdres=328&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!329 and pants[329]=1 or odetpants=0 and pants[329]=1:'Shiny black leggings and a long, wine red top. (The remaining strength <<pantsH[329]>>, The size of the hips <<pantsB[329]>>) <a href="exec:set numdres=329&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!330 and pants[330]=1 or odetpants=0 and pants[330]=1:'Shiny black leggings and a very revealing dark blue camisole. (The remaining strength <<pantsH[330]>>, The size of the hips <<pantsB[330]>>) <a href="exec:set numdres=330&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!331 and pants[331]=1 or odetpants=0 and pants[331]=1:'Black leggings and a long, grey T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[331]>>, The size of the hips <<pantsB[331]>>) <a href="exec:set numdres=331&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!332 and pants[332]=1 or odetpants=0 and pants[332]=1:'Shiny black leggings and a black leather jacket. (The remaining strength <<pantsH[332]>>, The size of the hips <<pantsB[332]>>) <a href="exec:set numdres=332&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!333 and pants[333]=1 or odetpants=0 and pants[333]=1:'Shiny black leggings and a very short, white top. (The remaining strength <<pantsH[333]>>, The size of the hips <<pantsB[333]>>) <a href="exec:set numdres=333&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!334 and pants[334]=1 or odetpants=0 and pants[334]=1:'Black leggings and a white T-Shirt, under a floral patterned blouse. (The remaining strength <<pantsH[334]>>, The size of the hips <<pantsB[334]>>) <a href="exec:set numdres=334&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!335 and pants[335]=1 or odetpants=0 and pants[335]=1:'Black leggings and a white T-Shirt, under a black leather jacket. (The remaining strength <<pantsH[335]>>, The size of the hips <<pantsB[335]>>) <a href="exec:set numdres=335&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!336 and pants[336]=1 or odetpants=0 and pants[336]=1:'Shiny black leggings and a white-black striped shirt, under a light blue jacket. (The remaining strength <<pantsH[336]>>, The size of the hips <<pantsB[336]>>) <a href="exec:set numdres=336&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!337 and pants[337]=1 or odetpants=0 and pants[337]=1:'Shiny red leggings and a white top, udner a brown vest. (The remaining strength <<pantsH[337]>>, The size of the hips <<pantsB[337]>>) <a href="exec:set numdres=337&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!338 and pants[338]=1 or odetpants=0 and pants[338]=1:'Shiny black leggings and a white T-Shirt, under a red jacket. (The remaining strength <<pantsH[338]>>, The size of the hips <<pantsB[338]>>) <a href="exec:set numdres=338&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!339 and pants[339]=1 or odetpants=0 and pants[339]=1:'Shiny black leggings and a white-black striped T-Shirt, under a blue denim jacket. (The remaining strength <<pantsH[339]>>, The size of the hips <<pantsB[339]>>) <a href="exec:set numdres=339&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!341 and pants[341]=1 or odetpants=0 and pants[341]=1:'Black leggings and a black T-Shirt, under a blue denim vest. (The remaining strength <<pantsH[341]>>, The size of the hips <<pantsB[341]>>) <a href="exec:set numdres=341&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!342 and pants[342]=1 or odetpants=0 and pants[342]=1:'Shiny black leggings ad a white T-Shirt. (The remaining strength <<pantsH[342]>>, The size of the hips <<pantsB[342]>>) <a href="exec:set numdres=342&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!343 and pants[343]=1 or odetpants=0 and pants[343]=1:'Black leggings and a very short, black camisole under a black leather jacket. (The remaining strength <<pantsH[343]>>, The size of the hips <<pantsB[343]>>) <a href="exec:set numdres=343&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!344 and pants[344]=1 or odetpants=0 and pants[344]=1:'Black leggings and a black camisole, under a black leather jacket. (The remaining strength <<pantsH[344]>>, The size of the hips <<pantsB[344]>>) <a href="exec:set numdres=344&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!345 and pants[345]=1 or odetpants=0 and pants[345]=1:'Shiny black leggings and a black shirt, under a black leather jacket. (The remaining strength <<pantsH[345]>>, The size of the hips <<pantsB[345]>>) <a href="exec:set numdres=345&GT ''portnoi1'',''profi''">to take in</a>'
if odetpants=1 and numdress!346 and pants[346]=1 or odetpants=0 and pants[346]=1:'Blue jeggings and a tight, red camisole, with a revealing cleavage. (The remaining strength <<pantsH[346]>>, The size of the hips <<pantsB[346]>>) <a href="exec:set numdres=346&GT ''portnoi1'',''profi''">to take in</a>'

if odethooker = 1 and numdress ! 201 and hooker[201] = 1 or odethooker = 0 and hooker[201] = 1: 'Prostitute outfit number 201 (strength <<hookerH[201]>>, hip size <<hookerB[201]>>) <a href="exec: set numdres = 201 & GT ''portnoi1'',''profi''">to take in</a>'
if odethooker = 1 and numdress ! 202 and hooker[202] = 1 or odethooker = 0 and hooker[202] = 1: 'Prostitute outfit number 202 (strength <<hookerH[202]>>, hip size <<hookerB[202]>>) <a href="exec: set numdres = 202 & GT ''portnoi1'',''profi''">to take in</a>'
if odethooker = 1 and numdress ! 203 and hooker[203] = 1 or odethooker = 0 and hooker[203] = 1: 'Prostitute outfit number 203 (strength <<hookerH[203]>>, hip size <<hookerB[203]>>) <a href="exec: set numdres = 203 & GT ''portnoi1'',''profi''">to take in</a>'
if odethooker = 1 and numdress ! 204 and hooker[204] = 1 or odethooker = 0 and hooker[204] = 1: 'Prostitute outfit number 204 (strength <<hookerH[204]>>, hip size <<hookerB[204]>>) <a href="exec: set numdres = 204 & GT ''portnoi1'',''profi''">to take in</a>'
if odethooker = 1 and numdress ! 205 and hooker[205] = 1 or odethooker = 0 and hooker[205] = 1: 'Prostitute outfit number 205 (strength <<hookerH[205]>>, hip size <<hookerB[205]>>) <a href="exec: set numdres = 205 & GT ''portnoi1'',''profi''">to take in</a>'


act 'Finish': gt 'clener','start'
end

if $ARGS[0] = 'jeans':
cla
'<center><img src="images\clothes\jeans<<numdres>>.jpg "></center>'
'(strength <<jeansH[numdres]>>, hip size <<jeansB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if jeansB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set jeansB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'short':
cla
'<center><img src="images\clothes\short<<numdres>>.jpg "></center>'
'(strength <<shortH[numdres]>>, hip size <<shortB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if shortB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set shortB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'skirt':
cla
'<center><img src="images\clothes\skirt<<numdres>>.jpg "></center>'
'(strength <<skirtH[numdres]>>, hip size <<skirtB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if skirtB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set skirtB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'dress':
cla
'<center><img src="images\clothes\dress<<numdres>>.jpg "></center>'
'(strength <<dressH[numdres]>>, hip size <<dressB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if dressB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set dressB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'profi':
cla
'<center><img src="images\clothes\profi<<numdres>>.jpg "></center>'
'(strength <<profiH[numdres]>>, hip size <<profiB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if profiB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set profiB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'pants':
cla
'<center><img src="images\clothes\pants<<numdres>>.jpg "></center>'
'(strength <<pantsH[numdres]>>, hip size <<pantsB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if pantsB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set pantsB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'latex':
cla
'<center><img src="images\clothes\latex<<numdres>>.jpg "></center>'
'(strength <<latexH[numdres]>>, hip size <<latexB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if latexB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set latexB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'hooker':
cla
'<center><img src="images\clothes\hooker<<numdres>>.jpg "></center>'
'(strength <<hookerH[numdres]>>, hip size <<hookerB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if hookerB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set hookerB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'odekis':
cla
'<center><img src="images\clothes\k<<numdres>>.jpg "></center>'
'(strength <<odekisH[numdres]>>, hip size <<odekisB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if odekisB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set odekisB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end

if $ARGS[0] = 'newclo':
cla
'<center><img src="images\clothes\<<numdres>>.jpg "></center>'
'(strength <<newcloH[numdres]>>, hip size <<newcloB[numdres]>>)'
act 'To Top': gt 'portnoi1','start'
if newcloB[numdres]!bedra and money >= 500:
	'You can take in for 500 rubles.'
	act 'Take in':
		set newcloB[numdres] = bedra
		set money -= 500
		gt 'portnoi1','start'
		end
	end
end
--- portnoi1 ---------------------------------

# portnoi2
set poshvalldrop = 0
set o = 0
:jensmet
set o += 1
if jeans[o] = 1 and jeansB[o]!bedra: set poshvalldrop += 1
if o ! 5: jump 'jensmet'
set o = 0
:shortmet
set o += 1
if short[o] = 1 and shortB[o]!bedra: set poshvalldrop += 1
if o ! 5: jump 'shortmet'
set o = 0
:skirtmet
set o += 1
if skirt[o] = 1 and skirtB[o]!bedra: set poshvalldrop += 1
if o ! 5: jump 'skirtmet'
set o = 0
:dressmet
set o += 1
if dress[o] = 1 and dressB[o]!bedra: set poshvalldrop += 1
if o ! 24: jump 'dressmet'
set o = 0
:profimet
set o += 1
if profi[o] = 1 and profiB[o]!bedra: set poshvalldrop += 1
if o ! 2: jump 'profimet'
set o = 0
:pantsmet
set o += 1
if pants[o] = 1 and pantsB[o]!bedra: set poshvalldrop += 1
if o ! 5: jump 'pantsmet'
set o = 0
:latexmet
set o += 1
if latex[o] = 1 and latexB[o]!bedra: set poshvalldrop += 1
if o ! 2: jump 'latexmet'
set o = 0
:hookermet
set o += 1
if hooker[o] = 1 and hookerB[o]!bedra: set poshvalldrop += 1
if o ! 5: jump 'hookermet'
set o = 0
:odekismet
set o += 1
if odekis[o] = 1 and odekisB[o]!bedra: set poshvalldrop += 1
if o ! 10: jump 'odekismet'
set o = 0
:newclomet
set o += 1
if newclo[o] = 1 and newcloB[o]!bedra: set poshvalldrop += 1
if o ! 130: jump 'newclomet'
set o = 0
if money < poshvalldrop*500:
	'Do you have enough money, the cost ushivki all clothing <<poshvalldrop*500>> rub.'
	act 'QUIT': gt 'clener','start'
	exit
	end
if money >= poshvalldrop * 500:
	set money -= poshvalldrop * 500
	set o = 0
	:jensmet1
	set o += 1
	if jeans[o] = 1 and jeansB[o]!bedra: set jeansB[o] = bedra
	if o ! 5: jump 'jensmet1'
	set o = 0
	:shortmet1
	set o += 1
	if short[o] = 1 and shortB[o]!bedra: set shortB[o] = bedra
	if o ! 5: jump 'shortmet1'
	set o = 0
	:skirtmet1
	set o += 1
	if skirt[o] = 1 and skirtB[o]!bedra: set skirtB[o] = bedra
	if o ! 5: jump 'skirtmet1'
	set o = 0
	:dressmet1
	set o += 1
	if dress[o] = 1 and dressB[o]!bedra: set dressB[o] = bedra
	if o ! 24: jump 'dressmet1'
	set o = 0
	:profimet1
	set o += 1
	if profi[o] = 1 and profiB[o]!bedra: set profiB[o] = bedra
	if o ! 2: jump 'profimet1'
	set o = 0
	:pantsmet1
	set o += 1
	if pants[o] = 1 and pantsB[o]!bedra: set pantsB[o] = bedra
	if o ! 5: jump 'pantsmet1'
	set o = 0
	:latexmet1
	set o += 1
	if latex[o] = 1 and latexB[o]!bedra: set latexB[o] = bedra
	if o ! 2: jump 'latexmet1'
	set o = 0
	:hookermet1
	set o += 1
	if hooker[o] = 1 and hookerB[o]!bedra: set hookerB[o] = bedra
	if o ! 5: jump 'hookermet1'
	set o = 0
	:odekismet1
	set o += 1
	if odekis[o] = 1 and odekisB[o]!bedra: set odekisB[o] = bedra
	if o ! 10: jump 'odekismet1'
	set o = 0
	:newclomet1
	set o += 1
	if newclo[o] = 1 and newcloB[o]!bedra: set newcloB[o] = bedra
	if o ! 130: jump 'newclomet1'
	'You ushili all clothing for <<poshvalldrop*500>> rub.'
	act 'QUIT': gt 'clener','start'
	exit
	end
--- portnoi2 ---------------------------------

# sexorg
if $ARGS[0] = 'start':
cla
*clr
gs 'stat'
set picrand = RAND(0,1)
set minut += 30
set sweat += 1
gt 'sexorg','var'
end

if $ARGS[0] = 'var':
set sexorgrand = RAND(0,6)
if sexorgrand = 0:
	cla
	*clr
	set horny += 10
	if orsxbj = 0:
		set bj += 1
		set orsxbj = 1
		end
	set sexvar += 1
	'<center><img src="images\img\sexorg\minet<<picrand>>.jpg "></center>'
	'You two suck his cock, then take turns licking it with his dildo, touching tongues.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 1:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\vag<<picrand>>.jpg "></center>'
	'While she enjoys her pussy in a member, you also find yourself iteresnoe employment.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 2:
	cla
	*clr
	set horny += 10
	if orsxsex = 0:
		set sex += 1
		set orsxsex = 1
		end
	set sexvar += 1
	'<center><img src="images\img\sexorg\uvag<<picrand>>.jpg "></center>'
	'He comes into you, his cock moving inside your pussy bringing you pleasure, this time she did not lose too found something to do.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 3:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\anal<<picrand>>.jpg "></center>'
	'Do you like the sight of his cock in her ass and sweet until she yells trying to absorb all of it, too, you did not get lost.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 4:
	cla
	*clr
	set horny += 10
	if orsxanal = 0:
		set anal += 1
		set pdsxanal = 1
		end
	'<center><img src="images\img\sexorg\uanal<<picrand>>.jpg "></center>'
	'When he enters you in the anus you hurt a little, but soon the pain goes away and its place is taken by a pleasant feeling, while his moving dildo in your ass it is not sitting idly by.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 5:
	cla
	*clr
	set horny += 10
	if orsxbj = 0:
		set bj += 1
		set orsxbj = 1
		end
	if orsxsex = 0:
		set sex += 1
		set orsxsex = 1
		end
	if orsxanal = 0:
		set anal += 1
		set orsxanal = 1
		end
	'<center><img src="images\img\sexorg\udp<<picrand>>.jpg "></center>'
	'Two men enter into you and you moan with pleasure feeling both dildo move inside.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 6:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\dp<<picrand>>.jpg "></center>'
	'When they enter into it as a couple you get a little jealous seeing how she enjoys.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
end

if $ARGS[0] = 'end':
cla
*clr
set orsxbj = 0
set orsxsex = 0
set orsxanal = 0
set sexvar = 0
set cumlip = 1
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
'<center><img src="images\img\sexorg\cum<<picrand>>.jpg "></center>'
'They came, and you lick the cum off each other.'
act 'Leave':gt $sexloc,'start'
end
--- sexorg ---------------------------------

# etoexhib
if $args[0] = 'pos1':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\solar1.jpg"></center>'
'You walk into the room with a solarium. The room is quiet and subdued light, like in the solarium anyone except the receptionist asked. You look at the door.'
act 'Close the door':
	cla
	*clr
	'<center><img src="images\etogame\solar8.jpg"></center>'
	'You close the door of the castle and stripped to the goals, arranged in solarium prone.'
	act 'Further':
		cla
		*clr
		manna += 10
		gs 'stat'
		'<center><img src="images\etogame\solar9.jpg"></center>'
		'You tanned and relaxed. Satisfied, you go out of the solarium and dressed out into the hall salon.'
		act 'Leave': gt 'salon', 'start'
		end
	end
act 'Leave the door ajar':
	cla
	*clr
	manna += 10
	horny += 10
	gs 'stat'
	'<center><img src="images\etogame\solar1.jpg"></center>'
	'You decide to fool around a bit and leave the door ajar to the room. You start to undress when you shoot livchik and strip the chest, lungs chills run through your bare back. Now all of a sudden somebody would go and see my chest that he think of me?'
	act 'Undress':
		cla
		*clr
		horny += 10
		gs 'stat'
		'<center><img src="images\etogame\solar2.jpg"></center>'
		'You continue to undress and now your ass okazyvaetsya bare. Suddenly there is the feeling that someone is watching you. You breath quickens, and waves of excitement. If someone is really up to you peeps, you decide how to undress more erotic. You do not know why, it just tells your feminine nature.'
		act 'Undress to the goals':
			cla
			*clr
			horny += 10
			gs 'stat'
			'<center><img src="images\etogame\solar4.jpg"></center>'
			'You undressed and went to the goal in the solarium. Just face the door. Out of curiosity, do you attach the legs bent to the side and peering into the dark doorway. And you can actually see and hear the shadow flashed a sniff. Can be no doubt, for you obviously someone is watching. From one realization that someone is watching over you, and you are lying completely naked, your body begins to tremble. Abdomen there is a pleasant feeling. And you are excited to the point that you start to push the legs in different directions. To the joy of the mysterious stranger.'
			act 'Spread her legs':
				cla
				*clr
				horny += 10
				gs 'stat'
				'<center><img src="images\etogame\solar5.jpg"></center>'
				'"I spread my legs as lustful bitch. What did he think of me. Maybe he´s not alone, and all the staff had already escaped to look at me. Lord, and suddenly they shoot me on camera, and tomorrow I´ll be all over the internet." - Thoughts rushing through your head, but the excitement is high and there is no strength to stay.'
				act 'Masturbate':
					cla
					*clr
					horny += 20
					gs 'stat'
					'<center><img src="images\etogame\solar6.jpg"></center>'
					'You start furiously rubbing her pussy to finally finish his shameless adventure. And gradually are excited to such an extent that you can not hold back emotions. You start to moan and push the labia fingers, showing her pussy to a stranger in all its glory.'
					act 'Further':
						cla
						*clr
						orgasm += 1
						horny -= 50
						manna += 200
						if exhibi = 2: exhibi = 3
						gs 'stat'
						'<center><img src="images\etogame\solar7.jpg"></center>'
						'Finally, you cover powerful orgasms and you weaken abating. Sniff more also not heard, it seems the secret observer finished with you.'
						' '
						'Gradually you will come to themselves and dressed and get out of the booth.'
						act 'Leave': gt 'salon', 'start'
						end
					end
				end
			end
		end
	end
end

if $args[0] = 'pos2':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\1dachi.jpg"></center>'
'You walked through the alleys. Basically society is not very crowded. Occasionally there are gardeners poking around in the beds. Somewhere heard the clang of the saw. Seen on the outskirts of the forest. At the end of the alley is an artificial reservoir. Some areas with houses for sale.'
if etoexhib = 0: 'You do not know anybody here and truckers not developed any opinion about you.'
act 'Go to the forest': gt 'etoexhib','pos3'
act 'Go down to the lake': gt 'etoexhib', 'pos16'
if etoexhib = 10: 'Start at <a href="exec: GT ''etoexhib'',''pos9''">clang saws</a>.'
act 'Leave': gt 'dachi'
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos3':
cla
*clr
minut += 5
gs 'stat'
foresrand = RAND(1,100)
'<center><img src="images\etogame\1fores.jpg"></center>'
'Livstvenny forest.'
if foresrand < 30:
	cla
	*clr
	'<center><img src="images\etogame\1fores.jpg"></center>'
	'Livstvenny forest.'
	'As far do you see the mushroom picker.'
	act 'His attention': gt 'etoexhib', 'pos4'
	end
if foresrand > 90 and exhibi > 2:
	cla
	*clr
	'<center><img src="images\etogame\1fores.jpg"></center>'
	'Livstvenny forest.'
	act 'Undress': gt 'etoexhib','pos5'
	end
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos4':
cla
*clr
minut += 5
gs 'stat'
'You are waving mushroomer handle and he stopped looking at you.'
act 'Show pussy':
	cla
	*clr
	minut += 5
	horny += sub
	if exhibi = 2: exhibi = 3
	gs 'stat'
	'<center><img src="images\etogame\2fores.jpg"></center>'
	'Smile, you show mushroomer her pussy. He stands in his tracks and stares at you, not knowing what was happening.'
	act 'Leave': gt 'dachi'
	end
end

if $args[0] = 'pos5':
cla
*clr
minut += 5
horny += sub
if exhibi = 3: exhibi = 4
gs 'stat'
'<center><img src="images\etogame\3fores.jpg"></center>'
'I stripped down to goal and went for a walk in the woods. His heart was pounding in my chest. Fresh air, gentle warm breeze caresses me. Summer ... sun warms me. When it was, I thought that freeze quickly, but baking hot summer sun prompted that I´m wrong. Thought at all. I is not lost. Clothing left on earth, and if I do not find you! Here are collected only pickers. But if I povstechayu them? Which is a shame! Stumbled on a good clearing. The wind died.'
act 'Further':
	cla
	*clr
	'<center><img src="images\etogame\4fores.jpg"></center>'
	'Lie down and soak in a meadow naked. So anyone not met. Good or bad - it was nice, though a little extreme. Well, all I plan fulfilled. Need to go back, find the clothes.'
	act 'Leave': gt 'dachi'
	end
end

if $args[0] = 'pos6':
cla
*clr
minut += 15
gs 'stat'
'<center><img src="images\etogame\rodnik.jpg"></center>'
'Spring with spring water.'
act 'Have a drink':
	if water >= 20: 'Water in you no longer climbs.'
	if water < 20:
		'You gladly drank spring water.'
		water += 20
		gs 'stat'
		end
	act 'Leave': gt 'dachi'
	end
end

if $args[0] = 'pos7':
cla
*clr
minut += 15
gs 'stat'
'<center><img src="images\etogame\stolbik.jpg"></center>'
'Also funny inscriptions on the column and have useful information.'
'Aunt Nina 3 alley sells goat milk 300 rubles/litre'
if money >= 300:
	act 'Buy milk':
		cla
		*clr
		money -= 300
		minut += 30
		gs 'stat'
		frost = 0
		set edahot = 0
		set health += 10
		set manna += 20
		if energy >= 30:
			set fat += 2
			'You no longer want to drink.'
			end
		if energy < 30:
			!!!etogame изменить
			energy += 10
			fat += 1
			'You gladly drank goat´s milk.'
			end
		act 'Leave': gt 'dachi'
		end
	end
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos8':
cla
*clr
minut += 15
gs 'stat'
'<center><img src="images\etogame\dachakuz.jpg"></center>'
'Neighbor´s cottage.'
if etoexhib < 10:
	act 'Apply neighbors':
		cla
		*clr
		minut += 15
		gs 'stat'
		'<center><img src="images\etogame\kuzmich.jpg"></center>'
		etoexhib = 10
		'You:-Hello! <<$name>>, I´m your new neighbor, we are familiar with.'
		'Neighbour: - Hello. I´m all Kuzmich. So be neighbors.'
		'You: - Can you help me, you know my whole garden was overgrown with weeds. And so I would like to bring it up.'
		'Kuzmich: - Well, hire local men. They´ll all plowed. Bestolku still stagger through the alleys.'
		act 'Leave': gt 'dachi'
		end
	act 'Leave': gt 'dachi'
	end
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos9':
cla
*clr
minut += 15
gs 'stat'
'<center><img src="images\etogame\dachastroy.jpg"></center>'
'Country house under construction. By construction workers go and drag the board.'
act 'Ask workers to excavation':
	cla
	*clr
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\dachastroy.jpg"></center>'
	'You:-Hello! I need to dig up the garden. You take? And how much will it cost?'
	'Work: - shoveled. 3000 agree.'
	act 'Agree':
		cls
		etoexhib = 11
		gs 'stat'
		'<center><img src="images\etogame\dachastroy.jpg"></center>'
		'You agreed with the workers that they will put in order your vegetable garden.'
		act 'Leave': gt 'dachi'
		end
	act 'Leave': gt 'dachi'
	end
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos10':
cla
*clr
minut += 30
horny += 10
temp = day
etoexhib = 12
gs 'stat'
'<center><img src="images\etogame\dachabust.jpg"></center>'
'You went out into the garden and going to work, asked:'
'- Well, boys? How´s it going?'
'- Normally, the hostess. We make the best possible way.'
act 'Leave': gt 'dachamy'
end

if $args[0] = 'pos11':
cla
*clr
minut += 15
etoexhib = 13
horny += 10
temp = day
gs 'stat'
'<center><img src="images\etogame\dachaex.jpg"></center>'
'You pretend to hang clothes to dry. You can see that through the mall on the site to swarm your neighbor Kuzmich and stole glances at you. Lightly knotted robe is not able to hide your appetizing forms. But, you do not hide them, and give your neighbor enjoy the beauty.'
act 'Go to home': gt 'dachamy'
end

if $args[0] = 'pos12':
cla
*clr
minut += 15
horny += 10
gs 'stat'
'<center><img src="images\etogame\dachabust2.jpg"></center>'
'Going out in the garden, you heard talk of workers and decided to overhear him.'
'- A landlady is hot. Saw her in her robe paced the kitchen garden - just fire!'
'- I would vdul!'
'- Yeah, okay. Dreaming. This city bitch you can not handle!'
'- I´m telling you, she needed a good fuck, and that´s what it is in our backwoods forgot!'
'- Okay, good tryndet.'
act 'Approach to work':
	cla
	*clr
	minut += 15
	gs 'stat'
	'<center><img src="images\etogame\dachabust3.jpg"></center>'
	'You: - General Hello! I see the work is progressing, but somehow slow. Nimble need guys!'
	'Work: - So after we had no advance work. Motivation need hostess.'
	act 'Disagree':
		cls
		etoexhib = 15
		temp = day
		gs 'stat'
		'<center><img src="images\etogame\dachabust3.jpg"></center>'
		'You: - While all do, do not get anything.'
		act 'Leave': gt 'dachi'
		end
	act 'Accept and give half the amount':
		cls
		money -= 1500
		etoexhib = 14
		temp = day
		gs 'stat'
		'<center><img src="images\etogame\dachabust3.jpg"></center>'
		'Well, here´s a half. But in order for tomorrow morning is all finished.'
		act 'Leave': gt 'dachi'
		end
	end
act 'Leave': gt 'dachi'
end

if $args[0] = 'pos13':
cla
*clr
gs 'stat'
'<center><img src="images\etogame\dachagang.jpg"></center>'
'You get up in the middle of the vegetable garden and begin to undress.'
'The guys eyes on the forehead climb from such a spectacle.'
'- Boys, you did a good job and deserve a reward!'
act 'Undress completely':
	cla
	*clr
	gs 'stat'
	'<center><img src="images\etogame\dachagang1.jpg"></center>'
	'You stripped naked and stand podmanivaya to his guys.'
	'- Well, I do 100% percent discount?'
	act 'Surrender':
		cla
		*clr
		gs 'stat'
		'<center><img src="images\etogame\dachagang4.jpg"></center>'
		'Boys pounced on you and after a brief caresses have become eagerly in all holes.'
		minut += 120
		etoexhib = 16
		horny += 50
		gang += 1
		cumass += 1
		cumlip += 1
		vagina += 1
		horand = RAND(1,100)
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
		'When it was over, you raised your clothes, put on shorts and ran into the house.'
		gs 'stat'
		act 'further': gt 'dachain'
		end
	end
end

if $args[0] = 'pos14':
cla
*clr
gs 'stat'
'<center><img src="images\etogame\dachagang2.jpg"></center>'
'Drunk guys surrounded you on all sides.'
'- Look, here is our princess! You´re just in time for beauty, and come on guys, our hostess present to love!'
'You: - What are you doing?'
act 'Further':
	cla
	*clr
	gs 'stat'
	'<center><img src="images\etogame\dachagang3.jpg"></center>'
	'Guys grabbed you and started to undress and grope.'
	act 'Surrender':
		cla
		*clr
		gs 'stat'
		'<center><img src="images\etogame\dachagang4.jpg"></center>'
		'Boys pounced on you and after a brief caresses have become eagerly in all holes.'
		minut += 120
		etoexhib = 16
		horny += 50
		gang += 1
		cumass += 1
		cumlip += 1
		vagina += 1
		horand = RAND(1,100)
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
		'When it was over, you raised your clothes, put on shorts and ran into the house.'
		gs 'stat'
		act 'further': gt 'dachain'
		end
	end
end

if $args[0] = 'pos15':
cla
*clr
gs 'stat'
'<center><img src="images\etogame\rinokplug.jpg"></center>'
'You feel good, even the heady scent of expensive men´s toilet water. Abdomen instantly "zazudelo" passed through the body heat of excitement.'
'Rear guy standing with a purpose - he was an amateur feel ladies and now intended to touch your ass.'
'A hand in the meantime turned and lay a hand on one of the halves of your ass.'
act 'Move away': gt 'rinok','start'
act 'Stand':
	cla
	*clr
	gs 'stat'
	'<center><img src="images\etogame\butplag.jpg"></center>'
	'Fart guy "victim" showed no displeasure, and his actions were closed from others, people were spitting at him, groaning under the heat.'
	'He moved his hand to the other, "bun", stopped in the middle, a little below. Little by little began to squeeze her ass in his hands. "Victim" did not react. Then he began to push his fingers through the fabric skirt depth to tubercle between the legs.'
	'He felt that the "victim" was startled, but not surprise. He was also experienced, he realized that the lady was excited and already "floats".'
	'You really sailed. You were already are beyond themselves. You want a guy climbed under her skirt and put cock ... Sensations captured you, excitement overwhelmed. You to keep from start to groan and moan ...'
	'A man, meanwhile, pulled her skirt up, got a hand to cut and skillful movement got under her skirt. His hand was on the low damp with sweat ass and fingers touched anal tube between his legs.'
	'You even slightly shaken; nobody noticed in the crush, besides the tempter. He paused a little, seems shocked by the fact that the girl here and so can walk around without panties on the market and with a stopper in the ass.'
	'In my head you have circled all, you were at the peak of the excitation; a little more - and you´ll end up.'
	'The guy certainly was not enough. He penetrated into the vagina with your fingers, and began their input and output. And then you began to tremble, made a few noisy, deep breaths, and fingers guy stood out moisture.'
	'- Wow! ... - The guy did not expect such a reaction from the ladies, and even struhnul that it can "kindle".'
	'Indeed, one woman approaching retirement age asked you:'
	'- Devonki, you feel bad?'
	'- No, thank you, everything is gone - gather strength answered you.'
	minut += 10
	orgasm += 1
	horny = 0
	'Apparently startled woman pervert. As for you, no one stood.'
	gs 'stat'
	act 'further': gt 'rinok','start'
	end
end

if $args[0] = 'pos16':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Lake</font></B></center>'
'<center><img src="images\etogame\lake.jpg"></center>'
if temper >= 20 and bikini > 0 and hour >= 6 and hour <= 20:
	act 'Bathe in a bathing suit':
		cla
		*clr
		set cumpussy = 0
		set cumbelly = 0
		set cumass = 0
		set cumlip = 0
		set cumface = 0
		set cumfrot = 0
		set minut += 60
		if sweat > -3: set sweat = -3
		set manna += 5
		set willpower += 5
		if stren < 30: set stren += 1
		'<center><img src="images\pics\swim.jpg"></center>'
		'You iskupnulis in the lake, the water refreshes and invigorates.'
		act 'Out of the water': gt 'etoexhib','pos16'
		end
	end
if temper >= 20 and hour >= 6 and hour <= 20:
	act 'Swim naked':
		cla
		*clr
		set cumpussy = 0
		set cumbelly = 0
		set cumass = 0
		set cumlip = 0
		set cumface = 0
		set cumfrot = 0
		set minut += 60
		if sweat > -3: set sweat = -3
		set manna += 5
		set willpower += 5
		set horny += 10
		if stren < 30: set stren += 1
		'<center><img src="images\etogame\lakenude.jpg"></center>'
		'You swam in the lake completely naked, water refreshes and invigorates.'
		act 'Out of the water': gt 'etoexhib','pos16'
		end
	end
act 'Return to the alley': gt 'etoexhib','pos2'
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!------------------------------------------------

if $args[0] = 'pos17':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>House of Culture</font></B></center>'
if hour >= 9 and hour < 20:
	'<center><img src="images\etogame\dk.jpg"></center>'
	'On Fridays, Saturdays and Sundays from 20.00 to 23.00 dances. Entrance 25 rubles.'
	end
if hour >= 20 and hour <= 23:
	'<center><img src="images\etogame\dk_night.jpg"></center>'
	'At the entrance to the recreation center full of young people, the guys are just standing and smoking, joking and someone looking out for. Girls in groups of 2-3 people, discussing something, someone just thumps in the bushes.'
	act 'Sign in here': money -= 25 & minut += 15 & gt 'etoexhib','pos18'
	end
act 'Back to the train station': gt 'gorodok'
end

if $args[0] = 'pos18':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Disco</font></B></center>'
if hour < 23:
	temp = RAND(1,100)
	if temp >= 1 and temp < 35:
		minut += 30
		'<center><img src="images\etogame\club_yaho.jpg"></center>'
		'On the dance floor full of people. All dancing and having fun.'
		act 'Dance':
			cla
			*clr
			'<center><img src="images\etogame\club_dance.jpg"></center>'
			'The music is quite old, but catchy. And you´ll have fun circling dance, paying no attention to anyone.'
			minut += 30
			fat -= 1
			dance += 1
			manna += 10
			willpower += 10
			frost = 0
			act 'Further': gt 'etoexhib','pos18'
			end
		act 'Further': gt 'etoexhib','pos18'
		end
	if temp >= 35 and temp < 65:
		minut += 30
		'<center><img src="images\etogame\club_pusto.jpg"></center>'
		'On the dance floor is unoccupied. Cold and sad. You ucazhivaetes free space.'
		if temp >= 35 and temp < 65:
			'Here and there some kid running around with a camera and takes a picture of girls.'
			act 'Pose for the photographer':
				cla
				*clr
				gs 'stat'
				if alko < 3 and vnesh >= 5 and vnesh < 30:
					'<center><img src="images\etogame\club_foto.jpg"></center>'
					'You poziruete for "beginner" photographer, trying to look as attractive as possible.'
					act 'Further': gt 'etoexhib','pos18'
					end
				if alko < 3 and vnesh >= 30:
					temp = RAND(1,2)
					if temp = 1: '<center><img src="images\etogame\club_foto1.jpg"></center>'
					if temp = 2: '<center><img src="images\etogame\club_foto2.jpg"></center>'
					'You poziruete for a novice photographer, trying to look as attractive as possible.'
					act 'Further': gt 'etoexhib','pos18'
					end
				if horny > 10 and alko > 1:
					'<center><img src="images\etogame\club_glam.jpg"></center>'
					'You push your foot on the table. You thought that photo was so erotic.'
					end
				end
			act 'Further': gt 'etoexhib','pos18'
			end
		end
	if temp >= 65 and temp <= 100:
		minut += 30
		'<center><img src="images\etogame\club_yaho1.jpg"></center>'
		'On the dance floor full of people. All dancing and having fun.'
		act 'Dance':
			cla
			*clr
			'<center><img src="images\etogame\club_dance.jpg"></center>'
			'The music is quite old, but catchy. And you´ll have fun circling dance, paying no attention to anyone.'
			minut += 30
			fat -= 1
			dance += 1
			manna += 10
			willpower += 10
			frost = 0
			act 'Further': gt 'etoexhib','pos18'
			end
		act 'Further': gt 'etoexhib','pos18'
		end
	else
	'Club closes. The lights go on, the music fades and all begin to diverge.'
	end
act 'Go outside': gt 'etoexhib','pos17'
end

if $args[0] = 'pos19':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Reception</font></B></center>'
'<center><img src="images\etogame\ptu_holl.jpg"></center>'
'Lyceum Hall. It´s pretty clean and quiet. Sitting at the table technicals. On the wall hangs a timetable.'
if workPTU = 2:
	cls
	'<center><B><font color = maroon>Direction</font></B></center>'
	'<center><img src="images\etogame\ptu_angdir.jpg"></center>'
	'What a shame, <<$name>>! You disgraced entrusted to you honorable mission of the teacher! So you have no place in our ranks! Take your documents. You are fired!'
	manna -= 100
	workPTU = 1
	teachlevel = 0
	gs 'stat'
	act 'Further': gt 'etoexhib','pos20'
	exit
	end
if teachlevel = 0: 'You could not explain the technicals to whom you come on and the personnel department, it does not let you.'
if teachlevel >= 1 and teachlevel < 10: 'You do not deserve to be a teacher.'
if teachlevel >= 10 and teachlevel < 20: 'Applies to you as a young, inexperienced intern.'
if teachlevel >= 20 and teachlevel < 30: 'You already have a certain reputation.'
if teachlevel >= 30 and teachlevel < 50: 'You respectable teacher.'
if teachlevel >= 50 and teachlevel < 70: 'Turn to you for advice.'
if teachlevel >= 70 and teachlevel < 90: 'Your experience and knowledge known outside the Lyceum.'
if teachlevel >= 90: 'You personify education.'
if workPTU > 2:
	act 'Corridor on the floor': gt 'etoexhib','pos22'
	act 'On the second floor': gt 'etoexhib','pos23'
	act 'On the third floor': gt 'etoexhib','pos24'
	end
if workPTU ! 1:
	act 'Apply to the personnel department.':
		if workPTU > 2:
			cla
			*clr
			set minut += 5
			gs 'stat'
			'<center><B><font color = maroon>Human Resource Department</font></B></center>'
			'<center><img src="images\etogame\ptu_cadr.jpg"></center>'
			act 'Resign':
				set workPTU = 0
				cla
				'Now you do not work here anymore.'
				act 'Exit to Hall': gt 'etoexhib','pos19'
				end
			act 'Exit to Hall': gt 'etoexhib','pos19'
			end
		if workPTU = 0:
			cla
			*clr
			set minut += 15
			gs 'stat'
			'<center><B><font color = maroon>Human Resource Department</font></B></center>'
			'<center><img src="images\etogame\ptu_cadr.jpg"></center>'
			'Good day! Welcomed the hiring manager you girl. And told me that they need a certified teacher for doing electives. Working days from Monday to Saturday from 14.00 to 16.00. Payment 300 rubles for one day of training. For nonresident available room in a hostel. Terms of piecework, because for full salary, at the moment, there is no free bets. Strict dress code, business. Also not recommended for bright makeup, strong perfume.'
			if diplom = 0 or fakediplom = 0: 'You are told that you can not take a job without a diploma of higher pedagogical education.'
			act 'Exit to Hall': gt 'etoexhib','pos19'
			if diplom = 1 or fakediplom = 1:
				act 'Pass an interview for a job':
					cla
					*clr
					'<center><B><font color = maroon>Human Resource Department</font></B></center>'
					'<center><img src="images\etogame\ptu_cadr.jpg"></center>'
					set minut += 60
					gs 'stat'
					'You have passed oral interview, left a copy of diploma and other documents in the personnel department, where you are told that you can take to work.'
					act 'Employability teacher':
						cla
						set workPTU = 3
						set teachlevel = 16
						'You brought the work book and said that you could go to work the next business day.'
						act 'Exit to Hall': gt 'etoexhib','pos19'
						end
					end
				end
			end
		end
	end
act 'On the street': gt 'etoexhib','pos20'
end

if $args[0] = 'pos20':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>High School</font></B></center>'
'<center><img src="images\etogame\lizey.jpg"></center>'
'On the door hangs a listing: "Vocational School students is set on the basis of 11 years of schooling in the field of: (a comprehensive list). Besides, conducted training of the employees of enterprises. The college created optimal conditions for personal and professional formation of students, there is a modern material base. "'
if workPTU > 2: 'Sport <a href="exec: GT ''etoexhib'',''pos21''">space.</a>'
if teachlevel > 0 and teachlevel < 10: workPTU = 2
act 'Enter the Lyceum': gt 'etoexhib','pos19'
act 'Go to the train station': gt 'gorodok'
end

if $args[0] = 'pos21':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Playground</font></B></center>'
'<center><img src="images\etogame\stadion.jpg"></center>'
'You see all that remains of a football field. Pathetic. Nevertheless, the guys are still having fun playing football here.'
temp = RAND(1,100)
if temp >= 90:
	cls
	gs 'stat'
	'<center><img src="images\etogame\ptu_fight.jpg"></center>'
	'You see a group of girls, mock bedridden man.'
	act 'Intercede for Man':
		cls
		teachlevel += 1
		'- What are you doing? Immediately stop, I´ll call the police! Throws at you girls. And they snort: "Asshole, are to blame!" leave the guy alone.'
		'You set a good example by helping the helpless man. This will positively impact your reputation.'
		act 'Further': gt 'etoexhib','pos21'
		end
	act 'Disregard': gt 'etoexhib','pos21'
	end
act 'Back': gt 'etoexhib','pos20'
end

if $args[0] = 'pos22':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Corridor (1st floor)</font></B></center>'
'<center><img src="images\etogame\ptu_1korr.jpg"></center>'
'On the first floor there are honey. office, gym, dining room and classes.'
temp = RAND(1,100)
if temp >= 90:
	cls
	horny += 5
	gs 'stat'
	'<center><img src="images\etogame\PTU_rand.jpg"></center>'
	'Olga L. you met a teacher of foreign languages. Hmm, she is wearing a pretty sexy, and that´s against the rules.'
	act 'Further': gt 'etoexhib','pos22'
	end
act 'In the gym': gt 'etoexhib','pos33'
act 'In the medical office': gt 'etoexhib','pos36'
act 'In the dining room': gt 'etoexhib','pos37'
act 'In the hall': gt 'etoexhib','pos19'
end

if $args[0] = 'pos23':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Corridor (2nd floor)</font></B></center>'
'<center><img src="images\etogame\ptu_2korr.jpg"></center>'
'On this floor there are classrooms, the principal´s office, library and teacher´s toilet.'
temp = RAND(1,100)
if temp >= 90:
	cls
	horny += 10
	gs 'stat'
	'<center><img src="images\etogame\ptu_korr1.jpg"></center>'
	'One of the students sitting on the windowsill. You will be looking at her revealing outfits and cheeky behavior.'
	act 'Further': gt 'etoexhib','pos23'
	end
act 'Account Director': gt 'etoexhib','pos28'
act 'In library': gt 'etoexhib','pos38'
act 'The toilet': gt 'etoexhib','pos39'
act 'In the hall': gt 'etoexhib','pos19'
end

if $args[0] = 'pos24':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Corridor (3rd floor)</font></B></center>'
'<center><img src="images\etogame\ptu_3korr.jpg"></center>'
'On this floor there is a class of optional subjects.'
if hour >= 9 and hour <= 13: act 'In class': gt 'etoexhib','pos25'
if hour >= 14 and hour < 15: act 'A lesson': gt 'etoexhib','pos26'
if hour >= 15 and hour <= 18: act 'In class': gt 'etoexhib','pos25'
act 'In the hall': gt 'etoexhib','pos19'
end

if $args[0] = 'pos25':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Cabinet</font></B></center>'
'<center><img src="images\etogame\ptu_klass.jpg"></center>'
'Your class.'
if workPTU = 3:
	cls
	hour = 14
	gs 'stat'
	workPTU = 4
	'<center><img src="images\etogame\PTU_starosta.jpg"></center>'
	'Ina: - Hello, <<$name>>! (Meet you Robski Inna - Mayor 657 groups and round excellent student)'
	'Ina: - Today you look so chic!'
	'You: - Thank you, Ina.'
	act 'Further': gt 'etoexhib','pos25'
	end
	if workPTU = 4 and gor_dorm = 4:
		cls
		hour = 14
		gs 'stat'
		gor_dorm = 5
		'<center><img src="images\etogame\cera_nerd2.jpg"></center>'
		'You see that Eugene Isenberg (botany and zauchkami) on the nose something written.'
		'You: - Hello, Jack!'
		'Jack: - Hello, <<$name>>! (he blushed a little and looks at the floor)'
		'You: - Jack, you seem somewhere smeared nose, hold on a mirror.'
		'(Eugene looks in the mirror and pull you became red as a lobster)'
		'Jack: - That we were playing with the boys, Sorry, thank you ... (he started rubbing his hard transferred)'
		'(Looks classmates make fun of this guy, it would be necessary somehow cheer.)'
		'You: - Do not worry you so, tell better how are you doing? Girl you got? Every young person your age is a girl.'
		'Jack: - No, I´m not acquainted with the girls, they always throw me ... hurt my feelings.'
		'You: - Well, what do you like, can be a hobby? Movies, games?'
		'Jack: - (Then he perked up noticeably, and began to tell you about their favorite fighters and shooters.)'
		'You: - Okay, I gotta go. It was nice to chat.'
		'(Eugene looks at you with burning eyes.)'
		act 'Further': gt 'etoexhib','pos25'
	end
	!if teachlevel > 30: act 'Почитать школьный журнал': gt 'etoexhib','pos90'
act 'Get out into the corridor': gt 'etoexhib','pos24'
end

if $ARGS[0] = 'pos26':
cla
*clr
set minut += 5
gs 'stat'
'<center><B><font color = maroon>Cabinet</font></B></center>'
'<center><img src="images\etogame\PTU_lesson0.jpg"></center>'
'You went to class and ready to begin class. Students divided into groups, chatting with each other, someone laughing, someone talking on the phone, someone buried in the tablet. Generally regular youth.'
act 'Start session':
	cla
	set minut = 0
	set hour = 14
	gt 'etoexhib','pos27'
	end
end

if $ARGS[0] = 'pos27':
cla
*clr
set minut += 5
gs 'stat'
'<center><B><font color = maroon>Cabinet</font></B></center>'
'<center><img src="images\etogame\lesson1.jpg"></center>'
'Pupils their seats and listen to you.'
if horny > 30:
	temp = RAND(1,100)
	if temp >= 95:
		act 'Sexually raise pencil!':
			cls
			horny += 40
			minut += 60
			teachlevel -= 5
			gs 'stat'
			'<center><B><font color = maroon>Cabinet</font></B></center>'
			'<center><img src="images\etogame\ptu_karandash.jpg"></center>'
			'Pacing between rows, you go down on his haunches, pretending to pick up a fallen pencil. However, sitting in the back row overlooking your legs under her skirt. By the eyes widened as one of the guys, you know what it´s done.'
			act 'Further': gt 'etoexhib','pos27'
			end
		end
	if temp >= 85 and temp < 90:
		act 'Climb on the table':
			cls
			horny += 40
			minut += 60
			teachlevel -= 2
			gs 'stat'
			'<center><B><font color = maroon>Cabinet</font></B></center>'
			'<center><img src="images\etogame\ptu_urok1.jpg"></center>'
			'Explaining the stuff you like the statute, sit on the edge of the table. In this case, the entire class overlooks your feet.'
			act 'Further': gt 'etoexhib','pos27'
			end
		end
	if temp >= 75 and temp < 80:
		act '"Drop" the chalk':
			cls
			horny += 40
			minut += 60
			teachlevel -= 5
			gs 'stat'
			'<center><B><font color = maroon>Cabinet</font></B></center>'
			'<center><img src="images\etogame\ptu_rak.jpg"></center>'
			'Explaining stuff you accidentally, drop the chalk. At the same time, you pick it up so that any pornstar obzaviduetsya. First, you cant, but realizing that the chalk does not get it, get down on all fours, with his ass as if someone podmanivaya. Those who sat nearby, witnessed an unforgettable show.'
			act 'Further': gt 'etoexhib','pos27'
			end
		end
	if temp >= 65 and temp < 70:
		act 'Sexy sit at a table':
			cls
			horny += 40
			minut += 60
			teachlevel -= 2
			gs 'stat'
			'<center><B><font color = maroon>Cabinet</font></B></center>'
			'<center><img src="images\etogame\ptu_nastol.jpg"></center>'
			'Explaining the stuff you like the statute, sit on the edge of the table. In this case, the entire class overlooks your feet.'
			act 'Further': gt 'etoexhib','pos27'
			end
		end
	if temp >= 55 and temp < 60:
		act 'Show stocking':
			cls
			horny += 40
			minut += 60
			teachlevel -= 2
			gs 'stat'
			'<center><B><font color = maroon>Cabinet</font></B></center>'
			'<center><img src="images\etogame\ptu_urok2.jpg"></center>'
			'When you came to the student to show a presentation, you kakby casually crossed his legs, showing student elastic stockings. Immediately after answering the poor man otprasilsya the toilet. Fingering neboys.'
			act 'Further': gt 'etoexhib','pos27'
			end
		end
	end
if hour < 16:
	act 'Teach':
		cls
		set minut += 60
		set manna -= 5
		if intel < 80: intel += 1
		if ofclo = 1 and mop = 1 or ofclo = 1 and mop = 2 and teachlevel < 70: teachlevel += 1
		if mop = 4: teachlevel -= 1
		money += 150
		gs 'stat'
		'<center><img src="images\etogame\lesson.jpg"></center>'
		'You spend a lesson. Students listen to you carefully.'
		act 'Further': gt 'etoexhib','pos27'
		end
	end
if hour >= 16:
	act 'Finish the lesson':
		cla
		'The lesson ends and the students rush to leave the classroom.'
		act 'Leave':
			cla
			set minut += 5
			gt 'etoexhib','pos24'
			end
		end
	end
act 'Get out of class': gt 'etoexhib','pos24'
end

if $args[0] = 'pos28':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Direction</font></B></center>'
'<center><img src="images\etogame\PTU_dir.jpg"></center>'
'- Welcome, <<$name>>! Hope you like to work for us. If you have any questions for me, I´m listening.'
act 'Leave the office': gt 'etoexhib','pos23'
end

if $args[0] = 'pos33':
cla
*clr
gs 'stat'
'<center><B><font color = maroon>Gym</font></B></center>'
'<center><img src="images\etogame\sportzal.jpg"></center>'
'Gym for team sports.'
act 'Women´s Shower': gt 'etoexhib','pos34'
act 'Men´s shower': gt 'etoexhib','pos35'
act 'In the hall': gt 'etoexhib','pos19'
end

if $args[0] = 'pos34':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Women´s Shower</font></B></center>'
'<center><img src="images\etogame\ptu_jen.jpg"></center>'
'Shower.'
temp = RAND(1,100)
if temp >= 90:
	cls
	minut += 15
	horny += 20
	gs 'stat'
	'<center><B><font color = maroon>Women´s Shower</font></B></center>'
	'<center><img src="images\etogame\ptu_dush.jpg"></center>'
	'- Oh! <<$name>>, leave, please, we´re not dressed! - Two girls screamed, taking a shower.'
	act 'Further': gt 'etoexhib','pos33'
	end
	act 'Take a shower': gt 'ptu_dush','pos1'
act 'In the hall': gt 'etoexhib','pos33'
end

if $args[0] = 'pos35':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Men´s shower</font></B></center>'
'<center><img src="images\etogame\ptu_muz.jpg"></center>'
'Shower for boys. You should not be here. This will affect your reputation.'
teachlevel -= 1
act 'In the hall': gt 'etoexhib','pos33'
end

if $args[0] = 'pos36':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Doctor</font></B></center>'
'<center><img src="images\etogame\ptu_medkab.jpg"></center>'
'There is first aid, medical examinations and vaccinations carried out.'
temp = RAND(1,100)
if temp >= 90:
	cls
	minut += 15
	horny += 10
	gs 'stat'
	'<center><B><font color = maroon>Doctor</font></B></center>'
	'<center><img src="images\etogame\ptu_med1.jpg"></center>'
	'When you went into the medical room, nurses were entertained that fotkali herself in her robe and seductive poses. But then lay out these pictures in the social network.'
	act 'Further': gt 'etoexhib','pos36'
	end
act 'In the corridor (1 Floor)': gt 'etoexhib','pos22'
end

if $args[0] = 'pos37':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Dining</font></B></center>'
'<center><img src="images\etogame\ptu_stolovaya.jpg"></center>'
'You can have dinner or a snack.'
temp = RAND(1,100)
if temp >= 90:
	act 'Say hello to the Director':
		cls
		minut += 15
		teachlevel += 1
		gs 'stat'
		'<center><B><font color = maroon>Dining</font></B></center>'
		'<center><img src="images\etogame\ptu_stoldir.jpg"></center>'
		'You met a director of the institution. You politely greeted her nezabyvaya pay a compliment.'
		act 'Further': gt 'etoexhib','pos37'
		end
	end
act 'Buy lunch (100 rubles)':
	cla
	*clr
	money -= 100
	minut += 30
	gs 'stat'
	frost = 0
	edahot = 0
	health = health + 10
	manna = manna + 20
	if energy >= 30:
		set fat += 2
		'You do not want to eat.'
		end
	if energy < 30:
		energy += 20
		fat += 2
		'You ate with pleasure.'
		end
	if water < 20:
		water += 20
		gs 'stat'
		end
	act 'Finish': gt 'etoexhib','pos37'
	end
act 'In the corridor (1 Floor)': gt 'etoexhib','pos22'
end

if $args[0] = 'pos38':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Library</font></B></center>'
'<center><img src="images\etogame\ptu_lib.jpg"></center>'
'Here, students receive textbooks and books. Also has a computer lab with Internet access.'
temp = RAND(1,100)
	if temp >= 90:
		cls
		minut += 15
		horny += 10
		gs 'stat'
		'<center><B><font color = maroon>Library</font></B></center>'
		'<center><img src="images\etogame\ptu_ups.jpg"></center>'
		'You have become a casual witness as librarian lighted his seductive crotch. But in the hall were people wondering it intentionally or accidentally?'
		act 'Further': gt 'etoexhib','pos38'
		end
		if gor_dorm = 5:
			act 'Search the Web "Tetrodotoxin"':
				cls
				minut += 120
				gor_dorm = 6
				gs 'stat'
				'<center><img src="images\etogame\ptu_comp.jpg"></center>'
				'Everything you find about this substance is that it is used in experimental and pharmacology.'
				act 'Further': gt 'etoexhib','pos38'
			end
		end
act 'In the corridor': gt 'etoexhib','pos23'
end

if $args[0] = 'pos39':
cla
*clr
minut += 15
gs 'stat'
'<center><B><font color = maroon>Women´s WC</font></B></center>'
'<center><img src="images\etogame\ptu_toilet_w.jpg"></center>'
'WC, which in theory, can use only teachers.'
temp = RAND(1,100)
if temp >= 90:
	cls
	minut += 15
	horny += 10
	gs 'stat'
	'<center><B><font color = maroon>Women´s WC</font></B></center>'
	'<center><img src="images\etogame\ptu_zanato.jpg"></center>'
	'Oops! Sorry, should be closed.'
	act 'Further': gt 'etoexhib','pos39'
	end
act 'In the corridor': gt 'etoexhib','pos23'
end
if $args[0] = 'pos40':
	cla
	*clr
	minut += 60
	gs 'stat'
	'<center><B><font color = maroon>Town</font></B></center>'
	'<center><img src="images\etogame\dom_gor.jpg"></center>'
	'Room in a hostel, you Dedicated school, in poor condition, but still better than nothing. In the courtyard there clothesline and shed for storage of junk. Only strange that almost invisible tenants usually packed to capacity dormitories.'
		if gor_dorm > 0: act 'In the room': gt 'dom_gor'
		if gor_dorm = 0: act 'To the Commandant': gt 'comendant','pos1'
		if gor_dorm = 2: act 'Search commandant': gt 'comendant','pos3'
		if gor_dorm >= 3: act 'Inspect the barn': gt 'etoexhib','pos43'

		act 'Leave': gt 'gorodok'
	end

	if $args[0] = 'pos41':
	cla
	*clr
	minut += 10
	gs 'stat'
	'<center><B><font color = maroon>Shared Bathroom</font></B></center>'
	'<center><img src="images\etogame\comm_vann.jpg"></center>'
	'Bathroom just in terrible condition, the walls are dirty, mess on the floor, old plumbing, and water is hardly flowing. Of pipes comes a strange smell, but there are so many, if only I was smarter.'
	if shampoo = 0: 'Damn, wash if you do not shampoo?'
	if dirtbelo > 0 and poroshok > 0:
			act 'Wash clothes':
				cla
				*clr
				set minut += dirtbelo * 5
				set clrbelo += dirtbelo
				poroshok -= 1
				set dirtbelo = 0
				set manna -= 10
				'<center><img src="images\etogame\stir.jpg"></center>'
				'You soaked linen in a basin and poured the powder there, and then you become a wash clothes until it finally became clear.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if tampon > 0 and mesec > 0 and isprok = 0:
			act 'Change a tampon':
				cla
				*clr
				set tampon -= 1
				set isprok = 1
				set minut += 5
				set manna -= 5
				'<center><img src="images\pics\wash3.jpg"></center>'
				'You change a tampon.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
			act 'Wash up (0:05)':
				cla
				*clr
				set cumpussy = 0
				set cumbelly = 0
				set cumass = 0
				set cumlip = 0
				set cumface = 0
				set cumanus = 0
				set cumfrot = 0
				set sweat -= 1
				set minut += 5
				set clrbelo -= 1
				set dirtbelo += 1
				'<center><img src="images\pics\wash5.jpg"></center>'
				'You carefully washed sperm in the bathroom.'
				act 'Finish': gt 'etoexhib','pos41'
				end
			end
		if cumlip > 0 or cumface > 0:
			act 'Wash cum off face (0:05)':
				cla
				*clr
				set mop = 1
				set cumlip = 0
				set cumface = 0
				set sweat -= 1
				set minut += 5
				'<center><img src="images\etogame\facesp.jpg"></center>'
				'You carefully washed sperm from her face.'
				act 'Finish': gt 'etoexhib','pos41'
				end
			end
		if mop ! 1:
			act 'Wash off cosmetics':
				cla
				set mop = 1
				set minut += 15
				'You flushed makeup.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if shampoo > 0:
			act 'Take a shower (0:15)':
				cla
				*clr
					if tanga = 1:
						set clrbelo -= 1
						set dirtbelo += 1
					end
				shampoo -= 1
				set minut += 15
				set horny += 1
				set hapri = 0
				set mop = 1
				if sweat > -3: set sweat = -3
				dynamic $showerdin
				if frost > 0: frost = 0
				'<center><img src="images\pics\dush.jpg"></center>'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			act 'Shave legs and pubis (0:30)':
				cla
				*clr
				'You rinsed the razor blade which will suffice for <<stanok>> time.'
				set minut += 30
				set leghair = -5
				set lobok = -5
				set horny += 10
				set stanok -= 2
				'<center><img src="images\pics\shave.jpg"></center>'
				!'if obdysh = 1 and obbritinvent = 0:
					set britrand = RAND(0,5)
					if britrand = 5: gt 'vann','brit1'
				end'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if intel > 50: act 'Inspect pipes': gt 'etoexhib','pos42'
		act 'Back in the room': gt 'dom_gor'
	end

	if $args[0] = 'pos42':
	cla
	*clr
	minut += 10
	gor_dorm = 2
	gs 'stat'
	'<center><B><font color = maroon>Rusty pipes</font></B></center>'
	'<center><img src="images\etogame\comm_tru.jpg"></center>'
	'All pipes rusted through, this is an obvious violation of the commandant. In addition, some of the pipes smell chemistry.'
		act 'Back in the room': gt 'dom_gor'
	end

	if $args[0] = 'pos43':
	cla
	*clr
	minut += 10
	if gor_dorm = 3: gor_dorm = 4
	gs 'stat'
	'<center><B><font color = maroon>Shed hostel</font></B></center>'
	'<center><img src="images\etogame\gor_saray.jpg"></center>'
	'Besides an incredible amount of junk. On the floor a lot of containers with some chemistry, on one of the cans you see the sign of chemical hazards and the inscription "Tetrodotoxin". Better to leave it untouched.'

	'Hmm .. is there a place dangerous chemicals. It is necessary to find out more about this stuff.'

		act 'Back in the room': gt 'dom_gor'
	end

	if $args[0] = 'pos49':
	cla
	*clr
	gs 'stat'
	'<center><B><font color = maroon>Shared Bathroom</font></B></center>'
	'<center><img src="images\etogame\comm_vann.jpg"></center>'
	'Bathroom in the hostel.'
	if shampoo = 0: 'Damn, wash if you do not shampoo?'

		if dirtbelo > 0 and poroshok > 0:
			act 'Wash clothes':
				cla
				*clr
				set minut += dirtbelo * 5
				set clrbelo += dirtbelo
				poroshok -= 1
				set dirtbelo = 0
				set manna -= 10
				'<center><img src="images\etogame\stir.jpg"></center>'
				'You soaked linen in a basin and poured the powder there, and then you become a wash clothes until it finally became clear.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if tampon > 0 and mesec > 0 and isprok = 0:
			act 'Change a tampon':
				cla
				*clr
				set tampon -= 1
				set isprok = 1
				set minut += 5
				set manna -= 5
				'<center><img src="images\pics\wash3.jpg"></center>'
				'You change a tampon.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if cumpussy > 0 and clrbelo > 0 or cumbelly > 0 and clrbelo > 0 or cumass > 0 and clrbelo > 0:
			act 'Wash up (0:05)':
				cla
				*clr
				set cumpussy = 0
				set cumbelly = 0
				set cumass = 0
				set cumlip = 0
				set cumface = 0
				set cumanus = 0
				set cumfrot = 0
				set sweat -= 1
				set minut += 5
				set clrbelo -= 1
				set dirtbelo += 1
				'<center><img src="images\pics\wash5.jpg"></center>'
				'You carefully washed sperm in the bathroom.'
				act 'Finish': gt 'etoexhib','pos41'
				end
			end
		if cumlip > 0 or cumface > 0:
			act 'Wash cum off face (0:05)':
				cla
				*clr
				set mop = 1
				set cumlip = 0
				set cumface = 0
				set sweat -= 1
				set minut += 5
				'<center><img src="images\etogame\facesp.jpg"></center>'
				'You carefully washed sperm from her face.'
				act 'Finish': gt 'etoexhib','pos41'
				end
			end
		if mop ! 1:
			act 'Wash off cosmetics':
				cla
				set mop = 1
				set minut += 15
				'You flushed makeup.'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if shampoo > 0:
			act 'Take a shower (0:15)':
				cla
				*clr
					if tanga = 1:
						set clrbelo -= 1
						set dirtbelo += 1
					end
				shampoo -= 1
				set minut += 15
				set horny += 1
				set hapri = 0
				set mop = 1
				if sweat > -3: set sweat = -3
				dynamic $showerdin
				if frost > 0: frost = 0
				'<center><img src="images\pics\dush.jpg"></center>'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
			act 'Shave legs and pubis (0:30)':
				cla
				*clr
				'You rinsed the razor blade which will suffice for <<stanok>> time.'
				set minut += 30
				set leghair = -5
				set lobok = -5
				set horny += 10
				set stanok -= 2
				'<center><img src="images\pics\shave.jpg"></center>'
				!'if obdysh = 1 and obbritinvent = 0:
					set britrand = RAND(0,5)
					if britrand = 5: gt 'vann','brit1'
				end'
				act 'Finish': gt 'etoexhib','pos41'
			end
		end

		act 'In the room': gt 'dom_gor'
	end

if $args[0] = 'pos50':
cla
*clr
minut += 5
gs 'stat'
'According hear voices, you went straight to a group of teenagers who had gathered here to smoke, chat, drink beer. There were 7 people of all ages, from 18 to 20 years. They watched with interest to you, which appeared from unknown destinations and waiting to see what you say.'
'You obviously did not expect that they would be so much a back seat and instead severely chastise them for what they can start a fire, bleat, so they do not come here, and that they immediately went from here. Teens first looked at each other and then laughed.'
'You began to back away, but not here - it was. You are surrounded on all sides and began to look at disgusting ways. You felt uneasy. Teens began to speak in platitudes your address, touch the clothes, and one of them standing behind, pulled up your blouse. Blouse soared, showing your breasts in a bra. Laughter strengthens and insults rained down from all sides.'
'You have tried to correct clothes, but you have surrounded by teenagers. Constantly pushed and pulled you in different directions. You begged to let go, to say that more will never come here and stuff. But only teenagers laughing and has openly paw you. You suddenly felt someone´s hands behind took up the pants and pulled sharply to force them together with clothes. And another villain pulled livchik and balances blouse.'
'Now you are standing in front of them completely naked. You began to push off into the depths of the attic, and only now you´ve seen a huge oblomlennymi legs with an old sofa. Going to the couch you stopped and tried again to soften the teenagers, but they do not even pay attention to it. You pushed sharply and you flopped on the couch. Teenagers began to unbutton his jeans. First you came powerfully built man, shoved the shoulders and you fell on his back, he unceremoniously also roughly spread your feet, and lay on top, sending his cock in the right hole, and abruptly entered her.'
act 'Further':
	cla
	*clr
	'<center><img src="images\etogame\cherdak1.jpg"></center>'
	'He fucked you in a fast and intense pace. After he finished his place was taken second husky and the same thing happened as with the first. After you fucked it all one by one. And then, while those who lacked one time.'
	act 'Further':
		cla
		*clr
		'<center><img src="images\etogame\cherdak0.jpg"></center>'
		'After the last finished in the mouth, teens buttoned his pants and left, loudly laughing and discussing just what happened. And you picked up the clothes, dressed her, and walked slowly to his apartment.'
		minut += 120
		horny += 50
		gang += 1
		cumass += 1
		cumlip += 1
		vagina += 1
		horand = RAND(1,100)
		if horand > horny: Set horny += 10 & 'You were not satisfied'
		if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
		gs 'stat'
		act 'In the apartment': gt 'korr'
		end
	end
end

if $args[0] = 'pos51':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\podezd.jpg"></center>'
'Entrance 5-storey building in which you live. Lock, closing the door on the technical floor, attic or broken.'
	if sosedQW = 0:
	'Suddenly you are faced in the stairwell with a young guy who almost ran flew up the stairs. He jumped on you and noticeably embarrassed. "Oh sorry, I did not see you. You 69y apartment settled?"'
		act 'Yes, I live in 69y':
		cls
		sosedQW = 1
		minut += 5
		gs 'stat'
		'You nodded confirming that live in the apartment 69y. The guy was visibly delighted and said. "Wonderful. Lived there before Petrovich, wino rare. Torment whole staircase. Way I´m Timothy, and you?"'
			act '<<$name>>':
			cls
			gs 'stat'
			'You told the guy that your name is <<$name>>. He nodded his head and began to get a key to open the door 68y apartment. "Very nice. As I see in the neighboring apartment living." The guy opened the door and on the threshold appeared a curious face of an elderly woman. She sent you her sharp nose and became curiously you look. Timothy entered the apartment and said irritably, "Mom, come on already hanging around the front door!" closed the door.'
			act '....': gt 'etoexhib','pos51'
			end
		end
	exit
	end

	if sosedQW > 0 and hour >= 16 and sosedDay ! day:
	sosedrand = RAND(0,100)
		if sosedrand >= 70:
		'On the platform there is your neighbor, a young guy <a href="exec:Gt ''Timofei''">Timothy</a> and smokes a cigarette, flicking the ashes in a jar.'
		end
	end


	act 'On the street':
	cls
	if sick <= 72 and nude = 0:
		xgt $HouseLocation
		elseif nude = 0:
		'<B><font color = red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
		xgt $curloc
		else
		'<B><font color = red>You need to get dressed.</font></B>'
		xgt $curloc
		end
	end


act 'The loft': gt 'etoexhib','pos52'
act 'Home': gt 'korr'
end

if $args[0] = 'pos52':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\cherdak.jpg"></center>'
'A flight of stairs leads to the roof through the attic. Dark and scary. There is clearly no place for a decent girl.'
temp = RAND(1,100)
if temp > 90: 'In the depths of the attic you hear <a href="exec: GT ''etoexhib'',''pos50''">gogochuschuyu youth</a>. It seems they have not noticed.'
	act 'On the roof':
	cla
	*clr
	gs 'stat'
	gt 'etoexhib','pos53'
	end
act 'In locked': gt 'etoexhib','pos51'
end

if $args[0] = 'pos53':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\roof.jpg"></center>'
'Roof.'
if temper >= 20 and bikini > 0 and hour >= 6 and hour <= 20:
	act 'Zagarat (1:00)':
		cla
		*clr
		set minut += 60
		set sweat += 1
		set manna += 5
		'<center><img src="images\etogame\zagar1.jpg"></center>'
		if krem = 0:
			set tan += 1
			'You went to sunbathe.'
			end
		if krem > 0:
			set krem -= 1
			set tan += 3
			'You smeared body sunblock and went to sunbathe.'
			end
		act 'Up': gt 'etoexhib','pos53'
		end
	end
act 'The loft':
	cls
	gt 'etoexhib','pos52'
	end
end

if $args[0] = 'pos54':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\spy.jpg"></center>'
'Suspicious man. It is evident that he is constantly looking back. From time to time, approach it and some people take something from him. After looking closely, you realize that he is selling the gas station receipts. All clear trades with forged documents. Maybe I´ll find him something useful.'
	if diplom = 0 and fakediplom = 0 and money > 100000:
		act 'Buy fake diploma (100 000)':
			cla
			*clr
			minut += 10
			money -= 100000
			fakediplom = 1
			'<center><img src="images\etogame\spy.jpg"></center>'
			'You bought a fake diploma.'
			act 'Leave': gt 'vokzal'
		end
	end
	act 'Leave':
		cls
		gt 'vokzal'
	end
end
if $args[0]='pos90':
	cla
	*clr
	minut+=5
	gs'stat'
	'<center><img src="images\etogame\memory.jpg" ></center>'
	'Your school magazine.'
	if teachlevel>40 and gor_dorm=6:
		act 'Lonely Heart':
			cla
			*clr
			minut += 120
			gor_dorm=7
			'<center><img src="images\etogame\ptu_tech.jpg" ></center>'
			'Once upon a time, in the teacher''s biting you asked Evgenia, chemistry teacher.'
			'- <<$name>>, you are always so attractive. There must be a lot of you know men.'
			'- I think I understand what you? Want to introduce someone.'
			'- Do not get me wrong, I understand soon 30 and married so no one takes. Yes, and are not men in our backwoods.'
			'- I understand, I will do so by e-mail me throw off your most beautiful pictures, a bit of erotica not hurt. And I will find you a good husband on a dating site.'
			'- Erotica! Oh, you think this is necessary?'
			'- This is sure a man with a beautiful female body lose their heads.'
			'- Okay, I''ll try to take a picture as possible sexy.'
			act 'Finish':gt'etoexhib','pos24'
		end
	end
	act 'Leave':
		cls
		gt'etoexhib','pos24'
	end
end

if $args[0]='pos91':
	cla
	*clr
	minut+=5
	gor_dorm=8
	gs'stat'
	'<center><img src="images\etogame\ptu_tech.jpg"></center>'
	'- Good day, <<$name>>! As you requested, I tried to take a picture as possible erotic. I hope I have not overdone. And maybe on the contrary, the photo is not quite erotic. Please email me if there is something wrong.'
	act 'See next picture':
		cla
		*clr
		minut += 5
		'<center><img src="images\etogame\ptu_tech1.jpg" ></center>'
		'Wow, she has a terrific figure.'
		act 'See next picture':
			cla
			*clr
			minut+=5
			'<center><img src="images\etogame\ptu_tech2.jpg" ></center>'
			'Wow, Evgenia! Hmm ... and yet she wanted to send even more candid photos, this is for the dating site! Apparently the girl quite despair.'
			'Now you can go to the site and help her find the man of her dreams.'
			'or'
			'But with these pictures I require it, whatever I want!'
		end
	end
	act 'Exit the browser':gt'Komp','start'
end
--- etoexhib ---------------------------------

# ptu_dush
if $args[0] = 'pos1':
	cla
	*clr
	minut += 10
	gs 'stat'
	'<center><B><font color = maroon>Women´s shower</font></B></center>'
	'<center><img src="images\etogame\ptu_jen.jpg"></center>'
	'Shower is divided into two sections, a dressing room with lockers and fine wood itself shower with tiled floor and walls. Making sure that no one in the shower, you´re going to lock the door, but with annoyance discover that the castle is not, not even a simple rod, perhaps because it is necessary in public showers or it is done for security purposes. But what to do, you can not walk then smashing. After all, you´re here why do not you?'
		act 'Strip (negative to reputation)': gt 'ptu_dush','pos2'
		act 'In the hall': gt 'etoexhib','pos33'
	end

	if $args[0] = 'pos2':
	cla
	*clr
	minut += 15
	cla
	*clr
	teachlevel -= 1
	horny +=3
	set hapri = 0
	set mop = 1
	if sweat > -3: set sweat = -3
	gs 'stat'
	'<center><B><font color = maroon>shower</font></B></center>'
	'<center><img src="images\etogame\ptu_dush.jpg"></center>'
	'You quickly take a shower, hoping that no one catches you not.'
		act 'Dress and come': gt 'etoexhib','pos33'
	end
--- ptu_dush ---------------------------------

# musorkaexh
if $args[0] = 'pos2':
cla
*clr
bumtolik = 1
minut += 5
gs 'stat'
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless. You looked at him and turned an angry look.'
act 'Leave': gt 'street'
end

if $args[0] = 'pos3':
cla
*clr
bumtolik = 2
minut += 5
gs 'stat'
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless.'
'Bum: - Is that you, young lady, do not fear the old man! - With a predatory smile, said homeless.'
act 'Ask what he needs': gt 'musorkaexh', 'pos4'
act 'Leave': gt 'dis21'
end

if $args[0] = 'pos4':
cla
*clr
minut += 5
gs 'stat'
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless.'
'You: - What do you want from me?'
'Bum: - Ah, good lady. Just nothing, you know, there is such a thing, today is a holiday, and I´m broke ...'
'You are: - In short, if I give money, you get behind me?'
'Bum: - Yeah, yeah. Money.'
act 'Give him a trifle (20 rubles)': gt 'musorkaexh', 'pos5'
act 'Give him 100 rubles': gt 'musorkaexh', 'pos6'
act 'Leave': gt 'trashplace'
end

if $args[0] = 'pos5':
cla
*clr
minut += 5
bumtolik = 2
money -= 20
gs 'stat'
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless.'
'Bum: - Oh, lady, it´s so touching. I never helped anybody. I am so unhappy. My whole life was beaten. Can I, in gratitude, kiss your hand? Allow the old man, the last time in your life?'
'(He looks at you with her tearful eyes)'
act 'Allow and lend a hand for a kiss': gt 'musorkaexh', 'pos7'
act '- Of course not! Fu, nasty old man!': gt 'street'
end

if $args[0] = 'pos6':
cla
*clr
minut += 5
bumtolik = 2
money -= 100
gs 'stat'
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless.'
'Bum: - Wow, so much. Napit have ... uh, ie buy gifts for the grandchildren, cough, cough.'
act 'Leave': gt 'street'
end

if $args[0] = 'pos7':
cla
*clr
set minut += 5
'<center><img src="images\etogame\bum_kiss.jpg"></center>'
'You see the kind of hangover homeless.'
'Bum, gently, in disbelief, stretches wet lips to your snow-white pen and kisses her. It´s all flutters and closes her eyes in pleasure. But when he opens, you notice the bad lights in his eyes ...'
act 'Further':
	cls
	gs 'stat'
	'Suddenly, pulling your hand to him, he grabs you by the buttocks and starts, right through clothes, kissing and sniffing furiously between your legs.'
	'<center><img src="images\etogame\bum_gra.jpg"></center>'
	'Bum: - Argh, what a beauty!'
	act '- The ugly freak! (Slap)': gt 'street'
	end
end

if $args[0] = 'pos8':
cla
*clr
set minut += 5
'<center><img src="images\etogame\bum.jpg"></center>'
'You see the kind of hangover homeless.'
'Bum: - You know what kind of case. How would you say. I gathered some money and spend them to me except for a drink, but nowhere on the grub. I´ve been watching you, you´re the girl business. Besides beautiful, takes as much heat!'
'But I´m a man, though not young, but the beauty of the female pleasure as appreciate.'
*nl
'You: - Are you hinting at?'
*nl
'Bum: - Do not think anything like that, I just wanted to offer money in exchange for beauty. You show me something, and I just look. Yes, more money and I will give all that a week scraped. As many as 300 rubles!'
act 'Agree':
	cls
	money += 300
	bumtolik = 3
	if exhibi = 2: exhibi = 3
	set bomjshet += 1
	gs 'stat'
	'<center><img src="images\etogame\bumt1.jpg"></center>'
	'Looking around and making sure that no one near you show stroller breasts and panties. Bum looks at you with round eyes and violently pulls his penis. You get scared, if someone comes to throw garbage.'
	'Bum: - Argh, wait let me finish!'
	'Finally homeless nachivaet loud puffing and collapses on the cardboard box Box.'
	'You: - Money, money come! - With this you cry grabs bum all his money and laughing carried away.'
	act 'Leave': gt 'street'
	end
act 'Refuse': gt 'street'
end

if $args[0] = 'pos9':
cla
*clr
set minut += 5
bumtolik = 4
'<center><img src="images\etogame\bumt4.jpg"></center>'
'It turned out that the girl named Olga. And it works in the service of helping the unfortunate.'
*nl
'Olga: - Of course, I never thought that I would do it. Sent me here the court of public works, as a punishment for an administrative offense. Although in principle the right thing, and for karma is useful to help people. If interested, take a business card, the people we really need.'
'On the business card is written "Mercy Hospital." Address points to the northern area'
act 'Leave': gt 'street'
end
--- musorkaexh ---------------------------------

# nastja
	if $args[0] = 'pos1':
	cla
	*clr
	set minut += 5
	gs 'stat'
	'<center><img src="images\etogame\nastja.jpg"></center>'
	'Girl smiling at you in return! What is she cute!'
		act 'Come to meet you.':
		cla
		*clr
		set minut += 5
		gs 'stat'
		'<center><img src="images\etogame\nastja.jpg"></center>'
		'You: - Hi! I <<$name>>! Nevozrazhaesh if I sit down? (Funny, thought you acquainted with the girl in the restaurant, just like in the good old days.)'
		'Girl: - Hi! I Nastya. Of course, keep me company!'
			act '- Why do you sit alone, even in a restaurant?':
			cla
			*clr
			set nastjaqw = 1
			set minut += 60
			gs 'stat'
			'<center><img src="images\etogame\nastja.jpg"></center>'
			'Nastya: - The same question I ask and you!'
			'You: - Well, I have a pretty rough life! Have to be independent.'
			'Nastya: - So I have the same story. Oh, you´d know ...'
			'(You talked for an hour with Nastya, she was surprisingly pleasant conversationalist. Before leaving, you exchanged phone numbers and agreed on Saturdays selected somewhere together.)'
				act 'Leave': gt 'restoran', 'zal'
			end
		end
		act 'Leave': gt 'restoran', 'zal'
	end

	if $args[0] = 'pos4':
		cla
		*clr
		set minut += 30
		gs 'stat'
		'<center><img src="images\etogame\tel_talk.jpg"></center>'
		'Any time you hear beeps. Finally at the end of the call.'
		' '
		'You: - Nastya, a greeting! This <<$name>>. Remember me, we met in a restaurant?'
		'Nastya: - Hi, <<$name>>! Well, of course I do!'
		'You: - How about we go out together?'
		'Nastya: - Yes, with pleasure. Come on in half an hour I´ll come after you.'
		'(You give yourself up. Finally, Nastya comes up to you in a taxi and go to the beginning of the offers in the cafe.)'
		act 'Go to cafe': gt 'nastja', 'pos5'
	end

	if $args[0] = 'pos5':
		cla
		*clr
		set minut += 60
		nastjaqw = 2
		gs 'stat'
		'<center><img src="images\etogame\1party0.jpg"></center>'
		'You arrive at a karaoke cafe "Mast".'
		'Nastya: - I like it here, and you can sing and beautiful views of the river. Let´s choose a table on the veranda, I love to sit in the fresh air!'
		'You occupy a table with a beautiful view of the waterfront.'
		'Nastya: - <<$name>>, choose what we drink!'
		act 'Champagne!': gt 'nastja', 'pos6'
		act 'And let´s vodka!': gt 'nastja', 'pos7'

		act 'I do not drink alcohol.': gt 'nastja', 'pos8'
	end

	if $args[0] = 'pos6':
		cla
		*clr
		minut += 5
		gs 'stat'
		'<center><img src="images\etogame\1shamp0.jpg"></center>'
		'You bring salads and champagne. Nice chatting with you Nastya. It turns out you have a lot in common. Anastasia says that she likes to be the center of attention.'
		'Yes, it outfit on it is really very frank! With her figure to attract attention not be easy.'
		'Meanwhile ends is the second bottle of champagne and you decently hopped thinking whether to tell her about his sexual escapades.'
		act 'Modestly silent and listen only to Nastya.': gt 'nastja', 'pos9'

		act 'Tell us about your very best sex.': gt 'nastja', 'pos10'

		act 'Share everything that happened to you, since you became a girl.': gt 'nastja', 'pos10'
	end

	if $args[0] = 'pos7':
		cla
		*clr
		minut += 5
		gs 'stat'
		'<center><img src="images\etogame\1party.jpg"></center>'
		'You bring salads, starters and vodka. You will have fun chatting with Nastya. It turns out you have a lot in common. Anastasia says that she likes to be the center of attention. Like when men look at her. And sometimes she is, as it were, by chance, showing them more than I should!'
		'Yes, it outfit on it is really very frank! With her figure to attract attention not be easy.'
		'Meanwhile, a carafe of vodka is half empty and you decently hopped think to tell whether her about his sexual escapades.'
		act 'Tell us about your very best sex.': gt 'nastja', 'pos10'

		act 'Share everything that happened to you, since you became a girl.': gt 'nastja', 'pos11'
	end

	if $args[0] = 'pos8':
		cla
		*clr
		minut += 5
		gs 'stat'
		'<center><img src="images\etogame\1shamp0.jpg"></center>'
		'Nastya: - Really? Sorry ... Well Well arrange evening tea (smiling at you). You brought salads, tea and sweets. Nice chatting with you Nastya. Anastasia says that her father powerful man in town. Childhood that she gets everything she wants. But, at the same time, it has always attracted "simple pleasures," she likes to be the center of attention and interaction with people.'
		'Yes, it outfit on it is really very frank! With her figure to attract attention not be easy.'
		'You had a wonderful time. Leaving the cafe Nastya insisted that he would pay the bill herself. You went out and waiting for a taxi. Nastya suddenly notices opposite horizontal bars cafes and happily tells you:'
		'-She asks, I did not hang a hundred years on the bar, went some fun!'
		act 'Go for Nastya.':
		cla
		*clr
		horny += 30
		minut += 60
		gs 'stat'
		'<center><img src="images\etogame\1turnik.jpg"></center>'
		'On the bar engaged in local yard boy. Nastya jokingly pushed him right on his high kabluchischah grabs the horizontal bar, spectators and hangs so that her breasts right in front of the poor boy with round eyes. Then she straightens up on straight arms and leg lifts so that the guy opens his mouth involuntarily.'
		'Finally, she jumps off the horizontal bar. And smacking the boy´s cheek and giggling, takes you by the hand and ran towards the taxi drove up.'
		'Now it is clear in the center of any attention she likes to be!'
		act 'Went home': gt 'street'
		end
	end

	if $args[0] = 'pos9':
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><img src="images\etogame\nastja.jpg"></center>'
	'You had a wonderful time. Leaving the cafe Nastya insisted that he would pay the bill herself. You went out and waiting for a taxi.'
	'Nastya:-<<$name>>, listen I want the toilet, I quickly the race for the fence, and you have to guard, okay?'
	'You are: - Why is it so difficult, I want, let´s go back to the cafe?'
	'Nastya: - No, no, all I can not! - With these words she runs for garages.'
		act 'Wait girlfriend':
		cls
		minut += 5
		gs 'stat'
		'<center><img src="images\etogame\1shamp3.jpg"></center>'
		'As luck would turn out because tubby little man and goes in your favor.'
			act 'Warn girlfriend':
			cls
			minut += 5
			gs 'stat'
			'You warn Nastya and she hid quietly finishes his business.'
			'- Thank you, <<$name>>! I´ll go to guard.'
				act 'Go write for the fences':
				cls
				minut += 5
			gs 'stat'
				'<center><img src="images\etogame\1shamp1.jpg"></center>'
				'You quietly do their business, when suddenly I heard loud voices.'
				'- Wai what nut, what a beauty!'
				'- Hey, what are you doing girl, we´re a den sweep! Are you at home can not piss.'
				' '
				'About horror, turning you see two janitors migrant workers! Where did Anastasia looked!'
				'<center><img src="images\etogame\1shamp4.jpg"></center>'
				'- Oh, oh, oh! Do not look, please! - And only you can say, clumsily trying to pull her panties. But the excitement your hands are shaking and it would be convenient if you are bent. While showing her crotch guest workers.'
					act 'Dress and panties leaning vypyachena ass!':
					cls
					horny += 50
					minut += 60
					gs 'stat'
					'<center><img src="images\etogame\1shamp2.jpg"></center>'
					'- Ohh - distributed by the janitors.'
						act 'Run out and leave with Nastya taxi.': gt 'street'
					end
				end
			end

			act 'Peep that will':
			cls
			horny += 30
			minut += 60
			gs 'stat'
			'You do not warn Nastya and peasant skirted you goes beyond the fences, behind which hid Nastya. Minute pause. And suddenly.'
			'- Ooh, girl, you should be ashamed. - I hear the voice of happy peasant cunning.'
			'- Chtooo! Shame on you! Immediately turn away! - Babbles Nastya bare-ass, trying to pull her panties.'
			'<center><img src="images\etogame\1shamp2.jpg"></center>'
			'A minute later she comes out red as a lobster. And you said smiling: - Count up, I was some guy with a naked booty caught.'
				act 'Get in a cab and went home': gt 'street'
			end
		end
	end

	if $args[0] = 'pos10':
		cla
		*clr
		minut += 5
		gs 'stat'
		'<center><img src="images\etogame\1shamp0.jpg"></center>'
		'Nastia you tell about their sexual experiences. It can be seen that the theme of her much interested. Nastya tells you that it is always brought up in severity. And intimacy with a man she has ever had.'
		'And somehow to throw their sexual energy, it is sometimes fun that engaged Wirth.'
		'You had a wonderful time. Leaving the cafe Nastya insisted that he would pay the bill herself. You went out and waiting for a taxi.'
		'- I figured out how quickly we catch a ride! Look! - Said Nastya drunk.'
		act 'Look at Nastya.':
		cla
		*clr
		horny += 40
		minut += 60
		gs 'stat'
		'<center><img src="images\etogame\1avtostop.jpg"></center>'
		'C that, she rips off her dress and begins to vote in shorts and heels.'
		'Crazy, you think. Fortunately, on the road so no one seemed to. And Nastya chill and getting your adrenaline rush wears dress.'
		'Now it is clear in the center of any attention she likes to be!'
		'Meanwhile, taxi rides.'
		act 'Went home': gt 'street'
		end
	end

	if $args[0] = 'pos11':
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><img src="images\etogame\1party2.jpg"></center>'
	'Nastia you tell about their sexual experiences. It can be seen that the theme of her much interested. Nastya tells you that it is always brought up in severity. And intimacy with a man she has ever had.'
	'And somehow to throw their sexual energy, it is sometimes fun that engaged Wirth.'
	'You drank so much, that I could hardly get up from the table. Leaving the cafe Nastya insisted that he would pay the bill herself. You went out and stand embraced.'
	'- <<$name>>, went for a walk along the shore. - Offered Nastya.'
		act 'Down to the river.':
		cls
		horny += 50
		minut += 60
		gs 'stat'
		'- Hey, let´s refresh, all summer I have never bathed! - Squeals Nastya he ran into the cold water.'
		'<center><img src="images\etogame\1party3.jpg"></center>'
		'- Oh, Momma, it´s cold!.'
		'You continue to rage and tear each groomsman dress staying in one, wet underwear.'
			act 'Further':
			cls
			gs 'stat'
			'<center><img src="images\etogame\1party4.jpg"></center>'
			'- Oh, she asks, and suddenly someone is watching us!.'
			'- Then Let´s enjoy it! - With these words, you tear off the livchik and circling it above his head.'
				act 'Further':
				cls
				gs 'stat'
				'<center><img src="images\etogame\1party5.jpg"></center>'
				' '
				'Cool and a little sober, you manage to get dressed up and went out to the road to hail a cab.'
					act 'Wait for a taxi':
					cla
					*clr
					'While waiting for a taxi, you Nastya weaken sat on the curb ...'
					'<center><img src="images\etogame\1party6.jpg"></center>'
					'- Get up, young lady, it´s time to go home! - Suddenly sounded in his ear. It turns out that while waiting for a taxi, I fell asleep. Added a piquant situation that my legs were spread wide. Should be considered cabbie horoshenechko between my legs. Damn Nastya did not even brought my legs together!'
					'I, red with shame and hops sit in a taxi with Nastya.'
					act 'Went home': gt 'street'
					end
				end
			end
		end
	end

	if $args[0] = 'pos12':
		cla
		*clr
		minut += 10
		manna += 100
		nastjaqw = 3
		gs 'stat'
		'<center><img src="images\etogame\tel_talk.jpg"></center>'
		'Any time you hear beeps. Finally at the end of the call.'
		' '
		'You: - Nastya, hello! How are you?'
		'Nastya: - Hi, <<$name>>! Wow we´re in last Saturday walked. I remembered all week. Let´s Put on a swimsuit and plateshko shorter, go down to the beach to sunbath. Tam.Nu meet all kisses, bye-bye!'
		'You: - Ok, I´ll gladly come!'
		act 'Hangup': gt 'telefon', 'fin'
	end

	if $args[0] = 'pos13':
		cla
		*clr
		minut += 30
		manna += 30
		nastjaday = day
		gs 'stat'
		'<center><img src="images\etogame\tel_talk.jpg"></center>'
		'Any time you hear beeps. Finally at the end of the call.'
		' '
		'You: - Nastya, a greeting! What´s new?'
		'Nastya: - Hello, <<$name>>!'
		'(You chatted as much as half an hour. Nastya also said that loves to be photographed. Would have been nice to buy the camera down and go with her out into the countryside.'
		act 'Hangup': gt 'telefon', 'fin'
	end

	if $args[0] = 'pos14':
		cla
		*clr
		minut += 30
		manna += 30
		nastjaday = day
		nastjaqw = 4
		gs 'stat'
		'<center><img src="images\etogame\2hello.jpg"></center>'
		'You see, Nastya. Her short dresses with exciting cut that you even thought, "How is she does not hesitate to go out then."'
		'Nastya: - Well, finally, I´m tired of waiting already! Went to change into swimsuits.'
		act 'Going to the beach cabin': gt 'nastja', 'pos15'
	end

	if $args[0] = 'pos15':
		cla
		*clr
		minut += 10
		gs 'stat'
		'<center><img src="images\etogame\2bcabin.jpg"></center>'
		'You come to the beach huts.'
		'Nastya: - Yeah. It´s not like Vivaldi. - Says Nastya looking at dilapidated cabins.'
		'You: - Okay, go get changed, I´ll wait for you. I even wore a swimsuit at home.'
		act 'Nastya wait': gt 'nastja', 'pos16'
	end

	if $args[0] = 'pos16':
		cla
		*clr
		minut += 10
		horny += 10
		gs 'stat'
		'<center><img src="images\etogame\2bgirl.jpg"></center>'
		'While waiting for Nastia, you decide to explore the beach and bathing people. You notice where begins nudist beach is out of the water naked girl. And she has such a delicious form that looks all the male part of the beach were fixed on her. You imagine yourself in the place of this girl. And the thoughts, be naked in front of a crowd, you´re a little excited.'
		'Nastya: - I´m ready! Hey, where are you staring. - You hear a voice behind Nastia. You turn around and look at the girl Nastya specify. You see the first surprise, then, sly smile and a twinkle in her eyes. It is evident that it is a sight too much.'
		'You: - disguised? Come choose a comfortable place to sunbathe.'
		act 'Choose a location': gt 'nastja', 'pos17'
	end

	if $args[0] = 'pos17':
		cla
		*clr
		minut += 60
		manna += 100
		gs 'stat'
		'<center><img src="images\etogame\2bimbos.jpg"></center>'
		'You have the time. Sunbathe, swim, drink milkshakes that Nastya picked up from home. Photograph on lake background. And potehonku start to get tired.'
		'Nastya: - This girl who bathed naked. You would be able to so, take and undress in front of strangers? - With a smile asks you Nastya. Turns me so I always what you dreamed this, but shy and afraid that think about.'
		act 'Interested in': gt 'nastja', 'pos19'
		act 'Not interested': gt 'nastja', 'pos18'
		end

	if $args[0] = 'pos18':
		cla
		*clr
		minut += 20
		gs 'stat'
		'<center><img src="images\etogame\2bend.jpg"></center>'
		'You: - I do not think that it´s okay to show her body to strangers. In addition, dangerous, may think that you are easily accessible and start to molest or rape. Besides, now all phones with a good camera can take pictures and put it on the Internet.'
		'Nastya: - Yeah, maybe you´re right. It´s just a fantasy.'
		'You have talked to various women´s issues and zasobiralis home.'
		act 'Home': gt 'street'
	end

	if $args[0] = 'pos19':
		cla
		*clr
		minut += 10
		manna += 100
		horny += 30
		gs 'stat'
		'<center><img src="images\etogame\2btalk.jpg"></center>'
		'You: - I also fantasized on the subject. It´s very exciting when you watch. Of course, there is a risk that someone will respond correctly, some naoret grandmother. Or phone sfotkayte and then lay out in the internet. But, really want to try.'
		'Nastya: - I have an idea, now check how we are brave. You see guys play ball, went to play with them ... topless?'
		'You look around the sides. Around full of people. Including men and boys. You and admired before, but that would be bare-chested. You even blushed a little. But Nastya already untied the strap in his bathing suit. Nowhere to retreat.'
		act 'Bare breasts': gt 'nastja', 'pos20'
	end

	if $args[0] = 'pos20':
		cla
		*clr
		minut += 20
		manna += 30
		gs 'stat'
		'<center><img src="images\etogame\2bvolley.jpg"></center>'
		'Nastia you are standing in the midst of the beach with bare chest. You literally nape feel chained to you views.'
		'"- Where are you looking at, dog!" - Sounds somewhere nearby. "Biff!" A woman bet a peasant magazine over the cap. Apparently someone so admired the views that he forgot about his wife.'
		'Nastya: - Well, nothing terrible has happened. Went to play.'
		'You play ball with the guys and girls. Any inconvenience, except that ridiculous bouncing breasts during the game. To the delight of the boys and girls envy.'
		act 'Finish the game': gt 'nastja', 'pos21'
	end

	if $args[0] = 'pos21':
		cla
		*clr
		minut += 20
		nastjaqw = 5
		gs 'stat'
		'<center><img src="images\etogame\2bslp.jpg"></center>'
		'Plenty enough of you return to your seat and lying, no one is shy, spreading his arms and showing off her body to everyone.'
		'Nastya: - <<$name>>, imagine how all these louts want us now. Language and would like to show. Hee-hee.'
		'You have a little lie on the beach and decided it´s time to get ready.'
		act 'Home': gt 'street'
	end
	if $args[0] = 'pos22':
		cla
		*clr
		minut += 10
		manna += 100
		nastjaqw = 6
		gs 'stat'
		'<center><img src="images\etogame\tel_talk.jpg"></center>'
		'Any time you hear beeps. Finally, at the other end to the challenge.'
		'Nastya: - Hello? (you hear the sad voice Nasty)'
		'You: - Nastya, hello! How are you? Why are you so sad?'
		'Nastya: - Hi! Yeah, so, trouble at work.'
		'You: - Well, come to me, open a bottle of wine, and you tell me everything. What have you there at work.'
		'Nastya: - Thank you, <<$name>>! I´m coming!'
		act 'Hangup': gt 'nastja', 'pos23'
	end

	if $args[0] = 'pos23':
		cla
		*clr
		minut += 30
		nastjaday = day
		gs 'stat'
		'<center><img src="images\etogame\nast_home.jpg"></center>'
		'After half an hour the doorbell rings.'
		'You see, Nastya. Without makeup and in casual clothes, she looks like this cute.'
		'You Nastya conveniently arranged in the hall on the couch, open a bottle of wine and start telling each other their secrets.'
		'From the conversation, you will learn that everyone thinks Nastia just beautiful and you agree with them. It is good to learn and always looking for something new in life. She has quite a strong character, you have seen how she argued with those who were older or stronger than her. Also, she´s a little spoiled and descent applies to all who she considers below her status. However, this does not prevent her from making friends, whom she had a whole sea.'
		'You also learned that the present can not last long at any work place. First, it is easy to pass the interview and willingly take it, and then fired under various pretexts, or she leaves, saying that "this job is not for me."'

		'You: - It is not clear what you can not work, because the location is excellent!'
		'Nastya: - Yes, but ...'
		act 'Further': gt 'nastja', 'pos24'
	end

	if $args[0] = 'pos24':
		cla
		*clr
		minut += 120
		energy -= 20
		set manna += 10
		set willpower += 10
		alko += 2
		set water += 5
		set son += 5
		set horny += rand(10,30)
		gs 'stat'
		'<center><img src="images\etogame\wines.jpg"></center>'
		'Meanwhile, you drank all the wine.'
		'You: - It is necessary to have a snack. Let´s order pizza cook reluctantly.'
		'(You call to order a pizza and order a large hot pizza.)'
		''
		'(You can see that Nastya second thought about something and suddenly her eyes light up in flames.)'
		'Nastya: - <<$name>>, let´s listen to fun. I saw this on the internet. Girl orders pizza, and she throws a towel over his naked body, such as the shower ran. Well, when paying the towel "accidentally" slips down. I´ve been dreaming of this, but one would not be home nizachto risnula. And you are not afraid.'
		act 'Agree': gt 'nastja', 'pos26'
		act 'Refuse': gt 'nastja','pos25'
	end

	if $args[0] = 'pos25':
		cla
		*clr
		minut += 30
		energy += 20
		money -= 100
		gs 'stat'
		'<center><img src="images\etogame\nast_home.jpg"></center>'
		'Nastya: - Hmm, bore you <<$name>>!'
		'You have half an hour to chat to, eat pizza delivered and accompanying Nastia to the taxi.'
		act 'Home': gt 'korr'
	end

	if $args[0] = 'pos26':
		cla
		*clr
		minut += 10
		gs 'stat'
		'<center><img src="images\etogame\nast_home.jpg"></center>'
		'You: - Ahaha! I do not even know! Come on. And who will pay? You or me? Hee-hee.'
		'Nastya: - Come on, we both towels, and there as go!'

		'(Doorbell rings)'
		'While you are discussing their shameless plan, the provider has already come. You look at Nastya, she had not completely naked and standing in his underwear. You also only one towel.'

		act 'Go open': gt 'nastja','pos27'
		act 'View with a smile on Nastya': gt 'nastja','pos29'
	end

	if $args[0] = 'pos27':
		cla
		*clr
		minut += 10
		horny += rand(10,20)
		gs 'stat'
		'<center><img src="images\etogame\2_del.jpg"></center>'
		'You asked who was there, and you answered "pizza delivery."'
		'There stood the affable young man and held a pizza.'
		'It seems he was not embarrassed that you were in a towel.'
		'How did it throw the towel to look casually slip in your head. You understand that the young man is waiting for payment, and the money you have in your wallet. This is you chance, you go to the purse, and report trebuyumuyu amount relax towel, just holding his hand. Nasty nowhere to be seen, but it seems to you that you hear almost inaudible chuckle. When you turn to the front door, you notice that raznozchik curiously looks into the depths of the apartment, but seeing you immediately opeshivaet.'
		act 'Giving money': gt 'nastja','pos28'
	end

	if $args[0] = 'pos28':
		cla
		*clr
		minut += 10
		horny += rand(30,50)
		exhibi += 2
		gs 'stat'
		'<center><img src="images\etogame\towel.jpg"></center>'
		'You give money and at this point the towel fall to the ground. "Oh," cries out and stretch you money but boy stands as vkopanaya and stare at your body. Then you bend to pick up the towel and open view of your ass. Finally, one hand holding a towel, and the other holding the money. You say goodbye to raznozchikom.'
		'- Oh, oh, oh, excuse me, how can this be!'
		'- Nothing, heh. It happens. You have a beautiful body ... heh.'
		act 'Close the door': gt 'nastja','pos30'
	end

	if $args[0] = 'pos29':
		cla
		*clr
		minut += 10
		horny += rand(10,30)
		exhibi += 1
		gs 'stat'
		'<center><img src="images\etogame\2_nast_del.jpg"></center>'
		'Nastia you smile. She blushed a deep breath and ran to open the door.'
		'- Good day, your ... pizza! (From behind Nastia you glance at raznozchika. Muzhichok taken aback and sneak looks at luxury young body.)'
		'- Oh yeah, I finally satisfy his hunger. (Said as possible sexier Nastya and licked. Withheld and you burst out laughing.)'
		'Raznozchik another two minutes, counting two bills stretched staring at the wall with his chest, then another tried to say something, but he said nothing. Finally Nastya, saying thank you, shut the door almost nipping his nose.'
		act 'Pop!': gt 'nastja','pos30'
	end

	if $args[0] = 'pos30':
		cla
		*clr
		minut += 30
		energy += 20
		gs 'stat'
		'<center><img src="images\etogame\2_towel.jpg"></center>'
		'- Ahaha, damn, pipets!!!.'
		'(You Nastya screaming through raving about done)'
		if exhibi = 2: '- <<$name>> I lifted the camera, do not be afraid of your face is not visible there.'
		if exhibi = 1: '- <<$name>>, I put the phone to record all filmed.'
		'You have talked about their experiences. Revised video. How else can you come up to mischief.'
		'Looks like you both naked in public, it caused a huge surge of adrenaline.'
		'You had a fantastic time and agreed with Nastya will call the next day.'
		act 'Further': gt 'korr'
	end

	if $args[0] = 'pos31':
		cla
		*clr
		minut += 10
		manna += 100
		nastjaqw = 7
		gs 'stat'
		'<center><img src="images\etogame\tel_talk.jpg"></center>'
		'Any time you hear beeps. Finally at the end of the call.'
		'Nastya: - Hello, <<$name>>, hello! I have the news, remember our video raznozchikom pizza?'
		'You: - This will not forget!'
		'Nastya: - So I showed it to my friend photos, sorry could not resist, he said he would buy it from me for good money.'
		'You: - Come on, cool.'
		'Nastya: - Said, "remove another, persons will be more expensive," although I am categorically against the person show!'
		'You: - I.'
		'Nastya: - Well, there will be ideas, call, hee-hee!'
		'You: - Bye-bye.'
		act 'Hangup': gt 'korr'
	end
--- nastja ---------------------------------

# Timofei
minut += 1
sosedDay = day
gs 'stat'
'<center><img src="images\qwest\sosed\sosed.jpg"></center>'
'Timothy shakes ashes in a jar and you nod "Hello."'

act 'Say hello and leave': gt 'etoexhib','pos51'

act 'Chat':
cls
minut += 15
Sosed += 1
gs 'stat'
'<center><img src="images\qwest\sosed\sosed.jpg"></center>'
	if sosedSlut = 0:
		if sosed = 1:
		'Timothy says that studying in college and soon it will end.'
		end
		if sosed = 2:
		'Timothy says that he lives with his mother, his father lives in a divorce with his mother and live with another family.'
		end
		if sosed = 3:
		'Timothy tells us that soon he will finish studying for law and father promised to give him a car.'
		end
		if sosed = 4:
		'Timothy says that he and his childhood studying dance and still, he and his team are sometimes the house of culture.'
		end
		if sosed = 5:
		'Timothy tells us that in the evenings he earns repairing computers.'
		end
		if sosed = 6:
		'Timothy says that after college he was going to go to college, that he had not been taken into the army.'
		end
		if sosed >= 7:
		'Timothy fun talking to you about life, computers, wheelbarrows.'
		end
	end
	if sosedSlut = 1:
	'You are trying to strike up a conversation, but Timothy responsible monosyllables and extinguished a cigarette goes home.'
	end
act 'Say goodbye and leave': gt 'etoexhib','pos51'
end

--- Timofei ---------------------------------

# TimofeiMetro
minut += 1
sosedMetroDay = day
gs 'stat'
!'<center><img src="images\qwest\sosed.jpg"></center>'
'Timothy saw you and said hello, "Hello <<$name>>."'
if cumfrot= 0 and cumface = 0 and sosedSlut = 0: 'You chatted with Timothy while riding the subway.'
if sosedSlut = 1:
'After greeting Timothy all kind shows that he is not interested in your further communication.'
end
if sosedSlut = 0:
	if cumfrot > 0 or cumface > 0:
	sosedSlut = 1
		if cumface > 0:
		'He looked puzzled at your face. "<<$name>>, your face is smeared in something." He stared at you and after a moment he realized that you cum on her face. "What´s that? Cum?"'
		else
		'He started chatting with you fun, then suddenly noticed semen on your clothes, his eyes widened noticeably "What´s that? Cum?"'
		end

		act 'Excuses':
		cls
		gs 'stat'
		'You began to make excuses, claiming that it is all an accident and you are absolutely innocent. But Timothy frankly do not believe you and listen to you without interest.'
		act 'Get out of the car': gt 'metro','start'
		end

	end
end

act 'Get out of the car': gt 'metro','start'

--- TimofeiMetro ---------------------------------

# balkon
if $ARGS[0] = 'start':
	CLOSE ALL
	cla
	*clr
	set minut += 5
	gs 'stat'
	'<center><B><font color = maroon>Apartment Balcony</font></B></center>'

	!Картинка!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if nude = 0:
		'<center><img src="images\community\balcony_dressed1.jpg"></center>'
	end

	if nude = 1:
		if tanga = 0: '<center><img src="images\community\balcony_naked1.jpg"></center>'
		if tanga = 1: '<center><img src="images\community\balcony_underwear1.jpg"></center>'
	end

	'<center>You went to the balcony.</center>'
	!Погода!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if hour >= 0 and hour <= 6:
		'<center>Dark outside, the street lamp illuminates.</center>'
	end

	if hour = 7:
		'<center>On the street the morning dawn, singing birds.</center>'
	end

	if hour >= 8 and hour <= 19:
		'<center>On a clear day the street.</center>'
	end

	if hour >= 20 and hour <= 23:
		'<center>At twilight street.</center>'
	end

	!Если голая!!!!!
	if nude = 1:
		if sosedBalDay ! day: Set temp = RAND(1,4)
		if sosedBalDay = day: Set temp = RAND(1,3)

		if temp = 1:
			'<center>You no one pays attention.</center>'
		end

		if temp = 2:
			'<center>You no one pays attention.</center>'
		end

		if temp = 3:
			'<center>You no one pays attention.</center>'
		end

		if temp = 4:
			'<center>Neighbor left out on the balcony and looking at you naked.</center>'
			act 'Look at the neighbor': gt 'balkon2','sosed'
		end
	end

	if horny >= 50:
		act 'Masturbate': gt 'balkon2','masopt'
	end

	act 'Approach the railing': gt 'balkon2','niz'
	act 'Leave from the balcony': gt 'sitr'

end

--- balkon ---------------------------------

# balkon2
!!!!!КУРИТЬ на балконе!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'kurit':
	cla
	*clr
	set minut += 10
	set vikureno += 1
	set siga -= 1
	set son += 1

	clr
	gs 'stat'
	'<center><img src="images\etogame\kurit.jpg"></center>'
	'<center>You lit a cigarette...</center>'
	act 'Throw a cigarette butt...': gt 'balkon','start'
end

!!!!!Сосед демонстрировать тело!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'demo1':
	cla
	*clr
	clr
	gs 'stat'
	horny += rand(30,50)
	set minut += 5
	set sosedBalDay = day
	if tanga = 1: '<center><img src="images\community\balcony_underwear3.jpg"></center>'
	if tanga = 0: '<center><img src="images\community\balcony_naked3.jpg"></center>'
	'<center>You defiantly posing on the balcony, to the delight of the neighbor. He eagerly looking at you furiously masturbate. 5 minutes later he came and went to his apartment.</center>'
	if exhibi=2:exhibi=3
	act 'Further': gt 'balkon','start'
end

!!!!!Сосед палец!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'palec1':
	cla
	*clr
	clr
	gs 'stat'
	horny += rand(10,30)
	set minut += 1
	set sosedBalDay = day
	if tanga = 1: '<center><img src="images\community\fuckyou_underwear.jpg"></center>'
	if tanga = 0: '<center><img src="images\community\fuckyou_naked.jpg"></center>'
	'<center>You showed neighbor thumb and he was gone from the balcony.</center>'
	act 'Further': gt 'balkon','start'
end

!!!!!смотреть вниз!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if $ARGS[0] = 'niz':
	cla
	*clr
	clr

	gs 'stat'

	'<center><font size = 5 color = maroon><B>Balcony</B></font></center>'

	if alcohol < 12:
		if nude = 0: '<center><img src="images\community\balcony_dressed2.jpg"></center>'
		if nude = 1 and tanga = 1: '<center><img src="images\community\balcony_underwear2.jpg"></center>'
		if nude = 1 and tanga = 0: '<center><img src="images\community\balcony_naked2.jpg"></center>'

		if siga >= 1: act 'Have a cigarette': gt 'balkon2','kurit'

		act 'Enjoy the view':
			cla
			*clr
			'<center><img src="images\etogame\bal1.jpg"></center>'
			'<center>You look at the panorama from your private balcony.</center>'
			act 'Further': gt 'balkon','start'
		end
	else
		'You had no idea your apartment was so high. You don''t feel comfortable there ...'
		act 'Further': gt 'balkon','start'
	end
end

if $ARGS[0] = 'sosed':
	cla
	*clr
	clr
	gs 'stat'
	'<center><font size = 5 color = maroon><B>Balcony</B></font></center>'
	'<center><img src="images\etogame\sosed.jpg"></center>'
	'<center>Neighbor on the left on the balcony, looking at you carefully.</center>'
	act 'Demonstrate body': gt 'balkon2','demo1'
	act 'Show pervert thumb': gt 'balkon2','palec1'
end

if $ARGS[0] = 'masopt':
	cla
	*clr
	clr

	gs 'stat'

	set minut += 15
	set mastr += 1
	set manna += 15
	set willpower += 15

	set horny = 0
	set orgasm += 1

	'<center><img src="images\community\balcony_dildo.jpg"></center>'

	if dildo = 1:
		'<center>Do you want use the dildo?</center>'
		act 'Yes':
			cla
			*clr

			set vagina += RAND(0,2)

			set badildo = RAND(1,2)
			if badildo = 1:'<center><img src="images\community\balcony_dildo1.jpg"></center>'
			if badildo = 2:'<center><img src="images\community\balcony_dildo2.jpg"></center>'
			'<center>After pleasuring yourself intensily with the dildo you reach the orgasm and feel more calm.</center>'

			act 'Finish': gt 'balkon','start'
		end

		act 'Yes, on my ass':
			cla
			*clr

			set minut += 10
			set analorgasm += 1
			set anal += 1
			set anus += RAND(0,2)

			'<center><img src="images\community\balcony_anal1.gif"></center>'
			'<center>I feel that my whole ass is burning</center>'

			act 'Continue':
				cla
				*clr
				'<center><img src="images\community\balcony_anal2.gif"></center>'
				'An immense pleasure overtake you. Your body shivers like in the cold.'
				act 'Go back': gt 'balkon','start'
			end
		end
	end

	act iif(dildo = 1, 'No', 'Finger'):
		cla
		*clr
		set vagina += RAND(0,1)

		gt 'balkon2','finger'
	end
end

if $ARGS[0] = 'finger':
	cla
	*clr
	clr
	'<center><img src="images\community\balcony_mas1-1.jpg"></center>'
	'<center>You lick your fingers preparing them for your pussy.</center>'

	act 'Insert finger':
		cla
		*clr
		'<center><img src="images\community\balcony_mas1-2.jpg"></center>'
		'<center>Slowly put my finger into my pussy.</center>'
		act 'Next':
			cla
			*clr
			'<center><img src="images\community\balcony_mas1-3.jpg"></center>'
			'<center>I feel like in heaven. Slowly my pussy gets wet.</center>'
			act 'Stand':
				cla
				*clr
				'<center><img src="images\community\balcony_mas1-4.jpg"></center>'
				if exhibi >= 0:
					if exhibi = 1: set exhibi = 2
					'<center>You look around to see if you have an audience.</center>'

					set visit = RAND(0,0)
					if visit = 0:
						set vagina += 1
						'<center>You can''t see anyone.</center>'
						act'insert fingers': gt 'balkon2','finger_solo'
					else
						'<center>I notice that someone seems to be enjoying the show as much as I am.</center>'
						!act'Invite': gt 'balkon2','beatafriend'
						act'Ignore and continue to play': gt 'balkon2','finger_solo'
					end
				else
					'Overtaken by the thrill of the risk of being caught in so a compromising act and the exciment of your skilled fingers you enjoy a great orgasm.'
					'Still a bit dizzy, you try to gather your clothes.'
					act 'Dress up': gt 'balkon','start'
				end
			end
		end
	end
end

if $args[0] = 'finger_solo':
	cla
	*clr
	clr
	'<center><img src="images\community\balcony_mas1-5.jpg"></center>'
	'<center>The feeling is now so intense that you ignore everything surrounding you.</center>'
	act 'Next':
		cla
		*clr
		'<center><img src="images\community\balcony_mas1-6.jpg"></center>'
		'<center>Your pussy is so wet that it is leaking liquids and you cant think in nothing else than ... Faster!Faster!</center>'
		act 'Faster':
			cla
			*clr
			'<center><img src="images\community\balcony_mas1-7.jpg"></center>'
			'<center>ohh ahh...</center>'
			act 'Faster':
				cla
				*clr
				'<center><img src="images\community\balcony_mas1-8.jpg"></center>'
				'<center>ohh ahh...</center>'
				act 'Do it':
					cla
					*clr
					'<center><img src="images\community\balcony_mas1-9.jpg"></center>'
					'You can''t hold any longer!'
					act 'Orgasm':
						cla
						*clr
						'<center><img src="images\community\balcony_orgasm.jpg"></center>'
						'<center>You are shivering after such an intense pleasure. You can see some of your neighbours even aplauding your performance.</center>'
						'<center>A bit surprised with the audience you try to gather your clothes.</center>'
						act 'Dress Up':
							cla
							*clr
							'<center><img src="images\community\balcony_mas1-10.jpg"></center>'
							act 'Leave': gt 'balkon','start'
						end
					end
				end
			end
		end
	end
end
--- balkon2 ---------------------------------

# dom_gor
ACT 'On the street':
	cls
	if sick <= 72 and nude = 0:
	xgt 'gorodok'
	elseif nude = 0:
	'<B><font color=red>You are too ill to take to the streets.</font></B>'
	xgt $curloc
	else
	'<B><font color=red>YOU HAVE TO GET DRESSED.</font></B>'
	xgt $curloc
	end

END
$metkaM = $ARGS[0]
	$locM = $CURLOC

	'<center><B><font color = maroon>Your room</font></B></center>'
	'<center><img src="images\etogame\kom_gor.jpg"></center>'
	'Your room in a hostel. The room is small, there is only the minimum necessary. 2 sleepers, <a href="exec:GT ''gor_mirror'',''start''">mirror</a>, <a href="exec:GT ''gor_exh'',''pos1''">hanger</a>, <a href="exec:GT ''loker'',''start''">cupboard</a> for things and a small TV.'
	clr
	gs 'stat'
	gs 'time'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

if cloth_vid = 2 and teachlevel > 20 and parkrunday ! day and hour < 21 and hour > 6:
	act 'Jogging on the Square (1:00)':
		 cla
		 *clr
		 set parkrunday = day
		 set minut = minut + 30
		 set manna = manna + 10
		 set willpower = willpower - 10
		 set beg = beg + 1
		 set fat = fat - 8
		 set speed = speed + 1
		 set sweat = sweat + 3
		 '<center><img src="images\pic\parkbeg.jpg" ></center>'
		 'You did a few laps around the park. Out of breath, sweaty and tired.'
		 parkrand = RAND (0,10)
			 if parkrand >4 and beguch<3:
				 'In the park you met a disciple of the school and asked to go for a run with you.'
					 act 'run together':
					 cla
					 *clr
					 beguch+=1
					 '<center><img src="images\etogame\stop.jpg" ></center>'
					 'You run with the pupil sometimes stopping and chatting with ease.'
					 'Disciple: - Svetlana, you are so beautiful, you are all so fond of! You: - Hmm, thank you!'
					 act 'complete a run':gt'gskver'
					 end
			 end
			 if parkrand >4 and beguch>=3 and beguch<6:
				 'In the park you met a disciple of the school and asked to go for a run with you.'
					 act 'run together':
					 cla
					 *clr
					 beguch+=1
					 '<center><img src="images\etogame\stop2.jpg" ></center>'
					 'Have you stopped to do stretching exercises muscles.'
					 'Disciple: - Ahh if our girls would be at least a little like you! You: - You just got used to them, get to know them!'
					 act 'complete a run':gt'gskver'
					 end
			 end
			 if parkrand >4 and beguch>=6 and beguch<9:
				 'In the park you met a disciple of the school and asked to go for a run with you.'
					 act 'run together':
					 cla
					 *clr
					 beguch+=1
					 horny+=3
					 '<center><img src="images\etogame\stop3.jpg" ></center>'
					 'You run with the pupil sometimes stopping and chatting with ease.'
					 *nl
					 'Disciple: - Svetlana, can I take a picture of you! You are: - What are you going to do then with my photo, and the wretch!'
					 'Disciple: - No, no, I will not forgive her masturbate! You: - Aha! I did not say that!'
					 'Student: - Im sorry, was a bad idea. You: - Yes, Im kidding! Fotkay, just me then do not forget to copy.'
					 *nl
					 'You picked up a background, stood in a pose and you photographed.'
					 act 'complete a run':gt'gskver'
					 end
			 end
		 act 'complete a run':gt'gskver'
	end
end

	if hour < 23:
		act 'Lie on the couch (1:00)':
			cla
			minut += 60
			if son < 30:
			son += 5
			else
			son = 29
			end
			'I relax lying on the couch.'
		act 'stretch':gt'dom_gor'
		end
	end

	if hour >= 23:
		act 'Sleep in a bed':
			cla
			*clr
			'<center><img src="images\pics\son.jpg"></center>'
		 cloth_vid=0
			if analplugIN = 1: set analplugIN = 0 & 'Before going to bed you remove the butt plug.'
			if vibratorIN = 1: set vibratorIN = 0 & 'Before going to bed you remove the vibrator.'
			if mop > 1: set mop = 0 & set vidageday -= 1 & 'Cosmetics smeared face, you think that looks bad for sleeping with makeup, skin ages faster from it.'
			set tanga = 1
			set health += 5
			set hapri = 0
			InSleep = 1
			gs 'stat'
			'you slept'
				act 'Get Up':
				cla
				InSleep = 0
				minut += 480
				son = 30
				gt 'dom_gor'
				end
		end
	end

	if eda > 0:
	'In the refrigerator stored food that´s good for <B><<eda>></B> servings.'
	end
	if edaD = 0 and eda = 0:
	'<B><font color = red>The fridge is almost empty, nothing to eat at all.</font></B>'
	end
	if edaD > 0:
	'The refrigerator is kept healthy meal that´s good for <B><<edaD>></B> servings.'
	end
	if eda >= 1:
		act 'Have meal (1:00)':
			cla
			*clr
			eda -= 1
			minut += 60
			gs 'stat'
			frost = 0
			!set edahot = 0
			set health += 10
			set manna += 20
			if water < 20:
		'You gladly drank a cup of tea.'
		set water += 20
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
			if energy >= 30:
				set fat += 2
				'You no longer want to eat and drink.'
				end
			if energy < 30:
				energy += 25
				fat += 1
				'You gladly ate.'
				end
			act 'Get up from the table': gt 'dom_gor'
			end
	end

	if edaD > 0:
		act 'Eat diet food (0:30)':
		cla
		*clr
		frost = 0
		'<center><img src="images\pics\food.jpg"></center>'
		set minut += 30
		set health += 10
		set manna += 20
		set edaD -= 1
		if energy >= 30:
		'You can no longer have.'
		end
		if energy >= 20 and energy < 30:
		set energy += 10
		'You pushed through the power of a meal.'
		end
		if energy < 20:
		set energy += 20
		'You gladly ate.'
		end
		if water >= 20:
		'Tea in you no longer climbs.'
		end
		if water < 20:
		'You gladly drank a cup of tea.'
		set water += 20
		end
		act 'Get up from the table': gt 'dom_gor'
		end
	end

	if gor_dorm > 0: act 'In a shared bathroom': gt 'etoexhib','pos41'
--- dom_gor ---------------------------------

# comendant
if $args[0] = 'pos1':
	cla
	*clr
	minut += 10
	gs 'stat'
	'<center><B><font color = maroon>commandant hostel</font></B></center>'
	'<center><img src="images\etogame\comendant.jpg"></center>'
	'Commandant ulybchiv hostel and friendly.'
		act 'Become acquainted': gt 'comendant','pos2'
	end

	if $args[0] = 'pos2':
	cla
	*clr
	minut += 5
	gor_dorm = 1
	gs 'stat'
	'<center><B><font color = maroon>commandant hostel</font></B></center>'
	'<center><img src="images\etogame\comendant.jpg"></center>'
	'You: - Good afternoon! I am in the direction of the school, so all the necessary documents.'
	'...'
	'- Yes, it seems all right. Welcome to our town. My name is Peter, you can simply Petya.'
	'- <<$name>>.'
	'- So will teach, well, this is lucky to get such a tomboy charming teacher.'
	'- Thank you.'
	'- So, here are your keys, the room number on the key fob. Kitchen and bathroom at the end of the corridor, although the water often disable the utility. If there are problems, please contact me.'
		act 'In the room': gt 'dom_gor'
	end

	if $args[0] = 'pos3':
	cla
	*clr
	minut += 5
	gor_dorm = 3
	gs 'stat'
	'<center><B><font color = maroon>commandant hostel</font></B></center>'
	'<center><img src="images\etogame\comendant_what.jpg"></center>'
	'You: - Hello! It´s just a mess, you saw in what condition the pipe in the bathroom. Because the water turned off and that the pipes from nothing left.'
	'...'
	'- Ooh, what you say.'
	'- Yes, I myself checked the riser, and I can show you come on.'
	'- It´s an outrage! I immediately call a plumber. So here´s the thing.'
	'- Hmm, I hope ...'
	'- I immediately take measures, thank you. Sorry for the inconvenience.'
	'(Hmm, strange type)'
		act 'In the room': gt 'dom_gor'
	end
--- comendant ---------------------------------

# gor_mirror
if $ARGS[0] = 'start':
	cla
	clr
	!!! Maruda Hair Mod
	gs 'stat'
	!if hcol = 0 and curly <= 0: '<center><img src="images\body\hcol.jpg"></center>'
	!if hcol = 1 and curly <= 0: '<center><img src="images\body\hcol1.jpg"></center>'
	!if hcol = 2 and curly <= 0: '<center><img src="images\body\hcol2.jpg"></center>'
	!if hcol = 3 and curly <= 0: '<center><img src="images\body\hcol3.jpg"></center>'
	!if hcol = 0 and curly > 0: '<center><img src="images\body\hcolcurly.jpg"></center>'
	!if hcol = 1 and curly > 0: '<center><img src="images\body\hcolcurly1.jpg"></center>'
	!if hcol = 2 and curly > 0: '<center><img src="images\body\hcolcurly2.jpg"></center>'
	!if hcol = 3 and curly > 0: '<center><img src="images\body\hcolcurly3.jpg"></center>'
if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol3.jpg"></center>'
end
	
if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol3.jpg"></center>'
end

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

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

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

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

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

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

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

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

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

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

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

if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0: 
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol3.jpg"></center>'
end
	
	!!! Maruda Hair Mod
	'<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>'
	if kosmetica > 0: 'Cosmetics <<kosmetica>>'
	if kosmetica = 0: 'You have no makeup.'

		if hapri = 0:
		act 'coiffured':
		cla
		set minut += 3
		set hapri = 1
		act 'View results': gt 'gor_mirror','start'
		end
		end

		if mop = 1 and kosmetica > 0:
		act 'Apply makeup':
		cla
		*clr
		'<center><img src="images\etogame\mop.jpg"></center>'
		act 'light make-up':
		cla
		set minut += 3
		set kosmetica -= 1
		set mop = 2
		'You legonechko summed eyes and lips a little tint.'
		act 'View results': gt 'gor_mirror','start'
		end

		if kosmetica >= 2:
					act 'normal makeup':
					cla
					set minut += 5
					set kosmetica -= 2
					set mop = 3
					'You lipstick, summed up his eyes and eyelids.'
					act 'View results': gt 'gor_mirror','start'
					end
		end

		if kosmetica >= 3:
					act 'calling makeup':
					cla
					set minut += 10
					set kosmetica -= 3
					set vidageday -= 1
					set mop = 4
					'You heavily nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.'
					act 'View results': gt 'gor_mirror','start'
					end
		end
		end
		end

		if lipbalm > 0 and lipbalmstat <= 0:
			act 'Smear lip balm moisturizing':
			cla
			set minut += 10
			lipbalm -= 1
		set lipkoef += RAND(5,15)
				if lipkoef > 50:
				set lipkoef = 0
				set lip += 1
				end
			lipbalmstat += 8
			'You smeared lip moisturizing balm.'
		act 'View results': gt 'gor_mirror','start'
		end
		end

		act 'Move away from the mirror':
		cla
		gt 'dom_gor'
		end
	end
--- gor_mirror ---------------------------------

# buklinik
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy clinic</B></center>'
	'<center><img src="images\etogame\bukli.jpg"></center>'
	'Hours: 9 to 17, the weekend Saturday, Sunday.'
	temp = RAND(1,10)
	if temp = 9: 'You see the crowd of homeless people trying to get to a shelter.'
	if temp = 2: 'You see a homeless person trying to get into a shelter.'
	if temp = 3: 'You see an old man who came to the shelter.'

	if hour >= 9 and hour <= 17 and week < 6:
		act 'Go to the clinic': gt 'buklinik','holl'
	end



	act 'Leave': gt 'nord'
end

if $ARGS[0] = 'holl':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. hall</B></center>'
	'<center><img src="images\etogame\bukli_holl.jpg"></center>'
	'Hospital corridor.'
	if bumtolik > 4: 'Things are stored on<a href="exec: GT ''buklinik'',''sklad''"> stock</a>.'
	if bumtolik > 5: 'The entrance is located<a href="exec: GT ''buklinik'',''registr3''"> Registry</a>.'
	if bumtolik > 5: 'Opposite the registry is<a href="exec: GT ''buklinik'',''olga2''"> Olga Account</a>.'
	if bumtolik > 5: 'At the end of the corridor<a href="exec: GT ''buklinik'',''shower''"> shower room</a>.'
	if bumtolik = 6: '<a href="exec: GT ''buklinik'',''spal''">Number of people</a>.'
	if bumtolik > 6: 'Sleeps. (I go there any more naked)'
	if bumtolik > 5: '<a href="exec: GT ''buklinik'',''stol''">Family Dining Room</a> residents.'
	if bumtolik > 5: 'office in charge<a href="exec: GT ''buklinik'',''sec''"> Jeanne</a>.'
	if bumtolik > 5: 'Account coordinator<a href="exec: GT ''buklinik'',''dir''"> faith</a>.'


	if bumtolik = 4:
		act 'Apply to the registry': gt 'buklinik','registr'
	end



	act 'Leave': gt 'nord'
end

if $ARGS[0] = 'registr':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. desk</B></center>'
	'<center><img src="images\etogame\bukli_reg.jpg"></center>'
	'In registature sit two women in white coats.'

	if bumtolik = 4: 'You: - Hello, my name is <<$name>>, I am with the work. Girl named Olga gave me this card, said that you need employees.'
	'Registrar: - Hello! We are very pleased to see you. But I´m afraid you refuse, the fact is that we need volunteers, ie your work will not be paid. A job to be very complicated. Will have to take care of the elderly and the homeless to feed and clothe.'


	act 'I knew you, I have to think': gt 'nord'
	act 'agree': gt 'buklinik','registr2'
end

if $ARGS[0] = 'registr2':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. desk</B></center>'
	'<center><img src="images\etogame\bukli_reg.jpg"></center>'
	bumtolik = 5

	'You: - Well, I think I can handle it. Where do I start?'
	'Registrar: - I am happy to hear that. Fill out the form. And me, store copies of your passport and if there is documentation of education diploma courses, all that is, perhaps, in the future, you can find paid work.'

	'(You fill out the form)'

	'Registator: - Well, there you have a membership card. The corridor the first door on the right, get to the warehouse, where she will meet Olga show you everything.'


	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'registr3':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. desk</B></center>'
	'<center><img src="images\etogame\bukli_reg.jpg"></center>'
	'In registature usually sit either Karina or Regina.'

	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'sklad':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. warehouse</B></center>'
	'<center><img src="images\etogame\bukli_sklad.jpg"></center>'
	'Warehouse all packages littered with things.'

	if bumtolik = 5: act 'Find Olga': gt 'buklinik','olga'

	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'olga':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Your colleague Olga</B></center>'
	'<center><img src="images\etogame\bukli_olga.jpg"></center>'
	'(Olga - groomed and cute brunette with a kind smile.)'

	if bumtolik = 5:
		'- Olga, hello. I am <<$name>>, you remember me? I decided to respond to your call. And ready for duty. At the reception told me that you show here.'
		'- <<$name>>, good afternoon! Good for you, welcome! Let me briefly tell you how we work. We are volunteers and therefore our work is not paid. You can come at any time during working hours. Work is very different, because you attached to me, the first time the job will receive from me.'
		'Olga: - You do not mind go to you?'
		'You: - I am in favor.'
		'Olga: - Well, let me spend a tour for you. Here we have a warehouse that we bought for the needy. We packed up his boxes and transported to the destination.'
	end

	act 'By office manager': gt 'buklinik','sec'
end

if $ARGS[0] = 'sec':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Your colleague Jeanne</B></center>'
	'<center><img src="images\etogame\bukli_sec.jpg"></center>'
	'(Jeanne and cheerful young blonde)'

	if bumtolik = 5:
		'Olga: - Meet, it is our office manager Joan. Zhannochka we responsible for everything. If there are organizational issues addressed her.'
		'Olga: - Zhannochka <<$name>> is our new volunteer.'
		'Jeanne: - Wow! And you young <<$name>> bold. Very pleased to meet you!'
		'You: - Thank you, mutually.'
		act 'To the head': gt 'buklinik','dir'
	end

	if bumtolik > 5:
		'- Hello, <<$name>>!'
		act 'In the corridor': gt 'buklinik','holl'
	end
end

if $ARGS[0] = 'dir':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Your colleague Vera</B></center>'
	'<center><img src="images\etogame\bukli_dir.jpg"></center>'
	'(Vera overbearing and well-groomed lady)'


	if bumtolik = 5:
		'Olga: - And this is our coordinator Vera ...'
		'Vera: - Simply Vera.'
		'Olga: - Vera is not only our coordinator, but the mastermind, she came up with it and created our organization.'
		'You: - Very nice, <<$name>>!'
		'Vera: - Welcome to contact us. (Vera you smile)'
		act 'complete familiarity': gt 'buklinik','olga2'
	end

	if bumtolik > 5:
		'- Hello, <<$name>>!'
		act 'In the corridor': gt 'buklinik','holl'
	end
end

if $ARGS[0] = 'shower':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. shower room</B></center>'
	'<center><img src="images\etogame\bukli_show.jpg"></center>'
	'Shared shower for guests'
	'Here guests take a shower. Better unnecessarily here not to meddle.'

	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'stol':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. dining room</B></center>'
	'<center><img src="images\etogame\bukli_stol.jpg"></center>'
	'Dining room for guests'
	'Here guests take their food. Very lean diet, but they do.'

	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'spal':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Mercy Clinic. bedrooms</B></center>'
	'<center><img src="images\etogame\bukli_spal.jpg"></center>'
	'Sleeping space for guests.'
	'Who are there only. Alcoholics and homeless, vagrants and drug addicts. There are just people who have nowhere to sleep.'

	if bumtolik = 6:
		act 'hello': gt 'buklinik_event', 'pos1'
	end

	act 'In the corridor': gt 'buklinik','holl'
end

if $ARGS[0] = 'olga2':
	cla
	*clr
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)
	'<center><B>Your colleague Olga</B></center>'
	'<center><img src="images\etogame\bukli_olga.jpg"></center>'
	'(Olga - groomed and cute brunette with a kind smile.)'

		if bumtolik > 5: '- Hello, <<$name>>!'
		if buklinikDay = day: '- Today there is no more work, we can relax.'
	!   if bumtolik = 7 and buklinikDay ! day: '- Света, нам нужно помощь <a href="exec:GT ''buklinik_event'',''pos6''">накормить нуждающихся</a>.'
	if bumtolik = 5:
		bumtolik = 6
		'Olga: - Continue along the corridor beds, showers and a dining room where guests can eat for free. See there is nothing special. Well, that´s all. At the reception we sit two girls - Regina and Karina, you´ve seen them.'
		'We were still coming the other volunteers, but you yourself to meet them at the meeting.'
		'You can look around here, if that appeals to me.'
	end

	act 'In the corridor': gt 'buklinik','holl'
end
--- buklinik ---------------------------------

# buklinik_event
if $args[0] = 'pos1':
	cla
	*clr
	minut += 30
	buklinikDay = day
	gs 'stat'
	'<center><img src="images\etogame\bukli_spal.jpg"></center>'
	'The room was a male and you have decided that it is necessary to introduce them.'
	'You: - Good afternoon! My name is <<$name>>, I am your new employee volunteer, I will help you as much.'

	'Men in the room pay attention to you.'
	'Resident 1: - Hello, girl, Vladimir! What are you standing in the doorway, come in, sit down, I´ll introduce you to all.'

	act 'Enter the room': gt 'buklinik_event','pos2'

	act 'Staying at the door': gt 'buklinik_event','pos5'

	act 'Get out into the corridor': gt 'buklinik','holl'
	end

	if $args[0] = 'pos2':
	cla
	*clr
	bumtolik = 7
	gs 'stat'
	'<center><img src="images\etogame\bukli_pos2.jpg"></center>'
	'You´ve decided that nothing bad will happen if you go into the room, look at what´s inside the life of these unfortunate people.'
	'You: - Thank you, I really do not last long. Only acquainted. First day.'
	'When you walk past the seated men, you see how they are and looking at you. They did not hesitate to look at your chest and legs.'
	'They should be for a long time there were no women.'

	'Vladimir: - Sit down young lady.'

	'You seated at a small table in the center of the room. On all sides surround you face strangers. Mostly elderly, but as one with a hangover.'

	'Vladimir: - Meet it Vitaly is Paul Afanasyevitch Oleg O., Kostya and lame Albert.'
	'From the crowd: - So you´ll help us, it´s good to help me not hurt. Long time I did not help women.'
	'- Yeah, and me! So young, smooth skin and smells delicious.'

	act 'Try to get away': gt 'buklinik_event','pos3'
	end

	if $args[0] = 'pos3':
	cla
	*clr
	manna -= 20
	horny += 3
	gs 'stat'
	'<center><img src="images\etogame\bukli_grop2.jpg"></center>'
	'You: - I think I´ll. I must go. Ahh, what you´re doing, stop it!'
	'You tried to get up and leave. But someone kept you in the thigh.'
	'From the crowd: - Where? And as the same, help? You must help us her ass.'
	'You feel like someone squeezed your buttocks.'
	'- Come on, show us your tits delicious!'
	'C these words, lame Albert hugged you for your waist, with the force drew me so that you bumped into him. A second hand started to pull your clothes baring breasts.'
	'Aah! - You yell, that is urine.'
	nl
	'Bah!'

	act 'Look at the door': gt 'buklinik_event','pos4'
	end

	if $args[0] = 'pos4':
	cla
	*clr
	gs 'stat'
	'<center><img src="images\etogame\bukli_angry.jpg"></center>'
	'Olga stood in the doorway and she was just furious.'

	'- What are you arranged? Launder you feed, give B! But this is not enough! Ungrateful swine!'
	'Olga decisive step toward the you took you by the hand and led into the corridor.'
	'- Man first day of work, all volunteers scared away. Well, I´ll deal with you more!'
	'(She slammed the door and you were alone in the corridor)'
	'- <<$name>>, are you okay?'
	'- Yes. A little scared.'
	'- What do you think, do not drop your guard. They only give a reason.'

	act '- Okay, I get it.': gt 'buklinik','holl'
	end

	if $args[0] = 'pos5':
	cla
	*clr
	manna -= 5
	bumtolik = 7
	gs 'stat'
	'<center><img src="images\etogame\bukli_spal.jpg"></center>'
	'You: - Thank you, me, and it is convenient.'

	'Men in the room lost interest in you and started their business.'
	'Vladimir: - Well, hello, hello! What then priperlas, go do not bother.'
	'You: - Hmm! Ham!'

	act 'Get out into the corridor': gt 'buklinik','holl'
	end
	if $args[0]='pos6':
	cla
	*clr
	gs'stat'
	'<center><img src="images\etogame\bukli_eat.jpg" ></center>'
	'Olga: - Thank you for agreeing. Nothing special, just to Spread plates on the tables. And try not to be rude, if someone starts to stick, be considerate. Keep apron dress, you do not accidentally get dirty.'
	'("Molested! Delicacy! She must be kidding me, because of the case." - Think you.)'
	act'spacing plates':gt 'buklinik_event','pos7'
	end

	if $args[0]='pos7':
	cla
	*clr
	buklinikDay=day
	gs'stat'
	'<center><img src="images\etogame\bukli_eat2.jpg" ></center>'
	if bumtolik>7:'You quietly spacing plates on the tables.'
	if bumtolik=7:
		'You calmly carried the plates on the table. Yet because of one of the tables you have not addressed sassy tone:'
		'- Wow, look what the buffer! They are what size, beauty?'
		'- What !? But how ... Uh ... I do not mind your business! - You blurt.'
		bumtolik=8
	end
	act'Finish':gt 'buklinik','olga2'
	end

	if $args[0]='pos8':
	cla
	*clr
	if bumtolik=8:bumtolik=9
	buklinikDay=day
	minut+=120
	manna+=20
	gs'stat'
	'<center><img src="images\etogame\bukli_sitter1.jpg" ></center>'
	'You come to the right and two hours of help around the house the old man. The old man was very grateful to you and you felt the joy and peace.'
	act'Finish':gt 'buklinik','olga2'
	end

	if $args[0]='pos9':
	cla
	*clr
	buklinikDay=day
	minut+=120
	gs'stat'
	'<center><img src="images\etogame\bukli_mission.jpg" ></center>'
	'You with other volunteers searched the park and found all the same tramp was talking about Olga.'
	'Female volunteer: - Come out come with us, we''ll take you to a good place.'
	'Tramp: - No way! I''m good here. Come visit speaking panties, make the old man company, hehe.'
	'Girl: - That''s the same old pervert the <<$name>> you have any ideas as to lure him from there?'

	if horny>50 and tanga = 1 and ski = 1 or horny>50 and tanga = 1 and glamur = 1:
		act 'There is one idea':gt 'buklinik_event','pos10'
	end
	act'I have no idea':gt 'buklinik','olga2'
	end

	if $args[0]='pos10':
	cla
	*clr
	bumtolik=10
	horny+=10
	gs'stat'
	'<center><img src="images\etogame\bukli_mission1.jpg" ></center>'
	'You are so excited that comes to mind is incredible idea to lure pervert lit up her panties. You get up in the position right in front of the shelter and utter tramps "- Dear, I have something for you there!"'
	'All who stood by protruding eyes from the sight of what he saw.'
	'But it looks like the plan worked, as soon as the old man saw a hot young body, he involuntarily potenulsya to you and got out of the asylum.'
	'"- Grab it!" - commanding you to volunteers. Stricken aides did not immediately realize that you told them and staring at your ass.'
	'You already afraid that now the old man with dirty hands will grab you in the ass, but some of the volunteers came to his senses and stopped the poor old man.'
	'Volunteer: - You will come with us!'
	'Bum: - What! No! I am a free man! Have no right! Oh, you''re a liar! Watch out!'
	'The old man was taken away. And you expressed gratitude.'
	'Female volunteer: - Hmm, unusual and how you came to a head !?'
	'It looks like the people at the clinic learned their new assistant in a new way.'

	act'Finish':gt 'buklinik','olga2'
	end
--- buklinik_event ---------------------------------

# selfplay
$d_self_fingering = {
act 'Poke a finger in the vagina':
cls
minut += 2
selfplaytime += 2
'<center><img src="images\qwest\selfplay\finger.jpg"></center>'
	if vagina = 0 and mesec <= 0:
	'You caress fingers on his lips soft and wet pussy and began to gradually introduce his finger in the pussy, but you stumble upon a resilient barrier their hymen.'
		act 'pierce Worthless':
		cls
		horny -= 25
		vagina += 1
		minut += 5
		selfplaytime += 5
		manna -= 100
		gs 'stat'
		'<center><img src="images\qwest\selfplay\finger.jpg"></center>'
		'You stuck my finger in the pussy and forcefully pressed the hymen, it is a little bent inside your body and suddenly broke your finger and went inside completely. Inside was a little pussy hurt, you got yourself out of his finger and saw that he was in the blood.'
		act 'Break': gt $curloc
		gs 'stat'
		end
	end
	if vagina > 0:
	'You have entered my finger into the vagina and then another.'
		if vagina < 5:
		horny += rand(2,5)
		'Slippery walls of your pussy very tightly clasped fingers.'
		end
		if vagina >= 5 and vagina < 10:
		horny += rand(5,10)
		'You feel your pussy slippery wall around your fingers.'
		end
		if vagina >= 10:
		horny += rand(2,5)
		'Your pussy is quite spacious for a couple of fingers sliding your fingers and you feel your pussy slippery wall.'
		end

		if vagina < 5: vaginaTemp += 1

		act 'Fuck her fingers':
		cls
		minut += 5
		selfplaytime += 5
		if vagina <= 10: horny += rand(5,10)
		if vagina > 10: horny += rand(2,5)
		'<center><img src="images\qwest\selfplay\finger.jpg"></center>'
		'You started to fuck her pussy fingers typing them in his bosom, and moving them.'
		if vagina <= 10: 'Your pussy gently grabs your fingers and you feel pleasant warmth spreads in the abdomen.'
		if vagina > 10: 'Snatch quite spacious and you have to work pretty hard, that would at least feel something from their fingers.'
		gs 'stat'
			if vagina < 10: vaginaTemp += 1
			if horny >= 100:
			orgasm += 1
			horny = 0
			manna = mannamax
			'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
			end
		if horny > 0: dynamic $d_self_fingering2
		act 'Break': gt $curloc
		end
	end
	if mesec > 0:
	manna -= 5
	'Vagina slightly covered with dried blood from your period. You tried to shove a finger, but you will immediately become not nice.'
	end
gs 'stat'
act 'Break': gt $curloc
end
}
$d_self_fingering2 = {
act 'Thrust his hand into the vagina':
cls
minut += 2
selfplaytime += 2
'<center><img src="images\qwest\selfplay\hand.jpg"></center>'
	if vagina > 0:
	'You have entered yourself whole hand into the vagina.'
		if vagina < 10:
		if vgape = 2: vgape = 3
		if vgape = 1: vgape = 2
		if vgape = 0: vgape = 1
		vgapetime = totminut
		horny -= 10
		manna -= 10
		'You shoved all the fingers in the pussy and you will immediately become very painful.'
		end
		if vagina >= 10 and vagina < 15:
		horny += rand(1,3)
		'You all stuck his fingers in your pussy and feel like your vagina is very tight wraps fingers seem just a little bit and you have something broken.'
		end
		if vagina >= 15 and vagina < 20:
		horny += rand(3,6)
		'You all stuck his fingers in your pussy and feel how your vagina tight wraps his fingers hot and wet walls.'
		end
		if vagina >= 20:
		horny += rand(6,12)
		'You all stuck his fingers in your pussy and feel how your vagina grabs his fingers hot and wet walls. You cover a pleasant feeling of fullness.'
		end

		if vagina < 15: vaginaTemp += 1

		act 'Fuck her palm':
		cls
		minut += 5
		selfplaytime += 5
			if vagina < 10:
			if vgape = 2: vgape = 3
			if vgape = 1: vgape = 2
			if vgape = 0: vgape = 1
			vgapetime = totminut
			horny -= 10
			manna -= 10
			end
		'<center><img src="images\qwest\selfplay\hand.jpg"></center>'
		'You started to fuck her pussy fingers typing them in his bosom, and moving them.'
		if vagina <= 15: horny -= 10 & manna -= 10 & 'Does it hurt when you´re trying to fuck her pussy with his palm.'
		if vagina > 10: horny += rand(10,20)&'Snatch quite spacious and you have to work pretty hard, that would at least feel something from their fingers.'
		gs 'stat'
			if vagina < 20: vaginaTemp += 1

			if horny >= 100:
			orgasm += 1
			horny = 0
			manna = mannamax
			'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
			end
		dynamic $d_self_fingering2
		act 'Break': gt $curloc
		end
	end
gs 'stat'
act 'Break': gt $curloc
end
}


if mastrOnce = 0: mastr += 1 & mastrOnce = 1

gs 'stat'
if $loc = 'bedrPar':'<center><img src="images\qwest\selfplay\start.jpg"></center>'
if $loc = 'vanrPar':'<center><img src="images\qwest\selfplay\startvann.jpg"></center>'
!тут расчет вторжения
if $loc = 'vanrPar':
	if selfplaytime >= 60:

	end
end
if $loc = 'bedrPar':
gs 'family'
	if sisterHere = 0 and proverkasisterhere = 0: proverkasisterhere = 1

	if sisterHere > 0:
	cls
	gs 'stat'
	if $loc = 'bedrPar':'<center><img src="images\qwest\selfplay\start.jpg"></center>'
	if $loc = 'vanrPar':'<center><img src="images\qwest\selfplay\startvann.jpg"></center>'
		if proverkasisterhere = 2:
		'<font color = red><b>Anna saw that you masturbate.</b></font>'
		end
		if proverkasisterhere = 1:
		proverkasisterhere = 2
		'<font color = red><b>You hear footsteps approaching your room.</b></font>'
		end
	end
end


if dildo = 1:
'Do you have a small 10 cm long dildo'

end


	if horny > 0:
	act 'caress the clitoris':
	cls
	minut += 5
	selfplaytime += 5
	if $loc = 'bedrPar':'<center><img src="images\qwest\selfplay\klit.jpg"></center>'
	if $loc = 'vanrPar':'<center><img src="images\qwest\selfplay\klitvann.jpg"></center>'
		if manna >= mannamax/2:
		horny += rand(5,10)
		'You put your hand down between her legs and groped in the folds of her soft and wet pussy touch a small bump which is very pleasant, you started to caress her fingers this hump and enjoy the feeling of pleasant warmth covering between your legs.'
		end
		if manna < mannamax/2:
		horny += rand(0,1)
		'You caress the clitoris fingers, you feel good and nice, but your bad mood affects, you just can not get away from his thoughts, and you can not get excited.'
		end
		if horny >= 100:
		orgasm += 1
		horny = 0
		manna = mannamax
		'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
		end

	gs 'stat'
	act 'Break': gt $curloc

	if horny > 0: dynamic $d_self_fingering
	end
end

if horny > 0: dynamic $d_self_fingering

act 'Abandon this venture':
selfplaytime = 0
mastrOnce = 0
proverkasisterhere = 0
if vaginaTemp > vagina*2: vagina += 1 & vaginaTemp = 0
gt $loc, $metka
end
--- selfplay ---------------------------------

# cumreaction
if cumface > 0 or cumfrot > 0:
grupNPC[numnpc] -= 10
if GorSlut = 0: GorSlut = 1
'<<$npcName[numnpc]>> looks at you "And this, what? Yes, it´s sperm! Fu. Would you even substitution."'
	if $loc = 'gschool':
	dynamic $din_sekondparturok
	else
	act 'Move away': gt $loc, $metka
	end
exit
end
if cumlip > 1:
grupNPC[numnpc] -= 10
if GorSlut < 2: GorSlut = 2
'<<$npcName[numnpc]>> looks at you, "What have you got out of his mouth smells? Yuck It´s sperm carries. Would you even cleaned up the drive after aspiration."'
	if $loc = 'gschool':
	dynamic $din_sekondparturok
	else
	act 'Move away': gt $loc, $metka
	end
exit
end
--- cumreaction ---------------------------------

# izdevat
if grupTipe[numnpc] = -1 and GorSlut < 2:
	act 'Mock':
	cls
	grupNPC[numnpc] -= 5
	dom += 1
	gs 'stat'
	'You mocked the school outcast, unconscious of the strength and support classmates.'
	if $loc ! 'gdkin': dynamic $din_sekondparturok
	if $loc = 'gdkin': act 'Move away': gt $loc, $metka
	end
end
if grupTipe[numnpc] = -1 and GorSlut >= 2:
	act 'Mock':
	cls
	sub += 1
	gs 'stat'
	'You began to scoff, but <<$npcName[numnpc]>> answered you. "Cocksucker mouth shut, ending stinks." Everyone started laughing at you. You were confused and not knowing what to say, that they began to mutter.'
	if $loc!'gdkin': dynamic $din_sekondparturok
	if $loc = 'gdkin': act 'Move away': gt $loc, $metka
	end
end
--- izdevat ---------------------------------

# krutishi
if grupTipe[numnpc] = 3:
	if npcPol[numnpc] = 0 and hapri = 0:
	grupNPC[numnpc] -= 5
	'<<$npcName[numnpc]>> with a smile looking at your messy hair.'
	end
	if npcPol[numnpc] = 1 and hapri = 0:
	grupNPC[numnpc] -= 5
	'<<$npcName[numnpc]>> с усмешкой смотрит на ваши взлохмаченные волосы.'
	end
	if npcPol[numnpc] = 0 and hapri > 0 and $loc = 'gdkin' and grupNPC[numnpc] >= 40:
		if glamur > 0 or ski > 0:
		cla
		'<<$npcName[numnpc]>> - Can dance?'
			act 'Dance':
			cls
			minut += 5
			grupNPC[numnpc] += 5
			dance += RAND(1,3)
				if numnpc = 1:
				Mud = totminut + 120
				end
			gs 'stat'
			'You danced to the old hit the dance floor with a guy.'
			act 'Move away': gt $loc, $metka
				if numnpc = 4 and grupNPC[numnpc] >= 80:
				!Игорь Круглов
				horny += 10
				gs 'stat'
				if IgorLoverQW > 0 and IgorDominaQW = 0:
				'Igor whispers to you "Svetulechka, I love you so much. Come to me."'
				act 'Go to Igor': gt 'IgorEv'
				end

				if IgorLoverQW > 0 and IgorDominaQW > 0:
				'Igor whispers to you, "My lady, I love you so much. Come to me."'
				act 'Go to Igor': gt 'IgorEv'
				end

				if IgorLoverQW = 0:
					'During the dance, hands Igor descend on you ass and start to stroke.'
						if DimaRudeQW > 0:
						'Igor whispers in your ear, "I told Dima what you cool cocksucker. Come out, show me your class."'
							act 'Go to the street':
							cls
							gs 'stat'
							'You together with Igor slipped out of the disco. Hidden in a secluded corner of Igor began to kiss and caress you. There was the sound of his pants unbuttoned and Igor pushed your shoulders.'
							dynamic $din_igor_disco_bj
							end

							act 'Refuse':
							cls
							gs 'stat'
							'You refused to go with Igor on the street. Dima came to you and asked you what´s happening. Igor shrugged, "Your cocksucker does not want me to suck." Dimka frowned, "she asks, he´s my best friend, because there would be nothing wrong if you otsosesh it." Boys took you by the hand and led him outside.'
							dynamic $din_igor_dima_disco_bj
							end
						exit
						end
						if grupNPC[1] = 0:
						'Igor whispers in your ear, "I told Dimka as you dumped it. Done, he sometimes behaves like a pig. Incidentally, Svetsik, go outside, get some air."'
						dynamic $din_igor__disco
						exit
						end
						cla
						'Igor whispers in your ear, "Come on out Svetsik. Breathe in the fresh air."'
						dynamic $din_igor__disco
						exit
					end
				end


				if numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW > 0:
				'After the dance Dima holding your hand. "Let´s go outside."'
				act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka

				act 'Dima go to the street':
				cls
				gs 'stat'
				'You left the club with Dima on the street. "Well, the pig, take it in your mouth."'
				act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
				dynamic $din_predlog_dima_bj
				end
				end
				if numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW = 0:
				'After the dance Dima holding your hand. "Let´s go outside, get some fresh air."'
				act 'Dima go to the street':
				cls
				gs 'stat'
				'You went out with Dima and departed for the club. Dima came up to you and hugged you tight. "<<$name>>, you did the girl. Want to meet me?"'
				act 'No':
				cls
				gs 'stat'
				'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
				'You replied in the negative and Dima grinned. "Do not be shy, of course you want. Otherwise, why do you always come to me."'
					act 'Well, maybe a little':
							cls
							gs 'stat'
							'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
							'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
							'You were embarrassed and said that you do not know, but maybe. Dima smiled and hugged you. "Of course. I knew it from the start. Know, I do not need some sort of a nun, I need a girl without complexes. Overall so we will meet with you, if you are right now otsosesh me."'

							dynamic $din_dima_predlog

							end

							act 'Leave': gt $loc, $metka
				end

				act 'Yes':
				cls
				gs 'stat'
				'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
				'You were confused by the question and confirmed directness. Dima grinned. "Of course. I knew it from the start. Know, I do not need some sort of a nun, I need a girl without complexes. Overall so we will meet with you, if you are right now otsosesh me."'
				dynamic $din_dima_predlog

				end
				end
				end
			end

			act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
		exit
		end
	end
end
--- krutishi ---------------------------------

# kotovtalker
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Витек Котов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if numnpc = 9 and grupNPC[numnpc] >= 80 and GorSlut = 0 and kotovLoveQW >= 0:
	if $loc = 'gdkin':
		if alko < 2:
		'<<$npcName[numnpc]>> - Svetsik Hey, let podbuhnem, and then do something dumb like.'
			act 'drink beer':
			cls
			minut += 5
			grupNPC[numnpc] += 5
			alko += 2
			salo += 1
			fat += 2
			energy += 10
			gs 'stat'
			'Witek poured you a beer and you have been drinking with him. Witek staring at you eye and tells you what you cool girl.'
			act 'Move away': gt $loc, $metka
			end

			act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
		else
		'<<$npcName[numnpc]>> - Svetsik Hey, let´s dance.'
		act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
			act 'Dance':
			cls
			minut += 5
			grupNPC[numnpc] += 5
			dance += RAND(1,3)
			horny += 10
			kotovQW += 1
			gs 'stat'
			'You came to the dance floor and started dancing with Victor. Witek paw you in the ass with his strong hands, which are more like mites.'
				if kotovLoveQW = 0:
					if kotovQW < 5 or grupTipe[25] = 0: act 'Отойти': gt $loc, $metka
					if kotovQW >= 5 and grupTipe[25]!0:
					'The dance ends and Witek took you by the hand steers you to the wall. "Hears Svetsik, let´s muddy, you will be my type of chick. Anyone I unscrewed for you Bosko"'
						act 'Refuse':
						cls
						grupNPC[numnpc] = 0
						gs 'stat'
						'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
						'You refused and Witek looks completely confused, but he was immediately covered anger. "Well, then Wali on dick fucking whore!"'
						act 'Move away': gt $loc, $metka
						end

						act 'Agree':
						cls
						kotovLoveQW = 1
						gs 'stat'
						'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
						'You and Witek delighted "ohuet. I myself do not believe that you agreed with me muddy."'
						act 'Move away': gt $loc, $metka
						end
					end
				end
				if kotovLoveQW > 0:
				'The dance ends and Witek took you by the hand removes the wall.'
				'Witek hugs you "<<$name>>, come to my house."'
				act 'Move away': gt $loc, $metka
				act 'Go to Vit''ka.':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images\qwest\alter\npc9.jpg"></center>'
					'You came out of discos and went in the direction where he lives Witek with him while holding his arm. Soon you with Victor approached the dilapidated house he opened the door and led you to the poor and not well-kept apartment in a room where clothes lying crumpled heaps on the floor was littered with empty bottles.'
					act 'Further.': gt 'kotovSex'
					end
				end
			end
		end
	exit
	end
	'<<$npcName[numnpc]>> - Hey Svetsik, who will get. Tell me about you to anyone I wring your neck.'
	dynamic $din_sekondparturok
exit
end
if numnpc = 9 and kotovLoveQW > 0 and GorSlut > 0:
'Witek scowled and tells you "Slysh Svetsik, Th for garbage? We´re mutim, and then you tell me about what you <<$gnikname>>. Whole town already know the boys with me neigh district. You ohuevshaya bitch! "'
	act 'a scandal':
	cls
	grupNPC[9] = 0
	kotovLoveQW = -1
	gs 'stat'
	'You started yelling at Victor that he has fucked. Vitek started yelling at you and suddenly you have a ringing in your head and you were on the floor. Witek standing over you. Heavily burned cheek, you do not understand what happened, but it seems he slapped you podschechinu. "All the creature! Most do not come to me! All over between us!"'
	if $loc = 'gschool': dynamic $din_sekondparturok
	if $loc = 'gdkin': act 'Move away': gt $loc, $metka
	end

	if dom >= 20:
		act 'Argue that all this gossip':
		cls
		sub += 20
		GorSlut = 0
		gs 'stat'
		'You have started to convince Victor that all this gossip, do not have no foundation. Witek frowned, "I´ll knock your teeth these talkers, if ever even what you hear about the garbage. Do not worry, I pozatykayu these yapping mouths."'
		if $loc = 'gschool': dynamic $din_sekondparturok
		if $loc = 'gdkin': act 'Move away': gt $loc, $metka
		end
	end
exit
end
--- kotovtalker ---------------------------------

# nogorslut
if GorSlut <= 0:
bonusotnG = vnesh/2
if bonusotnG <= 0: bonusotnG = 1
grupNPC[numnpc] += bonusotnG
talkmarkeronce = 0
	if grupNPC[numnpc]<20 and talkmarkeronce = 0:
	talkmarkeronce = 1
	'You chat about any nonsense and <<$npcName[numnpc]>> listens to you in half an ear.'
	end
	if grupNPC[numnpc]<80 and grupNPC[numnpc] >= 20 and talkmarkeronce = 0:
	talkmarkeronce = 2
	'You chat about any nonsense and <<$npcName[numnpc]>> willingly assents to you.'
	end
	if grupNPC[numnpc] >= 80 and talkmarkeronce = 0:
	talkmarkeronce = 3
	'You chat about all the nonsense and <<$npcName[numnpc]>> with a smile, talking to you, too, telling all sorts of stories.'
		if numnpc = 1:
		Mud = totminut + 60
		!крутой Дима Носов
			if DimaRudeQW > 0 and DimaRudeBlock = 0:
			'Dima looks at you look aloof "After high school, go to my place. I´ll wait for you at the entrance."'
			end
		end
		if numnpc = 2:
		!ботан Артем Чеботарев
		''
		end
		if numnpc = 3:
		Mud = totminut + 60
		!спортик Иван Прохоров
			if IvanShowerQW = 1:
			IvanShowerQW = 2
			'Ivan smiles "<<$name>>, I´m sorry for what happened in the shower. Just thought I´d make a row or anything."'
			end
			if IvanShowerQW = 10:
			IvanShowerQW = 11
			manna = 0
			Mud = 0
			'Ivan thinks "<<$name>>, I wanted to talk to the account of what happened in the shower. Devchenka you cool and everything was great, but I´m not ready for a relationship, I now need to vigorously engage in sports that would get to the championship of Russia. I can not be distracted by girls even such attractive as you. So let´s just forget about what happened."'
			end
		end
		if numnpc = 4:
		!игорь круглов
		''
		end
		if numnpc = 5:
		!федор козлов
		''
		end
		if numnpc = 6:
		!петя клюев
		''
		end
		if numnpc = 7:
		!лешка царев
		''
		end
		if numnpc = 8:
		!святослав воинов
		''
		end
		if numnpc = 9:
		!Витек Котов
		''
		end
		if numnpc = 10:
		!гопник Дэн Рыжов
		''
		end
		if numnpc = 11:
		!гопник Васян Шульгин
		''
		end
		if numnpc = 12:
		!юля милова
		''
		end
		if numnpc = 13:
		!лариска груздева
		''
		end
		if numnpc = 14:
		!Катя Мейнольд
		''
		if KatjaOTN > 0: KatjaHorny += 10 & 'Kate blushes and depart from your eyes.'
		end
		if numnpc = 15:
		!Вика Мейнольд
		''
		end
		if numnpc = 16:
		!наташа белова
		''
		end
		if numnpc = 17:
		!инна девятова
		''
		end
		if numnpc = 18:
		!кристина зверева
			if kristinaSex = 0 and swinbeggor = 0 and kristinaSex = 0:
			''
			end
			if kristinaSex = 0 and swinbeggor > 0 and kristinaSex = 0:
			grupNPC[numnpc] = 20
			'Christina hate looking at you. "You bitch already tired under my feet hang out!"'
			end
			if kristinaSex > 0:
			''
			end
		end
		if numnpc = 19:
		!лина старова
		''
		end
		if numnpc = 20:
		!лена котова
		''
		end
		if numnpc = 21:
		!лера царева
		''
		end
		if numnpc = 22:
		!бэлла артамонова
		''
		end
		if numnpc = 23:
		!Альбина Барловская
		''
		end
		if numnpc = 24:
		!полина себаготулина
		''
		end
		if numnpc = 25:
		!соня иванько
		''
		end
	end
end
--- nogorslut ---------------------------------

# yesgorslut
if GorSlut > 0:
	if grupTipe[numnpc] = -1:
	!изгои
	bonusotnG = vnesh/2
	if bonusotnG <= 0: bonusotnG = 1
	grupNPC[numnpc] += bonusotnG
		if npcPol[numnpc] = 0:
		!парень
		'You chat about any nonsense and <<$npcName[numnpc]>> willingly assents to you.'
		end
		if npcPol[numnpc]>0:
		!девушка
		'You chat about any nonsense and <<$npcName[numnpc]>> willingly assents to you.'
		end
	end
	if grupTipe[numnpc] = 0:
	!норма
		if npcPol[numnpc] = 0:
		!парень
		'Are you trying to talk to the guy, but <<$npcName[numnpc]>> missing from face looking at you.'
		end
		if npcPol[numnpc]>0:
		!девушка
		'Are you trying to talk to a girl, but <<$npcName[numnpc]>> turns away and does not want to communicate with you. "Get out! And that still think we´re friends."'
		end
	end
	if grupTipe[numnpc] = 1:
	!ботаны
		if npcPol[numnpc] = 0:
		!парень
		'Are you trying to talk to the guy, but <<$npcName[numnpc]>> <<$npcName[numnpc]>> staring at boobs. And chuckles.'
		end
		if npcPol[numnpc]>0:
		!девушка
		'Are you trying to talk to a girl, but <<$npcName[numnpc]>> turns away and does not want to communicate with you.'
		end
	end
	if grupTipe[numnpc] = 2:
	!спортики
		if numnpc = 18:
		!кристина зверева
			if kristinaSex = 0 and swinbeggor = 0:
			'Are you trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Go away <<$gnikname>>!"'
			end
			if kristinaSex = 0 and swinbeggor > 0:
			'Christina hate looking at you. "You filthy whore already zadolbala spinning under my feet!"'
			end
			if kristinaSex > 0:
			'Christina smiles at you and says quietly, "Not bad the last time we entertained, you´re so sexy that just zakachaeshsya."'
			end
		end

		if npcPol[numnpc] = 0:
		!парень
		'Are you trying to talk to the guy, but <<$npcName[numnpc]>> dismisses you." I´m busy right now."'
		end
		if npcPol[numnpc]>0 and numnpc ! 18:
		!девушка
		'Are you trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Go away <<$gnikname>>!"'
		end
	end
	if grupTipe[numnpc] = 3:
	!крутые
		if numnpc ! 14:
			if npcPol[numnpc] = 0:
			!парень
			'Are you trying to talk to the guy, but <<$npcName[numnpc]>> dismisses you. "Look, I´m busy right now. Come back later or never."'
			end
			if npcPol[numnpc]>0:
			!девушка
			'Are you trying to talk to a girl, but <<$npcName[numnpc]>> makes squeamish grimassy "Go away!"'
			end
		end
		if numnpc = 14:
		!Катя Мейнольд
		'You chat with Kate and she brings all your conversation to the rumors about you and your reputation. Rumor has it that you <<$gnikname>>.'
		end
	end
	if grupTipe[numnpc] = 4:
	!гопники
		if npcPol[numnpc] = 0:
		!парень
			if numnpc = 9:
			!Котов
			'Are you trying to talk to Victor, but he responds to you, "I hear it! Fuck off."'
			end
			if numnpc ! 9:
			'<<$gnikname>> laughing at you "Ha ha <<$gnikname>> come. huytsa want more?"'

			end
		end
		if npcPol[numnpc]>0:
		!девушка
		'<<$gnikname>> disgust face contorts "Yuck, <<$gnikname>>. Fuck off bitch!"'
		end
	end
end
--- yesgorslut ---------------------------------

# placer
!$ev_name = 'Федор'
!$ev_name_a = 'Федора'
!$ev_name_om = 'Федором'
!dick = 17
!silavag = 0
!gnpcSex[numnpc] - секс
!grupNPC[numnpc] - отношения

!наличие нпс теоретически могущих познакомиться
mass_ver_zn = 0
!хотят или нет нпс познакомиться
ver_zn = 0
!количество мужчин
kol_man = 0
!текст приветствия
$text_znak = ''
!возможность знания репы гг
know_status = 0
!опознали репутацию или нет
know_gor_slut = 0
!обнуление текста
$kol_man_text_no = ''

gs 'stat'
$textEvent = ''
if place = 0:
!улица
	if litltown = 1:$numplace = 'gorodok'
end
if place = 1:
!сквер
$numplace = 'gskver'
end
if place = 2:
!кино

end
if place = 3:
!домой к парню. Предлог видик

end
if place = 4:
!дискотека в городке

end

gt 'placer_<<$numplace>>'
--- placer ---------------------------------

# placer_gskver
if hour >= 22 or hour < 8:
encounter = 0
else
encounter = rand(0,5)
end

if encounter = 0:
!в сквере никого нет
$textEvent = 'In the park is quiet and deserted. No one in sight.'
end
if encounter = 1:
!в сквере люди 1мамаша гуляющая с ребенком 2старик 3женщина с сумками 4две молодые девушки
encrand = rand(0,4)
if encrand = 0:$textEvent = 'In the park on the sidewalk strolls a young mother with a stroller.'
 if encrand=1 and cloth_vid=0:$textEvent='In the park on the sidewalk walks a lonely old man with a newspaper in his hand.'
 if encrand=1 and cloth_vid=1:
	$textEvent='In the park on the sidewalk walks a lonely old man with a newspaper in his hand. The old man came up to you and said, "Look, lady, I have something for you that is"'
	act 'View':gt'parkBimbo','pos1'
 end
if encrand = 2:$textEvent = 'In the park on the sidewalk is a woman with shopping bags who decided to shorten the path passing through the square.'
if encrand = 3:$textEvent = 'In the park on the sidewalk stroll two young girls.'
	if encrand = 4:
	kol_man = rand(1,5)
	if kol_man = 1:$textSub = 'is a guy'
	if kol_man = 2:$textSub = 'are two guys'
	if kol_man = 3:$textSub = 'three guys go'
	if kol_man = 4:$textSub = 'four guys'
	if kol_man = 5:$textSub = 'five guys'
	$textEvent = 'In the park on the sidewalk <<$textSub>>.'
	mass_ver_zn = 1
	know_status = 1
	end
end
if encounter = 2:
!в сквере собака
$textEvent = 'In the park is quiet and deserted only lonely dog ​​sniffs to something near the boardwalk.'
end
if encounter = 3:
!в сквере компания молодежи
$textEvent = 'In the park on a bench sits youth campaign.'
kol_man = rand(2,6)
mass_ver_zn = 1
know_status = 1
end
if encounter = 4:
!в сквере гопники
kol_man = rand(2,6)
$textEvent = 'In the park sitting on his haunches Gopnik and drink beer.'
mass_ver_zn = 1
know_status = 2
end
if encounter = 5:
!в сквере влюбленная парочка
$textEvent = 'In the park walks a couple in love.'
end
if encounter = 6:
!в сквере знакомый из класса
end
if dick > 0: ver_zn = 0
gs 'placer_man'


if hour >= 8 and hour < 22: '<center><img src="images\gevent\skver.jpg"></center>'
if hour >= 22 or hour < 8: '<center><img src="images\gevent\skver.jpg"></center>'
if Frend_num > 0:
'together with <<$ev_name_om>> you have come to a quiet garden square. <<$textEvent>>'
	if dick > 0:
	!ваш друг парень
		if kol_man = 1 and $text_znak = '':$kol_man_text_no = 'After the guy looked at you, he turned away.'
		if kol_man > 1 and $text_znak = '':$kol_man_text_no = 'Once you guys are inspected, they turned their backs.'
	if kol_man > 0: 'You looked <<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'+$text_znak
	end
	if dick = 0:
	!ваш друг девушка
		if ver_zn = 1:
		'At you with his girlfriend looked <<$kol_man_prefiks>> appreciatively <<$kol_man_text>>.'
		if kol_man = 1: 'The guy came up to you and said, "<<$text_znak>>"'
		if kol_man > 1: 'Guys come to you and one of the guys said "<<$text_znak>>"'
		end
		if ver_zn = 0 and kol_man > 0:
		if kol_man = 1:$kol_man_text_no = 'After the guy looked at you, he turned away.'
		if kol_man > 1:$kol_man_text_no = 'Once you guys are inspected, they turned their backs.'
		'At you with his girlfriend looked <<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'
		end
	end
	act 'Leave': gt 'gskver'
end
if Frend_num = 0:
'You stroll through the quiet park. <<$textEvent>>'
	if ver_zn = 1:
	'You looked <<$kol_man_prefiks>> appreciatively <<$kol_man_text>>.'
		if kol_man = 1: 'The guy came up to you and said, "<<$text_znak>>"'
		if kol_man > 1: 'Guys come to you and one of the guys said "<<$text_znak>>"'
	end
	if ver_zn = 0 and kol_man > 0:
	if kol_man = 1:$kol_man_text_no = 'After the guy looked at you, he turned away.'
	if kol_man > 1:$kol_man_text_no = 'Once you guys are inspected, they turned their backs.'
	'You looked <<$kol_man_prefiks>> appreciatively <<$kol_man_text>>. <<$kol_man_text_no>>.'
	end

act 'Leave': gt 'gskver'
end

gs 'stat'
--- placer_gskver ---------------------------------

# placer_man
if mass_ver_zn > 0:
	!расчет вероятности знакомства
	ver_zn = 0
	vn_ver = rand(0,30)
	rand_vero = rand(0,1)
	if vn_ver < vnesh and rand_vero = 0: ver_zn = 1
	if dick > 0: ver_zn = 0
	if kol_man = 1:$kol_man_text = 'guy' & $kol_man_text_a = 'man' & $kol_man_prefiks = '' & $kol_man_prefiks_he = 'he'
	if kol_man = 2:$kol_man_text = 'two guys' & $kol_man_text_a = 'man' & $kol_man_prefiks = 'и' & $kol_man_prefiks_he = 'they'
	if kol_man = 3:$kol_man_text = 'three guys' & $kol_man_text_a = 'man' & $kol_man_prefiks = 'и' & $kol_man_prefiks_he = 'they'
	if kol_man = 4:$kol_man_text = 'four guys' & $kol_man_text_a = 'man' & $kol_man_prefiks = 'и' & $kol_man_prefiks_he = 'they'
	if kol_man = 5:$kol_man_text = 'five guys' & $kol_man_text_a = 'man' & $kol_man_prefiks = 'и' & $kol_man_prefiks_he = 'they'
	if kol_man = 6:$kol_man_text = 'six guys' & $kol_man_text_a = 'man' & $kol_man_prefiks = 'и' & $kol_man_prefiks_he = 'they'

$text_znak = ''
!знаковые моменты
!

	if GorSlut > 0:
		if know_status = 0:
		end
		if know_status = 1:
		knowrand = rand(0,1)
		end
		if know_status = 2:
		knowrand = rand(0,4)
		end
		if knowrand >= 1: know_gor_slut = 1
	end

	if ver_zn = 0:
		if know_gor_slut = 1:
			if kol_man = 1:
			$text_znak = ' The guy smiled significantly.'
			end
			if kol_man > 1:
			$text_znak = ' Boys began to whisper, "Hey, it´s <<$name>> <<$gnikname>>"'
			end
		end
	end
	if ver_zn = 1:
		if Frend_num = 0:
		slut_vid = 0
			if mop = 4:
			slut_vid += 1
			end
			if tits > 2:

			end
			if bedra-talia > 30:

			end
			if glamur > 0 or ski > 0:

			end
			if sport > 0:

			end
		$text_znak = '<<$txt_a>> <<$txt_b>>'
		end
		if Frend_num > 0 and dick = 0:
		$text_znak = 'Hi girls!'
		if know_status = 2:$text_znak = 'Hi chikuli!'
		end
	end

	if odethooker = 1:
	randtext = rand(0,5)
	if randtext = 0:$txt_a = 'Hey, Shmarov'
	if randtext = 1:$txt_a = 'Hey, slut'
	if randtext = 2:$txt_a = 'Hey, nipple'
	if randtext = 3:$txt_a = 'Hey, girl'
	if randtext = 4:$txt_a = 'Cool chick, hey'
	if randtext = 5:$txt_a = 'Oh! prostitute'
	randtext2 = rand(0,5)
	if randtext2 = 0:$txt_b = 'how much a blowjob?'
	if randtext2 = 1:$txt_b = 'for the steward take the cheek?'
	if randtext2 = 2:$txt_b = 'cool you zhopets'
	if randtext2 = 3:$txt_b = 'not bad you have boobs'
	if randtext2 = 4:$txt_b = 'you´re at work?'
	if randtext2 = 5:$txt_b = 'I look at you working mouth'
	$text_znak = '<<$txt_a>> <<$txt_b>>'
	end
end
--- placer_man ---------------------------------

# FedorEv
gs 'stat'
numnpc = 5
'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
if GorSlut = 0:
	if kotovLoveQW > 0 and week < 5 and kotovVSkozlov = 0:
	kotovVSkozlov = 1
	'To you Fedor came Witek Kotov, "Hey, patsanchik, you do not beguiled? <<$name>> my calf!" Fedor turned to Vit''ka "It looks like you made me do. <<$name>> to me now, so you should go wherever you go." Witek Courage put his hand to his ear, "Where you just sent me, eh?" Fedor said quietly, "You heard me perfectly." In the eyes of Victor prolyhnula rage and you noticed how white-knuckled fingers on his clenched fists "You Th so gallant? Heifer To my basement, I derzish, because I ask for it and I can not." Fedor came close to too Vit''ka and clenched his fists. "Get away from Amy Cats."'

		act 'Witek, I´ll throw':
		cls
		minut += 5
		kotovLoveQW = -1
		gs 'stat'
		'You said that you throw Kotova. Witek noticeably angry, forced a "Fuck you on dick, bitch!" And he left.'
		act 'Further': gt $curloc
		end

		act 'See what will':
		cls
		minut += 5
		gs 'stat'
		'Witek will suddenly punched Fedor, from which he flew backwards and fell to the pavement. Vitek quickly jumped to the fallen Theodore and grabbed him by the collar with his left hand, there powerfully punched right hand on the head of Fedor. Fedor shrunk covering his face and tried to kick cats. Witek bounced and with all his strength gave a kick in the ribs lying on the ground Fedor. Fedor skhvavshis groaned and tried to get his ribs to his feet, but then he got another powerful kick in the head from Vic, and fell on his back. Have you noticed that on the left corner of Auburn and Shulga, groomsman Kotova "Hey Cat, what´s happening here? Goat that insolent mind?" Cats again kicked in the ribs bezchuvstvennogo Fedor, and said to his friends. "Yes absolutely ohuel our goat, my wedges devchenke decided to knock out, sent me. Bykuet short in full, and here I am his pressanul." Auburn came to lying on the ground and Fedor sat on his haunches Fedor grabbed by the hair and lifted his head. "Hey goat, let ochuhivaysya bazaar there." Fedor groaned and opened his eyes, his face was broken and bleeding. Ryzhy blew smoke in the face of Federal "Well, Th, deer, you agree that wrong?" Fyodor moaned "<<$name>> my girl." Shulga disgusting like a hyena giggled, "You see, goat bychit continues." Cats barked at Fedora "You little what? Piedra I´ll do now omit the floor, if not with their mouths shut up!" Auburn said quietly "Relax Cat. Goat I think realized the depth of his delusion. Well? Woke? Or do you want to aggravate?"'
			act 'See what will':
			cls
			gs 'stat'
			strelaDay = day
			strelaQW = 1
			'Fyodor started to rise to his feet and moaned through the broken ruining "Fuck you, gopota fucking." Shulga jumped to Fede and slammed his fist in the face, but managed Fyodor staggered to his feet, but he was immediately on the neck edge of his hand hit Auburn. Fedor legs buckled and he fell on all fours. Shulga giggled "Look pidarok already stood in a pose! Gradually begins to realize." Fedor came to the Wailing Kotov and grabbed him by the collar to his feet, "Well, do you have something else to say?" Fyodor tried to hit Kotova, but he easily parried Fedi hand and hit his forehead on the nose Fedor. Fedor went limp and kept it from falling only Kotov, "Well, well, what do you immediately fall in mind? We´re just talking here, is not it?" By Fyodor jumped back with a run Shulga and kicked him in the kidneys, causing Theodore groaned and began to twitch in the hands Kotova. Kotov said angrily, "What hurts, what? So we just started talking." Suddenly Kotov easily picked Fedor zamli over and threw it on the pavement. Fedor fell with a thud and lay still on the ground. Shulga mocking sat around a broken face Fedor and spat in his face, "Ha, ha, let´s petushnem bychara!" Cats with perplexity at Shulga "You do Rams beguiled, pimples that I had stood up to this shit?" Shulga immediately retorted, "Well then obossym kid, I just want to pee." Redhead said, "Guys, do not mess arrange. Such questions people should decide." Shulga started bristle "And I? Not people?" Redhead grinned, "You syavka people thieves, not you. Can ask the White for this goat. He will decide how to punish him for his insolence. Zabem boom and they could decide what to do with it." Cats nodded "OK, and proceed accordingly." Fyodor lying on the pavement groaned and clutched his head. Auburn went up to him and said, "I hear you, kid. Tomorrow boom score. They look at how to punish you, and mind you, if you do not come, it will be worse." Shulga happily jumped to the fallen Theodore "Come on kid do not come without you decide to take you on the cheek, or will podmahivat ass." Kotov grimaced in disgust and said, "Come on guys drink beer. Enough already with this mess around by shit. <<$name>>, in short we in the park, if that." Cats and Auburn went to the side of the square, Shulga again kicked lying Fedor and disgusting giggling followed the boys.'
			act 'Leave': gt 'gorodok'
			end
		end
	exit
	end



	'Fedor is coming to you and gently hugs the waist.'

	act 'Kiss':
	cls
	horny += 5
	gs 'stat'
	'<center><img src="images\qwest\alter\Ev\kiss.jpg"></center>'
	'You kissed passionately with Fedor.'
	$ev_name = 'Fedor'
	$ev_name_a = 'Fedor'
	$ev_name_om = 'Fedor'
	dick = 17
	silavag = 0

	if gnpcSex[numnpc] = 0:
		!секса не было
		placerand = rand(0,2)
		placerand = 0
		if placerand = 0: place = 1 & $textEvent = ' "Let´s go for a walk through the square?"'
		if placerand = 1: place = 2 & $textEvent = ' "Let´s go to the movies?"'
		if placerand = 2: place = 3 & $textEvent = ' "Come to me, Vidic look."'
	end
	if gnpcSex[numnpc]>0:
		!секс был
		$textEvent = ' ""'
	end
	'You kissed passionately with Fedor. Finally stopping kiss <<$ev_name>> said <<$textEvent>>'
	act 'Sorry, but I gotta go': gt 'gorodok'
	act 'Go with Fedor':
		cls
		gs 'stat'
		Frend_num = 1
		gt 'placer'
		end
	end
end
if GorSlut > 0:
fedorKozlovQW = -1
'Fyodor looks very evil "<<$name>>, I treat you with all my heart, and you okazyvatsya ordinary slut. Everything between us is nothing else and can not be!" Fedor turned and walked.'
act 'Leave': gt 'gorodok'
end
--- FedorEv ---------------------------------

# strela
gs 'stat'
'You came to the car and were greeted by the bandits. Those nod your heads. You looked around and saw that cars worth about six strong guys, lean their gang leader named White, Kotov, Auburn, Shulga, and against all these companies need only one Fedor. White came to Fedor "I understand you and no one can say for you?" Fedor frowned and nodded. White said quietly, "Guys neponyatkah, come to me, outlined the situation. Girlfriend decided you discourage Kotova, it certainly nonsense, is themselves would decide among themselves. But you specifically rude kid, this is not in order. So I love you and I ask, do you agree that sending kids? " Fyodor muttered "Sent, but they started it!" White calmly explained, "You admitted that rude kid. And you guys had come together mind to reason, but you can see bad to learn. You have not realized their error. Now you realize it or not?" Fyodor grimly kinvul "Woke up." White said, "Well, good. You specifically rude kid, now you´ve realized it. During his rudeness need to pay with. Briefly, 30 pieces with you until tomorrow, if you do not bring it up tomorrow, a counter starts, and each day you will be missed must still in pieces. " Fedor pale "Why do I have that kind of money? I was just a schoolboy?" White shrugged "I think before it was necessary, before the start rude kid, and now pay." Fedor sovesem wilted and depressed paused Shulga jumped to him, "What, boys, let´s make him a discount, now suck me and ask him the favor, this rogue will still not be able to scrape together even cleaver, not that much thirty haymakers." White grinned and turned to the redhead, "Well, your sidekick and scumbag. But in principle, if the boys are not against such a decision, then I am too." Cat shrugged, "Do not care." Redhead grinned, "I also do not mind. Fyodor Well, 30 pieces, or at Shulga otsosesh now?" Fyodor pale and stepped back, "What do you mean? I´m not a fagot!" Shulga came to him and said sarcastically, "No one said you fagot. You offered to pay off the debt at once, over easy. Sosnesh now and you will not need anything, and refuse, then cook top thirty this evening, and then on the counter put, then your parents and sell the hut that would pay off your debt. Now you know in what situation are you? " Fedor broke down and cried, "Guys, do not! I do not have that kind of money, I did not know it would turn out that way!" The guys looked at Fedka indifferently. White said with disgust "Snot erase, and then look disgusted, decides to give you one minute." Shulga unbuttoned his pants, "Well, do not be dismayed, a couple of minutes and no debt." Fyodor openly began to waver. White grinned looking at fluctuations Fedor "Look those ka, and he was already staggering."'

act 'Look at what is happening':
cls
gs 'stat'
$npcText[5] = 'Fedka omitted in the schoolyard. His mouth fucked in Shulga. Now everyone calls only Fyodor Masha.'
grupNPC[5] = 50
grupTipe[5] = -1
fedorKozlovQW = -10
EndThisPath = 1
'Fedor even stronger wept and knelt before Shulga. Member Shulga instantly cured and he buried his lips in his Fedor Fedor started to suck dick. Shulga zahihkil laughing hyenas "bite´ll knock your teeth! Waffles.". Hefty brother smiled at one another, "Well, Shulga, which arranged circus." Cats turned away in disgust. Redhead grinned and pulled out his cell phone "Zashkvarili kid, you must click on the memory." Finally Shulga choked groaned and began to cum in her mouth Fedor. "Swallow fag! Do not even think of dropping a drop!" Shulga took a member of his mouth and Fyodor Fyodor stepped wiping his mouth with his hand. "Well, that cocksucker How to call you now? Fyodor is a man´s name, and you are no longer a kid, you Shmarov. Will now Masha! And you can all be enjoyed at any time. And if you though that that fag vyaknesh, you fucked up. You´re not a man, you cocksucker! Well understood his place? " Fyodor nodded grimly, "Got it." Shulga lifted his leg and spent the dirty soles on the face Fedor "Statement shall speak in the feminine, okay?" Fyodor nodded wiping the mud from his face and muttered, "I knew." Shulga spat in the face of Fed "What´s your name Shmarov?" Fyodor replied "My name is Masha." White grinned and went to BMW, "Okay lads, let´s go, let the boys play more with his toy." Brother got in their cars and left. Shulga mocking Fyodor made him collect harchok face and lick it finally played enough Shulga left alone Fyodor and boys went to drink beer in the park.'
act 'Leave': gt 'gorodok'
end

if money >= 30000:
	act 'Pay money for Fedor':
	cls
	money -= 30000
	dom += 10
	EndThisPath = 2
	gs 'stat'
	'You said "I´ll give him the money." White looked at you with narrowed eyes, "Why so?" You looked into his eyes and said "look disgusting." White sighed and said, "Well, that you take, you´re a woman and you do not understand a lot, but if you want me, then give me the money." Did you get the money and stretched White, who counted them and put it in his pocket, then turned to his bandits. "Okay guys, let´s go." The whole team got into the car and drove away. Kotov said angrily, "Okay guys, let´s go drink beer." Guys went to the side of the square. Fedor came up to you and mumbled "Thank you <<$name>>, you saved me, I will give money, do not worry, not once, in parts, but give up!"'
	act 'Leave': gt 'gorodok'
	end

end
--- strela ---------------------------------

# gor_exh
if $args[0] = 'pos1':
	cla
	*clr
	minut += 5
	gs 'stat'

!!! Maruda Hair Mod
	if cloth_vid=0:
		!if nude = 0 and hcol = 0 and curly <= 0: '<center><img src="images\body\hcol.jpg"></center>'
		!if nude = 0 and hcol = 1 and curly <= 0: '<center><img src="images\body\hcol1.jpg"></center>'
		!if nude = 0 and hcol = 2 and curly <= 0: '<center><img src="images\body\hcol2.jpg"></center>'
		!if nude = 0 and hcol = 3 and curly <= 0: '<center><img src="images\body\hcol3.jpg"></center>'
		!if nude = 0 and hcol = 0 and curly > 0: '<center><img src="images\body\hcolcurly.jpg"></center>'
		!if nude = 0 and hcol = 1 and curly > 0: '<center><img src="images\body\hcolcurly1.jpg"></center>'
		!if nude = 0 and hcol = 2 and curly > 0: '<center><img src="images\body\hcolcurly2.jpg"></center>'
		!if nude = 0 and hcol = 3 and curly > 0: '<center><img src="images\body\hcolcurly3.jpg"></center>'
if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol3.jpg"></center>'
end
if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol3.jpg"></center>'
end

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

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

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

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

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

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

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

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

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

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

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

if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0: 
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\braids\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\braids\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\braids\hcol3.jpg"></center>'
end
	
!!!Maruda Hair Mod
	elseif cloth_vid=1:
		'<center><img src="images\etogame\cloth_bimbo.jpg" ></center>'
	end
	if nude = 1:
		if tanga = 0: '<center><img src="images\etogame\fat4.jpg"></center>'
		if tanga = 1: '<center><img src="images\etogame\fat1.jpg"></center>'
	end


	if exhibi>=2 and ski=1 and hcol=3 and lip>=3 and skin>=2 and mop=4 or glamur=1 and hcol=3 and lip>=3 and skin>=2 and mop=4:
		act 'Dress like Bimbo':
			cla
			*clr
				'<center><img src="images\etogame\cloth_bimbo.jpg" ></center>'
				'You are dressed in the style of bimbos, now you can not be taken seriously.'
				cloth_vid=1
				act'Exit':gt'dom_gor'
			end
		end
	end

	if pants[4] = 1:
		act 'Use leggings as pants sports':
			cla
			*clr
				'<center><img src="images\etogame\leggins.jpg" ></center>'
				'If much of their stretch, they become transparent. Are you sure that they can play sports on the street?'
				cloth_vid=2
				act'Exit':gt'dom_gor'
			end
		end
	end

	if exhibi<1: 'We do not yet have finished dresses.'
	if exhibi>=1: ' can stretch leggings and a short T-shirt, and as such to enter the run.'
	if exhibi>=2: 'If I will wear a skirt or short dress, repainted in blonde, put on a well-groomed skin ton of makeup, youll look just like a bimbo.'
	'You have in your wardrobe includes:'
	if bikini > 0: 'bikini.'
	if pants[4] = 1:'Leggings.'
	if jeans[1] = 1 or jeans[2] = 1 or jeans[3] = 1 or jeans[4] = 1 or jeans[5] = 1: 'Usual jeans.'
	if yoga[1] = 1 or  yoga[2] = 1 or  yoga[3] = 1 or  yoga[4] = 1 or  yoga[5] = 1 or  yoga[6] = 1 or  yoga[7] = 1 or  yoga[8] = 1 or  yoga[9] = 1 or  yoga[10] = 1 or  yoga[11] = 1 or  yoga[12] = 1 or  yoga[13] = 1 or  yoga[14] = 1 or  yoga[15] = 1 or  yoga[16] = 1 or  yoga[17] = 1 or yoga[18] = 1: 'Sportivki.'
	if sarafan[1] = 1 or sarafan[2] = 1 or sarafan[3] = 1: 'sundresses.'
	if short[1] = 1 or  short[2] = 1 or  short[3] = 1 or  short[4] = 1 or  short[5] = 1: 'shorts.'
	if skirt[1] = 1 or  skirt[1] = 1 or  skirt[1] = 1 or  skirt[1] = 1 or  skirt[1] = 1: 'Skirts.'
	if profi[1] = 1 or profi[2] = 1: 'Work Wear.'

	act 'Finish': gt 'dom_gor'
end
--- gor_exh ---------------------------------

# vokBimbo
if $args[0]='pos1':
	cla
	*clr
	minut+=30
	horny+=10
	gs'stat'
	temp = RAND(1,10)
	if cumlip=0:
		'<center><img src="images\etogame\vokBimbo1.jpg" ></center>'
		'You stand in the middle of the station mens room in a rather revealing outfits. What did you just think.'
	end
	if cumlip>0:
		'<center><img src="images\etogame\vokBimbo11.jpg" ></center>'
		'You stand in the middle of the station mens room all scruffy and the male sperm.'
	end
	if temp>8:
		'Toilet door opens and in comes a young guy. Sees you, he was taken aback by surprise.'
		act 'To pretend that straightens her hair.':gt 'vokBimbo','pos4'
		if horny>50:
			act 'Look at him with lust.': gt 'vokBimbo', 'pos2'
		end
	end
	if temp<3:
		'Toilet door opens and it comes, little man in his fifties.'
		act 'To pretend that straightens her hair.':gt 'vokBimbo','pos4'
		if horny>50:
			act 'Look at the stranger with lust.':gt 'vokBimbo', 'pos3'
			end
	end
	if temp=5:
		'Toilet door opens and in comes a company of local drunks.'
		act 'To pretend that straightens her hair.':gt 'vokBimbo','pos4'
		if horny>70:
			act 'Look them in the eyes with lust.':gt 'vokBimbo', 'pos6'
			end
	end
	act 'wait for men':gt 'vokBimbo','pos1'
	act'Exit':gt 'vokzalGin'
end

if $args[0]='pos2':
	cla
	*clr
	minut+=30
	horny+=5
	gs'stat'
	'<center><img src="images\etogame\vokBimbo2.jpg" ></center>'
	'Unfamiliar man blushed and went into the booth.'
	act 'Come to him in the booth.':gt 'vokBimbo','pos22'
	act'Exit':gt 'vokzalGin'
end

if $args[0]='pos22':
cla
*clr
gs'stat'
'<center><img src="images\etogame\vokBimbo22.jpg" ></center>'
'Without knocking you burst into the booth. The guy standing with rastegnutoy pants and looks at you. You get up on your knees and grab it. First he otbrykivayutsya, but soon you are able to take in his mouth has got stronger member and you are taking hard suck. After a while the guy starts moaning, grabs your head and starts to cum.'
minut+=30
horny+=20
cumlip+=1
bj+=1
horand = RAND (1,100)
		 if horand > horny:Set horny = horny + 10&'You were not satisfied'
		 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
	act 'Get out of the booth.':gt 'vokBimbo','pos1'
act'Exit':gt 'vokzalGin'
end


if $args[0]='pos3':
	cla
	*clr
	minut+=30
	horny+=5
	gs'stat'
	'<center><img src="images\etogame\vokBimbo2.jpg" ></center>'
	'Little man smiled and went toward you rastegivaya fly.'
	act 'Kneel.':gt 'vokBimbo','pos33'
	act'Run out of toilet':gt 'vokzalGin'
end

if $args[0]='pos33':
cla
*clr
gs'stat'
minut+=30
horny+=10
'<center><img src="images\etogame\vokBimbo33.jpg" ></center>'
'A guy came up to you in a dense and you smiled at him, and he was not tsaremonyas added a member to your mouth and began to push through with the force of cock deep into his throat. You could not breathe, but luckily he loosened his grip and you could dial the air. Guy continued to fuck you in the mouth simultaneously stripping.'
	act 'Pull the panties and masturbate':gt 'vokBimbo','pos333'
end

if $args[0]='pos333':
cla
*clr
gs'stat'
minut+=30
horny+=10
cumlip+=1
bj+=1
'<center><img src="images\etogame\vokBimbo333.jpg" ></center>'
'Unfamiliar man let you go and you slipped on a dirty floor mens room in the same shoes. On your clothes lying everywhere.'
'- And youre hot! Well, nows try your ass girl, but then I Manka anywhere except my forehand did not give.'
	act 'Next':gt 'vokBimbo','pos3333'
end

if $args[0]='pos3333':
cla
*clr
 gs'stat'
minut+=30
horny+=10
cumass+=1
anal+=1
horand = RAND (1,100)
if horand > horny:Set horny = horny + 10&'You were not satisfied'
if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
'<center><img src="images\etogame\vokBimbo3333.jpg" ></center>'
'Barker turned your face to the wall and entered sharply in the ass. A sharp pain hit you like a shock. Tears streamed from his eyes, and you try to escape, but strong hands held your delicate female body. Git continued furiously peck your poor ass and the pain gradually started to recede. Guy fucked you long enough, you might even be surprised how it can so long to finish. Finally, and you managed to get the pleasure and the pain receded. You started to moan softly.'
'- Like, yeah, girl? Come here often, be my whore toilet, ha ha!'
'C dork these words began to twitch and finish you in the ass. He let go of you prostrate.'
	act 'Next':gt 'vokBimbo','pos33333'
end

if $args[0]='pos33333':
cla
*clr
minut+=5
gs'stat'
'<center><img src="images\etogame\vokBimbo33333.jpg" ></center>'
'You slipped on a dirty floor does not even move in the forces, and the man continued to squeeze out all the remnants of cum on your body.'
'- What do you whore wallow here in the closet. I had no idea what happens.'
'C these words unfamiliar man pulls out a marker and wrote to you on the chest "Toilet whore."'
'-Thats how it will be clear who you are really, ha ha ha!'
'Finally, mocking at you, a stranger coming out of the closet.'
	act 'dress':gt 'vokBimbo','pos1'
end

if $args[0]='pos4':
cla
*clr
minut+=10
gs'stat'
'<center><img src="images\etogame\vokBimbo4.jpg" ></center>'
'You pretend not to notice anything. Should be about you think that you are so stupid, that mixed up the mens room with a female.'

act 'wait':gt 'vokBimbo','pos1'

act'Exit':gt 'vokzalGin'
end

if $args[0]='pos5':
cla
*clr
minut+=10
gs'stat'
'<center><img src="images\etogame\vokBimbo1.jpg" ></center>'
'You ran into the toilet stall and closed. What a shame if somebody saw you were here. Heart was pounding. '

act'Run out of toilet':gt 'vokzalGin'
end

if $args[0]='pos6':
cla
*clr
minut+=10
horny+=5
gs'stat'
'<center><img src="images\etogame\vokBimbo2.jpg" ></center>'
'- Come on, who is here with us! - Hear drunken jubilation from the crowd. '
	act 'undress':gt 'vokBimbo','pos66'
	act'Run out of toilet':gt 'vokzalGin'
end

if $args[0]='pos66':
cla
*clr
minut+=10
horny+=30
cloth_vid=0
mop=0
gs'stat'
gang+=1
		 cumass+=1
		 cumlip+=1
		 vagina+=1
		 horand = RAND (1,100)
		 if horand > horny:Set horny = horny + 10&'You were not satisfied'
		 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
'<center><img src="images\etogame\vokBimbo66.jpg" ></center>'
'A crowd of local drunks, fuck you in all the cracks, commenting on the vulgar jokes in your address. Pinching and poking you dirty fingers into the anus and mouth.'
'- To fuck youre beautiful! I had these beauties are not fucked.'
'- Oooh, Im straight into her pussy nakonchal fuck I last 5 years ago and that guy fucked in the zone.'

'("Yuck how disgusting!" - You think. "This man is a man fucked in anal passage, and now fucks my tender pussy. Oh Nooo!")'

'You fucked crowd of men, it seems someone had entered the toilet and succeeds those who have already satisfied. So you have lost count of the men.'

'Finally, all filled with sperm you stay alone in the bathroom. With some difficulty climbing you collect scattered on the floor stuff.'

	act'dress':gt 'vokBimbo', 'pos1'
end
--- vokBimbo ---------------------------------

# parkBimbo
if $args[0]='pos1':
	cla
	*clr
	minut+=10
	horny+=5
	gs'stat'
	'<center><img src="images\etogame\parkBimbo1.jpg" ></center>'
	'The old man pointed out to you on his pants, and then you saw the wrinkled, but standing member.'
	'- And what? 67 years old and he was standing in 18 And the thing is charging and pouring, lady!'
	if horny>50:act 'Mark member of the old mans hand':gt 'parkBimbo','pos2'
	act'Spin the finger at his temple':gt 'gskver'
end

if $args[0]='pos2':
	cla
	*clr
	minut+=10
	horny+=10
	gs'stat'
	'<center><img src="images\etogame\parkBimbo2.jpg" ></center>'
	'You took the old mans cock and took him to a tree. He was taken aback and began to turn his head in search of help. But nowhere to go.'
	' Having got him behind a tree, you immediately began to suck his cock.'
	'Not have to wait long and soon he began to finish.'
	'Oh, oh, lady, thats my present for you in your old age pripodnesla.'
	cumlip+=1
	bj+=1
	horand = RAND (1,100)
		 if horand > horny:Set horny = horny + 10&'You were not satisfied'
		 if horand <= horny:Set horny = 0&orgasm+=1&'You covered orgasm'
	act 'finish':gt 'gskver'
end
--- parkBimbo ---------------------------------

# automatics
$automatica = {
gs 'stat'
clr
if AutoHapri = 0:$AutoHapri = 'OFF'
if AutoHapri = 1:$AutoHapri = 'ON'
if AutoMakeup = 0:$AutoMakeup = 'OFF'
if AutoMakeup = 1:$AutoMakeup = 'ON'
if AutoMakeupSleep = 0:$AutoMakeupSleep = 'Wash after waking then apply makeup'
if AutoMakeupSleep = 1:$AutoMakeupSleep = 'Always apply makeup'
if AutoLipBalm = 0:$AutoLipBalm = 'OFF'
if AutoLipBalm = 1:$AutoLipBalm = 'ON'
if AutoEnema = 0:$AutoEnema = 'OFF'
if AutoEnema = 1:$AutoEnema = 'ON'
if AutoTissue = 0:$AutoTissue = 'OFF'
if AutoTissue = 1:$AutoTissue = 'ON'
if AutoMakeupType = 2:$AutoMakeupType = 'Light'
if AutoMakeupType = 3:$AutoMakeupType = 'Natural'
if AutoMakeupType = 4:$AutoMakeupType = 'Heavy'
if AutoVibrator=0:$AutoVibrator='OFF'
if AutoVibrator=1:$AutoVibrator='ON'
if AutoButtPlug=0:$AutoButtPlug='OFF'
if AutoButtPlug=1:$AutoButtPlug='ON'
if AutoVitamins=0:$AutoVitamins='OFF'
if AutoVitamins=1:$AutoVitamins='ON'
pl 'Automatic hair brushing <a href="exec:dynamic $auto_hapri"><<$AutoHapri>></a>'
pl 'Automatic makeup <a href="exec:dynamic $auto_makeup_select"><<$AutoMakeupType>></a> <a href="exec:dynamic $auto_makeup"><<$AutoMakeup>></a>'
pl '<a href="exec:dynamic $auto_makeupsleep"><<$AutoMakeupSleep>></a>'
pl 'Automatic lip moisturizing <a href="exec:dynamic $auto_lipbalm"><<$AutoLipBalm>></a>'
pl 'Automatic enema after waking <a href="exec:dynamic $auto_enema"><<$AutoEnema>></a>'
!pl 'Automatic tissue use <a href="exec:dynamic $auto_tissue"><<$AutoTissue>></a>'
}
$auto_hapri = {
if AutoHapri = 0:
	AutoHapri = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoHapri = 1:
	AutoHapri = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_makeup = {
if AutoMakeup = 0:
	AutoMakeup = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoMakeup = 1:
	AutoMakeup = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_makeup_select = {
AutoMakeupType += 1
if AutoMakeupType > 4: AutoMakeupType = 2
dynamic $automatica
}
$auto_makeupsleep = {
if AutoMakeupSleep = 0:
	AutoMakeupSleep = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoMakeupSleep = 1:
	AutoMakeupSleep = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_lipbalm = {
if AutoLipBalm = 0:
	AutoLipBalm = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoLipBalm = 1:
	AutoLipBalm = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_enema = {
if AutoEnema = 0:
	AutoEnema = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoEnema = 1:
	AutoEnema = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_tissue = {
if AutoTissue = 0:
	AutoTissue = 1
	gs 'stat'
	dynamic $automatica
	exit
end
if AutoTissue = 1:
	AutoTissue = 0
	gs 'stat'
	dynamic $automatica
end
}
$auto_vibrator={
if AutoVibrator=0:
	AutoVibrator=1
	gs'stat'
	dynamic $automatica
	exit
end
if AutoVibrator=1:
	AutoVibrator=0
	gs'stat'
	dynamic $automatica
end
}

$auto_buttplug={
if AutoButtPlug=0:
	AutoButtPlug=1
	gs'stat'
	dynamic $automatica
	exit
end
if AutoButtPlug=1:
	AutoButtPlug=0
	gs'stat'
	dynamic $automatica
end
}

$auto_vitamins={
if AutoVitamins=0:
	AutoVitamins=1
	gs'stat'
	dynamic $automatica
	exit
end
if AutoVitamins=1:
	AutoVitamins=0
	gs'stat'
	dynamic $automatica
end
}
--- automatics ---------------------------------

# dexcheats
$dex_debug_loc = {
clr
i = 0
:showdebuglocinfo
if $DBPrevLoc[i] ! '': pl '<<$DBPrevLoc[i]>>'
i += 1
if i < 20: jump 'showdebuglocinfo'
pl '<<$DBCurLoc>>'
}
$dex_cheat = {
gs 'stat'
clr
if cheatYoungForever = 0:$cheatYoungForever = 'OFF'
if cheatYoungForever = 1:$cheatYoungForever = 'ON'
if cheatHealthMaxed = 0:$cheatHealthMaxed = 'OFF'
if cheatHealthMaxed = 1:$cheatHealthMaxed = 'ON'
if cheatWillMaxed = 0:$cheatWillMaxed = 'OFF'
if cheatWillMaxed = 1:$cheatWillMaxed = 'ON'
if cheatManaMaxed = 0:$cheatManaMaxed = 'OFF'
if cheatManaMaxed = 1:$cheatManaMaxed = 'ON'
if cheatNeverHorny = 0:$cheatNeverHorny = 'OFF'
if cheatNeverHorny = 1:$cheatNeverHorny = 'ON'
if cheatModelStudent = 0:$cheatModelStudent = 'OFF'
if cheatModelStudent = 1:$cheatModelStudent = 'ON'
if cheatNoLegHair=0:$cheatNoLegHair='OFF'
if cheatNoLegHair=1:$cheatNoLegHair='ON'
if cheatNoPussyHair=0:$cheatNoPussyHair='OFF'
if cheatNoPussyHair=1:$cheatNoPussyHair='ON'
if cheatNeverHungry=0:$cheatNeverHungry='OFF'
if cheatNeverHungry=1:$cheatNeverHungry='ON'
if cheatNeverThirsty=0:$cheatNeverThirsty='OFF'
if cheatNeverThirsty=1:$cheatNeverThirsty='ON'
if cheatNeverTired=0:$cheatNeverTired='OFF'
if cheatNeverTired=1:$cheatNeverTired='ON'
if cheatAlwaysrHorny=0:$cheatAlwaysHorny='OFF'
if cheatAlwaysHorny=1:$cheatAlwaysHorny='ON'
if cheatAlwaysVirgin=0:$cheatAlwaysVirgin='OFF'
if cheatAlwaysVirgin=1:$cheatAlwaysVirgin='ON'
if cheatVaginaHealth=0:$cheatVaginaHealth='OFF'
if cheatVaginaHealth=1:$cheatVaginaHealth='ON'
if cheatAlwaysMarried=0:$cheatAlwaysMarried='OFF'
if cheatAlwaysMarried=1:$cheatAlwaysMarried='ON'
if cheatNoSTDs=0:$cheatNoSTDs='OFF'
if cheatNoSTDs=1:$cheatNoSTDs='ON'
if cheatNoSTDs=0:$cheatNoSTDs='OFF'
if cheatNoSweat=0:$cheatNoSweat='OFF'
if cheatNoSweat=1:$cheatNoSweat='ON'
if cheatNoPeriods=0:$cheatNoPeriods='OFF'
if cheatNoPeriods=1:$cheatNoPeriods='ON'
if cheatBrushedHair=0:$cheatBrushedHair='OFF'
if cheatBrushedHair=1:$cheatBrushedHair='ON'
if cheatMakeupSelect=0:$cheatMakeupSelect='No'
if cheatMakeupSelect=1:$cheatMakeupSelect='No'
if cheatMakeupSelect=2:$cheatMakeupSelect='Light'
if cheatMakeupSelect=3:$cheatMakeupSelect='Normal'
if cheatMakeupSelect=4:$cheatMakeupSelect='Heavy'
if cheatAlwaysMakeup=0:$cheatAlwaysMakeup='OFF'
if cheatAlwaysMakeup=1:$cheatAlwaysMakeup='ON'
pl '<a href="exec:dynamic $dex_debug_loc">DEBUG: LOCATION INFO</a>'
pl '<a href="exec:dynamic $dex_cheat_YoungForever">Stay young</a> <<$cheatYoungForever>>'
pl '<a href="exec:dynamic $dex_cheat_HealthMaxed">Health always maxed</a> <<$cheatHealthMaxed>>'
pl '<a href="exec:dynamic $dex_cheat_WillMaxed">Willpower always maxed</a> <<$cheatWillMaxed>>'
pl '<a href="exec:dynamic $dex_cheat_ManaMaxed">Mana always maxed</a> <<$cheatManaMaxed>>'
pl '<a href="exec:dynamic $dex_cheat_NeverHorny">Never horny</a> <<$cheatNeverHorny>>'
pl '<a href="exec:dynamic $dex_cheat_ModelStudent">Model Student</a> <<$cheatModelStudent>>'
pl
pl '<a href="exec:dynamic $cheat_no_leg_hair">No Leg Hair</a><<$cheatNoLegHair>>'
pl '<a href="exec:dynamic $cheat_no_pussy_hair">No Pussy Hair</a><<$cheatNoPussyHair>>'
pl '<a href="exec:dynamic $cheat_never_tired">Never Tired</a><<$cheatNeverTired>>'
pl '<a href="exec:dynamic $cheat_never_hungry">Never Hungry</a><<$cheatNeverHungry>>'
pl '<a href="exec:dynamic $cheat_never_thirsty">Never Thirsty</a><<$cheatNeverThirsty>>'
pl '<a href="exec:dynamic $dex_cheat_AlwaysHorny">Always horny</a> <<$cheatAlwaysHorny>>'
pl '<a href="exec:dynamic $cheat_always_virgin">Always a Virgin</a><<$cheatAlwaysVirgin>>'
pl '<a href="exec:dynamic $cheat_vagina_health">Healthy Vagina</a><<$cheatVaginaHealth>>'
pl '<a href="exec:dynamic $cheat_always_married">Always Married</a><<$cheatAlwaysMarried>>'
pl '<a href="exec:dynamic $cheat_no_stds">No STDs</a><<$cheatNoSTDs>>'
pl '<a href="exec:dynamic $cheat_no_sweat">No Sweat</a><<$cheatNoSweat>>'
pl '<a href="exec:dynamic $cheat_no_periods">No Periods</a><<$cheatNoPeriods>>'
pl '<a href="exec:dynamic $always_brushed_hair">Always Brushed Hair</a><<$cheatBrushedHair>>'
pl '<a href="exec:dynamic $cheat_always_makeup">Always Make-Up</a> <<$cheatAlwaysMakeup>>'
pl '<a href="exec:dynamic $cheat_makeup_select"><<$cheatMakeupSelect>></a>'
pl
!!! Maruda Hair Mod
pl '<a href="exec: dynamic $cheats_hair">Hairstyle Cheats</a>'
!!! Maruda Hair Mod
pl
pl '<a href="exec:vagina=0">Become a Virgin</a>'
pl '<a href="exec:vidage-=1">Be Younger</a>'
pl '<a href="exec:curly+=50">Curly Hair</a>'
pl '<a href="exec:tan+=50">Get tan</a>'
pl
pl '<a href="exec:dynamic $dex_breast_growth">Change breast size</a>'
pl '<a href="exec:dynamic $dex_waist_growth">Change waist size</a>'
pl '<a href="exec:dynamic $dex_hip_growth">Change hip size</a>'
pl '<a href="exec:dynamic $dex_cheat_fert_bonus">Fertility Bonus</a>'
pl
pl '<a href="exec:glacol=0">Brown Eyes</a>'
pl '<a href="exec:glacol=1">Grey Eyes</a>'
pl '<a href="exec:glacol=2">Green Eyes</a>'
pl '<a href="exec:glacol=3">Blue Eyes</a>'
pl
pl '<a href="exec:mother+=100&motherKnowSpravka=0">Mother Cheats</a>'
pl '<a href="exec:kat+=50">Kat Cheat</a>'
pl '<a href="exec:Irina+=100">Irina Cheat</a>'
pl '<a href="exec:Tamara+=100">Tamara Cheat</a>'
pl
pl '<a href="exec:kransloman=1">Need Plumber</a>'
pl
!'pl'<a href="exec:dynamic $dex_add_kid">Add Kid</a>'
pl'
pl '<a href="exec:dynamic $dex_cheat_TimeTravel">Time Travel</a>'
pl '<a href="exec:dynamic $dex_cheat_Tailor">Make all clothes fit</a>'
pl '<a href="exec:GerpesOnce = 0 & Gerpes = 0 & SifacOnce = 0 & Sifilis = 0 & KandidozOnce = 0 & Kandidoz = 0 & Venera = 0">cure all STDs</a>'
pl '<a href="exec:skin = 4 & stren = 100 & speed = 100 & agil = 100 & vital = 100 & intel = 100 & will = 100 & react = 100">Super Human</a>'
pl '<a href="exec:diplom = 1">School Diplom</a>'
pl '<a href="exec:secrDiplom = 1">Secretary Diplom</a>'
pl '<a href="exec:masash = 10">Massage Diplom</a>'
pl '<a href="exec:dynamic $dex_cheat_money">Money</a>'
pl '<a href="exec:horny += 100">Max Excitement</a>'
pl '<a href="exec:temper = 20">Temperature 20</a>'
pl
pl '<a href="exec:SaunaWhore = 1 & workDolg = 0">Sauna work</a>'
pl
pl '<a href="exec:dynamic $dex_cheat_m_loc">Location based cheats</a>'
pl '<a href="exec:dynamic $dex_cheat_boyfriend">Boyfriend cheats</a>'
pl
pl '<a href="exec:dynamic $dex_cheat_character_stats">DEBUG: Character Stats</a>'
pl '<a href="exec:GorSlut = 6 & gt ''EvBoyBuh''">DEBUG: EvBoyBuh</a>'
pl '<a href="exec:AlbFaterBlackTime = totminut">DEBUG: AlbFatherQW</a>'
pl '<a href="exec:worksalon = 1">DEBUG: Working in beauty salon</a>'
pl '<a href="exec:student = 1 & dirtbelo = 1">DEBUG: Become a student and get dirty clothes</a>'
pl '<a href="exec:gt ''letstest''">DEBUG: TESTING</a>'
pl
pl '<a href="exec:dynamic $din_cheat">Author cheat menu</a>'
}
$cheats_hair = {
gs 'stat'
clr
pl '<a href="exec:dynamic $dex_cheat">Back to DeX cheat menu</a>'
pl
pl 'Currently your hair is <<hairlength>>mm long.'
if curly <= 0: pl 'Your hair is not curly.'
if curly > 0: pl 'Your hair is curly.'
if hscrunchw = 0: pl 'You do not have a ponytail.'
if hscrunchw = 1: pl 'A scrunchie holds your hair as a ponytail in place.'
if hpingripw = 0: pl 'You did not updo your hair.'
if hpingripw = 1: pl 'A hairaccessory is holding everything in place as an updo hairstyle.'
if hbangs = 0: pl 'You do not have a fringe.'
if hbangs = 1: pl 'You have a fringe.'
if hbraids = 0: pl 'You do not have braids.'
if hbraids >= 1: pl 'Your hair is braided.'
pl
if hapri = 0: pl '<a href:"exec: set hapri = 1 & dynamic $cheats_hair">Brush</a> my hair.'
if hapri = 1: pl '<a href:"exec: set hapri = 0 & dynamic $cheats_hair">Unbrush</a> my hair. (Make it tangled.)'
pl
pl 'Change the hair color:'
if hcol = 0: pl 'At the moment your hair is black, make it <a href="exec: set hcol = 1 & dynamic $cheats_hair">Brown</a>, <a href="exec: set hcol = 2 & dynamic $cheats_hair">Red</a>, <a href="exec: set hcol = 3 & dynamic $cheats_hair">Blonde</a>'
if hcol = 1: pl 'At the moment your hair is brown, make it <a href="exec: set hcol = 0 & dynamic $cheats_hair">Black</a>, <a href="exec: set hcol = 2 & dynamic $cheats_hair">Red</a>, <a href="exec: set hcol = 3 & dynamic $cheats_hair">Blonde</a>'
if hcol = 2: pl 'At the moment your hair is red, make it <a href="exec: set hcol = 0 & dynamic $cheats_hair">Black</a>, <a href="exec: set hcol = 1 & dynamic $cheats_hair">Brown</a>, <a href="exec: set hcol = 3 & dynamic $cheats_hair">Blonde</a>'
if hcol = 3: pl 'At the moment your hair is blonde, make it <a href="exec: set hcol = 0 & dynamic $cheats_hair">Black</a>, <a href="exec: set hcol = 1 & dynamic $cheats_hair">Brown</a>, <a href="exec: set hcol = 2 & dynamic $cheats_hair">Red</a>'
pl
pl 'Change the length of your hair (10mm = 1cm):'
pl 
if hairlength < 600:
	pl 'Add <a href="exec: set hairlength += 1 & dynamic $cheats_hair">1mm</a> - <a href="exec: set hairlength += 5 & dynamic $cheats_hair">5mm</a> - <a href="exec: set hairlength += 10 & dynamic $cheats_hair">10mm</a> - <a href="exec: set hairlength += 20 & dynamic $cheats_hair">20mm</a> - <a href="exec: set hairlength += 25 & dynamic $cheats_hair">25mm</a> - <a href="exec: set hairlength += 50 & dynamic $cheats_hair">50mm</a> - <a href="exec: set hairlength += 100 & dynamic $cheats_hair">100mm</a> - <a href="exec: set hairlength += 200 & dynamic $cheats_hair">200mm</a>'
else 
	pl 'Add 1mm - 5mm - 10mm - 20mm - 25mm - 50mm - 100mm - 200mm'
end
if hairlength > 600:
	set hairlength = 600
	dynamic $cheats_hair
end

if hairlength >= 1:
	pl 'Cut off <a href="exec: set hairlength -= 1 & dynamic $cheats_hair">1mm</a> - <a href="exec: set hairlength -= 5 & dynamic $cheats_hair">5mm</a> - <a href="exec: set hairlength -= 10 & dynamic $cheats_hair">10mm</a> - <a href="exec: set hairlength -= 20 & dynamic $cheats_hair">20mm</a> - <a href="exec: set hairlength -= 25 & dynamic $cheats_hair">25mm</a> - <a href="exec: set hairlength -= 50 & dynamic $cheats_hair">50mm</a> - <a href="exec: set hairlength -= 100 & dynamic $cheats_hair">100mm</a> - <a href="exec: set hairlength -= 200 & dynamic $cheats_hair">200mm</a>'
else
	pl 'Cut off 1mm - 5mm - 10mm - 20mm - 25mm - 50mm - 100mm - 200mm'
end
pl
if hairlength < 1:
	set hairlength = 1
	dynamic $cheats_hair
end
pl 'Fast Length Selection:'
if hairlength <= 30: pl 'Very Short - <a href="exec: set hairlength = 31 & dynamic $cheats_hair">Short</a> - <a href="exec: set hairlength = 81 & dynamic $cheats_hair">Medium</a> - <a href="exec: set hairlength = 161 & dynamic $cheats_hair">Medium Long</a> - <a href="exec: set hairlength = 261 & dynamic $cheats_hair">Long</a> - <a href="exec: set hairlength = 401 & dynamic $cheats_hair">Very Long</a>'
if hairlength > 30 and hairlength <= 80: pl '<a href="exec: set hairlength = 10 & dynamic $cheats_hair">Very Short</a> - Short - <a href="exec: set hairlength = 81 & dynamic $cheats_hair">Medium</a> - <a href="exec: set hairlength = 161 & dynamic $cheats_hair">Medium Long</a> - <a href="exec: set hairlength = 261 & dynamic $cheats_hair">Long</a> - <a href="exec: set hairlength = 401 & dynamic $cheats_hair">Very Long</a>'
if hairlength > 80 and hairlength <= 160: pl '<a href="exec: set hairlength = 10 & dynamic $cheats_hair">Very Short</a> - <a href="exec: set hairlength = 31 & dynamic $cheats_hair">Short</a> - Medium - <a href="exec: set hairlength = 161 & dynamic $cheats_hair">Medium Long</a> - <a href="exec: set hairlength = 261 & dynamic $cheats_hair">Long</a> - <a href="exec: set hairlength = 401 & dynamic $cheats_hair">Very Long</a>'
if hairlength > 160 and hairlength <= 260: pl '<a href="exec: set hairlength = 10 & dynamic $cheats_hair">Very Short</a> - <a href="exec: set hairlength = 31 & dynamic $cheats_hair">Short</a> - <a href="exec: set hairlength = 81 & dynamic $cheats_hair">Medium</a> - Medium Long - <a href="exec: set hairlength = 261 & dynamic $cheats_hair">Long</a> - <a href="exec: set hairlength = 401 & dynamic $cheats_hair">Very Long</a>'
if hairlength > 260 and hairlength <= 400: pl '<a href="exec: set hairlength = 10 & dynamic $cheats_hair">Very Short</a> - <a href="exec: set hairlength = 31 & dynamic $cheats_hair">Short</a> - <a href="exec: set hairlength = 81 & dynamic $cheats_hair">Medium</a> - <a href="exec: set hairlength = 161 & dynamic $cheats_hair">Medium Long</a> - Long - <a href="exec: set hairlength = 401 & dynamic $cheats_hair">Very Long</a>'
if hairlength > 400: pl '<a href="exec: set hairlength = 10 & dynamic $cheats_hair">Very Short</a> - <a href="exec: set hairlength = 31 & dynamic $cheats_hair">Short</a> - <a href="exec: set hairlength = 81 & dynamic $cheats_hair">Medium</a> - <a href="exec: set hairlength = 161 & dynamic $cheats_hair">Medium Long</a> - <a href="exec: set hairlength = 261 & dynamic $cheats_hair">Long</a> - Very Long'
pl
pl 'Give <a href="exec: set hscrunch += 10 & dynamic $cheats_hair">10 hair scrunchies</a>. You currently have <<hscrunch>> hair-ties left.'
pl 'Give <a href="exec: set hpingrip += 12 & dynamic $cheats_hair">12 hair accessories</a>, like pins, grips and clamps. You currently have <<hpingrip>> left. '
pl
if hbangs = 0: pl 'Make me <a href="exec: set hbangs = 1 & dynamic $cheats_hair">a fringe</a>.'
if hbangs = 1: pl '<a href="exec: set hbangs = 0 & dynamic $cheats_hair">Remove</a> my fringe.'
pl
if hairlength <= 80: pl 'Your hair needs to be > 80mm to enable this option.'
if hairlength > 80:
	if hbraids <= 0: pl '<a href="exec: set hbraids = 10 & dynamic $cheats_hair">Braid</a> my hair.'
	if hbraids >= 1: pl '<a href="exec: set hbraids = 0 & dynamic $cheats_hair">Unbraid</a> my hair.'
end
pl
if hscrunch <= 0 or hairlength <= 80: pl 'Get some hair scrunchies for more options and have your hair > 80 mm.'
if hairlength > 80 and hscrunch >= 1:
	if hscrunchw = 0 and hpingripw = 0: pl 'Make yourself a <a href="exec: set hscrunchw = 1 & dynamic $cheats_hair">ponytail</a>. You have <<hscrunch>> scrunchies left.'
	if hscrunchw = 1: pl 'Remove the <a href="exec: set hscrunchw = 0 & dynamic $cheats_hair">scrunchie</a> to get rid of the ponytail.'
end
if hpingrip <= 0 or hairlength <= 80: pl 'Get some hair accessories for more options and have your hair > 80 mm.'
if hairlength > 80 and hpingrip >= 1:
	if hscrunchw = 0 and hpingripw = 0: pl 'You can <a href="exec: set hpingripw = 1 & dynamic $cheats_hair">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
	if hpingripw = 1: pl '<a href="exec: set hpingripw = 0 & dynamic $cheats_hair">Remove</a> the accessory to let your hair flow free.'
end
if hscrunch < 2 and hairlength <= 80: pl 'Have at least 2 scrunchies to see this option and have your hair > 81 mm.'
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: set hpigtail = 1 & set hscrunchw = 2 & dynamic $cheats_hair">pigtails</a>.'
	if hscrunchw = 2 and hpingripw = 0 and hpigtail = 1: pl '<a href="exec: set hpigtail = 0 & set hscrunchw = 0 & dynamic $cheats_hair">Remove</a> the pigtails'
end
if curly <= 0: pl 'Make my hair <a href="exec: set curly = 10 & dynamic $cheats_hair">curly</a>.'
if curly > 0: pl '<a href="exec: set curly = 0 & dynamic $cheats_hair">Remove</a> ALL THE curls.'

if hairlength <= 80:
	set hpigtail = 0
	set hscrunchw = 0
	set hpingripw = 0
	set curly = 0
end

if hairlength > 400: set hpingripw = 0

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

if hairlength <= 80: set hbraids = 0

if hbraids >= 1:
	set curly = 0
	set hscrunchw = 0
	set hpingripw = 0
	set hbangs = 0
	set hpigtail = 0
end	
}
$dex_cheat_money = {
MONY = input ("How much money you want?")
set money += MONY
}
$dex_cheat_m_loc = {
gs 'stat'
clr
pl '<a href="exec:dynamic $dex_cheat">Back to DeX cheat menu</a>'
pl
pl '<a href="exec:dynamic $dex_cheat_loc_photostudio">Photo studio</a>'
pl '<a href="exec:dynamic $dex_cheat_loc_pornstudio">Porn studio</a>'
pl '<a href="exec:dynamic $dex_cheat_loc_park">Park</a>'
}
$dex_cheat_loc_photostudio = {
gs 'stat'
clr
if cheatNewPhotoDay = 0:$cheatNewPhotoDay = 'OFF'
if cheatNewPhotoDay = 1:$cheatNewPhotoDay = 'ON'
pl '<a href="exec:dynamic $dex_cheat_m_loc">Back</a>'
pl
pl '<a href="exec:dynamic $dex_cheat_loc_photostudio_NewPhotoDay">new job always available</a> <<$cheatNewPhotoDay>>'
}
$dex_cheat_loc_park = {
gs 'stat'
clr
if pusher = 0:$cheatpusher = 'NO'
if pusher = 1:$cheatpusher = 'YES'
pl '<a href="exec:dynamic $dex_cheat_m_loc">Back</a>'
pl
pl 'Met drug dealer <a href="exec:pusher = 1 & dynamic $dex_cheat_loc_park"><<$cheatpusher>></a>'
}
$dex_cheat_loc_photostudio_NewPhotoDay = {
if cheatNewPhotoDay = 0:
	cheatNewPhotoDay = 1
	gs 'stat'
	dynamic $dex_cheat_loc_photostudio
	exit
end
if cheatNewPhotoDay = 1:
	cheatNewPhotoDay = 0
	gs 'stat'
	dynamic $dex_cheat_loc_photostudio
end
}
$dex_cheat_loc_pornstudio = {
gs 'stat'
clr
if cheatNewMovieDay = 0:$cheatNewMovieDay = 'OFF'
if cheatNewMovieDay = 1:$cheatNewMovieDay = 'ON'
pl '<a href="exec:dynamic $dex_cheat_m_loc">Back</a>'
pl
pl '<a href="exec:dynamic $dex_cheat_loc_pornstudio_NewMovieDay">new job available after previous job completed</a> <<$cheatNewMovieDay>>'
}
$dex_cheat_loc_pornstudio_NewMovieDay = {
if cheatNewMovieDay = 0:
	cheatNewMovieDay = 1
	gs 'stat'
	dynamic $dex_cheat_loc_pornstudio
	exit
end
if cheatNewMovieDay = 1:
	cheatNewMovieDay = 0
	gs 'stat'
	dynamic $dex_cheat_loc_pornstudio
end
}
$dex_cheat_YoungForever = {
if cheatYoungForever = 0:
	cheatYoungForever = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatYoungForever = 1:
	cheatYoungForever = 0
	gs 'stat'
	dynamic $dex_cheat
end
}
$dex_cheat_HealthMaxed = {
if cheatHealthMaxed = 0:
	cheatHealthMaxed = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatHealthMaxed = 1:
	cheatHealthMaxed = 0
	gs 'stat'
	dynamic $dex_cheat
end
}
$dex_cheat_WillMaxed = {
if cheatWillMaxed = 0:
	cheatWillMaxed = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatWillMaxed = 1:
	cheatWillMaxed = 0
	gs 'stat'
	dynamic $dex_cheat
end
}
$dex_cheat_ManaMaxed = {
if cheatManaMaxed = 0:
	cheatManaMaxed = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatManaMaxed = 1:
	cheatManaMaxed = 0
	gs 'stat'
	dynamic $dex_cheat
end
}
$dex_cheat_NeverHorny = {
if cheatNeverHorny = 0:
	cheatNeverHorny = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatNeverHorny = 1:
	cheatNeverHorny = 0
	gs 'stat'
	dynamic $dex_cheat
end
}
$dex_cheat_ModelStudent = {
if cheatModelStudent = 0:
	cheatModelStudent = 1
	gs 'stat'
	dynamic $dex_cheat
	exit
end
if cheatModelStudent = 1:
	cheatModelStudent = 0
	gs 'stat'
	dynamic $dex_cheat
end
}

$kidcreation = {
kidbornday2[numkids] = day
kidbornmonth2[numkids] = month
kidbornyear2[numkids] = year
kidage2[numkids] = 0
$kidname2[numkids] = '<<numkids>>'
numkids += 1
}

$dex_cheat_TimeTravel = {
gs 'stat'
clr
pl '<a href="exec:dynamic $dex_cheat">Back to DeX cheat menu</a>'

if hour > 9 :
	if minut > 9 :
		pl '<B><<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<B><<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	end
else
	if minut > 9 :
		pl '<B>0<<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<B>0<<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
	end
end

pl '<a href="exec:dctth = hour & dcttm = minut & freezetime = 1 & dynamic $dex_cheat_TimeTravel">Freeze Time</a>'
pl '<a href="exec:freezetime = 0 & dynamic $dex_cheat_TimeTravel">UnFreeze Time</a>'

pl 'Advance <a href="exec:year += 1 & dynamic $dex_cheat_TimeTravel">1</a> <a href="exec:year += 2 & dynamic $dex_cheat_TimeTravel">2</a> <a href="exec:year -= 1 & dynamic $dex_cheat_TimeTravel">-1</a> years'

pl 'Advance <a href="exec:day += 1 & dynamic $dex_cheat_TimeTravel">1</a> <a href="exec:day += 10 & dynamic $dex_cheat_TimeTravel">10</a> <a href="exec:day += 50 & dynamic $dex_cheat_TimeTravel">50</a> <a href="exec:day += 100 & dynamic $dex_cheat_TimeTravel">100</a> days'

pl 'Advance <a href="exec:hour += 1 & dynamic $dex_cheat_TimeTravel">1</a> <a href="exec:hour += 5 & dynamic $dex_cheat_TimeTravel">5</a> <a href="exec:hour += 10 & dynamic $dex_cheat_TimeTravel">10</a> <a href="exec:hour -= 1 & dynamic $dex_cheat_TimeTravel">-1</a> hours'

pl 'Advance <a href="exec:minut += 5 & dynamic $dex_cheat_TimeTravel">5</a> <a href="exec:minut += 15 & dynamic $dex_cheat_TimeTravel">15</a> <a href="exec:minut += 30 & dynamic $dex_cheat_TimeTravel">30</a> minutes'
}

$dex_cheat_boyfriend = {
gs 'stat'
clr
if harakBoyA = 0:$cheatharakBoyA = 'Gentle'
if harakBoyA = 1:$cheatharakBoyA = 'Common'
if harakBoyA = 2:$cheatharakBoyA = 'Strong'
if boybodyrandA=1:$boybodyrandA='Tall'
if boybodyrandA=2:$boybodyrandA='Average'
if boybodyrandA=3:$boybodyrandA='Short'
if financeA=0:$financeA='Poor'
if financeA=1:$financeA='Average'
if financeA=2:$financeA='Rich'
if boybodrandA = 1: Set $boybodA = 'thin'
if boybodrandA = 2: Set $boybodA = 'athletic'
if boybodrandA = 3: Set $boybodA = 'chunky'
if boybodrandA = 4: Set $boybodA = 'fat'
if harakBoyB=0:$cheatharakBoyA='Gentle'
if harakBoyB=1:$cheatharakBoyA='Common'
if harakBoyB=2:$cheatharakBoyA='Strong'
if boybodyrandB=1:$boybodyrandA='Tall'
if boybodyrandB=2:$boybodyrandA='Average'
if boybodyrandB=3:$boybodyrandA='Short'
if financeB=0:$financeA='Poor'
if financeB=1:$financeA='Average'
if financeB=2:$financeA='Rich'
if boybodrandB = 1: Set $boybodA = 'thin'
if boybodrandB = 2: Set $boybodA = 'athletic'
if boybodrandB = 3: Set $boybodA = 'chunky'
if boybodrandB = 4: Set $boybodA = 'fat'
if harakBoyC=0:$cheatharakBoyA='Gentle'
if harakBoyC=1:$cheatharakBoyA='Common'
if harakBoyC=2:$cheatharakBoyA='Strong'
if boybodyrandC=1:$boybodyrandA='Tall'
if boybodyrandC=2:$boybodyrandA='Average'
if boybodyrandC=3:$boybodyrandA='Short'
if financeC=0:$financeA='Poor'
if financeC=1:$financeA='Average'
if financeC=2:$financeA='Rich'
if boybodrandC = 1: Set $boybodA = 'thin'
if boybodrandC = 2: Set $boybodA = 'athletic'
if boybodrandC = 3: Set $boybodA = 'chunky'
if boybodrandC = 4: Set $boybodA = 'fat'
pl '<a href="exec:dynamic $dex_cheat">Back to DeX cheat menu</a>'
pl '<<GvstreBoy>>'
pl 'Make him <a href="exec:harakBoyA=0&izvratA=1&dynamic $dex_cheat_boyfriend">Boyfriend 1 Gentle</a>'
pl 'Make him <a href="exec:harakBoyA=1&dynamic $dex_cheat_boyfriend">Boyfriend 1 Common</a>'
pl 'Make him <a href="exec:harakBoyA=2&dynamic $dex_cheat_boyfriend">Boyfriend 1 Strong</a>'
pl
pl 'Make him <a href="exec:boybodyrandA=1&dynamic $dex_cheat_boyfriend">Boyfriend 1 Tall</a>'
pl 'Make him <a href="exec:boybodyrandA=2&dynamic $dex_cheat_boyfriend">Boyfriend 1 Average</a>'
pl 'Make him <a href="exec:boybodyrandA=3&dynamic $dex_cheat_boyfriend">Boyfriend 1 Short</a>'
pl
pl 'Make him <a href="exec:boybodrandA=1&dynamic $dex_cheat_boyfriend">Boyfriend 1 Thin</a>'
pl 'Make him <a href="exec:boybodrandA=2&dynamic $dex_cheat_boyfriend">Boyfriend 1 Athletic</a>'
pl 'Make him <a href="exec:boybodrandA=3&dynamic $dex_cheat_boyfriend">Boyfriend 1 chunky</a>'
pl 'Make him <a href="exec:boybodrandA=4&dynamic $dex_cheat_boyfriend">Boyfriend 1 Fat</a>'
pl
pl 'Make him <a href="exec:financeA=0&dynamic $dex_cheat_boyfriend">Boyfriend 1 Poor</a>'
pl 'Make him <a href="exec:financeA=1&dynamic $dex_cheat_boyfriend">Boyfriend 1 Average</a>'
pl 'Make him <a href="exec:financeA=2&dynamic $dex_cheat_boyfriend">Boyfriend 1 Rich</a>'
pl
pl '<a href="exec:dynamic $dex_boy_dickA">Boyfriend 1 Penis Size</a>'
pl
pl '<a href="exec:bfa+=100&daya+=30&love=2&dynamic $dex_cheat_boyfriend">Boyfriend 1 Love me</a>'
pl
pl 'Make him <a href="exec:harakBoyB=0&izvratA=1&dynamic $dex_cheat_boyfriend">Boyfriend 2 Gentle</a>'
pl 'Make him <a href="exec:harakBoyB=1&dynamic $dex_cheat_boyfriend">Boyfriend 2 Common</a>'
pl 'Make him <a href="exec:harakBoyB=2&dynamic $dex_cheat_boyfriend">Boyfriend 2 Strong</a>'
pl
pl 'Make him <a href="exec:boybodyrandB=1&dynamic $dex_cheat_boyfriend">Boyfriend 2 Tall</a>'
pl 'Make him <a href="exec:boybodyrandB=2&dynamic $dex_cheat_boyfriend">Boyfriend 2 Average</a>'
pl 'Make him <a href="exec:boybodyrandB=3&dynamic $dex_cheat_boyfriend">Boyfriend 2 Short</a>'
pl
pl 'Make him <a href="exec:boybodrandB=1&dynamic $dex_cheat_boyfriend">Boyfriend 2 Thin</a>'
pl 'Make him <a href="exec:boybodrandB=2&dynamic $dex_cheat_boyfriend">Boyfriend 2 Athletic</a>'
pl 'Make him <a href="exec:boybodrandB=3&dynamic $dex_cheat_boyfriend">Boyfriend 2 chunky</a>'
pl 'Make him <a href="exec:boybodrandB=4&dynamic $dex_cheat_boyfriend">Boyfriend 2 Fat</a>'
pl
pl 'Make him <a href="exec:financeB=0&dynamic $dex_cheat_boyfriend">Boyfriend 2 Poor</a>'
pl 'Make him <a href="exec:financeB=1&dynamic $dex_cheat_boyfriend">Boyfriend 2 Average</a>'
pl 'Make him <a href="exec:financeB=2&dynamic $dex_cheat_boyfriend">Boyfriend 2 Rich</a>'
pl
pl '<a href="exec:dynamic $dex_boy_dickB">Boyfriend 2 Penis Size</a>'
pl
pl '<a href="exec:bfb+=100&dayb+=30&love=2&dynamic $dex_cheat_boyfriend">Boyfriend 2 Love me</a>'
pl
pl 'Make him <a href="exec:harakBoyC=0&izvratA=1&dynamic $dex_cheat_boyfriend">Boyfriend 3 Gentle</a>'
pl 'Make him <a href="exec:harakBoyC=1&dynamic $dex_cheat_boyfriend">Boyfriend 3 Common</a>'
pl 'Make him <a href="exec:harakBoyC=2&dynamic $dex_cheat_boyfriend">Boyfriend 3 Strong</a>'
pl
pl 'Make him <a href="exec:boybodyrandC=1&dynamic $dex_cheat_boyfriend">Boyfriend 3 Tall</a>'
pl 'Make him <a href="exec:boybodyrandC=2&dynamic $dex_cheat_boyfriend">Boyfriend 3 Average</a>'
pl 'Make him <a href="exec:boybodyrandC=3&dynamic $dex_cheat_boyfriend">Boyfriend 3 Short</a>'
pl
pl 'Make him <a href="exec:boybodrandC=1&dynamic $dex_cheat_boyfriend">Boyfriend 3 Thin</a>'
pl 'Make him <a href="exec:boybodrandC=2&dynamic $dex_cheat_boyfriend">Boyfriend 3 Athletic</a>'
pl 'Make him <a href="exec:boybodrandC=3&dynamic $dex_cheat_boyfriend">Boyfriend 3 chunky</a>'
pl 'Make him <a href="exec:boybodrandC=4&dynamic $dex_cheat_boyfriend">Boyfriend 3 Fat</a>'
pl
pl 'Make him <a href="exec:financeC=0&dynamic $dex_cheat_boyfriend">Boyfriend 3 Poor</a>'
pl 'Make him <a href="exec:financeC=1&dynamic $dex_cheat_boyfriend">Boyfriend 3 Average</a>'
pl 'Make him <a href="exec:financeC=2&dynamic $dex_cheat_boyfriend">Boyfriend 3 Rich</a>'
pl
pl '<a href="exec:dynamic $dex_boy_dickc">Boyfriend 3 Penis Size</a>'
pl
pl '<a href="exec:bfc+=100&dayc+=30&love=2&dynamic $dex_cheat_boyfriend">Boyfriend 3 Love me</a>'
}
$dex_cheat_Tailor = {
set o = 0
:jensmet1
	set o += 1
	if jeans[o] = 1 and jeansB[o]!bedra: set jeansB[o] = bedra
	if o ! 5: jump 'jensmet1'
	set o = 0
:shortmet1
	set o += 1
	if short[o] = 1 and shortB[o]!bedra: set shortB[o] = bedra
	if o ! 5: jump 'shortmet1'
	set o = 0
:skirtmet1
	set o += 1
	if skirt[o] = 1 and skirtB[o]!bedra: set skirtB[o] = bedra
	if o ! 5: jump 'skirtmet1'
	set o = 0
:dressmet1
	set o += 1
	if dress[o] = 1 and dressB[o]!bedra: set dressB[o] = bedra
	if o ! 24: jump 'dressmet1'
	set o = 0
:profimet1
	set o += 1
	if profi[o] = 1 and profiB[o]!bedra: set profiB[o] = bedra
	if o ! 2: jump 'profimet1'
	set o = 0
:pantsmet1
	set o += 1
	if pants[o] = 1 and pantsB[o]!bedra: set pantsB[o] = bedra
	if o ! 5: jump 'pantsmet1'
	set o = 0
:latexmet1
	set o += 1
	if latex[o] = 1 and latexB[o]!bedra: set latexB[o] = bedra
	if o ! 2: jump 'latexmet1'
	set o = 0
:hookermet1
	set o += 1
	if hooker[o] = 1 and hookerB[o]!bedra: set hookerB[o] = bedra
	if o ! 5: jump 'hookermet1'
	set o = 0
:odekismet1
	set o += 1
	if odekis[o] = 1 and odekisB[o]!bedra: set odekisB[o] = bedra
	if o ! 10: jump 'odekismet1'
	set o = 0
:newclomet1
	set o += 1
	if newclo[o] = 1 and newcloB[o]!bedra: set newcloB[o] = bedra
	if o ! 130: jump 'newclomet1'
}

$dex_cheat_character_stats = {
gs 'stat'
clr
pl '<a href="exec:dynamic $dex_cheat">Back to DeX cheat menu</a>
<<hairlength>> - Hairlength in mm
<<StoryLine>> - StoryLine
<<MagikDostup>> - MagikDostup
<<umbrella>> - umbrella - Do you own an Umbrella
<<birthday>> - birthday
<<birthmonth>> - birthmonth
<<age>> - Your actual Age
<<vidage>> - How you old you look in years
<<vidageday>> - vidageday - How old you look in days, influenced by makeup and sex.
<<year>> - year - Current Year
<<month>> - month - Current Month
<<week>> - week - Current Week
<<hour>> - hour - Current Hour
<<day>> - day - Current Day
<<birthyear>> - birthyear
<<vmeat>> - vmeat =(strenbuf + vitalbuf) / 8 or (stren + vital) / 8
<<rost>> - Bodyheight in cm
<<fat>> - fat - similar to the stat "salo", but fat only affects you and your appearence, if you use Karen''s spell. But it still keep track of everything you do.
<<salo>> - salo - similar to the stat "fat", but salo affects the appearence, if you <b>DID NOT</b> use the spell at Karen''s
<<musle>> - musle
<<dick>> - dick - Length of the dick of your current sex-partner 
<<energy>> - energy - Your level of hunger - Higher = better
<<water>> - water - Your level thirst - Higher = better
<<son>> - son - How well you are rested - Higher = better
<<stren>> - stren = strenbuf
<<strenbuf>> - strenbuf = stren, but used in stat calculation
<<speed>> - speed - Your level Speed
<<agil>> - agil = agilbuf
<<agilbuf>> - agilbuf = agil, but used in stat calculation
<<vital>> - vital = vitalbuf 
<<vitalbuf>> - vitalbuf = vital, but used in stat calculation
<<intel>> - intel - Your level of Intelligence
<<will>> - will - Your current Will level - DO NOT confuse with will power
<<react>> - react - Your level of Reaction
<<magik>> - magik - You current Magic level
<<health>> - health - Your current health level
<<willpower>> - willpower - Your current amount of willpower - Influenced by Intellect and Will
<<manna>> - manna - You current amount of Mana - Influenced by Intellect and Magic
<<nastjaqw>> - nastjaqw - Nastja Quest - Indicates your friendship
<<money>> - money - Money on your pocket
<<karta>> - karta - Money on your Bankaccount
<<housrA>> - housrA - Checks if you are at home
<<odevnesh>> - odevnesh - Depends on your clothing-type, rates your looks, influences vnesh - Higher = better
<<vnesh>> - vnesh - Your overall looks - Higher = better
<<lobok>> - lobok - Length of the hair in your private area
<<leghair>> - leghair - Length of the hairs on your legs
<<mop>> - mop - Your Make up level - 0 = smeared - 1 = no makeup - 2 = light - 2 = everyday/medium - 3 = heavy
<<housr>> - housr - Do you have your own appartement?
<<tanga>> - tanga - Are you wearing underwear today?
'

}

$cheat_no_leg_hair={
if cheatNoLegHair=0:
	cheatNoLegHair=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNoLegHair=1:
	cheatNoLegHair=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_no_pussy_hair={
if cheatNoPussyHair=0:
	cheatNoPussyHair=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNoPussyHair=1:
	cheatNoPussyHair=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_never_hungry={
if cheatNeverHungry=0:
	cheatNeverHungry=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNeverHungry=1:
	cheatNeverHungry=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_never_thirsty={
if cheatNeverThirsty=0:
	cheatNeverThirsty=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNeverThirsty=1:
	cheatNeverThirsty=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_never_tired={
if cheatNeverTired=0:
	cheatNeverTired=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNeverTired=1:
	cheatNeverTired=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_always_virgin={
if cheatAlwaysVirgin=0:
	cheatAlwaysVirgin=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatAlwaysVirgin=1:
	cheatAlwaysVirgin=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_vagina_health={
if cheatVaginaHealth=0:
	cheatVaginaHealth=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatVaginaHealth=1:
	cheatVaginaHealth=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_always_married={
if cheatAlwaysMarried=0:
	cheatAlwaysMarried=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatAlwaysMarried=1:
	cheatAlwaysMarried=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_no_stds={
if cheatNoSTDs=0:
	cheatNoSTDs=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNoSTDs=1:
	cheatNoSTDs=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_no_sweat={
if cheatNoSweat=0:
	cheatNoSweat=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNoSweat=1:
	cheatNoSweat=0
	gs'stat'
	dynamic $dex_cheat
end
}

$dex_cheat_AlwaysHorny={
if cheatAlwaysHorny=0:
	cheatAlwaysHorny=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatAlwaysHorny=1:
	cheatAlwaysHorny=0
	gs'stat'
	dynamic $dex_cheat
end
}

$dex_breast_growth={
Boob = input ("How much change to breast size")
set brgrow += Boob
}

$dex_waist_growth={
Waist = input ("How much change to waist size")
set waistShrink += Waist
}

$dex_hip_growth={
Hip = input ("How much change to hip size")
set hipGrow += Hip
}

$dex_cheat_fert_bonus={
fert = input ("How much change to fertility?")
set fertBonus = fert
}

$cheat_no_periods={
if cheatNoPeriods=0:
	cheatNoPeriods=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatNoPeriods=1:
	cheatNoPeriods=0
	gs'stat'
	dynamic $dex_cheat
end
}

$always_brushed_hair={
if cheatBrushedHair=0:
	cheatBrushedHair=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatBrushedHair=1:
	cheatBrushedHair=0
	gs'stat'
	dynamic $dex_cheat
end
}

$cheat_always_makeup={
if cheatAlwaysMakeup=0:
	cheatAlwaysMakeup=1
	gs'stat'
	dynamic $dex_cheat
	exit
end
if cheatAlwaysMakeup=1:
	cheatAlwaysMakeup=0
	gs'stat'
	dynamic $dex_cheat
end
}
$cheat_makeup_select={
if cheatMakeupSelect = 0: cheatMakeupSelect = 1
cheatMakeupSelect += 1
if cheatMakeupSelect > 4: cheatMakeupSelect = 1
dynamic $dex_cheat
}
$dex_boy_dickA={
Dick = input ("How long in cm?")
set dickA = Dick
}
$dex_boy_dickB={
Dick = input ("How long in cm?")
set dickB = Dick
}
$dex_boy_dickC={
Dick = input ("How long in cm?")
set dickC = Dick
}

!$dex_add_kid = {
set numkid += 1
set daykid[numkid] = day
set monthkid[numkid] = month
set yearkid[numkid]  = year
set haprikid[numkid] = rand(0,3)
set glacol[numkid]   = rand(0,3)
set polkid[numkid] = RAND(0,1)
set kid += 1
set $kidname[numkid] = 'Test Child<<numkid>>'
}
--- dexcheats ---------------------------------

# portmirror
$portmirror = {
	cla
	*clr
	!!! Maruda Hair Mod
	!if hcol = 0 and curly <= 0: '<center><img src="images\body\hcol.jpg"></center>'
	!if hcol = 1 and curly <= 0: '<center><img src="images\body\hcol1.jpg"></center>'
	!if hcol = 2 and curly <= 0: '<center><img src="images\body\hcol2.jpg"></center>'
	!if hcol = 3 and curly <= 0: '<center><img src="images\body\hcol3.jpg"></center>'
	!if hcol = 0 and curly > 0: '<center><img src="images\body\hcolcurly.jpg"></center>'
	!if hcol = 1 and curly > 0: '<center><img src="images\body\hcolcurly1.jpg"></center>'
	!if hcol = 2 and curly > 0: '<center><img src="images\body\hcolcurly2.jpg"></center>'
	!if hcol = 3 and curly > 0: '<center><img src="images\body\hcolcurly3.jpg"></center>'
if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength <= 30: '<center><img src="images\body\hairstyles\vshort\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 30 and hairlength <= 80: '<center><img src="images\body\hairstyles\short\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\normal\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\normal\hcol3.jpg"></center>'
end
if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
	if hcol = 0 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 80 and hairlength <= 160: '<center><img src="images\body\hairstyles\med\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 160 and hairlength <= 260: '<center><img src="images\body\hairstyles\medlo\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 260 and hairlength <= 400: '<center><img src="images\body\hairstyles\lng\curly\hcol3.jpg"></center>'
	if hcol = 0 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol0.jpg"></center>'
	if hcol = 1 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol1.jpg"></center>'
	if hcol = 2 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol2.jpg"></center>'
	if hcol = 3 and hairlength > 400: '<center><img src="images\body\hairstyles\vlng\curly\hcol3.jpg"></center>'
end

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

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

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

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

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

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

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

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

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

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

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

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

	'<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>'
	if daystart < 10 and StoryLine = 0: 'In the mirror, you looked quite strange woman´s face which is exactly copied all your actions. You hardly get to accept the idea that it is now is you.'
	if daystart >= 10 and daystart < 30 and StoryLine = 0: 'From the mirror looks at you a woman´s face, to which you have become accustomed to, but sometimes, no, no and yes flash the idea that it is not your face.'
	if kosmetica > 0: 'Cosmetics <<kosmetica>>'
	if kosmetica = 0: 'You have no makeup.'

	if lipbalm > 0:'Lip Balm <<lipbalm>>'
	if lipbalm = 0:'You have no lip balm left.'

	if hapri = 0 and AutoHapri = 1:
		set minut += 3
		set hapri = 1
		'You brush your hair'
	end

	if mop = 1 and kosmetica > 0 and AutoMakeup = 1:
		set mop = AutoMakeupType
		if kosmetica < 3 and mop = 4: set mop = 3
		if kosmetica < 2 and mop = 3: set mop = 2
		if kosmetica < 1 and mop ! 1:
			set mop = 1
			'You have no make-up left'
		else
			if mop = 2:
				'Applied light make-up'
				set minut -= 3
				set kosmetica -= 1
			end

			if mop = 3:
				'Applied natural make-up'
				set minut -= 5
				set kosmetica -= 2
			end

			if mop = 4:
				'Applied heavy make-up'
				set minut -= 10
				set vidageday -= 1
				set kosmetica -= 3
			end
		end
	end

	if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
		set minut -= 10
		set lipbalm -= 1
		set lipkoef += RAND(5,15)
		if lipkoef > 50:
			set lipkoef = 0
			set lip += 1
		end

		set lipbalmstat += 8
		'You smeared lip moisturizing balm'
	end

	if hapri = 0:
		act 'Brush your hair':
			cla
			set minut += 3
			set hapri = 1
			act 'View results': dynamic $portmirror
		end
	end

	if mop = 1 and kosmetica > 0:
		act 'Apply makeup':
			cla
			*clr
			'<center><img src="images\etogame\mop.jpg"></center>'
			act 'Light make-up':
				cla
				set minut += 3
				set kosmetica -= 1
				set mop = 2
				set recmop = mop
				'You legonechko summed eyes and lips a little tint.'
				act 'View results': dynamic $portmirror
			end

			if kosmetica >= 2:
				act 'Natural makeup':
					cla
					set minut += 5
					set kosmetica -= 2
					set mop = 3
					set recmop = mop
					'You lipstick, summed up his eyes and eyelids.'
					act 'View results': dynamic $portmirror
				end
			end

			if kosmetica >= 3:
				act 'Heavy makeup':
					cla
					set minut += 10
					set kosmetica -= 3
					set vidageday -= 1
					set mop = 4
					set recmop = mop
					'You densely nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.'
					act 'View results': dynamic $portmirror
				end
			end
		end
	end

	if lipbalm > 0 and lipbalmstat <= 0:
		act 'Smear lip balm moisturizing':
			cla
			set minut += 10
			set lipbalm -= 1
			set lipkoef += RAND(5,15)
			if lipkoef > 50:
				set lipkoef = 0
				set lip += 1
			end

			set lipbalmstat += 8
			'You smeared lip moisturizing balm.'
			act 'View results': dynamic $portmirror
		end
	end

	act 'Move away from the mirror':
		cla
		if $goto2 = '':
			if $goto1 = 'stwork': dynamic $striptoilet
			if $goto1 = 'kafedinamic': dynamic $kafetualet
			if $goto1 = 'vokzalGin':
				if vokzalToilet = 1: dynamic $din_vokzalg_toilet_f
				if vokzalToilet = 2: dynamic $din_vokzalg_toilet_m
			end
			if $goto1 ! 'stwork' and $goto1 ! 'kafedinamic' and $goto1 ! 'vokzalGin': gt '<<$goto1>>'
		else
			gt '<<$goto1>>','<<$goto2>>'
		end
	end
}
--- portmirror ---------------------------------

# letstest
act 'something happens': prezik += 1
act 'something other happers': prezik += 1
if prezik >= 1:
act 'SOMETHING ELSE': prezik += 1
end
--- letstest ---------------------------------

# $menu_test
gt 'LOCA'
--- $menu_test ---------------------------------

# sistersleep
if lesbian > 0:
	horny +=10 & siswath += 1
end

gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/Ev/sleep.jpg" ></center>'
'on the bed, Anya is putting the ass'

act 'Exit':
	gt $loc, $metka
end
--- sistersleep ---------------------------------# sistersobir
!if lesbian>0:horny+=10&siswath+=1

gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/sobir.jpg" ></center>'
'Walks around the room going to work your sister Anya.'
'Anya says turning to you "Sveta, I`m so late, do not distract."'

act 'Exit':
	gt $loc, $metka
end
--- sistersobir ---------------------------------# sisterprogulka
!if lesbian>0:horny+=10&siswath+=1

gs'stat'
'<center><B><font color=maroon>Anya</font></B></center>'
'<center><img src="qwest/alter/progulka.jpg" ></center>'
'Walks around the room going for a walk on your sister Anya. She admires itself in a mirror and turned the ass trying to see yourself better'
'Anya says turning to you "Sveta, if you decide to take a walk, I`m outside the club with her friends."'

act 'Exit':
	gt $loc, $metka
end
--- sisterprogulka ---------------------------------# seeporn
gs'stat'

'Together with all the guys you`ve come to bear and he turned on the video player, by which immediately began to show porn.'

act 'watch':
	cls
	minut += 15
	seepornofut += 1
	horny += (seepornofut + mastr) * 2

	gs'stat'

	if seepornofut < 3:
		'Boys looking at what is happening on the screen clearly at ease and embarrassed shoot you in the eyes.'
	end

	if seepornofut >= 3 and seepornofut < 10:
		'Guys have become accustomed to watching porn , sometimes even comment on it.'
	end

	if seepornofut >= 10:
		'Guys look hard porn, you notice, that all vyzdybilis shirinki.'
		evgenrand = rand(0, 5)

		if evgenqw = 4:
			cls
			boyseeporn += 1

			gs'stat'

			'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos offers "Svetsik, What about work mouth?"'
			
			act 'Be silent':
				cls
				bj += 3
				sub += 5
				gang += 1

				gs 'stat'

				'<center><img src="images/qwest/alter/ev2/seepornblowbang.jpg" ></center>'
				'Zhendos got dick out of his pants and pulled your face to its members, You dutifully wrapped around his lips and began to suck. Your brother Kolka and Bear also got members and put them to you to face, you started to masturbate and suck dick.'

				act 'suck':
					cls
					cumface += 3
					cumlip += 2
					cumfrot += 1

					gs 'stat'

					'<center><img src="qwest/alter/ev2/seepornbbcum.jpg" ></center>'
					'The boys did not last long and become cum on your face, Soon almost all of your face was covered with a layer of smelly mucus and the sperm even hit you on your clothes.'

					act 'Get_Away':
						gt 'gorodok'
					end
				end
			end

			if dom > boyseeporn * 2:
				act 'Beat it':
					cls
					dom += 1

					gs 'stat'

					!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
					'You indignantly rejected the proposal boys.'

					act 'Exit':
						gt 'gorodok'
					end
				end
			end

			exit
		end

		if evgenqw = 3:
			cls
			gs 'stat'
			'<center><img src="qwest/alter/ev2/seeporn.jpg" ></center>'
			'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos suddenly takes your hand and puts it in the groin, just goes and Bear. Your brother Kolka laughed nervously. A Bear told you conspiratorially "Svetsik, vzdrochni us."'

			act 'Jerk kid':
				cls
				hj += 2
				boyseeporn += 1
				sub += 1

				gs 'stat'

				!brotherrand=rand(3,10)

				if boyseeporn < 2:
					'<center><img src="qwest/alter/ev2/seepornHJ.jpg" ></center>'
					'You glide skin on both members of their handles, Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'

					act 'vozmuschatsya':
						cls
						cumfrot += 2

						gs 'stat'

						'<center><img src="images/qwest/alter/ev2/seeporncumhj.jpg" ></center>'
						'you have rebelled "look assholes, you all I smeared!" But the boys blissfully sprawled on the couch "Very best in your palms Svetsik, such small, soft and warm."'

						act 'Exit':
							gt 'gorodok'
						end
					end
				end

				if boyseeporn >= 2:
					bj += 1
					evgenqw = 4

					if brotherSex = 0:
						brotherSex = 1 & guy += 1
					end

					'<center><img src="images/qwest/alter/ev2/seepornfirst.jpg" ></center>'
					'You glide skin on both members of their handles, your brother Kolka broke down and with a strangled groan. You have eyes widened by this turn of events. Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'

					act 'To_get':
						cls
						cumfrot += 2
						cumface += 1
						facial += 1

						gs 'stat'

						'<center><img src="images/qwest/alter/ev2/seepornfacial.jpg" ></center>'
						'Suddenly. Mishan laughed "Kolyamba, you just fucked his sister in the mouth. ohrenet" Kohl wiping the sweat from his forehead choked said "Yes, she asks that this slut. That could not resist."'

						act 'Exit':
							gt 'gorodok'
						end
					end
				end
			end 

			if dom > boyseeporn * 2:
				act 'Remove hand':
					cls
					dom += 1

					gs'stat'

					!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
					'You angrily removes his hands and yelling angrily at the boys.'

					act 'Exit':
						gt 'gorodok'
					end
				end
			end

			exit
		end

		if evgenqw = 2 and evgenrand = 0:
			cls

			gs'stat'

			'<center><img src="images/qwest/alter/ev2/seeporn.jpg" ></center>'
			'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos suddenly takes your hand and puts it in the groin, just goes and Bear. Your brother Kolka laughed nervously. A Bear told you conspiratorially "Svetsik, vzdrochni us."'

			act 'Yes you ohueli!!!':
				cls
				gs 'stat'

				'<center><img src="images/qwest/alter/ev2/seeporn.jpg" ></center>'
				'You rebelled actions boys. What Bear said "Come, you`re a girl, moreover, we just peredernesh gate in a friendly."'

				if horny>=70:
					act 'jerk kid':
						cls
						hj += 2
						boy += 2
						evgenqw = 3

						gs'stat'
						'<center><img src="images/qwest/alter/ev2/seepornHJ.jpg" ></center>'
						'You glide skin on both members of their handles, Zhendos rapidly groaned and of its members flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'

						act 'vozmuschatsya':
							cls
							cumfrot += 2

							gs 'stat'

							'<center><img src="images/qwest/alter/ev2/seeporncumhj.jpg" ></center>'
							'you have rebelled "look assholes, you all I smeared!" But the boys blissfully sprawled on the couch "Very best in your palms Svetsik, such small, soft and warm."'

							act 'Exit':
								gt 'gorodok'
							end
						end
					end
				end

				if horny < 70:
					act 'remove hands':
						cls
						dom += 1

						gs 'stat'

						!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
						'You angrily removes his hands and yelling angrily at the boys.'

						act 'Exit':
							gt 'gorodok'
						end
					end
				end
			end
		exit
	end

	if evgenqw = 1 and evgenrand = 0:
		cls
		horny += 10

		gs'stat'

		'Guys look hard porn, you notice, that all vyzdybilis shirinki. You feel like a hand Zhendosa accidentally stroking your ass.'

		if horny<70:
			act 'Remove his hands':
				cls
				dom += 1

				gs'stat'
				!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				'You angrily removes his hands from his priests Zhendosa.'
				act 'Exit':
					gt 'gorodok'
				end
			end
		end

		if horny >= 70:
			act 'Pretend that nothing is happening':
				cls
				sub += 1
				evgenqw = 2

				gs'stat'

				!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				'You sit on the couch red as a lobster enjoying a nice touch to his priest.'

				act 'Exit':
					gt 'gorodok'
				end
			end
		end

		exit
	end

	if evgenqw = 0 and evgenrand = 0:
		cls

		gs'stat'

		'Guys look hard porn, you notice, that all vyzdybilis shirinki. Zhendos looking at porn asks you "And you did that <<$name>> ever?"'

		if horny < 70:
			act 'Jerk dick':
				cls
				dom += 1

				gs 'stat'

				!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				'You sent Zhendosa on dick with such conversations.'

				act 'Exit':
					gt 'gorodok'
				end
			end
		end 

		if horny >= 70:
			act 'Be silent':
				cls
				sub += 1
				evgenqw = 1

				gs 'stat'

				!'<center><img src="qwest/alter/ev2/seepornHand.jpg" ></center>'
				'You swallowed and said nothing eyeing porn. Mishan chuckled "And she asks how flushed. It turns out the girls also like porn."'

				act 'Exit':
					gt 'gorodok'
				end
			end

			exit
		end
	end

	act 'Exit':
		gt 'gorodok'
	end
end
--- seeporn ---------------------------------# gadhouse
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cottage</H4></center>'
'<center><img src="images/qwest/gadukino/izba.jpg" ></center>'
'Simple village hut. In a small room is <a href="exec:GT ''loker'',''start''">cupboard</a> and <a href="exec:GT ''bedPar''">bed</a> where you can sleep. In a large room is <a href="exec:GT ''tvPar''">tv_set</a>. TV stands next to an ancient <a href="exec:GT ''mirror'',''start''">trellis</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Go outside':
	minut += 5 & gt'Gaddvor'
end

act 'Eat':
	cla
	*clr
	gs'stat'

	frost=0
	'<center><img src="images/pics/food.jpg" ></center>'
	set minut += 30
	set health += 10
	set manna += 20
	wipo += 5
	salo += 1

	if energy >= 30:
		set fat += 5
		'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
	end

	if energy < 20:
		set energy += 20
		!set fat = fat + 1
		'You gladly ate cooked food.'
	end

	if water >= 20:
		'Tea in you no longer climbs.'
	end

	if water < 20:
		'You gladly drank a cup of tea.'
		set water += 20
	end

	gs 'stat'

	act 'Get up from the table':
		gt $locM, $metkaM
	end
end

dynamic $d_read_book

if indorf = 1:
	'The room resting parents.'

	if week = 7:
		if hour >= 20:
			gt 'farmhomeride'
		end
	end
end

if monthbabkapay ! month:
	monthbabkapay = month
	money += 2000

	gs 'stat'

	'Grandma gives you two thousand.'
end
--- gadhouse ---------------------------------# farmhomeride
hour = 20
minut = 0

gs 'stat'

minut += 60

gs 'stat'

'You got into the Volga River with his family and an hour reached the town.'

act'Go home':
	gt'korrPar'
end
--- farmhomeride ---------------------------------# seeparentsex
parentsexday = daystart

gs'stat'

'<center><img src="images/qwest/alter/ev2/see.jpg" ></center>'
'Looking at the door to his parents in the bedroom as you saw your mother `s stepfather fucks cancer.'

act 'Leave':
	gt'korrPar'
end

if horny >= 50:
	act'peep':
		cls
		horny += 10
		minut += 15

		gs'stat'

		'<center><img src="images/qwest/alter/ev2/see.jpg" ></center>'
		'You pry as your nurse podmahivaet asshole stepfather.'

		act 'Leave':
			gt 'korrPar'
		end
	 end
end
--- seeparentsex ---------------------------------$d_vag_sex_dildo={
	frost=0

	if mesec > 0:
		!periods, orgasm is not possible
		set horny = 0
		set manna = manna - 10
		set willpower = willpower - 10
		'You have monthly and while you tuck a <<dick>> inch dildo, vaginal blood flows slowly.'
	end

	if mesec <= 0 and vagina > 0:
		!no monthly
		!horny - excitement
		!vagina - the elasticity of the vagina
		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
		!dick - penis Man
		!orgazm - Total coefficient of pleasure
		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm

		set smazka = horny / 10
		set prinat = smazka + vagina

		if dick >= prinat * 2:
			!member of the critical features more years
			set orgazm = 0
		end

		if dick < prinat*2 and dick > prinat:
			!member more options gg
			if horny >= 100:
				set orgazm = 5
			end

			if horny >= 90 and horny < 100:
				set orgazm = 4
			end

			if horny >= 80 and horny < 90:
				set orgazm = 3
			end

			if horny >= 70 and horny < 80:
				set orgazm = 2
			end

			if horny >= 60 and horny < 70:
				set orgazm = 1
			end

			if horny < 60:
				set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
			!Member fewer opportunities gg
			if horny >= 80:
				set orgazm = 5
			end

			 if horny >= 60 and horny < 80:
				set orgazm = 4
			 end

			 if horny >= 40 and horny < 60:
				set orgazm = 3
			 end

			 if horny < 40:
				set orgazm = 2
			 end
		end

		if dick <= prinat and dick < vagina:
			if horny >= 100:
				set orgazm = 5
			end
		end

		if horny >= 90 and horny < 100:
			set orgazm = 4
		end

		if horny < 90:
			set orgazm = 6
		end

		 if oragazm = 5:
			preOrg += 1

			if razeba < 4:
				oragazm = 4
			end

			if razeba=4:
				orgrand = rand(50, 300)

				if orgrand > preOrg:
					oragazm=4
				end
			end

			if razeba >= 5:
				orgrand = rand(0, 100)

				if orgrand > preOrg:
					oragazm=4
				end
			end
		end

		if orgazm = 0:
			vgape = 3
			vgapetime = totminut
			set horny = 0
			set manna -= 15
			set willpower -= 15
			'You groaned in pain when stuck into itself <<dick>> inch dildo, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
		end

		if orgazm = 1:
			if vgape < 2:
				vgape=2
			end

			vgapetime = totminut
			set horny -= 10
			set manna -= 10
			set willpower -= 10
			'You bit her lip in pain when stuck into itself <<dick>> inch dildo, between the legs pain.'
		end

		if orgazm = 2:
			if vgape < 1:
				vgape=1
			end

			vgapetime = totminut
			set horny -= 5
			set manna -= 5
			set willpower -= 5
			'You flinched at the sudden pain when stuck into itself <<dick>> inch dildo, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited while moving <<dick>> inch dildo in your pussy, but you will not go out.'
		end

		if orgazm = 3:
			!set horny = horny + 5
			set manna += 5
			set willpower += 5
			'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos.'
		end

		if orgazm = 4:
			!set horny = horny + 10
			set manna += 10
			set willpower += 10
			'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
		end

		if orgazm = 5:
			set horny = 0
			set manna += 15
			set willpower += 15
			set orgasm += 1
			vaginalOrgasm += 1
			'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dildo. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dildo moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo.'
		end

		if orgazm = 6:
			set horny += 5
			set manna += 5
			set willpower += 5
			'You feel like dildo penetrates your pussy. Between her legs nice, but much less Dildo your pussy and <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of.'
		end

		if vagina <= dick:
			set vagina += 1
		end
	end

	if vagina = 0 and mesec <= 0:
		set horny = 0
		set manna -= 15
		set willpower -= 15
		set vagina += 1
		'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch dildo went in you, break your hymen. You cried out in pain and was taken out of themselves bloody dildo.'
	end

	if vagina < dick:
		vagina += 1
	end
}

$d_analsex_dildo={
	frost=0

	if analplugin = 1:
		analpluginbonus = 10
		analplugin=0
		'You pulled out of your more narrow and tight ass plug,'
	end

	if dick >= anus:
		set anus += 3
	end

	'You parted my buttocks began to massage the anus with your fingers, first one, then two.'

	if lubri > 0:
		lubri -= 1
		lubonus+=rand(1, 5)
		'You squeezed anal smaski in his hand and began to spread his ass. After that.'
	end

	if anus < 10:
		'When your ass you entered three fingers involuntarily groaned in pain.'
	end

	if anus >= 10:
		'Then you have entered yourself three fingers and began to stretch the anus.'
	end

	'You pulled his fingers out of his priests and placed a dildo to her the hole.'

	if anus + 10 < dick:
		'You screamed and bit his lip from a sharp pain when his <<dick>> inch dildo apart your ass you entered.'
	end

	if anus + 10 >= dick:
		'You groaned feeling of fullness when it <<dick>> inch dildo apart your ass you entered.'
	end

	'You froze for a moment, giving his priest adapt to hang around in her dildo, and then began to drive them all the more insistent, stretching his anus.'

	if anus + lubonus + 2 < dick:
		if mop > 1:
			set mop = 0
		end

		horny-=20
		manna-=20

		if agape < 3:
			agape=3
		end

		agapetime = totminut
		'Your ass pierced a sharp pain when you started moving in her ass <<dick>> inch dildo.'
	end

	if anus + lubonus + 2 >= dick:
		horny += 10

		if agape < 2 and lubonus = 0:
			agape=2
		end

		agapetime=totminut
		'You started moaning rhythmically in time with the movements <<dick>> centimeter dildo inside you. You feel like your anus is stretched when dildo moves inside the ass.'

		if horny >= 100:
			if anal >= 10 and orgasm > 0:
				manna += 20

				if agape < 1 and lubonus = 0:
					agape = 1 & agapetime = totminut
				end

				'You get a little nice when dildo moves inside your ass and you moan with pleasure.'
			end
		end
	end

	lubonus = 0
}

$d_strapon_vag={
	frost=0

	if mesec > 0:
		!periods, orgasm is not possible
		set horny = 0
		set manna -= 10
		set willpower -= 10
		'You have monthly and while yet <<$boy>> drives in your pussy <<dick>> cm strap, vaginal blood flows slowly.'
	end

	if mesec <= 0 and vagina > 0:
		!no monthly
		!horny - excitement
		!vagina - the elasticity of the vagina
		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
		!dick - penis Man
		!orgazm - Total coefficient of pleasure
		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm

		set smazka = horny/10
		set prinat = smazka + vagina

		if dick >= prinat * 2:
			!member of the critical features more years
			set orgazm = 0
		end

		if dick < prinat * 2 and dick > prinat:
			!member more options gg

			if horny >= 100:
				set orgazm = 5
			end

			if horny >= 90 and horny < 100:
				set orgazm = 4
			end

			if horny >= 80 and horny < 90:
				set orgazm = 3
			end

			if horny >= 70 and horny < 80:
				set orgazm = 2
			end

			if horny >= 60 and horny < 70:
				set orgazm = 1
			end

			if horny < 60:
				set orgazm = 0
			end
		end

		if dick <= prinat and dick >= vagina:
			!Member fewer opportunities gg

			if horny >= 80:
				set orgazm = 5
			end

			if horny >= 60 and horny < 80:
				set orgazm = 4
			end

			if horny >= 40 and horny < 60:
				set orgazm = 3
			end

			if horny < 40:
				set orgazm = 2
			end
		end

		if dick <= prinat and dick < vagina:
			if horny >= 100:
				set orgazm = 5
			end

			if horny >= 90 and horny < 100:
				set orgazm = 4
			end

			if horny < 90:
				set orgazm = 6
			end
		end

		if oragazm=5:
			preOrg += 1

			if razeba<4:
				oragazm=4
			end

			if razeba=4:
				orgrand = rand(50, 300)

				if orgrand > preOrg:
					oragazm=4
				end
			end

			if razeba >= 5:
				orgrand = rand(0, 100)

				if orgrand > preOrg:
					oragazm=4
				end
			end
		end

		if orgazm = 0:
			vgape = 3
			vgapetime = totminut
			set horny = 0
			set manna -= 15
			set willpower -= 15
			'You groaned in pain when <<$boy>> stuck in you <<dick>> cm strap, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
		end

		if orgazm = 1:
			if vgape < 2:
				vgape=2
			end

			vgapetime = totminut
			set horny -= 10
			set manna -= 10
			set willpower -= 10
			'You bit her lip in pain when <<$boy>> stuck in you <<dick>> cm strap, between the legs pain.'
		end

		if orgazm = 2:
			if vgape < 1:
				vgape=1
			end

			vgapetime = totminut
			set horny -= 5
			set manna -= 5
			set willpower -= 5
			'You flinched at the sudden pain when <<$boy>> stuck in you <<dick>> cm strap, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited until <<$boy>> moves <<dick>> inch strap-on in your pussy, but you will not go out.'
		end

		if orgazm = 3:
			!set horny += 5
			set manna += 5
			set willpower += 5
			'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> you fucking threesome.'
		end

		if orgazm = 4:
			!set horny = horny + 10
			set manna = manna + 10
			set willpower = willpower + 10
			'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> fuck you using the strap. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
		end

		if orgazm = 5:
			set horny = 0
			set manna += 15
			set willpower += 15
			set orgasm += 1
			vaginalOrgasm += 1
			'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a strapon. Between the legs becomes very warm and pleasant, when strong <<dick>> inch strap moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo. '
		end

		if orgazm = 6:
			set horny += 5
			set manna += 5
			set willpower += 5
			'You feel like strap penetrates your pussy. Between her legs nice, but much less than the strap and your pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
			end

		if vagina <= dick:
			set vagina += 1
		end
	end


	if vagina = 0 and mesec <= 0:
		set horny = 0
		set manna -= 15
		set willpower -= 15
		set vagina += 1
		'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch strap came in you, break your hymen. You cried out in pain and <<$boy>> You took out a bloody strap.'
	end

	if vagina < dick:
		vagina +=1
	end
}

$d_strapon_anal={
	frost=0

	if analplugin=1:
		analpluginbonus = 10
		analplugin=0
		'You pulled out of your more narrow and tight ass plug,'
	end

	if dick >= anus:
		set anus += 3
	end

	'<<$boy>> apart your buttocks massaged anus fingers, first one, then two.'

	if lubri > 0:
		lubri -= 1
		lubonus += RAND(1, 5)
		'You squeezed anal smaski in his hand and began to spread his ass. after that <<$boy>> oiled strapon.'
	end

	if anus < 10:
		'When your ass you entered three fingers involuntarily groaned in pain.'
	end

	if anus >= 10:
		'then <<$boy>> introduced you to three fingers and began to stretch the anus.'
	end

	'<<$boy>> pulled his fingers out of your priests and put the strap to your the hole.'
		if anus + 10 < dick:
			'You screamed and bit his lip from a sharp pain when <<dick>> cm apart strap your ass you entered.'
		end

		if anus + 10 >= dick:
			'You groaned when Fullness <<dick>> cm apart strap your ass you entered.'
		end

		'<<$boy>> paused for a moment, giving your ass adapt to hang around in her strapon, then began to drive them insistently, stretching your anus.'

		if anus + lubonus + 2 < dick:
			if mop > 1:
				set mop = 0
			end

			horny -= 20
			manna -= 20

			if agape < 3:
				agape = 3
			end

			agapetime = totminut
			'Your ass pierced a sharp pain when <<$boy>> began to fuck your ass with the help of <<dick>> cm strap.'
		end

		if anus + lubonus + 2 >= dick:
			horny += 10

			if agape < 2 and lubonus = 0:
				agape = 2
			end

			agapetime = totminut
			'You started moaning rhythmically in time with the movements <<dick>> centimeter strap inside you. You feel like your anus is stretched when the strap is moving inside the ass.'

			if horny >= 100:
				if anal >= 10 and orgasm > 0:
					manna += 20

				if agape < 1 and lubonus = 0:
					agape = 1 & agapetime = totminut
				end

				'You get a little nice when the strap is moving inside your ass and you moan with pleasure.'
			end
		end
	end

	lubonus = 0
}

$doublepenetration={
	frost = 0
	set smazka = horny / 10
	set prinat = smazka + vagina

	if dick > prinat:
		!member more options gg

		if vgape < 3:
			vgape = 3
		end

		vgapetime = totminut
		DPvag = 2
	end

	if dick <= prinat and dick >= vagina:
		!Member fewer opportunities gg

		if vgape = 2:
			vgape = 3
		end

		if vgape < 2:
			vgape=2
		end

		vgapetime = totminut
		DPvag = 1
	end

	if dick < vagina:
		if vgape = 2:
			vgape = 3
		end

		if vgape = 1:
			vgape = 2
		end

		if vgape < 1:
			vgape = 1
		end

		vgapetime = totminut
		DPvag = 0
	end

	if lubri > 0:
		lubri -= 1
		lubonus += RAND(1, 5)
	end

	if anus + lubonus + 5 < dick2:
		if agape < 3:
			agape = 3
		end

		agapetime = totminut
		DPass = 2
	end

	if anus + lubonus < dick2 and anus + lubonus + 5 >= dick2:
		if agape = 2:
			agape = 3
		end

		if agape < 2:
			agape = 2
		end

		agapetime = totminut
		DPass = 1
	end

	if anus + lubonus >= dick2:
		if agape = 2:
			agape = 3
		end

		if agape = 1:
			agape = 2
		end

		if agape < 1:
			agape = 1
		end

		agapetime = totminut
		DPass = 0
	end

	if mesec > 0:
		!periods, orgasm is not possible
		set horny = 0
		set manna -= 10
		set willpower -= 10
		'Do you monthly and you do not hurt until nice and <<dick>> inch dick rams your vagina bleeding. At the same time you like your chustvuete <<$anustipe>> ass fucks the second term -long <<dick2>> centimeters.'
	end

	totPAIN = DPvag + DPass + (agape - 1) + (vgape - 1)

	if totPAIN = 0:
		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Abdomen burns pleasant light spreading heat throughout the body.'
		bonusManna= (manna * 100) / mannamax
		DPplus = (vaginalOrgasm * 10) + horny + bonusManna
		DPminus = rand(250, 350)

		if DPplus > DPminus:
			vaginalOrgasm += 1
			DPorgasm += 1
			orgasm += 1
			manna = mannamax
			horny = 0
			'Suddenly you covered orgasm and you do not remember myself moan and scream until your muscles are reduced frantically around two members of the inside of your body.'
		end
	end

	if totPAIN = 1:
		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. hurt a little, but still very nice chustvovat all the free holes are filled by members.'
	end

	if totPAIN = 2:
		horny /= 2
		manna /= 2
		'You chustvuete themselves so, as if that`s just about ready to burst from overflowing when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Feeling very strange, in a tangle of mixed pain, pleasure and painful overcrowding.'
	end

	if totPAIN = 3:
		manna /= 4
		horny /= 4

		if mop > 1:
			set mop = 0
		end

		'You hurt and sometimes sharp bursts of pain makes you groan when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. You chustvuete itself ready to burst, your ass and pussy feels merged into one pretty painful lump. Your eyes are not arbitrarily veiled veil of tears.'
	end

	if totPAIN >= 4:
		manna = 0
		horny = 0
		willpower = willpower / 2

		if mop > 1:
			set mop = 0
		end

		'You squeals and tears stream pouring out of your eyes from the terrible pain, your entire abdomen and the priest gives a sharp pain while you fuck <<$boy>> her vagina <<dick>> centimeter and a member of the <<$boy2>> almost tearing your <<$anustipe>> his anus <<dick2>> centimeter instrument.'
	end

	if vagina < dick:
		vagina += 1
	end

	if anus < dick2:
		anus += 1
	end

	!sex+=1
	gs'stat'
}i = NPCnow
:markgenernpc
i += 1
!power and moral qualities

slut[i] = 0

musle[i] = RAND(25, 100)
flex[i] = RAND(25, 80)
stamina[i] = RAND(200, 300)
wipo[i] = RAND(30, 60)
!equipment
Bteh[i] = RAND(0, 100)
Uteh[i] = RAND(0, 100)
Zteh[i] = RAND(0, 100)

if i = 2:
	musle[i] = 200
	flex[i] = 100
	stamina[i] = 300
	wipo[i] = 100
	!equipment
	Bteh[i] += 200
	Uteh[i] += 200
	Zteh[i] += 200
end

if i = 10:
	musle[i] += 50
	wipo[i] += 30
end

if i = 15:
	musle[i] += 30
	flex[i] += 40
	stamina[i] += 100
	wipo[i] += 20
	!equipment
	Bteh[i] += 20
	Uteh[i] += 20
	Zteh[i] += 20
end

if i = 32:
	musle[i] += 100
	flex[i] += 100
end

if i = 36:
	flex[i] += 100
end

if i = 51:
	Bteh[i] += 100
	Uteh[i] += 100
	Zteh[i] += 100
end

if i = 52:
	stamina[i] += 300
	wipo[i] += 60
end

if i = 60:
	musle[i] += 200
	wipo[i] += 40
end

if i = 78:
	flex[i] += 50
	wipo[i] += 30
end

if i = 100:
	musle[i] += 100
	flex[i] += 100
	stamina[i] += 200
	wipo[i] += 30
	!equipment
	Bteh[i] += 100
	Uteh[i] += 100
	Zteh[i] += 100
end

if i = 107:
	musle[i] += 10
	flex[i] += 10
	stamina[i] += 100
	wipo[i] += 100
end

if i = 123:
	flex[i] += 100
	stamina[i] += 100
	wipo[i] += 30
end

if i = 137:
	musle[i] += 70
	wipo[i] += 20
end

if i = 170:
	musle[i] += 100
	stamina[i] += 100
	wipo[i] += 30
end

if i = 235:
	Bteh[i] += 100
	Uteh[i] += 100
	Zteh[i] += 100
end

if i = 236:
	flex[i] += 60
	stamina[i] += 100
	wipo[i] += 20
end

if i = 255:
	musle[i] += 30
	flex[i] += 30
	stamina[i] += 100
	wipo[i] += 60
	!equipment
	Bteh[i] += 400
	Uteh[i] += 400
	Zteh[i] += 400
end

if i = 265:
	musle[i] += 100
	flex[i] += 100
	stamina[i] += 150
	wipo[i] += 80
	!equipment
	Bteh[i] += 60
	Uteh[i] += 60
	Zteh[i] += 60
end

irand = i

gs'namer'

if i < NPCnum:
	jump'markgenernpc'
end!irand=RAND(2, 100)

if irand=2:
	$nikname[i] = 'Sid Blekovich'
end

if irand=3:
	$nikname[i] = 'The same'
end

if irand=4:
	$nikname[i] = 'Shard of Happiness'
end

if irand=5:
	$nikname[i] = 'prikolistka'
end

if irand=6:
	$nikname[i] = 'damned_wretch'
end

if irand=7:
	$nikname[i] = 'surprise'
end

if irand=8:
	$nikname[i] = 'angel'
end

if irand=9:
	$nikname[i] = 'diva'
end

if irand=10:
	$nikname[i] = 'puzzle'
end

if irand=11:
	$nikname[i] = 'rainbow'
end

if irand=12:
	$nikname[i] = 'ocharovashka'
end

if irand=13:
	$nikname[i] = 'Zaya'
end

if irand=14:
	$nikname[i] = 'vredina'
end

if irand=15:
	$nikname[i] = 'hooligan'
end

if irand=16:
	$nikname[i] = 'Shady Layden'
end

if irand=17:
	$nikname[i] = 'Lucy'
end

if irand=18:
	$nikname[i] = 'shooting star'
end

if irand=19:
	$nikname[i] = 'princess'
end

if irand=20:
	$nikname[i] = 'summer'
end

if irand=21:
	$nikname[i] = 'bunting'
end

if irand=22:
	$nikname[i] = 'shocking'
end

if irand=23:
	$nikname[i] = 'Saharok'
end

if irand=24:
	$nikname[i] = 'Marmeladka'
end

if irand=25:
	$nikname[i] = 'rogue'
end

if irand=26:
	$nikname[i] = 'Kitty'
end

if irand=27:
	$nikname[i] = 'chocolate'
end

if irand=28:
	$nikname[i] = 'Knop'
end

if irand=29:
	$nikname[i] = 'Barbie'
end

if irand=30:
	$nikname[i] = 'spring'
end

if irand=31:
	$nikname[i] = 'Bambi'
end

if irand=32:
	$nikname[i] = 'tigress'
end

if irand=33:
	$nikname[i] = 'dragonfly'
end

if irand=34:
	$nikname[i] = 'Carmen'
end

if irand=35:
	$nikname[i] = 'melody'
end

if irand=36:
	$nikname[i] = 'black Mamba'
end

if irand=37:
	$nikname[i] = 'second'
end

if irand=38:
	$nikname[i] = 'dream'
end

if irand=39:
	$nikname[i] = 'Indira'
end

if irand=40:
	$nikname[i] = 'conflict'
end

if irand=41:
	$nikname[i] = 'cat'
end

if irand=42:
	$nikname[i] = 'bead'
end

if irand=43:
	$nikname[i] = 'snowflake'
end

if irand=44:
	$nikname[i] = 'Dejavu'
end

if irand=45:
	$nikname[i] = 'SFA-Murka'
end

if irand=46:
	$nikname[i] = 'wally'
end

if irand=47:
	$nikname[i] = 'Amelie'
end

if irand=48:
	$nikname[i] = 'fairy'
end

if irand=49:
	$nikname[i] = 'moon'
end

if irand=50:
	$nikname[i] = 'Nochka'
end

if irand=51:
	$nikname[i] = 'rebel'
end

if irand=52:
	$nikname[i] = 'zamorochka'
end

if irand=53:
	$nikname[i] = 'Laffka'
end

if irand=54:
	$nikname[i] = 'lady'
end

if irand=55:
	$nikname[i] = 'Buttons'
end

if irand=56:
	$nikname[i] = 'ice'
end

if irand=57:
	$nikname[i] = 'imp'
end

if irand=58:
	$nikname[i] = 'calypso'
end

if irand=59:
	$nikname[i] = 'caprice'
end

if irand=60:
	$nikname[i] = 'enema Karlovna'
end

if irand=61:
	$nikname[i] = 'cobra'
end

if irand=62:
	$nikname[i] = 'sweetie'
end

if irand=63:
	$nikname[i] = 'Kysya'
end

if irand=64:
	$nikname[i] = 'lagoon'
end

if irand=65:
	$nikname[i] = 'Laletta'
end

if irand=66:
	$nikname[i] = 'ocean'
end

if irand=67:
	$nikname[i] = 'vamp'
end

if irand=68:
	$nikname[i] = 'dark'
end

if irand=69:
	$nikname[i] = 'legend'
end

if irand=70:
	$nikname[i] = 'Lorelei'
end

if irand=71:
	$nikname[i] = 'Foxy'
end

if irand=72:
	$nikname[i] = 'young_lion'
end

if irand=73:
	$nikname[i] = 'luxury'
end

if irand=74:
	$nikname[i] = 'era'
end

if irand=75:
	$nikname[i] = 'shrew'
end

if irand=76:
	$nikname[i] = 'Brunnhilde'
end

if irand=77:
	$nikname[i] = 'manyachka'
end

if irand=78:
	$nikname[i] = 'Hella Gelot'
end

if irand=79:
	$nikname[i] = 'Medea'
end

if irand=80:
	$nikname[i] = 'Vega'
end

if irand=81:
	$nikname[i] = 'Vivian Undo'
end

if irand=82:
	$nikname[i] = 'Magari'
end

if irand=83:
	$nikname[i] = 'Skyler'
end

if irand=84:
	$nikname[i] = 'Frau Barracuda'
end

if irand=85:
	$nikname[i] = 'Kakunov'
end

if irand=86:
	$nikname[i] = 'Pandora`s box'
end

if irand=87:
	$nikname[i] = 'The Black Widow'
end

if irand=88:
	$nikname[i] = 'Yunibra'
end

if irand=89:
	$nikname[i] = 'Fraulein Farbisianna'
end

if irand=90:
	$nikname[i] = 'viper'
end

if irand=91:
	$nikname[i] = 'sun'
end

if irand=92:
	$nikname[i] = 'fox'
end

if irand=93:
	$nikname[i] = 'nymph'
end

if irand=94:
	$nikname[i] = 'steel'
end

if irand=95:
	$nikname[i] = 'Fa la la'
end

if irand=96:
	$nikname[i] = 'Daniel Ankaran'
end

if irand=97:
	$nikname[i] = 'babe'
end

if irand=98:
	$nikname[i] = 'bomb'
end

if irand=99:
	$nikname[i] = 'viola'
end

if irand=100:
	$nikname[i] = 'Poyson'
end



if irand=101:
	$nikname[i] = 'Shiz'
end

if irand=102:
	$nikname[i] = 'Kukaryamba'
end

if irand=103:
	$nikname[i] = 'Tobacco'
end

if irand=104:
	$nikname[i] = 'Kapitolka'
end

if irand=105:
	$nikname[i] = 'heron'
end

if irand=106:
	$nikname[i] = 'princess'
end

if irand=107:
	$nikname[i] = 'domino'
end

if irand=108:
	$nikname[i] = 'Tyapa'
end

if irand=109:
	$nikname[i] = 'hedgehog'
end

if irand=110:
	$nikname[i] = 'thorn'
end

if irand=111:
	$nikname[i] = 'nut'
end

if irand=112:
	$nikname[i] = 'Zara'
end

if irand=113:
	$nikname[i] = 'Jussi'
end

if irand=114:
	$nikname[i] = 'arrow'
end

if irand=115:
	$nikname[i] = 'twilight'
end

if irand=116:
	$nikname[i] = 'black beast'
end

if irand=117:
	$nikname[i] = 'Vectra'
end

if irand=118:
	$nikname[i] = 'Extreme'
end

if irand=119:
	$nikname[i] = 'Crazy'
end

if irand=120:
	$nikname[i] = 'mixer'
end

if irand=121:
	$nikname[i] = 'Midnight'
end

if irand=122:
	$nikname[i] = 'Tantsorsha'
end

if irand=123:
	$nikname[i] = 'gymnast'
end

if irand=124:
	$nikname[i] = 'Gerda'
end

if irand=125:
	$nikname[i] = 'mini'
end

if irand=126:
	$nikname[i] = 'Verona'
end

if irand=127:
	$nikname[i] = 'Klepa'
end

if irand=128:
	$nikname[i] = 'Wadjet'
end

if irand=129:
	$nikname[i] = 'maya'
end

if irand=130:
	$nikname[i] = 'Selene'
end

if irand=131:
	$nikname[i] = 'Rhea'
end

if irand=132:
	$nikname[i] = 'Nuth'
end

if irand=133:
	$nikname[i] = 'Loy'
end

if irand=134:
	$nikname[i] = 'ha ha'
end

if irand=135:
	$nikname[i] = 'breeze'
end

if irand=136:
	$nikname[i] = 'shadow'
end

if irand=137:
	$nikname[i] = 'She_Wolf'
end

if irand=138:
	$nikname[i] = 'muskrat'
end

if irand=139:
	$nikname[i] = 'Catan'
end

if irand=140:
	$nikname[i] = 'avalanche'
end

if irand=141:
	$nikname[i] = 'Chernosnezhka'
end

if irand=142:
	$nikname[i] = 'ballerina'
end

if irand=143:
	$nikname[i] = 'Wild Cat'
end

if irand=144:
	$nikname[i] = 'el terrible of'
end

if irand=145:
	$nikname[i] = 'infanta'
end

if irand=146:
	$nikname[i] = 'Lissa Be-spendthrift'
end

if irand=147:
	$nikname[i] = 'Gagalu'
end

if irand=148:
	$nikname[i] = 'Moonshine_Township'
end

if irand=149:
	$nikname[i] = 'Gingemma'
end

if irand=150:
	$nikname[i] = 'Belfeba'
end

if irand=151:
	$nikname[i] = 'Karkalyga'
end

if irand=152:
	$nikname[i] = 'Shayzi'
end

if irand=153:
	$nikname[i] = 'Pledovka'
end

if irand=154:
	$nikname[i] = 'ruler'
end

if irand=155:
	$nikname[i] = 'fuzz'
end

if irand=156:
	$nikname[i] = 'harpy'
end

if irand=157:
	$nikname[i] = 'Chuchundra'
end

if irand=158:
	$nikname[i] = 'spider'
end

if irand=159:
	$nikname[i] = 'baggage'
end

if irand=160:
	$nikname[i] = 'Dvuhstvolka'
end

if irand=161:
	$nikname[i] = 'tomboy'
end

if irand=162:
	$nikname[i] = 'taiga'
end

if irand=163:
	$nikname[i] = 'Mistress Belladonna'
end

if irand=164:
	$nikname[i] = 'Asia'
end

if irand=165:
	$nikname[i] = 'Split Sky'
end

if irand=166:
	$nikname[i] = 'JUST Mi'
end

if irand=167:
	$nikname[i] = 'Miss Bainbridge'
end

if irand=168:
	$nikname[i] = 'jazz'
end

if irand=169:
	$nikname[i] = 'Dilishes'
end

if irand=170:
	$nikname[i] = 'big Momma'
end

if irand=171:
	$nikname[i] = 'Defiance'
end

if irand=172:
	$nikname[i] = 'Iron Blonde'
end

if irand=173:
	$nikname[i] = 'geisha'
end

if irand=174:
	$nikname[i] = 'lily_of_the_valley'
end

if irand=175:
	$nikname[i] = 'Vortex'
end

if irand=176:
	$nikname[i] = 'Cruella DeVill'
end

if irand=177:
	$nikname[i] = 'cyclist'
end

if irand=178:
	$nikname[i] = 'Ragnarok'
end

if irand=179:
	$nikname[i] = 'lady Dragon'
end

if irand=180:
	$nikname[i] = 'Flora'
end

if irand=181:
	$nikname[i] = 'boorish'
end

if irand=182:
	$nikname[i] = 'chaos'
end

if irand=183:
	$nikname[i] = 'lamp'
end

if irand=184:
	$nikname[i] = 'predator'
end

if irand=185:
	$nikname[i] = 'The April moon'
end

if irand=186:
	$nikname[i] = 'black Star'
end

if irand=187:
	$nikname[i] = 'shrapnel'
end

if irand=188:
	$nikname[i] = 'euphoria'
end

if irand=189:
	$nikname[i] = 'Electra'
end

if irand=190:
	$nikname[i] = 'ogress'
end

if irand=191:
	$nikname[i] = 'Nutty'
end

if irand=192:
	$nikname[i] = 'fantasy'
end

if irand=193:
	$nikname[i] = 'short_story'
end

if irand=194:
	$nikname[i] = 'Snow'
end

if irand=195:
	$nikname[i] = 'Sinister'
end

if irand=196:
	$nikname[i] = 'crumb'
end

if irand=197:
	$nikname[i] = 'melons'
end

if irand=198:
	$nikname[i] = 'Lolita'
end

if irand=199:
	$nikname[i] = 'wagtail'
end

if irand=200:
	$nikname[i] = 'Fairy_Tale'
end

if irand=201:
	$nikname[i] = 'branch'
end

if irand=202:
	$nikname[i] = 'heart of the Ocean'
end

if irand=203:
	$nikname[i] = 'fallen Angel'
end

if irand=204:
	$nikname[i] = 'Medvedka'
end

if irand=205:
	$nikname[i] = 'explosion'
end

if irand=206:
	$nikname[i] = 'Whack'
end

if irand=207:
	$nikname[i] = 'sinner'
end

if irand=208:
	$nikname[i] = 'keeper'
end

if irand=209:
	$nikname[i] = 'mistress of Death'
end

if irand=210:
	$nikname[i] = 'pathos'
end

if irand=211:
	$nikname[i] = 'Ston Falls'
end

if irand=212:
	$nikname[i] = 'Lost'
end

if irand=213:
	$nikname[i] = 'mustard'
end

if irand=214:
	$nikname[i] = 'hysterics'
end

if irand=215:
	$nikname[i] = 'Lenore'
end

if irand=216:
	$nikname[i] = 'Tumanik'
end

if irand=217:
	$nikname[i] = 'Grand lady'
end

if irand=218:
	$nikname[i] = 'Fanny Hill'
end

if irand=219:
	$nikname[i] = 'Nosolomka'
end

if irand=220:
	$nikname[i] = 'Basta'
end

if irand=221:
	$nikname[i] = 'milk'
end

if irand=222:
	$nikname[i] = 'granny'
end

if irand=223:
	$nikname[i] = 'The old lady Flo'
end

if irand=224:
	$nikname[i] = 'magpie'
end

if irand=225:
	$nikname[i] = 'icicle'
end

if irand=226:
	$nikname[i] = 'meridian'
end

if irand=227:
	$nikname[i] = 'module'
end

if irand=228:
	$nikname[i] = 'Strekotusha'
end

if irand=229:
	$nikname[i] = 'Azazel'
end

if irand=230:
	$nikname[i] = 'Gabriella'
end

if irand=231:
	$nikname[i] = 'tiara'
end

if irand=232:
	$nikname[i] = 'huntsman'
end

if irand=233:
	$nikname[i] = 'dream'
end

if irand=234:
	$nikname[i] = 'supernova'
end

if irand=235:
	$nikname[i] = 'Karnedzh'
end

if irand=236:
	$nikname[i] = 'blackout'
end

if irand=237:
	$nikname[i] = 'schoolgirl'
end

if irand=238:
	$nikname[i] = 'Kasia'
end

if irand=239:
	$nikname[i] = 'Caprice Night'
end

if irand=240:
	$nikname[i] = 'Tomboy'
end

if irand=241:
	$nikname[i] = 'Wild Horse'
end

if irand=242:
	$nikname[i] = 'sweetheart'
end

if irand=243:
	$nikname[i] = 'splinter'
end

if irand=244:
	$nikname[i] = 'log'
end

if irand=245:
	$nikname[i] = 'gymnast'
end

if irand=246:
	$nikname[i] = 'Zhep Ebrilo'
end

if irand=247:
	$nikname[i] = 'Hearts Spades'
end

if irand=248:
	$nikname[i] = 'Heartbreakers'
end

if irand=249:
	$nikname[i] = 'Roxy Devine'
end

if irand=250:
	$nikname[i] = 'The worst'
end

if irand=251:
	$nikname[i] = 'arrow'
end

if irand=252:
	$nikname[i] = 'bully'
end

if irand=253:
	$nikname[i] = 'emerald'
end

if irand=254:
	$nikname[i] = 'Rosalind'
end

if irand=255:
	$nikname[i] = 'Bounty hunter'
end

if irand=256:
	$nikname[i] = 'The coolest'
end

if irand=257:
	$nikname[i] = 'doublet'
end

if irand=258:
	$nikname[i] = 'secretary Lulu'
end

if irand=259:
	$nikname[i] = 'officer Sandy'
end

if irand=260:
	$nikname[i] = 'water dancer'
end

if irand=261:
	$nikname[i] = 'chess_player'
end

if irand=262:
	$nikname[i] = 'Sportwoman'
end

if irand=263:
	$nikname[i] = 'Miss January'
end

if irand=264:
	$nikname[i] = 'Beretta'
end

if irand=265:
	$nikname[i] = 'Preacher`s daughter'
end

if irand=266:
	$nikname[i] = 'la Guerra'
end

if irand=267:
	$nikname[i] = 'amazing'
end

if irand=268:
	$nikname[i] = 'Koalmayner'
end

if irand=269:
	$nikname[i] = 'Brown Sugar'
end

if irand=270:
	$nikname[i] = 'Stilhand'
end

if irand=271:
	$nikname[i] = 'Honey Girl'
end

if irand=272:
	$nikname[i] = 'islander'
end

if irand=273:
	$nikname[i] = 'La Poeta del Ring'
end

if irand=274:
	$nikname[i] = 'Mary Jo Sanders'
end

if irand=275:
	$nikname[i] = 'pupa'
end

if irand=276:
	$nikname[i] = 'bee Sting'
end

if irand=277:
	$nikname[i] = 'lady daisy'
end

if irand=278:
	$nikname[i] = 'Fury'
end

if irand=279:
	$nikname[i] = 'A Matador'
end

if irand=280:
	$nikname[i] = 'Mary Sue'
end

if irand=281:
	$nikname[i] = 'la Maravilla'
end

if irand=282:
	$nikname[i] = 'Sarah Rosenblum'
end

if irand=283:
	$nikname[i] = 'Parazitka'
end

if irand=284:
	$nikname[i] = 'heat'
end

if irand=285:
	$nikname[i] = 'Meydzhik'
end

if irand=286:
	$nikname[i] = 'stealth Bomber'
end

if irand=287:
	$nikname[i] = 'phrase'
end

if irand=288:
	$nikname[i] = 'Alcorn'
end

if irand=289:
	$nikname[i] = 'Smoker'
end

if irand=290:
	$nikname[i] = 'El Dynamite'
end

if irand=291:
	$nikname[i] = 'Anna Pascal'
end

if irand=292:
	$nikname[i] = 'Panama'
end

if irand=293:
	$nikname[i] = 'bird Tracy'
end

if irand=294:
	$nikname[i] = 'Knizhnitsa'
end

if irand=295:
	$nikname[i] = 'bluestocking'
end

if irand=296:
	$nikname[i] = 'canteen-keeper'
end

if irand=297:
	$nikname[i] = 'Baroness Meredith DeKavalkal'
end

if irand=298:
	$nikname[i] = 'warrior'
end

if irand=299:
	$nikname[i] = 'killer'
end

if irand=300:
	$nikname[i] = 'Capitol Hill'
end

if irand=301:
	$nikname[i] = ''
end

if irand=302:
	$nikname[i] = ''
end

if irand=303:
	$nikname[i] = ''
end

if irand=304:
	$nikname[i] = ''
end

if irand=305:
	$nikname[i] = ''
end

if irand=306:
	$nikname[i] = ''
end

if irand=307:
	$nikname[i] = ''
end

if irand=308:
	$nikname[i] = ''
end

if irand=309:
	$nikname[i] = ''
end

if irand=310:
	$nikname[i] = ''
end

if irand=311:
	$nikname[i] = ''
end

if irand=312:
	$nikname[i] = ''
end

if irand=313:
	$nikname[i] = ''
end

if irand=314:
	$nikname[i] = ''
end

if irand=315:
	$nikname[i] = ''
end

if irand=316:
	$nikname[i] = ''
end

if irand=317:
	$nikname[i] = ''
end

if irand=318:
	$nikname[i] = ''
end

if irand=319:
	$nikname[i] = ''
end

if irand=320:
	$nikname[i] = ''
end

if irand=321:
	$nikname[i] = ''
end

if irand=322:
	$nikname[i] = ''
end

if irand=323:
	$nikname[i] = ''
end

if irand=324:
	$nikname[i] = ''
end

if irand=325:
	$nikname[i] = ''
end

if irand=326:
	$nikname[i] = ''
end

if irand=327:
	$nikname[i] = ''
end

if irand=328:
	$nikname[i] = ''
end

if irand=329:
	$nikname[i] = ''
end

if irand=330:
	$nikname[i] = ''
endy = 0
:markmonthfightx
y += 1
:markturnirotbory
x = 0
:markturnirotborz
x += 1
turnirFighter[x] = RAND(2, NPCrost)

if x < 2:
	jump'markturnirotborz'
end

if turnirFighter[1] = turnirFighter[2]:
	jump'markturnirotbory'
end

a = turnirFighter[1]
i = turnirFighter[2]

gs 'Autofight'

turnirFighter[1] = 0
turnirFighter[2] = 0

if y < 20:
	jump'markmonthfightx'
end
if Formula = 0:
	Formula=3
end
$endurdin = {
	Ken= (musle / 100) * Kus / 100

	if ken <= 0:
		ken = 1
	end

	Kene = (musle[i] / 100) * Kuse / 100

	if kene <= 0:
		kene = 1
	end

	KoefUder = rand(Uder * 20 / 100, Uder)
	KoefUderE = rand(Udere * 20 / 100, Udere)
	KoefBros = rand(Brosok * 20 / 100, Brosok)
	KoefBrosE = rand(Brosoke * 20 / 100, Brosoke)
	KoefProt = rand(Zash * 20 / 100, Zash)
	KoefProtE = rand(Zashe * 20 / 100, Zashe)
}

$uderdin = {
	Kus = 5
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (strenw / 2) + agilw + rand(0, lustw) + KoefUder
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((strenwE + (agilwE / 2)) * koefE) / 100) + rand (0, lustwE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$uderdinE = {
	Kus = 10
	Kuse = 5
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (strenwE / 2) + agilwE + rand(0, lustwE) + KoefUdere
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((strenw + (agilw / 2)) * koef) / 100) + rand(0, lustw) + KoefProt
	Passiv = Passiv * endur / endurMaxE
}

$brosdin = {
	Kus = 10
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = strenw + (agilw / 2) + rand(0, lustw) + KoefBros
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((strenwE / 2) + agilwE) * koefE / 100) + rand(0, lustwE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$brosdinE = {
	Kus = 10
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = strenwE + (agilwE / 2) + rand(0, lustwE) + KoefBrosE
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((strenw / 2) + agilw) * koef / 100) + rand(0, lustw) + KoefProt
	Passiv = Passiv * endur / endurMax
}

!power, throws
!flexibility, protection, 
!speed, initiative
!equipment, 
!endurance
a = 1
point = 0
pointE = 0
$nameE = $nikname[i]
$nameA = $nikname[a]
strenw = musle[1] / 10
strenwE = musle[i] / 10
agilw = flex[1] / 10
agilwE = flex[i] / 10
lustMax = wipo[1]
lustMaxE = wipo[i]
lustw = lustMax
lustwe = lustMaxe
Brosok = Bteh[1] / 10
BrosokE = Bteh[i] / 10
Uder = Uteh[1] / 10
Udere = Uteh[i] / 10
Zash = Zteh[1] / 10
Zashe = Zteh[i] / 10

resultFight = 0
endurMax = stamina[1] / 10
endurMaxE = stamina[i] / 10
endur = endurMax
endurE = endurMaxE
croonce = 0
round = 1
rMin = 8
stoper = 0

Ku = 0
Kb = 0
Kz = 0
KuE =0
KbE= 0
KzE = 0
!minus the endurance of fat
!force depends on the endurance
!speed depends on the endurance

if Formula = 0:
	Formula = 3
end

'<center><b>before round</b></center>'
'<center><img src="images/pic/fight/bef.jpg" ></center>'
'you and <<$nameE>> greeted each other.'
'Referee required to start a fight on his hands.'
!picture

act 'Fight on his hands':
	cls
	!picture
	'<center><img src="pic/fight/arm.jpg" ></center>'

	if strenw > strenwE:
		point += 1
		lustw += 1
		$text = 'Stand your opponent on all fours, and you catch him from behind.'
		'You won the fight on his hands.'
		crouch = 1
	end

	if strenw < strenwE:
		pointE += 1
		lustwE += 1
		$text = 'You get up on all fours, and your opponent to catch him from behind.'
		'You lost the battle on his hands.'
		crouch = 0
	end

	if strenw = strenwE:
		'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
		varrand = rand(0, 1)

		if varrand = 0:
			crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
		end

		if varrand = 1:
			crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
		end
	end

	'Refferi stopped you and commanded <<$text>>'

	act 'Follow the instructions referees':
		gt 'FightCrouch'
	end
end!rMin-=1

gs 'fightStat'

stoper = 0
'<center><img src="pic/fight/cro.jpg" ></center>'

if crouch = 1:
	enrand = RAND(0, 1)

	if enrand=0:
		$text='<<$nameE>> prizhimetsya to the floor'
	end

	if enrand=1:
		$text='<<$nameE>> trying to roll over on his back'
	end

	if enrand=2:
		$text='<<$nameE>> tries to counter roll'
	end

	<<$nameE>> is on all fours in front of you.'

	act 'produce cast':
		cls
		endur -= 2
		'You are trying to make a throw. <<$text>>'

		if enrand = 0:
			pointE += 1
			'<center><img src="pic/fight/cron.jpg" ></center>'
			'Opponent managed pressed to the floor and you can not perform a roll.'

			act '...':
				gt'fightfw'
			end
		end

		if enrand = 1:
			point += 2
			endurE -= 1
			'<center><img src="pic/fight/crob.jpg" ></center>'
			'You have intercepted an attempt to rival roll over and roll performed.' 

			act '...':
				gt'fight1'
			end
		end
	end

	act 'Make an attempt to hold':
		cls
		endur -= 1
		'You are attempting to hold. <<$text>>'

		if enrand = 0:
			point += 1
			'<center><img src="pic/fight/crou.jpg" ></center>'
			'Opponent is pressed to the floor and you will easily manage to fix it.'

			act '...':
				gt'fight2'
			end
		end

		if enrand = 1:
			pointE += 1
			endurE -= 1
			'<center><img src="pic/fight/cronu.jpg" ></center>'
			'Opponent flipped onto his back did not hold you to spend dvavaya.' 

			act '...':
				gt'fight3'
			end
		end

		if enrand = 2:
			''
		end
	end
else
     enrand = rand(0, 1)

	if enrand = 0:
		$text='<<$nameE>> tries to throw'
	end

	if enrand = 1:
		$text='<<$nameE>> trying to make an attempt to hold'
	end

	'You are standing on all fours in front of rival.'

	act 'Pressed to the floor':
		cls
		'You pressed to the floor. <<$text>>'

		if enrand = 0:
			point += 1
			endurE -= 2
			'<center><img src="pic/fight/cron.jpg" ></center>'
			'Opponent has no time to attempt a shot.'

			act '...':
				gt'fightE'
			end
		end

		if enrand = 1:
			pointE += 1
			endurE -= 1
			'<center><img src="pic/fight/crou.jpg" ></center>'
			'Opponent successfully a hold.' 

			act '...':
				gt'fightE1'
			end
		end
	end

	act 'Upside down on your back':
		cls
		endur -= 1
		'You are trying to roll over on his back. <<$text>>'

		if enrand = 0:
			pointE += 2
			endurE -= 2
			'<center><img src="pic/fight/crob.jpg" ></center>'
			'Opponent easily captures and holds you throw.'

			act '...':
				gt'fightE2'
			end
		end

		if enrand = 1:
			point += 1
			endurE -= 1
			'<center><img src="pic/fight/cronu.jpg" ></center>'
			'You pull out of the seizure of the opponent and turn on the back.' 

			act '...':
				gt'fightE3'
			end
		end
	end
end$resultUderDin = {
	if Aktiv > Passiv:
		point += 1
		Ku += 1
		'<center><img src="pic/fight/fu.jpg" ></center>'
		'You have successfully commit rival'

		act '...':
			stoper = 0 & gt 'fight2'
		end
	end

	if Aktiv < Passiv:
		pointE += 1
		KzE += 1
		'<center><img src="pic/fight/fu1.jpg" ></center>'
		'You can not do anything about my opponent flips.'

		act '...':
			stoper = 0 & gt 'fight3'
		end
	end 

	if Aktiv = Passiv:
		'<center><img src="pic/fight/f.jpg" ></center>'
		'You have two little turns and you are struggling without success.'

		act '...':
			gt $curloc
		end
	end 
}

$resultBrosDin = {
	if Aktiv > Passiv:
		point += 2
		lustw += 1
		Kb += 1
		'<center><img src="pic/fight/fb.jpg" ></center>'
		'You have successfully throw the opponent'

		act '...':
			stoper = 0 & gt 'fight1'
		end
	end 

	if Aktiv < Passiv:
		pointE += 1
		KzE += 1
		'<center><img src="pic/fight/fu1.jpg" ></center>'
		'You can not do anything about my opponent turned over on his back.'

		act '...':
			stoper = 0 & gt 'fight3'
		end
	end 

	if Aktiv = Passiv:
		'<center><img src="pic/fight/f.jpg" ></center>'
		'You have two little turns and you are struggling without success.'

		act '...':
			gt $curloc
		end
	end 
}

!you top
!opponent lying on his stomach -10%
koef = 100
koefE = 90

rMin -= 1
stoper += 1

gs 'fightStat'

'<center><img src="pic/fight/f.jpg" ></center>'
'<<$nameE>> lying on his stomach, while you sit on top of it. <<$nameE>> trying to wriggle out.'

if endur <= 0 or lustw <= 0:
	gt'SubLoss'
end

if endurE <= 0 or lustwE <= 0:
	gt 'SubWin'
end

if stoper < 3:
	if rMin > 0:
		act 'Make an attempt to hold':
			cls
			dynamic $uderdin
			dynamic $resultUderDin
		end

		act 'Make an attempt to throw':
			cls
			dynamic $brosdin
			dynamic $resultBrosDin
		end
	else
		'Refferi blows a whistle and throws you. End of round.'

		act 'up':
			gt'RoundEnd'
		end
	end
end

if stoper >= 3:
	pointE += 1
	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'

	act 'up':
		gt 'RoundStop'
	end
end$resultUderDin = {
	endurE -= 2

	if Aktiv >= Passiv:
		point += 1
		lustwE -= 1
		Ku += 1
		'<center><img src="pic/fight/f2u.jpg" ></center>'
		'You have successfully hold rival'

		act '...':
			gt 'fight2'
		end
	end

	if Aktiv < Passiv:
		pointE += 1
		KzE += 1
		'<center><img src="pic/fight/f2u2.jpg" ></center>'
		'You can not do anything about my opponent flips.'

		act '...':
			stoper = 0 & gt 'fight3'
		end
	end 
}

!you have committed opponent
!you sit on top
!opponent lying on his stomach under you -20%

koef = 100
koefE = 80
lustwE -= 1
rMin -= 1
stoper += 1

gs 'fightStat'

'<center><img src="pic/fight/f2.jpg" ></center>'
'<<$nameE>> lies beneath you . <<$nameE>> desperately trying to slip out of the bend of your capture.'

if endur <= 0 or lustw <= 0:
	gt'SubLoss'
end

if endurE <= 0 or lustwE <= 0:
	gt'SubWin'
end

if stoper < 3:
	if rMin > 0:
		act 'hold_On':
			cls
			dynamic $uderdin
			dynamic $resultUderDin
		end
	else
		'Refferi blows a whistle and throws you. End of round.'

		act 'up':
			gt'RoundEnd'
		end
	end
end

if stoper >= 3:
	point += 3
	'Refferi blows a whistle and throws you. Your time to attack happened. For the successful holding you get immediately 3 points.'

	act 'up':
		gt'RoundStop'
	end
end$resultUderDin = {
	if Aktiv > Passiv:
		point += 1
		Ku += 1
		'<center><img src="pic/fight/f3u.jpg" ></center>'
		'You have successfully commit rival'

		act '...':
			stoper = 0 & gt 'fight2'
		end
	end

	if Aktiv <= Passiv:
		pointE += 1
		KzE += 1
		'<center><img src="pic/fight/f3u2.jpg" ></center>'
		'You can not do anything about my opponent breaks lock.'

		act '...':
			gt 'RoundStop'
		end
	end
}

$resultBrosDin = {
	if Aktiv > Passiv:
		point += 2
		lustw += 1
		Kb += 1
		'<center><img src="pic/fight/f3b.jpg" ></center>'
		'You have successfully throw the opponent'

		act '...':
			stoper = 0 & gt 'fight1'
		end
	end

	if Aktiv <= Passiv:
		pointE + =1
		KzE += 1
		'<center><img src="pic/fight/f3u2.jpg" ></center>'
		'You can not do anything about my opponent breaks lock.'

		act '...':
			gt 'RoundStop'
		end
	end
}

!you top
!opponent bottom facing you

koef = 100
koefE = 100

rMin -= 1
stoper += 1

gs 'fightStat'

'<center><img src="pic/fight/f3.jpg" ></center>'
'<<$nameE>> supine, while you sit on top of it. <<$nameE>> trying to throw you off the.'

if endur <= 0 or lustw <= 0:
	gt'SubLoss'
end

if endurE <= 0 or lustwE <= 0:
	gt 'SubWin'
end

if stoper<3:
	if rMin > 0:
		act 'Make an attempt to hold':
			cls
			dynamic $uderdin
			dynamic $resultUderDin
		end

		act 'Make an attempt to throw':
			cls
			dynamic $brosdin
			dynamic $resultBrosDin
		end
	else
		'Refferi blows a whistle and throws you. End of round.'

		act 'up':
			gt 'RoundEnd'
		end
	end
end

if stoper >= 3:
	pointE += 1
	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'

	act 'up':
		gt'RoundStop'
	end
endgs 'fightStat'

stoper = 0

if crouch = 1 and croonce = 0:
	crouch = 0 & croonce = 1
end

if crouch = 0 and croonce = 0:
	crouch = 1 & croonce = 1
end

croonce = 0

if crouch = 1:
	$text='Stand your opponent on all fours, and you catch him from behind.'
end

if crouch = 0:
	$text='You get up on all fours, and your opponent to catch him from behind.'
end

'The referee raises you with an opponent and commands. <<$text>>'

act 'Follow the instructions referees':
	gt 'FightCrouch'
endif endur > endurMax * 75 / 100:
	$endur = 'You are active and vigorous'
end

if endur > endurMax * 50 / 100 and endur <= endurMax * 75 / 100:
	$endur = 'You are strongly sweating'
end

if endur > endurMax * 25 / 100 and endur <= endurMax * 50 / 100:
	$endur = 'Are you tired and short of breath'
end

if endur <= endurMax * 25 / 100:
	$endur = 'You just clueless on where you are very tired'
end


if endure > endurMaxe * 75 / 100:
	$endure = '<<$nameE>> active and cheerful'
end

if endure > endurMaxe * 50 / 100 and endure <= endurMaxe * 75 / 100:
	$endure = '<<$nameE>> much sweating'
end

if endure > endurMaxe * 25 / 100 and endure <= endurMaxe * 50 / 100:
	$endure = '<<$nameE>> tired and pants'
end

if endure <= endurMaxe * 25 / 100:
	$endure = '<<$nameE>> hardly worth from severe fatigue'
end


if lustw > lustMax * 75 / 100:
	$lust = 'You are determined to show it to your opponent what`s what'
end

if lustw > lustMax * 50 / 100 and lustw <= lustMax * 75 / 100:
	$lust = 'You`re a little puzzled by the tenacity rivals'
end

if lustw > lustMax * 25 / 100 and lustw <= lustMax * 50 / 100:
	$lust = 'Are you afraid of her rival'
end

if lustw <= lustMax * 25 / 100:
	$lust = 'You are in a very real terror and on the verge of panic'
end


if lustwe > lustMaxe * 75 / 100:
	$luste = '<<$nameE>> bravely drills you with his unyielding gaze'
end

if lustwe > lustMaxe * 50 / 100 and lustwe <= lustMaxe * 75 / 100:
	$luste = '<<$nameE>> looks a little surprised'
end

if lustwe > lustMaxe * 25 / 100 and lustwe <= lustMaxe * 50 / 100:
	$luste = '<<$nameE>> looks frightened'
end

if lustwe <= lustMaxe * 25 / 100:
	$luste = '<<$nameE>> looks bruised and finished here now screwy panic'
end


'<center><b>round <<round>> </b></center>'
'<center><b>Left before the end of the round <<rMin>> minutes </b></center>'
''
'your record <<win[1]>> - <<loss[1]>> - <<draw[1]>> <<SubWin[1]>> / <<SubLoss[1]>> '
'<<$nameE>> record <<win[i]>> - <<loss[i]>> - <<draw[i]>> <<SubWin[i]>> / <<SubLoss[i]>> '
''
'<<$endur>> . <<$lust>> .'
'<<$endurE>> . <<$lustE>> .'
'you scored <<point>> points'
'<<$nameE>> scored <<pointE>> points'
$endurdin={
Ken=(musle/100)*Kus/100
if ken<=0:ken=1
Kene=(musle[i]/100)*Kuse/100
if kene<=0:kene=1

KoefUder=RAND(Uder*20/100,Uder)
KoefUderE=RAND(Udere*20/100,Udere)
KoefBros=RAND(Brosok*20/100,Brosok)
KoefBrosE=RAND(Brosoke*20/100,Brosoke)
KoefProt=RAND(Zash*20/100,Zash)
KoefProtE=RAND(Zashe*20/100,Zashe)
}

$uderdin={
Kus=5
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenw/2)+agilw+RAND(0,lustw)+KoefUder
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenwE+(agilwE/2))*koefE)/100)+RAND(0,lustwE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$uderdinE={
Kus=10
Kuse=5
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=(strenwE/2)+agilwE+RAND(0,lustwE)+KoefUdere
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw+(agilw/2))*koef)/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMaxE
}
$brosdin={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenw+(agilw/2)+RAND(0,lustw)+KoefBros
Aktiv=Aktiv*endur/endurMax
Passiv=(((strenwE/2)+agilwE)*koefE/100)+RAND(0,lustwE)+KoefProtE
Passiv=Passiv*endurE/endurMaxE
}
$brosdinE={
Kus=10
Kuse=10
dynamic $endurdin
endur-=ken
endurE-=kene
Aktiv=strenwE+(agilwE/2)+RAND(0,lustwE)+KoefBrosE
Aktiv=Aktiv*endurE/endurMaxE
Passiv=(((strenw/2)+agilw)*koef/100)+RAND(0,lustw)+KoefProt
Passiv=Passiv*endur/endurMax
}


!power, throws
!flexibility, protection, 
!speed, initiative
!equipment, 
!endurance
a=1
point=0
pointE=0
$nameE=$nikname[i]
$nameA=$nikname[a]
strenw=musle[1]/10
strenwE=musle[i]/10
agilw=flex[1]/10
agilwE=flex[i]/10
lustMax=wipo[1]
lustMaxE=wipo[i]
lustw=lustMax
lustwe=lustMaxe
Brosok=Bteh[1]/10
BrosokE=Bteh[i]/10
Uder=Uteh[1]/10
Udere=Uteh[i]/10
Zash=Zteh[1]/10
Zashe=Zteh[i]/10

resultFight=0
endurMax=stamina[1]/10
endurMaxE=stamina[i]/10
endur=endurMax
endurE=endurMaxE
croonce=0
round=1
rMin=8
stoper = 0
Ku = 0
Kb = 0
Kz = 0
KuE = 0
KbE = 0
KzE = 0
!minus the endurance of fat
!force depends on the endurance
!speed depends on the endurance

if Formula = 0:
	Formula = 3
end

'<center><b>before round</b></center>'
'<center><img src="images/pic/fight/bef.jpg" ></center>'
'you and <<$nameE>> greeted each other.'
'Referee required to start a fight on his hands.'
!picture

act 'Fight on his hands':
	cls
	!picture
	'<center><img src="images/pic/fight/arm.jpg" ></center>'

	if strenw > strenwE:
		point + =1
		lustw + =1
		$text = 'Stand your opponent on all fours, and you catch him from behind.'
		'You won the fight on his hands.'
		crouch = 1
	end

	if strenw < strenwE:
		pointE += 1
		lustwE += 1
		$text = 'You get up on all fours, and your opponent to catch him from behind.'
		'You lost the battle on his hands.'
		crouch = 0
	end

	if strenw = strenwE:
		'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
		varrand = rand(0, 1)
	end

	if varrand = 0:
		crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
	end

	if varrand = 1:
		crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
	end

	'Refferi stopped you and commanded <<$text>>'

	act 'Follow the instructions referees':
		gt 'FightCrouch'
	end
end$resultUderDin = {
	if Aktiv > Passiv:
		point += 1
		Ku += 1
		'<center><img src="images/pic/fight/f1u.jpg" ></center>'
		'You have successfully commit rival'

		act '...':
			stoper = 0 & gt 'fight2'
		end
	end

	if Aktiv < Passiv:
		pointE += 1
		KzE += 1
		'<center><img src="images/pic/fight/f1u1.jpg" ></center>'
		'You can not do anything about my opponent flips.'

		act '...':
			stoper = 0 & gt 'fight3'
		end
	end

	if Aktiv = Passiv:
		'<center><img src="images/pic/fight/f1u2.jpg" ></center>'
		'You have two little turns and you are struggling without success.'

		act '...':
			gt $curloc
		end
	end
}

!you top
!opponent lies on his back after throwing -15%

koef = 100
koefE = 85
rMin -= 1
stoper += 1

gs'fightStat'

'<center><img src="images/pic/fight/f1.jpg" ></center>'
'<<$nameE>> lying on his back after throwing a little confused, while you sit on top of it. <<$nameE>> trying to wriggle out.'

if endur <= 0 or lustw <= 0:
	gt'SubLoss'
end

if endurE <= 0 or lustwE <= 0:
	gt'SubWin'
end

if stoper < 3:
	if rMin > 0:
		act 'Make an attempt to hold':
			cls
			dynamic $uderdin
			dynamic $resultUderDin
		end
	else
		'Refferi blows a whistle and throws you. End of round.'

		act 'up':
			gt'RoundEnd'
		end
	end
end

if stoper >= 3:
	pointE += 1
	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'

	act 'up':
		gt 'RoundStop'
	end
end