zipter98

Poderia postar seu love.lua? [data/talkactions/scripts]

Sobre o erro do baú, faça o seguinte: (testei aqui, e tá funcionando perfeitamente.) Em some functions.lua, adicione a seguinte função: function addPokeToPlayer(cid, pokemon, boost, gender, ball, unique) local genders = { ["male"] = 4, ["female"] = 3, [1] = 4, [0] = 3, [4] = 4, [3] = 3, } if not isCreature(cid) then return false end local pokemon = doCorrectString(pokemon) if not pokes[pokemon] then return false end local GENDER = (gender and genders[gender]) and genders[gender] or getRandomGenderByName(pokemon) local btype = (ball and pokeballs[ball]) and ball or isShinyName(pokemon) and "shinynormal" or "normal" local happy = 250 if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then item = doCreateItemEx(11826) else item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, 11826, 1) end if not item then return false end doItemSetAttribute(item, "poke", pokemon) doItemSetAttribute(item, "hp", 1) doItemSetAttribute(item, "happy", happy) doItemSetAttribute(item, "gender", GENDER) doSetItemAttribute(item, "hands", 0) doItemSetAttribute(item, "description", "Contains a "..pokemon..".") doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".") if boost and tonumber(boost) and tonumber(boost) > 0 and tonumber(boost) <= 50 then doItemSetAttribute(item, "boost", boost) end if unique then doItemSetAttribute(item, "unique", getCreatureName(cid)) end if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then doPlayerSendMailByName(getCreatureName(cid), item, 1) sendMsgToPlayer(cid, 27, "Você já está carregando seis pokémon, seu novo pokémon será teleportado para o Centro Pokémon.") end if (isShinyName(pokemon) or (boost and tonumber(boost) and tonumber(boost) >= 10)) and pokeballs["shiny"..btype] then doTransformItem(item, pokeballs["shiny"..btype].on) else doTransformItem(item, pokeballs[btype].on) end return true end Depois, substitua seu código do baú por este: local starterpokes = { ["Squirtle"] = {x = 51, y = 70, z = 7}, ["Charmander"] = {x = 47, y = 70, z = 7}, --Alterado por min, stylo para meu MAPA' ["Bulbasaur"] = {x = 49, y = 70, z = 7}, } local btype = "ultra" function onUse(cid, item, frompos, item2, topos) if getPlayerLevel(cid) > 5 then --alterado v1.3 return true end local pokemon = "" for a, b in pairs (starterpokes) do if isPosEqualPos(topos, b) then pokemon = a end end if pokemon == "" then return true end if getPlayerStorageValue(cid, 9658754) ~= 1 then --alterado v1.7 -opicional- sendMsgToPlayer(cid, 27, "Talk to the Prof. Robert to choose your beginner {city first}/Falê com o Prof. Robert para escolher sua {cidade primeiro}!") return true end doPlayerSendTextMessage(cid, 27, "You got your first pokemon! You also received some pokeballs to help you in your way.") doPlayerSendTextMessage(cid, 27, "Don\'t forget to use your pokedex on every undiscovered pokemon!") doPlayerAddItem(cid, 2392, 30) doPlayerAddItem(cid, 2393, 50) doPlayerAddItem(cid, 12343, 5) --Alterado por min, Stylo ' "KIT INICIAL"~~ doPlayerAddItem(cid, 12346, 20) doPlayerAddItem(cid, 12348, 30) doPlayerAddItem(cid, 12222, 100) addPokeToPlayer(cid, pokemon, 0, nil, btype, true) doSendMagicEffect(getThingPos(cid), 28) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doSendMagicEffect(getThingPos(cid), 27) doSendMagicEffect(getThingPos(cid), 28) return TRUE end Spoiler tá bugando comigo, nice ._.

/\ data/lib/StatusPokeOld.lua.

Não é 24h, como disse no post principal. Antes o servidor caia as 20:00, porém agora, às 22:00 +-. (devido ao ADM ser polonês, ou seja, diferença de horário). Sobre o problema de cair, suponho que isso não seja muito comum, pois, pelo que eu reparo, o servidor fica mais é com lag. (mas não aquele tremendo lag, porque dá pra jogar, pelo menos comigo, com um rendimento de 90%)

Só vai poder usar o item quando estiver fora de protection zone, ou só quando estiver em battle? Não entendi direito ._. De qualquer maneira, se não estiver em battle, não vai teleportar. function onUse(cid, item, frompos, item2, topos) local pos = {x = xxx, y = yyy, z = zzz} --Para onde será teleportado. if getCreatureCondition(cid, CONDITION_INFIGHT) == false then return doPlayerSendCancel(cid, "Você só pode usar esse item quando está em battle.") end doTeleportThing(cid, pos) return true end Se estiver em PZ, não vai teleportar: function onUse(cid, item, frompos, item2, topos) local pos = {x = xxx, y = yyy, z = zzz} --Para onde será teleportado. if getTilePzInfo(getPlayerPosition(cid)) == true then return doPlayerSendCancel(cid, "Você só pode usar esse item quando não estiver em PZ.") end doTeleportThing(cid, pos) return true end

Atualização: • Double EXP por tempo limitado! • Adicionado Shiny/Big Porygon quest. • Adicionado 2 novas outfits de Halloween. • Remake gráfico: Nidoking/Shiny Nidoking. Chegando futuramente: • Unown quest! • Nova Boost stone. • Novo client. • Outras atualizações que ainda não foram divulgadas para os jogadores.

25% da vida total, ou da vida atual? De qualquer maneira: Retirando 25% da sua vida atual local c = getCreatureHealth(cid) * 25 / 100 doCreatureAddHealth(cid, -c) Retirando 25% da sua vida total local c = getCreatureMaxHealth(cid) * 25 / 100 doCreatureAddHealth(cid, -c)

function onUse(cid, item, frompos, item2, topos) local storage = 192 --Coloque a storage aqui local remove_item = true --Se for false, não irá retirar o item. True, irá. setPlayerStorageValue(cid, storage, 1) doPlayerSendTextMessage(cid, 27, "Você ganhou uma storage!") if remove_item == true then doRemoveItem(item.uid, 1) end return true end

Actions. function onUse(cid, item, frompos, item2, topos) setPlayerStorageValue(cid,Storage,1) doPlayerSendTextMessage(cid, 27, "Você ganhou uma storage.") end

Só mudar a mensagem '-'

Tenta:

O primeiro: function onSay(cid, words, param, channel) local stt = "" for i = 1, #getPlayersOnline() do local staff = getPlayersOnline()[i] if getPlayerGroupId(staff) >= 4 then if stt == "" then stt = getPlayerName(staff) else stt = stt..", "..getPlayerName(staff) end end end if stt ~= "" then doPlayerSendTextMessage(cid, 27, "Staff online: "..stt..".") else doPlayerSendCancel(cid, "Ninguém da staff on, no momento.") end return true end

registerCreatureEvent(cid, "poketele") não precisa da outra tag.

Registrou no login.lua? Ah, a tag deve ser assim: <event type="think" name="Tele" event="script" value="poketele.lua"/>

local name = getCreatureName(cid) local a = name:gsub("_", "") local newMonster = doCreateMonster(a, pos) Com isso, vai retirar o símbolo desejado do nome (no caso, _). Se funcionar, e você pretender dar rep+, dê ao Akumah, e não a mim.

Veja se dá o mesmo erro. Se der, avise. Eu mudei o que, ao meu ver, estava dando erro. Como estou de saída, na volta dou uma olhada melhor.

Pra configurar a distância máxima entre pokémon e treinador, basta configurar no arquivo poketele.lua. [data/creaturescripts/scripts]. (caso seu servidor não tenha este arquivo, basta procurá-lo aqui no fórum) E pra deixar os shinies selvagens mais fortes, basta ir em data/lib/configuration.lua, e procurar pela configuração de status do pokémon. Por exemplo, do shiny marowak: ["Shiny Marowak"] = {offense = 8.8, defense = 10.2, specialattack = 9, vitality = 9.1, agility = 387, exp = 2136.4, level = 100, wildLvl = 370, type = "ground", type2 = "no type"}, Em wildLvl, você configura o lv desejado que o shiny selvagem tenha.

Testado, funcionando perfeitamente. function onUse(cid, item, topos, item2, frompos) local pos = {x = 696, y = 829, z = 7} --Coordenadas para onde o player será teleportado. local efeito = 12 function teleport_thing(cid, toPos, time, storage, cd) if isCreature(cid) then doPlayerSetNoMove(cid, true) addEvent(doTeleportThing, time*1000, cid, toPos) addEvent(setPlayerStorageValue, time*1000, cid, storage, os.time () + cd) end return true end if getCreatureSkull(cid) >= 3 then return doPlayerSendCancel(cid, "Você não pode usar este item enquanto está PK.") end if not isPremium(cid) then return doPlayerSendCancel(cid, "Você não é premium.") end if getPlayerStorageValue(cid, 141029) > os.time () then return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 141029) - os.time ().." para se teleportar novamente.") end local a = 10 for i = 1, 9 do a = a - 1 addEvent(doCreatureSay, i*1000, cid, "" ..a.."", TALKTYPE_ORANGE_1) addEvent(doSendMagicEffect, i*1000, getThingPos(cid), efeito) addEvent(doPlayerSetNoMove, 10*1000, cid, false) end teleport_thing(cid, pos, 10, 141029, 30) return true end

