Stigal

Olá abiguinhos Me falaram tanto sobre esse "LOL" que acabei baixando para ver como era... Bom vlw seus fdp, agora viciei nessa merda! Bom deixa seus nick ai, ou não... foda-se! O meu é: Stigal Mochila de Criança já estava sendo usada :c

Pode, obrigado.

Você não intendeu eu acho... vou deixar muito bem claro e bem explicadinho... - PARA GANHAR OUTRA SÓ PARTICIPANDO DO CONCURSO NOVAMENTE. - Entendeu amorzinho? DENADA!

Re-baixe o servidor que você usou como base com o anti-virus desativado, pegue somente o executavel.exe Pode ser isso... não custa tentar.

Esse ai é um script velho que tinha aqui... Use esse: (Paint.lua) 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 npcHandler:setCallback(CALLBACK_GREET, greetCallback) npcHandler:setMessage(MESSAGE_GREET, 'Bem-vindo à minha loja de pintura |PLAYERNAME| Se quizer pintar sua ball fale paint!') function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local pokesalive = {'11826', '11832', '11835', '11829', '554', '11452', '12596', '12599', '11826', '11829', '11835', '11832', '12575'} if(msgcontains(msg, 'paint')) then selfSay('Você quer pintar a sua ball?', cid) talkState = 1 elseif(msgcontains(msg, 'yes') and talkState == 1) then selfSay('Olá, você pode escolher: Pokeball, Greatball, Superball, Ultraball.', cid) talkState = 2 elseif(msgcontains(msg, 'no') and talkState == 1) then selfSay('Volte outra vez!', cid) talkState = 0 npcHandler:releaseFocus(cid) elseif((msgcontains(msg, 'Pokeball') or msgcontains(msg, 'Poke ball') or msgcontains(msg, 'pokeball') or msgcontains(msg, 'poke ball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Pokeball? Ele vai te custar 800 dólares!', cid) talkState = 3 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 3) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,80000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Pokeball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 11826) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Greatball') or msgcontains(msg, 'Great ball') or msgcontains(msg, 'greatball') or msgcontains(msg, 'great ball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Greatball? Ele vai te custar 300 dólares!', cid) talkState = 4 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 4) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,30000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Greatball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 11832) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Superball') or msgcontains(msg, 'Super ball') or msgcontains(msg, 'super ball') or msgcontains(msg, 'superball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Superball? Ele vai te custar 700 dólares!', cid) talkState = 5 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 5) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,70000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Superball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 11835) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Ultra ball') or msgcontains(msg, 'Ultraball') or msgcontains(msg, 'ultra ball') or msgcontains(msg, 'ultraball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Ultraball? Ele vai te custar 500 dólares!', cid) talkState = 6 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 6) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,50000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Ultraball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 11829) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'sdfdsfdsfsdf') or msgcontains(msg, 'dfsdfsdf') or msgcontains(msg, 'sdfsdfsdf') or msgcontains(msg, 'sdfsdfsdfsdf')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Masterball? Ele vai te custar 700 dólares!', cid) talkState = 7 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 7) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,70000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Masterball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 554) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'sdfsdf') or msgcontains(msg, 'ghfghfgh') or msgcontains(msg, 'fghjkuk') or msgcontains(msg, 'sdfsdfsdf')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Loveball? Ele vai te custar 300 dólares!', cid) talkState = 8 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 8) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,30000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Loveball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 12593) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'gfhfghfgh') or msgcontains(msg, 'fghgfhgfh') or msgcontains(msg, 'fghgfhgfh') or msgcontains(msg, 'gfhfghfgh')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Luaball? Ele vai te custar 700 dólares!', cid) talkState = 9 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 9) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,70000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Luaball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 12596) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'gfhfghgfh') or msgcontains(msg, 'fghfghfgh') or msgcontains(msg, 'gfhgfhfgh') or msgcontains(msg, 'fghgfhgfh')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Duskball? Ele vai te custar 500 dólares!', cid) talkState = 10 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 10) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,50000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Duskball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 12599) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) '11826', '11832', '11835', '11829', '554', '11452', '12596', '12599', '11826', '11829', '11835', '11832', '12575' - BALLS NPC (Paint.xml): <?xml version="1.0" encoding="UTF-8"?> <npc name="Deka" script="paint.lua" walkinterval="0" floorchange="0"> <health now="100" max="100"/> <look type="513" head="116" body="54" legs="114" feet="0" addons="2"/> <parameters> </parameters> </npc>

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 npcHandler:setCallback(CALLBACK_GREET, greetCallback) npcHandler:setMessage(MESSAGE_GREET, 'Bem-vindo à minha loja de pintura |PLAYERNAME|, Fale {Paint} para pintar!') function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local pokesalive = {'11826', '11829', '11835', '11832''} if(msgcontains(msg, 'paint')) then selfSay('Você quer pintar a sua pokeball?', cid) talkState = 1 elseif(msgcontains(msg, 'yes') and talkState == 1) then selfSay('Olá, você pode escolher: ´Darkball, Goldenball, Freshball e Loveball.', cid) talkState = 2 elseif(msgcontains(msg, 'no') and talkState == 1) then selfSay('Volte outra vez!', cid) talkState = 0 npcHandler:releaseFocus(cid) elseif((msgcontains(msg, 'Darkball') or msgcontains(msg, 'Dark ball') or msgcontains(msg, 'darkball') or msgcontains(msg, 'dark ball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Dark Ball? Ele vai te custar 100 dólares!', cid) talkState = 3 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 3) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,10000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Darkball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7774) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Goldenball') or msgcontains(msg, 'Golden ball') or msgcontains(msg, 'goldenball') or msgcontains(msg, 'golden ball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Goldenball? Ele vai te custar 200 dólares!', cid) talkState = 4 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 4) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,20000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Goldenball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7775) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Freshball') or msgcontains(msg, 'Fresh ball') or msgcontains(msg, 'fresh ball') or msgcontains(msg, 'freshball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Freshball? Ele vai te custar 300 dólares!', cid) talkState = 5 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 5) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,30000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Freshball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7776) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'Love ball') or msgcontains(msg, 'Loveball') or msgcontains(msg, 'love ball') or msgcontains(msg, 'loveball')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Loveball? Ele vai te custar 400 dólares!', cid) talkState = 6 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 6) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,40000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Loveball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7777) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'monkzito') or msgcontains(msg, 'monkzito') or msgcontains(msg, 'monkzito') or msgcontains(msg, 'monkzito')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Orangeball? Ele vai te custar 700 dólares!', cid) talkState = 7 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 7) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,70000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Orangeball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7778) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Loveball? Ele vai te custar 300 dólares!', cid) talkState = 8 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 8) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,30000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Loveball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7779) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Luaball? Ele vai te custar 700 dólares!', cid) talkState = 9 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 9) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,70000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Luaball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7780) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end elseif((msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2') or msgcontains(msg, 'monkzito2')) and talkState == 2) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then selfSay('Você realmente quer pintar a sua bola como um Duskball? Ele vai te custar 500 dólares!', cid) talkState = 10 else selfSay('Você deve colocar a bola fechada no slot.', cid) talkState = 0 end elseif(msgcontains(msg, 'yes') and talkState == 10) then if isInArray(pokesalive, getPlayerSlotItem(cid,8).itemid) then if doPlayerRemoveMoney(cid,50000) == true then selfSay('Boa escolha, a partir de agora um, ele vai olhar como uma Duskball! Há qualquer outra coisa que eu possa ajudá-lo?', cid) doTransformItem(getPlayerSlotItem(cid, 8).uid, 7781) talkState = 0 else selfSay('Sorry '.. getCreatureName(cid) ..', mas você não tem dinheiro suficiente.', cid) talkState = 0 end else selfSay('Por favor, mantenha sua bola fechada na slot.', cid) talkState = 0 end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) 7774, 7775, 7776, 7777, 7778, 7779, 7780, 7781 -- ID BALLS Atenciosamente, Stigal.

