Stealth Client Forum

Posted: **15.12.2010 14:55**

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

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

Posted: **17.12.2010 0:12**

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

Posted: **17.12.2010 7:15**

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

Posted: **21.12.2010 2:22**

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

Posted: **21.12.2010 8:38**

Ну значит стоит копать в методе забора сумок. К тому же, если 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;

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

Posted: **21.12.2010 19:41**

Fenix wrote:Ну значит стоит копать в методе забора сумок. К тому же, если 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"

Posted: **21.12.2010 20:04**

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

Posted: **21.12.2010 21:03**

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

Posted: **21.12.2010 21:41**

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

Posted: **22.12.2010 11:07**

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

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

Posted: **22.12.2010 12:18**

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

Posted: **22.12.2010 13:56**

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

Из этих:

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

Posted: **24.12.2010 22:40**

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

Posted: **28.06.2011 8:29**

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

{$Include 'all.inc'}

Code: Select all

checklag;
Invalid number of parameters

Code: Select all

checklag(3000);
 Invalid number of parameters

Стелс 3.8.1

Posted: **28.06.2011 11:09**

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

Stealth Client Forum

bowcraft

bowcraft

Re: bowcraft

Re: bowcraft