[Fixes] to precum calls that were not working

locations/AlbStars.qsrc

@@ -840,6 +840,7 @@ if $ARGS[0] = 'whore4':
 	$npc_thdick[$AlbinaQW['Cust']] = 'massive'
 	npc_dick[$AlbinaQW['Cust']] = 24
 	npc_Malen[$AlbinaQW['Cust']] = rand(10,15)
+	npc_spermpot[$AlbinaQW['Cust']] = 20000
 	gs 'boyStat', $AlbinaQW['Cust']
 
 	gs 'stat'
@@ -884,7 +885,7 @@ if $ARGS[0] = 'whore4':
 						'You almost pass out as the seemingly never ending stream of cum continues to enter your throat. You are feeling quite bloated when he finally pulls out of your mouth.'
 						'You fall to the floor and start frantically coughing, the last of the cum dribbling from your chin and dripping on your breasts as you try to catch your breath. You look up at the guy, who only has a wide satisified grin on his face.'
 						'"Damn girl, I''m sure that quenched your thrist!" he jokes while patting you on the head.'
-						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust'], 0, 0, 20000, 120 
+						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust'], 0, 0, 0, 120 
 						gs 'cum_call', 'face', $AlbinaQW['Cust']
 						gs 'cum_call', 'breasts', $AlbinaQW['Cust']
 						gs 'arousal', 'end'
@@ -904,7 +905,7 @@ if $ARGS[0] = 'whore4':
 						'You are surprised by just how much cum is plastered on you as you wipe it from your eyes and look up at the guy.'
 						'"Girl, you look like a fucking masterpiece! I''m almost ready for another go just from looking at you." he says panting.'
 						'He makes you suck him a final time, which results in one last spurt of cum in your mouth.'
-						gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 20000, 120 
+						gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 0, 120 
 						gs 'cum_call', 'hair', $AlbinaQW['Cust']
 						gs 'arousal', 'bj', 1, 'sub'
 						gs 'cum_call', 'mouth', $AlbinaQW['Cust']
@@ -927,7 +928,7 @@ if $ARGS[0] = 'whore4':
                 'You slide yourself off of him and kneel on the edge of the sofa. The deposited cum floods from you, running down your leg and pooling on the sofa beneath you. "Damn girl, that is one nice gape!" he exclaims as 3 of his fingers easily slide inside you.' 
 				'You are too overwhelmed to move and so stay where you are, hoping that your anus closes up as cum continues to leak from it.'				
 				gs 'arousal', 'anal', 30, 'sub'
-				gs 'cum_call', 'anus', $AlbinaQW['Cust'], 0, 0, 20000, 120 
+				gs 'cum_call', 'anus', $AlbinaQW['Cust'], 0, 0, 0, 120 
 				gs 'cum_call', 'legs', $AlbinaQW['Cust']
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -946,14 +947,14 @@ if $ARGS[0] = 'whore4':
                 '"So I''ll cum on your pretty white face instead!" You get on your knees in front of him and a massive load of cum drenches your face. You suck his cock one last time before he collapses on the sofa in satisfaction.' 				
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal', 10, 'sub'
-				gs 'cum_call', 'precum', $AlbinaQW['Cust'], 0, 0, 20000
+				gs 'cum_call', 'precum', $AlbinaQW['Cust']
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal', 10, 'sub'
-				gs 'cum_call', 'precum', $AlbinaQW['Cust'], 0, 0, 20000
+				gs 'cum_call', 'precum', $AlbinaQW['Cust']
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal', 10, 'sub'
-				gs 'cum_call', 'precum', $AlbinaQW['Cust'], 0, 0, 20000
-				gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 20000, 120 
+				gs 'cum_call', 'precum', $AlbinaQW['Cust']
+				gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 0, 120 
 				gs 'cum_call', 'hair', $AlbinaQW['Cust']
 				gs 'arousal', 'bj', 1, 'sub'
 				gs 'arousal', 'end'
@@ -971,6 +972,7 @@ if $ARGS[0] = 'whore5':
 	$npc_thdick[$AlbinaQW['Cust']] = 'massive'
 	npc_dick[$AlbinaQW['Cust']] = 24
 	npc_Malen[$AlbinaQW['Cust']] = rand(10,15)
+	npc_spermpot[$AlbinaQW['Cust']] = 20000
 	gs 'boyStat', $AlbinaQW['Cust']
 
 	gs 'npcgeneratec', 0, 'the second man', rand(18,32)
@@ -978,6 +980,7 @@ if $ARGS[0] = 'whore5':
 	$npc_thdick[$AlbinaQW['Cust1']] = 'massive'
 	npc_dick[$AlbinaQW['Cust1']] = 24
 	npc_Malen[$AlbinaQW['Cust1']] = rand(10,15)
+	npc_spermpot[$AlbinaQW['Cust1']] = 20000
 	gs 'boyStat', $AlbinaQW['Cust1'], 'a'
 
 	gs 'stat'
@@ -1017,7 +1020,7 @@ if $ARGS[0] = 'whore5':
 				gs 'arousal', 'anal', -1, 'dick1', 'sub', 'group'
 				gs 'pain', 4, 'asshole', 'stretch'
 				gs 'arousal', 'vaginal_finger', -1, 'sub'
-				gs 'cum_call', 'anus', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+				gs 'cum_call', 'anus', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 				gs 'cum_call', 'legs', $AlbinaQW['Cust1']
 				gs 'stat'
 				tipdarand = rand(0, 1)
