[A]Ayuda macro

[Hate]

Bueno, la ayuda que necesito es la siguiente, en la parte de la macro que os cuelgo aqui abajo, falta algo para que mi personaje mine en la misma casilla hasta que acabe el mineral pero no consigo ver lo que es, pos mas cosas que cambio siempre sale algun fallo.
No se si me he explicado, mi pj se dirige a la mina, empieza a minar en una casilla pero solamente lo hace una vez, y lo que me gustaria esque minase hasta terminar el mineral de esa casilla. Venga un saludo.


Aqui os dejo la macro:







;=========================== SECTORES ============================

Sub Sector1
for %MinandoY 2715 2726
{
for %MinandoX 1374 1362
{
move %MinandoX %MinandoY 0 15s
gosub Picar
}
}
gosub trayecto;DEJA EL MINERAL Y VUELVE
return

Sub Sector2
for %MinandoY 2713 2705
{
for %MinandoX 1367 1367
{
move %MinandoX %MinandoY 0 15s
gosub Picar
}
}
gosub trayecto;DEJA EL MINERAL Y VUELVE
return

Sub Sector3
for %MinandoY 2707 2711
{
for %MinandoX 1375 1381
{
move %MinandoX %MinandoY 0 15s
gosub Picar
}
}
gosub trayecto;DEJA EL MINERAL Y VUELVE
return

;============================ COLOCAR MATERIALES =================
Sub Dejar_Menas
Minerales:
finditem DWJ c_ , #BACKPACKID
if #findkind = -1
{
ignoreitem reset
return
}
event drag #findid
wait 10
msg $
wait 10
click %Cofrex %Cofrey p
goto Minerales
return

;================================= TRAYECTOS ======================
Sub Casa_Mina
move 1380 2755 0 50s ; ESQUINA CASA
move 1367 2730 0 50s ;PUERTA MINA
move 1371 2711 0 50s;CENTRO MINA2
move 1371 2711 0 50s ;CENTRO MINA1
return

Sub Mina_Casa
set #lobjectid %puerta
move 1371 2711 0 50s ;CENTRO MINA1
move 1371 2711 0 50s ;CENTRO MINA2
move 1367 2730 0 50s ;PUERTA MINA
move 1380 2755 0 50s ; ESQUINA CASA
return
;================================= PICANDO ======================
Sub Picar
set #lobjectid %pico
Picando:
if #CHARGHOST = YES
pause
If #weight >= %Limite
{
Set %MinandoY #charposy
gosub trayecto
return
}
event macro 17 0
wait 20
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
event macro 22

wait 6s
set %journal #sysmsg
if You_have_no_line in #journal || Prueba_a in #journal
{
set %borrado %borrado + 1
if %borrado > 100
{
set %locs LOCATIONS_PISADAS
set %borrado 0
}
set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
gosub compruebapeso




{
return
}
else
{
wait 6s
goto Picando
}

return

Sub trayecto
gosub Mina_Casa
gosub Dejar_Menas
gosub Casa_Mina
return

[o0{BoXeR}0o]

Simplemente despues de dar la picada dile go to picar: x ejemplo y la palabra picar: ha de estar justo antes de la accion de picar, ademas de eso has de colarle por el medio un if que sea esa frase de aki no hay mienral k picar o lo ke diga, y cuando salga esa frase mandalo de new a la accion de mover el pj, saludos.

[Hate]

ok gracias por la aclaracion, lo que hacia yo era poner la frase esa lo que no hacia era poner lo de GO TO PICAR ni el if.

Gracias aver ahora sigo tocando cosas.

Un saludo

[Mortae Rex]

noooooo, se me borro lo ke te habia escrito!!!!

intentare de nuevo :S

en vez de usar #SYSMSG usa scanjournal ya ke el sysmsg podes llegar a perderlo si no calculas bien el tiempo
Necesitas identificar todas las posibles respuestas y crear un IF para cada una. Todas las ke falla o ke se acaba el mineral, mandas a JournalEnd y ke vaya al siguiente lugar. pero si pilla mineral, mandas a ke vuelva a picar ahi

event macro 17 0
wait 20
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
event macro 22

wait 6s

tras el event macro 17, en vez de wait, metele "target 5s"

event macro 17
target 5s

wait 1
deletejournal

event macro 22

set %i 0
JournalLoop:
scanjournal %i


if n/a in #JOURNAL
goto JournalEnd
if prueba_a in #JOURNAL
goto JournalEnd
if ....
goto JournalEnd
if _PUT_MINERAL in #JOURNAL
goto Picar ;necesitas un Picar: en el ke no se mueva... como dijo Boxer, separa el acto de moverse del acto de picar

set %i %i +1
wait 1s
if %i >= 15
got JournalEnd ;ke no se kede trabado en caso de ke nos falle algo

goto JournalLoop
JournalEnd:
deleteJournal
return (o goto moverse y picar

)

mas o menos algo asi deberia estar bien. no lo he probado asi, pero creo ke te da la idea, no?

suerte

EDITADO: olvide meter el target y el event macro 22

[Hate]

Gracias Mortae Rex a ti tambien.

[Hate]

Hola de nuevo, me puse hoy a tocar la macro y si efectivamente me pica hasta finalizar el mineral pero.....no se porque razon llega un momento que se cansa mi pj y se queda parado, ago yo una picada a mano y sigue ya la macro todo bien hasta que otra vez se vuelve a parar y otra vez tengo que darle a mano.
Asi cada X tiempo.




;================================= PICANDO ======================
Sub Picar
set #lobjectid %pico
Picando:
if #CHARGHOST = YES
pause
If #weight >= %Limite
{
Set %MinandoY #charposy
gosub trayecto
return
}
Picar:
event macro 17 0
target 5s
wait 1
deletejournal
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
event macro 22
wait 8s
set %i 0
JournalLoop:
scanjournal %i
{
if You_have_no_line in #journal || Prueba_a in #journal ||
{
goto JournalEnd
}
if Aqui_no_hay in #journal ||
{
goto JournalEnd
}
scanJournal %i
if You_put_the_mineral in #journal || No_encuentras in #journal
goto Picar
}
goto JournalLoop
JournalEnd:
deleteJournal
return
{
}
set %borrado %borrado + 1
if %borrado > 100
{
set %locs LOCATIONS_PISADAS
set %borrado 0
}
set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
gosub compruebapeso
{
return
}
else
{
wait 7s
goto Picando
}
}
return
}
Sub trayecto
gosub Mina_Casa
gosub Dejar_Menas
gosub Casa_Mina
}
return
}


Me estoy agobiando porque aun encima que se poco me jode eso, ademas si le mando a PICAR cuando salen los mensajes en el diario y joder me desquicio xd.

[Hate]

Vale creo que ya esta, creo que era que tenia dos nombres diferentes para PICAR (Picar y Picando) simplemente he puesto una y creo que esta arreglado.

PD:digo creo porque estoy probandola aun.

PD2: Porcierto mola la nieve del foro jaja.
PD3: Sigue trabandose la macro, esta vez ha tardado mas en quedarse parao. DESQUICIO ON! xD

[Hate]

Ya se lo que falla, Cada vez que sale un mensaje en el diario se para. ¿como hago para que ignore ciertos mensajes?.
Algunos ejemplos de estos mensajes son:

"reactivado el derrumbe automatico de casas"
"Objetivo cancelado"
"AVISO: el reinicio sera dentro de 5 minutos......"
"Unexpected........"

Hay cientos de mensajes, ¿como hago para cuando lea en el diario esos mensajes que no tienen nada que ver con MINAR los ignore?