[changed] medical_din renamed from medUtil

glife.qproj

@@ -65,7 +65,7 @@
 		<Location name="body_shape"/>
 		<Location name="lact_lib"/>
 		<Location name="lact_bp"/>
-		<Location name="medUtil"/>
+		<Location name="medical_din"/>
 	</Folder>
 	<Folder name="Stimulus">
 		<Location name="boyStat"/>

locations/abduction.qsrc

@@ -230,7 +230,7 @@ if $ARGS[0] = 'abdExam2':
 	'"Now there, our little slave, we will make sure you are healthy and ready to be trained."'
 	'He injects all the solutions into you.'
 	'The examination is at an end. The doctor leaves, you are untied, blindfolded again and led back down into the basement.'
-	gs 'medUtil','healSTDs'
+	gs 'medical_din','healSTDs'
 
 	examed = 1
 	act 'Continue':gt 'abduction', 'abdRoom'

locations/gpoli.qsrc

@@ -219,11 +219,7 @@ if $ARGS[0] = '':
 				'<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:
-					tabletkishot = rand(84,91)
-					shotdays = 84
-					tabletkicheck = 2
-					pillcon = 40000
-					pillcon2 = 40000
+					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

locations/medUtil.qsrc → locations/medical_din.qsrc

@@ -1,7 +1,7 @@
-# medUtil
+# medical_din
 
 if $ARGS[0] = 'abortion':
-	!! Aborts pregnency. Usage: gs 'medUtil','abortion'
+	!! Aborts pregnency. Usage: gs 'medical_din','abortion'
 	vidage += 1
 	abort += 1
 	abortionbirthdate = daystart
@@ -54,8 +54,16 @@ if $ARGS[0] = 'abortion':
 	if nextbaby > 0:
 		jump 'poliabortloop'
 	end
+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.
+	tabletkishot = rand(84,91)
+	shotdays = 84
+	tabletkicheck = 2
+	pillcon = 40000
+	pillcon2 = 40000
 elseif $ARGS[0] = 'healSTDs':
-	!! Heals all STDs. Usage: gs 'medUtil','healSTDs'
+	!! Heals all STDs. Usage: gs 'medical_din','healSTDs'
 	venera = 0
 	GerpesOnce = 0
 	Gerpes = 0
@@ -68,4 +76,4 @@ elseif $ARGS[0] = 'healSTDs':
 	Kandidoz = 0
 end
 
---- medUtil ---------------------------------
+--- medical_din ---------------------------------

locations/poli.qsrc

@@ -129,11 +129,7 @@ if $ARGS[0] = 'start':
 			'<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:
-				tabletkishot = rand(84,91)
-				shotdays = 84
-				tabletkicheck = 2
-				pillcon = 40000
-				pillcon2 = 40000
+				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
@@ -158,7 +154,7 @@ if $ARGS[0] = 'start':
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
 			'You spread out on a gynecological chair, from which angle you are fortunate not to be able to see what is going on. You feel nauseous and violated. A nurse hands you a single aspirin and a glass of muddy-looking water to down it with.'
 			
-			gs 'medUtil','abortion'
+			gs 'medical_din','abortion'
 			
 			minut += 60
 			gs 'stat'