TLP Shard Forum
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

TLP Shard Forum

Forum para os players do TLP Shard com Macros, Dicas, e mais...
 
InícioProcurarÚltimas imagensRegistarEntrar

 

 Macro Mining Minoc Banco Central TLP

Ir para baixo 
3 participantes
AutorMensagem
mewhouse
Starter
Starter



Mensagens : 1
Data de inscrição : 20/12/2007

Macro Mining Minoc Banco Central TLP Empty
MensagemAssunto: Macro Mining Minoc Banco Central TLP   Macro Mining Minoc Banco Central TLP Icon_minitimeSex Dez 21, 2007 4:03 am

Esse macro minera na mina de minoc e guarda os ores dentro do banco..
siga atentamente as instruções e bom macro..
não funciona com UOAssit..
por isso seu character deverá estár aberto em client normal ou inject..
segue abaixo o macro



;=====================================
; 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
Ir para o topo Ir para baixo
Ruan22
Admin
Ruan22


Mensagens : 13
Data de inscrição : 14/12/2007
Idade : 37
Localização : Vitória - ES

Macro Mining Minoc Banco Central TLP Empty
MensagemAssunto: Re: Macro Mining Minoc Banco Central TLP   Macro Mining Minoc Banco Central TLP Icon_minitimeSex Dez 21, 2007 9:55 am

Boa mewhouse..
;D
Ir para o topo Ir para baixo
https://tlpshard-forum.directorioforuns.com
EndersoN
Starter
Starter



Mensagens : 1
Data de inscrição : 22/12/2007

Macro Mining Minoc Banco Central TLP Empty
MensagemAssunto: a   Macro Mining Minoc Banco Central TLP Icon_minitimeSeg Dez 24, 2007 2:07 pm

vlw aew por ter feito esse macro tava precisando mTOO.....
^^
Ir para o topo Ir para baixo
Conteúdo patrocinado





Macro Mining Minoc Banco Central TLP Empty
MensagemAssunto: Re: Macro Mining Minoc Banco Central TLP   Macro Mining Minoc Banco Central TLP Icon_minitime

Ir para o topo Ir para baixo
 
Macro Mining Minoc Banco Central TLP
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Melhora do macro do Mewhouse (Mining Bank)
» Macro Tailor TLP
» Macro All Combats TLP
» Macro Reconect TLP
» Macro Tinker TLP

Permissões neste sub-fórumNão podes responder a tópicos
TLP Shard Forum :: Arquivos :: Macros Easy UO-
Ir para: