На верхнюю копию можешь не смотреть я ее изменил уже несколько раз) Это копипаст кусок с небольшими вкроплениями моего кода, щас я работаю над расширением функционала до валкерского аналога.
Теперь она выглядит проще, выбором на процедуру:
Код:
...
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;
...
Скрипт получится в итоге довольно объемным, пока все, мб еще хил прикручу и вебморду