вынос мозга....

[nepret]

вот скрипт

Code: Select all

Program Anatomy;
const
stop = 90;
DebugMode = 0;
var
item : integer;
{$Include 'all.inc'}

function CheckSkill (CS : string) : Boolean;
begin
  if not Connected then exit;
  if GetSkillValue(CS) >= stop then
    begin
      result := true;
      exit;
    end;
end;

procedure Anatomy;
begin
  if not Connected then WaitConnection(5);
  if dead then exit;
  CheckSave;
  if TargetPresent then CancelTarget;
  UseSkill('Anatomy');
  CheckTarget(5);
  WaitTargetObject(self);
  Wait(10000);
end;

procedure ArmsLore(itemID : integer);
begin
  if not Connected then WaitConnection(5);
  if dead then exit;
  CheckSave;
  if TargetPresent then CancelTarget;
  UseSkill('Arms Lore');
  CheckTarget(5);
  WaitTargetObject(itemID);
  Wait(10000);
end;

Begin
  SetARStatus(true);
  SetPauseScriptOnDisconnectStatus(false);
  if not Connected then WaitConnection(5);
  if LastContainer <> backpack then
    begin
      repeat
        UseObject(backpack);
        wait(1000);
        checksave;
      until LastContainer <> backpack; 
    end;
  FindTypeEx($0F51, $FFFF, Backpack, false);
  if FindCount > 0 then item := finditem;
  repeat
    if not CheckSkill('Anatomy') then Anatomy;
    if not CheckSkill('Arms Lore') then ArmsLore(finditem);
    hungry(ground);
    if not Connected then WaitConnection(5);
  until false;
End.

после пары тройки использований армс лоре, выдаёт в УО журнале вот такое:

Code: Select all

[05:30:14:765] System: error{ errortext = "Subscript out of range" }

пробовал разное, кидать дагер на землю, бекпак, к е******м... эффект один и тот же.
где проблема?

[Vizit0r]

если повторяется быстро - давай чара, посмотрю.

Такого еще не встречал.

[Vizit0r]

17:22:47:100 [Test2 - Test]: Compiling
17:22:47:116 [Test2 - Test]: Compiled succesfully
18:31:54:647 [Test2 - Test]: Succesfully executed
18:31:54:647 [Test2 - Test]: Script 666.sc stopped successfuly

устал ждать. ошибки нет. скиллы качаются (+11 +5).
если у тебя повторяется, причем быстро - готовь teamViewer и пиши в асю.