Oni-San
06.03.2012, 05:59
Вот решил выложить скрип на все скилы сином для 2.7 конечно тем кому нада уже он есть хотя он палевный но так по прикалывать пойдет :d ну а я выложу тем кому лень делать самому =)
Сам скрип активация на Нанесение клейма IV
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 := 867;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(867, 9);
DoTheSkill(862, 5);
DoTheSkill(919, 1);
DoTheSkill(2123, 1);
DoTheSkill(813, 1);
DoTheSkill(913, 1);
DoTheSkill(836, 1);
DoTheSkill(1984, 1);
DoTheSkill(1988, 1);
DoTheSkill(927, 1);
DoTheSkill(850, 1);
DoTheSkill(839, 1);
DoTheSkill(577, 1);
DoTheSkill(572, 1);
DoTheSkill(920, 1);
DoTheSkill(2113, 1);
DoTheSkill(2126, 1);
DoTheSkill(1987, 1);
DoTheSkill(1990, 1);
DoTheSkill(2125, 1);
DoTheSkill(579, 9);
DoTheSkill(875, 5);
DoTheSkill(860, 5);
DoTheSkill(2110, 4);
DoTheSkill(2121, 1);
DoTheSkill(1989, 1);
DoTheSkill(2114, 1);
DoTheSkill(2115, 1);
DoTheSkill(853, 8);
DoTheSkill(939, 1);
DoTheSkill(578, 9);
DoTheSkill(580, 6);
DoTheSkill(932, 9);
DoTheSkill(868, 9);
DoTheSkill(1983, 1);
DoTheSkill(915, 1);
DoTheSkill(804, 1);
DoTheSkill(815, 4);
DoTheSkill(801, 1);
DoTheSkill(553, 9);
DoTheSkill(820, 9);
DoTheSkill(557, 7);
DoTheSkill(567, 1);
DoTheSkill(570, 7);
DoTheSkill(865, 1);
DoTheSkill(808, 9);
DoTheSkill(812, 1);
DoTheSkill(844, 7);
DoTheSkill(847, 7);
DoTheSkill(911, 1);
DoTheSkill(834, 9);
DoTheSkill(822, 1);
end;
end.
Сам скрип активация на Нанесение клейма IV
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 := 867;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(867, 9);
DoTheSkill(862, 5);
DoTheSkill(919, 1);
DoTheSkill(2123, 1);
DoTheSkill(813, 1);
DoTheSkill(913, 1);
DoTheSkill(836, 1);
DoTheSkill(1984, 1);
DoTheSkill(1988, 1);
DoTheSkill(927, 1);
DoTheSkill(850, 1);
DoTheSkill(839, 1);
DoTheSkill(577, 1);
DoTheSkill(572, 1);
DoTheSkill(920, 1);
DoTheSkill(2113, 1);
DoTheSkill(2126, 1);
DoTheSkill(1987, 1);
DoTheSkill(1990, 1);
DoTheSkill(2125, 1);
DoTheSkill(579, 9);
DoTheSkill(875, 5);
DoTheSkill(860, 5);
DoTheSkill(2110, 4);
DoTheSkill(2121, 1);
DoTheSkill(1989, 1);
DoTheSkill(2114, 1);
DoTheSkill(2115, 1);
DoTheSkill(853, 8);
DoTheSkill(939, 1);
DoTheSkill(578, 9);
DoTheSkill(580, 6);
DoTheSkill(932, 9);
DoTheSkill(868, 9);
DoTheSkill(1983, 1);
DoTheSkill(915, 1);
DoTheSkill(804, 1);
DoTheSkill(815, 4);
DoTheSkill(801, 1);
DoTheSkill(553, 9);
DoTheSkill(820, 9);
DoTheSkill(557, 7);
DoTheSkill(567, 1);
DoTheSkill(570, 7);
DoTheSkill(865, 1);
DoTheSkill(808, 9);
DoTheSkill(812, 1);
DoTheSkill(844, 7);
DoTheSkill(847, 7);
DoTheSkill(911, 1);
DoTheSkill(834, 9);
DoTheSkill(822, 1);
end;
end.