glife/locations/clinic_functions.qsrc

# clinic_functions

if $ARGS[0] = 'set_abortion_act':
	if preg = 1 and pregchem < 1863 and knowpreg = 1:
		if max(money, karta) < 15000:
			act 'Get an abortion (<font color="red">15,000 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to have an abortion.</font>'
		else
			act 'Get an abortion (15,000 <b>₽</b>)':
				cla
				if money >= 15000:
					act 'Pay in cash':
						xgt 'clinic_functions', 'get_abortion', 'money'
					end
				end
				if karta >= 15000:
					act 'Pay with card':
						xgt 'clinic_functions', 'get_abortion', 'karta'
					end
				end
				act 'Return to the entrance': gt $loc, $loc_arg
			end
		end
	end
end

if $ARGS[0] = 'get_abortion':
	if $ARGS[1] = 'money':
		money -= 15000
	else
		karta -= 15000
	end

	minut += 60
	if $region = 'city':
		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
	end
	'You spread out on a gynecological chair at an angle where you can''t see what''s going on. You feel nauseous and violated as a nurse hands you a single aspirin and a glass of muddy-looking water to down it with.'

	gs 'medical_din', 'abortion'

	gs 'stat'
	act 'Return to the entrance': gt $loc, $loc_arg
end



if $ARGS[0] = 'set_dentist_act':
	if (pcs_teeth > -1 and (dentistday < daystart or dentistday = 0)) or (pcs_missing_teeth > 0  and pcs_brace = 0):
		act 'Go to the dentist':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/shared/clinic/dentist.jpg"></center>'
			menu_off = 1
			minut += 15
			gs 'stat'

			if pcs_brace = 1:
				pcs_brace = 0
				pcs_teeth -= 1
				'The dentist spends 15 minutes taking off your brace and cleaning up. You look in the mirror afterwards and your teeth are '+iif(pcs_teeth = 0, 'now straight', 'straighter, but can still use some more work.')
				gs 'AppearanceSystem', 'UpdateBaseAppearance'
				gs 'stat'
			else
				if pcs_missing_teeth = 1:
					zubpay = 30000
					'The dentist examines you and says it will cost 3000 <b>₽</b> to replace your tooth.'
				elseif pcs_missing_teeth > 1:
					zubpay = pcs_missing_teeth * 30000
					'The dentist examines you and says it will cost <<pcs_missing_teeth * 30000>> <b>₽</b> to fill the gaps.'
				elseif pcs_teeth = 0:
					zubpay = 3000
					'The dentist examines you and says, it will cost 3000 <b>₽</b> to brighten and polish your teeth.'
				elseif pcs_teeth > 0:
					zubpay = 4500
					'The dentist examinees you and says it will cost 4500 <b>₽</b> to straighten your teeth and that you''ll have to wear a brace for three months. However, he states that he can''t promise they will be completely straight after one treatment.'
				end

				if max(money, karta) < zubpay:
					*nl
					'You do not have enough money to fix your teeth.'
				else
					dynamic "
						if money >= <<zubpay>>:
							act 'Sort out your teeth (<<zubpay>> <b>₽</b>) (cash)':
								xgt 'clinic_functions', 'fix_teeth', <<zubpay>>, 'money'
							end
						end
						if karta >= <<zubpay>>:
							act 'Sort out your teeth (<<zubpay>> <b>₽</b>) (card)':
								xgt 'clinic_functions', 'fix_teeth', <<zubpay>>, 'karta'
							end
						end
					"
				end
				killvar 'zubpay'
			end

			act 'Return to the entrance': gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'fix_teeth':
	act 'Return to the entrance': gt $loc, $loc_arg

	if $ARGS[2] = 'money':
		money -= ARGS[1]
	else
		karta -= ARGS[1]
	end

	minut += 60
	if pcs_missing_teeth > 0:
		pcs_missing_teeth = 0
		'You pay the dentist to fix your teeth and he has restored your winning smile within an hour.'
	elseif pcs_teeth > 0:
		dentistday = daystart + 180
		pcs_brace = 1
		'You pay the dentist to straighten your teeth. After an hour of work, he has attached a brace to your teeth and tells you to come back in six months to have it taken off.'
	else
		dentistday = daystart + 90
		pcs_teeth = -1
		'You pay the dentist to brighten and polish your teeth and an hour later, your smile is much brighter and more attractive.'
	end
	gs 'AppearanceSystem', 'UpdateBaseAppearance'
	gs 'stat'
end



