Использовать умения или кинуть пати по сообщению в чат

[SARCAZM]

uses sysutils,classes;
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = mtPrivate) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый
begin
if (ChatMessage.Text = 'пати плз') then Engine.InviteParty(ChatMessage.Sender, ldRandom); //текстом - делаем
if (ChatMessage.Text = 'бпк') then engine.useskill(3521); //текстом - делаем
end;
delay(2000);
end;
end.
Автор скрипта: Ivanius

 

[Cookie]

@SARCAZM, Спасибо! очень полезный скрипт ^_^