Ah, entendi mal xD.
Busca en el editor en PokemonField:

def Kernel.pbReceiveItem(item)
itemname=PBItems.getName(item)
if $ItemData[item][ITEMUSE]==3 || $ItemData[item][ITEMUSE]==4
Kernel.pbMessage(_INTL("\\se[]Obtained {2}!\\se[itemlevel]\\nIt contained {2}.\\wtnp[30]",$Trainer.name,itemname,PBMoves.getName($ItemData[item][ITEMMACHINE])))
else
Kernel.pbMessage(_INTL("\\se[]Obtained {2}!\\se[itemlevel]\\wtnp[30]",$Trainer.name,itemname))
end
if $PokemonBag.pbStoreItem(item)
pocket=pbNewPocket(item)
Kernel.pbMessage(_INTL("{1} put the {2}\r\nin the {3} Pocket.",$Trainer.name,itemname,PokemonBag.pocketNames()[pocket]))
return true
else
return false
end
end

Borra eso y en su lugar pones:

def Kernel.pbReceiveItem(item,quantity=1,plural=nil)
itemname=PBItems.getName(item)
pocket=pbNewPocket(item)
if $ItemData[item][ITEMUSE]==3 || $ItemData[item][ITEMUSE]==4
Kernel.pbMessage(_INTL("\\se[]Obtained {1}!\\se[itemlevel]\\nIt contained {2}.\\wtnp[30]",itemname,PBMoves.getName($ItemData[item][ITEMMACHINE])))
elsif quantity>1
if plural
Kernel.pbMessage(_INTL("\\se[]Obtained {1}!\\se[itemlevel]\\wtnp[30]",plural))
else
Kernel.pbMessage(_INTL("\\se[]Obtained {1}s!\\se[itemlevel]\\wtnp[30]",itemname))
end
else
Kernel.pbMessage(_INTL("\\se[]Obtained {1}!\\se[itemlevel]\\wtnp[30]",itemname))
end
if $PokemonBag.pbStoreItem(item,quantity) # If item can be added
if quantity>1
if plural
Kernel.pbMessage(_INTL("{1} put the {2}\r\nin the {3} Pocket.",$Trainer.name,plural,PokemonBag.pocketNames()[pocket]))
else
Kernel.pbMessage(_INTL("{1} put the {2}s\r\nin the {3} Pocket.",$Trainer.name,itemname,PokemonBag.pocketNames()[pocket]))
end
else
Kernel.pbMessage(_INTL("{1} put the {2}\r\nin the {3} Pocket.",$Trainer.name,itemname,PokemonBag.pocketNames()[pocket]))
end
return true
else # Can't add the item
return false
end
end

Y luego en el juego pon:

Kernel.pbReceiveItem(PBItems::POKEBALL,5)

Espero si haberte ayudado ahora.