Puertas De Quets Desaparese Al Entrar

BUENO MI SIGUIENTE PROBLEMA ES EL SIGUEIN COMO VEN EN LA IMAGEN VAN POR POR 3 PUNTOS.

1.- LA PUERTA ME PIDE 60 TOKENS

2.- SE ABRE LA PUERTA YA PAGUE CON TOQUENS

3.- AL PASAR LA PUERTA Y CAMINAR (AUTOMATICAMENTE DESAPRESE LA PUERTA.

ESE ES MI PROBLEMA, SUSEDEN CON LAS PUERTAS DE (QUETS) (LEVEL) PORFA ME PUEDEN AYUDAR
USO

OTX SERVER 8.6
VER. 4.0

ESPERO SUS PRONTA REPUESRA PORFA ME URGE

Código:

local aid_of_door = 1790 -- ActionID of all VIP Doors.
local ITEMID_OF_ITEM = 2363
local COUNT_OF_ITEM = 1

-- DO NOT EDIT BELOW THIS LINE
function onUse(cid, item, fromPosition, itemEx, toPosition)
  if(item.actionid == aid_of_door) then
      local stor = getPlayerStorageValue(cid, item.uid)
      if(stor < 1 or (stor+3600) <= os.time()) then
        local ret = doPlayerRemoveItem(cid, ITEMID_OF_ITEM, COUNT_OF_ITEM)
        if(ret) then
            setPlayerStorageValue(cid, item.uid, os.time())
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Entrastes Viembenido.")
            if(not doorEnter(cid, item, toPosition)) then return false end
        else
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Deves terner 1 Blood Orb.")
        end
      else
        if(not doorEnter(cid, item, toPosition)) then return false end
      end
  end
  return true
end

function doorEnter(cid, item, toPosition)
 
  local mob = getTopCreature(toPosition); if(mob.uid > 0) then return false end
  doTransformItem(item.uid, item.itemid + 1)
  doTeleportThing(cid, toPosition)
  return true
end

Código:

            local aid_of_door = 1790 -- ActionID of all VIP Doors.
            local ITEMID_OF_ITEM = 2363
            local COUNT_OF_ITEM = 1

            -- DO NOT EDIT BELOW THIS LINE
            function onUse(cid, item, fromPosition, itemEx, toPosition)
              if(item.actionid == aid_of_door) then
                  local stor = getPlayerStorageValue(cid, item.uid)
                  if(stor < 1 or (stor+3600) <= os.time()) then
                    local ret = doPlayerRemoveItem(cid, ITEMID_OF_ITEM, COUNT_OF_ITEM)
                    if(ret) then
                        setPlayerStorageValue(cid, item.uid, os.time())
                        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Entrastes Viembenido.")
                        if(not doorEnter(cid, item, toPosition)) then return false end
                    else
                        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Deves terner 1 Blood Orb.")
                    end
                  else
                    if(not doorEnter(cid, item, toPosition)) then return false end
                  end
              end
              return true
            end

            function doorEnter(cid, item, toPosition)
             
              local mob = getTopCreature(toPosition); if(mob.uid > 0) then return false end
              doTransformItem(item.uid, 5115)
              doTeleportThing(cid, toPosition)
              return true
            end