summaryrefslogtreecommitdiff
path: root/npc/commands/warp.txt
blob: fadac23fff7e6d06fa3bd0f58eb05c8900dc57c1 (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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
// @w atcommand
// warps using anchors or map name
//
// group lv: 1
// group char lv: 2
// log: True
//
// usage:
//    @w <map or anchor> [, x [, y]]
//    #w "char" <map or anchor> [, x [, y]]
//
// example:
//    @w artis
//    #w "char" artis

-	script	@w	32767,{
    end;

OnCall:
    .@request$ = strtoupper(strip(.@atcmd_parameters$[0])); // sanitize
    .@map$ = "";
    .@x = 0;
    .@y = 0;

    for (.@i = 0; .@i < .count; .@i += 2)
    {
        if (.@request$ ~= .aliases$[.@i])
        {
            sscanf .aliases$[.@i + 1], "%s %d %d", .@map$, .@x, .@y;
            break;
        }
    }

    if (.@map$ == "")
    {
        .@map$ = .@atcmd_parameters$[0];
    }

    if (.@atcmd_parameters$[2] != "")
    {
        .@x = atoi(.@atcmd_parameters$[1]);
        .@y = atoi(.@atcmd_parameters$[2]);
    }

    // FIXME: here getmapusers() is used only to check if the map exists
    //        replace this when/if we get a dedicated function for that
    if (getmapusers(.@map$) < 0)
    {
        end; // invalid map
    }

    while (!checkcell(.@map$, .@x, .@y, cell_chkpass))
    {
        if (.@e == 50) end;
        .@x = rand(20, 250);
        .@y = rand(20, 250);
        ++.@e;
    }

    cwarp .@map$, .@x, .@y; // XXX: maybe here use a slide_or_warp function

OnInit:
    setarray .aliases$[0],

        // PROLOGUE
        "^START|^BEGIN",    "000-0 22 24",    // starting point
        "^NARD|^SHIP",      "002-1 53 38",    // nard's ship (outside instance)

        // TMW2
        "^TULIM",           "003-1 41 48",    // Tulishmar
        "^CANDOR",          "005-1 28 92",    // Candor
        "^HURN",            "008-1 79 64",    // Hurnscald
        "^HALI",            "009-1 28 33",    // Halinarzo

        // TBR - To Be Removed
        "^DRASIL",          "000-1 94 100",    // (TBR) Drasil Island
        "^BOSS",            "boss 45 45",      // (TBR) Jesusalva Boss Arena
        "^BOT",             "botcheck 26 30",  // (TBR) Botcheck area

        // GM Stuff
        "^AEROS|^GM",       "001-1 235 26",    // Floating Island of Aeros (GM Events)
        "^EASTER",          "001-4 151 157",   // Easter Event Map
        "^SOREN",           "soren 179 56",    // Unimplemented map
        "^JAIL|^PRISON",    "sec_pri 28 25";   // Jesusalva's Prison (and last line)


    .count = getarraysize(.aliases$[0]);

    if (debug > 0)
    {
        bindatcmd "w", "@w::OnCall", 0, 2, 0;
        end;
    }

    bindatcmd "w", "@w::OnCall", 1, 2, 1;
}