xXCoNDoRXx Starter
Mensagens : 2 Data de inscrição : 21/12/2007
| Assunto: 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 | |
|