Будьте любезны, помогите со скриптом.

[ПомогитеПожалуйста]

CF 66 59 47 05 03 00 66 0B 44 00 43 02 15 E0 00 00
CF 66 59 47 05 04 00 0B E4 45 00 6A 04 15 E0 00 00

Один и тот же скилл на 2х разных мобов

C9 66 53 00
B5 66 47 AD 87 45 00 00


Взятие в таргет.

[J-Fobos]

ПомогитеПожалуйста, все так как я и думал. Но скрипт будете писать сами. Вот набросок процедуры таймера и главного блока:

Procedure OnTimer01(Sender: TObject);
begin
buf:=#$CF;
WriteD(a);
WriteD(b);
WriteD(c);
WriteD(d);
SendToServerEx(name);
end;

begin
if (FromServer) and (pck[1]=#$CF) and (ConnectName=name) then 
begin
a:=ReadD(2);
b:=ReadD(6);
c:=ReadD(10);
d:=ReadD(14);
end;
end.

Числа a,b,c,d целые. Вам остается организовать создание и включение таймера, а также объявить переменные.


BioDread, вы также создавайте таймер, в нем делаете отправку пакета нужное количество раз с помощью команды SendToServerEx(name); и выключение таймера. При получении нового пакета #$23 сбиваете счетчик итераций таймера на начальное значение и включаете его.

begin
if FromServer and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
Timer01.Enabled:=True;
end;
end.

Информацию по работе таймера можете без проблем найти на форуме.