[fixed] Restricted orgasms to direct stimulation only

locations/arousal.qsrc

@@ -27,6 +27,8 @@ $orgasm_txt is used to add custom text that will be called if Sveta orgasms in t
 
 temp_anal = 0
 temp_unaware = 0
+!!orgasms restricted to direct stimulation using this flag
+orgasm_flag = 0
 
 if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0] ! 'count2':
 
@@ -79,6 +81,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 
 !!add count and effects due to action
 	if $ARGS[0] = 'masturbate':
+		orgasm_flag = 1
 		count['mast'] = 1
 		stim['mag'] += 6
 		stim['act'] = 100
@@ -99,18 +102,22 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 	elseif $ARGS[0] = 'foreplay':
 		stim['act'] = 20
 	elseif $ARGS[0] = 'cuni':
+		orgasm_flag = 1
 		count['cuni'] = 1
 		stim['mag'] += 4
 		stim['act'] = 80
 	elseif $ARGS[0] = 'rimming':
+		orgasm_flag = 1
 		count['rimming'] = 1
 		stim['act'] = 30
 	elseif $ARGS[0] = 'trib':
+		orgasm_flag = 1
 		count['trib'] = 1
 		stim['mag'] += 3
 		stim['act'] = 70
 		stim_les = 1
 	elseif $ARGS[0] = 'anal':
+		orgasm_flag = 1
 		temp_anal = 1
 		if temp_unaware = 1:
 			count['hidden_anal'] = 1
@@ -144,10 +151,12 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
 	elseif $ARGS[0] = 'anal_finger':
+		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_finger'] = 1
 		stim['act'] = 40
 	elseif $ARGS[0] = 'anal_fist':
+		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_fist'] = 1
 		gs 'pain', 4-agape, 'asshole', 'stretch'
@@ -157,6 +166,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 			if agape < 3:agape = 3
 		end
 	elseif $ARGS[0] = 'anal_dildo':
+		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_dildo'] = 1
 		!! the same as for 'anal'
@@ -174,6 +184,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
 	elseif $ARGS[0] = 'anal_strap':
+		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_strap'] = 1
 		!! the same as for 'anal'
@@ -191,11 +202,13 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
 	elseif $ARGS[0] = 'anal_vibe':
+		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_vibe'] = 1
 		stim['mag'] += 1
 		stim['act'] = 60
 	elseif $ARGS[0] = 'vaginal':
+		orgasm_flag = 1
 
 		!! pre-cum check
 		if rand(0,120) < ARGS[1]: cumprecheck = 1 & gs 'cum_manage'
@@ -237,10 +250,12 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
 	elseif $ARGS[0] = 'vaginal_finger':
+		orgasm_flag = 1
 		count['vaginal_finger'] = 1
 		stim['mag'] += 1
 		stim['act'] = 80
 	elseif $ARGS[0] = 'vaginal_fist':
+		orgasm_flag = 1
 		count['vaginal_fist'] = 1
 		stim['act'] = 70
 		gs 'pain', 3 - vgape, 'vaginal', 'stretch'
@@ -250,6 +265,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 			if vgape < 3:vgape = 3
 		end
 	elseif $ARGS[0] = 'vaginal_dildo':
+		orgasm_flag = 1
 		count['vaginal_dildo'] = 1
 		stim['mag'] += 1
 		!! the same as for 'vaginal'
@@ -267,6 +283,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
 	elseif $ARGS[0] = 'vaginal_strap':
+		orgasm_flag = 1
 		count['vaginal_strap'] = 1
 		stim['mag'] += 1
 		!! virginal capacity increase
@@ -287,6 +304,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
 	elseif $ARGS[0] = 'vaginal_vibe':
+		orgasm_flag = 1
 		count['vaginal_vibe'] = 1
 		stim['mag'] += 2
 		stim['act'] = 90
@@ -590,7 +608,7 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 
 	orgasm_buildup += stim['total']
 
-	if $orgasm_or ! 'no' and $ARGS[0] ! 'flashlite' and $ARGS[0] ! 'flash':
+	if $orgasm_or ! 'no' and $ARGS[0] ! 'flashlite' and $ARGS[0] ! 'flash' and orgasm_flag ! 0:
 		if $orgasm_or = 'yes' or $orgasm_or = 'custom':
 			gs 'orgasm', $ARGS[0]
 		elseif orgasm_buildup >= 100 and stim['total'] > 10 and rand(1,100) <= 20: