glife/locations/carF.qsrc

# carF

$enddrive = {
	if cardrive = 1:gt 'street'
	if cardrive = 2:gt 'down'
	if cardrive = 3:gt 'Nord'
	if cardrive = 4:gt 'lake', 'start'
	if cardrive = 5:gt 'park', 'start'
	if cardrive = 6:gt 'zaprF', 'start'
	if cardrive = 7:gt 'autoservisF', 'start'
	if cardrive = 8:gt 'autosalonF', 'start'
	if cardrive = 9:gt 'autotraidF', 'start'
	if cardrive = 10:gt 'park', 'whore'
	if cardrive = 11:gt 'sauna'
	if cardrive = 12:gt 'obekt'
	if cardrive = 13:gt 'dachi'	
	if cardrive = 14:gt 'liam'
	if cardrive = 18:gt 'youplace'
	if cardrive = 19:gt'vokzal'
	if cardrive = 20:gt 'pavResidential'
	if cardrive = 21:gt'zaprF','start'
	if cardrive = 22:gt'road'
	if cardrive = 23:gt'gadukino'
	if cardrive = 24:gt'pavCommercial'
	if cardrive = 25:gt'island'
}

if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	CLOSE ALL
	cla
	clr
	*clr
	minut += 1
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><<$car>></b></center>'
	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car<<car>>.jpg"></center>'

	act 'Move away from the car':dynamic $enddrive

	if kanistra > 0:
		'In the trunk there is a <<kanistra>>. It contains 5 liters of gasoline.'

		if benz <= 35:
			act 'Pour gasoline into the tank':
				cla
				benz += 5
				kanistra -= 1
				'You emptied the canister of gasoline in the tank.'

				act 'Move away':gt 'carF', 'start'
			end
		end
	end

	act 'Get in the car':gt 'carF', 'salon'
end

