Ultima Online Antares

;----------------------------------------------------------------------------
; by VeL                                                            The Best
;----------------------------------------------------------------------------

var Count       = 40

var Ingots      = 0x1BEF       ; тип ингов "Iron Ingots"
var Copper      = 0x1BE3       ; тип ингов "Copper Ingots"
var Logs        = 0x1BDD       ; тип логов "Logs"
var IronWire    = 0x1876       ; тип проволоки "Iron Wire"

var Tools       = 0x1EBC       ; тип инструмента "Tinker Tools"

;--------------------------------------------------------
; Выполнение заказа
;--------------------------------------------------------

sub CraftOrder()

var Name        = GetGumpQuest(33)

  Count = val(GetWord(Name, 1))
  Name = Right(Name, Len(Name) - 3)

  if Count == 0 then
    UO.ColorPrint(0x0026, 'Ошибка открытия гампа!')
    return
  end if

  switch Name
    case 'Iron Wire'
      return IronWire()
    case 'Saw'
      return Saw()
    case 'Pickaxe'
      return Pickaxe()
  end switch

  UO.ColorPrint(0x0026, 'Предмет "' + Name + '" не найден в базе!')

end sub

;--------------------------------------------------------
; Изготовление предметов
;--------------------------------------------------------

sub IronWire()
  return CraftOrder("'Tinkering' 'Parts' 'Parts'", "Iron Wire", 0x1876, Ingots, 1, Ingots, 1)
end sub

sub Saw()
  return CraftOrder("'Tinkering' 'Tools' 'Tools'", "Saw", 0x1034, Ingots, 5, Logs, 1)
end sub

sub Pickaxe()
  return CraftOrder("'Tinkering' 'Tools' 'Tools'", "Pickaxe", 0x0E85, Ingots, 10, Logs, 1)
end sub

Sub CraftOrder(Menu, Name, Type, Res1, CountRes1, Res2, CountRes2)

  UO.ColorPrint(0x042B, 'Изготавливаем "' + Name + '" ' + str(Count) + 'шт.')

  while UO.Count(Type, 0x0000) < Count
    if not Tinkering(Menu + " '" + Name + "'", Res1, CountRes1, Res2, CountRes2) then
      UO.ColorPrint(0x0026, '- изготовлено "' + Name + '" ' + Str(UO.Count(Type, 0x0000)) + 'шт.')
      return False
    end if
  wend

  UO.ColorPrint(0x042B, 'Изготовление "' + Name + '" завершено.')
  return True

end sub

Sub Tinkering(Menu, Res1, CountRes1, Res2, CountRes2)

  if UO.Count(Tools) == 0 then
    UO.ColorPrint(0x0026, 'Инструмент не найден!')
    return False
  end if

  if UO.Count(Res1, 0x0000) < CountRes1 || UO.Count(Res2, 0x0000) < CountRes2 then
    UO.ColorPrint(0x0026, 'Недостаточно ресурсов!')
    return False
  end if

  UO.Exec('waitmenu ' + Menu)
  UO.UseType(Tools)

  UO.WaitingForJournalText(Now(), 60000, 'You put|fail|You broke|destroyed!')
  Wait(50)

  return True

end sub

Sub GetGumpQuest(Index)
  UO.SendGumpSelect(1, 0)
  while UO.LastGump('replyed')
    Wait(300)
  wend
  Wait(500)

  UO.SendGumpSelect(9)
  while UO.LastGump('replyed')
    Wait(300)
  wend
  Wait(500)

  UO.RClick(100, 100)

  return UO.LastGump('text', Index)
end sub

    case 'Iron Wire'
      return IronWire()

sub IronWire()
  return CraftOrder("'Tinkering' 'Parts' 'Parts'", "Iron Wire", 0x1876, Ingots, 1, Ingots, 1)
end sub

procedure GetMenuItems(Caption : String; var TL : TStringList);