Tenta: function onUse(cid, item, topos, item2, frompos) local pos = {x = xxx, y = yyy, z = zzz} --Coordenadas para onde o player será teleportado. local efeito = 12 function teleport_thing(cid, toPos, time, storage, cd) if isCreature(cid) then addEvent(doTeleportThing, time*1000, cid, toPos) addEvent(setPlayerStorageValue, time*1000, cid, storage, os.time () + cd) end return true end if getCreatureSkull(cid) >= 3 then return doPlayerSendCancel(cid, "Você não pode usar este item enquanto está PK.") end if not isPremium(cid) then return doPlayerSendCancel(cid, "Você não é premium.") end if getPlayerStorageValue(cid, 141029) > os.time () then return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 141029) - os.time ().." para se teleportar novamente.") end local a = 10 for i = 1, 10 do a = a - 1 addEvent(doCreatureSay, i*1000, cid, "" ..a.."", TALKTYPE_ORANGE_1) addEvent(doSendMagicEffect, i*1000, getThingPos(cid), efeito) addEvent(doPlayerSetNoMove, i*1000, cid, false) doPlayerSetNoMove(cid, true) end teleport_thing(cid, pos, 10, 141029, 30) return true end

data/movements, movements.xml <movevent type="StepIn" itemid="id do tile" event="script" value="nome do arquivo.lua"/> No lugar de id do tile, você coloca um ID que não esteja em uso no seu servidor. Então, basta ir no map editor, selecionar o tile desejado, e configurá-lo de acordo com o itemid que você colocou na tag; no lugar de nome do arquivo, você coloca o nome do arquivo .lua que passei acima.

