TerminalOffice 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354
  1. # TerminalOffice
  2. $location_type = 'public_indoors'
  3. minut += 1
  4. gs 'stat'
  5. ! In the office if he knows we can buy a product or to perform a task boss of bystrousky.
  6. ! About the possibility of the sale of goods GG learns at the train station in Pavlovo in the dynamics $d_vokzal_vera_talk location vokdinvera
  7. ! verakassir > 0 - you can buy the product
  8. ! TerminalPapper = 1 and DayTerminalPapper = daystart - you can fulfill the order
  9. !
  10. ! In the office, several offices, one for the purchase of the goods, the second for documents from bystrousky, and the third for a bright future
  11. !
  12. ! Administration accounting and Director work in better conditions than managery :)))
  13. ! The conditions at the time require elaboration
  14. !
  15. TerminalOfficeDirWorkTime = 0
  16. TerminalOfficeBuhWorkTime = 0
  17. if ((hour >= 9 and hour <= 12) or (hour >= 14 and hour <= 17)) and week < 6: TerminalOfficeDirWorkTime = 1
  18. if ((hour >= 9 and hour <= 12) or (hour >= 14 and hour <= 19)) and week < 6: TerminalOfficeBuhWorkTime = 1
  19. if $ARGS[0] = 'TerminalOfficeScreen':
  20. !1 - title
  21. !2 - the name of the picture file
  22. *clr
  23. '<center><b><font color = maroon>'+$ARGS[1]+'</font></b></center>'
  24. '<center><img <<$set_imgh>> src="images/locations/city/industrial/terminal/'+$ARGS[2]+'.jpg"></center>'
  25. ''
  26. end
  27. !==================================================
  28. !Hall 00
  29. !==================================================
  30. if $ARGS[0] = '00':
  31. gs 'TerminalOffice', 'TerminalOfficeScreen', 'Hall office space', 'terminal4'
  32. 'You are standing in the lobby of the terminal office.'
  33. cla
  34. act 'Leave the office': minut += 5 & gt 'Terminal'
  35. act 'Go to the sales department': minut += 1 & gt 'TerminalOffice', '11'
  36. act 'Go to the accounting department': minut += 1 & gt 'TerminalOffice', '21'
  37. act 'Go and see the Manager': minut += 1 & gt 'TerminalOffice', '31'
  38. end
  39. !==================================================
  40. !Office a Manager = 1x
  41. !==================================================
  42. if $ARGS[0] = '11':
  43. !You can buy the item if you know that you can buy
  44. !Can try to give the documents from Anatoly Chubais
  45. !Can I ask when running accounting
  46. !Can I ask when works Director
  47. cla
  48. gs 'TerminalOffice', 'TerminalOfficeScreen', 'Sales', 'terminal2'
  49. '"What can I help you with?" the manager asks you.'
  50. act 'Leave the office': minut += 1 & gt 'TerminalOffice', '00'
  51. if verakassir > 0:
  52. !Buy goods
  53. !Flag zapolanski storage, reduction
  54. !this flag allows you to go shopping
  55. DoNotBuy = 2
  56. !Amount and Quantity that we can buy(store)
  57. MaxQuantityA = 0
  58. MaxQuantity1 = 0
  59. MaxQuantity2 = 0
  60. MaxCost = 0
  61. !Description size of storage
  62. TovarLimitRepository1 = 30
  63. TovarLimitRepository2 = 100
  64. 'You talk with the Manager about buying small trinkets...'
  65. !Get current balances
  66. TovarRepository1 = tovarL
  67. if TovarRepository1 => TovarLimitRepository1:
  68. 'There is no more free space at home.'
  69. else
  70. DoNotBuy -= 1
  71. 'You have '+ TovarRepository1 +' trinkets stored in your home. You''re only able to store <<TovarLimitRepository1>> trinkets.'
  72. MaxQuantity1 = TovarLimitRepository1 - TovarRepository1
  73. end
  74. if YouCanGar > 0:
  75. !Get the current balances in the garage
  76. TovarRepository2 = GarTorgItem
  77. if TovarRepository2 => TovarLimitRepository2:
  78. 'There is no space in the garage.'
  79. else
  80. DoNotBuy -= 1
  81. 'You have '+ TovarRepository2 +' trinkets stored in the garage. You''re only able to store <<TovarLimitRepository2>> trinkets.'
  82. MaxQuantity2 = TovarLimitRepository2 - TovarRepository2
  83. end
  84. end
  85. if DoNotBuy = 2:
  86. 'You think about it for a while, realizing that you just have nowhere to store the goods and decide to downturn the purchase.'
  87. else
  88. !Produce purchase
  89. act 'The small trinkets cost 100 <b>₽</b>, please put in how many trinkets you want to purchase':
  90. minut += 13
  91. MaxQuantityA = input("How many trinkets do you want to buy for 100 <b>₽</b> apiece?")
  92. if MaxQuantityA > (MaxQuantity1 + MaxQuantity2):
  93. '<b><font color=red>You have nowhere to store the surplus <<MaxQuantityA-(MaxQuantity1 + MaxQuantity2)>> of trinkets.</front></b>'
  94. cla
  95. act 'Leave': gt 'TerminalOffice', '11'
  96. end
  97. MaxCost = MaxQuantityA * 100
  98. if MaxCost > money:
  99. !If not enough money
  100. 'You don''t have enough money on you, you will have to withdraw money before proceeding with the purchase.'
  101. if (money + karta >= MaxCost) or (karta >= MaxCost):
  102. !The player can be plastic money
  103. 'You have enough money on your credit card and you offer them to pay with that.'
  104. '"I''m sorry, we don''t own a card terminal." the Manager replies, "We accept only cash."'
  105. end
  106. cla
  107. act 'Leave': gt 'TerminalOffice', '11'
  108. else
  109. !If the money is written off money to fill warehouses
  110. money -= MaxCost
  111. 'You''ve purchased <<MaxQuantityA>> trinkets, worth <<MaxCost>>.'
  112. !First populate channelise 1
  113. if MaxQuantityA => MaxQuantity1:
  114. tovarL = TovarRepository1 + MaxQuantity1
  115. MaxQuantityA -= MaxQuantity1
  116. if YouCanGar > 0 : *P ', in t.h. <<MaxQuantity1>> PCs. storage room, garage <<MaxQuantityA>> PCs.'
  117. else
  118. if YouCanGar > 0 : *P ', in t.h. <<MaxQuantityA>> PCs. storage room, garage 0 PCs.'
  119. tovarL = TovarRepository1 + MaxQuantityA
  120. MaxQuantityA = 0
  121. end
  122. !Now fill channelise 2
  123. if MaxQuantityA > 0:
  124. GarTorgItem = TovarRepository2 + MaxQuantityA
  125. end
  126. if YouCanGar = 0 and money > 100:
  127. 'You''ve purchased plenty of trinkets, but you''ve been thinking about expanding your business, but where could you store it all? Maybe you should talk to the stepfather if you could use some free space in his garage...'
  128. end
  129. cla
  130. act 'Complete your purchase': gt 'TerminalOffice', '11'
  131. end
  132. end
  133. act 'Buy small trinkets for 100 <b>₽</b> called "Eyeballs".':
  134. !Purchase spend time
  135. minut += 13
  136. MaxQuantityA = MaxQuantity1 + MaxQuantity2
  137. MaxCost = MaxQuantityA * 100
  138. !Hammered warehouses
  139. if MaxCost > money:
  140. !If not enough money
  141. 'You don''t have enough money on you, you will have to withdraw money before proceeding with the purchase.'
  142. if (money + karta >= MaxCost) or (karta >= MaxCost):
  143. !The player can be plastic money
  144. 'You have enough money on your credit card and you offer them to pay with that.'
  145. '"I''m sorry, we don''t own a card terminal." the Manager replies, "We accept only cash."'
  146. end
  147. cla
  148. act 'Leave': gt 'TerminalOffice', '11'
  149. else
  150. !If the money is written off money to fill warehouses
  151. money -= MaxCost
  152. 'You''ve purchased <<MaxQuantityA>> trinkets, worth <<MaxCost>>.'
  153. !First populate channelise 1
  154. if MaxQuantityA => MaxQuantity1:
  155. tovarL = TovarRepository1 + MaxQuantity1
  156. MaxQuantityA -= MaxQuantity1
  157. if YouCanGar > 0 : *P ', in t.h. <<MaxQuantity1>> PCs. storage room, garage <<MaxQuantityA>> PCs.'
  158. else
  159. if YouCanGar > 0 : *P ', in t.h. <<MaxQuantityA>> PCs. storage room, garage 0 PCs.'
  160. tovarL = TovarRepository1 + MaxQuantityA
  161. MaxQuantityA = 0
  162. end
  163. !Now fill channelise 2
  164. if MaxQuantityA > 0:
  165. GarTorgItem = TovarRepository2 + MaxQuantityA
  166. end
  167. if YouCanGar = 0 and money > 100:
  168. 'You''ve purchased plenty of trinkets, but you''ve been thinking about expanding your business, but where could you store it all? Maybe you should talk to the stepfather if you could use some free space in his garage...'
  169. end
  170. cla
  171. act 'Complete your purchase': gt 'TerminalOffice', '11'
  172. end
  173. end
  174. end
  175. end
  176. if YouNotOpenDoorDir = 1:
  177. !Where the Director, the Door was closed dir
  178. act 'Ask about the Director':
  179. '"Excuse me, I wonder if I could meet your supervisor?" you ask.'
  180. 'The Manager grins, "Yuri is usually here every Monday through Friday, between 9:00 to 18:00 except lunch between 13:00 to 14:00."'
  181. cla
  182. act 'Leave': YouNotOpenDoorDir = 0 & gt 'TerminalOffice', '11'
  183. end
  184. end
  185. !Where is the accountant? Buch the door was closed
  186. if YouNotOpenDoorBuh = 1:
  187. act 'Ask about the accountant':
  188. '"Excuse me, I wonder if I could meet your accountant?" you ask.'
  189. 'The Manager grins, "Elizabeth is usually here Monday through Friday, between 9:00 to 20:00 except lunch between 13:00 to 14:00."'
  190. cla
  191. act 'Leave': YouNotOpenDoorBuh = 0 & gt 'TerminalOffice', '11'
  192. end
  193. end
  194. !He Has papers, but a Manager should say to go to the accounting Department.
  195. if AboutDocsManager=0 and TerminalPapper = 1 and DayTerminalPapper = daystart:
  196. '"I''m Anatoly Chubais from the company "OOO Bystroushka limited", do you have the required documents with you?"'
  197. act 'Give him the documents':
  198. '"Looks good. Go and see Elizabeth in the account department, she needs to register you. You can find her next door."'
  199. cla
  200. act 'Leave': AboutDocsManager=1 & gt 'TerminalOffice', '11'
  201. end
  202. end
  203. !The GG yet topics of conversation.
  204. if verakassir = 0 and YouNotOpenDoorDir = 0 and YouNotOpenDoorBuh = 0 and TerminalPapper = 0:
  205. 'You have nothing to say or left to do, you can leave the office.'
  206. end
  207. end
  208. !==================================================
  209. !The office of the accountant = 2x
  210. !==================================================
  211. if $ARGS[0] = '21':
  212. ! Time control of the work of Buch disconnect until the issue is resolved temporal compatibility of obtaining a job in bystroushka
  213. if TerminalOfficeBuhWorkTime = 1:
  214. !You can give the documents
  215. cla
  216. gs 'TerminalOffice', 'TerminalOfficeScreen', 'The accountant''s office', 'terminal3'
  217. act 'Leave the office': minut += 1 & gt 'TerminalOffice', '00'
  218. !GG not a complete idiot, so will limit communication with only Buch documents, then that thread again
  219. 'A cute girl looks up from the monitor, turning to you and asks, "What can I help you with?"'
  220. if TerminalPapper = 1 and DayTerminalPapper = daystart:
  221. '"I was talking with Anatoly Chubais from the company ''OOO Bystroushka limited'', I was instructed to deliver these documents."'
  222. '"Yes, I''ve been expecting these, may I?" she holds out her hand.'
  223. act 'Give her the documents':
  224. cla
  225. minut += 1
  226. TerminalPapper = 2
  227. gs 'stat'
  228. 'You hand the girl the folder, she opens it and quickly checks the content.'
  229. '"Tell Anatoly Borisovich that Elizabeth said thank you."'
  230. 'The girl smiles and then turns her attention to her monitor and starts rapidly typing away on her keyboard.'
  231. act 'Leave the office': minut += 1 & gt 'TerminalOffice', '00'
  232. end
  233. else
  234. 'You have nothing to say or left to do, you can leave the office.'
  235. end
  236. else
  237. !Accountant is not in place
  238. cla
  239. gs 'TerminalOffice', 'TerminalOfficeScreen', 'A door with a sign', 'terminal6'
  240. act 'Move away from the door': minut += 1 & gt 'TerminalOffice', '00'
  241. 'You knock, but there is only silence. You try pushing down the handle, realizing that the door is locked. You''ll have to come back at a different time.'
  242. YouNotOpenDoorBuh = 1
  243. end
  244. end
  245. !==================================================
  246. !The Director`s office = 3x
  247. !==================================================
  248. if $ARGS[0] = '31':
  249. if TerminalOfficeDirWorkTime = 1:
  250. !You can try to give the documents
  251. !You can try to talk
  252. cla
  253. gs 'TerminalOffice', 'TerminalOfficeScreen', 'The Director''s office', 'terminal1'
  254. act 'Leave the office': minut += 1 & gt 'TerminalOffice', '00'
  255. !Before the development of the plot 'Talk' the Director will constantly be on the phone and send he tries out of the office
  256. 'You knocked and opened the door. Behind a massive desk you see a man. He''s talking on the phone and apparently not in the mood. He''s a bit surpised as you weren''t the person he was expecting, so he dismissively waves his hand, clearly indicating that you need to leave the office.'
  257. if AboutBussines = 0:
  258. act 'Talk':
  259. gs 'TerminalOffice', 'TerminalOfficeScreen', 'The Director''s office', 'terminal1'
  260. '"I was told to come and see you about a business proposal..." you start.'
  261. '"I heard there was a possibility of a good, legitimate and profitable trade business going on..." you continue.'
  262. 'The man puts the phone to his side and irritably answers, "Can''t you see I''m in middle of a phone call? Leave!"'
  263. AboutBussines = 1
  264. delact 'Talk'
  265. end
  266. end
  267. if AboutDocs = 0 and TerminalPapper = 1 and DayTerminalPapper = daystart:
  268. act 'Give him the documents':
  269. gs 'TerminalOffice', 'TerminalOfficeScreen', 'The Director`s office', 'terminal1'
  270. 'You walk up to the desk. However, you''re ignored by the man, but you refuse to turn back, you have an important assignment from the boss.'
  271. '"I was told by Anatoly Chubais from the company "OOO Bystroushka limited", to hand over these documents to you."'
  272. 'The man stops talking on the phone, frowns, and pointing towards the door, "You need to head over to the accountant''s office."'
  273. AboutDocs = 1
  274. delact 'Give documents'
  275. end
  276. end
  277. if AboutBussines = 1 or AboutDocs = 1: 'You have nothing to say or left to do, you can leave the office.'
  278. else
  279. !The Director is not in place
  280. cla
  281. gs 'TerminalOffice', 'TerminalOfficeScreen', 'A door with a sign', 'terminal5'
  282. act 'Move away from the door': minut += 1 & gt 'TerminalOffice', '00'
  283. 'You knock, but there is only silence. You try pushing down the handle, realizing that the door is locked. You''ll have to come back at a different time.'
  284. YouNotOpenDoorDir = 1
  285. end
  286. end
  287. --- TerminalOffice ---------------------------------