Browse Source

[fixed] massage breasts action no longer appears when unusable.
[changed] massage breasts is now a gosub in lact_lib.

3xpurt 5 years ago
parent
commit
6e429751ea
3 changed files with 14 additions and 24 deletions
  1. 1 8
      locations/bedrPar.qsrc
  2. 1 16
      locations/din_van.qsrc
  3. 12 0
      locations/lact_lib.qsrc

+ 1 - 8
locations/bedrPar.qsrc

@@ -252,14 +252,7 @@ elseif sisterHere = 0 and breastpump = 1 and bp_unbox = 1 and pcs_inbition < 40:
 elseif kid >= 1 and breastpump = 1 and bp_unbox = 1 and pcs_inbition > 30:
 	'<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Try out</a> your breast pump'
 end
-if breastcounter <= 0:
-	temp_var = 50
-else
-	temp_var = (50/breastcounter)
-end
-if breastpump <= 0 and pcs_horny >= temp_var:
-	act 'Massage your breasts': gt 'lact_lib','man_milking'
-end
+gs 'lact_lib', 'massage'
 
 if pcs_sleep <= 80:
 	if $clothingworntype = 'nude':

+ 1 - 16
locations/din_van.qsrc

@@ -971,22 +971,7 @@ if $ARGS[0] = 'private':
 			act 'Finish':menu_off = 0 & gt $loc, $metka
 		end
 	end
-
-	!!breast pump is now in the menu, not on the screen
-	if breastcounter <= 0:
-		temp_var = 50
-	else
-		temp_var = (50/breastcounter)
-	end
-	if breastpump > 0 and bp_unbox >= 1:
-		act 'Use breast pump':
-			gt 'lact_lib', 'bp_milking'
-		end
-	elseif breastpump > 0 and bp_unbox <= 0:
-		'<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Unbox</a> your breast pump'
-	elseif breastpump <= 0 and pcs_horny >= temp_var:
-		act 'Massage your breasts': gt 'lact_lib','man_milking'
-	end
+	gs 'lact_lib', 'massage'
 end
 
 if $ARGS[0] = 'misery':

+ 12 - 0
locations/lact_lib.qsrc

@@ -606,6 +606,18 @@ end
 !!	man_milking - manual (with hands) milking
 !!	use href="exec:gt ''lact_lib'',''man_milking''"
 !!	for manual milk expression in bathrooms etc. please use this function.
+
+if $ARGS[0] = 'massage':
+	if breastcounter <= 0:
+		temp_var = 50
+	else
+		temp_var = (50/breastcounter)
+	end
+	if breastpump = 0 and pcs_horny >= temp_var and pcs_inhib >= 40:
+		act 'Massage your breasts': gt 'lact_lib','man_milking'
+	end
+end
+
 if $ARGS[0] = 'man_milking':
 	pumptime = 0
 	if pcs_inhib < 40: