|
@@ -11,7 +11,17 @@ if $ARGS[0] = 'start':
|
|
|
'<center><b><font color="maroon">Bank</font></b></center>'
|
|
|
'<center><img src="images/etogame/bank.jpg"></center>'
|
|
|
|
|
|
- if karta > 0:'In the bank <<karta>> rubles'
|
|
|
+ if bankAccount = 0:
|
|
|
+ 'Do you want to open your account?'
|
|
|
+ else
|
|
|
+ if karta >= 0:
|
|
|
+ 'You have <<karta>> rubles in your account.'
|
|
|
+ 'You have an approved credit of <font color="blue"><<bankDebtLimit>></font>!'
|
|
|
+ else
|
|
|
+ 'You hava a debt of <font color="red"><<-1 * karta>></font> rubles.'
|
|
|
+ 'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font>!'
|
|
|
+ end
|
|
|
+ end
|
|
|
|
|
|
if BankPapper = 1 and dayBankPapper = daystart:
|
|
|
act 'Give documents':
|
|
@@ -36,25 +46,31 @@ if $ARGS[0] = 'start':
|
|
|
else
|
|
|
karta += kartaIN
|
|
|
money -= kartaIN
|
|
|
- 'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
|
|
|
+
|
|
|
+ if bankAccount = 0:
|
|
|
+ bankAccount = 1
|
|
|
+ bankDebtLimit = 5000
|
|
|
+ end
|
|
|
+
|
|
|
+ '<br>You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
|
|
|
end
|
|
|
|
|
|
act 'Move away':gt 'bank', 'start'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- if karta > 0:
|
|
|
+ if karta + bankDebtLimit > 0:
|
|
|
act 'Withdraw money':
|
|
|
cla
|
|
|
minut += 5
|
|
|
kartaOUT = input ("How much do you want to withdraw from account?")
|
|
|
|
|
|
- if kartaOUT <= 0 or kartaOUT > karta:
|
|
|
+ if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
|
|
|
'Not correct operation.'
|
|
|
else
|
|
|
karta -= kartaOUT
|
|
|
money += kartaOUT
|
|
|
- 'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
|
|
|
+ '<br>You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
|
|
|
end
|
|
|
|
|
|
act 'Move away':gt 'bank', 'start'
|