summaryrefslogtreecommitdiff
path: root/npc/006-2-1/glim.txt
blob: 414232888d19b93bdaf8f2edcf84d84e87958362 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
// 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? I only got %s...", fnum($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), l("Give Glim a %s"), getitemname(TolchiAmmoBox)),
        l("Maybe later.");
    mes "";

    switch (@menu) {
    case 1:
        delitem TolchiAmmoBox, 1;
        getexp 64, 0;
        Zeny+=150;
        break;
    case 2:
        close;
        break;
    }
    $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.");
        close;
    }
    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;

}