[added] mini events for incestuous PCs with cumeater trait after Nat-Kolka scenes

locations/natkolEv.qsrc

@@ -118,6 +118,7 @@ if $ARGS[0] = 'softsex':
 			gs 'arousal', 'end'
 			gs 'stat'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'tits'
 		end
 	end
 	act 'Make her give him an assjob':
@@ -161,6 +162,7 @@ if $ARGS[0] = 'softsex':
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Continue': gt 'natbelapt', 'natroom'
+				gs 'natkolEv', 'cumeater', 'labia'
 			end
 		end		
 	end	
@@ -545,16 +547,16 @@ if $ARGS[0] = 'natkolkaanalsex':
 		end
 	end
 end
-	
+
 if $ARGS[0] = 'kolkacum':
-!! ARGS[1] is used to determine where Kolka can cum.
-!!	0	should be used when there is no vaginal or anal penetration
-!!	1 	if there is vaginal penetration, missionary
-!!	2 	if there is vaginal penetration, cowgirl
-!!	3	if there is vaginal penetration, doggy
-!!	4	if there is anal penetration, missionary
-!!	5 	if there is anal penetration, cowgirl
-!!	6	if there is anal penetration, doggy
+	!! ARGS[1] is used to determine where Kolka can cum.
+	!!	0	should be used when there is no vaginal or anal penetration
+	!!	1 	if there is vaginal penetration, missionary
+	!!	2 	if there is vaginal penetration, cowgirl
+	!!	3	if there is vaginal penetration, doggy
+	!!	4	if there is anal penetration, missionary
+	!!	5 	if there is anal penetration, cowgirl
+	!!	6	if there is anal penetration, doggy
 	NatbelQW['KolkaSex'] += 1
 	! wiping deal variable
 	killvar 'natkolkadeal'
@@ -569,6 +571,7 @@ if $ARGS[0] = 'kolkacum':
 		'Natasha kneels down at Kolka''s feet and jerks his cock over her face rapidly. With a grunt, Kolka shoots a huge load of his cum onto Natasha''s face. By the time he''s done Natasha''s face and chest are covered in the cum that she didn''t manage to catch in her mouth.'
 		'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 		act 'Continue': gt 'natbelapt', 'natroom'
+		gs 'natkolEv', 'cumeater', 'face'
 	end
 	act 'Let him cum in her mouth':
 		*clr & cla
@@ -599,6 +602,7 @@ if $ARGS[0] = 'kolkacum':
 		'Natasha leans over Kolka''s cock and squeezes her tits together with one hand. With the other, she rapidly strokes his cock. With a grunt, Kolka shoots a huge load of his cum onto Natasha''s tits. By the time he''s done Natasha''s chest is covered in cum.'
 		'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 		act 'Continue': gt 'natbelapt', 'natroom'
+		gs 'natkolEv', 'cumeater', 'tits'
 	end
 	if ARGS[1] = 1:
 		gs 'arousal', 'voyeur_sex', 15, 'dom'
@@ -606,6 +610,7 @@ if $ARGS[0] = 'kolkacum':
 		gs 'stat'
 		act 'Let him cum on her belly':
 			*clr & cla
+			act 'Continue': gt 'natbelapt', 'natroom'
 			if rand(0,9) = 0:
 				NatbelQW['KolkaCP'] += 1
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiemissionary.mp4"></video></center>'
@@ -616,6 +621,7 @@ if $ARGS[0] = 'kolkacum':
 				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
 				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
+				gs 'natkolEv', 'cumeater', 'pussy'
 			else
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcumbelly.mp4"></video></center>'
 				'After a few more minutes Kolka says "I''m going to cum."'
@@ -623,11 +629,12 @@ if $ARGS[0] = 'kolkacum':
 				'"Cum on her belly."'
 				'With a grunt Kolka pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting a huge load all over Natasha''s belly and pussy. By the time he''s done Natasha''s belly is covered in cum, some even reached her tits.'
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				gs 'natkolEv', 'cumeater', 'belly'
 			end
-			act 'Continue': gt 'natbelapt', 'natroom'
 		end
 		act 'Let him cum on her pussy':
 			*clr & cla
+			act 'Continue': gt 'natbelapt', 'natroom'
 			if rand(0,9) = 0:
 				NatbelQW['KolkaCP'] += 1
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiemissionary.mp4"></video></center>'
@@ -638,6 +645,7 @@ if $ARGS[0] = 'kolkacum':
 				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or if she enjoyed it. Maybe both at the same time?'
 				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
+				gs 'natkolEv', 'cumeater', 'pussy'
 			else
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcumpussy.mp4"></video></center>'
 				'After a few more minutes Kolka says "I''m going to cum."'
@@ -645,8 +653,8 @@ if $ARGS[0] = 'kolkacum':
 				'"Cum on her pussy."'
 				'With a grunt Kolka pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting his load all over Natasha''s pussy. By the time he''s done Natasha''s pussy is covered in cum, some dripping down her ass.'
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				gs 'natkolEv', 'cumeater', 'labia'
 			end
