1
0

bank.qsrc 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116
  1. # bank
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $loc = 'bank'
  5. $loc_arg = 'start'
  6. $menu_loc = 'bank'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. $location_type = 'public_indoors'
  10. minut += 2
  11. gs 'stat'
  12. gs 'themes', 'indoors'
  13. '<center><b><font color="maroon">Bank</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/bank/bank.jpg"></center>'
  15. if week <= 5 and hour = 16 and minut >= 30 and mey_vika['mey_vika_qw'] >= 32: 'Seems like <a href="exec:gs''mey_tamara_events'',''tamara''">Tamara Mikhailovna</a> is heading home.'
  16. if bankAccount = 0:
  17. 'Do you want to open an account?'
  18. if money > 50:
  19. act 'Open account':
  20. cla
  21. bankAccount = 1
  22. bankDebtLimit = 5000
  23. 'You are led to on open office and a member of the bank staff goes through your details and ID, then takes 50 <b>₽</b> from you before setting up your account'
  24. '"Your account is now open with your 50 <b>₽</b> and an overdraft protection of 5,000 <b>₽</b>"'
  25. act 'Continue': gt 'bank', 'start'
  26. end
  27. else
  28. 'You require 50 <b>₽</b> in cash to be able to open an account.'
  29. end
  30. else
  31. if money > 0:
  32. act 'Deposit money':
  33. cla
  34. menu_off = 1
  35. kartaIN = input ("How much money you want to deposit into the account?")
  36. if kartaIN <= 0 or kartaIN > money:
  37. 'That is not a valid operation.'
  38. else
  39. karta += kartaIN
  40. money -= kartaIN
  41. '<br>You deposited <<kartaIN>> <b>₽</b>, your account balance is now ' + iif(karta >= 0,'<<karta>>','<font color="red"><<karta>></font>') + ' <b>₽</b>.'
  42. end
  43. killvar 'kartaIN'
  44. act 'Walk away':gt 'bank', 'start'
  45. end
  46. end
  47. if karta + bankDebtLimit > 0:
  48. act 'Withdraw money':
  49. cla
  50. menu_off = 1
  51. kartaOUT = input ("How much do you want to withdraw from account?")
  52. if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
  53. 'That is not a valid operation.'
  54. else
  55. karta -= kartaOUT
  56. money += kartaOUT
  57. if karta > 0:
  58. '<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
  59. elseif karta = 0:
  60. '<br>You withdraw <<kartaOUT>> <b>₽</b>. You have no money left in your bank account.'
  61. else
  62. '<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
  63. end
  64. end
  65. killvar 'kartaOUT'
  66. act 'Walk away':gt 'bank', 'start'
  67. end
  68. end
  69. if karta >= 0:
  70. 'You have <<karta>> <b>₽</b> in your account.'
  71. 'You can take out a loan of <font color="blue"><<bankDebtLimit>></font>!'
  72. else
  73. 'You hava a debt of <font color="red"><<-1 * karta>></font> <b>₽</b>.'
  74. 'You can take out a loan of <font color="blue"><<bankDebtLimit + karta>></font>!'
  75. end
  76. end
  77. act 'Leave':
  78. minut += 2
  79. if bankloc = 1:
  80. gt 'city_center'
  81. else
  82. gt 'pav_commercial'
  83. end
  84. end
  85. if BurgerQW['BankTask'] = 1 and BurgerQW['BankTaskDay'] = daystart:
  86. act 'Show documents':
  87. *clr & cla
  88. menu_off = 1
  89. minut += 15
  90. BurgerQW['BankTask'] = 2
  91. gs 'stat'
  92. 'You went to the office and showed the required documents to the manager.'
  93. act 'Leave':
  94. minut += 5
  95. if bankloc = 1:
  96. gt 'city_center'
  97. else
  98. gt 'pav_commercial'
  99. end
  100. end
  101. end
  102. end
  103. end
  104. --- bank ---------------------------------