local triggerPoints = 
{ 
      name1 = { tlx = 20, tly = 10, brx = 30, bry = 12 },
      name2 = { tlx = 40, tly = 50, brx = 30, bry = 12 }
}

local function getTrigger( x, y )
    for k, v in pairs( triggerPoints ) do
        if x < v.tlx or x > v.brx or y < v.tly or y > v.bry then continue end
        return k
    end
end

-script by smallg  Modified by Myke Price

-- range to be able to use teleporter
local use_range = 120

--key to use teleporter
local input_key = "e"

--entity number of real pad used to port to
--put name of this entity inside the 'ifused' field of teleporter
local port_pad = 2

--delay until port
--rx = 1 is 1 second   /    rx = 10 is 10 seconds   / etc
local rx = 3

--number of destinations 
--*you must set names and target entity numbers for these in the init(e) part*
local max_dest = 4


----
local dest_number = {}
local levelname = {}
local state = {}
local pressed = 0
local delay = 0
local x = 50
local y = 10
local dest = 1
local rx_init = rx

function teleport_other_maps_init(e)

--input entity number of area's here
--***not really needed
dest_number[1] = 4
dest_number[2] = 5
dest_number[3] = 6
dest_number[4] = 16
--dest_number[5] = 17
--dest_number[6] = 18
--dest_number[7] = 19
--dest_number[8] = 21
--dest_number[9] = 22

--name area's here  ** Enter the name of you jump to levels
levelname[1] = "DarkHarbour"
levelname[2] = "DHlinduncity"
levelname[3] = "DHoakwood"
levelname[4] = "DHrogueisle"
--levelname[5] = "DarkHarbour_Court"
--levelname[6] = "DarkHarbour_Castle"
--levelname[7] = "NOT AVAILIABLE"
--levelname[8] = "NOT AVAILIABLE"
--destination[9] = "dropzone8"


state[e] = "init"
end --init


function teleport_other_maps_main(e)


if state[e] == "init" then
if GetPlayerDistance(e) <= use_range then
Text(44,50,1,"Press "..input_key .. " to Choose your mission") 
if g_InKey == input_key and pressed == 0 then
state[e] = "select dest"
pressed = 1
rx = rx_init
FreezePlayer()
CollisionOff(port_pad)
SetPosition(port_pad,g_PlayerPosX,g_PlayerPosY,g_PlayerPosZ)
y = 10
end
end
elseif state[e] == "select dest" then
for a = 1, max_dest do
--if you have bigger destination names then make the panel here bigger
--format = Panel(x1,y1,x2,y2)
Panel(35,y-5,65,y+4.5)
TextCenterOnXColor(x,y,3,a .. " = " .. levelname[a],205,5,205)
y = y + 10
if g_Scancode == a+1 and pressed == 0 then
pressed = 1
dest = a
delay = GetTimer(e)
PromptDuration("Porting in " .. rx .. " : Destination = " .. levelname[dest],1000)
state[e] = "porting"
LoopSound(e,0)
end
end
y= 10
elseif state[e] == "porting" then
if rx > -1 then
if GetTimer(e) > delay then
PromptDuration("Porting in " .. rx .. " : Destination = " .. levelname[dest],1000)
delay = GetTimer(e) + 1000
rx = rx - 1
end
else
StopSound(e,0)
CollisionOff(dest_number[dest])
-- Remmed out by Myke
--SetPosition(port_pad,g_Entity[dest_number[dest]]['x'],g_Entity[dest_number[dest]]['y'],g_Entity[dest_number[dest]]['z'])
UnFreezePlayer()
--Remmed out by Myke to use different command.
--TransportToIfUsed(e)
JumpToLevel(levelname[dest])
--Not really needed as the screen fades to black.
--PromptDuration("You have reached " .. levelname[dest],2000)
state[e] = "init"
-- ** thinking about destroying the script hear, but then it become linear. Not optimal.
end
end --state

