Ultima tentativa, to fora de forma, kk

local s = {5668,5669,5667}
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)
function x(p, d)
local t = {{x=p.x,y=p.y-1,z=p.z},{x=p.x+1,y=p.y,z=p.z},{x=p.x,y=p.y+1,z=p.z},{x=p.x-1,y=p.y,z=p.z}}
return t[d+1]
end
function onCastSpell(cid, var)
local position1 = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
local pos = getCreaturePosition(cid)
local item = 2335 --id da kunai
local theItem = doCreateItem(item, pos)
local mystr = "return {x=xx,y=yy,z=zz}"
local mystr = string.gsub(mystr, "xx", pos.x)
local mystr = string.gsub(mystr, "yy", pos.y)
local mystr = string.gsub(mystr, "zz", pos.z)
local position112 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
setPlayerStorageValue(cid, s[1], mystr)
setPlayerStorageValue(cid, s[2], os.time()+0)
setPlayerStorageValue(cid, s[3], 1)
for i = 1, 5 do
end
doCombat(cid, combat, var)
if getTileItemById(pos, item).uid ~= 0 then
addEvent(doRemoveItem,10000,theItem.uid) -- 10000 = 10 segundos, 1000 = 1 segundo
end
return true
end

ainda da esse erro aki amigo 

 

[05/01/2015 11:38:01] [Error - Spell Interface]

[05/01/2015 11:38:01] data/spells/scripts/minato/seal 1.lua:onCastSpell
[05/01/2015 11:38:01] Description:
[05/01/2015 11:38:01] data/spells/scripts/minato/seal 1.lua:25: attempt to index local 'theItem' (a number value)
[05/01/2015 11:38:01] stack traceback:
[05/01/2015 11:38:01] data/spells/scripts/minato/seal 1.lua:25: in function

addEvent(doRemoveItem,10000,theItem.uid) -- 10000 = 10 segundos, 1000 = 1 segundo

Muda pra:

addEvent(doRemoveItem,10000,theItem) -- 10000 = 10 segundos, 1000 = 1 segundo

Editado Janeiro 5, 2015 10 anos por Gabrielbsales (veja o histórico de edições)

ainda 

 

[05/01/2015 13:33:19] [Error - Spell Interface]

[05/01/2015 13:33:19] In a timer event called from:
[05/01/2015 13:33:19] data/spells/scripts/minato/seal 1.lua:onCastSpell
[05/01/2015 13:33:19] Description:
[05/01/2015 13:33:19] (luaDoRemoveItem) Item not found

local s = {5668,5669,5667}
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)
function x(p, d)
local t = {{x=p.x,y=p.y-1,z=p.z},{x=p.x+1,y=p.y,z=p.z},{x=p.x,y=p.y+1,z=p.z},{x=p.x-1,y=p.y,z=p.z}}
return t[d+1]
end
function onCastSpell(cid, var)
local position1 = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
local pos = getCreaturePosition(cid)
local item = 2335 --id da kunai
local theItem = doCreateItem(item, pos)
local mystr = "return {x=xx,y=yy,z=zz}"
local mystr = string.gsub(mystr, "xx", pos.x)
local mystr = string.gsub(mystr, "yy", pos.y)
local mystr = string.gsub(mystr, "zz", pos.z)
local position112 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
setPlayerStorageValue(cid, s[1], mystr)
setPlayerStorageValue(cid, s[2], os.time()+0)
setPlayerStorageValue(cid, s[3], 1)
for i = 1, 5 do
end
doCombat(cid, combat, var)
if theItem ~= 0 then
addEvent(doRemoveItem,10000,theItem) -- 10000 = 10 segundos, 1000 = 1 segundo
end
return true
end

Ah meu Deus, vou me aposentar...