Browse Source

Merge branch 'master' of https://git.catrenelle.com/Kevin_Smarts/glife

hornguy6 3 years ago
parent
commit
15bdc855f8

+ 1 - 0
glife.qproj

@@ -588,6 +588,7 @@
 		<Location name="ParChurch"/>
 		<Location name="ParChurch2"/>
 		<Location name="brothel"/>
+		<Location name="tour_guide"/>
 	</Folder>
 	<Folder name="pav_lake">
 		<Location name="glake"/>

+ 1 - 1
locations/city_library.qsrc

@@ -16,7 +16,7 @@ $downlibrary['BookStudy'] = {
 	$downlibrary['Skill'] = $ARGS[0]
 	*clr & cla
 	menu_off = 1
-	if blizoruk = 100 or glassqw = 1:
+	if blizoruk = 500 or glassqw = 1:
 		glassqw = 1
 		msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $curloc
 	end

+ 8 - 8
locations/city_musicstore_stock.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0]='electric':
             <center><a href="exec:gs ''city_musicstore_stock'', ''amplifier'', ''store'', ''<<$store>>''">Amplifiers</a></center>
         </TH>
         <TH>
-            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''"Studio Equipmet</a></center>
+            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''">Studio Equipment</a></center>
         </TH>
     </table></center>'
     '<center><font size="+4" color="red"><b>Warning: Right now, these guitars have no effect on gameplay!</b></font></center>'
@@ -181,7 +181,7 @@ if $ARGS[0]='acoustic':
             <center><a href="exec:gs ''city_musicstore_stock'', ''amplifier'', ''store'', ''<<$store>>''">Amplifiers</a></center>
         </TH>
         <TH>
-            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''"Studio Equipmet</a></center>
+            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''">Studio Equipment</a></center>
         </TH>
     </table></center>'
     '<center><font size="+4" color="red"><b>Warning: Right now, these guitars have no effect on gameplay!</b></font></center>'
@@ -307,7 +307,7 @@ if $ARGS[0]='amplifier':
             <center><a href="exec:gs ''city_musicstore_stock'', ''amplifier'', ''store'', ''<<$store>>''">Amplifiers</a></center>
         </TH>
         <TH>
-            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''"Studio Equipmet</a></center>
+            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''">Studio Equipment</a></center>
         </TH>
     </table></center>'
     '<center><font size="+4" color="red"><b>Warning: Right now, these amplifiers have no effect on gameplay!</b></font></center>'
@@ -341,7 +341,7 @@ if $ARGS[0]='amplifier':
     end   
 
     if karta >= 99990 and ml_amplifiers['orange-rocker-32'] = 0:
-        act 'Buy Kustom KG112FX with card (99,990 P)':
+        act 'Buy Orange Rocker 32 with card (99,990 P)':
             ml_amplifiers['orange-rocker-32'] = 1
             karta -= 99990
             ml_boughtamp += 1
@@ -351,7 +351,7 @@ if $ARGS[0]='amplifier':
     end
 
     if money >= 99990 and ml_amplifiers['orange-rocker-32'] = 0:
-        act 'Buy Kustom KG112FX with cash (99,990 P)':
+        act 'Buy Orange Rocker 32 with cash (99,990 P)':
             ml_amplifiers['orange-rocker-32'] = 1
             money -= 99990
             ml_boughtamp += 1
@@ -361,7 +361,7 @@ if $ARGS[0]='amplifier':
     end    
 
     if karta >= 145900 and ml_amplifiers['blackstar-artisan-15'] = 0:
-        act 'Buy Kustom KG112FX with card (145.900 P)':
+        act 'Buy Blackstar Artisan 15 with card (145.900 P)':
             ml_amplifiers['blackstar-artisan-15'] = 1
             karta -= 145900
             ml_boughtamp += 1
@@ -371,7 +371,7 @@ if $ARGS[0]='amplifier':
     end
 
         if money >= 145900 and ml_amplifiers['blackstar-artisan-15'] = 0:
-        act 'Buy Kustom KG112FX with cash (145.900 P)':
+        act 'Buy Blackstar Artisan 15 with cash (145.900 P)':
             ml_amplifiers['blackstar-artisan-15'] = 1
             money -= 145900
             ml_boughtamp += 1
