1
0

lact_bp.qsrc 50 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189
  1. # lact_bp
  2. !! ---- old variables ---------------------------------------------------------
  3. !! - These Variables still need to be replaced/removed or substituted. -
  4. !! bottlecounter
  5. !! bp_unbox
  6. !! bp_useable_mbottle
  7. !! bp_useable_sbottle
  8. !! bp_used_mbottle
  9. !! bp_used_sbottle
  10. !! bpbottlem
  11. !! bpbottles
  12. !! breastcounter
  13. !! breastpump
  14. !! breastpumped
  15. !! di_i
  16. !! emb_i
  17. !! energytomilkpump
  18. !! lactaterate_use
  19. !! max_nip_flow_rate
  20. !! max_sucktion_demand
  21. !! mbarrcool
  22. !! mbarrfill
  23. !! mbarrloca
  24. !! mbarrmage
  25. !! mbarrtype
  26. !! milk_demand
  27. !! nip_flow
  28. !! nip_flow_mod
  29. !! nipple_cream
  30. !! pcs_ask_mward_help
  31. !! pcs_know_mward
  32. !! pcs_knows_electric_pump
  33. !! pcs_massagedherbreasts
  34. !! pcs_usedbreastpumponherself
  35. !! piits_i
  36. !! pump_bottletype
  37. !! pump_stop_brake
  38. !! pump_timestamp
  39. !! pumpinggrowth
  40. !! pumptime
  41. !! pumptime_left
  42. !! pumptype
  43. !! rbc_index
  44. !! reg_bottlem_count
  45. !! reg_bottles_count
  46. !! soreness_mod
  47. !! suck_flow_rate
  48. !! suck_until_pain
  49. !! temp_breastsize
  50. !! temp_lactaterate
  51. !! temp_timestamp
  52. !! temp_var
  53. !! temp_var2
  54. !! ts_i
  55. !! umbc_i
  56. !! usbc_i
  57. !! vmb_i
  58. !! bpID_arr['index'] : breast pump id. Starts at 0, with every purchased breast pump the id will be added
  59. !! bpType_arr['index'] : breast pump type. 0 = 'manual_single', 1 = 'electric_single', 2 ='electric_dual'
  60. !! bpLocID_arr['index'] : 0 = lost, 1 = in svetas hand... same as bottle locations
  61. !! bpbID1_arr['index'] : index of milk bottle array.
  62. !! bpbID2_arr['index'] : only used for dual pump, index for milk bottle array. cannot be the same like breastpump_arr['bottle_id_1'].
  63. !! when ever sveta buys a new breastpump, it has to be added to the breast pump array.
  64. if $ARGS[0] = 'build_bp':
  65. !! ARGS[1] = type
  66. !! ARGS[2] = location_id
  67. !! usage func('lact_bp', 'build_bp', 'breast pump type', 'location id')
  68. !! returns the new bottle ID
  69. bp_i = arrsize('bpID_arr')
  70. bpID_arr[bp_i] = bp_i
  71. bpType_arr[bp_i] = ARGS[1]
  72. bpLocID_arr[bp_i] = ARGS[2]
  73. bpbID1_arr[bp_i] = ''
  74. bpbID2_arr[bp_i] = ''
  75. result = bp_i
  76. end
  77. !! view milk bottles function
  78. if $ARGS[0] = 'view_milk_bottles':
  79. !! func('lact_bp', 'view_milk_bottles', location_id)
  80. !! use gs 'lact_bp','view_milk_bottles', 2
  81. !! locations
  82. !! 0 = lost
  83. !! 1 = in svetas hand
  84. !! 2 = in svetas bag
  85. !! 3 = parent bathroom
  86. !! 4 = parent fridge
  87. !! 5 = Resident Area Appartment Bathroom
  88. !! 6 = Resident Area Appartment Fridge
  89. !! 7 = Grandparents Bathroom
  90. !! 8 = Villa Bathroom
  91. !! 9 = Villa Fridge
  92. !! 10 = Shared Apartment Bathroom
  93. !! 11 = Shared Apartment Fridge
  94. !! Locations are not used yet but are implemented. I will add this on another day.
  95. !! milk bottle array indices
  96. !! mbarrtype: Size of milk bottle. Normal bottles are 150ml and large bottles are 250ml. Values are ml*10
  97. !! mbarrfill: Filled milk volume in the bottle. Values are in ml*10 and can''t surpass mbarrtype
  98. !! mbarrmage: timestamp the milk was pumped.
  99. !! mbarrcool: Is the milk cooled? 0 = no, 1 = normal cooler, 2 = deep freezer
  100. !! $mbarrstat: State of the milk: fresh, normal, old, rancid
  101. !! $mbarrtemp: Temperature of the milk: hot, warm, normal, cold, frozen
  102. !! mbarrloca: Location of the bottle.
  103. *clr
  104. cla
  105. !! Checking for unregistered bottles.
  106. gs 'lact_bp', 'reg_bottle_count'
  107. 'You check the bottles that you store here.<br>'
  108. temp_var = (bpbottlem + bpbottles) - 1
  109. vmb_i = 0
  110. milkedvolume = 0
  111. :vmbloop
  112. if vmb_i <= temp_var:
  113. if mbarrloca[vmb_i] = ARGS[1]:
  114. gs 'lact_bp', 'update_mbottle', vmb_i
  115. if mbarrfill[vmb_i] <=0:
  116. mbarrfill[vmb_i] = 0
  117. '<br><<vmb_i + 1>>. - An empty <<mbarrtype[vmb_i]/10>>ml bottle. You can use it to store your breast milk.'
  118. else
  119. '<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>'
  120. milkedvolume += mbarrfill[vmb_i]
  121. end
  122. end
  123. vmb_i += 1
  124. jump 'vmbloop'
  125. end
  126. if milkedvolume > 0:
  127. '<br><a href="exec:gt''lact_bp'',''empty_milk_bottles''">Pour the milk into the sink</a>'
  128. end
  129. act 'Back':gt 'lact_bp', 'bp_milking'
  130. end
  131. !! empty bottle function
  132. if $ARGS[0] = 'empty_milk_bottles':
  133. !! use gt 'lact_bp', 'empty_milk_bottles'
  134. *clr
  135. cla
  136. temp_var = (bpbottlem + bpbottles) - 1
  137. emb_i = 0
  138. :emb_loop
  139. if emb_i <= temp_var:
  140. mbarrfill[emb_i] = 0
  141. mbarrmage[emb_i] = 0
  142. mbarrcool[emb_i] = 0
  143. $mbarrstat[emb_i] = 'none'
  144. $mbarrtemp[emb_i] = 'none'
  145. emb_i += 1
  146. jump 'emb_loop'
  147. end
  148. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  149. '<center>You pour all of your collected breast milk into the sink and clean up the bottles.</center>'
  150. minut += temp_var
  151. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  152. end
  153. !! fill a bottle function
  154. if $ARGS[0] = 'fill_milk_bottle':
  155. !! use func('lact_bp','fill_milk_bottle',bottle_id,milk_amount)
  156. !! example func('lact_bp','fill_milk_bottle',3,300)
  157. if ARGS[2] > mbarrtype[ARGS[1]]:
  158. 'ERROR - More milk going into bottle than the bottle can hold.'
  159. else
  160. mbarrfill[ARGS[1]] = ARGS[2]
  161. mbarrmage[ARGS[1]] = func('lact_bp','time_stamp')
  162. mbarrcool[ARGS[1]] = 0
  163. $mbarrstat[ARGS[1]] = 'fresh'
  164. $mbarrtemp[ARGS[1]] = 'warm'
  165. end
  166. end
  167. !! Time Stamp function for milk bottles.
  168. if $ARGS[0] = 'time_stamp':
  169. !! use func('lact_bp','time_stamp')
  170. !! 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.
  171. !! Used to check breast milk age in bottles. Can be used for other functions if needed.
  172. temp_timestamp = 0
  173. temp_timestamp += year * 365 * 24 * 60
  174. ts_i = 1
  175. if month > 1:
  176. :ts_loop
  177. if (month - 1) => ts_i:
  178. 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:
  179. temp_timestamp += 44640
  180. elseif ts_i = 4 or ts_i = 6 or ts_i = 9 or ts_i = 11:
  181. temp_timestamp += 43200
  182. elseif ts_i = 2:
  183. temp_timestamp += 40320
  184. if (year mod 4) = 0 and (year mod 100) ! 0 or (year mod 400) = 0:
  185. temp_timestamp += 1440
  186. end
  187. end
  188. ts_i += 1
  189. jump 'ts_loop'
  190. end
  191. end
  192. temp_timestamp += (day - 1) * 24 * 60
  193. temp_timestamp += hour * 60
  194. temp_timestamp += minut
  195. result = temp_timestamp
  196. end
  197. !! Update Milk bottle function
  198. if $ARGS[0] = 'update_mbottle':
  199. !! func('lact_bp', 'update_mbottle', bottle_id)
  200. !! use result = func('lact_bp','update_mbottle', '0')
  201. !! this function is used to update milk bottles whenever the milk is pumped or sveta checkes the bottles in her stash.
  202. !! 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.
  203. !! Insulated cooler. Freshly expressed breast milk can be stored in an insulated cooler with ice packs for up to one day.
  204. !! 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.
  205. !! 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.
  206. !! milk bottle array indices
  207. !! mbarrtype: Size of milk bottle. Normal bottles are 150ml and large bottles are 250ml. Values are ml*10
  208. !! mbarrfill: Filled milk volume in the bottle. Values are in ml*10 and can''t surpass mbarrtype
  209. !! mbarrmage: timestamp the milk was pumped.
  210. !! mbarrcool: Is the milk cooled? 0 = no, 1 = normal cooler, 2 = deep freezer
  211. !! $mbarrstat: State of the milk: fresh, normal, old, rancid
  212. !! $mbarrtemp: Temperature of the milk: hot, warm, normal temparture, cold, frozen
  213. !! mbarrloca: Location of the bottle.
  214. if mbarrfill[ARGS[1]] > 0:
  215. if mbarrfill[ARGS[1]] > mbarrtype[ARGS[1]]: mbarrfill[ARGS[1]] = mbarrtype[ARGS[1]]
  216. if mbarrmage[ARGS[1]] <= 0: mbarrmage[ARGS[1]] = func('lact_bp','time_stamp')
  217. if mbarrcool[ARGS[1]] = 0:
  218. if (mbarrmage[ARGS[1]] + 60) >= func('lact_bp','time_stamp'):
  219. $mbarrtemp[ARGS[1]] = 'warm'
  220. $mbarrstat[ARGS[1]] = 'fresh'
  221. elseif (mbarrmage[ARGS[1]] + 60) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 360) >= func('lact_bp','time_stamp'):
  222. $mbarrtemp[ARGS[1]] = 'normal temparture'
  223. $mbarrstat[ARGS[1]] = 'normal'
  224. elseif (mbarrmage[ARGS[1]] + 360) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 1440) >= func('lact_bp','time_stamp'):
  225. $mbarrtemp[ARGS[1]] = 'normal temparture'
  226. $mbarrstat[ARGS[1]] = 'old'
  227. else
  228. $mbarrtemp[ARGS[1]] = 'normal temparture'
  229. $mbarrstat[ARGS[1]] = 'rancid'
  230. end
  231. elseif mbarrcool[ARGS[1]] = 1:
  232. if (mbarrmage[ARGS[1]] + 1440) >= func('lact_bp','time_stamp'):
  233. $mbarrtemp[ARGS[1]] = 'cold'
  234. $mbarrstat[ARGS[1]] = 'fresh'
  235. elseif (mbarrmage[ARGS[1]] + 1440) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 4320) >= func('lact_bp','time_stamp'):
  236. $mbarrtemp[ARGS[1]] = 'cold'
  237. $mbarrstat[ARGS[1]] = 'normal'
  238. elseif (mbarrmage[ARGS[1]] + 4320) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 7200) >= func('lact_bp','time_stamp'):
  239. $mbarrtemp[ARGS[1]] = 'cold'
  240. $mbarrstat[ARGS[1]] = 'old'
  241. else
  242. $mbarrtemp[ARGS[1]] = 'cold'
  243. $mbarrstat[ARGS[1]] = 'rancid'
  244. end
  245. elseif mbarrcool[ARGS[1]] = 2:
  246. if (mbarrmage[ARGS[1]] + 10080) >= func('lact_bp','time_stamp'):
  247. $mbarrtemp[ARGS[1]] = 'frozen'
  248. $mbarrstat[ARGS[1]] = 'fresh'
  249. elseif (mbarrmage[ARGS[1]] + 10080) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 262080) >= func('lact_bp','time_stamp'):
  250. $mbarrtemp[ARGS[1]] = 'frozen'
  251. $mbarrstat[ARGS[1]] = 'normal'
  252. elseif (mbarrmage[ARGS[1]] + 262080) < func('lact_bp','time_stamp') and (mbarrmage[ARGS[1]] + 525600) >= func('lact_bp','time_stamp'):
  253. $mbarrtemp[ARGS[1]] = 'frozen'
  254. $mbarrstat[ARGS[1]] = 'old'
  255. else
  256. $mbarrtemp[ARGS[1]] = 'frozen'
  257. $mbarrstat[ARGS[1]] = 'rancid'
  258. end
  259. else
  260. $mbarrtemp[ARGS[1]] = 'warm'
  261. $mbarrstat[ARGS[1]] = 'fresh'
  262. end
  263. else
  264. $mbarrtemp[ARGS[1]] = 'none'
  265. $mbarrstat[ARGS[1]] = 'none'
  266. mbarrmage[ARGS[1]] = 0
  267. mbarrfill[ARGS[1]] = 0
  268. end
  269. end
  270. if $ARGS[0] = 'useable_sbottle_count':
  271. !! use result = func('lact_bp','useable_sbottle_count',)
  272. !! function will give you the amount of 150ml bottles that sveta can use at the moment.
  273. usbc_i = 0
  274. bottlecounter = 0
  275. if reg_bottles_count > 0:
  276. :usbc_loop
  277. if usbc_i <= (reg_bottlem_count + reg_bottles_count):
  278. if mbarrtype[usbc_i] = 1500 and mbarrfill[usbc_i] = 0:
  279. bottlecounter += 1
  280. end
  281. usbc_i += 1
  282. jump 'usbc_loop'
  283. end
  284. end
  285. result = bottlecounter
  286. end
  287. if $ARGS[0] = 'useable_mbottle_count':
  288. !! use result = func('lact_bp','useable_mbottle_count')
  289. !! function will give you the amount of 250ml bottles that sveta can use at the moment.
  290. umbc_i = 0
  291. bottlecounter = 0
  292. if reg_bottlem_count > 0:
  293. :umbc_loop
  294. if umbc_i <= (reg_bottlem_count + reg_bottles_count):
  295. if mbarrtype[umbc_i] = 2500 and mbarrfill[umbc_i] = 0:
  296. bottlecounter += 1
  297. end
  298. umbc_i += 1
  299. jump 'umbc_loop'
  300. end
  301. end
  302. result = bottlecounter
  303. end
  304. !! bp_milking - breast pump milking
  305. !! use href="exec:gt ''lact_bp'',''bp_milking''" or gt 'lact_bp','bp_milking'
  306. if $ARGS[0] = 'bp_milking':
  307. pumptime = 0
  308. pumptype = 0
  309. gs 'lact_bp', 'reg_bottle_count'
  310. if pump_bottletype < 1500: pump_bottletype = 1500
  311. if $location_type ! 'bathroom' and pcs_inhib < 30:
  312. 'You aren''t confident enough to do that here.'
  313. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  314. elseif bp_unbox <= 0:
  315. 'You need to unbox your breast pump first.'
  316. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  317. elseif bp_unbox = 1 and ($location_type = 'bathroom' or $location_type = 'private'):
  318. gt 'lact_bp', 'bp_unbox_event'
  319. else
  320. *clr
  321. cla
  322. '<center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  323. 'How long do you want to pump your breasts with the manual breast pump?'
  324. if func('lact_bp','useable_sbottle_count') > 0 and func('lact_bp','useable_mbottle_count') > 0:
  325. if func('lact_bp','useable_sbottle_count') > 0 and pump_bottletype = 1500:
  326. 'Current bottle size in use: &gt;150ml | <a href="exec:pump_bottletype = 2500 & gt ''lact_bp'', ''bp_milking''">250ml</a>'
  327. elseif func('lact_bp','useable_mbottle_count') > 0:
  328. pump_bottletype = 2500
  329. 'Current bottle size in use <a href="exec:pump_bottletype = 1500 & gt ''lact_bp'', ''bp_milking''">150ml</a> | &gt;250ml'
  330. else
  331. 'this should not end up here - got to tfg forums.'
  332. end
  333. elseif func('lact_bp','useable_sbottle_count') > 0 and func('lact_bp','useable_mbottle_count') <= 0:
  334. pump_bottletype = 1500
  335. 'You currently use a 150ml bottle on your breast pump.'
  336. elseif func('lact_bp','useable_sbottle_count') <= 0 and func('lact_bp','useable_mbottle_count') > 0:
  337. pump_bottletype = 2500
  338. 'You currently use a 250ml bottle on your breast pump.'
  339. else
  340. 'You have no bottles left to use. Please empty bottles or buy new ones in the pharmacy.'
  341. end
  342. if (bpbottlem + bpbottles) = 1:
  343. 'You have one bottle. You can check it <a href="exec:gs ''lact_bp'',''view_milk_bottles'', 1">here</a>'
  344. elseif (bpbottlem + bpbottles) > 1:
  345. 'You have <<bpbottlem + bpbottles>> bottles. You can check them <a href="exec:gs ''lact_bp'',''view_milk_bottles'', 1">here</a>'
  346. end
  347. if lactation['breastmv'] > 0 and (func('lact_bp','useable_sbottle_count') > 0 or func('lact_bp','useable_mbottle_count') > 0):
  348. pumptime = (func('lact_lib','$get_breastmilk_time', 3, (lactation['breastmv']/1000)))
  349. if pumptime > 5:
  350. pumptime -= 2
  351. end
  352. if pumptime > 60:
  353. act 'Pump until breasts are empty':
  354. *clr
  355. cla
  356. minut += 2
  357. '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.'
  358. 'Getting relieve for your breasts with the manual breast pump will probably take at least <<pumptime>> minutes.'
  359. if pcs_know_mward <= 0:
  360. 'You consider visiting a hospital to get help or buying a better breast pump.'
  361. pcs_ask_mward_help = 1
  362. pcs_knows_electric_pump = 1
  363. end
  364. 'Do you want to continue?'
  365. act 'Don''t pump':gt $loc, $loc_arg
  366. act 'Continue':
  367. gt 'lact_bp', 'milking'
  368. end
  369. end
  370. elseif pumptime <= 0:
  371. act 'Pump until breasts are empty':
  372. *clr
  373. cla
  374. minut += 2
  375. 'As you prepare for pumping you weight your breasts in your hands. Your breasts feel really empty. There is no need to pump now.'
  376. act 'Don''t pump':gt $loc, $loc_arg
  377. act 'back':gt 'lact_bp', 'bp_milking'
  378. end
  379. else
  380. act 'Pump until breasts are empty':
  381. pumptime = func('lact_lib','$get_breastmilk_time', 3, (lactation['breastmv']/1000))
  382. if pumptime > 5:
  383. pumptime -= 2
  384. end
  385. gt 'lact_bp', 'milking'
  386. end
  387. end
  388. end
  389. if (func('lact_bp','useable_sbottle_count') > 0 or func('lact_bp','useable_mbottle_count') > 0):
  390. act '15 Minutes':
  391. pumptime = 15
  392. gt 'lact_bp', 'milking'
  393. end
  394. act '30 Minutes':
  395. pumptime = 30
  396. gt 'lact_bp', 'milking'
  397. end
  398. act 'Custom':
  399. pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
  400. if pumptime <= 0 or pumptime > 60:
  401. minut += 2
  402. act 'Don''t pump':menu_off = 0 & gt $loc, $loc_arg
  403. act 'back':gt 'lact_bp', 'bp_milking'
  404. elseif pumptime > 0 and pumptime <= 60:
  405. gt 'lact_bp', 'milking'
  406. end
  407. end
  408. end
  409. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  410. act 'Manually milk your breasts': gt 'lact_bp','man_milking'
  411. else
  412. act 'Massage your breasts': gt 'lact_bp','man_milking'
  413. end
  414. act 'Don''t pump':menu_off = 0 & gt $loc, $loc_arg
  415. end
  416. end
  417. !! man_milking - manual (with hands) milking
  418. !! use href="exec:gt ''lact_bp'',''man_milking''"
  419. !! for manual milk expression in bathrooms etc. please use this function.
  420. if $ARGS[0] = 'massage':
  421. if breastcounter <= 0:
  422. temp_var = 50
  423. else
  424. temp_var = (50/breastcounter)
  425. end
  426. if (($location_type ! 'bathroom' and pcs_inhib >= 30) or $location_type = 'bathroom' and breastpump = 0) and pcs_horny >= temp_var:
  427. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  428. act 'Milk your breasts': gt 'lact_bp','man_milking'
  429. else
  430. act 'Massage your breasts': gt 'lact_bp','man_milking'
  431. end
  432. end
  433. end
  434. if $ARGS[0] = 'man_milking':
  435. pumptime = 0
  436. *clr
  437. cla
  438. gs 'lact_bp', 'reg_bottle_count'
  439. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  440. 'How long do you want to milk your breasts?'
  441. else
  442. 'How long do you want to massage your breasts?'
  443. end
  444. if lactation['breastmv'] > 0:
  445. pumptime = (func('lact_lib','$get_breastmilk_time', 5, (lactation['breastmv']/1000)))
  446. if pumptime > 60:
  447. act 'Express until breasts are empty':
  448. *clr
  449. cla
  450. minut += 2
  451. '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.'
  452. 'Getting relieve for your breasts with manual expression will probably take at least <<pumptime>> minutes.'
  453. if breastpump <= 0 and bp_unbox <= 1:
  454. 'You should consider buying a breast pump'
  455. elseif breastpump = 1 and bp_unbox <= 1 and pain['nipples'] <= 60:
  456. 'You should consider using your breast pump.'
  457. else
  458. 'You should consider the use of a breast pump.'
  459. end
  460. 'Do you want to continue?'
  461. act 'Don''t express':menu_off = 0 & gt $loc, $loc_arg
  462. act 'Express your milk':
  463. gt 'lact_bp', 'hand_milking'
  464. end
  465. end
  466. elseif pumptime <= 0:
  467. act 'Express milk until breasts are empty':
  468. *clr
  469. cla
  470. minut += 2
  471. 'As you prepare yourself you feel your breasts in your hands. Your breasts feel really empty. There is no need to express now.'
  472. act 'Don''t express milk':menu_off = 0 & gt $loc, $loc_arg
  473. act 'back':gt 'lact_bp', 'man_milking'
  474. end
  475. else
  476. act 'Express until breasts are empty':
  477. pumptime = func('lact_lib','$get_breastmilk_time', 5, (lactation['breastmv']/1000))
  478. gt 'lact_bp', 'hand_milking'
  479. end
  480. end
  481. end
  482. act '5 Minutes':
  483. pumptime = 5
  484. gt 'lact_bp', 'hand_milking'
  485. end
  486. act '10 Minutes':
  487. pumptime = 10
  488. gt 'lact_bp', 'hand_milking'
  489. end
  490. act 'Custom':
  491. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  492. pumptime = input ("How long do you plan to milk your breasts? (Not more than 60 minutes)")
  493. else
  494. pumptime = input ("How long do you plan to massage your breasts? (Not more than 60 minutes)")
  495. end
  496. if pumptime <= 0 or pumptime > 60:
  497. minut += 2
  498. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  499. act 'Don''t express':gt $loc, $loc_arg
  500. else
  501. act 'Don''t massage':gt $loc, $loc_arg
  502. end
  503. act 'back':gt 'lact_bp', 'man_milking'
  504. elseif pumptime > 0 and pumptime <= 60:
  505. gt 'lact_bp', 'hand_milking'
  506. end
  507. end
  508. if lactation['active'] > 0 and lactation['pc_aware'] > 0:
  509. act 'Don''t express':menu_off = 0 & gt $loc, $loc_arg
  510. else
  511. act 'Don''t massage':menu_off = 0 & gt $loc, $loc_arg
  512. end
  513. end
  514. if $ARGS[0] = 'bp_unbox_event':
  515. if bp_unbox <= 0:
  516. *clr
  517. cla
  518. minut += 5
  519. if $location_type = 'bathroom':
  520. 'You push down the toilet seat to sit down and slowly start to unbox your newly acquired breast pump.'
  521. elseif $location_type = 'private' and $locclass = 'bedr':
  522. 'You sit down on your bed and slowly start to unbox your newly acquired breast pump.'
  523. elseif $location_type = 'private':
  524. 'You sit down and slowly start to unbox your newly acquired breast pump.'
  525. end
  526. if kid <= 0 and preg <= 0 and pregtimes <= 0 and pregchem <= 0 and bp_unbox <= 0:
  527. '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.'
  528. if lactation['active'] <= 0:
  529. 'Your breasts haven''t got any milk in them too, so it seems this pump is a bit useless.'
  530. else
  531. 'At least it can help to get the milk out of your breasts.'
  532. end
  533. end
  534. if $location_type = 'private':
  535. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing.jpg"></center>'
  536. elseif $location_type = 'bathroom':
  537. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing_bath.jpg"></center>'
  538. else
  539. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_unboxing_bath.jpg"></center>'
  540. end
  541. !! creating first 150ml bottle
  542. bpbottles += 1
  543. gs 'lact_bp', 'reg_bottle_count'
  544. !! Actions
  545. if (pcs_inhib > 40 and $location_type = 'private') or $location_type = 'bathroom':
  546. act 'Try out how it works':
  547. *clr
  548. cla
  549. 'You pull up your top to release your breasts'
  550. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center><br>'
  551. 'Your fingers glide around the suction cup of the breast pump, while your other hand holds the pump.'
  552. 'Making sure that no one is around, you lift the breast pump to your left breast. The cold cone feels uncomfortable on your nipple.'
  553. milkedvolume = (func('lact_lib','$get_breastmilk', 3, 1))/100
  554. minut += 1
  555. bp_unbox = 2
  556. if lactation['active'] > 0 and milkedvolume > 0:
  557. if milkedvolume <= 50:
  558. '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 suction on your nipple goes away and the nipple retracts.'
  559. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  560. '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.'
  561. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  562. elseif milkedvolume > 50 and milkedvolume <= 1500:
  563. '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 suction on your nipple goes away and the nipple retracts.'
  564. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  565. 'You go on for a minute and then detach the pump. You collected <<milkedvolume/10>>ml of your breast milk.'
  566. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_half.jpg"></center>'
  567. else
  568. '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 suction on your nipple goes away and the nipple retracts.'
  569. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  570. '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.'
  571. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_full.jpg"></center>'
  572. end
  573. 'You nod at the breast pump, thinking it will come in handy.'
  574. elseif lactation['active'] > 0 and milkedvolume <= 0:
  575. '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 suction on your nipple goes away and the nipple retracts.'
  576. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it.'
  577. '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.'
  578. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  579. else
  580. '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 suction on your nipple goes away and the nipple retracts.'
  581. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it.'
  582. 'You go on for a minute and then detach the pump. As expected no milk was collected in the bottle.'
  583. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  584. end
  585. if lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
  586. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  587. 'You are surprised to see that you are lactating!'
  588. lactation['induced'] = 1
  589. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  590. 'Regularily massaging your breasts probably made you lactate!<br>'
  591. lactation['induced'] = 1
  592. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  593. 'All that pumping and massaging your breasts probably caused you to lactate!<br>'
  594. lactation['induced'] = 1
  595. else
  596. 'To your surprise it is milk. You started lactating!<br>'
  597. if thinkpreg = 1 or knowpreg = 1:
  598. 'This is probably happening because you are pregnant.'
  599. else
  600. 'You should have this checked out by a doctor. You could be pregnant.'
  601. end
  602. lactation['induced'] = 0
  603. end
  604. lactation['pc_aware'] = 1
  605. end
  606. act 'continue':
  607. *clr
  608. cla
  609. if milkedvolume > 50 and $location_type = 'private':
  610. '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.'
  611. 'It is your milk, so it should be okay to drink it.'
  612. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  613. '<center>The milk is still warm from your breasts.</center>'
  614. pcs_health += milkedvolume/400
  615. pcs_energy += milkedvolume/500
  616. if pcs_hydra >= 100:
  617. pcs_hydra += milkedvolume/200
  618. else
  619. pcs_hydra += milkedvolume/100
  620. end
  621. minut += ((milkedvolume/1000) + 3)
  622. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  623. else
  624. 'You clean up your pump and cover your breasts again.'
  625. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  626. end
  627. end
  628. bp_unbox = 2
  629. end
  630. end
  631. act 'Don''t try it here':
  632. *clr
  633. cla
  634. 'You look around you, not feeling to comfortable to use the breast pump here.'
  635. bp_unbox = 1
  636. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  637. end
  638. elseif bp_unbox = 1:
  639. if $location_type = 'private' and pcs_inhib < 40:
  640. 'You can''t do this here'
  641. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  642. else
  643. 'You pull up your top to release your breasts'
  644. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center><br>'
  645. 'Your fingers glide around the suction cup of the breast pump, while your other hand holds the pump.'
  646. 'Making sure that no one is around, you lift the breast pump to your left breast. The cold cone feels uncomfortable on your nipple.'
  647. milkedvolume = (func('lact_lib','$get_breastmilk', 3, 1))/100
  648. minut += 1
  649. bp_unbox = 2
  650. if lactation['active'] > 0 and milkedvolume > 0:
  651. if milkedvolume <= 50:
  652. '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 suction on your nipple goes away and the nipple retracts.'
  653. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  654. '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.'
  655. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  656. elseif milkedvolume > 50 and milkedvolume <= 1500:
  657. '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 suction on your nipple goes away and the nipple retracts.'
  658. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  659. 'You go on for a minute and then detach the pump. You collected <<milkedvolume/10>>ml of your breast milk.'
  660. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_half.jpg"></center>'
  661. else
  662. '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 suction on your nipple goes away and the nipple retracts.'
  663. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it. The pump starts to draw milk from your breast.'
  664. '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.'
  665. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_full.jpg"></center>'
  666. end
  667. 'You nod at the breast pump, thinking it will come in handy.'
  668. elseif lactation['active'] > 0 and milkedvolume <= 0:
  669. '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 suction on your nipple goes away and the nipple retracts.'
  670. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it.'
  671. '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.'
  672. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  673. else
  674. '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 suction on your nipple goes away and the nipple retracts.'
  675. 'With your hand you squeeze down again, your nipple sucked in again. You go on, and start to rhythmically squeeze it.'
  676. 'You go on for a minute and then detach the pump. As expected no milk was collected in the bottle.'
  677. '<br><center><img <<$set_imgh>> src="images/pc/body/tits/breast_pump.jpg"></center>'
  678. end
  679. act 'continue':
  680. *clr
  681. cla
  682. if milkedvolume > 50 and $location_type = 'private':
  683. '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.'
  684. 'It is your milk, so it should be okay to drink it.'
  685. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  686. '<center>The milk is still warm from your breasts.</center>'
  687. pcs_health += milkedvolume/400
  688. pcs_energy += milkedvolume/500
  689. if pcs_hydra >= 100:
  690. pcs_hydra += milkedvolume/200
  691. else
  692. pcs_hydra += milkedvolume/100
  693. end
  694. minut += ((milkedvolume/1000) + 3)
  695. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  696. else
  697. 'You clean up your pump and cover your breasts again.'
  698. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  699. end
  700. end
  701. end
  702. elseif bp_unbox >= 2:
  703. *clr
  704. cla
  705. 'You unboxed your breast pump already.'
  706. act 'Finish': menu_off = 0 & gt $loc, $loc_arg
  707. end
  708. end
  709. if $ARGS[0] = 'reg_bottle_count':
  710. if reg_bottles_count <= 0: reg_bottles_count = 0
  711. if reg_bottlem_count <= 0: reg_bottlem_count = 0
  712. if (reg_bottlem_count + reg_bottles_count) < (bpbottlem + bpbottles):
  713. :rbc_loop
  714. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  715. if (bpbottles - reg_bottles_count) > 0:
  716. reg_bottles_count += 1
  717. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  718. mbarrtype[rbc_index] = 1500
  719. mbarrfill[rbc_index] = 0
  720. mbarrmage[rbc_index] = 0
  721. mbarrcool[rbc_index] = 0
  722. $mbarrstat[rbc_index] = 'none'
  723. $mbarrtemp[rbc_index] = 'none'
  724. mbarrloca[rbc_index] = 1
  725. jump 'rbc_loop'
  726. end
  727. if (bpbottlem - reg_bottlem_count) > 0:
  728. reg_bottlem_count += 1
  729. rbc_index = (reg_bottlem_count + reg_bottles_count) - 1
  730. mbarrtype[rbc_index] = 2500
  731. mbarrfill[rbc_index] = 0
  732. mbarrmage[rbc_index] = 0
  733. mbarrcool[rbc_index] = 0
  734. $mbarrstat[rbc_index] = 'none'
  735. $mbarrtemp[rbc_index] = 'none'
  736. mbarrloca[rbc_index] = 1
  737. jump 'rbc_loop'
  738. end
  739. end
  740. end
  741. !! milking
  742. !! never use directly. Always use bp_milking, man_milking or sex_milking
  743. if $ARGS[0] = 'milking':
  744. gs 'lact_bp', 'reg_bottle_count'
  745. if lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] > 0:
  746. milkedvolume = (func('lact_lib','$get_breastmilk', 3, pumptime))/100
  747. !!act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  748. bp_used_mbottle = 0
  749. bp_used_sbottle = 0
  750. bp_useable_sbottle = func('lact_bp','useable_sbottle_count')
  751. bp_useable_mbottle = func('lact_bp','useable_mbottle_count')
  752. pump_timestamp = func('lact_bp','time_stamp')
  753. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
  754. if pumptime > 1:
  755. 'You attach the pump to your breast and start rhythmically squeezing the bulb for <<pumptime>> minutes.'
  756. else
  757. 'You attach the pump to your breast and start rhythmically squeezing the bulb for one minute.'
  758. end
  759. if milkedvolume > pump_bottletype and (bp_useable_sbottle*1500 + bp_useable_mbottle*2500) = pump_bottletype:
  760. 'During pumping you have to empty the collecting bottle as it filled up with your milk.'
  761. 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<pump_bottletype/10>>ml of your milk.'
  762. 'To collect all your pumped milk you should probably check if the pharmacy has additional bottles for your breast pump.'
  763. if (bp_useable_sbottle - bp_used_sbottle) > 0:
  764. bottlecounter = 0
  765. :sbottle_loneloop
  766. if bottlecounter < (bpbottlem + bpbottles) and milkedvolume > 1500:
  767. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  768. func('lact_bp','fill_milk_bottle',bottlecounter,1500)
  769. jump 'bottlefull_loopbreak'
  770. end
  771. bottlecounter += 1
  772. jump 'sbottle_loneloop'
  773. end
  774. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume > 2500:
  775. bottlecounter = 0
  776. :mbottle_loneloop
  777. if bottlecounter < (bpbottlem + bpbottles):
  778. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  779. func('lact_bp','fill_milk_bottle',bottlecounter,2500)
  780. jump 'bottlefull_loopbreak'
  781. end
  782. bottlecounter += 1
  783. jump 'mbottle_loneloop'
  784. end
  785. else
  786. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  787. 'first fork case'
  788. 'bp_used_mbottle: <<bp_used_mbottle>>'
  789. 'bp_used_sbottle: <<bp_used_sbottle>>'
  790. 'milkedvolume: <<milkedvolume>>'
  791. 'pump_bottletype: <<pump_bottletype>>'
  792. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  793. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  794. end
  795. :bottlefull_loopbreak
  796. elseif milkedvolume > pump_bottletype and (bp_useable_sbottle*1500 + bp_useable_mbottle*2500) > pump_bottletype:
  797. !! Checking which bottletype is used and filling those bottles up before the other type is used.
  798. :sbottleloop
  799. if pump_bottletype < 2500 and milkedvolume >= 1500 and bp_used_sbottle < bp_useable_sbottle:
  800. bp_used_sbottle += 1
  801. milkedvolume -= 1500
  802. bottlecounter = 0
  803. :sbottle_searchloop
  804. if bottlecounter < (bpbottlem + bpbottles):
  805. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  806. func('lact_bp','fill_milk_bottle',bottlecounter,1500)
  807. jump 'sbottle_searchloopbreak'
  808. end
  809. bottlecounter += 1
  810. jump 'sbottle_searchloop'
  811. end
  812. :sbottle_searchloopbreak
  813. jump 'sbottleloop'
  814. end
  815. :mbottleloop
  816. if pump_bottletype >= 2500 and milkedvolume >= 2500 and bp_used_mbottle < bp_useable_mbottle:
  817. bp_used_mbottle += 1
  818. milkedvolume -= 2500
  819. bottlecounter = 0
  820. :mbottle_searchloop
  821. if bottlecounter < (bpbottlem + bpbottles):
  822. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  823. func('lact_bp','fill_milk_bottle',bottlecounter,2500)
  824. jump 'mbottle_searchloopbreak'
  825. end
  826. bottlecounter += 1
  827. jump 'mbottle_searchloop'
  828. end
  829. :mbottle_searchloopbreak
  830. jump 'mbottleloop'
  831. end
  832. !! Checking for the milkedvolume and if there are bottles left. if yes - use these bottles
  833. if milkedvolume > 0 and (((bp_useable_mbottle - bp_used_mbottle) > 0) or ((bp_useable_sbottle - bp_used_sbottle) > 0)):
  834. :altfill01
  835. if pump_bottletype < 2500 and milkedvolume >= 2500 and bp_used_mbottle < bp_useable_mbottle:
  836. bp_used_mbottle += 1
  837. milkedvolume -= 2500
  838. bottlecounter = 0
  839. :sbottle_altsearchloop
  840. if bottlecounter < (bpbottlem + bpbottles):
  841. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  842. func('lact_bp','fill_milk_bottle',bottlecounter,2500)
  843. jump 'sbottle_altsearchloopbreak'
  844. end
  845. bottlecounter += 1
  846. jump 'sbottle_altsearchloop'
  847. end
  848. :sbottle_altsearchloopbreak
  849. jump 'altfill01'
  850. end
  851. :altfill02
  852. if pump_bottletype >= 2500 and milkedvolume >= 1500 and bp_used_sbottle < bp_useable_sbottle:
  853. bp_used_sbottle += 1
  854. milkedvolume -= 1500
  855. bottlecounter = 0
  856. :mbottle_altsearchloop
  857. if bottlecounter < (bpbottlem + bpbottles):
  858. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  859. func('lact_bp','fill_milk_bottle',bottlecounter,1500)
  860. jump 'mbottle_altsearchloopbreak'
  861. end
  862. bottlecounter += 1
  863. jump 'mbottle_altsearchloop'
  864. end
  865. :mbottle_altsearchloopbreak
  866. jump 'altfill02'
  867. end
  868. end
  869. !! by this point all bottles should have been used up. Everything else needs to end up in the drain.
  870. if milkedvolume > 0 and bp_useable_mbottle = bp_used_mbottle and bp_useable_sbottle = bp_used_sbottle:
  871. '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.'
  872. 'You had to pour <<milkedvolume/10>>ml of your breast milk into the sink.'
  873. milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500))
  874. elseif milkedvolume > 0 and milkedvolume < 1500 and (bp_useable_sbottle - bp_used_sbottle) > 0:
  875. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  876. elseif milkedvolume > 0 and milkedvolume < 2500 and milkedvolume > 1500 and (bp_useable_mbottle - bp_used_mbottle) > 0:
  877. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  878. else
  879. 'During pumping you have to switch the collecting bottle as it filled up with your milk.'
  880. end
  881. if bp_used_mbottle >= 1 or bp_used_sbottle >= 1:
  882. '<center><img <<$set_imgh>> src="images/pc/body/tits/bottles_full.jpg"></center>'
  883. if milkedvolume = ((bp_used_mbottle*2500) + (bp_used_sbottle*1500)):
  884. 'You pumped <<milkedvolume/10>>ml of milk from your breasts, collecting it in:'
  885. if bp_useable_sbottle = 1:
  886. 'One 150ml bottle'
  887. elseif bp_used_sbottle > 1:
  888. '<<bp_used_sbottle>> x 150ml bottles'
  889. end
  890. if bp_used_mbottle = 1:
  891. 'One 250ml bottle'
  892. elseif bp_used_mbottle > 1:
  893. '<<bp_used_mbottle>> x 250ml bottles'
  894. end
  895. else
  896. 'You pumped <<((bp_used_mbottle*2500)+(bp_used_sbottle*1500)+milkedvolume)/10>>ml of milk from your breasts collecting it in:'
  897. if bp_used_sbottle = 1:
  898. 'One 150ml bottle'
  899. elseif bp_used_sbottle > 1:
  900. '<<bp_used_sbottle>> x 150ml bottles'
  901. end
  902. if bp_used_mbottle = 1:
  903. 'One 250ml bottle'
  904. elseif bp_used_mbottle > 1:
  905. '<<bp_used_mbottle>> x 250ml bottles'
  906. end
  907. if (bp_useable_sbottle - bp_used_sbottle) > 0 and milkedvolume <= 1500:
  908. bottlecounter = 0
  909. :sbottle_restsearchloop
  910. if bottlecounter < (bpbottlem + bpbottles):
  911. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  912. func('lact_bp','fill_milk_bottle',bottlecounter,milkedvolume)
  913. jump 'sbottlefilled_break'
  914. end
  915. bottlecounter += 1
  916. jump 'sbottle_restsearchloop'
  917. end
  918. :sbottlefilled_break
  919. 'You also stored <<milkedvolume/10>>ml of breast milk in a 150ml bottle.'
  920. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume <= 2500:
  921. bottlecounter = 0
  922. :mbottle_restsearchloop
  923. if bottlecounter < (bpbottlem + bpbottles):
  924. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  925. func('lact_bp','fill_milk_bottle',bottlecounter,milkedvolume)
  926. jump 'mbottlefilled_break'
  927. end
  928. bottlecounter += 1
  929. jump 'mbottle_restsearchloop'
  930. end
  931. :mbottlefilled_break
  932. 'You also stored <<milkedvolume/10>>ml of breast milk in a 250ml bottle.'
  933. else
  934. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  935. 'second fork case'
  936. 'bp_used_mbottle: <<bp_used_mbottle>>'
  937. 'bp_used_sbottle: <<bp_used_sbottle>>'
  938. 'milkedvolume: <<milkedvolume>>'
  939. 'pump_bottletype: <<pump_bottletype>>'
  940. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  941. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  942. end
  943. milkedvolume += bp_used_mbottle*2500 + bp_used_sbottle*1500
  944. end
  945. else
  946. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  947. 'third fork case'
  948. 'bp_used_mbottle: <<bp_used_mbottle>>'
  949. 'bp_used_sbottle: <<bp_used_sbottle>>'
  950. 'milkedvolume: <<milkedvolume>>'
  951. 'pump_bottletype: <<pump_bottletype>>'
  952. 'bpbottles: <<bpbottles>>'
  953. 'bpbottlem: <<bpbottlem>>'
  954. end
  955. else
  956. 'You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
  957. if (bp_useable_sbottle - bp_used_sbottle) > 0 and milkedvolume <= 1500:
  958. bottlecounter = 0
  959. :single_sbottle_searchloop
  960. if bottlecounter < (bpbottlem + bpbottles):
  961. if mbarrtype[bottlecounter] = 1500 and mbarrfill[bottlecounter] = 0:
  962. func('lact_bp','fill_milk_bottle',bottlecounter,milkedvolume)
  963. jump 'single_sbottlefilled_break'
  964. end
  965. bottlecounter += 1
  966. jump 'single_sbottle_searchloop'
  967. end
  968. :single_sbottlefilled_break
  969. elseif (bp_useable_mbottle - bp_used_mbottle) > 0 and milkedvolume <= 2500:
  970. bottlecounter = 0
  971. :single_mbottle_searchloop
  972. if bottlecounter < (bpbottlem + bpbottles):
  973. if mbarrtype[bottlecounter] = 2500 and mbarrfill[bottlecounter] = 0:
  974. func('lact_bp','fill_milk_bottle',bottlecounter,milkedvolume)
  975. jump 'single_mbottlefilled_break'
  976. end
  977. bottlecounter += 1
  978. jump 'single_mbottle_searchloop'
  979. end
  980. :single_mbottlefilled_break
  981. else
  982. 'unhandled case - you shouldn''t end up here. Please report this in the bug section of Girl Life in the tfg-forums.'
  983. 'second fork case'
  984. 'bp_used_mbottle: <<bp_used_mbottle>>'
  985. 'bp_used_sbottle: <<bp_used_sbottle>>'
  986. 'milkedvolume: <<milkedvolume>>'
  987. 'pump_bottletype: <<pump_bottletype>>'
  988. 'bp_useable_sbottle: <<bp_useable_sbottle>>'
  989. 'bp_useable_mbottle: <<bp_useable_mbottle>>'
  990. end
  991. milkedvolume += bp_used_mbottle*2500 + bp_used_sbottle*1500
  992. end
  993. breastcounter += 1
  994. if energytomilkpump > 0 and pcs_energy = 0:
  995. '<br>During pumping you feel really hungry, producing breast milk seems to be more exhausting then thought.'
  996. energytomilkpump = 0
  997. elseif energytomilkpump > 0:
  998. '<br>You feel a bit thirsty after pumping.'
  999. energytomilkpump = 0
  1000. end
  1001. if bcream_used = 1:
  1002. pcs_nips += rand(0,2)
  1003. !! bcream_used = 0
  1004. end
  1005. minut += pumptime
  1006. elseif lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
  1007. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_milkdrops.jpg"></center>'
  1008. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  1009. 'As usual, you attach the pump, but after a few pumps white liquid suddenly starts flowing from your nipples.<br>Using the breast pump regularly probably made you lactate!'
  1010. lactation['induced'] = 1
  1011. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  1012. 'You attach the pump but after a few pumps white liquid suddenly comes from your nipples. Regularly massaging your breasts probably made you lactate!<br>'
  1013. lactation['induced'] = 1
  1014. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  1015. '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>'
  1016. lactation['induced'] = 1
  1017. else
  1018. 'You attach the pump and give it a few pumps. To your surprise white liquid suddenly comes from your nipples. You started lactating!<br>'
  1019. if thinkpreg = 1 or knowpreg = 1:
  1020. 'This is probably happening because you are pregnant.'
  1021. else
  1022. 'You should have this checked out by a doctor. You could be pregnant.'
  1023. end
  1024. lactation['induced'] = 0
  1025. end
  1026. pcs_usedbreastpumponherself = 0
  1027. pcs_massagedherbreasts = 0
  1028. lactation['pc_aware'] = 1
  1029. elseif lactation['active'] = 0 and pain['nipples'] < 60:
  1030. milkedvolume = (func('lact_lib','$get_breastmilk', 3, pumptime))/100
  1031. pcs_usedbreastpumponherself += 1
  1032. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
  1033. if breastcounter < 100:
  1034. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels uncomfortable on your nipples.'
  1035. elseif breastcounter >= 100 and breastcounter < 200:
  1036. 'You attach the pump to your nipples and start squeezing the bulb. You are used to the vacuum on your nipples.'
  1037. else
  1038. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
  1039. end
  1040. if lactation['prolactinlvl'] > 100: 'A few droplets of liquid come out of your nipples but it is not milk.'
  1041. breastcounter += 1
  1042. if pump_stop_brake = 1:
  1043. 'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
  1044. end
  1045. if lactation['prolactinlvl'] > 100:
  1046. 'After finishing, your breasts feel weirdly engorged.'
  1047. end
  1048. if bcream_used = 1:
  1049. pcs_nips += rand(0,2)
  1050. bcream_used = 0
  1051. end
  1052. minut += pumptime
  1053. else
  1054. 'Your nipples feel too sore to use the pump right now.'
  1055. end
  1056. if milkedvolume > 0:
  1057. lact_engorgement = 0
  1058. lactatemess = 0
  1059. act 'Pour it into the sink':
  1060. *clr
  1061. cla
  1062. piits_i = 0
  1063. :piits_emptyloop
  1064. if piits_i < (bpbottlem + bpbottles):
  1065. if mbarrmage[piits_i] = (pump_timestamp):mbarrfill[piits_i] = 0
  1066. piits_i += 1
  1067. jump 'piits_emptyloop'
  1068. end
  1069. if milkedvolume > 1500 and bpbottles <= 1:
  1070. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  1071. '<center>You pour 150ml of your breast milk into the sink and clean up your breast pump.</center>'
  1072. else
  1073. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
  1074. '<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breast pump.</center>'
  1075. end
  1076. minut += ((milkedvolume/1500) + 3)
  1077. act 'Finish':
  1078. milkedvolume = 0
  1079. menu_off = 0 & gt $loc, $loc_arg
  1080. end
  1081. end
  1082. act 'Leave it here':
  1083. *clr
  1084. cla
  1085. 'You screw the cap onto the bottle and put it away.'
  1086. act 'Finish':
  1087. milkedvolume = 0
  1088. menu_off = 0 & gt $loc, $loc_arg
  1089. end
  1090. end
  1091. if pcs_hydra < 100:
  1092. act 'Drink it':
  1093. *clr
  1094. cla
  1095. '<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
  1096. '<center>You drink your own breast milk and clean up your breast pump.</center>'
  1097. '<center>The milk is still warm from your breasts.</center>'
  1098. di_i = 0
  1099. :di_emptyloop
  1100. if di_i < (bpbottlem + bpbottles):
  1101. if mbarrmage[di_i] = (pump_timestamp):mbarrfill[di_i] = 0
  1102. di_i += 1
  1103. jump 'di_emptyloop'
  1104. end
  1105. pcs_health += milkedvolume/400
  1106. pcs_energy += milkedvolume/500
  1107. if pcs_hydra >= 100:
  1108. pcs_hydra += milkedvolume/200
  1109. else
  1110. pcs_hydra += milkedvolume/100
  1111. end
  1112. minut += ((milkedvolume/1000) + 3)
  1113. act 'Finish':
  1114. milkedvolume = 0
  1115. menu_off = 0 & gt $loc, $loc_arg
  1116. end
  1117. end
  1118. end
  1119. else
  1120. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1121. end
  1122. end
  1123. if $ARGS[0] = 'hand_milking':
  1124. *clr
  1125. cla
  1126. if lactation['active'] > 0 and pain['nipples'] <= 60 and lactation['pc_aware'] > 0:
  1127. '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.'
  1128. 'Several small streams of your milk start to jet out of your nipples.'
  1129. 'You go on for <<pumptime>> minutes until you stop. You clean yourself up and everything else that got wet from your milk.<br>'
  1130. '<center><video autoplay loop src="images/pc/body/tits/bathroom_milking.mp4"></video></center>'
  1131. milkedvolume = (func('lact_lib','$get_breastmilk', 5, pumptime))/1000
  1132. minut += pumptime
  1133. elseif lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
  1134. '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
  1135. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  1136. '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 regularly probably made you lactate!'
  1137. lactation['induced'] = 1
  1138. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  1139. '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. Regularly massaging your breasts probably made you lactate!<br>'
  1140. lactation['induced'] = 1
  1141. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  1142. '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>'
  1143. lactation['induced'] = 1
  1144. else
  1145. '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>'
  1146. if thinkpreg = 1 or knowpreg = 1:
  1147. 'This is probably happening because you are pregnant.'
  1148. else
  1149. 'You should have this checked out by a doctor. You could be pregnant.'
  1150. end
  1151. lactation['induced'] = 0
  1152. end
  1153. pcs_usedbreastpumponherself = 0
  1154. pcs_massagedherbreasts = 0
  1155. lactation['pc_aware'] = 1
  1156. elseif lactation['active'] = 0 and pain['nipples'] <= 60:
  1157. pcs_massagedherbreasts += 0
  1158. '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,'
  1159. 'kneading your breasts as well.'
  1160. '<center><video autoplay loop src="images/pc/body/tits/bathroom_massage.mp4"></video></center>'
  1161. milkedvolume = (func('lact_lib','$get_breastmilk', 5, pumptime))/1000
  1162. minut += pumptime
  1163. else
  1164. 'Your nipples are too sore to hand massage right now.'
  1165. end
  1166. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1167. end
  1168. --- lact_bp ---------------------------------