[Jikus]

Исходный код

// ---------------------------------------------------------------------------------------------
// Stealth Client  * Anatomy * [ANTARES] Jikus 2005
// ---------------------------------------------------------------------------------------------

Program Anatomy;

var      t : Integer;  
TimeParser : TDateTime;

Begin
SetARStatus(true);
ClearJournal;
while not Dead do
 begin
  if Connected then
   begin
    TimeParser := Now
    for t := 0 to 20 do
     begin
      if TargetPresent then CancelTarget;
      UseSkill('Anatomy');
      WaitTargetObject(Self);
      WaitJournalLine(Now, 'looks|You', 20000)
      wait(300)
     end;
    if InJournalBetweenTimes('You are very hungry|You are starving',TimeParser,Now) >=0 then
     begin
      while not InJournalBetweenTimes('You are stuffed',TimeParser,Now) >=0  do
      UseObject(FindType($097B, backpack));
     end;
   end;
 end;
End.

[Jikus]

Исходный код

// ---------------------------------------------------------------------------------------------
// Stealth Client  * Evaluate Intelligence * [ANTARES] Jikus 2005
// ---------------------------------------------------------------------------------------------

Program EvaluateIntelligence;

var      t : Integer;  
TimeParser : TDateTime;

Begin
SetARStatus(true);
ClearJournal;
while not Dead do
 begin
  if Connected then
   begin
    TimeParser := Now
    for t := 0 to 20 do
     begin
      if TargetPresent then CancelTarget;
      UseSkill('Evaluate Intelligence');
      WaitTargetObject(Self);
      WaitJournalLine(Now, 'looks|You', 20000)
      wait(300)
     end;
    if InJournalBetweenTimes('You are very hungry|You are starving',TimeParser,Now) >=0 then
     begin
      while not InJournalBetweenTimes('You are stuffed',TimeParser,Now) >=0  do
      UseObject(FindType($097B, backpack));
     end;
   end;
 end;
End.

Сообщение отредактировал Jikus - 27.9.2005, 20:51

[Jikus]

Исходный код

// ---------------------------------------------------------------------------------------------
// Stealth Client  * Detect Hidden  * [ANTARES] Jikus 2005
// ---------------------------------------------------------------------------------------------

Program DetectHidden;

var      t : Integer;  
TimeParser : TDateTime;

Begin
SetARStatus(true); { ВКЛ Реконнектор }
ClearJournal;
while not Dead do
 begin
  if Connected then
   begin
    TimeParser := Now
    for t := 0 to 20 do
     begin
      UseSkill('Detect Hidden');  
      WaitJournalLine(Now, 'You can see nothing hidden|You find', 20000)
      wait(300)
     end;
    if InJournalBetweenTimes('You are very hungry|You are starving',TimeParser,Now) >=0 then
     begin
      while not InJournalBetweenTimes('You are stuffed',TimeParser,Now) >=0  do
      UseObject(FindType($097B, backpack));
     end;
   end;
 end;
End.

[Jikus]

Исходный код

// ---------------------------------------------------------------------------------------------
// Stealth Client  * Hiding * [ANTARES] Jikus 2005
// ---------------------------------------------------------------------------------------------

Program Hiding;

var      t : Integer;  
TimeParser : TDateTime;

Begin
SetARStatus(true);
ClearJournal;
while not Dead do
 begin
  if Connected then
   begin
    TimeParser := Now
    for t := 0 to 20 do
     begin
      UseSkill('Hiding');
      WaitJournalLine(Now, 'You can|You have', 10000)
      wait(2000)
      if Hidden then UOSay('.');
     end;
    if InJournalBetweenTimes('You are very hungry|You are starving',TimeParser,Now) >=0 then
     begin
      while not InJournalBetweenTimes('You are stuffed',TimeParser,Now) >=0  do
      UseObject(FindType($097B, backpack));
     end;
   end;
 end;
End.