[changed] Attempted fix of the gaptek file to access the luda events but it skips right over it. Someone else will have to fix it properly.

locations/gaptek.qsrc

@@ -49,8 +49,8 @@ if $ARGS[0] = 'start' or $message ! '':
 	end
 	*nl
 	*pl '<center><table align="center" width=80%>'
+	!!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 (home_owned[2] = 0 and StoryLine = 1):
-!!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 preziktype = 0:
 			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', 'start')
 		elseif preziktype = 1 or preziktype = 2:
@@ -81,15 +81,15 @@ if $ARGS[0] = 'start' or $message ! '':
 		if preziktype = 0:
 			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', 'start', StoryLine, '(you have <<prezik>>)','<a href="exec:gs ''gaptek'', ''oops''">buy 5</a>')
 		elseif preziktype = 1 or preziktype = 2:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', 'gaptek', 'start', StoryLine, '(you have <<prezikcount>>)','<a href="exec:gs ''gaptek'', ''buy_condoms''">buy 5</a>')
+			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', 'gaptek', 'start', StoryLine, '(you have <<prezikcount>>)','<a href="exec:gt ''gaptek'', ''buy_condoms''">buy 5</a>')
 		end
-		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', 'start', StoryLine, '(you have <<pregtest>>)','<a href="exec:gs ''gaptek'', ''buy_preg_test''">buy 1</a>')
-		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', 'start', StoryLine, '(you have <<tabletki>>)','<a href="exec:gs ''gaptek'', ''buy_birth_control''">buy 1</a>')
+		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', 'start', StoryLine, '(you have <<pregtest>>)','<a href="exec:gt ''gaptek'', ''buy_preg_test''">buy 1</a>')
+		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', 'start', StoryLine, '(you have <<tabletki>>)','<a href="exec:gt ''gaptek'', ''buy_birth_control''">buy 1</a>')
 		*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')
 		*P FUNC ('$stock_item', 10, 'Ointments for chafing', 372, 'mosolmaz', 'gaptek', 'start')
-		*P FUNC ('$stock_item', 20, 'Lubricant', 145, 'lubri', 'gaptek', 'start', StoryLine, '(you have <<lubri>>)','<a href="exec:gs ''gaptek'', ''buy_lube''">buy 1</a>')
+		*P FUNC ('$stock_item', 20, 'Lubricant', 145, 'lubri', 'gaptek', 'start', StoryLine, '(you have <<lubri>>)','<a href="exec:gt ''gaptek'', ''buy_lube''">buy 1</a>')
 		*P FUNC ('$stock_item', 30, 'Lip balm', 127, 'lipbalm', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 12, 'Weight loss pill', 248, 'fatdel', 'gaptek', 'start')
 		*P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', 'gaptek', 'start')
@@ -97,30 +97,26 @@ if $ARGS[0] = 'start' or $message ! '':
 		if klisma > 0:
 			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', 'start')
 		else
-			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', 'start', StoryLine, '(you have <<klisma>>)','<a href="exec:gs ''gaptek'', ''buy_enema''">buy</a>')
+			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', 'start', StoryLine, '(you have <<klisma>>)','<a href="exec:gt ''gaptek'', ''buy_enema''">buy</a>')
 		end
 		if breastpump > 0:
 			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', 'start')
 		else
-			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', 'start', StoryLine, '(you have <<breastpump>>)','<a href="exec:gs ''gaptek'', ''buy_breast_pump''">buy</a>')
+			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', 'start', StoryLine, '(you have <<breastpump>>)','<a href="exec:gt ''gaptek'', ''buy_breast_pump''">buy</a>')
 		end
