[fixed] lact_lib: Sveta sweating really quick when pumping milk. This will go on slower now. Also added additional sucktion type to reflect breastplay during sex

[update] Added a line to arousal for breasts if they are worked. It will trigger the milking to sveta. This can cause sveta to start lactating without her knowledge.
[update] Brother scenes are updated to add gs 'arousal','breasts'. Removed a debug line from brother lessons.
[update] updated many other scenes to include gs 'arousal','breasts' but no lactation reaction yet.

locations/arousal.qsrc

@@ -92,6 +92,8 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		stim['act'] = 10
 	elseif $ARGS[0] = 'breasts':
 		stim['act'] = 30
+		!! No idea where else to put this. This is used for breast stimulation which will eventually cause lactation in sveta without her knowledge. If anyone knows a better place for this, please let me know. - milky_boobs.
+		milkedvolume += func('lact_lib','$get_breastmilk', 8, ARGS[1])
 	elseif $ARGS[0] = 'massage':
 		stim['act'] = 25
 	elseif $ARGS[0] = 'foreplay':

locations/brother.qsrc

@@ -40,7 +40,7 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! npc_know_sveta_lact['A34'] = 0 - Kolka does not know sveta is lactating
 ! npc_know_sveta_lact['A34'] = 1 - Kolka does know sveta is lactating
 ! npc_know_sveta_lact['A34'] = 2 - Kolka does know that sveta was lactating
-! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was no/was breastfeed by sveta
+! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was not/was breastfeed by sveta
 ! npc_tasted_sveta_milk['A34'] = 0 or 1 - Does Kolka know how svetas breastmilk taste? 0 = no, 1 = yes
 
 if $ARGS[0] = 'start':
@@ -328,8 +328,10 @@ if $ARGS[0] = 'start':
 				'"Look what I have," you walk up to Kolka, your chest bare, showing off your nipple piercings, "Don''t be shy, you can touch them."'
 				'Your brother, dumbfounded by your suggestion, hesitantly touches the piercing in one of your nipples, causing you to moan gently.'
 				if brotherSex = 0:
+					gs 'arousal','breasts', 1
 					'He abruptly withdraws his hand and apologizes for his rudeness. You have no choice, but to apologize, that wasn''t fair. You cover your chest.'
 				else
+					gs 'arousal','breasts', 2
 					'Seeing the pleasure playing with your nipples brings you, he begins to play harder with your piercings, sometimes squeezing your exposed Breasts.
 					After playing for a while, he lets go of your breasts, and says, "I really like your new additions."'
 				end
@@ -363,6 +365,7 @@ if $ARGS[0] = 'start':
 					act '<B>Move away</B>':gt 'sitrPar'
 					exit
 				elseif father_go = 0 and hour >= 18 and hour < 23:
+					gs 'arousal','breasts', 1
 					'"Beautiful." Kolka gently cups your breasts and strokes your pierced nipples.'
 					npc_rel['A34'] += 3
 					brothersawpirsF=1
@@ -1005,6 +1008,7 @@ if $ARGS[0] = 'brother_voyeur_ev1':
 	if npc_QW['A34'] < 1: npc_QW['A34'] = 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/b (<<picrand>>).jpg"></center>'
 	'You continue to wash as if nothing has happened, glancing at your brother. You carefully wash your body, paying particular attention to your breasts and pussy, feeling the excitement grow in your abdomen.'
+	gs 'arousal','breasts', 1
 	act 'Wipes':gt 'brother','brother_voyeur_end'
 	if pcs_horny >= 40:
 		act 'Play with your tits':gt 'brother','brother_voyeur_ev2'
@@ -1016,7 +1020,9 @@ if $ARGS[0] = 'brother_voyeur_ev2':
 	cls
 	gs 'stat'
 	pcs_horny += RAND(10,15)
-	minut += RAND(5,10)
+	temp_var = RAND(5,10)
+	minut += temp_var
+	gs 'arousal','breasts', temp_var
 	picrand = RAND(1,7)
 	if npc_rel['A34'] <50:npc_rel['A34'] += rand(1,2)
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/c (<<picrand>>).jpg"></center>'

