Помогите

[Лавр]

Скрипт запускается и выключается. Где беда?

Code: Select all

program harvesting;

{$Include 'all.inc'}
type
ArrayType1 = Array [0..1] of Word;

const 
dropcount = 1;

var
drop_types : ArrayType1;
i : Integer;

begin
drop_types := [$19B7, $19B8]; 
  while not dead do
    begin
      while weight < 700 do
        begin
          clearjournal;
          waittargetself;
          useobject($7DB29BA2);
          repeat 
            wait(200);
          until injournal('Вы добыли песок|Вы добыли глину') > 0;
        end;
    end;

for i := 0 to dropcount do  
  Stack(drop_types[i],$FFFF);        
      
end.

[Vizit0r]

Скрипт запускается и выключается.

подробнее

[Vano]

Ладно, сразу приведу рабочий код.

Code: Select all

program harvesting;

{$Include 'all.inc'}
type
ArrayType1 = Array of Word;

const 
dropcount = 1;

var
drop_types : ArrayType1;
i : Integer;

begin
drop_types := [$19B7, $19B8]; 
  while not dead do
    begin
      while weight < 700 do
        begin
          clearjournal;
          waittargetself;
          useobject($7DB29BA2);
          repeat 
            wait(200);
          until injournal('Вы добыли песок|Вы добыли глину') > 0;
        end;
    end;

for i := 0 to dropcount do  
  Stack(drop_types[i],$FFFF);        
      
end.

P.S. дополнительную информацию искать в этой теме.

[Лавр]

Спасибо.

[Лавр]

Хм... При весе 700 не сбрасывает данные типы в кучу на земле. В чём беда?

[Vano]

А с чего ему сбрасывать? Ясно видно, что:
1. сброс находится вне цикла
2. из внешнего цикла скрипт не скоро выйдет (пока чар не умрет)

[Лавр]

Спасибо ешё раз.