| 1 | // Bank Test |
|---|
| 2 | prontera,162,188,1 script Bank Test 112,{ |
|---|
| 3 | cutin "kafra_06",2; |
|---|
| 4 | |
|---|
| 5 | mes "[Bank Test]"; |
|---|
| 6 | mes "Welcome to Prontera's Bank Test."; |
|---|
| 7 | mes "You can only deposit a minimal of"; |
|---|
| 8 | mes "1000z. What do you want to do?"; |
|---|
| 9 | next; |
|---|
| 10 | menu "Deposit",BANK_IN,"Withdraw",BANK_OUT,"Exit",B_EXIT2; |
|---|
| 11 | BANK_IN: |
|---|
| 12 | mes "[Bank Test]"; |
|---|
| 13 | mes "You must deposit the same of less"; |
|---|
| 14 | mes "amount of zeny that you carry."; |
|---|
| 15 | mes "How much do you want to deposit?"; |
|---|
| 16 | next; |
|---|
| 17 | input @kafrabank; |
|---|
| 18 | |
|---|
| 19 | if(@kafrabank<1000) goto B_EXIT2; |
|---|
| 20 | set @kafrabank2,@kafrabank*1/100; |
|---|
| 21 | if(@kafrabank+@kafrabank2>Zeny) goto BANK_F; |
|---|
| 22 | set Zeny,Zeny-@kafrabank-@kafrabank2; |
|---|
| 23 | set #kafrabank,#kafrabank+@kafrabank; |
|---|
| 24 | mes "You now have: ^135445" + @kafrabank2 + "z^000000"; |
|---|
| 25 | |
|---|
| 26 | goto B_EXIT; |
|---|
| 27 | BANK_OUT: |
|---|
| 28 | if(#kafrabank==0) goto BANK_F2; |
|---|
| 29 | mes "[Bank Test]"; |
|---|
| 30 | mes "You can only withdraw equally or below this quantity:"; |
|---|
| 31 | mes "^135445" + #kafrabank + "^000000z"; |
|---|
| 32 | mes "How much do you want to withdraw?"; |
|---|
| 33 | next; |
|---|
| 34 | input @kafrabank; |
|---|
| 35 | |
|---|
| 36 | if(@kafrabank<1) goto B_EXIT2; |
|---|
| 37 | if(@kafrabank>#kafrabank) goto BANK_F; |
|---|
| 38 | set #kafrabank,#kafrabank-@kafrabank; |
|---|
| 39 | set Zeny,Zeny+@kafrabank; |
|---|
| 40 | |
|---|
| 41 | goto B_EXIT; |
|---|
| 42 | |
|---|
| 43 | BANK_F: |
|---|
| 44 | mes "[Bank Test]"; |
|---|
| 45 | mes "You can't withdraw more than ^135445"+ #kafrabank + "^000000z."; |
|---|
| 46 | goto B_EXIT2; |
|---|
| 47 | BANK_F2: |
|---|
| 48 | mes "[Bank Test]"; |
|---|
| 49 | mes "Your account is empty, you may not withdraw at this time."; |
|---|
| 50 | goto B_EXIT2; |
|---|
| 51 | |
|---|
| 52 | B_EXIT: |
|---|
| 53 | mes "Thanks for using depositing"; |
|---|
| 54 | B_EXIT2: |
|---|
| 55 | mes "Good bye!"; |
|---|
| 56 | cutin "kafra_06",255; |
|---|
| 57 | close; |
|---|
| 58 | } |
|---|
