# Gshveyfab
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'public_outdoors'
if $ARGS[0] = 'start':
cla
*clr
minut += 10
gs'stat'
'
TEXTILE FACTORY, "PARIS COMMUNE"'
'> src="images/locations/pavlovsk/factory/gshveyfab.jpg">'
'The local textile factory; one of the few corporate enterprises in Pavlovsk. It makes clothing for G&M Store, which has a branch next door. Open from 8:00-20:00 Monday - Friday.'
if hour => 8 and hour =< 20 and week => 1 and week <= 5:
'The entrance sits behind a security checkpoint.'
elseif hour < 8 or hour > 20 or week > 5:
'The factory is currently closed.'
'Hours M-F:'
'First shift - 8:00 to 16:00.'
'Second shift - 16:00 to 20:00.'
end
if week < 6 and hour >= 8 and hour <= 20:
*pl 'The G&M Store is currently open.'
else
*pl 'The G&M Store is currently closed. Hours are 8:00-20:00 Monday - Friday.'
end
if hour >= 8 and hour <= 15:
*p 'A small room near the entrance is being used as a tailor shop.'
act 'Go to the tailor':
cla
*clr
'An elderly man is inspecting finished garments fresh from the factory floor, he pulls his glasses down a little and looking over the top of them walks up to the desk.'
'"Hello there, come to get some clothes adjusted? It''ll cost you 500 ₽ per item."'
if money >= 500:
act 'Take in the clothes you are wearing (500 ₽)':
cla
*clr
minut += 15
if CloStyle = 5 or $clothingworntype = 'exercise':
'What are you wasting my time for? This type of clothing does not need to be resized.'
else
money -= 500
dynamic '<<$clothingworntype>>B[<>] = pcs_hips'
'You undress and give the clothes you need adjusting to the tailor, it is fifteen minutes until your clothes are ready. you redress.'
end
act 'Leave':gt 'Gshveyfab', 'start'
end
act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
act 'Take in all the clothes':gt 'portnoi2'
end
act 'Leave':gt 'Gshveyfab', 'start'
end
end
act 'Go to the residential area':gt'pavResidential'
act 'Go to the high street':gt'pavCommercial'
end
if $ARGS[0] = 'enter':
CLOSE ALL
cla
*clr
minut += 2
gs'stat'
'TEXTILE FACTORY, "PARIS COMMUNE"'
'> src="images/locations/pavlovsk/factory/gshveyfab.jpg" >'
'The local textile factory; one of the few corporate enterprises in Pavlovsk.'
'There is a work schedule hanging on the wall:'
'First shift - 8:00 to 16:00.'
'Second shift - 16:00 to 20:00.'
''
if workFabrika = 0 and age => 16 and age < 18:'You could apply for a part-time job here.'
if work = 0 and workFabrika = 0 and age => 18:'You could apply for a job here.'
if workFabrika = 1 and week => 1 and week <= 5 and hour = 8 or workFabrika = 1 and week => 1 and week <= 5 and hour = 16 and age => 16 and age < 18:
'You can start your shift now.'
act 'Start shift': gt'Gshveyfab','job'
end
if workFabrika = 1 and week => 1 and week <= 5 and hour = 8 or workFabrika = 1 and week => 1 and week <= 5 and hour = 16 and age => 18:
'You can start your shift now.'
act 'Start shift': gt'Gshveyfab','job'
end
if workFabrika = 1:
'You can quit your job, but doing so will forfeit any pay not yet received.'
act 'Quit job':workFabrika = 0 & work = 0 & gt 'Gshveyfab','enter'
end
act 'Leave':gt'Gshveyfab','start'
end
if $ARGS[0] = 'job_start':
cla
*clr
minut += 2
gs'stat'
'FOREMAN''S OFFICE'
'> src="images/characters/pavlovsk/resident/stepan/nachalnik.jpg" >'
''
'You go to the factory foreman, Stepan Sergeyevich, and ask for a job.'
if age => 16 and age < 18 and workFabrika = 0:
'"Sure, have a seat," he says. "Now, the work is difficult and meticulous, but doesn''t require any special knowledge. You should catch on pretty quick. Since you are not an adult yet, you can only work half-time, for half-pay, which comes to 200 rubles per shift. Once you become an adult, we can transfer you to full-time. Naturally, as this is a state-recognized company, we do require all the appropriate documentation. The main shift is on weekdays from 8:00 to 16:00, but you will be working the second shift, from 16:00 to 20:00. And if you miss more than three days of work in a single month, you will be fired. You will be paid at the end of the month, and quitting or getting fired before then will forfeit any pay not yet received. So, is that okay?"'
act 'Take the job':
cla
work = 1
workFabrika = 1
smenaFabrika = 0
FabrikaProgul = 0
'You give him your documents, which he takes and then reminds you to come in on every weekday, at 16:00.'
act 'Leave':gt'Gshveyfab', 'enter'
end
elseif age => 18 and workFabrika = 0:
'"Sure, have a seat," he says. "Now, the work is difficult and meticulous, but doesn''t require any special knowledge. You should catch on pretty quick. Naturally, as this is a state-recognized company, we do require all the appropriate documentation. The main shift is on weekdays from 8:00 to 16:00, and the pay is 400 rubles per shift. And if you miss more than three days of work in a single month, you will be fired. You will be paid at the end of the month, and quitting or getting fired before then will forfeit any pay not yet received. So, is that okay?"'
act 'Take the job':
cla
work = 1
workFabrika = 1
smenaFabrika = 0
FabrikaProgul = 0
'You give him your documents, which he takes and then reminds you to come in on every weekday, at 8:00.'
act 'Leave':gt'Gshveyfab', 'enter'
end
end
act 'Leave':gt'Gshveyfab', 'enter'
end
if $ARGS[0] = 'job':
cla
*clr
FabrikaProgul -= 1
if FabrikaProgul < 0: FabrikaProgul = 0
if age => 16 and age < 18:
smenaFabrika += 1
hour = 20
end
if age => 18:
smenaFabrika += 2
hour = 16
end
gs'stat'
'TEXTILE FACTORY, "PARIS COMMUNE"'
'> src="images/locations/pavlovsk/factory/gshveyfab.jpg" >'
''
'You work through your shift at the factory.'
act 'Go to the residential area':gt'pavResidential'
act 'Go to the high street':gt'pavCommercial'
end
--- Gshveyfab ---------------------------------