Skytew

Qual o problema de ser PDA? De longe dá pau em muitos open sources por aí.

Corrigido... apague tudo do respaw.lua e cole isso
local shinys = { "Venusaur", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", "Kingler", "Cubone", "Horsea", "Seadra", "Weezing", "Scyther", "Pinsir", "Crobat", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode"} local raros = {"Dragonair", "Dratini", "Giant Magikarp", "Gyarados", "Magmortar", "Electivire", "Salamence", "Mantine"} local function ShinyName(cid) if isCreature(cid) then if string.find(tostring(getCreatureName(cid)), "Shiny") then local newName = tostring(getCreatureName(cid)):match("Shiny (.*)") doCreatureSetNick(cid, newName) if isMonster(cid) then doSetCreatureDropLoot(cid, false) end end end end local function doSetRandomGender(cid) if not isCreature(cid) then return true end if isSummon(cid) then return true end local gender = 0 local name = getCreatureName(cid) if not newpokedex[name] then return true end local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 500 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 500) <= rate then gender = 4 else gender = 3 end doCreatureSetSkullType(cid, gender) end local function doShiny(cid) if isCreature(cid) then if isSummon(cid) then return true end if getPlayerStorageValue(cid, 74469) >= 1 then return true end if getPlayerStorageValue(cid, 22546) >= 1 then return true end if isNpcSummon(cid) then return true end if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9 if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/ chance = 2.0 --1% chance elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !! chance = 1 --1% chance else return true end if math.random(1, 500) <= chance*10 then doSendMagicEffect(getThingPos(cid), 18) local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid) doRemoveCreature(cid) local shi = doCreateMonster(name, pos, false) setPlayerStorageValue(shi, 74469, 1) else setPlayerStorageValue(cid, 74469, 1) end --/\ else return true end end function onSpawn(cid) registerCreatureEvent(cid, "Experience") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "DirectionSystem") registerCreatureEvent(cid, "CastSystem") if isSummon(cid) then registerCreatureEvent(cid, "SummonDeath") return true end addEvent(doShiny, 10, cid) addEvent(ShinyName, 15, cid) addEvent(adjustWildPoke, 5, cid) return true end  
Vou ser sincero... a galera amadora se ferra na hora de criar o server e quer vir encher o saco, existem uma quantidade absurda de servidores postados com as mesmas tollagens mais cabe a quem baixo e esta desenvolvendo procurar eliminar e corrigir tais problemas... se vc usa algo como base não sai colocando on antes de verificar as coisas mais simples...
O cara teve a boa vontade de postar o server... parem de reclamar e querer tudo na mão

ai ja não sei cria um topico em client markting, perguntando, se tiver sorte em 10 anos eles respondem.

se alguem de vocês souber algum tutorial, ou saber adicionar novos pokes, e querer me ensinar eu lanço "talvez" uma v2 do pyrus com phenac terminada

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 msg = string.lower(msg) --------- local cfsto = { stoPr = 91230, -- storage pra ele ir fala com o npc e volta !! stoCo = 91231, -- storage q ele falou com a npc tudo certo StoM = 91232, -- sto pra prox missão stoAdd = 91233, -- sto q o npc de ceru deu pra ele q confirmo a msg } local storage = 91250 -- sto da quest completada inteira -- \/ storages da missão 2 local stoTwo = { sto1 = 91234, -- storage pra poder fala com ash sto2 = 91235, -- storage q diz q ele falou com ash sto3 = 91236, -- storage dada pra ele pode pega o clan no pvp } if (msgcontains(msg, 'info') or msgcontains(msg, 'information')) then if getPlayerStorageValue(cid, storage) >= 1 then selfSay("I do not need your help anymore.", cid) return true end end selfSay("Hello, I'm Bill, I like to know everything about pokemon, I'm needing some help to complete my research over pokemon, want to help me?", cid) return true talkState[talkUser] = 1 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 1 then selfSay("Okay, I need you to send a message to a friend of mine, she is in cerulean, she call me for a great event pokemons of waterborne more as I am very busy with my research of all Pokemon, I can not go, you can go there telling her that I will not go?", cid) talkState[talkUser] = 2 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'ok')) and talkState[talkUser] == 2 then selfSay("Ok, I'll be waiting for you here.", cid) setPlayerStorageValue(cid, cfsto.stoPr, 1) talkState[talkUser] = 3 elseif (msgcontains(msg, 'talk') or msgcontains(msg, 'complete')) and talkState[talkUser] == 3 then selfSay("You said what i asked?", cid) talkSta[talkUser] = 4 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 4 then if getPlayerStorageValue(cid, cfsto.stoAdd) >= 1 then selfSay("Sorry, you did not do what I asked you needed.", cid) return true end selfSay("Very good, I am very grateful for helping me with this help I managed to finish my research and can find the formula of gvhd your pokemon stronger, I adptei this as the name of clan, you want to know more about this story?", cid) setPlayerStorageValue(cid, cfsto.StoM, 1) talkState[talkUser] = 5 --------------------- 1 * missão /\ ----- --\\-- --- 2 * missão \/ ---- elseif (msgcontains(msg, 'missao') or msgcontains(msg, 'help')) and talkState[talkUser] == 1 then if getPlayerStorageValue(cid, cfsto.stoM) <= 1 then selfSay("Sorry, you even helped me in the first mission!.", cid) return true end selfSay("I see a lot of interest on their part, need you Fasse me another favor, this interested?", cid) talkState[talkUser] = 2 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 2 then selfSay("Ok, I'm already almost done my research officer clans, intão I need you to talk to ash he will speak to the attribute needed to finalize the clan, can you bring me this Feedback from the ash?", cid) talkState[talkUser] = 3 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 2 then selfSay("Ok, I hope you do not make me wait too long.", cid) setPlayerStorageValue(cid, stoTwo.sto1, 1) talkState[talkUser] = 3 ---- \/ entregando a missão elseif (msgcontains(msg, 'help') or msgcontains(msg, 'help')) and talkState[talkUser] == 1 then if getPlayerStorageValue(cid, stoTwo.sto2) <= 1 then selfSay("Sorry, you even helped me in the msg mission.", cid) return true end selfSay("Our really good, I believe you are the best, when you are level 80 you can tonarsse a clan! thank you.", cid) setPlayerStorageValue(cid, storage, 1)