Crypter

O Problema está no move e não no move1.lua, pois não tem nenhum doItemSetAttribute no arquivo move1.lua, veja como está a script desse move e poste aqui

local time = 30 local bauId = 14642 local actionId = 7811 local function removeItem(pos,bau) if bau then doRemoveItem(bau.uid, 1) doSendMagicEffect(pos, CONST_ME_POFF) end end function onDeath(cid) local pos = getCreaturePosition(cid) doCreateItem(bauId,1,pos) local bau = getTileItemById(pos, bauId) doSetItemActionId(bau.uid,actionId) addEvent(removeItem,time*1000,pos,bau) return true end

Recomendo notepad++ https://notepad-plus-plus.org/download/v7.5.8.html

function onLogin(cid) local vip = isVip(cid) if getVipTime(cid) > 0 not vip then local townid = 1 doPlayerSetTown(cid, townid) local templePos = getTownTemplePosition(getPlayerTown(cid)) doTeleportThing(cid, templePos, false) setVipTime(cid, 0) doTeleportPlayers(cid, templePos) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sua VIP acabou!") elseif vip and getVipDays(cid) <= 99 then local duration = getVipDate(cid) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce possui "..getVipDays(cid).." dia(s) de VIP."..(duration and (" Ela ira durar ate "..duration..".") or "")) elseif vip and getVipDays(cid) >= 100 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sua vip é eterna.") end return true end

local function playerAddExp(cid, exp) if not isCreature(cid) then return false end doPlayerAddExp(cid, exp) doSendAnimatedText(getThingPos(cid), exp, 215) end function onDeath(cid, corpse, deathList) if isSummon(cid) or not deathList or getCreatureName(cid) == "Evolution" then return true end --alterado v1.8 -------------Edited Golden Arena------------------------- --alterado v1.7 \/\/ if getPlayerStorageValue(cid, 22546) == 1 then setGlobalStorageValue(22548, getGlobalStorageValue(22548)-1) if corpse.itemid ~= 0 then doItemSetAttribute(corpse.uid, "golden", 1) end --alterado v1.8 end if getPlayerStorageValue(cid, 22546) == 1 and getGlobalStorageValue(22548) == 0 then local wave = getGlobalStorageValue(22547) for _, sid in ipairs(getPlayersOnline()) do if isPlayer(sid) and getPlayerStorageValue(sid, 22545) == 1 then if getGlobalStorageValue(22547) < #wavesGolden+1 then doPlayerSendTextMessage(sid, 20, "Wave "..wave.." will begin in "..timeToWaves.."seconds!") doPlayerSendTextMessage(sid, 28, "Wave "..wave.." will begin in "..timeToWaves.."seconds!") addEvent(creaturesInGolden, 100, GoldenUpper, GoldenLower, false, true, true) addEvent(doWave, timeToWaves*1000) elseif getGlobalStorageValue(22547) == #wavesGolden+1 then doPlayerSendTextMessage(sid, 20, "You have win the golden arena! Take your reward!") doPlayerAddItem(sid, 2152, getPlayerStorageValue(sid, 22551)*2) --premio setPlayerStorageValue(sid, 22545, -1) doTeleportThing(sid, getClosestFreeTile(sid, posBackGolden), false) setPlayerRecordWaves(sid) end end end if getGlobalStorageValue(22547) == #wavesGolden+1 then endGoldenArena() end end --------------------------------------------------- /\/\ local givenexp = getWildPokemonExp(cid) if givenexp > 0 then for a = 1, #deathList do local pk = deathList[a] --- local list = getSpectators(getThingPosWithDebug(pk), 30, 30, false) if isCreature(pk) then local expTotal = math.floor(playerExperienceRate * givenexp) local party = getPartyMembers(pk) if isInParty(pk) and getPlayerStorageValue(pk, 4875498) <= -1 then expTotal = math.floor(expTotal/#party) --alterado v1.6.1 for i = 1, #party do if isInArray(list, party) then playerAddExp(party, expTotal) end end else playerAddExp(pk, expTotal) end end end end if isNpcSummon(cid) then local master = getCreatureMaster(cid) doSendMagicEffect(getThingPos(cid), getPlayerStorageValue(cid, 10000)) doCreatureSay(master, getPlayerStorageValue(cid, 10001), 1) doRemoveCreature(cid) return false end if corpse and corpse.itemid ~= 0 then --alterado v1.8 --doItemSetAttribute(corpse.uid, "level", getPokemonLevel(cid)) doItemSetAttribute(corpse.uid, "gender", getPokemonGender(cid)) end return true end

