bank 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. # bank
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Bank</font></b></center>'
  12. '<center><img src="images/etogame/bank.jpg"></center>'
  13. if karta > 0:'In the bank <<karta>> rubles'
  14. if BankPapper = 1 and dayBankPapper = day:
  15. act 'Give documents':
  16. cls
  17. 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. 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. karta += kartaIN
  33. 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 'Withdraw money':
  41. cla
  42. 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. karta -= kartaOUT
  48. 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 'Leave':gt 'down'
  55. end
  56. --- bank ---------------------------------