# bank if $ARGS[0] = 'start': cla clr *clr minut += 5 gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) '
Bank
' '
' if bankAccount = 0: 'Do you want to open your account?' else if karta >= 0: 'You have <> in your account.' 'You have an approved credit of <>!' else 'You hava a debt of <<-1 * karta>> .' 'You have an approved credit of <>!' end end if BankPapper = 1 and dayBankPapper = daystart: act 'Give documents': cls minut += 15 BankPapper = 2 gs 'stat' 'You went to the office and gave the documents to the manager.' act 'Leave':minut += 5 & gt 'down' end end if money > 0: act 'Deposit money': cla minut += 5 kartaIN = input ("How much money you want to deposit into the account?") if kartaIN <= 0 or kartaIN > money: 'Not correct operation.' else karta += kartaIN money -= kartaIN if bankAccount = 0: bankAccount = 1 bankDebtLimit = 5000 end '
You put on the account <> , now you have <> on it.' end act 'Move away':gt 'bank', 'start' end end 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 + bankDebtLimit: 'Not correct operation.' else karta -= kartaOUT money += kartaOUT '
You debited <> , now you have <> on it.' end act 'Move away':gt 'bank', 'start' end end act 'Leave':gt 'down' end --- bank ---------------------------------