Mulizeu

So Trocar o primeiro script acima por esse!

@Josegvb Não é o cliente, o que uso funciona normalmente com todos os npcs, menos com os de batalha!, como eu disse n consegui deixar funcional totalmente ainda.

@Michyalex Não o erro de não conseguir batalhar contra eles, eu editei um pouco a source, mas ainda n ta bom!

@euller15 Editei

Editado

Alguém Conseguiu arrumar os npcs? a falta de interação deles no servidor? eu mexi nas source mas msm assim ainda n ta dando

Vá em Data/ Npcs Crie Um arquivo chamado Saffari.xml e coloque <?xml version="1.0" encoding="UTF-8"?><npc name="Loren" script="saffari.lua" walkinterval="350000" floorchange="0" speed="0" lookdir="2"><health now="150" max="150"/><look type="495" head="0" body="15" legs="20" feet="25"/> <parameters> <parameter key="message_greet" value="Hello, I am living here with Professor Oak and Professor Ivy, I am training those Lapras, but they need some {travel}s to get stronge."/> </parameters></npc> Agora em npcs/Script crie um Arquivo chamado saffari.lua e coloque focus = 0talk_start = 0target = 0following = falseattacking = falselocal SaffariBalls = {ID SAFFARI BALLS}local SafariEnter = {x=1676, y=1389, z=6} -- Posição da Entrada Safarifunction onThingMove(creature, thing, oldpos, oldstackpos)endfunction onCreatureAppear(creature)endfunction onCreatureDisappear(cid, pos)if focus == cid then selfSay('See ya.') focus = 0 talk_start = 0endendfunction onCreatureTurn(creature)endfunction msgcontains(txt, str)return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))endfunction onCreatureSay(cid, type, msg)msg = string.lower(msg)if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 3 then selfSay('Olá a entrada no Saffari custará 1k vc aceita??') focus = cid talk_start = os.clock()elseif (msgcontains(msg, 'yes') ) then if getPlayerItemCount(cid,2391) >= 1 or getPlayerItemCount(cid,2394) >= 1 or getPlayerItemCount(cid,2392) >= 1 or getPlayerItemCount(cid,2393) >= 1 then selfSay("Você não pode entrar no Saffari com nenhuma outra ball exceto a Saffari!! Cya") focus = 0 talk_start = 0 elseif getPlayerStorageValue(cid, 98796) >= 1 or getPlayerStorageValue(cid, 98797) >= 1 then selfSay("Você já está na saffari zone!") focus = 0 talk_start = 0 elseif doPlayerRemoveMoney(cid, 100000) then setPlayerStorageValue(cid, 98796, 1) setPlayerStorageValue(cid, 98797, 1) doPlayerAddItem(cid, 12617, SaffariBalls) doTeleportThing(cid, SafariEnter) doSendMagicEffect(getThingPos(cid), 21) talk_start = os.clock() else selfSay("Você não tem dinheiro suficiente") focus = 0 talk_start = 0 endelseif (msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 3) then selfSay('Sorry, Im busy at this moment.')elseif (msgcontains(msg, 'bye') and focus == cid and getDistanceToCreature(cid) < 3) then selfSay('Good bye then.') focus = 0 talk_start = 0endendfunction onCreatureChangeOutfit(creature)endfunction onThink()if (os.clock() - talk_start) > 30 thenif focus > 0 thenselfSay('See ya.')endfocus = 0endend

Em Data/Lib/PokeSpells ... la tu adiciona as magias

Eu averiguei as magias alem do "air Vortex" e se n me engano "Draco meteor" não a nenhuma outra delas, Não é difícil faze-las mas para quem é leigo sim

Não é só as prints que não condis com o servidor, as magias mostradas tbm não, então seria melhor mostrar somente o que o servidor tenha, para que o usuário saiba com o que vai lidar, obg"

O servidor não condiz com as coisas que tu informa ter nele, peço que reveja o conteúdo postado com o Descrito .

não testei

Action/Evolution

