1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- # bank
- if $ARGS[0] = 'start':
- cla
- *clr
- set minut += 5
- '<center><B><font color = maroon>Bank</font></B></center>'
- '<center><img src="images\etogame\bank.jpg"></center>'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- if karta > 0: 'In the bank <<karta>> rubles'
- if BankPapper = 1 and dayBankPapper = day:
- act 'Giving documents':
- cls
- set 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
- set minut += 5
- kartaIN = input ("How much money you want to deposit into the account?")
- if kartaIN <= 0 or kartaIN > money:
- 'Not correct operation.'
- else
- set karta += kartaIN
- set money -= kartaIN
- '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:
- act 'Withdrawing money':
- cla
- set minut += 5
- kartaOUT = input ("How much do you want to withdraw from account?")
- if kartaOUT <= 0 or kartaOUT > karta:
- 'Not correct operation.'
- else
- set karta -= kartaOUT
- set money += kartaOUT
- 'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
- end
- act 'Move away': gt 'bank','start'
- end
- end
- act 'Exit': gt 'down'
- end
- --- bank ---------------------------------
|