[changed] made the player's car accessible from the red light district and added five minutes passing when accessing the car in the industrial district or red light district when the car is parked somewhere that takes five minutes to walk to from where the player currently is

locations/carF.qsrc

@@ -23,6 +23,7 @@ $enddrive = {
 	if cardrive = 24:gt 'pav_commercial'
 	if cardrive = 25:gt 'city_island'
 	if cardrive = 26:gt 'pav_industrial'
+	if cardrive = 27:gt 'city_industrial', 'redlight'
 }
 
 if $ARGS[0] = 'start':
@@ -102,6 +103,7 @@ if $ARGS[0] = 'salon':
 	if cardrive = 24:'Through the windshield, you can see Pavlovsk''s commercial region.'
 	if cardrive = 25:'You cross one of the bridges that leads to the island.'
 	if cardrive = 26:'Through the windshield, you can see Pavlovsk''s industrial region.'
+	if cardrive = 27:'Through the windshield, you see St. Petersburg''s red light district.'
 
 	if prava = 0:'You don''t have a driver''s license.'
 
@@ -189,7 +191,7 @@ if $ARGS[0] = 'salon':
 					'You drive out of Pavlovsk.'
 					gs 'carF', 'other'
 				end
-			elseif cardrive <= 11 or cardrive = 19 or cardrive = 25:
+			elseif cardrive <= 11 or cardrive = 19 or cardrive = 25 or cardrive = 27:
 				car_town = 1
 				act 'Go to another city destination': gs 'carF', 'city'
 				act 'Go to Pavlovsk':
@@ -506,6 +508,18 @@ if $ARGS[0] = 'city':
 			dynamic $enddrive
 		end
 	end
+
+	if cardrive ! 27:
+		act 'Go to the red light district':
+			cla
+			minut += 5
+			benz -= 1
+			teh -= rand(1, 3)
+			cardrive = 27
+			'5 minutes later, you arrive at your destination.'
+			dynamic $enddrive
+		end
+	end
 end
 
 --- carF ---------------------------------

locations/city_industrial.qsrc

@@ -48,7 +48,7 @@ if $ARGS[0] = '':
 
 	gs 'taxi'
 
-	if car > 0 and cardrive = 3 or (cardrive >= 6 and cardrive <= 9):'In the parking stands your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
+	if car > 0 and (cardrive = 3 or (cardrive >= 6 and cardrive <= 9) or cardrive = 27):'In the parking stands your <a href="exec:' + iif(cardrive = 3, '', 'minut += 5 & ') + 'gs ''carF'', ''start''"><<$car>></a>.'
 
 	'The town''s <a href="exec:minut += 60 & gt ''city_park'', ''start''">central park</a> is a one hour walk from here.'
 
@@ -166,6 +166,8 @@ if $ARGS[0] = 'redlight':
 	
 	gs 'taxi'
 
+	if car > 0 and (cardrive = 3 or (cardrive >= 6 and cardrive <= 9) or cardrive = 27):'In the parking stands your <a href="exec:' + iif(cardrive = 27, '', 'minut += 5 & ') + 'gs ''carF'', ''start''"><<$car>></a>.'
+
 	if hour >= 20 or hour <= 4:
 		*nl
 		'There are prostitutes working in places near here.'