Merge remote-tracking branch 'hornguy6/master'

locations/din_bad.qsrc

@@ -190,6 +190,15 @@ if $ARGS[0] = 'd_bag':
 	else
 		'You are out of birth control pills.'
 	end
+	if morning_after_pill > 0:
+		if morning_after_pill = 1:
+			'You have one <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pill</a>.'
+		else
+			'You have <b><<birth_control[''morning_after'']>></b> <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pills</a>.'
+		end
+	else
+		'You have no morning after pills.'
+	end
 	if mentats_have > 0 and mentats_dose < 3:
 		'<a href="exec: gs ''drugs'', ''mentats'' & gs ''din_bad'', ''d_bag'' & *pl ''<font color = green><br>You swallow the neurobooster pill.</font>''">Use a neurobooster pill in your purse.</a> There are <b><<mentats_have>></b> pills left. The warning label says not to take more than one per day.'
 	elseif mentats_have > 0:

locations/gaptek.qsrc

@@ -52,12 +52,13 @@ if $ARGS[0] = 'start' or $message ! '':
 	!!I want to change this so Sveta can always buy the stuff below regardless who is working. Not sure how to change the code so just leaving this note. The first time Sveta buys condoms, pregnancy test, birth control, or lubricant I want it to go to if $ARGS[0] = 'first_time_buy_luda':
 	if gaptek_aunt_hours = 0 or StoryLine = 0:
 		if preziktype = 0:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', 'start')
+			*P FUNC ('$stock_item', 5, 'Condoms', 300, 'prezik', 'gaptek', 'start')
 		elseif preziktype = 1 or preziktype = 2:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', 'gaptek', 'start')
+			*P FUNC ('$stock_item', 5, 'Condoms', 300, 'prezikcount', 'gaptek', 'start')
 		end
 		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', 'start')
+		*P FUNC ('$stock_item', 1, 'Morning after pill', 740, 'morning_after_pill', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 10, 'Antibiotics', 580, 'lekarstvo', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 30, 'Vitamins', 130, 'vitamin', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 50, 'Painkillers', 435, 'painkiller', 'gaptek', 'start')
@@ -79,12 +80,13 @@ if $ARGS[0] = 'start' or $message ! '':
 
 	else
 		if preziktype = 0:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', 'buy_condoms')
+			*P FUNC ('$stock_item', 5, 'Condoms', 300, 'prezik', 'gaptek', 'buy_condoms')
 		elseif preziktype = 1 or preziktype = 2:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', 'gaptek', 'buy_condoms')
+			*P FUNC ('$stock_item', 5, 'Condoms', 300, 'prezikcount', 'gaptek', 'buy_condoms')
 		end
 		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', 'buy_preg_test')
 		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', 'buy_birth_control')
+		*P FUNC ('$stock_item', 1, 'Morning after pill', 740, 'morning_after_pill', 'gaptek', 'buy_morning_after')
 		*P FUNC ('$stock_item', 10, 'Antibiotics', 580, 'lekarstvo', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 30, 'Vitamins', 130, 'vitamin', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 50, 'Painkillers', 435, 'painkiller', 'gaptek', 'start')
@@ -126,46 +128,67 @@ if $ARGS[0] = 'buy_condoms':
 	gs 'stat'
 	'<center><B><font color="maroon">Pharmacy</font></B></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
-	'You pretend to look at the goods positioned on the shelves, while you consider how to best approach your aunt. Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
-	'"Hi <<$pcs_nickname>>, are you looking for something?"'
-	if gaptekfirstcondom = 0:
-		gaptekfirstcondom = 1
-		minut += 2
-		if pav_slut > 75:
-			'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word, while looking at the condoms.'
-			'"What you mean is condoms so you can have sex with boys." She says with a smile.'
-			'When she notices your surprised look she adds. "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
-			'You''re not really sure what to say now and your words become a blubbering mess: "Well... but I..." You''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior.'
-			'She chuckles at you stumbling over your words, and gives you a reassuring smile: "Don''t worry <<$pcs_nickname>>, I''m just teasing you. I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something. Come on, I''ll show you what we have." She takes you by the hand and leads you to the counter holding the condoms. "We also have birth control pills if you prefer bareback."'
-		else
-			'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word.'
-			'Your aunt pretends to be confused, and teases you, "<<$pcs_nickname>>, what kind of stuff? We sell all kinds of things!"'
-			'You blush as you realize she is going to make you say it: "I know, aunt... I need some condoms..."'
-			'She just laughs: "Just teasing, <<$pcs_nickname>>. I''ll show you what we have." She takes you by the hand and leads you to the counter holding the condoms. "We also have birth control pills if you prefer bareback."'
-		end
-		'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
-		if momslut = 1:
-			'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret."'
-			'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
-			'Luda nods and hands over the package. "Here you go <<$pcs_nickname>>. Don''t use them all at once!" She adds with a wink, you just take your purchase.'
+	'You pretend to look at the goods positioned on the shelves, while you consider how to best approach your aunt.'
+	act'Meekly ask':
+		cla
+		*nl
+		'Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
+		'"Hi <<$pcs_nickname>>, are you looking for something?"'
+		if gaptekfirstcondom = 0:
+			gaptekfirstcondom = 1
+			minut += 2
+			if pav_slut > 75:
+				'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word, while looking at the condoms.'
+				'"What you mean is condoms so you can have sex with boys." She says with a smile.'
+				'When she notices your surprised look she adds. "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
+				'You''re not really sure what to say now and your words become a blubbering mess: "Well... but I..." You''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior.'
+				'She chuckles at you stumbling over your words, and gives you a reassuring smile: "Don''t worry <<$pcs_nickname>>, I''m just teasing you. I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something. Come on, I''ll show you what we have." She takes you by the hand and leads you to the counter holding the condoms. "We also have birth control pills if you prefer bareback."'
+			else
+				'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word.'
+				'Your aunt pretends to be confused, and teases you, "<<$pcs_nickname>>, what kind of stuff? We sell all kinds of things!"'
+				'You blush as you realize she is going to make you say it: "I know, aunt... I need some condoms..."'
+				'She just laughs. "Just teasing, <<$pcs_nickname>>. I''ll show you what we have." She takes you by the hand and leads you to the counter holding the condoms. "We also have birth control pills if you prefer bareback."'
+			end
+			'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
+			if momslut = 1:
+				'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret."'
+				'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
+				'Luda nods and hands over the package. "Here you go <<$pcs_nickname>>. Don''t use them all at once!" She adds with a wink, you just take your purchase.'
+			else
+				'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret." Reassured she won''t tell your <<$npc_nickname[''A29'']>>, you pick out the things you need, after that she rings up your purchase and hands you the bag. "Here you go <<$pcs_nickname>>. Don''t use them all at once!" She adds with a wink, you just take your purchase.'
+			end
 		else
-			'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret." Reassured she won''t tell your <<$npc_nickname[''A29'']>>, you pick out the things you need, after that she rings up your purchase and hands you the bag. "Here you go <<$pcs_nickname>>. Don''t use them all at once!" She adds with a wink, you just take your purchase.'
+			minut += rand(2, 5)
+			'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
+			if pcs_inhib < 50:
+				'"Hi Aunt Luda, I need some more condoms." You tell her slightly blushing.'
+				'"You''re going through them quite fast," she chuckles, as you try to hide your blush.'
+				'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
+			else
+				'"Hi Aunt Luda, I need some more condoms."'
+				'"You''re going through them quite fast," she chuckles.'
+				'You smile back and shrug non-committally as she holds out the bag for you. "Thank you, Aunt Luda."'
+			end
+			'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag.'
 		end