-			act 'Continue': gt 'natbelapt', 'natroom'
 		end
 		if NatbelQW['KolkaCP'] > 0:
 			act 'Let him cum inside her':
@@ -659,6 +667,7 @@ if $ARGS[0] = 'kolkacum':
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
 				act 'Continue': gt 'natbelapt', 'natroom'
+				gs 'natkolEv', 'cumeater', 'pussy'
 			end		
 		end
 	end
@@ -668,6 +677,7 @@ if $ARGS[0] = 'kolkacum':
 		gs 'stat'
 		act 'Let him cum on her ass':
 			*clr & cla
+			act 'Continue': gt 'natbelapt', 'natroom'
 			if rand(0,9) = 0:
 				NatbelQW['KolkaCP'] += 1
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampieride.mp4"></video></center>'
@@ -678,6 +688,7 @@ if $ARGS[0] = 'kolkacum':
 				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or if she enjoyed it. Maybe both at the same time?'
 				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
+				gs 'natkolEv', 'cumeater', 'pussy'
 			else
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcumride.mp4"></video></center>'
 				'After a few more minutes Kolka says "I''m going to cum."'
@@ -685,8 +696,8 @@ if $ARGS[0] = 'kolkacum':
 				'"Cum on her ass."'
 				'With a grunt Kolka pulls his cock out of Natasha''s pussy at the last second and starts jerking it over her ass, shooting a huge load all over Natasha''s ass.  By the time he''s done Natasha''s ass is covered in cum, some even reached lower back.'
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				gs 'natkolEv', 'cumeater', 'butt'
 			end
-			act 'Continue': gt 'natbelapt', 'natroom'
 		end
 		if NatbelQW['KolkaCP'] > 0:
 			act 'Cum inside':
@@ -699,6 +710,7 @@ if $ARGS[0] = 'kolkacum':
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
 				act 'Continue': gt 'natbelapt', 'natroom'
+				gs 'natkolEv', 'cumeater', 'pussy'
 			end
 		end
 	end
@@ -708,6 +720,7 @@ if $ARGS[0] = 'kolkacum':
 		gs 'stat'
 		act 'Let him cum on her ass':
 			*clr & cla
+			act 'Continue': gt 'natbelapt', 'natroom'
 			if rand(0,9) = 0:
 				NatbelQW['KolkaCP'] += 1
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiedoggy.mp4"></video></center>'
@@ -718,6 +731,7 @@ if $ARGS[0] = 'kolkacum':
 				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or if she enjoyed it. Maybe both at the same time?'
 				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
+				gs 'natkolEv', 'cumeater', 'pussy'
 			else
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcumassdoggy.mp4"></video></center>'
 				'After a few more minutes Kolka says "I''m going to cum."'
@@ -725,8 +739,8 @@ if $ARGS[0] = 'kolkacum':
 				'"Cum on her ass."'
 				'With a grunt Kolka pulls his cock out of Natasha''s pussy at the last second and starts jerking it over her ass, shooting a huge load all over Natasha''s ass  By the time he''s done Natasha''s ass is covered in cum, some even reached her lower back.'
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				gs 'natkolEv', 'cumeater', 'butt'
 			end
-			act 'Continue': gt 'natbelapt', 'natroom'
 		end
 		if NatbelQW['KolkaCP'] > 0:
 			act 'Let him cum inside':
@@ -739,6 +753,7 @@ if $ARGS[0] = 'kolkacum':
 				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 				if rand(1,100) >= 95 and NatbelQW['pregday'] = 0: NatbelQW['pregday'] = daystart
 				act 'Continue': gt 'natbelapt', 'natroom'
+				gs 'natkolEv', 'cumeater', 'pussy'
 			end
 		end
 	end
@@ -756,6 +771,7 @@ if $ARGS[0] = 'kolkacum':
 			'With a grunt Kolka pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting a huge load of his cum all over Natasha''s pussy. By the time he''s done Natasha''s pussy is covered in cum, some dripping down her ass.'
 			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'labia'
 		end
 		act 'Let him cum inside':
 			*clr & cla
@@ -764,6 +780,7 @@ if $ARGS[0] = 'kolkacum':
 			'As if on command Kolka starts shooting his load into her ass. After a second he takes his dick out and shoots the rest of his load onto her asshole.'
 			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'anus'
 		end
 	end
 	
@@ -779,6 +796,7 @@ if $ARGS[0] = 'kolkacum':
 			'As if on command Kolka starts shooting his load into her ass. When he pulls out, Natasha rolls off him and you can see some of it dripping out of her full asshole.'
 			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'anus'
 		end
 	end
 		
