# 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'
'
> src="images/locations/shared/train/vokzalholle.jpg" >'
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'
'Railway station'
if month >= 11 or month <= 3:
if hour >= 9 and hour <= 16:
'> src="images/locations/pavlovsk/trainstation/pavtrainstation_winter_day.jpg">'
else
'> src="images/locations/pavlovsk/trainstation/pavtrainstation_winter_night.jpg">'
end
else
if hour >= 7 and hour <= 18:
'> src="images/locations/pavlovsk/trainstation/pavtrainstation_day.jpg">'
else
'> src="images/locations/pavlovsk/trainstation/pavtrainstation_night.jpg">'
end
end
if car > 0 and cardrive = 19:
cardrive = 19
'In the parking lot is your <<$car>>.'
end
'There is a path leading off in to the distance, in the direction of the lake.'
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'
'> src="images/locations/pavlovsk/trainstation/vokzalper.jpg" >'
'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 <> minutes.')
'The next train in the direction of Pavlovsk ' + iif(temp_transportVars['train_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <> 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 (<>)': gt 'train', 'ind_center'
act 'Take a train to the old platform by the communal village (<>)': gt 'train', 'ind_communal'
act 'Take a train to the village of Gadukino (<>)': gt 'train', 'ind_gadukino'
act 'Take a train to 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'
'Ticket office
'
'> src="images/locations/pavlovsk/trainstation/ticketoffice.jpg">'
*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 <> minutes.')
'The next train in the direction of Pavlovsk ' + iif(temp_transportVars['train_wait_pavlovsk'] = 0, 'is leaving now!', 'leaves in <> 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'
'> src="images/locations/shared/bathroom/publictoilet.jpg">'
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 ---------------------------------