/*

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