--reset input
if pressed == 1 and g_InKey == "" then
pressed = 0
end
end --main


function teleport_other_maps_exit(e)
end --exit

g_map=0
local use_range = 80

--key to use teleporter
local input_key = "e"
local pressed = 0
-------------------- HUD Locations and Sizes --------------------

 	-- HUD BG --
    --sprite location
    local HUD_spr_posx = 0
    local HUD_spr_posy = 0
    --sprite size
    local HUD_spr_sizex = 100
    local HUD_spr_sizey = 100
 
function mapteleporter_init(e)
	
			-- HUD BG --
    HUD_sprite = LoadImage("scriptbank\\images\\TS\\map.png")--location of the HUD
    HUD_icon = CreateSprite(HUD_sprite)
    SetSpriteSize (HUD_icon,HUD_spr_sizex,HUD_spr_sizey)   
    SetSpriteDepth (HUD_sprite, 100)
    SetSpritePosition(HUD_icon,300,300)
	


	
end
 
function mapteleporter_main(e)

if GetPlayerDistance(e) <= use_range then
TextColor(39,93,1,"Click on your destination to Travel",9,255,0) 
if g_InKey == input_key and pressed == 0 then
pressed = 1
end
-------------------- HUD BG --------------------	

       PasteSpritePosition(HUD_icon,HUD_spr_posx,HUD_spr_posy)	   
--		  HideHuds()	
	
		PositionCamera( 0, g_PlayerPosX, g_PlayerPosY + 290, g_PlayerPosZ)
	end

end

Prompt ("X :"..round(g_MouseX,1).."   Y:"..round(g_MouseY,1)) 

function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

local plrclicked = 0
local npressed = 0
local g_sprCursor = 0
local sprMap = 0

local g_imgCursor = 0
local imgMap = 0
local nMouse = 0

function mouse_xy_init(e)

	-- Loading images
	imgMap = LoadImage("scriptbank\\images\\maps\\map.png") -- type your file paths here
	g_imgCursor = LoadImage("titlesbank\\default\\cursor.png")
	
-- creating mouse sprite
	g_sprCursor = CreateSprite ( g_imgCursor ) 
	SetSpriteDepth(g_sprCursor,0)
	SetSpritePosition ( g_sprCursor, 200, 200 )
end

function mouse_xy_main(e)
	--Prompt(round(g_MouseX,1) .." - " ..round(g_MouseY,1))

if nMouse == 1 then	
	ActivateMouse() -- activating mouse
	SetSpritePosition ( g_sprCursor, g_MouseX, g_MouseY) -- passing mouse coords to the mouse sprite
	SetSpriteDepth(g_sprCursor,0) -- mouse sprite depth. Allow mouse to be over the other sprites
end
	
if g_KeyPressE == 1 and npressed == 0 then

-- creating map sprite
	sprMap = CreateSprite ( imgMap )
	SetSpritePosition ( sprMap, 20, 20 )
    npressed = 1
	nMouse = 1
end --g_KeyPressE

-- mouse click: 1 = left mouse button, 2 = right mouse button 
if g_MouseClick == 1 and plrclicked == 0 then 
	if (g_MouseX >= 32 and g_MouseX <= 34) and (g_MouseY >= 53 and g_MouseY <= 57) then -- these coords may change 4 u
		plrclicked = 1
		-- JumpToLevel("level filename here") -- uncomment this line to jump to level
		PromptDuration("Jump to level 2",3000) -- no time to recreate standalone a try the script, sorry.
	elseif (g_MouseX >= 43 and g_MouseX <= 46) and (g_MouseY >= 50 and g_MouseY <= 54) then -- these coords may change 4 u
		plrclicked = 1
		PromptDuration("Jump to level 3",3000)
	elseif (g_MouseX >= 50 and g_MouseX <= 55) and (g_MouseY >= 34 and g_MouseY <= 38) then -- these coords may change 4 u
		plrclicked = 1
		PromptDuration("Jump to level 4",3000)
	end
end --g_MouseClick == 1
	
	if g_MouseClick == 2 then -- mrb
		DeactivateMouse()
		SetSpritePosition ( g_sprCursor, 200, 200)	
		SetSpritePosition ( sprMap, 200, 200 )
			
		--DeleteSprite(sprMap) -- if you plane use it just once, uncomment those 2 lines, and comment the 2 lines up.
		--DeleteSprite(g_sprCursor)
		nMouse = 0
	end
	
	if g_MouseClick == 0 then plrclicked = 0 end
	if g_KeyPressE == 0 then npressed = 0 end

end --main

function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

local plrclicked = 0
local npressed = 0
local g_sprCursor = 0
local sprMap = 0

local g_imgCursor = 0
local imgMap = 0
local nMouse = 0
EntID = {}
ent_name = {}

function mouse_xy_init(e)

	-- Loading images
	imgMap = LoadImage("scriptbank\\images\\maps\\map.png") -- type your file paths here
	g_imgCursor = LoadImage("titlesbank\\default\\cursor.png")
	
-- creating mouse sprite
	g_sprCursor = CreateSprite ( g_imgCursor ) 
	SetSpriteDepth(g_sprCursor,0)
	SetSpritePosition ( g_sprCursor, 200, 200 )
end

function mouse_xy_main(e)
	--Prompt(round(g_MouseX,1) .." - " ..round(g_MouseY,1))

if nMouse == 1 then	
	ActivateMouse() -- activating mouse
	SetSpritePosition ( g_sprCursor, g_MouseX, g_MouseY) -- passing mouse coords to the mouse sprite
	SetSpriteDepth(g_sprCursor,0) -- mouse sprite depth. Allow mouse to be over the other sprites
end
	
if g_KeyPressE == 1 and npressed == 0 then

-- creating map sprite
	sprMap = CreateSprite ( imgMap )
	SetSpritePosition ( sprMap, 20, 20 )
    npressed = 1
	nMouse = 1
end --g_KeyPressE

-- mouse click: 1 = left mouse button, 2 = right mouse button 
if g_MouseClick == 1 and plrclicked == 0 then 

		file = io.open ("XY_List.txt", "a+")
		io.output(file)	
		io.write(" g_MouseX: " ..round(g_MouseX,1) .." g_MouseY: " ..round(g_MouseY,1) .."\n")
		io.close(file)
		
	if (g_MouseX >= 32 and g_MouseX <= 34) and (g_MouseY >= 53 and g_MouseY <= 57) then -- these coords may change 4 u
		-- JumpToLevel("level filename here") -- uncomment this line to jump to level
		PromptDuration("Jump to level 2",3000) -- no time to recreate standalone to try the script, sorry.
	elseif (g_MouseX >= 43 and g_MouseX <= 46) and (g_MouseY >= 50 and g_MouseY <= 54) then -- these coords may change 4 u
		PromptDuration("Jump to level 3",3000)
	elseif (g_MouseX >= 50 and g_MouseX <= 55) and (g_MouseY >= 34 and g_MouseY <= 38) then -- these coords may change 4 u
		PromptDuration("Jump to level 4",3000)
	end
	plrclicked = 1
end --g_MouseClick == 1
	
	if g_MouseClick == 2 then -- mrb
		DeactivateMouse()
		SetSpritePosition ( g_sprCursor, 200, 200)	
		SetSpritePosition ( sprMap, 200, 200 )
			
		--DeleteSprite(sprMap) -- if you plane use it just once, uncomment those 2 lines, and comment the 2 lines up.
		--DeleteSprite(g_sprCursor)
		nMouse = 0
	end
	
	if g_MouseClick == 0 then plrclicked = 0 end
	if g_KeyPressE == 0 then npressed = 0 end

end --main

function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end