Code: Select all
Program rune;
var t:Integer;
trash:cardinal;
b : TDateTime;
{$Include 'all.inc'}
Begin
trash := $6020B595; {Задаем ID треша}
Finddistance := 1; {Ограничиваем радиус поиска глины}
UseObject(trash); {Открываем Треш}
SetARStatus(true);
clearjournal;
if connected then hungry(1,ground);
While not dead do
begin
for t:=1 to 10 do
begin
FindType($1F14,backpack); {Поиск сделанных рун}
if FindCount > 10 then
MoveItems(backpack,$1F14,$FFFF,trash,0,0,0,500);{скидываем их в треш}
if ((GetQuantity(FindType($1BF5,ground)) > 0)) and ((GetQuantity(FindType($1EB9,backpack)) >= 1)) then
if (GetQuantity(FindType($1BF5,backpack)) > 100) then
begin
CheckSave;
WaitTargetObject(FindType($1BF5,backpack));
b:=Now;
UseObject(FindType($1EB9,backpack));
WaitGump('7956');
WaitJournalLine(b,'You',40000);
end
else
FindType($1BF5,ground); {Поиск глины}
if FindCount > 150 then
MoveItem(ground,$1BF5,150,backpack,0,0,0);
else
begin
SetARStatus(false);
Disconnect;
end;
end;
hungry(1,backpack);
end;
end;
End.
Compiler: [Error] (Rune_maker.sc at 35:45): Invalid number of parameters
Я не совсем понимаю когда именно нужно ставить ;MoveItem(ground,$1BF5,150,backpack,0,0,0);
но без него ошибка смещается на следующую строку.