celsokayran

up

[01/07/2019 08:39:22] otPokemon Diamond, version 0.3.6 (otPokemon Diamond.) [01/07/2019 08:39:22] Compiled with GNU C++ version 4.4.0 at Jul 7 2018, 17:12:16. [01/07/2019 08:39:22] Server Sendo Desenvolvido Por JPN. [01/07/2019 08:39:22] Visite o forum para updates e resource: http://otland.net. baixe este serviço aqui que foi feito com base no otPokémon Revolution.: https://www.xtibia.com/forum/topic/248662-pokézr-base-otpokemoncom-2018-serversourcesitenewold-clientlaucher-servidor-completo/ e to querendo implantar o system level aqui do tibia king:

[01/07/2019 08:37:02] [Error - Action Interface] [01/07/2019 08:37:02] datapack/actions/scripts/goback.lua:onUse [01/07/2019 08:37:02] Description: [01/07/2019 08:37:02] datapack/actions/scripts/goback.lua:286: bad argument #2 to 'gsub' (string/function/table expected) [01/07/2019 08:37:02] stack traceback: [01/07/2019 08:37:02] [C]: in function 'gsub' [01/07/2019 08:37:02] datapack/actions/scripts/goback.lua:286: in function <datapack/actions/scripts/goback.lua:207> erro continua

