Portão Automático Full Code e Mapa

[RodrigoCoutoBR 32]

 

Portão Automático

 

Bom dia a todos, hoje vou postar pra vocês o meu código do Portao Automático e download do mapa e do server completo com os código e mapa já configurados.

 

 

 

Testado com

TFS 0.4 - Versão 8.60

 

Movements

Portão Automático na Vertical:

Em data\movements\movements.xml

<movevent actionid="9990;9991" type="StepIn" event="script" value="portaoAutomaticoVertical.lua"/>
<movevent actionid="9990;9991" type="StepOut" event="script" value="portaoAutomaticoVertical.lua"/>

Em data\movements\scripts\portaoAutomaticoVertical.lua

local efeitoPortaoVertical = 25
local idParedeVertical = 9121
local idPortaoVertical = 1543
local actionPisoEsquerdoVertical = 9990
local actionPisoDiretoVertical = 9991

local posicoesPortaoVertical = {
	{x=506, y=528, z=7, stackpos=1},
	{x=506, y=529, z=7, stackpos=1},
	{x=506, y=530, z=7, stackpos=1},
	{x=506, y=531, z=7, stackpos=1}
}

function podeAbrirPortaoVertical()
 for index, posicao in ipairs(posicoesPortaoVertical) do
  if(index == 4) then
   break
  end

  posicao.z = 7
  local objeto  = getThingfromPos(posicao)
  if(objeto.itemid ~= idPortaoVertical or objeto.uid == 0)then
   return false
  end
 end
 return true
end

function abrirPortaoVertical(cid)
 for index, posicao in ipairs(posicoesPortaoVertical) do
  posicao.z = 7
  local portao = getThingfromPos(posicao)
  doRemoveItem(portao.uid, 1)
			
  if(index == 4)then
   local parede = getThingfromPos(posicao)
   doTransformItem(parede.uid, idParedeVertical)
  else
   doSendMagicEffect(posicao, efeitoPortaoVertical)
  end
  posicao.z = 6
  doCreateItem(idPortaoVertical, 1, posicao)
 end
 return doPlayerSendCancel(cid, "Voce abriu o portao.")
end

function podeFecharPortaoVertical()
 for index, posicao in ipairs(posicoesPortaoVertical) do
  if(index == 4) then
   break
  end
		
  posicao.z = 7
  local objeto  = getThingfromPos(posicao)
  if(objeto.uid > 0)then
   return false
  end
 end
 return true
end

function fecharPortaoVertical(cid)
 for index, posicao in ipairs(posicoesPortaoVertical) do
  posicao.z = 7
  doCreateItem(idPortaoVertical, 1, posicao)
		
  posicao.z = 6
  local portao = getThingfromPos(posicao)
  if(portao.uid > 0)then
   doSendMagicEffect(posicao, efeitoPortaoVertical)
   doRemoveItem(portao.uid, 1)
  end
 end
 return doPlayerSendCancel(cid,"Voce fechou o portao.")
end

function onStepIn(cid, item, position, fromPosition)
 if(not isPlayer(cid)) then
  return true
 end
	
 local direcao = getCreatureLookDirection(cid)
 if((item.actionid == actionPisoEsquerdoVertical and direcao == EAST) or (item.actionid == actionPisoDiretoVertical and direcao == WEST))then
  local podeAbrirPortaoVertical = podeAbrirPortaoVertical()
  if(podeAbrirPortaoVertical)then
   return abrirPortaoVertical(cid)
  end
		
 end
 return true
end


function onStepOut(cid, item, position, fromPosition)
 if(not isPlayer(cid)) then
  return true
 end
	
 local direcao = getCreatureLookDirection(cid)
  if((item.actionid == actionPisoEsquerdoVertical and direcao == WEST) or (item.actionid == actionPisoDiretoVertical and direcao == EAST))then
   local podeFecharPortaoVertical = podeFecharPortaoVertical()
   if(podeFecharPortaoVertical)then
    return fecharPortaoVertical(cid)
   end
  end
 return true
end

 

 

 

Portão Manual na Horizontal:

 

 

Em data\movements\movements.xml

<movevent actionid="9992;9993" type="StepIn" event="script" value="portaoAutomaticoHorizontal.lua"/>
<movevent actionid="9992;9993" type="StepOut" event="script" value="portaoAutomaticoHorizontal.lua"/>

Em data\movements\scripts\portaoAutomaticoHorizontal.lua

local efeitoPortaoHorizontal = 25
local idParedeHorizontal = 9123
local idPortaoHorizontal = 1544
local actionPisoCimaHorizontal = 9992
local actionPisoBaixoHorizontal = 9993

local posicoesPortaoHorizontal = {
	{x=498, y=538, z=7, stackpos=1},
	{x=499, y=538, z=7, stackpos=1},
	{x=500, y=538, z=7, stackpos=1},
	{x=501, y=538, z=7, stackpos=1}
}

function podeAbrirPortaoHorizontal()
 for index, posicao in ipairs(posicoesPortaoHorizontal) do
  if(index == 4) then
   break
  end

  posicao.z = 7
  local objeto  = getThingfromPos(posicao)
  if(objeto.itemid ~= idPortaoHorizontal or objeto.uid == 0)then
   return false
  end
 end
 return true
end

function abrirPortaoHorizontal(cid)
 for index, posicao in ipairs(posicoesPortaoHorizontal) do
  posicao.z = 7
  local portao = getThingfromPos(posicao)
  doRemoveItem(portao.uid, 1)
			
  if(index == 4)then
   local parede = getThingfromPos(posicao)
   doTransformItem(parede.uid, idParedeHorizontal)
  else
   doSendMagicEffect(posicao, efeitoPortaoHorizontal)
  end
  posicao.z = 6
  doCreateItem(idPortaoHorizontal, 1, posicao)
 end
 return doPlayerSendCancel(cid, "Voce abriu o portao.")
end

function podeFecharPortaoHorizontal()
 for index, posicao in ipairs(posicoesPortaoHorizontal) do
  if(index == 4) then
   break
  end
		
  posicao.z = 7
  local objeto  = getThingfromPos(posicao)
  if(objeto.uid > 0)then
   return false
  end
 end
 return true
end

function fecharPortaoHorizontal(cid)
 for index, posicao in ipairs(posicoesPortaoHorizontal) do
  posicao.z = 7
  doCreateItem(idPortaoHorizontal, 1, posicao)
		
  posicao.z = 6
  local portao = getThingfromPos(posicao)
  if(portao.uid > 0)then
   doSendMagicEffect(posicao, efeitoPortaoHorizontal)
   doRemoveItem(portao.uid, 1)
  end
 end
 return doPlayerSendCancel(cid,"Voce fechou o portao.")
end

function onStepIn(cid, item, position, fromPosition)
 if(not isPlayer(cid)) then
  return true
 end
	
 local direcao = getCreatureLookDirection(cid)
 if((item.actionid == actionPisoCimaHorizontal and direcao == SOUTH) or (item.actionid == actionPisoBaixoHorizontal and direcao == NORTH))then
  local podeAbrirPortaoHorizontal = podeAbrirPortaoHorizontal()
  if(podeAbrirPortaoHorizontal)then
   return abrirPortaoHorizontal(cid)
  end
		
 end
 return true
end

function onStepOut(cid, item, position, fromPosition)
 if(not isPlayer(cid)) then
  return true
 end
	
 local direcao = getCreatureLookDirection(cid)
 if((item.actionid == actionPisoCimaHorizontal and direcao == NORTH) or (item.actionid == actionPisoBaixoHorizontal and direcao == SOUTH))then
  local podeFecharPortaoHorizontal = podeFecharPortaoHorizontal()
  if(podeFecharPortaoHorizontal)then
   return fecharPortaoHorizontal(cid)
  end
 end
 return true
end

 

 

 

 

 

Server Full

(Acc Manager 1/1 | Admin 2/1 )

 Baixar  |   Scan

 

Code Full
 Baixar  |   Scan

 

Mapa Full
 Baixar  |   Scan

 

 

Senha: rodrigocoutobr

 

Se for postar em outro fórum

favor por os créditos a RodrigoCoutoBR (MekaBR)

Edited June 27, 2016 by RodrigoCoutoBR

[Majesty 1,755]

Todos os downloads foram verificados e estão livres de malware, muito obrigado pela sua contribuição.

 

Aprovado.