[Помогите!] Скрипт под 3.0

[fanFermara]

Догорие друзья, прошу помочь мне в доработке данного скрипта, под патч 3.0

Подскажите как должен выглядеть пакет на скил или на юз скила на 3.0 и как его выловить?
(Ну и всё что нужно помогите подправить)

//Script by fanFermara
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00'); //Начальный пакет на скил
WriteH(SkillID, 6); //Вставляем в начальный пакет ID скила
WriteC(Level, 8); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета
SendToServer;
end;
begin

StartSkill := 693; //Ясновидение I
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then

begin
TargetID := ReadD(10);
DoTheSkill(777, 1); //Осторожность I
DoTheSkill(776, 1); //Орлиный глаз I
DoTheSkill(786, 1); //Усиление I
DoTheSkill(646, 1); //Тигриный глаз I
DoTheSkill(684, 1); //Яростный взгляд I
end;

end.