скрипт на быстрый баф чаром

[Denis86russ@]

активация скилом благословение стойкости 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.

[xXxKickeRoKxXx]

На какой скил Активируется?

всё увидел

[TPOJ1b]

Очень паленый скрипт, нерекомендую

[freshinin-aion]

Спс я добавил в свою тему http://zhyk.ru/forum/showthread.php?t=353124
ЗЫ авторство указал.
И скрипт те нужно переделывать..

вот это

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);



нужно заменить на это


WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 2142;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);