bowcraft

[Ozon]

Code: Select all

спасибо, помощь не требуеться

Проблема состоит в том, что чар забивает 1 сумку луками, ложит на пол, а потом луки сбрасывает на пол. Хотя должен закидывать в сумку и потм бросать... Подскажите что не так? пожалуйста!

[Ozon]

Неужели никто не поможет?

[Fenix]

На первый взгляд всё нормально. Переписывать скрипт под свой шард - лень. Если я правильно понял, первый проход скрипт отрабатывает корректно. Он после того как сумку скинул на пол новую из сундука забирает? И вообще, в первый проход при запуске скрипта у него сумка уже в бекпаке или он её самостоятельно из сундука вытягивает?

[Ozon]

Все сумки лежат в сундуке, он достает её, забивает до максимума и сбрасывает... Новую сумку помойму не берет.

[Fenix]

Ну значит стоит копать в методе забора сумок. К тому же, если ID контейнера нулевой при MoveItem, то предмет перемещается на землю. Так что проверяй Get_Bag. Можешь добавить отладочной информации:

Code: Select all

procedure Get_Bag;
begin
  CheckLag(30000);
  if FindType(Bag, Backpack) = 0 then
  begin
    UseObject(Sunduk_With_Empty_Bags);
    Wait(1000);
    CheckLag(30000);
    if FindType(Bag, Sunduk_With_Empty_Bags) = 0 then
    begin
      AddToSystemJournal('Сумки в сундуке не найдены');
    end
    else
    begin
      MoveItem(FindItem, 1, Backpack, 0, 0, 0);
      Wait(1000);
      CheckLag(30000);
      UseObject(FindItem);
      Wait(1000);
      CheckLag(30000);
      if FindType(Bag, Backpack) = 0 then
      begin
        AddToSystemJournal('Не удалось взять сумку');
      end
      else
      begin
        BagId := FindItem;
        AddToSystemJournal('Взяли сумку');
      end;
    end;
  end;
end;

А дальше уже смотри по отладочной информации.

[Ozon]

Ну значит стоит копать в методе забора сумок. К тому же, если ID контейнера нулевой при MoveItem, то предмет перемещается на землю. Так что проверяй Get_Bag. Можешь добавить отладочной информации:

Code: Select all

procedure Get_Bag;
begin
  CheckLag(30000);
  if FindType(Bag, Backpack) = 0 then
  begin
    UseObject(Sunduk_With_Empty_Bags);
    Wait(1000);
    CheckLag(30000);
    if FindType(Bag, Sunduk_With_Empty_Bags) = 0 then
    begin
      AddToSystemJournal('Сумки в сундуке не найдены');
    end
    else
    begin
      MoveItem(FindItem, 1, Backpack, 0, 0, 0);
      Wait(1000);
      CheckLag(30000);
      UseObject(FindItem);
      Wait(1000);
      CheckLag(30000);
      if FindType(Bag, Backpack) = 0 then
      begin
        AddToSystemJournal('Не удалось взять сумку');
      end
      else
      begin
        BagId := FindItem;
        AddToSystemJournal('Взяли сумку');
      end;
    end;
  end;
end;

А дальше уже смотри по отладочной информации.

Добавил в скрипт, все время рунаеться на "CheckLag"

[Vizit0r]

CheckLag(xxx); меняй на CheckLag;

[Fenix]

Это же какой версии стелс должен быть чтобы CheckLag(timeoutMS: Integer): Boolean не поддерживать? Кстати, к простому CheckLag не помешал бы инклуд на него.

[Vizit0r]

гыгы. я подумал что наоборот, тот что с параметром, это с инклюда, а без - вшитый, оказалось что наоборот.
Склероз, однако.

[Ozon]

Это же какой версии стелс должен быть чтобы CheckLag(timeoutMS: Integer): Boolean не поддерживать? Кстати, к простому CheckLag не помешал бы инклуд на него.

Запустил на стелсе 3.2.4, всеравно сбрасывает арбали под себя(после 1 пака). Просто в наглую не хочет брать новый пак....

[Fenix]

Ну а сообщения какие хоть выводит? Сумку не находит или тупо её не перетаскивает себе в бекпак?

[Macks]

Ну а сообщения какие хоть выводит? Сумку не находит или тупо её не перетаскивает себе в бекпак?

Из этих:

AddToSystemJournal('Сумки в сундуке не найдены');
AddToSystemJournal('Не удалось взять сумку');
AddToSystemJournal('Взяли сумку');

[Ozon]

Ребят, помогите пожалуйста, очень надо!!!!

[shinma]

гыгы. я подумал что наоборот, тот что с параметром, это с инклюда, а без - вшитый, оказалось что наоборот.
Склероз, однако.

{$Include 'all.inc'}

Code: Select all

checklag;
Invalid number of parameters

Code: Select all

checklag(3000);
 Invalid number of parameters

Стелс 3.8.1

[Vizit0r]

внешний чеклаг (из инклюда или скрипта) затирает встроенный.
значит у тебя в инклюдах чеклаг с другим кол-вом параметров...