uses sysutils,classes;
procedure pow;
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;

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

begin
script.newthread(@pow);
script.newthread(@nobl);
end.