glife/locations/podezdM

# podezdM

if $ARGS[0] = 'start':
	minut += 15
	'<<$boydesc[i]>> turns to you and says, "Let''s go to the store and get some beer."'

	act 'Walk while embraced':
		cla
		if harakBoy[i] = 0:pcs_lovers_rel[i] += 2
		if harakBoy[i] = 1:pcs_lovers_rel[i] += 1
		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 1

		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo.jpg"></center>'
		'You walk to the kiosk, your bodies close, his arm around your shoulders, once there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
		gt 'podezdM', 'kiosk'
	end

	act 'Go holding hands':
		cla
		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
		if harakBoy[i] = 1:pcs_lovers_rel[i] += 2
		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 1

		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo1.jpg"></center>'
		'You walk to the kiosk holding hands, once there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
		gt 'podezdM', 'kiosk'
	end

	act 'Go':
		cla
		if harakBoy[i] = 0:pcs_lovers_rel[i] -= 1
		if harakBoy[i] = 1:pcs_lovers_rel[i] += 1
		if harakBoy[i] = 2:pcs_lovers_rel[i] += 2

		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo2.jpg"></center>'
		'You go up to the kiosk, there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
		gt 'podezdM', 'kiosk'
	end
end

if $ARGS[0] = 'kiosk':
	cla
	*clr
	minut += 30
	fat += 1
	pcs_mood += 10
	pcs_willpwr += 10
	podrand = rand(5, 100)
	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdm.jpg"></center>'
	'As you leave he opens a bottle of beer and hands it to you.'

	act 'Drink a little':
		cla
		alko += 1
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'stat'

		if podrand < 9:
			xgt 'podezdM', 'kiosk1'
		elseif podrand >= 9:
			gt 'podezdM', 'grup'
		end
	end

	act 'Drink a bottle':
		cla
		alko += 2
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		fat += 1
		pcs_mood += 10
		pcs_willpwr += 10
		gs 'stat'

		if podrand < 9:
			gt 'podezdM', 'kiosk1'
		elseif podrand >= 9:
			gt 'podezdM', 'grup'
		end
	end
end

if $ARGS[0] = 'kiosk1':
	cla
	*clr

	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'

	gs 'anekdot'
	'While drinking beer and walking back, <<$boydesc[i]>> tells you "<<$anek>>."'

	act 'Laugh':
		cla
		SUB += 1
		pcs_lovers_rel[i] += 1
		gt 'podezdM', 'kiosk2'
	end

	act 'Smile':
		cla
		gt 'podezdM', 'kiosk2'
	end

	act 'Not funny':
		cla
		pcs_dom += 1
		pcs_lovers_rel[i] -= 1
		gt 'podezdM', 'kiosk2'
	end
end

if $ARGS[0] = 'kiosk2':
	cla
	*clr
	if housr = 1:
		'<<$boydesc[i]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t we go back to your place?"'
		act 'Invite him':gt 'sexm', 'start'
		act 'Turn him down':gt 'podezdM', 'Walk'
		act 'I have to go, call you later':gt $loc, $metka
		
	else
		'<<$boydesc[i]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t you come back to my place?"'
		act 'Agree':gt 'sexm', 'start'
		act 'Turn him down':gt 'podezdM', 'Walk'
		act 'I have to go, call you later.':gt $loc, $metka
	end
end

if $ARGS[0] = 'Walk':
	'<<$boydesc[i]>> drained the beer and threw the bottle aside. "<<$pcs_nickname>>, you''re so hot, I want you!" with these words he pulled you into a tight hug and kissed you, his hands reached down and grabbed you by the ass and gave it a hard squeeze.'

	gs 'arousal', 'kiss', 3
	gs 'stat'
	
	act 'Break away':
		cla
		pcs_dom += 1
		pcs_lovers_rel[i] -= 1
		'You push against him and finally manage to push him off you, he stumbles back a step. He seems a bit confused you pushed him away. "What the fuck? Don''t treat me like that." With that you turn and walk away.'
		act 'I have to go, call you later':gt $loc, $metka
	end
	if housr = 1:
		act 'Kiss':
			cla
			'You kiss him back and rub the crotch of his pants. "Lets go back to my place." you tell him.'
			gs 'arousal', 'kiss', 3, 'sub'
			gs 'arousal', 'foreplay', 3, 'sub'
			minut -=3
			gs 'stat'
			
			gt 'sexm', 'startPod'
		end
	else
		act 'Kiss':
			cla
			'You kiss him back and rub the crotch of his pants. "Lets go back to your place." you tell him.'
			gs 'arousal', 'kiss', 3, 'sub'
			gs 'arousal', 'foreplay', 3, 'sub'
			minut -=3
			gs 'stat'
			
			gt 'sexm', 'startPod'
		end
	end
	act 'I want you':
		cla
		pcs_lovers_rel[i] += 1
		'You kiss him back and rub the crotch of his pants. "I want you, I want you right now, I need you in me so badly." you tell him.'
		gs 'arousal', 'kiss', 3, 'sub'
		gs 'arousal', 'foreplay', 3, 'sub'
		minut -=3
		gs 'stat'
		
		gt 'podezdM', 'Alleyway'
	end
end