Alexclusive, o exterminador de cocotinhas ushshusuh'

Mas eae?

Veja este tópico: http://www.xtibia.com/forum/topic/191860-max-lvl-dos-pokemon-poketibia/

Ve se funciona: 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 local mypoke = getCreatureSummons(cid)[1] if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true end if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then name = getPlayerStorageValue(mypoke, 1010) else name = getCreatureName(mypoke) end --local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke) local it = string.sub(words, 2, 3) local move = movestable[name].move1 if getPlayerStorageValue(mypoke, 212123) >= 1 then cdzin = "cm_move"..it.."" else cdzin = "move"..it.."" end if it == "2" then move = movestable[name].move2 elseif it == "3" then move = movestable[name].move3 elseif it == "4" then move = movestable[name].move4 elseif it == "5" then move = movestable[name].move5 elseif it == "6" then move = movestable[name].move6 elseif it == "7" then move = movestable[name].move7 elseif it == "8" then move = movestable[name].move8 elseif it == "9" then move = movestable[name].move9 elseif it == "10" then move = movestable[name].move10 elseif it == "11" then move = movestable[name].move11 elseif it == "12" then move = movestable[name].move12 elseif it == "13" then move = movestable[name].move13 end if not move then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end 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 getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..getCD(getPlayerSlotItem(cid, 8).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") end 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 isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then local target = getCreatureTarget(cid) if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then if isCreature(getMasterTarget(target)) then doSendMagicEffect(getThingPos(target), 211) doSendAnimatedText(getThingPos(target), "TOO BAD", 215) doTeleportThing(target, getClosestFreeTile(target, getThingPos(mypoke)), false) doSendMagicEffect(getThingPos(target), 211) doFaceCreature(target, getThingPos(mypoke)) return true end end 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(getPlayerSlotItem(cid, 8).uid, cdzin, move.cd) end doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_SAY) local summons = getCreatureSummons(cid) addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin) for i = 2, #summons do if isCreature(summons[i]) and getPlayerStorageValue(cid, 637501) >= 1 then docastspell(summons[i], move.name) end end docastspell(mypoke, move.name) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end

Revive: function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "You can't use revive during gym battles.") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) if useOTClient then end return true end end return true end - Medicine: function onUse(cid, item, frompos, item2, topos) if not isSummon(item2.uid) then return doPlayerSendCancel(cid, "This potion can only be used on pokémons.") end if getCreatureMaster(item2.uid) ~= cid then return doPlayerSendCancel(cid, "You can only use it in your own pokemon.") end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") end local pokeball = getPlayerSlotItem(cid, 8) doCureBallStatus(pokeball.uid, "all") doCureStatus(item2.uid, "all", false) if (getCreatureCondition(item2.uid, CONDITION_PARALYZE) == true) then doRemoveCondition(item2.uid, CONDITION_PARALYZE) end if getCreatureSpeed(item2.uid) < getSpeed(item2.uid) then doRegainSpeed(item2.uid) end doSendMagicEffect(getThingPos(item2.uid), 14) doRemoveItem(item.uid, 1) return true end

function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "You can't use revive during gym battles.") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) if useOTClient then onPokeHealthChange(cid) end return true end end return true end

Exato, mas qualquer problema basta dar uma procurada no "Buscar...". Dúvida sanada.

Veja estes tópico: Invasão Programada: http://www.xtibia.com/forum/topic/156691-globalevents-invasao/ Invasão Talkaction: http://www.xtibia.com/forum/topic/211870-invasao-especifica/ Invasão Talkaction[2]: http://www.xtibia.com/forum/topic/135225-talkaction-comando-de-invasao/

Pasta Servidor > Data > Npc > Scripts > Exemplo: ".Gardestrike Trainers" (O clã que você selecionar) Nas configurações terá a task. Exemplo: ["Fist Trainer"] = { task1 = { ["Fist Trainer"] = {{"Graveler", 20}, {"Onix", 20}, {"Clefable", 25}}, }, task2 = { ["Fist Trainer"] = {{"Golem", 20}, {"Jynx", 20}, {"Kangaskhan", 25}}, }, itens = {{12173, 20}, {12179, 5}, {12192, 10}}, poke = "Primeape", level = 90, prevRank = 1, nextRank = 2, }, Já tentou modificar esses números?

Esqueci que pda 1.9 não tem onPokeHealthChance :x Tente esse: function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "Sorry, not possible") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "Sorry, not possible") end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Sorry, not possible") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) if useOTClient then end return true end end return true end

Para fazer adaptação SEM ERROS de level system, é muito trabalho! Até mesmo para um cara que já saiba um tanto sobre o assunto levaria semanas... Até o momento em pesquisas que fiz a tempos não achei nenhum resultado quanto a adição desse sistema. Mas convenhamos que será muito mais vantajoso você re-fazer tudo no level system do que ficar procurando 1 agulha no palheiro. Esta é a dica. Atenciosamente, Stigal.

