Bom indo direto ao ponto este macro que trago hoje ele conta os itens que pesca peixes/discos/minérios etc. então vamos ao tutorial
Instalação do macro
Tutorial instalação das labels
Adicionado meio de resetar a contagem atendendo há diversos pedidos
Nota¹: O macro conta todos os minérios exceto lápis-lazuli
Nota²: ele não consegue identificar quando vem 2 itens agrupados contando apenas 1 por isso o inc 5
nos minérios.
Nota³: Ele é para 1.5
Então é isto espero que o macro seja útil.
Se gostou não se esqueça do UP!
Changelog
Instalação do macro
primeiro abra o meno macro e clique na quela seta amarela
Agora clique em onPickUpItem
La escreva $$<item.txt> e clique em Edit File...
Escreva item e clique em Create
Em seguida cole este código
Agora clique em save 2 vezes até voltar há esta tela então clique em onChat
crie outro arquivo .txt dentro do onChat igual nas etapas do onPickuoItem só que com outro nome qualquer e em seguida cole este outro código
clique em salvar em tudo.

Agora clique em onPickUpItem

La escreva $$<item.txt> e clique em Edit File...

Escreva item e clique em Create

Em seguida cole este código
$${IF(%PICKUPID% = 349);inc(@#hue,1);SETLABEL(PE1,"&aPeixes Pegos:&4&o %@#hue%",PE1);endif;}$$|
$${
IF(%PICKUPID% = 266);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
IF(%PICKUPID% = 265);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
IF(%PICKUPID% = 264);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
}$$|
$${
IF(%PICKUPID% = 2256);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2257);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2258);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2259);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2260);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2261);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2262);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2263);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2264);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2265);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2266);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2267);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
}$$
$${
IF(%PICKUPID% = 266);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
IF(%PICKUPID% = 265);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
IF(%PICKUPID% = 264);inc(@#minerios,5);SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);endif;
}$$|
$${
IF(%PICKUPID% = 2256);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2257);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2258);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2259);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2260);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2261);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2262);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2263);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2264);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2265);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2266);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2267);inc(@#discos,1);SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);endif;
}$$
Agora clique em save 2 vezes até voltar há esta tela então clique em onChat

crie outro arquivo .txt dentro do onChat igual nas etapas do onPickuoItem só que com outro nome qualquer e em seguida cole este outro código
$${ifmatches(%CHATCLEAN%,"Tesouro encontrado");inc(@#tesouros,1);SETLABEL(PE4,"&aTesouros Pegos:&4&o %@#tesouros%",PE4);endif;}$$|
clique em salvar em tudo.
Tutorial instalação das labels
agora vamos a instalação das labels para ficar maisoumenos assim
Para quem já sabe instalar label basta instalar de as labels PE1, PE2, PE3, e PE4
para quem não sabe vai um breve tutorial.
Abra o menu do macro e clique em GUI Editor
Agora entre em ingame
agora em Button Panel Commands
Add Label
escolha o primeiro local para por a primeira label
digite PE1 em Control Name e em Binding e clique em ok fassa o mesmo processo adicionando label até PE4
pronto assim que começar há a pescar que o macro ira começar há contar os itens

Para quem já sabe instalar label basta instalar de as labels PE1, PE2, PE3, e PE4
para quem não sabe vai um breve tutorial.
Abra o menu do macro e clique em GUI Editor

Agora entre em ingame

agora em Button Panel Commands

Add Label

escolha o primeiro local para por a primeira label

digite PE1 em Control Name e em Binding e clique em ok fassa o mesmo processo adicionando label até PE4
pronto assim que começar há a pescar que o macro ira começar há contar os itens
Adicionado meio de resetar a contagem atendendo há diversos pedidos
Apenas cole este código em uma tecla qualquer e o execulte
$${
log("&4&oPara resetar &aTesouros Pegos &6digite 1");
log("&4&oPara resetar &aDiscos Pegos &6digite 2");
log("&4&oPara resetar &aMinerios Pegos &6digite 3");
log("&4&oPara resetar &aPeixes Pegos &6digite 4");
log(" ");
prompt(#ria,$$?,Escreva 1.2.3. ou 4 se não quiser proseguir de enter sem nada escrito);
if(%#ria% = 1);
@#tesouros = 0;
SETLABEL(PE4,"&aTesouros Pegos:&4&o %@#tesouros%",PE4);
endif;
if(%#ria% = 2);
@#discos = 0;
SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);
endif;
if(%#ria% = 3);
@#minerios = 0;
SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);
endif;
if(%#ria% = 4);
@#hue = 0;
SETLABEL(PE1,"&aPeixes Pegos:&4&o %@#hue%",PE1);
endif;
}$$
log("&4&oPara resetar &aTesouros Pegos &6digite 1");
log("&4&oPara resetar &aDiscos Pegos &6digite 2");
log("&4&oPara resetar &aMinerios Pegos &6digite 3");
log("&4&oPara resetar &aPeixes Pegos &6digite 4");
log(" ");
prompt(#ria,$$?,Escreva 1.2.3. ou 4 se não quiser proseguir de enter sem nada escrito);
if(%#ria% = 1);
@#tesouros = 0;
SETLABEL(PE4,"&aTesouros Pegos:&4&o %@#tesouros%",PE4);
endif;
if(%#ria% = 2);
@#discos = 0;
SETLABEL(PE3,"&aDiscos Pegos:&4&o %@#discos%",PE3);
endif;
if(%#ria% = 3);
@#minerios = 0;
SETLABEL(PE2,"&aMinerios Pegos:&4&o %@#minerios%",PE2);
endif;
if(%#ria% = 4);
@#hue = 0;
SETLABEL(PE1,"&aPeixes Pegos:&4&o %@#hue%",PE1);
endif;
}$$
Nota²: ele não consegue identificar quando vem 2 itens agrupados contando apenas 1 por isso o inc 5
nos minérios.
Nota³: Ele é para 1.5
Então é isto espero que o macro seja útil.
Se gostou não se esqueça do UP!

Changelog
Macro postado 24/06/2014
29/06/2014 - adicionado meio de resetar
29/06/2014 - adicionado meio de resetar