[fixed] some cum calls in 'artemEv', removed sub from flashing event in 'park'

locations/artemEv.qsrc

@@ -379,7 +379,7 @@ if $ARGS[0] = 'artdryhump':
 		'Artem freaks out and starts to panic. "Um yes mom, I will." He looks at you with a panicked looked, obviously afraid his mom almost caught dry humping a girl in his room. "I should really go do what my mom wants, see you tomorrow?"'
 		'You smile at him. "Maybe, I will have to see whats going on." With that you gather up your stuff and leave.'
 		gs 'arousal', 'foreplay', 2
-		gs 'cum_call','clothes', 'A2'
+		gs 'cum_call','clothes', 'A2', 1
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Leave': gt 'pod_ezd', 'etaj_1'
@@ -401,7 +401,7 @@ if $ARGS[0] = 'artdryhump1':
 		'Artem freaks out and starts to panic. "Um yes mom, I will." He looks at you with a panicked looked, obviously afraid his mom almost caught him dry humping a girl in his room. "I should really go do what my mom wants, see you tomorrow?"'
 		'You smile at him. "Maybe, I will have to see whats going on." With that you gather up your stuff and leave.'
 		gs 'arousal', 'foreplay', 2
-		gs 'cum_call','pantyrear', 'A2'
+		gs 'cum_call','pantyrear', 'A2', 1
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Leave': gt 'pod_ezd', 'etaj_1'
@@ -423,7 +423,7 @@ if $ARGS[0] = 'artdryhump2':
 		'Artem freaks out and starts to panic. "Um yes mom, I will." He looks at you with a panicked looked, obviously afraid his mom almost caught dry humping a girl in his room. "I should really go do what my mom wants, see you tomorrow?"'
 		'You smile at him. "Maybe, I will have to see whats going on." With that you gather up your stuff and leave.'
 		gs 'arousal', 'foreplay', 2
-		gs 'cum_call','butt', 'A2'
+		gs 'cum_call','butt', 'A2', 1
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Leave': gt 'pod_ezd', 'etaj_1'
@@ -450,7 +450,7 @@ if $ARGS[0] = 'hj':
 		end
 		artemhj += 1
 		gs 'arousal', 'hj', 5
-		gs 'cum_call', 'hands', 'A2'
+		gs 'cum_call', 'hands', 'A2', 1
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Clean up':
@@ -473,7 +473,7 @@ if $ARGS[0] = 'hj':
 			'You smile to him. "It''s ok, I like the way it tastes." He just smiles to you and looks at you as if you are the most amazing thing in the world. You finish cleaning off your hands then give him a quick kiss.'
 			cumspclnt = 9
 			gs 'cum_cleanup'
-			gs 'cum_call', 'mouth', 'A2'
+			gs 'cum_call', 'mouth', 'A2', 1
 			gs 'stat'
 			act 'Talk to him': gt 'artemhome', 'chat'
 			act 'Wander around his room': gt 'artemhome', 'artemroom'
@@ -518,8 +518,8 @@ if $ARGS[0] = 'artem_bj':
 					'He smiles but is still beet red. "Oh... ok."'
 					gs 'arousal', 'bj', 2
 					gs 'arousal', 'end'
-					gs 'cum_call', 'face', 'A2'
-					gs 'cum_call', 'mouth', 'A2'
+					gs 'cum_call', 'face', 'A2', 1
+					gs 'cum_call', 'mouth', 'A2', 1
 					gs 'stat'
 					act 'Talk to him': gt 'artemhome', 'chat'
 					act 'Wander around his room': gt 'artemhome', 'artemroom'
@@ -548,7 +548,7 @@ if $ARGS[0] = 'artem_bj':
 						'"You''re the best girlfriend a guy could hope for <<$pcs_nickname>>." He says as he grabs a tissues to clean up his dick and clean up the few drops of cum that landed on the floor.'
 						gs 'arousal', 'bj', 5
 						gs 'arousal', 'end'
-						gs 'cum_call', 'face', 'A2'
+						gs 'cum_call', 'face', 'A2', 1
 						gs 'stat'
 						act 'Talk to him': gt 'artemhome', 'chat'
 						act 'Wander around his room': gt 'artemhome', 'artemroom'
@@ -790,9 +790,9 @@ if $ARGS[0] = 'after_sex':
 	end
 	'With that you get up and start getting dressed and cleaned up. As you tell him. "I should probably get going."'
 	if $ARGS[1] = 'cp':
-		gs 'cum_call', 'vaginal', 'A2'
+		gs 'cum_call', 'vaginal', 'A2', 1
 	elseif $ARGS[1] = 'facial':
