Alguien tiene macro pescar para el nuevo emulador? esque pescaba pescado en el barco i lo guardaba en la trampilla
Alguien tiene macro pescar para el nuevo emulador? esque pescaba pescado en el barco i lo guardaba en la trampilla
; 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
}
Prueba esta si eso yo pesque durante un tiempo con ella pero no se si funciona ahora.
Código:;================================== ; Script Name: Entrenar Pescar ; Author: Trokolo ; Version: 1.0 ; Client Tested with: 2.0.3 ; EUO version tested with: 1.5 Version 130 ; Shard: Ultima Alianza ; Release: 01/03/08 ; Purpose: Fishing ; Note: Solo guarda peces. Macro abandonada por falta de información sobre Skill. ;================================== set %canya XHF set %marx 355 set %mary 395 set %bodegax 414 set %bodegay 315 inicio: findItem %canya wait 10 set #LOBJECTID #FINDID wait 10 event macro 17 0 wait 50 click %marx %mary f wait 50 scanJournal if Aqui_no_hay_nada in #journal { goto moverse } wait 9s 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 3s msg stop$ wait 20 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 3s msg stop$ wait 20 goto inicio guardapescado: set %pesca 0 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 %pesca 1 } } } if %pesca = 0 { event drag #FINDID wait 20 KEY ENTER wait 10 click %bodegax %bodegay p gosub guardapescado } goto moverse }
Alguien puede confirmar que funciona?
acabo de probarla y no funciona, pone Intenta pescar en el agua, y eso que intente por todo el barco.
Alguien que entienda por favor y la arregle.
Al darle play sobre el barco no pesca nada, pone intenta pescar en el agua.
Desde ya muchas gracias.
Aqui la teneis,pero que sepais que pesca hacia el este, por lo que teneis que: o iros a alta mar, o que no halla nada al este del barco.
Espero que os sirba.
si conseguir pescar una botella y sois tan amables, decidme su ID para que la incluya en la macro y la guarde automaticamente
Última edición por tssefirot; 19-Apr-2009 a las 11:47
graciass
eso macro me dice todo el rato ke intente pescar en agua.
como se arregla eso?
bajate la ultima de todas las que hay colgadas,metete en alta mar y no deberia de dar problema, si te pones encima del cofre del barco
Bueno la macro va perfect grax tio al final le cambie el time a 7 i ay ya tira bien e puesto para que pesque con el barco hacia la derecha (este) pero bueno ahora tiene un pequeño problema que de vez en cuando sale: Donde quieres lanzar? i no hace nada i se queda asi los 7 segundos asta que lo vuelve hacer avezes se queda trabada un ratillo pero al final continua alguien que sepa pls si lo puedo arreglar tambien estaria interesante que se oculte
cuando pille un cofre te paso el id pille uno pero le di 2 clicks i se convirtio en un cofre de metal normal no se si servira su id pero bueno bueno dejo la macro funciona bien pero lo unico eso que avezes se traba
Pa que tire el barco tiene que estar mirando pa la derecha (este) i la resulucion la tienes que tener al topeCódigo:; Macro by Alex (Retroficada por Tssefirot) ; 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 VISITA LIQUIDACION POR CIERRE EN NUL´HEIM, NO TE ARREPENTIRAS 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 click 475 372 wait 7s 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 { findItem G_ , XDF if #FINDSTACK = 0 { findItem G_ , JMF 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 }.
Aunke la id de las botellas esta en la ultima revision de la makro a mi no me las guarda,alguien kon el mismo problema?
estoy preparando una macro de pescar que pesca infinitamente (vamos, que hace circulos, y al volver al inicio ya respawnea).
también se hidea para evitar que te maten los bichos.
si alguien tiene ID de los monstruos marinos, kraken, serpientes, cofres y botellas. q las ponga plz.