@@ -395,7 +395,7 @@ if $ARGS[0]='studio':
             <center><a href="exec:gs ''city_musicstore_stock'', ''amplifier'', ''store'', ''<<$store>>''">Amplifiers</a></center>
         </TH>
         <TH>
-            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''">Studio Equipmet</a></center>
+            <center><a href="exec:gs ''city_musicstore_stock'', ''studio'', ''store'', ''<<$store>>''">Studio Equipment</a></center>
         </TH>
     </table></center>'
 

+ 4 - 0
locations/clothing.qsrc

@@ -578,17 +578,21 @@ if $ARGS[0] = 'view_clothing_item':
 					'You can repair this thanks to your sewing skill.'
 					act 'Repair item':
 						if rand (1, 100) < 30:
+							*clr
 							cla
 							tkan -= 1
 							minut += 30
 							dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
+							'<center><img <<$set_imgh>> src="images/pc/clothing/fix' + rand(1,2) + '.jpg"></center>'
 							'You spend 30 minutes fixing the outfit.'
 							act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
 						else
+							*clr
 							cla
 							tkan += 3
 							minut += 30
 							dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
+							'<center><img <<$set_imgh>> src="images/pc/clothing/fix' + rand(1,2) + '.jpg"></center>'
 							'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
 							act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
 						end

+ 43 - 0
locations/events.qsrc

@@ -38,6 +38,11 @@ if $ARGS[0] = 'read':
 
 				if fantasybook = 0:totalbook += 1
 
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
+
 				minut += 60
 
 				if pcs_nerd > 0:
@@ -73,10 +78,15 @@ if $ARGS[0] = 'read':
 
 		if womanbook > 0:
 			act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
 				*clr & cla
 				womanbook -= 1
 
 				if womanbook = 0:totalbook += 1
+
 				minut += 60
 
 				if pcs_nerd > 0:
@@ -110,6 +120,11 @@ if $ARGS[0] = 'read':
 
 		if artembook > 0:
 			act 'Read the book your borrowed from Artem. There are <<artembook * 100>> pages left (1:00) ':
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
+
 				*clr & cla
 				artembook -= 1
 
@@ -156,6 +171,10 @@ if $ARGS[0] = 'read':
 
 			if cookmag = 1:
 				act 'Read your cooking magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					cookmag = 0
 					pcs_mood += 5
@@ -167,6 +186,10 @@ if $ARGS[0] = 'read':
 
 			if fashmag = 1:
 				act 'Read your fashion magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					fashmag = 0
 					pcs_mood += 5
@@ -179,6 +202,10 @@ if $ARGS[0] = 'read':
 
 			if compmag = 1:
 				act 'Read your computing magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					compmag = 0
 					pcs_mood += 5
@@ -191,6 +218,10 @@ if $ARGS[0] = 'read':
 
 			if biomag = 1:
 				act 'Read your biographical magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					biomag = 0
 					pcs_mood += 5
@@ -202,6 +233,10 @@ if $ARGS[0] = 'read':
 
 			if knitmag = 1:
 				act 'Read your knitting magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					knitmag = 0
 					pcs_mood += 5
@@ -214,6 +249,10 @@ if $ARGS[0] = 'read':
 
 			if fitmag = 1:
 				act 'Read your fitness magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					fitmag = 0
 					pcs_mood += 5
@@ -230,6 +269,10 @@ end
 
 if $ARGS[0] = 'read_porn':
 	act 'Read the porn magazine':
+		if blizoruk = 500 or glassqw = 1:
+			glassqw = 1
+			msg'	The text blurs across the page, it seems you have poor eyesight probably from all the porn. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+		end
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
 

+ 12 - 0
locations/gadfield.qsrc

@@ -262,6 +262,10 @@ if $ARGS[0] = 'cow':
 					act 'Continue':gt'gadfield','cow'
 				end
 				act 'Read a book (1:00)':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow'
+					end
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
@@ -412,6 +416,10 @@ if $ARGS[0] = 'cow2':
 					act 'Continue':gt'gadfield','cow2'
 				end
 				act 'Read a book (1:00)':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow2'
+					end
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
@@ -586,6 +594,10 @@ if $ARGS[0] = 'cow3':
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow3'
+					end
 					minut += 60
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 6
 					if pcs_nerd > 0:

