Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Stealth Client, Скрипты для Stealth Client >
Jikus
сообщение 27.9.2005, 19:25
Сообщение #1


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 518
Регистрация: 30.5.2005
Пользователь №: 1 070
Спасибо сказали: 5 раз(а)
Класс: Рейнджер



Исходный код
// ---------------------------------------------------------------------------------------------
// 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.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 3) >
Jikus
сообщение 27.9.2005, 20:50
Сообщение #2


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 518
Регистрация: 30.5.2005
Пользователь №: 1 070
Спасибо сказали: 5 раз(а)
Класс: Рейнджер



Исходный код
// ---------------------------------------------------------------------------------------------
// 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
сообщение 28.9.2005, 20:38
Сообщение #3


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 518
Регистрация: 30.5.2005
Пользователь №: 1 070
Спасибо сказали: 5 раз(а)
Класс: Рейнджер



Исходный код
// ---------------------------------------------------------------------------------------------
// 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
сообщение 28.9.2005, 20:42
Сообщение #4


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 518
Регистрация: 30.5.2005
Пользователь №: 1 070
Спасибо сказали: 5 раз(а)
Класс: Рейнджер



Исходный код
// ---------------------------------------------------------------------------------------------
// 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.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 22.10.2018, 17:13
Design: Fisana  © 2005-2006 IBR Team