Формирование игнор листа
Posted: 11.03.2011 12:45
Суть :
Вижу предмет, использую его и заношу в игнор лист (GetIgnoreList)
А конкретно, интересует игнор использованного трупа.
В данном случае, перс единоразово игнорирует труп после обработки, т.е. при последующем возвращении в местность, где лежит этот труп - снова пытается его использовать.
Подскажите плс,
как в данной процедуре использовать интересующую функцию ?
Вижу предмет, использую его и заношу в игнор лист (GetIgnoreList)
А конкретно, интересует игнор использованного трупа.
Code: Select all
var
List: TStringList;
i: Integer;
corpseID:cardinal;
begin
if FindType($2006, ground) <> 0 then
begin
while FindType($2006,ground) <> 0 do
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
corpseID := finditem;
If (FindType(Tools[4], backpack) <> -1) or (FindType(Tools[4], self) <> -1) then
begin
AddToSystemJournal('Режем труп');
WaittargetObject(corpseID);
Wait(1000);
UseObject(findtype(Tools[4],self));
Wait(3300);
UseObject(corpseID);
Wait(500);
Ignore(corpseID);
end;
end;
end;Подскажите плс,
как в данной процедуре использовать интересующую функцию ?