Denis86russ@
31.01.2012, 15:24
активация скилом благословение стойкости 1
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, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 1230;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1267,5);
DoTheSkill(952,1);
DoTheSkill(1234,1);
DoTheSkill(1269,1);
DoTheSkill(2176,1);
DoTheSkill(2180,1);
DoTheSkill(2288,1);
DoTheSkill(1225,1);
DoTheSkill(2160,1);
DoTheSkill(1347,1);
DoTheSkill(1339,1);
DoTheSkill(1332,1);
DoTheSkill(1259,1);
end;
end.
:z:
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, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 1230;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1267,5);
DoTheSkill(952,1);
DoTheSkill(1234,1);
DoTheSkill(1269,1);
DoTheSkill(2176,1);
DoTheSkill(2180,1);
DoTheSkill(2288,1);
DoTheSkill(1225,1);
DoTheSkill(2160,1);
DoTheSkill(1347,1);
DoTheSkill(1339,1);
DoTheSkill(1332,1);
DoTheSkill(1259,1);
end;
end.
:z: