011-3,45,33,0	script	Arkim	NPC116,{
    mesn l("Arkim the Hermit");
    mesq l("Do you want to go back outside?");
    if (@knowhermitstory == 1) goto L_Short_Menu;
    menu
         l("Yes, please!"), L_Sure,
         l("Not yet."), L_close,
         l("Actually... Why do you live here?"), L_Interested;

L_Short_Menu:
    menu
        l("Yes, please!"), L_Sure,
        l("Not yet."), L_close,
        l("What was that deal you were offering?"), L_Quest;

L_Sure:
    warp "011-1", 58, 93;
    closeclientdialog;
    close;

L_Interested:
    mesn l("Arkim the Hermit");
    mes "\"Oh my, never really thought about it!\"";
    next;
    mesn l("Arkim the Hermit");
    mes "\"I guess mostly I enjoy experimenting with the bats here.\"";
    menu
        "I see...", L_close,
        "What type of experimenting?", L_Experiment;

L_Experiment:
    mesn l("Arkim the Hermit");
    mes "\"Never really thought about it either...\"";
    next;
    mes "You watch as the hermit's old, lazy eyes open wide, and the old man comes alive with energy.";
    next;
    mesn l("Arkim the Hermit");
    mes "\"I GUESS I REALLY LIKE CUTTING THEM UP TO SEE HOW THEY WORK!!  HAHAHA!\"";
    menu
        "YOU'RE CRAZY!", L_close,
        "Right... me too!  Can I help?", L_Quest;

L_close:
    closeclientdialog;
    close;

L_Quest:
    @knowhermitstory = 1;

    @dq_level = 20;
    @dq_cost = 4;
    @dq_count = 3;
    @dq_name$ = "BatWing";
    @dq_friendly_name$ = "bat wings";
    @dq_money = 600;
    @dq_exp = 100;

    callfunc "DailyQuest";

    next;

    mesn l("Arkim the Hermit");
    mesq l("And remember: never lend your toothbrush to a slime!");
    close;
}