path: root/npc/018-3/evil-obelisk.txt

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;
}