if $ARGS[0] = 'set_optometrist_acts':
	if glassqw = 1:
		act 'Visit the optometrist (0:35)':
			*clr & cla
			menu_off = 1
			minut += 35
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/optometrist.jpg"></center>'
			'The optometrist takes you through a series of tests to measure the condition of your eyes.'
			'He looks at you as if he has bad news for you. "Well, you probably already expected this, but your vision has deteriorated significantly. You''re going to need glasses to be able to read. The prescription I''m writing for you is for a simple set of rimmed glasses which you can pick up at the front desk before you leave."'
			'He hands you a piece of paper. "Of course you can get a different pair elsewhere if you want better looking ones, the details for which ones you need are on your prescription. You can also get laser vision correction if you really don''t want to use glasses, but I''m going to be honest with you: that''s a very expensive procedure."'
			pcs_nerd += 1
			glassqw = 2
			glass = 1
			blizoruk += 1
			act 'Return to the entrance': gt $loc, $loc_arg
		end
	end

	if glass > 0:
		act 'Go to the optometrist':
			*clr & cla
			menu_off = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/optometrist.jpg"></center>'
			'The optometrist examines your eyes and says that he can perform laser eye surgery for 75,000 <b>₽</b>. Of course, reading books can cause your eyesight to deteriorate again.'

			if glass = 1: 'The optometrist also tells you about the option to buy glasses for 4,500 <b>₽</b>.'

			act 'Return to the entrance': gt $loc, $loc_arg

			if glass = 1:
				if max(money, karta) < 4500:
					*nl
					'You can''t afford the more stylish glasses.'
				else
					if money >= 4500:
						act 'Buy glasses (4,500 <b>₽</b>) (cash)':
							xgt 'clinic_functions', 'buy_stylish_glasses', 'money'
						end
					end
					if karta >= 4500:
						act 'Buy glasses (4,500 <b>₽</b>) (card)':
							xgt 'clinic_functions', 'buy_stylish_glasses', 'karta'
						end
					end
				end
			end

			if glass ! 0:
				if max(money, karta) < 75000:
					*nl
					'You can''t afford the laser eye correction surgery.'
				else
					if money >= 75000:
						act 'Pay for laser correction (75,000 <b>₽</b>) (cash)':
							xgt 'clinic_functions', 'buy_laser_correction', 'money'
						end
					end
					if karta >= 75000:
						act 'Pay for laser correction (75,000 <b>₽</b>) (card)':
							xgt 'clinic_functions', 'buy_laser_correction', 'karta'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'buy_stylish_glasses':
	if $ARGS[1] = 'money':
		money -= 4500
	else
		karta -= 4500
	end
	minut += 60
	glass = 2
	gs 'AppearanceSystem', 'UpdateBaseAppearance'
	gs 'stat'
	'You buy a new, more stylish pair of glasses.'

	act 'Return to the entrance': gt $loc, $loc_arg
end

if $ARGS[0] = 'buy_laser_correction':
	if $ARGS[1] = 'money':
		money -= 75000
	else
		karta -= 75000
	end
	minut += 60
	blizoruk = 0
	glass = 0
	gs 'body_desc'
	gs 'stat'
	'You undergo laser eye surgery. Your eyesight is much better now.'
	act 'Return to the entrance': gt $loc, $loc_arg
end




if $ARGS[0] = 'set_std_herpes_shot_act':
	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
		if max(money, karta) < 450:
			*nl
			'You can''t afford your herpes shot.'
		else
			if money >= 450:
				act 'Get herpes shot (450 <b>₽</b>) (cash) You need <<GerpesNapr>> more injections to complete the treatment':
					money -= 450
					xgt 'clinic_functions', 'herpes_shot'
				end
			end
			if karta >= 450:
				act 'Get herpes shot (450 <b>₽</b>) (card) You need <<GerpesNapr>> more injections to complete the treatment':
					karta -= 450
					xgt 'clinic_functions', 'herpes_shot'
				end
			end
		end
	end
end

if $ARGS[0] = 'set_std_gonorrhea_shot_act':
	if TriperNapr > 0 and TriperUkolDay ! daystart:
		if max(money, karta) < 750:
			*nl
			'You can''t afford your gonorrhea shot.'
		else
			if money >= 750:
				act 'Get gonorrhea shot (750 <b>₽</b>) (cash) You need <<TriperNapr>> more injections to complete the treatment':
					money -= 750
					xgt 'clinic_functions', 'gonorrhea_shot'
				end
			end
			if karta >= 750:
				act 'Get gonorrhea shot (750 <b>₽</b>) (card) You need <<TriperNapr>> more injections to complete the treatment':
					karta -= 750
					xgt 'clinic_functions', 'gonorrhea_shot'
				end
			end
		end
	end
