glife/locations/street

# street
$metka = $ARGS[0]
$loc = $CURLOC
music_on = 0
gs 'dinam'
'<center><b>Residential Area</b></center>'
'<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 gave money Bugay, they counted them.'

		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

if vladimirday = day and vladimirQW = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet2''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'
if vladimirday = day and vladimirQW = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet3''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'

set housrA = 0

if car > 0 and cardrive = 1:
	set cardrive = 1
	'In the parking lot is worth <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
end

if hour >= 8 and hour <= 22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'
if housr = 1:
	act '<b>GO HOME</b>':
		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
	if waiting > 0 and waiting <= 120:set minut += waiting

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

set streetrand = rand(0, 100)

if streetrand >= 100 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:
			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:
			!!unprotected sex
			set finrand = rand(0, 1)

			if finrand = 0:
				!!inside
				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:
				!!out
				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'
		!!stats
		set strenV = 100
		set speedV = 50
		set agilV = 40
		set reactV = 40
		set vitalV = 50
		set intelV = 10
		set willV = 10
		!!skills
		set magikV = 100
		set boxingV = 50
		set shootV = 100
		!!parameters
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 10 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!!Programme of Action
		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 >= 100 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'
			!!stats
			set strenV = 100
			set speedV = 50
			set agilV = 40
			set reactV = 40
			set vitalV = 50
			set intelV = 10
			set willV = 10
			!!skills
			set magikV = 100
			set boxingV = 50
			set shootV = 100
			!!parameters
			set healthV = vitalV * 10 + strenV * 5
			set mannaV = intelV * 10 + magikV * 10
			set willpowerV = willV * 10
			set BonusAtakV = 0
			set BonusDefV = 0
			!!Programme of Action
			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 >= 100 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'
			!!stats
			set strenV = 100
			set speedV = 50
			set agilV = 40
			set reactV = 40
			set vitalV = 50
			set intelV = 10
			set willV = 10
			!!skills
			set magikV = 100
			set boxingV = 50
			set shootV = 100
			!!parameters
			set healthV = vitalV * 10 + strenV * 5
			set mannaV = intelV * 10 + magikV * 10
			set willpowerV = willV * 10
			set BonusAtakV = 0
			set BonusDefV = 0
			!!Programme of Action
			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

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

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

		act 'Tell him your phone':
			cla
			gs 'boyfrend', 'start'
			set stopboy = 0
			'<<$boyA>> record your phone and left.'

			act 'complete the walk':gt 'street'
		end
	end
end

dynamic $din_street_cum

--- street ---------------------------------