Нет ответ не правильный! При использовании процедуры таймера, все пакеты (в процедуре) отправляются только по имени соединения. Например на сервер:
SendToServerEx(name);
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 := 388;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
DoTheSkill(388, 5); //Ослабляющий удар V
DoTheSkill(2039, 6); //Истощающий удар VI
DoTheSkill(399, 1); //Бойня I
end;
end.
Вот один полезный для глада скрипт, Активация-Ослабляющий удар V
Юзаются сразу 3 скила, понижая защиту врага на -1500
(няхи)
У асмов можно отредактировать, вставить вместо бойни Резня I-id 400
Добавлено через 6 минут
Цитата:
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 := 2268; //Активация Вампирическая волна II
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
DoTheSkill(2268, 2); //Вампирическая волна II
DoTheSkill(2017, 3); //Шоковая волна III
DoTheSkill(297, 3); //Двойная волна III
end;
end.
Серия из 3 масс скилов.
Последний раз редактировалось kaktak111; 07.06.2012 в 15:55.
Причина: Добавлено сообщение
плиз помогите скопировал скрипт с форума на гладку запускаю игру всё норм начинаю юзать скил активатор и мне говорят соединение прервано а сам скрипт завершает серию ударов ..кароче чо сделать чтоб не выкидывало )) если можно в скайп ответ плиз )) galiafe - скайп или в вк [Ссылки могут видеть только зарегистрированные пользователи. ]