Stealth Client Forum

Code: Select all

Program MiningAround;
{$Include 'all.inc'}

var
k, x, y : Integer;
mn1, mf1, mf2, ms1 : Integer;
ctime : TDateTime;

const
Pickaxe1 = $0E85;            // Типы кирок
Pickaxe2 = $0E86;

   function CheckPickaxe : Boolean;
   // Проверяем есть ли кирка и одеваем ее (если необходимо) в правую руку
   // возвращаем true - если все ок, false - если нет кирки
   // Проверка на то, что в руке у чара не кирка не производится!
   var tmpser : Cardinal;
   begin
      Result := true;
      if (ObjAtLayerEx(RhandLayer,self) = 0) then
      begin
         // ничего в руках нету
         tmpser := findtype(Pickaxe1,backpack);
         if tmpser = 0 then tmpser := findtype(Pickaxe2,backpack);
         if tmpser = 0 then
         begin
            Result := false;
            exit;
         end;
         if not equip(RhandLayer,tmpser) then
         begin
            wait(1000);
            if not equip(RhandLayer,tmpser) then
            begin
               Result := false;
               exit;
            end;
         end;
         wait(500);
         checksave;
      end;
   end;

Begin
   for x := -2 to 2 do
   begin
      for y := -2 to 2 do
      begin
         repeat
            waitconnection(5000);
            if not CheckPickaxe then
            begin
               exit;
            end;
            if TargetPresent then CancelTarget;
            if WarMode = true then SetWarMode(false);
            ctime := Now;
            UseObject(ObjAtLayerEx(RhandLayer,self));
            WaitForTarget(5000);
            If TargetPresent then TargetToTile(1342, GetX(self)+x, GetY(self)+y, GetZ(self));
            k := 0;
            repeat
               wait(100);
               k := k + 1;
               checksave;
               mn1 := InJournalBetweenTimes('no ore', ctime, Now);
               mf1 := InJournalBetweenTimes('you try', ctime, Now);
               mf2 := InJournalBetweenTimes('fail', ctime, Now);
               ms1 := InJournalBetweenTimes('put', ctime, Now);
            until (mn1<>-1) or (mf1<>-1) or (mf2<>-1) or (ms1<>-1) or (k > 300);
         until (mn1<>-1);
      end;
   end;
End.