Ultima Online Antares

; === ремонт (снятого уже) армора. молоток и инги должны быть 
; === пауза - по вашему усмотрению , ну и массив вещей тоже
; === by writed Creature
sub repair()
    VAR i
    Var SmithHammer='0x13e3'
    DIM ArmorPlate[7]
    ArmorPlate[0] = '0x1412' ; plate helm
    ArmorPlate[1] = '0x1413' ; plate gorget
    ArmorPlate[2] = '0x1410' ; plate arms
    ArmorPlate[3] = '0x1414' ; plate gloves
    ArmorPlate[4] = '0x1C04' ; 0x1415-male plate chest, 0x1C04-female plate chest
    ArmorPlate[5] = '0x1411' ; plate leggings
    ArmorPlate[6] = '0x1B76' ; heater

    UO.IgnoreReset()
    i = 0
    While i <= 6
        UO.DeleteJournal()
        UO.FindType( ArmorPlate[ i ], '-1', 'backpack' )
        wait(500)    ; CheckLag2()
        If UO.FindCount() > 0 Then
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( SmithHammer )
            Wait( 3000 )
            If UO.InJournal('is already') or UO.InJournal('You repair') Then
             &n
bsp; UO.Ignore('finditem')
            end if
        else
            i = i + 1
        end if
    Wend

    UO.IgnoreReset()
    UO.Print("END REPAIR")

    uo.equipt('Hat',ArmorPlate[0])
    wait(500)
    uo.equipt('Neck',ArmorPlate[1])
    wait(500)
    uo.equipt('Arms',ArmorPlate[2])
    wait(500)
    uo.equipt('Gloves',ArmorPlate[3])
    wait(500)
    uo.equipt('Torso',ArmorPlate[4]) 
    wait(500)
    uo.equipt('Legs',ArmorPlate[5])
    wait(500)
   UO.equipt('Lhand',ArmorPlate[6])
    wait(500)
    UO.Print("END")
End sub

; ==============================================
; === копает вокруг себя 2x2 точек
sub MinAround()
  VAR x,y,z='0',TileNum='0', LastTimer='0'
  var StrMB1='You put'
  var StrMB2='You loosen'
  var StrME1='There is nothing'
  var StrME2="You can't use"
  var StrME3='Try mining'
  var StrME4='You have no line'
  var StrME5='≡εΓεΣΦ≥'   
;; здесь по-русски и не по-латвийски ) типа низзя
  var StrME6='attacking you' ; while not switched on
  var StrME7='destroyed'
; var pickaxe='0x0E85' ; kirka
var pickaxe='0x0F39' ; lopata
  var TempWeight=UO.Weight

  uo.warmode(0)
For x=-2 to 2
  For y=-2 to 2
  REPEAT
  if uo.warmode()==1 then
return
  end if
  CheckLag2() ; here is deleting journal
  TempWeight=UO.Weight
  UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+y),z)
  UO.UseType(pickaxe)
  LastTimer=UO.Timer()
  repeat
  wait(500)
  until UO.InJournal(StrMB1) OR UO.InJournal(StrMB2) OR UO.InJournal(StrME1) OR UO.InJournal(StrME2) OR UO.InJournal(StrME3) OR UO.InJournal(StrME4) OR UO.InJournal(StrME5) OR UO.InJournal(StrME7) OR LastTimer+150<UO.Timer() OR TempWeight<>UO.Weight
  if UO.InJournal(StrME5) then
return
  end if
  UNTIL UO.InJournal(StrME1) OR UO.InJournal(StrME2) OR UO.InJournal(StrME3) OR UO.InJournal(StrME4) 
  Next
Next
UO.Print("END MINING !!!!!")
end sub

; просто хил бинтом(если их нет - просто смотри TV)
; ======================================
sub BandageSelf()
     if UO.Poisoned('self') then
        UO.usetype('0x0E24','0x05F5')  ; drink cure (и некогда искать оное в паке)
        wait(500)
      end if
   if UO.Life<(UO.Str*0.35) then
      UO.usetype('0x0E24','0x0446')  ; drink great heal
      wait(500)
   end if

   if UO.Life<(UO.Str*1.00) then
      UO.waittargetself()
      UO.usetype('0x0E21')   ;("bandage")
      CheckLag2()
   end if
end sub

; ======================================
sub CheckLag2()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('a Backpack')
end sub

Наверно и ходилка интересна и ставить в кресты......