Скрипты через l2phx для ботов

[semiromid]

Когда захожу клиентом то этот скрипт прикрасно работает

var
TimerCycle:integer;
timer:TTimer;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=10000;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=HStr('0F FE 46 01 00 A0 41 02 00 99 F2 FF FF 1A 41 01 00 60 45 02 00 75 F2 FF FF 01 00 00 00'); //1 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
2:begin
buf:=HStr('0F 02 46 01 00 71 44 02 00 99 F2 FF FF D5 46 01 00 BE 41 02 00 B3 F2 FF FF 01 00 00 00'); //2 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
3:begin
buf:=HStr('0F 66 46 01 00 58 45 02 00 99 F2 FF FF 0B 46 01 00 6C 44 02 00 B3 F2 FF FF 01 00 00 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
4:begin
buf:=HStr('1F B6 B3 00 10 65 46 01 00 50 45 02 00 B3 F2 FF FF 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
5:begin
buf:=HStr('1F B6 B3 00 10 65 46 01 00 50 45 02 00 B3 F2 FF FF 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
6:begin
buf:=HStr('23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 30 00 30 00 35 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 30 00 00 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
7:begin
buf:=HStr('23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
8:begin
buf:=HStr('23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 30 00 30 00 35 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 36 00 00 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
9:begin
buf:=HStr('0F 87 3F 01 00 51 41 02 00 59 F2 FF FF 65 46 01 00 50 45 02 00 B3 F2 FF FF 01 00 00 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=10000;
end;
10:begin
buf:=HStr('1F B6 B3 00 10 65 46 01 00 50 45 02 00 B3 F2 FF FF 00'); //4 пакет
sendtoserver;
TimerCycle:=1;
timer.interval:=10000;
end;
end;
end;

procedure Free;
begin
timer.free;
end;


begin
useforconnectid := ConnectID;
if FromClient and (pck=HStr('56 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
if FromClient and (pck=HStr('39 0F 02 00 00 00 00 00 00 00')) then timer.enabled:=false;
end.
Когда захожу " "L2Walker" то скрипт не работает почемуто .А L2NET вобще чегото не хочет подключаться .Идею такова , зделать много ботов шт так 20-ть и чтобы они повторяли некоторые действия 1-го окна . Например авто асисит и авто авто атака . Таким способом хочю убить мега рб .

[J-Fobos]

1) Замените везде sendtoserver; на ssendtoserverex();
2) К условиям FromClient добавьте ConnectName()

Ну и по поводу оптимизации: зачем вам useforconnectid := ConnectID? И зачем каждый раз устанавливать timer.interval? :)

ps: по поводу вашей идеи: такое можно реализовать и без пакетхака, только средствами ботов :)