end

if $ARGS[0] = 'set_std_syphilis_shot_act':
	if SifNapr = 1:
		if max(money, karta) < 1000:
			*nl
			'You can''t afford your syphilis shot.'
		else
			if money >= 1000:
				act 'Get syphilis shot (1,000 <b>₽</b>) (cash)':
					money -= 1000
					xgt 'clinic_functions', 'syphilis_shot'
				end
			end
			if karta >= 1000:
				act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
					karta -= 1000
					xgt 'clinic_functions', 'syphilis_shot'
				end
			end
		end
	end
end

if $ARGS[0] = 'set_std_herpes_cure_act':
	if GerpesOnce = 1 and week = 1 and day <= 10:
		if max(money, karta) < 45000:
			*nl
			'You to go to private clinic and completely cure your herpes.'
		else
			if money >= 45000:
				act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (cash)':
					money -= 45000
					xgt 'clinic_functions', 'herpes_cure'
				end
			end
			if karta >= 45000:
				act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (card)':
					karta -= 45000
					xgt 'clinic_functions', 'herpes_cure'
				end
			end
		end
	end
end
if $ARGS[0] = 'set_std_yeast_cure_act':
	if KandidozOnce = 1:
		if max(money, karta) < 15000:
			*nl
			'You can''t afford to go to the private clinic and completely cure your yeast infection.'
		else
			if money >= 15000:
				act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (cash)':
					money -= 15000
					xgt 'clinic_functions', 'yeast_cure'
				end
			end
			if karta >= 15000:
				act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (card)':
					karta -= 15000
					xgt 'clinic_functions', 'yeast_cure'
				end
			end
		end
	end
end


if $ARGS[0] = 'herpes_shot':
	*clr & cla
	minut += 15
	GerpesUkolDay = daystart
	GerpesNapr -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'

	if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
	act 'Leave': gt $loc, $loc_arg
end

if $ARGS[0] = 'gonorrhea_shot':
	*clr & cla
	minut += 15
	TriperUkolDay = daystart
	TriperNapr -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'

	if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'

	act 'Leave': gt $loc, $loc_arg
end

if $ARGS[0] = 'syphilis_shot':
	*clr & cla
	minut += 60
	SifNapr = 0
	SifacOnce = 0
	Sifilis = 0
	Venera -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'
	'"That''s it. You might still feel a little off, but the infection is now cured."'

	act 'Leave': gt $loc, $loc_arg
end

if $ARGS[0] = 'yeast_cure':
	*clr & cla
	menu_off = 1
	day += 3
	week += 3
	KandidozOnce = 0
	Kandidoz = 0
	gs 'stat'
	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
	'After a long recovery, you have been completely cured of your yeast infection.'

	act 'Leave': gt $loc, $loc_arg
end

if $ARGS[0] = 'herpes_cure':
	*clr & cla
	menu_off = 1
	day += 3
	week += 3
	GerpesOnce = 0
	Gerpes = 0
	OrHerpes = 0
	GenHerpes = 0
	Venera -= 1
	gs 'stat'
	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
	'After a long recovery, you have been completely cured of your herpes.'

	act 'Leave': gt $loc, $loc_arg
end



if $ARGS[0] = 'set_electrolysis_act':
	if lashair = 0:
		if max(money, karta) >= 80000:
			'<a href="exec: gt ''clinic_functions'', ''electrolysis''">Electrolysis</a> laser hair removal of legs and pubic area - 80,000 <b>₽</b>'
		else
			'Electrolysis - laser hair removal of legs and pubic area - 80,000 <b>₽</b>'
		end
	else
		'Electrolysis - laser hair removal of legs and pubic area - 80,000 <b>₽</b> - You have no hair to remove.'
	end
end
if $ARGS[0] = 'set_lip_enlargement_act':
	if pcs_lip < 4:
		if max(money, karta) >= 25000:
			'<a href="exec: gt ''clinic_functions'', ''lipPlus''">Lip enlargement surgery</a> - 25,000 <b>₽</b>'
		else
			'Lip enlargement surgery - 25,000 <b>₽</b>'
		end
	else
		'Lip enlargement surgery - 25,000 <b>₽</b> - Your lips are already big.'
	end
