glife/sugarcube/src/autogenerated/Body/medical_din.tw

:: medical_din
<<set $here = 'medical_din'>>
<<set $ARGS = $location_var[$here]>>
<!-- !2021/05/02-->
<<if $location_var[$here][0] == 'birth_control'>>
	<<if getvar("$therapistFuckedPussyStage") < 2 and $pc.knowpreg == 0>>
		<<if getvar("$tabletkishot") < 5 and getvar("$birth_control['implant_status']") == 0>>
			<<if $finances.cash >= 2750>>
				<<actCLA 'Get a birth control shot for 2750 <b>₽</b> (0:15)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 15>>
					<<image "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 $pc.preg == 0>>
						<<set $finances.cash -= 2750>>
						<<gs 'medical_din' 'birthControlShot'>>
						<p>"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 <$pc.name_last!"</p>
						You thank her and wish her the same while you gather your things.
					<<else>>
						<<set $finances.cash -= 650>>
						"I'm sorry, but we can't give you the shot because you're pregnant."
						<p>After the initial shock subsides, you pay the 650 <b>₽</b> for the test and leave.</p>
						<<set $pc.thinkpreg = 1>>
						<<set $pc.knowpreg = 1>>
					<</if>>
					<<actCLA 'Leave'>>
						<<gt $location>>
					<</actCLA>>
				<</actCLA>>
			<<else>>
				<!-- FAILED TO CONVERT
					act 'Get a birth control shot for 2,750 <b>₽</b> (0:15)': '<br><font color="red">You don''t have enough money to get a birth control shot.</font>'
				-----
					<<actCLA 'Get a birth control shot for 2,750 <b>₽</b> (0:15)'>>
					<<set ERROR: FAILED TO CONVERT LITERAL: """'<br><font color""" = ERROR: FAILED TO CONVERT LITERAL: """"red">You don't have enough money to get a birth control shot.<""" / ERROR: FAILED TO CONVERT LITERAL: """font>'""">>
				<</actCLA>>

				-->
				<<warn "CONVERSION ERROR 94d1d8a2aa94f4ad6a4ef6cd0018825c">>
			<</if>>
		<</if>>
		<<if getvar("$birth_control['implant_status']") == 0>>
			<<if $finances.cash >= 19650>>
				<<actCLA 'Get a birth control implant for 19,650 <b>₽</b> (0:35)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 15>>
					<<image "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 $pc.preg == 0>>
						<<set $time.minutes += 20>>
						<<set $finances.cash -= 19650>>
						<<setinit $birth_control['implant_status'] = 3>>
						<<setinit $birth_control['implant_timer'] = 1095>>
						<<set $pillcon += (($pillcon + 15000) / 25) + 4000>>
						<<set $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.
						<p>"All done! You should be good to go for three years."</p>
					<<else>>
						<<set $finances.cash -= 650>>
						"I'm sorry, but we can't give you the implant because you're pregnant."
						<p>After the initial shock subsides, you pay the 650 <b>₽</b> for the test and leave.</p>
						<<set $pc.thinkpreg = 1>>
						<<set $pc.knowpreg = 1>>
					<</if>>
					<<actCLA 'Leave'>>
						<<gt $location>>
					<</actCLA>>
				<</actCLA>>
			<<else>>
				<!-- FAILED TO CONVERT
					act 'Get a birth control implant for 19,650 <b>₽</b>(0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
				-----
					<<actCLA 'Get a birth control implant for 19,650 <b>₽</b>(0:35)'>>
					<<set ERROR: FAILED TO CONVERT LITERAL: """'<br><font color""" = ERROR: FAILED TO CONVERT LITERAL: """"red">You don't have enough money to get a birth control implant.<""" / ERROR: FAILED TO CONVERT LITERAL: """font>'""">>
				<</actCLA>>

				-->
				<<warn "CONVERSION ERROR dcced54f159ab3bdb4749ec124015212">>
			<</if>>
		<<elseif getvar("$birth_control['implant_status']") == 1 or getvar("$birth_control['implant_status']") == 2>>
			<<if $finances.cash >= 19650>>
				<<actCLA 'Renew your birth control implant for 19,650 <b>₽</b> (0:35)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 15>>
					<<image "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 $pc.preg == 0>>
						<<set $time.minutes += 20>>
						<<set $finances.cash -= 19650>>
						<<setinit $birth_control['implant_status'] = 3>>
						<<setinit $birth_control['implant_timer'] = 1095>>
						<<set $pillcon += (($pillcon + 15000) / 25) + 4000>>
						<<set $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.
						<p>"All done! You should be good to go for another three years."</p>
					<<else>>
						<<setinit $birth_control['implant_status'] = 0>>
						<<setinit $birth_control['implant_timer'] = 0>>
						<<set $finances.cash -= 1650>>
						"I'm sorry, but we can't renew your implant because you're pregnant."
						<p>After the initial shock subsides, you pay the 1650 <b>₽</b> for the test and the removal of your old implant leave.</p>
						<<set $pc.thinkpreg = 1>>
						<<set $pc.knowpreg = 1>>
					<</if>>
					<<actCLA 'Leave'>>
						<<gt $location>>
					<</actCLA>>
				<</actCLA>>
			<<else>>
				<!-- FAILED TO CONVERT
					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>'
				-----
					<<actCLA 'Renew your control implant for <font color="red">19,650 <b>₽</b></font> (0:35)'>>
					<<set ERROR: FAILED TO CONVERT LITERAL: """'<br><font color""" = ERROR: FAILED TO CONVERT LITERAL: """"red">You don't have enough money to renew your birth control implant.<""" / ERROR: FAILED TO CONVERT LITERAL: """font>'""">>
				<</actCLA>>

				-->
				<<warn "CONVERSION ERROR 10b711ea961f0c6d2b21e76da80051ef">>
			<</if>>
		<</if>>
	<</if>>
	<<if getvar("$birth_control['implant_status']") > 0>>
		<<if $finances.cash >= 1000>>
			<<actCLA 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 20>>
				<<set $finances.cash -= 1000>>
				<<setinit $birth_control['implant_status'] = 0>>
				<<setinit $birth_control['implant_timer'] = 0>>
				<<image "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."
				<p>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!"</p>
				<<actCLA 'Leave'>>
					<<gt $location>>
				<</actCLA>>
			<</actCLA>>
		<<else>>
			<!-- FAILED TO CONVERT
				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>'
			-----
				<<actCLA 'Remove your birth control implant for <font color="red">1,000 <b>₽</b></font> (0:35)'>>
				<<set ERROR: FAILED TO CONVERT LITERAL: """'<br><font color""" = ERROR: FAILED TO CONVERT LITERAL: """"red">You don't have enough money to remove your birth control implant.<""" / ERROR: FAILED TO CONVERT LITERAL: """font>'""">>
			<</actCLA>>

			-->
			<<warn "CONVERSION ERROR a6663784fd70ab8eca14e70b772dfa10">>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'abortion'>>
	<!-- !! Aborts pregnency. Usage: gs 'medical_din','abortion'-->
	<<set $pc.visualAge += 1>>
	<<set $abort += 1>>
	<<set $abortionbirthdate = $time.daystart>>
	<<gs 'medical_din' 'remove_preg'>>
	<<set $pc.knowpregloss = 2>>
	<<set $abortrand = rand(0, 10)>>
	<<if getvar("$pc.age") > 18>>
		<<if getvar("$abortrand") < 10>>
			<<setn $sterilewb += 1>>

		<</if>>
		<<if getvar("$abortrand") == 10>>
			<<setn $sterilewb += 10>>

		<</if>>
	<<else>>
		<<if getvar("$abortrand") < 7>>
			<<setn $sterilewb += 2>>

		<</if>>
		<<if getvar("$abortrand") >= 7>>
			<<setn $sterilewb += 10>>

		<</if>>
	<</if>>
	<<set $abortrand to null>>
	<!-- !! I am not sure, why is it here this cycle, but I leave it so (rachels)-->
	<<set $pc.pcs_hydra += 20>>
	<<if getvar("$broodcurse") > 0>>
		<<set $pc.gameover= 13>> <<gt 'gameover'>>

	<</if>>
