test hat location + add HAS quest + candor battle warp

1 files changed, 45 insertions, 1 deletions

diff --git a/npc/003-1/well.txt b/npc/003-1/well.txt
index 986d21c77..695dae536 100644
--- a/npc/003-1/well.txt
+++ b/npc/003-1/well.txt
@@ -3,9 +3,53 @@
 
 003-1,45,80,0	script	Well	NPC_NO_SPRITE,{
 
+    .Item1 = IronOre; //7
+    .GP = 8500;
+    .ItemCreate = IronIngot;
+
+    function quest_create {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("How many ingots do you want to make?");
+        input .amount;
+
+        if (countitem("Iron Ore") >= .amount * 7 && Zeny >= 8500 * .amount)
+        {
+            delitem .Item1, .amount * 7;
+            Zeny = Zeny - .amount * .GP;
+            getitem .ItemCreate, .amount;
+            close;
+        }
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("You don't have enought quantity.");
+        close;
+        
+    }
+
+    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+        l("Hello do you want to craft @@, for that i will need 7 @@,and @@ gp.", getitemlink(.ItemCreate),getitemlink(.Item1),.GP);
+
+    do
+    {
+        .@karim = getq(Karim_Quest);
+        select
+            l("Yes"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                quest_create;
+                break;
+        }
+    } while (@menu != 2);
+
+    closedialog;
+    goodbye;
+    close;
 
 OnInit:
     .sex = G_MALE;
     .distance = 3;
     end;
-}
\ No newline at end of file
+}
+