glife/locations/bus.qsrc

# bus

	!!============================================!!
	!!                                            !!
	!!                Bus Stations                !!
	!!                                            !!
	!!============================================!!


		!!-----------------------!!
		!!                       !!
		!!       community       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'community':
	gs 'shortgs', 'setloc', 'bus', 'community'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The community center bus stop'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'community'

	act 'Walk to the community center (0:01)': minut += 1 & gt 'pav_commcenter', ''
	act 'Walk to the Residential area (0:01)': minut += 1 & gt 'pav_residential', ''

	if temp_transportVars['bus_wait_gadukino'] <= 60:
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'community_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'community_tickets'
			gs 'transport_functions', 'buy_bus_pass'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<temp_transportVars[''bus_wait_gadukino'']/60>> hours'
	end

elseif $ARGS[0] = 'community_tickets':
	gs 'shortgs', 'setloc', 'bus', 'community_tickets'
	menu_off = 0

	act 'Leave the ticket office': gt 'bus', 'community'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		act 'Stop looking at the schedule': gt 'bus', 'community_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'community', 'pg'

elseif $ARGS[0] = 'community_busses':
	gs 'shortgs', 'setloc', 'bus', 'community_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'community'
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'community'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		act 'Stop looking at the schedule': gt 'bus', 'community_busses.'
	end

	act 'Take a bus to the Pavlovsk train station (<<func(''transport_functions'', ''display_bus_timecost'', ''community'', ''pavstation'')>>)':	gt 'bus', 'community_pavstation'
	act 'Take a bus to the old town district of Pushkin (<<func(''transport_functions'', ''display_bus_timecost'', ''community'', ''pushkin'')>>)':	gt 'bus', 'community_pushkin'
	act 'Take a bus to the construction site (<<func(''transport_functions'', ''display_bus_timecost'', ''community'', ''construction'')>>)':		gt 'bus', 'community_construction'
	act 'Take a bus to the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''community'', ''gadukino'')>>)':			gt 'bus', 'community_gadukino'
end


		!!-----------------------!!
		!!                       !!
		!!      pavstation       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'pavstation':
	gs 'shortgs', 'setloc', 'bus', 'pavstation'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The Pavlovsk train station bus stop'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'pavstation'

	act 'Walk to the train station (0:02)': minut += 2 & gt 'pav_train_hall', ''
	if transportVars['trainpass_day'] > daystart: act 'Walk to the train platform (0:02)': minut += 2 & gt 'pav_train_hall', 'platform'

	if temp_transportVars['bus_wait_pavlovsk'] <= 60 or temp_transportVars['bus_wait_gadukino'] <= 60:
		'The next bus in the direction of the Pavlovsk community center ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'pavstation_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'pavstation_tickets'
			gs 'transport_functions', 'buy_bus_pass'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_pavlovsk'']/60, temp_transportVars[''bus_wait_gadukino'']/60)>> hours.'
	end

elseif $ARGS[0] = 'pavstation_tickets':
	gs 'shortgs', 'setloc', 'bus', 'pavstation_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'pavstation'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		act 'Stop looking at the schedule': gt 'bus', 'pavstation_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'pavstation', 'pg'

elseif $ARGS[0] = 'pavstation_busses':
	gs 'shortgs', 'setloc', 'bus', 'pavstation_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'pavstation'
	'The next bus in the direction of the Pavlovsk community center ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'pavstation'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		act 'Stop looking at the schedule': gt 'bus', 'pavstation_busses'
	end

	act 'Take a bus to the Pavlovsk community center (<<func(''transport_functions'', ''display_bus_timecost'', ''pavstation'', ''community'')>>)':		gt 'bus', 'pavstation_community'
	act 'Take a bus to the old town district of Pushkin (<<func(''transport_functions'', ''display_bus_timecost'', ''pavstation'', ''pushkin'')>>)':	gt 'bus', 'pavstation_pushkin'
	act 'Take a bus to the construction site (<<func(''transport_functions'', ''display_bus_timecost'', ''pavstation'', ''construction'')>>)':			gt 'bus', 'pavstation_construction'
	act 'Take a bus to the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''pavstation'', ''gadukino'')>>)':			gt 'bus', 'pavstation_gadukino'
end


		!!-----------------------!!
		!!                       !!
		!!        pushkin        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'pushkin':
	gs 'shortgs', 'setloc', 'bus', 'pushkin'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The bus stop in the old town center of Pushkin'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'pushkin'

	act 'Walk to pushkin (0:05)': minut += 5 & gt 'pushkin', ''

	if temp_transportVars['bus_wait_pavlovsk'] <= 60 or temp_transportVars['bus_wait_gadukino'] <= 60:
		'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'pushkin_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'pushkin_tickets'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_pavlovsk'']/60, temp_transportVars[''bus_wait_gadukino'']/60)>> hours.'
	end

elseif $ARGS[0] = 'pushkin_tickets':
	gs 'shortgs', 'setloc', 'bus', 'pushkin_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'pushkin'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		act 'Stop looking at the schedule': gt 'bus', 'pushkin_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'pushkin', 'pg'

elseif $ARGS[0] = 'pushkin_busses':
	gs 'shortgs', 'setloc', 'bus', 'pushkin_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'pushkin'
	'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'pushkin'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		act 'Stop looking at the schedule': gt 'bus', 'pushkin_busses'
	end

	act 'Take a bus to the Pavlovsk community center (<<func(''transport_functions'', ''display_bus_timecost'', ''pushkin'', ''community'')>>)':	gt 'bus', 'pushkin_community'
	act 'Take a bus to the Pavlovsk train station (<<func(''transport_functions'', ''display_bus_timecost'', ''pushkin'', ''pavstation'')>>)':		gt 'bus', 'pushkin_pavstation'
	act 'Take a bus to the construction site (<<func(''transport_functions'', ''display_bus_timecost'', ''pushkin'', ''construction'')>>)':			gt 'bus', 'pushkin_construction'
	act 'Take a bus to the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''pushkin'', ''gadukino'')>>)':			gt 'bus', 'pushkin_gadukino'
end


		!!-----------------------!!
		!!                       !!
		!!     construction      !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'construction':
	gs 'shortgs', 'setloc', 'bus', 'construction'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The temporary bus stop near the construction site'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'construction'

	act 'Walk to the road (0:05)': minut += 5 & nroad = 16 & gt 'road', ''

	if temp_transportVars['bus_wait_pavlovsk'] <= 60 or temp_transportVars['bus_wait_gadukino'] <= 60:
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'construction_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'construction_tickets'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_pavlovsk'']/60, temp_transportVars[''bus_wait_gadukino'']/60)>> hours.'
	end

elseif $ARGS[0] = 'construction_tickets':
	gs 'shortgs', 'setloc', 'bus', 'construction_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'construction'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		act 'Stop looking at the schedule': gt 'bus', 'construction_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'construction', 'gp'

elseif $ARGS[0] = 'construction_busses':
	gs 'shortgs', 'setloc', 'bus', 'construction_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'construction'
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
	'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'construction'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'pg'
		act 'Stop looking at the schedule': gt 'bus', 'construction_busses'
	end

	act 'Take a bus to the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''construction'', ''gadukino'')>>)':			gt 'bus', 'construction_gadukino'
	act 'Take a bus to the old town district of Pushkin (<<func(''transport_functions'', ''display_bus_timecost'', ''construction'', ''pushkin'')>>)':	gt 'bus', 'construction_pushkin'
	act 'Take a bus to the Pavlovsk train station (<<func(''transport_functions'', ''display_bus_timecost'', ''construction'', ''pavstation'')>>)':		gt 'bus', 'construction_pavstation'
	act 'Take a bus to the Pavlovsk community center (<<func(''transport_functions'', ''display_bus_timecost'', ''construction'', ''community'')>>)':	gt 'bus', 'construction_community'
end


		!!-----------------------!!
		!!                       !!
		!!       gadukino        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'gadukino':
	gs 'shortgs', 'setloc', 'bus', 'gadukino'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The bus stop at the forest road of the village of Gadukino'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'gadukino'

	act 'Walk to Gadukino (0:01)': minut += 1 & gt 'gad_road', 'start'

	if temp_transportVars['bus_wait_pavlovsk'] <= 60 or temp_transportVars['bus_wait_suburbs'] <= 60:
		'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
		'The next bus in the direction of the suburbs of St. Petersburg ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'gadukino_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'gadukino_tickets'
			gs 'transport_functions', 'buy_bus_pass'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_pavlovsk'']/60, temp_transportVars[''bus_wait_suburbs'']/60)>> hours.'
	end

elseif $ARGS[0] = 'gadukino_tickets':
	gs 'shortgs', 'setloc', 'bus', 'gadukino_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'gadukino'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		act 'Stop looking at the schedule': gt 'bus', 'gadukino_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'gadukino', 'gp'
	gs 'transport_functions', 'buy_bus_ticket', 'gadukino', 'gs'

elseif $ARGS[0] = 'gadukino_busses':
	gs 'shortgs', 'setloc', 'bus', 'gadukino_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'gadukino'
	'The next bus in the direction of Pavlovsk ' + iif(temp_transportVars['bus_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_pavlovsk'']>> minutes.')
	'The next bus in the direction of the suburbs of the St. Petersburg suburbs ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'gadukino'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gp'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		act 'Stop looking at the schedule': gt 'bus', 'gadukino_busses'
	end

	act 'Take a bus to the construction site (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''construction'')>>)':			gt 'bus', 'gadukino_construction'
	act 'Take a bus to the old town district of Pushkin (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''pushkin'')>>)':		gt 'bus', 'gadukino_pushkin'
	act 'Take a bus to the Pavlovsk train station (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''pavstation'')>>)':			gt 'bus', 'gadukino_pavstation'
	act 'Take a bus to the Pavlovsk community center (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''community'')>>)':		gt 'bus', 'gadukino_community'

	act 'Take a bus to the communal village (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''communal'')>>)':					gt 'bus', 'gadukino_communal'
	act 'Take a bus the cemetery outside of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''graveyard'')>>)':	gt 'bus', 'gadukino_graveyard'
	act 'Take a bus to the the suburbs of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''gadukino'', ''suburbs'')>>)':		gt 'bus', 'gadukino_suburbs'
end


		!!-----------------------!!
		!!                       !!
		!!       communal        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'communal':
	gs 'shortgs', 'setloc', 'bus', 'communal'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The bus stop in the communal village'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'communal'
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
	'The next bus in the direction of the suburbs of St. Petersburg ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')

	act 'Walk to the communal village (0:03)': minut += 3 & gt 'dachi', ''

	if temp_transportVars['bus_wait_gadukino'] <= 60 or temp_transportVars['bus_wait_suburbs'] <= 60:
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		'The next bus in the direction of the suburbs of St. Petersburg ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')

		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'communal_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'communal_tickets'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_gadukino'']/60, temp_transportVars[''bus_wait_suburbs'']/60)>> hours.'
	end

elseif $ARGS[0] = 'communal_tickets':
	gs 'shortgs', 'setloc', 'bus', 'communal_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'communal'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		act 'Stop looking at the schedule': gt 'bus', 'communal_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'communal', 'gs'

elseif $ARGS[0] = 'communal_busses':
	gs 'shortgs', 'setloc', 'bus', 'communal_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'communal'
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
	'The next bus in the direction of the suburbs of the St. Petersburg suburbs ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'communal'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		act 'Stop looking at the schedule': gt 'bus', 'communal_busses'
	end

	act 'Take a bus to the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''communal'', ''gadukino'')>>)':					gt 'bus', 'communal_gadukino'
	act 'Take a bus the cemetery outside of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''communal'', ''graveyard'')>>)':		gt 'bus', 'communal_graveyard'
	act 'Take a bus to the the suburbs of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''communal'', ''suburbs'')>>)':			gt 'bus', 'communal_suburbs'
end


		!!-----------------------!!
		!!                       !!
		!!       graveyard       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'graveyard':
	gs 'shortgs', 'setloc', 'bus', 'graveyard'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The cemetery bus stop'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'graveyard'

	act 'Walk to the road (0:01)': minut += 1 & nroad = 3 & gt 'road', ''
	act 'Walk to the cemetary (0:15)': minut += 15 & gt 'graveyard'

	if temp_transportVars['bus_wait_gadukino'] <= 60 or temp_transportVars['bus_wait_suburbs'] <= 60:
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		'The next bus in the direction of the suburbs of St. Petersburg ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'graveyard_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'graveyard_tickets'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<min(temp_transportVars[''bus_wait_gadukino'']/60, temp_transportVars[''bus_wait_suburbs'']/60)>> hours.'
	end

elseif $ARGS[0] = 'graveyard_tickets':
	gs 'shortgs', 'setloc', 'bus', 'graveyard_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'graveyard'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		act 'Stop looking at the schedule': gt 'bus', 'graveyard_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'graveyard', 'sg'

elseif $ARGS[0] = 'graveyard_busses':
	gs 'shortgs', 'setloc', 'bus', 'graveyard_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'graveyard'
	'The next bus in the direction of the suburbs of the St. Petersburg suburbs ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'graveyard'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		*nl
		*nl
		gs 'transport_functions', 'display_bus_schedule', 'gs'
		act 'Stop looking at the schedule': gt 'bus', 'graveyard_busses'
	end

	act 'Take a bus to the suburbs of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''graveyard'', ''suburbs'')>>)':	gt 'bus', 'graveyard_suburbs'
	act 'Take a bus to the communal village (<<func(''transport_functions'', ''display_bus_timecost'', ''graveyard'', ''communal'')>>)':			gt 'bus', 'graveyard_communal'
	act 'Take a bus the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''graveyard'', ''gadukino'')>>)':			gt 'bus', 'graveyard_gadukino'
end


		!!-----------------------!!
		!!                       !!
		!!        suburbs        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'suburbs':
	gs 'shortgs', 'setloc', 'bus', 'suburbs'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'stat'

	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/winter_night<<rand(1, 3)>>.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/day<<rand(1, 3)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/night<<rand(1, 3)>>.jpg"></center>'
		end
	end

	'The bus stop near the suburbs of St. Petersburg'
	*nl
	gs 'transport_functions', 'set_bus_wait_time', 'suburbs'

	act 'Walk to the suburbs (0:05)': minut += 5 & gt 'city_suburbs', 'start'

	if hour >= 4 and hour < 23: act 'Walk to the Metro station (0:15)': minut += 15 & $loc = 'city_suburbs' & $loc_arg = 'start' & gt 'metro', 'start'

	if temp_transportVars['bus_wait_gadukino'] <= 60:
		'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')
		if transportVars['buspass_day'] > daystart:
			*nl
			func('transport_functions', 'display_buspass_time')
			act 'Go to platforms': gt 'bus', 'suburbs_busses'
		else
			act 'Walk to the ticket machine': gt 'bus', 'suburbs_tickets'
			gs 'transport_functions', 'buy_bus_pass'
		end
	else
		'It''s too late to take the bus. The next one arrives in <<temp_transportVars[''bus_wait_gadukino'']/60>> hours'
	end

elseif $ARGS[0] = 'suburbs_tickets':
	gs 'shortgs', 'setloc', 'bus', 'suburbs_tickets'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'bus', 'suburbs'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		act 'Stop looking at the schedule': gt 'bus', 'suburbs_tickets'
	end

	gs 'transport_functions', 'buy_bus_ticket', 'suburbs', 'sg'

