Histórico de Edições

Olá Galera do Tibiaking Beleza ?
To precisando de uma ajuda urgentemente para meu servidor de Poketibia  O erro que da e o Seguinte :   [14/10/2014 16:43:47] [Error - Action Interface]  [14/10/2014 16:43:47] data/actions/scripts/goback.lua:onUse [14/10/2014 16:43:47] Description:  [14/10/2014 16:43:47] data/actions/scripts/goback.lua:25: attempt to call global 'getPokeballType' (a nil value) [14/10/2014 16:43:47] stack traceback: [14/10/2014 16:43:47]  data/actions/scripts/goback.lua:25: in function <data/actions/scripts/goback.lua:15>     Meu Script e o Seguinte    function onLogout(cid)     if not isCreature(cid) then return true end     local thisitem = getPlayerSlotItem(cid, 8)   if thisitem.uid <= 0 then return true end   local ballName = getItemAttribute(thisitem.cid, "poke")     local btype = getPokeballType(thisitem.itemid)          ---------------------------------------------------------------     if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then    --alterado v1.6        if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then             BackTeam(cid)               end     end     --////////////////////////////////////////////////////////////////////////////////////////--     if getPlayerStorageValue(cid, 52480) >= 1 and getPlayerStorageValue(cid, 52481) >= 0 then         doEndDuel(cid)     end     --////////////////////////////////////////////////////////////////////////////////////////--     if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then        local cmed2 = getCreatureSummons(cid)[1]   local poscmed = getThingPos(cmed2)   local cmeddir = getCreatureLookDir(cmed2)   local namecmed = getCreatureName(cmed2)   local hp, maxHp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1])   local gender = getPokemonGender(cmed2)         doRemoveCreature(getCreatureSummons(cid)[1])   local back = doCreateMonster(namecmed, poscmed)   addEvent(doCreatureSetSkullType, 150, back, gender)   doCreatureSetLookDir(back, cmeddir)   addEvent(doCreatureAddHealth, 100, back, hp-maxHp)                                                                                     -- pokemon controlador         local ball2 = getPlayerSlotItem(cid, 8)        local mynewpos = getThingPos(getCreatureSummons(cid)[1])        doRemoveCreature(getCreatureSummons(cid)[1])        local pk2 = doSummonCreature(getItemAttribute(ball2.uid, "poke"), mynewpos)         doConvinceCreature(cid, pk2)        addEvent(doAdjustWithDelay, 100, cid, pk2, true, true, false)        setPlayerStorageValue(cid, 888, -1)            cleanCMcds(ball2.uid)        doCreatureSetLookDir(getCreatureSummons(cid)[1], 2)        registerCreatureEvent(pk2, "SummonDeath")        end          ----------------------------------------------------------------------     local summon = getCreatureSummons(cid)[1]              if #getCreatureSummons(cid) >= 1 and thisitem.uid > 1 then    if getPlayerStorageValue(cid, 212124) <= 0 then   doItemSetAttribute(thisitem.uid, "hp", (getCreatureHealth(summon) / getCreatureMaxHealth(summon)))         end                                                                   setPlayerStorageValue(cid, 212124, 0)         doTransformItem(thisitem.uid, pokeballs[btype].on) doSendMagicEffect(getThingPos(summon), pokeballs[btype].effect) doRemoveCreature(summon) end   if getCreatureOutfit(cid).lookType == 814 then doPlayerStopWatching(cid) end   if tonumber(getPlayerStorageValue(cid, 17000)) and getPlayerStorageValue(cid, 17000) >= 1 then   markFlyingPos(cid, getThingPos(cid)) end   if getPlayerStorageValue(cid, 22545) == 1 then        setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)   if getGlobalStorageValue(22550) <= 0 then           endGoldenArena()                  end      end   return TRUE end   local deathtexts = {"Oh no! POKENAME, come back!", "Come back, POKENAME!", "That's enough, POKENAME!", "You did well, POKENAME!",    "You need to rest, POKENAME!", "Nice job, POKENAME!", "POKENAME, you are too hurt!"}   function onDeath(cid, deathList)   local owner = getCreatureMaster(cid)           if getPlayerStorageValue(cid, 637500) >= 1 then            doSendMagicEffect(getThingPos(cid), 211)            doRemoveCreature(cid)            return true         end                  if getPlayerStorageValue(cid, 212123) >= 1 then            return true         end                  --////////////////////////////////////////////////////////////////////////////////////////--         checkDuel(owner)                                                                                   --////////////////////////////////////////////////////////////////////////////////////////--          local thisball = getPlayerSlotItem(owner, 8) local ballName = getItemAttribute(thisball.uid, "poke")       btype = getPokeballType(thisball.itemid)           if #getCreatureSummons(owner) > 1 then            BackTeam(owner, getCreatureSummons(owner))               end   doSendMagicEffect(getThingPos(cid), pokeballs[btype].effect)         doTransformItem(thisball.uid, pokeballs[btype].off)   doPlayerSendTextMessage(owner, 22, "Your pokemon fainted.")   local say = deathtexts[math.random(#deathtexts)] say = string.gsub(say, "POKENAME", getCreatureName(cid))   if getPlayerStorageValue(cid, 33) <= 0 then doCreatureSay(owner, say, TALKTYPE_SAY) end   doItemSetAttribute(thisball.uid, "hp", 0) if ehMonstro(deathList[1]) then   doItemSetAttribute(thisball.uid, "happy", getPlayerStorageValue(cid, 1008) - happyLostOnDeath)     end doItemSetAttribute(thisball.uid, "hunger", getPlayerStorageValue(cid, 1009))       if useOTClient then        doPlayerSendCancel(owner, '12//,hide')      --alterado v1.7     end   doRemoveCreature(cid)   return false end   goback.lua

