Page 1 of 1

Открывать автоматом двери.

Posted: 2015-03-21 04:26:37
by v038449
Прошу сильно не пинать, может глупый вопрос.

Но не нашел, как в инжекте - это реализовать?

Неужели скрипт нужно писать.

Скрипты искал, но они очень старые 2008 год - где указывают все типы дверей в закрытом и открытом состоянии :roll:

PS. Просто в разоре, достаточно просто галку поставить.

Re: Открывать автоматом двери.

Posted: 2015-03-21 09:23:06
by Mirage
хз стоит ли на инжекте такое делать вообще. Хотя может быть чтото типо разорной галки запиликать...
На стелсе это выглядит вот так:

Code: Select all

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 городов. Нет металлических ворот (решоток) - ибо иногда заборина ДОЛЖНА быть закрыта ;) По городу бегает ровно - открывает вроде бы все.

Re: Открывать автоматом двери.

Posted: 2015-03-21 09:42:32
by v038449
Mirage wrote:хз стоит ли на инжекте такое делать вообще. Хотя может быть чтото типо разорной галки запиликать...
На стелсе это выглядит вот так:

Code: Select all

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 городов. Нет металлических ворот (решоток) - ибо иногда заборина ДОЛЖНА быть закрыта ;) По городу бегает ровно - открывает вроде бы все.



Спасибо попробую. Написал сообщение в ЛС. Глянь пожалуйста.

PS На инже скрипто то будет работать?

Re: Открывать автоматом двери.

Posted: 2015-03-21 10:29:40
by Juicy Fruit
Нет, для инжекта его нужно переписать.

Re: Открывать автоматом двери.

Posted: 2015-03-28 12:08:04
by admir
На своем опыте скажу что самый лучший способ это встроенный в клиент макрос ОпенДор.
Нет ступора подвисания при срабатывании, в отличии от стелса и скрипта.

Re: Открывать автоматом двери.

Posted: 2015-03-28 18:37:49
by Mirage
ему автоматом надо :)