Encantamento de Armas Full Code e Mapa

[RodrigoCoutoBR 32]

Encantamento de Armas

 

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

 

 

 

 

 

 

 

 

 

 

 

Em Breve

 

Testado com

TFS 0.4 - Versão 8.60

 

Actions

 

 

Em data\actions\actions.xml

<action itemid="2146;2147;2149;2150" script="encantamento/onuse.lua" />
<action itemid="7759;7760;7761;7762" script="encantamento/onuse.lua" />

Em data\actions\scripts\ CRIE UMA PASTA chamada encantamento dentro dela o seguinte arquivo .lua
 
Em data\actions\scripts\encantamento\onuse.lua

function onUse(cid, item, frompos, item2, topos)
 -- Gelo | Fogo | Terra | Energia
 local esmeraldas = {2146, 2147, 2149, 2150}
 local esmeraldasEncantada = {7759, 7760, 7761, 7762}
	
 local altares = {{7508, 7509, 7510, 7511}, {7504, 7505, 7506, 7507}, {7516, 7517, 7518, 7519}, {7512, 7513, 7514, 7515}}
	
 local armasQuePodeEncantar = {2383, 7384, 7389, 7406, 7402, 2429, 2430, 2435, 7380, 2454, 2423, 2445, 7415, 7392, 2391, 2544, 8905}
 local armasEncantadas = {{7763, 7744, 7854, 7869}, {7765, 7746, 7856, 7871}, {7770, 7751, 7861, 7876}, {7766, 7747, 7857, 7872}, {7767, 7748, 7858, 7873}, {7768, 7749, 7859, 7874}, {7769, 7750, 7860, 7875}, {7770, 7751, 7861, 7876}, {7771, 7752, 7862, 7877}, {7772, 7753, 7863, 7878}, {7773, 7754, 7864, 7879}, {7774, 7755, 7865, 7880}, {7775, 7756, 7866, 7881}, {7776, 7757, 7867, 7882}, {7777, 7758, 7868, 7883}, {7839, 7840, 7850, 7838}, {8907, 8906, 8909, 8908}}

 local type = item.type
 if type == 0 then
  type = 1
 end

 local mana = 300 * type
 local soul = 2 * type
 local tipoEfeito = 39
	
 local esmeraldaEncantadaFogo = 7760
	
 local encantarHelmet = true
 local ancientsHelmetVelha = 2342
 local ancientsHelmetNova = 2343
	
 local encantarBoots = true
 local firewalkerBootsNova = 9933
 local firewalkerBootsVelha = {9934, 10022}

 if(encantarHelmet and item.itemid == esmeraldaEncantadaFogo and item2.itemid == ancientsHelmetVelha) then
  doTransformItem(item2.uid, ancientsHelmetNova)
  doDecayItem(item2.uid)
  doRemoveItem(item.uid, 1)
  doSendMagicEffect(topos, tipoEfeito)
  return true
 elseif(encantarBoots and item.itemid == esmeraldaEncantadaFogo and isInArray(firewalkerBootsVelha, item2.itemid)) then
  doTransformItem(item2.uid, firewalkerBootsNova)
  doRemoveItem(item.uid, 1)
  doSendMagicEffect(topos, tipoEfeito)
  return true
 end
	
 if isInArray(esmeraldas, item.itemid) == true then
  local altar
  for controller=1, #esmeraldas do
   if item.itemid == esmeraldas[controller] then
    altar=controller
   end
  end
  if isInArray(altares[altar], item2.itemid)== true then
   if getPlayerMana(cid) >= mana and getPlayerSoul(cid) >= soul then
    doTransformItem(item.uid,esmeraldasEncantada[altar])
    doPlayerAddMana(cid,-mana)
    doPlayerAddSoul(cid,-soul)
    doSendMagicEffect(frompos,tipoEfeito)
   else
    doPlayerSendCancel(cid,"Voce precisa de mais mana ou soul points para encantar a pedra.")
   end
  else
   return true
  end
 elseif isInArray(esmeraldasEncantada, item.itemid) == true then
  local tipoEsmeralda
  for controller=1, #esmeraldasEncantada do
   if item.itemid == esmeraldasEncantada[controller] then
    tipoEsmeralda=controller
   end
  end
  if isInArray(armasQuePodeEncantar, item2.itemid)== true then
   local tipoArma
   for controller=1, #armasQuePodeEncantar do
    if item2.itemid == armasQuePodeEncantar[controller] then
     tipoArma=controller
    end
   end
   doTransformItem(item2.uid,armasEncantadas[tipoArma][tipoEsmeralda],1000)
   doSendMagicEffect(frompos,tipoEfeito)
   doRemoveItem(item.uid,1)
  else
   doPlayerSendCancel(cid,"Voce nao pode encantar isso.")
  end
 end
 return true
end

 

 

 

Movements

 

 

Em data\movements\movements.xml

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

Em data\movements\scripts CRIE UMA PASTA chamada encantamento e dentro dela o seguinte arquivo .lua

 

  Em data\movements\scripts\encantamento\teleporte.lua  

function onStepIn(cid, item, position, fromPosition)
 if(not isPlayer(cid))then
  return true
 end
	
 if(item.actionid == 9990)then
  local apenasMagos = true
  local levelMinimo = 30
		
  local mensagemValidacao = "Somente Sorcerers e Druids com level 30 ou mais podem entrar"
  local efeitoValidacao = 2
		
  if(getPlayerLevel(cid) < levelMinimo)then
   doTeleportThing(cid, fromPosition, true)
   doSendMagicEffect(position, efeitoValidacao)
   doPlayerSendCancel(cid, mensagemValidacao)
   return true
  end
		
		
  if(apenasMagos and (not isSorcerer(cid) or not isDruid(cid)))then
   doTeleportThing(cid, fromPosition, true)
   doSendMagicEffect(position, efeitoValidacao)
   doPlayerSendCancel(cid, mensagemValidacao)
   return true
  end
		
  local posicoesEncatamento = {
   [NORTH] = {x=496, y=492, z=7},
   [EAST] = {x=527, y=528, z=7},
   [SOUTH] = {x=498, y=559, z=7},
   [WEST] = {x=467, y=526, z=7}
  }
  local efeitoEncatamento = {
   [NORTH] = 1,
   [EAST] = 13,
   [SOUTH] = 14,
   [WEST] = 12
  }
  local efeitoTeleporte = 10
  local direcao = getCreatureLookDirection(cid)
  doSendMagicEffect(position, efeitoEncatamento[direcao])
		
  local posicaoTeleporte = posicoesEncatamento[direcao]
  doTeleportThing(cid, posicaoTeleporte, true)
  doSendMagicEffect(posicaoTeleporte, efeitoTeleporte)
 elseif(item.actionid == 9991)then
  local idCidadeNatal = getPlayerTown(cid)
  local posicaoTemploCidadeNatal = getTownTemplePosition(idCidadeNatal)
  doTeleportThing(cid, posicaoTemploCidadeNatal, true)
  doSendMagicEffect(posicaoTemploCidadeNatal, CONST_ME_TELEPORT)
 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 29, 2016 by RodrigoCoutoBR

[Majesty 1,761]

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

 

Aprovado.