-		*P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', 'gaptek', 'start', StoryLine, '(you have <<bpbottles>>)','<a href="exec:gs ''gaptek'', ''buy_bottle_sml''">buy</a>')
-		*P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', 'gaptek', 'start', StoryLine, '(you have <<bpbottlem>>)','<a href="exec:gs ''gaptek'', ''buy_bottle_med''">buy</a>')
+		*P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', 'gaptek', 'start', StoryLine, '(you have <<bpbottles>>)','<a href="exec:gt ''gaptek'', ''buy_bottle_sml''">buy</a>')
+		*P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', 'gaptek', 'start', StoryLine, '(you have <<bpbottlem>>)','<a href="exec:gt ''gaptek'', ''buy_bottle_med''">buy</a>')
 		if pcs_knows_nipplecream = 1:
 			*P FUNC ('$stock_item', 20, 'Nipplebalm', 600, 'bpnipplebalm', 'gaptek', 'start')
 		end
-		if KandidNapr = 1: *P FUNC ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', 'gaptek', 'start', StoryLine, '(you have 0)',''+iif(money >= 1050,'<a href="exec:gs ''gaptek'', ''buy_antifungal''">buy</a>','')+'')
+		if KandidNapr = 1: *P FUNC ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', 'gaptek', 'start', StoryLine, '(you have 0)',''+iif(money >= 1050,'<a href="exec:gt ''gaptek'', ''buy_antifungal''">buy</a>','')+'')
 		*P '</table></center>'
 !!I moved this from below. the one above is if Luda is not around and the one below is if she is. Make sure I did that write with tweaking the code
 	elseif gaptek_aunt_hours = 1:
-		if preziktype = 0:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<prezik>>)',''+iif(money >= 500,'<a href="exec:gs ''gaptek'', ''buy_condoms''">buy 5</a>','')+'')
-		elseif preziktype = 1 or preziktype = 2:
-			*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<prezikcount>>)',''+iif(money >= 500,'<a href="exec:gs ''gaptek'', ''buy_condoms''">buy 5</a>','')+'')
-		end
-		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<pregtest>>)',''+iif(money >= 530,'<a href="exec:gs ''gaptek'', ''buy_preg_test''">buy 1</a>','')+'')
-		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<tabletki>>)',''+iif(money >= 1870,'<a href="exec:gs ''gaptek'', ''buy_birth_control''">buy 1</a>','')+'')
-		*P FUNC ('$stock_item', 1, 'Lubricant', 145, 'lubri', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<lubri>>)',''+iif(money >= 145,'<a href="exec:gs ''gaptek'', ''buy_lube''">buy 1</a>','')+'')
+		*P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', 'gaptek', '(you have <<prezikcount>>)',''+iif(money >= 500,'<a href="exec:gt ''gaptek'', ''buy_condoms''">buy 5</a>','')+'')
+		*P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', 'gaptek', '(you have <<pregtest>>)',''+iif(money >= 530,'<a href="exec:gt ''gaptek'', ''buy_preg_test''">buy 1</a>','')+'')
+		*P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', 'gaptek', '(you have <<tabletki>>)',''+iif(money >= 1870,'<a href="exec:gt ''gaptek'', ''buy_birth_control''">buy 1</a>','')+'')
+		*P FUNC ('$stock_item', 1, 'Lubricant', 145, 'lubri', 'gaptek', '(you have <<lubri>>)',''+iif(money >= 145,'<a href="exec:gt ''gaptek'', ''buy_lube''">buy 1</a>','')+'')
 		*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')
@@ -132,20 +128,20 @@ if $ARGS[0] = 'start' or $message ! '':
 		if klisma > 0:
 			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', 'first_time_buy_luda')
 		else
-			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<klisma>>)',''+iif(money >= 1250,'<a href="exec:gs ''gaptek'', ''buy_enema''">buy</a>','')+'')
+			*P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', 'gaptek', '(you have <<klisma>>)',''+iif(money >= 1250,'<a href="exec:gt ''gaptek'', ''buy_enema''">buy</a>','')+'')
 		end
 		if breastpump > 0:
 			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', 'first_time_buy_luda')
 		else
-			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<breastpump>>)',''+iif(money >= 2500,'<a href="exec:gs ''gaptek'', ''buy_breast_pump''">buy</a>','')+'')
+			*P FUNC ('$single_stock_item', 1, 'Breast pump', 2500, 'breastpump', 'gaptek', '(you have <<breastpump>>)',''+iif(money >= 2500,'<a href="exec:gt ''gaptek'', ''buy_breast_pump''">buy</a>','')+'')
 		end