Em Creaturescript/script/player troque teu "PokeDeath" por este function matou(cid, target)if isSummon(target) and isPlayer(getCreatureMaster(target)) then doPlayerSendCancel(getCreatureMaster(target), '12//,hide') --alterado v1.7 doUpdateMoves(getCreatureMaster(target)) doKillPlayerPokemon(target) doRemoveCreature(target) doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, "0|0") elseif isWild(target) thenif getPlayerStorageValue(target, 637500) >= 1 then -- sherdder team doRemoveCreature(target) return trueendlocal nameDeath = doCorrectString(getCreatureName(target))local pos = getThingPos(target)local corpseID = getPokemonCorpse(nameDeath)local corpse = doCreateItem(corpseID, 1, pos) if isSummon(cid) then checkDirias(cid, nameDeath) end doItemSetAttribute(corpse, "pokeName", "fainted " .. nameDeath:lower()) doDecayItem(corpse) local name = getCreatureName(getCreatureMaster(cid)) doCorpseAddLoot(getCreatureName(target), corpse, getCreatureMaster(cid), target) doRemoveCreature(target) end return falseendlocal stoneEffect = { ["fire stone"] = 268, ["water stone"] = 269, ["leaf stone"] = 270, ["heart stone"] = 271, ["thunder stone"] = 272, ["venom stone"] = 273, ["enigma stone"] = 274, ["rock stone"] = 275, ["earth stone"] = 276, ["ice stone"] = 277, ["darkness stone"] = 278, ["punch stone"] = 279, ["coccon stone"] = 280, ["metal stone"] = 281, ["ancient stone"] = 282, ["crystal stone"] = 283, ["dragon scale"] = 284,}function doCorpseAddLoot(name, item, cid, target) -- essa func jรà¸� vai ajudar em um held, luck.if cid == target then doItemSetAttribute(item, "corpseowner", "asçdlkasçldkaçslkdçaskdçaslkdçlsakdçkaslç")return true end -- selfdestructlocal lootList = getMonsterLootList(name)local isStoneDroped = falsename = doCorrectString(name)local pokeName = namelocal str, vir = "Loot from " .. name .. ": ", 0local megaID, megaName = "", ""local lootListNow = {} if isMega(target) then if name == "Charizard" then megaID = getPlayerStorageValue(target, storages.isMegaID) end megaName = "Mega " .. name .. (megaID ~= "" and " " .. megaID or "") str = "Loot from " .. megaName .. ": " pokeName = megaName local t = {id = megasConf[megaName].itemToDrop, count = 1, chance = 0.1} table.insert(lootList, t) end local countVirg = 0 for i, _ in pairs(lootList) do countVirg = countVirg + 1 local id, count, chance = lootList[i].id, lootList[i].count, lootList[i].chance * 2 ---- X-Lucky local heldx = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "xHeldItem") if heldx then local heldName, heldTier = string.explode(heldx, "|")[1], string.explode(heldx, "|")[2] if heldName == "X-Lucky" then -- dar mais loot chance = chance * heldLucky[tonumber(heldTier)] end end ---- X-Lucky local percent, lootCount = math.random(0.1, 100.9), math.random(1, count) if (percent <= chance) then if isStone(id) then isStoneDroped = true local posCorpse = getThingPos(item) posCorpse.x = posCorpse.x +1 doSendMagicEffect(posCorpse, stoneEffect[getItemNameById(id):lower()]) posCorpse.y = posCorpse.y +1 addEvent(doSendMagicEffect, 2000, posCorpse, 285) end doAddContainerItem(item, id, lootCount) table.insert(lootListNow, getItemNameById(id) .. " (" .. lootCount .. ")") end end for i = 1, #lootListNow do str = str .. lootListNow[i] .. (tonumber(i) == tonumber(#lootListNow) and "." or ", ") end if getExpByMoreDano(target) == true then return true end local players = string.explode(getExpByMoreDano(target), "|") local xp, newXP = getPokemonExperienceD(name), xp local maiorPercent = 0 local playerWinner = "" if players ~= nil then for i = 1, #players do local name = string.explode(players[i], "/")[1] local percent = tonumber(string.explode(players[i], "/")[2]) if percent > maiorPercent then playerWinner = name maiorPercent = percent end if #players == 1 then -- caso so um player matou o bixo percent = 100 end local heldExp = 1 local player = getPlayerByName(name) local heldx = getItemAttribute(getPlayerSlotItem(player, 8).uid, "xHeldItem") if heldx then local heldName, heldTier = string.explode(heldx, "|")[1], string.explode(heldx, "|")[2] if heldName == "X-Experience" then -- dar mais experiencia heldExp = heldExperience[tonumber(heldTier)] end end playerAddExp(player, math.ceil(percent * xp / 100) * heldExp) end end local pWinnerLoot = getPlayerByName(playerWinner) if isCreature(pWinnerLoot) then doItemSetAttribute(item, "corpseowner", playerWinner) local loot = str .. (str == "Loot from ".. name .. ": " and "Nothing." or "") doPlayerSendTextMessage(pWinnerLoot, MESSAGE_INFO_DESCR, loot) doSendMsgInParty(cid, loot) if isStoneDroped then doSendMagicEffect(getThingPos(pWinnerLoot), 173, pWinnerLoot) doSendMsg(pWinnerLoot, "Parabéns! O pokemon " .. pokeName .. " dropou uma stone!!!") --- adicionar efeito em cima do loot end endendfunction playerAddExp(cid, exp)if not isCreature(cid) then return true end if isInPartyAndSharedExperience(cid) then local partyPlayers = getPartyMembers(getPlayerParty(cid)) local partyExp = math.ceil(exp / #partyPlayers) for i = 1, #partyPlayers do if isPlayer(partyPlayers[i]) then doPlayerAddExp(partyPlayers[i], partyExp * 30) doSendAnimatedText(getThingPos(partyPlayers[i]), partyExp * 30, 215) end end return true end doPlayerAddExp(cid, exp * 30) doSendAnimatedText(getThingPos(cid), exp * 30, 215)endfunction doSendMsgInParty(cid, loot) if isInPartyAndSharedExperience(cid) then local partyPlayers = getPartyMembers(getPlayerParty(cid)) for i = 1, #partyPlayers do if isPlayer(partyPlayers[i]) then doSendMsgToPartyChannel(partyPlayers[i], loot) end end return true endendfunction checkDirias(cid, nameDeath) local master = getCreatureMaster(cid) local getNpcTaskName = getPlayerStorageValue(master, storages.miniQuests.storNpcTaskName) local pokeTask1 = getPlayerStorageValue(master, storages.miniQuests.storPokeNameTask1) local pokeCountTask1 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask1)) if pokeTask1 ~= -1 and pokeTask1 == nameDeath then setPlayerStorageValue(master, storages.miniQuests.storPokeCountTask1, pokeCountTask1 -1) local getCountNow = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask1)) if getCountNow >= 1 then doSendMsg(master, getNpcTaskName .. ": Faltam " .. getCountNow .. " " .. nameDeath .. (getCountNow > 1 and "s" or "") .. ".") else doSendMsg(master, getNpcTaskName .. ": Você já concluiu minha task venha pegar sua recompensa.") end end local getNpcTaskName2 = getPlayerStorageValue(master, storages.miniQuests.storNpcTaskName2) local pokeTask2 = getPlayerStorageValue(master, storages.miniQuests.storPokeNameTask2) local pokeCountTask2 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask2)) if pokeTask2 ~= -1 and pokeTask2 == nameDeath then setPlayerStorageValue(master, storages.miniQuests.storPokeCountTask2, pokeCountTask2 -1) local getCountNow2 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask2)) if getCountNow2 >= 1 then doSendMsg(master, getNpcTaskName2 .. ": Faltam " .. getCountNow2 .. " " .. nameDeath .. (getCountNow2 > 1 and "s" or "") .. ".") else doSendMsg(master, getNpcTaskName2 .. ": Você já concluiu minha task venha pegar sua recompensa.") end end local getNpcTaskName3 = getPlayerStorageValue(master, storages.miniQuests.storNpcTaskName3) local pokeTask3 = getPlayerStorageValue(master, storages.miniQuests.storPokeNameTask3) local pokeCountTask3 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask3)) if pokeTask3 ~= -1 and pokeTask3 == nameDeath then setPlayerStorageValue(master, storages.miniQuests.storPokeCountTask3, pokeCountTask3 -1) local getCountNow3 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask3)) if getCountNow3 >= 1 then doSendMsg(master, getNpcTaskName3 .. ": Faltam " .. getCountNow3 .. " " .. nameDeath .. (getCountNow3 > 1 and "s" or "") .. ".") else doSendMsg(master, getNpcTaskName3 .. ": Você já concluiu minha task venha pegar sua recompensa.") end end local getNpcTaskName4 = getPlayerStorageValue(master, storages.miniQuests.storNpcTaskName4) local pokeTask4 = getPlayerStorageValue(master, storages.miniQuests.storPokeNameTask4) local pokeCountTask4 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask4)) if pokeTask4 ~= -1 and pokeTask4 == nameDeath then setPlayerStorageValue(master, storages.miniQuests.storPokeCountTask4, pokeCountTask4 -1) local getCountNow4 = tonumber(getPlayerStorageValue(master, storages.miniQuests.storPokeCountTask4)) if getCountNow4 >= 1 then doSendMsg(master, getNpcTaskName4 .. ": Faltam " .. getCountNow4 .. " " .. nameDeath .. (getCountNow4 > 1 and "s" or "") .. ".") else doSendMsg(master, getNpcTaskName4 .. ": Você já concluiu minha task venha pegar sua recompensa.") end endend

