thalia

^^

LaisDosOts é isso ai ^^ Muito Obrigado, não tenho mto tempo pra fica aqui no topico xd

Muitoo bom script Draky *-* Posta um video demonstrando ae REP++

mauxinho . O sistema é assim '-' qndo vc evolui o pokemon, muda a pokeball presta mais atenção ;*

=] Agradeço sua preferencia ;~ rs! se você for analisar bem, não é dificil ;D

valeeu suja =D então.. eu não sei se posto o sistema de portait é exclusivo pra mim *-*

Ve meus SCRIPTS pode te ajudar

Base do evolution system do Kydrai ;~ ~~> Crie um arquivo com o nome de stones.lua em actions/sctips e cole isso dentro: local evo = { ["Pidgey"] = "Pidgeotto", -- Pidgey Evolui para Pidgeotto ["Pidgeotto"] = "Pidgeot", -- Pidgeotto evolui para pidgeot } function onUse(cid, item, fromPosition, itemEx, toPosition) if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then local monster = getCreatureName(itemEx.uid) if evo[monster] then local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid) doRemoveCreature(itemEx.uid) doRemoveItem(item.uid) local summon = doCreateMonster(evo[monster], toPosition) doConvinceCreature(cid, summon) doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "name", ""..evo[monster].." Pokeball") doCreatureAddHealth(summon, health-maxHealth) doSendMagicEffect(getThingPos(summon), 18) doPlayerSendTextMessage(cid, 27, "Your "..monster.." evolued to a "..evo[monster]..", Congratulations.") doSendMagicEffect(getThingPos(cid), 28) else doPlayerSendCancel(cid, 'Pokemon not allowed.') doSendMagicEffect(getThingPos(cid), 2) return TRUE end end return FALSE end ~~> Em Actions.xml add: xxxx - ID da stone. OBS: o item tem que ser usable , traduzindo : tem que ter a opção Use With... GOSTOU? REP++ *-*

UAL Bom script =D Continue assim sz' oskopdkop rep

Isso ai Lolboss ^^

Pow, mt booom gostei REP++

Eu testei , funfo 100% E meu amigos tbm testo ;*

Valeeu gente =D Proximo script eu acho que vai ser o portait

