[Скрипт] Авто удаление почты 2.7

[zombiee]

Понадобилось мне очистить почтовый ящик от выборочных сообщений, 60-ти штук
Набросал скрипт, который удаляет письмо по клику (вместе с содержимым (кинары/вещи))

// by zombiee
procedure DeleteMail(ID: word);
begin
  buf:=HStr('E8 01 57 87 FE 01 00');
  WriteH(ID);
  buf:=buf+HStr('01 00 00');
  SendToServer;
  buf:='';
end;

var
  mailID: word;
begin
  if((FromClient) and (ReadC(1)=$ED)) then begin
    mailID:=ReadH(6);
    sendMSG('Delete mail #'+IntToStr(mailID));
    DeleteMail(mailID);
    pck:='';
  end;
end.

В лог пишется идентификатор сообщения, которое удаляется.

БУДЬТЕ ВНИМАТЕЛЬНЫ!
Никаких проверок нет, письмо удаляется перманентно.
По этому, не ошибайтесь при выборе

[Scrambyy]

полезний скрипт держи пасибку )