change in pharmacy.qsrc:

- More realistic price for a single manual breast pump.
change in lact_lib.qsrc:
-added get bfat_tissue function to calculate how much of the breast tissue is fat (not used yet)
-added new calc_npc_lactatemm to calculate the lactatemm more accurately for npcs and sveta.
-made a small adjustment to the sorenes_mod when nipple cream is applied.
change in gpolic.gsrc:
-added maternity ward and the possibility to donate breast milk.
-as far as I can tell most of the bugs are fixed for the maternity ward now.
change in gaptek.qsrc:
- More realistic price for a single manual breast pump.
change in femcyc.qsrc:
-Add function that lactation will stop/halt when there is not enough body fat (sveta starving, so no lactation)

locations/femcyc.qsrc

@@ -301,7 +301,7 @@ if $ARGS[0] = '':
 						if total_preg_growth > total_milkinduce_growth: nbsize += 1
 					end
 				end
-				if lactatemm > lactatemv:
+				if lactatemm > lactatemv and salo > 11:
 					lactatemv += lactaterate
 					temp_var = lactaterate/100
 					if temp_var <= 0: temp_var = 1
@@ -350,7 +350,7 @@ if $ARGS[0] = '':
 				breastpumped = 0
 			else
 				milkgrowday = daystart
-				if lactatemm >= lactatemv:
+				if lactatemm >= lactatemv and salo > 11:
 					lactatemv += lactaterate
 					if lactatemv > lactatemm:
 						lactatemv = lactatemm
@@ -362,7 +362,7 @@ if $ARGS[0] = '':
 			milkgrowday = daystart
 		else
 			if milkgrowday < daystart:
-				if lactatemm > lactatemv:
+				if lactatemm > lactatemv and salo > 11:
 					lactatemv += lactaterate
 					temp_var = lactaterate/100
 					if temp_var <= 0: temp_var = 1
@@ -418,7 +418,7 @@ if $ARGS[0] = '':
 				breastpumped = 0
 			else
 				milkgrowday = daystart
-				if lactatemm >= lactatemv:
+				if lactatemm >= lactatemv and salo > 11:
 					lactatemv += lactaterate
 					if lactatemv > lactatemm:
 						lactatemv = lactatemm

locations/gaptek.qsrc

@@ -56,7 +56,7 @@ if $ARGS[0] = 'start' or gaptek_loc = 1 or $message ! '':
 	*P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
 	*P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC, $ARGS[0])
 	*P FUNC ('$single_stock_item', 1, 'enema kit', 1250, 'klisma', $CURLOC, $ARGS[0], StoryLine, 'You should be stealthy')
-	*P FUNC ('$single_stock_item', 1, 'breast pump', 800, 'breastpump', $CURLOC, $ARGS[0])
+	*P FUNC ('$single_stock_item', 1, 'breast pump', 2200, 'breastpump', $CURLOC, $ARGS[0])
 	*P '</table></center>'
 	!! for original start we can just use stockitem, for alt start there are other plot elements involved
 	!strip polt-related item, other use new system

locations/gpoli.qsrc

@@ -17,6 +17,9 @@ if $ARGS[0] = '':
 	end
 	'<center><b><font color="maroon">Clinic</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
+	if prcptn_lvl > 40 and pcs_know_mward <= 0:
+		'<br><br>You see a sign that reads <a href="exec: minut += 5 & gt ''gpoli'', ''maternity_ward''">"Maternity ward"</a>.'
+	end
 
 	act 'Leave':minut += 5 & gt 'pavCommercial'
 
@@ -163,6 +166,10 @@ if $ARGS[0] = '':
 		if therapistday ! daystart:
 			act 'Visit the therapist (1:00)': gt 'therapist'
 		end
+		
+		if pcs_know_mward > 0:
+			act 'Visit the maternity ward (0:05)': gt 'gpoli', 'maternity_ward'
+		end
 	end
 
 	if preg = 2:
