|
@@ -1,5 +1,103 @@
|
|
|
# medical_din
|
|
|
|
|
|
+if $ARGS[0] = 'birth_control':
|
|
|
+ if tabletkishot < 5 and money >= 2750 and knowpreg = 0 and bc_implant['status'] = 0:
|
|
|
+ act 'Get a birth control shot for 2750 <b>₽</b> (0:15)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 15
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
|
|
|
+ '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.'
|
|
|
+ if preg = 0:
|
|
|
+ money -= 2750
|
|
|
+ gs 'medical_din','birthControlShot'
|
|
|
+ '"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!"'
|
|
|
+ '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..."'
|
|
|
+ else
|
|
|
+ money -= 650
|
|
|
+ '"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
|
|
|
+ 'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
|
|
|
+ thinkpreg = 1
|
|
|
+ knowpreg = 1
|
|
|
+ end
|
|
|
+ gs 'stat'
|
|
|
+ act 'Leave': gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif tabletkishot < 5 and money < 2750 and knowpreg = 0 and bc_implant['status'] = 0:
|
|
|
+ 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>'
|
|
|
+ end
|
|
|
+
|
|
|
+ if bc_implant['status'] = 0 and money >= 19650 and knowpreg = 0:
|
|
|
+ act 'Get a birth control implant for 19,650 <b>₽</b> (0:35)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 15
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
|
|
|
+ '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.'
|
|
|
+ if preg = 0:
|
|
|
+ minut += 20
|
|
|
+ money -= 19650
|
|
|
+ bc_implant['status'] = 3
|
|
|
+ bc_implant['timer'] = 1095
|
|
|
+ pillcon += ((pillcon + 15000) / 25) + 4000
|
|
|
+ pillcon2 += ((pillcon2 + 15000) / 25) + 4000
|
|
|
+ '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
|
|
|
+ '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.'
|
|
|
+ '"All done! You should be good to go for three years."'
|
|
|
+ else
|
|
|
+ money -= 650
|
|
|
+ '"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
|
|
|
+ 'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
|
|
|
+ thinkpreg = 1
|
|
|
+ knowpreg = 1
|
|
|
+ end
|
|
|
+ gs 'stat'
|
|
|
+ act 'Leave': gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif bc_implant['status'] = 0 and money < 19650 and knowpreg = 0:
|
|
|
+ act 'Get a birth control implant for <font color="red">19,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
|
|
|
+ elseif bc_implant['status'] > 0:
|
|
|
+ if money >= 1000:
|
|
|
+ act 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 20
|
|
|
+ money -= 1000
|
|
|
+ bc_implant['status'] = 0
|
|
|
+ bc_implant['timer'] = 0
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
|
|
|
+ '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
|
|
|
+ '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!"'
|
|
|
+
|
|
|
+ act 'Leave': gt $loc, $metka
|
|
|
+ end
|
|
|
+ else
|
|
|
+ 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>'
|
|
|
+ end
|
|
|
+
|
|
|
+ if bc_implant['status'] < 3 and money >= 19650:
|
|
|
+ act 'Renew your birth control implant for 19,650 <b>₽</b> (0:20)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 20
|
|
|
+ money -= 19650
|
|
|
+ bc_implant['status'] = 3
|
|
|
+ bc_implant['timer'] = 1095
|
|
|
+ pillcon += ((pillcon + 15000) / 25) + 4000
|
|
|
+ pillcon2 += ((pillcon2 + 15000) / 25) + 4000
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
|
|
|
+ '"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
|
|
|
+ '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 a new one inside your arm.'
|
|
|
+ '"All done! You should be good to go for three years."'
|
|
|
+
|
|
|
+ act 'Leave': gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif bc_implant['status'] < 3 and money < 19650:
|
|
|
+ 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>'
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
if $ARGS[0] = 'abortion':
|
|
|
!! Aborts pregnency. Usage: gs 'medical_din','abortion'
|
|
|
vidage += 1
|