Лут трупов, ошибочка
Posted: 11.06.2013 22:20
Накидал тут пробный лут, честно говоря половину подсмотрел у голден боя,
тип тупа забит в константах как tryp = $2006; // $2006 тип трупа на земле
работать не хочет выдает Compiler: [Error] ( at 68:24): Type mismatch
Подскажите пожалуйста где накосячил, может стоит заново все переделать?
Спасибо!
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
Подскажите пожалуйста где накосячил, может стоит заново все переделать?
Спасибо!