дЕмаг сумоном на Ньюшке

Вот скриптик для демага сумоном на Ньюшке. активируеться эмоцией утешить. вместо скила элемента 23..... вставляем любой пойманый скил эли по необходимость можно и масов( самоуничтожение).


var
i:integer;

SummonID:integer;
TargetID:integer;

begin

if FromClient and (pck[1]=#$29) then SummonID:=ReadD(4);
if FromClient and (pck[1]=#$B5) then TargetID:=ReadD(4);


if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$1715) then
begin
pck:='';
buf:=HStr('23 57 C0 AA 4C 3B 00 CA 44 01 78 0B 25 00 9A 99 99 3F ');
writeD(SummonID,4);
writeD(TargetID,11);
for i:=1 to 50 do
SendToServer;
end;

end.

тюкните спасибки