МБ кто подскажет, глюк скрипта :? Оо ;)

[nekto]

Скрипт прост как белый свет:

Code: Select all

var
       i : Integer;
      d1 : Integer;
      d2 : Integer;


            procedure HiWar();
            begin
               if warmode then SetWarMode(false);
            end;

            procedure HiHide(delay : Integer; flag : Boolean);
            begin
            if (flag = true) then HiWar();
               UseSkill('Hiding');
               Wait(delay);
            end;

               procedure HiStel(delay : Integer; flag : Boolean);
            begin
            if (flag = true) then HiWar();
               UseSkill('Stealth');
               Wait(delay);
            end;


BEGIN
d1:=2500;
d2:=2500;
      while (not dead) and (connected) do
      begin
         for i:= 0 to 50 do
         begin
            HiHide(d1, true);
            HiStel(d2, false);
         end;
      end;
END.

Но спустя пару часов, происходит чтото не понятное (все в скрине,), и если ты не перезашел, то фиг что заработает( подскажите может чтото не так где то =) За ранее спасибо

[Vizit0r]

если б еще было понятно, где глюки скрипта, а где тобой потертые типа личные данные (бред какой-то).

[drabadan]

если б еще было понятно, где глюки скрипта, а где тобой потертые типа личные данные (бред какой-то).

+ форматирование "вырвиглазанахер" доставляет...

[nekto]

даже посмеялся! "потертые типа личные данные" П.С. стерто ровно до ":".
Вообщем, чар стоит качает тупо хайдинг и стелс, потом происходит не пйому что (судя по журналу он вдруг начинает разговаривать (сам чар)) и макр сбивается, + чар пытается найти какуюто несуществующею штуковину!

П.С.С -> перезалил картынку

[drabadan]

а зачем так с вармодом усложнять? Почему так все написано, то сложно...
весь скрипт может быть:

Code: Select all

program asd;

procedure UseSmth(Skill : String);
var i : Integer;
begin
UseSkill(Skill);
for i := 0 to 10 do
if Hidden then break
else
Wait(100);
end;

begin
SetWarMode(false);
while not Dead and Connected do
begin
UseSmth('Hiding');
UseSmth('Stealth');
end;
end.

скомпиль, а то я тут на форуме писал. Тут скорее всего ничего не потечет и не скиснет...

[nekto]

а можешь еще докинуть суда бродилку по y! я в упор уже не помню не чего, давно чтото делал, ну или пример кода чтоли, там сам допедрю, за ранее спс

[drabadan]

а можешь еще докинуть суда бродилку по y! я в упор уже не помню не чего, давно чтото делал, ну или пример кода чтоли, там сам допедрю, за ранее спс

Code: Select all

NewMoveXY(X, Y, false, 0, false);

[nekto]

ну скрипт поменялся, На более лояльный, а вот проблема не исчезла! я так понял, что происходит сейв мира, и все!!!! перс у меня пытается какуюто вешь поднять, найти, хз. и виснит, тока дисконект и конект помогает ! что может быть ? (

[Vizit0r]

может быть стоит добавить CheckSave?

[nekto]

кхм, ну попробую спс.
--------------
, Мля, добавил папку инклуд в стелсе, и че он их не воспринимает то ?

[drabadan]

может быть стоит добавить CheckSave?

Code: Select all

CheckLag(Delay : Integer)

вроде было...?

[Vizit0r]

ну, чеклаг и чексейв это разные вещи, с разным принципом работы.

[drabadan]

ну, чеклаг и чексейв это разные вещи, с разным принципом работы.

я в силу своей криворукости, всегда любой вейт переписываю под возможный лаг. Лаг, то может и не от сейва появляться...

Code: Select all

procedure WaitLag(WaitMS : Integer);
begin
CheckLag(60000);
Wait(WaitMS);
end;

*пишу с горящего бункера отбиваясь от фашистов Бандеровцев, которые вчера съели всех младенцев в моей области! Кричу о помощи спасите от ига гееканнибалов!
**о нет они меня укусили! СЛАВА УКРАЇНІ... ГЕРОЯМ СЛАВА! СЛАВА УКРАЇНІ... ГЕРОЯМ СЛАВА! СЛАВА УКРАЇНІ... ГЕРОЯМ СЛАВА!