zipter98

local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid local vocation_ids = {...} --IDs das vocations que poderão se batizar na cidade.. Ex.: {1, 2, 4} if msgcontains(msg:lower(), "sim") then if isInArray(vocation_ids, getPlayerVocation(cid)) then doPlayerSetTown(cid, 5) npcHandler:say("Seja bem vindo a Edoras.", cid) talkState[talkUser] = 0 return true else npcHandler:say("Apenas humanos podem morar nessa cidade.", cid) talkState[talkUser] = 0 return true end elseif msgcontains(msg:lower(), "nao") then npcHandler:say('Adeus Forasteiro..', cid) talkState[talkUser] = 0 return true end return true end function msgcontains(message, keyword) if(type(keyword) == "table") then return table.isStrIn(keyword, message) end local a, b = message:lower():find(keyword:lower()) if(a ~= nil and b ~= nil) then return true end return false end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

local numbers = {34, 180, 26, 23, 45, 67, 12, 31, 39} local random = numbers[math.random(#numbers)]

Tópico movido para a seção de dúvidas e pedidos resolvidos.

E assim? local rewards = { -- action ID recompença;rewards.. [7807] = {10577, 13}, } function onUse(cid, item, frompos, item2, topos) if getPlayerLevel(cid) < 150 then return doPlayerSendTextMessage(cid, 20, "Desculpe mais você precisa ser nivel 150 + para fazer essa quest!") elseif getPlayerStorageValue(cid, 34910) >= 0 then return doPlayerSendTextMessage(cid, 20, "Sorry, you completed this quest!") -- msg quando apareçe quando o player ja fez a quest ;/ end local itens = rewards[item.actionid] local item1 = doPlayerAddItem(cid, itens[1], itens[2]) doItemSetAttribute(item1, "unique", cid) setPlayerStorageValue(cid, 34910, 1) doSendMagicEffect(getThingPos(cid), 29) doPlayerSendTextMessage(cid, 20, "Parabéns, você completou a quest!") return true end

local pos = {x = 1096, y = 1062, z = 7} local lv = 140 function onStepIn(cid, item, position, lastPosition, fromPosition) if not isPlayer(cid) then return true end if getPlayerLevel(cid) >= lv then return doTeleportThing(cid, fromPosition) and doPlayerSendCancel(cid, "You can't pass here.") else doTeleportThing(cid, pos) doPlayerSendTextMessage(cid, 27, "Welcome.") end return true end

local AMMO_id = 11754 --- Id del ferumbras local SEC = 3 function onEquip(cid, item, slot) if not cid or item.uid < 1 then return true end regenMP(cid) regenHP(cid) doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE,'Ahora Estas Absorviendo Los Misticos Poderes De La Bestia Ferumbras.') return true end function onDeEquip(cid, item, slot) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, 'As Dejado De Absorver Los Poderes De Ferumbras.') doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end function regenMP(cid) local HP = math.random(50, 100) if getPlayerSlotItem(cid, CONST_SLOT_AMMO).itemid ~= AMMO_id then return true else doSendMagicEffect(getPlayerPosition(cid), 13) doCreatureAddMana(cid, HP) doSendAnimatedText(getCreaturePosition(cid), '+ '..HP..'', TEXTCOLOR_PURPLE) addEvent(regenMP, SEC * 1000, cid) end end function regenHP(cid) local MP = math.random(50, 100) if getPlayerSlotItem(cid, CONST_SLOT_AMMO).itemid ~= AMMO_id then return true else doSendMagicEffect(getPlayerPosition(cid), 13) doCreatureAddHealth(cid, MP) doSendAnimatedText(getCreaturePosition(cid), '+ '..MP..'', TEXTCOLOR_GREEN) addEvent(regenHP, SEC * 1000, cid) end end

E, se possível, envie o código encontrado em order.lua de data/lib.

Tire a seguinte condição desse código, e coloque-a na parte do Fly em order.lua de lib: if not isPremium(cid) then doPlayerSendCancel(cid, "Vc nao é premium, Vaza.") return true end

Lhe recomendaria trocar: doPlayeraddItem(cid, colher, 1) Por: doPlayerAddItem(cid, colher, 1)

Área incorreta, tópico movido. Mais cuidado da próxima vez.

<?xml version="1.0" encoding="UTF-8"?> <npc name="Nome" script="nome do arquivo.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1"> <health now="150" max="150"/> <look type="523" head="114" body="119" legs="114" feet="114" corpse="2212"/> <parameters> <parameter key="message_greet" value="Hello |PLAYERNAME|, wants travel?"/> </parameters> </npc> Não se esqueça de alterar a fala, looktype e etc.