-	else
-		minut += rand(2, 5)
-		'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
-		if pcs_inhib < 50:
-			'"Hi Aunt Luda, I need some more condoms." You tell her slightly blushing.'
-			'"You''re going through them quite fast," she chuckles, as you try to hide your blush.'
-			'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
+		act 'Move away from the counter':gt 'gaptek', 'start'
+	end
+	act'Openly ask':
+		minut += 1
+		'You wait in line until she''s done helping her current customer and walk up to her at the counter.'
+		cla
+		if gaptekfirstcondom = 0:
+			gaptekfirstcondom = 1
+			'"Hi Aunt Luda. Can I buy some condoms?"'
+			'"I guess it runs in the family," she chuckles, leading you over to the family planning counter. "Maybe we all carry a slut gene or something. Come on, I''ll show you what we have." As she hands you the pack of condoms, she adds, "We also have birth control pills if you prefer bareback and you know you''re having sex with someone you can trust to be STD free."'
 		else
 			'"Hi Aunt Luda, I need some more condoms."'
 			'"You''re going through them quite fast," she chuckles.'
-			'You smile back and shrug non-committally as she holds out the bag for you. "Thank you, Aunt Luda."'
+			'"Just being safe," you shrug as you take the condoms from her. "Thanks, Aunt Luda."'
+			'"Any time, <<$pcs_nickname>>!"'
 		end
-		'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag.'
+		act 'Move away from the counter':gt 'gaptek', 'start'
 	end
-	act 'Move away from the counter':gt 'gaptek', 'start'
 end
 
 if $ARGS[0] = 'buy_birth_control':
@@ -180,50 +203,72 @@ if $ARGS[0] = 'buy_birth_control':
 	gs 'stat'
 	'<center><B><font color="maroon">Pharmacy</font></B></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
-	'You pretend to look at the goods positioned on the shelves, while you consider how to best approach your aunt. Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
+	'You look at the goods positioned on the shelves, while you consider how to best approach your aunt. Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
 	'"Hi <<$pcs_nickname>>, are you looking for something?"'
-	if gaptekfirstbirthcontrol = 0:
-		gaptekfirstbirthcontrol = 1
-		minut += 2
-		if pav_slut > 75:
-			'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word, while looking at the birth control pills.'
-			'"What you mean is birth control pills so you can have sex with boys, without using a condom." She says with a smile.'
-			'When she notices your surprised look she adds. "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
-			'You''re not really sure what to say now and your words become a blubbering mess: "Well... but I..." You''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior.'
-			'She chuckles at you stumbling over your words, and gives you a reassuring smile: "Don''t worry <<$pcs_nickname>>, I''m just teasing you. I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something. Come on, I''ll show you what we have." She takes you by the hand and leads you to the counter holding the birth control pills. "You might consider condoms too since you seem to have a lot of partners, to protect you from STD''s of course. You can never tell who''s clean and who isn''t these days."'
-		else
-			'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word.'
-			'Your aunt pretends to be confused, and teases you, "<<$pcs_nickname>>, what kind of stuff? We sell all kinds of things!"'
-			'You blush as you realize she is going to make you say it: "I know, aunt... I need some birth control pills..."'
-			'She just laughs: "Just teasing, <<$pcs_nickname>>. I''ll show you what we have." She takes you by the hand and leads you to the counter holding the birth control pills. "We also have condoms if you are worried about STD''s. You can never tell who''s clean and who isn''t these days."'
-		end
-		'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
-		if momslut = 1:
-			'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret."'
-			'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
-			'Luda nods and hands over the package. "Here you go <<$pcs_nickname>>. Don''t use it all at once!" She adds with a wink, you just take your purchase.'
+	act'Meekly ask':
+		cla
+		if gaptekfirstbirthcontrol = 0:
+			gaptekfirstbirthcontrol = 1
+			minut += 2
+			if pav_slut > 75:
+				'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word, while looking at the birth control pills.'
+				'"What you mean is birth control pills so you can have sex with boys, without using a condom." She says with a smile.'
+				'When she notices your surprised look she adds. "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
+				'You''re not really sure what to say now and your words become a blubbering mess: "Well... but I..." You''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior.'
+				'She chuckles at you stumbling over your words, and gives you a reassuring smile: "Don''t worry <<$pcs_nickname>>, I''m just teasing you. I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something. Come on, I''ll show you what we have." She takes you by the hand and leads you to the counter holding the birth control pills. "You might consider condoms too since you seem to have a lot of partners, to protect you from STD''s of course. You can never tell who''s clean and who isn''t these days."'
+			else
+				'You take a deep breath and say: "Erm... yes aunt. I need some ''stuff''," putting extra emphasis on the word.'
+				'Your aunt pretends to be confused, and teases you, "<<$pcs_nickname>>, what kind of stuff? We sell all kinds of things!"'
+				'You blush as you realize she is going to make you say it: "I know, aunt... I need some birth control pills..."'
+				'She just laughs: "Just teasing, <<$pcs_nickname>>. I''ll show you what we have." She takes you by the hand and leads you to the counter holding the birth control pills. "We also have condoms if you are worried about STD''s. You can never tell who''s clean and who isn''t these days."'
+			end
+			'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
+			if momslut = 1:
+				'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret."'
+				'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
+				'Luda nods and hands over the package. "Here you go <<$pcs_nickname>>. Don''t use it all at once!" She adds with a wink, you just take your purchase.'
+			else
+				'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret." Reassured she won''t tell your <<$npc_nickname[''A29'']>>, you pick out the things you need, after that she rings up your purchase and hands you the bag. "Here you go <<$pcs_nickname>>. Don''t use it all at once!" She adds with a wink, you just take your purchase.'
+			end
 		else
