-	script	#ValonConfig	NPC32767,{
    end;

OnInit:
    setarray $@ValonMob, Maggot,HouseMaggot,TameScorpion,Scorpion;
    setarray $@ValonMobName$, "Maggots","House Maggots","Tame Scorpions","Scorpion";
    setarray $@ValonMobCnt, 10,5,3,1;
    end;
}
029-1,74,86,0	script	ValonDebug	NPC156,{
    mes "[Valon Debug]";
    mes "Reset?";

    if (askyesno() == ASK_YES) {
        QL_VALON = 0;
        STARTAREA = (STARTAREA & ~(NIBBLE_2_MASK) | (0 << NIBBLE_2_SHIFT));
        mes "";
        mes "Reset!";
    }
    close;

OnInit:
    if (!debug)
        disablenpc "ValonDebug";
    end;
}
029-1,72,86,0	script	Valon	NPC156,{
    callfunc "PCtoNPCRange";
    if(@npc_check) end;

    ValonCount();
    if (QL_VALON >= 6)
        goto L_QuestComplete;
    if (QL_VALON == 1)
        goto L_QuestAskAgain;
    if (@valon_count >= $@ValonMobCnt[@valon_mob])
        goto L_NextMob;
    if ((QL_VALON >= 2) && (QL_VALON < 6))
        goto L_QuestStarted;
    goto L_QuestAsk;

L_QuestAskAgain:
    mesn;
    mesq l("Hello, Adventurer! Have you come back to help?");
    menu
        "Yes. I will help with the island beasts.", L_Accept,
        "Maybe some other time.", L_close;

L_QuestAsk:
    mesn;
    mes "\"Hello!";
    mes "You're looking for adventures, right?\"";
    mes "\"But you shouldn't underestimate this island, it is dangerous.\"";
    mes "\"It's crawling with scorpions, and the heat has overcome adventurers tougher than you are.\"";
    mes "\"I should know I guard this gate from all manner of island beasts.\"";
    mes "\"Maybe you would like help and earn your stripes?\"";
    mes "\"The Council of Wizard's does offer a reward for helping...\"";
    QL_VALON = 1;
    ResetValonCntMask();
    menu
        "YES!!! let me at them!", L_Accept,
        "Maybe some other time.", L_close;

L_Accept:
    QL_VALON = 2;
    ValonCount();
    goto L_NewMob;

L_NextMob:
    getexp 40, 0;
    mesq l("I see you killed all the %s needed.", getmonsterlink(@valon_mob));
    mesq l("The Wizard's thank thee as well.");
    Zeny = Zeny + 25;
    QL_VALON = (QL_VALON + 1);
    ResetValonCntMask();
    ValonCount();
    if (@valon_mob == getarraysize($@ValonMob))
        goto L_QuestOver;
    goto L_NewMob;

L_NewMob:
    mesq l("Let's see whats on the list. Ah ok, I need you to kill me %d %s.",  $@ValonMobCnt[@valon_mob], getmonsterlink(@valon_mob));
    mesq l("I'll be waiting here, come back and see after you've killed those mobs.");
    close;

L_QuestStarted:
    mesn;
    mesq l("Hail adventurer! You are well on your way to mastering the beasts of the island.");
    mesq l("You need to kill %s: %d/%d.", getmonsterlink(@valon_mob), @valon_count, $@ValonMobCnt[@valon_mob]);
    mesq l("\"Come back and see me when the job is done.\"");
    close;

L_QuestOver:
    mesn;
    mesq l("Thanks once again for helping with the monsters in the island.");
    getexp 50, 0;
    QL_VALON = (QL_VALON + 1);
    close;

L_QuestComplete:
    mesn;
    mesq l("Thanks once again for helping with the monsters in the island.");
    close;
}