

Sejam todos bem vindos a este Tutorial de Macro.Vamos lá?
Post Editado- Bugs do Texto Retirados
Esta macro tem função de mostrar quantos itens você
Como mostra a imagen a seguir( Diferença entre macro antiga e atual)
Macro Atual:


Primeiramente Queria deixar umas coisas claras!
-Este macro é edição deste macro: Contador de Itens
-Créditos á:
[member='Eduarte']-(Criador do macro na 1° versão)
Obs:
Como na antiga macro, Este macro não consegue contar itens agrupados( se alguém souber como faz para ele contar itens agrupados, só entrar em contato. que terá todo meu apoio)
Labels:
Não sabe adicionar veja este Mini-tutorial! ( Retira de um Tutorial do [member='Jimmyfilips']
1 - Aperte ESC
2 - Clique em opções

3 - Clique em Controles...

4 - Clique em Macro Settings

5 - Clique em GUI Editor

6 - Clique duas vezes em ingame

7 - Clique em Button Panel Commands

8 - Clique em adjust grid

9 - Regule as grades da forma que preferir, é nelas que você vai posicionar as informações (eu recomendo 10 x 5, mas isso depende também da sua resolução), depois clique em OK

11 - Clique em Add Label

12 - Escolha onde você quer que a informação fique

13 - Clique em Background Color

14 - deixe OPACITY em 0 (parte preta da barra) para ocultar o fundo, depois clique em OK

15 - Coloque nos dois lugares indicados o NOME DA LABEL (indicado pelo programador) Depois clique em OK

Nome das Labels
Vamos agora aos nomes das Labels que você ira adicionar e seus respectivos Nomes
PE1 - PEIXES
PE2 - BLAZES
PE3 - DISCOS
PE4- TESOUROS ( ESPADAS,FERRAMENTAS,SET'S...)
PE5 - GHAST
PE6 - FERROS
PE7 - OUROS
PE8 - DIAMANTES
Depois de adicionar todos direitinha, Ficaram todos com Label Text, Mais não se desanime, estamos perto.
Códigos do Macro
Vamos agora ao principal Instalando as Macros, Acho que isso todos sabem, Mais vamos colocar o Tutorial do (Eduarte) da 1° Macro de Contador de Itens, Mais com os Códigos da Nova Versão.
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 ( Codigo da Versão 2.0)
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 ( Codigo da Versão 2.0)
$${IF(%PICKUPID% = 349);inc(@#peixe,1);SETLABEL(PE1,"&ePeixes:&6&o %@#peixe%",PE1);endif;}$$|
$${
IF(%PICKUPID% = 369);inc(@#blaze,1);SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);endif;
IF(%PICKUPID% = 370);inc(@#Ghast,1);SETLABEL(PE5,"&eGhasts:&6&o %@#Ghast%",PE5);endif;
IF(%PICKUPID% = 265);inc(@#Iron,5);SETLABEL(PE6,"&eFerros:&6&o %@#Iron%",PE6);endif;
IF(%PICKUPID% = 266);inc(@#Gold,5);SETLABEL(PE7,"&eOuros:&6&o %@#Gold%",PE7);endif;
IF(%PICKUPID% = 264);inc(@#Diamond,5);SETLABEL(PE8,"&eDiamantes:&6&o %@#Diamond%",PE8);endif;
}$$|
$${
IF(%PICKUPID% = 2256);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2257);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2258);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2259);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2260);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2261);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2262);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2263);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2264);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2265);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2266);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2267);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
}$$
$${
IF(%PICKUPID% = 369);inc(@#blaze,1);SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);endif;
IF(%PICKUPID% = 370);inc(@#Ghast,1);SETLABEL(PE5,"&eGhasts:&6&o %@#Ghast%",PE5);endif;
IF(%PICKUPID% = 265);inc(@#Iron,5);SETLABEL(PE6,"&eFerros:&6&o %@#Iron%",PE6);endif;
IF(%PICKUPID% = 266);inc(@#Gold,5);SETLABEL(PE7,"&eOuros:&6&o %@#Gold%",PE7);endif;
IF(%PICKUPID% = 264);inc(@#Diamond,5);SETLABEL(PE8,"&eDiamantes:&6&o %@#Diamond%",PE8);endif;
}$$|
$${
IF(%PICKUPID% = 2256);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2257);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2258);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2259);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2260);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2261);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2262);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2263);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2264);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2265);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2266);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);endif;
IF(%PICKUPID% = 2267);inc(@#discos,1);SETLABEL(PE3,"&eDiscos:&6&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,"&eTesouros:&6&o %@#tesouros%",PE4);endif;}$$|
clique em salvar em tudo.
pronto assim que começar há a pescar que o macro ira começar há contar os itens
é isso ai, Agora Depois de pescar temos que reseta o contador e como faremos isso? Simples usando este código.
Como instalar? Simplifsmente jogando em uma tecla, ao pressionar ira aparecer varias opções de resetamento! ( Eu prefico colocar em Edit File para ficar mais organizado, mais isto não diferencia em nada )
1- Limpa o Contador de Tesouros
2- Limpa o Contador de Discos
3- Limpa o Contador de Minerios ( Incluindo Blaze e Ghast)
4- Limpa o Contador Peixes
5- Limpa Todos os Contadores (Novidade)
Codigo:
$${
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("&4&oPara resetar &aTodos &6digite 5");
log(" ");
prompt(#ria,$$?,Escreva o numero da ação desejada, se não quiser proseguir de enter sem nada escrito);
if(%#ria% = 1);
@#tesouros = 0;
SETLABEL(PE4,"&eTesouros:&6&o %@#tesouros%",PE4);
endif;
if(%#ria% = 2);
@#discos = 0
SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);
endif;
if(%#ria% = 3);
@#minerios = 0;
SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);
SETLABEL(PE5,"&eGhast:&6&o %@#ghast%",PE5);
SETLABEL(PE6,"&eFerros:&6&o %@#iron%",PE6);
SETLABEL(PE7,"&eOuros:&6&o %@#gold%",PE7);
SETLABEL(PE8,"&eDiamantes:&6&o %@#diamond%",PE8);
endif;
if(%#ria% = 4);
@#peixe = 0;
SETLABEL(PE1,"&ePeixes:&6&o %@#peixe%",PE1);
endif;
if(%#ria% = 5);
@#minerios = 0;
SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);
SETLABEL(PE5,"&eGhast:&6&o %@#ghast%",PE5);
SETLABEL(PE6,"&eFerros:&6&o %@#iron%",PE6);
SETLABEL(PE7,"&eOuros:&6&o %@#gold%",PE7);
SETLABEL(PE8,"&eDiamantes:&6&o %@#diamond%",PE8);
@#peixe = 0;
SETLABEL(PE1,"&ePeixes:&6&o %@#peixe%",PE1);
@#discos = 0
SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);
@#tesouros = 0;
SETLABEL(PE4,"&eTesouros:&6&o %@#tesouros%",PE4);
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("&4&oPara resetar &aTodos &6digite 5");
log(" ");
prompt(#ria,$$?,Escreva o numero da ação desejada, se não quiser proseguir de enter sem nada escrito);
if(%#ria% = 1);
@#tesouros = 0;
SETLABEL(PE4,"&eTesouros:&6&o %@#tesouros%",PE4);
endif;
if(%#ria% = 2);
@#discos = 0
SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);
endif;
if(%#ria% = 3);
@#minerios = 0;
SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);
SETLABEL(PE5,"&eGhast:&6&o %@#ghast%",PE5);
SETLABEL(PE6,"&eFerros:&6&o %@#iron%",PE6);
SETLABEL(PE7,"&eOuros:&6&o %@#gold%",PE7);
SETLABEL(PE8,"&eDiamantes:&6&o %@#diamond%",PE8);
endif;
if(%#ria% = 4);
@#peixe = 0;
SETLABEL(PE1,"&ePeixes:&6&o %@#peixe%",PE1);
endif;
if(%#ria% = 5);
@#minerios = 0;
SETLABEL(PE2,"&eBlazes:&6&o %@#blaze%",PE2);
SETLABEL(PE5,"&eGhast:&6&o %@#ghast%",PE5);
SETLABEL(PE6,"&eFerros:&6&o %@#iron%",PE6);
SETLABEL(PE7,"&eOuros:&6&o %@#gold%",PE7);
SETLABEL(PE8,"&eDiamantes:&6&o %@#diamond%",PE8);
@#peixe = 0;
SETLABEL(PE1,"&ePeixes:&6&o %@#peixe%",PE1);
@#discos = 0
SETLABEL(PE3,"&eDiscos:&6&o %@#discos%",PE3);
@#tesouros = 0;
SETLABEL(PE4,"&eTesouros:&6&o %@#tesouros%",PE4);
endif;
}$$
Obs:
* Para sumir os Label Text da instalação, Simplesmente começar a pescar e deixar os itens vindo para ele contando ou Resetar Todos os Contadores (5) para Ficar Lindo
* Estou criando a versão 3.0 , mais sera versão premium. Que Tera a função de Label somente aparecer quando ativar a sua Macro de Pesca e outras coisas a mais :3
ChangeLog:
03/03/2015 - Macro Postada
03/03/2015 - Colocada diferença entre macro antiga e atual
Mereço um UP?
