Merge remote-tracking branch 'Anya/master'

locations/city_irinaroom.qsrc

@@ -1,15 +1,16 @@
 # city_irinaroom
 
 if $ARGS[0] = 'start':
-	cla
-	*clr
+	CLOSE ALL
 	$menu_loc = 'city_irinaroom'
 	$menu_arg = 'start'
+	if frost > 0:frost = 0
 	menu_off = 0
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
-	'<center><b><font color="maroon">Entrance where your girlfriend Ira lives</font></b></center>'
+	*clr & cla
+	'<center><b><font color="maroon">Irina''s front door</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 
 	act 'Leave':
@@ -18,15 +19,14 @@ if $ARGS[0] = 'start':
 		gt 'city_residential'
 	end
 
-	act 'Ring Iras doorbell':
+	act 'Ring Ira''s doorbell':
 		cla
-
 		if hour >= 16 and hour <= 21 and week >= 6 and IrinaQW ! 2:
-			'You ring the bell and Ira opens the door, she smiles and invites you in.'
+			'You ring the doorbell, and hear light footsteps coming towards the door. Irina opens up the door and tells you to enter, delighted to see you.' 
 
 			act 'Enter apartment':gt 'city_irinaroom', 'first'
 		else
-			'You rang the doorbell but no one answers.'
+			'When you ring the doorbell, no one answers.'
 
 			act 'Leave':
 				cla
@@ -38,91 +38,74 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'first':
-	cla
-	clr
-	*clr
+	*clr & cla
 	$menu_loc = 'city_irinaroom'
 	$menu_arg = 'first'
 	menu_off = 0
 	gs 'stat'
 	'<center><b><font color="maroon">Apartment Ira</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaroom.jpg"></center>'
-	'A small studio apartment, Ira keeps it neat and tidy'
+	'It''s a small studio apartment which Irina keeps neat and tidy. There''s not much to see, there''s a decently sized living room with a smaller kitchen area.'
 
-	act 'Drink in the kitchen':gt 'city_irinaroom', 'first1'
+	act 'Have a drink in the kitchen':gt 'city_irinaroom', 'first1'
 end
 
 if $ARGS[0] = 'first1':
-	cla
-	clr
-	*clr
+	*clr & cla
+	$locclass = 'kitr'
+	menu_off = 1
 	minut += 60
-	pcs_mood += 50
+	pcs_mood += 20
+	alko += 4
 	if pcs_hydra >= 100:
 		pcs_hydra -= 5
 	else
 		pcs_hydra -= 10
 	end
-	$locclass = 'kitr'
-	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaqw.jpg"></center>'
-	'You and Ira settle in the kitchen with a bottle of wine and some fruits, you talk and chat merrily.'
-	'You''re both a bit tipsy and the conversation becomes more candid.'
+	'You and Irina head into the kitchen, where she takes out a bottle of wine and also some crackers and cheese for you to enjoy. You''re really enjoying each other''s company.' 
+	'The conversation is turning more heated, as both of you are feeling the effect of the wine.' 
 
 	act 'Leave':gt 'city_residential'
-
-	if IrinaQW = 1:
-		act 'Suggest drinking to sisterhood':gt 'city_irinaroom', 'first2'
-	end
-
-	if IrinaQW >= 10:
-		act 'Kiss':gt 'city_irinaroom', 'kiss'
-	end
+	if IrinaQW = 1: act 'Suggest drinking to sisterhood':gt 'city_irinaroom', 'first2'
+	if IrinaQW >= 10: act 'Kiss her':gt 'city_irinaroom', 'kiss'
 end
 
 if $ARGS[0] = 'kiss':
-	cla
-	*clr
-	pcs_mood += 50
-	clr
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinakiss.jpg"></center>'
-	'You passionately kiss Ira, and caress her firm breasts with your hands.'
+	'As your eyes meet, you grab hold of the opportunity and almost lunge towards Irina as you start passionately kissing her. Taken aback for a second, she relaxes and responds by teasing you as she bites your lip as you go back to making out. You can''t contain yourself as you start exploring her body, touching her sensitive spots with your hands.'
 
 	gs 'arousal', 'kiss', 10, 'lesbian'
+	pcs_mood += 30
 	gs 'stat'
 
-	act 'Sex':gt 'city_irinaroom', 'sex'
+	act 'Have sex':gt 'city_irinaroom', 'sex'
 end
 
 if $ARGS[0] = 'sex':
-	cla
-	clr
-	*clr
-	pcs_mood += 50
-	pcs_mood = 100
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinasex.jpg"></center>'
 
 	if pcs_horny < 50:
