initevents
set %tolerance 0
set %timeout 60s
set *1 0
set *2 0

loop:
if *1 <> 0
{
   move *1 *2 %tolerance %timeout
   set *1 0
}
goto loop

sub move(x,y)
   uo.SetEasyUO(1,x)
   uo.SetEasyUO(2,y)
   while not uo.GetEasyUO(1) == "0"
      wait(50)
   wend
end sub