glife/locations/083_park

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