glife/locations/street_event

# street_event
!{$arg[0]='down','street','Nord' for trigger position.  if call this with gs, $curloc work the same.
1. location indepent events, list: rape, rob, hijack, ask phonenumber, no pantie&skirt, $street_cum, $mobile_check
 all events were only in [street], except shantpopala duplicate in [street][down].
 original event chance in [street]:
		streetev_rape=10
		streetev_rob=1
		streetev_hijack=1
		streetev_bf=90
		streetev_pantie=10
		shantpopala: 100% if shantpopala>0
2. home-related events: check if player live here (workDolgDay, vladimirday, magik >= 1 and mainQW = 0, hour = meethour).
[street]: housr=1 for korr
[down]:tanwork = 1 for house, student > 0 for dorm
[Nord]:none for now. use (train station) as position, if no home in city.
Known issue: boyfriend/vladimir may wait you in both place, if you rent house in [street] and study in university/work in Tanya

set streetrand=-1 for exit --> in outer location,   gs'street_event','home' & if streetrand=-1:exit
}

streetev_home = 0

if $ARGS[0] = 'street':
	$streetev_title = '<center><b>Residential Area</b><br><img src="images/etogame/street.jpg"></center>'
	streetev_rape = 5
	streetev_rob = 3
	streetev_hijack = 2
	streetev_bf = 50
	streetev_pantie = 10
	streetev_mistmeet = 15
	if housr = 1:
		streetev_home = 1
		$streetev_home = 'your apartment'
	end
elseif $ARGS[0] = 'down':
	$streetev_title = '<center><b>City center</b><br><img src="images/etogame/down.JPG"></center>'
	streetev_rape = 0
	streetev_rob = 1
	streetev_hijack = 6
	streetev_bf = 90
	streetev_pantie = 20
	streetev_mistmeet = 20
	if tanwork = 1 or student > 0:
		streetev_home = 1
		$streetev_home = 'your home'
	end
elseif $ARGS[0] = 'Nord':
	$streetev_title = '<center><b>Northern region</b><br><img src="images/etogame/nord.jpg"></center>'
	streetev_rape = 8
	streetev_rob = 5
	streetev_hijack = 1
	streetev_bf = 30
	streetev_pantie = 5
	streetev_mistmeet = 5
	if housr = 0 and tanwork = 0 and student = 0:
		streetev_home = 1
		$streetev_home = 'the train station'
	end
else
	$streetev_title = '<center><b>in dark</b>'
	streetev_rape = 10
	streetev_rob = 1
	streetev_hijack = 1
	streetev_bf = 90
	streetev_pantie = 10
end

if lesbiday >= daystart + 21 and RAND(0,100) < streetev_mistmeet and lesbiQW >= 11 and hour >= 8 and hour < 21 and tanga = 1 and month > 2 and month ! 12 and sub > 0:gt'lesbidomhouse','mistmeet'

if flag_rape_1 = 1: 
	flag_rape_1 = 0
	'You stopped while you see light from streets. Breath and wincing from the pain in the pussy, thought: «Go home and immediately go to bed, no one will notice, and I won`t tell anyone», - decided you: «if I do not fly from this monster.'
elseif flag_rape_1 = 2: 
	flag_rape_1 = 0
	'You woke up from the thoughts in the center of streets. You strange your behavior, yet you got raped. But you had fun and not even particularly worried about it. Well, just a slight concern about the orgasm. You even like it. '
end


streetrand = rand(0, 100)