Bom galera, é um sistema de go/back, catch , NPC heal Meu sistema de ride funciona 100% com esse script do go/back... -- GO/BACK-- ~~> Crie um arquivo goback.lua em action/scripts e cole isso dentro: function onUse(cid, item, fromPosition, itemEx, toPosition) function getPokemonMaxLife(name) local file = io.open('data/monster/monsters.xml','r') local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>') file:close() local data = io.open('data/monster/'..(arquivo or ''),'r') if not data then return 100 end local maximo = data:read(-1):match('max%s*=%s*"(%d+)"') data:close() return maximo end ----- Config ----- local MaximoSummon = 1 local nome1 = getItemName(item.uid) local nome = nome1:match('(.-) Pokeball') local summons = getCreatureSummons(cid) local action_id = getItemAttribute(item.uid, "aid") ------ Config ----- local summons = getCreatureSummons(cid) if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then doPlayerSendCancel(cid, "Coloque no slot certo!.") return TRUE end if getItemAttribute(item.uid,"level") >= getPlayerLevel(cid) then doPlayerSendCancel(cid, "You dont have level to use.") return TRUE end if(table.maxn(summons) < MaximoSummon) then -- no summons creature = doSummonCreature(nome, getCreaturePosition(cid)) doConvinceCreature(cid, creature) local hp = getCreatureHealth(getCreatureSummons(cid)[1]) doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"aid",hp) doPlayerSay(cid, "Go,"..nome.."", TALKTYPE_SAY) registerCreatureEvent(cid, "PlayerPokeDeath") registerCreatureEvent(creature, "DiePoke") doSendMagicEffect(getCreaturePosition(creature), 188) doTransformItem(getPlayerSlotItem(cid,8).uid, 2531, 1) doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name",""..nome.." Pokeball") if action_id ~= 0 then doCreatureAddHealth(creature, -(tonumber(getPokemonMaxLife(nome) - action_id))) else doCreatureAddHealth(creature, getPokemonMaxLife(nome)) end else for _, pid in ipairs(summons) do if (table.maxn(summons) >= 1) then doItemSetAttribute(item.uid, "aid", getCreatureHealth(summons[1])) doSendMagicEffect(getCreaturePosition(creature), 188) doPlayerSay(cid, "Back,"..nome.."", TALKTYPE_SAY) doRemoveCreature(pid) doTransformItem(getPlayerSlotItem(cid,8).uid, 2532, 1) doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name", nome .." Pokeball") end end end return true end ~~> Em actions.xml add: <action itemid="2520" event="script" value="goback.lua"/> <action itemid="2531" event="script" value="goback.lua"/> <action itemid="2532" event="script" value="goback.lua"/> ~~> Em itens.xml procure por: <item id="2531" article="a" name="viking shield"> <attribute key="weight" value="6600"/> <attribute key="defense" value="22"/> <attribute key="weaponType" value="shield"/> </item> E substitui por : <item id="2531" article="a" name="Pokeball 1"> <attribute key="slotType" value="feet" /> </item> Agora procure por : <item id="2532" article="an" name="ancient shield"> <attribute key="weight" value="6100"/> <attribute key="defense" value="27"/> <attribute key="weaponType" value="shield"/> </item> E substitui por: <item id="2532" article="a" name="Pokeball 2"> <attribute key="slotType" value="feet" /> </item> Agora procure por : <item id="2520" article="a" name="demon shield"> <attribute key="description" value="This powerful shield seems to be as light as air."/> <attribute key="weight" value="2600"/> <attribute key="defense" value="35"/> <attribute key="weaponType" value="shield"/> </item> E substitui por : <item id="2520" article="a" name="Pokeball Goback"> <attribute key="slotType" value="feet" /> </item> Agora procure por : <item id="2535" article="a" name="castle shield"> <attribute key="weight" value="4900"/> <attribute key="defense" value="28"/> <attribute key="weaponType" value="shield"/> </item> E substitiu por: <item id="2535" article="a" name="Die Pokeball"> <attribute key="slotType" value="feet" /> </item> -- CATCH SYSTEM -- ~~>Em actions/script crie um arquivo catch.lua e cole dentro: local function capturou(params) doSendMagicEffect(getCreaturePosition(params.cid), 173) doPlayerSendTextMessage(params.cid, 25, 'Você capturou um pokemon! ('..params.monster..').') item = doCreateItemEx(2520) doItemSetAttribute(item, "name", ""..params.monster.." Pokeball") doItemSetAttribute(item, "aid", params.hp) doItemSetAttribute(item, "level", params.level) doPlayerAddItemEx(params.cid, item, true) end local level = { ['chansey'] = 15, -- level minimo para usar o pokemon ['squirtle'] = 15, -- level minimo para usar o pokemon ['charmander'] = 15, -- level minimo para usar o pokemon } function onUse(cid, item, fromPosition, itemEx, toPosition) local monster = getItemName(itemEx.uid):match("dead (.*)") if not monster then return doPlayerSendCancel(cid, 'Sorry, use only pokemon dead') and doSendMagicEffect(fromPosition, 2) end ball = 2520 local hpmax = 0 if itemEx.itemid == 6008 then if math.random(1,100) >= 1 then doRemoveItem(itemEx.uid) doSendMagicEffect(toPosition, 24) doRemoveItem(item.uid, 1) addEvent(capturou, 4000, {cid = cid, monster = monster, level = level[monster], ball = ball, hp = hpmax}) else doRemoveItem(itemEx.uid) doRemoveItem(item.uid, 1) doSendMagicEffect(toPosition, 23) end elseif itemEx.itemid == 6010 then if math.random(1,100) >= 1 then doRemoveItem(itemEx.uid) doSendMagicEffect(toPosition, 24) doRemoveItem(item.uid, 1) addEvent(capturou, 4000, {cid = cid, monster = monster, level = level[monster], ball = ball, hp = hpmax}) else doRemoveItem(itemEx.uid) doRemoveItem(item.uid, 1) doSendMagicEffect(toPosition, 23) end end return TRUE end ~~Editando o Catch ~~ elseif itemEx.itemid == 6010 then ~>6010 é o id do corpo do pokemon que o script ira tentar capturar. if math.random(1,100) >= 1 then ~>o 1 siginifica que ele tem 1% de chance de não capturar , que tem 99% de chance de captura, se for 10 tem 90%,se 20 tem 80%.... <~~~~~~~~~~> <~~~~~~~~~~> E em actions.xml add isto: <action itemid="xxxx" event="script" allowfaruse="10" value="catch.lua"/> Em xxxx é o numero da pokeball que captura. -- CREATURE SCRIPTS -- ~~> Em creaturescripts/scripts crie um arquivo chamado goback.lua e cole isso dentro: local pokein, pokeout = 2535,2531 function onDeath(cid, deathList) local owner = getCreatureMaster(cid) doPlayerSendTextMessage(owner, 21, "You pokemon died.") local item = getPlayerItemById(owner, TRUE, pokeout) doTransformItem(item.uid, pokein) doRemoveCreature(cid) return FALSE end ~~> Agora na mesma pasta crie outro arquivo chamado morrer.lua e cole isso dentro: local pokein, pokeout = 2532,2531 function getSummonLifes(cid) for _,x in pairs(getCreatureSummons(cid)) do return getCreatureHealth(x), getCreatureMaxHealth(x) end end function onDeath(cid) local health,maxhealth = getSummonLifes(cid) if #getCreatureSummons(cid) >= 1 then setPlayerStorageValue(cid, 61205, health) setPlayerStorageValue(cid, 61206, maxhealth) setPlayerStorageValue(cid, 61204, 0) setPlayerStorageValue(cid, 61207, 1) end if getPlayerStorageValue(cid, 63215) >= 1 then setPlayerStorageValue(cid, 61205, getPlayerStorageValue(cid, 61210)) setPlayerStorageValue(cid, 61206, getPlayerStorageValue(cid, 61209)) setPlayerStorageValue(cid, 61204, 0) setPlayerStorageValue(cid, 61207, 1) end return TRUE end Em creaturescripts.xml add isto: <event type="death" name="PlayerPokeDeath" event="script" value="morrer.lua"/> <event type="death" name="DiePoke" event="script" value="goback.lua"/> --NPC HEALER-- Em npc/scripts crie um arquivo chamado heal.lua e cole isso: local focus = 0 local talk_start = 0 local target = 0 local following = false local attacking = false dofile("data/actions/scripts/reviver.lua") function onThingMove(creature, thing, oldpos, oldstackpos, item, itemEx) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end end function getPokemonMaxLife(name) local file = io.open('data/monster/monsters.xml','r') local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>') file:close() local data = io.open('data/monster/'..(arquivo or ''),'r') if not data then return 100 end local maximo = data:read(-1):match('max%s*=%s*"(%d+)"') data:close() return maximo end function onCreatureTurn(creature) end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) msg = string.lower(msg) if (msgcontains(msg, 'hi') and focus == 0) and getDistanceToCreature(cid) < 4 then local idballs = { [2535] = {"Pokeball"}, [2531] = {"Pokeball"}, [2532] = {"Pokeball"}, } local balls = idballs[getPlayerSlotItem(cid,8).itemid] if #getCreatureSummons(cid) >= 1 then return selfSay('Voce precisa botar seus pokemons dentro da pokebola.', cid) end if balls == nill then return selfSay('Coloque seu pokemon slot da Pokeball para ele ser curado!!') end if balls ~= nill then local nome = getItemName(getPlayerSlotItem(cid,8).uid) local poke_name = nome:match('(.-) Pokeball') doItemSetAttribute(getPlayerSlotItem(cid,8).uid, "aid", getPokemonMaxLife(poke_name)) if getPlayerStorageValue(cid, 5555) == 0 then setPlayerStorageValue(cid, 5555, 1) end local hp = getCreatureMaxHealth(cid) doCreatureAddHealth(cid, hp) selfSay('Você e seu pokemon estão curados!!') elseif focus == cid then talk_start = os.clock() if msgcontains(msg, 'healing') then end elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then selfSay('Volte Sempre,') focus = 0 talk_start = 0 end end end function onCreatureChangeOutfit(creature) end function onThink() if (os.clock() - talk_start) > 20 then if focus > 0 then end focus = 0 end if focus ~= 0 then if getDistanceToCreature(focus) > 5 then selfSay('Bye.') focus = 0 end end end E no em npc crie um arquivo chamado heal.xml e cole isto dentro: <?xml version="1.0" encoding="UTF-8"?> <npc name="Heal" script="data/npc/scripts/heal.lua" access="3" floorchange="0" walkinterval="0"> <mana now="800" max="800"/> <health now="200" max="200"/> <look type="180" head="78" body="113" legs="114" feet="0"/> </npc> AAh, já ia me esquecendo, volte em actions/scripts crie um arquivo chamado reviver.lua e cole isso dentro: function onUse(cid, item, fromPosition, itemEx, toPosition) function getPokemonMaxLife(name) local file = io.open('data/monster/monsters.xml','r') local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>') file:close() local data = io.open('data/monster/'..(arquivo or ''),'r') if not data then return 100 end local maximo = data:read(-1):match('max%s*=%s*"(%d+)"') data:close() return maximo end ----- Config ----- local MaximoSummon = 1 local nome = getItemName(item.uid) local poke_name = nome:match('(.-) Pokeball') local summons = getCreatureSummons(cid) local action_id = getItemAttribute(item.uid, "aid") ----- Config ----- local summons = getCreatureSummons(cid) if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then doPlayerSendCancel(cid, "Sorry, you must put your pokeball in the right place.") return TRUE end if getPlayerStorageValue(cid, 5555) == 1 then setPlayerStorageValue(cid, 5555, 0) doTransformItem(item.uid, 2531) doItemSetAttribute(item.uid, "aid", getPokemonMaxLife(poke_name)) else doPlayerSendCancel(cid, "You poke are Dead.") end return true end E no actions.xml add isto: <action itemid="2535" event="script" value="reviver.lua"/> -------> FIM <------- Dúvidas ? Poste Aqui =D

