mine game esta dando esse erro
Erro: \/
[02/07/2014 23:00:36] [Error - Action Interface]
[02/07/2014 23:00:36] In a timer event called from:
[02/07/2014 23:00:36] data/actions/scripts/game/target_kill.lua:onUse
[02/07/2014 23:00:36] Description:
[02/07/2014 23:00:36] (luaGetCreatureStorage) Creature not found
Scritp: \/
--functions--
function setCreatureNoMoveTime(cid, time)
doCreatureSetNoMove(cid, true)
addEvent(function(cid, state)
if isPlayer(cid) then
doCreatureSetNoMove(cid, state)
end
end, time, cid, false)
end
function sendBlueMessage(cid, msg)
return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg)
end
function registerPosInStorage(cid, storage, pos)
setPlayerStorageValue(cid, storage.."X", pos.x)
setPlayerStorageValue(cid, storage.."Y", pos.y)
setPlayerStorageValue(cid, storage.."Z", pos.z)
end
function registerPlayerInQuest(params)
setPlayerStorageValue(params.player, "hasActiveInQuest", 1)
setPlayerStorageValue(params.player, "genericQuestString", params.globalStorage)
registerPosInStorage(params.player, "genericQuestPos", params.posExit)
end
function registrePosesBetween(pos1, pos2, stackpos)
local poses = {}
for x = pos1.x, pos2.x do
for y = pos1.y, pos2.y do
table.insert(poses, {x=x,y=y,z=pos1.z, stackpos = stackpos})
end
end
return poses
end
--fim--
--instruções: registrar esse script no actions.xml com uid ou actionid da porta de inicio
local config = {
enter = {x=2576,y=1696,z=8},
exit = {x=2578,y=1696,z=8},
clock = {time=60},
totalPoses = registrePosesBetween({x=2570,y=1692,z=8}, {x=2574,y=1698,z=8}), --top LEFT position, under RIGHT position
nameQuest = "cidShootingOne",
isActive = false,
maxLevel = 100,
expBonus = 5, --esse valor multiplicado pelo nr de acertos
expBase = 100, --valor que o player ganhará se ficar até o final
magicEffectBird = 10, --magicEffect qdo passaro nasce
msgStart = "You need shot in the target as many times possible.",
msgIfExit = "Sorry, you have lost this game.",
msgIfWin = "Congratulations! You have killed %s target in 60 seconds",
magicEffectIfWin = 29,
magicEffectIfLost = 2,
canStart = true
}
local function doBird()
local sortedPos = config.totalPoses[math.random(1, #config.totalPoses)]
doSendMagicEffect(sortedPos, config.magicEffectBird)
config.currentBird = doCreateMonster("Challenge Target", sortedPos)
end
local function doGiantBow(position)
if config.bowUids ~= nil then
for x = 1, #config.bowUids do
if isCreature(config.bowUids[x]) then
doRemoveCreature(config.bowUids[x])
end
end
end
if position.x == 2576 then
if position.y == 1696 then
config.bowUids = {doCreateMonster("bow1", {x=position.x-2,y=position.y,z=position.z}), doCreateMonster("bow2", {x=position.x-3,y=position.y,z=position.z})}
else
config.bowUids = {doCreateMonster("bow1", {x=position.x-2,y=position.y,z=position.z}), doCreateMonster("bow2", {x=position.x-3,y=position.y,z=position.z}), doCreateMonster("bow3", {x=position.x-3,y=position.y-1,z=position.z})}
end
end
end
local function doRemoveBird(monsterPos)
if isCreature(config.currentBird) then
config.birds = config.birds+1
doSendAnimatedText(monsterPos, config.birds, COLOR_GREY)
doSendMagicEffect(monsterPos, 2)
doRemoveCreature(config.currentBird)
end
end
local function reset()
config.isActive = false
config.canStart = true
config.currentPlayer = nil
config.timeLeft = 1
config.birds = 0
if config.currentBird then
if isMonster(config.currentBird) then
doRemoveCreature(config.currentBird)
end
end
if config.bowUids ~= nil then
for x = 1, #config.bowUids do
if isCreature(config.bowUids[x]) then
doRemoveCreature(config.bowUids[x])
end
end
end
config.currentBird = 0
config.bowUids = {}
doSetStorage(config.nameQuest, 0)
end
reset()
local function stop(isWin, exit)
local cid = config.currentPlayer
if isPlayer(cid) then
if isWin and config.birds > 0 then
local stringComplement = "."
if getPlayerLevel(cid) < config.maxLevel then
local expFormula = config.expBase+(config.birds*config.expBonus)
doPlayerAddExperience(cid, expFormula)
doSendAnimatedText(getPlayerPosition(cid), expFormula, TEXTCOLOR_WHITE)
stringComplement = ", and you have gained "..expFormula.." points of experience."
end
sendBlueMessage(cid, string.format(config.msgIfWin, config.birds)..stringComplement)
addEvent(doSendMagicEffect, 100, config.exit, config.magicEffectIfWin)
else
sendBlueMessage(cid, config.msgIfExit)
if not exit then
addEvent(doSendMagicEffect, 100, config.exit, config.magicEffectIfLost)
end
end
setPlayerStorageValue(cid, "hasActiveInQuest", -1)
doTeleportThing(cid, config.exit, true)
end
reset()
end
local function loopFast()
if config.isActive then
local cid = config.currentPlayer
if isPlayer(cid) then
if not isCreature(config.currentBird) then
doBird()
end
addEvent(loopFast, 200)
else
stop()
end
end
end
local function loopSlow()
local currentTime = os.time()
if config.isActive then
if getStorage(config.nameQuest) ~= config.currentPlayer then
return stop()
end
if currentTime < config.timeLeft then
local cid = config.currentPlayer
if isCreature(cid) then
local monsterPos, playerPos = getThingPos(config.currentBird), getThingPos(cid)
if isCreature(config.currentBird) then
if playerPos.y == monsterPos.y then
addEvent(doRemoveBird, 300, monsterPos)
end
end
doSendDistanceShoot({x=playerPos.x-2,y=playerPos.y,z=playerPos.z}, {x=playerPos.x-6,y=playerPos.y,z=playerPos.z}, CONST_ANI_BOLT)
else
stop()
end
addEvent(loopSlow, 1000)
else
stop(true)
end
end
end
local function start(cid)
if isPlayer(cid) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, config.msgStart)
config.isActive = true
config.currentPlayer = cid
config.timeLeft = os.time()+config.clock.time
doTeleportThing(cid, config.enter, true)
doSetStorage(config.nameQuest, cid)
registerPlayerInQuest({player = cid, posExit = config.exit, globalStorage = config.nameQuest, cannotMoveItems = true})
doBird()
loopFast()
loopSlow()
end
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
if checkCmd(cid, "rest") then
return doPlayerSendCancel(cid, "you cannot use game while you are resting.")
end
if checkCmd(cid, "mold") then
return doPlayerSendCancel(cid, "you cannot use game while you are mold chakra")
end
if not config.isActive then
if isPlayerPzLocked(cid) then
doPlayerSendCancel(cid, "You cannot start the chellenge with battle active.")
return true
end
if not config.canStart then
doPlayerSendCancel(cid, "Sorry the room is in use, wait please.")
return true
end
setCreatureNoMoveTime(cid, 500)
doTransformItem(item.uid, 1224)
doTeleportThing(cid, fromPosition, true)
config.canStart = false
addEvent(start, 300, cid)
else
if cid == config.currentPlayer then
setCreatureNoMoveTime(cid, 500)
doTransformItem(item.uid, 1224)
doTeleportThing(cid, fromPosition, true)
addEvent(stop, 300, false, true)
else
doPlayerSendCancel(cid, "Sorry the room is in use, wait please.")
end
end
return true
end
Ajuda ae +resp e ainda vejo uma doação ; )
Cara da uma olhada nesse top : http://www.tibiaking.com/forum/topic/9268-exp-ring/