New Balls Pod

esclarece melhor o tutorial, fiz igual ao que vc explicou e não deu isso que sube compreender, os novato n irão entender nada.

Man meu primeiro tutorial e como disse novato em script axo que nao consegue pq tem que arrumar mta coisa.

Qualquer dia desses ponho umas SS.

q mapa editor vc usa ?

Otimo Tutorial, concerteza vai ajudar muita gente que gostaria de add novas Poke ball's.

@up Valeu aew

@morreuquepena uso RME.

Bem quem nao conseguir por mande os scripts pra mim que eu faço.

Você esqueceu de add no tutorial que tem modificar o go/back do creaturescripts tambem.

ou pode me dizer o que há de errado aqui??? olha só

data/Actions.xml

<action itemid="3777" event="script" value="roupas.lua"/>
<action itemid="2220;2221;2222;2223;105;107" event="script" value="goback.lua"/>
<action itemid="2224;2227;110" event="script" value="fainted.lua"/>
<action itemid="2147;2146;102" event="script" value="catch.lua"/>
<action itemid="2550" event="script" value="order.lua" allowfaruse="1"/>
<action itemid="3896;3897;3867;3868" event="script" value="roupas.lua"/>
<action itemid="2276;2277;2278;2279;2280;2281;2283;2284;2285;2286;2287;2288;2289;2290" event="script" value="evolution.lua" allowfaruse="1"/>

data/actions/catch.lua

elseif item.itemid == 102 then
catchrate = 20
oncatch = 198
onfail = 197
bolabola = 105

data/actions/goback.xml

if item.itemid == 2222 or item.itemid == 2223 then
gobackeff = 10
elseif item.itemid == 2220 or item.itemid == 2221 then
gobackeff = 191
elseif item.itemid == 105 or item.itemid == 107 then
gobackeff = 193
end
local effect = gobackeff

if item.itemid == 2223 or item.itemid == 2221 or item.itemid == 107 then


elseif item.itemid == 2222 or item.itemid == 2220 or item.itemid == 105 then

data/creaturescript/login.lua

if getPlayerItemCount(cid, greatpokeout) >= 1 and getPlayerStorageValue(cid, 61207) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 63215) <= 0 then
local item = getPlayerItemById(cid, TRUE, greatpokeout)
doTransformItem(item.uid, greatpokein)
doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke") .. " HP = ["..getPlayerStorageValue(cid, 61205).."/"..getPlayerStorageValue(cid, 61206).."]")
end

data/creaturescript/goback.lua

if getPlayerSlotItem(owner, 8).itemid == 2220 or getPlayerSlotItem(owner, 8).itemid == 2221 then
doSendMagicEffect(getCreaturePosition(cid), 191)
elseif getPlayerSlotItem(owner, 8).itemid == 2222 or getPlayerSlotItem(owner, 8).itemid == 2223 then
doSendMagicEffect(getCreaturePosition(cid), 10)
elseif getPlayerSlotItem(owner, 8).itemid == 105 or getPlayerSlotItem(owner, 8).itemid == 107 then
doSendMagicEffect(getCreaturePosition(cid), 193)
end
doPlayerSendTextMessage(owner, 22, "Your pokemon fainted.")
if getPlayerSlotItem(owner, 8).itemid == 2220 or getPlayerSlotItem(owner, 8).itemid == 2221 then
doTransformItem(getPlayerSlotItem(owner, 8).uid, 2227)
elseif getPlayerSlotItem(owner, 8).itemid == 2222 or getPlayerSlotItem(owner, 8).itemid == 2223 then
doTransformItem(getPlayerSlotItem(owner, 8).uid, 2224)
elseif getPlayerSlotItem(owner, 8).itemid == 105 or getPlayerSlotItem(owner, 8).itemid == 107 then
doTransformItem(getPlayerSlotItem(owner, 8).uid, 110)
end

data/lib/poklib.lua

pokein, pokeout = 2222,2223
pokeinultra, pokeoutultra = 2220, 2221
pokeingreat, pokeoutgreat = 105, 107



function doRemoveTile(pos)-- Script by mock 
   pos.stackpos = 0 
   local sqm = getTileThingByPos(pos) 
   doRemoveItem(sqm.uid,1) 
end 


function doCreateTile(id,pos) -- By mock 
   doAreaCombatHealth(0,0,pos,0,0,0,CONST_ME_NONE) 
   doCreateItem(id,1,pos) 
end 

function getPosDirs(p, dir) -- By MatheusMkalo 
   return dir == 1 and {x=p.x-1, y=p.y, z=p.z} or dir == 2 and {x=p.x-1, y=p.y+1, z=p.z} or dir == 3 and {x=p.x, y=p.y+1, z=p.z} or dir == 4 and {x=p.x+1, y=p.y+1, z=p.z} or dir == 5 and {x=p.x+1, y=p.y, z=p.z} or dir == 6 and {x=p.x+1, y=p.y-1, z=p.z} or dir == 7 and {x=p.x, y=p.y-1, z=p.z} or dir == 8 and {x=p.x-1, y=p.y-1, z=p.z} 
end 

function doItem(pos,a,d)-- Script by mock 
       doCreateTile(460,pos) 
       pos.stackpos = 0 
       local c = getTileThingByPos(pos) 
       doItemSetAttribute(c.uid, "aid", a) 
end 

function getDescription(uid) 
   for i,x in pairs(getItemDescriptions(uid)) do 
       if i == "special" then 
           return x 
       end 
   end 
end 

function findLetter(string, letter) 
   for i = 1, #string do 
       if string:sub(i, i) == letter then 
           return i 
       end 
   end 
end 

function isWalkable(pos, creature, proj, pz)-- by Nord 
   if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end 
   if getTopCreature(pos).uid > 0 and creature then return false end 
   if getTileInfo(pos).protection and pz then return false, true end 
   local n = not proj and 3 or 2 
   for i = 0, 255 do 
       pos.stackpos = i 
       local tile = getTileThingByPos(pos) 
       if tile.itemid ~= 0 and not isCreature(tile.uid) then 
           if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then 
               return false 
           end 
       end 
   end 
   return true 
end 

function getPosDirs(p, dir) 
   return dir == 1 and {x=p.x-1, y=p.y, z=p.z} or dir == 2 and {x=p.x-1, y=p.y+1, z=p.z} or dir == 3 and {x=p.x, y=p.y+1, z=p.z} or dir == 4 and {x=p.x+1, y=p.y+1, z=p.z} or dir == 5 and {x=p.x+1, y=p.y, z=p.z} or dir == 6 and {x=p.x+1, y=p.y-1, z=p.z} or dir == 7 and {x=p.x, y=p.y-1, z=p.z} or dir == 8 and {x=p.x-1, y=p.y-1, z=p.z} 
end 

function canSummon(cid) 
   local pos = getCreaturePosition(cid) 
   local state = false 
   for i = 1, 8 do 
       if isWalkable(getPosDirs(getCreaturePosition(cid), i)) then 
           state = true 
       end 
   end 
return state 
end 

function isPlayerSummon(cid, uid) 
   if getCreatureMaster(uid) == cid then 
       return TRUE 
   end 
return FALSE 
end 

function getSummonLifes(cid) 
   for _,x in pairs(getCreatureSummons(cid)) do 
       return getCreatureHealth(x), getCreatureMaxHealth(x) 
   end 
end 

function getItemsInContainerById(container, itemid) -- Function By Kydrai 
   local items = {} 
   if isContainer(container) and getContainerSize(container) > 0 then 
       for slot=0, (getContainerSize(container)-1) do 
           local item = getContainerItem(container, slot) 
           if isContainer(item.uid) then 
               local itemsbag = getItemsInContainerById(item.uid, itemid) 
               for i=0, #itemsbag do 
                   table.insert(items, itemsbag[i]) 
               end 
           else 
               if itemid == item.itemid then 
                   table.insert(items, item.uid) 
               end 
           end 
       end 
   end 
   return items 
end 

function addPokeball(cid, pokename, maxh) 
   local s = doPlayerAddItem(cid, pokein)
   local s = doPlayerAddItem(cid, pokeinultra)
   local s = doPlayerAddItem(cid, pokeingreat)
   doItemSetAttribute(s, "poke", "This is "..pokename.."'s pokeball. HP = ["..maxh.."/"..maxh.."]") 
   doItemSetAttribute(s, "name", "" .. pokename .. " Poke Ball") 
end 

function getPokeOutLive(cid) 
   dat = {} 
   for slot = CONST_SLOT_FIRST, CONST_SLOT_LAST do 
       local item = getPlayerSlotItem(cid, slot) 
       if isContainer(item.uid) then 
           local items = getItemsInContainerById(item.uid, pokeout)
           local items = getItemsInContainerById(item.uid, pokeoutgreat)
           local items = getItemsInContainerById(item.uid, pokeoutultra)
           for _, ui in pairs(items) do 
               if getItemAttribute(ui, "poke"):sub(#getItemAttribute(ui, "poke")) == "." then 
                   table.insert(dat, ui) 
               end   
           end 
      end 

      if item.itemid == pokeout then
           if getItemAttribute(item.uid, "poke"):sub(#getItemAttribute(item.uid, "poke")) == "." then 
           table.insert(dat, item.uid)

      end
      end

      if item.itemid == pokeoutultra then
           if getItemAttribute(item.uid, "poke"):sub(#getItemAttribute(item.uid, "poke")) == "." then 
           table.insert(dat, item.uid)    
      end
      end
      if item.itemid == pokeoutgreat then
           if getItemAttribute(item.uid, "poke"):sub(#getItemAttribute(item.uid, "poke")) == "." then 
           table.insert(dat, item.uid)
      end
      end
      end
   return dat 
end

ta ai só faltou a nuser mais nela n tem como ta errado

Tem que modificar no portrait tambem para ele aceitar as novas poke ball's se não vc n consegue coloca-las no slot.

Malz nao tava podendo entra agora to de volta '-'

Galea me add no msn quem nao consegui que tento ajuda e @BielLokS valeu ja vo por

Axei que tinha posto '-' e se nao po la o script nem funfa porcausa na hora do poke morrer.

Ja estarei atualizando.

Tutorial legal =) deu pra eu aprimorar o meu script de novas pokebolas /o/

@up

Hehe gosto? Rep+ aew

Talvez ponha com fotos mais to trabalhando no meu projeto

dai fika dificil '-'

T+ duvidas poste aki.

Vlw ae , me ajudou muito ficou massa no meu sv ^^

Rep+!

@up

Denada qualquer duvida so posta que ajudo.

po fiz tudo que vc fez...na hora de soltar o pokemon da nova ball,ao invez de sair o pokemon,sai um efeito de como se fosse tacando uma pokebola!!! uso pokemon dash tb...como arrumo isso?