@aerdor consegui editar as sprits do client??? com que programa, pois usei o data editor e n funfo!

O client deste servidor n tem como alterar sprits, ao faze-lo ocorre um erro durante a compilação do msm!..isto podera acarretar problemas caso quera fazer alguma substituição de sprites(monsters) ou efeitos

Tente assim! function onUse(cid, item, frompos, item2, topos) local idPortaAberta = 2222 local idPortaFechada = 3333 if vip.hasVip(cid) == FALSE then return doCreatureSay(cid, "Você não possui Vip Access.", TALKTYPE_ORANGE_1) end doTransformItem(item.uid, idPortaAberta) local dir = getDirectionTo(getPlayerPosition(cid), toPosition) doMoveCreature(cid, dir) doMoveCreature(cid, dir) doTransformItem(item.uid, idPortaFechada) return TRUE end

onde tiver ID nome... coloque os ids dos itens e looktype function onEquip(cid, item, slot) local amuleto, ropa = ID Amuleto, Numero Do Looktype if getPlayerSlotItem(cid, 2).uid == amuleto then doSetCreatureOutfit(cid, {Looktype = ropa}, -1) return doPlayerSendTextMessage(cid,20,"You Have a New Look") end end function onDeEquip(cid, item, slot) if getPlayerSlotItem(cid, 2) ~= ID Colar then doRemoveCondition(cid,CONDITION_OUTFIT) doPlayerSendTextMessage(cid,20,"You return a old look") end return TRUE end

function onUse(cid, item, frompos, item2, topos) local config = { pz = "yes", -- players precisam estar em protection zone para usar? ("yes" or "no"). battle = "yes", -- players deve estar sem battle ("yes" or "no") pos = {x=343, y=161, z=7} } if isVip(cid) == FALSE then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"voce nao e vip!.") return TRUE end if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.") return TRUE end if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você precisa estar sem battler pra poder teleportar.") return TRUE end if item.itemid == 8979 then doPlayerSendTextMessage(cid,22,"Você Foi Teleportado Para O Templo!") removeOnUse = "no" -- remover quando usar ("yes" or "no") doTeleportThing(cid,config.pos) doSendMagicEffect(getCreaturePosition(cid), 10) doSendMagicEffect(frompos,6) end return 1 end

Eu gostaria que vc passa-se somente os efeitos (distance effects e magias) de um tibia.spr para outro, vc faz isso?

Desculpe Ja Corrigi!.. [code] function onSay(cid, words, param, channel) local storage = 66988 if param == "" then return doPlayerSendTextMessage(cid, 27, "Param missing! !post [msg]") elseif exhaustion.check(cid, storage) then return doPlayerSendTextMessage(cid, 27, "You need to wait ".. exhaustion.get(cid, storage).."segs to use this command again!") end if doPlayerRemoveMoney(cid, 100000) == true then for _, player in pairs(getPlayersOnline()) do doPlayerSendTextMessage(player, 20, "O "..getPlayerName(cid).. " ["..getPlayerLevel(cid).."] ".." Esta Vendendo "..param.."!") end exhaustion.set(cid, storage, 120) else return doPlayerSendTextMessage(cid, 27, "You need at least 1 crystal coin to use this command!") end return true end

function onEquip(cid,item) local Arma = {ID1, ID2, ID3} --Ids local Dias = 5 --Dias for i = 5,6 do for x = 1, #Armas do if getPlayerSlotItem(cid, i).itemid == Arma[x] then setPlayerStorageValue(cid,13255+os.time() * Dias * 24 * 60 * 60) doPlayerSendTextMessage(cid,27,"You have a "..Dias.. " days for use Arma") elseif getPlayerStorageValue(cid,13255) < os.time() and getPlayerSlotItem(cid, i).itemid == Arma[x] then doPlayerRemoveItem(cid,Arma[x],1) doPlayerSendTextMessage(cid,27,"Time to Your Arma Expired") else return false end end end return TRUE end

Acho que assim funcionaria melhor! ------------------[look],[life],[mana] local Look,HP,MP = 12, 300, 300 function onEquip(cid,item) doCreatureAddMaxHealth(cid,getCreatureMaxHealth(cid)+HP) doPlayerAddMaxMana(cid,getPlayerMaxMana(cid)+MP) doSetCreatureOutfit(cid, {looktype = Look}, -1) doPlayerSendTextMessage(cid,22,"You Have a New Power and Look") return TRUE end function onDeEquip(cid,item) doCreatureAddMaxHealth(cid,getCreatureMaxHealth(cid)-HP) doPlayerAddMaxMana(cid,getPlayerMaxMana(cid)-MP) doRemoveCondition(CONDITION_OUTFIT) return TRUE end Tag: <movevent type="Equip" itemid="ID ITEM" slot="ring" event="script" value="ARQUIVO.lua"/> <movevent type="DeEquip" itemid="ID ITEM" slot="ring" event="script" value="ARQUIVO.lua"/>

PostadoEm Baixo em movements.xml coloque <movevent type="Equip" itemid="ID do Item" slot="hand" event="script" value="NomeArquivo.lua"/>