1
0

337_bank 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130
  1. # bank
  2. <<<<<<< 337_bank
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 337_bank
  7. cla
  8. *clr
  9. <<<<<<< 337_bank
  10. set minut += 5
  11. '<center><B><font color = maroon>Bank</font></B></center>'
  12. '<center><img src="images\etogame\bank.jpg"></center>'
  13. clr
  14. gs 'stat'
  15. fcolor = rgb(0,0,0)
  16. bcolor = rgb(255,255,255)
  17. LCOLOR = rgb(106,90,205)
  18. if karta > 0: 'In the bank <<karta>> rubles'
  19. if BankPapper = 1 and dayBankPapper = day:
  20. act 'Giving documents':
  21. cls
  22. set minut += 15
  23. BankPapper = 2
  24. gs 'stat'
  25. 'You went to the office and gave the documents to the manager.'
  26. act 'Leave': minut += 5 & gt 'down'
  27. end
  28. end
  29. if money > 0:
  30. act 'Deposit money':
  31. cla
  32. set minut += 5
  33. kartaIN = input ("How much money you want to deposit into the account?")
  34. if kartaIN <= 0 or kartaIN > money:
  35. 'Not correct operation.'
  36. else
  37. set karta += kartaIN
  38. set money -= kartaIN
  39. 'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
  40. end
  41. act 'Move away': gt 'bank','start'
  42. end
  43. end
  44. if karta > 0:
  45. act 'Withdrawing money':
  46. cla
  47. set minut += 5
  48. kartaOUT = input ("How much do you want to withdraw from account?")
  49. if kartaOUT <= 0 or kartaOUT > karta:
  50. 'Not correct operation.'
  51. else
  52. set karta -= kartaOUT
  53. set money += kartaOUT
  54. 'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
  55. end
  56. act 'Move away': gt 'bank','start'
  57. end
  58. end
  59. act 'Exit': gt 'down'
  60. =======
  61. set minut = minut + 5
  62. '<center><B><font color=maroon>Bank</font></B></center>'
  63. '<center><img src="pic/bank.jpg" ></center>'
  64. clr
  65. gs'stat'
  66. fcolor=rgb(0,0,0)
  67. bcolor=rgb(255,255,255)
  68. LCOLOR = rgb(106,90,205)
  69. if karta > 0:'In the bank <<karta>> rubles'
  70. if BankPapper=1 and dayBankPapper=day:
  71. act 'give documents':
  72. cls
  73. set minut = minut + 15
  74. BankPapper=2
  75. gs'stat'
  76. 'You went into the office and gave the documents to the manager.'
  77. act 'Get_Away':minut+=5&gt'down'
  78. end
  79. end
  80. if money > 0:
  81. act 'Put money into the account':
  82. cla
  83. set minut = minut + 5
  84. kartaIN = input ("How much money you want to deposit?")
  85. if kartaIN <= 0 or kartaIN > money:
  86. 'Not correct operation.'
  87. else
  88. set karta = karta + kartaIN
  89. set money = money - kartaIN
  90. 'You put into the account <<kartaIN>> rubles, now in your account <<karta>> rubles.'
  91. end
  92. act 'move_away':gt'bank','start'
  93. end
  94. end
  95. if karta > 0:
  96. act 'To withdraw money':
  97. cla
  98. set minut = minut + 5
  99. kartaOUT = input ("How much money you want to withdraw?")
  100. if kartaOUT <= 0 or kartaOUT > karta:
  101. 'Not correct operation.'
  102. else
  103. set karta = karta - kartaOUT
  104. set money = money + kartaOUT
  105. 'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
  106. end
  107. act 'move_away':gt'bank','start'
  108. end
  109. end
  110. act 'Go_Out':gt'down'
  111. >>>>>>> 337_bank
  112. end
  113. --- bank ---------------------------------