@@ -795,6 +813,7 @@ if $ARGS[0] = 'kolkacum':
 			'With a grunt Kolka pulls his cock out of Natasha''s ass at the last second and starts jerking it, shooting a huge load all over Natasha''s ass. By the time he''s done Natasha''s ass is covered in cum, some even reached her lower back.'
 			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'butt'
 		end
 		act 'Let him cum inside':
 			*clr & cla
@@ -804,6 +823,50 @@ if $ARGS[0] = 'kolkacum':
 			'He pushes his dick back into her ass a few more times. Each time he takes it out some of his cum seeps out as well.'
 			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
 			act 'Continue': gt 'natbelapt', 'natroom'
+			gs 'natkolEv', 'cumeater', 'anus'
+		end
+	end
+end
+
+if $ARGS[0] = 'cumeater':
+	!! viable locations: face, tits, belly, labia, pussy, butt, anus
+	if trt_cumeater = 1 and brotherSex >= 6:
+		cla
+		$temp_loc = $ARGS[1]
+		*nl
+		'Seeing the cum on Natasha''s body, you get a sudden urge to lap it up.'
+		act iif($temp_loc = 'pussy' or $temp_loc = 'anus','Eat Kolka''s cum out of Natasha''s <<$temp_loc>>','Lick Kolka''s cum off Natasha''s <<$temp_loc>>'):
+			*clr & cla
+			if $temp_loc = 'labia' or $temp_loc = 'pussy' or $temp_loc = 'anus':
+				'<center><video autoplay loop src="images/shared/sex/cum/eat/eat_cum_<<$temp_loc>>.mp4"></video></center>'
+				'After Kolka closes the door you move closer to Natasha who''s still recovering her breath on the bed. His cum is slowly starting to drip '+iif($temp_loc='labia','off','out of')+' her <<$temp_loc>>, which simply becomes too much for you to bear. You jump on the bed, startling her'+iif($temp_loc='labia','',' and flip her over on all fours')+', then dive mouth first towards her '+iif($temp_loc='labia','cum glazed','cream filled')+' hole. Natasha is in no condition to stop you so all you hear are strained moans of protest and pleasure as you happily slurp and lick the sticky mixture of her juices and Kolka''s spunk from '+iif($temp_loc='anus','her stretched anal ring.','between her pink pussy petals.')
+				'This goes on for about three minutes until you''re satisfied you got most of your snack '+iif($temp_loc='labia','off','out of')+' the Natasha-shaped cum dispenser who is now lying there, chest heaving, with eyes glazed over and only able to produce incoherent groaning noises. If you weren''t so absorbed in getting to the cum, you would have noticed she came twice in these last three minutes. You feel a tinge of pitty for the poor girl after you '+iif($temp_loc='labia','get up','push her off you')+' and see the state she''s in. Pulling the bed covers over her naked body, you give her a small kiss on the lips and leave her room, hoping she has some nice dreams in her orgasm-induced coma.'
+				gs 'arousal', iif($temp_loc='anus','rimming_give','cuni_give'), 3, 'lesbian', 'dom'
+				gs 'arousal', 'kiss', 1, 'lesbian', 'dom'
+				minut += 1
+				gs 'npc_relationship', 'modify', 'A16', 'love'
+				act 'Leave the apartment': gt 'pod_ezd', 'etaj_4'
+			else
+				'<center><video autoplay loop src="images/shared/sex/cum/eat/eat_cum_<<$temp_loc>>.mp4"></video></center>'
+				'After Kolka closes the door you move closer to Natasha who''s still recovering her breath on the bed. His cum is slowly starting to slide down her skin, which simply becomes too much for you to bear. You jump on the bed, startling her and dive mouth first towards her cum covered <<$temp_loc>>. Natasha is in no condition to stop you so all you hear are strained moans of protest and pleasure as you happily slurp and lick the spunk off her body.'
+				'You continue to give her a thorough tongue cleaning for the next two minutes until you find no more stray drops, while your Natasha-shaped cum platter is just lying there giggling, with eyes glazed over and clearly enjoying your ministrations. When you pull away from her you see a teasing look on Natasha''s face which makes you blush a little realizing you lost control there for a moment. Fortunately she doesn''t say anything, gives you a quick peck on the cheek and carries on getting dressed like nothing happened.'
+				gs 'arousal', 'foreplay_give', 2, 'lesbian', 'dom'
+				gs 'arousal', 'kiss', 1, 'lesbian'
+				gs 'npc_relationship', 'modify', 'A16', 'like'
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end
+			gs 'boyStat', 'A34'
+			cumnostd = 1
+			gs 'cum_call', 'mouth', 'A34', 1
+			gs 'arousal', 'end'
+			killvar 'temp_loc'
+			gs 'stat'
+		end
+		gs 'willpower', 'swallow', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Resist the urge (<<will_cost>> Willpower)': killvar 'temp_loc' & gs 'willpower', 'pay', 'resist' & gt 'natbelapt', 'natroom'
+		else
+			act 'Resist the urge (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 end