1
1

Gshveyfab.qsrc 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176
  1. # Gshveyfab
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_outdoors'
  5. if $ARGS[0] = 'start':
  6. cla
  7. *clr
  8. gs'stat'
  9. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  10. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.jpg"></center>'
  11. '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.'
  12. if hour >= 8 and hour <= 20 and week >= 1 and week <= 5:
  13. 'The <a href="exec:minut += 5 & GT ''Gshveyfab'', ''enter''">entrance</a> sits behind a security checkpoint.'
  14. elseif hour < 8 or hour > 20 or week > 5:
  15. 'The factory is currently closed.'
  16. 'Hours M-F:'
  17. 'First shift - 8:00 to 16:00.'
  18. 'Second shift - 16:00 to 20:00.'
  19. end
  20. if week < 6 and hour >= 8 and hour <= 20:
  21. *pl 'The <a href="exec:torg = 0 & GT ''budgetclothes'',''start''">G&M Store</a> is currently open.'
  22. else
  23. *pl 'The G&M Store is currently closed. Hours are 8:00-20:00 Monday - Friday.'
  24. end
  25. if hour >= 8 and hour <= 15:
  26. *p 'A small room near the entrance is being used as a tailor shop.'
  27. act 'Go to the tailor':
  28. cla
  29. *clr
  30. minut += 5
  31. gs'stat'
  32. '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.'
  33. '"Hello there, come to get some clothes adjusted? It''ll cost you 500 <b>₽</b> per item."'
  34. if money >= 500:
  35. act 'Take in the clothes you are wearing (500 <b>₽</b>)':
  36. cla
  37. *clr
  38. minut += 15
  39. if CloStyle = 5 or $clothingworntype = 'exercise':
  40. 'What are you wasting my time for? This type of clothing does not need to be resized.'
  41. else
  42. money -= 500
  43. dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = pcs_hips'
  44. 'You undress and give the clothes you need adjusting to the tailor, it is fifteen minutes until your clothes are ready. you redress.'
  45. end
  46. act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
  47. end
  48. act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
  49. act 'Take in all the clothes':gt 'portnoi2'
  50. end
  51. act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
  52. end
  53. end
  54. act 'Go to the residential area': minut += 15 & gt 'pavResidential'
  55. act 'Go to the high street': minut += 15 & gt 'pavCommercial'
  56. end
  57. if $ARGS[0] = 'enter':
  58. CLOSE ALL
  59. cla
  60. *clr
  61. gs'stat'
  62. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  63. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.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 and hour < 9 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 >= 16 and hour < 17 and age >= 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 early processing of your payment will cost you the wage of one shift.'
  81. act 'Quit job':
  82. if age >= 16 and age < 18:
  83. smenaFabrika -= 1
  84. elseif age >= 18:
  85. smenaFabrika -= 2
  86. end
  87. if smenaFabrika < 0:
  88. smenaFabrika = 0
  89. end
  90. pay = smenaFabrika * 420
  91. karta += pay
  92. smenaFabrika = 0
  93. workFabrika = 0
  94. work = 0
  95. minut += 5
  96. gt 'Gshveyfab','enter'
  97. end
  98. end
  99. act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
  100. end
  101. if $ARGS[0] = 'job_start':
  102. cla
  103. *clr
  104. gs'stat'
  105. '<center><B>FOREMAN''S OFFICE</B></center>'
  106. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/stepan/nachalnik.jpg" ></center>'
  107. ''
  108. 'You go to the factory foreman, Stepan Sergeyevich, and ask for a job.'
  109. if age >= 16 and age < 18 and workFabrika = 0:
  110. '"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, and the pay is 105 <b>₽</b> per hour. 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 getting fired before then will forfeit any pay not yet received. So, is that okay?"'
  111. act 'Take the job':
  112. cla
  113. minut += 10
  114. work = 1
  115. workFabrika = 1
  116. smenaFabrika = 0
  117. FabrikaProgul = 0
  118. 'You give him your documents, which he takes and then reminds you to come in on every weekday, at 16:00.'
  119. act 'Leave':gt'Gshveyfab', 'enter'
  120. end
  121. elseif age >= 18 and workFabrika = 0:
  122. '"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 105 <b>₽</b> per hour. 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 getting fired before then will forfeit any pay not yet received. So, is that okay?"'
  123. act 'Take the job':
  124. cla
  125. minut += 10
  126. work = 1
  127. workFabrika = 1
  128. smenaFabrika = 0
  129. FabrikaProgul = 0
  130. 'You give him your documents, which he takes and then reminds you to come in on every weekday, at 8:00.'
  131. act 'Leave':gt'Gshveyfab', 'enter'
  132. end
  133. end
  134. act 'Leave':gt'Gshveyfab', 'enter'
  135. end
  136. if $ARGS[0] = 'job':
  137. cla
  138. *clr
  139. FabrikaProgul -= 1
  140. if FabrikaProgul < 0: FabrikaProgul = 0
  141. if age >= 16 and age < 18:
  142. minut += 240
  143. smenaFabrika += 1
  144. end
  145. if age >= 18:
  146. minut += 480
  147. smenaFabrika += 2
  148. end
  149. gs'stat'
  150. '<center><B>TEXTILE FACTORY, "PARIS COMMUNE"</B></center>'
  151. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.jpg" ></center>'
  152. ''
  153. 'You work through your shift at the factory.'
  154. act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
  155. end
  156. --- Gshveyfab ---------------------------------