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
;=============================================================
Dom Dez 30, 2007 11:52 am
