glife/locations/city_industrial_train.qsrc

# city_industrial_train
!2021/05/06

if $ARGS[0] = 'inside':
	$loc_arg = 'inside'
	$loc = 'city_industrial_train'
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'inside'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	CLOSE ALL
	if sound = 0:PLAY 'sound/vokzal.mp3',30
	*clr & cla
	gs'stat'
	'<center><img <<$set_imgh>> src="images/locations/shared/train/vokzalholle.jpg" ></center>'
	act 'Leave the station': minut += 2 & gt 'city_industrial_train', 'outside'
	*nl
	if transportVars['trainpass_day'] > daystart:
		func('transport_functions', 'display_trainpass_time')
		act 'Go to the platforms': gt 'city_industrial_train', 'platform'
	else
		act 'Go to the ticket office': minut += 1 & gt 'city_industrial_train', 'ticket'
	end
	act 'Go to the restrooms': minut += 1 & gt 'city_industrial_train', 'toilet'
end

if $ARGS[0] = 'outside':
	$loc_arg = 'outside'
	$loc = 'city_industrial_train'
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'outside'
	menu_off = 0
	$location_type = 'public_outdoors'
	*clr & cla
	gs'stat'
	'<center><B>Railway station</B></center>'
	if month >= 11 or month <= 3:
		if hour >= 9 and hour <= 16:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/pavtrainstation_winter_day.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/pavtrainstation_winter_night.jpg"></center>'
		end
	else
		if hour >= 7 and hour <= 18:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/pavtrainstation_day.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/pavtrainstation_night.jpg"></center>'
		end
	end
	
	if car > 0 and cardrive = 19:
		cardrive = 19
		'In the parking lot is <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	end

	'There is a path leading off in to the distance, in the direction of the <a href="exec:minut += 60 & gt ''city_lake'', ''start''">lake</a>.'

	act 'Walk to the City Industrial Region': minut += 15 & gt 'city_industrial'
	act 'Walk to the lake': minut += 60 & gt 'city_lake', 'start'
	act 'Enter the station building': minut += 2 & gt 'city_industrial_train', 'inside'
end

if $ARGS[0] = 'platform':
	$loc_arg = 'platform'
	$loc = 'city_industrial_train'
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'inside'
	menu_off = 0
	$location_type = 'public_outdoors'
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzalper.jpg" ></center>'
	'When you arrive at the platform, you can''t help but notice it bustling with activity. Lots of passengers are coming and going, all carrying large bags. It feels like it is always busy here, no matter at what time of the day you are here.'
	*nl
	gs 'transport_functions', 'set_train_wait_time', 'ind'
	'The next train in the direction of the city center ' + iif(temp_transportVars['train_wait_center'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''train_wait_center'']>> minutes.')
	'The next train in the direction of Pavlovsk ' + iif(temp_transportVars['train_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''train_wait_pavlovsk'']>> minutes.')

	act 'Return to the station': minut += 5 & gt 'city_industrial_train', 'inside'
	
	act 'Look at the train schedule':
		*clr & cla
		gs 'transport_functions', 'display_train_schedule'
		*nl
		*nl
		gs 'transport_functions', 'display_train_schedule', 'pc'
		act 'Stop looking at the schedule': gt 'city_industrial_train', 'inside'
	end

	if transportVars['trainpass_day'] > daystart:
		act 'Take a train to the city center (<<func(''transport_functions'', ''display_train_timecost'', ''ind'', ''center'')>>)': gt 'train', 'ind_center'
		act 'Take a train to the old platform by the communal village (<<func(''transport_functions'', ''display_train_timecost'', ''ind'', ''communal'')>>)': gt 'train', 'ind_communal'
		act 'Take a train to the village of Gadukino (<<func(''transport_functions'', ''display_train_timecost'', ''ind'', ''gadukino'')>>)': gt 'train', 'ind_gadukino'
		act 'Take a train to Pavlovsk (<<func(''transport_functions'', ''display_train_timecost'', ''ind'', ''pavlovsk'')>>)': gt 'train', 'ind_pavlovsk'
	end
end

if $ARGS[0] = 'ticket':
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'ticket'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><h4>Ticket office</h4></center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/ticketoffice.jpg"></center>'
	*nl
	gs 'transport_functions', 'set_train_wait_time', 'ind'
	'The next train in the direction of the city center ' + iif(temp_transportVars['train_wait_center'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''train_wait_center'']>> minutes.')
	'The next train in the direction of Pavlovsk ' + iif(temp_transportVars['train_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <<temp_transportVars[''train_wait_pavlovsk'']>> minutes.')

	act 'Leave the ticket office':minut += 1 & gt 'city_industrial_train', 'inside'
	
	act 'Look at the train schedule':
		*clr & cla
		gs 'transport_functions', 'display_train_schedule'
		*nl
		*nl
		gs 'transport_functions', 'display_train_schedule', 'pc'
		act 'Stop looking at the schedule': gt 'city_industrial_train', 'ticket'
	end

	if money >= 50:
		act 'Buy a ticket':
			cla
			gs 'city_industrial_train', 'buy_ticket'
		end
	end

	gs 'transport_functions', 'buy_train_pass'
end

if $ARGS[0] = 'buy_ticket':
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'buy_ticket'
	menu_off = 0
	
	act 'Leave the ticket office': gt 'city_industrial_train', 'inside'

	gs 'transport_functions', 'buy_train_ticket', 'ind'
end



if $ARGS[0] = 'toilet':
	$locM_arg = 'toilet'
	$locM = 'city_industrial_train'
	$loc_arg = 'toilet'
	$loc = 'city_industrial_train'
	$menu_loc = 'city_industrial_train'
	$menu_arg = 'inside'
	menu_off = 0
	$location_type = 'bathroom'
	$locclass = 'restroom'	
	*clr & cla
	gs'stat'

	gs 'themes', 'indoors'

	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'

	act 'Return to the station': minut += 1 & gt 'city_industrial_train', 'inside'

	act 'Look in the mirror': gt 'mirror', 'start'
	if pcs_hairbsh < 1: act 'Brush your hair': gt 'mirror', 'brush'

	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $publicpan
end

killvar 'temp_transportVars'

--- city_industrial_train ---------------------------------