Ultima Online Antares

sub FishingAround()
   VAR Ms0 = "You can't see"      ; ?? ????? ????? ?????
   VAR Ms1 = "You can't fish under the ship"; ?? ????? ?????? ?????
   VAR Ms2 = "You are too far away"   ; ??????
   VAR Ms3 = "There are no fish here"   ; ????????? ???
   VAR Ms4 = "You fish a while, but fail to catch anything"; ????
   VAR Ms5 = "You pull out"      ; ?????? ???-??
   VAR Ms6 = "Try fishing"   ; ?? ????? ?????? ?????
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next
   Next
endsub

Sub GetResultFish()
; ------- ???? -------
   DIM Fish[18]
   Fish[0]  = '0x170B'; ??????
   Fish[1]  = '0x170F'; ?????
   Fish[2]  = '0x170D'; ????????
   Fish[3]  = '0x1711'; ??????
   Fish[4]  = '0x09CC'; ??? ???? 1
   Fish[5]  = '0x09CD'; ??? ???? 2
   Fish[6]  = '0x09CE'; ??? ???? 3
   Fish[7]  = '0x09CF'; ??? ???? 4
   Fish[8]  = '0x0FC4'; ???????, ??? 1
   Fish[9]  = '0x0FC5'; ???????, ??? 2
   Fish[10] = '0x0FC6'; ???????, ??? 3
   Fish[11] = '0x0FC7'; ???????, ??? 4
   Fish[12] = '0x0FC8'; ???????, ??? 5
   Fish[13] = '0x0FC9'; ???????, ??? 6
   Fish[14] = '0x0FCA'; ???????, ??? 7
   Fish[15] = '0x0FCB'; ???????, ??? 8
   Fish[16] = '0x0FCC'; ???????, ??? 9
   Fish[17] = '0x14ED'; ?????
   VAR Razmer = 17   ; ?????? ??????? - 1
   VAR Scissor = '0x0F9E'; ??? ??????
   VAR Bandag = '0x0E21'   ; ??? ??????
   VAR i
; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ??????????????
; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????.
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
         ; ?????
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' )
         Wait( 2000 )
         If i > 7 AND i < 17 Then
         ; ???????
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub

sub Food()
VAR food = '0x097A'
    while NOT UO.Dead()
    UO.DeleteJournal()
    UO.WaitTargetObject(0x40002877)
    UO.UseType(food)
    repeat
        wait(500)
    until UO.InJournal('You burn') OR UO.InJournal('You put')

    wend
end sub

Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub



Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

Sub DropKindling()
  
   var Kindlings   = 0x0DE1       ; тип хвороста
   var Campfire    = 0x0DE3       ; тип костра
  
   if UO.FindType(Kindlings, -1, 'my') <> '' then
      UO.CharPrint('self', 0x003A, '[Kindling]')
      UO.Drop(1, 0, 0, 0, 'finditem')
      while UO.ContainerOf('finditem') <> '0xFFFFFFFF'
         Wait(300)
      wend
      UO.UseObject('finditem')
      return True
   end if
  
   UO.ColorPrint(0x0026, 'Хворост для костра не найден!')
   return False
  
end sub

;--------------------------------------------------------
; Прокачка Эвалюта
;--------------------------------------------------------
Sub evalut()
   var Person
   Select('Выберите кого будем изучать','Person')
   UO.ColorPrint(0x042B, 'Изучаем: ' + UO.GetName('Person'))
   UO.WaitTargetObject('Person')
   repeat
      UO.UseSkill("Evaluating Intelligence")
      UO.WaitTargetObject('Person')
      
      wait(5000)
   until uo.dead ()
end sub

Sub EvaluatingIntelligence()
Var SkillVal = 1000
    while uo.SkillVal('Evaluating Intelligence') < SkillVal;
   ;Eat()
        For i = 1 To 100
            uo.DeleteJournal()
            uo.Useskill('Evaluating Intelligence', 'self')
            LastTimer = uo.Timer()
            repeat
                wait(500)
            until uo.InJournal('seem|looks|У вас не') or uo.LastGump('text', 0) == 'Mirage' or uo.Timer() > LastTimer + 200
        Next
    Wend
End Sub

Sub evalut()
   var LastTimer
   repeat
      UO.UseSkill('Evaluating Intelligence', 'self')
      LastTimer = uo.Timer()
      repeat
         wait(500)
      until uo.InJournal('seem|looks|У вас не') or uo.LastGump('text', 0) == UO.GetName('self') or uo.Timer() > (LastTimer + 1000)
      UO.DeleteJournal()
   until uo.dead()
end sub

Sub SpiritSpeak()
repeat
    UO.UseSkill('Spirit Speak')
          repeat
        wait(200)
          until UO.InJournal('fail|establish')
          UO.DeleteJournal()
until UO.Dead()
end sub

UO.WarMode(False)