[Added] small Lariska event at GM store in Pavlovsk

locations/gschool_socialchg1.qsrc

@@ -882,6 +882,132 @@ if $ARGS[0] = 'Chris_Lina_park':
 	act 'Leave':gt 'pav_park', 'start'
 end
 
+if $ARGS[0] = 'lariska_gm_1':
+	cla & *clr
+	menu_off = 1
+	lari_gm = daystart
+	gs 'npc_relationship', 'modify', 'A13', 'like'
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big13.jpg"></center>'
+	if LariskaQW['story'] = 4:
+		'She sees you coming in the store behind her, smiles, and says "Hey, <<$pcs_nickname>>. Want to do some shopping with me?"'
+		'"What are you shopping for?"'
+		'"New exercise clothes. Mine are getting a bit frayed."'
+		act 'Leave the store': gt 'pav_industrial'
+		act 'Stay and shop alone': gt 'budgetclothes', 'start'
+		act 'Offer to try on clothes with Lariska': gt 'gschool_socialchg1', 'lariska_gm_2'
+	else
+		if npc_rel['A13'] >= 50 and fame['pav_slut'] < 200:
+			'She sees you coming in the store behind her, smiles, and says "Hey, <<$pcs_nickname>>. Want to do some shopping with me?"'
+			'"What are you shopping for?"'
+			'"New exercise clothes. Mine are getting a bit frayed."'
+			act 'Leave the store': gt 'pav_industrial'
+			act 'Stay and shop alone': gt 'budgetclothes', 'start'
+			act 'Offer to try on clothes with Lariska': gt 'gschool_socialchg1', 'lariska_gm_2'
+		elseif npc_rel['A13'] <= 20 and fame['pav_slut'] < 200:
+			'She sees you coming in the store behind her and frowns, but doesn''t say anything.'
+			'"Hey Lariska. Doing some shopping?"'
+			'She just looks at you, but doesn''t respond at all. It''s pretty obvious she wants nothing to do with you.'
+			act 'Leave the store': gt 'pav_industrial'
+			act 'Stay and shop alone': gt 'budgetclothes', 'start'
+		elseif fame['pav_slut'] >= 200:
+			'She sees you coming in the store behind her, and with a disgusted look on her face says "What are <i>you</i> doing here? This place doesn''t sell slutty enough clothes for you."'
+			'Your face turns red with anger, and you respond with "At least I make my own decisions. Are you even allowed to be here without Christina keeping an eye on you?"'
+			'She just sneers at you. "Go fuck yourself, slut." With that, she turns and leaves the store, obviously not wanting to shop anymore.'
+			act 'Leave the store': gt 'pav_industrial'
+			act 'Stay and shop alone': gt 'budgetclothes', 'start'
+		else
+			'She sees you coming in the store behind her, nods, and says "Hey, <<$pcs_nickname>>. Doing some shopping?"'
+			'"Yeah, though just mostly looking around. What are you shopping here for?"'
+			'"New exercise clothes. Mine are getting a bit frayed."'
+			act 'Leave the store': gt 'pav_industrial'
+			act 'Stay and shop alone': gt 'budgetclothes', 'start'
+			act 'Offer to try on clothes with Lariska': gt 'gschool_socialchg1', 'lariska_gm_2'
+		end
+	end
+end
+
+if $ARGS[0] = 'lariska_gm_2':
+	cla & *clr
+	menu_off = 1
+	gs 'npc_relationship', 'modify', 'A13', 'like'
+	minut += 20
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_1.jpg"></center>'
+	'You and Lariska try on random clothes, emerging from your changing rooms like you were models walking down a catwalk.'
+	act 'Continue':
+		cla & *clr
+		menu_off = 1
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_2.jpg"></center>'
+		'Eventually you start changing in the same room, laughing and giggling as you try on the various items you picked out for each other.'
+		'At one point you catch her staring at you in the mirror, while you both are topless. You notice her nipples are hard, and checking her out, you feel yours getting hard too. Slipping an arm around her waist, you both stare at your reflections in the mirror, comparing yourselves to each other.'
+		if lariskalove < 7 and LariskaQW['story'] < 10:
+			'Eventually she gets embarrassed at the attention and turns away, her face bright red.'
+		else
+			'You smile at her through her reflection in the mirror, a suggestive look in your eyes.'
+		end
+		gs 'arousal', 'erotic_nudity', 10, 'exhibitionism'
+		gs 'stat'
+		act 'Leave the store':
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'pav_industrial'
+		end
+		act 'Stay and shop alone':
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'budgetclothes', 'start'
+		end
+		if lariskalove >= 7 and LariskaQW['story'] >= 10:
+			act 'Flirt with Lariska': gt 'gschool_socialchg1', 'lariska_gm_3'
+		end
+	end
+end
+
+if $ARGS[0] = 'lariska_gm_3':
+	cla & *clr
+	menu_off = 1
+	lariskalove += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_3.jpg"></center>'
+	'You maintain eye contact as you trail your hand down her back until you reach her panties. Soflty hooking your finger over them, you slowly drag them down until her pink pussy is exposed. Dropping your own panties, you gently push her against the mirror, taking a moment to enjoy the sight of her naked in the stand-up mirror, before pulling her into your arms and kissing her.'
+	gs 'arousal', 'erotic_nudity', 5
+	gs 'stat'
+	act 'Finger her':
+		cla & *clr
+		menu_off = 1
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_4.jpg"></center>'
+		'As you make out with her, you push her up against the wall and reach between her legs to rub her pussy. Her breath quickens as lust takes over and she starts exploring your body with her hands, keeping her lips locked on yours. Eventually her fingers find their way between your legs, and you both finger each other.'
+		gs 'arousal', 'vaginal_finger_give', 10, 'lesbian'
+		gs 'arousal', 'vaginal_finger', -10, 'lesbian'
+		gs 'stat'
+		act 'Keep going':
+			cla & *clr
+			menu_off = 1
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_5.jpg"></center>'
+			'You sit on the bench in the changing room, pulling her onto your lap while you continue to explore her mouth with your tongue. Her hips start moving, as if she was riding an imaginary cock, grinding her pussy into yours.'
+			gs 'arousal', 'trib', -8
+			gs 'stat'
+			act '69':
+				cla & *clr
+				menu_off = 1
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/sex/gm/gm_lariska_6.jpg"></center>'
+				'Face red with desire, Lariska stands up and pulls you off the bench and down to the floor, on your back. Straddling your bare chest, she buries her face between your legs, licking and slurping wildly. You do the same, licking her clit while thrusting your fingers inside her pussy.'
+				$orgasm_txt = 'You can tell she is getting close, her pussy is soaking wet and leaking like crazy. The sight and feel of her going wild on your clit sends you over the edge, and your body starts shaking. Your orgasm sets hers off as well, both of you writhing on the floor, attempting to keep licking your way through the others orgasm.'
+				$orgasm_or = 'custom'
+				'Exhausted, you let your head fall back while you catch your breath. You hear her panting and can feel her breath on your now sensitive lower lips as you come down in a post orgasmic bliss.'
+				'Once you catch your breath, you stand up and share a long kiss, while stroking her cheek with your hand. When you pull back from that, she seems to remember you''re in a public place and gets nervous, face red again.'
+				act 'Clean up and leave the store':
+					gs 'arousal', 'end'
+					gs 'stat'
+					gt 'pav_industrial'
+				end
+			end
+		end
+	end
+end
+
 if $ARGS[0] = 'tBella':
 	cla & *clr
 	menu_off = 1

locations/pav_industrial.qsrc

@@ -73,6 +73,10 @@ else
 	*pl 'The local G&M store is currently closed. Opening hours are Monday to Friday, between 08:00 to 20:00.'
 end
 
+if (week = 7 and hour >= 14 and hour < 20) or (week = 6 and hour >= 12 and hour < 17) and lari_gm ! daystart:
+	if rand(0, 3) = 0: 'You see <a href="exec: gt ''gschool_socialchg1'',''lariska_gm_1''">Lariska</a> going inside the G&M store.'
+end
+
 act 'Walk to the Five Eight estate (0:05)':minut += 5 & gt 'pav_complex', 'start'
 act 'Walk to the Residential area (0:05)':minut += 5 & gt 'pav_residential'
 act 'Walk to the Commercial area (0:05)':minut += 5 & gt 'pav_commercial'