glife/locations/love

# love
if $ARGS[0] = 'start':
	cla
	*clr

	if haraklover[lover_number] = 0:gt 'love', '0'
	if haraklover[lover_number] = 1:gt 'love', '1'
	if haraklover[lover_number] = 2:gt 'love', '2'
end

if $ARGS[0] = '0':
	cla
	*clr
	loverlove[lover_number] = 1
	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his parents.'
	'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, be well-groomed with curled hair and use cosmetics only in moderation.'
	'For your next date, if your are ready, <<$loverdesc[lover_number]>> will take you to his parents.'

	act 'To invite':
		cla
		gt 'sexm', 'room'
	end
end

if $ARGS[0] = 'mother':
	cla
	*clr
	minut += 60
	'<<$loverdesc[lover_number]>> drives you to the home of his parents. You get out and take the elevator. The door opens after only knocking once. It seems clear that they were waiting for you. You enter the apartment and are greeted by an elderly gray-haired woman dressed in trousers and a shirt. You are told to switch into a pair of slippers and are then led down a hallway into another room where the elderly woman invites you to sit down at a table.'
	'<<$loverdesc[lover_number]>> pulls out a chair for you and you sit down. His mother places herself in front of the two of you. She looks at you with disgust in her eyes, looking like an overgrown insect, clearly thinking you are not a girl for her son. "So, darling, what do you do for a living?"'

	if (work = 1 or cheatWork = 1) and workKafe = 1:'"I am a waitress in a cafe."'
	if student > 0 and diplom = 0:'"I study at the university."'
	if diplom = 1:'"I graduated from university."'
	if work = 0 and cheatWork = 0 and workKafe ! 1:'"I''m unemployed."'

	if city_modelling > 30:
		loverrelation[lover_number] = 0
		'She smiles and says with disgust, "Why are you not telling us about the photos you shot for these web sites?" She pulls out the nude photos of you and lies them out on the table. "My son, your mother cares about you. This girl is not worthy of you."'
		'<<$loverdesc[lover_number]>> blushes and screams, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'

		act 'Leave':dynamic $brodilr

		exit
	end

	if kavslut > 0:
		loverrelation[lover_number] = 0
		'She smiles and says with disgust, "Son, everyone knows that this girl is a slut. <<$pcs_nickname>> does not just wait tables, she lets every customer, even the Armenians who go there, tear up every hole she has. She doesn''t deserve you!"'
		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'

		act 'Leave':dynamic $brodilr

		exit
	end

	if frot > 3:
		loverrelation[lover_number] = 0
		'She smiles and says with disgust, "Son, this girl is a slut and lets every pervert who settles down next to her on the subway grope her. She is not worthy of you!"'
		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'

		act 'Leave':dynamic $brodilr

		exit
	end

	if gloryhole > 30:
		loverrelation[lover_number] = 0
		'She smiles and says with disgust, "Son, your girlfriend moonlights at the sex shop, sucking the members of countless strangers. Do you want a wife like that? She is not worthy of you!"'
		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'

		act 'Leave':dynamic $brodilr

		exit
	end

	loverlove[lover_number] = 2
	'She looks at her son with tearful eyes and says, "Alright. Well son, it''s your choice. Who am I to interfere with your life? I just gave birth to you, nursed you and helped you grow up. But of course you are free to forget about your mom who loves you and only wishes the best for you. If you insist on keeping her, please do. I certainly don''t forbid it. "'
	'<<$loverdesc[lover_number]>> looks down, "Mom, what are you saying? Of course I love you, but <<$pcs_nickname>> is also very dear to me."'
	'His mother jumps up, her eyes flashing, "Son, you only met her recently, what do you even know about her?"'
	'<<$loverdesc[lover_number]>> takes a long time trying to persuade his mother and making excuses. Finally she lets you out of her predatory claws and you''re ready to leave.'

	act 'Leave':dynamic $brodilr
end

if $ARGS[0] = '1':
	cla
	*clr
	loverlove[lover_number] = 1
	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his friends.'
	'He tells you that you have to look chic, wear a dress from a boutique, be well-groomed with curled hair, use cosmetics only in moderation. He wants his friends to get green with envy.'
	'For your next date, if you are totally ready <<$loverdesc[lover_number]>> will take you to his friends.'

	act 'To invite':
		cla
		gt 'sexm', 'room'
	end
end

if $ARGS[0] = 'frends':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/z0.jpg"></center>'

	sexpartkno = 1
	gs 'boyStat', $lover[lover_number]
	gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
	gs 'boyStat', $npclastgenerated, 'a'
gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
	gs 'boyStat', $npclastgenerated, 'b'
	
	if proverka1 = 0 and proverka2 = 0 and proverka3 = 0 and proverka4 = 0 and proverka5 = 0:
		minut += 180
		'<<$loverdesc[lover_number]>> drives you to his friends. You arrive at an apartment and <<$loverdesc[lover_number]>> introduces you as his bride to two other guys. You sit down at a table set and talk for a couple of hours. Everybody has fun and after everyone finishes eating and drinking, <<$loverdesc[lover_number]>> invites you to dance, to which you gladly agree. <<$loverdesc[lover_number]>> is already pretty drunk and he''s bad at dancing, but still start to grope you, his hands squeezing your buttocks. Soon he runs them under your dress and continues to stroke your ass. He hitches up you skirt so everyone can see your panties. The other guys are sitting on the sofa intently staring at your buttocks. Soon one of them gets up he guys got up from the couch and comes over to you. "You have the best butt I''ve ever seen. I would like to check it out." he says, and slaps you on the buttocks making you jump. <<$loverdesc[lover_number]>> pulls you to him and tells the other guy "Stop that. She''s my girl. You can watch, but you can not touch."'
	end

	if city_modelling > 30 and proverka1 = 0:
		'"Calm down. I''ve already seen her naked. The Internet is full of naked pictures of her." the guy says.'
		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
		'"Yes, I did some naked photoshoots, but I only ever showed of my body. I never fucked anyone." you say'

		if pcs_intel <= 30:
			guy += 2
			picrand = 39
			loverrelation[lover_number] = 0
			'"I don''t care! Once everyone has seen you naked you are no better than a whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'

			act 'Further':xgt 'sexdvoe', 'var'
		elseif pcs_intel > 30:
			proverka1 = 1
			'You defend yourself for a a few minutes trying to tell him, that you didn''t do anything wrong and that his friends are just jealous. In the end, you manage to convince him, and <<$loverdesc[lover_number]>> agrees with you.'

			act 'Further':gt 'love', 'frends'
		end

		exit
	end

	if kavslut > 0 and proverka2 = 0:
		cla
		'"I''ve heard that your little <<$pcs_nickname>> doesn''t just wait the tables but also lets herself get fucked by the customers. I''ve even heard some Armenians brag about using her every hole." the boy says'
		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you. You can''t think of anything better so you start to cry.'
		'"Yes, these freaks raped me several times."'

		if pcs_intel <= 50:
			guy += 2
			picrand = 39
			loverrelation[lover_number] = 0
			'"I don''t care. Someone who says that she got raped several times clearly likes it and invites these situations." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'

			act 'Further':gt 'sexdvoe', 'var'
		elseif pcs_intel > 50:
			proverka2 = 1
			'You keep crying for a few minutes about the bastards who raped you and in the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and says that he will not allow anyone to hurt you again.'

			act 'Further':gt 'love', 'frends'
		end

		exit
	end

	if frot > 3 and proverka3 = 0:
		cla
		'"You don''t know who she really is. Everybody knows that this whore lets all the perverts in the subway fuck her in the car right in front of everyone, " says the boy'
		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
		'"What do you mean? How can you believe that even for a second?" you yell at him squeezing a tear from you eye.'

		if pcs_intel <= 40:
			guy += 2
			picrand = 39
			loverrelation[lover_number] = 0
			'"Shout your mouth, you whore! I believe my friends, when they say they it was you." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'

			act 'Further':gt 'sexdvoe', 'var'
		elseif pcs_intel > 40:
			proverka3 = 1
			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'

			act 'Further':gt 'love', 'frends'
		end

		exit
	end

	if gloryhole > 30 and proverka4 = 0:
		cla
		'"You know, this slut sucks other men''s cocks in the sex shop.?" the guy asks'
		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
		'"How can you believe that I would do that?" you cry. "And you''re a freak! How would you even know, unless you went there yourself?" you start to attack the guy.'

		if pcs_intel <= 60:
			guy += 2
			picrand = 39
			loverrelation[lover_number] = 0
			'"Shut your mouth, you whore! If my friends say it was you I believe them." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'

			act 'Further':gt 'sexdvoe', 'var'
		elseif pcs_intel > 60:
			proverka4 = 1
			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'

			act 'Further':gt 'love', 'frends'
		end

		exit
	end

	if film > 2 and proverka5 = 0:
		cla
		'"You know this slut has done porn movies?" the guy asks'
		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
		'"Yes, but that was long before I met you. It mad some mistakes when I was younger. I had a very difficult time, but I didn''t do this for a long time." you start trying to squeeze out a tear.'

		if pcs_intel <= 70 and izvrat = 0:
			guy += 2
			picrand = 39
			loverrelation[lover_number] = 0
			'"Shout your mouth! Doing porn clearly means you are just another whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'

			act 'Further':gt 'sexdvoe', 'var'
		elseif pcs_intel > 70 or izvrat = 1:
			proverka5 = 1
			'You keep explaining that you love him and that you made all these mistakes before you met him. In the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and whispers in your ear "I guess you still remeber a couple of tricks...I would like you to show them to me later."'

			act 'Further':gt 'love', 'frends'
		end

		exit
	end

	loverlove[lover_number] = 2
	'"Okay, it''s time to go, <<$pcs_nickname>>." says <<$loverdesc[lover_number]>>. You head for the exit.'
	act 'Leave':gt 'street'
end

if $ARGS[0] = '2':
	cla
	*clr
	'(Further actions are available.)'

	act 'To invite':
		cla
		gt 'sexm', 'room'
	end
end

--- love ---------------------------------