Copy TMW-BR contrabandist for @Saulc Burglar mask :>

TBH I was lazy.

1 files changed, 185 insertions, 0 deletions

diff --git a/npc/009-1/trader_king.txt b/npc/009-1/trader_king.txt
new file mode 100644
index 000000000..5d0ec35bd
--- /dev/null
+++ b/npc/009-1/trader_king.txt
@@ -0,0 +1,185 @@
+// TMW-2 Script
+// Original Creator:  Adson Renato <adson25@gmail.com>
+// Date:              2010-11-19 2:31 AM BRT
+// Review:
+//                    * 2013-09-03: ernando2000 <ernando.quirino@hotmail.com>
+//                    * 2013-09-04: Lunovox Heavenfinder <rui.gravata@gmail.com>
+//                    * 2016-06-14: Jesusalva <tmwbr@jesussalva.com>
+//                    * 2017-06-17: Jesusalva <cpntb1@ymail.com>
+//                    * 2018-05-24: Jesusalva <admin@tmw2.org>
+//                      * Adapted from TMW-BR to TMW2
+// Minimum Req.:      LVL 30
+// Consumables:       Bandits drops: CoinBag, Dagger, Leather Shield, Empty Bottle
+// Prize:             1 BurglarMask
+// Description:
+//                    A contrabandist which feeds Halinarzo's black market.
+//                    Will later teach the Steal skill. (maybe)
+// Notes:
+//                    Blame Saulc.
+
+
+
+
+009-1,24,105,0	script	Trader King	NPC_ORC,{
+    .@q=getq(HalinarzoQuest_TraderKing);
+    if (BaseLevel < 30) goto L_Weak;
+    if (.@q == 1) goto L_Return;
+    if (.@q == 2) goto L_End;
+    goto L_Start;
+
+L_Weak:
+    mesn;
+    mesq lg("Get out of here, weakling. You'll be killed by bandits.");
+    close;
+
+L_Inicio:
+    mesn;
+    mes lg(":> \"Hello, youngling...\"");
+    next;
+    mesn strcharinfo(0);
+    menu
+        l("This character person is strange I better get away..."), L_Distrust,
+        l("Hmm, who are you?") , L_WhoAmI;
+
+L_WhoAmI:
+    mes "";
+    mesn;
+    mesq l("I am the Trader King, because I supply a market!");
+    close;
+
+L_Distrust:
+    mes "";
+    mesn strcharinfo(0);
+    mes l("¬.¬ \"Hmm, to me, you look like a thief or bandit...\"");
+    next;
+    mesn;
+    mes l(":D \"HAHAHAHAH! Me?! a thief? only during free time...\"");
+    next;
+    mesn strcharinfo(0);
+    mes l("¬.¬ \"I knew it! I'll report you at once.\"");
+    next;
+    mesn;
+    mes l("0.0 \"No no, please no! I can propose you a great deal for your silence!\"");
+    next;
+    menu
+    l("Which deal?"), L_Deal,
+    l("No, justice must be done.") , L_Die;
+
+L_Deal:
+    mes "";
+    mesn;
+    mesq l(":/ \"Hmm... let me see... Aha, I know! I can make you a great bandit with a simple burglar mask!\"");
+    next;
+    mesn strcharinfo(0);
+    mes l(":o \"What? I'm not a bandit! But it looks SO COOL! Do you need anything while you're here?\"");
+    next;
+    mesn;
+    mes l(":D \"Ah! Yes, that would help a lot! I don't need anything a bandit couldn't give you: 30 @@, 2 @@, 2 @@ and a @@. And 6000 GP.\"", getitemlink(CoinBag), getitemlink(EmptyBottle), getitemlink(Dagger), getitemlink(LeatherShield));
+    mesq l("What do you say?");
+    next;
+    mesn strcharinfo(0);
+    menu
+    l("No way! That's absurd!"),       L_Close,
+    l("That's a lot, but we have a deal!"), L_Accept;
+
+L_Accept:
+    mes "";
+    mesn;
+    mes l(">:| \"Go take the items and remember: Not even a single word about me!\"");
+    next;
+    mesn strcharinfo(0);
+    mes l(";-) \"Don't worry! Leave to me!\"");
+    next;
+    mesn;
+    mes l("Here's what I need:");
+    mes l("@@/30 @@", countitem(CoinBag), getitemlink(CoinBag));
+    mes l("@@/2 @@", countitem(EmptyBottle), getitemlink(EmptyBottle));
+    mes l("@@/2 @@", countitem(Dagger), getitemlink(Dagger));
+    mes l("@@/1 @@", countitem(LeatherShield), getitemlink(LeatherShield));
+    mes l("@@/6000 GP", Zeny);
+
+    setq HalinarzoQuest_TraderKing, 1;
+    close;
+
+L_Return:
+    mesn;
+    mes "\"Do you have what I asked for?\"";
+    next;
+    menu
+    l("Yes, of course."),               L_Finish,
+    l("I forgot what you need."),       L_Review,
+    l("Not yet, I'll be right back."),  L_Wait;
+
+L_Wait:
+    mes "";
+    mesn;
+    mesq l("\"I'll be waiting for you! And trading some items of questionable origins...\"");
+    close;
+
+L_Finish:
+    if (Zeny < 6000) goto L_Pobre;
+    if (countitem(CoinBag) < 30 ||
+        countitem(EmptyBottle) < 2 ||
+        countitem(Dagger) < 2 ||
+        countitem(LeatherShield) < 1)
+            goto L_Missing;
+
+    inventoryplace BurglarMask;
+    delitem CoinBag, 30;
+    delitem EmptyBottle, 2;
+    delitem Dagger, 2;
+    delitem LeatherShield, 1;
+    Zeny = Zeny - 6000;
+    getitem BurglarMask, 1;
+    setq HalinarzoQuest_TraderKing, 2;
+    mes "";
+    mesn;
+    mes l(":D \"Excellent! You've kept your end on the bargain!\"");
+    next;
+    mesn;
+    mesq l("\"I always keep my end on the bargain, so here you go.\"");
+    next;
+    mesn;
+    mes l(":) \"A pleasure to trade if you. Don't get caught if you're doing something wrong!\"");
+    close;
+
+L_Poor:
+    mes "";
+    mesn;
+    mes l(":< \"Hey hey! Where's the money?\"");
+    close;
+
+L_Missing:
+    percentheal -15;
+    mes "";
+    mesn;
+    mes l(":< \"Never lie to me. Keep your end on the bargain! Give me everything I asked for!\"");
+    close;
+
+L_End:
+    mesn;
+    mes l(":P \"I am busy, leave me aline.\"");
+    close;
+
+L_Review:
+    mes "";
+    mesn;
+    mes l("Here's what I need:");
+    mes l("@@/30 @@", countitem(CoinBag), getitemlink(CoinBag));
+    mes l("@@/2 @@", countitem(EmptyBottle), getitemlink(EmptyBottle));
+    mes l("@@/2 @@", countitem(Dagger), getitemlink(Dagger));
+    mes l("@@/1 @@", countitem(LeatherShield), getitemlink(LeatherShield));
+    mes l("@@/6000 GP", Zeny);
+    close;
+
+L_Die:
+    mesn;
+    mesq l("Then I'll be sure you can't talk again.");
+    percentheal -100;
+    close;
+
+L_Close:
+    close;
+
+
+}