locations/brother_lessons.qsrc

@@ -435,7 +435,6 @@ if $ARGS[0] = 'anatomylesson2':
 					pcs_horny += 20
 					gs 'stat'
 					temp_var = func('lact_lib','$get_breastmilk', 0, 1)
-					'<<temp_var>>'
 					milkedvolume = temp_var/6
 					if lactate > 0 and milkedvolume >=5:
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/anatomylesson/7.jpg"></center>'

locations/brother_voyeur.qsrc

@@ -31,6 +31,11 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! brothershowertalk: number of times you''ve talked with your brother in the shower
 ! brothershowerlook: whether or not you let your brother look at you while you talk in the shower
 ! brothershave: number of times your brother has seen you shave your pussy
+! npc_know_sveta_lact['A34'] = 0 - Kolka does not know sveta is lactating
+! npc_know_sveta_lact['A34'] = 1 - Kolka does know sveta is lactating
+! npc_know_sveta_lact['A34'] = 2 - Kolka does know that sveta was lactating
+! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was not/was breastfeed by sveta
+! npc_tasted_sveta_milk['A34'] = 0 or 1 - Does Kolka know how svetas breastmilk taste? 0 = no, 1 = yes
 
 if $ARGS[0] = 'showertalk1':
 	dick = npc_dick['A<<34>>']
@@ -838,6 +843,9 @@ if $ARGS[0] = 'showerfun':
 		gs 'arousal','breasts', 1
 		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex1.jpg"></center>'
 		'	You squeak as you feel your brother''s hands grab you by the breasts, squeezing hard and pinching your nipples.'
+		if milkedvolume > 0:
+			'	From the tingling in your nipples you can tell that some milk leaked.'
+		end
 		if brothergrope = 2:'	"Because I spend all day thinking about these..."'
 		if brothergrope = 3:'	"I''d rather focus on these..."'
 		act'"Down boy!"':
@@ -992,6 +1000,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						act'Finish showering together':gt'brother_voyeur','brother_shower_end'
 						if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 							act'Get frisky':
+								gs 'arousal','breasts', 1
 								'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 								act'Blow him':gt'brother_voyeur','brother_shower_bj'
 								act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1035,6 +1044,7 @@ if $ARGS[0] = 'brother_shower_shave':
 
 						if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 							act'Have some fun':
+								gs 'arousal','breasts', 1
 								'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 								act'Blow him':gt'brother_voyeur','brother_shower_bj'
 								act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1082,6 +1092,7 @@ if $ARGS[0] = 'brother_shower_shave':
 							act'Finish showering together':gt'brother_voyeur','brother_shower_end'
 							if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 								act'Have some fun':
+								gs 'arousal','breasts', 1
 								'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 								act'Blow him':gt'brother_voyeur','brother_shower_bj'
 								act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1133,6 +1144,7 @@ if $ARGS[0] = 'brother_shower_shave':
 							if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 								act'Have some fun':
 									cla & *clr
+									gs 'arousal','breasts', 1
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1165,6 +1177,7 @@ if $ARGS[0] = 'brother_shower_shave':
 									cla & *clr
 									*nl
 									gs 'arousal','vaginal_finger', 5
+									gs 'arousal','breasts', 1
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1185,6 +1198,7 @@ if $ARGS[0] = 'brother_shower_shave':
 				if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
+						gs 'arousal','breasts', 1
 						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1232,6 +1246,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						act'Have some fun':
 							cla & *clr
 							gs 'arousal','vaginal_finger', 5
+							gs 'arousal','breasts', 1
 							'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 							'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 							act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1266,6 +1281,7 @@ if $ARGS[0] = 'brother_shower_shave':
 								act'Have some fun':
 									cla & *clr
 									gs 'arousal','vaginal_finger', 5
+									gs 'arousal','breasts', 1
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1294,6 +1310,7 @@ if $ARGS[0] = 'brother_shower_shave':
 					act'Have some fun':
 						cla & *clr
 						gs 'arousal','vaginal_finger', 5
+						gs 'arousal','breasts', 1
 						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1990,6 +2007,7 @@ if $ARGS[0] = 'brother_shower_fuck_first2':
 		end
 		guy += 1
 		gs 'arousal', 'vaginal', 5
+		gs 'arousal','breasts', 1
 		gs 'stat'
 
 		if pcs_horny >= 90:
@@ -2017,6 +2035,7 @@ end
 if $ARGS[0] = 'brother_shower_fuck_first3':
 	guy += 1
 	gs 'arousal', 'vaginal', rand(5,10)
+	gs 'arousal','breasts', 1
 	gs 'stat'
 	eff_contra = iif(argc > 1,ARGS[1],sexcontra)
 	tmp = func('pregriskeval',eff_contra)

locations/katja_sex.qsrc

@@ -182,6 +182,7 @@ if $ARGS[0] = 'prohorov_sex':
 					act 'It''s getting hot':
 						KatjaHorny += 5
 						cla & *clr
+						gs 'arousal','breasts', 1
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nipplesuck.jpg"></center>'
 						'Katja begins to unbutton your shirt and pulls it off you, forcing you to break contact with her breasts. After your shirt is off, Katja immediately starts to kiss, lick and suck on your nipples, biting your lower lip as you moan in pleasure. Ivan continues to watch the two of you, but he begins to rub the large bulge in his pants.'
 						if KatjaHorny >= 70:
@@ -189,6 +190,7 @@ if $ARGS[0] = 'prohorov_sex':
 								cls
 								KatjaHorny += 5
 								minut += 5
+								gs 'arousal','breasts', 5
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nakedkissing.jpg"></center>'
 								'You pull her face up to yours as the two of you being to kiss again. While your hands caress each others breasts, Katja hooks one her legs around yours as you become intertwined. You are so distracted you don''t even notice the heavy breathing coming from Ivan behind you, as he continues to watch.'

locations/lact_lib.qsrc

@@ -340,7 +340,7 @@ end
 
 if $ARGS[0] = '$get_breastmilk_time':
 	!!	func('lact_lib','$get_breastmilk_time', sucktion_type, milk_demand)
-	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6], weak baby_mouth [7]
+	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6], weak baby_mouth [7], stimulation during sex/sex play [8]
 	!!	ARGS[2] = milk_demand: how much milk is demanded. Warning: Should be ml and not in ml*10 for ease of use. :D
 	!!	RESULT = Time in Minutes
 	!!	Usage: breastmilktimetoget = func('lact_lib','$get_breastmilk_time', 2, 150)
@@ -377,7 +377,10 @@ if $ARGS[0] = '$get_breastmilk_time':
 				pcs_mood = 100
 			else
 				pcs_mood += ARGS[2]
-			end
+			end	
+		elseif ARGS[1] = 8:
+		!!	'manual stimulation during sex/sex play'
+			suck_flow_rate = 60
 		else
 			!!	'suck flow else branch'
 			suck_flow_rate = 100
@@ -472,7 +475,7 @@ end
 
 if $ARGS[0] = '$get_breastmilk':
 	!!	func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
-	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6], weak baby_mouth [7]
+	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6], weak baby_mouth [7], stimulation during sex/sex play [8]
 	!!	ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
 	!!	Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
 	!! 	RESULT = Milk in ml*10
@@ -528,6 +531,9 @@ if $ARGS[0] = '$get_breastmilk':
 		else
 			pcs_mood += ARGS[2]
 		end
+	elseif ARGS[1] = 8:
+		!!	'manual stimulation during sex/sex play'
+		suck_flow_rate = 60
 	else
 		!!	'suck flow else branch'
 		suck_flow_rate = 100
@@ -572,10 +578,10 @@ if $ARGS[0] = '$get_breastmilk':
 			pcs_stam = 0
 			!!	energy usage flag on.
 			energytomilkpump = 1
