;"feita por Billie Hidden K. 
;shard DMS { DimensionI }
;Para golden pickaxe
;hidding
;smelta
;guarda casa/bank
;[
;sim, é editada, mas esta bem diferente da original.
;a original eh a Igor 2 beta
;]"
==========
;v2 golden pickaxe
;v2.1 sistema "pressionar" no lugar de "escrever"
;v2.2 alguns erros corrigidos
;v2.3 mudado sistema do banco
;v2.4 pedras preciosas também vão para o banco

Initevents

set %ModoAuto 1
;0 = Usara configuracoes pre-feitas 1= Configuracao sera feita dentro do macro sem necessidade de mexer no script 
;deixe 1 se você não tiver conhecimentos. [:
;-------------- Modo Auto (Nao ha necessidade de mexer) -------------- 
set %MaxStep 10
;Numero maximo de "moves" em trajeto mina - casa/bank (MaxStep maximo valor de 10) 

;------------- 

;-------------- Modo Manual (%ModoAuto 0) ----------------- 
set %Ativar 0
; 0= Desativado 1= Ativado 

set %bank 0
;0= Ele falara 'bank' para guarda ingots 1= Modo Casa_ ira em casa usar item pre-determinado 2= Desativado 

set %stealth 1
; 0= Ele nao usara Stealth enquanto minerar 1= Usara Stealth enquanto minerar 

set %chest 0000
;ID da Chest de casa 

set %step 0
; Quantas rotas voce usou.. (Precisa ser igual a quantidade de rotas usadas abaixos, limite 10) 

set %trajeto1x 0
set %trajeto1y 0
;Aqui voce escrevera o trajeto da mina a casa/bank, formato trajeto1x, trajeto1y, trajeto2x, trajeto2y... 
;OBS: o %trajeto1x(y) , ele tem que ser dentro da mina, relativo ao 'estou pronto' do Modo Automatico 


;-------------- 

;As configuracoes abaixo nao necessitam de ajuste 
set %oldstep %step
set %move1x 0
set %move2x 0
set %move3x 0
set %move4x 0
set %move5x 0
set %move6x 0
set %move7x 0
set %move8x 0
set %move9x 0
set %move10x 0
set %move1y 0
set %move2y 0
set %move3y 0
set %move4y 0
set %move5y 0
set %move6y 0
set %move7y 0
set %move8y 0
set %move9y 0
set %move10y 0
set %andarx1 1
set %andary1 0
set %andarx0 0
set %andary0 0
set %oreno 0
event sysmessage Script de Mining by Billie Hidden K.
wait 10
event sysmessage Abrindo Paperdoll...
paperdoll:
event macro 8 1
;wait 50
;if #contkind = SHYB
;{
;contpos 790 0
;}
;if #contposx = 790
;{
event sysmessage Abrindo status...
event macro 8 2

goto bag1
;}
;goto paperdoll
bag1:
event sysmessage Abrindo Bag...

bag:
event macro 8 7
wait 50
;if #contkind = KRZ
;{
;set %bag #ltargetid
;contpos 790 322
;}
;if #contposx = 790
;{
wait 1s
goto picareta
;}
;goto bag

picareta:

picaret:
event sysmessage Localizando Golden Pickaxe...
pickfind:
finditem NPF
wait 10
if #findkind = -1
{
event sysmessage Golden Pickaxe nao encontrada. Cancelando o macro.
halt
}
if #findkind = 0
{
event sysmessage Golden Pickaxe encontrada!
set %golden_pickaxe #findid
set #lobjectid %golden_pickaxe
;event macro 17 0 
;target 5s 
;event macro 23 0 
goto minerar
}
if #findkind = 1
{
event sysmessage Golden Pickaxe encontrada no chao, por favor, coloque-a na bag e reinicie o macro.
halt
}
goto pickfind
minerar:
if %ModoAuto = 1
{
event sysmessage Modo Automatico ligado.
event sysmessage Inicializando bateria de testes...
wait 10
event sysmessage Voce deseja usar o Modo Stealth? (S/N)
testestealth:
OnHotKey S
goto stealthyes
OnHotKey N
goto stealthno
goto testestealth
stealthyes:
set %stealth 1
goto stealthend
stealthno:
set %stealth 0
goto stealthend
stealthend:
wait 10

event sysmessage Voce deseja ativar o sistema de guardar ingots em casa/bank? (S/N)
teste1:
OnHotKey S
gosub teste1
OnHotKey N
goto minerativar
goto teste1

sub teste1
set %bank 2
set %Ativar 1
goto teste2
return

teste2:
event sysmessage Voce ira guardar no  ou em casa? (B/C)
test2:
OnHotKey B
gosub teste2bank
OnHotKey C
gosub teste2casa
goto test2

sub teste2bank
set %bank 0
goto teste3
return

sub teste2casa
set %bank 1
goto teste3
return

teste3:
event sysmessage Agora, faremos a rota da mina ate a casa/bank com limite de %MaxStep movimentos.
set %Step 1
event sysmessage Primeiramente, va ate a entrada da mina e pressione [E].
teste31:
{
onhotkey E
{
set %trajeto1x #CHARPOSX
set %trajeto1y #CHARPOSY
goto teste32
}
}
goto teste31

teste32:
event sysmessage Certo, agora va indo em direcao casa/bank, e a cada obstaculo pressione [M] e quando chegar pressione [T].
wait 5
event sysmessage * Devido a um bug ainda não identificado aperte [M] duas vezes aqui, para marcar o primeiro obstaculo.
wait 2s
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}

teste33:
{
onhotkey M
{
set %trajeto2x #CHARPOSX
set %trajeto2y #CHARPOSY
goto teste34
}
onhotkey T
{
set %trajeto2x #CHARPOSX
set %trajeto2y #CHARPOSY
goto teste4
}
}
goto teste33

teste34:
event sysmessage Rota 3 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste35:
{
onhotkey M
{
set %trajeto3x #CHARPOSX
set %trajeto3y #CHARPOSY
goto teste36
}
onhotkey T
{
set %trajeto3x #CHARPOSX
set %trajeto3y #CHARPOSY
goto teste4
}
}
goto teste35


teste36:
event sysmessage Rota 4 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste37:
{
onhotkey M
{
set %trajeto4x #CHARPOSX
set %trajeto4y #CHARPOSY
goto teste38
}
onhotkey T
{
set %trajeto4x #CHARPOSX
set %trajeto4y #CHARPOSY
goto teste4
}
}
goto teste37

teste38:
event sysmessage Rota 5 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste39:
{
onhotkey M
{
set %trajeto5x #CHARPOSX
set %trajeto5y #CHARPOSY
goto teste301
}
onhotkey T
{
set %trajeto5x #CHARPOSX
set %trajeto5y #CHARPOSY
goto teste4
}
}
goto teste39

teste301:
event sysmessage Rota 6 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste302:
{
onhotkey M
{
set %trajeto6x #CHARPOSX
set %trajeto6y #CHARPOSY
goto teste303
}
onhotkey T
{
set %trajeto6x #CHARPOSX
set %trajeto6y #CHARPOSY
goto teste4
}
}
goto teste302

teste303:
event sysmessage Rota 7 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}

deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste304:
{
onhotkey M
{
set %trajeto7x #CHARPOSX
set %trajeto7y #CHARPOSY
goto teste305
}
onhotkey T
{
set %trajeto7x #CHARPOSX
set %trajeto7y #CHARPOSY
goto teste4
}
}
goto teste304


teste305:
event sysmessage Rota 8 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste306:
{
onhotkey M
{
set %trajeto8x #CHARPOSX
set %trajeto8y #CHARPOSY
goto teste308
}
onhotkey T
{
set %trajeto8x #CHARPOSX
set %trajeto8y #CHARPOSY
goto teste4
}
}
goto teste306

teste308:
event sysmessage Rota 9 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste309:
{
onhotkey M
{
set %trajeto9x #CHARPOSX
set %trajeto9y #CHARPOSY
goto teste310
}
onhotkey T
{
set %trajeto9x #CHARPOSX
set %trajeto9y #CHARPOSY
goto teste4
}
}
goto teste309
teste310:
event sysmessage Rota 10 gravada continuando, e a cada obstaculo pressione [M] e quando chegar pressione [T].
{
deletejournal
}
deletejournal
set %step %step + 1
if %step > %maxstep
{
event sysmessage Limite de rota, volte para a mina agora.
goto teste4
}
deletejournal
teste311:
{
onhotkey M
{
set %trajeto10x #CHARPOSX
set %trajeto10y #CHARPOSY
goto teste4
}
onhotkey T
{
set %trajeto10x #CHARPOSX
set %trajeto10y #CHARPOSY
goto teste4
}
}
goto teste311
teste4:
event sysmessage Rota finalizada.
event sysmessage Relatorio do Modo Automatico:
wait 10
if %stealth = 1
{
event sysmessage Modo Stealth ON.
}
if %stealth = 0
{
event sysmessage Modo Stealth OFF.
}
wait 5
if %bank = 0
{
event sysmessage Modo banco.
}
if %bank = 1
{
event sysmessage Modo casa.
}
wait 5
event sysmessage Rota com %step movimentos.
wait 5

