glife/locations/podezdM.qsrc

# podezdM

if $ARGS[0] = 'start':
	minut += 15
	menu_off = 1
	gs 'stat'
	'<<$loverdesc[lover_number]>> turns to you and says, "Let''s go to the store and get some beer."'

	act 'Walk while embraced':
		cla
		if haraklover[lover_number] = 0:loverrelation[lover_number] += 2
		if haraklover[lover_number] = 1:loverrelation[lover_number] += 1
		if haraklover[lover_number] = 2:loverrelation[lover_number] -= 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. Getting there, <<$loverdesc[lover_number]>> buys beer and some chips before you leave together.'
		gt 'podezdM', 'kiosk'
	end

	act 'Go holding hands':
		cla
		if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
		if haraklover[lover_number] = 1:loverrelation[lover_number] += 2
		if haraklover[lover_number] = 2:loverrelation[lover_number] -= 1

		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo1.jpg"></center>'
		'You walk to the kiosk holding hands. Getting there, <<$loverdesc[lover_number]>> buys beer and some chips before you leave together.'
		gt 'podezdM', 'kiosk'
	end

	act 'Go':
		cla
		if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
		if haraklover[lover_number] = 1:loverrelation[lover_number] += 1
		if haraklover[lover_number] = 2:loverrelation[lover_number] += 2

		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo2.jpg"></center>'
		'You go up to the kiosk. There, <<$loverdesc[lover_number]>> buys beer and some chips before you leave together.'
		gt 'podezdM', 'kiosk'
	end
end

if $ARGS[0] = 'kiosk':
	cla
	*clr
	minut += 30
	fat += 1
	pcs_mood += 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
		gs 'drugs', 'alcohol', 'beer'
		gs 'stat'

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

	act 'Drink a bottle':
		cla
		gs 'drugs', 'alcohol', 'beer'
		gs 'stat'

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

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

	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'

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

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

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

	act 'Not funny':
		cla
		loverrelation[lover_number] -= 1
		gt 'podezdM', 'kiosk2'
	end
end

if $ARGS[0] = 'kiosk2':
	cla
	*clr
	if home_owned[1] > 0:
		'<<$loverdesc[lover_number]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t we go back to your place?"'
		act 'Invite him in':gt 'sexm', 'start'
		act 'Turn him down':gt 'podezdM', 'Walk'
		act 'I have to go, call you later':gt 'din_npc', 'go_home'

	else
		'<<$loverdesc[lover_number]>> 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 'din_npc', 'go_home'
	end
end

