summaryrefslogtreecommitdiff
path: root/npc/020-1/anwar.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/020-1/anwar.txt')
-rw-r--r--npc/020-1/anwar.txt148
1 files changed, 0 insertions, 148 deletions
diff --git a/npc/020-1/anwar.txt b/npc/020-1/anwar.txt
deleted file mode 100644
index 7d6789ef..00000000
--- a/npc/020-1/anwar.txt
+++ /dev/null
@@ -1,148 +0,0 @@
-// 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;
-}