Era pra funcionar '-' Sua pokeball fica no slot da bota?

Você faz a quest, e o npc te dá EXPERIENCE =D ~> Em actions.xml add: <action actionid="8001" event="script" value="alburk.lua"/> No mapa, crie uma chest quest, ou qualquer outro item e de propriedades e em Action id coloque 8001 ~> Em acions/scripts: Crie um arquivo chamado alburk.lua e cole isso dentro: function onUse(cid, item, fromPosition, itemEx, toPosition) lvl = 100 -- level para o player fazer a quest if getPlayerLevel(cid) <= lvl then return doPlayerSendCancel(cid, 'Apenas level 100 ou mais pode fazer a quest') end if getPlayerStorageValue(cid,8001) == 5 then doPlayerSendCancel(cid, 'Você ja fez essa quest') doSendMagicEffect(getCreaturePosition(cid), 2) return true end doPlayerSendTextMessage(cid, 25, 'Você terminou a quest, para receber seu presente fale com Alburk.') doSendMagicEffect(getCreaturePosition(cid), 28) setPlayerStorageValue(cid,8001,0) setPlayerStorageValue(cid,8001,5) end ~> Em data/npc crie um arquivo chamado alburk.xml e cole dentro: <?xml version="1.0" encoding="UTF-8"?> <npc name="Alburk" script="data/npc/scripts/alburk.lua" access="3" floorchange="0" walkinterval="0"> <mana now="800" max="800"/> <health now="200" max="200"/> <look type="180" head="78" body="113" legs="114" feet="0"/> </npc> ~> Em npc/scripts crie um arquivo chamado alburk.lua e cole dentro: local focus = 0 local talk_start = 0 local target = 0 local following = false local attacking = false function onThingMove(creature, thing, oldpos, oldstackpos, item, itemEx) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end end function onCreatureTurn(creature) end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) msg = string.lower(msg) if (msgcontains(msg, 'hi') and focus == 0) and getDistanceToCreature(cid) < 4 then if getPlayerStorageValue(cid, 8001) == 5 then return selfSay('Você ja recebeu seu presente.') end setPlayerStorageValue(cid,8001,7) selfSay('Você deseja receber seu presente?') focus = cid talk_start = os.clock() elseif focus == cid then talk_start = os.clock() if msgcontains(msg, 'yes') then if getPlayerStorageValue(cid, 8001) == 2 then return selfSay('Você ja recebeu seu presente!!.') end if getPlayerStorageValue(cid, 8001) == 7 then return selfSay('Para receber seu presente você precisa terminar a quest!!.') end doPlayerAddExp(cid, 15330000) -- 15330000 é a experience que o player irá ganhar! selfSay('Você foi presentiado com experience!!.') setPlayerStorageValue(cid,8001,2) setPlayerStorageValue(cid,8001,5) focus = 0 talk_start = 0 end elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then selfSay('Tchau!') focus = 0 talk_start = 0 end end function onCreatureChangeOutfit(creature) end function onThink() if (os.clock() - talk_start) > 30 then if focus > 0 then selfSay('Bye.') end focus = 0 end if focus ~= 0 then if getDistanceToCreature(focus) > 5 then selfSay('Bye.') focus = 0 end end end Explicando : Você terá que fazer uma quest, Ao fazer a quest você deverá falar com o NPC para ele te dar EXPERIENCE. Para configurar a experience ganha, edite essa parte no NPC: doPlayerAddExp(cid, 15330000) 15330000 é o tanto de experience que o player ira ganhar. =D ~~~> Gostou? Foi Util ? Então comente (: <~~~

Boa draky sempre salvando minha vida

Boa

Pro script funfa, Sua pokeball tem que ter o seguinte nome: Tauros Pokeball

Bom, é um script que quando você dá use em um item sua life volta ao maximo, ~> Crie um arquivo em action/script, crie um arquivo chamado lifemana.lua e cole isso dentro : function onUse(cid, item, fromPosition, itemEx, toPosition) local hp = getCreatureMaxHealth(cid) local mana = getCreatureMaxMana(cid) doCreatureAddHealth(cid, hp) doCreatureAddMana(cid, mana) doSendMagicEffect(getCreaturePosition(cid), 13) doSendAnimatedText(getCreaturePosition(cid), "Ahhhh...", 25) return TRUE end ~> Em action.xml add essa tag: <action itemid="xxxx" script="lifemana.lua" allowfaruse="1"/> Explicando: Vermelho : ID do item que sera usadado para recuperar sua mana e sua vida.

Obrigado LaisDosOts

tem que ver cmo é seu script do go/back .. o nome da sua pokeball teria qe ser tauros Pokeball

sim, falta a lib '-'

Vou fazer um video , explicando ^^

Tipo, voce sumona o tauros, ai vc usa o item .. ai vai remove a criatura, ai vai troca sua outfit pra do tauros com ride... e qndo quiser sair do ride é só usar o item novamente E pode add mais pokemons, só add essas linhas ['Tauros'] = {128, 500}, ['Venusaur'] = {134, 500}, 134 = id da outfit 500 = velocidade