Verifica se tem alguma creaturescripts com o evento "advance", e então veja nas scripts se alguma está limitando a skill fish a 59

Você tem algum sistema parecido ou similar, se tiver posso corrigi-lo para ficar como você quer.

@tentando helder Esse é o teu, teste e me diga se está funcionando

local min,max = 25,70 -- remove até 25% até 75% aleatoriamente, configure como você deseja function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return true end local hp = (math.random(min,max)/100*getCreatureMaxHealth(cid)) doSendMagicEffect(getCreaturePosition(cid),6) doSendAnimatedText(getCreaturePosition(cid), "- "..hp, TEXTCOLOR_LIGHTBLUE) doCreatureAddHealth(cid, -hp) return true end

local msgs = {"use ", ""} function doAlertReady(cid, id, movename, n, cd) if not isCreature(cid) then return true end local myball = getPlayerSlotItem(cid, 8) if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") is ready!") return true end local p = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid) if not p or #p <= 0 then return true end for a = 1, #p do if getItemAttribute(p[a], cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") is ready!") return true end end end function onSay(cid, words, param, channel) if param ~= "" then return true end if string.len(words) > 3 then return true end if #getCreatureSummons(cid) == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.") return 0 end --alterado v1.5 local mypoke = getCreatureSummons(cid)[1] local item = getPlayerSlotItem(cid, 8) if not item then return false end if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true end local name = getItemAttribute(item.uid, "poke") local copy = getItemAttribute(item.uid, "copyName") or "" if isInArray({"ditto", "shiny ditto"}, copy:lower()) then return true end if getItemAttribute(item.uid, "copyName") then -- ditto system name = getItemAttribute(item.uid, "copyName") elseif isMega(mypoke) then --alterado v1.9 name = getPlayerStorageValue(mypoke, storages.isMega) end --local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke) local it = string.sub(words, 2, 3) local tablemove = movestable[name] --------------SMEARGLETABLE if name == "Smeargle" then local move1 = getItemAttribute(item.uid, "Sketch1") local move2 = getItemAttribute(item.uid, "Sketch2") local move3 = getItemAttribute(item.uid, "Sketch3") local move4 = getItemAttribute(item.uid, "Sketch4") local move5 = getItemAttribute(item.uid, "Sketch5") local move6 = getItemAttribute(item.uid, "Sketch6") local move7 = getItemAttribute(item.uid, "Sketch7") local move8 = getItemAttribute(item.uid, "Sketch8") local movename1, movecd1, moveforce1, movetype1, movetarget1, movelevel1, movedist1 = string.explode(move1, "|")[1], string.explode(move1, "|")[2], string.explode(move1, "|")[3], string.explode(move1, "|")[4], string.explode(move1, "|")[5], string.explode(move1, "|")[6], string.explode(move1, "|")[7] local movename2, movecd2, moveforce2, movetype2, movetarget2, movelevel2, movedist2 = string.explode(move2, "|")[1], string.explode(move2, "|")[2], string.explode(move2, "|")[3], string.explode(move2, "|")[4], string.explode(move2, "|")[5], string.explode(move2, "|")[6], string.explode(move2, "|")[7] local movename3, movecd3, moveforce3, movetype3, movetarget3, movelevel3, movedist3 = string.explode(move3, "|")[1], string.explode(move3, "|")[2], string.explode(move3, "|")[3], string.explode(move3, "|")[4], string.explode(move3, "|")[5], string.explode(move3, "|")[6], string.explode(move3, "|")[7] local movename4, movecd4, moveforce4, movetype4, movetarget4, movelevel4, movedist4 = string.explode(move4, "|")[1], string.explode(move4, "|")[2], string.explode(move4, "|")[3], string.explode(move4, "|")[4], string.explode(move4, "|")[5], string.explode(move4, "|")[6], string.explode(move4, "|")[7] local movename5, movecd5, moveforce5, movetype5, movetarget5, movelevel5, movedist5 = string.explode(move5, "|")[1], string.explode(move5, "|")[2], string.explode(move5, "|")[3], string.explode(move5, "|")[4], string.explode(move5, "|")[5], string.explode(move5, "|")[6], string.explode(move5, "|")[7] local movename6, movecd6, moveforce6, movetype6, movetarget6, movelevel6, movedist6 = string.explode(move6, "|")[1], string.explode(move6, "|")[2], string.explode(move6, "|")[3], string.explode(move6, "|")[4], string.explode(move6, "|")[5], string.explode(move6, "|")[6], string.explode(move6, "|")[7] local movename7, movecd7, moveforce7, movetype7, movetarget7, movelevel7, movedist7 = string.explode(move7, "|")[1], string.explode(move7, "|")[2], string.explode(move7, "|")[3], string.explode(move7, "|")[4], string.explode(move7, "|")[5], string.explode(move7, "|")[6], string.explode(move7, "|")[7] local movename8, movecd8, moveforce8, movetype8, movetarget8, movelevel8, movedist8 = string.explode(move8, "|")[1], string.explode(move8, "|")[2], string.explode(move8, "|")[3], string.explode(move8, "|")[4], string.explode(move8, "|")[5], string.explode(move8, "|")[6], string.explode(move8, "|")[7] local smeargletable = {move1 = {name = movename1, level = tonumber(movelevel1), cd = tonumber(movecd1), dist = tonumber(movedist1), target = tonumber(movetarget1), f = tonumber(moveforce1), t = movetype1}, move2 = {name = movename2, level = tonumber(movelevel2), cd = tonumber(movecd2), dist = tonumber(movedist2), target = tonumber(movetarget2), f = tonumber(moveforce2), t = movetype2}, move3 = {name = movename3, level = tonumber(movelevel3), cd = tonumber(movecd3), dist = tonumber(movedist3), target = tonumber(movetarget3), f = tonumber(moveforce3), t = movetype3}, move4 = {name = movename4, level = tonumber(movelevel4), cd = tonumber(movecd4), dist = tonumber(movedist4), target = tonumber(movetarget4), f = tonumber(moveforce4), t = movetype4}, move5 = {name = movename5, level = tonumber(movelevel5), cd = tonumber(movecd5), dist = tonumber(movedist5), target = tonumber(movetarget5), f = tonumber(moveforce5), t = movetype5}, move6 = {name = movename6, level = tonumber(movelevel6), cd = tonumber(movecd6), dist = tonumber(movedist6), target = tonumber(movetarget6), f = tonumber(moveforce6), t = movetype6}, move7 = {name = movename7, level = tonumber(movelevel7), cd = tonumber(movecd7), dist = tonumber(movedist7), target = tonumber(movetarget7), f = tonumber(moveforce7), t = movetype7}, move8 = {name = movename8, level = tonumber(movelevel8), cd = tonumber(movecd8), dist = tonumber(movedist8), target = tonumber(movetarget8), f = tonumber(moveforce8), t = movetype8}, } tablemove =smeargletable end --------------SMEARGLETABLE if not tablemove then doSendMsg(cid, "Este pokémon não tem spell.") return true end local move = tablemove.move1 if getPlayerStorageValue(mypoke, 212123) >= 1 then cdzin = "cm_move"..it.."" else cdzin = "move"..it.."" --alterado v1.5 end if it == "2" then move = tablemove.move2 elseif it == "3" then move = tablemove.move3 elseif it == "4" then move = tablemove.move4 elseif it == "5" then move = tablemove.move5 elseif it == "6" then move = tablemove.move6 elseif it == "7" then move = tablemove.move7 elseif it == "8" then move = tablemove.move8 elseif it == "9" then move = tablemove.move9 elseif it == "10" then move = tablemove.move10 elseif it == "11" then move = tablemove.move11 elseif it == "12" then move = tablemove.move12 elseif it == "13" then move = tablemove.move13 end local heldy = getItemAttribute(item.uid, "yHeldItem") if not move or (string.find(move.name, "- ") and not (heldy and string.find(heldy, "MEGA"))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end if not string.find(move.name, "Mega ") then if getPlayerLevel(cid) < move.level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need be atleast level "..move.level.." to use this move.") return true end if getPlayerGroupId(cid) < 4 and getCD(item.uid, cdzin) > 0 and getCD(item.uid, cdzin) < (move.cd + 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..getCD(item.uid, cdzin).." seconds to use "..move.name.." again.") return true end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.") return true end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v1.3 end end --alterado v1.6 if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return true end if move.passive and move.passive == "sim" then return true end if move.target == 1 then if not isCreature(getCreatureTarget(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.") return 0 end if getCreatureCondition(getCreatureTarget(cid), CONDITION_INVISIBLE) then return 0 end if getCreatureHealth(getCreatureTarget(cid)) <= 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your have already defeated your target.") return 0 end if not isCreature(getCreatureSummons(cid)[1]) then return true end if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.") return 0 end if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then return 0 end end local newid = 0 if isSleeping(mypoke) or isSilence(mypoke) then --alterado v1.5 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't do that right now.") return 0 else newid = setCD(item.uid, cdzin, move.cd) end if string.find(move.name, "- ") then doCreatureSay(cid, ""..getPokeName(mypoke)..", MEGA EVOLUCIONA!!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_ORANGE_1) end local summons = getCreatureSummons(cid) --alterado v1.6 --addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin) for i = 2, #summons do if isCreature(summons[i]) then docastspell(summons[i], move.name) --alterado v1.6 end end docastspell(mypoke, move.name) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end

