==--== INICIO ==--==
initevents
; =====================================================================
; Macro de Miner V6.1 por SoloYo com novo Delay - Editada por Mandrake
; Servidor: StrongHold
; Distribuição: Gratúita
; ========================CONFIGURAÇÕES INICIAIS - UO=====================
; 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_HND
Set %Pickaxe NPF_QPF
Set %Tentativa 4 
Set %TempoEspera 8
Set %TempoPickaxe 2

Set %cnt 0
Set %funcao 0

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

;==================== FORGE ===================
event sysmessage Vah para perto de um forge e aperte ENTER
keyloop:
onHotKey ENTER
goto selforge:
goto keyloop
selforge:
set %forgex #charposx
set %forgey #charposy
goto inicio


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

gosub comida

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 too_heavy in #journal
{
gosub smeltar
}
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 espe

; ====================Caminhada====================
caminha:
gosub %funcao 2
move #ltargetx #ltargety 0 1s
event macro 13 21
wait 1s
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

; ==--== FIM ==--==

sub smeltar
wait 5s
set %ironore DWJ
set %antigax #charposx
set %antigay #charposy
gogogo:
if #charposx <> %forgex && #charposy <> %forgey
{
move %forgex %forgey 0 5s
goto gogogo
}
gosub irons
wait 5s
return


sub irons
finditem %ironore
if #findkind = 0
{
set #LObjectID #FindID
wait 2s
event macro 17 0
gosub irons
}
if #findkind = 1
{
ignoreitem #FindID
gosub irons
return
}
if #findkind = -1
{
ignoreitem reset
event sysmessage Iron nao encontrado
move %antigax %antigaY 0 10s
wait 5s
goto inicio
}