[Macro OpenEUO] Buscatesoros

[Aloisia]

Os dejo mi primera macro de OpenEUO. Como ya posteo Blaizzer en su día, OpenEUO es un programa que pretende ser el sustituto de Easyuo. A día de hoy aún está en fase ***a, y aún le queda mucho por desarrollar, pero he decidido empezar a familiarizarme con él, ya que dicen que su potencial será mayor que el de Easyuo (si la vida con EasyUo ya era facil... ahora lo será más).

Esta macro es muy sencilla. Es muy útil para localizar las plantas de los Mapas del tesoro. Simplemente es darle a "Play", y en el UO cuando creais estar cerca de la zona, darle a la Tecla ESC. El programa os informa si la planta está cerca o no, en caso de estarlo, os dice cuantos pasos teneis que andar y en que dirección para encontrarla.

La macro os la podeis bajar de este enlace[/COLOR]. En este rar viene incluido el programa, por lo que sólo es necesario bajarse el archivo y descomprimirlo (Actualizado 12/02/2012) .

dofile(getinstalldir().."scripts/Kal In Ex/FindItems.lua") 
plantas = {3220,3231,3233,3234,3235,3239,3244}
function buscar()
local t = nil 
t = ScanItems(true,{Type=plantas})
if t[1] == nil then
UO.SysMessage("No ves ninguna planta por aquí cerca")
else
disx = UO.CharPosX-t[1].X
disy = UO.CharPosY-t[1].Y
if disx<0 then 
disx = disx*(-1)
testx = "Anda "..tostring(disx).." pasos hacia el Este"
else
testx = "Anda "..tostring(disx).." pasos hacia el Oeste"
end
if disy<0 then 
disy = disy*(-1)
testy = "Anda "..tostring(disy).." pasos hacia el Sur"
else
testy = "Anda "..tostring(disy).." pasos hacia el Norte"
end
if disx == 0 then
if disy == 0 then
definitivo = "Has encontrado la planta correcta"
else
definitivo = testy
end
elseif disy == 0 then
definitivo = testx
else
definitivo = testx.." y "..testy 
end
UO.SysMessage(definitivo)
end
end

repeat
while not getkey("ESC") do wait (50) end
wait (50)
buscar()
wait (50)
until definitivo == "Has encontrado la planta correcta"

[Blaizzer]

Buena macro!

Si algún día me decido a subir el buscatesoros volveré a por ella, ya que es una de las que tenía en mente

[Aramil]

La macro ya no se puede bajar... podrías pasarmela?

[Aloisia]

Actualizo el post con la macro y el programa en un sólo archivo y subidos a Netload ( Mierda de FBI que me jodió mi querido MU).

Programa Open EUO y Macro de Buscar tesoros

[freddydy]

Muchas gracias.

Voy a probarla y a ver que tal.

Saludos

[freddydy]

Funciona de maravilla, muchas gracias!

[Dirts]

A mi no me deja darle al play,porque puede ser?

[Coolforehand]

A mi no me deja darle al play,porque puede ser?

Le das play, pero no se queda atenuado, sigue siendo verde. Aun así la macro esta funcionando.

[Elsa-Pataki]

Perfecta la macro.

Muchisimas gracias aloisa!!

[Draven]

Actualizo el post con la macro y el programa en un sólo archivo y subidos a Netload ( Mierda de FBI que me jodió mi querido MU).

Programa Open EUO y Macro de Buscar tesoros

descargado, pero me dice que el archivo esta dañado, alguno mas le ocurre?

EDIT: nada ni caso, va perfecto, buena macro, gracias.

[ser robin]

ami me ocurre

[freddydy]

A los que no os deja darle al play,

Poneis la macro, pulsais play ( se quedara igual)

Cuando esteis en un sitio cerca del tesoro, pulsais ESC, y os tendria que ir, si teneis alguna duda, o sigue sin ir, mandarme mp y hablamos por msn.

Un saludo

[Devil Shadow]

Me baje el OpenEUO y copie esta macro:

dofile(getinstalldir().."scripts/Kal In Ex/FindItems.lua") 
plantas = {3220,3231,3233,3234,3235,3239,3244}
function buscar()
local t = nil 
t = ScanItems(true,{Type=plantas})
if t[1] == nil then
UO.SysMessage("No ves ninguna planta por aquí cerca")
else
disx = UO.CharPosX-t[1].X
disy = UO.CharPosY-t[1].Y
if disx<0 then 
disx = disx*(-1)
testx = "Anda "..tostring(disx).." pasos hacia el Este"
else
testx = "Anda "..tostring(disx).." pasos hacia el Oeste"
end
if disy<0 then 
disy = disy*(-1)
testy = "Anda "..tostring(disy).." pasos hacia el Sur"
else
testy = "Anda "..tostring(disy).." pasos hacia el Norte"
end
if disx == 0 then
if disy == 0 then
definitivo = "Has encontrado la planta correcta"
else
definitivo = testy
end
elseif disy == 0 then
definitivo = testx
else
definitivo = testx.." y "..testy 
end
UO.SysMessage(definitivo)
end
end

repeat
while not getkey("ESC") do wait (50) end
wait (50)
buscar()
wait (50)
until definitivo == "Has encontrado la planta correcta"

Pero cuando le doy al play me dice error o algo asi, mi pregunta es: es esa la macro que hay que poner? Porque cuando intento bajarmela del link que puso aloisia se bloquea la descarga y nunca llega a terminar.

[Devil Shadow]

Nadie sabe cual es el problema?

[Mad_Brain]

Nadie sabe cual es el problema?

dofile(getinstalldir().."scripts/Kal In Ex/FindItems.lua")

ese puede ser tu problema, tienes que tener la libreria FindItems.lua en la direccion que te marca respecto de tu OpenEUO

[Draven]

gracias aloisia lo primero que va de fabulas y lo segundo.

nose si seria posible una editada asi por encima para que en vez de localizarte las plantas te localice las piedras de ishelnar de colorines. las de los nuevos minerales.

un saludo