initevents 
; ===================================================================== 
; Macro de Miner V6.0 por SoloYo com novo Delay 
; Servidor: Arkanum FreeShard 
; Distribuição: Gratúita 
; ========================CONFIGURAÇÕES INICIAIS - UO===================== 
event sysmessage Macro By A_d_M 
; Open Paperdoll 
event macro 8 1 
wait 10 

; Open status 
event macro 8 2 
wait 10 

; Open backpack 
event macro 8 7 
wait 10 
; ========================CONFIGURAÇÕES INICIAIS - Variáveis===================== 

Set %Comida RUD_FUD 
Set %Pickaxe NPF_QPF 
Set %Tentativa 2 
Set %TempoEspera 8 
Set %TempoPickaxe 2 

Set %cnt 0 
Set %funcao 0 

Set #ltargetid 0 
Set #ltargetz 0 
Set #ltargetkind 3 


; ====================INICIO==================== 
Inicio: 

if #weight > #maxweight - 30
{
goto guardar
}

gosub %cnt 1 
Set %cnt %cnt + 1 

if #hits < #maxhits 
{ 
msg Guards !$ 
} 

if %cnt > 7 
{ 
Set %cnt 0 
goto caminha 
} 

Set %Chance 0 
goto mine 

; ====================MINE==================== 
mine: 

Set %Chance %Chance + 1 
if %Chance > %Tentativa 
{ 
goto inicio 
} 

delete journal 
gosub pickaxe 

Set #SCNT 0 
goto jornal 

; ====================JORNAL==================== 
jornal: 
if #SCNT >= %TempoEspera 
{ 
goto mine 
} 

scanjournal 1 
if You_notice in #journal 
{ 
msg Guards 
} 
if TRYING_TO_STEAL in #journal 
{ 
msg Guards 
} 
if ATTACKING_YOU in #journal 
{ 
msg Guards 
} 

if HITS_YOU in #journal 
{ 
msg Guards 
} 

if play in #journal 
{ 
goto espera 
} 
if no_ore in #journal 
{ 
Set %Chance 0 
goto espera 
} 
if fail in #journal 
{ 
goto espera 
} 
if your_pack in #journal 
{ 
goto mine 
} 
goto jornal 

; ====================ESPERA==================== 
espera: 
Set #SCNT 0 
espe: 
if #SCNT >= %TempoPickaxe 
{ 
if %Chance = 0 
{ 
goto inicio 
} 
goto mine 
} 
goto espera

; ====================Caminhada==================== 
caminha: 
gosub %funcao 2 
move #ltargetx #ltargety 0 2s 
Set %funcao %funcao + 1 

if %funcao > 7 
{ 
Set %funcao 0 
} 
goto inicio 

; ====================Ajusta targets Automatico==================== 
sub 0 
set #ltargetx #charposx 
set #ltargety #charposy - %1 
return 

sub 1 
set #ltargetx #charposx + %1 
set #ltargety #charposy - %1 
return 

sub 2 
set #ltargetx #charposx + %1 
set #ltargety #charposy 
return 

sub 3 
set #ltargetx #charposx + %1 
set #ltargety #charposy + %1 
return 

sub 4 
set #ltargetx #charposx 
set #ltargety #charposy + %1 
return 

sub 5 
set #ltargetx #charposx - %1 
set #ltargety #charposy + %1 
return 

sub 6 
set #ltargetx #charposx - %1 
set #ltargety #charposy 
return 

sub 7 
set #ltargetx #charposx - %1 
set #ltargety #charposy - %1 
return 

; ====================PICKAXE==================== 
sub pickaxe 
finditem %Pickaxe 

if #findkind = 0 
{ 
set #LObjectID #FindID 
event macro 17 0 
target 
event macro 22 0 
return 
} 

if #findkind = 1 
{ 
ignoreitem #FindID 
gosub pickaxe 
return 
} 

if #findkind = -1 
{ 
ignoreitem reset 
event sysmessage Pickaxe nao encontrada 
wait 3s 
return 
} 
return 

; ====================GUARDAR==================== 

MOVE 2569 470 0

guardar: 
MOVE 2569 470 0
wait 1s

msg bank$ 
wait 15 
if #conttype = IKF 
{ 
contpos 321 0 
wait 10 
} 
goto acharore

acharore: 
finditem DWJ
if #findkind = 1 
{ 
ignoreitem #findid 1 
goto acharore 
} 
if #findkind = 0 
{ 
event drag #findid 
wait 10 
msg $ 
wait 10 
click 400 122 p 
wait 10 
goto acharore 
} 
} 
if #findkind = -1 
{
wait 1s
2575 463 0