summaryrefslogtreecommitdiff
path: root/npc/functions/banker.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/functions/banker.txt')
-rw-r--r--npc/functions/banker.txt228
1 files changed, 0 insertions, 228 deletions
diff --git a/npc/functions/banker.txt b/npc/functions/banker.txt
deleted file mode 100644
index 3c060071..00000000
--- a/npc/functions/banker.txt
+++ /dev/null
@@ -1,228 +0,0 @@
-//
-
-function script Banker {
-
- if (BankAccount > 0) callsub S_MoveAccount;
-
-L_Start:
- mes "[" + @npcname$ + "]";
- mes "\"Welcome to the bank!";
- mes "How can I help you?\"";
- next;
- menu
- "Deposit", L_Dep,
- "Withdraw", L_With,
- "Check my balance", L_Balance,
- "Open my storage", L_Storage,
- "Change Bank Options", L_Change,
- "Nevermind", L_Nev;
-
- close;
-
-// need to close window before opening storage.
-L_Storage:
- if (#BankOptions & OPT_STORAGE_CLOSE) close2;
- openstorage;
- if (#BankOptions & OPT_STORAGE_CLOSE) end;
- goto L_Start;
-
-L_Dep:
- mes "[" + @npcname$ + "]";
- mes "\"How much would you like to deposit?\"";
- next;
- menu
- "Other", L_Dep_Input,
- "5,000 GP", L_Dep_5k,
- "10,000 GP", L_Dep_10k,
- "25,000 GP", L_Dep_25k,
- "50,000 GP", L_Dep_50k,
- "100,000 GP", L_Dep_100k,
- "250,000 GP", L_Dep_250k,
- "500,000 GP", L_Dep_500k,
- "1,000,000 GP", L_Dep_1kk,
- "All of my money", L_Dep_All,
- "I've changed my mind", L_Start,
- "Quit", -;
- return;
-
-L_Dep_Input:
- input @Amount;
- if (@Amount >= 0) goto L_Dep_Continue;
- mes "[" + @npcname$ + "]";
- mes "\"I need a positive amount. What would you like to do?\"";
- menu
- "Go back", L_Start,
- "Try again", L_Dep_Input,
- "Deposit all", L_Dep_All,
- "Nevermind", -;
- goto L_Nev;
-
-L_Dep_5k:
- if (zeny<5000) goto L_NoMoney;
- set @Amount, 5000;
- goto L_Dep_Continue;
-
-L_Dep_10k:
- if (zeny<10000) goto L_NoMoney;
- set @Amount, 10000;
- goto L_Dep_Continue;
-
-L_Dep_25k:
- if (zeny<25000) goto L_NoMoney;
- set @Amount, 25000;
- goto L_Dep_Continue;
-
-L_Dep_50k:
- if (zeny<50000) goto L_NoMoney;
- set @Amount, 50000;
- goto L_Dep_Continue;
-
-L_Dep_100k:
- if (zeny<100000) goto L_NoMoney;
- set @Amount, 100000;
- goto L_Dep_Continue;
-
-L_Dep_250k:
- if (zeny<250000) goto L_NoMoney;
- set @Amount, 250000;
- goto L_Dep_Continue;
-
-L_Dep_500k:
- if (zeny<500000) goto L_NoMoney;
- set @Amount, 500000;
- goto L_Dep_Continue;
-
-L_Dep_1kk:
- if (zeny<1000000) goto L_NoMoney;
- set @Amount, 1000000;
- goto L_Dep_Continue;
-
-L_Dep_All:
- if (zeny<1) goto L_NoMoney;
- set @Amount, zeny;
-
-L_Dep_Continue:
- if (zeny < @Amount) goto L_NoMoney;
- set zeny, zeny - @Amount;
- set #BankAccount, #BankAccount + @Amount;
- goto L_Balance;
-
-L_With:
- mes "[" + @npcname$ + "]";
- mes "\"How much would you like to withdraw?\"";
- menu
- "Other", L_With_Input,
- "5,000 GP", L_With_5k,
- "10,000 GP", L_With_10k,
- "25,000 GP", L_With_25k,
- "50,000 GP", L_With_50k,
- "100,000 GP", L_With_100k,
- "250,000 GP", L_With_250k,
- "500,000 GP", L_With_500k,
- "1,000,000 GP", L_With_1kk,
- "All of my money", L_With_All,
- "I've changed my mind", L_Start,
- "Quit", -;
- return;
-
-L_With_Input:
- input @Amount;
- if (@Amount >= 0) goto L_With_Continue;
- mes "[" + @npcname$ + "]";
- mes "\"I need a positive amount. What would you like to do?\"";
- menu
- "Go back", L_Start,
- "Try again", L_With_Input,
- "Withdraw all", L_With_All,
- "Nevermind", -;
- goto L_Nev;
-
-L_With_5k:
- if (#BankAccount < 5000) goto L_NoMoney;
- set @Amount, 5000;
- goto L_With_Continue;
-
-L_With_10k:
- if (#BankAccount < 10000) goto L_NoMoney;
- set @Amount, 10000;
- goto L_With_Continue;
-
-L_With_25k:
- if (#BankAccount < 25000) goto L_NoMoney;
- set @Amount, 25000;
- goto L_With_Continue;
-
-L_With_50k:
- if (#BankAccount < 50000) goto L_NoMoney;
- set @Amount, 50000;
- goto L_With_Continue;
-
-L_With_100k:
- if (#BankAccount < 100000) goto L_NoMoney;
- set @Amount, 100000;
- goto L_With_Continue;
-
-L_With_250k:
- if (#BankAccount < 250000) goto L_NoMoney;
- set @Amount, 250000;
- goto L_With_Continue;
-
-L_With_500k:
- if (#BankAccount < 500000) goto L_NoMoney;
- set @Amount, 500000;
- goto L_With_Continue;
-
-L_With_1kk:
- if (#BankAccount < 1000000) goto L_NoMoney;
- set @Amount, 1000000;
- goto L_With_Continue;
-
-L_With_All:
- if (#BankAccount < 0) goto L_NoMoney;
- set @Amount, #BankAccount;
-
-L_With_Continue:
- if (#BankAccount < @Amount) goto L_NoMoney;
- set zeny, zeny + @Amount;
- set #BankAccount, #BankAccount - @Amount;
- goto L_Balance;
-
-L_Balance:
- mes "[" + @npcname$ + "]";
- mes "\"Your current bank balance is:";
- mes #BankAccount + " GP\"";
- if (#BankOptions & OPT_BANK_CLOSE) close;
- goto L_Start;
-
-L_Nev:
- mes "[" + @npcname$ + "]";
- mes "\"Goodbye then.\"";
- return;
-
-L_NoMoney:
- mes "[" + @npcname$ + "]";
- mes "\"Oh dear, it seems that you don't have enough money.\"";
- goto L_Start;
-
-S_MoveAccount:
- set #BankAccount, #BankAccount + BankAccount;
- set BankAccount, 0;
- return;
-
-L_Change:
- setarray @menuitems$, "Keep the current settings", "Close NPC dialog after selecting storage option", "Close NPC dialog after checking your balance";
- if (#BankOptions & OPT_STORAGE_CLOSE) set @menuitems$[1], "Return to main menu after leaving storage";
- if (#BankOptions & OPT_BANK_CLOSE) set @menuitems$[2], "Return to main menu after leaving bank";
- menu
- @menuitems$[0], L_Start,
- @menuitems$[1], L_Change_Storage,
- @menuitems$[2], L_Change_Bank;
-
-L_Change_Storage:
- set #BankOptions, (#BankOptions ^ OPT_STORAGE_CLOSE);
- goto L_Start;
-
-L_Change_Bank:
- set #BankOptions, (#BankOptions ^ OPT_BANK_CLOSE);
- goto L_Start;
-}