action Canoa em movimento

[larissaots 163]

Créditos à Limos e ViitinG.

 

Objetivo

Este é um script que faz o character andar em conjunto com a canoa. (você pode configurar a rota)

(Testado em TFS 0.3.6 e TFS 0.2.14)

 

Prévia

 

Tutorial
Adicione a actionid 6901 no meio da canoa.
Onde a canoa deve ir você coloca o itemid 4820.
Você tem que usar as bordas com o mesmo ID que está nas configurações endborders.



data/actions/actions.xml
(TFS 0.3/0.4)

<action actionid="6901" event="script" value="other/movingboat.lua"/>

(TFS 0.2/1.0)

<action actionid="6901" script="other/movingboat.lua"/>

Em data/actions/scripts/ adicione movingboat.lua

local config = {
   endborders = {4644, 4646},
   speed = 300,
   ignorefirstborders = 3
}
 
local fight = createConditionObject(CONDITION_INFIGHT)
setConditionParam(fight, CONDITION_PARAM_TICKS, -1) 
 
local function comparePos(poss, pos)
     return pos.x == poss.x and pos.y == poss.y
end
 
local n, s = 0, 0
 
local function getRightPos(poss, last)
 
     ps = {
         {x = poss.x, y = poss.y - 1, z = poss.z},
         {x = poss.x + 1, y = poss.y, z = poss.z},
         {x = poss.x, y = poss.y + 1, z = poss.z},
         {x = poss.x - 1, y = poss.y, z = poss.z}
     }
     for _, pos in pairs(ps) do
         if(getTileItemById(pos, 4820).uid > 0) then
             if(not comparePos(last, pos)) then
                 p = pos
                 return p
             end
         else
             for b = 1, #config.endborders do
                 if(getTileItemById(pos, config.endborders[b]).uid > 0 and s > config.ignorefirstborders) then
                     n = n + 1
                     p = pos
                     return p and n
                 end
             end
         end
     end
end
 
local function doTravel(cid, poss, last)
 
     getRightPos(poss, last)
     travel = p.x > poss.x and "east" or (p.y < poss.y and "north" or (p.y > poss.y and "south" or (p.x < poss.x and "west" or "false")))
     if n > 1 then
         p = poss
     end
     if(travel == "false") then
        if(getCreatureCondition(cid, CONDITION_INFIGHT)) then
             doRemoveCondition(cid, CONDITION_INFIGHT)
         end
         n = 0
         s = 0
         return false
     end
 
     local des = {
         ["north"] = {cPos = {{x = p.x, y = p.y - 1, z = p.z}, p, {x = p.x, y = p.y + 1, z = p.z}}, dir = 0, boat = {3587, 3589, 3591}},
         ["east"] = {cPos = {{x = p.x + 1, y = p.y, z = p.z}, p, {x = p.x - 1, y = p.y, z = p.z}}, dir = 1, boat = {3596, 3594, 3592}},
         ["south"] = {cPos = {{x = p.x, y = p.y + 1, z = p.z}, p, {x = p.x, y = p.y - 1, z = p.z}}, dir = 2, boat = {3591, 3589, 3587}},
         ["west"] = {cPos = {{x = p.x - 1, y = p.y, z = p.z}, p, {x = p.x + 1, y = p.y, z = p.z}}, dir = 3, boat = {3592, 3594, 3596}}
     }
 
     local x = des[travel]
     if(x) then
         for x = p.x - 2, p.x + 2 do
             for y = p.y - 2, p.y + 2 do
                 pos = {x = x, y = y, z = p.z}
                 for id = 3587, 3596 do
                     if(getTileItemById(pos, id).uid > 0) then
                         doRemoveItem(getTileItemById(pos, id).uid, 1)
                     end
                 end
             end
         end
         for c = 1, #x.boat do
             its = doCreateItem(x.boat[c], 1, x.cPos[c])
             if(n > 0 and c == 2) then
                 doSetItemActionId(its, 6901)
             end
         end
         doTeleportThing(cid, x.cPos[2], false)
         doCreatureSetLookDir(cid, x.dir)
         if(n > 1) then
             if(getCreatureCondition(cid, CONDITION_INFIGHT)) then
                 doRemoveCondition(cid, CONDITION_INFIGHT)
             end
             n = 0
             s = 0
             return false
         end
         s = s + 1
     end
     return addEvent(doTravel, config.speed, cid, p, poss)
end
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
 
     if(getCreatureCondition(cid, CONDITION_INFIGHT)) then
         return doPlayerSendCancel(cid, "You can't travel when you're in a fight.")
     end
     doTeleportThing(cid, toPosition)
     doAddCondition(cid, fight)
     doTravel(cid, getPlayerPosition(cid), getPlayerPosition(cid))
     return true
end

"data/movements/movements.xml"
(TFS 0.3/0.4)

<movevent type="StepIn" itemid="4820" event="script" value="water.lua"/>

(TFS 0.2/1.0)

<movevent event="StepIn" itemid="4820" script="water.lua"/>

Em data/movements/scripts adicione water.lua;

local boatids = {3589, 3594}
 
function onStepIn(cid, item, position, fromPosition)
 
   for _, id in pairs(boatids) do
     if(getTileItemById(fromPosition, id).uid > 0) then
       return doTeleportThing(cid, fromPosition)
     end
   end
   return true
end

Se você usa TFS 0.3/0.4, adicione isto em data/lib/050-function.lua (se você ja não tiver).

function doSetItemActionId(uid, actionid)
   return doItemSetAttribute(uid, "aid", actionid)
end

[valakas 90]

wow muito bom cara, isso vai ser util para min

[Furabio 257]

Como já existe um tópico parecido com esse : http://www.xtibia.com/forum/topic/234043-canoa-movel/, estarei movendo o seu pra lixeira.

Obrigado por estar compartilhando conteúdos com o fórum.

Editado Maio 30, 2015 por Flavio S