Stealth Client Forum

Code: Select all

Program New;
Var
Profiles : array[1..5] of string;
i: integer;

begin
Profiles[5] := 'Poppy';
Profiles[1] := 'Renek';
Profiles[2] := 'Karthus';
Profiles[3] := 'Heimerdinger';
Profiles[4] := 'Kotigoroshko';
For i:= 1 to 5 Do
    begin                       
       ChangeProfile(Profiles[i]);
       wait(1000);
       Connect(); 
       wait(5000);
       While not Connected() Do
       Begin
          Wait(60000);
          ChangeProfile(Profiles[i]);
          Wait(1000);
          Connect();
       End;
       RequestContextMenu($00000329);
       SetContextMenuHook($00000329, 3);
       Wait(1000);
       WaitGump(1);
       Disconnect();
    end;
end.

Code: Select all

PROGRAM ProgramName;

VAR
   myProfiles: array of String;   // Важно! Настраиваем в основном блоке скрипта.
   nProfile: Integer;
   timeOrder: array of TDateTime;


BEGIN
   myProfiles := ['BODER-1','BODER-2','BODER-3','BODER-4','BODER-5'];

   SetLength(timeOrder, Length(myProfiles));
   for nProfile := 0 to (Length(timeOrder) - 1) do
      timeOrder[nProfile] := 0;

   FindDistance := 8;
   FindVertical := 20;

   repeat
      for nProfile := 0 to Length(myProfiles) - 1 do
      begin
         if (Now > timeOrder[nProfile])  then
         begin
            ChangeProfile(myProfiles[nProfile]);

            SetARStatus(TRUE);
            if not Connected() then
            begin
               Connect();
               while not Connected() do wait(100);
               wait(5000);
            end;
            
            {
               ЗДЕСЬ ВСЕ ЧТО СВЯЗАНО С ПОЛУЧЕНИЕМ БОДОВ.
            }
            
            SetARStatus(FALSE);
            Disconnect();
            timeOrder[nProfile] := Now + 1.0 / 24;  // Следующий заказ брать через час. (зависит от скилла бодера)
            wait(5*60*1000);   // Ждем пока бодер не выйдет из игры.
         end;
      end;
      wait(1000);
   until FALSE;
END.

Code: Select all

Program New;
Var
Profiles : array[1..5] of string;
i, result: integer;

procedure changeChar(var ProfileName: string);
Begin
   result := ChangeProfile(ProfileName);                      
   AddToSystemJournal(IntToStr(result));
   AddToSystemJournal(ProfileName); 
   wait(1000);
   if not result = 0 then changeChar(ProfileName);
End;

procedure Connecting();
Begin
   Connect();
   wait(5000);
   if not Connected() then 
   Begin
   AddToSystemJournal('reconecting');
   wait(60000);
   Connecting();
   End
   else 
   AddToSystemJournal('connected');
End;

begin
Profiles[5] := 'Poppy';
Profiles[1] := 'Renek';
Profiles[2] := 'Karthus';
Profiles[3] := 'Heimer';
Profiles[4] := 'Kotigoroshko';
While True Do 
Begin
For i:= 1 to 5 Do
    begin
       Disconnect();
       changeChar(Profiles[i]); 
       Connecting();
       AddToSystemJournal('Taking bod');
       RequestContextMenu($00000329);
       SetContextMenuHook($00000329, 3);
       Wait(1000);
       WaitGump('1');
       Wait(2000);     
    end;
End;
end.

Code: Select all

Program Test;
BEGIN
ChangeProfile('Boddy');
END.

Code: Select all

00:55:40:690 [Alkanavt]: Compiling
00:55:40:793 [Alkanavt]: Compiled succesfully
00:55:40:820 [Alkanavt]: Exec: [Error] (test.sc at line 6). Pax Unhandled Exception : Stack overflow
Error line is: " ChangeProfile('Boddy'); "
00:55:40:822 [Alkanavt]: Succesfully executed
00:55:40:823 [Alkanavt]: Script test.sc stopped successfuly

Code: Select all

Program Test;
var
errcode : integer;
BEGIN
errcode := ChangeProfile('Boddy');
AddToSystemJournal(IntToStr(errcode));
END.

Code: Select all

00:57:00:179 [Alkanavt]: Compiling
00:57:00:299 [Alkanavt]: Compiled succesfully
00:57:00:342 [Alkanavt]: Exec: [Error] (test.sc at line 6). Pax Unhandled Exception : Stack overflow
Error line is: " errcode := ChangeProfile('Boddy'); "
00:57:00:344 [Alkanavt]: Succesfully executed
00:57:00:345 [Alkanavt]: Script test.sc stopped successfuly