369_Terminal 4.0 KB

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