помошник в PvP и PK.//by mks как переделать

[Stasrus]

Пробуй
ДА-вкл скрипт
НЕТ-выключить

//помошник в 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.