Stealth Client Forum

Code: Select all

Begin 
SetArStatus(true); 
while true do begin 
while Hidden do begin 
UseSkill ('Stealth'); 
Wait(550); 
end; 
UseSkill('Hiding'); 
Wait(3200); 
end; 
End.

Code: Select all

Procedure hidetohouse; 
Begin 
UseSkill('Hiding'); 
Wait(3200); 
   while Hidden do begin 
   UseSkill ('Stealth'); 
   Wait(3200);
       if (inJournal('Вы можете пройти') <> -1) then
           begin
           if (GetX(self) <> 848) and (GetY(Self) <> 2194) then begin
           GotoXY(856, 2194, true, 0);
           end;
           if (GetX(self) <> 856) and (GetY(Self) <> 2194) then begin
           GotoXY(872, 2194, true, 0);
           end;
           if (GetX(self) <> 872) and (GetY(Self) <> 2194) then begin
           GotoXY(878, 2194, true, 0);
           end;
           if (GetX(self) <> 878) and (GetY(Self) <> 2194) then begin
           GotoXY(878, 2192, true, 0);
           end;
           if (GetX(self) <> 878) and (GetY(Self) <> 2192) then begin
           GotoXY(878, 2184, true, 0);
           end;
           ClearJournal;
       end; 
   end;
end;
end;

Code: Select all

Procedure Res1; 
Begin 
   SetArStatus(true); 
   while true do begin  
   while Hidden do begin 
   UseSkill ('Stealth'); 
   Wait(3200);
       if (inJournal('Вы можете пройти') <> -1) then
           begin
           addtosystemjournal('Тест'); 
           if (GetX(self) = 848) and (GetY(Self) = 2194) then begin
           ClearJournal;
           addtosystemjournal('точка 1'); 
           GotoXY(856, 2194, true, 0);
           Res1;
           end;
           if (GetX(self) = 856) and (GetY(Self) = 2194) then begin
           ClearJournal;
           addtosystemjournal('точка 2'); 
           GotoXY(864, 2194, true, 0);
           Res1;
           end;
           if (GetX(self) = 864) and (GetY(Self) = 2194) then begin
           ClearJournal;
           addtosystemjournal('точка 3'); 
           GotoXY(872, 2194, true, 0);
           Res1;
           end;
           if (GetX(self) = 872) and (GetY(Self) = 2194) then begin
           ClearJournal;
           addtosystemjournal('точка 4'); 
           GotoXY(878, 2192, true, 0);
           Res1;
           end;
           if (GetX(self) = 878) and (GetY(Self) = 2192) then begin
           ClearJournal;
           addtosystemjournal('точка 5'); 
           GotoXY(878, 2184, true, 0);
           end;
       end; 
   addtosystemjournal('Реснулись');
  end;
   UseSkill('Hiding'); 
   Wait(3200);
end;
end;

Code: Select all

procedure CheckGhost; // Ничего менять бльше не надо 
var 
  counter: integer; 
begin 
  If IsDead(self) then 
  begin 
    counter := 100; 
    UOSay(Chr(39)+'asay Дровасек убит. Ресните кто-нибудь пожалуйста. ('+IntToStr(CenterPoint.x)+' '+IntToStr(CenterPoint.y)+'), '+MineName); 
    while isDead(self) do 
    begin 
      wait(3000);
      GotoXY(786, 2221, true, 0);  
      PlayWav('C:\WINDOWS\Media\tada.wav'); 
      counter := counter - 1; 
      AddToSystemJournal(IntToStr(counter)); 
    end; 
    GotoXY(838, 2227, true, 0);
    GotoXY(838, 2194, true, 0);
    GotoXY(848, 2194, true, 0);
    Res1;
    addtosystemjournal('Реснулись...2');
  end; 
end; 

Code: Select all

while true do begin