1
0

lact_bp.qsrc 49 KB

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