<<elseif $location_var[$here][0] == 'remove_preg'>>
	<<set $pc.pregtime = 0>>
	<<set $pc.pregtalk = 0>>
	<<set $pcs_pregtalk = 0>>
	<<run $npcs.set('A16','pregtalk',0)>>
	<<run $npcs.set('A34','pregtalk',0)>>
	<<set $pc.preg = 0>>
	<<set $pc.thinkpreg = 0>>
	<<set $pc.knowpreg = 0>>
	<<set $pc.pregchem = 0>>
	<<set $cycle = 4>>
	<!-- !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks-->
	<<set $RecovH = rand(375,575)>>
	<<set $nextbaby = arrsize('yearkid')>>
	<<warn 'JUMP MARKER ENCOUNTERED: :poliabortloop'>>
	<!-- !!Changed to check if baby has a birth year instead, if it doesn''t, do abortion-->
	<<if $time.yearkid[$nextbaby - 1] == 0>>
		<<set $polkid[$nextbaby - 1] to null>>
		<<set $kidname[$nextbaby - 1] to null>>
		<<set $kidage[$nextbaby - 1] to null>>
		<<set $time.daykid[$nextbaby - 1] to null>>
		<<set $time.monthkid[$nextbaby - 1] to null>>
		<<set $time.yearkid[$nextbaby - 1] to null>>
		<<set $Babyptype[$nextbaby - 1] to null>>
		<<set $ChildFath[$nextbaby - 1] to null>>
		<<set $ChildThFath[$nextbaby - 1] to null>>
		<<set $hairkid[$nextbaby - 1] to null>>
		<<set $eyeskid[$nextbaby - 1] to null>>
		<<set $cumarrcon[$nextbaby - 1] to null>>
		<<set $wombpotfath to null>>
		<<set $BabyEmbryo -= 1>>
	<</if>>
	<<set $nextbaby -= 1>>
	<<if getvar("$nextbaby") > 0>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump poliabortloop'>>

	<</if>>
	<<set $nextbaby to null>>