.Qual servidor ou website você utiliza como base? PokeZR By Kyyah Qual o motivo deste tópico? problema Está surgindo algum erro? Se sim coloque-o aqui. Você tem o código disponível? Se tiver publique-o aqui: function onUse(cid, item, frompos, item2, topos) if #getCreatureSummons(cid) >= 1 and getPlayerStorageValue(getCreatureSummons(cid)[1], 33) >= 1 then return true end local random2 = math.random(1,6) if random2 == 1 then msgunicaback = msgunicaback1 elseif random2 == 2 then msgunicaback = msgunicaback2 elseif random2 == 3 then msgunicaback = msgunicaback3 elseif random2 == 4 then msgunicaback = msgunicaback4 elseif random2 == 5 then msgunicaback = msgunicaback5 elseif random2 == 6 then msgunicaback = msgunicaback6 end local random = math.random(1,6) if random == 1 then msgunicago = msgunicago1 elseif random == 2 then msgunicago = msgunicago2 elseif random == 3 then msgunicago = msgunicago3 elseif random == 4 then msgunicago = msgunicago4 elseif random == 5 then msgunicago = msgunicago5 elseif random == 6 then msgunicago = msgunicago6 end if item.itemid == 2222 or item.itemid == 2223 then gobackeff = 10 elseif item.itemid == 2239 or item.itemid == 2240 then gobackeff = 189 elseif item.itemid == 2234 or item.itemid == 2235 then gobackeff = 190 elseif item.itemid == 2220 or item.itemid == 2221 then gobackeff = 191 elseif item.itemid == 2242 or item.itemid == 2243 then gobackeff = 226 elseif item.itemid == 2192 or item.itemid == 2193 then gobackeff = 223 elseif item.itemid == 2660 or item.itemid == 2661 then gobackeff = 194 elseif item.itemid == 2663 or item.itemid == 2664 then gobackeff = 193 elseif item.itemid == 2655 or item.itemid == 2656 then gobackeff = 195 end local effect = gobackeff if item.itemid == 2223 or item.itemid == 2240 or item.itemid == 2235 or item.itemid == 2221 or item.itemid == 2243 or item.itemid == 2193 or item.itemid == 2661 or item.itemid == 2664 or item.itemid == 2656 then for a, b in pairs(ginasios) do if getPlayerStorageValue(cid, b.storage) == 1 then -- GYM doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.") return true end end end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if #getCreatureSummons(cid) >= 1 then if getPlayerStorageValue(cid, 6547) >= 4 then return true end end if getPlayerStorageValue(cid, 4897) >= 7 then return true end local z = getCreatureSummons(cid)[1] local pokename = getCreatureName(z) local mbk = msgunicaback:gsub("doka", pokename) if getItemAttribute(item.uid, "poke"):find(getCreatureName(z)) then doTransformItem(item.uid, item.itemid-1) doCreatureSay(cid, mbk, TALKTYPE_SAY) return true end local summom = getCreatureSummons(cid) local maxh = pokes[getCreatureName(summom[1])].vida local pct2 = ((getCreatureHealth(summom[1])) / (getCreatureMaxHealth(summom[1]))) local vids = ((getCreatureHealth(summom[1])) - 2) doCreatureAddHealth(summom[1], -vids) setCreatureMaxHealth(summom[1], maxh) doCreatureAddHealth(summom[1], ((maxh) * (pct2))) doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke"):sub(1, findLetter(getItemAttribute(item.uid, "poke"), ".")) .. " HP = ["..getCreatureHealth(z).."/"..getCreatureMaxHealth(z).."]") setPlayerStorageValue(cid, 61204, 0) setPlayerStorageValue(cid, 2, 0) doSendMagicEffect(getCreaturePosition(z), effect) doRemoveCreature(z) if getPlayerGroupId(cid) == 8 then setPlayerGroupId(cid, 1) elseif item.itemid == 2222 or item.itemid == 2239 or item.itemid == 2234 or item.itemid == 2220 or item.itemid == 2242 or item.itemid == 2192 or item.itemid == 2660 or item.itemid == 2663 or item.itemid == 2655 then return true end if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then doPlayerSendCancel(cid, "You must put your pokeball in the correct place!") return TRUE end if not canSummon(cid) then return doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHROOM) end if getPlayerStorageValue(cid, 63215) >= 1 then return doPlayerSendCancel(cid, "You can't use pokeball while surfing.") end if getPlayerStorageValue(cid, 62314) >= 1 then return doPlayerSendCancel(cid, "You can't use pokeball while flying.") end if #getCreatureSummons(cid) >= 1 then return doPlayerSendCancel(cid, "You have already summoned a pokemon.") end for i,x in pairs(pokes) do if i == getItemAttribute(item.uid, "poke"):sub(9, findLetter(getItemAttribute(item.uid, "poke"), "'")-1) then if getPlayerLevel(cid) < x.level then oPlayerSendCancel(cid, "You need level "..x.level.." or higher to use this pokemon.") return true end end end local removed = doCreateItem(1285, 1, getThingPos(cid)) if getItemAttribute(item.uid, "level") == False then doItemSetAttribute(item.uid, "level", 1) ----- aki e o level que o pokemon novo capturado recebe no primeiro goback else doItemSetAttribute(item.uid, "description", " Contains a "..getItemAttribute(item.uid, "poke"):sub(9, findLetter(getItemAttribute(item.uid, "poke"), "'")-1).." Level : "..getItemAttribute(item.uid, "level").."") end doSummonMonster(cid, i) local pk = getCreatureSummons(cid)[1] doTeleportThing(pk, getClosestFreeTile(pk, getThingPos(cid)), false) doRemoveItem(removed, 1) doCreatureSetLookDir(pk, 2) local maxh = pokes[getCreatureName(pk)].vida local levellife = ((getPlayerLevel(cid)) * (pokes[getCreatureName(pk)].cons)) local health = tonumber(getItemAttribute(item.uid, "poke"):match("%[(.-)/")) doConvinceCreature(cid, pk) doCreatureAddHealth(pk, health-maxh) local pct = ((getCreatureHealth(pk)) / (getCreatureMaxHealth(pk))) local vidis = (getCreatureHealth(pk)) setCreatureMaxHealth(pk, ((maxh) + (levellife))) doCreatureAddHealth(pk, 2) doCreatureAddHealth(pk, -vidis) local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 2 then --- numero do level setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+100) ----- quantida de hp que ganha por level end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 3 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+200) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 4 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+300) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 5 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+400) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 6 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+500) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 7 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+600) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 8 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+700) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 9 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+800) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 10 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+900) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 11 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1000) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 12 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1100) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 13 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1200) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 14 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1300) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 15 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1400) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 16 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1500) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 17 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1600) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 18 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1700) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 19 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1800) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 20 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+1900) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 21 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2000) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 22 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2100) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 23 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2200) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 24 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2300) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 25 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2400) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 26 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2500) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 27 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2600) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 28 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2700) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 29 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+2800) end local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET) if getItemAttribute(feet.uid, "level") == 30 then setCreatureMaxHealth(pk, getCreatureMaxHealth(pk)+3000) end doCreatureAddHealth(pk, ((getCreatureMaxHealth(pk)) * (pct)) - 2) doTransformItem(item.uid, item.itemid+1) if getPlayerGroupId(cid) == 1 then setPlayerGroupId(cid, 8) end local pokename = getCreatureName(getCreatureSummons(cid)[1]) local mgo = msgunicago:gsub("doka", pokename) doCreatureSay(cid, mgo, TALKTYPE_SAY) doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke"):sub(1, findLetter(getItemAttribute(item.uid, "poke"), "."))) doSendMagicEffect(getCreaturePosition(pk), effect) setPlayerStorageValue(cid, 61204, 1) registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") if getItemAttribute(item.uid, "levell") == False then doItemSetAttribute(item.uid, "levell", 0) return TRUE end if getItemText(item.uid) == 3 then doCreatureSetSkullType(pk, 4) else doCreatureSetSkullType(pk, getItemText(item.uid)) end if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 75846) >= 1 or getPlayerStorageValue(cid, 5700) >= 1 then --alterado v1.9 << return true end local ballName = getItemAttribute(item.uid, "poke") local btype = getPokeballType(item.itemid) local usando = pokeballs[btype].use local effect = pokeballs[btype].effect if not effect then effect = 21 end unLock(item.uid) --alterado v1.8 if item.itemid == usando then if getPlayerStorageValue(cid, 990) == 1 then -- GYM doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.") return true end 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 #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then doPlayerSendCancel(cid, "You can't do that while is controling a mind") return true --alterado v1.5 end if #getCreatureSummons(cid) <= 0 then if isInArray(pokeballs[btype].all, item.itemid) then doTransformItem(item.uid, pokeballs[btype].off) doItemSetAttribute(item.uid, "hp", 0) doPlayerSendCancel(cid, "This pokemon is fainted.") return true end end local cd = getCD(item.uid, "blink", 30) if cd > 0 then setCD(item.uid, "blink", 0) end local z = getCreatureSummons(cid)[1] if getCreatureCondition(z, CONDITION_INVISIBLE) and not isGhostPokemon(z) then return true end doReturnPokemon(cid, z, item, effect) elseif item.itemid == pokeballs[btype].on then if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then doPlayerSendCancel(cid, "You must put your pokeball in the correct place!") return TRUE end local thishp = getItemAttribute(item.uid, "hp") if getItemAttribute(item.uid, "hp") == 0 then if isInArray(pokeballs[btype].all, item.itemid) then doTransformItem(item.uid, pokeballs[btype].off) doItemSetAttribute(item.uid, "hp", 0) doPlayerSendCancel(cid, "This pokemon is fainted.") return true end end local pokemon = getItemAttribute(item.uid, "poke") if not pokes[pokemon] then return true end local x = pokes[pokemon] local boost = getItemAttribute(item.uid, "boost") or 0 if getPlayerLevel(cid) < (x.level) then doPlayerSendCancel(cid, "You need level "..(x.level).." to use this pokemon.") return true end local pk = getCreatureSummons(cid)[1] doSummonMonster(cid, pokemon) doItemSetAttribute(item.uid, "pokeballusada", 0) local pk = getCreatureSummons(cid)[1] if not isCreature(pk) then return true end if getCreatureName(pk) == "Ditto" or getCreatureName(pk) == "Shiny Ditto" then --edited local left = getItemAttribute(item.uid, "transLeft") local name = getItemAttribute(item.uid, "transName") if left and left > 0 then setPlayerStorageValue(pk, 1010, name) doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1) addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn")) doItemSetAttribute(item.uid, "transBegin", os.clock()) else setPlayerStorageValue(pk, 1010, getCreatureName(pk) == "Ditto" and "Ditto" or "Shiny Ditto") --edited end end if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end doCreatureSetLookDir(pk, 2) doCreatureSetNick(pk, nick) adjustStatus(pk, item.uid, true, true, true) doAddPokemonInOwnList(cid, pokemon) doTransformItem(item.uid, item.itemid+1) local pokename = getPokeName(pk) --alterado v1.7 local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename) local mgoen = gobackmsgsen[math.random(1, #gobackmsgsen)].go:gsub("doka", pokename) local mgoes = gobackmsgses[math.random(1, #gobackmsgses)].go:gsub("doka", pokename) if getPlayerLanguage(cid) == 2 then doCreatureSay(cid, mgoen, 19) end if getPlayerLanguage(cid) == 0 then doCreatureSay(cid, mgo, 19) end if getPlayerLanguage(cid) == 1 then doCreatureSay(cid, mgoes, 19) end -- doItemSetAttribute(item.uid, "gender", math.random(3, 4)) doSendMagicEffect(getCreaturePosition(pk), effect) if useOTClient then doPlayerSendCancel(cid, '12//,show') --alterado v1.7 end local pk = getCreatureSummons(cid)[1] local pb = getPlayerSlotItem(cid, 8).uid local look = getItemAttribute(pb,"addon") if not getItemAttribute(pb,"addon") then doSetItemAttribute(pb,"addon",0) end if getItemAttribute(pb,"addon") > 0 then doSetCreatureOutfit(pk, {lookType = look}, -1) end else doPlayerSendCancel(cid, "This pokemon is fainted.") end if useKpdoDlls then doUpdateMoves(cid) end return true end Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui. goback.lua