-			'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret." Reassured she won''t tell your <<$npc_nickname[''A29'']>>, you pick out the things you need, after that she rings up your purchase and hands you the bag. "Here you go <<$pcs_nickname>>. Don''t use it all at once!" She adds with a wink, you just take your purchase.'
+			minut += rand(2, 5)
+			'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
+			if pcs_inhib < 50:
+				'"Hi Aunt Luda, I need some more birth control pills." You say as your face heats up.'
+				'"Make sure you don''t miss a single day or they might not work." she says, as you try to hide your blush.'
+				'You intently stare at the items, avoiding her gaze as she hands you the bag. "Thank you, Aunt..."'
+			else
+				'"Hi Aunt Luda, I need some more birth control pills."'
+				'"Make sure you don''t miss a single day or they might not work." she says, as you try to hide your blush.'
+				if pilldays >= 18:
+					'"Mhm, I know. I''ve been on the pill for a while now, but thanks anyway Aunt Luda."'
+				else
+					'"Okay, thanks for the advice Aunt Luda."'
+				end
+			end
+			'"No problem <<$pcs_nickname>>. Have fun!" she says as you take your bag.'
 		end
-	else
-		minut += rand(2, 5)
-		'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
-		if pcs_inhib < 50:
-			'"Hi Aunt Luda, I need some more birth control pills." You say as your face heats up.'
-			'"Make sure you don''t miss a single day or they might not work." she says, as you try to hide your blush.'
-			'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
+		act 'Move away from the counter':gt 'gaptek', 'start'
+	end
+	act'Openly ask':
+		cla
+		if gaptekfirstbirthcontrol = 0:
+			gaptekfirstbirthcontrol = 1
+			minut += 2
+			'"Hi Aunt Luda. Can I buy some birth control pills?"'
+			'"I guess it runs in the family," she chuckles, leading you over to the family planning counter. "Maybe we all carry a slut gene or something. Come on, I''ll show you what we have." As she hands you a box of pills she adds, "You might consider condoms too since you seem to have a lot of partners, to protect you from STD''s of course. You can never tell who''s clean and who isn''t these days."'
 		else
 			'"Hi Aunt Luda, I need some more birth control pills."'
 			'"Make sure you don''t miss a single day or they might not work." she says, as you try to hide your blush.'
-			if pilldays >= 18:
+			if tabletkicpd >= 2:
 				'"Mhm, I know. I''ve been on the pill for a while now, but thank you anyway Aunt Luda."'
 			else
 				'"Okay, thanks for the advice Aunt Luda."'
 			end
+			'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag.'
 		end
-		'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag.'
+		act 'Move away from the counter':gt 'gaptek', 'start'
 	end
-	act 'Move away from the counter':gt 'gaptek', 'start'
 end
 
 if $ARGS[0] = 'buy_preg_test':