<<elseif $location_var[$here][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-->
	<<set $tabletkishot = rand(84,91)>>
	<!-- !!How long before you can get next shot-->
	<<set $shotdays = 93>>
	<!-- !!Flag for protection type - shot-->
	<<set $tabletkicheck = 2>>
	<!-- !!Sets the actual drug in your system-->
	<<set $pillcon = 40000>>
	<!-- !!How much of the drug Sveta things is in her system-->
	<<set $pillcon2 = 40000>>
<<elseif $location_var[$here][0] == 'healthTreatment'>>
	<!-- !! Gives Sveta an health treatment (like the doctors in the clinic do). Usage: gs 'medical_din','healthTreatment'-->
	<<if $pc.pain('head') > 0>>
		<<run $pc.painDec('head',rand(7,13))>>

	<</if>>
	<<if $pc.pain('hair') > 0>>
		<<run $pc.painDec('hair',rand(7,13))>>

	<</if>>
	<<if $pc.pain('ears') > 0>>
		<<run $pc.painDec('ears',rand(7,13))>>

	<</if>>
	<<if $pc.pain('eyebrows') > 0>>
		<<run $pc.painDec('eyebrows',rand(7,13))>>

	<</if>>
	<<if $pc.pain('eyes') > 0>>
		<<run $pc.painDec('eyes',rand(7,13))>>

	<</if>>
	<<if $pc.pain('cheeks') > 0>>
		<<run $pc.painDec('cheeks',rand(7,13))>>

	<</if>>
	<<if $pc.pain('nose') > 0>>
		<<run $pc.painDec('nose',rand(7,13))>>

	<</if>>
	<<if $pc.pain('mouth') > 0>>
		<<run $pc.painDec('mouth',rand(7,13))>>

	<</if>>
	<<if $pc.pain('lips') > 0>>
		<<run $pc.painDec('lips',rand(7,13))>>

	<</if>>
	<<if $pc.pain('tongue') > 0>>
		<<run $pc.painDec('tongue',rand(7,13))>>

	<</if>>
	<<if $pc.pain('throat') > 0>>
		<<run $pc.painDec('throat',rand(7,13))>>

	<</if>>
	<<if $pc.pain('neck') > 0>>
		<<run $pc.painDec('neck',rand(7,13))>>

	<</if>>
	<<if $pc.pain('back') > 0>>
		<<run $pc.painDec('back',rand(7,13))>>

	<</if>>
	<<if $pc.pain('asscheeks') > 0>>
		<<run $pc.painDec('asscheeks',rand(7,13))>>

	<</if>>
	<<if $pc.pain('asshole') > 0>>
		<<run $pc.painDec('asshole',rand(7,13))>>

	<</if>>
	<<if $pc.pain('hips') > 0>>
		<<run $pc.painDec('hips',rand(7,13))>>

	<</if>>
	<<if $pc.pain('thighs') > 0>>
		<<run $pc.painDec('thighs',rand(7,13))>>

	<</if>>
	<<if $pc.pain('legL') > 0>>
		<<run $pc.painDec('legL',rand(7,13))>>

	<</if>>
	<<if $pc.pain('legR') > 0>>
		<<run $pc.painDec('legR',rand(7,13))>>

	<</if>>
	<<if $pc.pain('feet') > 0>>
		<<run $pc.painDec('feet',rand(7,13))>>

	<</if>>
	<<if $pc.pain('toes') > 0>>
		<<run $pc.painDec('toes',rand(7,13))>>

	<</if>>
	<<if $pc.pain('shoulders') > 0>>
		<<run $pc.painDec('shoulders',rand(7,13))>>

	<</if>>
	<<if $pc.pain('armL') > 0>>
		<<run $pc.painDec('armL',rand(7,13))>>

	<</if>>
	<<if $pc.pain('armR') > 0>>
		<<run $pc.painDec('armR',rand(7,13))>>

	<</if>>
	<<if $pc.pain('hands') > 0>>
		<<run $pc.painDec('hands',rand(7,13))>>

	<</if>>
	<<if $pc.pain('fingers') > 0>>
		<<run $pc.painDec('fingers',rand(7,13))>>

	<</if>>
	<<if $pc.pain('chest') > 0>>
		<<run $pc.painDec('chest',rand(7,13))>>

	<</if>>
	<<if $pc.pain('breasts') > 0>>
		<<run $pc.painDec('breasts',rand(7,13))>>

	<</if>>
	<<if $pc.pain('nipples') > 0>>
		<<run $pc.painDec('nipples',rand(7,13))>>

	<</if>>
	<<if $pc.pain('ribs') > 0>>
		<<run $pc.painDec('ribs',rand(7,13))>>

	<</if>>
	<<if $pc.pain('tummy') > 0>>
		<<run $pc.painDec('tummy',rand(7,13))>>

	<</if>>
	<<if $pc.pain('pubic') > 0>>
		<<run $pc.painDec('pubic',rand(7,13))>>

	<</if>>
	<<if $pc.pain('vaginal') > 0>>
		<<run $pc.painDec('vaginal',rand(7,13))>>

	<</if>>
	<<if $pc.pain('labia') > 0>>
		<<run $pc.painDec('labia',rand(7,13))>>

	<</if>>
	<<if $pc.pain('clitoris') > 0>>
		<<run $pc.painDec('clitoris',rand(7,13))>>

	<</if>>
	<<if $pc.pain('urethra') > 0>>
		<<run $pc.painDec('urethra',rand(7,13))>>

	<</if>>
	<<if $pc.pain('cervix') > 0>>
		<<run $pc.painDec('cervix',rand(7,13))>>

	<</if>>
	<<set $pc.pcs_health = $pc.vitality * 10 + $pc.skillLevel("strength") * 5 + 1000>>
	<<if getvar("$pillcon") > 0 and rand(0,4) == 0>>
		<<setn $pillcon -= 2500>>

	<</if>>
	<<set $Kandidoz = Math.min(Kandidoz,0)>>
<<elseif $location_var[$here][0] == 'healSTDs'>>
	<!-- !! Heals all STDs. Usage: gs 'medical_din','healSTDs'-->
	<<set $venera = 0>>
	<<set $GerpesOnce = 0>>
	<<set $Gerpes = 0>>
	<<set $SifacOnce = 0>>
	<<set $Sifilis = 0>>
	<<set $TriperOnce = 0>>
	<<set $Triper = 0>>
	<<set $TriperOral = 0>>
	<<set $KandidozOnce = 0>>
	<<set $Kandidoz = 0>>
<</if>>
<<if $location_var[$here][0] == 'morning_after_pill_function'>>
	<<if arrsize('cumarrcpt') > 0>>
		<<set $temp_ID = arrsize('cumarrcpt')>>
		<<warn 'JUMP MARKER ENCOUNTERED: :morning_after_womb_cleanup'>>
		<<if getvar("$cumarrcpt["+$temp_ID+"]") > 0 and getvar("$sparrloc["+$temp_ID+"]") == 0>>
			<!-- !'Removed <<cumarrcpt[$temp_ID]>> sperm at <<cumarrppt[$temp_ID]>> potency from <<<<=$npcs.get($cumarrnam[$temp_ID,'usedname')>>]>>.'-->
			<<gs 'cum_cleanup' 'cleanwomb' $temp_ID>>
		<</if>>
		<<if getvar("$temp_ID") > 0>>
			<<setn $temp_ID -= 1>> 

		<</if>>
		<<set $temp_ID to null>>
	<</if>>
	<<run $pc.sexStatInc('morning_after_pill','aware',1)>>
	<<set $morning_after_pill -= 1>>
<</if>>
<<if $location_var[$here][0] == 'morning_after_pill'>>
	 	<<if $locclass == 'kitr'>>
		<<image "pc/items/accessories/birthcontrol/pill_take2.jpg">>
		<<if getvar("$LudaQW['free_condoms']") == 1 and $pc.sexStat('morning_after_pill') == 0>>
			<i>I suppose this is why Aunt Luda gave me this,</i> you think as you take out the morning after pill.
		<</if>>
		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>>
		<<image "pc/items/accessories/birthcontrol/pill_take1.jpg">>
		<<if getvar("$LudaQW['free_condoms']") == 1 and $pc.sexStat('morning_after_pill') == 0>>
			<i>I suppose this is why Aunt Luda gave me this,</i> you think as you take out the morning after pill.
		<</if>>
		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.
	<</if>>
	<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>
	<<gs 'medical_din' 'morning_after_pill_function'>>
<</if>>