Gshveyfab 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159
  1. # Gshveyfab
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_outdoors'
  5. if $ARGS[0] = 'start':
  6. cla
  7. *clr
  8. minut += 10
  9. gs'stat'
  10. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  11. '<center><img src="images/pic/gshveyfab.jpg"></center>'
  12. '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.'
  13. if hour => 8 and hour =< 20 and week => 1 and week <= 5:
  14. 'The <a href="exec:minut += 15 & GT ''Gshveyfab'', ''enter''">entrance</a> sits behind a security checkpoint.'
  15. elseif hour < 8 or hour > 20 or week > 5:
  16. 'The factory is currently closed.'
  17. 'Hours M-F:'
  18. 'First shift - 8:00 to 16:00.'
  19. 'Second shift - 16:00 to 20:00.'
  20. end
  21. if week < 6 and hour >= 8 and hour <= 20:
  22. *pl 'The <a href="exec:torg = 0 & GT ''budgetclothes'',''start''">G&M Store</a> is currently open.'
  23. else
  24. *pl 'The G&M Store is currently closed. Hours are 8:00-20:00 Monday - Friday.'
  25. end
  26. if hour >= 8 and hour <= 15:
  27. *p 'A small room near the entrance is being used as a tailor shop.'
  28. act 'Go to the tailor':
  29. cla
  30. *clr
  31. '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.'
  32. '"Hello there, come to get some clothes adjusted? It''ll cost you 500 <b>₽</b> per item."'
  33. if money >= 500:
  34. act 'Take in the clothes you are wearing (500 <b>₽</b>)':
  35. cla
  36. *clr
  37. minut += 15
  38. if CloStyle = 5 or $clothingworntype = 'exercise':
  39. 'What are you wasting my time for? This type of clothing does not need to be resized.'
  40. else
  41. money -= 500
  42. dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = bedra'
  43. 'You undress and give the clothes you need adjusting to the tailor, it is fifteen minutes until your clothes are ready. you redress.'
  44. end
  45. act 'Leave':gt 'Gshveyfab', 'start'
  46. end
  47. act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
  48. act 'Take in all the clothes':gt 'portnoi2'
  49. end
  50. act 'Leave':gt 'Gshveyfab', 'start'
  51. end
  52. end
  53. act 'Go to the residential area':gt'pavResidential'
  54. act 'Go to the high street':gt'pavCommercial'
  55. end
  56. if $ARGS[0] = 'enter':
  57. CLOSE ALL
  58. cla
  59. *clr
  60. minut += 2
  61. gs'stat'
  62. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  63. '<center><img src="images/qwest/alter/fabrika/pusto.jpg" ></center>'
  64. 'The local textile factory; one of the few corporate enterprises in Pavlovsk.'
  65. 'There is a work schedule hanging on the wall:'
  66. 'First shift - 8:00 to 16:00.'
  67. 'Second shift - 16:00 to 20:00.'
  68. ''
  69. if workFabrika = 0 and age => 16 and age < 18:'You could apply for a <a href="exec:minut += 15 & GT ''Gshveyfab'', ''job_start''">part-time job</a> here.'
  70. if work = 0 and workFabrika = 0 and age => 18:'You could apply for a <a href="exec:minut += 15 & GT ''Gshveyfab'', ''job_start''">job</a> here.'
  71. 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:
  72. 'You can start your shift now.'
  73. act 'Start shift': gt'Gshveyfab','job'
  74. end
  75. 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:
  76. 'You can start your shift now.'
  77. act 'Start shift': gt'Gshveyfab','job'
  78. end
  79. if workFabrika = 1:
  80. 'You can quit your job, but doing so will forfeit any pay not yet received.'
  81. act 'Quit job':workFabrika = 0 & work = 0 & gt 'Gshveyfab','enter'
  82. end
  83. act '<B>Leave</B>':gt'Gshveyfab','start'
  84. end
  85. if $ARGS[0] = 'job_start':
  86. cla
  87. *clr
  88. minut += 2
  89. gs'stat'
  90. '<center><B>FOREMAN''S OFFICE</B></center>'
  91. '<center><img src="images/qwest/alter/fabrika/nachalnik.jpg" ></center>'
  92. ''
  93. 'You go to the factory foreman, Stepan Sergeyevich, and ask for a job.'
  94. if age => 16 and age < 18 and workFabrika = 0:
  95. '"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?"'
  96. act 'Take the job':
  97. cla
  98. work = 1
  99. workFabrika = 1
  100. smenaFabrika = 0
  101. FabrikaProgul = 0
  102. 'You give him your documents, which he takes and then reminds you to come in on every weekday, at 16:00.'
  103. act 'Leave':gt'Gshveyfab', 'enter'
  104. end
  105. elseif age => 18 and workFabrika = 0:
  106. '"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?"'
  107. act 'Take the job':
  108. cla
  109. work = 1
  110. workFabrika = 1
  111. smenaFabrika = 0
  112. FabrikaProgul = 0
  113. 'You give him your documents, which he takes and then reminds you to come in on every weekday, at 8:00.'
  114. act 'Leave':gt'Gshveyfab', 'enter'
  115. end
  116. end
  117. act 'Leave':gt'Gshveyfab', 'enter'
  118. end
  119. if $ARGS[0] = 'job':
  120. cla
  121. *clr
  122. FabrikaProgul -= 1
  123. if FabrikaProgul < 0: FabrikaProgul = 0
  124. if age => 16 and age < 18:
  125. smenaFabrika += 1
  126. hour = 20
  127. end
  128. if age => 18:
  129. smenaFabrika += 2
  130. hour = 16
  131. end
  132. gs'stat'
  133. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  134. '<center><img src="images/qwest/alter/fabrika/smena.jpg" ></center>'
  135. ''
  136. 'You work through your shift at the factory.'
  137. act 'Go to the residential area':gt'pavResidential'
  138. act 'Go to the high street':gt'pavCommercial'
  139. end
  140. --- Gshveyfab ---------------------------------