// TMW2 scripts.
// Authors:
//    Jesusalva
//	  +seeds
// Description:
//    Daily quest to exchange Tolchi Arrow Boxes for a small amount of gp and exp
// Variables:
//    $GLIM_ST
//      How many Tolchi Arrow Boxes were given
//    q1
//      Controls your own progress helping Glim - Items today
//    q2
//      Controls your own progress helping Glim - Your timer

006-2-1,82,28,0	script	Glim	NPC_PIOU_VIKING,{

L_Loop:
    .@q1=getq(LilitQuest_Glim);
    .@q2=getq2(LilitQuest_Glim);
    mesn;
    mesq l("Argh, I've run out o' arrows! Say, ye don't have any I could use, do ye?.", $GLIM_ST);
    next;
    if (.@q2 < $@GLIM_QTIMER) {
        setq1 Lilitquest_Glim, 0;
        setq2 Lilitquest_Glim, $@GLIM_QTIMER;
    }

    // Daily limit reached
    .@q1=getq1(Lilitquest_Glim);
    if (.@q1 >= (BaseLevel-17)/3) goto L_Timer;
    select
        rif(countitem(TolchiAmmoBox) >= 1, l("Give Glim a @@"), getitemlink(TolchiAmmoBox)),
        l("Maybe later.");
    mes "";

    switch (@menu) {
        case 1:
            delitem TolchiAmmoBox, 1;
            getexp 64, 0;
            Zeny=Zeny+50;
            break;
        case 2:
            close;
            break;
    }
    $GLIM_ST=$GLIM_ST+1;
    setq1 Lilitquest_Glim, .@q1+1;
    goto L_Loop;

L_Timer:
    if (BaseLevel < 10)
        mesq l("Wait a minute! I ain't trustin' a weakling like ye fer good arrows!");
        mesn;
        mesq l("Come back when ye've grown sum muscles.");
    mesn;
    mesq l("I'm all stocked up now, thanks to ye. Come back in @@ and ye might be able to help me again.", FuzzyTime($@GLIM_TIMER+(60*60*24),2,2));
    close;

OnInit:
    .sex=G_OTHER;
    .distance=5;
    // No end; on purpose

OnHour00:
    $@GLIM_QTIMER=gettimeparam(GETTIME_DAYOFMONTH);
    $@GLIM_QTIMER=gettimetick(2);
    end;

}