257_bank 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. # bank
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. '<center><B><font color = maroon>Bank</font></B></center>'
  7. '<center><img src="images\etogame\bank.jpg"></center>'
  8. clr
  9. gs 'stat'
  10. fcolor = rgb(0,0,0)
  11. bcolor = rgb(255,255,255)
  12. LCOLOR = rgb(106,90,205)
  13. if karta > 0: 'In the bank <<karta>> rubles'
  14. if BankPapper = 1 and dayBankPapper = day:
  15. act 'Giving documents':
  16. cls
  17. set minut += 15
  18. BankPapper = 2
  19. gs 'stat'
  20. 'You went to the office and gave the documents to the manager.'
  21. act 'Leave': minut += 5 & gt 'down'
  22. end
  23. end
  24. if money > 0:
  25. act 'Deposit money':
  26. cla
  27. set minut += 5
  28. kartaIN = input ("How much money you want to deposit into the account?")
  29. if kartaIN <= 0 or kartaIN > money:
  30. 'Not correct operation.'
  31. else
  32. set karta += kartaIN
  33. set money -= kartaIN
  34. 'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
  35. end
  36. act 'Move away': gt 'bank','start'
  37. end
  38. end
  39. if karta > 0:
  40. act 'Withdrawing money':
  41. cla
  42. set minut += 5
  43. kartaOUT = input ("How much do you want to withdraw from account?")
  44. if kartaOUT <= 0 or kartaOUT > karta:
  45. 'Not correct operation.'
  46. else
  47. set karta -= kartaOUT
  48. set money += kartaOUT
  49. 'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
  50. end
  51. act 'Move away': gt 'bank','start'
  52. end
  53. end
  54. act 'Exit': gt 'down'
  55. end
  56. --- bank ---------------------------------