end
if $ARGS[0] = 'set_lip_reduction_act':
	if pcs_lip > 0:
		if max(money, karta) >= 30000:
			'<a href="exec: gt ''clinic_functions'', ''lipMin''">Lip reduction surgery</a> - 30,000 <b>₽</b>'
		else
			'Lip reduction surgery - 30,000 <b>₽</b>'
		end
	else
		'Lip reduction surgery - 30,000 <b>₽</b> - Your lips are already thin'
	end
end
if $ARGS[0] = 'set_eye_enlargement_act':
	if pcs_eyesize < 3:
		if max(money, karta) >= 90000:
			'<a href="exec: gt ''clinic_functions'', ''eyePlus''">Eye enlargement surgery</a> - 90,000 <b>₽</b>'
		else
			'Eye enlargement surgery - 90,000 <b>₽</b>'
		end
	else
		'Eye enlargement surgery - 90,000 <b>₽</b> - Your eyes are already big.'
	end
end
if $ARGS[0] = 'set_eye_reduction_act':
	if pcs_eyesize > 0:
		if max(money, karta) >= 90000:
			'<a href="exec: gt ''clinic_functions'', ''eyeMin''">Eye reduction surgery</a> - 90,000 <b>₽</b>'
		else
			'Eye reduction surgery - 90,000 <b>₽</b>'
		end
	else
		'Eye reduction surgery - 90,000 <b>₽</b> - Your eyes are already small.'
	end
end
if $ARGS[0] = 'set_liposuction_act':
	if pcs_mass['body'] > 40:
		if max(money, karta) >= 75000:
			'<a href="exec: gt ''clinic_functions'', ''lyposuction''">Liposuction</a> - 75,000 <b>₽</b>'
		else
			'Liposuction - 75,000 <b>₽</b>'
		end
	else
		'Liposuction - 75,000 <b>₽</b> - You''re already thin.'
	end
end

if $ARGS[0] = 'set_remove_breast_implant_act':
	if bodyVars['bust_silicone'] ! 0:
		if max(money, karta) >= 90000:
			'<a href="exec: stringimplant = 0 & fillimplant = 0 & gt ''clinic_functions'', ''bImplantA'', 0">Remove breast implants</a> - 90,000 <b>₽</b>'
		else
			'Remove breast implants - 90,000 <b>₽</b>'
		end
	else
		'Remove breast implants - 90,000 <b>₽</b> - You have no breast implants.'
	end
end
if $ARGS[0] = 'set_get_small_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  170000:
			'<a href="exec: gt ''clinic_functions'', ''bImplantA'', 10">Get small breast implants</a> - 170,000 <b>₽</b>'
		else
			'Get small breast implants - 170,000 <b>₽</b>'
		end
	else
		'Get small breast implants - 170,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end
if $ARGS[0] = 'set_get_medium_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  180000:
			'<a href="exec: gt ''clinic_functions'', ''bImplantA'', 20">Get medium breast implants</a> - 180,000 <b>₽</b>'
		else
			'Get medium breast implants - 180,000 <b>₽</b>'
		end
	else
		'Get medium breast implants - 180,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end
if $ARGS[0] = 'set_get_large_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  190000:
			'<a href="exec: gt ''clinic_functions'', ''bImplantA'', 30">Get large breast implants</a> - 190,000 <b>₽</b>'
		else
			'Get large breast implants - 190,000 <b>₽</b>'
		end
	else
		'Get large breast implants - 190,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end
if $ARGS[0] = 'set_get_XXL_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  200000:
			'<a href="exec: gt ''clinic_functions'', ''bImplantA'', 40">Get XXL breast implants</a> - 200,000 <b>₽</b>'
		else
			'Get XXL breast implants - 200,000 <b>₽</b>'
		end
	else
		'Get XXL breast implants - 200,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end
if $ARGS[0] = 'set_get_fillable_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  200000:
			'<a href="exec: fillimplant = 1 & gt ''clinic_functions'', ''bImplantA'', 20">Get fillable implants</a> - 200,000 <b>₽</b>'
		else
			'Get fillable implants - 200,000 <b>₽</b>'
		end
	else
		'Get fillable implants - 200,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end
if $ARGS[0] = 'set_get_string_breast_implant_act':
	if fillimplant = 0 and stringimplant = 0:
		if max(money, karta) >=  200000:
			'<a href="exec: stringimplant = 1 & gt ''clinic_functions'', ''bImplantA'', 20">Get string implants</a> - 250,000 <b>₽</b>'
		else
			'Get string implants - 250,000 <b>₽</b>'
		end
	else
		'Get string implants - 250,000 <b>₽</b> - You already have ' + iif(fillimplant = 1, 'fillable', 'string') + ' implants.'
	end