@@ -343,5 +388,94 @@ if $ARGS[0] = 'buy_lube':
 	act 'Move away from the counter':gt 'gaptek', 'start'
 end
 
+if $ARGS[0] = 'buy_morning_after':
+	menu_off = 1
+	*clr & cla
+	if gaptek_timers['morning_after'] = daystart:
+		gt 'gaptek', 'start'
+	else
+		gaptek_timers['morning_after'] = daystart
+	end
+	if LudaQW['KnowsSexActive'] < 10: LudaQW['KnowsSexActive'] += 2
+	gs 'stat'
+	'<center><B><font color="maroon">Pharmacy</font></B></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
+	'You look at the goods positioned on the shelves, while you consider how to best approach your aunt. Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
+	'"Hi <<$pcs_nickname>>, are you looking for something?"'
+	act'Meekly ask':
+		cla
+		if gaptekfirstmorningafter = 0:
+			gaptekfirstmorningafter = 1
+			minut += 2
+			if pav_slut > 75:
+				'"Erm... yes aunt. I need..." You take a deep breath. "I need some Plan B..."'
+				'"I was wondering if this was going to happen," she sighs, shaking her head.'
+				'When she notices your confusion, she adds, "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
+				'You''re not really sure what to say now and your words become a blubbering mess. "Well... but I..." You''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior.'
+				'"I guess it runs in the family; maybe we all carry a slut gene or something. I''d hoped you were being safe, but I suppose we all slip up sometimes," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that." She hands you the box.'
+				'"Take this as soon as possible. It''s most effective the sooner you take it. And if you''re not going to be strict about your condom usage, you should really buy some birth control pills <<$pcs_nickname>>! With how many boys you''ve been seeing, you really ought to be taking it anyways."'
+			else
+				'"Erm... yes aunt. I need..." You take a deep breath. "Aunt Luda, I need some Plan B..."'
+				'"<<$pcs_nickname>>! You need to be more careful!" she says, immediately scurrying over towards the birth control counter.'
+				'You blush in embarrassment. "I know, aunt... I just... made a mistake."'
+				'"Well, we''re all guilty of making those sometimes," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that." She hands you the box.'
+				'"Take this as soon as possible. It''s most effective the sooner you take it. And maybe you should also buy some birth control pills <<$pcs_nickname>> while you''re here? Then this just has to be a one time thing."'
+			end
+			'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
+			if momslut = 1:
+				'Your aunt gives you a odd look. "You might be surprised dear."'
+				'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
+				'Luda nods. "Well, even so, I''m sure she''d prefer hearing that you''re taking this than to find out you''re not. But I promise, this will be our little secret."'
+			else
+				'Luda nods. "Well, even so, I''m sure she''d prefer hearing you''re having sex and taking this than to find out you''re pregnant. But I promise, this will be our little secret."'
+			end
+		else
+			minut += rand(2, 5)
+			'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
+			if pcs_inhib < 50:
+				'"Aunt Luda," you whisper. "I need another plan B pill."'
+				'"Again?!" she asks, aghast. Your face heats up in a crimson blush.'
+			else
+				'"Hi Aunt Luda, I need another plan B pill."'
+				'"Again?!" she asks, aghast. Your only response is to give a sort of sorry shrug.'
+			end
+			'"How many times are you going to make the same mistake <<$pcs_nickname>>?" She shakes her head as she puts the box into the bag and hands it to you. "You need to buy some birth control already. It really isn''t that hard to just take a pill every day you know."'
+		end
+		act 'Move away from the counter':gt 'gaptek', 'start'
+	end
+	act'Openly ask':
+		cla
+		if gaptekfirstmorningafter = 0:
+			gaptekfirstmorningafter = 1
+			minut += 2
+			'"Hi Aunt Luda. I need a Plan B pill."'
+			if pav_slut > 75:
+				'"I was wondering if this was going to happen," she sighs, shaking her head.'
+				'When she notices your confusion, she adds, "Your reputation precedes you, <<$pcs_nickname>>. Everyone in Pavlovsk knows you''re a <<$gnikname>>."'
+				'"Oh." You wonder how your aunt found out about your sex life. Is your reputation in town really that bad?'
+				'"I guess it runs in the family; maybe we all carry a slut gene or something. I''d hoped you were being safe, but I suppose we all slip up sometimes," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that." She hands you the box.'
+				'"Take this as soon as possible. It''s most effective the sooner you take it. And if you''re not going to be strict about your condom usage, you should really buy some birth control pills <<$pcs_nickname>>! With how many boys you''ve been seeing, you really ought to be taking it anyways."'
+			else
+				'"<<$pcs_nickname>>! You need to be more careful!" she says, immediately scurrying over towards the birth control counter.'
+				'You sigh. "I know, aunt. I just made a mistake this time."'
+				'"Well, we''re all guilty of making those sometimes," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that." She hands you the box.'
+				'"Take this as soon as possible. It''s most effective the sooner you take it. And maybe you should also buy some birth control pills <<$pcs_nickname>> while you''re here? Then this just has to be a one time thing."'
+			end
+		else
+			minut += rand(2, 5)
+			'"Hi Aunt Luda. I need another Plan B pill."'
+			if pcs_inhib < 50:
+				'"Again?!" she asks, aghast. Your face heats up in a crimson blush.'
+			else
+				'"Again?!" she asks, aghast. Your only response is to give a sort of sorry shrug.'
+			end
+			'"How many times are you going to make the same mistake <<$pcs_nickname>>?" She shakes her head as she puts the box into the bag and hands it to you. "You need to buy some birth control already. It really isn''t that hard to just take a pill every day you know."'
+		end
+		act 'Move away from the counter':gt 'gaptek', 'start'
+	end
+end
+
+
+
 --- gaptek ---------------------------------
 

