diff options
Diffstat (limited to 'npc/020-1/anwar.txt')
-rw-r--r-- | npc/020-1/anwar.txt | 148 |
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; -} |