Ultima Online Antares

program SparringAttack;
var
  attackDelay, dangerHpCount: integer;
  target: cardinal;

  procedure EquipDagger;
var
  findRes: Cardinal;
begin
  if ObjAtLayer(1) = 0 then
  begin
    findRes := FindType($13F6, BackPack);
    if findRes > 0 then
      Equip(1, findRes);
  end;
end;
  
  procedure Wait_CheckHP(ms: integer);
    var
      i: integer;
  begin
    ms := Round(ms / 100);
    for i := 0 to ms - 1 do
    begin
      if GetHP(target) <= dangerHpCount then
        SetWarMode(false);
      Wait(200);
    end;
  end;
  
begin
  dangerHpCount := 65; // при каком значении хп не бить
  attackDelay := 1600; // пауза между ударами
  target := $00F4CAC2; // айди куклы которую бьём
  
  dangerHpCount := Round(dangerHpCount / 2);
  
  while true do
  begin
    EquipDagger;
        
    SetWarMode(true);
    Attack(target);
    
    Wait_CheckHP(attackDelay)
  end;
end.Program New;
begin
//Body of Script
end