teste5:
set %chest SEMID
set %bag SEMID
wait 1s
event sysmessage Agora, clique no bau/bag onde ira depositar os ingots.
if %bank = 0
{
msg $bank$
wait 2s
contpos 627 359
wait 1s
;if #contposx 627
;{
;goto vai1
;}
;goto teste5
;}

vai1:
wait 1s
set #ltarget SEMID
wait 1s
event macro 13 3
target 5s
event sysmessage Clique em ate 5 segundos.
wait 5s
set %chest #LTargetID
wait 5
if %chest = SEMID
{
event Voce nao clicou no bau/bag. Voltando para clicar no bau/bag...
goto vai1
}
event sysmessage deixe o mouse sobre o bau/bag que vai depositar os ingots e pressione [E].
chestpos:
onhotkey E
{
set %chestposx #cursorx
set %chestposy #cursory
goto vai2
}
goto chestpos

vai2:
wait 2s
event sysmessage Agora, clique na sua bag. [paperdoll]
set #ltargetid SEMID
wait 1s
event macro 13 3
target 5s
event sysmessage Clique em ate 5 segundos.
wait 5s
set %bag #ltargetid
wait 5
if %bag = SEMID
{
event sysmessage Voce nao clicou na bag. Voltando para clicar.
goto vai2
}
event sysmessage O ID do bau/bag eh %chest
wait 5
event sysmessage Seu bau/bag esta na posicao %chestposx %chestposy
wait 5
event sysmessage O ID da Bag eh %bag
wait 10
event sysmessage Voltando para mina...
set %oldstep %step
gosub irmina
goto miner

sub irmina
set %step %oldstep
if %step = 10
{
move %trajeto10x %trajeto10y 0 120s
set %step %step - 1
wait 5
}
if %step = 9
{
move %trajeto9x %trajeto9y 0 120s
set %step %step - 1
wait 5
}
if %step = 8
{
move %trajeto8x %trajeto8y 0 120s
set %step %step - 1
wait 5
}
if %step = 7
{
move %trajeto7x %trajeto7y 0 120s
set %step %step - 1
wait 5
}
if %step = 6
{
move %trajeto6x %trajeto6y 0 120s
set %step %step - 1
wait 5
}
if %step = 5
{
move %trajeto5x %trajeto5y 0 120s
set %step %step - 1
wait 5
}
if %step = 4
{
move %trajeto4x %trajeto4y 0 120s
set %step %step - 1
wait 5
}
if %step = 3
{
move %trajeto3x %trajeto3y 0 120s
set %step %step - 1
wait 5
}
if %step = 2
{
move %trajeto2x %trajeto2y 0 120s
set %step %step - 1
wait 5
}
if %step = 1
{
move %trajeto1x %trajeto1y 0 120s
set %step %step - 1
wait 5
}
return