-			pcs_sweat += max_sucktion_demand/1000
+			pcs_sweat += pumptime/30
 		else
 			pcs_stam -= max_sucktion_demand/300
-			pcs_sweat += max_sucktion_demand/1000
+			pcs_sweat += pumptime/30
 			!!	energy usage flag on.
 			energytomilkpump = 1
 		end
@@ -682,7 +688,7 @@ if $ARGS[0] = '$get_breastmilk':
 					energytomilkpump = 1
 					pcs_stam -= max_sucktion_demand/300
 					if pcs_stam <= 0: pcs_stam = 0
-					pcs_sweat += max_sucktion_demand/1000
+					pcs_sweat += pumptime/30
 					pcs_hydra -= milkedvolume/120
 					if pcs_hydra < 1: pcs_hydra = 1
 					pcs_energy -= milkedvolume/1200

locations/placer_sex.qsrc

@@ -582,6 +582,7 @@ if $args[0] = 'vodka2':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex32.jpg"></center>'
 							'You moan: "Grab my breasts!" while you thoroughly get fucked by your savior.'
 							'He does as you ask, cupping one boob in his hand. He grabs onto it roughly and twists your nipple, making you moan even louder.'
+							gs 'arousal','breasts', 1
 							act 'Continue':
 								pcs_mood += 15
 								pcs_willpwr += 15
@@ -792,6 +793,7 @@ if $args[0] = 'card_sex':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex78.jpg"></center>'
 	'The guys join you on the couch, and <<$boydesc2>> takes off your bra. He fondles your breast with one hand while he leans your head back for a deep kiss. Meanwhile, his friend puts his lips around your other nipple, and caresses it with his tongue. You feel your nipples harden against their touch in no time, and there''s a large wet spot in your panties as well. Maybe <<$boydesc2>> was right... maybe losing that second round of cards will be the best thing that happened to you all day!'
 	gs 'arousal', 'foreplay', 5, 'unknown', 'sub', 'group'
+	gs 'arousal','breasts', 1
 	gs 'stat'
 	act 'Further':
 		gs'stat'
@@ -1219,6 +1221,7 @@ if $args[0] = 'sleep_sex':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex86.jpg"></center>'
 				'When the guy is certain you must still be sleeping, he continues carefully. He peels your panties down very slowly, being very cautious to not wake you up. You feel quite horny by now, and have to restrain yourself to not just slam your pussy down onto his dick and shove your tits in his face.'
 				gs 'arousal', 'foreplay', 5, 'unknown', 'sub', 'group'
+				gs 'arousal','breasts', 1
 				gs 'stat'
 				act 'Continue':
 					*clr & cla
@@ -1584,6 +1587,7 @@ if $args[0] = 'rape':
 										gs 'arousal', 'anal', 5, 'unknown', 'sub', 'group', 'rough', 'bound', 'humiliation'
 										gs 'arousal', 'vaginal', 5, 'unknown', 'sub', 'group', 'rough', 'bound', 'humiliation'
 										gs 'arousal', 'cuni_give', 5, 'unknown', 'sub', 'group', 'rough', 'bound', 'humiliation'
+										gs 'arousal','breasts', 5
 										minut -= 5
 										gs 'stat'
 										act 'Continue':

locations/sexm.qsrc

@@ -258,6 +258,7 @@ if $ARGS[0] = 'room':
 			end
 		elseif boyonce[lover_number] = 0:
 			'<<$loverdesc[lover_number]>> throws you on the bed and starts sucking on your breasts.'
+			gs 'arousal','breasts', 1
 
 			act 'Sex':gt 'sexm', 'miss'
 			act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
@@ -303,6 +304,7 @@ if $ARGS[0] = 'room':
 				end
 			elseif boyonce[lover_number] = 0:
 				'<<$loverdesc[lover_number]>> throws you on the bed and starts sucking on your breasts.'
+				gs 'arousal','breasts', 1
 
 				act 'Sex':gt 'sexm', 'miss'
 				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'