if $ARGS[0] = 'grup':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdm1.jpg"></center>'
	'In a stairwell is a few guys drinking, when you come in they turn and see <<$boydesc[i]>> and greet him. They offer you both a drink from their bottle of vodka.'

	act 'Refuse to drink':
		cla

		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
		if harakBoy[i] = 1:pcs_lovers_rel[i] -= 1
		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 2

		gt 'podezdM', 'grup1'
	end

	act 'Drink a little':
		cla
		alko += 1
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'stat'

		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
		if harakBoy[i] = 1:pcs_lovers_rel[i] += 2
		if harakBoy[i] = 2:pcs_lovers_rel[i] += 1

		gt 'podezdM', 'grup1'
	end

	act 'Drink with the guys':
		cla
		alko += 2
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		fat += 1
		pcs_mood += 10
		pcs_willpwr += 10
		gs 'stat'

		if harakBoy = 0:pcs_lovers_rel[i] -= 1
		if harakBoy = 1:pcs_lovers_rel[i] += 1
		if harakBoy = 2:pcs_lovers_rel[i] += 2

		gt 'podezdM', 'grup2'
	end
end

if $ARGS[0] = 'grup1':
	cla
	*clr
	gs 'stat'
	'<<$boydesc[i]>> drinks with them, they tell sexist jokes and the boys all laugh, after a few minutes. <<$boydesc[i]>> tells them he needs to go and takes you up stairs.'

	act 'Go up stairs':gt 'sexm', 'start'
end

if $ARGS[0] = 'grup2':
	cla
	*clr
	gs 'stat'
	'You feel yourself getting drunk and slip off the rail you was leaning against and nearly fall. One of the boys catches you and pulls you into his lap, another one reaches over and paws at your breasts.'

	if harakBoy[i] = 0:

		'<<$boydesc[i]>> began to mumble, "Come on guys, that''s my girl."'
		'The drunken guys just laughed at him and began pulling off your clothes.'

		act 'Resist':gt 'sexm', 'gangrape'
		act 'Surrender':gt 'sexm', 'gangbang'

	elseif harakBoy[i] = 1:
		'<<$boydesc[i]>> stands up and yells, "Hey, not cool bro! That''s my chick, hands off!"'
		'The guys let go of you and put up their hands. "No problem man, we was just having a little harmless fun, we didn''t mean anything by it."'

		act 'Go upstairs':gt 'sexm', 'start'
		act 'Ignore <<$boydesc[i]>> and kiss the guys':gt 'sexm', 'gangbang'

	elseif harakBoy[i] = 2 and izvrat = 0:
		'<<$boydesc[i]>> stood up and silently broke a bottle over the head guy who was pawing at your breasts, the guy fell to the floor and groaned. <<$boydesc[i]>> quietly and confidently said, "Who else wants some?"'
		'The guys instantly release you and move aside.'

		act 'Go upstairs':gt 'sexm', 'start'
		act 'Or maybe all together ..?':gt 'sexm', 'gangbang'

	elseif harakBoy[i] = 2 and izvrat = 1:
		'Seeing this <<$boydesc[i]>> laughs and  announces, "Lets have some fun with this little slut!"'
		'The drunk guys are enthusiastic about the proposal and start pulling off your clothes.'

		act 'Resist':gt 'sexm', 'gangrape'
		act 'Surrender':gt 'sexm', 'gangbang'

	end
end

if $ARGS[0] = 'alleyway':
    cls
	gs 'boyStat', $Boy[i]
	if dick > pcs_vag: pcs_vag += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/alleyway.gif"></center>'
	'At your words he grabs you and drags you into a nearby alleyway past a dumpster, around the corner. Just out of view of the street, pushes you up against the wall and pulls your clothes off just enough to expose your ass and give him access to your pussy.'
	'He turns you to face the wall, while he reaches around with one hand and grabs your thigh and lifts your leg up in the air. With his other hand, he lines up his dick and rubs it against your pussy lips until the tip of his dick is nice and wet. Once it is, he slides his dick into you and starts fucking you.'
	'You hold onto a chain hanging from the side of the building to help keep your balancing, the thought of getting caught turns you on more than you care to admit. You can hear people just a few meters away passing by on the sidewalk, just out of view. You try to be quiet, but soon your moans start getting louder and louder. "Oh god yes <<$boydesc[i]>>, fuck me, fuck me harder!" You tell him and he starts grunting hammering your pussy as hard as he can.'
	gs 'arousal', 'vaginal', 15, 'sub', 'rough'
	gs 'stat'
	
	act 'continue':
		cls
	    '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/alleycum.jpg"></center>'
	    'At that pace it doesn''t take him long, he reaches up and turns your head and gives you a passionate kiss. A few moments later he grunts a few more times then jerks his dick out of you, barely in time as you feel spurts of hot cum landing all over your ass and running down your crack.'
	    'He turns you around again to face him and he passionately kisses you, playing with your clit to make sure you get yours as well. After a minute or so, he stops and pulls up his pants, while you straighten out your clothes. The two you walk out of the alleyway like nothing had happened, he looks at you with a huge grin on his face and gives you another beer. After walking for a ways further you go your separate ways for the day.'
		gs 'arousal', 'kiss', 5, 'sub'
		gs 'arousal', 'vaginal', 5, 'sub'
		gs 'arousal', 'vaginal_finger', 5, 'sub'
		minut -= 5
		gs 'arousal', 'end'
		gs 'cum_call', 'butt', $boy, 1
		gs 'stat'
		
		act 'Return':gt $loc, $metka
	end
end
		
--- podezdM ---------------------------------