-		gs 'cum_call', 'face', 'A2'
+		gs 'cum_call', 'face', 'A2', 1
 	end
 	gs 'arousal', 'vaginal', 2
 	gs 'arousal', 'end'
@@ -820,7 +820,7 @@ if $ARGS[0] = 'bj':
 		'He happily nods: "It was great! Thanks <<$pcs_nickname>>, you''re the best."'
 		'With that you get up and start getting dressed and cleaned up. As you tell him. "I should probably get going."'
 		gs 'arousal', 'bj', 2
-		gs 'cum_call', 'face', 'A2'
+		gs 'cum_call', 'face', 'A2', 1
 		gs 'arousal', 'end'
 		minut += 10
 		gs 'stat'
@@ -869,7 +869,7 @@ if $ARGS[0] = 'anal':
 			end
 			'With that you get up and start getting dressed and cleaned up. As you tell him. "I should probably get going."'
 			gs 'arousal', 'hj', 2
-			gs 'cum_call', 'face', 'A2'
+			gs 'cum_call', 'face', 'A2', 1
 			gs 'arousal', 'end'
 			minut += 10
 			cumspclnt = 11
@@ -908,7 +908,7 @@ if $ARGS[0] = 'slut_bj':
 				'"I think we''re done for the day <<$pcs_nickname>>, I have some things I need to do, so can you please leave now." He says as he grabs a tissues to clean up his dick and clean up the few drops of cum that landed on the floor. He obviously wants you to leave so you gather up your clothes and get dressed.'
 				gs 'arousal', 'hj', 2, 'sub'
 				gs 'arousal', 'end'
-				gs 'cum_call', 'face', 'A2'
+				gs 'cum_call', 'face', 'A2', 1
 				minut += 10
 				gs 'stat'
 				act 'Leave': gt 'pod_ezd', 'etaj_1'
@@ -953,7 +953,7 @@ if $ARGS[0] = 'slut_fuck':
 					'"I think we''re done for the day <<$pcs_nickname>>, I have some things I need to do, so can you please leave now." He says as he grabs a tissues to clean up his dick and clean up the few drops of cum that landed on the floor. He obviously wants you to leave so you gather up your clothes and get dressed.'
 					gs 'arousal', 'hj', 2, 'sub'
 					gs 'arousal', 'end'
-					gs 'cum_call', 'face', 'A2'
+					gs 'cum_call', 'face', 'A2', 1
 					minut += 10
 					gs 'stat'
 					act 'Leave': gt 'pod_ezd', 'etaj_1'
@@ -992,7 +992,7 @@ if $ARGS[0] = 'slut_anal':
 				'"I think we''re done for the day <<$pcs_nickname>>, I have some things I need to do, so can you please leave now." He says as he grabs a tissues to clean up his dick and clean up the few drops of cum that landed on the floor. He obviously wants you to leave so you gather up your clothes and get dressed.'
 				gs 'arousal', 'hj', 2, 'sub'
 				gs 'arousal', 'end'
-				gs 'cum_call', 'face', 'A2'
+				gs 'cum_call', 'face', 'A2', 1
 				minut += 10
 				gs 'stat'
 				act 'Leave': gt 'pod_ezd', 'etaj_1'

locations/park.qsrc

@@ -49,26 +49,20 @@ if $ARGS[0] = 'start':
 		'Stands near the park <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
 	end
 
-	if $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20:
-		nurand = rand(0, 100)
-
-		if nurand >= 80:
+	if $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20 and rand(0, 100) >= 80:
+		gs 'arousal', 'flash', -5
+		'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
+		*nl
+		if pcs_inhib >= 35:
+			gs 'exhibitionism', 2
+			pcs_mood += 5
+			'"Nope!" you call back. "Just remembered not to!" You flip up the back of your skirt, flashing your ass at him and keep walking, a bit of a spring in your step.'
+		elseif pcs_inhib > 30:
+			inhib_exp += 1
+			'"Nah, just didn''t feel like it," you shrug and continue on your way.'
+		else
 			pcs_mood -= 5
-			SUB += 1
-			pcs_horny += SUB
-
-			'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
-			*nl
-			if pcs_inhib >= 35:
-				gs 'exhibitionism', 2
-				pcs_mood += 5
-				'"Nope!" you call back. "Just remembered not to!" You flip up the back of your skirt, flashing your ass at him and keep walking, a bit of a spring in your step.'
-			elseif pcs_inhib > 30:
-				inhib_exp += 1
-				'"Nah, just didn''t feel like it," you shrug and continue on your way.'
-			else
-				'You blush with shame and you try to walk out of his sight as fast as possible.'
-			end
+			'You blush with shame and you try to walk out of his sight as fast as possible.'
 		end
 	end