sub ircasa
set %step %oldstep
if %step = 10
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
move %trajeto6x %trajeto6y 0 120s
wait 5
move %trajeto7x %trajeto7y 0 120s
wait 5
move %trajeto8x %trajeto8y 0 120s
wait 5
move %trajeto9x %trajeto9y 0 120s
wait 5
move %trajeto10x %trajeto10y 0 120s
wait 5
}
if %step = 9
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
move %trajeto6x %trajeto6y 0 120s
wait 5
move %trajeto7x %trajeto7y 0 120s
wait 5
move %trajeto8x %trajeto8y 0 120s
wait 5
move %trajeto9x %trajeto9y 0 120s
wait 5
}
if %step = 8
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
move %trajeto6x %trajeto6y 0 120s
wait 5
move %trajeto7x %trajeto7y 0 120s
wait 5
move %trajeto8x %trajeto8y 0 120s
wait 5
}
if %step = 7
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
move %trajeto6x %trajeto6y 0 120s
wait 5
move %trajeto7x %trajeto7y 0 120s
wait 5
}
if %step = 6
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
move %trajeto6x %trajeto6y 0 120s
wait 5
}
if %step = 5
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
move %trajeto5x %trajeto5y 0 120s
wait 5
}
if %step = 4
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
move %trajeto4x %trajeto4y 0 120s
wait 5
}
if %step = 3
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
move %trajeto3x %trajeto4y 0 120s
wait 5
}
if %step = 2
{
move %trajeto1x %trajeto1y 0 120s
wait 5
move %trajeto2x %trajeto2y 0 120s
wait 5
}
if %step = 1
{
move %trajeto1x %trajeto1y 0 120s
wait 5
}
return

minerativar:
set %ativar 0

miner:
event sysmessage Dentro de 10s, fique perto de um forge ou pressione [E].
forgee:
onhotkey E
gosub continue100
goto forgee

sub continue100
set %forgex #charposx
set %forgey #charposy
event sysmessage Ok, posicao gravada.

event sysmessage Agora, fique em qualquer lugar da mina, para comecar dentro de 10s ou pressione [E].
lugarr:
onhotkey E
gosub continue123
goto lugarr

sub continue123
set %posminex #charposx
set %posminey #charposy
goto mine

mine:

ignoreitem reset
set %oreno 0
gosub minerar
if #weight > 250
{
gosub smeltar
}

goto mine
halt

sub minerar
set #LTargetKind 3
pos1:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos1x
set #ltargety %pos1y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos2
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos2
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos1
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos1
}
}
deletejournal
wait 5
}
goto pos1

pos2:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos2x
set #ltargety %pos2y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos3
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos3
}
if #weight > 300
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos2
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos2
}
}
deletejournal
wait 5
}
goto pos2

pos3:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos3x
set #ltargety %pos3y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos4
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos4
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos3
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos3
}
}
deletejournal
wait 5
}
goto pos3

pos4:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos4x
set #ltargety %pos4y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos5
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos5
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos4
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos4
}
}
deletejournal
wait 5
}
goto pos4

pos5:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos5x
set #ltargety %pos5y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos6
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos6
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos5
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos5
}
}
deletejournal
wait 5
}
goto pos5

pos6:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos6x
set #ltargety %pos6y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos7
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos7
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos6
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos6
}
}
deletejournal
wait 5
}
goto pos6

pos7:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos7x
set #ltargety %pos7y
event macro 17 0
target 5s
event macro 22 0

wait 10
for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto pos8
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto pos8
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos7
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos7
}
}
deletejournal
wait 5
}
goto pos7

pos8:
if %stealth = 1
{
if #CHARSTATUS <> H
{
event macro 13 47
wait 3s
}
}

