1 files changed, 148 insertions, 0 deletions
diff --git a/npc/020-1/anwar.txt b/npc/020-1/anwar.txt
new file mode 100644
index 00000000..7d6789ef
--- /dev/null
+++ b/npc/020-1/anwar.txt
@@ -0,0 +1,148 @@
+// The Mana World scripts.
+// Author:
+//    Micksha
+//    Jesusalva
+// Description:
+//    Anwar, the farmer in Tulimshar.
+
+020-1,178,196,0	script	Anwar	NPC_ANWAR,{
+    // This code is from Moubootaur Legends and needs cleaning up
+    .@q=getq(TulimsharQuest_AnwarField);
+    if (BaseLevel < 18) {
+        hello;
+        end;
+    }
+
+    if (.@q > 10) goto L_Complete;
+    if (.@q == 10) goto L_SecondReward;
+    if (.@q == 9) goto L_FirstReward;
+    if (.@q == 8) goto L_SecondTry;
+    if (.@q == 7) goto L_AnwarField;
+    if (.@q == 6) goto L_FirstTry;
+    if (.@q == 5) goto L_TryIt;
+    if (.@q >= 1) goto L_FirstTry;
+    // TODO: "What is this contraband fake potion you have there?! I do not accept potions without the seal of the Magic Academy. They might not work and I won't have warranty."
+
+    speech
+        l("Hi there."),
+        l("Nothing grows in this stupid desert."),
+        l("I could try to water it, but where to get water.. also a fertility potion could help."),
+        l("Maybe you can do a small errand for me?");
+		//l("But I have no water, no potion, no script. *cries* ");
+    select
+        l("Sure!"),
+        l("I'm busy, sorry.");
+    mes "";
+    if (@menu == 1)
+        goto L_Sure;
+    close;
+
+L_Complete:
+    mesn;
+    mesq l("Thanks for saving Tulimshar from a famine. I'll be forever grateful.");
+    next;
+    mesn;
+    mesq l("Dealing with raijin is too bothersome to me.");
+    close;
+
+L_AnwarField:
+    mesn;
+    mesq l("My crops! Hurry up, and talk to Hocus!!");
+    close;
+
+L_Sure:
+    mes "";
+    mesn;
+    mesq l("Great! Hocus, the magic academy grandmaster, is a real Nature mage. He probably makes fertilizers.");
+    next;
+    mesn;
+    mesq l("Please, talk to him. I am too busy tending the crops to go myself.");
+    setq TulimsharQuest_AnwarField, 1;
+    close;
+
+L_FirstTry:
+    mesn;
+    mesq l("Good luck getting the fertilizer from Hocus!");
+    if (countitem(FertilityPotion))
+        mesc l("Anwar will only accept fertility potions certified by the Magic Academy.");
+    close;
+
+L_TryIt:
+    .@q2=getq2(TulimsharQuest_AnwarField);
+    if (!countitem(FertilityPotion)) {
+        mesn;
+        mesq l("Bring me the fertilizer!");
+        close;
+    }
+    mesn;
+    mesq l("You've brought me fertilizer! Let me see if it works...");
+    next;
+    delitem FertilityPotion, 1;
+    setq2 TulimsharQuest_AnwarField, .@q2+1;
+
+    // Fail chances are 100% - 13% per attempt
+    if (rand2(0,100) < 100-(.@q2*13)) {
+        setq1 TulimsharQuest_AnwarField, 6;
+        mesc l("Nothing happens.");
+        next;
+        mesn;
+        mesq l("Uhm, it was not enough. Please bring me another one.");
+    } else {
+        setq1 TulimsharQuest_AnwarField, 7;
+        mesc l("Evil worms crawl from earth and starts devouring the plants!");
+        // Okay, maybe Galimatia's potion was a better idea.
+        next;
+        mesn;
+        mesq l("Uh... That should not happen, right? RIGHT?");
+        next;
+        mesn;
+        mesq l("Don't just stand here! Go fetch help, NOW!!");
+    }
+
+    close;
+
+L_SecondTry:
+    if (!countitem(PurificationPotion)) {
+        mesn;
+        mesq l("Bring me the bug bomb or whatever!");
+        close;
+    }
+    mesn strcharinfo(0);
+    mesq l("Here is a certified(R) purification potion! Hocus just gave me. Hurry up!");
+    next;
+    delitem PurificationPotion, 1;
+    getexp 20, 0;
+    specialeffect(51);
+    setq TulimsharQuest_AnwarField, 9;
+    mesn;
+    mesq l("Thanks God... The crops are safe. Not only that, but the fertilizer works!");
+    next;
+    mesn;
+    mesq l("Ah, that was tiresome... I'll go make a reward for them, talk to me again later.");
+    close;
+
+L_FirstReward:
+    mesn;
+    mesq l("Here are two %s. Please deliver it to them. I hope they'll like it.", getitemlink(SilverBell));
+    setq TulimsharQuest_AnwarField, 10, 0;
+    getitembound(SilverBell, 2, 4); // Prevent accidental item loss
+    close;
+
+L_SecondReward:
+    .@q2=getq2(TulimsharQuest_AnwarField);
+    if (.@q2 < 3){
+        mesn;
+        mesq l("Please deliver the two %s to Eomie and Hocus, and then I'll give you something for your help.", getitemlink(SilverBell));
+        close;
+    }
+    setq TulimsharQuest_AnwarField, 11, 0;
+    getitem SilkPants, 1;
+    getexp 750, 0;
+    mesn;
+    mesq l("Many thanks for your help! Here, take this. I'm sure it can be very useful later. It always is.");
+    close;
+
+OnInit:
+    .distance = 4;
+    end;
+}