summaryrefslogtreecommitdiff
path: root/npc/012-2/Saulc.txt
blob: 7814deb6fd0bd534e70b07393eacb4c445114866 (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
// TMW2 Script
// Author:
//  Jesusalva
// Description:
//      Monthly Sponsor Quest
// Variable:
//      SQuest_Sponsor
//      Quest ID: 1

012-2,46,81,0	script	Saulc Sponsor	NPC_HUMAN_MALE_CHIEF,{
    function resetSQS {
        setq SQuest_Sponsor, 0, gettime(GETTIME_MONTH);
    }
    // Check monthly quest
    .@d=getq2(SQuest_Sponsor);
    if (.@d != gettime(GETTIME_MONTH)) resetSQS();

    // Core
    .@q=getq(SQuest_Sponsor);
    mesn;
    mesq l("Ahh, I hate @@.", getmonsterlink(Pinkie));
    if (!(.@q & .questID)) goto L_Menu;
    close;

L_Menu:
    mesq l("I will reward you for 7 @@.", getitemlink(.itemID));
    mes "";
    menu
        rif(countitem(.itemID) >= 7, l("Here they are!")), L_Finish,
        l("Where can I find them?"),L_Where,
        l("No, thanks."),L_Close;

L_Finish:
    delitem .itemID, 7;
    getexp 770, 0; // 7 / 4.1% = 171 kills * 52 xp = 3078 xp gained from killing. (25% bonus)
    getitem StrangeCoin, rand(1,7);
    .@q=getq(SQuest_Sponsor);
    setq1 SQuest_Sponsor, .@q | .questID;
    mes "";
    mesn;
    mesq l("Many thanks! Come back later to bring me extra @@!", getitemlink(RedScorpionStinger));
    close;

L_Where:
    mes "";
    mesq l("Ah, there are lots on the fields.");
    next;

L_Close:
    closedialog;
    goodbye;
    close;

OnInit:
    .sex = G_MALE;
    .distance = 5;
    .questID=1;
    .itemID=PinkAntenna;
    end;
}