+ 7 - 7
locations/pav_library.qsrc

@@ -24,7 +24,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a book on science (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		intel_exp += rand(3,6) + (mentats_dose - rand(0,mentats_dose))
@@ -38,7 +38,7 @@ if hour >= 8 and hour < 18:
 	act 'Read an adventure novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -52,7 +52,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a fantasy novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -66,7 +66,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a science fiction novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -80,7 +80,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a romance novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -94,7 +94,7 @@ if hour >= 8 and hour < 18:
 	act 'Study for an hour':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		lern += rand(1,3)
@@ -108,7 +108,7 @@ if hour >= 8 and hour < 18:
 	act 'Read from the collected works of Leo Tolstoy (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		sprt_exp += rand(3,6)

+ 12 - 1
locations/pav_park.qsrc

@@ -209,7 +209,18 @@ if $ARGS[0] = 'start':
 		end		
 	end
 
-
+	if month >= 6 and month <=8 and TourGuide = 0 and work = 0:
+		if hour >= 8 and hour <= 18:
+			act 'Apply for the Tour Guide job (0:30)':gt 'tour_guide', 'tourstart'
+		end
+	elseif month >= 6 and month <=8 and TourGuide = 1:
+		if hour >= 8 and hour <= 12:
+			act 'Work as Tour Guide (6:00)':gt 'tour_guide', 'tourstart'
+		end
+	elseif month >= 9 and month <= 5 and TourGuide = 1 and work = 1
+		TourGuide = 0
+		work = 0
+	end
 
 	if mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart:
 		if hour >= 20 or (week > 5 and hour < 8) or (week < 6 and week mod 2 = 0 and hour < 14) or (week mod 2 = 1 and hour < 18):

+ 4 - 0
locations/swamphouse.qsrc

@@ -601,6 +601,7 @@ if $ARGS[0] = 'stackmagazines':
 	'A stack of all kinds of magazines, there''s even one with "interesting" pictures.'
 
 	act 'Read the scientific journal (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -620,6 +621,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the literary magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -640,6 +642,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the entertainment magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -659,6 +662,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the porn magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		blizoruk+=1

+ 135 - 0
locations/tour_guide.qsrc

@@ -0,0 +1,135 @@
+# tour_guide
+! Tour Guide - Full Time Summer Only Job
+
+if $ARGS[0] = 'tourstart':
+	CLOSE ALL
+	$loc = 'tour_guide'
+	$loc_arg = 'tourstart'
+	$location_type = 'public_outdoors'
+	$menu_loc = 'tour_guide'
+	$menu_arg = 'tourstart'
+	menu_off = 1
+	cla & *clr
+	'<center><h2>Imperial Palace</h2></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/pav_palace.jpg"></center>'
+	if TourGuide = 0:
+		minut += 30
+		gs 'stat'
+		'You see an ad posted in the park for summer only tour guides needed and decide to inquire about it at an office outside the old Imperial Palace.'
+		*nl
+		'You answer a few questions the management team asks you and are offered a summer position at 100<b>?</b> an hour, 6 hours a day. Fresh uniforms are provided daily and training will be you shadowing another guide for the first couple of days to make sure you know the details required to lead your groups.'
+		'Like any teenager your only questions are about breaks and days off. The manager smiles, not suprised, and tells you that working is voluntary. If you do not show up then obviously you will not make any money that day, but otherwise no daily commitment is required from you. Breaks will be allowed if there are no groups to lead at that time and you will be given a small lunch everyday that you choose to work.'
+		act 'Accept the position':TourGuide = 1 & work = 1 & gt 'pav_park', 'start'
+		act 'Change your mind': gt 'pav_park', 'start'
+	elseif TourGuide = 1:
+		*clr & cla
+		tourdom = rand(1,3)
+		minut += 180
+		inhib_exp += rand(0,1)
+		humint_exp += rand(0,2)
+		gs 'stat'
+		'<center><h2>Imperial Palace</h2></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/pav_palace.jpg"></center>'
+		'You spend the first part of your day walking tourists around the more famous parts of the park and museum.'
+		
+		if tourdom = 1:
+			act 'Eat lunch and get back to work':
+				minut += 180
+				pcs_health += 10
+				pcs_energy += 40
+				pcs_hydra += 40
+				gs 'stat'
+				gt 'tour_guide', 'tourran1'
+			end
+		elseif tourdom = 2:
+			act 'Eat lunch and get back to work':
+				minut += 180
+				pcs_health += 10
+				pcs_energy += 40
+				pcs_hydra += 40
+				gs 'stat'
+				gt 'tour_guide', 'tourran2'
+			end
+		elseif tourdom = 3:
+			act 'Eat lunch and get back to work':
+				minut += 180
+				pcs_health += 10
+				pcs_energy += 40
+				pcs_hydra += 40
+				gs 'stat'
+				gt 'tour_guide', 'tourran3'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'tourran1':
+	$location_type = 'public_outdoors'
+	menu_off = 1
+	cla & *clr
+	'<center><h2>Imperial Palace</h2></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/pav_palace.jpg"></center>'
+	'Today was pretty boring, nothing interesting happened. You spent most of the time wishing you had gone to the beach or done something else, anything really.'
+	
+	gs 'stat'
+	act 'Continue with the tours': gt 'tour_guide', 'toursdone'
+end
+
+if $ARGS[0] = 'tourran2':
+	$location_type = 'public_outdoors'
+	menu_off = 1
+	cla & *clr
+	'<center><h2>Imperial Palace</h2></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/pav_palace.jpg"></center>'
+	'Your group this time is a bunch of jocks who do not seem all that interested in the tour. They spent a lot of their time talking to each other and mostly ignoring your comments on the history they were supposed to be there to learn about.'
+	*nl
+	'You get really tired of being ignored and finally ask them why they came. "Coach made us," one of them says. "Then he bailed and went back to the hotel to chase maids, probably. As soon as this is done we are going to the beach." The rest of them cheer, obviously looking forward to it.'
+	'You think about it a minute, and realize that since there are so many groups and a lot of tour guides employed nobody would actually miss your group if it went missing for an hour or two. You also know a quiet, out of sight stretch of river nobody would find you.'
+	*nl
+	'Should you suggest slipping away for a swim or just try and finish the tour quickly so they can get to the beach sooner and let you get back to work?'
+	if pcs_horny >= 40:
+		gs 'willpower', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Slip away to the beach (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'easy'
+				gs 'willpower', 'pay'
+				persuas_exp += rand(1,2)
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
+				'You tell the group to follow you as you slip into the trees and down to the river spot you decided would be a good place to swim without interuption. Since they planned to go swimming after the tour they already have swim trunks on and jump straight in once you get there.'
+				'Since you are wearing your tour guide uniform you just lean up against a tree and watch them have fun splashing around, content that at least you can take a break from all that walking and talking. They try and talk you into joining them but you are not comfortable with the idea of swimming in your underwear or naked with a bunch of jocks you do not know while working.'
+				act 'Alright boys, I have to go back to work': gt 'tour_guide', 'toursdone'
+			end
+		else
+			act 'Slip away to the beach(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	end
+	act 'Just finish the tour': gt 'tour_guide', 'toursdone'
+end
+
+if $ARGS[0] = 'tourran3':
+	$location_type = 'public_outdoors'
+	menu_off = 1
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/palace_gardens.jpg"></center>'
+	'You end up with a group that has several small children. When taking them through some of the gardens a couple kids break loose from their parents and run through some of the flower beds. The parents run after them, grab them, and bring them back to the group, faces red with embarressment.'
+	observ_exp += rand(0,1)
+	gs 'stat'
+	act 'Continue with the tour': gt 'tour_guide', 'toursdone'
+end
+
+if $ARGS[0] = 'toursdone':
+	$location_type = 'public_outdoors'
+	menu_off = 1
+	cla & *clr
+	'<center><h2>Imperial Palace</h2></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/palace/pav_palace.jpg"></center>'
+	tourdom = 0
+	money += 600
+	gs 'stat'
+	'As the day goes on the flood of tourists wanting to see the Palace slows to a crawl. Eventually you hit your six hour mark and head back to the office to change into your own clothes and collect your pay.'
+	act 'Done for the day': gt 'pav_park', 'start'
+end
+
+--- tour_guide ---------------------------------