Stealth Client Forum

Альтернативный клиент Ultima Online
Текущее время: 22.10.2018 9:46

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: about Journal Scan
СообщениеДобавлено: 15.12.2012 19:03 
Не в сети Neophyte
Neophyte

Зарегистрирован: 20.11.2012 11:20
Сообщения: 23
Код:
Program New;
var
  t : integer;
  sTime: TDateTime;

function Scan():Integer;
begin
  //AddToSystemJournal(TimeToStr(Now));
  if (Now > sTime + 1.0/(24*60*3)) then
  begin
      t := 0;
      sTime := Now;
  end;
  if InJournal('APM') <> -1 then  // the Guild's Name
  begin
    inc(t);
    ClearJournal();
    UOSay('\'the Guild Player ' + IntToStr(t) + 'Counts.');
    //AddToSystemJournal(TimeToStr(Now));
  end;
end;

function autoConnect():Integer;
begin
  while not Connected() do
  begin
    if not Connected() then
    begin
      Connect();
      Wait(10000);
      Continue;
    end;
  end;
end;

begin
  t := 0;
  sTime := Now;
  autoConnect;
  while Connected() do
  begin
    autoConnect;
    scan();
  end;
end.

my purpose: Scan Journal to get the Player's info : Name and Guild Name, Red, gray, blue, and the Player Counts.
this my simple code to scan journal, then get the info.
is there any better way to improve the scripts?


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: about Journal Scan
СообщениеДобавлено: 15.12.2012 22:20 
Не в сети Developer
Developer

Зарегистрирован: 24.03.2005 17:05
Сообщения: 3750
TheEnd писал(а):
Код:
Program New;
var
  t : integer;
  sTime: TDateTime;

function Scan():Integer;
begin
  //AddToSystemJournal(TimeToStr(Now));
  if (Now > sTime + 1.0/(24*60*3)) then
  begin
      t := 0;
      sTime := Now;
  end;
  if InJournal('APM') <> -1 then  // the Guild's Name
  begin
    inc(t);
    ClearJournal();
    UOSay('\'the Guild Player ' + IntToStr(t) + 'Counts.');
    //AddToSystemJournal(TimeToStr(Now));
  end;
end;

Injection style, yes. + Copy-Paste from Stealth scripts. Together = awesome crazy code.

forgot Injection. ClearJournal never needed, it left for few unstandart situations. NOT for usual scripts.

Example of normal journal working.
Код:
     stime := Now;
     WaitTargetObject($5EA22CAE);
     UseSkill('Arms Lore');
     repeat
       CheckSave;
       InJournalBetweenTimes('make|destroyed|already', stime, Now);
       wait(100);
     until (LineCount > 0) or (Now > stime + (1.5/1440));
     wait(10000);

_________________
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".


Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron


Тюнинг и аксессуары. Тюнинг внедорожников: магазин 4х4 в Одессе. Интернет магазин "AMAX".
Также, на правах рекламы: школьный сайт: school-work.net и еще один: https://www.youtube.com/channel/UCFSPHKHjP22tEl8Rjcst9Fw.


Рейтинг@Mail.ru
Powered by phpBB® Forum Software © phpBB Group