set #lobjectid %golden_pickaxe
gosub setpos
set #ltargetx %pos8x
set #ltargety %pos8y
event macro 17 0
target 5s
event macro 22 0

wait 10

for %time 1 32
{

for %scancount 1 4
{
scanjournal %scancount
if Nao_a_nada_aqui_para_minerar in #journal
{
deletejournal
goto andar
}
if Tente_minerar_em_outro_lugar in #journal
{
set #LTargetKind 3
deletejournal
goto andar
}
if #weight > 250
{
goto endmine
}
if Voce_pos in #journal
{
deletejournal
goto pos8
}
if Voce_nao_encontrou_nenhum_minerio_aproveitavel in #journal
{
deletejournal
goto pos8
}
}
deletejournal
wait 5
}

;scanjournal 1 
;if there_is_no_ore_here_to_mine in #journal 
;{ 
;goto andar 
;} 
if Tente_minerar_em_outro_lugar in #journal
;{ 
;set #LTargetKind 3 
;goto andar 
;} 
;wait 8s 
;if #weight > 250 
;{ 
;goto endmine 
;} 

goto pos8


andar:
;Talves usado futuramente 
;if %andarx1 = 1 
;{ 
;goto %andarx1 
;} 
;if %andary1 = 1 
;{ 
;goto %andary1 
;} 
;if %andarx0 = 1 
;{ 
;goto andarx0 
;} 
;if %andary0 = 1 
;{ 
;goto andary0 
;} 

ande:
if #RANDOM < 200
{
goto andarx1
}
if #RANDOM < 400
{
goto andary1
}
if #RANDOM < 600
{
goto andarx0
}
if #RANDOM < 900
{
goto andary0
}
goto ande

andarx1:
set %andarx1 1
set %oldx #charposx
set %oldy #charposy
set %posx #charposx + 2
set %posy #charposy
move %posx %posy a 10s
if %oldx = #charposx
{
set %andarx1 0
goto andary1
}
goto pos1


andary1:
set %andary1 1
set %oldx #charposx
set %oldy #charposy
set %posx #charposx
set %posy #charposy + 2
move %posx %posy a 10s
if %oldy = #charposy
{
set %andary1 0
goto andarx0
}
goto pos1

andarx0:
set %andary1 1
set %oldx #charposx
set %oldy #charposy
set %posx #charposx - 2
set %posy #charposy
move %posx %posy a 10s
if %oldx = #charposx
{
set %andarx0 0
goto andary0
}
goto pos1


andary0:
set %andary1 1
set %oldx #charposx
set %oldy #charposy
set %posx #charposx
set %posy #charposy - 2
move %posx %posy a 10s
if %oldy = #charposy
{
set %andary0 0
goto andarx1
}
goto pos1

endmine:

return

sub setpos
set %pos1x #charposx + 1
set %pos1y #charposy

set %pos2x #charposx
set %pos2y #charposy + 1

set %pos3x #charposx - 1
set %pos3y #charposy

set %pos4x #charposx
set %pos4y #charposy - 1

set %pos5x #charposx + 1
set %pos5y #charposy + 1

set %pos6x #charposx - 1
set %pos6y #charposy - 1

set %pos7x #charposx + 1
set %pos7y #charposy - 1

set %pos8x #charposx - 1
set %pos8y #charposy + 1
return

sub smeltar
move %forgex %forgey 0 40s
event sysmessage Procurando pile of ores.
smelt:
gosub findore
wait 1s

if %oreno <> 1
{
set #lobjectid %ore
event macro 17 0
wait 3s

voceprecisa:
for %scancont 1 4
{
scanjournal %scancont
if Voce_precisa in #journal
{
ignoreitem %ore
set %ore N/A
deletejournal
}

set %oreno 0
}
goto smelt
}