if $ARGS[0] = 'salon':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	minut += 1
	gs 'stat'
	'<center><b><<$car>></b></center>'
	'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon<<car>>.jpg"></center>'
	'Gasoline - <<benz>> liters, the fuel tank has a capacity of 40 liters.'

	if teh <= 0:teh = 0 & wrek = 1
	if teh <= 0 or wrek = 1:$teh = 'The car is in need of repairs and won''t start.'
	if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'The car is in excellent condition.'
	if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'While driving, you occasionally hear some troubling noises'
	if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'The car seems broken and barely drives.'
	if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'How this car still runs is a mystery, even to its designers.'

	'<<$teh>>'

	if cardrive = 1:'Through the windshield, you see the residential area.'
	if cardrive = 2:'Through the windshield, you see downtown.'
	if cardrive = 3:'Through the windshield, you see the city industrial region.'
	if cardrive = 4:'Through the windshield, you see the lake.'
	if cardrive = 12:'Through the windshield, you see a construction site.'
	if cardrive = 14:'Through the windshield, you see the old town.'
	if cardrive = 5:'Through the windshield, you can see the park.'
	if cardrive = 19:'Through the windshield, you see the Station.'
	if cardrive = 23:'Through the windshield, you see the huts of the village of Gadyukino.'
	if cardrive = 24:'Through the windshield, you can see the Old Town.'
	if cardrive = 25:'You cross one of the bridges that leads to the island.'

	if prava = 0:'You don''t have a driver''s license.'

	act 'Get out of the car':dynamic $enddrive

	if benz > 0 and wrek = 0 and prava > 0:
		if teh >= tehcar * 75 / 100 and wrek = 0:
			wrekrand = rand(0, 1000)

			if wrekrand = 1000:wrek = 1
		elseif teh < tehcar * 75 / 100 and teh >= tehcar * 50/100 and wrek = 0:
			wrekrand = rand(0, 100)

			if wrekrand = 100:wrek = 1
		elseif teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:
			wrekrand = rand(0, 100)

			if wrekrand >= 80:wrek = 1
		elseif teh < tehcar * 25 / 100 and wrek = 0:
			wrekrand = rand(0, 100)

			if wrekrand >= 40:wrek = 1
		elseif wrek = 1:
			'Something clatters loudly, and the engine stalls.'

			act 'Fuck':gt 'carF', 'salon'
		end

		if alko > 0:
			dpsrand = rand(0, 100)

			if dpsrand <= alko:
				'A policeman stops you, he looks at your condition and requests you breathe into a tube. You breathe and a red light brightens up on the instrument panel.'
				'The officer snorts, and writes something down. He hands you a slip of paper with the number 50,000 on it'
				'"Or I can write a report. But you will get a permanent record for driving drunk."'

				if money >= 50000:
					act 'Bribe him (50,000 <b>₽</b>)':
						cla
						money = money - 50000
						'You pay and the policeman warns you that you can not keep driving in your drunken state.'

						act 'In the salon':gt 'carF', 'salon'
					end
				end

				act 'Come on, this is within the law':
					cla
					prava = 0
					'"I can take your license, for not driving sober."'

					act 'In the salon':gt 'carF', 'salon'
				end

				exit
			end
		elseif alko >= 10:
			avarand = rand(0, 100)

			if avarand >= 50:
				teh = teh/2
				wrek = 1
				'Driving drunkn, you crash into a tree and wreck your car.'

				act 'In the salon':gt 'carF', 'salon'

				exit
			end
		end

		if wrek = 0:
			if cardrive >= 20:
				if cardrive ! 3:
					act 'Go to town':
						cla
						minut += 75
						benz -= 1
						teh -= rand(3, 6)
						cardrive = 3
						'You drive for more than an hour on the highway before you get to the city.'
						dynamic $enddrive
					end
				end

				if cardrive ! 21:
					act 'Go to the gas station':
						cla
						minut += 15
						benz -= 1
						teh -= rand(1, 3)
						cardrive = 21
						'15 minutes later, you arrive at your destination.'
						dynamic $enddrive
					end
				end
			end

			if home_owned[5] > 0 and cardrive ! 18:
				act 'Go to your mansion':
					cla

					if cardrive >= 20:
						minut += 60
						benz -= 1
						teh -= rand(1, 3)
						cardrive = 18
					else
						minut += 15
						benz -= 1
						teh -= rand(1, 3)
						cardrive = 18
					end

					'You drive to your mansion.'
					dynamic $enddrive
				end
			end

			if cardrive ! 1 and cardrive < 20:
				act 'Go to the residential area':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 1
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 2 and cardrive < 20:
				act 'Go to the city center':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 2
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 3 and cardrive < 20:
				act 'Go to the city industrial area':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 3
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 19 and cardrive < 20:
				act 'Go to the city train station':
					cla
					minut = minut + 15
					benz = benz - 1
					teh = teh - RAND(1,3)
					cardrive = 19

					'15 minutes later, you arrive at your destination.'

					dynamic $enddrive
				end
			end

			if cardrive ! 4 and cardrive < 20:
				act 'Go to the city lake':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 4
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 5 and cardrive < 20:
				act 'Go to the city park':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 5
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 6 and cardrive < 20:
				act 'Go to the gas station':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 6
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 7 and cardrive < 20:
				act 'Go to the car wash':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 7
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 8 and cardrive < 20:
				act 'Go to a car dealership':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 8
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 9 and cardrive < 20:
				act 'Go to the used car dealership':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 9
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 25 and cardrive < 20:
				act 'Go to the island':
					cla
					minut += 15
					benz -= 1
					teh -= rand(1, 3)
					cardrive = 25
					'15 minutes later, you arrive at your destination.'
					dynamic $enddrive
				end
			end

			if cardrive ! 12:
				act 'Go to the construction site':
					cla
					if cardrive < 20:
						minut += 60
						'It takes an hour to get to your destination.'
					else
						minut += 15
						'15 minutes later, you arrive at your destination.'
					end
					benz -= 1
					teh -= rand(2, 5)
					cardrive = 12

					dynamic $enddrive
				end
			end

			if cardrive ! 13:
				act 'Go to the Suburban Cooperative':
					cla
					if cardrive >= 20:
						minut += 60
						'It takes an hour to get to your destination.'
					else
						minut += 15
						'15 minutes later, you arrive at your destination.'
					end
					benz -= 1
					teh -= rand(2, 5)
					cardrive = 13

					dynamic $enddrive
				end
			end

			if cardrive ! 14:
				act 'Go to the Old Town':
					cla
					if cardrive < 20:
						minut += 75
						'It takes you more than an hour to get to the Old Town.'
					else
						minut += 15
						'15 minutes later, you reach the Old Town.'
					end
					benz -= 1
					teh -= rand(2, 5)
					cardrive = 14

					dynamic $enddrive
				end
			end

			if cardrive ! 20:
				act 'Go to Pavlovsk residential area':
					cla
					benz -= 1
					teh -= rand(3, 6)
					cardrive = 20

					if cardrive < 20:
						minut += 75
						'You spend more than an hour on the highway going to Pavlovsk.'
					else
						minut += 15
						'15 minutes later, you reach your destination.'
					end

					dynamic $enddrive
				end
			end

			if cardrive ! 23:
				act 'To go to the village of Gadyukino':
					cla
					benz = benz - 1
					teh = teh - RAND(3,6)
					cardrive = 23

					if cardrive < 20:
						minut += 75
						'You spend more than an hour on the highway going to Gadyukino.'
					else
						minut += 15
						'15 minutes later, you reach your destination.'
					end

					dynamic $enddrive
				end
			end

			if cardrive ! 24:
				act 'Go to Pavlovsk high street':
					cla
					benz -= 1
					teh -= rand(3, 6)
					cardrive = 24

					if cardrive < 20:
						minut += 75
						'You spend more than an hour on the highway going to Pavlovsk.'
					else
						minut += 15
						'15 minutes later, you reach your destination.'
					end

					dynamic $enddrive
				end
			end

			act 'Drive the St. Petersburg - Pavlovsk Highway':
				'You drive out onto the highway.'
				:oops
				cla
				if cardrive < 20:
					numberRoad = input("How many km toward Pavlovsk do you go (from 0 to 20)")
				else
					numroadtemp = input("How many km toward St Petersburg do you go (from 0 to 20)")
					numberroad = 20 - numroadtemp & killvar 'numroadtemp'
				end
				if numberRoad >= 0 and numberRoad <= 20:
					cardrive = 22
					nroad = numberRoad
					ncarroad = numberRoad
				else
					'Invalid Entry'
					jump 'oops'
				end

				xgt 'carF', 'salon'
			end

			act 'Drive on the track (1:00)':
				cla
				minut += 60
				benz -= 4
				teh -= rand(2, 6)
				pcs_mood += 20
				wipo += 10
				'You go to the track and have fun driving around before leaving.'

				act 'Finish':xgt 'carF', 'salon'
			end
		end
	end
end

--- carF ---------------------------------