elseif $ARGS[0] = 'suburbs_busses':
	gs 'shortgs', 'setloc', 'bus', 'suburbs_busses'
	menu_off = 0

	gs 'transport_functions', 'set_bus_wait_time', 'suburbs'
	'The next bus in the direction of the suburbs of the St. Petersburg suburbs ' + iif(temp_transportVars['bus_wait_suburbs'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_suburbs'']>> minutes.')
	'The next bus in the direction of Gadukino ' + iif(temp_transportVars['bus_wait_gadukino'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''bus_wait_gadukino'']>> minutes.')

	act 'Leave the platform': gt 'bus', 'suburbs'

	act 'Look at the bus schedule':
		*clr & cla
		gs 'transport_functions', 'display_bus_schedule', 'sg'
		act 'Stop looking at the schedule': gt 'bus', 'suburbs_busses'
	end

	act 'Take a bus the cemetery outside of St. Petersburg (<<func(''transport_functions'', ''display_bus_timecost'', ''suburbs'', ''graveyard'')>>)':	gt 'bus', 'suburbs_graveyard'
	act 'Take a bus to the communal village (<<func(''transport_functions'', ''display_bus_timecost'', ''suburbs'', ''communal'')>>)':					gt 'bus', 'suburbs_communal'
	act 'Take a bus the village of Gadukino (<<func(''transport_functions'', ''display_bus_timecost'', ''suburbs'', ''gadukino'')>>)':					gt 'bus', 'suburbs_gadukino'
end




	!!============================================!!
	!!                                            !!
	!!               Bus Transport                !!
	!!                                            !!
	!!============================================!!


		!!-----------------------!!
		!!                       !!
		!!       community       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'community_pavstation':
	$loc = 'bus'
	$loc_arg = 'pavstation'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'community', 'pavstation') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	!'<center><img <<$set_imgh>> src="images/system/image_needed.png" ></center>'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk train station bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'community_pushkin':
	$loc = 'bus'
	$loc_arg = 'pushkin'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'community', 'pushkin') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pushkin bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'community_construction':
	$loc = 'bus'
	$loc_arg = 'construction'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'community', 'construction') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the construction site bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'community_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'community', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!      pavstation       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'pavstation_community':
	$loc = 'bus'
	$loc_arg = 'community'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pavstation', 'community') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk community center bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pavstation_pushkin':
	$loc = 'bus'
	$loc_arg = 'pushkin'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pavstation', 'pushkin') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pushkin bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pavstation_construction':
	$loc = 'bus'
	$loc_arg = 'construction'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pavstation', 'construction') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the construction site bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pavstation_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pavstation', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!        pushkin        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'pushkin_community':
	$loc = 'bus'
	$loc_arg = 'community'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pushkin', 'community') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk community center bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pushkin_pavstation':
	$loc = 'bus'
	$loc_arg = 'pavstation'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pushkin', 'pavstation') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk train station bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pushkin_construction':
	$loc = 'bus'
	$loc_arg = 'construction'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pushkin', 'construction') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the construction site bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'pushkin_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'pushkin', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!     construction      !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'construction_community':
	$loc = 'bus'
	$loc_arg = 'community'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'construction', 'community') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk community center bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'construction_pavstation':
	$loc = 'bus'
	$loc_arg = 'pavstation'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'construction', 'pavstation') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk train station bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'construction_pushkin':
	$loc = 'bus'
	$loc_arg = 'pushkin'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'construction', 'pushkin') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pushkin bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'construction_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'construction', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!       gadukino        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'gadukino_community':
	$loc = 'bus'
	$loc_arg = 'community'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'community') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk community center bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_pavstation':
	$loc = 'bus'
	$loc_arg = 'pavstation'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'pavstation') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pavlovsk train station bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_pushkin':
	$loc = 'bus'
	$loc_arg = 'pushkin'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'pushkin') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Pushkin bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_construction':
	$loc = 'bus'
	$loc_arg = 'construction'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'construction') + temp_transportVars['bus_wait_pavlovsk']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the construction site bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_communal':
	$loc = 'bus'
	$loc_arg = 'communal'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'communal') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the communal village bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_graveyard':
	$loc = 'bus'
	$loc_arg = 'graveyard'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'graveyard') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the graveyard bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'gadukino_suburbs':
	$loc = 'bus'
	$loc_arg = 'suburbs'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'gadukino', 'suburbs') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the suburbs bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!       communal        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'communal_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'communal', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'communal_graveyard':
	$loc = 'bus'
	$loc_arg = 'graveyard'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'communal', 'graveyard') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the graveyard bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'communal_suburbs':
	$loc = 'bus'
	$loc_arg = 'suburbs'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'communal', 'suburbs') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the suburbs bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!       graveyard       !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'graveyard_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'graveyard', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'graveyard_communal':
	$loc = 'bus'
	$loc_arg = 'communal'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'graveyard', 'communal') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the communal village bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'graveyard_suburbs':
	$loc = 'bus'
	$loc_arg = 'suburbs'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'graveyard', 'suburbs') + temp_transportVars['bus_wait_suburbs']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the suburbs bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end


		!!-----------------------!!
		!!                       !!
		!!        suburbs        !!
		!!                       !!
		!!-----------------------!!

if $ARGS[0] = 'suburbs_gadukino':
	$loc = 'bus'
	$loc_arg = 'gadukino'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'suburbs', 'gadukino') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the Gadukino bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'suburbs_communal':
	$loc = 'bus'
	$loc_arg = 'communal'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'suburbs', 'communal') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the communal village bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end

elseif $ARGS[0] = 'suburbs_graveyard':
	$loc = 'bus'
	$loc_arg = 'graveyard'
	$location_type = 'public_indoors'
	menu_off = 1

	gs 'transport_functions', 'set_bus_wait_time'
	temp_transportVars['timecost'] = func('transport_functions', 'get_bus_timecost', 'suburbs', 'graveyard') + temp_transportVars['bus_wait_gadukino']
	minut += temp_transportVars['timecost']
	gs 'stat'

	temp_transportVars['rand'] = rand(1, 100)
	if temp_transportVars['rand'] <= 9:
		gt 'bus_incidental', 'events'
	elseif transportVars['bus_event_day'] ! daystart:
		if temp_transportVars['rand'] <= 16:
			gt 'bus_events', 'events'
		end
	end

	gs 'bus', 'get_bus_image'
	'After <<temp_transportVars[''timecost'']>> minutes, the bus stops at the graveyard bus station.'
	act 'Get off the bus':
		if rand(1, 100) <= 5: gt 'bus_incidental', 'end'
		gt $loc, $loc_arg
	end
end




	!!============================================!!
	!!                                            !!
	!!            Genereric Functions             !!
	!!                                            !!
	!!============================================!!


if $ARGS[0] = 'get_bus_image':
	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/bus_day1.jpg" ></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/bus_night1.jpg" ></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/bus_day1.jpg" ></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/shared/bus/bus_night1.jpg" ></center>'
		end
	end
end

killvar 'temp_transportVars'

--- bus ------------------------------------