if %oreno = 1
{
event sysmessage Nao ha ore para smeltar, verificando condicoes para voltar a minerar.
if #weight > 10
{
wait 10
if %ativar = 1
{
event sysmessage Voce esta muito pesado, voltando para guardar ingots.
if %bank = 0
{
event sysmessage Indo para o banco..
gosub ircasa
event Abrindo Banco...
msg $bank$
wait 3s
contpos 627 359
wait 10
;set #LObjectID %chest
;event macro 17 0
wait 5s
;contpos 300 300
event sysmessage NAO Mexa no Gump do Bau
wait 10
bprocuraingot:
finditem RMK_OVF_HVF_VUF_BVF_EVF_GVF_UVF_FVF
wait 5
if #FindKind = 0
{
event sysmessage Ingot encontrado...
if #FINDBAGID = %bag
{
event drag #findid
wait 10
msg $
wait 10
click %chestposx %chestposy P
wait 1s
ignoreitem #findid
wait 5
}
if #findbagid <> %bag
{
event sysmessage Ingot no banco, ignorando...
ignoreitem #findid
}
goto bprocuraingot
}

if #Findkind = 1
{
event sysmessage Ingot encontrado no chao.. ignorando...
ignoreitem #findid
wait 5
goto bprocuraingot
}
if #FindKind = -1
{
finditem
event sysmessage Nenhum Ingot encontrado... voltando a minerar...
gosub irmina
wait 5
move %posminex %posminey 3 15s
goto mine
}

}
if %bank = 1
{
event sysmessage Indo para casa...
gosub ircasa
event Abrindo bau...
set #LObjectID %chest
event macro 17 0
wait 5s
event sysmessage NAO Mexa no Gump do Bau
contpos 300 300
wait 10
procuraingot:
event sysmessage Procurando Ingots....
finditem RMK
wait 5
if #FindKind = 0
{
event sysmessage Ingot encontrado...
if #contid = %bag
{
event drag #findid
wait 5
msg $
click 320 320 P
wait 1s
ignoreitem #findid
wait 5
}
if #findbagid <> %bag
{
event sysmessage Bag errada...
ignoreitem #findid
}
goto procuraingot
}
if #FindKind = 1
{
event sysmessage Ingot no chao... Ignorando
ignoreitem #findid
wait 5
goto procuraingot
}
if #FindKind = -1
{
sub pedras
event sysmessage Nenhum Ingot encontrado... procurando pedras preciosas...
wait 10
sub procurapedra
finditem OVF_HVF_VUF_BVF_EVF_GVF_UVF_FVF
wait 5
if #findkind = 0
{
event sysmessage pedras preciosas encontradas...
if #contid = %bag
{
event drag #findid
wait 5
msg $
click %chestposx %chestposy P
wait 1s
ignoreitem #findid
wait 5
}
if #findbagid <> %bag
{
event sysmessage Bag errada...
ignoreitem #findid
}
gosub procurapedra
}
if #findkind = 1
{
event sysmessage Pedra encontrado no chao... Ignorando.
ignoreitem #findid
wait 5
gosub procurapedra
}
if #findkind = -1
event sysmessage Nenhuma pedra preciosa encontrada... Voltando a minerar.
gosub irmina
wait 5
move %posminex %posminey 3 15s
goto mine
}
}

if %ativar = 0
{
event sysmessage Nao ha condicoes para voltar a minerar, parando macro.
halt
}

wait 10
event sysmessage Voltando a minerar...
move %posminex %posminey 3 15s
goto fimsmelt
}

goto smelt
fimsmelt:
return

sub findore
procuraore:
finditem DWJ_TVJ_GWJ_EWJ
wait 1s
if #findkind = 0
{
event sysmessage Ore encontrado!
set %oreno 0
set %ore #findid
;ignoreitem #findid 
wait 10

goto endfindore
}

if #findkind = -1
{
event sysmessage Ore nao encontrado! Voltando
set %oreno 1
ignoreitem #findid
goto endfindore

}
if #findkind = 1
{
event sysmessage Ore encontrado no chao, verificando novamente!

ignoreitem #findid
}
goto procuraore
endfindore:
return

halt