Follow Script (Not fully tested)
Posted: 2005-05-23 10:36:07
For those who want to follow targets while macroing.
sub follow()
var togoX
var togoY
while 1
togoX=UO.GetX('self') - UO.GetX('lasttarget')
togoY=UO.GetY('self') - UO.GetY('lasttarget')
if togoX > 1 then
repeat
uo.press(78)
wait(100)
togoX=UO.GetX('self') - UO.GetX('lasttarget')
until togoX < 1
endif
if togoX < -1 then
repeat
uo.press(77)
wait(100)
togoX=UO.GetX('self') - UO.GetX('lasttarget')
uo.print(STR(togoX))
until togoX > -1
endif
if togoY > 1 then
repeat
uo.press(75)
wait(100)
togoY=UO.GetY('self') - UO.GetY('lasttarget')
until togoY < 1
endif
if togoY < -1 then
repeat
uo.press(76)
wait(100)
togoY=UO.GetY('self') - UO.GetY('lasttarget')
until togoY > -1
endif
wait(1000)
wend
end sub
just set the keys to walk N S E W and be happy
sub follow()
var togoX
var togoY
while 1
togoX=UO.GetX('self') - UO.GetX('lasttarget')
togoY=UO.GetY('self') - UO.GetY('lasttarget')
if togoX > 1 then
repeat
uo.press(78)
wait(100)
togoX=UO.GetX('self') - UO.GetX('lasttarget')
until togoX < 1
endif
if togoX < -1 then
repeat
uo.press(77)
wait(100)
togoX=UO.GetX('self') - UO.GetX('lasttarget')
uo.print(STR(togoX))
until togoX > -1
endif
if togoY > 1 then
repeat
uo.press(75)
wait(100)
togoY=UO.GetY('self') - UO.GetY('lasttarget')
until togoY < 1
endif
if togoY < -1 then
repeat
uo.press(76)
wait(100)
togoY=UO.GetY('self') - UO.GetY('lasttarget')
until togoY > -1
endif
wait(1000)
wend
end sub
just set the keys to walk N S E W and be happy