uses sysutils,classes;
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый
begin
if pos('pow',ChatMessage.Text)>0 then
begin
engine.SetTarget(ChatMessage.Sender); // Берет в таргет кто написал "pow"
engine.useskill(1355); // ID скилла
end;
end;
delay(2000);
end;
end.
Автор скрипта: Ivanius
begin
while Engine.Status = lsOnline do begin
if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый
begin
if pos('pow',ChatMessage.Text)>0 then
begin
engine.SetTarget(ChatMessage.Sender); // Берет в таргет кто написал "pow"
engine.useskill(1355); // ID скилла
end;
end;
delay(2000);
end;
end.
Автор скрипта: Ivanius