123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837 |
- # lact_lib
- if $ARGS[0] = '$get_bfat_tissue':
- !! func('lact_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')
- !! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
- !! lactatemm should be calculated every day, so if the breasts size is changed naturally the lactatemm will get higher. No change when silicone tits happen. Only natural breast tissue should make milk.
- !! Usage: lactatemm = func('lact_lib','$calc_lactatemm')
- !! RESULT = lactatemm in ml*10
- if lactate = 0:
- RESULT = 0
- elseif lactate >0:
- temp_breastsize = 0
- temp_breastsize += nbsize
- temp_var = 0
- !! This if needs to be changed later. If the kid is lost during the pregnancy, Sveta may still went through full breast development. If changing something here, please contact milky_boobs in the forums.
- if kid <= 0:
- temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
- RESULT = temp_var
- else
- RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
- end
- else
- cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
- end
- 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]
- !! 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)
- !! This function is just calculating the amount of time needed to get a specific amount of milk from svetas breasts. It is not pumping milk from her or changes anything else.
- !! If you want to milk sveta, use get_breastmilk.
- if lactate > 0:
- !! 'suck_flow_rate initialized' Base Rate of sucking is 10ml/minute.
- if ARGS[1] = 0:
- !! 'adult sucking'
- suck_flow_rate = 120
- elseif ARGS[1] = 1:
- !! 'child sucking'
- suck_flow_rate = 110
- elseif ARGS[1] = 2:
- !! 'baby sucking'
- suck_flow_rate = 80
- elseif ARGS[1] = 3:
- !! 'manual_breastpump sucking'
- suck_flow_rate = 180
- elseif ARGS[1] = 4:
- !! 'electric_breastpump sucking'
- suck_flow_rate = 400
- elseif ARGS[1] = 5:
- !! 'hand expression'
- suck_flow_rate = 105
- elseif ARGS[1] = 6:
- !! 'cow milker sucking'
- suck_flow_rate = 1000
- else
- !! 'suck flow else branch'
- suck_flow_rate = 100
- end
-
- if pcs_nips > 0:
- max_nip_flow_rate = 60
- elseif pcs_nips > 20:
- max_nip_flow_rate = 80
- elseif pcs_nips > 40:
- max_nip_flow_rate = 100
- elseif pcs_nips > 60:
- max_nip_flow_rate = 120
- elseif pcs_nips > 80:
- max_nip_flow_rate = 140
- elseif pcs_nips > 100:
- max_nip_flow_rate = 160
- else
- max_nip_flow_rate = 100
- end
-
- if breastcounter > 0:
- temp_var = breastcounter/10
- soreness_mod += temp_var
- if soreness_mod > 20: soreness_mod = 20
- if nipple_cream = 1:
- soreness_mod += 20
- nipple_cream = 0
- end
- end
-
- nip_flow_mod = 1
- temp_var = breastcounter/10
- nip_flow_mod += temp_var
- if nip_flow > 30: nip_flow_mod = 30
- max_nip_flow_rate += nip_flow_mod
-
- if (lactaterate/60) < 1 and lactaterate > 0:
- temp_lactaterate = 1
- else
- temp_lactaterate = lactaterate/60
- end
-
- if lactatemv >= (ARGS[2]*10):
- if max_nip_flow_rate <= suck_flow_rate:
- temp_var = (ARGS[2]*10)/max_nip_flow_rate
- else
- temp_var = (ARGS[2]*10)/suck_flow_rate
- end
- RESULT = temp_var
- elseif lactatemv > 0 and lactatemv < (ARGS[2]*10):
- if max_nip_flow_rate <= suck_flow_rate:
- temp_var = lactatemv/max_nip_flow_rate
- temp_var2 = (ARGS[2]*10) - lactatemv
- if max_nip_flow_rate <= temp_lactaterate:
- temp_var += temp_var2/max_nip_flow_rate
- else
- temp_var += temp_var2/(temp_lactaterate*10)
- end
- else
- temp_var = lactatemv/suck_flow_rate
- temp_var2 = (ARGS[2]*10) - lactatemv
- if suck_flow_rate <= temp_lactaterate:
- temp_var += temp_var2/suck_flow_rate
- else
- temp_var += temp_var2/(temp_lactaterate*10)
- end
- end
- RESULT = temp_var
- elseif lactatemv <=0:
- if max_nip_flow_rate <= suck_flow_rate:
- if max_nip_flow_rate <= temp_lactaterate:
- temp_var = (ARGS[2]*10)/max_nip_flow_rate
- else
- temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
- end
- else
- if suck_flow_rate <= temp_lactaterate:
- temp_var = (ARGS[2]*10)/suck_flow_rate
- else
- temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
- end
- end
- RESULT = temp_var
- else
- RESULT = 0
- end
- else
- RESULT = 0
- end
- 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]
- !! 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
- !! Sveta, someone or something tries to milk Svetas breasts, so the daily variable breastpumped is switched on. This is used for the femcycle. If this is not switched on, possible changes like prolactinlvl etc go down.
- breastpumped = 1
- if soreness_mod <= 0: soreness_mod = 1
- !! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk. Base rate of sucktion is 10ml/minute x 10. So if the sucktion rate is 10ml/min then suck_flow_rate = 100.
- if ARGS[1] = 0:
- !! 'adult sucking'
- suck_flow_rate = 120
- temp_var = pcs_mood +(ARGS[2]/8)
- if temp_var > 100:
- pcs_mood = 100
- else
- pcs_mood += ARGS[2]/8
- end
- elseif ARGS[1] = 1:
- !! 'child sucking'
- suck_flow_rate = 110
- temp_var = pcs_mood + (ARGS[2]/2)
- if temp_var > 100:
- pcs_mood = 100
- else
- pcs_mood += ARGS[2]/2
- end
- elseif ARGS[1] = 2:
- !! 'baby sucking'
- suck_flow_rate = 80
- temp_var = pcs_mood + ARGS[2]
- if temp_var > 100:
- pcs_mood = 100
- else
- pcs_mood += ARGS[2]
- end
- elseif ARGS[1] = 3:
- !! 'manual_breastpump sucking'
- suck_flow_rate = 180
- elseif ARGS[1] = 4:
- !! 'electric_breastpump sucking'
- suck_flow_rate = 400
- elseif ARGS[1] = 5:
- !! 'hand expression'
- suck_flow_rate = 105
- elseif ARGS[1] = 6:
- !! 'cow milker sucking'
- suck_flow_rate = 1000
- else
- !! 'suck flow else branch'
- suck_flow_rate = 100
- end
- !! If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
- if breastcounter > 0:
- temp_var = breastcounter/10
- soreness_mod += temp_var
- if soreness_mod > 30: soreness_mod = 30
- if nipple_cream = 1:
- soreness_mod += 20
- nipple_cream = 0
- end
- end
- !! If Sveta is not lactating we still need to do some actions. This is handled in here. Nipple pain + breast pain are applied as well as stamina is used.
- if lactate <= 0:
- if milkoverdemand <= 0: milkoverdemand = 0
- pump_stop_brake = 0
- !! This is how much milk demand is applied to the breasts. In this function it is needed to calculate the nipple pain and breast pain.
- max_sucktion_demand = suck_flow_rate*ARGS[2]
- if pain['nipples'] <= 60:
- suck_until_pain = (((60 - pain['nipples'])*soreness_mod)*10)/(suck_flow_rate/18)
- end
- temp_var = pain['nipples'] + max_sucktion_demand/(soreness_mod*100)
- if temp_var > 60:
- pain['nipples'] = 65
- pump_stop_brake = 1
- pumptime = suck_until_pain
- max_sucktion_demand = suck_flow_rate*pumptime
- else
- pain['nipples'] += max_sucktion_demand/(soreness_mod*100)
- end
- temp_var = pain['breasts'] + max_sucktion_demand/10000
- if temp_var > 20:
- pain['breasts'] = 25
- else
- pain['breasts'] += max_sucktion_demand/10000
- end
- !! Pumping breasts is exhausting even if no milk comes. Pumping will impact the stamina of Sveta if she is not lactating.
- temp_var = pcs_stam - max_sucktion_demand/300
- if temp_var < 0:
- pcs_stam = 0
- !! energy usage flag on.
- energytomilkpump = 1
- pcs_sweat += max_sucktion_demand/1000
- else
- pcs_stam -= max_sucktion_demand/300
- pcs_sweat += max_sucktion_demand/1000
- !! energy usage flag on.
- energytomilkpump = 1
- end
- if pumptime < 10:
- breastcounter += 1
- else
- breastcounter += pumptime/10
- end
- milkoverdemand += max_sucktion_demand
- RESULT = 0
- elseif lactate > 0:
- !! How much milk can go through the nipple. Base rate is 10ml/minute (100) when sucktion is applied to the nipple. If the demand is higher than the nipple can push through, nipple soreness will happen more quickly.
- if pcs_nips > 0:
- max_nip_flow_rate = 60
- elseif pcs_nips > 20:
- max_nip_flow_rate = 80
- elseif pcs_nips > 40:
- max_nip_flow_rate = 100
- elseif pcs_nips > 60:
- max_nip_flow_rate = 120
- elseif pcs_nips > 80:
- max_nip_flow_rate = 140
- elseif pcs_nips > 100:
- max_nip_flow_rate = 160
- else
- max_nip_flow_rate = 100
- end
- !! If you pump more, more milk will be able to flow out, disregarding nipplesize. Svetas nipples will get used to have milk stream through them, grows and drops with the breastcounter.
- nip_flow_mod = 1
- nip_flow_mod += breastcounter
- if nip_flow > 400: nip_flow_mod = 400
- max_nip_flow_rate += nip_flow_mod
- !! How much milk demand is applied to the breasts.
- max_sucktion_demand = suck_flow_rate*ARGS[2]
- !! We want to know if we can just suck out what is already stored or if additional milk production is needed to go through the whole pumping/sucking.
- !! If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
- !! Also lets make sure we start at zero from the stuff we get from Sveta.
- milkedvolume = 0
- !! Case: Enough milk in Svetas breasts, covering the demand
- if lactatemv >= max_sucktion_demand:
- !! Checking if svetas nipple flow is enough to serve the demand. If yes - get the demand; If no - get what she is able to give us.
- if max_nip_flow_rate >= suck_flow_rate:
- milkedvolume = max_sucktion_demand
- lactatemv -= max_sucktion_demand
- else:
- milkedvolume = max_nip_flow_rate*ARGS[2]
- lactatemv -= milkedvolume
- end
- !! Case: Not enough milk in Svetas breasts.
- elseif lactatemv < max_sucktion_demand:
- !! We have two sub cases in this one. Sveta has no lactatemv and Sveta has not enough lactatemv. This means she has to produce more milk, but first we need to know how much is needed.
- !! temp_var will be the amount of milk Sveta has to produce to serve the demand. pump time left is the time left after lactatemv is drained.
- if lactatemv <= 0:
- temp_var = max_sucktion_demand
- pumptime_left = ARGS[2]
- else
- temp_var = max_sucktion_demand - lactatemv
- if max_nip_flow_rate >= suck_flow_rate:
- pumptime_left = ARGS[2] - (lactatemv/suck_flow_rate)
- else
- pumptime_left = ARGS[2] - (lactatemv/max_nip_flow_rate)
- end
- if pumptime_left < 0: pumptime_left = 0
- end
- !! Now we know how much time we have and how much demand we have. Time to check if Sveta can do it.
- !! For the case, that svetas milk flow is not big enough pumptime left will be 0, therefore this is handled here.
- if pumptime_left >0:
- if max_nip_flow_rate >= suck_flow_rate:
- !! the lactaterate is per hour, so it is possible that lactaterate will end up being zero when devided by 60. therefore everything here is multiplied by 100.
- if (suck_flow_rate*100) <= ((lactaterate*100)/60):
- milkedvolume += suck_flow_rate*pumptime_left
- else
- milkedvolume += ((((lactaterate*100)/60)*pumptime_left)/100)
- breastcounter += 2
- end
- else
- !! Same here as above.
- if (max_nip_flow_rate*100) <= ((lactaterate*100)/60):
- milkedvolume += max_nip_flow_rate*pumptime_left
- breastcounter += 2
- else
- milkedvolume += ((((lactaterate*100)/60)*pumptime_left)/100)
- breastcounter += 2
- end
- end
- !! Produced milk needs to be subtracted from the hourly lactate rate, so femcycle is only adding the milk that was not produced yet in the next hour
- if pumptime_left > 60:
- if ((pumptime_left*100)/60) > 100:
- lactaterate_use -= ((((lactaterate*100)/60)*(pumptime_left mod 60))/100)
- else
- lactaterate_use = lactaterate
- end
- else
- if lactaterate >= lactaterate_use:
- lactaterate_use -= milkedvolume
- else
- lactaterate_use = lactaterate
- end
- end
- if lactaterate_use <= 0: lactaterate_use = 0
- !! Sveta had to make milk, so she needs to use some of her body resources to make the milk.
- if milkedvolume > 0:
- !! energy usage flag on. Can be used in events to show that sveta is getting hungry or thirsty
- energytomilkpump = 1
- pcs_stam -= max_sucktion_demand/300
- if pcs_stam <= 0: pcs_stam = 0
- pcs_sweat += max_sucktion_demand/1000
- pcs_hydra -= milkedvolume/120
- if pcs_hydra < 1: pcs_hydra = 1
- pcs_energy -= milkedvolume/1200
- end
- end
- !! Now we check if sveta was able to make it or not. If not we have milk overdemand which will be used in femcycle to make her produce more milk next day.
- if temp_var > milkedvolume:
- milkoverdemand += (temp_var - milkedvolume)
- end
- !! time to add the pumped lactatemv to the milkedvolume and empty lactatemv.
- milkedvolume += lactatemv
- lactatemv = 0
- !! Here we have nipple and breastpain. The idea is - if there is more sucktion than the nipples can take more pain is applied. If the breasts make less milk then demanded pain to the breasts is applied.
- !! Else - there will only be nipple pain.
- if max_nip_flow_rate < suck_flow_rate:
- temp_var = pain['nipples'] + ((suck_flow_rate - max_nip_flow_rate)*100*ARGS[2])/2000 - (soreness_mod*ARGS[2])*15
- if temp_var >= 60:
- pain['nipples'] = 65
- elseif temp_var <= 0:
- pain['nipples'] += 1
- else
- pain['nipples'] += (((suck_flow_rate - max_nip_flow_rate)*100*ARGS[2])/2000 - (soreness_mod*ARGS[2])*15)
- end
- else
- if ARGS[2] < 10:
- pain['nipples'] += 1
- elseif ARGS[2] >= 10 and soreness_mod > ARGS[2]:
- pain['nipples'] += 1
- else
- pain['nipples'] += (ARGS[2]/10 - soreness_mod/10)
- end
- end
- if max_nip_flow_rate >= suck_flow_rate:
- if (suck_flow_rate*100) > ((lactaterate*100)/60):
- temp_var = pain['breasts'] + (((suck_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
- if temp_var > 20:
- pain['breasts'] = 20
- else
- pain['breasts'] += (((suck_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
- end
- end
- else
- if (max_nip_flow_rate*100) > ((lactaterate*100)/60):
- temp_var = pain['breasts'] + (((max_nip_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
- if temp_var > 20:
- pain['breasts'] = 20
- else
- pain['breasts'] += (((max_nip_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
- end
- end
- end
- end
- if pumptime < 10:
- breastcounter += 1
- else
- breastcounter += pumptime/10
- end
- !! Done - Result is the milked volume.
- RESULT = milkedvolume
- end
- end
- !! bp_milking - breast pump milking
- !! use href="exec:gt ''lact_lib'',''bp_milking''"
- if $ARGS[0] = 'bp_milking':
- pumptime = 0
- pumptype = 0
- if pump_bottletype < 1500: pump_bottletype = 1500
- if bpbottles <= 0: bpbottles = 1
- if $location_type ! 'bathroom' and pcs_exhibition < 60:
- 'You can''t use it here.'
- else
- *clr
- cla
- 'How long do you want to pump your breasts with the manual breast pump?'
- if bpbottlem > 0:
- if pump_bottletype = 1500:
- 'Current bottle size in use: >150ml | <a href="exec:pump_bottletype = 2500 & gt ''lact_lib'', ''bp_milking''">250ml</a>'
- else
- 'Current bottle size in use <a href="exec:pump_bottletype = 1500 & gt ''lact_lib'', ''bp_milking''">150ml</a> | >250ml'
- end
- end
- '<center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
- if lactatemv > 0:
- pumptime = (func('lact_lib','$get_breastmilk_time', 3, (lactatemv/10)))
- if pumptime > 5:
- pumptime -= 2
- end
- if pumptime > 60:
- act 'Pump until breasts are empty':
- *clr
- cla
- minut += 2
- 'As you prepare for pumping you weight your breasts in your hands. You feel that your breasts carry a large amount of milk and pumping will probably take a long time.'
- 'Getting relieve for your breasts with the manual breast pump will probably take at least <<pumptime>> minutes.'
- if pcs_know_mward <= 0:
- 'You concider visiting a hospital to get help or buying a better breastpump.'
- pcs_ask_mward_help = 1
- pcs_knows_electric_pump = 1
- end
- 'Do you want to continue?'
- act 'Don''t pump':gt $loc, $metka
- act 'Continue':
- gt 'lact_lib', 'milking'
- end
- end
- elseif pumptime <= 0:
- act 'Pump until breasts are empty':
- *clr
- cla
- minute += 2
- 'As you prepare for pumping you weight your breasts in your hands. Your breasts feel really empty. There is no need to pump now.'
- act 'Don''t pump':gt $loc, $metka
- act 'back':gt 'lact_lib', 'bp_milking'
- end
- else
- act 'Pump until breasts are empty':
- pumptime = func('lact_lib','$get_breastmilk_time', 3, (lactatemv/10))
- if pumptime > 5:
- pumptime -= 2
- end
- gt 'lact_lib', 'milking'
- end
- end
- end
- act '15 Minutes':
- pumptime = 15
- gt 'lact_lib', 'milking'
- end
- act '30 Minutes':
- pumptime = 30
- gt 'lact_lib', 'milking'
- end
- act 'Custom':
- pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
- if pumptime <= 0 or pumptime > 60:
- minut += 2
- act 'Don''t pump':gt $loc, $metka
- act 'back':gt 'lact_lib', 'bp_milking'
- elseif pumptime > 0 and pumptime <= 60:
- gt 'lact_lib', 'milking'
- end
- end
- act 'Don''t pump':gt $loc, $metka
- end
- end
- !! man_milking - manual (with hands) milking
- !! use href="exec:gt ''lact_lib'',''man_milking''"
- !! Warning! Protoype function! Don not make changes to this function as it is not used yet!
- if $ARGS[0] = 'man_milking':
- pumptime = 0
- pumptype = 1
- if $location_type ! 'bathroom' and pcs_inhib < 60:
- 'You can''t do this here.'
- else
- *clr
- cla
- pumptime = input ("How long would you like to milk your breasts? (Not more than 60 minutes)")
- if pumptime <= 0 or pumptime > 60:
- minut += 2
- act 'Don''t milk':gt $loc, $metka
- elseif pumptime > 0 and pumptime <= 60:
- gt 'lact_lib', 'milking'
- end
- end
- end
- !! milking
- !! never use directly. Always use bp_milking, man_milking or sex_milking
- if $ARGS[0] = 'milking':
- !! if pumptime <= 0 or pumptime > 60:
- !! act 'Finish':gt $loc, $metka
- !! end
- if pumptype = 1:
- pumptime = (pumptime*6)/10
- end
-
- !! :loop
- !! if k < kid:
- !! gs 'kid','kidlist'
- !! k += 1
- !! jump 'loop'
- !! end
- if lactate > 0 and pain['nipples'] < 60:
- milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
- '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
- if pumptime > 1:
- 'You attach the pump to your breast and start rythmically squeezing the bulb for <<pumptime>> minutes.'
- else
- 'You attach the pump to your breast and start rythmically squeezing the bulb for one minute.'
- end
- !! Fill the bottles :D
- if milkedvolume > pump_bottletype and (bpbottles*1500 + bpbottlem*2500) = pump_bottletype:
- 'During pumping you have to empty the collecting bottle as it filled up with your milk.'
- 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<pump_bottletype/10>>ml of your milk.'
- 'To collect all your pumped milk you should probably check if the pharmacy has additional bottles for your breast pump.'
- pcs_knowsmilkbottles = 1
- elseif milkedvolume > pump_bottletype and (bpbottles*1500 + bpbottlem*2500) > pump_bottletype:
- !! Checking which bottletype is used and filling those bottles up before the other type is used.
- bp_used_mbottle = 0
- bp_used_sbottle = 0
- :sbottleloop
- if pump_bottletype < 2500 and milkedvolume >= 1500 and bp_used_sbottle < bpbottles:
- bp_used_sbottle += 1
- milkedvolume -= 1500
- jump 'sbottleloop'
- end
- :mbottleloop
- if pump_bottletype >= 2500 and milkedvolume >= 2500 and bp_used_mbottle < bpbottlem:
- bp_used_mbottle += 1
- milkedvolume -= 2500
- jump 'mbottleloop'
- end
- !! Checking for the milkedvolume and if there are bottles left. if yes - use these bottles
- if milkedvolume > 0 and (((bpbottlem - bp_used_mbottle) > 0) or ((bpbottles - bp_used_sbottle) > 0)):
- :altfill01
- if pump_bottletype < 2500 and milkedvolume >= 2500 and bp_used_mbottle < bpbottlem:
- bp_used_mbottle += 1
- milkedvolume -= 2500
- jump 'altfill01'
- end
- :altfill02
- if pump_bottletype >= 2500 and milkedvolume >= 1500 and bp_used_sbottle < bpbottles:
- bp_used_sbottle += 1
- milkedvolume -= 1500
- jump 'altfill02'
- end
- end
- !! by this point all bottles should have been used up. Everything else needs to end up in the drain.
- if milkedvolume > 0 and bpbottlem = bp_used_mbottle and bpbottles = bp_used_sbottle:
- 'During pumping you have to switch the collecting bottle as it filled up with your milk. Unfortunately you don''t have enough bottles to collect all your milk.'
- 'You had to pour <<milkedvolume/10>>ml of your breast milk into the sink.'
- milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500))
- elseif milkedvolume > 0 and milkedvolume < 1500 and (bpbottles - bp_used_sbottle) > 0:
- 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
- elseif milkedvolume > 0 and milkedvolume < 2500 and milkedvolume > 1500 and (bpbottlem - bp_used_mbottle) > 0:
- 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
- else
- 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
- end
- if bp_used_mbottle >= 1 or bp_used_sbottle >= 1:
- '<center><img <<$set_imgh>> src="images/pc/body/tits/bottles_full.jpg"></center>'
- if milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500)):
- 'You pumped <<milkedvolume/10>>ml of milk from your breasts, collecting it in:'
- if bp_used_sbottle = 1:
- 'One 150ml bottle'
- elseif bp_used_sbottle > 1:
- '<<bp_used_sbottle>> x 150ml bottles'
- end
- if bp_used_mbottle = 1:
- 'One 250ml bottle'
- elseif bp_used_mbottle > 1:
- '<<bp_used_mbottle>> x 250ml bottles'
- end
- else
- 'You pumped <<((bp_used_mbottle*2500)+(bp_used_sbottle*1500)+milkedvolume)/10>>ml of milk from your breasts collecting it in:'
- if bp_used_sbottle = 1:
- 'One 150ml bottle'
- elseif bp_used_sbottle > 1:
- '<<bp_used_sbottle>> x 150ml bottles'
- end
- if bp_used_mbottle = 1:
- 'One 250ml bottle'
- elseif bp_used_mbottle > 1:
- '<<bp_used_mbottle>> x 250ml bottles'
- end
- if (bpbottles - bp_used_sbottle) > 0 and milkedvolume <= 1500:
- 'You also stored <<milkedvolume/10>>ml of breast milk in a 150ml bottle.'
- elseif (bpbottlem - bp_used_mbottle) > 0 and milkedvolume <= 2500:
- 'You also stored <<milkedvolume/10>>ml of breast milk in a 250ml bottle.'
- else
- 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
- 'bp_used_mbottle: <<bp_used_mbottle>>'
- 'bp_used_sbottle: <<bp_used_sbottle>>'
- 'milkedvolume: <<milkedvolume>>'
- 'pump_bottletype: <<pump_bottletype>>'
- 'bpbottles: <<bpbottles>>'
- 'bpbottlem: <<bpbottlem>>'
- end
- milkedvolume += bp_used_mbottle*2500 + bp_used_sbottle*1500
- end
- else
- 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
- 'bp_used_mbottle: <<bp_used_mbottle>>'
- 'bp_used_sbottle: <<bp_used_sbottle>>'
- 'milkedvolume: <<milkedvolume>>'
- 'pump_bottletype: <<pump_bottletype>>'
- 'bpbottles: <<bpbottles>>'
- 'bpbottlem: <<bpbottlem>>'
- end
- else
- 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
- end
- breastcounter += 1
- if energytomilkpump > 0 and pcs_energy = 0:
- '<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
- energytomilkpump = 0
- elseif energytomilkpump > 0:
- '<br>You feel a bit thirsty after pumping.'
- energytomilkpump = 0
- end
- if bcream_used = 1:
- pcs_nips += rand(0,2)
- bcream_used = 0
- end
- minut += pumptime
- elseif lactate = 0 and pain['nipples'] < 60:
- if rand(1,50) + prolactinlvl >= rand(200,250):
- '<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.'
- else
- 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
- end
- if prolactinlvl > 70: '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 > 75:
- 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
- end
- minut += pumptime
- else
- 'Your nipples feel too sore to use the pump right now.'
- end
- if milkedvolume > 0:
- lact_engorgement = 0
- lactatemess = 0
- act 'Pour it into the sink':
- *clr
- cla
- if milkedvolume > 1500 and bpbottles <= 1:
- '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
- '<center>You pour 150ml of your breast milk into the sink and clean up your breastpump.</center>'
- else
- '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
- '<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
- end
- minute += 5
- act 'Finish':
- milkedvolume = 0
- gt $loc, $metka
- end
- end
- if pcs_hydra < 100:
- act 'Drink it':
- *clr
- cla
- '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
- '<center>You drink your own breast milk and clean up your breastpump.</center>'
- '<center>The milk is still warm from your breasts.</center>'
- if pcs_hydra < 90:
- pcs_hydra += 10
- else
- pcs_hydra = 100
- end
- minut += 7
- act 'Finish':
- milkedvolume = 0
- gt $loc, $metka
- end
- end
- end
- else
- act 'Finish':gt $loc, $metka
- end
- end
- !! engorged_morning
- !! use href="exec:gt ''lact_lib'',''engorged_morning''"
- if $ARGS[0] = 'engorged_morning':
- minut += 5
- '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
- 'You wake up and your breasts hurt. As you look down, you can see that you have a heavy letdown. You should pump your breasts as soon as possible.'
- act 'Finish':gt $loc, $metka
- end
- --- lact_lib ---------------------------------
|