[fixed] Errors spotted by Sicaa

locations/arousal.qsrc

@@ -189,10 +189,10 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_fist'] = 1
-		gs 'pain', 4-agape, 'asshole', 'stretch'
 		stim['act'] = 30
-		if pcs_ass < 30:
+		if pcs_ass + anal_slip < 30:
 			pcs_ass = 30
+			gs 'pain', 4-agape, 'asshole', 'stretch'
 			if agape < 3:agape = 3
 		end
 	elseif $ARGS[0] = 'anal_dildo':