-		*P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<bpbottles>>)',''+iif(money >= 930,'<a href="exec:gs ''gaptek'', ''buy_bottle_sml''">buy</a>','')+'')
-		*P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', 'gaptek', 'first_time_buy_luda', StoryLine, '(you have <<bpbottlem>>)',''+iif(money >= 930,'<a href="exec:gs ''gaptek'', ''buy_bottle_med''">buy</a>','')+'')
+		*P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', 'gaptek', '(you have <<bpbottles>>)',''+iif(money >= 930,'<a href="exec:gt ''gaptek'', ''buy_bottle_sml''">buy</a>','')+'')
+		*P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', 'gaptek', '(you have <<bpbottlem>>)',''+iif(money >= 930,'<a href="exec:gt ''gaptek'', ''buy_bottle_med''">buy</a>','')+'')
 		*P '</table></center>'
 	end
 end
 
-if $ARGS[0] = 'first_time_buy_luda':
+if $ARGS[0] = 'first_time_buy_luda_condoms':
 	$loc = 'gaptek'
 	$metka = 'first_time_buy_luda'
 	$menu_loc = 'gaptek'
@@ -157,8 +153,9 @@ if $ARGS[0] = 'first_time_buy_luda':
 	'<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
+	act 'Move away from the counter':gt 'gaptek', 'start'
+	if gaptekfirstcondom = 1:
+		gaptekfirstcondom = 2
 		minut += 5
 		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.'
@@ -195,8 +192,8 @@ if $ARGS[0] = 'first_time_buy_luda':
 		'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag and leave.'
 	end
 	
-	if gaptekfirstbirthcontrol = 0:
-		gaptekfirstbirthcontrol = 1
+	if gaptekfirstbirthcontrol = 1:
+		gaptekfirstbirthcontrol = 2
 		minut += 5
 		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.'
@@ -228,7 +225,7 @@ if $ARGS[0] = 'first_time_buy_luda':
 		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 pilldays >= 18:
 				'"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."'
@@ -236,8 +233,8 @@ if $ARGS[0] = 'first_time_buy_luda':
 		end
 		'"No problem <<$pcs_nickname>>, have fun," she says as you take your bag and leave.'
 	end
-	if gaptekfirstpregtest = 0:
-		gaptekfirstpregtest = 1
+	if gaptekfirstpregtest = 1:
+		gaptekfirstpregtest = 2
 		minut += 5
 		prezikcount += 5
 		if pav_slut > 75:
@@ -245,13 +242,13 @@ if $ARGS[0] = 'first_time_buy_luda':
 			'"What you mean is pregnancy test so you can see if one of those boys you have been having sex with has knocked you up. You should be more careful and take birth control or start using condoms" She says in a serious tone.'
 			'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: "I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something, but you really should take precautions if you are going to have fun. Come on, I''ll show you what we have." She takes you by the hand and takes you to the family planning counter that holds the pregnancy tests as well as birth control pills and condoms. You should really buy some of each for protection against this and STD''s.'
+			'She chuckles at you stumbling over your words, and gives you a reassuring smile: "I''m not here to judge. I guess it runs in the family; maybe we all carry a slut gene or something, but you really should take precautions if you are going to have fun. Come on, I''ll show you what we have." She takes you by the hand and takes you to the family planning counter that holds the pregnancy tests as well as birth control pills and condoms. You should really buy some of each for protection against this and STD''s."'
 			'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
 		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 a pregnancy test..."'
-			'She looks a little shocked: "<<$pcs_nickname>> oh my god." Then she shakes her head. "If you are going to be sexual active you really need to use birth control or carry some condoms with you. But let me show you what we have in the way of tests." She takes you by the hand and takes you to the family planning counter that holds the pregnancy tests as well as birth control pills and condoms. "You should really buy some of each for protection against this and STD''s.'"
+			'She looks a little shocked. "<<$pcs_nickname>> oh my god." Then she shakes her head. "If you are going to be sexual active you really need to use birth control or carry some condoms with you. But let me show you what we have in the way of tests." She takes you by the hand and takes you to the family planning counter that holds the pregnancy tests as well as birth control pills and condoms. "You should really buy some of each for protection against this and STD''s."'
 			'You can''t help but blush again. "Please don''t tell my <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
 		end
 		if momslut = 1:
