//############################################
//#    NPC Well & Miler
//# Authors: Lien, PjotrOrial
//# Review:
//#
//# There is someone in the well. This can be found out by throwing some stuff
//# in there.
//#
//# When the npc in the well is detected they can be rescued by asking Miler
//# for help.
//#
//# The experience reward given by Miler is 111 * BaseLevel
//#
//# used variables: QUEST_Nivalis_state Nibble4
//############################################

020-1,99,83,0|script|#Well|400
{
    if(QL_WELL == 2) goto L_Finished;
    
    mes "...";
    menu
        "Throw something in the well.", L_Throw,
        "Leave it alone.", L_Close;

L_Throw:
    mes "What do you want to throw?";
    
    setarray @response_list$, "Yuck! Who threw that on me?", "Ouch! Who's hurting me?", "White powder!? What's going on up there?", "It's raining in Nivalis?!";
    setarray @item_list$, "InsectSlime", "RawLog", "PileOfAsh", "BottleOfWater";
    menu
        "Insect slime", L_CheckItem,
        "A raw log", L_CheckItem,
        "Pile of ash", L_CheckItem,
        "Bottle of water", L_CheckItem,
        "Leave it alone", L_Close;

L_CheckItem:
    set @index, @menu - 1;
    set @response$, @response_list$[@index];
    set @item$, @item_list$[@index];
    
    mes @item$;
    
    if(countitem(@item$) == 0)
        goto L_MissingItem;
    delitem @item$, 1;
    
    if(@item$ == "BottleOfWater")
        getitem "EmptyBottle", 1;
    
    mes "[Mysterious voice inside the well]";
    mes "\"" + @response$ + "\"";
    next;
    menu
        "Who are you?", L_Who,
        "How did you get down there?", L_How,
        "Do you need help?", L_Help;

L_Who:
    set @response$, "I'll talk about who I am after leaving the well. ";
    goto L_GetHelp;

L_How:
    set @response$, "Well, someone pushed me into the well, I'm not sure who. ";
    goto L_GetHelp;

L_Help:
    set @response$, "I certainly can't get out on my own. ";
    goto L_GetHelp;

L_GetHelp:
    mes "[Mysterious voice inside the well]";
    mes "\"" + @response$ + "So if you can get some help for me... please do so!\"";
    set QL_WELL, 1;
    
    cleararray @response_list$, "", 4;
    cleararray @item_list$, "", 4;
    set @index, 0;
    set @response$, "";
    
    goto L_Close;

L_MissingItem:
    mes "You can't throw something you don't have.";
    goto L_Close;

L_Finished:
    mes "This is a well.";
    goto L_Close;

L_Close:
    close;
}

020-2,100,28,0|script|Miler|100
{
    mes "[Miler]";
    mes "\"Hello!\"";
    
    if(QL_WELL != 1) goto L_Close;
    menu
        "Hello.", L_Close,
        "Hello, Can you help me?", L_Help;

L_Help:
    mes "[Miler]";
    mes "\"What's the problem?\"";
    menu "Someone fell into the well.", L_Next;

L_Next:
    mes "[Miler]";
    mes "\"Ho! I'll help him!\"";
    getexp (BaseLevel * 111), 0;
    set QL_WELL, 2;
    goto L_Close;

L_Close:
    close;
}