Stealth Client Forum

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" }