-		'Once in bed you caress each other with passion and lick each others wet pussies. But the excitement gradually disappears and you feel that you won''t orgasm this time.'
+		'Her eyes are saying everything, and before you know it you''ve ended up in her bed. Once in bed, you quickly get undressed, and explore each other''s bodies for a long moment. The anticipation is unbearable as you start playing with her clit and slide a finger inside her as she starts moaning profoundly, shortly thereafter orgasming. With her wanting to return the favor, she excitedly starts eating you out, but she''s being sloppy and isn''t able to make you orgasm...'
 
 		$orgasm_or = 'no'
 		gs 'arousal', 'cuni', 60, 'lesbian'
-		gs 'arousal', 'cuni_give', 60, 'lesbian'
-		minut -= 60
+		gs 'arousal', 'cuni_give', -60, 'lesbian'
+		pcs_mood += 10
 		gs 'stat'
 
 	end
 
 	if pcs_horny >= 50:
-		'Once in bed you caress each other with passion and lick each others wet pussies. Finally you are both satisfied.'
+		'Her eyes are saying everything, and before you know it you''ve ended up in her bed. Once in bed, she undresses you, and starts exploring your body, turning you on even more. The anticipation is unbearable as she starts playing with your clit and it doesn''t take long before she slides a finger inside you as you start moaning profoundly. Playing off your reactions, she picks up the pace and it doesn''t take long before you orgasm. As you calm down, you excitedly return the favor and start eating her out, returning the favor.'
 
 		$orgasm_or = 'yes'
 		gs 'arousal', 'cuni', 60, 'lesbian'
-		gs 'arousal', 'cuni_give', 60, 'lesbian'
-		minut -= 60
+		gs 'arousal', 'cuni_give', -60, 'lesbian'
+		pcs_mood += 50
 		gs 'stat'
 
 	end
@@ -136,42 +119,37 @@ if $ARGS[0] = 'sex':
 end
 
 if $ARGS[0] = 'first2':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 60
 	pcs_mood += 50
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaqw1.jpg"></center>'
-	'You suggest drinking to sister to Ira. Although slightly odd, this simple ritual removes tensions and brings you closer.'
+	'You toast to sisterhood, and you notice that Irina is looking at you strangely, but she follows along and raises her glass and begins laughing, "I didn''t expect to hear that from you, <<$pcs_firstname>>." You feel a slight bond building between the two of you.'
 
 	act 'Kiss':gt 'city_irinaroom', 'first3'
 end
 
 if $ARGS[0] = 'first3':
-	cla
-	clr
-	*clr
-	pcs_mood += 50
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaqw2.jpg"></center>'
-	'You kiss Ira on her warm, soft, wine smelling lips. Irina flushes after the kiss and looks at you a little embarrassed and frightened.'
+	'Without being able to hold out further, you kiss Ira on her warm, soft lips. Irina is noticeably flustered after the kiss and looks at you, a little embarrassed and frightened.'
 
+	pcs_mood += 50
 	gs 'arousal', 'kiss', 5, 'lesbian'
 	gs 'stat'
 
-	act 'Ira undress':gt 'city_irinaroom', 'first4'
-	act 'Ira drink more':gt 'city_irinaroom', 'first5'
+	act 'Undress her':gt 'city_irinaroom', 'first4'
+	act 'Drink some more':gt 'city_irinaroom', 'first5'
 end
 
 if $ARGS[0] = 'first4':
-	cla
-	clr
-	*clr
+	*clr & cla
 	IrinaQW = 2
+	pcs_mood -= 30
 	gs 'stat'
-	'You started unbuttoning Iras blouse, she jumps up and leaps from her chair screaming, "What are you doing? I''m not a lesbian!"'
-	'She seems very afraid of your forwardness and points you to the door.'
+	'You smile mischievously as you tug at Irinas'' blouse, but before you''re able to start unbuttoning her, she pushes you off, and leaps from her chair screaming, "What are you doing?! I''m not a lesbian! Get out!"'
+    'She seems freaked out by your forwardness and points towards the door.'
+    '"I-I''m sor..." you try to tell her, but she''s not really in the mood to hear your excuses and just stands by the door waiting for you to leave as quickly as possible.'
 
 	act 'Leave':
 		cla
@@ -181,82 +159,69 @@ if $ARGS[0] = 'first4':
 end
 
 if $ARGS[0] = 'first5':