Temos, porém estamos precisando de mais um que entende diretamente do desenvolvimento uma interface para co cliente, site e etc...

local config = { storage = 10000, --use empty storage exhaust = 1800 --Exhaust is in seconds 600 equals 10min } local foods = { [2328] = {6, 'Gulp.'}, -- egg [2362] = {5, 'Crunch.'}, -- carrot [2666] = {15, 'Munch.'}, -- meat [2667] = {12, 'Munch.'}, -- fish [2668] = {10, 'Mmmm.'}, -- salmon [2669] = {17, 'Munch.'}, -- northern pike [2670] = {4, 'Gulp.'}, -- shrimp [2671] = {30, 'Chomp.'}, -- ham [2672] = {60, 'Chomp.'}, -- dragon ham [2673] = {5, 'Yum.'}, -- pear [2674] = {6, 'Yum.'}, -- red apple [2675] = {13, 'Yum.'}, -- orange [2676] = {8, 'Yum.'}, -- banana [2677] = {1, 'Yum.'}, -- blueberry [2678] = {18, 'Slurp.'}, -- coconut [2679] = {1, 'Yum.'}, -- cherry [2680] = {2, 'Yum.'}, -- strawberry [2681] = {9, 'Yum.'}, -- grapes [2682] = {20, 'Yum.'}, -- melon [2683] = {17, 'Munch.'}, -- pumpkin [2684] = {5, 'Crunch.'}, -- carrot [2685] = {6, 'Munch.'}, -- tomato [2686] = {9, 'Crunch.'}, -- corncob [2687] = {2, 'Crunch.'}, -- cookie [2688] = {2, 'Munch.'}, -- candy cane [2689] = {10, 'Crunch.'}, -- bread [2690] = {3, 'Crunch.'}, -- roll [2691] = {8, 'Crunch.'}, -- brown bread [2696] = {9, 'Smack.'}, -- cheese [2787] = {9, 'Munch.'}, -- white mushroom [2788] = {4, 'Munch.'}, -- red mushroom [2789] = {22, 'Munch.'}, -- brown mushroom [2790] = {30, 'Munch.'}, -- orange mushroom [2791] = {9, 'Munch.'}, -- wood mushroom [2792] = {6, 'Munch.'}, -- dark mushroom [2793] = {12, 'Munch.'}, -- some mushrooms [2794] = {3, 'Munch.'}, -- some mushrooms [2795] = {36, 'Munch.'}, -- fire mushroom [2796] = {5, 'Munch.'}, -- green mushroom [5097] = {4, 'Yum.'}, -- mango [6125] = {8, 'Gulp.'}, -- tortoise egg [6278] = {10, 'Mmmm.'}, -- cake [6279] = {15, 'Mmmm.'}, -- decorated cake [6393] = {12, 'Mmmm.'}, -- valentine's cake [6394] = {15, 'Mmmm.'}, -- cream cake [6501] = {20, 'Mmmm.'}, -- gingerbread man [6541] = {6, 'Gulp.'}, -- coloured egg (yellow) [6542] = {6, 'Gulp.'}, -- coloured egg (red) [6543] = {6, 'Gulp.'}, -- coloured egg (blue) [6544] = {6, 'Gulp.'}, -- coloured egg (green) [6545] = {6, 'Gulp.'}, -- coloured egg (purple) [6569] = {1, 'Mmmm.'}, -- candy [6574] = {5, 'Mmmm.'}, -- bar of chocolate [7158] = {15, 'Munch.'}, -- rainbow trout [7159] = {13, 'Munch.'}, -- green perch [7372] = {2, 'Yum.'}, -- ice cream cone (crispy chocolate chips) [7373] = {2, 'Yum.'}, -- ice cream cone (velvet vanilla) [7374] = {2, 'Yum.'}, -- ice cream cone (sweet strawberry) [7375] = {2, 'Yum.'}, -- ice cream cone (chilly cherry) [7376] = {2, 'Yum.'}, -- ice cream cone (mellow melon) [7377] = {2, 'Yum.'}, -- ice cream cone (blue-barian) [7909] = {4, 'Crunch.'}, -- walnut [7910] = {4, 'Crunch.'}, -- peanut [7963] = {60, 'Munch.'}, -- marlin [8112] = {9, 'Urgh.'}, -- scarab cheese [8838] = {10, 'Gulp.'}, -- potato [8839] = {5, 'Yum.'}, -- plum [8840] = {1, 'Yum.'}, -- raspberry [8841] = {1, 'Urgh.'}, -- lemon [8842] = {7, 'Munch.'}, -- cucumber [8843] = {5, 'Crunch.'}, -- onion [8844] = {1, 'Gulp.'}, -- jalapeño pepper [8845] = {5, 'Munch.'}, -- beetroot [8847] = {11, 'Yum.'}, -- chocolate cake [9005] = {7, 'Slurp.'}, -- yummy gummy worm [9114] = {5, 'Crunch.'}, -- bulb of garlic [9996] = {0, 'Slurp.'}, -- banana chocolate shake [10454] = {0, 'Your head begins to feel better.'}, -- headache pill [11246] = {15, 'Yum.'}, -- rice ball [11370] = {3, 'Urgh.'}, -- terramite eggs [11429] = {10, 'Mmmm.'}, -- crocodile steak [12415] = {20, 'Yum.'}, -- pineapple [12416] = {10, 'Munch.'}, -- aubergine [12417] = {8, 'Crunch.'}, -- broccoli [12418] = {9, 'Crunch.'}, -- cauliflower [12637] = {55, 'Gulp.'}, -- ectoplasmic sushi [12638] = {18, 'Yum.'}, -- dragonfruit [12639] = {2, 'Munch.'}, -- peas [13297] = {20, 'Crunch.'}, -- haunch of boar [15405] = {55, 'Munch.'}, -- sandfish [15487] = {14, 'Urgh.'}, -- larvae [15488] = {15, 'Munch.'}, -- deepling filet [16014] = {60, 'Mmmm.'}, -- anniversary cake [18305] = {0, 'Gulp!'}, -- fresh mushroom beer [18306] = {0, 'Phew!'}, -- stale mushroom beer [18397] = {33, 'Munch.'}, -- mushroom pie [19737] = {10, 'Urgh.'}, -- insectoid eggs [20100] = {15, 'Smack.'}, -- soft cheese [20101] = {12, 'Smack.'} -- rat cheese } function onUse(cid, item, frompos, item2, topos) local food = foods[item.itemid] if not food then return false end if((getPlayerFood(cid) + food[1]) >= 2000) then return doPlayerSendCancel(cid, "You are full.") elseif exhaustion.check(cid,config.storage) then return doPlayerSendCancel(cid, "Wait "..exhaustion.get(cid,storage).." seconds.") end doPlayerFeed(cid, food[1]*12) doCreatureSay(cid, food[2], TALKTYPE_MONSTER_SAY) doRemoveItem(item.uid, 1) exhaustion.set(cid,config.storage,config.exhaust) return true end

local config = { storage = 10000, --use empty storage exhaust = 1800 --Exhaust is in seconds 600 equals 10min } local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, 3600000) setConditionFormula(condition, 9.4, -24, 10.9, -24) function onUse(cid, item, fromPosition, itemEx, toPosition) if exhaustion.check(cid,config.storage) then return doPlayerSendCancel(cid, "You are full.") end doRemoveItem(item.uid) doAddCondition(cid, condition) doCreatureSay(cid, "Munch.",TALKTYPE_ORANGE_1) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "its speed was increased by 1 hour.") exhaustion.set(cid,config.storage,config.exhaust) return true end Tinha uma simbolo mal formatado perdido no código, recomendo sempre que for fazer script em lua formatar o arquivo para ANSII

