summaryrefslogblamecommitdiff
path: root/npc/commands/warp.txt
blob: cc2c4e43445ea892741eca98ee3ff8cb5c0d8af4 (plain) (tree)
1
2
3
4
5
6


                             


                                  
























































                                                                           

                                                               
                                                                               


                                                          
                                                       
                                                          
 
                              


                                                                            

                                                                                      
                                                                  
                                                                   
                                                                                    
 








                                             
                                          
 
// TMW2 script
// Evol script, gumi's script
//
// @w atcommand
// warps using anchors or map name
//
// 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
        "^HALI",            "009-1 28 33",    // Halinarzo

        // TBR - To Be Removed
        "^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", 5, 80, 1;
}