din_bad.qsrc 42 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016
  1. # din_bad
  2. $mobile_check = {
  3. gs 'stat'
  4. if vladimirday ! daystart and hour >= 15 and hour <= 17:
  5. if vladimirQW = 20:
  6. '<b><font color="red">Your phone is ringing</font></b>'
  7. $caller = 'Vladimir'
  8. $callerid = 'images/characters/city/vladimir/001.jpg'
  9. gs 'telefon','phone_ring'
  10. pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  11. elseif vladimirQW = 25 and week = 6:
  12. '<b><font color="red">Your phone is ringing</font></b>'
  13. $caller = 'Vladimir'
  14. $callerid = 'images/characters/city/vladimir/001.jpg'
  15. gs 'telefon','phone_ring'
  16. pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  17. elseif vladimirQW = 35 and week = 6:
  18. '<b><font color="red">Your phone is ringing</font></b>'
  19. $caller = 'Vladimir'
  20. $callerid = 'images/characters/city/vladimir/001.jpg'
  21. gs 'telefon','phone_ring'
  22. pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  23. end
  24. end
  25. if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
  26. '<b><font color="red">Your phone is ringing</font></b>'
  27. $caller = 'Leonid Vostov'
  28. $callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
  29. gs 'telefon','phone_ring'
  30. pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:leonidSlaveDay = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  31. end
  32. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
  33. '<b><font color="red">Your phone is ringing</font></b>'
  34. $caller = 'Margaret'
  35. $callerid = ''
  36. gs 'telefon','phone_ring'
  37. pl''
  38. pl''
  39. pl''
  40. pl''
  41. pl''
  42. pl''
  43. pl''
  44. pl''
  45. pl''
  46. pl''
  47. '<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  48. end
  49. !! iterating all lovers
  50. lover_number = 0
  51. :loverloop
  52. if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
  53. if pcs_apprnc < vneshlover[lover_number]:
  54. loverrelation[lover_number] -= 1
  55. if loverrelation[lover_number] = 0:
  56. '<b><font color="red">Your lover hasn''t been calling you lately, they''ve probably grown tired of you.</font></b>'
  57. else
  58. 'Your lover <<$loverdesc[lover_number]>> has not called you.'
  59. end
  60. else
  61. ring = 1
  62. ringA = 1
  63. '<b><font color="red">Your phone is ringing</font></b>'
  64. PLAY 'sound/old_phone.mp3',30
  65. $caller = '<<$loverdesc[lover_number]>>'
  66. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  67. gs 'telefon','phone_ring'
  68. pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  69. end
  70. end
  71. lover_number += 1
  72. if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
  73. killvar 'lover_number'
  74. }
  75. $d_salf = {
  76. *clr & cla
  77. '<center><h1>Tissues</h1></center>'
  78. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  79. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  80. '<td cellspacing="0" cellpadding="0" valign="top">'
  81. if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 12 & gs ''cum_cleanup'' & cumspclnt = 9 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your face and hands clean</b></a>'
  82. if cumloc[14] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your belly clean</b></a>'
  83. if cumloc[15] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your breasts clean</b></a>'
  84. if cumloc[0] > 0 or cumloc[1] > 0 or cumloc[3] > 0 or cumloc[4] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your ass and pussy clean</b></a>'
  85. if cumloc[10] > 0 or cumloc[9] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 17 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your arms and legs clean</b></a>'
  86. if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Clean your clothing</b></a>'
  87. if pcs_makeup ! 1: '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Remove your makeup</b></a>'
  88. '<a href="exec:gs ''stat'' & gs ''din_bad'', ''d_bag''"><br><b>Put tissues away</b></a>'
  89. '</td></tr></table></center>'
  90. }
  91. $d_mouthwash = {
  92. *clr & cla
  93. '<center><h1>Mouth Wash</h1></center>'
  94. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  95. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  96. '<td cellspacing="0" cellpadding="0" valign="top">'
  97. cumspclnt = 2
  98. gs 'cum_cleanup'
  99. pcs_breath = 1
  100. mouthwash -= 1
  101. gs 'stat'
  102. 'Your breath smells minty fresh.'
  103. ''
  104. act 'Done':gs 'stat' & gs 'din_bad', 'd_bag'
  105. '</td></tr></table></center>'
  106. }
  107. if $ARGS[0] = 'd_bag':
  108. *clr & cla
  109. gs 'stat'
  110. '<center><h1>Purse</h1></center>'
  111. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  112. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  113. '<td cellspacing="0" cellpadding="0" valign="top">'
  114. if salfetka > 0: 'You have <b><<salfetka>></b> wet wipes left in your purse. <a href="exec:dynamic $d_salf">Use a tissue</a>'
  115. if painkiller > 0 and pain['total'] > 0 and pain['killer'] = 0:
  116. 'You have <b><<painkiller>></b> painkiller'+iif(painkiller > 1, 's ', ' ')+'left in your purse. <a href="exec: pain[''killer''] += 1 & painkiller -= 1 & gs ''din_bad'', ''d_bag''">Take One</a>'
  117. elseif painkiller > 0 and (pain['total'] = 0 or pain['killer'] > 0):
  118. 'You have <b><<painkiller>></b> painkiller'+iif(painkiller > 1, 's ', ' ')+'left in your purse.'
  119. end
  120. if mouthwash > 0 and (pcs_breath = 0 or cumloc[12] = 1):
  121. 'There''s mouthwash in your purse. <b><<mouthwash>></b> uses remaining. <a href="exec:dynamic $d_mouthwash">Use mouthwash</a>'
  122. elseif mouthwash > 0 and pcs_breath = 1 and cumloc[12] = 0:
  123. 'There''s mouthwash in your purse. <b><<mouthwash>></b> uses remaining.'
  124. end
  125. if compact_mirror = 1:
  126. 'You have a <a href="exec: gt ''mirror'', ''d_bag_mirror''">compact mirror</a> in your purse'+iif(kosmetitka > 0, ' and some portable makeup.', '.')
  127. elseif compact_mirror = 0 and kosmetitka > 0:
  128. 'You have some portable makeup in your purse, but you need a compact mirror to apply it.'
  129. end
  130. !! Hair options
  131. *nl
  132. if (compact_mirror = 1 or greben = 1) and pcs_hairbsh = 0:
  133. 'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Brush your hair</a>'
  134. elseif (compact_mirror = 1 or greben = 1) and pcs_hairbsh = 1:
  135. 'There''s a hairbrush in your purse. Your hair doesn''t need brushing right now.'
  136. end
  137. if pcs_hairlng > 41 and hscrunch >= 1 and hbraids = 0:
  138. if hscrunchw = 0 and hpingripw = 0: 'As you have a scrunchy, you can arrange your hair into a <a href="exec:hscrunchw = 1 & gs ''din_bad'', ''d_bag''">ponytail</a>. You have <<hscrunch>> scrunchies left.'
  139. if hscrunchw = 1: 'Remove the <a href="exec:hscrunchw = 0 & gs ''din_bad'', ''d_bag''">scrunchie</a> to get rid of the ponytail.'
  140. end
  141. if pcs_hairlng > 41 and hpingrip >= 1 and hbraids = 0:
  142. if hscrunchw = 0 and hpingripw = 0: 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:hpingripw = 1 & gs ''din_bad'', ''d_bag''">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
  143. if hpingripw = 1: 'Let your hair <a href="exec:hpingripw = 0 & gs ''din_bad'', ''d_bag''">flow free</a>.'
  144. end
  145. if pcs_hairlng > 80 and hscrunch >= 2 and hbraids = 0:
  146. if hscrunchw = 0 and hpingripw = 0: 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & gs ''din_bad'', ''d_bag''">pigtails</a>.'
  147. if hscrunchw = 2: '<a href="exec:hpigtail = 0 & hscrunchw = 0 & gs ''din_bad'', ''d_bag''">Remove</a> your scrunchies and let your hair flow free again.'
  148. end
  149. *nl
  150. if prezik + prezikcount + preziksabo > 0:
  151. if preziktype = 2 or preziksabo > 0:
  152. 'You have <b><<iif(preziktype = 2, prezikcount, prezikcount+prezik)>></b> normal condoms left, and <b><<iif(preziktype = 2, prezik+preziksabo, preziksabo)>></b> sabotaged <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in your purse.</a>'
  153. elseif preziktype < 2 and preziksabo = 0:
  154. 'You have <b><<prezik+prezikcount>></b> <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in your purse.</a>'
  155. end
  156. else
  157. 'You are out of condoms.'
  158. end
  159. if lubri > 0:
  160. 'You have <b><<lubri>></b> squirts of lubricant available'
  161. if auto_anal_lube = 0:
  162. 'Automatically use for anal sex: <a href="exec:auto_anal_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
  163. else
  164. 'Automatically use for anal sex: <a href="exec:auto_anal_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
  165. end
  166. if auto_vag_lube = 0:
  167. 'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
  168. else
  169. 'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
  170. end
  171. end
  172. *nl
  173. if amphetamine > 0: 'You have <b><<amphetamine>></b> tablets of amphetamine left in your purse. <a href="exec: gs ''drugs'', ''amphetamine'' & gs ''din_bad'', ''d_bag''">Take One</a>'
  174. if joint > 0: 'You have enough weed for <b><<joint>></b> joints.'
  175. if tabletki > 0 and pillsleft[ptype] > 0:
  176. 'You have <b><<tabletki>></b> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <b><<pillsleft[ptype]>></b> pills left in your opened package.'
  177. elseif tabletki = 0 and pillsleft[ptype] > 0:
  178. 'You have <b><<pillsleft[ptype]>></b> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left in your purse.'
  179. elseif tabletki > 0 and pillsleft[ptype] = 0:
  180. 'You have <b><<tabletki>></b> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> in your purse.'
  181. else
  182. 'You are out of birth control pills.'
  183. end
  184. if mentats_have > 0 and mentats_dose < 3:
  185. '<a href="exec: gs ''drugs'', ''mentats'' & gs ''din_bad'', ''d_bag'' & *pl ''<font color = green><br>You swallow the neurobooster pill.</font>''">Use a neurobooster pill in your purse.</a> There are <b><<mentats_have>></b> pills left. The warning label says not to take more than one per day.'
  186. elseif mentats_have > 0:
  187. 'There are <b><<mentats_have>></b> neurobooster pills left. You really shouldn''t take any more pills today.'
  188. end
  189. if steroid_have > 0:'<a href="exec:dynamic $use_steroids & gs ''din_bad'', ''d_bag''">Use steroids.</a> You have <b><<steroid_have>></b> steroids left in your purse.'
  190. if bcream_have > 0:'<a href="exec:dynamic $use_bcream & gs ''din_bad'', ''d_bag''">Apply breast cream.</a> You have <b><<bcream_have>></b> cream left in your purse.'
  191. if aphrodisiac_have > 0:'<a href="exec: gs ''drugs'', ''aphrodisiac'' & gs ''din_bad'', ''d_bag'' & *pl $aphrodisiac_msg & *pl $min_arousal_msg & killvar ''$min_arousal_msg''">Chew aphrodisiac gum.</a> You have <b><<aphrodisiac_have>></b> gum left in your purse.'
  192. if lubri > 0:'There''s a tube of lubricant in your purse, enough for <b><<lubri>></b> applications.'
  193. if refillable_bottle = 4:
  194. 'You carry your sports water bottle in your purse. It''s still completely full. <a href="exec: refillable_bottle = 3 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  195. elseif refillable_bottle = 3:
  196. 'You carry your sports water bottle in your purse. It''s two-thirds full. <a href="exec: refillable_bottle = 2 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  197. elseif refillable_bottle = 2:
  198. 'You carry your sports water bottle in your purse. It''s one-third full. <a href="exec: refillable_bottle = 1 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  199. elseif refillable_bottle = 1:
  200. 'You carry your sports water bottle in your purse. It''s empty.'
  201. end
  202. if bottle > 0: 'There''s a bottle of water in your purse. <a href="exec:bottle = 0 & pcs_hydra += 100 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  203. if buterbrod > 0: 'There''s a sandwich in your purse. <a href="exec:buterbrod = 0 & pcs_energy += 40 & cumspclnt = 2 & gs ''cum_cleanup'' & fat += 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Eat</a>'
  204. if strapon = 1 and strapnumber = 0:
  205. 'You have a strapon harness in your purse, but you don''t have a dildo attached to it'+iif(dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0, '. You keep your dildos in your desk at home.', ', because you don''t own one.')
  206. elseif strapon = 1 and strapnumber ! 0:
  207. 'You have a strapon harness in your purse and a <<(strapnumber +1)*5>>cm attached to it.'
  208. end
  209. if wine = 1 and alkowine = 0:'There''s a bottle of <a href="exec:dynamic $dinalkowin1">wine</a> in your purse.'
  210. if wine = 1 and alkowine = 1:'There''s a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a> in your purse.'
  211. if foto = 1:'Your purse contains a strange photo'
  212. if pattest > 0: 'You have <b><<pattest>></b> unused paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.'
  213. if used_pattest > 0: 'You have <b><<used_pattest>></b> <a href="exec:dynamic $test_purse">used</a> paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.'
  214. *nl
  215. if $pursepantytype ! '' or $pursebratype ! '': 'You also have '+iif($pursepantytype ! '','<a href="exec:view''<<func(''$panty_image'', $pursepantytype, pursepantynumber)>>''">a pair of panties</a>','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','<a href="exec:view''<<func(''$bra_image'', $pursebratype, pursebranumber)>>''">a bra</a>','')+' in your purse, which you can put on in the nearest bathroom.'
  216. act 'Return':gt 'obj_din', 'menu_exit'
  217. '</td></tr></table></center>'
  218. end
  219. $dinalkowin1 = {
  220. *clr & cla
  221. alkowine = 1
  222. minut += 5
  223. gs 'drugs', 'alcohol', 'wine'
  224. gs'stat'
  225. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  226. *nl
  227. 'You take the wine bottle out of your purse and slowly drink half of it. You struggle quite a lot to put the cork back before being able to make it.'
  228. act 'Continue':gs 'din_bad', 'd_bag'
  229. }
  230. $dinalkowin2 = {
  231. *clr & cla
  232. alkowine = 0
  233. wine = 0
  234. minut += 5
  235. gs 'drugs', 'alcohol', 'wine'
  236. gs'stat'
  237. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  238. *nl
  239. 'You take out the remaining half wine bottle out of your purse, slowly drinking the rest of it. As you finish you throw the empty bottle away.'
  240. act 'Continue':gs 'din_bad', 'd_bag'
  241. }
  242. $din_Switch_Condom_Menu = {
  243. dynamic $din_Update_Condom_Counts
  244. *clr & cla
  245. '<center><h1>Condoms</h1></center>'
  246. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  247. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  248. '<td cellspacing="0" cellpadding="0" valign="top">'
  249. i = 0
  250. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
  251. *nl
  252. if preziktype > 0:
  253. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  254. end
  255. if preziktype ! 1:
  256. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  257. end
  258. if preziktype ! 2:
  259. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  260. end
  261. if prezikcount > 0 or preziktype = 0:
  262. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  263. end
  264. *nl
  265. act 'Return':gs 'din_bad', 'd_bag'
  266. '</td></tr></table></center>'
  267. }
  268. $din_Table_Condom_Menu = {
  269. dynamic $din_Update_Condom_Counts
  270. *clr & cla
  271. '<center><h1>Condoms</h1></center>'
  272. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  273. *nl
  274. i = 1
  275. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
  276. *nl
  277. if preziktype > 0:
  278. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  279. end
  280. if preziktype ! 1:
  281. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  282. end
  283. if preziktype ! 2:
  284. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  285. end
  286. if prezikcount > 0 or preziktype = 0:
  287. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  288. end
  289. *nl
  290. act 'Return':gt 'stol', 'bc'
  291. }
  292. !! Condom System
  293. !! prezik: Total number of condoms sveta is using (normal or damaged).
  294. !! prezikcount: Number of normal condoms sveta isn''t using.
  295. !! preziksabo: Number of damaged condoms seveta isn''t using.
  296. !! preziktyp: 0 - Use condoms / 1 - don''t use condoms / 2 - use damaged condoms
  297. !! to check if sveta wants to use a condom use if prezik > 0:
  298. $din_Do_Condom_Counts = {
  299. *clr & cla
  300. '<center><h1>Condoms</h1></center>'
  301. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  302. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  303. '<td cellspacing="0" cellpadding="0" valign="top">'
  304. if ARGS[0] = 1:
  305. 'Use a condom the next time you have sex.'
  306. if preziktype = 2: preziksabo = prezik
  307. prezik = prezikcount
  308. prezikcount = 0
  309. preziktype = 0
  310. elseif ARGS[0] = 2:
  311. 'You will not use a condom the next time you have sex.'
  312. if preziktype = 0: prezikcount = prezik
  313. if preziktype = 2: preziksabo = prezik
  314. prezik = 0
  315. preziktype = 1
  316. elseif ARGS[0] = 3:
  317. 'Use your sabotaged condom the next time you have sex.'
  318. if preziktype = 0: prezikcount = prezik
  319. prezik = preziksabo
  320. preziksabo = 0
  321. preziktype = 2
  322. elseif ARGS[0] = 4:
  323. if preziktype ! 0 and prezikcount > 0:
  324. preziksabo +=1
  325. prezikcount -=1
  326. 'You use a needle to punch holes in one of the condoms.'
  327. elseif preziktype = 0 and prezik > 0:
  328. preziksabo +=1
  329. prezik -=1
  330. 'You use a needle to punch holes in one of the condoms.'
  331. else
  332. 'You do not have any condoms to sabotage.'
  333. end
  334. end
  335. if i = 0:
  336. dynamic $din_Switch_Condom_Menu
  337. else
  338. dynamic $din_Table_Condom_Menu
  339. end
  340. '</td></tr></table></center>'
  341. }
  342. $din_Update_Condom_Counts = {
  343. if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  344. if preziktype = 0:
  345. if prezikcount > 0:
  346. prezik += prezikcount
  347. prezikcount = 0
  348. end
  349. if prezik <= 0:
  350. 'You are out of condoms.'
  351. prezik = 0
  352. prezikcount = 0
  353. preziktype = 1
  354. end
  355. elseif preziktype = 1:
  356. if prezik > 0:
  357. prezikcount += prezik
  358. prezik = 0
  359. end
  360. elseif preziktype = 2:
  361. if preziksabo > 0:
  362. prezik += preziksabo
  363. preziksabo = 0
  364. end
  365. if prezik <= 0 and prezikcount <= 0:
  366. if prezikmsg = 1:prezikmsg = 2
  367. prezik = 0
  368. preziksabo = 0
  369. prezikcount = 0
  370. preziktype = 1
  371. elseif prezik <= 0 and prezikcount > 0:
  372. 'You have run out of sabotaged condoms so you will have to use normal condoms.'
  373. prezik = prezikcount
  374. prezikcount = 0
  375. preziktype = 0
  376. end
  377. end
  378. }
  379. $d_tabletkied = {
  380. *clr & cla
  381. '<center><h1>Birth Control</h1></center>'
  382. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  383. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  384. '<td cellspacing="0" cellpadding="0" valign="top">'
  385. tabloc = 0
  386. if tabletkiday < daystart and thinkpreg = 0 and knowpreg = 0: '<a href="exec:dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  387. if tabletkicheck = 0 and thinkpreg = 0 and knowpreg = 0:
  388. '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  389. elseif tabletkicheck = 1:
  390. '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  391. end
  392. '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  393. if tabletkioddk = 1: '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  394. act 'Return':gs 'din_bad', 'd_bag'
  395. '</td></tr></table></center>'
  396. }
  397. $d_tabletkiedt = {
  398. *clr & cla
  399. '<center><h1>Birth Control</h1></center>'
  400. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  401. *nl
  402. tabloc = 1
  403. if tabletkiday < daystart and thinkpreg = 0 and knowpreg = 0: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  404. if tabletkicheck = 0 and thinkpreg = 0 and knowpreg = 0:
  405. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  406. elseif tabletkicheck = 1:
  407. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  408. end
  409. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  410. if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  411. act 'Return':gt 'stol', 'bc'
  412. }
  413. $d_tabletkieda = {
  414. cla
  415. if ARGS[0] = 1:
  416. tabletkipd += tabletkipt
  417. if tabletkiday ! daystart:
  418. gs 'din_bad','takepill'
  419. tabletkiday = daystart
  420. tabletkipt = 0
  421. tabletkipi = 0
  422. else
  423. pcs_health -= 1
  424. end
  425. pilldaychk = 1
  426. *clr
  427. dynamic $d_tabletkied
  428. 'You take the birth control pill.'
  429. gs 'stat'
  430. elseif ARGS[0] = 2:
  431. 'You will do your best to remember to take your birth control pills every day.'
  432. tabletkicheck = 1
  433. gs 'stat'
  434. elseif ARGS[0] = 3:
  435. 'You will take your birth control pills as you desire.'
  436. tabletkicheck = 0
  437. gs 'stat'
  438. elseif ARGS[0] = 4:
  439. if pcs_intel + pillsdays <= rand(30,95):
  440. 'These pills appear to be normal birth control pills.'
  441. tabletkioddk = 0
  442. gs 'stat'
  443. else
  444. if ptype = 0: $pillprob = 'nothing unusual about them.'
  445. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  446. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  447. if ptype = 3: $pillprob = 'that the pills are discolored and there is no expiry date.'
  448. if ptype = 4: $pillprob = 'that the pills are all the same color.'
  449. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  450. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  451. if ptype > 0: tabletkioddk = 1
  452. gs 'stat'
  453. if tabloc = 0:
  454. act 'Return':gs 'din_bad', 'd_bag'
  455. else
  456. act 'Return':gt 'stol', 'bc'
  457. end
  458. end
  459. elseif ARGS[0] = 5:
  460. 'You get rid of the strange pills.'
  461. tabletkioddk = 0
  462. pillsleft[ptype] = 0
  463. tabletkioddp = 0
  464. gs 'stat'
  465. end
  466. if tabloc = 0:
  467. act 'Return':gs 'din_bad', 'd_bag'
  468. else
  469. act 'Return':gt 'stol', 'bc'
  470. end
  471. }
  472. $d_cycreport_choice = {
  473. *clr & cla
  474. '<center><h1>Fertility Cycle</h1></center>'
  475. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  476. '<td width="800" cellspacing="0" cellpadding="0" valign="top">'
  477. dynamic $d_cycreport_update
  478. '<center><b>Current Status:</b></center>'
  479. '<center><<$cycreport_txt>></center>'
  480. '</td></tr></table></center><center><table cellspacing="0" cellpadding="20" valign="top"><tr><td width="250" valign="top">'
  481. if $cycreport_txt ! 'In labour':
  482. '<center><b>Change Status because:</b></center>'
  483. if thinkpreg = 0:
  484. if knowpreg = 1:
  485. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I''m pregnant.</a>'
  486. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I can''t be pregnant no matter the evidence.</a>'
  487. else
  488. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I think I''m pregnant.</a>'
  489. end
  490. elseif thinkpreg = 1:
  491. if knowpreg = 1:
  492. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I can''t be pregnant no matter the evidence.</a>'
  493. else
  494. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I''m not pregnant.</a>'
  495. end
  496. end
  497. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  498. '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  499. elseif thinkpreg ! 1:
  500. '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  501. '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  502. end
  503. if thinkpreg = 1 or knowpreg = 1:
  504. '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  505. '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
  506. end
  507. if knowpregloss = 1:
  508. '<a href="exec: dynamic $d_cycreport_actor, 8">I just had an abortion.</a>'
  509. elseif knowpregloss > 1 or thinkpreg = 1:
  510. '<a href="exec: dynamic $d_cycreport_actor, 8">I think I lost a baby.</a>'
  511. end
  512. elseif cycle = 5:
  513. 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
  514. else
  515. dynamic $d_cycreport_actor, 10
  516. end
  517. act 'Exit':gs 'stat' & gt $loc, $metka
  518. '</td></tr></table></center>'
  519. }
  520. $d_cycreport_actor = {
  521. !! Svetlana has decided she is not pregnant
  522. if ARGS[0] = 1:
  523. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  524. if knowpreg = 1:
  525. denypreg = 1
  526. thinkpreg = 0
  527. else
  528. denypreg = 0
  529. thinkpreg = 0
  530. end
  531. dynamic $d_cycreport_update
  532. gs 'stat'
  533. dynamic $d_cycreport_choice
  534. !! Svetlana has decided she is pregnant.
  535. elseif ARGS[0] = 2:
  536. thinkpreg = 1
  537. denypreg = 0
  538. dynamic $d_cycreport_update
  539. gs 'stat'
  540. dynamic $d_cycreport_choice
  541. !! Svetlana is Menstrating.
  542. elseif ARGS[0] = 3:
  543. thinkpreg = 0
  544. denypreg = 0
  545. daylastperiod = daystart
  546. dynamic $d_cycreport_update
  547. gs 'stat'
  548. dynamic $d_cycreport_choice
  549. !! Svetlana is remembering her last period.
  550. elseif ARGS[0] = 4:
  551. thinkpreg = 0
  552. denypreg = 0
  553. *clr & cla
  554. '<center><h1>Fertility Cycle</h1></center>'
  555. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  556. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  557. 'How many days ago was it you had your last period?'
  558. 'Currently: <<pertemp>>'
  559. '<a href="exec: pertemp += 1 & dynamic $d_cycreport_actor, 4">+1</a> <a href="exec: pertemp += 5 & dynamic $d_cycreport_actor, 4">+5</a> <a href="exec: pertemp += 10 & dynamic $d_cycreport_actor, 4">+10</a> <a href="exec: pertemp = 0 & dynamic $d_cycreport_actor, 4">Reset</a> <a href="exec: daylastperiod = (daystart - pertemp) & dynamic $d_cycreport_update & gs ''stat'' & dynamic $d_cycreport_choice">Accept</a>'
  560. act 'Return':dynamic $d_cycreport_choice
  561. act 'Exit':gs 'stat' & gt $loc, $metka
  562. '</td></tr></table></center>'
  563. !! Svetlana thinks she doesn''t have periods anymore. Good birth control has this effect (as does pregnancy.)
  564. elseif ARGS[0] = 5:
  565. if knowpreg = 1:
  566. denypreg = 1
  567. else
  568. denypreg = 0
  569. end
  570. thinkpreg = 0
  571. $cycreport_txt = 'You do not believe you have periods any more.'
  572. gs 'stat'
  573. dynamic $d_cycreport_choice
  574. !! Svetlana is trying to figure out her due date.
  575. elseif ARGS[0] = 6:
  576. *clr & cla
  577. '<center><h1>Fertility Cycle</h1></center>'
  578. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  579. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  580. 'How many days ago was it you had your last period?'
  581. 'Currently: <<pertemp>>'
  582. '<a href="exec: pertemp += 1 & dynamic $d_cycreport_actor, 6">+1</a> <a href="exec: pertemp += 5 & dynamic $d_cycreport_actor, 6">+5</a> <a href="exec: pertemp += 10 & dynamic $d_cycreport_actor, 6">+10</a> <a href="exec: pertemp = 0 & dynamic $d_cycreport_actor, 6">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat'' & dynamic $d_cycreport_choice">Accept</a>'
  583. act 'Return':dynamic $d_cycreport_choice
  584. act 'Exit':gs 'stat' & gt $loc, $metka
  585. '</td></tr></table></center>'
  586. !! Svetlana is trying to guess who is the babydaddy.
  587. elseif ARGS[0] = 7:
  588. *clr & cla
  589. '<center><h1>Fertility Cycle</h1></center>'
  590. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  591. '<td width="500" cellspacing="0" cellpadding="0" valign="top">'
  592. potfather_temp[1] = arrsize('$wombpotfath')
  593. if potfather_temp[1] > 0:
  594. potfather_counter = 0
  595. 'List of potential fathers:'
  596. :potfather_loop
  597. if $wombpotfath[potfather_temp] ! 'unknown':
  598. $potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$wombpotfath[potfather_counter]]>> (<<$wombpotfath[potfather_counter]>>)</a>'
  599. else
  600. $potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  601. end
  602. 'Potential father (<<potfather_counter + 1>>): <<$potfather_temp[2]>>'
  603. potfather_counter += 1
  604. if potfather_counter < arrsize('$wombpotfath'): jump 'potfather_loop'
  605. else
  606. 'There are no potential fathers.'
  607. end
  608. killvar 'potfather_counter'
  609. '<br> <a href="exec:dynamic $d_cycreport_choice & gs ''stat''">Accept</a>'
  610. '</td></tr></table></center>'
  611. act 'Return':dynamic $d_cycreport_choice
  612. act 'Exit':gs 'stat' & gt $loc, $metka
  613. !! This is the old code that was broken, keeping it for now (julzor)
  614. !! {
  615. tempmax = arrsize('$cumfthname')-1
  616. tempcurr = 0
  617. sumcum = 0
  618. *nl
  619. :potfathloop
  620. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  621. if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  622. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  623. if sumcum > 1:$cum = 's' else $cum = ''
  624. '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
  625. 'You suspect the father being: <<$wombthfath>><br>'
  626. *nl
  627. tempcurr = 0
  628. :pickfathloop
  629. if cumtime[tempcurr] > 0:
  630. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  631. '<a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
  632. else
  633. ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  634. end
  635. end
  636. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  637. killvar 'sumcum'
  638. killvar 'cum'
  639. killvar 'tempmax'
  640. killvar 'tempcurr'
  641. }
  642. !! Just recently lost a baby to abortion, miscarriage, or think you did because your period finally arrived.
  643. elseif ARGS[0] = 8:
  644. thinkpreg = 0
  645. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.'
  646. dynamic $d_cycreport_update
  647. gs 'stat'
  648. dynamic $d_cycreport_choice
  649. !! Just recently gave birth.
  650. elseif ARGS[0] = 10:
  651. temp = arrsize('Babyptype')
  652. temp -= 1
  653. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  654. gs 'stat'
  655. end
  656. }
  657. $d_cycreport_update = {
  658. killvar 'temp'
  659. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  660. !! Vagblood in a future update to account for babydamage and miscarrages.
  661. if mesec > 0 or vagblood > 0:
  662. $cycreport_txt = 'You are currently bleeding.'
  663. else
  664. if cyccustom = 1:
  665. if preg = 1 and knowpreg = 1:
  666. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  667. if $wombthfath ! 'unknown':
  668. $cycreport_txt = '<<$cycreport_txt>> You suspect the father being <<$wombthfath>>.'
  669. end
  670. elseif knowpregloss = 1:
  671. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.'
  672. elseif knowpregloss = 2:
  673. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.'
  674. elseif knowpregrecover = 1:
  675. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  676. elseif menoage <= age and cycle = 6:
  677. $cycreport_txt = 'You have gone through menopause.'
  678. else
  679. temp[1] = daystart-daylastperiod
  680. if tabletkishot > 0:
  681. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are currently protected by a birth control shot.</font>'
  682. elseif pillcon2 > 30000:
  683. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are currently on the birth control pill.</font>'
  684. elseif pillcon2 > 8000 and ((FocH > (Foch_Max - 96)) or ovulate > 0):
  685. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective. <font color=red>It is currently a dangerous day.</font>'
  686. elseif pillcon2 > 8000:
  687. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective.'
  688. elseif daystart = tabletkiday:
  689. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective.'
  690. elseif FocH > (Foch_Max - 96) or ovulate > 0:
  691. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>It is currently your fertile stage.</font>'
  692. else
  693. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period.'
  694. end
  695. end
  696. elseif denypreg = 1:
  697. if pregchem < 525:
  698. denypreg = 1
  699. thinkpreg = 0
  700. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  701. elseif pregchem < 1863:
  702. denypreg = 1
  703. thinkpreg = 0
  704. $cycreport_txt = 'You have a strange flu making you feel ill.'
  705. elseif pregchem < 4000:
  706. denypreg = 1
  707. thinkpreg = 0
  708. $cycreport_txt = 'Your strange flu still hasn''t gone away. As soon as it does you plan to exercise and lose the excess fat you''be been building up.'
  709. elseif pregchem < 6000:
  710. denypreg = 1
  711. thinkpreg = 0
  712. $cycreport_txt = 'Your weight just won''t come off...'
  713. elseif pregchem < 7500:
  714. denypreg = 1
  715. thinkpreg = 0
  716. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  717. elseif pregchem >= 7500:
  718. thinkpreg = 0
  719. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  720. else
  721. temp = daystart-daylastperiod
  722. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  723. end
  724. elseif cyccustom = 0:
  725. if $cycreport_txt ! 'In labour':
  726. if thinkpreg = 1 or knowpreg = 1:
  727. if knowpreg = 0: $temp = ' think you'
  728. if $wombthfath = 'unknown' or $wombthfath = '':
  729. $cycreport_txt = 'You<<$temp>> are pregnant. You aren''t yet sure who the father is. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  730. else
  731. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  732. end
  733. elseif $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.':
  734. if knowpregloss = 1: $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.'
  735. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  736. temp = daystart-daylastperiod
  737. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  738. end
  739. killvar 'temp'
  740. end
  741. end
  742. end
  743. }
  744. $d_cycreport_upduedate = {
  745. !! implant_calc: Calculation of an implantation date in the uterus (Average is 5 days after ovulation)
  746. implant_calc = daystart - lastovulation + 5
  747. !! Human gastation period: 280 days
  748. gastation_time = 280 / (1 + pregspeedcheat)
  749. temp = gastation_time - implant_calc
  750. pregdueday = day
  751. pregduemonth = month
  752. pregdueyear = year
  753. temp += pregdueday
  754. pregdueday = 0
  755. :pregduedateloop
  756. if pregduemonth = 1 and temp > 31:
  757. pregduemonth += 1
  758. temp -= 31
  759. elseif pregduemonth = 2 and temp > 28:
  760. pregduemonth += 1
  761. temp -= 28
  762. elseif pregduemonth = 3 and temp > 31:
  763. pregduemonth += 1
  764. temp -= 31
  765. elseif pregduemonth = 4 and temp > 30:
  766. pregduemonth += 1
  767. temp -= 30
  768. elseif pregduemonth = 5 and temp > 31:
  769. pregduemonth += 1
  770. temp -= 31
  771. elseif pregduemonth = 6 and temp > 30:
  772. pregduemonth += 1
  773. temp -= 30
  774. elseif pregduemonth = 7 and temp > 31:
  775. pregduemonth += 1
  776. temp -= 31
  777. elseif pregduemonth = 8 and temp > 31:
  778. pregduemonth += 1
  779. temp -= 31
  780. elseif pregduemonth = 9 and temp > 30:
  781. pregduemonth += 1
  782. temp -= 30
  783. elseif pregduemonth = 10 and temp > 31:
  784. pregduemonth += 1
  785. temp -= 31
  786. elseif pregduemonth = 11 and temp > 30:
  787. pregduemonth += 1
  788. temp -= 30
  789. elseif pregduemonth = 12 and temp > 31:
  790. pregduemonth = 1
  791. pregdueyear += 1
  792. temp -= 31
  793. else
  794. pregdueday = temp
  795. temp = 0
  796. end
  797. if temp > 0: jump 'pregduedateloop'
  798. $pregduedate = '<<pregdueday>> '
  799. if pregduemonth = 1:
  800. $pregduedate += 'Jan'
  801. elseif pregduemonth = 2:
  802. $pregduedate += 'Feb'
  803. elseif pregduemonth = 3:
  804. $pregduedate += 'Mar'
  805. elseif pregduemonth = 4:
  806. $pregduedate += 'Apr'
  807. elseif pregduemonth = 5:
  808. $pregduedate += 'May'
  809. elseif pregduemonth = 6:
  810. $pregduedate += 'Jun'
  811. elseif pregduemonth = 7:
  812. $pregduedate += 'Jul'
  813. elseif pregduemonth = 8:
  814. $pregduedate += 'Aug'
  815. elseif pregduemonth = 9:
  816. $pregduedate += 'Sep'
  817. elseif pregduemonth = 10:
  818. $pregduedate += 'Oct'
  819. elseif pregduemonth = 11:
  820. $pregduedate += 'Nov'
  821. elseif pregduemonth = 12:
  822. $pregduedate += 'Dec'
  823. end
  824. $pregduedate += ' <<pregdueyear>>'
  825. }
  826. $d_pregmovement = {
  827. if denypreg = 0 and pregchem > 0:
  828. if thinkpreg > 0 and knowpreg = 0:
  829. knowpreg = 1
  830. if kid <= 0:
  831. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  832. else
  833. 'The movement inside you confirms what you already suspected. You are pregnant once again.'
  834. end
  835. elseif knowpreg > 0:
  836. temprand = rand(0,2)
  837. if temprand = 0:
  838. if pregchem > 5000:
  839. 'Your baby visibly moves around inside you.'
  840. else
  841. 'You feel movement deep inside you as your baby shifts around.'
  842. end
  843. elseif temprand = 1:
  844. if pregchem > 5000:
  845. 'You wince as your baby delivers a vicious kick to your insides.'
  846. else
  847. 'You feel your baby kicking.'
  848. end
  849. elseif temprand = 2:
  850. if pregchem > 5000:
  851. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  852. else
  853. 'You feel your baby kicking.'
  854. end
  855. end
  856. else
  857. if cyccustom = 1:
  858. if pregchem < 4000:
  859. if kid <= 0 :
  860. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should see the doctor?'
  861. else
  862. 'It feels as if a baby is moving inside you. Are you pregnant?'
  863. end
  864. else
  865. knowpreg = 1
  866. if kid <= 0:
  867. 'It''s become pretty obvious. You are pregnant.'
  868. else
  869. 'It''s become pretty obvious. You are pregnant once again.'
  870. end
  871. end
  872. end
  873. end
  874. elseif pregchem > 0:
  875. if kid > 0 and PregChem > 3903:
  876. 'You try to deny it, but you just can''t any more. The large belly, the movement, you are pregnant once again.'
  877. denypreg = 0
  878. dynamic $d_cycreport_upduedate
  879. $cycreport_txt = 'You are pregnant.'
  880. else
  881. 'You feel movement deep inside you. It''s probably just gas.'
  882. end
  883. end
  884. }
  885. $use_steroids = {
  886. if steroid_dose < 3:
  887. '<font color = blue>You swallow the orange pill.</font>'
  888. steroid_dose += 1
  889. steroid_counter += 1
  890. steroid_have -= 1
  891. else
  892. 'You really shouldn''t take any more pills today.'
  893. end
  894. }
  895. $use_bcream = {
  896. if bcream_used < 1:
  897. '<font color = #DB7093>You smear the cream onto your breasts and rub it in.</font>'
  898. bcream_used = 1
  899. bcream_have -= 1
  900. else
  901. 'Using any more cream won''t have any effect.'
  902. end
  903. }
  904. if $ARGS[0] = 'takepill':
  905. if tabletki > 0 and pillsleft[ptype] = 0:
  906. tabletkirand = rand(1, tabletki)
  907. if tabletkirand <= tabletkiold:
  908. tabletki -=1
  909. tabletkiold -=1
  910. ptype = 1
  911. pillsleft[ptype] = 28
  912. elseif tabletkirand <= tabletkiold + tabletkifake:
  913. tabletki -=1
  914. tabletkifake -=1
  915. ptype = 2
  916. pillsleft[ptype] = 28
  917. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  918. tabletki -=1
  919. tabletkirej -=1
  920. ptype = 3
  921. pillsleft[ptype] = 28
  922. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  923. tabletki -=1
  924. tabletkisug -=1
  925. ptype = 4
  926. pillsleft[ptype] = 28
  927. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  928. tabletki -=1
  929. tabletkifert -=1
  930. ptype = 5
  931. pillsleft[ptype] = 28
  932. else
  933. tabletki -=1
  934. ptype = 0
  935. pillsleft[ptype] = 28
  936. end
  937. killvar 'tabletkirand'
  938. end
  939. !! added empty week to allow menstruation - it take effect only when the pills are taken automatically
  940. if placebopart <= 0 or tabletkicheck ! 1:
  941. if ptype = 0:
  942. pillsleft[ptype] -= 1
  943. pcs_skin += 1
  944. pillcon += ((pillcon + 15000) / 25) + 4000
  945. elseif ptype = 1:
  946. pillsleft[ptype] -= 1
  947. pcs_skin += rand(0,1)
  948. pillcon += (( pillcon+ 15000) / 25)+ rand(2000,4000)
  949. elseif ptype = 2:
  950. pillsleft[ptype] -= 1
  951. pcs_skin += rand(0,1)
  952. pillcon += ((pillcon + 15000) / 25)+ rand(500,2000)
  953. elseif ptype = 3:
  954. pillsleft[ptype] -= 1
  955. pcs_skin += rand(0,1)
  956. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  957. pillcon += ((pillcon + 15000) / 25)+ rand(2000,6000)
  958. elseif ptype = 4:
  959. pillsleft[ptype] -= 1
  960. elseif ptype = 5:
  961. pillsleft[ptype] -= 1
  962. pcs_skin += 1
  963. EggRH += rand(10,80)
  964. end
  965. !!pillcon2 is the ideal state, PC considers this the believed pillcon value
  966. pillcon2 += ((pillcon2 + 15000) / 25) + 4000
  967. if pillcon2 > 40000: pillcon2 = 40000
  968. if pillcon > 40000: pillcon = 40000
  969. end
  970. end
  971. --- din_bad ---------------------------------