summaryrefslogtreecommitdiff
path: root/npc/009-1
diff options
context:
space:
mode:
Diffstat (limited to 'npc/009-1')
-rw-r--r--npc/009-1/barzil.txt143
1 files changed, 1 insertions, 142 deletions
diff --git a/npc/009-1/barzil.txt b/npc/009-1/barzil.txt
index 082121e97..c1019714e 100644
--- a/npc/009-1/barzil.txt
+++ b/npc/009-1/barzil.txt
@@ -5,152 +5,11 @@
// PS. move to indoors
009-1,44,48,0 script Barzil NPC_LLOYD,{
-
-// Evol scripts.
-// Authors:
-// gumi
-// Reid
-// Description:
-// banker NPC.
-
-
- function explain_guild {
- speech S_LAST_NEXT,
- l("The guild is in charge of the commerce regularization throughout Halinarzo and its surroundings."),
- l("With the help of the town hall we organize some auction and we help local merchants to launch their businesses."),
- l("We also feature some services like a storage and a bank for members."),
- l("Registration is open to everybody, but newcomers need to pay a fee for all of the paperwork.");
-
- narrator S_FIRST_BLANK_LINE,
- l("The bank and item storage is shared between all characters within a same account."),
- l("With it, you can safely move items and funds between your characters."),
- l("To move between characters that are on different accounts, you have to use the Trade function.");
- return;
- }
-
- function first_visit {
- speech S_LAST_NEXT,
- l("Welcome!"),
- l("My name is Barzil, I am a representative of the Merchant Guild on Halinarzo.");
-
- select(l("My name is @@...", strcharinfo(0)));
-
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
- l("\"@@\", I like this name!", strcharinfo(0)),
- l("Oh, wait a second...");
- narrator S_LAST_NEXT,
- l("@@ is searching something in his book.", .name$);
- speech S_LAST_NEXT,
- l("I see."),
- lg("You are new around here, right?");
-
- if (select(l("How do you know?"), l("Yes I am.")) == 1)
- {
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
- l("Oh, it is simple. I have on this book the names of every citizen of Halinarzo and its surroundings."),
- l("And I have no mention of a so called \"@@\" on it!", strcharinfo(0));
- }
- else
- {
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
- l("I knew it!");
- }
-
- speech S_LAST_NEXT,
- l("Let me explain to you what the Merchant Guild is for.");
-
- explain_guild;
- next;
-
- .@price = 12000;
- speech S_LAST_NEXT,
- l("The fee is of @@ GP. So, do you want to register?", .@price);
-
- switch (select(l("Yes."),
- l("I don't have the time now.")))
- {
- case 1:
- if (Zeny < .@price)
- {
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
- l("You do not seem to have enough money, come back later!");
- }
- else
- {
- Zeny = Zeny - .@price;
- setq ArtisQuests_Lloyd, 1;
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
- l("Perfect!"),
- l("I wrote your name on the book, you are now free to use the storage and bank services.");
- }
- break;
- case 2:
- break;
- }
-
- return;
- }
-
-
- if (getq(ArtisQuests_Lloyd) == 0)
- {
- first_visit;
-
- closedialog;
- goodbye;
- close;
- }
-
- speech S_LAST_NEXT,
- l("Welcome to the Merchant Guild of Halinarzo."),
- l("What do you want today?");
-
- do
- {
-
- select
- l("I would like to store some items."),
- l("I would like to perform money transactions."),
- l("What is this guild for?"),
- l("Bye.");
-
- switch (@menu)
- {
- case 1:
- openstorage;
- closedialog;
- close;
- break;
- case 2:
- MerchantGuild_Bank;
- break;
- case 3:
- mes "";
- explain_guild;
- break;
- }
- if (@menu != 4)
- {
- speech S_FIRST_BLANK_LINE | S_LAST_NEXT | S_NO_NPC_NAME,
- l("Something else?");
- }
- } while (@menu != 4);
-
- closedialog;
- goodbye;
+ Banker(.name$, "Halinarzo", 13000);
close;
OnInit:
.sex = G_MALE;
.distance = 4;
end;
-
-OnPCLoginEvent:
- checkclientversion;
- if (#MerchantBank)
- {
- BankVault += max(0, #MerchantBank);
- #MerchantBank = 0;
- }
- end;
}