summaryrefslogtreecommitdiff
path: root/npc/024-1/teleporter.txt
blob: cdced77aaa55b267bd9fc44261778ed56af4774c (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
// TMW2 Script
// Authors:
//    Jesusalva
// Description:
//    Link portals to soul menhirs like the teleporters from old
//    The price is temporary. This feature got in because no ship in Nivalis Port
//    PS. Anise => “Aisen” Anagram


024-1,155,80,0	script	#WarpGateFrost	NPC_NO_SPRITE,1,0,{
    end;

OnTouch:
    if (!TELEPORTERS & TP_FROST) {
        TELEPORTERS=TELEPORTERS|TP_FROST;
        mesn "Anise Inc.";
        mesc l("Location Registered. You are now capable to use this warp gate.");
        next;
    }
    mesc l("Where should I warp to?");
    mesc l("Cost: 1 @@", getitemlink(EverburnPowder)), 1;
    if (!countitem(EverburnPowder))
        close;
    next;
    select
        rif(TELEPORTERS & TP_FROST && 0, l("Frostia")),
        rif(TELEPORTERS & TP_HALIN, l("Halinarzo")),
        rif(TELEPORTERS & TP_TULIM, l("Tulimshar")),
        rif(TELEPORTERS & TP_HURNS, l("Hurnscald")),
        rif(TELEPORTERS & TP_NIVAL, l("Nivalis")),
        rif(TELEPORTERS & TP_ARTIS, l("Artis")),
        rif(TELEPORTERS & TP_ESPER, l("Esperia")),
        rif(TELEPORTERS & TP_BOSSR, l("The Monster King Fortress")),
        l("None");
    mes "";
    if (@menu != 9)
        delitem EverburnPowder, 1;
    closedialog;
    switch (@menu) {
        case 2:
            warp "009-1", 113, 91; break;
        default:
            close;
    }

    close;


OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}