TLP Shard Forum

Forum para os players do TLP Shard com Macros, Dicas, e mais...
 
InícioFAQBuscarRegistrar-seMembrosGruposConectar-se

Compartilhe | 
 

 Melhora do macro do Mewhouse (Mining Bank)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
xXCoNDoRXx
Starter
Starter


Mensagens : 2
Data de inscrição : 21/12/2007

MensagemAssunto: Melhora do macro do Mewhouse (Mining Bank)   Dom Dez 30, 2007 11:49 am

Não quero ser charope, mas este macro ai estava com alguns probleminhas e também não funciona na mina fechada, para acaba com esta limitação eu usei como base este script mas dei uma boa melhorada nele, podendo configura-lo para funcionar em qualquer mina com um bank dentro !
Então esta ai o código

Código:
;=====================================
; Mining Mina Principal Minoc
; Versão 1.3
; Data: 28/12/2007 - 00:41h
; Shard: Todos
;=====================================

;===========INSTRUÇÕES================
;para configurar leve seu char até um banqueiro da mina principal de minoc
;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



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 Voce_pos 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 %bankX %bankY
goto descarregar

descarregar:
set #nextcposx 300
set #nextcposy 0
msg $bank$
goto procurando

procurando:
finditem TVJ_GWJ_EWJ_DWJ_UVF_OVF_VUF_FVF_HVF_GVF_BVF_EVF
if #findkind = -1
{
move %bankX %bankY
goto inicio
}
wait 1s
goto arrastando

arrastando:
event drag #findid
wait 1s
key enter
wait 1s
click %bagx %bagy
wait 2s
goto banco

configurar:
event sysmessage Macro feito por Mewhouse e aprimorado por CoNDoR.
wait 1s
event sysmessage Va proximo a um bank na mina e aperte [ENTER]
gosub key
set %bankX #charposx
set %bankY #charposy
event sysmessage Ok
wait 1s
set %configurado 1
set #nextcposx 300
set #nextcposy 0
wait 1s
msg $bank$
wait 1s
event sysmessage Deixe o cursor sobre a bag aonde ira guardar os ores e aperte [ENTER]
gosub key
set %bagx #cursorx
set %bagy #cursory
event sysmessage Ok
event sysmessage Configurado
click %bagx %bagy r
wait 1s
move %bankX %bankY

goto inicio

sub key
   skey:
   onhotkey enter
   return
   goto skey
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Melhora do macro do Mewhouse (Mining Bank)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ajuda mútua em melhora de gameplay
» bank angle
» SSD melhora o depempenho do FSX
» Catalyst 11.11
» FSX - imagens testes do SHADE

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
TLP Shard Forum :: Arquivos :: Macros Easy UO-
Ir para: