[Xen]

На верхнюю копию можешь не смотреть я ее изменил уже несколько раз) Это копипаст кусок с небольшими вкроплениями моего кода, щас я работаю над расширением функционала до валкерского аналога.
Теперь она выглядит проще, выбором на процедуру:

...
case UseBuffID of 
Shield:             SendPckServerUseSkill(Shield,CtrlPressID,ShiftPressID);
Mental_Shield:      SendPckServerUseSkill(Mental_Shield,CtrlPressID,ShiftPressID);
...
end;

procedure SendPckServerUseSkill(IDSkill,CtrlStatus,ShiftStatus: integer);
begin
    buf:=hstr(IDRequestMagicSkillUse);       // Формируем заголовок пакета (ид)
    WriteD(IDSkill);                                 // Задаем ИД скилла
    WriteD(CtrlStatus);                            // Задаем значение CtrlPressed
    WriteC(ShiftStatus);                          // Задаем значение ShiftPressed
    SendToServerEx(BufferName);             // Отправляем на сервер пакет
end;
...

Скрипт получится в итоге довольно объемным, пока все, мб еще хил прикручу и вебморду