Encontre esta famosa macro, y en vista de que nadie te la da gratis decidi que habia que compartirla con todos ustedes, va minando y lo deja en el banco y si te matan, se resucita, espero que les sea de utilidad. Esta en portugués pero ni caso, va bien. Edito, por ahora no va a resucitar xD si alguno puede ayudar ya sabe, el karma se lo agradecerá jajaja
;=====================================
; Mining Minoc Banco Central TLP by Mewhouse
; Versão 1.0
; Data: 21/12/2007 - 05:05h
; Shard: TLP Shard - www.tlpshard.com.br
; Primavera do Leste / MT / Brasil
; Qualquer bug, dúvida e/ou sugestão, entre em contato.
; Forum Tlp ou Mewhouse no mirc.
;=====================================
;===========INSTRUÇÕES================
;para configurar leve seu char até a frente do banco central de minoc e de play
;o seu banco vai abrir e vc deverá posicionar o mouse em cima da bag
;na qual você deseja guardar os ores..
;deixe ou mouse até o char começar a andar..
;depois disso bom macro =)
;=====================================
initevents
Set %Comida HND
Set %Pickaxe QPF_NPF
Set %Tentativa 3
Set %TempoEspera 10
Set %TempoPickaxe 2
Set %cnt 0
Set %funcao 0
Set #ltargetid 0
Set #ltargetz 0
Set #ltargetkind 3
move 2516 547 15
goto configurar
}
Inicio:
if #weight > 350
{
goto banco
}
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:
Set %Chance %Chance + 1
if %Chance > %Tentativa
{
goto inicio
}
delete journal
gosub pickaxe
Set #SCNT 0
goto 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 ATACANDO_VOCE in #journal
{
msg $Guards!$
}
if acerto_voce in #journal
{
msg Guards !$
}
if play in #journal
{
goto espera
}
if nao_existe_nada in #journal
{
Set %Chance 0
goto espera
}
if fail in #journal
{
goto espera
}
if falhou in #journal
{
goto espera
}
if your_pack in #journal
{
goto mine
}
goto jornal
espera:
Set #SCNT 0
espe:
if #SCNT >= %TempoPickaxe
{
if %Chance = 0
{
goto inicio
}
goto mine
}
goto espe
caminha:
gosub %funcao 2
move #ltargetx #ltargety 0 2s
Set %funcao %funcao + 1
if %funcao > 7
{
Set %funcao 0
}
goto inicio
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
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
sub comida
finditem %Comida
if #findkind = 0
{
set #LObjectID #FindID
event macro 17 0
return
}
if #findkind = 1
{
ignoreitem #FindID
gosub comida
return
}
if #findkind = -1
{
ignoreitem reset
event sysmessage Comida nao encontrada
return
}
return
banco:
move 2567 484 0
move 2558 490 0
move 2558 505 0
move 2552 506 0
move 2552 501 0
move 2550 501 0
move 2539 501 0
move 2526 501 0
move 2526 507 0
move 2528 515 0
move 2528 526 0
move 2528 538 0
move 2516 538 0
move 2516 547 15
goto descarregar
descarregar:
set #nextcposx 300
set #nextcposy 0
msg $bank$
finding:
finditem TVJ_GWJ_EWJ_DWJ_UVF_OVF_VUF_FVF_HVF_GVF_BVF_EVF
if #findkind = -1
{
move 2516 547 15
move 2516 538 0
move 2528 538 0
move 2528 526 0
move 2528 515 0
move 2526 507 0
move 2526 501 0
move 2539 501 0
move 2550 501 0
move 2552 501 0
move 2552 506 0
move 2558 505 0
move 2558 490 0
move 2567 484 0
goto inicio
}
wait 1s
Draging:
event drag #findid
key enter
wait 1s
click %bagx %bagy
wait 2s
goto finding
configurar:
set %configurado 1
set #nextcposx 300
set #nextcposy 0
wait 1s
msg $bank$
wait 1s
event sysmessage Deixe o cursor sobre a bag
wait 3s
set %bagx #cursorx
set %bagy #cursory
wait 1s
move 2516 547 15
move 2516 538 0
move 2528 538 0
move 2528 526 0
move 2528 515 0
move 2526 507 0
move 2526 501 0
move 2539 501 0
move 2550 501 0
move 2552 501 0
move 2552 506 0
move 2558 505 0
move 2558 490 0
move 2567 484 0
goto inicio
Citar
