portaltrigger = {}
portaltrigger.pos = {}

addhook("movetile", "portaltrigger_movetile")

-- movetile is also triggered when player is teleported or setpos is used
function portaltrigger_movetile(id, tilex, tiley)
	tilex, tiley = tonumber(tilex), tonumber(tiley)
	--msg("movetile: ".. id ..", ".. tilex ..", ".. tiley)
	
	if portaltrigger.pos[tilex] and portaltrigger.pos[tilex][tiley] then
		local oid = objectat(tilex, tiley, 22) or objectat(tilex, tiley, 21)
		--msg("oid is ".. tostring(oid))
		if oid then
			parse("trigger portaltrg@".. tilex .. "_".. tiley)
		end
		
	--else
		--msg(tilex ..", ".. tiley .." doesnt exist")
	end
end

-- Multiplayer Trigger BUG
addhook("trigger", "portaltrigger_trigger")
yellow = 0
blue = 0
function portaltrigger_trigger(trigger, source)
	msg("trigger: ".. trigger .." src: ".. tostring(source))
	
	if trigger and trigger == "yellow" then
		yellow = yellow + 1
	elseif trigger and trigger == "blue" then
		blue = blue + 1
	end
	
	parse("hudtxt 0 \"yellow = ".. yellow .."\" 0 420")
	parse("hudtxt 1 \"blue = ".. blue .."\" 0 435")
end

function portaltrigger.init()
	local elist = entitylist()
	for i, e in pairs(elist) do
	
		local name = entity(e.x, e.y, "name")
		for keyword, tilex, tiley in name:gmatch("(%w+)@(%d+)_(%d+)") do
			
			if keyword and tilex and tiley then
				keyword = keyword:lower()
				tilex, tiley = tonumber(tilex), tonumber(tiley)
				if keyword == "portaltrg" then
					print("PortalTrigger registered at ".. tilex ..",".. tiley)
					if not portaltrigger.pos[tilex] then portaltrigger.pos[tilex]={} end
					portaltrigger.pos[tilex][tiley] = true
				end
			end
		end
	end
end
portaltrigger.init()