SCREENSHOT
http://3.1m.yt/Zwo99Sdx.png
http://4.1m.yt/oG_cwli8u.png
______________________________________________ COMANDOS
!autoloot add, itemId ou name -- Adicionando um item na lista !autoloot remove, itemId or name -- Remover um item da lista !autoloot show -- Mostrar a lista do autoLoot !autoloot clear -- Limpar a lista do autoLoot ______________________________________________ SCRIPT data/global.lua
-- AutoLoot config AUTO_LOOT_MAX_ITEMS = 5 -- Reserved storage AUTOLOOT_STORAGE_START = 10000 AUTOLOOT_STORAGE_END = AUTOLOOT_STORAGE_START + AUTO_LOOT_MAX_ITEMS -- AutoLoot config end talkactions/talkactions.xml
<talkaction words="!autoloot" separator=" " script="autoloot.lua"/> talkactions/scripts/autoloot.lua
function onSay(player, words, param) local split = param:split(",") local action = split[1] if action == "add" then local item = split[2]:gsub("%s+", "", 1) local itemType = ItemType(item) if itemType:getId() == 0 then itemType = ItemType(tonumber(item)) if itemType:getId() == 0 then player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.") return false end end local itemName = tonumber(split[2]) and itemType:getName() or item local size = 0 for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do local storage = player:getStorageValue(i) if size == AUTO_LOOT_MAX_ITEMS then player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The list is full, please remove from the list to make some room.") break end if storage == itemType:getId() then player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." is already in the list.") break end if storage <= 0 then player:setStorageValue(i, itemType:getId()) player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been added to the list.") break end size = size + 1 end elseif action == "remove" then local item = split[2]:gsub("%s+", "", 1) local itemType = ItemType(item) if itemType:getId() == 0 then itemType = ItemType(tonumber(item)) if itemType:getId() == 0 then player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.") return false end end local itemName = tonumber(split[2]) and itemType:getName() or item for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do if player:getStorageValue(i) == itemType:getId() then player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been removed from the list.") player:setStorageValue(i, 0) return false end end player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." was not founded in the list.") elseif action == "show" then local text = "-- Auto Loot List --\n" local count = 1 for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do local storage = player:getStorageValue(i) if storage > 0 then text = string.format("%s%d. %s\n", text, count, ItemType(storage):getName()) count = count + 1 end end if text == "" then text = "Empty" end player:showTextDialog(1950, text, false) elseif action == "clear" then for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do player:setStorageValue(i, 0) end player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The autoloot list has been cleared.") else player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Use the commands: !autoloot {add, remove, show, clear}") end return false end creaturescripts/creaturescripts.xml
<event type="kill" name="AutoLoot" script="autoloot.lua" /> creaturescripts/scripts/autoloot.lua
local function scanContainer(cid, position) local player = Player(cid) if not player then return end local corpse = Tile(position):getTopDownItem() if not corpse then return end if corpse:getType():isCorpse() and corpse:getAttribute(ITEM_ATTRIBUTE_CORPSEOWNER) == cid then for i = corpse:getSize() - 1, 0, -1 do local containerItem = corpse:getItem(i) if containerItem then for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do if player:getStorageValue(i) == containerItem:getId() then containerItem:moveTo(player) end end end end end end function onKill(player, target) if not target:isMonster() then return true end addEvent(scanContainer, 100, player:getId(), target:getPosition()) return true end creaturescripts/scripts/login.lua
player:registerEvent("AutoLoot") ______________________________________________ CRÉDITOS
Printer

