slife/locations/080_metro

# metro
if $ARGS[0] = 'start':
	'<center><b><font color="maroon">Metro station</font></b></center>'

	if $loc = 'street':'<center><b><font color="maroon">Residential area</font></b></center>'
	if $loc = 'down':'<center><b><font color="maroon">Center</font></b></center>'
	if $loc = 'Nord':'<center><b><font color="maroon">Northern region</font></b></center>'

	'<center><img src="images/etogame/metro.jpg"></center>'
	'Subway fare costs 16 rubles.'
	set minut += 15
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	if workDisk = 3 and konvert = 1:
		badrand = rand(0, 100)
		if badrand >= 80:konvert = 0
	end

	if money >= 16:
		if $loc!'street':
			act 'Go to the residential area':
				set $loc = 'street'
				gt 'metro', 'vagon'
			end
		end

		if $loc!'down':
			act 'Go to the center':
				set $loc = 'down'
				gt 'metro', 'vagon'
			end
		end

		if $loc!'Nord':
			act 'Go to the northern area':
				set $loc = 'Nord'
				gt 'metro', 'vagon'
			end
		end
	end

	act 'Get off the subway':
		set minut += 15
		gt '<<$loc>>'
	end
end

if $ARGS[0] = 'vagon':
	cla
	'<center><b><font color="maroon">Subway car</font></b></center>'
	clr
	set money -= 16
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	if hour < 5 or hour > 10 and hour < 15 or hour > 24:
		'<center><img src="images/etogame/vagon.jpg"></center>'
		'In the car just a few passengers sadly examines advertising in the car.'
	end

	if hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
		'<center><img src="images/etogame/vagonFull.jpg"></center>'
		'In the car, a lot of people all standing like statues without paying the slightest attention to others.'
		set frotrand = rand(0, 100)

		if frotrand >= 90 - (frot * 10) and frot < 3:gt 'frot', 'a'
		if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 1 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 1:
			set tipfrot = rand(0, 1)

			if tipfrot = 0:gt 'frot', 'b'
			if tipfrot = 1:gt 'frot', 'd1'

			!gt 'frot', 'b'
		end

		if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 0 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 0:
			set tipfrot = rand(0, 2)

			if tipfrot =0:gt 'frot', 'c'
			if tipfrot =1:gt 'frot', 'd'
			if tipfrot =2:gt 'frot', 'e'
		end
	end

	if sosedQW >= 1:
		if hour = 7 or hour = 15:
			sosedMetroRand = rand(0, 100)

			if sosedMetroRand >= 60 and sosedMetroDay ! day:'You notice in the subway <a href="exec:Gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
		end
	end

	if cumfrot > 0 or cumface > 0:
		if hour >= 7 and hour <= 21:
			manna -= 10
			'Several passengers were hatched at you looking at where you cum smeared.'
		end
	end

	act 'Get out of the car':gt 'metro', 'start'
end

--- metro ---------------------------------