Пробуй
ДА-вкл скрипт
НЕТ-выключить
delphi Код:
//помошник в PvP освобождает вас от небоходимости зажатия клавиши Ctrl,
const
Name='хххххххх'; //ник перса
var
x: integer;
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
begin
if x=1 then begin
//если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было удерживать контрол
if FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01;
//если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же что б не удерживать контрол
if FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A;
end;
begin
if FromClient and (pck[1]=#$34) and (pck[2]=#$06) then begin
x:=1;
SendMsg('Включено!');
end;
if FromClient and (pck[1]=#$34) and (pck[2]=#$05) then begin
x:=0;
SendMsg('Выключено!');
end;
end;
end.