/*

// oMAP_BUILDER CREATE EVENT

*/

// CREATE GRID
global.rWorldOne = ds_grid_create(3, 3);

// ROW ONE
ds_grid_set(global.rWorldOne, 0, 0, "rWorldOne_0");
    ds_grid_set(global.rWorldOne, 1, 0, "rWorldOne_1");
        ds_grid_set(global.rWorldOne, 2, 0, "rWorldOne_2");

// ROW TWO
ds_grid_set(global.rWorldOne, 0, 1, "rWorldOne_3");
    ds_grid_set(global.rWorldOne, 1, 1, "rWorldOne_4");
        ds_grid_set(global.rWorldOne, 2, 1, "rWorldOne_5");

// ROW THREE
ds_grid_set(global.rWorldOne, 0, 2, "rWorldOne_6");
    ds_grid_set(global.rWorldOne, 1, 2, "rWorldOne_7");
        ds_grid_set(global.rWorldOne, 2, 2, "rWorldOne_8");

-------------------------------------------------

/*

// oTRIGGER CREATE EVENT

*/

current_world = global.rWorldOne;
    world_width   = ds_grid_width(current_world);
    world_height  = ds_grid_height(current_world);

current_room  = room_get_name(room);
    width_half    = room_width / 2;
    height_half   = room_height / 2;
    margin = 32;

enum warp { none, north, west, east, south }
    warp_state = warp.none;
    warp_room  = noone;

/*

// oTRIGGER STEP EVENT

*/

// FIND POSITION IN ROOM
if y < height_half { warp_state = warp.north; }
if x < width_half  { warp_state = warp.west;  }
if x > width_half  { warp_state = warp.east;  }
if y > height_half { warp_state = warp.south; }

// FIND WARP VALUE FROM WORLD GRID
var xx;
for (xx = 0; xx < world_width; xx++)
{
    var yy;
    for (yy = 0; yy < world_height; yy++)
    {
        var check_room = ds_grid_get(current_world, xx, yy);
        if check_room = current_room
        {
            if      warp_state = warp.north && (yy - 1) >= 0                { warp_room = ds_grid_get(current_world, xx, yy - 1); }
            else if warp_state = warp.west  && (xx - 1) >= 0                { warp_room = ds_grid_get(current_world, xx - 1, yy); }
            else if warp_state = warp.east  && (xx + 1) <= world_width  - 1 { warp_room = ds_grid_get(current_world, xx + 1, yy); }
            else if warp_state = warp.south && (yy + 1) <= world_height - 1 { warp_room = ds_grid_get(current_world, xx, yy + 1); }
        }
    }
}

// WARP PLAYER ON COLLISION
if place_meeting(x, y, oPlayer)
{
    // MARGIN CHECK
    var multiply;
    if warp_state = warp.north || warp_state = warp.west { multiply = -1; } else { multiply = 1; }

    // Y AXIS WARP
    var target_x, target_y;
    if warp_state = warp.north || warp_state = warp.south
    {
        target_y = (room_height - oPlayer.y) + (margin * multiply);
        target_x = oPlayer.x;
    }

    // X AXIS WARP
    else if warp_state = warp.west || warp_state = warp.east
    {
        target_y = oPlayer.y;
        target_x = (room_width  - oPlayer.x) + (margin * multiply);
    }

    // COMPLETE COLLISION WITH ROOM WARP
    if warp_room = noone { instance_destroy(id); }
    else {
        oPlayer.y = target_y;
        oPlayer.x = target_x;
        room_goto(asset_get_index(warp_room));
    }
}