Ultima Online Antares

var LastTimer
###############################
sub Tracking()  
    Repeat    
        #Track('Bear',1)
        Track('Wolf',1)
        Track('Bull',1)
        Track('Cow',1)
        Track('Goat',1)
        Track('Boar',1)
        Track('Pig',1)
        Track('Dog',1)
        Track('Lama',1)
        Track('Gorilla',1)
        #Track('Forest',2)
        #Track('Forest Golem',2)
        #Track('Ent',2)
        #Track('Harpy',2)
    Until UO.Dead()
End Sub
Sub Track(Name,choice)
    if choice == 1 then
        choice = 'Animals'
    else
        choice = 'Monsters'
    endif
    uo.track (0)
    UO.DeleteJournal()
    LastTimer = UO.Timer()
    UO.WaitMenu('Tracking',choice,'Tracking',Name)
    UO.UseSkill('Tracking')
    Repeat
        If UO.InJournal('is far to the') or UO.Timer() > LastTimer + 10 Then
            UO.CharPrint('self','0x005B',Name)
            UO.CharPrint('self','0x0038','Find Him & Kill Him!')
            Track_arrow()
        Else
            Wait(300)
        Endif
    Until UO.InJournal('no signs|Tracking Cancelled')
End Sub
###############
Sub Track_arrow()
    var x,y,i,tx,ty
    Dim Slot[8]
    Slot[0] = "to the North East*10*-10*"
    Slot[1] = "to the North West*-10*-10*"
    Slot[2] = "to the South East*10*10*"
    Slot[3] = "to the South West*-10*10*"
    Slot[4] = "to the East*10*0*"
    Slot[5] = "to the North*0*-10*"
    Slot[6] = "to the West*-10*0*"
    Slot[7] = "to the South*0*10*"
    LastTimer = UO.Timer()
    Repeat
        Wait(100)
    Until UO.InJournal('stop|to the|no signs|ancelled') or UO.Timer() > LastTimer + 5
    For i = 0 to 7
        If UO.InJournal(GetWord(Slot[i],1,'*')) then
            x = val(GetWord(Slot[i],2,'*'))
            y = val(GetWord(Slot[i],3,'*'))
            tx= str(uo.getx()+x)
            ty= str(uo.gety()+y)
            uo.track(tx,ty)
            wait(700)
            uo.track(0)
            UO.DeleteJournal()
            MyTerminate()
        endif
    Next  
end sub
SUB GetWord(st,nom,delimiters)
    VAR tmpst, i, kol = 0, start = 0
    VAR j, m
    for i=0 to len(st)
        for j=0 to len(delimiters) - 1
            if mid(st,i,1)==delimiters[j] or i==len(st) then
                kol = kol + 1
                if kol==nom then
                    tmpst = mid( st, start, i - start )
                    return tmpst
                else
                    for m = 0 to len(delimiters) - 1
                        while mid(st,i,1)==delimiters[m]
                            i = i + 1
                            m = 0
                        wend
                    next
                    if kol==nom - 1 then
                        start = i
                    endif
                endif
            endif
        next
    next
    tmpst = ''
    return tmpst
endsub
sub MyTerminate()
    UO.Set('quiet','1')
    UO.CancelMenu()
    UO.IgnoreReset()
    UO.Set('quiet','0')
    UO.Exec('terminate all')
end sub