Ultima Online Antares

;--------------------------------------------------------
; Ресс дружественного персонажа, бинд на кнопку
;--------------------------------------------------------

Sub Resurrection()

var Ghost       = ''
var Index

  if UO.FindList('Ghost', 'ground', FindDist, -1, -1) <> '' then
    for Index = 0 to UO.FindCount() - 1
      if FindList('Friends', UO.FindItem(Index)) <> -1 then
        Ghost = UO.FindItem(Index)
        Break
      end if
    next
  end if

  if Ghost == '' then
    UO.ColorPrint(0x0026, 'Гост друга не найден!')
    return False
  end if

  if UO.Life >= 150 && UO.Stamina > 50 && UO.Count(Bandage) >= 40 then
    if UO.FindType(0x2006, -1, 'ground', 2) <> '' then
      for Index = 0 to UO.FindCount() - 1
        if 'Body of ' + UO.GetName(Ghost) == UO.GetName(UO.FindItem(Index)) then
          UO.ColorPrint(0x042B, 'Оживление с бинта ' + UO.GetName(Ghost) + ', ID:' + Ghost)
          UO.CharPrint('self', 0x0043, '[Resurrection]')
          UO.WaitTargetObject(UO.FindItem(Index))
          UO.UseType(Bandage)
          return True
        end if
      next
    end if
  end if

  UO.ColorPrint(0x042B, 'Оживление с каста ' + UO.GetName(Ghost) + ', ID:' + Ghost)
  if CastSpell(Ghost, 'Resurrection', 40, BM, GA, GI, GI, 0x1F67, 20) then
    WaitForCast(CastDelay(8))
  end if
  UO.Exec('exec Meditation')
  return True

end sub

  UO.AddFindList('Ghost', 0x0192, 0x0000); Male
  UO.AddFindList('Ghost', 0x0193, 0x0000); Female