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); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 2126; if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(2280, 2); DoTheSkill(873, 3); DoTheSkill(1990, 2); end; end.