[fixed] corrected cum leaking while sex

locations/arousal.qsrc

@@ -259,10 +259,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (agrdif + altdif)/5*max(1,ARGS[1]/5), 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
 		!! force cum leak
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumass > rand(pcs_ass/2,pcs_ass):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = agape
-			agape = max(1, min(4,(agrdif + altdif)/5))
+			agape = max(1, min(4,(agrdif + altdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			agape = temp_gape
 		end
@@ -346,10 +346,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
 		gs 'pain', (agrdif + altdif)/5*max(1,ARGS[1]/5), 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumass > rand(pcs_ass/2,pcs_ass):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = agape
-			agape = max(1, min(4,(agrdif + altdif)/5))
+			agape = max(1, min(4,(agrdif + altdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			agape = temp_gape
 		end
@@ -396,10 +396,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (agrdif + altdif)/5*max(1,ARGS[1]/5), 'asshole', 'stretch'
 		stim['act'] = stim['act'] - (agrdif + altdif)
 		!! force cum leak
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumass > rand(pcs_ass/2,pcs_ass):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = agape
-			agape = max(1, min(4,(agrdif + altdif)/5))
+			agape = max(1, min(4,(agrdif + altdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			agape = temp_gape
 		end
@@ -481,10 +481,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		gs 'pain', (vgrdif + vltdif)/5*max(1,ARGS[1]/5), 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
 		!! force cum leak
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumvag > rand(pcs_vag/2,pcs_vag):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = vgape
-			vgape = max(1, min(4,(vgrdif + vltdif)/5))
+			vgape = max(1, min(4,(vgrdif + vltdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			vgape = temp_gape
 		end
@@ -551,10 +551,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
 		gs 'pain', (vgrdif + vltdif)/5*max(1,ARGS[1]/5), 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumvag > rand(pcs_vag/2,pcs_vag):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = vgape
-			vgape = max(1, min(4,(vgrdif + vltdif)/5))
+			vgape = max(1, min(4,(vgrdif + vltdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			vgape = temp_gape
 		end
@@ -605,10 +605,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
 		gs 'pain', (vgrdif + vltdif)/5*max(1,ARGS[1]/5), 'vaginal', 'stretch'
 		stim['act'] = stim['act'] - (vgrdif + vltdif)
-		if ARGS[1] > 0:
+		if ARGS[1] > 0 and cumsumvag > rand(pcs_vag/2,pcs_vag):
 			cumdectime -= 15+ARGS[1]*2
 			temp_gape = vgape
-			vgape = max(1, min(4,(vgrdif + vltdif)/5))
+			vgape = max(1, min(4,(vgrdif + vltdif)/10))
 			gs 'cum_manage', 'cum_decay'
 			vgape = temp_gape
 		end