local config = { storage = 10000, --use empty storage exhaust = 1800 --Exhaust is in seconds 600 equals 10min } local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, 3600000) setConditionFormula(condition, 9.4, -24, 10.9, -24) function onUse(cid, item, fromPosition, itemEx, toPosition) if exhaustion.check(cid,config.storage) then return doPlayerSendCancel(cid, "You are full.") end doRemoveItem(item.uid) doAddCondition(cid, condition) doCreatureSay(cid, "Munch.",TALKTYPE_ORANGE_1) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "its speed was increased by 1 hour.") exhaustion.set(cid,config.storage,config.exhaust) return true end

Por enquanto não

function onUse(cid, item, frompos, item2, topos) local dolls = { [11339] = {pet = "holy"}, } local go = dolls[item.itemid] local summon = getCreatureSummons(cid) local time,storage = 60,543543 -- 60 é o tempo em segundos para usar novamente! if exhaustion.check(cid,storage) then return doPlayerSendCancel(cid,"Aguarde: "..exhaustion.get(cid,storage).. " segundos para usar novamente.") end if #summon >= 1 then for _, pid in ipairs(summon) do doRemoveCreature(pid) doCreatureSay(cid, "! ["..go.pet.."]", TALKTYPE_ORANGE_1) end return true end doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, "Pufff! ["..go.pet.."]", TALKTYPE_ORANGE_1) exhaustion.set(cid,storage,time) return true end

Recrutamento para equipe Aberto vagas para Programadores, Spriters, Designers e mappers. Caso tenha interesse deixe seu contato aqui no tópico, ou mande-me uma mensagem aqui no xtibia. Informações do projeto:

function onUse(cid, item, fromPosition, itemEx, toPosition) local config = { soul = 0, -- amount of souls to start timer = 1, -- time in minutes rateStamina = 10, -- percent } if getPlayerSoul(cid) >= config.soul then local myOutfit, cstamina, secondPos, changeType, changeStraw, straw = getCreatureOutfit(cid), getPlayerStamina(cid), toPosition, 0, 0, 0 local clookType = myOutfit.lookType if itemEx.itemid == 5501 then toPosition = toPosition.x - 1 straw = 5500 elseif itemEx.itemid == 5503 then toPosition = toPosition.y - 1 straw = 5502 elseif itemEx.itemid == 5500 then secondPos = secondPos.x + 1 straw = itemEx.itemid elseif itemEx.itemid == 5502 then secondPos = secondPos.y + 1 straw = itemEx.itemid end if itemEx.itemid == 5500 or 5501 then if getPlayerSex(cid) == PLAYERSEX_FEMALE then changeType = 7841 changeStraw = 7842 else changeType = 5496 changeStraw = 5497 end elseif itemEx.itemid == 5502 or 5503 then if getPlayerSex(cid) == PLAYERSEX_FEMALE then changeType = 7843 changeStraw = 7844 else changeType = 5498 changeStraw = 5499 end end doTeleportThing(cid, toPosition, false) doCreatureChangeOutfit(cid, {lookTypeEx = changeType}) doCreatureSetNoMove(cid, true) local toItem = getTileItemById(secondPos, straw) if toItem and changeStraw then doTransformItem(toItem.uid, changeStraw) end -- check se o item existe doSendAnimatedText(toPosition, "RESTING", TEXTCOLOR_ORANGE) addEvent(function() if isCreature(cid) then doPlayerSetStamina(cid, cstamina + cstamina * config.rateStamina) doCreatureChangeOutfit(cid, {lookType = clookType}) local toItem = getTileItemById(secondPos, changeStraw) if toItem then doRemoveItem(toItem.uid, 1) end -- check se o item existe doCreateItem(straw, 1, secondPos) doCreatureSetNoMove(cid, false) doSendAnimatedText(toPosition, "RESTED", TEXTCOLOR_GREEN) end end, config.timer * 60 * 1000) end return true end

