From 85edd8bd0ef4236809be8cc77f4d17c835d81491 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 11 May 2022 22:39:55 -0300
Subject: This isn't a bank, this is a thief!

---
 npc/032-1/episode.txt | 110 +++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 108 insertions(+), 2 deletions(-)

(limited to 'npc')

diff --git a/npc/032-1/episode.txt b/npc/032-1/episode.txt
index 3199948fd..0655d5e0a 100644
--- a/npc/032-1/episode.txt
+++ b/npc/032-1/episode.txt
@@ -491,9 +491,115 @@ OnInit:
     end;
 }
 
-// NPC_LEGACY_GUARD_B NPC_LEGACY_GUARD_C NPC_LEGACY_GUARD_D NPC_LEGACY_LIEUTENANT
+032-1,65,223,0	script	Townhall Guard#EP	NPC_LEGACY_GUARD_D,{
+    mesn;
+    mesq l("Sorry, but no entry to Townhall under orders of the council head, Benjamin L.");
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+
+032-1,138,126,0	script	Market Guard#EP	NPC_LEGACY_GUARD_C,{
+    mesn;
+    mesq l("With the wages I receive, you can use this market at your own risk.");
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+
+032-1,40,146,0	script	Academy Guard#EP	NPC_LEGACY_GUARD_B,{
+    mesn;
+    mesq l("I'm actually paid by the Academy, or there would be no security here.");
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+
+032-1,152,183,0	script	Lt. Longburn#EP	NPC_LEGACY_LIEUTENANT,{
+    mesn;
+    mesq l("If you have trouble with guards, just bribe them and they'll leave you alone. I asked a few to be fired three years ago, but the council haven't reviewed it yet.");
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+
+032-1,138,152,0	script	Begger#EP	NPC_SCAMMER,{
+    mesn;
+    mesq l("I was kicked out of home for not paying rent. But I had no choice, it was either to eat or to have a roof...");
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+
+032-1,114,194,0	script	Imec#EP	NPC_LOF_TRAVMERC,{
+    .@q = (getq(LoFQuest_EPISODE) == 15 ? getq2(LoFQuest_EPISODE) : 99);
+    .@x = getq3(LoFQuest_EPISODE);
+    .@met_banu = (.@x & 1);
+    .@ask_apple = (.@x & 2);
+    .@got_apple = (.@x & 4);
+    .@banu_priz = (.@x & 8);
+    .@warez = (!.@q && (.@ask_apple && !.@got_apple));
+    .@apple = 12-countitem(RedApple);
+    mesn;
+    mesq l("Warez?");
+    next;
+    select
+        l("No but thanks."),
+        l("No, loans."),
+        rif(.@warez && .@apple > 0, l("Yes, I need %d apples.", .@apple));
+    mes "";
+    switch (@menu) {
+    case 1:
+        closeclientdialog; break;
+    case 2:
+        mesn;
+        mesc l("To pay in the specified date, we'll charge you %s over the loaned amount. So, how much?", "25%");
+        next;
+        menuint
+            l("I'm sure the Doctor has a trick... No loans, thanks."), 0,
+            rif(BankVault > 1250, l("1,000 GP")), 1000,
+            rif(BankVault > 3125, l("2,500 GP")), 2500,
+            rif(BankVault > 6250, l("5,000 GP")), 5000,
+            rif(BankVault > 12500, l("10,000 GP")), 10000,
+            rif(BankVault > 62500, l("50,000 GP")), 50000,
+            rif(BankVault > 312500, l("250,000 GP")), 250000;
+        mes "";
+        BankVault -= @menuret * 125 / 100;
+        Zeny += @menuret;
+        mesn;
+        mesq l("...As you wish.");
+        break;
+    case 3:
+        // Inflation: 400%
+        // Plus a discount for buying many at once
+        .@price = .@apple * getiteminfo(RedApple, ITEMINFO_BUYPRICE) * 4 + (120 - (.@apple*10));
+        mesn;
+        mesq l("That'll be %s GP.", fnum(.@price));
+        if (Zeny < .@price) break;
+        next;
+        if (askyesno() == ASK_NO) break;
+        Zeny -= .@price;
+        getitem RedApple, .@apple;
+        mesn;
+        mesq l("My pleasure.");
+    }
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
 // NPC_OMAR NPC_KADIYA NPC_SASHA
-// FIXME: A bank is urgently needed
 
 // Omatt (NPC_OMAR) swears to make a large donation to the Academy
 // shall Kadiya ever be cured. He is a trader of rare gems.
-- 
cgit v1.2.3-60-g2f50