# medical_din
!2021/05/02
if $ARGS[0] = 'birth_control':
if therapistFuckedPussyStage < 2 and knowpreg = 0:
if tabletkishot < 5 and birth_control['implant_status'] = 0:
if money >= 2750:
act 'Get a birth control shot for 2750 ₽ (0:15)':
*clr & cla
menu_off = 1
minut += 15
'
> src="images/locations/shared/clinic/poli.jpg">'
'You''re escorted into an examination room, where you''re told that they must 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. "All done! You should be good for three months, give or take. It depends on 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 <<$pcs_lastname>>!"'
'You thank her and wish her the same while you gather your things.'
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 ₽ for the test and leave.'
thinkpreg = 1
knowpreg = 1
end
gs 'stat'
act 'Leave': gt $loc, $loc_arg
end
else
act 'Get a birth control shot for 2,750 ₽ (0:15)': '
You don''t have enough money to get a birth control shot.'
end
end
if birth_control['implant_status'] = 0:
if money >= 19650:
act 'Get a birth control implant for 19,650 ₽ (0:35)':
*clr & cla
menu_off = 1
minut += 15
'> src="images/locations/shared/clinic/poli.jpg">'
'You''re escorted into an examination room, where you''re told that they must 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
birth_control['implant_status'] = 3
birth_control['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''s no 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 implant because you''re pregnant."'
'After the initial shock subsides, you pay the 650 ₽ for the test and leave.'
thinkpreg = 1
knowpreg = 1
end
gs 'stat'
act 'Leave': gt $loc, $loc_arg
end
else
act 'Get a birth control implant for 19,650 ₽(0:35)': '
You don''t have enough money to get a birth control implant.'
end
elseif birth_control['implant_status'] = 1 or birth_control['implant_status'] = 2:
if money >= 19650:
act 'Renew your birth control implant for 19,650 ₽ (0:35)':
*clr & cla
menu_off = 1
minut += 15
'> src="images/locations/shared/clinic/poli.jpg">'
'You''re escorted into an examination room, where you''re 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
birth_control['implant_status'] = 3
birth_control['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, takes out your old implant and pushes in a new one.'
'"All done! You should be good to go for another three years."'
else
birth_control['implant_status'] = 0
birth_control['implant_timer'] = 0
money -= 1650
'"I''m sorry, but we can''t renew your implant because you''re pregnant."'
'After the initial shock subsides, you pay the 1650 ₽ for the test and the removal of your old implant leave.'
thinkpreg = 1
knowpreg = 1
end
gs 'stat'
act 'Leave': gt $loc, $loc_arg
end
else
act 'Renew your control implant for 19,650 ₽ (0:35)': '
You don''t have enough money to renew your birth control implant.'
end
end
end
if birth_control['implant_status'] > 0:
if money >= 1000:
act 'Remove your birth control implant for 1,000 ₽ (0:20)':
*clr & cla
menu_off = 1
minut += 20
money -= 1000
birth_control['implant_status'] = 0
birth_control['implant_timer'] = 0
gs 'stat'
'> src="images/locations/shared/clinic/poli.jpg">'
'"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 removes your implant. "All done!"'
act 'Leave': gt $loc, $loc_arg
end
else
act 'Remove your birth control implant for 1,000 ₽ (0:35)': '
You don''t have enough money to remove your birth control implant.'
end
end
end
if $ARGS[0] = 'abortion':
!! Aborts pregnency. Usage: gs 'medical_din','abortion'
vidage += 1
abort += 1
abortionbirthdate = daystart
gs 'medical_din', 'remove_preg'
knowpregloss = 1
abortrand = rand(0, 10)
if age > 18:
if abortrand < 10:sterilewb += 1
if abortrand = 10:sterilewb += 10
else
if abortrand < 7:sterilewb += 2
if abortrand >= 7:sterilewb += 10
end
killvar 'abortrand'
!! I am not sure, why is it here this cycle, but I leave it so (rachels)
pcs_hydra += 20
if broodcurse > 0: over = 13 & gt'gameover'
elseif $ARGS[0] = 'remove_preg':
pregtime = 0
pregtalk = 0
pcs_pregtalk = 0
npc_pregtalk['A16'] = 0
npc_pregtalk['A34'] = 0
preg = 0
thinkpreg = 0
knowpreg = 0
pregchem = 0
cycle = 4
!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
RecovH = rand(375,575)
nextbaby = arrsize('yearkid')
:poliabortloop
!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
if yearkid[nextbaby-1] = 0:
KILLVAR 'polkid',nextbaby-1
KILLVAR '$kidname',nextbaby-1
KILLVAR 'kidage',nextbaby-1
KILLVAR 'daykid',nextbaby-1
KILLVAR 'monthkid',nextbaby-1
KILLVAR 'yearkid',nextbaby-1
KILLVAR 'Babyptype',nextbaby-1
KILLVAR '$ChildFath',nextbaby-1
KILLVAR '$ChildThFath',nextbaby-1
KILLVAR 'hairkid',nextbaby-1
KILLVAR 'eyeskid',nextbaby-1
KILLVAR 'cumarrcon',nextbaby-1
KILLVAR '$wombpotfath'
BabyEmbryo -= 1
end
nextbaby -= 1
if nextbaby > 0: jump 'poliabortloop'
killvar 'nextbaby'
elseif $ARGS[0] = 'birthControlShot':
!! Gives Sveta the effects of a birth control shot. Usage: gs 'medical_din','birthControlShot'
!! Note: You have to make sure that she is not pregnant beforehead.
!!length of shot
tabletkishot = rand(84,91)
!!How long before you can get next shot
shotdays = 93
!!Flag for protection type - shot
tabletkicheck = 2
!!Sets the actual drug in your system
pillcon = 40000
!!How much of the drug Sveta things is in her system
pillcon2 = 40000
elseif $ARGS[0] = 'healthTreatment':
!! Gives Sveta an health treatment (like the doctors in the clinic do). Usage: gs 'medical_din','healthTreatment'
if pain['head'] > 0:pain['head'] -= rand(7,13)
if pain['hair'] > 0:pain['hair'] -= rand(7,13)
if pain['ears'] > 0:pain['ears'] -= rand(7,13)
if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
if pain['nose'] > 0:pain['nose'] -= rand(7,13)
if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
if pain['lips'] > 0:pain['lips'] -= rand(7,13)
if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
if pain['throat'] > 0:pain['throat'] -= rand(7,13)
if pain['neck'] > 0:pain['neck'] -= rand(7,13)
if pain['back'] > 0:pain['back'] -= rand(7,13)
if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
if pain['hips'] > 0:pain['hips'] -= rand(7,13)
if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
if pain['legL'] > 0:pain['legL'] -= rand(7,13)
if pain['legR'] > 0:pain['legR'] -= rand(7,13)
if pain['feet'] > 0:pain['feet'] -= rand(7,13)
if pain['toes'] > 0:pain['toes'] -= rand(7,13)
if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
if pain['armL'] > 0:pain['armL'] -= rand(7,13)
if pain['armR'] > 0:pain['armR'] -= rand(7,13)
if pain['hands'] > 0:pain['hands'] -= rand(7,13)
if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
if pain['chest'] > 0:pain['chest'] -= rand(7,13)
if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
if pain['labia'] > 0:pain['labia'] -= rand(7,13)
if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
Kandidoz = min(Kandidoz,0)
elseif $ARGS[0] = 'healSTDs':
!! Heals all STDs. Usage: gs 'medical_din','healSTDs'
venera = 0
GerpesOnce = 0
Gerpes = 0
SifacOnce = 0
Sifilis = 0
TriperOnce = 0
Triper = 0
TriperOral = 0
KandidozOnce = 0
Kandidoz = 0
end
if $ARGS[0] = 'morning_after_pill_function':
!! new morning after pill function that is meant to try to stop an egg from releasing
!! if an egg has already released, it will be of no help
if cycle = 1: FocH -= 120
!! old function that kills sperm potency is unrealistic
!!{
if arrsize('cumarrcpt') > 0:
temp_ID = arrsize('cumarrcpt')
:morning_after_womb_cleanup
if cumarrcpt[temp_ID] > 0 and sparrloc[temp_ID] = 0:
!'Removed <> sperm at <> potency from <<$npc_usedname[$cumarrnam[temp_ID]]>>.'
gs 'cum_cleanup', 'cleanwomb', temp_ID
end
if temp_ID > 0: temp_ID -= 1 & jump 'morning_after_womb_cleanup'
killvar 'temp_ID'
end
}
stat['morning_after_pill'] += 1
mc_inventory['morning_after_pill'] -= 1
if LudaQW['free_condoms'] = 1 and LudaQW['luda_ma_pill'] = 0: LudaQW['luda_ma_pill'] = 1
stat['last_morning_after_pill'] = daystart
end
if $ARGS[0] = 'morning_after_pill':
*clr
'> src="images/pc/items/accessories/birthcontrol/morning_after_pill.jpg">'
'The instructions say: Intended to try to stop an egg from releasing and if an egg has already released, it will be of no help'
if knowpreg = 0 and thinkpreg = 0:
act 'Swallow':
*clr
delact 'Swallow' & delact 'Reconsider'
'> src="images/pc/items/accessories/birthcontrol/pill_take'+iif($locclass='kitr',2,1)+'.jpg">'
if LudaQW['free_condoms'] = 1 and LudaQW['luda_ma_pill'] = 0:
LudaQW['luda_ma_pill'] = 1
'I suppose this is why Aunt Luda gave me this, you think as you take out the morning after pill.'
end
if $locclass = 'kitr':
'You fill up a small glass of water and pop the pill out of the packaging. Putting it in your mouth, you gulp and wash it down with sips of water from the glass.'
else
'Removing the pill from the packaging, you pop it in your mouth and gulp it down dry, wincing in discomfort as you feel it stick slightly on the way down.'
end
'Well, that''s that, you think to yourself. Hopefully I won''t get pregnant now. I need to be more careful in the future.'
gs 'medical_din','morning_after_pill_function'
gs 'stat'
end
act 'Reconsider': delact 'Swallow' & delact 'Reconsider'
elseif knowpreg = 1:
'I''m already pregnant, what''s the point?'
else
'If I''m pregnant, what''s the point?'
end
end
if $ARGS[0] = 'give_birth':
*clr & cla
menu_off = 1
if kid > 0:
minut += rand(300,660)
else
minut += rand(120,480)
end
'> src="images/locations/shared/clinic/birthing.jpg">'
'You lay on the bed and your feet are put in stirrups. Your contractions get closer and closer, and after some time and a lot of swearing, you finally give birth.'
:multikidloop
minut += rand(30, 90)
sterilewb += 1
nextbaby = arrpos('$kidname', 'unborn')
kid += 1
BabyEmbryo -= 1
daykid[nextbaby] = day
monthkid[nextbaby] = month
yearkid[nextbaby] = year
if polkid[nextbaby] = 0:
$polreb[nextbaby] = 'girl'
'"Congratulations, it''s a girl! What is her name?"'
else
$polreb[nextbaby] = 'boy'
'"Congratulations, it''s a boy! What is his name?"'
end
wait 350
$kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>''s name")
if $kidname[nextbaby] = '':
if polkid[nextbaby] = 0:
$kidname[nextbaby] = 'Masha'
else
$kidname[nextbaby] = 'Misha'
end
end
'The doctors clean up <<$kidname[nextbaby]>>.'
if BabyEmbryo > 0:
'You don''t have much time to look at your <<$polreb[nextbaby]>> because you''re having an another contraction. Your next baby is coming!'
jump 'multikidloop'
end
preg = 0
!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~6-10 weeks
RecovH = rand(1175, 1875)
pregbirthdate = daystart
thinkpreg = 0
knowpreg = 0
knowpregrecover = 1
vidage += 1
pregtalk = 0
pcs_pregtalk = 0
pregTalkFamily = 0
npc_pregtalk['A16'] = 0
npc_pregtalk['A34'] = 0
npc_pregtalk['A29'] = 0
pregchem = 0
pcs_mass['preg'] = pcs_mass['preg'] / 2
if pcs_mass['preg'] > 0: bodyVars['RecovH_next'] = (RecovH * (pcs_mass['preg']-1)) / pcs_mass['preg']
cycle = 4
gs 'cum_cleanup', 'reset'
dynamic $d_cycreport_choice
gs 'stat'
end
--- medical_din ---------------------------------