lact_lib.qsrc 52 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073
  1. # lact_lib
  2. !! ---- new lactation string index array for all lactation functions ----------
  3. !! lactation['active'] = old "lactate" variable
  4. !! lactation['induced'] = old lactateinduced variable
  5. !! lactation['pc_aware'] = old pcs_knowsaboutlactation variable
  6. !! lactation['lactaterate'] = old lactaterate variable now in ml*1000
  7. !! lactation['breastmv'] = old lactatemv variable now in ml*1000
  8. !! lactation['breastmm'] = old lactatemm variable now in ml*1000
  9. !! lactation['prolactinlvl'] = old prolactinlvl variable
  10. !! lactation['milkedvolume'] = old milkedvolume variable
  11. !! lactation['lactmess'] = old lactatemess variable
  12. !! lactation['engorgement'] = old lact_engorgement variable. 1 = engorged breasts, 0 = not engorged.
  13. !! lactation['dailyoverdemand'] = old milkoverdemand variable
  14. !! lactation['inducegrowth'] = old milkinduceday variable
  15. !! lactation['nipgrowth'] = variable to count nipplegrowth with lactation start nipples will grow by 2 points.
  16. !! lactation['milkgrowday'] = old milkgrowday variable.
  17. !! lactation['breastdensitytype'] = variable to define breast type. 0 = not initialized, 1 = 17% gland tissue, 2 = 36% gland tissue, 3 = 55% gland tissue, 4 = 74% gland tissue, 5 = 93% gland tissue
  18. !! lactation['breastglandtissue'] = the amount of glandular tissue per breast
  19. !! lactation['alveoliexpandlvl'] = variable for alveoli expansion 0 = not expanded 5 fully expanded.
  20. !! lactation['breastcount'] = how many breasts does sveta have? Usually should be set to 2.
  21. !! lactation['maturebreast'] = Did Svetas breast fully change during pregnancy yet? 0 = no, 1 = yes
  22. !! lactation['breastpumped'] = old breastpumped variable.
  23. !! ---- old variables ---------------------------------------------------------
  24. !! - These Variables still need to be replaced/removed or substituted. -
  25. !! breastcounter
  26. !! di_i
  27. !! emb_i
  28. !! energytomilkpump
  29. !! lactaterate_use
  30. !! max_nip_flow_rate
  31. !! max_sucktion_demand
  32. !! mbarrcool
  33. !! mbarrfill
  34. !! mbarrloca
  35. !! mbarrmage
  36. !! mbarrtype
  37. !! milk_demand
  38. !! nip_flow
  39. !! nip_flow_mod
  40. !! nipple_cream
  41. !! pcs_ask_mward_help
  42. !! pcs_know_mward
  43. !! pcs_knows_electric_pump
  44. !! pcs_massagedherbreasts
  45. !! pcs_usedbreastpumponherself
  46. !! piits_i
  47. !! pump_bottletype
  48. !! pump_stop_brake
  49. !! pump_timestamp
  50. !! pumpinggrowth
  51. !! pumptime
  52. !! pumptime_left
  53. !! pumptype
  54. !! rbc_index
  55. !! reg_bottlem_count
  56. !! reg_bottles_count
  57. !! soreness_mod
  58. !! suck_flow_rate
  59. !! suck_until_pain
  60. !! temp_breastsize
  61. !! temp_lactaterate
  62. !! temp_timestamp
  63. !! temp_var
  64. !! temp_var2
  65. !! ts_i
  66. !! umbc_i
  67. !! usbc_i
  68. !! vmb_i
  69. !! This function is called only once in the begining of the game. It is calculating svetas mammary gland density and alveolicount and sets the breastcount which will be 2 naturally
  70. if $ARGS[0] = 'init_breasttissue' and lactation['breasttissueinitiated'] <= 0:
  71. !! use func('lact_lib','init_breasttissue')
  72. lactation['breasttissueinitiated'] = 1
  73. !! breast density type. Density of glands.
  74. !! 0 = not initialized, 1 = 17% gland tissue, 2 = 36% gland tissue, 3 = 55% gland tissue, 4 = 74% gland tissue, 5 = 93% gland tissue. This is based on studies I found on the internet.
  75. !! The logic behind the below is, when losing fat, breasts usually volunteer first. So the more bodyfat sveta has, the more she has in her breasts, and therefore the percentage of gland tissue goes down.
  76. !! Breasts cannot lose glandular tissue (if not cut out, yikes), therefore this will define the maximum they can shrink if fat is removed. At the moment this is done by Genbsize. The below will replace this in the future.
  77. !! Genbsize is the breastsize that is given to Sveta by her parents. During puberty the breasts swell up to this size with mostly being fat tissue. Due to genetic variability and hormones, breasts will develop more or
  78. !! less mammary gland tissue during puberty. As the game starts after Svetas puberty, this is impossible to simulate. That is why I came up with the below part. It will calculate the breastdensity using Svetas body fat.
  79. !! During pregnancy most of the breast fat is getting replaced by conjuctive tissue and mammary glands. But the genetical breastsize also affects the total mammary gland growth. So for example, if Sveta is a chubby,
  80. !! and has D cups with a breastdensitytype of 1, and she looses weight, her breast will shrink down to B cups. If her Genbsize is D, then she will grow D cups or bigger during pregnancy. But that is part of another function.
  81. lactation['breastcount'] = 2
  82. if lactation['breastdensitytype'] <= 0:
  83. if pregtimes > 0:
  84. lactation['breastdensitytype'] = 5
  85. elseif salo <= 20:
  86. lactation['breastdensitytype'] = 5
  87. elseif salo <= 40:
  88. lactation['breastdensitytype'] = 4
  89. elseif salo <= 60:
  90. lactation['breastdensitytype'] = 3
  91. elseif salo <= 80:
  92. lactation['breastdensitytype'] = 2
  93. elseif salo <= 100:
  94. lactation['breastdensitytype'] = 1
  95. end
  96. end
  97. !! breast tissue that can have mammary glands is nbsize + magicf2b
  98. !! Silicone is obviously not a good material to grow milkglands in
  99. !! full breastccm would be nbsize + magicf2b + silicone.
  100. !! Getting percentage tissue from breastccm.
  101. lactation['breastccm'] = func('lact_lib','bsizetoccm',(nbsize + magicf2b + silicone))
  102. lactation['nbsizepercent'] = (nbsize/(nbsize + magicf2b + silicone))*100
  103. lactation['magicf2bpercent'] = (magicf2b/(nbsize + magicf2b + silicone))*100
  104. lactation['siliconepercent'] = (silicone/(nbsize + magicf2b + silicone))*100
  105. lactation['nbsizepercent_wos'] = (nbsize/(nbsize + magicf2b))*100
  106. lactation['magicf2bpercent_wos'] = (magicf2b/(nbsize + magicf2b))*100
  107. lactation['nbsizechange'] = nbsize
  108. lactation['magicf2bchange'] = magicf2b
  109. lactation['siliconechange'] = silicone
  110. !! Getting the usuable amount of breast tissue which can actually have mammary glands (in ccm)
  111. lactation['breastuseabletissue'] = ((lactation['nbsizepercent'] + lactation['magicf2bpercent'])*lactation['breastccm'])/100
  112. lactation['breastsiliconeccm'] = (lactation['siliconepercent']*lactation['breastccm'])/100
  113. !! Getting mammary gland tissue per breast, based on the breastdensitytype. Explaination on the percentages is in the head of the function.
  114. if lactation['breastdensitytype'] = 1:
  115. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*17)/100
  116. lactation['breastdensitypercent'] = 17
  117. elseif lactation['breastdensitytype'] = 2:
  118. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*36)/100
  119. lactation['breastdensitypercent'] = 36
  120. elseif lactation['breastdensitytype'] = 3:
  121. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*55)/100
  122. lactation['breastdensitypercent'] = 55
  123. elseif lactation['breastdensitytype'] = 4:
  124. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*74)/100
  125. lactation['breastdensitypercent'] = 74
  126. elseif lactation['breastdensitytype'] = 5:
  127. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*93)/100
  128. lactation['breastdensitypercent'] = 93
  129. end
  130. !! calculating breast fat per breast
  131. lactation['breastfat'] = lactation['breastuseabletissue'] - lactation['breastglandtissue']
  132. !! calculating alveolicount per breast Alveoli volume 2.18mm² (flat), milk volume 0.18mm³ (flat) and 4mm³ (inflated), milk volume 2mm³ (inflated) 1000 mm³ = 1 cm³
  133. if lactation['active'] <= 0:
  134. lactation['alveolicount'] = ((lactation['breastglandtissue']*100000)/218)
  135. lactation['alveoliexpandlvl'] = 0
  136. lactation['nipgrowth'] = 0
  137. else
  138. lactation['alveolicount'] = ((lactation['breastglandtissue']*1000)/4)
  139. lactation['alveoliexpandlvl'] = 10
  140. lactation['nipgrowth'] = 2
  141. end
  142. !! storing start volumes for later use
  143. lactation['breastccm_start'] = lactation['breastccm']
  144. lactation['breastfat_start'] = lactation['breastfat']
  145. lactation['breastglandtissue_start'] = lactation['breastglandtissue']
  146. lactation['alveolicount_start'] = lactation['alveolicount']
  147. lactation['nipgrowth_start'] = lactation['nipgrowth']
  148. lactation['breastdensitytype_start'] = lactation['breastdensitytype']
  149. lactation['usablebtissue_start'] = lactation['usablebtissue']
  150. lactation['usablebtissue_change'] = lactation['usablebtissue']
  151. end
  152. if $ARGS[0] = 'bsizetoccm':
  153. !! function to calculate volume per one breast from npc bust size.
  154. !! Getting breast ccm per breast function based on the bra size chart in here https://en.wikipedia.org/wiki/Bra_size
  155. !! I tried to create a math polynom for this, but ended up with x^16 monsters and inaccurate numbers, so I am going this approach.
  156. !! This is the most accurate function I was able to make, and is doing the job really good. So please do not touch it.
  157. !! usage func('lact_lib','bsizetoccm', (nbsize + magicf2b + silicone))
  158. if ARGS[1] < 0:
  159. result = 100
  160. elseif ARGS[1] <= 15:
  161. result = ((ARGS[1]*14)+100)
  162. elseif ARGS[1] <= 20:
  163. result = (((ARGS[1]-15)*16)+310)
  164. elseif ARGS[1] <= 25:
  165. result = (((ARGS[1]-20)*18)+390)
  166. elseif ARGS[1] <= 30:
  167. result = (((ARGS[1]-25)*22)+480)
  168. elseif ARGS[1] <= 35:
  169. result = (((ARGS[1]-30)*24)+590)
  170. elseif ARGS[1] <= 40:
  171. result = (((ARGS[1]-35)*28)+710)
  172. elseif ARGS[1] <= 45:
  173. result = (((ARGS[1]-40)*30)+850)
  174. elseif ARGS[1] <= 50:
  175. result = (((ARGS[1]-45)*36)+1000)
  176. elseif ARGS[1] <= 55:
  177. result = (((ARGS[1]-50)*38)+1180)
  178. elseif ARGS[1] <= 60:
  179. result = (((ARGS[1]-55)*42)+1370)
  180. elseif ARGS[1] <= 65:
  181. result = (((ARGS[1]-60)*46)+1580)
  182. elseif ARGS[1] <= 70:
  183. result = (((ARGS[1]-65)*50)+1810)
  184. elseif ARGS[1] <= 75:
  185. result = (((ARGS[1]-70)*56)+2060)
  186. elseif ARGS[1] <= 80:
  187. result = (((ARGS[1]-75)*60)+2340)
  188. elseif ARGS[1] <= 85:
  189. result = (((ARGS[1]-80)*72)+2640)
  190. elseif ARGS[1] > 85:
  191. result = (((ARGS[1]-85)*84)+3000)
  192. else
  193. result = 100
  194. end
  195. end
  196. if $ARGS[0] = 'bccmtosize':
  197. !! backwardsfunction of bsizetoccm. It just reverts breast ccm to "nbsize + magicf2b + silicone"
  198. !! func('lact_lib','bccmtosize',lactation['breastccm'])
  199. if ARGS[1] < 0:
  200. result = 0
  201. elseif ARGS[1] <= 310:
  202. result = ((ARGS[1] - 100)/14)
  203. elseif ARGS[1] <= 390:
  204. result = (((ARGS[1] - 310)/16)+15)
  205. elseif ARGS[1] <= 480:
  206. result = (((ARGS[1] - 390)/18)+20)
  207. elseif ARGS[1] <= 590:
  208. result = (((ARGS[1] - 480)/22)+25)
  209. elseif ARGS[1] <= 710:
  210. result = (((ARGS[1] - 590)/24)+30)
  211. elseif ARGS[1] <= 850:
  212. result = (((ARGS[1] - 710)/28)+35)
  213. elseif ARGS[1] <= 1000:
  214. result = (((ARGS[1] - 850)/30)+40)
  215. elseif ARGS[1] <= 1180:
  216. result = (((ARGS[1] - 1000)/36)+45)
  217. elseif ARGS[1] <= 1370:
  218. result = (((ARGS[1] - 1180)/38)+50)
  219. elseif ARGS[1] <= 1580:
  220. result = (((ARGS[1] - 1370)/42)+55)
  221. elseif ARGS[1] <= 1810:
  222. result = (((ARGS[1] - 1580)/46)+60)
  223. elseif ARGS[1] <= 2060:
  224. result = (((ARGS[1] - 1810)/50)+65)
  225. elseif ARGS[1] <= 2340:
  226. result = (((ARGS[1] - 2060)/56)+70)
  227. elseif ARGS[1] <= 2640:
  228. result = (((ARGS[1] - 2340)/60)+75)
  229. elseif ARGS[1] <= 3000:
  230. result = (((ARGS[1] - 2640)/72)+80)
  231. elseif ARGS[1] > 3000:
  232. result = (((ARGS[1] - 3000)/84)+85)
  233. else
  234. result = 0
  235. end
  236. end
  237. !! function to recalculate breastccm size. Basically an update function to the init_breasttissue, but without the initialization. Used in breastgrowth function and can be used for debugging or ... whatever comes up in the future.
  238. if $ARGS[0] = 'breastrecalc':
  239. !! use func('lact_lib','breastrecalc')
  240. lactation['breastccm'] = func('lact_lib','bsizetoccm',(nbsize + magicf2b + silicone))
  241. lactation['nbsizepercent'] = (nbsize/(nbsize + magicf2b + silicone))*100
  242. lactation['magicf2bpercent'] = (magicf2b/(nbsize + magicf2b + silicone))*100
  243. lactation['siliconepercent'] = (silicone/(nbsize + magicf2b + silicone))*100
  244. lactation['magicf2bpercent_wos'] = (magicf2b/(nbsize + magicf2b))*100
  245. lactation['breastuseabletissue'] = ((lactation['nbsizepercent'] + lactation['magicf2bpercent'])*lactation['breastccm'])/100
  246. lactation['breastsiliconeccm'] = (lactation['siliconepercent']*lactation['breastccm'])/100
  247. if lactation['alveolicount'] > 0:
  248. lactation['breastglandtissue']= (lactation['alveolicount'] * (218 + (lactation['alveoliexpandlvl'] * 20)))/100000
  249. else
  250. if lactation['breastdensitytype'] = 1:
  251. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*17)/100
  252. lactation['breastdensitypercent'] = 17
  253. elseif lactation['breastdensitytype'] = 2:
  254. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*36)/100
  255. lactation['breastdensitypercent'] = 36
  256. elseif lactation['breastdensitytype'] = 3:
  257. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*55)/100
  258. lactation['breastdensitypercent'] = 55
  259. elseif lactation['breastdensitytype'] = 4:
  260. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*74)/100
  261. lactation['breastdensitypercent'] = 74
  262. elseif lactation['breastdensitytype'] = 5:
  263. lactation['breastglandtissue'] = (lactation['breastuseabletissue']*93)/100
  264. lactation['breastdensitypercent'] = 93
  265. end
  266. if lactation['active'] <= 0:
  267. lactation['alveolicount'] = ((lactation['breastglandtissue']*100000)/218)
  268. lactation['alveoliexpandlvl'] = 0
  269. lactation['breastmm'] = 0
  270. lactation['breastmv'] = 0
  271. lactation['lactaterate'] = 0
  272. if pcs_nips > lactation['nipgrowth']: pcs_nips -= lactation['nipgrowth']
  273. lactation['nipgrowth'] = 0
  274. else
  275. lactation['alveolicount'] = ((lactation['breastglandtissue']*100000)/418)
  276. lactation['alveoliexpandlvl'] = 10
  277. lactation['nipgrowth'] = 2
  278. func('lact_lib','set_breastmm')
  279. if lactation['prolactinlvl'] < 200: lactation['prolactinlvl'] = 200
  280. lactation['lactaterate'] = 1000*(lactation['prolactinlvl']/200)
  281. lactation['breastmv'] = 0
  282. lactation['nipgrowth'] = 2
  283. pcs_nips += lactation['nipgrowth']
  284. end
  285. end
  286. lactation['breastfat'] = lactation['breastuseabletissue'] - lactation['breastglandtissue']
  287. end
  288. !! This function is used for breastgrowth. When nbsize, magicf2b, silicone, alveolicount or the alveoliexpandlvl are changed the breastccm changes. Everything will be written back to the specific variable
  289. if $ARGS[0] = 'BreastGrowth':
  290. !! usage func('lact_lib','BreastGrowth')
  291. if lactation['breastccm'] <> func('lact_lib','bsizetoccm',(nbsize + magicf2b + silicone)) or lactation['alveolicount_change'] <> lactation['alveolicount'] or lactation['alveoliexpandlvl_change'] <> lactation['alveoliexpandlvl']:
  292. !! There are general breast growth events that will increase nbsize, magicf2b or silicone. So the breast "contents" have to be recalculated. This is happening here with the breastrecalc function.
  293. !! Now the fun part. Warning, crazy math ahead. I got headaches while doing this, so better not mess with it or you will break everything.
  294. !! first - check for alveoligrowth: yes, do the crazy stuff
  295. if lactation['alveolicount_change'] <> lactation['alveolicount'] or lactation['alveoliexpandlvl_change'] <> lactation['alveoliexpandlvl']:
  296. !! calculating the ccm all mammarygland tissue will use up in the breast, based on alveolicount and alveoliexpandlvl. With every level, cmm will rise by 20 per alveoli.
  297. lactation['breastglandtissue']= (lactation['alveolicount'] * (218 + (lactation['alveoliexpandlvl'] * 20)))/100000
  298. !! Crazy Math going on here. When I was coding this, only god and I knew what I was doing. Now only god knows.
  299. !! Well, this one recalculates all the CCM stuff to normal nbsize, magicf2b and silicone. It works, no idea why, but it works.
  300. lactation['breastccm'] = (lactation['breastglandtissue'] + lactation['breastfat'] + lactation['breastsiliconeccm'])
  301. lactation['siliconepercent'] = (lactation['breastsiliconeccm']/lactation['breastccm'])*100
  302. lactation['magicf2bccm'] = ((lactation['breastccm'] - ((lactation['breastccm']*lactation['siliconepercent'])/100))*lactation['magicf2bpercent_wos'])/100
  303. lactation['nbsizebccm'] = lactation['breastccm'] - lactation['breastsiliconeccm'] - lactation['magicf2bccm']
  304. lactation['nbsizepercent'] = (lactation['nbsizebccm']/lactation['breastccm'])*100
  305. lactation['magicf2bpercent'] = (lactation['magicf2bccm']/lactation['nbsizebccm'])*100
  306. nbsize = (func('lact_lib','bccmtosize',lactation['breastccm'])*lactation['nbsizepercent'])/100
  307. magicf2b = (func('lact_lib','bccmtosize',lactation['breastccm'])*lactation['magicf2bpercent'])/100
  308. lactation['nbsizechange'] = nbsize
  309. lactation['magicf2bchange'] = magicf2b
  310. lactation['siliconechange'] = silicone
  311. elseif (lactation['nbsizechange'] + lactation['siliconechange'] + lactation['magicf2bchange']) <> (nbsize + magicf2b + silicone):
  312. !! and (lactation['alveolicount_change'] = lactation['alveolicount'] or lactation['alveoliexpandlvl_change'] = lactation['alveoliexpandlvl'])
  313. func('lact_lib','breastrecalc')
  314. end
  315. end
  316. end
  317. !! new lactation['breastmm'] function. Warning! lactation['breastmm'] is now in microliter (ml*1000) for more acuracy. Alveoli count per breast times 2mm³ (2mm³ = 0,002ml) times breastcount.
  318. !! Breastcount can be changed later on if someone comes up with multibreasts or breast amputation.
  319. if $ARGS[0] = 'set_breastmm':
  320. lactation['breastmm'] = (lactation['alveolicount']*2)*lactation['breastcount']
  321. end
  322. !! Just a function used for debugging. Can be deleted if not needed anymore.
  323. if $ARGS[0] = 'show_breast_stat':
  324. !! func('lact_lib','show_breast_stat')
  325. 'lactation[''breastcount''] = <<lactation[''breastcount'']>>'
  326. 'lactation[''breasttissueinitiated''] = <<lactation[''breasttissueinitiated'']>>'
  327. 'lactation[''breastccm''] = <<lactation[''breastccm'']>>'
  328. 'lactation[''maturebreast''] = <<lactation[''maturebreast'']>>'
  329. 'lactation[''alveolicount''] = <<lactation[''alveolicount'']>>'
  330. 'lactation[''prolactinlvl''] = <<lactation[''prolactinlvl'']>>'
  331. 'lactation[''dailyoverdemand''] = <<lactation[''dailyoverdemand'']>>'
  332. 'lactation[''alveoliexpandlvl''] = <<lactation[''alveoliexpandlvl'']>>'
  333. 'lactation[''active''] = <<lactation[''active'']>>'
  334. 'lactation[''lactaterate''] = <<lactation[''lactaterate'']>>'
  335. 'lactation[''breastmm''] = <<lactation[''breastmm'']>>'
  336. 'lactation[''breastmv''] = <<lactation[''breastmv'']>>'
  337. end
  338. !! milk production function
  339. if $ARGS[0] = 'prod_milk':
  340. !! function for Svetas milk production. Milk production will cost stamina, hydration, and hunger. this function is used in breastcycle
  341. !! func('lact_lib','prod_milk',milkamount)
  342. !! result = produced breast milk amount in ml*1000
  343. !! ARGS[1] = Requested milk production amount produced in ml*1000. Usually should be the lactaterate.
  344. !! If there was milk pumped or produced during the hour, this has to be substracted.
  345. if lactation['used_lactaterate'] > 0:
  346. lactation['prod_milk_req'] = (ARGS[1] - lactation['used_lactaterate'])
  347. lactation['used_lactaterate'] += ARGS[1]
  348. if lactation['used_lactaterate'] > lactation['lactaterate']: lactation['used_lactaterate'] = lactation['lactaterate']
  349. else
  350. lactation['prod_milk_req'] = ARGS[1]
  351. lactation['used_lactaterate'] += ARGS[1]
  352. if lactation['used_lactaterate'] > lactation['lactaterate']: lactation['used_lactaterate'] = lactation['lactaterate']
  353. end
  354. !! If Sveta has salo <= 15, she will not produce breast milk as she is basically starving and her body will shut down everything that is causing too much energy consumption.
  355. if lactation['active'] > 0 and salo > 15:
  356. !! checking how much hydration, stamina and hunger is needed to produce x amount of breast milk
  357. !! checking if enough stamina and hydra is available
  358. if (lactation['prod_milk_req']/10000) < pcs_stam and (lactation['prod_milk_req']/10000) < pcs_hydra:
  359. !! full requested milk amount can be produced. substracting from stamina, hydration energy.
  360. if (lactation['prod_milk_req']/10000) < 1:
  361. pcs_stam -= 1
  362. pcs_hydra -= 1
  363. else
  364. pcs_stam -= (lactation['prod_milk_req']/10000)
  365. pcs_hydra -= (lactation['prod_milk_req']/10000)
  366. end
  367. if pcs_stam < 1: pcs_stam = 1
  368. if pcs_hydra < 1: pcs_hydra = 1
  369. if (lactation['prod_milk_req']/9000) < pcs_energy:
  370. if (lactation['prod_milk_req']/9000) < 1:
  371. pcs_energy -= 1
  372. else
  373. pcs_energy -= (lactation['prod_milk_req']/9000)
  374. if pcs_energy < 1: pcs_energy = 1
  375. end
  376. result = lactation['prod_milk_req']
  377. else
  378. !! If energy is too low, milk will be produced but there is a chance that salo will shrink.
  379. pcs_energy = 1
  380. if rand(0,100) > 95: salo -= 1
  381. if pain['breasts'] < 20: pain['breasts'] += 1
  382. result = lactation['prod_milk_req']
  383. end
  384. elseif pcs_stam <= 0 or pcs_hydra <= 0:
  385. !! if sveta has not enough hydration or stamina, no milk is produced.
  386. result = 0
  387. else
  388. if (pcs_stam*10000) < (pcs_hydra*10000):
  389. lactation['prod_milk_temp_var'] = (pcs_stam*10000)
  390. pcs_stam = 1
  391. if (lactation['prod_milk_req']/10000) < pcs_hydra:
  392. pcs_hydra -= (lactation['prod_milk_req']/10000)
  393. else
  394. pcs_hydra = 1
  395. end
  396. else
  397. lactation['prod_milk_temp_var'] = (pcs_hydra*10000)
  398. pcs_hydra = 1
  399. if (lactation['prod_milk_req']/10000) < pcs_stam:
  400. pcs_stam -= (lactation['prod_milk_req']/10000)
  401. else
  402. pcs_stam = 1
  403. end
  404. end
  405. if (lactation['prod_milk_temp_var']/9000) < pcs_energy:
  406. if (lactation['prod_milk_temp_var']/9000) < 1:
  407. pcs_energy -= 1
  408. else
  409. pcs_energy -= (lactation['prod_milk_temp_var']/9000)
  410. if pcs_energy < 1: pcs_energy = 1
  411. end
  412. else
  413. !! If energy is too low, milk will be produced but there is a chance that salo will shrink.
  414. pcs_energy = 1
  415. if rand(0,100) > 95: salo -= 1
  416. if pain['breasts'] < 20: pain['breasts'] += 1
  417. end
  418. if pcs_energy < 1: pcs_energy = 1
  419. if pcs_hydra < 1: pcs_hydra = 1
  420. if pcs_stam < 1: pcs_stam = 1
  421. result = lactation['prod_milk_temp_var']
  422. end
  423. else
  424. result = 0
  425. end
  426. end
  427. !! breast status messages - for use in stat_display
  428. if $ARGS[0] = 'breast_stat_disp':
  429. !! breast status
  430. if lactation['active'] <= 0:
  431. if lactation['growthsoreness_on'] > 0: $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel sore and swollen.</font><BR>'
  432. elseif lactation['active'] > 0 and lactation['pc_aware'] > 0:
  433. if lactation['engorgement'] > 0 and lactation['lactmess'] < 1:
  434. $stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
  435. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 3 and $clothingworntype = 'nude':
  436. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out, causing you to have a little milk residue around your nipples.</font><BR>'
  437. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 6 and $clothingworntype = 'nude':
  438. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk comming out causing you to have a lot of milk around your nipples.</font><BR>'
  439. elseif lactation['engorgement'] > 0 and lactation['lactmess'] >= 6 and $clothingworntype = 'nude':
  440. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out. Your breasts covered with your breast milk.</font><BR>'
  441. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 3:
  442. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out, causing small wet spots on your top.</font><BR>'
  443. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 6:
  444. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk comming out making visible wet circles on your top.</font><BR>'
  445. elseif lactation['engorgement'] > 0 and lactation['lactmess'] >= 6:
  446. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out. Your top is drenched with your breast milk.</font><BR>'
  447. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']*9/10:
  448. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts are firm and full from your milk.</font><BR>'
  449. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']/2:
  450. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts are heavy with your milk.</font><BR>'
  451. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']/4:
  452. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel slightly heavy from the milk inside.</font><BR>'
  453. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > 0:
  454. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your feel an easy pressure in your breasts from your milk.</font><BR>'
  455. end
  456. elseif lactation['active'] > 0 and lactation['pc_aware'] < 1:
  457. if lactation['engorgement'] > 0 and lactation['lactmess'] < 1:
  458. $stat_msg += '<BR><font color = orange>Your breasts hurt with pressure in them.</font><BR>'
  459. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 3 and $clothingworntype = 'nude':
  460. $stat_msg += '<BR><font color = red>Your breasts hurt and your nipples are wet.</font><BR>'
  461. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 6 and $clothingworntype = 'nude':
  462. $stat_msg += '<BR><font color = red>Your breasts hurt and they feel wet, some white liquid around your nipples.</font><BR>'
  463. elseif lactation['engorgement'] > 0 and lactation['lactmess'] >= 6 and $clothingworntype = 'nude':
  464. $stat_msg += '<BR><font color = red>Your breasts hurt and a white liquid is spraying out, covering your breasts.</font><BR>'
  465. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 3:
  466. $stat_msg += '<BR><font color = red>Your breasts hurt and your nipples tingle a little. There are small wet spots on your top.</font><BR>'
  467. elseif lactation['engorgement'] > 0 and lactation['lactmess'] < 6:
  468. $stat_msg += '<BR><font color = red>Your breasts hurt and your nipples tingle. There are visible wet circles on your top.</font><BR>'
  469. elseif lactation['engorgement'] > 0 and lactation['lactmess'] >= 6:
  470. $stat_msg += '<BR><font color = red>Your breasts hurt and your nipples tingle a lot. Your top is drenched with a warm liquid.</font><BR>'
  471. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']*9/10:
  472. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel firm and under pressure.</font><BR>'
  473. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']/2:
  474. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel heavy.</font><BR>'
  475. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > lactation['breastmm']/4:
  476. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your breasts feel slightly heavy.</font><BR>'
  477. elseif lactation['engorgement'] < 1 and lactation['breastmv'] > 0:
  478. $stat_msg += '<BR>'+iif(night_mode > 0,'<font color = white>','<font color = black>')+'Your feel an easy pressure in your breasts.</font><BR>'
  479. end
  480. end
  481. end
  482. !! function for breast engorment, used in breastcycle
  483. if $ARGS[0] = 'breast_engorment':
  484. if lactation['breastmv'] >= lactation['breastmm']:
  485. temp_var = lactation['breastmv'] - lactation['breastmm']
  486. lactation['breastmv'] = lactation['breastmm']
  487. if temp_var < 1000 and temp_var > 0:
  488. lactation['engorgement'] = 0
  489. elseif temp_var < 3000 and temp_var >= 1000:
  490. lactation['engorgement'] = 1
  491. lactation['lactmess'] += 1
  492. elseif temp_var < 10000 and temp_var >= 3000:
  493. lactation['engorgement'] = 1
  494. lactation['lactmess'] += 2
  495. elseif temp_var >= 10000:
  496. lactation['engorgement'] = 1
  497. lactation['lactmess'] += 3
  498. end
  499. else
  500. lactation['engorgement'] = 0
  501. if lactation['lactmess'] > 1:
  502. lactation['lactmess'] -= 2
  503. if lactation['lactmess'] < 0: lactation['lactmess'] = 0
  504. end
  505. end
  506. end
  507. !! Lactation On/Off switch function
  508. if $ARGS[0] = 'lact_switch':
  509. !! Usage
  510. !! func('lact_lib','lact_switch')
  511. if lactation['active'] <= 0:
  512. !! Sveta is not aware of the lactation yet. She will notice when playing with her breasts or applying pressure to them. Or during pumping or when she starts to leak.
  513. lactation['pc_aware'] = 0
  514. !! setting lactation to active
  515. lactation['active'] = 1
  516. !! setting breast maximum milk volume via function
  517. func('lact_lib','set_breastmm')
  518. !! resetting prolactinlvl so that the initial production rate is not too high
  519. if lactation['prolactinlvl'] < 200: lactation['prolactinlvl'] = 200
  520. !! setting the lactation rate. Warning! lactation rate is in ml*1000 now for higher accuracy.
  521. lactation['lactaterate'] = 1000*(lactation['prolactinlvl']/200)
  522. !! setting milk volume in breasts to 0. Will fill up with lactaterate in another part of the breastcycle
  523. lactation['breastmv'] = 0
  524. !! nipples will grow a bit with extended milk channels. If lactation stops, this will be substracted from the nipples again and nipples will shrink.
  525. lactation['nipgrowth'] = 2
  526. pcs_nips += lactation['nipgrowth']
  527. if lactation['alveoliexpandlvl'] < 10: lactation['alveoliexpandlvl'] = 10
  528. lactation['milkprod_type'] = 1
  529. else
  530. !! If lactation is on, the stuff below will switch it off again.
  531. lactation['active'] = 0
  532. lactation['lactaterate'] = 0
  533. lactation['breastmv'] = 0
  534. lactation['breastmm']
  535. if pcs_nips > lactation['nipgrowth']: pcs_nips -= lactation['nipgrowth']
  536. lactation['nipgrowth'] = 0
  537. end
  538. end
  539. !! new breast cycle function, will replace the monster lactation function in femcyc
  540. if $ARGS[0] = 'breastcycle':
  541. if lactation['breasttissueinitiated'] <= 0: func('lact_lib','init_breasttissue')
  542. !! usage func('lact_lib','breastcycle')
  543. !! if lactating or not, breasts will grow during pregnancy. This will only happen during first full pregnancy
  544. if pregchem => 2191 and lactation['maturebreast'] <= 0:
  545. !! Alveoligrowth/breastgrowth + 78876 new aveoli per breast average during pregnancy
  546. !! Checking pregchem last. It should not be small than 0.
  547. if lactation['pregchemlast'] <= 0:
  548. lactation['pregchemlast'] = 2191
  549. end
  550. if lactation['preggrowth'] <= 78876 and (pregchem - lactation['pregchemlast']) > 0:
  551. lactation['preggrowth'] = (pregchem - 2191) * 36
  552. lactation['alveolicount'] = lactation['alveolicount_start'] + lactation['preggrowth']
  553. lactation['growthsoreness_on'] = 1
  554. if pain['breasts'] <= 20: pain['breasts'] = 20
  555. else
  556. lactation['growthsoreness_on'] = 0
  557. lactation['maturebreast'] = 1
  558. end
  559. lactation['pregchemlast'] = pregchem
  560. elseif PregChem > 4383 and lactation['maturebreast'] > 0:
  561. !! pregnancy prolactinlvl rise
  562. if lactation['prolactinlvl'] < 200 and lactation['active'] <= 0:
  563. if rand(0,100) > 25:
  564. lactation['prolactinlvl'] +=1
  565. end
  566. end
  567. end
  568. !! checking for prolactin and if svetas breasts were worked (e.g. breast stimulation via massage, pumps, by mouth, or whatever)
  569. if lactation['active'] <= 0:
  570. !! prolactinlvl calculation. If sveta never was pregnant, prolactinlvl will grow slower
  571. if lactation['milkgrowday'] < daystart:
  572. if (lactation['dailyoverdemand']/200) <= 0 and lactation['dailyoverdemand'] > 0:
  573. lactation['prolactinlvl'] += 1
  574. elseif (lactation['dailyoverdemand']/200) >= 10 and pregtimes <= 0:
  575. lactation['prolactinlvl'] += 10
  576. elseif (lactation['dailyoverdemand']/200) >= 50 and pregtimes > 1:
  577. lactation['prolactinlvl'] += 50
  578. else
  579. if lactation['prolactinlvl'] > 0 and pregchem < 2191:
  580. if ((lactation['prolactinlvl']/2) + (lactation['prolactinlvl']/5) - (lactation['prolactinlvl']/8)) < 1:
  581. lactation['prolactinlvl'] -= 1
  582. else
  583. lactation['prolactinlvl'] -= ((lactation['prolactinlvl']/2) + (lactation['prolactinlvl']/5) - (lactation['prolactinlvl']/8))
  584. end
  585. end
  586. end
  587. end
  588. if lactation['prolactinlvl'] > 200: lactation['prolactinlvl'] = 200
  589. !! expand level cannot be over 5
  590. if lactation['alveoliexpandlvl'] > 10: lactation['alveoliexpandlvl'] = 10
  591. !! Breast growth due to mammarygland expansion. Happens if prolactin level is high enough and will cause breastsoreness.
  592. !! If prolactinlvl lowers, milkglands will shrink again.
  593. if lactation['milkgrowday'] < daystart and lactation['prolactinlvl'] >= 100 and lactation['alveoliexpandlvl'] < 10:
  594. lactation['alveoliexpandlvl_change'] = lactation['alveoliexpandlvl']
  595. lactation['alveoliexpandlvl'] += 1
  596. lactation['growthsoreness_on'] = 1
  597. if pain['breasts'] <= 20: pain['breasts'] = 20
  598. elseif lactation['milkgrowday'] < daystart and lactation['prolactinlvl'] < 100 and lactation['alveoliexpandlvl'] > 0:
  599. lactation['alveoliexpandlvl_change'] = lactation['alveoliexpandlvl']
  600. lactation['alveoliexpandlvl'] -= 1
  601. lactation['growthsoreness_on'] = 1
  602. if pain['breasts'] <= 20: pain['breasts'] = 20
  603. end
  604. !! If sveta meets alveoliexpandlvl 10 and her prolactinlvl is between random 200 and 250, her lactation will set in. This is happening during induction or during pregnancy
  605. if rand(1,50) + lactation['prolactinlvl'] >= rand(200,250) and lactation['alveoliexpandlvl'] >= 10:
  606. func('lact_lib','lact_switch')
  607. end
  608. else
  609. !! things that happen when Sveta is lactating lactation['active'] > 1
  610. if lactation['milkgrowday'] < daystart:
  611. !! Lactation rate growth. The higher the lactationrate is, the slower it will grow. I have not found a study on this, so this is pure asumption and common sense.
  612. if lactation['dailyoverdemand'] > 0 and lactation['breastpumped'] >= 0:
  613. if lactation['lactaterate'] > 350000:
  614. lactation['lactaterate'] += (5*lactation['prolactinlvl'])/2
  615. elseif lactation['lactaterate'] > 600000:
  616. lactation['lactaterate'] += lactation['prolactinlvl']/2
  617. else
  618. lactation['lactaterate'] += (10*lactation['prolactinlvl'])/2
  619. end
  620. prolactinlvl = 100
  621. elseif lactation['dailyoverdemand'] <= 0 and lactation['breastpumped'] > 0:
  622. !! If there was no milk overdemand, sveta will keep her lactationrate level.
  623. lactation['prolactinlvl'] = 100
  624. lactation['dailyoverdemand'] = 0
  625. lactation['breastpumped'] = 0
  626. else
  627. !! If there was no demand at all, svetas lactation rate will drop. Weaning off will take 7-10 days usually. If there is no engorgment happening, it will take longer (up to 30 days)
  628. lactation['dailyoverdemand'] = 0
  629. lactation['breastpumped'] = 0
  630. if lactation['lactaterate'] > 0:
  631. !! lactation rate is dropping with below function.
  632. lactation['prolactinlvl'] = 100
  633. if ((lactation['lactaterate']/2) + (lactation['lactaterate']/5) - (lactation['lactaterate']/8)) < 1:
  634. lactation['lactaterate'] -= 1
  635. else
  636. lactation['lactaterate'] = (lactation['lactaterate'] - (lactation['lactaterate']/2) + (lactation['lactaterate']/5) - (lactation['lactaterate']/8))
  637. end
  638. elseif lactation['lactaterate'] <= 0 and lactation['maturebreast'] > 0 and pregchem >= 4383:
  639. !! during pregnancy lactation is not switched off. Svetas breasts will always produce a bit off milk
  640. lactation['lactaterate'] = 10
  641. elseif lactation['lactaterate'] <= 0:
  642. !! switching off lactation production and making sure prolactin is dropping. Nipples shrink too. There are some changes that are permanent, especially during pregnancy.
  643. func('lact_lib','lact_switch')
  644. end
  645. end
  646. end
  647. !! Filling milk into svetas breast every hour and checking for breastengorgement
  648. if lactation['breastmv'] < lactation['breastmm'] and lactation['lactaterate'] > 50 and lactation['milkprod_type'] = 1:
  649. lactation['breastmv'] += func('lact_lib','prod_milk',lactation['lactaterate'])
  650. elseif lactation['breastmv'] < lactation['breastmm'] and lactation['lactaterate'] > 50 and lactation['milkprod_type'] = 0:
  651. lactation['breastmv'] += lactation['lactaterate']
  652. if lactation['breastmv'] > lactation['breastmm']: lactation['breastmv'] = lactation['breastmm']
  653. end
  654. !! Reset used_lactaterate, so milk can be produced again.
  655. lactation['used_lactaterate'] = 0
  656. func('lact_lib','breast_engorment')
  657. end
  658. if lactation['milkgrowday'] < daystart:
  659. func('lact_lib','BreastGrowth')
  660. lactation['dailyoverdemand'] = 0
  661. lactation['alveolicount_change'] = lactation['alveolicount']
  662. lactation['milkgrowday'] = daystart
  663. end
  664. end
  665. !! this needs to be reworked
  666. if $ARGS[0] = 'lactate_optout':
  667. !! func('lact_lib','lactate_optout')
  668. !! use gs 'lact_lib','lactate_optout'
  669. !! Used for switching off all lactation related content
  670. lactation['active'] = 0
  671. lactation['prolactinlvl'] = 0
  672. lactation['lactmess'] = 0
  673. lactation['engorgement'] = 0
  674. lactation['breastmv'] = 0
  675. lactation['breastmm'] = 0
  676. lactation['lactaterate'] = 0
  677. milk_demand = 0
  678. end
  679. !! get suckflow rate function
  680. if $ARGS[0] = 'get_suckflowrate':
  681. !! lactation['suck_flow_rate'] = func('lact_lib','get_suckflowrate', sucktion_type)
  682. !! The suck flow rate is the demand that is applied to Svetas breasts per minute. Be it breast massaging, direct nipple sucking or the simple use of a breast pump.
  683. !! 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]
  684. !! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk.
  685. !! Result is base rate of sucktion 10ml/minute x 1000. So if the sucktion rate is 10ml/min then suck_flow_rate = 100.
  686. if ARGS[1] = 0:
  687. !! 'adult sucking'
  688. result = 12000
  689. elseif ARGS[1] = 1:
  690. !! 'child sucking'
  691. result = 11000
  692. elseif ARGS[1] = 2:
  693. !! 'baby sucking'
  694. result = 8000
  695. elseif ARGS[1] = 3:
  696. !! 'manual_breastpump sucking'
  697. result = 18000
  698. elseif ARGS[1] = 4:
  699. !! 'electric_breastpump sucking'
  700. result = 40000
  701. elseif ARGS[1] = 5:
  702. !! 'hand expression'
  703. result = 10500
  704. elseif ARGS[1] = 6:
  705. !! 'cow milker sucking'
  706. result = 100000
  707. elseif ARGS[1] = 7:
  708. !! 'weak baby sucking'
  709. result = 5000
  710. elseif ARGS[1] = 8:
  711. !! 'manual stimulation during sex/sex play'
  712. result = 6000
  713. else
  714. !! 'suck flow else branch'
  715. result = 10000
  716. end
  717. end
  718. !! get max nipple flow rate function
  719. if $ARGS[0] = 'get_maxnipflowrate':
  720. !! lactation['max_nip_flow_rate'] = func('lact_lib','get_maxnipflowrate')
  721. !! How much milk can be sucked out through svetas nipples per minute.
  722. !! Result is base rate is 10ml/minute x 1000.
  723. !! Calculating the nip flow mod. The more svetas breasts were worked/sucked, the more milk can go through her nipples.
  724. lactation['nip_flow_mod'] = breastcounter * 100
  725. !! IT IS OVER 9000!
  726. if lactation['nip_flow_mod'] > 9000: lactation['nip_flow_mod'] = 9000
  727. if pcs_nips > 0:
  728. result = (6000 + lactation['nip_flow_mod'])
  729. elseif pcs_nips > 20:
  730. result = (8000 + lactation['nip_flow_mod'])
  731. elseif pcs_nips > 40:
  732. result = (10000 + lactation['nip_flow_mod'])
  733. elseif pcs_nips > 60:
  734. result = (12000 + lactation['nip_flow_mod'])
  735. elseif pcs_nips > 80:
  736. result = (14000 + lactation['nip_flow_mod'])
  737. elseif pcs_nips > 100:
  738. result = (16000 + lactation['nip_flow_mod'])
  739. else
  740. result = (10000 + lactation['nip_flow_mod'])
  741. end
  742. end
  743. !! get mood modification
  744. if $ARGS[0] = 'get_moodmod':
  745. !! during breastfeeding or pumping or whatever, svetas mood can be pushed up.
  746. !! pcs_mood += func('lact_lib','get_maxnipflowrate', sucktion type, sucktion time)
  747. !! 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]
  748. !! Result = additional mood
  749. if ARGS[1] = 0:
  750. !! 'adult sucking'
  751. lactation['moodmod'] = ARGS[2]/8
  752. elseif ARGS[1] = 1:
  753. !! 'child sucking'
  754. lactation['moodmod'] = ARGS[2]/2
  755. elseif ARGS[1] = 2:
  756. !! 'baby sucking'
  757. lactation['moodmod'] = ARGS[2]
  758. elseif ARGS[1] = 7:
  759. !! 'weak baby sucking'
  760. lactation['moodmod'] = ARGS[2]
  761. else
  762. lactation['moodmod'] = 0
  763. end
  764. if lactation['active'] <= 0: lactation['moodmod'] = (lactation['moodmod']/2)
  765. if (lactation['moodmod'] + pcs_mood) > 100:
  766. result = (100 - pcs_mood)
  767. else
  768. result = lactation['moodmod']
  769. end
  770. end
  771. !! get soreness_mod
  772. if $ARGS[0] = 'get_sorenessmod':
  773. !! lactation['soreness_mod'] = func('lact_lib','get_sorenessmod')
  774. if lactation['nipple_cream_applied'] > 0:
  775. lactation['nipple_cream_applied'] = 0
  776. if (breastcounter/10) > 20:
  777. result = 40
  778. elseif (breastcounter/10) <= 0:
  779. result = 20
  780. else
  781. result = ((breastcounter/10) + 20)
  782. end
  783. else
  784. if (breastcounter/10) > 20:
  785. result = 20
  786. elseif (breastcounter/10) <= 0:
  787. result = 1
  788. else
  789. result = (breastcounter/10)
  790. end
  791. end
  792. end
  793. !! get breastmilktime function
  794. if $ARGS[0] = '$get_breastmilk_time':
  795. !! func('lact_lib','$get_breastmilk_time', sucktion_type, milk_demand)
  796. !! 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]
  797. !! ARGS[2] = milk_demand: how much milk is demanded. Warning: Should be ml and not in ml*10 for ease of use. :D
  798. !! RESULT = Time in Minutes
  799. !! Usage: breastmilktimetoget = func('lact_lib','$get_breastmilk_time', 2, 150)
  800. !! 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.
  801. !! If you want to milk sveta, use get_breastmilk.
  802. if lactation['active'] > 0:
  803. !! suck_flow_rate initialized Base Rate of sucking is 10ml/minute.
  804. lactation['suck_flow_rate'] = func('lact_lib','get_suckflowrate', ARGS[1])
  805. !! max nip flow rate initialized
  806. lactation['max_nip_flow_rate'] = func('lact_lib','get_maxnipflowrate')
  807. !! getting temp lactaterate
  808. if (lactation['lactaterate']/60) < 1 and lactation['lactaterate'] > 0:
  809. temp_lactaterate = 1
  810. else
  811. temp_lactaterate = lactation['lactaterate']/60
  812. end
  813. if lactation['breastmv'] >= (ARGS[2]*10):
  814. if lactation['max_nip_flow_rate'] <= lactation['suck_flow_rate']:
  815. temp_var = (ARGS[2]*10)/lactation['max_nip_flow_rate']
  816. else
  817. temp_var = (ARGS[2]*10)/lactation['suck_flow_rate']
  818. end
  819. RESULT = temp_var
  820. elseif lactation['breastmv'] > 0 and lactation['breastmv'] < (ARGS[2]*10):
  821. if lactation['max_nip_flow_rate'] <= lactation['suck_flow_rate']:
  822. temp_var = lactation['breastmv']/lactation['max_nip_flow_rate']
  823. temp_var2 = (ARGS[2]*10) - lactation['breastmv']
  824. if lactation['max_nip_flow_rate'] <= temp_lactaterate:
  825. temp_var += temp_var2/lactation['max_nip_flow_rate']
  826. else
  827. temp_var += temp_var2/(temp_lactaterate*10)
  828. end
  829. else
  830. temp_var = lactation['breastmv']/lactation['suck_flow_rate']
  831. temp_var2 = (ARGS[2]*10) - lactation['breastmv']
  832. if lactation['suck_flow_rate'] <= temp_lactaterate:
  833. temp_var += temp_var2/lactation['suck_flow_rate']
  834. else
  835. temp_var += temp_var2/(temp_lactaterate*10)
  836. end
  837. end
  838. RESULT = temp_var
  839. elseif lactation['breastmv'] <=0:
  840. if lactation['max_nip_flow_rate'] <= lactation['suck_flow_rate']:
  841. if lactation['max_nip_flow_rate'] <= temp_lactaterate:
  842. temp_var = (ARGS[2]*10)/lactation['max_nip_flow_rate']
  843. else
  844. temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
  845. end
  846. else
  847. if lactation['suck_flow_rate'] <= temp_lactaterate:
  848. temp_var = (ARGS[2]*10)/lactation['suck_flow_rate']
  849. else
  850. temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
  851. end
  852. end
  853. RESULT = temp_var
  854. else
  855. RESULT = 0
  856. end
  857. else
  858. RESULT = 0
  859. end
  860. end
  861. if $ARGS[0] = '$get_breastmilk':
  862. !! func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
  863. !! 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]
  864. !! ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
  865. !! Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
  866. !! RESULT = Milk in ml*10
  867. !! Sveta, someone or something tries to milk Svetas breasts, so the daily variable breastpumped is switched on. This is used for the breastcycle/femcycle. If this is not switched on, possible changes like prolactinlvl etc go down.
  868. lactation['breastpumped'] = 1
  869. !! suck_flow_rate initialized Base Rate of sucking is 10ml/minute.
  870. lactation['suck_flow_rate'] = func('lact_lib','get_suckflowrate', ARGS[1])
  871. !! max nip flow rate initialized
  872. lactation['max_nip_flow_rate'] = func('lact_lib','get_maxnipflowrate')
  873. !! will there be a mood change?
  874. pcs_mood += func('lact_lib','get_maxnipflowrate',ARGS[1],ARGS[2])
  875. !! get soreness that will result from pumping/sucking/massaging
  876. lactation['soreness_mod'] = func('lact_lib','get_sorenessmod')
  877. !! 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.
  878. if lactation['active']<= 0:
  879. if lactation['dailyoverdemand'] <= 0: lactation['dailyoverdemand'] = 0
  880. pump_stop_brake = 0
  881. !! 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.
  882. max_sucktion_demand = lactation['suck_flow_rate']*ARGS[2]
  883. if pain['nipples'] <= 60:
  884. suck_until_pain = (((60 - pain['nipples'])*lactation['soreness_mod'])*1000)/(lactation['suck_flow_rate']/18)
  885. end
  886. temp_var = pain['nipples'] + max_sucktion_demand/(lactation['soreness_mod']*10000)
  887. if temp_var > 60:
  888. pain['nipples'] = 65
  889. pump_stop_brake = 1
  890. pumptime = suck_until_pain
  891. max_sucktion_demand = lactation['suck_flow_rate']*pumptime
  892. else
  893. pain['nipples'] += max_sucktion_demand/(lactation['soreness_mod']*100000)
  894. end
  895. temp_var = pain['breasts'] + max_sucktion_demand/10000
  896. if temp_var > 20:
  897. pain['breasts'] = 25
  898. else
  899. pain['breasts'] += max_sucktion_demand/10000
  900. end
  901. !! Pumping breasts is exhausting even if no milk comes. Pumping will impact the stamina of Sveta if she is not lactating.
  902. temp_var = pcs_stam - (max_sucktion_demand/30000)
  903. if temp_var < 0:
  904. pcs_stam = 0
  905. !! energy usage flag on.
  906. energytomilkpump = 1
  907. pcs_sweat += pumptime/30
  908. else
  909. pcs_stam -= max_sucktion_demand/30000
  910. pcs_sweat += pumptime/30
  911. !! energy usage flag on.
  912. energytomilkpump = 1
  913. end
  914. if pumptime < 10:
  915. breastcounter += 1
  916. else
  917. breastcounter += pumptime/10
  918. end
  919. lactation['dailyoverdemand'] += max_sucktion_demand
  920. result = 0
  921. elseif lactation['active'] > 0:
  922. !! How much milk demand is applied to the breasts.
  923. max_sucktion_demand = lactation['suck_flow_rate']*ARGS[2]
  924. !! 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.
  925. !! If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
  926. !! Also lets make sure we start at zero from the stuff we get from Sveta.
  927. lactation['get_bm_milkedvolume'] = 0
  928. !! Case: Enough milk in Svetas breasts, covering the demand
  929. if lactation['breastmv'] >= max_sucktion_demand:
  930. !! 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.
  931. if lactation['max_nip_flow_rate'] >= lactation['suck_flow_rate']:
  932. lactation['get_bm_milkedvolume'] = max_sucktion_demand
  933. lactation['breastmv'] -= max_sucktion_demand
  934. else:
  935. lactation['get_bm_milkedvolume'] = lactation['max_nip_flow_rate']*ARGS[2]
  936. lactation['breastmv'] -= lactation['get_bm_milkedvolume']
  937. end
  938. !! Case: Not enough milk in Svetas breasts.
  939. elseif lactation['breastmv'] < max_sucktion_demand:
  940. !! We have two sub cases in this one. Sveta has no lactation['breastmv'] and Sveta has not enough lactation['breastmv']. This means she has to produce more milk, but first we need to know how much is needed.
  941. !! temp_var will be the amount of milk Sveta has to produce to serve the demand. pump time left is the time left after lactation['breastmv'] is drained.
  942. if lactation['breastmv'] <= 0:
  943. temp_var = max_sucktion_demand
  944. pumptime_left = ARGS[2]
  945. else
  946. temp_var = max_sucktion_demand - lactation['breastmv']
  947. if lactation['max_nip_flow_rate'] >= lactation['suck_flow_rate']:
  948. pumptime_left = ARGS[2] - (lactation['breastmv']/lactation['suck_flow_rate'])
  949. else
  950. pumptime_left = ARGS[2] - (lactation['breastmv']/lactation['max_nip_flow_rate'])
  951. end
  952. if pumptime_left < 0: pumptime_left = 0
  953. end
  954. !! Now we know how much time we have and how much demand we have. Time to check if Sveta can do it.
  955. !! For the case, that svetas milk flow is not big enough pumptime left will be 0, therefore this is handled here.
  956. if pumptime_left > 0:
  957. if lactation['max_nip_flow_rate'] >= lactation['suck_flow_rate']:
  958. !! 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.
  959. if (lactation['suck_flow_rate']*100) <= ((lactation['lactaterate']*100)/60):
  960. lactation['get_bm_milkedvolume'] += lactation['suck_flow_rate']*pumptime_left
  961. else
  962. lactation['get_bm_milkedvolume'] += ((((lactation['lactaterate']*100)/60)*pumptime_left)/100)
  963. breastcounter += 2
  964. end
  965. else
  966. !! Same here as above.
  967. if (lactation['max_nip_flow_rate']*100) <= ((lactation['lactaterate']*100)/60):
  968. lactation['get_bm_milkedvolume'] += lactation['max_nip_flow_rate']*pumptime_left
  969. breastcounter += 2
  970. else
  971. lactation['get_bm_milkedvolume'] += ((((lactation['lactaterate']*100)/60)*pumptime_left)/100)
  972. breastcounter += 2
  973. end
  974. end
  975. !! 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 - lactaterate_use
  976. if pumptime_left > 60:
  977. if ((pumptime_left*100)/60) > 100:
  978. lactation['used_lactaterate'] -= ((((lactation['lactaterate']*100)/60)*(pumptime_left mod 60))/100)
  979. else
  980. lactation['used_lactaterate'] = lactation['lactaterate']
  981. end
  982. else
  983. if lactation['lactaterate'] >= lactation['used_lactaterate']:
  984. lactation['used_lactaterate'] -= lactation['get_bm_milkedvolume']
  985. else
  986. lactation['used_lactaterate'] = lactation['lactaterate']
  987. end
  988. end
  989. if lactation['used_lactaterate'] <= 0: lactation['used_lactaterate'] = 0
  990. !! Sveta had to make milk, so she needs to use some of her body resources to make the milk.
  991. if lactation['get_bm_milkedvolume'] > 0:
  992. !! energy usage flag on. Can be used in events to show that sveta is getting hungry or thirsty
  993. energytomilkpump = 1
  994. func('lact_lib','prod_milk',lactation['get_bm_milkedvolume'])
  995. end
  996. end
  997. !! 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.
  998. if temp_var > lactation['get_bm_milkedvolume']: lactation['dailyoverdemand'] += (temp_var - lactation['get_bm_milkedvolume'])
  999. !! time to add the pumped lactation['breastmv'] to the milkedvolume and empty lactation['breastmv'].
  1000. lactation['get_bm_milkedvolume'] += lactation['breastmv']
  1001. lactation['breastmv'] = 0
  1002. !! 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.
  1003. !! Else - there will only be nipple pain.
  1004. if lactation['max_nip_flow_rate'] < lactation['suck_flow_rate']:
  1005. temp_var = pain['nipples'] + ((lactation['suck_flow_rate'] - lactation['max_nip_flow_rate'])*ARGS[2])/2000 - (lactation['soreness_mod']*ARGS[2])*15
  1006. if temp_var >= 60:
  1007. pain['nipples'] = 65
  1008. elseif temp_var <= 0:
  1009. pain['nipples'] += 1
  1010. else
  1011. pain['nipples'] += (((lactation['suck_flow_rate'] - lactation['max_nip_flow_rate'])*ARGS[2])/2000 - (lactation['soreness_mod']*ARGS[2])*15)
  1012. end
  1013. else
  1014. if ARGS[2] < 10:
  1015. pain['nipples'] += 1
  1016. elseif ARGS[2] >= 10 and lactation['soreness_mod'] > ARGS[2]:
  1017. pain['nipples'] += 1
  1018. else
  1019. pain['nipples'] += (ARGS[2]/10 - lactation['soreness_mod']/10)
  1020. end
  1021. end
  1022. if lactation['max_nip_flow_rate'] >= lactation['suck_flow_rate']:
  1023. if (lactation['suck_flow_rate']*100) > ((lactation['lactaterate']*100)/60):
  1024. temp_var = pain['breasts'] + (((lactation['suck_flow_rate']*100)-((lactation['lactaterate']*100)/60))*pumptime_left)/1000
  1025. if temp_var > 20:
  1026. pain['breasts'] = 20
  1027. else
  1028. pain['breasts'] += (((lactation['suck_flow_rate']*100)-((lactation['lactaterate']*100)/60))*pumptime_left)/1000
  1029. end
  1030. end
  1031. else
  1032. if (lactation['max_nip_flow_rate']*100) > ((lactation['lactaterate']*100)/60):
  1033. temp_var = pain['breasts'] + (((lactation['max_nip_flow_rate']*100)-((lactation['lactaterate']*100)/60))*pumptime_left)/1000
  1034. if temp_var > 20:
  1035. pain['breasts'] = 20
  1036. else
  1037. pain['breasts'] += (((lactation['max_nip_flow_rate']*100)-((lactation['lactaterate']*100)/60))*pumptime_left)/1000
  1038. end
  1039. end
  1040. end
  1041. end
  1042. if pumptime < 10:
  1043. breastcounter += 1
  1044. else
  1045. breastcounter += pumptime/10
  1046. end
  1047. !! Done - Result is the milked volume.
  1048. result = lactation['get_bm_milkedvolume']
  1049. end
  1050. end
  1051. --- lact_lib ---------------------------------