Yoko

Code: Select all

;-----------------------------------------------------------------
;--------------------------NMY------------------------------------
sub chase()
   If uo.getglobal('chase')=='On' then
   uo.setglobal('chase',0)
   uo.print(' !!! -= Chase Terminated =- !!! ')
   uo.exec('Terminate chase')
   else
   uo.setglobal('chase','On')
   uo.print(' !!! -= Chasing =- !!! ')
   endif

  VAR target
  target = uo.getserial('lasttarget')

   while not uo.dead() and target<>"" and uo.getdistance(target)
    if UO.GetDistance(target)>1 then
    uo.say('')
    Chaser(target)
    endif
   wend

  uo.setglobal('chase',0)
  uo.print(' !!! -= Chasing ended =- !!! ')
end sub
;-----------------------------------------------------------------
sub Chaser(Target)
   VAR dx, dy
While 1
   If Target<>"" and uo.getdistance(target) and not uo.dead() Then
   dx=UO.GetX(Target)-UO.GetX()
   dy=UO.GetY(Target)-UO.GetY()
    If UO.GetDistance(Target)<2 Then
     return
    Endif
    else
     Return
   Endif

   If dx<>0 AND dy<>0 Then
    If dx>0 AND dy>0 Then
    UO.Press(40) ; DownArrow
    Endif

    If dx>0 AND dy<0 Then
    UO.Press(39) ; RightArrow
    Endif

    If dx<0 AND dy>0 Then
    UO.Press(37) ; LeftArrow
    Endif

    If dx<0 AND dy<0 Then
    UO.Press(38) ; UpArrow
    Endif
   Endif
   
   If dx<>0 AND dy==0 Then
     If dx>0 Then
    UO.Press(34) ; PgDown
    Endif

    If dx<0 Then
    UO.Press(36) ; Home key
    Endif
   Endif

   If dx==0 AND dy<>0 Then
    If dy>0 Then
    UO.Press(35) ; End
    Endif

    If dy<0 Then
    UO.Press(33) ; PgUp
    Endif
   Endif
Wend
end sub