Rewrite banking scripts.

1 files changed, 1 insertions, 141 deletions

diff --git a/npc/012-1/richard.txt b/npc/012-1/richard.txt
index c71febd13..4ed5b4eb6 100644
--- a/npc/012-1/richard.txt
+++ b/npc/012-1/richard.txt
@@ -4,151 +4,11 @@
 //    Jesusalva
 
 012-1,65,64,0	script	Richard	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 Hurnscald 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 @@, I am a representative of the Merchant Guild on Hurnscald.", .name$);
-
-        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 Hurnscald 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 Hurnscald."),
-        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", 15000);
     close;
 
 OnInit:
     .sex = G_MALE;
     .distance = 4;
     end;
-
-OnPCLoginEvent:
-    checkclientversion;
-    if (#MerchantBank)
-    {
-        BankVault += max(0, #MerchantBank);
-        #MerchantBank = 0;
-    }
-    end;
 }