Stealth Client Forum

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.

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.

Code: Select all

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

Code: Select all

CheckLag(Delay : Integer)

Code: Select all

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