function onSay(cid, words, param, channel) if getPlayerLevel(cid) < 200 and isPrivateChannel(channel) then return false and doPlayerSendCancel(cid,"Somente jogadores level 200 ou mais para manda pm") end return true end Caso de erro utilize esse function onSay(cid, words, param, channel) if getPlayerLevel(cid) < 200 and channel == 65535 then return false and doPlayerSendCancel(cid,"Somente jogadores level 200 ou mais para manda pm") end return true end

function onCastSpell(cid, var) local cloth, health, maxhealth, summons = getCreatureOutfit(cid), getCreatureHealth(cid), getCreatureMaxHealth(cid), getCreatureSummons(cid) local MaximoSummon = 3 local sword_id = 4322 local canUse = false for i=CONST_SLOT_FIRST,CONST_SLOT_LAST do if getPlayerSlotItem(cid, i).itemid = sword_id then canUse = true end end if not canUse then return doPlayerSendCancel(cid,"You need a Sword") end if(table.maxn(summons) < MaximoSummon) then local pos = getPlayerPosition(cid) local bpos = {x=pos.x+2, y = pos.y, z = pos.z} local farAwayPos = {x = 590, y = 464, z = 7} -- SUMMON 1 local Teste1 = doCreateMonster("Clone", farAwayPos) doConvinceCreature(cid, Teste1) setCreatureMaxHealth(Teste1, maxhealth) doCreatureAddHealth(Teste1, health) doSetCreatureOutfit(Teste1, cloth, -1) addEvent(doTeleportThing, 100, Teste1, pos) addEvent(doSendMagicEffect, 100, pos, 10) return true end return true end

