[Скрипт] Баф свитки aion-light.ru

[Oni-San]

Те кто играет на aion-light.ru знаю что там место свитков для удобства зделали скилы точнее бафы вот я зделал скрипт чтобы не стоять их все по очереди не юзать разом все

для физ классов

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 9960;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
 TargetID := ReadD(10);
 DoTheSkill(9960, 3); 
 DoTheSkill(9959, 3); 
 DoTheSkill(9957, 4);
 DoTheSkill(9966, 4);
 DoTheSkill(9920, 4); 
 DoTheSkill(9921, 4); 
 DoTheSkill(9919, 4);
 DoTheSkill(9918, 4);
 DoTheSkill(9967, 4);
end;

 end.

для маг классов

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 9960;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
 TargetID := ReadD(10);
 DoTheSkill(9960, 3); 
 DoTheSkill(9965, 3); 
 DoTheSkill(9958, 4);
 DoTheSkill(9966, 4);
 DoTheSkill(9920, 4); 
 DoTheSkill(9921, 4); 
 DoTheSkill(9919, 4);
 DoTheSkill(9918, 4);
 DoTheSkill(9967, 4);
end;

 end.

активировать скилом [Ссылки могут видеть только зарегистрированные пользователи. ] Увеличение скорости движения
собственно все помог спасибо

[Winger]

Можешь помочь с настройкай пхшника на лайт?

[Oni-San]

я там уже не играю . Когда играл использовал версию 3.5.33.167

а там сильно заморачиватся в настройка не нада покрайней мере на лайте у меня все норм работало..