lact_lib.qsrc 67 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617
  1. # lact_lib
  2. if $ARGS[0] = 'view_milk_bottles':
  3. !! func('lact_lib', 'view_milk_bottles', location_id)
  4. !! use gs 'lact_lib','view_milk_bottles', 2
  5. !! locations
  6. !! 0 = lost
  7. !! 1 = in svetas hand
  8. !! 2 = in svetas bag
  9. !! 3 = parent bathroom
  10. !! 4 = parent fridge
  11. !! 5 = Resident Area Appartment Bathroom
  12. !! 6 = Resident Area Appartment Fridge
  13. !! 7 = Grandparents Bathroom
  14. !! 8 = Villa Bathroom
  15. !! 9 = Villa Fridge
  16. !! 10 = Shared Apartment Bathroom
  17. !! 11 = Shared Apartment Fridge
  18. !! Locations are not used yet but are implemented. I will add this on another day.
  19. !! milk bottle array indices
  20. !! mbarrtype: Size of milk bottle. Normal bottles are 150ml and large bottles are 250ml. Values are ml*10
  21. !! mbarrfill: Filled milk volume in the bottle. Values are in ml*10 and can''t surpass mbarrtype
  22. !! mbarrmage: timestamp the milk was pumped.
  23. !! mbarrcool: Is the milk cooled? 0 = no, 1 = normal cooler, 2 = deep freezer
  24. !! $mbarrstat: State of the milk: fresh, normal, old, rancid
  25. !! $mbarrtemp: Temperature of the milk: hot, warm, normal, cold, frozen
  26. !! mbarrloca: Location of the bottle.
  27. *clr
  28. cla
  29. !! Checking for unregistered bottles.
  30. gs 'lact_lib', 'reg_bottle_count'
  31. 'You check the bottles that you store here.<br>'
  32. temp_var = (bpbottlem + bpbottles) - 1
  33. vmb_i = 0
  34. milkedvolume = 0
  35. :vmbloop
  36. if vmb_i <= temp_var:
  37. if mbarrloca[vmb_i] = ARGS[1]:
  38. gs 'lact_lib', 'update_mbottle', vmb_i
  39. if mbarrfill[vmb_i] <=0:
  40. mbarrfill[vmb_i] = 0
  41. '<br><<vmb_i + 1>>. - An empty <<mbarrtype[vmb_i]/10>>ml bottle. You can use it to store your breast milk.'
  42. else
  43. '<br><<vmb_i + 1>>. - A <<mbarrtype[vmb_i]/10>>ml bottle. There is <<mbarrfill[vmb_i]/10>>ml of milk in the bottle. <a href="exec:msg ''<center>You open the bottle and check the milk inside.<br>You can feel the milk is <<$mbarrtemp[vmb_i]>> and it smells <<$mbarrstat[vmb_i]>>.</center>''">Check the content</a>'
  44. milkedvolume += mbarrfill[vmb_i]
  45. !! '| <a href="exec:func(''lact_lib'',''empty_milk_bottle'',''vmb_i'')">Empty the bottle</a>'
  46. end
  47. end
  48. vmb_i += 1
  49. jump 'vmbloop'
  50. end
  51. if milkedvolume > 0:
  52. '<br><a href="exec:gt''lact_lib'',''empty_milk_bottles''">Pour the milk into the sink</a>'
  53. end
  54. act 'Back':gt 'lact_lib', 'bp_milking'
  55. end
  56. !! empty bottle function
  57. if $ARGS[0] = 'empty_milk_bottles':
  58. !! use gt 'lact_lib', 'empty_milk_bottles'
  59. *clr
  60. cla
  61. temp_var = (bpbottlem + bpbottles) - 1
  62. emb_i = 0
  63. :emb_loop
  64. if emb_i <= temp_var:
  65. mbarrfill[emb_i] = 0
  66. mbarrmage[emb_i] = 0
  67. mbarrcool[emb_i] = 0
  68. $mbarrstat[emb_i] = 'none'
  69. $mbarrtemp[emb_i] = 'none'
  70. emb_i += 1
  71. jump 'emb_loop'
  72. end
  73. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  74. '<center>You pour all of your collected breast milk into the sink and clean up the bottles.</center>'
  75. minute += temp_var
  76. act 'Finish':menu_off = 0 & gt $loc, $metka
  77. !!gt 'lact_lib','view_milk_bottles',1
  78. end
  79. !! fill a bottle function
  80. if $ARGS[0] = 'fill_milk_bottle':
  81. !! use func('lact_lib','fill_milk_bottle',bottle_id,milk_amount)
  82. !! example func('lact_lib','fill_milk_bottle',3,300)
  83. if ARGS[2] > mbarrtype[ARGS[1]]:
  84. 'ERROR - More milk going into bottle than the bottle can hold.'
  85. else
  86. mbarrfill[ARGS[1]] = ARGS[2]
  87. mbarrmage[ARGS[1]] = func('lact_lib','time_stamp')
  88. mbarrcool[ARGS[1]] = 0
  89. $mbarrstat[ARGS[1]] = 'fresh'
  90. $mbarrtemp[ARGS[1]] = 'warm'
  91. end
  92. end
  93. !! Time Stamp function for milk bottles.
  94. if $ARGS[0] = 'time_stamp':
  95. !! use func('lact_lib','time_stamp')
  96. !! This function creates a time stamp in minutes. It takes the current in game time and converts it to total minutes from year 01.01.0000 to in game now.
  97. !! Used to check breast milk age in bottles. Can be used for other functions if needed.
  98. temp_timestamp = 0
  99. temp_timestamp += year * 365 * 24 * 60
  100. ts_i = 1
  101. if month > 1:
  102. :ts_loop
  103. if (month - 1) => ts_i:
  104. if ts_i = 1 or ts_i = 3 or ts_i = 5 or ts_i = 7 or ts_i = 8 or ts_i = 10 or ts_i = 12:
  105. temp_timestamp += 44640
  106. elseif ts_i = 4 or ts_i = 6 or ts_i = 9 or ts_i = 11:
  107. temp_timestamp += 43200
  108. elseif ts_i = 2:
  109. temp_timestamp += 40320
  110. if (year mod 4) = 0 and (year mod 100) ! 0 or (year mod 400) = 0:
  111. temp_timestamp += 1440
  112. end
  113. end
  114. ts_i += 1
  115. jump 'ts_loop'
  116. end
  117. end
  118. temp_timestamp += (day - 1) * 24 * 60
  119. temp_timestamp += hour * 60
  120. temp_timestamp += minut
  121. result = temp_timestamp
  122. end
  123. !! Update Milk bottle function
  124. if $ARGS[0] = 'update_mbottle':
  125. !! func('lact_lib', 'update_mbottle', bottle_id)
  126. !! use result = func('lact_lib','update_mbottle', '0')
  127. !! this function is used to update milk bottles whenever the milk is pumped or sveta checkes the bottles in her stash.
  128. !! Room temperature. Freshly expressed breast milk can be kept at room temperature for up to six hours. However, use or proper storage within four hours is optimal. If the room is especially warm, the limit is also four hours.
  129. !! Insulated cooler. Freshly expressed breast milk can be stored in an insulated cooler with ice packs for up to one day.
  130. !! Refrigerator. Freshly expressed breast milk can be stored in the back of the refrigerator for up to five days in clean conditions. However, use or freezer storage within three days is optimal.
  131. !! Deep freezer. Freshly expressed breast milk can be stored in the back of a deep freezer for up to 12 months. However, using the frozen milk within six months is optimal.
  132. !! milk bottle array indices
  133. !! mbarrtype: Size of milk bottle. Normal bottles are 150ml and large bottles are 250ml. Values are ml*10
  134. !! mbarrfill: Filled milk volume in the bottle. Values are in ml*10 and can''t surpass mbarrtype
  135. !! mbarrmage: timestamp the milk was pumped.
  136. !! mbarrcool: Is the milk cooled? 0 = no, 1 = normal cooler, 2 = deep freezer
  137. !! $mbarrstat: State of the milk: fresh, normal, old, rancid
  138. !! $mbarrtemp: Temperature of the milk: hot, warm, normal temparture, cold, frozen
  139. !! mbarrloca: Location of the bottle.
  140. if mbarrfill[ARGS[1]] > 0:
  141. if mbarrfill[ARGS[1]] > mbarrtype[ARGS[1]]: mbarrfill[ARGS[1]] = mbarrtype[ARGS[1]]
  142. if mbarrmage[ARGS[1]] <= 0: mbarrmage[ARGS[1]] = func('lact_lib','time_stamp')
  143. if mbarrcool[ARGS[1]] = 0:
  144. if (mbarrmage[ARGS[1]] + 60) >= func('lact_lib','time_stamp'):
  145. $mbarrtemp[ARGS[1]] = 'warm'
  146. $mbarrstat[ARGS[1]] = 'fresh'
  147. elseif (mbarrmage[ARGS[1]] + 60) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 360) >= func('lact_lib','time_stamp'):
  148. $mbarrtemp[ARGS[1]] = 'normal temparture'
  149. $mbarrstat[ARGS[1]] = 'normal'
  150. elseif (mbarrmage[ARGS[1]] + 360) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 1440) >= func('lact_lib','time_stamp'):
  151. $mbarrtemp[ARGS[1]] = 'normal temparture'
  152. $mbarrstat[ARGS[1]] = 'old'
  153. else
  154. $mbarrtemp[ARGS[1]] = 'normal temparture'
  155. $mbarrstat[ARGS[1]] = 'rancid'
  156. end
  157. elseif mbarrcool[ARGS[1]] = 1:
  158. if (mbarrmage[ARGS[1]] + 1440) >= func('lact_lib','time_stamp'):
  159. $mbarrtemp[ARGS[1]] = 'cold'
  160. $mbarrstat[ARGS[1]] = 'fresh'
  161. elseif (mbarrmage[ARGS[1]] + 1440) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 4320) >= func('lact_lib','time_stamp'):
  162. $mbarrtemp[ARGS[1]] = 'cold'
  163. $mbarrstat[ARGS[1]] = 'normal'
  164. elseif (mbarrmage[ARGS[1]] + 4320) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 7200) >= func('lact_lib','time_stamp'):
  165. $mbarrtemp[ARGS[1]] = 'cold'
  166. $mbarrstat[ARGS[1]] = 'old'
  167. else
  168. $mbarrtemp[ARGS[1]] = 'cold'
  169. $mbarrstat[ARGS[1]] = 'rancid'
  170. end
  171. elseif mbarrcool[ARGS[1]] = 2:
  172. if (mbarrmage[ARGS[1]] + 10080) >= func('lact_lib','time_stamp'):
  173. $mbarrtemp[ARGS[1]] = 'frozen'
  174. $mbarrstat[ARGS[1]] = 'fresh'
  175. elseif (mbarrmage[ARGS[1]] + 10080) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 262080) >= func('lact_lib','time_stamp'):
  176. $mbarrtemp[ARGS[1]] = 'frozen'
  177. $mbarrstat[ARGS[1]] = 'normal'
  178. elseif (mbarrmage[ARGS[1]] + 262080) < func('lact_lib','time_stamp') and (mbarrmage[ARGS[1]] + 525600) >= func('lact_lib','time_stamp'):
  179. $mbarrtemp[ARGS[1]] = 'frozen'
  180. $mbarrstat[ARGS[1]] = 'old'
  181. else
  182. $mbarrtemp[ARGS[1]] = 'frozen'
  183. $mbarrstat[ARGS[1]] = 'rancid'
  184. end
  185. else
  186. $mbarrtemp[ARGS[1]] = 'warm'
  187. $mbarrstat[ARGS[1]] = 'fresh'
  188. end
  189. else
  190. $mbarrtemp[ARGS[1]] = 'none'
  191. $mbarrstat[ARGS[1]] = 'none'
  192. mbarrmage[ARGS[1]] = 0
  193. mbarrfill[ARGS[1]] = 0
  194. end
  195. end
  196. if $ARGS[0] = 'useable_sbottle_count':
  197. !! use result = func('lact_lib','useable_sbottle_count',)
  198. !! function will give you the amount of 150ml bottles that sveta can use at the moment.
  199. usbc_i = 0
  200. bottlecounter = 0
  201. if reg_bottles_count > 0:
  202. :usbc_loop
  203. if usbc_i <= (reg_bottlem_count + reg_bottles_count):
  204. if mbarrtype[usbc_i] = 1500 and mbarrfill[usbc_i] = 0:
  205. bottlecounter += 1
  206. end
  207. usbc_i += 1
  208. jump 'usbc_loop'
  209. end
  210. end
  211. result = bottlecounter
  212. end
  213. if $ARGS[0] = 'useable_mbottle_count':
  214. !! use result = func('lact_lib','useable_mbottle_count')
  215. !! function will give you the amount of 250ml bottles that sveta can use at the moment.
  216. umbc_i = 0
  217. bottlecounter = 0
  218. if reg_bottlem_count > 0:
  219. :umbc_loop
  220. if umbc_i <= (reg_bottlem_count + reg_bottles_count):
  221. if mbarrtype[umbc_i] = 2500 and mbarrfill[umbc_i] = 0:
  222. bottlecounter += 1
  223. end
  224. umbc_i += 1
  225. jump 'umbc_loop'
  226. end
  227. end
  228. result = bottlecounter
  229. end
  230. if $ARGS[0] = '$get_bfat_tissue':
  231. !! func('lact_lib', 'get_bfattissue', npc_nbsize, npc_lactatemm)
  232. !! function to get breast fat tissue amount. Can be used for NPC as well as PC.
  233. !! ARGS[1] = npc_nbsize - the natural bust size of the NPC/PC.
  234. !! ARGS[2] = npc_lactatemm - he lactatemm of the NPC/PC.
  235. !! RESULT = Fat amount in ccm * 10.
  236. !! function for cup size volume in ccm y = 0,0002023*x^3 + 0,029199*x^2 + 4,3791*x + 70
  237. !! x = ((ARGS[1]/5) + 1)*10
  238. !! 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
  239. !! The function was estimated with excel using a trend line estimation for polynoms of third grade and a y = 0 at 70ccm
  240. !! https://www.ncbi.nlm.nih.gov/pubmed/11936199
  241. !! 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.
  242. if ARGS[1] > 0:
  243. temp_var = ((ARGS[1]/5) + 1)*10
  244. temp_var2 = (((2023*temp_var*temp_var*temp_var)/10000000)+((29199*temp_var*temp_var)/1000000)+((43791*temp_var)/10000)+70)*10
  245. if temp_var2 > ARGS[2]:
  246. RESULT = temp_var2 - (ARGS[2] + ARGS[2]/50)
  247. elseif temp_var2 = ARGS[2]:
  248. RESULT = 0
  249. else
  250. 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>'
  251. end
  252. else
  253. if ARGS[2] > 700:
  254. 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>'
  255. else
  256. RESULT = 700
  257. end
  258. end
  259. end
  260. if $ARGS[0] = '$calc_npc_lactatemm_0':
  261. !! func('lact_lib', 'calc_npc_lactatemm_0', npc_glandamount, npc_prodstate, npc_breastage, npc_breastcount)
  262. !! New calc lactatemm function usuable for NPCs. Test function number one.
  263. !! 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.
  264. !! ARGS[2] = npc_prodstate - The breast production state of the npc. State can be "none", "induced" or "natural".
  265. !! 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.
  266. !! To determine the breastage, just check if the NPC has gone through pregnancy or not.
  267. !! 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.
  268. !! 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.
  269. !! RESULT = lactatemm in ml*10
  270. if ARGS[2] = 'none':
  271. if ARGS[3] = 'virgin':
  272. temp_var = 2
  273. elseif ARGS[3] = 'mature':
  274. temp_var = 2
  275. else
  276. cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "none".</b>'
  277. end
  278. elseif ARGS[2] = 'induced':
  279. if ARGS[3] = 'virgin':
  280. temp_var = 20
  281. elseif ARGS[3] = 'mature':
  282. temp_var = 80
  283. else
  284. cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "induced".</b>'
  285. end
  286. elseif ARGS[2] = 'natural':
  287. if ARGS[3] = 'virgin':
  288. temp_var = 20
  289. elseif ARGS[3] = 'mature':
  290. temp_var = 80
  291. else
  292. cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Node ARGS[2] "natural".</b>'
  293. end
  294. else
  295. cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_npc_lactatemm_0</i>!</font> - Root Node ARGS[2].</b>'
  296. end
  297. if ARGS[1] <= 0:
  298. RESULT = 0
  299. else
  300. RESULT = (ARGS[1]*temp_var*ARGS[4])/1000
  301. end
  302. end
  303. if $ARGS[0] = '$calc_lactatemm':
  304. !! func('lact_lib', 'calc_lactatemm')
  305. !! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
  306. !! 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.
  307. !! Usage: lactatemm = func('lact_lib','$calc_lactatemm')
  308. !! RESULT = lactatemm in ml*10
  309. if lactate = 0:
  310. RESULT = 0
  311. elseif lactate >0:
  312. temp_breastsize = 0
  313. temp_breastsize += nbsize
  314. temp_var = 0
  315. !! 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.
  316. if kid <= 0:
  317. temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
  318. RESULT = temp_var
  319. else
  320. RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
  321. end
  322. else
  323. cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
  324. end
  325. end
  326. if $ARGS[0] = '$get_breastmilk_time':
  327. !! func('lact_lib','$get_breastmilk_time', sucktion_type, milk_demand)
  328. !! 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]
  329. !! ARGS[2] = milk_demand: how much milk is demanded. Warning: Should be ml and not in ml*10 for ease of use. :D
  330. !! RESULT = Time in Minutes
  331. !! Usage: breastmilktimetoget = func('lact_lib','$get_breastmilk_time', 2, 150)
  332. !! 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.
  333. !! If you want to milk sveta, use get_breastmilk.
  334. if lactate > 0:
  335. !! 'suck_flow_rate initialized' Base Rate of sucking is 10ml/minute.
  336. if ARGS[1] = 0:
  337. !! 'adult sucking'
  338. suck_flow_rate = 120
  339. elseif ARGS[1] = 1:
  340. !! 'child sucking'
  341. suck_flow_rate = 110
  342. elseif ARGS[1] = 2:
  343. !! 'baby sucking'
  344. suck_flow_rate = 80
  345. elseif ARGS[1] = 3:
  346. !! 'manual_breastpump sucking'
  347. suck_flow_rate = 180
  348. elseif ARGS[1] = 4:
  349. !! 'electric_breastpump sucking'
  350. suck_flow_rate = 400
  351. elseif ARGS[1] = 5:
  352. !! 'hand expression'
  353. suck_flow_rate = 105
  354. elseif ARGS[1] = 6:
  355. !! 'cow milker sucking'
  356. suck_flow_rate = 1000
  357. elseif ARGS[1] = 7:
  358. !! 'weak baby sucking'
  359. suck_flow_rate = 50
  360. temp_var = pcs_mood + ARGS[2]
  361. if temp_var > 100:
  362. pcs_mood = 100
  363. else
  364. pcs_mood += ARGS[2]
  365. end
  366. elseif ARGS[1] = 8:
  367. !! 'manual stimulation during sex/sex play'
  368. suck_flow_rate = 60
  369. else
  370. !! 'suck flow else branch'
  371. suck_flow_rate = 100
  372. end
  373. if pcs_nips > 0:
  374. max_nip_flow_rate = 60
  375. elseif pcs_nips > 20:
  376. max_nip_flow_rate = 80
  377. elseif pcs_nips > 40:
  378. max_nip_flow_rate = 100
  379. elseif pcs_nips > 60:
  380. max_nip_flow_rate = 120
  381. elseif pcs_nips > 80:
  382. max_nip_flow_rate = 140
  383. elseif pcs_nips > 100:
  384. max_nip_flow_rate = 160
  385. else
  386. max_nip_flow_rate = 100
  387. end
  388. if breastcounter > 0:
  389. temp_var = breastcounter/10
  390. soreness_mod += temp_var
  391. if soreness_mod > 20: soreness_mod = 20
  392. if nipple_cream = 1:
  393. soreness_mod += 20
  394. nipple_cream = 0
  395. end
  396. end
  397. nip_flow_mod = 1
  398. temp_var = breastcounter/10
  399. nip_flow_mod += temp_var
  400. if nip_flow > 30: nip_flow_mod = 30
  401. max_nip_flow_rate += nip_flow_mod
  402. if (lactaterate/60) < 1 and lactaterate > 0:
  403. temp_lactaterate = 1
  404. else
  405. temp_lactaterate = lactaterate/60
  406. end
  407. if lactatemv >= (ARGS[2]*10):
  408. if max_nip_flow_rate <= suck_flow_rate:
  409. temp_var = (ARGS[2]*10)/max_nip_flow_rate
  410. else
  411. temp_var = (ARGS[2]*10)/suck_flow_rate
  412. end
  413. RESULT = temp_var
  414. elseif lactatemv > 0 and lactatemv < (ARGS[2]*10):
  415. if max_nip_flow_rate <= suck_flow_rate:
  416. temp_var = lactatemv/max_nip_flow_rate
  417. temp_var2 = (ARGS[2]*10) - lactatemv
  418. if max_nip_flow_rate <= temp_lactaterate:
  419. temp_var += temp_var2/max_nip_flow_rate
  420. else
  421. temp_var += temp_var2/(temp_lactaterate*10)
  422. end
  423. else
  424. temp_var = lactatemv/suck_flow_rate
  425. temp_var2 = (ARGS[2]*10) - lactatemv
  426. if suck_flow_rate <= temp_lactaterate:
  427. temp_var += temp_var2/suck_flow_rate
  428. else
  429. temp_var += temp_var2/(temp_lactaterate*10)
  430. end
  431. end
  432. RESULT = temp_var
  433. elseif lactatemv <=0:
  434. if max_nip_flow_rate <= suck_flow_rate:
  435. if max_nip_flow_rate <= temp_lactaterate:
  436. temp_var = (ARGS[2]*10)/max_nip_flow_rate
  437. else
  438. temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
  439. end
  440. else
  441. if suck_flow_rate <= temp_lactaterate:
  442. temp_var = (ARGS[2]*10)/suck_flow_rate
  443. else
  444. temp_var = (ARGS[2]*10)/(temp_lactaterate*10)
  445. end
  446. end
  447. RESULT = temp_var
  448. else
  449. RESULT = 0
  450. end
  451. else
  452. RESULT = 0
  453. end
  454. end
  455. if $ARGS[0] = '$get_breastmilk':
  456. !! func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
  457. !! 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]
  458. !! ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
  459. !! Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
  460. !! RESULT = Milk in ml*10
  461. !! 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.
  462. breastpumped = 1
  463. if soreness_mod <= 0: soreness_mod = 1
  464. !! 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.
  465. if ARGS[1] = 0:
  466. !! 'adult sucking'
  467. suck_flow_rate = 120
  468. temp_var = pcs_mood +(ARGS[2]/8)
  469. if temp_var > 100:
  470. pcs_mood = 100
  471. else
  472. pcs_mood += ARGS[2]/8
  473. end
  474. elseif ARGS[1] = 1:
  475. !! 'child sucking'
  476. suck_flow_rate = 110
  477. temp_var = pcs_mood + (ARGS[2]/2)
  478. if temp_var > 100:
  479. pcs_mood = 100
  480. else
  481. pcs_mood += ARGS[2]/2
  482. end
  483. elseif ARGS[1] = 2:
  484. !! 'baby sucking'
  485. suck_flow_rate = 80
  486. temp_var = pcs_mood + ARGS[2]
  487. if temp_var > 100:
  488. pcs_mood = 100
  489. else
  490. pcs_mood += ARGS[2]
  491. end
  492. elseif ARGS[1] = 3:
  493. !! 'manual_breastpump sucking'
  494. suck_flow_rate = 180
  495. elseif ARGS[1] = 4:
  496. !! 'electric_breastpump sucking'
  497. suck_flow_rate = 400
  498. elseif ARGS[1] = 5:
  499. !! 'hand expression'
  500. suck_flow_rate = 105
  501. elseif ARGS[1] = 6:
  502. !! 'cow milker sucking'
  503. suck_flow_rate = 1000
  504. elseif ARGS[1] = 7:
  505. !! 'weak baby sucking'
  506. suck_flow_rate = 50
  507. temp_var = pcs_mood + ARGS[2]
  508. if temp_var > 100:
  509. pcs_mood = 100
  510. else
  511. pcs_mood += ARGS[2]
  512. end
  513. elseif ARGS[1] = 8:
  514. !! 'manual stimulation during sex/sex play'
  515. suck_flow_rate = 60
  516. else
  517. !! 'suck flow else branch'
  518. suck_flow_rate = 100
  519. end
  520. !! 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.
  521. if breastcounter > 0:
  522. temp_var = breastcounter/10
  523. soreness_mod += temp_var
  524. if soreness_mod > 30: soreness_mod = 30
  525. if nipple_cream = 1:
  526. soreness_mod += 20
  527. nipple_cream = 0
  528. end
  529. end
  530. !! 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.
  531. if lactate <= 0:
  532. if milkoverdemand <= 0: milkoverdemand = 0
  533. pump_stop_brake = 0
  534. !! 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.
  535. max_sucktion_demand = suck_flow_rate*ARGS[2]
  536. if pain['nipples'] <= 60:
  537. suck_until_pain = (((60 - pain['nipples'])*soreness_mod)*10)/(suck_flow_rate/18)
  538. end
  539. temp_var = pain['nipples'] + max_sucktion_demand/(soreness_mod*100)
  540. if temp_var > 60:
  541. pain['nipples'] = 65
  542. pump_stop_brake = 1
  543. pumptime = suck_until_pain
  544. max_sucktion_demand = suck_flow_rate*pumptime
  545. else
  546. pain['nipples'] += max_sucktion_demand/(soreness_mod*100)
  547. end
  548. temp_var = pain['breasts'] + max_sucktion_demand/10000
  549. if temp_var > 20:
  550. pain['breasts'] = 25
  551. else
  552. pain['breasts'] += max_sucktion_demand/10000
  553. end
  554. !! Pumping breasts is exhausting even if no milk comes. Pumping will impact the stamina of Sveta if she is not lactating.
  555. temp_var = pcs_stam - max_sucktion_demand/300
  556. if temp_var < 0:
  557. pcs_stam = 0
  558. !! energy usage flag on.
  559. energytomilkpump = 1
  560. pcs_sweat += pumptime/30
  561. else
  562. pcs_stam -= max_sucktion_demand/300
  563. pcs_sweat += pumptime/30
  564. !! energy usage flag on.
  565. energytomilkpump = 1
  566. end
  567. if pumptime < 10:
  568. breastcounter += 1
  569. else
  570. breastcounter += pumptime/10
  571. end
  572. milkoverdemand += max_sucktion_demand
  573. RESULT = 0
  574. elseif lactate > 0:
  575. !! 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.
  576. if pcs_nips > 0:
  577. max_nip_flow_rate = 60
  578. elseif pcs_nips > 20:
  579. max_nip_flow_rate = 80
  580. elseif pcs_nips > 40:
  581. max_nip_flow_rate = 100
  582. elseif pcs_nips > 60:
  583. max_nip_flow_rate = 120
  584. elseif pcs_nips > 80:
  585. max_nip_flow_rate = 140
  586. elseif pcs_nips > 100:
  587. max_nip_flow_rate = 160
  588. else
  589. max_nip_flow_rate = 100
  590. end
  591. !! 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.
  592. nip_flow_mod = 1
  593. nip_flow_mod += breastcounter
  594. if nip_flow > 400: nip_flow_mod = 400
  595. max_nip_flow_rate += nip_flow_mod
  596. !! How much milk demand is applied to the breasts.
  597. max_sucktion_demand = suck_flow_rate*ARGS[2]
  598. !! 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.
  599. !! If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
  600. !! Also lets make sure we start at zero from the stuff we get from Sveta.
  601. milkedvolume = 0
  602. !! Case: Enough milk in Svetas breasts, covering the demand
  603. if lactatemv >= max_sucktion_demand:
  604. !! 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.
  605. if max_nip_flow_rate >= suck_flow_rate:
  606. milkedvolume = max_sucktion_demand
  607. lactatemv -= max_sucktion_demand
  608. else:
  609. milkedvolume = max_nip_flow_rate*ARGS[2]
  610. lactatemv -= milkedvolume
  611. end
  612. !! Case: Not enough milk in Svetas breasts.
  613. elseif lactatemv < max_sucktion_demand:
  614. !! 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.
  615. !! 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.
  616. if lactatemv <= 0:
  617. temp_var = max_sucktion_demand
  618. pumptime_left = ARGS[2]
  619. else
  620. temp_var = max_sucktion_demand - lactatemv
  621. if max_nip_flow_rate >= suck_flow_rate:
  622. pumptime_left = ARGS[2] - (lactatemv/suck_flow_rate)
  623. else
  624. pumptime_left = ARGS[2] - (lactatemv/max_nip_flow_rate)
  625. end
  626. if pumptime_left < 0: pumptime_left = 0
  627. end
  628. !! Now we know how much time we have and how much demand we have. Time to check if Sveta can do it.
  629. !! For the case, that svetas milk flow is not big enough pumptime left will be 0, therefore this is handled here.
  630. if pumptime_left >0:
  631. if max_nip_flow_rate >= suck_flow_rate:
  632. !! 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.
  633. if (suck_flow_rate*100) <= ((lactaterate*100)/60):
  634. milkedvolume += suck_flow_rate*pumptime_left
  635. else
  636. milkedvolume += ((((lactaterate*100)/60)*pumptime_left)/100)
  637. breastcounter += 2
  638. end
  639. else
  640. !! Same here as above.
  641. if (max_nip_flow_rate*100) <= ((lactaterate*100)/60):
  642. milkedvolume += max_nip_flow_rate*pumptime_left
  643. breastcounter += 2
  644. else
  645. milkedvolume += ((((lactaterate*100)/60)*pumptime_left)/100)
  646. breastcounter += 2
  647. end
  648. end
  649. !! 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
  650. if pumptime_left > 60:
  651. if ((pumptime_left*100)/60) > 100:
  652. lactaterate_use -= ((((lactaterate*100)/60)*(pumptime_left mod 60))/100)
  653. else
  654. lactaterate_use = lactaterate
  655. end
  656. else
  657. if lactaterate >= lactaterate_use:
  658. lactaterate_use -= milkedvolume
  659. else
  660. lactaterate_use = lactaterate
  661. end
  662. end
  663. if lactaterate_use <= 0: lactaterate_use = 0
  664. !! Sveta had to make milk, so she needs to use some of her body resources to make the milk.
  665. if milkedvolume > 0:
  666. !! energy usage flag on. Can be used in events to show that sveta is getting hungry or thirsty
  667. energytomilkpump = 1
  668. pcs_stam -= max_sucktion_demand/300
  669. if pcs_stam <= 0: pcs_stam = 0
  670. pcs_sweat += pumptime/30
  671. pcs_hydra -= milkedvolume/120
  672. if pcs_hydra < 1: pcs_hydra = 1
  673. pcs_energy -= milkedvolume/1200
  674. end
  675. end
  676. !! 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.
  677. if temp_var > milkedvolume:
  678. milkoverdemand += (temp_var - milkedvolume)
  679. end
  680. !! time to add the pumped lactatemv to the milkedvolume and empty lactatemv.
  681. milkedvolume += lactatemv
  682. lactatemv = 0
  683. !! 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.
  684. !! Else - there will only be nipple pain.
  685. if max_nip_flow_rate < suck_flow_rate:
  686. temp_var = pain['nipples'] + ((suck_flow_rate - max_nip_flow_rate)*100*ARGS[2])/2000 - (soreness_mod*ARGS[2])*15
  687. if temp_var >= 60:
  688. pain['nipples'] = 65
  689. elseif temp_var <= 0:
  690. pain['nipples'] += 1
  691. else
  692. pain['nipples'] += (((suck_flow_rate - max_nip_flow_rate)*100*ARGS[2])/2000 - (soreness_mod*ARGS[2])*15)
  693. end
  694. else
  695. if ARGS[2] < 10:
  696. pain['nipples'] += 1
  697. elseif ARGS[2] >= 10 and soreness_mod > ARGS[2]:
  698. pain['nipples'] += 1
  699. else
  700. pain['nipples'] += (ARGS[2]/10 - soreness_mod/10)
  701. end
  702. end
  703. if max_nip_flow_rate >= suck_flow_rate:
  704. if (suck_flow_rate*100) > ((lactaterate*100)/60):
  705. temp_var = pain['breasts'] + (((suck_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
  706. if temp_var > 20:
  707. pain['breasts'] = 20
  708. else
  709. pain['breasts'] += (((suck_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
  710. end
  711. end
  712. else
  713. if (max_nip_flow_rate*100) > ((lactaterate*100)/60):
  714. temp_var = pain['breasts'] + (((max_nip_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
  715. if temp_var > 20:
  716. pain['breasts'] = 20
  717. else
  718. pain['breasts'] += (((max_nip_flow_rate*100)-((lactaterate*100)/60))*pumptime_left)/1000
  719. end
  720. end
  721. end
  722. end
  723. if pumptime < 10:
  724. breastcounter += 1
  725. else
  726. breastcounter += pumptime/10
  727. end
  728. !! Done - Result is the milked volume.
  729. RESULT = milkedvolume
  730. end
  731. end
  732. !! bp_milking - breast pump milking
  733. !! use href="exec:gt ''lact_lib'',''bp_milking''"
  734. if $ARGS[0] = 'bp_milking':
  735. pumptime = 0
  736. pumptype = 0
  737. gs 'lact_lib', 'reg_bottle_count'
  738. if pump_bottletype < 1500: pump_bottletype = 1500
  739. if $location_type ! 'bathroom' and pcs_inhib < 30:
  740. 'You aren''t confident enough to do that here.'
  741. act 'Finish': menu_off = 0 & gt $loc, $metka
  742. elseif bp_unbox <= 0:
  743. 'You need to unbox your breast pump first.'
  744. act 'Finish': menu_off = 0 & gt $loc, $metka
  745. elseif bp_unbox = 1 and ($location_type = 'bathroom' or $location_type = 'private'):
  746. gt 'lact_lib', 'bp_unbox_event'
  747. else
  748. *clr
  749. cla
  750. '<center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  751. 'How long do you want to pump your breasts with the manual breast pump?'
  752. if func('lact_lib','useable_sbottle_count') > 0 and func('lact_lib','useable_mbottle_count') > 0:
  753. if func('lact_lib','useable_sbottle_count') > 0 and pump_bottletype = 1500:
  754. 'Current bottle size in use: &gt;150ml | <a href="exec:pump_bottletype = 2500 & gt ''lact_lib'', ''bp_milking''">250ml</a>'
  755. elseif func('lact_lib','useable_mbottle_count') > 0:
  756. pump_bottletype = 2500
  757. 'Current bottle size in use <a href="exec:pump_bottletype = 1500 & gt ''lact_lib'', ''bp_milking''">150ml</a> | &gt;250ml'
  758. else
  759. 'this should not end up here - got to tfg forums.'
  760. end
  761. elseif func('lact_lib','useable_sbottle_count') > 0 and func('lact_lib','useable_mbottle_count') <= 0:
  762. pump_bottletype = 1500
  763. 'You currently use a 150ml bottle on your breast pump.'
  764. elseif func('lact_lib','useable_sbottle_count') <= 0 and func('lact_lib','useable_mbottle_count') > 0:
  765. pump_bottletype = 2500
  766. 'You currently use a 250ml bottle on your breast pump.'
  767. else
  768. 'You have no bottles left to use. Please empty bottles or buy new ones in the pharmacy.'
  769. end
  770. if (bpbottlem + bpbottles) = 1:
  771. 'You have one bottle. You can check it <a href="exec:gs ''lact_lib'',''view_milk_bottles'', 1">here</a>'
  772. elseif (bpbottlem + bpbottles) > 1:
  773. 'You have <<bpbottlem + bpbottles>> bottles. You can check them <a href="exec:gs ''lact_lib'',''view_milk_bottles'', 1">here</a>'
  774. end
  775. if lactatemv > 0 and (func('lact_lib','useable_sbottle_count') > 0 or func('lact_lib','useable_mbottle_count') > 0):
  776. pumptime = (func('lact_lib','$get_breastmilk_time', 3, (lactatemv/10)))
  777. if pumptime > 5:
  778. pumptime -= 2
  779. end
  780. if pumptime > 60:
  781. act 'Pump until breasts are empty':
  782. *clr
  783. cla
  784. minut += 2
  785. '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.'
  786. 'Getting relieve for your breasts with the manual breast pump will probably take at least <<pumptime>> minutes.'
  787. if pcs_know_mward <= 0:
  788. 'You concider visiting a hospital to get help or buying a better breastpump.'
  789. pcs_ask_mward_help = 1
  790. pcs_knows_electric_pump = 1
  791. end
  792. 'Do you want to continue?'
  793. act 'Don''t pump':gt $loc, $metka
  794. act 'Continue':
  795. gt 'lact_lib', 'milking'
  796. end
  797. end
  798. elseif pumptime <= 0:
  799. act 'Pump until breasts are empty':
  800. *clr
  801. cla
  802. minute += 2
  803. 'As you prepare for pumping you weight your breasts in your hands. Your breasts feel really empty. There is no need to pump now.'
  804. act 'Don''t pump':gt $loc, $metka
  805. act 'back':gt 'lact_lib', 'bp_milking'
  806. end
  807. else
  808. act 'Pump until breasts are empty':
  809. pumptime = func('lact_lib','$get_breastmilk_time', 3, (lactatemv/10))
  810. if pumptime > 5:
  811. pumptime -= 2
  812. end
  813. gt 'lact_lib', 'milking'
  814. end
  815. end
  816. end
  817. if (func('lact_lib','useable_sbottle_count') > 0 or func('lact_lib','useable_mbottle_count') > 0):
  818. act '15 Minutes':
  819. pumptime = 15
  820. gt 'lact_lib', 'milking'
  821. end
  822. act '30 Minutes':
  823. pumptime = 30
  824. gt 'lact_lib', 'milking'
  825. end
  826. act 'Custom':
  827. pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
  828. if pumptime <= 0 or pumptime > 60:
  829. minut += 2
  830. act 'Don''t pump':menu_off = 0 & gt $loc, $metka
  831. act 'back':gt 'lact_lib', 'bp_milking'
  832. elseif pumptime > 0 and pumptime <= 60:
  833. gt 'lact_lib', 'milking'
  834. end
  835. end
  836. end
  837. act 'Massage your breasts': gt 'lact_lib','man_milking'
  838. act 'Don''t pump':menu_off = 0 & gt $loc, $metka
  839. end
  840. end
  841. !! man_milking - manual (with hands) milking
  842. !! use href="exec:gt ''lact_lib'',''man_milking''"
  843. !! for manual milk expression in bathrooms etc. please use this function.
  844. if $ARGS[0] = 'massage':
  845. if breastcounter <= 0:
  846. temp_var = 50
  847. else
  848. temp_var = (50/breastcounter)
  849. end
  850. if (($location_type ! 'bathroom' and pcs_inhib >= 30) or $location_type = 'bathroom' and breastpump = 0) and pcs_horny >= temp_var:
  851. act 'Massage your breasts': gt 'lact_lib','man_milking'
  852. end
  853. end
  854. if $ARGS[0] = 'man_milking':
  855. pumptime = 0
  856. *clr
  857. cla
  858. gs 'lact_lib', 'reg_bottle_count'
  859. 'How long do you want to massage your breasts?'
  860. if lactatemv > 0:
  861. pumptime = (func('lact_lib','$get_breastmilk_time', 5, (lactatemv/10)))
  862. if pumptime > 60:
  863. act 'Express until breasts are empty':
  864. *clr
  865. cla
  866. minut += 2
  867. 'You prepare yourself and weight your breasts in your hands. You feel that your breasts carry a large amount of milk and manually expressing it will probably take a long time.'
  868. 'Getting relieve for your breasts with manual expression will probably take at least <<pumptime>> minutes.'
  869. if breastpump <= 0 and bp_unbox <= 1:
  870. 'You should concider buying a breastpump'
  871. elseif breastpump = 1 and bp_unbox <= 1 and pain['nipples'] <= 60:
  872. 'You should concider using your breastpump.'
  873. else
  874. 'You should concider the use of a breastpump.'
  875. end
  876. 'Do you want to continue?'
  877. act 'Don''t express':menu_off = 0 & gt $loc, $metka
  878. act 'Express your milk':
  879. gt 'lact_lib', 'hand_milking'
  880. end
  881. end
  882. elseif pumptime <= 0:
  883. act 'Express milk until breasts are empty':
  884. *clr
  885. cla
  886. minute += 2
  887. 'As you prepare yourself you feel your breasts in your hands. Your breasts feel really empty. There is no need to express now.'
  888. act 'Don''t express milk':menu_off = 0 & gt $loc, $metka
  889. act 'back':gt 'lact_lib', 'man_milking'
  890. end
  891. else
  892. act 'Express until breasts are empty':
  893. pumptime = func('lact_lib','$get_breastmilk_time', 5, (lactatemv/10))
  894. gt 'lact_lib', 'hand_milking'
  895. end
  896. end
  897. end
  898. act '5 Minutes':
  899. pumptime = 5
  900. gt 'lact_lib', 'hand_milking'
  901. end
  902. act '10 Minutes':
  903. pumptime = 10
  904. gt 'lact_lib', 'hand_milking'
  905. end
  906. act 'Custom':
  907. pumptime = input ("How long do you plan to massage your breasts? (Not more than 60 minutes)")
  908. if pumptime <= 0 or pumptime > 60:
  909. minut += 2
  910. act 'Don''t express':gt $loc, $metka
  911. act 'back':gt 'lact_lib', 'man_milking'
  912. elseif pumptime > 0 and pumptime <= 60:
  913. gt 'lact_lib', 'hand_milking'
  914. end
  915. end
  916. act 'Don''t express':menu_off = 0 & gt $loc, $metka
  917. end
  918. if $ARGS[0] = 'bp_unbox_event':
  919. if bp_unbox <= 0:
  920. *clr
  921. cla
  922. minut += 5
  923. if $location_type = 'bathroom':
  924. 'You push down the toilet seat to sit down and slowly start to unbox your newly aquirred breast pump.'
  925. elseif $location_type = 'private' and $locclass = 'bedr':
  926. 'You sit down on your bed and slowly start to unbox your newly aquirred breast pump.'
  927. elseif $location_type = 'private':
  928. 'You sit down and slowly start to unbox your newly aquirred breast pump.'
  929. end
  930. if kid <= 0 and preg <= 0 and pregtimes <= 0 and pregchem <= 0 and bp_unbox <= 0:
  931. 'While examining it, you think about why you bought it in the first place. You are not pregnant nor do you have a kid that needs breast milk.'
  932. if lactate <= 0:
  933. 'Your breasts haven''t got any milk in them too, so it seems this pump is a bit useless.'
  934. else
  935. 'At least it can help to get the milk out of your breasts.'
  936. end
  937. end
  938. if $location_type = 'private':
  939. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing.jpg"></center>'
  940. elseif $location_type = 'bathroom':
  941. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing_bath.jpg"></center>'
  942. else
  943. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing_bath.jpg"></center>'
  944. end
  945. !! creating first 150ml bottle
  946. bpbottles += 1
  947. gs 'lact_lib', 'reg_bottle_count'
  948. !! Actions
  949. if (pcs_inhib > 40 and $location_type = 'private') or $location_type = 'bathroom':
  950. act 'Try out how it works':
  951. *clr
  952. cla
  953. 'You pull up your top to release your breasts'
  954. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center><br>'
  955. 'Your fingers glide around the sucktion cup of the breast pump, while your other hand holds the pump.'
  956. 'Making sure that no one is around, you lift the breast pump to your left breast. The cold cone feels uncomfortable on your nipple.'
  957. milkedvolume = func('lact_lib','$get_breastmilk', 3, 1)
  958. minut += 1
  959. bp_unbox = 2
  960. if lactate > 0 and milkedvolume > 0:
  961. if milkedvolume <= 50:
  962. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  963. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  964. 'You go on for a minute and then detach the pump. You collected some milk, but it is just a small puddle in the bottle.'
  965. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  966. elseif milkedvolume > 50 and milkedvolume <= 1500:
  967. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  968. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  969. 'You go on for a minute and then detach the pump. You collected <<milkedvolume/10>>ml of your breastmilk.'
  970. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_half.jpg"></center>'
  971. else
  972. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  973. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  974. 'You go on for a minute and then detach the pump. You easily filed the breast pump bottle with your breast milk just with this little pumping.'
  975. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_full.jpg"></center>'
  976. end
  977. 'You nod at the breast pump, thinking it will come in handy.'
  978. elseif lactate > 0 and milkedvolume <= 0:
  979. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  980. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it.'
  981. 'You go on for a minute and then detach the pump. You collected some milk, but it is just a small puddle in the bottle.'
  982. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  983. else
  984. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  985. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it.'
  986. 'You go on for a minute and then detach the pump. As expected no milk was collected in the bottle.'
  987. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  988. end
  989. if lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
  990. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  991. 'You are surprised to see that you are lactating!'
  992. lactateinduced = 1
  993. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  994. 'Regularily massaging your breasts probably made you lactate!<br>'
  995. lactateinduced = 1
  996. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  997. 'All that pumping and massaging your breasts probably caused you to lactate!<br>'
  998. lactateinduced = 1
  999. else
  1000. 'To your surprise it is milk. You started lactating!<br>'
  1001. if thinkpreg = 1 or knowpreg = 1:
  1002. 'This is probably happening because you are pregnant.'
  1003. else
  1004. 'You should have this checked out by a doctor. You could be pregnant.'
  1005. end
  1006. lactateinduced = 0
  1007. end
  1008. pcs_knowsaboutlactation = 1
  1009. end
  1010. act 'continue':
  1011. *clr
  1012. cla
  1013. if milkedvolume > 50 and $location_type = 'private':
  1014. 'You look at the milk in the bottle and then around the room. Having no idea what to do with the excess milk, you look at it and suddenly sip it down.'
  1015. 'It is your milk, so it should be okay to drink it.'
  1016. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  1017. '<center>The milk is still warm from your breasts.</center>'
  1018. pcs_health += milkedvolume/400
  1019. pcs_energy += milkedvolume/500
  1020. if pcs_hydra >= 100:
  1021. pcs_hydra += milkedvolume/200
  1022. else
  1023. pcs_hydra += milkedvolume/100
  1024. end
  1025. minut += ((milkedvolume/1000) + 3)
  1026. act 'Finish': menu_off = 0 & gt $loc, $metka
  1027. else
  1028. 'You clean up your pump and cover your breasts again.'
  1029. act 'Finish': menu_off = 0 & gt $loc, $metka
  1030. end
  1031. end
  1032. bp_unbox = 2
  1033. end
  1034. end
  1035. act 'Don''t try it here':
  1036. *clr
  1037. cla
  1038. 'You look around you, not feeling to comfortable to use the breast pump here.'
  1039. bp_unbox = 1
  1040. act 'Finish': menu_off = 0 & gt $loc, $metka
  1041. end
  1042. elseif bp_unbox = 1:
  1043. if $location_type = 'private' and pcs_inhib < 40:
  1044. 'You can''t do this here'
  1045. act 'Finish': menu_off = 0 & gt $loc, $metka
  1046. else
  1047. 'You pull up your top to release your breasts'
  1048. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center><br>'
  1049. 'Your fingers glide around the sucktion cup of the breast pump, while your other hand holds the pump.'
  1050. 'Making sure that no one is around, you lift the breast pump to your left breast. The cold cone feels uncomfortable on your nipple.'
  1051. milkedvolume = func('lact_lib','$get_breastmilk', 3, 1)
  1052. minut += 1
  1053. bp_unbox = 2
  1054. if lactate > 0 and milkedvolume > 0:
  1055. if milkedvolume <= 50:
  1056. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  1057. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  1058. 'You go on for a minute and then detach the pump. You collected some milk, but it is just a small puddle in the bottle.'
  1059. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  1060. elseif milkedvolume > 50 and milkedvolume <= 1500:
  1061. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  1062. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  1063. 'You go on for a minute and then detach the pump. You collected <<milkedvolume/10>>ml of your breastmilk.'
  1064. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_half.jpg"></center>'
  1065. else
  1066. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  1067. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it. The pump starts to draw milk from your breast.'
  1068. 'You go on for a minute and then detach the pump. You easily filed the breast pump bottle with your breast milk just with this little pumping.'
  1069. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_full.jpg"></center>'
  1070. end
  1071. 'You nod at the breast pump, thinking it will come in handy.'
  1072. elseif lactate > 0 and milkedvolume <= 0:
  1073. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  1074. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it.'
  1075. 'You go on for a minute and then detach the pump. You collected some milk, but it is just a small puddle in the bottle.'
  1076. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  1077. else
  1078. 'You start to squeeze the bulb. Your nipple is sucked into the cone, getting elongated a bit. It feels weird at first and you release the lever, the sucktion on your nipple goes away and the nipple retracts.'
  1079. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rythmically squeeze it.'
  1080. 'You go on for a minute and then detach the pump. As expected no milk was collected in the bottle.'
  1081. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  1082. end
  1083. act 'continue':
  1084. *clr
  1085. cla
  1086. if milkedvolume > 50 and $location_type = 'private':
  1087. 'You look at the milk in the bottle and then around the room. Having no idea what to do with the excess milk, you look at it and suddenly sip it down.'
  1088. 'It is your milk, so it should be okay to drink it.'
  1089. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  1090. '<center>The milk is still warm from your breasts.</center>'
  1091. pcs_health += milkedvolume/400
  1092. pcs_energy += milkedvolume/500
  1093. if pcs_hydra >= 100:
  1094. pcs_hydra += milkedvolume/200
  1095. else
  1096. pcs_hydra += milkedvolume/100
  1097. end
  1098. minut += ((milkedvolume/1000) + 3)
  1099. act 'Finish': menu_off = 0 & gt $loc, $metka
  1100. else
  1101. 'You clean up your pump and cover your breasts again.'
  1102. act 'Finish': menu_off = 0 & gt $loc, $metka
  1103. end
  1104. end
  1105. end
  1106. elseif bp_unbox >= 2:
  1107. *clr
  1108. cla
  1109. 'You unboxed your breast pump already.'
  1110. act 'Finish': menu_off = 0 & gt $loc, $metka
  1111. end
  1112. end
  1113. if $ARGS[0] = 'reg_bottle_count':
  1114. if reg_bottles_count <= 0: reg_bottles_count = 0
  1115. if reg_bottlem_count <= 0: reg_bottlem_count = 0
  1116. if (reg_bottlem_count + reg_bottles_count) < (bpbottlem + bpbottles):
  1117. :rbc_loop
  1118. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  1119. if (bpbottles - reg_bottles_count) > 0:
  1120. reg_bottles_count += 1
  1121. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  1122. mbarrtype[rbc_index] = 1500
  1123. mbarrfill[rbc_index] = 0
  1124. mbarrmage[rbc_index] = 0
  1125. mbarrcool[rbc_index] = 0
  1126. $mbarrstat[rbc_index] = 'none'
  1127. $mbarrtemp[rbc_index] = 'none'
  1128. mbarrloca[rbc_index] = 1
  1129. jump 'rbc_loop'
  1130. end
  1131. if (bpbottlem - reg_bottlem_count) > 0:
  1132. reg_bottlem_count += 1
  1133. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  1134. mbarrtype[rbc_index] = 2500
  1135. mbarrfill[rbc_index] = 0
  1136. mbarrmage[rbc_index] = 0
  1137. mbarrcool[rbc_index] = 0
  1138. $mbarrstat[rbc_index] = 'none'
  1139. $mbarrtemp[rbc_index] = 'none'
  1140. mbarrloca[rbc_index] = 1
  1141. jump 'rbc_loop'
  1142. end
  1143. end
  1144. end
  1145. !! milking
  1146. !! never use directly. Always use bp_milking, man_milking or sex_milking
  1147. if $ARGS[0] = 'milking':
  1148. gs 'lact_lib', 'reg_bottle_count'
  1149. if lactate > 0 and pain['nipples'] < 60:
  1150. milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
  1151. !!act 'Finish':menu_off = 0 & gt $loc, $metka
  1152. bp_used_mbottle = 0
  1153. bp_used_sbottle = 0
  1154. bp_useable_sbottle = func('lact_lib','useable_sbottle_count')
  1155. bp_useable_mbottle = func('lact_lib','useable_mbottle_count')
  1156. pump_timestamp = func('lact_lib','time_stamp')
  1157. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
  1158. if pumptime > 1:
  1159. 'You attach the pump to your breast and start rythmically squeezing the bulb for <<pumptime>> minutes.'
  1160. else
  1161. 'You attach the pump to your breast and start rythmically squeezing the bulb for one minute.'
  1162. end
  1163. if milkedvolume > pump_bottletype and (bp_useable_sbottle*1500 + bp_useable_mbottle*2500) = pump_bottletype:
  1164. 'During pumping you have to empty the collecting bottle as it filled up with your milk.'
  1165. 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<pump_bottletype/10>>ml of your milk.'
  1166. 'To collect all your pumped milk you should probably check if the pharmacy has additional bottles for your breast pump.'
  1167. if (bp_useable_sbottle - bp_used_sbottle) > 0:
  1168. bottlecounter = 0
  1169. :sbottle_loneloop
  1170. if bottlecounter < (bpbottlem + bpbottles) and milkedvolume > 1500:
  1171. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  1172. func('lact_lib','fill_milk_bottle',bottlecounter,1500)
  1173. jump 'bottlefull_loopbreak'
  1174. end
  1175. bottlecounter += 1
  1176. jump 'sbottle_loneloop'
  1177. end
  1178. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume > 2500:
  1179. bottlecounter = 0
  1180. :mbottle_loneloop
  1181. if bottlecounter < (bpbottlem + bpbottles):
  1182. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  1183. func('lact_lib','fill_milk_bottle',bottlecounter,2500)
  1184. jump 'bottlefull_loopbreak'
  1185. end
  1186. bottlecounter += 1
  1187. jump 'mbottle_loneloop'
  1188. end
  1189. else
  1190. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  1191. 'first fork case'
  1192. 'bp_used_mbottle: <<bp_used_mbottle>>'
  1193. 'bp_used_sbottle: <<bp_used_sbottle>>'
  1194. 'milkedvolume: <<milkedvolume>>'
  1195. 'pump_bottletype: <<pump_bottletype>>'
  1196. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  1197. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  1198. end
  1199. :bottlefull_loopbreak
  1200. elseif milkedvolume > pump_bottletype and (bp_useable_sbottle*1500 + bp_useable_mbottle*2500) > pump_bottletype:
  1201. !! Checking which bottletype is used and filling those bottles up before the other type is used.
  1202. :sbottleloop
  1203. if pump_bottletype < 2500 and milkedvolume >= 1500 and bp_used_sbottle < bp_useable_sbottle:
  1204. bp_used_sbottle += 1
  1205. milkedvolume -= 1500
  1206. bottlecounter = 0
  1207. :sbottle_searchloop
  1208. if bottlecounter < (bpbottlem + bpbottles):
  1209. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  1210. func('lact_lib','fill_milk_bottle',bottlecounter,1500)
  1211. jump 'sbottle_searchloopbreak'
  1212. end
  1213. bottlecounter += 1
  1214. jump 'sbottle_searchloop'
  1215. end
  1216. :sbottle_searchloopbreak
  1217. jump 'sbottleloop'
  1218. end
  1219. :mbottleloop
  1220. if pump_bottletype >= 2500 and milkedvolume >= 2500 and bp_used_mbottle < bp_useable_mbottle:
  1221. bp_used_mbottle += 1
  1222. milkedvolume -= 2500
  1223. bottlecounter = 0
  1224. :mbottle_searchloop
  1225. if bottlecounter < (bpbottlem + bpbottles):
  1226. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  1227. func('lact_lib','fill_milk_bottle',bottlecounter,2500)
  1228. jump 'mbottle_searchloopbreak'
  1229. end
  1230. bottlecounter += 1
  1231. jump 'mbottle_searchloop'
  1232. end
  1233. :mbottle_searchloopbreak
  1234. jump 'mbottleloop'
  1235. end
  1236. !! Checking for the milkedvolume and if there are bottles left. if yes - use these bottles
  1237. if milkedvolume > 0 and (((bp_useable_mbottle - bp_used_mbottle) > 0) or ((bp_useable_sbottle - bp_used_sbottle) > 0)):
  1238. :altfill01
  1239. if pump_bottletype < 2500 and milkedvolume >= 2500 and bp_used_mbottle < bp_useable_mbottle:
  1240. bp_used_mbottle += 1
  1241. milkedvolume -= 2500
  1242. bottlecounter = 0
  1243. :sbottle_altsearchloop
  1244. if bottlecounter < (bpbottlem + bpbottles):
  1245. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  1246. func('lact_lib','fill_milk_bottle',bottlecounter,2500)
  1247. jump 'sbottle_altsearchloopbreak'
  1248. end
  1249. bottlecounter += 1
  1250. jump 'sbottle_altsearchloop'
  1251. end
  1252. :sbottle_altsearchloopbreak
  1253. jump 'altfill01'
  1254. end
  1255. :altfill02
  1256. if pump_bottletype >= 2500 and milkedvolume >= 1500 and bp_used_sbottle < bp_useable_sbottle:
  1257. bp_used_sbottle += 1
  1258. milkedvolume -= 1500
  1259. bottlecounter = 0
  1260. :mbottle_altsearchloop
  1261. if bottlecounter < (bpbottlem + bpbottles):
  1262. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  1263. func('lact_lib','fill_milk_bottle',bottlecounter,1500)
  1264. jump 'mbottle_altsearchloopbreak'
  1265. end
  1266. bottlecounter += 1
  1267. jump 'mbottle_altsearchloop'
  1268. end
  1269. :mbottle_altsearchloopbreak
  1270. jump 'altfill02'
  1271. end
  1272. end
  1273. !! by this point all bottles should have been used up. Everything else needs to end up in the drain.
  1274. if milkedvolume > 0 and bp_useable_mbottle = bp_used_mbottle and bp_useable_sbottle = bp_used_sbottle:
  1275. '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.'
  1276. 'You had to pour <<milkedvolume/10>>ml of your breast milk into the sink.'
  1277. milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500))
  1278. elseif milkedvolume > 0 and milkedvolume < 1500 and (bp_useable_sbottle - bp_used_sbottle) > 0:
  1279. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  1280. elseif milkedvolume > 0 and milkedvolume < 2500 and milkedvolume > 1500 and (bp_useable_mbottle - bp_used_mbottle) > 0:
  1281. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  1282. else
  1283. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  1284. end
  1285. if bp_used_mbottle >= 1 or bp_used_sbottle >= 1:
  1286. '<center><img <<$set_imgh>> src="images/pc/body/tits/bottles_full.jpg"></center>'
  1287. if milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500)):
  1288. 'You pumped <<milkedvolume/10>>ml of milk from your breasts, collecting it in:'
  1289. if bp_useable_sbottle = 1:
  1290. 'One 150ml bottle'
  1291. elseif bp_used_sbottle > 1:
  1292. '<<bp_used_sbottle>> x 150ml bottles'
  1293. end
  1294. if bp_used_mbottle = 1:
  1295. 'One 250ml bottle'
  1296. elseif bp_used_mbottle > 1:
  1297. '<<bp_used_mbottle>> x 250ml bottles'
  1298. end
  1299. else
  1300. 'You pumped <<((bp_used_mbottle*2500)+(bp_used_sbottle*1500)+milkedvolume)/10>>ml of milk from your breasts collecting it in:'
  1301. if bp_used_sbottle = 1:
  1302. 'One 150ml bottle'
  1303. elseif bp_used_sbottle > 1:
  1304. '<<bp_used_sbottle>> x 150ml bottles'
  1305. end
  1306. if bp_used_mbottle = 1:
  1307. 'One 250ml bottle'
  1308. elseif bp_used_mbottle > 1:
  1309. '<<bp_used_mbottle>> x 250ml bottles'
  1310. end
  1311. if (bp_useable_sbottle - bp_used_sbottle) > 0 and milkedvolume <= 1500:
  1312. bottlecounter = 0
  1313. :sbottle_restsearchloop
  1314. if bottlecounter < (bpbottlem + bpbottles):
  1315. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  1316. func('lact_lib','fill_milk_bottle',bottlecounter,milkedvolume)
  1317. jump 'sbottlefilled_break'
  1318. end
  1319. bottlecounter += 1
  1320. jump 'sbottle_restsearchloop'
  1321. end
  1322. :sbottlefilled_break
  1323. 'You also stored <<milkedvolume/10>>ml of breast milk in a 150ml bottle.'
  1324. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume <= 2500:
  1325. bottlecounter = 0
  1326. :mbottle_restsearchloop
  1327. if bottlecounter < (bpbottlem + bpbottles):
  1328. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  1329. func('lact_lib','fill_milk_bottle',bottlecounter,milkedvolume)
  1330. jump 'mbottlefilled_break'
  1331. end
  1332. bottlecounter += 1
  1333. jump 'mbottle_restsearchloop'
  1334. end
  1335. :mbottlefilled_break
  1336. 'You also stored <<milkedvolume/10>>ml of breast milk in a 250ml bottle.'
  1337. else
  1338. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  1339. 'second fork case'
  1340. 'bp_used_mbottle: <<bp_used_mbottle>>'
  1341. 'bp_used_sbottle: <<bp_used_sbottle>>'
  1342. 'milkedvolume: <<milkedvolume>>'
  1343. 'pump_bottletype: <<pump_bottletype>>'
  1344. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  1345. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  1346. end
  1347. milkedvolume += bp_used_mbottle*2500 + bp_used_sbottle*1500
  1348. end
  1349. else
  1350. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  1351. 'third fork case'
  1352. 'bp_used_mbottle: <<bp_used_mbottle>>'
  1353. 'bp_used_sbottle: <<bp_used_sbottle>>'
  1354. 'milkedvolume: <<milkedvolume>>'
  1355. 'pump_bottletype: <<pump_bottletype>>'
  1356. 'bpbottles: <<bpbottles>>'
  1357. 'bpbottlem: <<bpbottlem>>'
  1358. end
  1359. else
  1360. 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
  1361. if (bp_useable_sbottle - bp_used_sbottle) > 0 and milkedvolume <= 1500:
  1362. bottlecounter = 0
  1363. :single_sbottle_searchloop
  1364. if bottlecounter < (bpbottlem + bpbottles):
  1365. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  1366. func('lact_lib','fill_milk_bottle',bottlecounter,milkedvolume)
  1367. jump 'single_sbottlefilled_break'
  1368. end
  1369. bottlecounter += 1
  1370. jump 'single_sbottle_searchloop'
  1371. end
  1372. :single_sbottlefilled_break
  1373. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume <= 2500:
  1374. bottlecounter = 0
  1375. :single_mbottle_searchloop
  1376. if bottlecounter < (bpbottlem + bpbottles):
  1377. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  1378. func('lact_lib','fill_milk_bottle',bottlecounter,milkedvolume)
  1379. jump 'single_mbottlefilled_break'
  1380. end
  1381. bottlecounter += 1
  1382. jump 'single_mbottle_searchloop'
  1383. end
  1384. :single_mbottlefilled_break
  1385. else
  1386. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  1387. 'second fork case'
  1388. 'bp_used_mbottle: <<bp_used_mbottle>>'
  1389. 'bp_used_sbottle: <<bp_used_sbottle>>'
  1390. 'milkedvolume: <<milkedvolume>>'
  1391. 'pump_bottletype: <<pump_bottletype>>'
  1392. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  1393. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  1394. end
  1395. milkedvolume += bp_used_mbottle*2500 + bp_used_sbottle*1500
  1396. end
  1397. breastcounter += 1
  1398. if energytomilkpump > 0 and pcs_energy = 0:
  1399. '<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
  1400. energytomilkpump = 0
  1401. elseif energytomilkpump > 0:
  1402. '<br>You feel a bit thirsty after pumping.'
  1403. energytomilkpump = 0
  1404. end
  1405. if bcream_used = 1:
  1406. pcs_nips += rand(0,2)
  1407. bcream_used = 0
  1408. end
  1409. minut += pumptime
  1410. elseif lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
  1411. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  1412. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  1413. 'As usual, you attach the pump, but after a few pumps white liquid suddenly starts flowing from your nipples.<br>Using the breast pump regularily probably made you lactate!'
  1414. lactateinduced = 1
  1415. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  1416. 'You attach the pump but after a few pumps white liquid suddenly comes from your nipples. Regularily massaging your breasts probably made you lactate!<br>'
  1417. lactateinduced = 1
  1418. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  1419. 'You attach the pump but after a few pumps white liquid suddenly comes from your nipples. All that pumping and massaging your breasts probably caused you to lactate!<br>'
  1420. lactateinduced = 1
  1421. else
  1422. 'You attach the pump and give it a few pumps. To your surprise white liquid suddenly comes from your nipples. You started lactating!<br>'
  1423. if thinkpreg = 1 or knowpreg = 1:
  1424. 'This is probably happening because you are pregnant.'
  1425. else
  1426. 'You should have this checked out by a doctor. You could be pregnant.'
  1427. end
  1428. lactateinduced = 0
  1429. end
  1430. pcs_usedbreastpumponherself = 0
  1431. pcs_massagedherbreasts = 0
  1432. pcs_knowsaboutlactation = 1
  1433. elseif lactate = 0 and pain['nipples'] < 60:
  1434. milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
  1435. pcs_usedbreastpumponherself += 1
  1436. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
  1437. if breastcounter < 100:
  1438. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels uncomfortable on your nipples.'
  1439. elseif breastcounter >= 100 and breastcounter < 200:
  1440. 'You attach the pump to your nipples and start squeezing the bulb. You are used to the vacuum on your nipples.'
  1441. else
  1442. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
  1443. end
  1444. if prolactinlvl > 100: 'A few droplets of liquid come out of your nipples but it is not milk.'
  1445. breastcounter += 1
  1446. if pump_stop_brake = 1:
  1447. 'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
  1448. end
  1449. if prolactinlvl > 100:
  1450. if rand(0,10) > 9:
  1451. pumpinggrowth += 1
  1452. end
  1453. 'After finishing, your breasts feel weirdly engorged.'
  1454. end
  1455. if bcream_used = 1:
  1456. pcs_nips += rand(0,2)
  1457. bcream_used = 0
  1458. end
  1459. minut += pumptime
  1460. else
  1461. 'Your nipples feel too sore to use the pump right now.'
  1462. end
  1463. if milkedvolume > 0:
  1464. lact_engorgement = 0
  1465. lactatemess = 0
  1466. act 'Pour it into the sink':
  1467. *clr
  1468. cla
  1469. piits_i = 0
  1470. :piits_emptyloop
  1471. if piits_i < (bpbottlem + bpbottles):
  1472. if mbarrmage[piits_i] = (pump_timestamp):mbarrfill[piits_i] = 0
  1473. piits_i += 1
  1474. jump 'piits_emptyloop'
  1475. end
  1476. if milkedvolume > 1500 and bpbottles <= 1:
  1477. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  1478. '<center>You pour 150ml of your breast milk into the sink and clean up your breastpump.</center>'
  1479. else
  1480. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  1481. '<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
  1482. end
  1483. minute += ((milkedvolume/1500) + 3)
  1484. act 'Finish':
  1485. milkedvolume = 0
  1486. menu_off = 0 & gt $loc, $metka
  1487. end
  1488. end
  1489. act 'Leave it here':
  1490. *clr
  1491. cla
  1492. 'You screw the cap onto the bottle and put it away.'
  1493. act 'Finish':
  1494. milkedvolume = 0
  1495. menu_off = 0 & gt $loc, $metka
  1496. end
  1497. end
  1498. if pcs_hydra < 100:
  1499. act 'Drink it':
  1500. *clr
  1501. cla
  1502. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  1503. '<center>You drink your own breast milk and clean up your breastpump.</center>'
  1504. '<center>The milk is still warm from your breasts.</center>'
  1505. di_i = 0
  1506. :di_emptyloop
  1507. if di_i < (bpbottlem + bpbottles):
  1508. if mbarrmage[di_i] = (pump_timestamp):mbarrfill[di_i] = 0
  1509. di_i += 1
  1510. jump 'di_emptyloop'
  1511. end
  1512. pcs_health += milkedvolume/400
  1513. pcs_energy += milkedvolume/500
  1514. if pcs_hydra >= 100:
  1515. pcs_hydra += milkedvolume/200
  1516. else
  1517. pcs_hydra += milkedvolume/100
  1518. end
  1519. minute += ((milkedvolume/1000) + 3)
  1520. act 'Finish':
  1521. milkedvolume = 0
  1522. menu_off = 0 & gt $loc, $metka
  1523. end
  1524. end
  1525. end
  1526. else
  1527. act 'Finish':menu_off = 0 & gt $loc, $metka
  1528. end
  1529. end
  1530. !! engorged_morning
  1531. !! use href="exec:gt ''lact_lib'',''engorged_morning''"
  1532. if $ARGS[0] = 'engorged_morning':
  1533. minut += 5
  1534. '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
  1535. '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.'
  1536. act 'Finish':menu_off = 0 & gt $loc, $metka
  1537. end
  1538. if $ARGS[0] = 'hand_milking':
  1539. *clr
  1540. cla
  1541. if lactate > 0 and pain['nipples'] <= 60:
  1542. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple.'
  1543. 'Several small streams of your milk start to jet out of your nipples.'
  1544. 'You go on for <<pumptime>> minutes until you stop. You clean yourself up and everything else that got wet from your milk.<br>'
  1545. '<center><video autoplay loop src="images/pc/body/tits/bathroom_milking.mp4"></video></center>'
  1546. milkedvolume = func('lact_lib','$get_breastmilk', 5, pumptime)
  1547. minut += pumptime
  1548. elseif lactate > 0 and pain['nipples'] < 60 and pcs_knowsaboutlactation <= 0:
  1549. '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
  1550. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  1551. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples.<br>Using the breast pump regularily probably made you lactate!'
  1552. lactateinduced = 1
  1553. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  1554. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples. Regularily massaging your breasts probably made you lactate!<br>'
  1555. lactateinduced = 1
  1556. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  1557. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. After a few squeezes white liquid suddenly starts flowing from your nipples. All that pumping and massaging your breasts probably caused you to lactate!<br>'
  1558. lactateinduced = 1
  1559. else
  1560. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple. To your surprise white liquid suddenly starts flowing from your nipples. You started lactating!<br>'
  1561. if thinkpreg = 1 or knowpreg = 1:
  1562. 'This is probably happening because you are pregnant.'
  1563. else
  1564. 'You should have this checked out by a doctor. You could be pregnant.'
  1565. end
  1566. lactateinduced = 0
  1567. end
  1568. pcs_usedbreastpumponherself = 0
  1569. pcs_massagedherbreasts = 0
  1570. pcs_knowsaboutlactation = 1
  1571. elseif lactate = 0 and pain['nipples'] <= 60:
  1572. pcs_massagedherbreasts += 0
  1573. 'You start to massage your breasts, your fingers gliding down your breasts skin, over the areolas. Your fingers pressing down into the areola, stretching it forwards to your nipple,'
  1574. 'kneading your breasts as well.'
  1575. '<center><video autoplay loop src="images/pc/body/tits/bathroom_massage.mp4"></video></center>'
  1576. milkedvolume = func('lact_lib','$get_breastmilk', 5, pumptime)
  1577. minut += pumptime
  1578. else
  1579. 'Your nipples are too sore to hand massage right now.'
  1580. end
  1581. act 'Finish':menu_off = 0 & gt $loc, $metka
  1582. end
  1583. --- lact_lib ---------------------------------