# Gshveyfab $metka = $ARGS[0] $loc = $CURLOC $location_type = 'public_outdoors' if $ARGS[0] = 'start': cla *clr minut += 10 gs'stat' '
TEXTILE FACTORY, "PARIS COMMUNE"
' '
' '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[<>] = bedra' '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"
' '
' '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
' '
' '' '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"
' '
' '' '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 ---------------------------------