medical_din.qsrc 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258
  1. # medical_din
  2. if $ARGS[0] = 'birth_control':
  3. if tabletkishot < 5 and money >= 2750 and knowpreg = 0 and birth_control['implant_status'] = 0:
  4. act 'Get a birth control shot for 2750 <b>₽</b> (0:15)':
  5. *clr & cla
  6. menu_off = 1
  7. minut += 15
  8. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  9. 'You are escorted into an examination room, where you are told that say have to do a small test before giving you the shot. You wait for fifteen minutes before the nurse comes back in.'
  10. if preg = 0:
  11. money -= 2750
  12. gs 'medical_din','birthControlShot'
  13. '"Everything looks great." She says and gives you a reassuring smile as she sticks a needle in your arm, and depresses the plunger. Seconds later she explains: "All done! You should be good to go for three months, give or take. It depends a bit from person to person: Body type, hormone levels, and so on. If you want to be perfectly safe, we recommend you come back for another treatment one week before the three months are over. Have a nice day, miss!"'
  14. 'You thank her and wish her the same, while you gather your things. You silently mutter to yourself: "If it is that simple, why did they make me wait 15 minutes..."'
  15. else
  16. money -= 650
  17. '"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
  18. 'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
  19. thinkpreg = 1
  20. knowpreg = 1
  21. end
  22. gs 'stat'
  23. act 'Leave': gt $loc, $metka
  24. end
  25. elseif tabletkishot < 5 and money < 2750 and knowpreg = 0 and birth_control['implant_status'] = 0:
  26. act 'Get a birth control shot for <font color="red">3,900 <b>₽</b></font> (0:15)': '<br><font color="red">You don''t have enough money to get a birth control shot.</font>'
  27. end
  28. if birth_control['implant_status'] = 0 and money >= 19650 and knowpreg = 0:
  29. act 'Get a birth control implant for 19,650 <b>₽</b> (0:35)':
  30. *clr & cla
  31. menu_off = 1
  32. minut += 15
  33. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  34. 'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
  35. if preg = 0:
  36. minut += 20
  37. money -= 19650
  38. birth_control['implant_status'] = 3
  39. birth_control['implant_timer'] = 1095
  40. pillcon += ((pillcon + 15000) / 25) + 4000
  41. pillcon2 += ((pillcon2 + 15000) / 25) + 4000
  42. '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
  43. 'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision and pushes a small tube inside your arm. It isn''t bigger than a matchstick.'
  44. '"All done! You should be good to go for three years."'
  45. else
  46. money -= 650
  47. '"I''m sorry, but we can''t give you the implant, because you''re pregnant."'
  48. 'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
  49. thinkpreg = 1
  50. knowpreg = 1
  51. end
  52. gs 'stat'
  53. act 'Leave': gt $loc, $metka
  54. end
  55. elseif birth_control['implant_status'] = 0 and money < 19650 and knowpreg = 0:
  56. act 'Get a birth control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
  57. elseif birth_control['implant_status'] > 0:
  58. if money >= 1000:
  59. act 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)':
  60. *clr & cla
  61. menu_off = 1
  62. minut += 20
  63. money -= 1000
  64. birth_control['implant_status'] = 0
  65. birth_control['implant_timer'] = 0
  66. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  67. '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
  68. 'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision and takes out your old implant. "All done!"'
  69. act 'Leave': gt $loc, $metka
  70. end
  71. else
  72. act 'Remove your birth control implant for <font color="red">1,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to remove your birth control implant.</font>'
  73. end
  74. if birth_control['implant_status'] < 3 and money >= 19650:
  75. act 'Renew your birth control implant for 19,650 <b>₽</b> (0:35)':
  76. *clr & cla
  77. menu_off = 1
  78. minut += 15
  79. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  80. 'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
  81. if preg = 0:
  82. minut += 20
  83. money -= 19650
  84. birth_control['implant_status'] = 3
  85. birth_control['implant_timer'] = 1095
  86. pillcon += ((pillcon + 15000) / 25) + 4000
  87. pillcon2 += ((pillcon2 + 15000) / 25) + 4000
  88. '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
  89. 'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision, takes out your old implant and pushes in a new one.'
  90. '"All done! You should be good to go for three years."'
  91. else
  92. birth_control['implant_status'] = 0
  93. birth_control['implant_timer'] = 0
  94. money -= 1650
  95. '"I''m sorry, but we can''t give you the implant again, because you''re pregnant."'
  96. 'After the initial shock subsides you pay the 1650 <b>₽</b> for the test and the removal of your old implant leave.'
  97. thinkpreg = 1
  98. knowpreg = 1
  99. end
  100. end
  101. elseif birth_control['implant_status'] < 3 and money < 19650:
  102. act 'Renew your control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to renew your birth control implant.</font>'
  103. end
  104. end
  105. end
  106. if $ARGS[0] = 'abortion':
  107. !! Aborts pregnency. Usage: gs 'medical_din','abortion'
  108. vidage += 1
  109. abort += 1
  110. abortionbirthdate = daystart
  111. gs 'medical_din', 'remove_preg'
  112. knowpregloss = 2
  113. abortrand = rand(0, 10)
  114. if age > 18:
  115. if abortrand < 10:sterilewb += 1
  116. if abortrand = 10:sterilewb += 10
  117. else
  118. if abortrand < 7:sterilewb += 2
  119. if abortrand >= 7:sterilewb += 10
  120. end
  121. killvar 'abortrand'
  122. !! I am not sure, why is it here this cycle, but I leave it so (rachels)
  123. pcs_hydra += 20
  124. if broodcurse > 0: over = 13 & gt'gameover'
  125. elseif $ARGS[0] = 'remove_preg':
  126. pregtime = 0
  127. pregtalk = 0
  128. pcs_pregtalk = 0
  129. npc_pregtalk['A16'] = 0
  130. npc_pregtalk['A34'] = 0
  131. preg = 0
  132. thinkpreg = 0
  133. knowpreg = 0
  134. pregchem = 0
  135. cycle = 4
  136. !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
  137. RecovH = rand(375,575)
  138. nextbaby = arrsize('yearkid')
  139. :poliabortloop
  140. !!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
  141. if yearkid[nextbaby-1] = 0:
  142. KILLVAR 'polkid',nextbaby-1
  143. KILLVAR '$kidname',nextbaby-1
  144. KILLVAR 'kidage',nextbaby-1
  145. KILLVAR 'daykid',nextbaby-1
  146. KILLVAR 'monthkid',nextbaby-1
  147. KILLVAR 'yearkid',nextbaby-1
  148. KILLVAR 'Babyptype',nextbaby-1
  149. KILLVAR '$ChildFath',nextbaby-1
  150. KILLVAR '$ChildThFath',nextbaby-1
  151. KILLVAR 'hairkid',nextbaby-1
  152. KILLVAR 'eyeskid',nextbaby-1
  153. KILLVAR 'cumarrcon',nextbaby-1
  154. KILLVAR '$wombpotfath'
  155. BabyEmbryo -= 1
  156. end
  157. nextbaby -= 1
  158. if nextbaby > 0: jump 'poliabortloop'
  159. killvar 'nextbaby'
  160. elseif $ARGS[0] = 'birthControlShot':
  161. !! Gives Sveta the effects of a birth control shot. Usage: gs 'medical_din','birthControlShot'
  162. !! Note: You have to make sure that she is not pregnant beforehead.
  163. !!length of shot
  164. tabletkishot = rand(84,91)
  165. !!How long before you can get next shot
  166. shotdays = 84
  167. !!Flag for protection type - shot
  168. tabletkicheck = 2
  169. !!Sets the actual drug in your system
  170. pillcon = 40000
  171. !!How much of the drug Sveta things is in her system
  172. pillcon2 = 40000
  173. elseif $ARGS[0] = 'healthTreatment':
  174. !! Gives Sveta an health treatment (like the doctors in the clinic do). Usage: gs 'medical_din','healthTreatment'
  175. if pain['head'] > 0:pain['head'] -= rand(7,13)
  176. if pain['hair'] > 0:pain['hair'] -= rand(7,13)
  177. if pain['ears'] > 0:pain['ears'] -= rand(7,13)
  178. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
  179. if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
  180. if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
  181. if pain['nose'] > 0:pain['nose'] -= rand(7,13)
  182. if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
  183. if pain['lips'] > 0:pain['lips'] -= rand(7,13)
  184. if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
  185. if pain['throat'] > 0:pain['throat'] -= rand(7,13)
  186. if pain['neck'] > 0:pain['neck'] -= rand(7,13)
  187. if pain['back'] > 0:pain['back'] -= rand(7,13)
  188. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
  189. if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
  190. if pain['hips'] > 0:pain['hips'] -= rand(7,13)
  191. if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
  192. if pain['legL'] > 0:pain['legL'] -= rand(7,13)
  193. if pain['legR'] > 0:pain['legR'] -= rand(7,13)
  194. if pain['feet'] > 0:pain['feet'] -= rand(7,13)
  195. if pain['toes'] > 0:pain['toes'] -= rand(7,13)
  196. if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
  197. if pain['armL'] > 0:pain['armL'] -= rand(7,13)
  198. if pain['armR'] > 0:pain['armR'] -= rand(7,13)
  199. if pain['hands'] > 0:pain['hands'] -= rand(7,13)
  200. if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
  201. if pain['chest'] > 0:pain['chest'] -= rand(7,13)
  202. if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
  203. if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
  204. if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
  205. if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
  206. if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
  207. if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
  208. if pain['labia'] > 0:pain['labia'] -= rand(7,13)
  209. if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
  210. if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
  211. if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
  212. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  213. if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
  214. elseif $ARGS[0] = 'healSTDs':
  215. !! Heals all STDs. Usage: gs 'medical_din','healSTDs'
  216. venera = 0
  217. GerpesOnce = 0
  218. Gerpes = 0
  219. SifacOnce = 0
  220. Sifilis = 0
  221. TriperOnce = 0
  222. Triper = 0
  223. TriperOral = 0
  224. KandidozOnce = 0
  225. Kandidoz = 0
  226. end
  227. if $ARGS[0] = 'morning_after_pill':
  228. morning_after_pill -= 1
  229. if arrsize('cumarrcpt') > 0:
  230. temp_ID = arrsize('cumarrcpt')
  231. :morning_after_womb_cleanup
  232. if cumarrcpt[temp_ID] > 0 and sparrloc[temp_ID] = 0:
  233. !'Removed <<cumarrcpt[temp_ID]>> sperm at <<cumarrppt[temp_ID]>> potency from <<$npc_usedname[$cumarrnam[temp_ID]]>>.'
  234. gs 'cum_cleanup', 'cleanwomb', temp_ID
  235. end
  236. if temp_ID > 0: temp_ID -= 1 & jump 'morning_after_womb_cleanup'
  237. killvar 'temp_ID'
  238. end
  239. *clr
  240. '<center><img <<$set_imgh>> src="images/shared/misc/pill.jpg"></center>'
  241. 'You put the pill in your mouth and swallow it down.'
  242. '<i>Well, that''s that,</i> you think to yourself. <i>Hopefully I won''t get pregnant now. I need to be more careful in the future.</i>'
  243. gs 'stat'
  244. end
  245. --- medical_din ---------------------------------