HABER SI ALGUIEN ME PUEDE DEJAR UNA MACRO DE MINAR EN MINOC , PERO QUE SOLO SAQUE UN TIPO DE MINERAL , QUE SOLO SAQUE HIERRO , QUE VAYA AL BANK Y LO GUARDE , SI SE PUEDE MODIFICAR , AQUI TENEIS LA OTRA , ABRÁ QUE AÑADIR ALGO PARA QUE SOLO SAQUE MINERAL HIERRO , O QUIZAS NO SE PUEDE
set %lugar 6
set %pesoMax 120
set %separo 0
set %mina
set %uno 1
set %descargas
set %muertes
set %subidas
set %pasos
set %lugarmina 0
; ----------------------------------------------------------------------------------------------------
initevents
event sysmessage Iniciando Macro
setuotitle | Mining | Descargas %descargas | Muertes %muertes |
gosub minar
;------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------
sub verPeso
{
if #WEIGHT > %pesoMax
{
event sysmessage estoy por arriba del peso que puedo cargar
gosub voyAlBanco
}
if #WEIGHT < %pesoMax
{
set %diferencia %pesoMax - #WEIGHT
event sysmessage puedo seguir, me faltan %diferencia
}
return
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
}
;----------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------
sub irForja
{
event Macro 32 0
Move 2573 477
Move 2576 478 a
event Macro 5 2
event Macro 5 2
Move 2573 477
Move 2575 477 a
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
if %separo = 0 ;si pongo separo = 1 me lo separa
{
gosub fundir ;habria q poner separar para q lo separe
}
else
{
gosub fundir
}
}
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------
sub fundir
{
event sysmessage entre a fundir
FINDITEM TVJ_GWJ_EWJ_DWJ_C_,#BACKPACKID
If #Findkind = -1
{
event sysmessage no hay nada que se pueda fundir
gosub voyAlBanco
}
else
{
event sysmessage ENCONTRE !! minerales
scanJournal %i
if fundirlo in #journal
{
set %pasos %pasos + %uno
goto acabapicar
if %pasos = 10
{
Move 2579 484
gosub irForja
}
}
set #LOBJECTID #FINDID
event macro 17
wait 10
FINDITEM TVJ_GWJ_EWJ_DWJ_C_,#BACKPACKID
If #Findkind = -1
{
event sysmessage Ya acabe
gosub voyAlBanco
}
else
{
gosub fundir
}
}
}
;------------------------------------------------------------------------------------------------------
sub volverbanmu
{
Move 2518 539
Move 2529 539
Move 2529 518
Move 2527 516
Move 2527 501
Move 2557 501 a
Move 2560 494
Move 2559 499
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
}
sub voyAlBanco
{
set %descargas %descargas + %uno
Move 2567 481
Move 2560 494
Move 2557 501 a
Move 2527 501
Move 2527 516
Move 2529 518
Move 2529 539
Move 2518 539
Move 2509 540 ;///
Move 2507 542 ;//
;Move 2512 552
NEXTCPOS 200 200
MSG $bank$
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub volverbanmu
}
gosub guardarEnBanco
}
;-----------------------------------------------------------------------------------------------------
sub guardarEnBanco
{
for %variable 1 10
{
findItem DWJ C_ , #BACKPACKID
if #FINDSTACK <> 0
{
event drag #findid
wait 10
KEY ENTER
wait 10
click 294 336 p
wait 20
}
findItem EWJ C_ , #BACKPACKID
if #FINDSTACK <> 0
{
event drag #findid
wait 10
KEY ENTER
wait 10
click 294 336 p
wait 20
}
findItem DWJ C_ , #BACKPACKID
if #FINDSTACK <> 0
{
event drag #findid
wait 10
KEY ENTER
wait 10
click 294 336 p
wait 20
}
findItem TMK C_ , #BACKPACKID
if #FINDSTACK <> 0
{
event drag #findid
wait 10
KEY ENTER
wait 10
click 294 336 p
wait 20
}
}
gosub volver
}
;------------------------------------------------------------------------------------------------------
sub volver
{
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
set %lugarmina %lugarmina + 1
if %lugarmina = 1
{
Move 2518 539
Move 2529 539
Move 2529 518
Move 2527 516
Move 2527 501
Move 2557 501 a
Move 2560 494
Move 2559 499
}
if %lugarmina = 2
{
Move 2518 539
Move 2529 539
Move 2529 518
Move 2527 516
Move 2527 501
Move 2557 501 a
Move 2560 494
Move 2559 499
Move 2568 480
}
if %lugarmina = 3
{
Move 2518 539
Move 2529 539
Move 2529 518
Move 2527 516
Move 2527 501
Move 2557 501 a
Move 2560 494
Move 2559 499
Move 2575 479
set %lugarmina 0
}
gosub minar
event Macro 32 0
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
}
;------------------------------------------------------------------------------------------------------
sub minar
{
gosub estoyMuerto
chooseskill mini
set %skillini #skill
set %locs LOCATIONS_PISADAS
set %borrado 0
event sysmessage Iniciando Macro
gosub lugares
comienzo:
setuotitle | Mining | Descargas %descargas | Muertes %muertes |
if %mina = 3
{
event sysmessage ME TENGO Q MOVER HACIA LA OTRA MINA
set %mina 0
gosub volverabajo
}
findItem NPF
if #FINDSTACK = 0
{
findItem QPF
}
set #LOBJECTID #FINDID
set %cmsg #jIndex
event macro 17
wait 10
gosub estoyMuerto ;/******************************************/*/*////////
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Donde_quieres_utilizar in #journal
{
set %seguridad 0
goto acabapicar
}
}
goto comienzo
acabapicar:
gosub estoyMuerto
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
set %cmsg #jIndex
target
event macro 22
wait 80
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Aqui_no_hay_nada_por in #journal || Prueba_a in #journal || You_have_no_line_of_sight in #journal || Pones_el__mineral_de_sombra in #journal || Pones_el__mineral_de_cobre in #journal || Pones_el__mineral_oxidado in #journal || You_cannot in #journal
{
set %mina 0
gosub verPeso
goto moverse
}
;-------------------------------------------------------------------------
if you_have_no_line_of_sight in #journal || no_puedes_ver_bien_tu_objetivo in #journal
{
set %mina %mina + %uno
event sysmessage NOKIEROMAS
gosub verPeso
goto moverse
}
if Pones_el in #journal || No_encuentras in #journal
{
set %skillinc #SKILL - %skillini
gosub verPeso
goto comienzo
set %mina 0
}
;-----------------------------------------------
;--------------------------------------------------------------
}
gosub seguridad
goto acabapicar
moverse:
gosub estoyMuerto
if %lugar > 0
{
if #CHARPOSX , _ , #CHARPOSY notIn %locs
{
set %borrado %borrado + 1
if %borrado > 100
{
set %locs LOCATIONS_PISADAS
set %borrado 0
}
set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
}
if %lugarp = X
{
if %lugaro < #CHARPOSX
{
for %i 1 6
{
event macro 5 7
wait 10
}
}
}
if %lugar = 5
{
if %lugaro > #CHARPOSX
{
for %i 1 6
{
event macro 5 3
wait 10
}
}
}
if %lugarp = Y
{
if %lugaro < #CHARPOSY
{
for %i 1 6
{
event macro 5 1
wait 10
}
}
}
;*-*-*******************************-----------si no va bien borrarlo
event macro 13 21
wait 2s
;*-*-*******************************-----------si no va bien borrarlo
}
set %mover #random % 7
event macro 5 %mover
wait 20
event macro 5 %mover
wait 20
if #CHARPOSX , _ , #CHARPOSY in %locs
{
goto moverse
}
goto comienzo
sub seguridad
{
set %seguridad %seguridad + 1
if %seguridad > 15
{
set %seguridad 0
goto comienzo
}
return
}
sub lugares
{
if %lugar = 1
{
set %lugaro 1460
set %lugarp Y
}
if %lugar = 2
{
set %lugaro 2454
set %lugarp X
}
if %lugar = 3
{
set %lugarp Y
}
if %lugar = 4
{
set %lugaro 828
set %lugarp Y
}
if %lugar = 5
{
set %lugaro 2355
set %lugarp X
}
if %lugar = 6
{
event sysmessage Mina de Minoc
set %lugaro 499
set %lugarp Y
}
if %lugar = 7
{
set %lugaro 2602
set %lugarp X
}
if %lugar = 8
{
set %lugaro 2426
set %lugarp X
}
if %lugar = 9
{
set %lugaro 2440
set %lugarp X
}
if %lugar = 10
{
set %lugaro 66
set %lugarp Y
}
if %lugar = 11
{
set %lugaro 266
set %lugarp Y
}
if %lugar = 12
{
set %lugaro 1259
set %lugarp X
}
if %lugar = 13
{
set %lugaro 2729
set %lugarp Y
}
if %lugar = 14
{
set %lugaro 2895
set %lugarp Y
}
if %lugar = 15
{
set %lugaro 1991
set %lugarp X
}
if %lugar = 16
{
set %lugaro 1499
set %lugarp X
}
if %lugar = 17
{
set %lugaro 1941
set %lugarpX
}
if %lugar = 18
{
set %lugaro 1918
set %lugarp X
}
if %lugar = 19
{
set %lugaro 3822
set %lugarp Y
}
if %lugar = 20
{
set %lugaro 4766
set %lugarp X
}
if %lugar = 21
{
set %lugaro 4817
set %lugarp X
}
if %lugar = 22
{
set %lugaro 3302
set %lugarp Y
}
if %lugar = 23
{
set %lugaro 4554
set %lugarp X
}
if %lugar = 24
{
set %lugaro 1812
set %lugarp X
}
if %lugar = 25
{
set %lugaro 1695
set %lugarp Y
}
goto comienzo
}
;-------------------------------------------------------------------------------------------------------
sub estoyMuerto
{
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
else
{
return
}
}
;--------------------------------------------------------------------------------
sub voyAlCurandero
{
event Macro 32 0
Move 2567 481
Move 2560 494
Move 2557 501 a
Move 2527 501
Move 2527 516
Move 2529 518
Move 2529 539
Move 2536 542
Move 2541 561
Move 2539 588
Move 2517 588
Move 2512 615
Move 2531 622
Move 2577 622
Move 2577 596
Move 2573 593
Move 2572 592
Move 2572 590
gosub resucitar
}
sub volverabajo
{
if #CHARGHOST = YES
{
wait 30
set %muertes %muertes + %uno
gosub voyAlCurandero
}
event sysmessage ENTRO EN VOLVER
set %subidas %subidas + %uno
;--------------
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
;----------------
MSG $.where$
scanJournal 2
if BrightBlade:_I_am_in_Minoc in #journal
{
event sysmessage LLEGUE ANTES
gosub minar
}
;--------------
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
;----------------
MSG $.where$
if BrightBlade:_I_am_in_Minoc in #journal
{
event sysmessage LLEGUE ANTES
gosub minar
}
;-----------
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
;----------------
MSG $.where$
if BrightBlade:_I_am_in_Minoc in #journal
{
event sysmessage LLEGUE ANTES
gosub minar
}
;--------------
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 6
wait 2s
event macro 5 6
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event Macro 5 5
wait 2s
event macro 5 5
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
event macro 5 4
wait 2s
gosub minar
}
;--------------------------------------------------------------------------------
sub resucitar
{
event macro 6
wait 20
event macro 6
wait 20
if #hits > 0
{
Move 2572 593
Move 2575 594
Move 2577 596
Move 2577 622
Move 2531 622
Move 2512 615
Move 2517 588
Move 2539 588
Move 2541 561
Move 2536 542
Move 2529 539
Move 2529 518
Move 2527 516
Move 2527 501
Move 2557 501 a
Move 2560 494
Move 2567 481
event macro 8 7
contpos 484 655
event macro 6 0
event macro 32 0
wait 5s ;no se si esta bien pone 5s y lo cambio por 5 solo
gosub minar
}
else
{
gosub resucitar
}
}
Citar
