Hail.
I can get the text that is in a gump ? When i use the command "infogump" its show the info of the gump ( duh ), and show something like
TEXT
1 ) Bla bla bla
2 ) BLE BLE BLE
4 ) XX
xx is a number, i need just say that number to pass in the macro check...
its possible ?
sorry my enlgish
Macro test.
Moderators: Murderator+, Murderator
that's the script.
var f = file("c:\personal.map")
var secure = "0x5869C707"
sub main()
open_file()
empty_bottle()
read_maps()
close_file()
end sub
sub open_file()
f.open()
f.writeln("3")
end sub
sub close_file()
f.close()
end sub
sub read_maps()
while uo.count("0x14ED") > 0
read_put()
write_coord()
wend
end sub
sub write_coord()
var testo = UO.lastgump("text",1)
var coord = ""
for var i = 0 to (STRLEN(testo)-1)
if (testo[i] >= "0") and (testo[i] <= "9") then
coord = coord + testo[i]
end if
if testo[i] == "," then
coord = coord + " "
end if
next
testo = UO.lastgump("text",2)
for i = 0 to (STRLEN(testo)-1)
if (testo[i] >= "0") and (testo[i] <= "9") then
coord = coord + testo[i]
end if
if testo[i] == "," then
coord = coord + " "
end if
next
f.writeln("-point of interest: "+coord+" 1 tesoro")
end sub
sub read_put()
uo.findtype("0x14ED")
UO.useobject("finditem")
wait(500)
UO.LDblClick(154,157)
wait(500)
UO.setreceivingcontainer(secure)
wait(500)
UO.grab(1,"finditem")
wait(500)
UO.unsetreceivingcontainer()
end sub
sub empty_bottle()
while uo.count("0x099F") > 0
uo.usetype("0x099F")
wait(100)
wend
end sub
var f = file("c:\personal.map")
var secure = "0x5869C707"
sub main()
open_file()
empty_bottle()
read_maps()
close_file()
end sub
sub open_file()
f.open()
f.writeln("3")
end sub
sub close_file()
f.close()
end sub
sub read_maps()
while uo.count("0x14ED") > 0
read_put()
write_coord()
wend
end sub
sub write_coord()
var testo = UO.lastgump("text",1)
var coord = ""
for var i = 0 to (STRLEN(testo)-1)
if (testo[i] >= "0") and (testo[i] <= "9") then
coord = coord + testo[i]
end if
if testo[i] == "," then
coord = coord + " "
end if
next
testo = UO.lastgump("text",2)
for i = 0 to (STRLEN(testo)-1)
if (testo[i] >= "0") and (testo[i] <= "9") then
coord = coord + testo[i]
end if
if testo[i] == "," then
coord = coord + " "
end if
next
f.writeln("-point of interest: "+coord+" 1 tesoro")
end sub
sub read_put()
uo.findtype("0x14ED")
UO.useobject("finditem")
wait(500)
UO.LDblClick(154,157)
wait(500)
UO.setreceivingcontainer(secure)
wait(500)
UO.grab(1,"finditem")
wait(500)
UO.unsetreceivingcontainer()
end sub
sub empty_bottle()
while uo.count("0x099F") > 0
uo.usetype("0x099F")
wait(100)
wend
end sub