Explorar o código

[update] More events around sveta starting to lactate without her knowledge.

sandra_schulz %!s(int64=5) %!d(string=hai) anos
pai
achega
1e19dcadf2
Modificáronse 4 ficheiros con 194 adicións e 39 borrados
  1. 24 0
      locations/din_van.qsrc
  2. 41 6
      locations/femcyc.qsrc
  3. 89 32
      locations/lact_lib.qsrc
  4. 40 1
      locations/stat_display.qsrc

+ 24 - 0
locations/din_van.qsrc

@@ -104,6 +104,30 @@ $shower = {
 				gs 'vanrPar', 'peek'
 			end
 		end
+		
+		if lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
+			if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
+				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk.<br>Using the breast pump regularily probably made you lactate!'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
+				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. Regularily massaging your breasts probably made you lactate!<br>'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
+				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. All that pumping and massaging your breasts probably caused you to lactate!<br>'
+				lactateinduced = 1
+			else
+				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. To your surprise it is milk. You started lactating!<br>'
+				if thinkpreg = 1 or knowpreg = 1:
+					'This is probably happening because you are pregnant.'
+				else
+					'You should have this checked out by a doctor. You could be pregnant.'
+				end
+				lactateinduced = 0
+			end
+			pcs_usedbreastpumponherself = 0
+			pcs_massagedherbreasts = 0
+			pcs_knowsaboutlactation = 1
+		end
 
 		if pcs_horny >= 40:
 			act 'Use the shower head on your pussy':

+ 41 - 6
locations/femcyc.qsrc

@@ -209,6 +209,17 @@ if $ARGS[0] = '':
 	!! new milkgrowday function.
 	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
 	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
+		!! Even if Sveta doesn''t massage her breasts or pumps proactively, NPCs will work her breasts eventually. This can cause her to lactate without knowledge.
+		if rand(1,50) + prolactinlvl >= rand(200,250) and milkinduceday >= 5:
+			lactateinduced = 0
+			pcs_knowsaboutlactation = 0
+			lactate = 1
+			if func('lact_lib','$calc_lactatemm') > 0: lactatemm = func('lact_lib','$calc_lactatemm')
+			if prolactinlvl < 200: prolactinlvl = 200
+			lactaterate = 10*(prolactinlvl/200)
+			pcs_nips += 2
+			pumpinggrowth = 0
+		end
 		if milkgrowday < daystart:
 			temp_var = milkoverdemand/200
 			if temp_var >= 10 and pregtimes <= 0: temp_var = 10
@@ -343,7 +354,11 @@ if $ARGS[0] = '':
 					else
 						prolactinlvl = 100
 					end
-					'Your breasts tingle a bit more from milkproduction.'
+						if pcs_knowsaboutlactation > 0:
+							'Your breasts tingle a bit more from milkproduction.'
+						else
+							'Your breasts tingle a bit weirdly.'
+						end
 				elseif milkoverdemand = 0 and breastpumped > 0:
 					prolactinlvl = 100
 				elseif milkoverdemand = 0 and breastpumped = 0:
@@ -351,13 +366,21 @@ if $ARGS[0] = '':
 						temp_var = lactaterate/4
 						if temp_var < 1:temp_var = 0
 						lactaterate = temp_var
-						'Your breasts tingle a little less from milkproduction.'
+						if pcs_knowsaboutlactation > 0:
+							'Your breasts tingle a little less from milkproduction.'
+						else
+							'The tingling in your breasts eases down.'
+						end
 					elseif lactaterate = 0 and pregchem < 1000:
 						lactate = 0
 						lactateinduced = 0
 						nbsize -= total_milkinduce_growth
 						milkinduceday = 0
-						'You notice that you stopped lactating.'
+						if pcs_knowsaboutlactation > 0:
+							'You notice that you stopped lactating.'
+						else
+							'Your breasts feel eased today.'
+						end
 					elseif lactaterate = 0 and pregchem >= 1000:
 						lactaterate = 1
 					else
@@ -411,7 +434,11 @@ if $ARGS[0] = '':
 					else
 						prolactinlvl = 100
 					end
-					'Your breasts tingle a bit more from milkproduction.'
+						if pcs_knowsaboutlactation > 0:
+							'Your breasts tingle a bit more from milkproduction.'
+						else
+							'Your breasts tingle a bit weirdly.'
+						end
 				elseif milkoverdemand = 0 and breastpumped > 0:
 					prolactinlvl = 100
 				else
@@ -420,7 +447,11 @@ if $ARGS[0] = '':
 						if temp_var < 1:temp_var = 0
 						lactaterate = temp_var
 						milkoverdemand = 0
-						'Your breasts tingle a little less from milkproduction.'
+						if pcs_knowsaboutlactation > 0:
+							'Your breasts tingle a little less from milkproduction.'
+						else
+							'The tingling in your breasts eases down.'
+						end
 					elseif lactaterate = 0 and pregchem < 1000:
 						lactate = 0
 						lactateinduced = 0
@@ -431,7 +462,11 @@ if $ARGS[0] = '':
 						end
 						total_milkinduce_growth = 0
 						milkoverdemand = 0
-						'You stopped lactating.'
+						if pcs_knowsaboutlactation > 0:
+							'You notice that you stopped lactating.'
+						else
+							'Your breasts feel eased today.'
+						end
 					elseif lactaterate = 0 and pregchem >= 1000:
 						lactaterate = 1
 					else

+ 89 - 32
locations/lact_lib.qsrc

@@ -1014,6 +1014,27 @@ if $ARGS[0] = 'bp_unbox_event':
 					'You go on for a minute and then detach the pump. As expected no milk was collected in the bottle.'
 					'<br><center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
 				end
+				if lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
+					if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
+						'You are surprised to see that you are lactating!'
+						lactateinduced = 1
+					elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
+						'Regularily massaging your breasts probably made you lactate!<br>'
+						lactateinduced = 1
+					elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
+						'All that pumping and massaging your breasts probably caused you to lactate!<br>'
+						lactateinduced = 1
+					else
+						'To your surprise it is milk. You started lactating!<br>'
+						if thinkpreg = 1 or knowpreg = 1:
+							'This is probably happening because you are pregnant.'
+						else
+							'You should have this checked out by a doctor. You could be pregnant.'
+						end
+						lactateinduced = 0
+					end
+					pcs_knowsaboutlactation = 1
+				end
 				act 'continue':
 					*clr
 					cla
@@ -1416,42 +1437,54 @@ if $ARGS[0] = 'milking':
 			bcream_used = 0
 		end
 		minut += pumptime
-	elseif lactate = 0 and pain['nipples'] < 60:
-		if rand(1,50) + prolactinlvl >= rand(200,250) and milkinduceday >= 5:
-			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
-			'As usual, you attach the pump but after a few pumps white liquid suddenly starts flowing from your nipples.<br>You started lactating!'
-			lactateinduced = 1
-			lactate = 1
-			if func('lact_lib','$calc_lactatemm') > 0: lactatemm = func('lact_lib','$calc_lactatemm')
-			if prolactinlvl < 200: prolactinlvl = 200
-			lactaterate = 10*(prolactinlvl/200)
-			pcs_nips += 2
-			pumpinggrowth = 0
-		else
-			milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
-			'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
-			if breastcounter < 100:
-				'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels uncomfortable on your nipples.'
-			elseif breastcounter >= 100 and breastcounter < 200:
-				'You attach the pump to your nipples and start squeezing the bulb. You are used to the vacuum on your nipples.'
+	elseif lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
+			if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
+				'As usual, you attach the pump, but after a few pumps white liquid suddenly starts flowing from your nipples.<br>Using the breast pump regularily probably made you lactate!'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
+				'You attach the pump but after a few pumps white liquid suddenly comes from your nipples. Regularily massaging your breasts probably made you lactate!<br>'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
+				'You attach the pump but after a few pumps white liquid suddenly comes from your nipples. All that pumping and massaging your breasts probably caused you to lactate!<br>'
+				lactateinduced = 1
 			else
-				'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
-			end
-			if prolactinlvl > 100: 'A few droplets of liquid come out of your nipples but it is not milk.'
-			breastcounter += 1
-			if pump_stop_brake = 1:
-				'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
-			end
-			if prolactinlvl > 100:
-				if rand(0,10) > 9:
-					pumpinggrowth += 1
+				'You attach the pump and give it a few pumps. To your surprise white liquid suddenly comes from your nipples. You started lactating!<br>'
+				if thinkpreg = 1 or knowpreg = 1:
+					'This is probably happening because you are pregnant.'
+				else
+					'You should have this checked out by a doctor. You could be pregnant.'
 				end
-				'After finishing, your breasts feel weirdly engorged.'
+				lactateinduced = 0
 			end
-			if bcream_used = 1:
-				pcs_nips += rand(0,2)
-				bcream_used = 0
+			pcs_usedbreastpumponherself = 0
+			pcs_massagedherbreasts = 0
+			pcs_knowsaboutlactation = 1
+	elseif lactate = 0 and pain['nipples'] < 60:
+		milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
+		pcs_usedbreastpumponherself += 1
+		'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
+		if breastcounter < 100:
+			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels uncomfortable on your nipples.'
+		elseif breastcounter >= 100 and breastcounter < 200:
+			'You attach the pump to your nipples and start squeezing the bulb. You are used to the vacuum on your nipples.'
+		else
+			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
+		end
+		if prolactinlvl > 100: 'A few droplets of liquid come out of your nipples but it is not milk.'
+		breastcounter += 1
+		if pump_stop_brake = 1:
+			'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
+		end
+		if prolactinlvl > 100:
+			if rand(0,10) > 9:
+				pumpinggrowth += 1
 			end
+			'After finishing, your breasts feel weirdly engorged.'
+		end
+		if bcream_used = 1:
+			pcs_nips += rand(0,2)
+			bcream_used = 0
 		end
 		minut += pumptime
 	else
@@ -1544,7 +1577,31 @@ if $ARGS[0] = 'hand_milking':
 		'<center><video autoplay loop src="images/pc/body/tits/bathroom_milking.mp4"></video></center>'
 		milkedvolume = func('lact_lib','$get_breastmilk', 5, pumptime)
 		minut += pumptime
+	elseif lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+			if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
+				'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples.<br>Using the breast pump regularily probably made you lactate!'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
+				'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples. Regularily massaging your breasts probably made you lactate!<br>'
+				lactateinduced = 1
+			elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
+				'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples. All that pumping and massaging your breasts probably caused you to lactate!<br>'
+				lactateinduced = 1
+			else
+				'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. To your surprise white liquid suddenly starts flowing from your nipples. You started lactating!<br>'
+				if thinkpreg = 1 or knowpreg = 1:
+					'This is probably happening because you are pregnant.'
+				else
+					'You should have this checked out by a doctor. You could be pregnant.'
+				end
+				lactateinduced = 0
+			end
+			pcs_usedbreastpumponherself = 0
+			pcs_massagedherbreasts = 0
+			pcs_knowsaboutlactation = 1
 	elseif lactate = 0 and pain['nipples'] <= 60:
+		pcs_massagedherbreasts += 0
 		'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple,'
 		'kneading your breasts as well.'
 		'<center><video autoplay loop src="images/pc/body/tits/bathroom_massage.mp4"></video></center>'

+ 40 - 1
locations/stat_display.qsrc

@@ -680,7 +680,7 @@ if lactate <= 0 and prolactinlvl >= 100:
 	$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel weirdly engorged and sore.</font><BR>'
 end
 
-if lactate >= 1:
+if lactate >= 1 and pcs_knowsaboutlactation > 0:
 	if lactatemv >= lactatemm-1:
 		if lact_engorgement > 0 and lact_engorgement < 3:
 			$stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
@@ -719,6 +719,45 @@ if lactate >= 1:
 	else
 		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel soft and empty.</font><BR>'
 	end
+elseif lactate >= 1 and pcs_knowsaboutlactation <= 0:
+	if lactatemv >= lactatemm-1:
+		if lact_engorgement > 0 and lact_engorgement < 3:
+			$stat_msg += '<BR><font color = orange>Your breasts hurt.</font><BR>'
+		elseif lact_engorgement > 3 and lact_engorgement <= 6:
+			$stat_msg += '<BR><font color = red>Your breasts hurt and they feel wet.</font><BR>'
+		elseif lact_engorgement > 6:
+			$stat_msg += '<BR><font color = red>Your breasts hurt, they feel wet and your nipples tingle.</font><BR>'
+		end
+		if $clothingworntype = 'nude' and lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += ''+iif(night_mode > 0,'<font color = white>','<font color = black>')+'You have a something white around your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = orange>You have a lot of white liquid around your nipples.</font>'
+			else
+				$stat_msg += '<font color = red>Your breasts are drenched with a white liquid.</font>'
+			end
+		elseif lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += '<font color = orange>You have tiny wet spots on your clothes above your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = red>Visible wet circles are on your breasts.</font>'
+			else
+				$stat_msg += '<font color = red>Your shirt is drenched.</font>'
+			end
+		end
+	elseif lactatemv > lactatemm*9/10:
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts are firm, and start to hurt.</font><BR>'
+	elseif lactatemv > lactatemm*3/4:
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel firm and heavy.</font><BR>'
+	elseif lactatemv > lactatemm/2:
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts are heavy.</font><BR>'
+	elseif lactatemv > lactatemm/4:
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel a little heavy.</font><BR>'
+	elseif lactatemv > 0:
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts tingle a little.</font><BR>'
+	else
+		$stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel soft and easy.</font><BR>'
+	end
 end
 
 if Enable_clearcum > 0: