poketibia Boat System (Em Testes)

[Hikigaya 37]

Agora Vamos Ao Tutorial

 

 

Va Na Pasta MeuOt/Data/Mod

Crie 1 Arquivo XML com o nome

boatsystem e bote isto dentro

 

 

<?xml version="1.0" encoding="UTF-8"?>

<mod name="BoatSystem" enabled="yes" author="MatheusMkalo" forum="XTibia.com">

<config name="BoatSystemLib"><![CDATA[

mydirs= {

[1] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, -1}},

[2] = {type = 2, ids = {3592, 3595, 3596}, xy = {1, 0}},

[3] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, 1}},

[4] = {type = 2, ids = {3592, 3595, 3596}, xy = {-1, 0}}

}

allids = {3587, 3590, 3591, 3592, 3595, 3596}

function newEndb(endb, dir)

local xx = endb.x

local yy = endb.y

for i = 1, #dir do

xx = xx+mydirs[dir].xy[1]

yy = yy+mydirs[dir].xy[2]

end

return {x=xx, y=yy, z=endb.z}

end

function doMoveBoat(post, dir, cid)

local newboat = {}

for i,s in ipairs(post) do

local backu = getThingPos(s)

doRemoveItem(s, 1)

doCreateItem(mydirs[dir].ids, 1, {x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z})

table.insert(newboat, getThingFromPos({x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z, stackpos=1}).uid)

end

if mydirs[dir].type ~= post.type and mydirs[dir].type == 1 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x+1, y=getThingPos(newboat[1]).y-1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x-1, y=getThingPos(newboat[3]).y+1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

elseif mydirs[dir].type ~= post.type and mydirs[dir].type == 2 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x-1, y=getThingPos(newboat[1]).y+1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x+1, y=getThingPos(newboat[3]).y-1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

end

if cid then

doTeleportThing(cid, {x=getCreaturePosition(cid).x+mydirs[dir].xy[1], y=getCreaturePosition(cid).y+mydirs[dir].xy[2], z=getCreaturePosition(cid).z}, false)

end

end

function getPosBoat(cid, pos)

local pcid = not pos and getCreaturePosition(cid) or pos

local check = getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).itemid == mydirs[1].ids[2] and 1 or 2

if check == 1 then

return {getThingFromPos({x=pcid.x, y=pcid.y-1, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y+1, z=pcid.z, stackpos=1}).uid, type = check}

elseif check == 2 then

return {getThingFromPos({x=pcid.x-1, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x+1, y=pcid.y, z=pcid.z, stackpos=1}).uid, type = check}

end

return false

end

function reverse(t)

local result = {}

for i = #t, 1, -1 do

table.insert(result, t == 1 and 3 or t == 2 and 4 or t == 3 and 1 or t == 4 and 2)

end

return result

end

]]></config>

<movevent type="StepIn" actionid="6616" event="script"><![CDATA[

domodlib("BoatSystemLib")

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

if toPosition.x == posback.x and toPosition.y == posback.y then

doCreatureSetNoMove(cid, true)

for i = 1, #reverse(t) do

addEvent(function() doMoveBoat(getPosBoat(cid), reverse(t), cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#reverse(t)+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(postart).uid, "aid", 6616) end, delay*#t+100)

elseif toPosition.x == postart.x and toPosition.y == postart.y then

doCreatureSetNoMove(cid, true)

for i = 1, #t do

addEvent(function() doMoveBoat(getPosBoat(cid), t, cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#t+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(posback).uid, "aid", 6616) end, delay*#t+100)

end

]]></movevent>

<movevent type="StepIn" actionid="6617" event="script"><![CDATA[

domodlib("BoatSystemLib")

if not isInArray(allids, getThingFromPos({x=toPosition.x, y=toPosition.y, z=toPosition.z, stackpos=1}).itemid) then

doTeleportThing(cid, fromPosition, false)

end

]]></movevent>

</mod>

 

 

 

 

 

Agora Configurando o Script

 

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1,

1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2,

2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

 

 

No Local T sao Todas as Direçoes que o barco vai andar em sentido horario

 

1 = norte

2 = leste

3 = sul

4 = oeste

 

 

 

No Local Postart e a posiçao que o meio do barco vai estar quando ele estiver indo para algum lugar.

No Local Posback e a posiçao que o meio do barco vai estar quando ele estiver voltando.

No Delay e o Tempo Que Demora Para o Barco Andar

 

 

Adicionando no Map Editor

Faça 3 Sqms do Id 4820

Adicione o Actionid 6617 nesses sqm

Faça 3 ids de barco,voce escolhe se é o virado para cima ou para lado

Bote o Actionid 6616 no meio do barco

 

Fica Assim

 

 

 

 

O Vermelho Indica Que Tem o ID 4829 e o Actionid 6617

 

Na Pos que ele vai chegar so faça o negocio na água nao precisa fazer outro bote.

 

OBS: PONHA OS SQMS DA ROTA PARA NAO PODER LOGA SE ALGUEM LOGA NO BARCO VAI DAR BUG

 

OBS²: A PASTA MODS É A QUE FICA O CONFIG.LUA E O EXECUTÁVEL DO SERVER

 

 

Creditos: Mkalo (Imagems e Tutorial Original (XTIBIA)

Creditos²: Kytre (Tutorial Mais Explicado) (POKETIBIATUTORIAS)

Creditos³: Uchiha1Madara (Colorir Mais o Topico)

Editado Janeiro 10, 2012 por uchiha1madara

[delderwakku 0]

Muito bom !

[Enzo Caue 18]

Boom !! Obrigado por compartilhar !

[Vodkart 1513]

o velho já tem o mesmo sistema aqui

 

http://www.xtibia.com/forum/topic/159879-barco-que-anda-por-uma-rota/

[titon 0]

Agora Vamos Ao Tutorial

 

 

Va Na Pasta MeuOt/Data/Mod

Crie 1 Arquivo XML com o nome

boatsystem e bote isto dentro

 

 

<?xml version="1.0" encoding="UTF-8"?>

<mod name="BoatSystem" enabled="yes" author="MatheusMkalo" forum="XTibia.com">

<config name="BoatSystemLib"><![CDATA[

mydirs= {

[1] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, -1}},

[2] = {type = 2, ids = {3592, 3595, 3596}, xy = {1, 0}},

[3] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, 1}},

[4] = {type = 2, ids = {3592, 3595, 3596}, xy = {-1, 0}}

}

allids = {3587, 3590, 3591, 3592, 3595, 3596}

function newEndb(endb, dir)

local xx = endb.x

local yy = endb.y

for i = 1, #dir do

xx = xx+mydirs[dir].xy[1]

yy = yy+mydirs[dir].xy[2]

end

return {x=xx, y=yy, z=endb.z}

end

function doMoveBoat(post, dir, cid)

local newboat = {}

for i,s in ipairs(post) do

local backu = getThingPos(s)

doRemoveItem(s, 1)

doCreateItem(mydirs[dir].ids, 1, {x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z})

table.insert(newboat, getThingFromPos({x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z, stackpos=1}).uid)

end

if mydirs[dir].type ~= post.type and mydirs[dir].type == 1 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x+1, y=getThingPos(newboat[1]).y-1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x-1, y=getThingPos(newboat[3]).y+1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

elseif mydirs[dir].type ~= post.type and mydirs[dir].type == 2 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x-1, y=getThingPos(newboat[1]).y+1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x+1, y=getThingPos(newboat[3]).y-1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

end

if cid then

doTeleportThing(cid, {x=getCreaturePosition(cid).x+mydirs[dir].xy[1], y=getCreaturePosition(cid).y+mydirs[dir].xy[2], z=getCreaturePosition(cid).z}, false)

end

end

function getPosBoat(cid, pos)

local pcid = not pos and getCreaturePosition(cid) or pos

local check = getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).itemid == mydirs[1].ids[2] and 1 or 2

if check == 1 then

return {getThingFromPos({x=pcid.x, y=pcid.y-1, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y+1, z=pcid.z, stackpos=1}).uid, type = check}

elseif check == 2 then

return {getThingFromPos({x=pcid.x-1, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x+1, y=pcid.y, z=pcid.z, stackpos=1}).uid, type = check}

end

return false

end

function reverse(t)

local result = {}

for i = #t, 1, -1 do

table.insert(result, t == 1 and 3 or t == 2 and 4 or t == 3 and 1 or t == 4 and 2)

end

return result

end

]]></config>

<movevent type="StepIn" actionid="6616" event="script"><![CDATA[

domodlib("BoatSystemLib")

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

if toPosition.x == posback.x and toPosition.y == posback.y then

doCreatureSetNoMove(cid, true)

for i = 1, #reverse(t) do

addEvent(function() doMoveBoat(getPosBoat(cid), reverse(t), cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#reverse(t)+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(postart).uid, "aid", 6616) end, delay*#t+100)

elseif toPosition.x == postart.x and toPosition.y == postart.y then

doCreatureSetNoMove(cid, true)

for i = 1, #t do

addEvent(function() doMoveBoat(getPosBoat(cid), t, cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#t+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(posback).uid, "aid", 6616) end, delay*#t+100)

end

]]></movevent>

<movevent type="StepIn" actionid="6617" event="script"><![CDATA[

domodlib("BoatSystemLib")

if not isInArray(allids, getThingFromPos({x=toPosition.x, y=toPosition.y, z=toPosition.z, stackpos=1}).itemid) then

doTeleportThing(cid, fromPosition, false)

end

]]></movevent>

</mod>

 

 

 

 

 

Agora Configurando o Script

 

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1,

1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2,

2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

 

 

No Local T sao Todas as Direçoes que o barco vai andar em sentido horario

 

1 = norte

2 = leste

3 = sul

4 = oeste

 

 

No Local Postart e a posiçao que o meio do barco vai estar quando ele estiver indo para algum lugar.

No Local Posback e a posiçao que o meio do barco vai estar quando ele estiver voltando.

No Delay e o Tempo Que Demora Para o Barco Andar

 

 

Adicionando no Map Editor

Faça 3 Sqms do Id 4820

Adicione o Actionid 6617 nesses sqm

Faça 3 ids de barco,voce escolhe se é o virado para cima ou para lado

Bote o Actionid 6616 no meio do barco

 

Fica Assim

 

 

 

O Vermelho Indica Que Tem o ID 4829 e o Actionid 6617

 

Na Pos que ele vai chegar so faça o negocio na água nao precisa fazer outro bote.

 

OBS: PONHA OS SQMS DA ROTA PARA NAO PODER LOGA SE ALGUEM LOGA NO BARCO VAI DAR BUG

OBS²: A PASTA MODS É A QUE FICA O CONFIG.LUA E O EXECUTÁVEL DO SERVER

 

Creditos: Mkalo (Imagems e Tutorial Original (XTIBIA)

Creditos²: Kytre (Tutorial Mais Explicado) (POKETIBIATUTORIAS)

Creditos³: Uchiha1Madara (Colorir Mais o Topico)

 

 

Esta errado quando fala (O Vermelho Indica Que Tem o ID 4829 e o Actionid 6617), não seria 4820 ? igual falou anteriormente ?