@@ -1032,7 +1035,7 @@ if $ARGS[0] = 'whore5':
 						'You look up at him, seeking approval. He pats you on the head. "I guess you little white girls really do crave it.'
 						gs 'arousal', 'bj', 10, 'dick1', 'sub', 'deepthroat', 'rough', 'humiliation'
 						gs 'pain', 1, 'throat', 'choke'
-						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 						gs 'arousal', 'end'
 						gs 'stat'
 						act 'Call a taxi': gt 'AlbStars', 'cab_home'
@@ -1047,7 +1050,7 @@ if $ARGS[0] = 'whore5':
 						'"Damn girl, I guess you are a hot mess!" one of the men laughs.'
 						gs 'arousal', 'bj', 10, 'dick2', 'sub', 'deepthroat', 'rough'
 						gs 'cum_call', 'mouth', $AlbinaQW['Cust1']
-						gs 'cum_call', 'face', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+						gs 'cum_call', 'face', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 						gs 'cum_call', 'hair', $AlbinaQW['Cust1']
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -1069,7 +1072,7 @@ if $ARGS[0] = 'whore5':
 				gs 'pain', 1, 'breasts', 'ache'
 				gs 'arousal', 'bj', 30, 'dick', 'sub', 'group', 'deepthroat'
 				gs 'arousal', 'vaginal', 30, 'dick1', 'sub', 'group'
-				gs 'cum_call', 'precum', $AlbinaQW['Cust1'], 0, 0, 20000
+				gs 'cum_call', 'precum', $AlbinaQW['Cust1']
 				minut -= 30
 				gs 'stat'
 				tipdarand = rand(0, 1)
@@ -1078,7 +1081,7 @@ if $ARGS[0] = 'whore5':
 					'Your eyes are watering and drool is dripping from your mouth when the cock in your pussy pulls out and the guy moves round to the edge of the bed, jerking himself. "No cumming inside" he tells the other.'
 					'You choke when the guy fucking your mouth pushes deep into your throat and lets out a grunt. A flood of cum starts to spill into your mouth.'
 					gs 'arousal', 'bj', 5, 'dick', 'sub', 'group', 'deepthroat'
-					gs 'cum_call', 'mouth', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+					gs 'cum_call', 'mouth', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 
 					act 'Swallow it all':
 						cls
@@ -1087,7 +1090,7 @@ if $ARGS[0] = 'whore5':
 						'You again choke and gag as the huge tip hits your throat and another flood of cum enters your mouth. You are again forced to gulp it down before he pulls out. Once he does, you roll over and start coughing and gasping for breath.' 
 						'You then look up at the guys, your face a mess of tears and drool. They both pat you on the head. "I guess you white girls really do crave it." You finish them off by jerking their huge cocks and licking them clean.'
 						gs 'arousal', 'bj', 5, 'dick', 'sub', 'group', 'deepthroat', 'humiliation'
-						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 						gs 'arousal', 'end'
 						gs 'stat'
 						act 'Call a taxi': gt 'AlbStars', 'cab_home'
@@ -1101,9 +1104,9 @@ if $ARGS[0] = 'whore5':
 						'You cough when the cock in your mouth is pulled out. "Get ready for it girl!" is all you hear before you are hit in the face with a massive stream of cum that drenches you.'
 					    'Your eyes glued closed, you hear the other guy tell you to stay still and another huge load of thick cum is deposited over your face and into your hair. You roll over and wipe the cum away from your eyes.'
 						'Your face is covered in thick cum and drool. "Damn girl, you are a hot mess!" one of the men laughs as you finish them off by slowly jerking their massive cocks.'
-						gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 20000, 120 
+						gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 0, 120 
 						gs 'cum_call', 'hair', $AlbinaQW['Cust']
-						gs 'cum_call', 'face', $AlbinaQW['Cust1'], 0, 0, 20000, 120 
+						gs 'cum_call', 'face', $AlbinaQW['Cust1'], 0, 0, 0, 120 
 						gs 'cum_call', 'hair', $AlbinaQW['Cust1']
 						gs 'cum_call', 'breasts', $AlbinaQW['Cust1']
 						gs 'arousal', 'hj', 5, 'dick', 'sub', 'group'

locations/cum_call.qsrc

@@ -19,6 +19,7 @@ ARGS[3] is contraception, if left blank it will use the default, if you want to
 	6 - the condom was Sabotaged but the main character shouldn''t know that
 	7 - the Condom was Sabotaged by the main character.
 ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
+	NOTE volume is ignored for pregnancy risk if this or npc_spermpot[] for the partner is set
 ARGS[5] is volume, default is 40 (4ml)
 For a simple call you only need the first 3, ie:
 gs 'cum_call', 'anus', 'Kolka', 1 - for a known partner
@@ -131,8 +132,17 @@ if $ARGS[0] ! 'precum':
 	sexcontra = 0
 else
 	!This is to check for pregnancy and stds from precum. It is added for readability when it is used in the code.
-	!It will call cum_call with a volume of 1.
-	gs 'cum_call', '', $ARGS[1], ARGS[2], ARGS[3], ARGS[4], 1
+	!It will call cum_call with potency of 1 40th of what it would be for a normal call.
+	tempSexspecpot = 0
+	if ARGS[4] > 0:
+		tempSexspecpot = ARGS[4] / 40
+	elseif npc_spermpot[$ARGS[1]] > 0: 
+		tempSexspecpot = npc_spermpot[$ARGS[1]] / 40
+	else
+		tempSexspecpot = 10000 / 40
+	end
+	gs 'cum_call', '', $ARGS[1], ARGS[2], ARGS[3], tempSexspecpot, 1
+	killvar 'tempSexspecpot'
 end
 
 --- cum_call ---------------------------------