if streetrand < streetev_rape and hour <= 3:
	cla
	*clr
	'<<$streetev_title>>'
	'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':
		gs 'dinsexFX'
		cla
		*clr
		dynamic $CatName, 'Rapist'
		dick = rand (8, 20)
		silavag = 0
		pose = 3
		
		guy += 1
		'<center><img src="images/picV/dogging.jpg"></center>'

		if prezik > 0:
			protect = 2
			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, then puts it on.'
		end
		dynamic $vagstart2

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

		dynamic $vagend

		act 'Leave':gt $curloc
	end

	act 'Fight':
		cla
		$boy = 'Rapist'
		!!stats
		strenV = 100
		speedV = 50
		agilV = 40
		reactV = 40
		vitalV = 50
		intelV = 10
		willV = 10
		!!skills
		magikV = 100
		boxingV = 50
		shootV = 100
		!!parameters
		healthV = vitalV * 10 + strenV * 5
		mannaV = intelV * 10 + magikV * 10
		willpowerV = willV * 10
		BonusAtakV = 0
		BonusDefV = 0
		!!Programme of Action
		program = 0
		RapistFight = 1

		if spellavtoklon = 1:klon = 3
		if spellbefshild = 1:defence = 500

		gt 'fight', 'start'
	end

	streetrand=-1 & exit
end

streetrand = rand(0, 100)
if streetrand < streetev_rob and money >= 1000 and daystart >= 10 and hour <= 3:
	cla
	*clr
	'<<$streetev_title>>'
	'Suddenly you are attacked by a robber'

	act 'Don''t fight, just give him your money':
		cla
		clr
		money = 0
		gs 'stat'
		'He took all the money you had on you'

		act 'Leave':gt $curloc
	end

	act 'Fight':
		cla
		'The robber throws heavy insults at you.'

		act 'Fight':
			$boy = 'Robber'
			!!stats
			strenV = 100
			speedV = 50
			agilV = 40
			reactV = 40
			vitalV = 50
			intelV = 10
			willV = 10
			!!skills
			magikV = 100
			boxingV = 50
			shootV = 100
			!!parameters
			healthV = vitalV * 10 + strenV * 5
			mannaV = intelV * 10 + magikV * 10
			willpowerV = willV * 10
			BonusAtakV = 0
			BonusDefV = 0
			!!Programme of Action
			program = 0
			RapistFight = 1

			if spellavtoklon = 1:klon = 3
			if spellbefshild = 1:defence = 500

			gt 'fight', 'start'
		end
	end

	streetrand = -1 & exit
end

streetrand = rand(0, 100)

if streetrand < streetev_hijack and money >= 1000 and daystart >= 10 and hour <= 3:
	cla
	*clr
	'<<$streetev_title>>'
	'You have been robbed. A thief grapped your purse and ran away.'

	act 'Leave it, I can''t catch him':
		cla
		clr
		money = 0
		gs 'stat'

		act 'That jackass':gt $curloc
	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 $curloc

		else
			$boy = 'Rapist'
			!!stats
			strenV = 100
			speedV = 50
			agilV = 40
			reactV = 40
			vitalV = 50
			intelV = 10
			willV = 10
			!!skills
			magikV = 100
			boxingV = 50
			shootV = 100
			!!parameters
			healthV = vitalV * 10 + strenV * 5
			mannaV = intelV * 10 + magikV * 10
			willpowerV = willV * 10
			BonusAtakV = 0
			BonusDefV = 0
			!!Programme of Action
			program = 0
			RapistFight = 1

			if spellavtoklon = 1:klon = 3
			if spellbefshild = 1:defence = 500

			gt 'fight', 'start'
		end
	end

	streetrand=-1 & exit
end

streetrand = rand(0, 100)

if streetrand < streetev_bf and bfa < 1:
	vnerand = rand(0, 1200)

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

		act 'Tell him your number':
			cla
			gs 'boyfrend', 'start'
			stopboy = 0
			'<<$boyA>> takes your number and leaves.'

			act 'complete the walk':gt $curloc
		end
	end
end

if shantpopala > 0:
	cla
	*clr
	hour += 8
	spafinloc = 14
	gs 'cum_manage'
	spafinloc = 4
	gs 'cum_manage'
	spafinloc = 12
	gs 'cum_manage'
	spafinloc = 11
	gs 'cum_manage'
	spafinloc = 7
	gs 'cum_manage'
	spafinloc = 3
	gs 'cum_manage'
	fingal += 1
	guy += 2
	rape += 1
	sex += 1
	bj += 1
	anal += 1
	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

	streetrand=-1 & exit
