Помощник в торговле

[Groma]

Запускаете на твинке.
Он летает по городам и "смотрит", что пишут в чат. Если в сообщениях есть строки заданные вами, в моем примере zaken, aq, тогда он записывает в файлик дату, время, имя кто написал сообщение и текст сообщения.
Применять для мониторинга рынка(ну а что скамерки где только эпик не продают).

 

[SARCAZM]

Очень занятно, мне нравится
На заметку, если кто-то не понял где меняются слова, которые нужно искать - это 105-108 строки.
Добавить новое слово (к примеру "КОЛЫ") -

matches:= Pos('КОЛЫ', ChatMessage.text);
count:=count + matches;


Еще на заметку тем,кто решит допилить - приводите текст сообщений в нижний/верхний регистр, чтобы не было досадного "промаха" скрипта, когда напишут "Продам АК", а мы проверяли сообщение на "ак" маленькими буквами.

 

[Moschnenky]

Крутая штука)

 

[Agonia]

Скамерки эпик продают в районе Жука и тд)))

 

[Sanya]

пригодно

 

[mirOK]

Спасибо

 

[dell]

Пытаюсь написать оповещалку на ивенты, т.е системные сообщения, все чаты работают кроме сис, выручайте)

procedure alarm;
 function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
 external 'user32.dll';

 begin
 while (true) do
 begin

  if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then 
     begin
     
  if (ChatMessage.Text = 'TvT:')    then  
    engine.blinkwindow(true);
      playsound('Sounds/chicken.wav');
          Delay(500); 
//   SetForegroundWindow(Engine.GameWindow);
      end;
         
           
   if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then 
     begin
     
  if (ChatMessage.Text = 'Рейдбосс')    then
    engine.blinkwindow(true);
      playsound('Sounds/chicken.wav');
          Delay(500); 
//   SetForegroundWindow(Engine.GameWindow);
      end;
      
      if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then 
     begin
     
        if (ChatMessage.Text = 'Объявления')    then
    engine.blinkwindow(true);
      playsound('Sounds/chicken.wav');
          Delay(500); 
//   SetForegroundWindow(Engine.GameWindow);
      end;
         
          
  if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then 
     begin
    if (ChatMessage.Text = 'Захват базы:')    then          
    engine.blinkwindow(true);
      playsound('Sounds/chicken.wav');
          Delay(500);
//   SetForegroundWindow(Engine.GameWindow);
    end;
      end;
        end;
           
begin
script.newthread(@alarm);
end.

 

[Zubastic]

if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then

С чего это вдруг? На скрине явный анонс.

 

[dell]

@Zubastic,
mtSystem, mtAll, mtPrivate, mtParty, mtClan, mtFriend, mtShout

Другие чаты в хелпе отсутствуют

 

[Zubastic]

В хелпе много чего отсутствует, привыкай)

 

[Foxi]

пойдёт )

 

[Minore]

Поделитесь пожалуйста скриптом под личный или в личку, заранее спасибо!

 

[battleground]

Хорош сскрипт, спасибо.

 

[battleground]

полезный скриптик