Necesito> Macro de pesca

[Drew]

Pues como el titulo indica necesito una macro de pesca adaptada a los cambios, dado que la de alx ya no funciona y no he encontrado ninguna en el foro que funcione. Si alguien tiene alguna porfavor comuniquemelo

[Trokolo]

postea la de alex y miramos haber si se puede apañar

[canapeabatible]

Buenas amigos. Como ami tambien me interesa este tema y nunca he obtenido respuesta de nadie (q no quiera vender) aqui tienes la macro. Aver q se puede hacer maestro!


; Macro by Alex (Ultima Alianza)
; Para pescar y que guarde los peces.
; Colocar el Barco con la trampilla detrás, osea, la trampilla hacia el sur.
; Podemos hacerlo plantando el barco y diciendo "turn around".
; Debemos colocarnos justo al lado de la trampilla del barco (cofre).
; Para evitar problemas estaria bien tener dos cañas en la mochila.
; Debemos ir a mar abierto parsa que no encuentre obstaculos, aunque no es problema.
; La macro ira pescando y cuando acabe d eun lugar moverá el barco y seguirá.
; Despues de configurar la macro, cierra la trampilla.
; Si quieres usar una caña mágica deberás cambiar esto:
; Cambiar el valor en el set %canya
; Caña normal: XHF
; Caña mágica:
;--------------------
set %canya XHF
;---------------------
initevents
chooseskill FISH real
set %skillini #SKILL

configurar:
Event sysmessage Situate al lado de la trampilla, abrela y deja el cursor encima.
event sysmessage Y presiona la tecla ESC
setuotitle Situate al lado de la trampilla, abrela, manten el cursor y presiona ESC
set %conf 1
set %confp 2
goto TESC


TESC:
onHotKey ESC
{
if %conf = 1
{
Event sysmessage CIERRA LA TRAMPILLA SI LA TIENES ABIERTA!
set %trampilla #LOBJECTID
set %cursorx #CURSORX
set %cursory #CURSORY
set %locs LOCATIONS_PISADAS
set %pescados 0
msg raise anchor$
setuotitle Pescando...
goto empezar
}
}
goto TESC

empezar:
findItem %canya
if #FINDSTACK = 0
{
set %fin 1
goto finalizar
}
set #LOBJECTID #FINDID
set %cmsg #jIndex
event macro 17
wait 10
event macro 23
wait 4s
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Aqui_no_hay_nada in #journal
{
goto moverse
}
}
goto guardapescado

guardapescado:
findItem G_ , DQD
if #FINDSTACK = 0
{
findItem G_ , EQD
if #FINDSTACK = 0
{
findItem G_ , GQD
if #FINDSTACK = 0
{
findItem G_ , FQD
if #FINDSTACK = 0
{
set %skillinc #SKILL - %skillini
setuotitle PESCANDO | S.Inicial %skillini | S.Actual #SKILL | S.Inc %skillinc | Pescados guardados: %pescados
goto empezar
}
}
}

}
event drag #FINDID
wait 10
msg $
click %cursorx %cursory p
wait 10
set %pescados %pescados + #FINDSTACK
goto guardapescado

moverse:
set %random #RANDOM % 4
if %random = 0
{
msg forward$
}
if %random = 1
{
msg left$
}
if %random = 2
{
msg right$
}
if %random = 3
{
msg back$
}
wait 50
msg stop$
if #CHARPOSX , _ , #CHARPOSY In %locs
{
goto moverse
}
set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
goto guardapescado



finalizar:
msg drop anchor$
if %fin = 1
{
display OK Macro terminada!$$No tienes caña de pescar, o si la tienes y es mágica$configuralo al inicio de la Macro
}

[Minette]

Creo que en el foro viejo se puso editada para el nuevo emulador, si alguien la tiene y la postea que yo tambien estoy interesado.

[Beyonce Knowles]

a esa macro k le pasa realmente ?

[canapeabatible]

postea la de alex y miramos haber si se puede apañar

hola amigo! ya tienes la macro de alx en el post de macro de pesca de drew o algo asi se llamaba jeje. Mirala y revisala si puedes. un saludo!:

[canapeabatible]

nada q no funciona ni desde el principio.miradla aver!

[Minette]

Puedes decir exactamente en que falla?

[canapeabatible]

Exactamente nada.

[Minette]

Me extraña que no haga nada, talvez la ID de la caña cambio... porque vamos que le des al play le des a ESC seleccionando la trampilla y ni se mueva ni nada me paece muy raro.

[Drew]

A mi la macro de alx me falla xk pesca encima de la trampilla(cosa que ahora no se puede) como no pude pasar de ese paso nose si fallara algo mas gracias

[Trokolo]

yo tambien probe la macro me hacia cosas raras xD ahora que dices eso de que pesca encima de la trampilla probare varias cosas... haer si funciona o no la macro XD

[Milara]

A mi no me funsiona esa macro... jeje

Saludos

[o0{BoXeR}0o]

Aun sale rentable pescar?

[Trokolo]

pues que sepa para hacerse rico no pero yo almenos era porque en todos los servers fui gm fishing y en este no queria ser menos aunke segun veo no va a poder ser XD

[Minette]

Aun sale rentable pescar?

Que han cambiado?

[Oh-Mai-Gad]

Ahora los peces te los pagan a 2gp's ,

[Drew]

Alguien podria modificarla o si alguien tiene una nueva la podria postear¿ gracias,yo no quiero pescar por dinero simplemente kiero subir la skill porque me gusta jejejeje

[Escawen]

nadie a conseguido mirar haber si tiene algun fallillo tonto? yo esque no se como van el royo de las macros si no lo miraba xD

[m4s00d]

Nada yo también he estado un rato con esta macro y nada ... ni un pescaito xD. Dice continuamente "Intente pescar en agua" (WTF!), parece un problema de locations (el #LOBJETID está asociado a la trampilla), a ver si alguien con más idea de esto puede postear uan solución.

Gracias.