1
0

Terminal 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114
  1. # Terminal
  2. minut += 5
  3. clr
  4. gs 'stat'
  5. !'
  6. fcolor = rgb(0, 0, 0)
  7. bcolor = rgb(255, 255, 255)
  8. lcolor = rgb(106, 90, 205)
  9. '!
  10. '<center><b><font color="maroon">Storage terminal</font></b></center>'
  11. '<center><img src="images/etogame/terminal.jpg"></center>'
  12. 'A plurality of storage buildings to which drive up truck for loading and unloading.'
  13. act 'Leave':
  14. cla
  15. minut += 5
  16. gt 'nord'
  17. end
  18. if TerminalPapper = 1 and DayTerminalPapper = daystart:
  19. act 'Classified documents':
  20. cls
  21. minut += 15
  22. TerminalPapper = 2
  23. gs 'stat'
  24. fcolor = rgb(0, 0, 0)
  25. bcolor = rgb(255, 255, 255)
  26. lcolor = rgb(106, 90, 205)
  27. 'You went to the office and gave the documents to the manager.'
  28. act 'Leave':minut += 5 & gt 'nord'
  29. end
  30. end
  31. if money >= 100:
  32. act 'Buy small items (100 rubles)':
  33. cls
  34. minut += 15
  35. gs 'stat'
  36. 'You went to the office and spoke with the manager about buying small things.'
  37. ! WD: Uninitialised ~ 'tovarskladlevel' allways true
  38. if tovarskladlevel = 0:
  39. if tovarL >= 30:
  40. 'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
  41. elseif tovarL < 30:
  42. maxtov = 30 - tovarL
  43. 'Do you have a place for storage <<maxtov>> One unit of product.'
  44. act 'Buy':
  45. cls
  46. gs 'stat'
  47. 'Do you have a place for storage <<maxtov>> One unit of product.'
  48. tovarpokup = input("How much product you want to buy at a price 100 rubles apiece?")
  49. if tovarpokup > maxtov or tovarpokup * 100 > money:
  50. 'Manager shakes his head "No, so it will not work"'
  51. else
  52. tovarL += tovarpokup
  53. money -= tovarpokup * 100
  54. gs 'stat'
  55. 'You bought <<tovarpokup>> One unit of small goods and now you have stored <<tovarL>> One unit of product.'
  56. end
  57. act 'Leave':minut+=5&gt $curloc
  58. end
  59. end
  60. end
  61. act 'Leave':minut += 5 & gt 'nord'
  62. end
  63. if YouCanGar > 0:
  64. act 'Buy small items for the car storage (100 rubles)':
  65. cls
  66. minut += 15
  67. gs 'stat'
  68. 'You went to the office and spoke with the manager about buying small things.'
  69. ! WD: Uninitialised ~ 'tovarskladlevel' allways true
  70. if tovarskladlevel = 0:
  71. if GarTorgItem >= 100:
  72. 'Thinking a bit you realize, you just have nowhere to store the goods and decide to unsubscribe from the purchase.'
  73. elseif GarTorgItem < 100:
  74. maxtov = 100 - GarTorgItem
  75. 'Do you have a place for storage <<maxtov>> One unit of product.'
  76. act 'Buy':
  77. cls
  78. gs 'stat'
  79. 'Do you have a place for storage <<maxtov>> One unit of product.'
  80. tovarpokup = input("How much product you want to buy at a price 100 rubles apiece?")
  81. if tovarpokup > maxtov or tovarpokup * 100 > money:
  82. 'Manager shakes his head "No, so it will not work"'
  83. else
  84. GarTorgItem += tovarpokup
  85. money -= tovarpokup * 100
  86. gs 'stat'
  87. 'You bought <<tovarpokup>> One unit of small goods in the garage and now you have stored <<GarTorgItem>> One unit of product.'
  88. end
  89. act 'Leave':minut += 5 & gt $curloc
  90. end
  91. end
  92. end
  93. act 'Leave':minut += 5 & gt 'nord'
  94. end
  95. end
  96. end
  97. --- Terminal ---------------------------------