end

if tanga = 0 and PCloSkirt > 2 and hour > 6 and hour <= 20:
	nurand = rand(0, 100)

	if nurand >= streetev_pantie:
		manna -= 5
		SUB += 1
		horny += SUB
		'You hear a deliberately loud whisper from grandmothers on the bench, "That whore! Walks in a short skirt and no panties, everyone can see her ass!"'
		'You blush in shame from the old ladies caustic remarks.'
	end
end

dynamic $din_street_cum

if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check

!start home-related events check
if streetev_home = 1:
	if workDolgDay <= 0 and workDolg > 0:
		cls
		gs 'stat'
		gs 'outdoors'
		workDisk = 0
		'<center><img src="images/sauna/bug.jpg"></center>'
		'Near the entrance to your home 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 debts."'

		if money >= workDolg:
			money -= workDolg
			workDolg = 0
			'You give the money to the guys, they count it.'

			act 'Leave':gt $curloc

			streetrand=-1 & 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 rush inside, take the money out of the drawer and go back to pay them. They count it, look at each other nod, then leave.'

				act 'Leave':gt $curloc

				streetrand=-1 & exit
			else
				money += stolmoney + karta
				stolmoney = 0
				karta = 0
				workDolg -= money
				money = 0
				workDolg += 10000
				'You tell them that you don''t have enough money. They smack you, push you into your apartment and search everything. They find your stash and plunder it.'
				'The brutes take everything that you have. Then explain your situation. In short, you have a dubt of <<workDolg>>. Your debt has grown by 10k, and since you can not pay off, they will help you. The brutes drag you into the car and throw you into the back seat. You are driven somewhere.'

				act 'Out of the car':
					cls
					minut += 30
					gs 'stat'
					'You are at the sauna. The brutes drag you into a room and start to explain. "You''re going to live here and work until you have cleared your debt. All clear? Try to contact the authorities or escape, we''ll put a bullet in your head and bury you in the woods, understand?"'
					'Your frightened and nod, realizing that they are not joking.'

					act 'Look around':gt 'saunaroom'
				end
			end
		end

		streetrand=-1 & exit
	end

	if workDiskAtkPlayer = 1:
		workDisk = 1
		workDiskAtkPlayer = 0
		'<center><img src="images/sauna/car.jpg"></center>'
		'You are grabed and thrown into the back seat of the car. Right and left of you sit two angry Indian men. In the front seat - the porn studio manager. "Where is the envelope?" he demands.'

		if konvert = 0:
			workDolg = 200000
			workDolgDay = 7
			'"Stolen."'
			'"WHAT! But how could this happen! Do you realise, what you have done?! I''ll give you until next Friday. In my office, you bring me 200,000 <b>₽</b>. If not - Pain itself."'
		else
			konvert = 0
			money += 5000
			'You give the envelope. He warns you that such delays in the future may be harmful to your business relationships.'
		end

		act 'Leave':gt $curloc

		streetrand=-1 & exit
	end

	if vladimirday = daystart and vladimirQW = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet2''">Before your entrance sits an Audi and standing beside it waits your indifferent driver Glory</a>.'
	if vladimirday = daystart and vladimirQW = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet3''">Before your entrance sits an Audi and standing beside it waits your indifferent driver Glory</a>.'

	if magik >= 1 and mainQW = 0 and StoryLine = 0:
		cla
		*clr
		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 have his head in the clouds and a strange look on his face as his tattoos are not visible.'
		'Karin closely looks around you, "I felt a burst of energy. Were you attacked by a magician?"'

		act 'No':gt 'mainQW'

		streetrand=-1 & exit
	end

	if hour = meethour:
		if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
		if svidanieB = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
		if svidanieC = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
	end
end

!end home-related events

--- street_event ---------------------------------