-	cla
-	clr
-	*clr
-	IrinaQW = 10
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinaqw3.jpg"></center>'
-	'You pumped Ira with wine, she is highly intoxicated and spilled wine on myself. She went into the bathroom to change. You, too, went in and offered to help her.'
-	'She undresses and you have decided to follow suit and after undressing climb into the shower. You start lathering her body and see that she is flushed and her nipples erect.'
-	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
+	'The two of you continue drinking, with Irina getting quite intoxicated as she starts laughing at something and manages to spill her glass of wine all over the both of you. "I''m so sorry, <<$pcs_firstname>>... I didn''t mean to... Come with me." She grabs you by the hand and staggers towards the bathroom.'
+	'She leads you inside the bathroom and starts undressing herself as she turns on the shower and steps into it. Seeing her naked body, you decide to follow suit and quickly undress and climb into the shower.' 
+	'"Could you help me out with my back?" She hands you a loofah, and as you start lathering her body you notice her nipples are erect.'
+	IrinaQW = 10
+	alko += 3
 	noShampoo = 1
 	dynamic $showerdin
-	if frost > 0:frost = 0
+	pcs_hairbsh = 1
+	pcs_makeup = 1
+	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
-	gs 'arousal', 'foreplay', 10, 'lesbian'
+	gs 'arousal', 'foreplay', 15, 'lesbian'
 	gs 'stat'
 
 	act 'Kiss':gt 'city_irinaroom', 'first6'
 end
 
 if $ARGS[0] = 'first6':
-	cla
-	clr
-	*clr
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinaqw4.jpg"></center>'
-	'You passionately hold your lips to Iras luscious lips, she suddenly says, "You kiss very passionately."'
+	'Dropping the loofah on the ground, you turn Irina around and passionately start kissing her. She lets out faint moans as your hands travel all over her, making her even more turned on than before.'
+	'Between moans, she says "Don''t stop, please. I''m all yours..."'
 
 	gs 'arousal', 'kiss', 5, 'lesbian'
 	gs 'stat'
 
-	act 'Fondle breasts':gt 'city_irinaroom', 'first7'
+	act 'Fondle her breasts':gt 'city_irinaroom', 'first7'
 end
 
 if $ARGS[0] = 'first7':
-	cla
-	clr
-	*clr
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinaqw5.jpg"></center>'
-	'You lower your head to her chest and began to suck and lick her hard nipples as Ira moans in pleasure.'
+	'Giving into temptation, you lower your head and start sucking and licking her hard nipples. As your hand slides down towards her pussy, Irina moans even louder in pleasure.'
 
 	gs 'arousal', 'foreplay_give', 5, 'lesbian'
 	gs 'stat'
 
-	act 'Lick pussy':gt 'city_irinaroom', 'first8'
+	act 'Lick her pussy':gt 'city_irinaroom', 'first8'
 end
 
 if $ARGS[0] = 'first8':
-	cla
-	clr
-	*clr
-	pcs_horny += 20
-	girl += 1
-	lesbian += 1
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinaqw6.jpg"></center>'
-	'Your mouth begins to wander lower and lower until you come to Iras pussy. Moisture is already seeping from it and your tongue begins to caress her clit. Soon she shudders and moans in orgasm.'
-	'Ira decides to pay you back in the same coin and not speaking a word puts you on the edge of the tub and her lips sink into your pussy.'
+	'You keep on your journey downwards as your mouth continues wandering lower and lower until you arrive at the end goal, Irina''s moist pussy. You barely brush against it with your fingers, making her flinch with excitement.'
+    '"Enough teasing," you proclaim as your tongue begins licking her clit. The foreplay has prepared her body for a quick orgasm, and before you know it, she reaches her climax as she grabs you by the hair, without letting you move away as she loses herself in the orgasm.'
+    'As she comes back to her senses, Irina quickly gets into the position to please you. She points at the edge of the tub for you to take a seat and starts eating you out.'
 
 	gs 'arousal', 'cuni', 10, 'lesbian'
-	gs 'arousal', 'cuni_give', 10, 'lesbian'
-	minut -= 10
+	gs 'arousal', 'cuni_give', -10, 'lesbian'
 	gs 'stat'
 
 	act 'Enjoy':gt 'city_irinaroom', 'first9'
 end
 
 if $ARGS[0] = 'first9':
-	cla
-	clr
-	*clr
-	pcs_mood = 100
-	gs 'stat'
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/sex/irinaqw7.jpg"></center>'
-	'Iras lips and tongue quickly have an effect and you finish with passionate moans.'
+	'You''re just as excited as she was and it doesn''t take long before Irina''s tongue has the same effect as you had on her, "Don''t you dare to stop, I''m so near." panting you reach the climax and bury her head inside you.'
+    'Your knees are weak, but you have her rise up and lick your juices from her lips. "This is only the start, I''m so going to have fun with you," you tell her as she starts blushing...'
 
+	pcs_mood = 100
 	$orgasm_or = 'yes'
 	gs 'arousal', 'cuni', 10, 'lesbian'
 	gs 'stat'