npc/018-3/evil-obelisk.txt


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

018-3,67,28,0	script	Evil Obelisk	NPC185,{
    if (getq(Quest_Reapercry) == 3) {
        mesc l("We've already seen such obelisk before... Do you want to sacrifice %d %s?", .souls, getitemlink(Soul));
        if (countitem(Soul) >= .souls) {
            next;
            if (askyesno() == ASK_YES) {
                delitem Soul, .souls;
                warp "099-7", 95, 31;
                closeclientdialog;
                close;
            }
        }
    }
    @map$ = "018-3";
    @x0 = 56;
    @y0 = 22;
    @x1 = 77;
    @y1 = 37;
    callfunc "EvilObelisk";
    @map$ = "";
    @x0 = 0;
    @y0 = 0;
    @x1 = 0;
    @y1 = 0;
    close;
OnInit:
    .souls=25;
    end;
}