function onUse(cid, item, topos, item2, frompos) local pos = {x = xxx, y = yyy, z = zzz} --Coordenadas para onde o player será teleportado. local efeito = 12 function teleport_thing(cid, toPos, time, storage, cd) if isCreature(cid) then addEvent(doTeleportThing, time*1000, cid, toPos) addEvent(setPlayerStorageValue, time*1000, cid, storage, os.time () + cd) end return true end if getCreatureSkull(cid) >= 3 then return doPlayerSendCancel(cid, "Você não pode usar este item enquanto está PK.") end if not isPremium(cid) then return doPlayerSendCancel(cid, "Você não é premium.") end if getPlayerStorageValue(cid, 141029) > os.time () then return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 141029) - os.time ().." para se teleportar novamente.") end local a = 10 for i = 1, 10 do a = a - 1 addEvent(doCreatureSay, i*1000, cid, "" ..a.."", TALKTYPE_ORANGE_1) addEvent(doSendMagicEffect, i*1000, getThingPos(cid), efeito) end teleport_thing(cid, pos, 10, 141029, 30) return true end Testado, funcionando perfeitamente. Basta configurar o que é indicado.

function onUse(cid, item, topos, item2, frompos) local pos = {x = xxx, y = yyy, z = zzz} --Coordenadas para onde o player será teleportado. function teleport_thing(cid, toPos, time, storage, cd) if isCreature(cid) then addEvent(doTeleportThing, time*1000, cid, toPos) addEvent(setPlayerStorageValue, time*1000, cid, storage, os.time () + cd) end return true end if getCreatureSkull(cid) >= 3 then return doPlayerSendCancel(cid, "Você não pode usar este item enquanto está PK.") end if not isPremium(cid) then return doPlayerSendCancel(cid, "Você não é premium.") end if getPlayerStorageValue(cid, 141029) > os.time () then return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 141029) - os.time ().." para se teleportar novamente.") end local a = 10 for i = 1, 10 do a = a - 1 addEvent(doCreatureSay, i*1000, cid, "" ...a..."", TALKTYPE_ORANGE_1) addEvent(doSendMagicEffect, i*1000, getThingPos(cid), 12) --No lugar de 12, coloque o efeito desejado. end teleport_thing(cid, pos, 10, 141029, 30) return true end

Tenta assim: function onStepIn(cid, item, position, fromPosition) local flag = 0 local pos = {x = xxx, y = yyy, z = zzz} --Para onde o player será teleportado. for i = 12252, 12259 do if getPlayerItemCount(cid, i) >= 1 then flag = flag + 1 end end if flag == 8 then doTeleportThing(cid, pos) doSendMagicEffect(getThingPos(cid), 21) else doPlayerSendCancel(cid, "Você precisa de todas as insígnias para passar por aqui.") doTeleportThing(cid, fromPosition) end return true end A tag, você sabe fazer?

Sobre esse NPC de task diária, foi algo que eu já tentei criar, mas faz um tempo já. E, como você deve imaginar, não funcionou e.e Sobre onde colocar essa proteção que passei, é abaixo do doPlayerSendCancel(cid, "Your ditto is not transformed.") markPos(mysum, unfix) return true end

Fiz correndo aqui, qualquer erro, só postar. function onUse(cid, item, topos, item2, frompos) local pos = {x = xxx, y = yyy, z = zzz} --Coordenadas para onde o player será teleportado. function teleport_thing(cid, toPos, time, storage, cd) if isCreature(cid) then addEvent(doTeleportThing, time*1000, cid, toPos) addEvent(setPlayerStorageValue, time*1000, cid, storage, os.time () + cd) end return true end if getCreatureSkull(cid) >= 3 then return doPlayerSendCancel(cid, "Você não pode usar este item enquanto está PK.") end if not isPremium(cid) then return doPlayerSendCancel(cid, "Você não é premium.") end if getPlayerStorageValue(cid, 141029) > os.time () then return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 141029) - os.time ().." para se teleportar novamente.") end local a = 10 for i = 1, 10 do a = a - 1 addEvent(doPlayerSendTextMessage, i*1000, cid, 27, "Você será teleportado em "..a.." segundo(s).") end teleport_thing(cid, pos, 10, 141029, 30) return true end