Pasta Servidor > Data > XML > stages.xml (Abra como bloco de notas) Terá um conteúdo mais ou menos assim: <?xml version="1.0" encoding="UTF-8"?> <stages> <world id="10" multiplier="0"> <stage minlevel="1" maxlevel="50" multiplier="8"/> <stage minlevel="51" maxlevel="75" multiplier="6"/> <stage minlevel="76" maxlevel="100" multiplier="4"/> <stage minlevel="101" maxlevel="120" multiplier="2"/> <stage minlevel="121" maxlevel="149" multiplier="1.5"/> <stage minlevel="150" multiplier="1"/> </world> </stages> - - AVISO: Por ser POKEMON, provavelmente não ira afetar essa modificação. Então veja este tópico: http://www.xtibia.com/forum/topic/197766-pda-exp-reduzida-em-determinado-level Lá o Slicer passa um método de fazer isso. - - Atenciosamente, Stigal.

Veja este tutorial: http://www.xtibia.com/forum/topic/158900-criando-novos-id-de-items-e-corpses/ Atenciosamente, Stigal.

Tente esse: function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "Sorry, not possible") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "Sorry, not possible") end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Sorry, not possible") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) if useOTClient then onPokeHealthChange(cid) end return true end end return true end Atenciosamente, Stigal.

Tente isso jovem. Medicine: function onUse(cid, item, frompos, item2, topos) if not isSummon(item2.uid) then return doPlayerSendCancel(cid, "This potion can only be used on pokémons.") end if getCreatureMaster(item2.uid) ~= cid then return doPlayerSendCancel(cid, "You can only use it in your own pokemon.") end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") end local pokeball = getPlayerSlotItem(cid, 8) doCureBallStatus(pokeball.uid, "all") doCureStatus(item2.uid, "all", false) if (getCreatureCondition(item2.uid, CONDITION_PARALYZE) == true) then doRemoveCondition(item2.uid, CONDITION_PARALYZE) end if getCreatureSpeed(item2.uid) < getSpeed(item2.uid) then doRegainSpeed(item2.uid) end doSendMagicEffect(getThingPos(item2.uid), 14) doRemoveItem(item.uid, 1) return true end Revive: function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "Sorry, not possible") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "Sorry, not possible") end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Sorry, not possible") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) if useOTClient then onPokeHealthChange(cid) end return true end end return true end Atenciosamente, Stigal.

Creio eu que esse script ainda funcione: http://www.xtibia.com/forum/topic/115435-creatureevents-anunciador-de-quem-mata-e-quem-morre/

Peço que antes de criar um tópico tente utilizar a ferramenta "Buscar..." que está muito bem visível no topo do fórum. Tópicos que poderão lhe ajudar: 1- http://www.xtibia.com/forum/topic/169658-pokemon-adicionando-novos-items/ 2- http://www.xtibia.com/forum/topic/183917-tutorial-otb-item-editor/ 3- http://www.xtibia.com/forum/topic/137376-criar-um-item-com-id-propria-usando-o-item-editor/ 4- http://www.xtibia.com/forum/topic/158900-criando-novos-id-de-items-e-corpses/ Atenciosamente, Stigal.

Presta atenção, não sou de repetir. Não é a BASE que faz o servidor e sim a equipe, não adianta de nada você ter uma SUPER BASE e uma equipe ruim, entendendo isso você estará pronto para TENTAR ter 1 servidor. "Não quero base PDA", Então pegue uma base de 2012 ou 2013 mal feita mas com SOURCE e faça por si mesmo. *Exemplo: http://www.xtibia.com/forum/topic/222270-pokemon-online-x-com-sources/ Ou que você pode achar aqui: http://www.xtibia.com/forum/forum/768-downloads-de-servidores-derivados Não existe servidor perfeito disponível, e os que tem são base PDA pelo menos uma maioria esmagadora. Então pare de esperar coisas vir do céu! Se Não te agrada, faça você mesmo sua base. Atenciosamente, Stigal.

Caro administrador Alex, venho pedir que re-adicionem minhas medalhas. Com meu banimento as medalhas foram retiradas de alguma maneira, como retornei gostaria delas de volta Eu tinha: Membro (400 Post) / Membro honorário (Mérito). Se possível é claro... acho que o que já fiz pela comunidade é muito maior do que o erro que cometi. Atenciosamente, Stigal.