@@ -1267,5 +1274,400 @@ if $ARGS[0] = 'spravka_arrange_pale':
 	end
 end
 
+if $ARGS[0] = 'maternity_ward':
+	pcs_know_mward = 1
+	*clr
+	cla
+	gs 'stat'
+	minut += 5
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/mward.jpg"></center>'
+	'<center>You are at the maternity ward. There are alot of babies and nurses taking care of them.</center>'
+	if lactate > 0 and pcs_gpolimilkdonation = 3:
+		act 'Talk to the nurse (0:05)':
+			gs 'stat'
+			*clr
+			cla
+			minute += 5
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
+			'Nurse: Hello <<$pcs_firstname>>, how can I help you?'
+			act 'Donate your breast milk (0:15)':
+				*clr
+				cla
+				milkedvolume = 0
+				pcs_gpoli_donationsessioncount = 0
+				if rand(0,100) = 95 and orphanfeed = 0:
+					orphanfeed = 1
+				end
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
+				'You talk to the old nurse and she leads you into the quiet room.'
+				if orphanfeed = 1:
+					'It seems like there is a crib with a baby inside in this room, too.'
+				end
+				act 'have your breasts pumped':
+					*clr
+					cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
+					'You sit down and take off your top.'
+					if lactatemv > lactatemm*8/10:
+						'The nurse looks surprised at your engorged breasts'
+						'Nurse: Oh dear! These look painfully full. I hope the pumping will make you feel better.'
+					end					
+					if pain['nipples'] >= 60:
+						'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipples.jpg"></center>'
+						'The nurse looks at your sore nipples and frowns a bit. She then grabs a small tin, and takes a bit more of the yellowish cream from the tin.'
+						'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
+						pain['nipples'] -= 20
+					else
+						'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
+					end
+					nipple_cream = 1
+					act 'continue':	gt 'gpoli', 'maternity_ward_donation'
+				end
+			end
+			act 'Check your file (0:05)':
+				*clr
+				cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
+				'The nurse hands you a file on how much you have donated so far.'
+				'<br>----------------------------------------'
+				'Analyzed milksample measurements'
+				'Volume in ml: <<mward_donatesv/10>>ml'
+				'Fat in %: <<mward_donatesf/10>>.<<mward_donatesf mod 10>>%'
+				'Lactose in %: <<mward_donatess/10>>.<<mward_donatess mod 10>>%'
+				'<br>----------------------------------------'
+				if pcs_gpoli_totalmilkdonation_count > 0:
+					'Total breast milk donation statistics'
+					if pcs_gpoli_totalmilkdonation < 100:
+						'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.0<<pcs_gpoli_totalmilkdonation mod 1000>>l'
+					else
+						'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.<<pcs_gpoli_totalmilkdonation mod 1000>>l'
+					end
+					'Donation count: <<pcs_gpoli_totalmilkdonation_count>>'
+					'Average milk volume per donation in ml: <<pcs_gpoli_totalmilkdonation/pcs_gpoli_totalmilkdonation_count>>'
+					'Paid money: <<(((pcs_gpoli_totalmilkdonation*10)/3)*75)/100>><b>₽</b>'
+					'<br>----------------------------------------'
+				end
+				act 'Leave': gt 'gpoli', 'maternity_ward'
+			end
+			!!act 'Mammography (1:00)':
+			!!	
+			!!end
+			act 'Leave': gt 'gpoli', 'maternity_ward'			
+		end
+	end
+	if lactate > 0 and lactatemv > lactatemm/8 and pcs_gpolimilkdonation <= 2:
+		'<br><br><center>One of the nurses looks at you suspiciously.<center>'
+		act 'Talk to the nurse (0:05)':
+			*clr
+			cla
+			minut += 5
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
+			if preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0:
+				'You walk up to the nurse'
+				'You: Uhm, Hello...'
+				'Nurse: Which one is yours?'
+				'You: Mine? I don''t understand...'
+				'The nurse looks at your face then down at your breast and than back at your face.'
+				'Nurse: Well, you are obviously lactating, so you came here to breastfeed your offspring?'
+				'She concludes on you, giving you a rised eyebrow.'
+			elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0:
+				'You walk up to the nurse'
+				'You: Uhm, Hello...'
+				'The nurse looks you up and down, rising an eyebrow on you.'
+				'Nurse: You don''t look like you ever had a child, how come you are lactating?'
+				'You are surprised by the sudden and precise analysis of the nurse.'
+				'You: How... how do you know?'
+				'Nurse: I''ve been working here for ages. Trust me ... I can tell by the smell. Now why are you lactating?'
+			elseif pcs_gpolimilkdonation <= 0:
+				'You walk up to the nurse'
+				'You: Uhm, Hello...'
+				'Nurse: Which one is yours?'
+				'You: Mine? I don''t understand...'
+				'The nurse looks at your face then down at your breast and than back at your face.'
+				'Nurse: Well, you are obviously lactating, so you came here to breastfeed your offspring?'
+				'She concludes on you, giving you a rised eyebrow.'
+			else
+				'You walk up to the nurse'
+				'You: Hello...'
+				'Nurse: Ah, it is you again...'
+				'She looks you up and down'
+				if pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0:
+					'Nurse: So, why are you lactating again?'
+				elseif pcs_gpolimilkdonation = 2:
+					'Nurse: Did you change your mind and want donate your breast milk?'
+				else
+					'Nurse: What do you want?'
+				end
+			end
+			if pcs_gpolimilkdonation < 1: pcs_gpolimilkdonation = 1
+			if pcs_gpolimilkdonation < 2:
+				act 'explain yourself':
+					*clr
+					cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
+					if preg = 0 and pregtimes = 0:
+						pcs_gpolimilkdonation = 2
+						if lactateinduced = 1:
+							'You: Erm ... I used a breast pump on myself...'
+							'You blush a bit from embarresment, while telling it to her.'
+						else
+							'You: I don''t really now... it just started some day.'
+							'You explain, blushing from embarresment.'
+						end
+						'The nurse nods at you professionally, then pulls some paper together, while she looks really thoughful. She then looks up at you and starts to speak.'
+						'Nurse: Have you ever thought of donating your breast milk?'
+						'You: Donating?'
+						'Nurse: Yes, donating. We would pump your breasts and collect the milk. We can use the milk for the mothers that are not able to breastfeed yet. We also offer a bit of money for your donated breast milk.'
+						'You look at her with wide eyes.'
+						'Nurse: So, what do you think?'
+						pcs_gpolimilkdonation = 2
+						act 'give it a try (0:15)':
+							*clr
+							cla
+							minut += 15
+							pcs_gpolimilkdonation = 3
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
+							'The nurse leads you into a room. It is quiet in here. There is a chair a table and a breastpump.'
+							'You sit down and the nurse invites you to take off your top.'
+							if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
+								'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipples.jpg"></center>'
+								'The nurse looks at your sore nipples and frowns a bit. She then grabs a small tin, and takes a bit of the yellowish cream from the tin.'
+								'You: What is that?'
+								'The nurse looks up at you.'
+								'Nurse: This is nipple balm. It helps with sore nipples during pumping. Don''t you now this?'
+								'You nod your head and watch as the nurse applies the cream to your nipples. The cream feels nice on your nipples and they hurt less.'
+								pain['nipples'] -= 20
+								'You: Where do I get this stuff?'
+								'Nurse: You can buy it in the pharmacy...'
+								pcs_knows_nipplecream = 1
+								'The nurse finishes rubbing you nipples with the nipple balm.'
+							elseif pain['nipples'] >= 60:
+								'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipples.jpg"></center>'
+								'The nurse looks at your sore nipples and frowns a bit. She then grabs a small tin, and takes a bit of the yellowish cream from the tin.'
+								'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
+								pain['nipples'] -= 20
+							else
+								'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
+							end
+							nipple_cream = 1
+							'Nurse: Okay, I am going to pump a bit milk off first, to check the quality and if you are able to donate enough. So this time you won''t get paid for your milk.'
+							'You nod and pull up your shirt. The nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force. The pump slowly working your nipples.'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
+							milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
+							breastpumped += 4
+							pcs_orphanfeed = 0
+							if milkedvolume >= 1000:
+								'Your breasts are able to fill both small bottles easily. The nurse nods at you confidently.'
+								'Nurse: Yes, it seems you are able to make good amount of milk. You could breastfeed a baby with no issue.'
+							elseif milkedvolume >= 500 and milkedvolume < 1000:
+								'Your breasts are not able to fill both small bottles. The nurse rises an eyebrow on you.'
+								'Nurse: Okay... it seems you are able to make enough milk for a 50ml donation, but you could have trouble to breastfeed a baby properly.'
+							else
+								'You have trouble to fill the bottles to the first mark. The nurse shakes her head disappointed.'
+								'Nurse: Mhmm ... your breasts don''t seem to make enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation.'
+							end
+							'The nurse detaches the pump and allows you to dress up again.'
+							if milkedvolume > 500:
+								mward_donatesv = 500
+							else
+								mward_donatesv = milkedvolume
+							end
+							if salo > 40:
+								mward_donatesf = 60
+							elseif salo > 20:
+								mward_donatesf = 45
+							elseif salo > 15:
+								mward_donatesf = 20
+							else
+								mward_donatesf = 10
+							end
+							if pcs_energy > 30:
+								mward_donatess = rand(69, 80)
+							elseif sick > 1:
+								mward_donatess = rand(0,45)
+							else
+								mward_donatess = rand(45, 69)
+							end
+							act 'Leave':gt 'gpoli'								
+						end
+						act 'deny to donate':
+							*clr
+							cla
+							'You deny to donate your breast milk. The nurse looks sad at you and let you leave.'
+							act 'Leave':gt 'gpoli'							
+						end
+					end						
+				end
+			elseif pcs_gpolimilkdonation = 2:
+				act 'Offer to donate your breast milk (0:15)':
+				*clr
+					cla
+					minut += 15
+					pcs_gpolimilkdonation = 3
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
+					'The nurse smiles and gets up, then she leads you into a room. It is quiet in here. There is a chair a table and a breastpump.'
+					'You sit down and the nurse invites you to take off your top.'
+					if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
+						'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipples.jpg"></center>'
+						'The nurse looks at your sore nipples and frowns a bit. She then grabs a small tin, and takes a bit of the yellowish cream from the tin.'
+						'You: What is that?'
+						'The nurse looks up at you.'
+						'Nurse: This is nipple balm. It helps with sore nipples during pumping. Don''t you now this?'
+						'You shake your head and watch as the nurse applies the cream to your nipples. The cream feels nice on your nipples and they hurt less.'
+						pain['nipples'] -= 20
+						'You: Where do I get this stuff?'
+						'Nurse: You can buy it in the pharmacy...'
+						pcs_knows_nipplecream = 1
+						'The nurse finishes rubbing you nipples with the nipple balm.'
+					elseif  pain['nipples'] >= 60:
+						'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipples.jpg"></center>'
+						'The nurse looks at your sore nipples and frowns a bit. She then grabs a small tin, and takes a bit of the yellowish cream from the tin.'
+						'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
+						pain['nipples'] -= 20
+					elseif pcs_knows_nipplecream <= 0:
+						'The nurse grabs a small tin and takes a bit of yellowish cream from it.'
+						'You: What is that?'
+						'The nurse looks up at you.'
+						'Nurse: This is nipple balm. It helps during pumping and prevents nipple soreness. Don''t you now this?'
+						'You shake your head and watch as the nurse applies the cream to your nipples. The cream feels nice on your nipples.'
+						'You: Where do I get this stuff?'
+						'Nurse: You can buy it in the pharmacy...'
+						pcs_knows_nipplecream = 1
+						'The nurse finishes rubbing you nipples with the nipple balm.'
+					else
+						'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
+					end
+					nipple_cream = 1
+					'Nurse: Okay, I am going to pump a bit milk off first, to check the quality and if you are able to donate enough.'
+					'You nod and pull up your shirt. The nurse takes the pumps and puts it on your breasts. She flicks a switch and you can feel your nipples being sucked in with force. The pump slowly working your nipples.'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
+					milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
+					breastpumped += 4
+					pcs_orphanfeed = 0
+					if milkedvolume >= 1000:
+						'Your breasts are able to fill both small bottles easily. The nurse nods at you confidently.'
+						'Nurse: Yes, it seems you are able to make good amount of milk. You could breastfeed a baby with no issue.'
+					elseif milkedvolume >= 50 and milkedvolume < 1000:
+						'Your breasts are not able to fill both small bottles. The nurse rises an eyebrow on you.'
+						'Nurse: Okay... it seems you are able to make enough milk for a donation, but you could have trouble to breastfeed a baby properly.'
+					else
+						'You have trouble to fill the bottles to the first mark. The nurse shakes her head disappointed.'
+						'Nurse: Mhmm ... your breasts don''t seem to make enough milk. You can still come and be pumped, but we need at least 50ml for a valid donation.'
+					end
+					'The nurse detaches the pump and allows you to dress up again.'
+					if milkedvolume > 500:
+						mward_donatesv = 500
+					else
+						mward_donatesv = milkedvolume
+					end
+					if salo > 40:
+						mward_donatesf = 60
+					elseif salo > 20:
+						mward_donatesf = 45
+					elseif salo > 15:
+						mward_donatesf = 20
+					else
+						mward_donatesf = 10
+					end
+					if pcs_energy > 30:
+						mward_donatess = rand(69, 80)
+					elseif sick > 1:
+						mward_donatess = rand(0,45)
+					else
+						mward_donatess = rand(45, 69)
+					end							
+					act 'Leave':gt 'gpoli'				
+				end
+			end
+			act 'Leave':gt 'gpoli'
+		end
+	end
+	act 'leave':gt 'gpoli'
+end
+
+if $ARGS[0] = 'maternity_ward_donation':	
+	*clr
+	cla
+	gs 'stat'
+	nipple_cream = 1
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
+	'The nurse attaches the pumps and switches them on.'
+	if lactatemv >= 0:
+		'Your nipples are worked by the pumps, pumping your milk out, first draining at your collected milk resevoir. You feel the pressure in your breasts easing down.'
+	else
+		'Your nipples are worked by the pumps, pumping your milk out, you feel the pressure in your breasts easing down. Then your breasts tingle from the milk production as the pump demands more of your milk.'
+	end
+	act 'continue':
+		*clr
+		cla
+		milkedvolume += func('lact_lib','$get_breastmilk', 4, 15)
+		breastpumped += 4
+		'After 15 minutes, the nurse detaches the pumps from your breasts.'
+		if milkedvolume > 500:
+			temp_var = milkedvolume/500
+			'milkedvolume: <<milkedvolume>> - temp var test: <<temp_var>>'
+			pcs_gpoli_donationsessioncount += temp_var
+			pcs_gpoli_totalmilkdonation_count += 1
+			pcs_gpoli_totalmilkdonation += temp_var*50
+			if temp_var < 2:
+				'She looks satisfied at you as she puts away one bottle with 50ml of your breast milk.'
+			elseif temp_var => 4:
+				'She looks satisfied at you as she puts away the <<temp_var>> bottles containing <<temp_var*50>>ml of your breast milk.'
+				'Nurse: This is a good amount of milk.'
+			elseif temp_var => 8:
+				'She looks surprised at the at the amount of milk you made as she stores away the <<temp_var>> bottles that contain <<temp_var*50>>ml of your breast milk.'
+				'Nurse: Dear, that is much milk...'
+			else
+				'She looks satisfied at you as she puts away <<temp_var>> bottles with <<temp_var*50>>ml of your breast milk inside.'
+			end
+		else
+			'She looks at you a bit disappointed.'
+			'Nurse: Mhmm... I am sorry, but this isn''t enough milk for a valid donation. You only made <<milkedvolume/10>>ml of breast milk.'
+		end
+		if pcs_gpoli_donationsessioncount > 0:
+			mward_donatemoney = (((pcs_gpoli_donationsessioncount*500)/3)*75)/100
+		else
+			mward_donatemoney = 0
+		end
+		money += mward_donatemoney
+		minut += 15
+		nipple_cream = 0
+		if lactatemv > lactatemm/2:
+			'The nurse looks at your breasts'
+			'Nurse: Looks like you could go for a another pumping...shall we?'
+			act 'have your breasts pumped again': gt 'gpoli', 'maternity_ward_donation'
+			act 'enough for today':
+				*clr
+				cla
+				gs 'stat'
+				if pcs_gpoli_donationsessioncount > 0:
+					'You put on your top, and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
+				else
+					'You put on your top'
+				end
+				act 'leave':
+					milkedvolume = 0
+					gt 'gpoli', 'maternity_ward'
+				end
+			end
+		else
+			act 'ask to donate more': gt 'gpoli', 'maternity_ward_donation'
+			act 'enough for today':
+				*clr
+				cla
+				gs 'stat'
+				if pcs_gpoli_donationsessioncount > 0:
+					'You put on your top, and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
+				else
+					'You put on your top'
+				end
+				act 'leave':
+					milkedvolume = 0
+					gt 'gpoli', 'maternity_ward'
+				end
+			end
+		end
+	end
+end
 --- gpoli ---------------------------------
 