@@ -277,8 +274,8 @@ if $ARGS[0] = 'first_time_buy_luda':
 		end
 		'"No problem <<$pcs_nickname>>, but seriously! Be careful!" she says as you take your bag and leave.'
 	end
-	if gaptekfirstlube = 0:
-		gaptekfirstlube = 1
+	if gaptekfirstlube = 1:
+		gaptekfirstlube = 2
 		minut += 5
 		if pav_slut > 75:
 			'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.'
@@ -319,10 +316,11 @@ if $ARGS[0] = 'first_time_buy_luda':
 		end
 		'"No problem, <<$pcs_nickname>>, have fun," she says as you take your bag and leave.'
 	end
-	act 'Move away from the counter':gt 'gaptek', 'start'
-!!is that correct? This will take all the above back to the pharmacy start?
 end
 
+!!is that correct? This will take all the above back to the pharmacy start?
+
+
 !!not sure why this exists below but I left it in.
 if $ARGS[0] = 'buy_condoms':
 	prezikcount += 5
@@ -333,7 +331,12 @@ if $ARGS[0] = 'buy_condoms':
 	if npc_QW['A29'] < 3:gaogorod += 5
 	$gardmess = '<center><font color="green">You bought 5 <b>Condoms</b>.</font></center><br>You pay for the condoms and quickly put them in your pocket, before anyone sees you buy them.'
 	*nl
-	gt 'gaptek', 'start'
+	if gaptekfirstcondom = 0:gaptekfirstcondom = 1
+	if gaptek_aunt_hours = 1:
+		gt'gaptek','first_time_buy_luda'
+	else
+		gt 'gaptek', 'start'
+	end
 end
 
 if $ARGS[0] = 'buy_preg_test':
@@ -345,7 +348,12 @@ if $ARGS[0] = 'buy_preg_test':
 	if npc_QW['A29'] < 3:gaogorod += 5
 	$gardmess = '<center><font color="green">You bought 1 <b>Pregnancy test</b>.</font></center><br>You pay for the pregnancy tests and quickly put them in your pocket, before anyone sees you buy them.'
 	*nl
-	gt 'gaptek', 'start'
+	if gaptekfirstpregtest = 0:gaptekfirstpregtest = 1
+	if gaptek_aunt_hours = 1:
+		gt'gaptek','first_time_buy_luda'
+	else
+		gt 'gaptek', 'start'
+	end
 end
 
 if $ARGS[0] = 'buy_lube':
@@ -357,7 +365,12 @@ if $ARGS[0] = 'buy_lube':
 	if npc_QW['A29'] < 3:gaogorod += 3
 	$gardmess = '<center><font color="green">You bought 1 <b>Lubricant</b>.</font></center><br>You pay for the lubricant and quickly put the tube in your pocket, before anyone sees you buy them.'
 	*nl
-	gt 'gaptek', 'start'
+	if gaptekfirstlube = 0:gaptekfirstlube = 1
+	if gaptek_aunt_hours = 1:
+		gt'gaptek','first_time_buy_luda'
+	else
+		gt 'gaptek', 'start'
+	end
 end
 
 if $ARGS[0] = 'buy_birth_control':
@@ -369,7 +382,12 @@ if $ARGS[0] = 'buy_birth_control':
 	gs 'stat'
 	$gardmess = '<center><font color="green">You bought 1 <b>Birth control pills</b>.</font></center><br>You pay for the birth control pills and quickly put the strips in your pocket, before anyone sees you buy them.'
 	*nl
-	gt 'gaptek', 'start'
+	if gaptekfirstbirthcontrol = 0:gaptekfirstb = 1
+	if gaptek_aunt_hours = 1:
+		gt'gaptek','first_time_buy_luda'
+	else
+		gt 'gaptek', 'start'
+	end
 end
 
 if $ARGS[0] = 'buy_enema':