хз стоит ли на инжекте такое делать вообще. Хотя может быть чтото типо разорной галки запиликать...
На стелсе это выглядит вот так:
Code:
Program Door;
var
Door_id : Cardinal;
i : Integer;
door_type : array of Word;
jTimer : TDateTime;
BEGIN
IgnoreReset;
FindDistance := 1;
door_type := [$06E9,$06F1,$06F3,$06A9,$06E5,$06E7,$06ED,$06EF,$06A5,$06A7,$06AD,$06AF,$0675,$0677,$067D,$067F,$06DD,$06DF,$06B3,$06B5,$06B7,$06D5,$06D7,$0824,$0826,$0870,$0874,$0866,$0868,$0839,$083B];
While not Dead do
begin
for i := 0 to GetArrayLength(door_type) - 1 do
if findtype(door_type[i],ground) > 0 then
begin
Door_id := FindItem;
jTimer:= now;
UseObject(Door_id);
wait(100);
if InJournalBetweenTimes('door is locked', jTimer, Now)>0 then
Ignore(Door_id);
end;
end;
end.
Тут двери с 3 городов. Нет металлических ворот (решоток) - ибо иногда заборина ДОЛЖНА быть закрыта
По городу бегает ровно - открывает вроде бы все.