TLP Shard Forum

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

Compartilhe | 
 

 Separa e Smelta ore (e algumas coisas extras)

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: Separa e Smelta ore (e algumas coisas extras)   Dom Dez 30, 2007 11:52 am

Eis aqui um macro muito util que eu fiz
O que ele faz ?
Ele coloca ore na sua bag separa de 1 em 1 smelta guarda o ingots no bank e pega mais ore para separar e começa novamente.
para isto deixe sempre um minério em uma bolsa isolada .... e sempre guarda coisas em bag se não ele pode entrar em um laço infinito !!!

Código:
;Macro criado por Technoghost e aprimorado por CoNDor
;Distribuição restrita
;Servidor: Todos
;Data de criação 21/11/2004
;Data de manutenção 28/12/2007

;=======================Como Funciona=======================
;Va até um forge próximo a um bank
;Verifique se o bank já não esta aberto
;Deixe uma bag com apenas com o minério que deseja separar
;Siga as instruções
;Não mova o backpack e o bank em quanto o macro funciona
;Não deixe nenhum gumppic ficar por cima do backpack ou bank
;===========================================================

initevents
wait 1s

;===============Configurões iniciais do macro===============

; Abre a bag NAO FECHE ELA
event macro 8 7
wait 1s
contpos 696 408
set %ore DWJ_EWJ_GWJ
set %um_ore TVJ
set %ingot RMK

event Sysmessage Macro de separar ore feito por Technoghost
event Sysmessage Aprimorado por CoNDor para funcionar em qualquer local
wait 2s

goto configurar

configurar:

event sysmessage Va ate um forge proximo a um bank e aperte [ENTER]
gosub key
event sysmessage Ok
wait 1s
set #nextcposx 300
set #nextcposy 0
msg $bank$
wait 1s
event sysmessage Deixe o Mouse em cima de uma bag com iron ore e aperte [ENTER]
gosub key
set %bag_oreX #cursorx
set %bag_oreY #cursory
event sysmessage Ok

event sysmessage Deixe o Mouse em cima de uma bag aonde sera guardado os ingots e aperte [ENTER]
gosub key
set %bag_ingotX #cursorx
set %bag_ingotY #cursory
event sysmessage Ok
event sysmessage CONFIGURADO !


click %bag_ingotX %bag_ingotY r

;=====================================================


;===================Separa Ores====================
separa:
finditem %ore
if #findkind = 0
{
event drag #findid
wait 1s
msg 1$
click 743 424
wait 1s
}
goto smelta
;==================================================



;=================Smelta ores=======================
smelta:
finditem %um_ore
if #findkind = 0
{
set #LObjectID  #FindID
event macro 17 0
goto separa
}
else
{
goto pega_ore
}
;==================================================




;====================Pega mais ore e guarda os ingots==============
pega_ore:
finditem %ingot
event drag #findid
wait 2s
set #nextcposX 300
set #nextcposY 0
msg $bank$

wait  2s

click %bag_ingotX %bag_ingotY
wait 2s

click %bag_oreX %bag_oreY d

wait 2s

finditem %ore
event drag #findid
wait 2s
msg 300$
wait 2s
click 760 450
wait 2s
click %bag_ingotX %bag_ingotY r
click %bag_ingotX %bag_ingotY r

goto separa

sub key
   skey:
   onhotkey enter
   return
   goto skey
;=============================================================
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ruan22
Admin
avatar

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

MensagemAssunto: Re: Separa e Smelta ore (e algumas coisas extras)   Sex Jan 04, 2008 5:44 pm

Boa!

;D
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://tlpshard-forum.forumeiros.com
 
Separa e Smelta ore (e algumas coisas extras)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» curiosidades sobre algumas coisas
» [Brasil] TRIP terá voos extras no período de férias.
» Como Lidar & Punir Coisas Específicas
» 7 Coisas Que Você Não Sabia Sobre Os Games
» coisas muito engrasadas kkkkkkkkkkkkk!

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: