xTibia

.com
TI
dúvida

Qual o erro nesse script?

Por Tiagone, 25 de out. de 2015 em Scripts

5
991
TiagoneT
25 de outubro de 2015 às 19:38
qual é o erro desse script/pq tipo ele funciona invoca o monstro ... mais não copia o nome do Player q uso a spell/e não da 1 unico erro no distro.


function onCastSpell(cid, var)


local playerpos = getPlayerPosition(cid)

local cloth = getCreatureOutfit(cid)

local health = getCreatureHealth(cid)

local maxhealth = getCreatureMaxHealth(cid)

local MaximoSummon = 3 --- Maximo de Monstros Sumonados!! No Caso So Posso Sumonar 5 Clones


local summons = getCreatureSummons(cid)

if(table.maxn(summons) < MaximoSummon) then -- no summons

local clone = doCreateMonster("Clone", playerpos)

doConvinceCreature(cid, clone)

setCreatureName(clone, ""..getCreatureName(cid).."", "a "..getCreatureName(cid).."")

setCreatureMaxHealth(clone, maxhealth)

doCreatureAddHealth(clone, health)

doSetCreatureOutfit(clone, cloth, -1)

return TRUE

end

end


AhehFe97A
25 de outubro de 2015 às 21:34

 

qual é o erro desse script/pq tipo ele funciona invoca o monstro ... mais não copia o nome do Player q uso a spell/e não da 1 unico erro no distro.

function onCastSpell(cid, var)
local playerpos = getPlayerPosition(cid)
local cloth = getCreatureOutfit(cid)
local health = getCreatureHealth(cid)
local maxhealth = getCreatureMaxHealth(cid)
local MaximoSummon = 3 --- Maximo de Monstros Sumonados!! No Caso So Posso Sumonar 5 Clones
local summons = getCreatureSummons(cid)
if(table.maxn(summons) < MaximoSummon) then -- no summons
local clone = doCreateMonster("Clone", playerpos)
doConvinceCreature(cid, clone)
setCreatureName(clone, ""..getCreatureName(cid).."", "a "..getCreatureName(cid).."")
setCreatureMaxHealth(clone, maxhealth)
doCreatureAddHealth(clone, health)
doSetCreatureOutfit(clone, cloth, -1)
return TRUE
end
end

 

Provavelmente você não tem essa função na sua source "setCreatureName"

DeadpoolD
25 de outubro de 2015 às 22:02
Melhor resposta

local function isWalkable(pos)
if getTileThingByPos(pos).itemid == 0 then
return false
end
for i = 0, 255 do
pos.stackpos = i
local tile = getTileThingByPos(pos)
if tile.itemid ~= 0 and not isCreature(tile.uid) then
if hasProperty(tile.uid, 2) or hasProperty(tile.uid, 7) then
return false
end
end
end
return true
end

function onCastSpell(cid, var)
local anyPos, pos = {x = 0, y = 0, z = 0}, getCreaturePosition(cid)
local toPos = {
{x = pos.x + 1, y = pos.y, z = pos.z},
{x = pos.x - 1, y = pos.y, z = pos.z},
{x = pos.x, y = pos.y + 1, z = pos.z},
{x = pos.x, y = pos.y - 1, z = pos.z}
}

local maxSummons = 4
if maxSummons - #getCreatureSummons(cid) > 0 then
for i = 1, maxSummons - #getCreatureSummons(cid) do
if not isWalkable(toPos[i]) then
toPos[i] = pos
end
doCombatAreaHealth(0, 0, anyPos, 0, 0, 0, 255)
doCreateItem(460, 1, anyPos)
local bunshin = doCreateMonster("Clone", anyPos)
doConvinceCreature(cid, bunshin)
setCreatureMaxHealth(bunshin, getCreatureMaxHealth(cid))
doCreatureAddHealth(bunshin, getCreatureHealth(cid))
doSetCreatureOutfit(bunshin, getCreatureOutfit(cid), -1)
setCreatureName(bunshin, getCreatureName(cid), "a " .. getCreatureName(cid))
doTeleportThing(bunshin, toPos[i])
doSendMagicEffect(toPos[i], 2)
end
else
return false
end
return true
end

TiagoneT
25 de outubro de 2015 às 22:24

vlw ae ovellord

LumusL
26 de outubro de 2015 às 23:22

Tópico Movido
Este tópico foi movido de "OTServ → Suporte OTServ → Suporte Scripting"
para "OTServ → Suporte OTServ → Suporte Scripting → Pedidos e dúvidas resolvidos - Scripting".