diff options
Diffstat (limited to 'npc')
-rw-r--r-- | npc/functions/banker.txt | 127 |
1 files changed, 6 insertions, 121 deletions
diff --git a/npc/functions/banker.txt b/npc/functions/banker.txt index 4967263a..62408cd6 100644 --- a/npc/functions/banker.txt +++ b/npc/functions/banker.txt @@ -15,134 +15,19 @@ L_Dep: mes "[" + @npcName$ + "]"; mes "\"How much would you like to deposit?\""; next; - menu - "1,000 GP", D_1, - "5,000 GP", D_5, - "10,000 GP", D_10, - "25,000 GP", D_25, - "50,000 GP", D_50, - "100,000 GP", D_100, - "250,000 GP", D_250, - "500,000 GP", D_500, - "1,000,000 GP", D_1000, - "All of my money", D_All, - "I've changed my mind", L_Nev; - -D_1: - if (zeny<1000) goto L_NoMoney; - set @Amount, 1000; - goto L_Deposit; -D_5: - if (zeny<5000) goto L_NoMoney; - set @Amount, 5000; - goto L_Deposit; -D_10: - if (zeny<10000) goto L_NoMoney; - set @Amount, 10000; - goto L_Deposit; -D_25: - if (zeny<25000) goto L_NoMoney; - set @Amount, 25000; - goto L_Deposit; -D_50: - if (zeny<50000) goto L_NoMoney; - set @Amount, 50000; - goto L_Deposit; -D_100: - if (zeny<100000) goto L_NoMoney; - set @Amount, 100000; - goto L_Deposit; -D_250: - if (zeny<250000) goto L_NoMoney; - set @Amount, 250000; - goto L_Deposit; -D_500: - if (zeny<500000) goto L_NoMoney; - set @Amount, 500000; - goto L_Deposit; -D_1000: - if (zeny<1000000) goto L_NoMoney; - set @Amount, 1000000; - goto L_Deposit; -D_All: - if (zeny<1) goto L_NoMoney; - set @Amount, zeny; - goto L_Deposit; - -L_Deposit: + input @Amount; + if (zeny < @Amount) goto L_NoMoney; set zeny, zeny - @Amount; set #BankAccount, #BankAccount + @Amount; - goto L_Balance; + goto L_Balance; L_With: mes "[" + @npcName$ + "]"; mes "\"How much would you like to withdraw?\""; next; - menu - "1,000 GP", W_1, - "5,000 GP", W_5, - "10,000 GP", W_10, - "25,000 GP", W_25, - "50,000 GP", W_50, - "100,000 GP", W_100, - "250,000 GP", W_250, - "500,000 GP", W_500, - "1,000,000 GP", W_1000, - "All of my money", W_All, - "I've changed my mind", L_Nev; - -W_1: - if (#BankAccount < 1000) goto L_NoMoney; - set @Amount, 1000; - goto L_Withdraw; - -W_5: - if (#BankAccount < 5000) goto L_NoMoney; - set @Amount, 5000; - goto L_Withdraw; - -W_10: - if (#BankAccount < 10000) goto L_NoMoney; - set @Amount, 10000; - goto L_Withdraw; - -W_25: - if (#BankAccount < 25000) goto L_NoMoney; - set @Amount, 25000; - goto L_Withdraw; - -W_50: - if (#BankAccount < 50000) goto L_NoMoney; - set @Amount, 50000; - goto L_Withdraw; - -W_100: - if (#BankAccount < 100000) goto L_NoMoney; - set @Amount, 100000; - goto L_Withdraw; - -W_250: - if (#BankAccount < 250000) goto L_NoMoney; - set @Amount, 250000; - goto L_Withdraw; - -W_500: - if (#BankAccount < 500000) goto L_NoMoney; - set @Amount, 500000; - goto L_Withdraw; - -W_1000: - if (#BankAccount < 1000000) goto L_NoMoney; - set @Amount, 1000000; - goto L_Withdraw; - -W_All: - if (#BankAccount < 1) goto L_NoMoney; - set @Amount, #BankAccount; - goto L_Withdraw; - -L_Withdraw: + input @Amount; + set zeny, zeny + @Amount; set #BankAccount, #BankAccount - @Amount; goto L_Balance; @@ -162,7 +47,7 @@ L_NoMoney: mes "[" + @npcName$ + "]"; mes "\"Oh dear, it seems that you don't have enough money.\""; return; - + S_MoveAccount: set #BankAccount, #BankAccount + BankAccount; set BankAccount, 0; |