locations/medical_din.qsrc

@@ -236,4 +236,23 @@ elseif $ARGS[0] = 'healSTDs':
 	Kandidoz = 0
 end
 
+if $ARGS[0] = 'morning_after_pill':
+	morning_after_pill -= 1
+	if arrsize('cumarrcpt') > 0:
+		temp_ID = arrsize('cumarrcpt')
+		:morning_after_womb_cleanup
+		if cumarrcpt[temp_ID] > 0 and sparrloc[temp_ID] = 0:
+			!'Removed <<cumarrcpt[temp_ID]>> sperm at <<cumarrppt[temp_ID]>> 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
+	*clr
+	'<center><img <<$set_imgh>> src="images/shared/misc/pill.jpg"></center>'
+	'You put the pill in your mouth and swallow it down.'
+	'<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 'stat'
+end
+
 --- medical_din ---------------------------------

locations/pavtrainhall.qsrc

@@ -33,7 +33,7 @@ if $ARGS[0] = '':
 			VK = rand (1,5)
 			if week = 1 and VK = 1:
 				djibril_taxi = 1
-				if meet_djibril = 1
+				if meet_djibril = 1:
 					'You see your aunts boyfriend <a href="exec:minut += 1 & gt ''olutaxi'', ''station''">Olu</a> sitting on one of the benches, dressed fairly nicely, next to him sits his nephew Djibril. When some people head for the exit Olu gets up and walks up to them, asking them if they need a taxi, so far it doesn''t look like anyone is taking him up on his offer.'
 				else
 					'You see your aunts boyfriend <a href="exec:minut += 1 & gt ''olutaxi'', ''station''">Olu</a> sitting on one of the benches, dressed fairly nicely, next to him sits a younger man that looks similar enough to them that they might be related. When some people head for the exit Olu gets up and walks up to them, asking them if they need a taxi, so far it doesn''t look like anyone is taking him up on his offer.'

locations/stol.qsrc

@@ -281,6 +281,15 @@ if $ARGS[0] = 'bc':
 	else
 		'You are out of birth control pills.'
 	end
+	if morning_after_pill > 0:
+		if morning_after_pill = 1:
+			'You have one <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pill</a>.'
+		else
+			'You have <b><<birth_control[''morning_after'']>></b> <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pills</a>.'
+		end
+	else
+		'You have no morning after pills.'
+	end
 	act 'Close the drawer':gt $loc, $metka
 end