function display_coords ();

function my_mouse ()
{
	enable_mouse = 1; 
	mouse_mode = 1; 

	mouse_range= 1500; // only near Entities are clickable

	display_coords ();
	
	while (mouse_mode > 0) // move it over the screen
	{ 
		mouse_pos.x = mouse_cursor.x;   
		mouse_pos.y = mouse_cursor.y;
		wait(1);
	}
}

STRING* temporary_str = "";
STRING* coordinates_str = "";

///////////////////////////////////////////////////////////////////////////////////////////////

TEXT* mcoordinates_txt = // using the default FONT here
{ 
	STRING = coordinates_str;
	layer = 20;
	flags = SHOW;
}

///////////////////////////////////////////////////////////////////////////////////////////////

function display_coords ()
{
	while (1)
	{
		str_for_num(temporary_str, mouse_pos.x); // convert mouse_pos.x to a string
		str_cpy(coordinates_str, "("); // add the first paranthesis
		str_cat(coordinates_str, temporary_str); // add mouse_pos.x to the string
		str_cat(coordinates_str, ","); // add a comma to separate mouse_pos.x and mouse_pos.y
		str_for_num(temporary_str, mouse_pos.y); // convert mouse_pos.y to a string
		str_cat(coordinates_str, temporary_str); // add mouse_pos.y to the string
		str_cat(coordinates_str, ")"); // add the second paranthesis
		mcoordinates_txt.pos_x = mouse_pos.x + 15; // keep the text in the lower right corner
		mcoordinates_txt.pos_y = mouse_pos.y + 15; // in relation to the mouse position
		wait (1);
	}
}

function main()
{	

	video_mode = 7; // start resolution 800 x 600
	video_screen = 1; // start in fullscreen mode 	
	video_depth = 32; // otherwise 32 bit mode
	wait(1);
	level_load ("");
	wait (2);
	my_mouse ();

}