Dica: quando for colocar algo pra todas vocações não precisa colocar os id na spell <instant name="gran trap" words="exevo gran trap" lvl="200" mana="500" prem="1" aggressive="0" selftarget="1" exhaustion="3000" needlearn="0" script="trap.lua"> </instant> Verifica também se a pasta que tu coloca está realmente o script script="trap.lua" script="attack/trap.lua"

Configura as posição corretamente e poem uma rate alta pra dar respawn de shiny, difícil ñ funcionar

testa

local pokes = { ["Poliwag"] = {lookType=629, speed = 10}, ["Poliwrath"] = {lookType=541, speed = 10}, ["Virus Poliwag"] = {lookType=2553, speed = 15}, ["Poliwhirl"] = {lookType=488, speed = 40}, ["Seaking"] = {lookType=269, speed = 40}, ["Dewgong"] = {lookType=534, speed = 80}, ["Blastoise"] = {lookType=535, speed = 80}, ["Virus Blastoise"] = {lookType=2365, speed = 90}, ["Tentacruel"] = {lookType=536, speed = 80}, ["Lapras"] = {lookType=537, speed = 80}, ["Gyarados"] = {lookType=537, speed = 80}, ["Omastar"] = {lookType=539, speed = 80}, ["Kabutops"] = {lookType=540, speed = 80}, ["Poliwrath"] = {lookType=190, speed = 80}, ["Vaporeon"] = {lookType=2154, speed = 50}, ["Staryu"] = {lookType=617, speed = 30}, ["Starmie"] = {lookType=618, speed = 70}, ["Goldeen"] = {lookType=619, speed = 20}, ["Seadra"] = {lookType=621, speed = 50}, ["Golduck"] = {lookType=622, speed = 70}, ["Squirtle"] = {lookType=624, speed = 20}, ["Wartortle"] = {lookType=626, speed = 40}, ["Tentacool"] = {lookType=628, speed = 20}, ["Snorlax"] = {lookType=651, speed = 80}, ----------------Shiny---------------------- ["Shiny Blastoise"] = {lookType=1009, speed = 600}, ["Shiny Lapras"] = {lookType=1824, speed = 600}, ["Shiny Kingdra"] = {lookType=1827, speed = 600}, ["Shiny Tentacruel"] = {lookType=841, speed = 600}, ["Shiny Gyarados"] = {lookType=1381, speed = 600}, ["Shiny Vaporeon"] = {lookType=2151, speed = 600}, --alterado v1.6 ["Shiny Seadra"] = {lookType=1376, speed = 600}, ["Shiny Tentacool"] = {lookType=1013, speed = 600}, ["Shiny Snorlax"] = {lookType=1035, speed = 600}, ["Shiny Feraligatr"] = {lookType=1526, speed = 600}, ["Shiny Kabutops"] = {lookType=2237, speed = 80}, ["Shiny Omastar"] = {lookType=2574, speed = 80}, ["Shiny Octillery"] = {lookType=2260, speed = 70}, ----------------Johto---------------------- ["Mantine"] = {lookType=987, speed = 80}, ["Totodile"] = {lookType=988, speed = 20}, ["Croconow"] = {lookType=989, speed = 40}, ["Feraligatr"] = {lookType=996, speed = 80}, ["Marill"] = {lookType=639, speed = 30}, ["Azumarill"] = {lookType=642, speed = 40}, ["Quagsire"] = {lookType=993, speed = 70}, ["Kingdra"] = {lookType=995, speed = 100}, ["Octillery"] = {lookType=992, speed = 70}, ["Wooper"] = {lookType=991, speed = 30}, ["Virus Wooper"] = {lookType=2554, speed = 40}, ["Milotic"] = {lookType=1641, speed = 1000}, ["Wailord"] = {lookType=1656, speed = 1000}, ["Marshtomp"] = {lookType=1648, speed = 1000}, ["Mudkip"] = {lookType=1649, speed = 1000}, ["Swampert"] = {lookType=1650, speed = 2000}, ["Shiny Swampert"] = {lookType=1839, speed = 2000}, ["Shiny Ludicolo"] = {lookType=1860, speed = 2000}, ----------------Virus---------------------- ["Virus Gyarados"] = {lookType=2688, speed = 700}, ["Virus Blastoise"] = {lookType=2716, speed = 700}, ["Virus Poliwag"] = {lookType=2904, speed = 700}, ["Virus Wooper"] = {lookType=2905, speed = 700}, } local configs = { [4647] = {x = -2, y = 0}, [4645] = {x = 2, y = 0}, [4646] = {x = 0, y = 2}, [4644] = {x = 0, y = -2}, } function onUse(cid, item, fromPosition, itemEx, toPosition) local playerpos = getCreaturePosition(cid) if #getCreatureSummons(cid) <= 0 and getPlayerStorageValue(cid, 63215) <= 0 then return doPlayerSendCancel(cid, "You need a pokemon to surf.") end local l = false for i,x in pairs(pokes) do if getPlayerStorageValue(cid, 63215) <= 0 and i:lower() == getCreatureName(getCreatureSummons(cid)[1]):lower() then l = true end end if not l and getPlayerStorageValue(cid, 63215) <= 0 then return doPlayerSendCancel(cid, "This pokemon can't surf.") end if getPlayerStorageValue(cid, 63215) <= 0 then doTeleportThing(cid, {x=playerpos.x+configs[itemEx.itemid].x, y=playerpos.y+configs[itemEx.itemid].y, z=playerpos.z}) setPlayerStorageValue(cid, 63215, 1) doSetCreatureOutfit(cid, pokes[getCreatureName(getCreatureSummons(cid)[1])], -1) doCreatureSay(cid, "Let's surf, "..getCreatureName(getCreatureSummons(cid)[1]), 1) setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1])) setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1])) doChangeSpeed(cid, pokes[getCreatureName(getCreatureSummons(cid)[1])].speed) doRemoveCreature(getCreatureSummons(cid)[1]) else doTeleportThing(cid, {x=playerpos.x-configs[itemEx.itemid].x, y=playerpos.y-configs[itemEx.itemid].y, z=playerpos.z}) setPlayerStorageValue(cid, 63215, 0) doRemoveCondition(cid, CONDITION_OUTFIT) local item = getPlayerSlotItem(cid, 8) doCreatureSay(cid,getItemAttribute(item.uid, "poke")..", Im tired of surfing!", 1) pk = doSummonCreature(getItemAttribute(item.uid, "poke"), getCreaturePosition(cid)) doConvinceCreature(cid, pk) registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) doChangeSpeed(cid, getCreatureBaseSpeed(cid)-getCreatureSpeed(cid)) end return true end

OPCODEPOKES = 5 function onExtendedOpcode(cid, opcode, buffer) print("OPCODE:"..opcode) if opcode == OPCODEPOKES then print("BUFFER: \n"..buffer) end end Não esqueça de registrar no creaturescripts.xml <event type="extendedopcode" name="ExtendedOpcode" event="script" value="extendedopcode.lua"/> ( Pelo que eu me lembro tem que registrar o event no login.lua )