end

if $ARGS[0] = 'set_drain_string_breast_implant_act':
	if stringimplant = 1 and bodyVars['bust_silicone'] >= 30:
		if max(money, karta) >= 2000:
			'<a href="exec: xgt ''clinic_functions'', ''bImplantA'', ''drain''">Drain string implant</a> - 2,000 <b>₽</b>'
		else
			'Drain string implant - 2,000 <b>₽</b>'
		end
	end
end
if $ARGS[0] = 'set_buy_silicone_bag_act':
	if fillimplant = 1:
		if max(money, karta) >= 500:
			'<a href="exec: xgt ''clinic_functions'', ''bImplantA'', ''bag''">Buy silicone bag</a> - 500 <b>₽</b>'
		else
			'Buy silicone bag - 500 <b>₽</b>'
		end
	else
		'Buy silicone bag - 500 <b>₽</b> - You don''t have fillable implants.'
	end
end



if $ARGS[0] = 'electrolysis':
	menu_off = 1
	if money >= 80000:
		money -= 80000
	else
		karta -= 80000
	end
	minut += 120
	pcs_leghair = 0
	pcs_pubes = 0
	lashair = 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/electrolysis.jpg"></center>'
	'The surgeon has you strip completely and lie down on the table. Over the next few hours, you''re treated by a laser over and over again. When the treatment is finished and you get up from the table, your skin feels silky smooth.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'lipPlus':
	menu_off = 1
	if money >= 25000:
		money -= 25000
	else
		karta -= 25000
	end
	minut += 60
	pcs_lip += 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your lips are fuller.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'lipMin':
	menu_off = 1
	if money >= 30000:
		money -= 30000
	else
		karta -= 30000
	end
	minut += 60
	pcs_lip -= 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your lips are thinner.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'eyePlus':
	menu_off = 1
	if money >= 90000:
		money -= 90000
	else
		karta -= 90000
	end
	minut += 60
	pcs_eyesize += 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up again, the procedure is complete and your eyes are larger.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'eyeMin':
	menu_off = 1
	if money >= 90000:
		money -= 90000
	else
		karta -= 90000
	end
	minut += 60
	pcs_eyesize -= 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your eyes are smaller.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'lyposuction':
	menu_off = 1
	if money >= 75000:
		money -= 75000
	else
		karta -= 75000
	end
	minut += 60
	pcs_mass['body'] -= 40
	if pcs_mass['body'] < 11: pcs_mass['body'] = 11
	gs 'body', 'softreset'
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and you''re looking thinner.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'bImplantA':
	menu_off = 1
	if stringimplant = 1:
		! Get String Implants
		temp_pay_amount = 250000
	elseif fillimplant = 1:
		! Get Fillable Implants
		temp_pay_amount = 200000
	elseif ARGS[1] = 40:
		! Get XXL Implants
		temp_pay_amount = 200000
	elseif ARGS[1] = 30:
		! Get Large Implants
		temp_pay_amount = 190000
	elseif ARGS[1] = 20:
		! Get Medium Implants
		temp_pay_amount = 180000
	elseif ARGS[1] = 10:
		! Get Small Implants
		temp_pay_amount = 170000
	elseif ARGS[1] = 0:
		! Remove any implants
		temp_pay_amount = 90000
	end

	if money >= temp_pay_amount:
		money -= temp_pay_amount
	else
		karta -= temp_pay_amount
	end
	killvar 'temp_pay_amount'


	minut += 60
	bodyVars['bust_silicone'] = ARGS[1]
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply... we''ll be done before you know it."'
	'When you wake up again, the procedure is complete and you look down at your new breasts.'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'bImplantB':
	menu_off = 1
	if $ARGS[1] = 'drain':
		if money >= 2000:
			money -= 2000
		else
			karta -= 2000
		end
		bodyVars['bust_silicone'] -= 10
		msg 'You drain some of your string implant'
	elseif $ARGS[1] = 'bag':
		if money >= 500:
			money -= 500
		else
			karta -= 500
		end
		siliconeBag += 1
		msg 'You buy a silicone bag.'
	end
	gs 'stat'

	act 'Continue': gt $loc, $loc_arg
end



--- clinic_functions ---------------------------------------