Code: Select all
procedure loot_s_trypov();
var
telo: cardinal;
veschi,loot: integer;
begin
loot:=[$14EF,$0E76];
FindDistance:=2;
FindType(tryp,Ground);
If (Findcount > 0) then
begin
telo:=finditem; // вырываем ID найденого по типу трупа
UseObject(telo);
begin
for veschi:=0 to (GetArrayLength(loot)-1) do
begin
if CountEx(grabmas[veschi],telo)>0 then
begin
Grab(findItem,telo);
wait(600);
end;
end ;
end;
end;
end;
begin
end.
работать не хочет выдает Compiler: [Error] ( at 68:24): Type mismatch
Подскажите пожалуйста где накосячил, может стоит заново все переделать?
Спасибо!