[simples Sys montaria] Talkactions
TFS 0.3.6/0.4 - 8.54-8.6
Script: Medio
esse script ele troca a outfit do player por talkactions e add uma speed comfiguravel no player tudo bem simples e facil de entender.
 
Vai em \data\talkactions>talkactions.xml e add essa tag
<talkaction words="!mt" event="script" value="mount.lua"/> Vai em \data\talkactions\scripts>mount.lua e crie um aquivo la chamado "mount.lua"  e add esse script dentro
----By Garep local config = { mount = {"mount", "montar"}, unmount = {"demount", "desmontar"}, storage = 6576 } local outfit = {lookType = 4} -- male local outfitf = {lookType = 4} -- female local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, -1) setConditionFormula(condition, 0.25, 0, 0.50, 0) function onSay(cid, words, param) param = param:lower() if(table.isStrIn(param, config.mount) and getCreatureStorage(cid, config.storage) <= 0) then doCreatureSetStorage(cid, config.storage, 1) doAddCondition(cid, condition) doSendMagicEffect(getPlayerPosition(cid),12)    if getPlayerSex(cid) == 0 then -- Se for homem   doSetCreatureOutfit(cid, outfitf, -1)  -- Roupa Feminina else   doSetCreatureOutfit(cid, outfit, -1)  -- Roupa Masculina end elseif(table.isStrIn(param, config.unmount)and getCreatureStorage(cid, config.storage) <= 1) then     doRemoveCondition(cid, CONDITION_OUTFIT) doCreatureSetStorage(cid, config.storage, 0)       doRemoveCondition(cid, CONDITION_HASTE)     doSendMagicEffect(getPlayerPosition(cid),12) else     doPlayerSendCancel(cid, "you need premium accunt.")     return true  end end   Prints:

 
CMD:
"!mt montar ou mount" "!mt desmontar ou demount" dei uma editada no Script agora e por sexo tbm, as outfits
Se gosto da um +REP

Meu servidor de poketibia esta acusando esse erro, constantemente:
 
E esse tambem: (quando coloco com ip na VPS da isso, quando uso no meu PC com 127.0.0.1 fica sem esse erro)
Se puderem me ajudar, fico grato.
Segue os arquivos citados nos erros
Goback.lua
Catch System.lua
 

Olá queria que ao sair do fly, ride e surf, o pokemon volte para dentro da ball.
 
Eu tentei fazer, consegui, está funcionando, ele volta para a ball, a ball fica como on(pronta para ser usada) e atualiza a cd bar, o único problema é que está dando um erro na distro quando saio do fly,ride ou surf, esse erro não impede nada, mas com muitos onlines saindo do fly toda hora irá aparecer o erro na distro toda hora e pode dar lag
 
Preciso que refaçam o que pedi, ou concertem o que eu fiz, vou deixar o order.lua das actions (único lugar onde mexi) antes de eu mexer, e depois que eu mexi, vou deixar também um print do erro mais abaixo. Caso precisem de mais algum arquivo, é só pedir.
OBS: Uso PDA com cd bar e icon system
 
 
Order de antes de eu mexer: 
 
data\actions\scripts\order.lua
 
 
 
Order depois que eu mexi (funciona mas da um erro na distro quando desço do fly/ride/surf) :
 
data\actions\scripts\order.lua
 
 
Print do erro que aparece quando desço do fly/ride/surf usando o arquivo que modifiquei:

 
 
 
 
 
 
 
@Up
@xWhiteWolf  uma força ?
@Up