Лут трупов, ошибочка

[SkullCAT]

Накидал тут пробный лут, честно говоря половину подсмотрел у голден боя,

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.

тип тупа забит в константах как tryp = $2006; // $2006 тип трупа на земле
работать не хочет выдает Compiler: [Error] ( at 68:24): Type mismatch
Подскажите пожалуйста где накосячил, может стоит заново все переделать?
Спасибо!

[shinma]

не внимательно смотрел мой скрипт

grabmas:array of word;
grabmas:=[$0EED];

а ты пытаешься в CountEx запихать интегер

[SkullCAT]

Пока получается так:

Code: Select all

procedure loot_s_trypov();
 var
 telo: cardinal; 
 veschi: integer;
 loot: array of word; 
 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(loot[veschi],telo)>0 then
                      begin  
                        Grab(findItem,telo);   
                        wait(600); 
                      end;  
                  end ;
      end;
    end;
  end;   

и вот такая ошибка Compiler: [Error] ( at 86:49): Invalid number of parameters
в этой строке походу: if CountEx(loot[veschi],telo)>0 then

Подскажите пожалуйста, где я еще накосячил?
Спасибо!

[shinma]

учись сам искать свои косяки вот один способ:
повтыкай везде через строку
AddToSystemJournal('175 иду домой');
и собственно увидешь строку в которой косяк и дальше идешь в вики функций читать что ты им за параметры дал.