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()