locations/lact_lib.qsrc

@@ -1,5 +1,82 @@
 # lact_lib
 
+if $ARGS[0] = '$get_bfat_tissue':
+	!! func('lac_lib', 'get_bfattissue', npc_nbsize, npc_lactatemm)
+	!! function to get breast fat tissue amount. Can be used for NPC as well as PC.
+	!! ARGS[1] = npc_nbsize - the natural bust size of the NPC/PC.
+	!! ARGS[2] = npc_lactatemm - he lactatemm of the NPC/PC.
+	!! RESULT = Fat amount in ccm * 10.
+	!! function for cup size volume in ccm y = 0,0002023*x^3 + 0,029199*x^2 + 4,3791*x + 70
+	!! x = ((ARGS[1]/5) + 1)*10
+	!! this function is based on the x figures for pcs_bust size (moving in steps of 5) and the actual cup sizes from a wikipedia table, which can be found here: https://en.wikipedia.org/wiki/Bra_size
+	!! The function was estimated with excel using a trend line estimation for polynoms of third grade and a y = 0 at 70ccm
+	!! https://www.ncbi.nlm.nih.gov/pubmed/11936199
+	!! The percentage of fat volume in the total breast volume varied from 7 to 56% and the percentage of fat weight in the total breast weight varied from 3.6 to 37.6%. This great variability in the respective proportions of fat and glands in the evaluated specimens was not significantly correlated to age and body mass index.
+	if ARGS[1] > 0:
+		temp_var = ((ARGS[1]/5) + 1)*10
+		temp_var2 = (((2023*temp_var*temp_var*temp_var)/10000000)+((29199*temp_var*temp_var)/1000000)+((43791*temp_var)/10000)+70)*10
+		if temp_var2 > ARGS[2]:
+			RESULT = temp_var2 - (ARGS[2] + ARGS[2]/50)
+		elseif temp_var2 = ARGS[2]:
+			RESULT = 0
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_bfat_tissue</i>!</font> - Node ARGS[1] - more mammary gland tissue available then total breast tissue.</b>'
+		end		
+	else
+		if ARGS[2] > 700:
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_bfat_tissue</i>!</font> - Node ARGS[2] - more mammary gland tissue available then total breast tissue.</b>'
+		else
+			RESULT = 700
+		end
+	end
+end
+
+if $ARGS[0] = '$calc_npc_lactatemm_0':
+	!! func('lact_lib', 'calc_npc_lactatemm_0', npc_glandamount, npc_prodstate, npc_breastage, npc_breastcount)
+	!! New calc lactatemm function usuable for NPCs. Test function number one.
+	!! ARGS[1] = npc_glandamount - The glandamount of the npc per breast. Glandamount here is actually the alveoli amount per breast. The value is 4500 to 150000 per breast depending on the genetics or if the npc went through pregnancy already.
+	!! ARGS[2] = npc_prodstate - The breast production state of the npc. State can be "none", "induced" or "natural".
+	!! ARGS[3] = npc_breastage - State can be "virgin" or "mature". Virgin in this case means that the breasts did not go through pregnancy changes yet, while mature is a fully developed breast that had all the changes during pregnancy.
+	!! To determine the breastage, just check if the NPC has gone through pregnancy or not.
+	!! ARGS[4] = npc_breastcount - The breast count of the NPC. If 0 the result will always be 0. Could be used for amputation events or multiple breasts events.
+	!! The function will return something even if there is no lactation currently happening. this could be used for special events where sudden lactation is induced with the help of drugs. For example a lactation pill that will cause the NPC to lactate immediately without classical induction or natural growth during pregnancy.
+	!! RESULT = lactatemm in ml*10
+
+	if ARGS[2] = 'none':
+		if ARGS[3] = 'virgin':
+			temp_var = 2
+		elseif ARGS[3] = 'mature':
+			temp_var = 2
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "none".</b>'
+		end
+	elseif ARGS[2] = 'induced':
+		if ARGS[3] = 'virgin':
+			temp_var = 20
+		elseif ARGS[3] = 'mature':
+			temp_var = 80
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "induced".</b>'
+		end
+	elseif ARGS[2] = 'natural':
+		if ARGS[3] = 'virgin':
+			temp_var = 20
+		elseif ARGS[3] = 'mature':
+			temp_var = 80
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "natural".</b>'
+		end
+	else
+		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Root Node ARGS[2].</b>'
+	end
+	
+	if ARGS[1] <= 0:
+		RESULT = 0
+	else
+		RESULT = (ARGS[1]*temp_var*ARGS[4])/1000
+	end
+end
+
 if $ARGS[0] = '$calc_lactatemm':
 
 	!! func('lact_lib', 'calc_lactatemm')
@@ -86,7 +163,7 @@ if $ARGS[0] = '$get_breastmilk':
 		soreness_mod += temp_var
 		if soreness_mod > 20: soreness_mod = 20
 		if nipple_cream = 1:
-			soreness_mod += 10
+			soreness_mod += 20
 			nipple_cream = 0
 		end
 	end

locations/pharmacy.qsrc

@@ -62,7 +62,7 @@ if $ARGS[0] = 'shop' or $ARGS[0] = '':
 	*P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
 	*P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC, $ARGS[0])
 	*P FUNC ('$single_stock_item', 1, 'enema kit', 1250, 'klisma', $CURLOC, $ARGS[0])
-	*P FUNC ('$single_stock_item', 1, 'breast pump', 800, 'breastpump', $CURLOC, $ARGS[0])
+	*P FUNC ('$single_stock_item', 1, 'breast pump', 2200, 'breastpump', $CURLOC, $ARGS[0])
 !!added this from the pav pharmacy as it makes sense they sell this as well, but not sure the code is right, as it was not done the same way.
 	*P '</table></center>'
 	if KandidNapr = 1:'Cure for yeast infection - 1,050 <b>₽</b>'