if $ARGS[0] = 'Walk':
	'<<$loverdesc[lover_number]>> finishes his beer and tosses the bottle aside. "<<$pcs_nickname>>, you''re so hot, I want you!" and with that he pulls you into a tight embrace and kisses you, his hands reaching down to grab you by the ass and giving it a hard squeeze.'

	gs 'arousal', 'kiss', 3
	gs 'stat'
	gs 'willpower', 'sex', 'resist', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Break away (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			loverrelation[lover_number] -= 1
			gs 'stat'
			'You push against him, hard, and finally manage to push him off you, making him stumble back a step. He seems confused that you pushed him away. "What the fuck?! Don''t think you can treat me like you please, I''m not as easy as you think!" With that, you turn and walk away.'
			act 'I have to go, maybe I''ll call you later':gt 'din_npc', 'go_home'
		end
	else
		act 'Break away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end	
	if home_owned[1] > 0:
		act 'Kiss':
			cla
			'You return his kiss and rub the crotch of his pants. "Why don''t we head over to my place?." you ask him.'
			gs 'arousal', 'kiss', 3, 'sub'
			gs 'arousal', 'foreplay', 3, 'sub'
			minut -=3
			gs 'stat'

			gt 'sexm', 'startPod'
		end
	else
		act 'Kiss':
			cla
			'You return his kiss and rub the crotch of his pants. "How about we go to your place?." you ask 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
		loverrelation[lover_number] += 1
		'You return his kiss and rub the crotch of his pants. "I want you, I want you right now, I need you inside 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>'
	'A few guys are drinking in the stairwell. When you come in, they see <<$loverdesc[lover_number]>> and greet him loudly. They offer you both a drink from their bottle of vodka.'
	gs 'willpower', 'drink', 'resist', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Refuse to drink (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
			if haraklover[lover_number] = 1:loverrelation[lover_number] -= 1
			if haraklover[lover_number] = 2:loverrelation[lover_number] -= 2

			gt 'podezdM', 'grup1'
		end
	else
		act 'Refuse to drink (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end	


	act 'Drink a little':
		cla
		gs 'drugs', 'alcohol', 'beer'
		gs 'stat'

		if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
		if haraklover[lover_number] = 1:loverrelation[lover_number] += 2
		if haraklover[lover_number] = 2:loverrelation[lover_number] += 1

		gt 'podezdM', 'grup1'
	end

	act 'Drink with the guys':
		cla
		gs 'drugs', 'alcohol', 'beer'
		gs 'stat'

		if harakBoy = 0:loverrelation[lover_number] -= 1
		if harakBoy = 1:loverrelation[lover_number] += 1
		if harakBoy = 2:loverrelation[lover_number] += 2

		gt 'podezdM', 'grup2'
	end
end

if $ARGS[0] = 'grup1':
	cla
	*clr
	gs 'stat'
	'<<$loverdesc[lover_number]>> drinks with them, they tell sexist jokes and the boys all laugh, after a few minutes. <<$loverdesc[lover_number]>> 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 quite drunk and nearly fall as you start to slip from the railing you were leaning on. One of the boys quickly grabs hold of you and pulls you up onto his lap, another reaches over and starts pawing at your breasts.'

	if haraklover[lover_number] = 0:

		'<<$loverdesc[lover_number]>> petulantly mumbles, "Come on guys, that''s <i>my</i> girl."'
		'The drunken guys just laugh at him and begin pulling off your clothes.'
		gs 'willpower', 'gangbang', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Resist (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'sexm', 'gangrape'
			end
		else
			act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
		act 'Surrender':gt 'sexm', 'gangbang'

	elseif haraklover[lover_number] = 1:
		'<<$loverdesc[lover_number]>> 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 were just having a little harmless fun, we didn''t mean anything by it."'
		gs 'willpower', 'gangbang', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Go upstairs (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'sexm', 'start'
			end
		else
			act 'Go upstairs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
		act 'Ignore <<$loverdesc[lover_number]>> and kiss the guys':gt 'sexm', 'gangbang'

	elseif haraklover[lover_number] = 2 and izvrat = 0:
		'<<$loverdesc[lover_number]>> stands up and, without saying anything, steps over to the guy pawing at your breasts and breaks his bottle over the guy''s head. Dazed, the guy just falls to the ground, groaning in pain and confusion. Quietly and quite confidently, <<$loverdesc[lover_number]>> asks, "Who else wants some?"'
		'The guys instantly release you and move aside.'
		gs 'willpower', 'gangbang', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Go upstairs (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'sexm', 'start'
			end
		else
			act 'Go upstairs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
		act 'Or maybe all together...?':gt 'sexm', 'gangbang'

	elseif haraklover[lover_number] = 2 and izvrat = 1:
		'Seeing the guys starting to fool around with you, <<$loverdesc[lover_number]>> starts laughing and exclaims, "Lets have some fun with this little slut!"'
		'The drunk guys are very enthusiastic about the proposal and start pulling your clothes off as fast as they can grab them.'
		gs 'willpower', 'gangbang', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Resist (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'sexm', 'gangrape'
			end
		else
			act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
		act 'Surrender':gt 'sexm', 'gangbang'

	end
end

if $ARGS[0] = 'alleyway':
    cls
	gs 'boyStat', $lover[lover_number]
	if dick > pcs_vag: pcs_vag += 1
	gs 'stat'
	'<center><video autoplay loop src="images/characters/city/boyfriend/sex/alleyway.mp4"></video></center>'
	'As soon as he hears this, he grabs you and drags you into the nearest alleyway, going past a dumpster and around the corner. Just out of view from the street, <<$loverdesc[lover_number]>> pushes you against the wall and pulls just enough of your clothes aside to expose your ass and give him free access to your pussy.'
	'He quickly turns you to face the wall, reaches around and lifts your leg up in the air while holding you by your thigh, spreading your pussy wide open. He lines up his dick with his other hand, rubbing it between your pussy lips and getting the tip nice and wet. Satisfied that he''s all lubed up, he slides his dick into your pussy in one smooth motion and starts fucking you with gusto.'
	*nl
	'You grab onto a nearby chain hanging from the fire escape on the side of the building, trying to keep your balance while also pushing back against him, the thought of getting caught turns you on more than you care to admit. You can hear people passing by on the sidewalk, out of view just a few meters away. You try to be as quiet as you can, but soon you can''t control yourself any longer and your moans start getting louder and louder. "Oh god yes <<$loverdesc[lover_number]>>, fuck me, fuck me harder!" You try to say it quietly but it was obviously much louder than you intended, as he gives your ass a slap and starts hammering your pussy as hard as he can, grunting as he does.'
	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 much longer, he turns your head towards him and kisses you passionately. A few moments later, with a couple more grunts he quickly jerks his cock out of your pussy, barely making it in time as you feel hot spurts of his cum landing all over your ass, before slowly running down your crack.'
		*nl
	    'After catching his breath, he turns you back to face him, giving you a passionate kiss while 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 further for a ways you decide to 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 'din_npc', 'go_home'
	end
end

--- podezdM ---------------------------------