initevents 
initevents 

set #SYSMSGCOL 63 

event sysmessage @@ Mining Macro by Havenard - editado por arathon para o banco central @ Iniciando... 

set #NEXTCPOSX 500 
set #NEXTCPOSY 500 
event macro 8 2 
event macro 8 7 

wait 2s 

finditem NPF_QPF_TWF 

if #FINDID = X 
{ 
set #SYSMSGCOL 33 
event sysmessage ERRO: Impossivel encontrar um Pickaxe! 
stop 
} 

set %pickaxe #FINDID 

set %slot 1 
set %walk 0 


event sysmessage @ AGUARDE INSTRUCOES @ 
event sysmessage Nota: Se voce nao estiver na mina de 
event sysmessage Minoc, ou proximo ao banco da mina, 
event sysmessage pare aqui e va la primeiro. 

event sysmessage @ INDO AO BANCO @ 

if #CHARPOSY < 544 
move 2569 466 0 8s 

} 
if #CHARPOSX > 2513 
{ 
if #CHARPOSY > 544 
move 2569 466 0 8s 
} 
move 2568 470 0 8s 
set #NEXTCPOSX 0 
set #NEXTCPOSY 0 
msg $bank$ 

set #SYSMSGCOL 33 

event sysmessage @@ Posicione o mouse sobre a sacola onde os Ores serao depositados e aperte ENTER. 

waitenter: 
onhotkey ENTER 
goto continueconfig 
goto waitenter 

continueconfig: 

set %click_positionx #CURSORX 
set %click_positiony #CURSORY 

set #SYSMSGCOL 63 

event sysmessage @@ Configurado com sucesso... 
wait 20 

event sysmessage @@ Indo ate a mina... 

move 2569 466 0 10s  

gosub 1 

mine: 

set #LTARGETID 0 
set #LTARGETZ #CHARPOSZ 
set #LTARGETKIND 2 

if #CHARPOSY = 545 
{ 
move 2569 466 0 10s 
} 

if #MAXHITS > #HITS 
{ 
msg Guards !$ 
wait 8s 
} 

set %walk %walk + 1 

if %walk > 16 
{ 
move #LTARGETX #LTARGETY 0 3s 
set %walk 0 
gosub food 
} 

gosub banking 
gosub %slot 

set #LOBJECTID %pickaxe 
event macro 17 0 
target 2s 
event macro 22 0 

set #SCNT 0 

scan: 

if #MAXHITS > #HITS 
{ 
msg Guards !$ 
wait 8s 
} 

if #SCNT > 10 
goto mine 

scanjournal 1 

if aqui_nao_tem in #JOURNAL 
{ 
gosub newslot 
goto mine 
} 

if TENTE_MINERAR_EM_OUTRO_LUGAR in #JOURNAL 
{ 
gosub newslot 
goto mine 
} 

if TRY_MINING_IN_ROCK in #JOURNAL 
{ 
gosub newslot 
goto mine 
} 

if NO_LINE_OF_SIGHT in #JOURNAL 
{ 
gosub newslot 
goto mine 
} 

if you_out in #JOURNAL 
goto mine 

if VOCE_pegou_apenas in #JOURNAL 
{ 
gosub newslot 
goto mine 
} 

if PRIMEIRO_TERMINE_DE_MINERAR_PARA_DEPOIS_CLICAR_EM_UM_ITEM in #JOURNAL 
goto mine 

if YOUR_SKILL_IN_MINING_HAS_INCREASED in #JOURNAL 
goto mine 

goto scan 

sub food 
msg $.hungry$ 
scanjournal 1 
else stuffed in #JOURNAL 
{ 
deletejornal 
finditem FUD_HND_RUD_CNL_YLI_AQD_HQD_WMD_NRD_RGG 
set #LOBJECTID #FINDID 
event macro 17 0 
} 
return 

sub newslot 
set %slot %slot + 1 
if %slot > 9 
set %slot 1 
//event sysmessage (debug) Slot: %slot / 9 - walk: %walk / 17 
return 

sub 1 
set #LTARGETX #CHARPOSX 
set #LTARGETY #CHARPOSY 
return 

sub 2 
set #LTARGETX #CHARPOSX - 1 
set #LTARGETY #CHARPOSY - 1 
return 

sub 3 
set #LTARGETX #CHARPOSX 
set #LTARGETY #CHARPOSY - 1 
return 

sub 4 
set #LTARGETX #CHARPOSX + 1 
set #LTARGETY #CHARPOSY - 1 
return 

sub 5 
set #LTARGETX #CHARPOSX + 1 
set #LTARGETY #CHARPOSY 
return 

sub 6 
set #LTARGETX #CHARPOSX + 1 
set #LTARGETY #CHARPOSY + 1 
return 

sub 7 
set #LTARGETX #CHARPOSX 
set #LTARGETY #CHARPOSY + 1 
return 

sub 8 
set #LTARGETX #CHARPOSX - 1 
set #LTARGETY #CHARPOSY + 1 
return 

sub 9 
set #LTARGETX #CHARPOSX - 1 
set #LTARGETY #CHARPOSY 
return 

sub banking 
if #WEIGHT < #MAXWEIGHT 
return 
move 2569 466 0 10s
set #NEXTCPOSX 0 
set #NEXTCPOSY 0 
msg $bank$ 
wait 30 
draging: 
finditem TVJ_GWJ_EWJ_DWJ_FVF_EVF_BVF_OVF_GVF_UVF_VUF_HVF 
if #FINDKIND < 0 
{ 
move 2569 466 0 10s 

return 
} 
event drag #FINDID 
wait 2s 
msg $ 
click %click_positionx %click_positiony 
wait 2s 
goto draging