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

[J-Fobos]

Думаем вместе, может чего надумаем. Может есть какая-то закономерность в пакетах скила А и Б и таргета?

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

CF 66 59 E5 06 01 00 E4 F8 00 00 D2 00 C5 90 00 00
23 66 F5 E3 C5 0F 00 75 45 01 E4 F8 00 00 9A 99 99 3F

Вот, это скилл А и Б для одного моба.

[J-Fobos]

F8 00 0E40 этот кусочек общий, что бы он мог значить?

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

ИД моба?

[J-Fobos]

Я не знаю, кто из нас в аион играет?))

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

Надо Дреда подождать

//J-Fobos: предлагаю когда он придет пообщатся в мини чате, может чего надумаем (чтоб форум не зафлуживать)

[BioDread]

В5-таргет 23- Скил
B5 66 47 AF 2C 15 00 00
23 66 F5 B8 B8 10 00 75 45 01 AF 2C 15 00 9A 99 99 3F
B5 66 47 67 E8 15 00 00
23 66 F5 36 89 07 00 75 45 01 67 E8 15 00 9A 99 99 3F
B5 66 47 CE AB 16 00 00
23 66 F5 84 69 16 00 75 45 01 CE AB 16 00 67 66 66 3F
B5 66 47 20 48 13 00 00
23 66 F5 84 69 16 00 75 45 01 20 48 13 00 9A 99 99 3F
B5 66 47 DA 80 15 00 00
23 66 F5 84 69 16 00 75 45 01 DA 80 15 00 9A 99 99 3F
B5 66 47 73 3C 0F 00 00
23 66 F5 84 69 16 00 75 45 01 73 3C 0F 00 9A 99 99 3F
B5 66 47 91 08 16 00 00
23 66 F5 84 69 16 00 75 45 01 91 08 16 00 9A 99 99 3F



думаю должно выглядеть както так: если от серва пакет первый байт которого В5 то взять из него 4й 5й и 6й 7й байт и записать в 11й 12й 13й 14й байты пакета, подготовленного юзверем.
23 66 F5 36 89 07 00 75 45 01 xx xx xx xx 9A 99 99 3F
и включить таймер
а после смерти отключить.
Тоесть лучше взять предыдущий скрипт и переписать чуток условие старта таймера.

[J-Fobos]

const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;
a:integer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant(Sender: TObject);
begin
buf:=HStr('23 66 F5 36 89 07 00 75 45 01');
WriteD(a);
buf:=buf+Hstr('9A 99 99 3F');
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$B5) and (ConnectName=name) then
begin
a:=ReadD(11);
TimerEnchant.enabled:=true;
end;

begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.

[Deffol]

а можно написать скрипт, чтоб при юзе скила сумона, а не при таргете, суммон начинал бы бить с минимальным временем и интервалом отправки пакетов, до тех пор, пока моб не умрет...а потом бы часики выключились?
сам не понимаю...
пакеты скилла такие как в верхнем посте
=-------------------------------------------=
Вот скиллы сумона:

23 57 C0 E5 B9 03 00 FC 44 01 BD D4 00 00 00 00 80 3F 
23 57 C0 E5 B9 03 00 FC 44 01 98 D2 00 00 00 00 80 3F 
23 57 C0 E5 B9 03 00 FC 44 01 B3 CB 00 00 00 00 80 3F

Вот сам скилл:

CF 57 6C 84 06 09 00 B3 CB 00 00 18 01 45 82 00 00

Убийство моба не нашел пакет, но думаю, что он такой же, я сам пробовал написать скрипт, но не работает...

[J-Fobos]

Да, можно сделать, не вижу никаких препятствий