function isWalkable(pos)-- by Nord / editado por Omega if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false elseif getTopCreature(pos).uid > 0 then return false elseif isCreature(getTopCreature(pos).uid) then return false elseif getTileInfo(pos).protection then return false elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then return false end return true end function onUse(cid, item, frompos, item2, topos, item3) local pos = getThingPos(item2.uid) local effect = 2 ------Coloque aki o efeito que saira quando usar o item-------- local time = 40 -- tempo em segundos. local itemId = 2554 -- id do item --[[ o mesmo da tag ]]-- local pos1 = getCreaturePosition(cid) if getTilePzInfo(getCreaturePosition(cid)) then return doPlayerSendCancel(cid, "O item nao tem poder em Protection Zones.") elseif not isWalkable(topos) then return doPlayerSendCancel(cid, "Sorry, not possible.") elseif not isSightClear(getThingPos(cid), topos, false) then return doPlayerSendCancel(cid, "Sorry, not possible.") end if getDistanceBetween(pos1, pos) <= 6 then if getPlayerSlotItem(cid, 9).itemid == itemId or getPlayerSlotItem(cid, 10).itemid == itemId then if getPlayerStorageValue(cid, 1239870) - os.time() <= 0 then doTeleportThing(cid, pos, false) doSendMagicEffect(pos, effect) setPlayerStorageValue(cid, 1239870, os.time()+time) else doPlayerSendCancel(cid, "Você só pode usar esse item a cada "..time.." segundos!") end else doPlayerSendCancel(cid, "Você só pode usar o item "..getItemNameById(itemId).." estiver equipado na mão.") end else doPlayerSendCancel(cid, "Você só pode usar esse item a 3 sqm longe de você") end return true end

Sabe fazer o .xml? local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid local configuration = { id = xxx, --ID do item que o jogador irá receber. position = {x = x, y = y, z = z}, --Para onde o jogador irá ser teleportado. quantity = 5, } local check = {} if msgcontains(msg:lower(), "enter") or msgcontains(msg:lower(), "travel") then selfSay("Para ser teleportado e receber "..configuration.quantity.." "..getItemNameById(configuration.id)..", você precisa remover as pokeballs vazias de sua bag. Deseja continuar?", cid) talkState[talkuser] = 1 return true elseif (msgcontains(msg:lower(), "yes") or msgcontains(msg:lower(), "sim")) and talkState[talkUser] == 1 then for i = 2391, 2394 do if getPlayerItemCount(cid, i) > 0 then table.insert(check, i) end end if #check > 0 then local str = "" for i = 1, #check do if str == "" then str = getItemNameById(check[i]) else str = str..", "..getItemNameById(check[i]) end end selfSay("Você possui em sua bag a(s) seguinte(s) pokeball(s): "..str, cid) talkState[talkUser] = 0 return true else selfSay("Boa sorte!", cid) doPlayerAddItem(cid, configuration.id, configuration.quantity) doTeleportThing(cid, configuration.position) talkState[talkUser] = 0 return true end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

Área incorreta, tópico movido. Mais cuidado da próxima vez.

data/lib/pokemon moves.lua.

Tópico movido para a seção de dúvidas e pedidos resolvidos.

Seria interessante você postar os IDs das pokeballs.

Área incorreta, tópico movido. Mais cuidado da próxima vez.

Área incorreta, tópico movido. Mais cuidado da próxima vez.

Desculpe, mas terei que mover seu tópico. Pelo que pude entender, você está procurando algum scripter para ajudar-lhe em seu servidor. Portanto, a área mais adequada é Monte sua Equipe, e não pedidos e dúvidas de scripting. Recomendo a você ler este manual do fórum. Assim, você poderá evitar mais erros como este.

Tópico movido para a seção de dúvidas e pedidos resolvidos.

O quê acontece é que o jogador é "movido" para a frente a cada 500 milésimos. Se quiser que o processo seja mais rápido, basta alterar o tempo nesta linha (em milésimos): addEvent(autoWalk, 500, cid, id) --Onde 500 é o intervalo de tempo. Sobre o segundo problema, não tinha pensado nisso. Logo altero o código do meu comentário anterior com a correção. #EDIT: Pronto, alterado.

Por se tratarem de pedidos e dúvidas relacionados à pokémon, vou mover para pedidos e dúvidas de derivados. Em casos como este, opte por postar nesta área que mencionei.

Tópico movido para a seção de dúvidas e pedidos resolvidos.

@valakas Se possível, relate se o pedido foi ou não resolvido.