[TAMBIK]

так вроде лучше

var
x: integer;
procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(9);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;
begin
if x=1 then begin
//если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было 

//удерживать контрол
if FromClient and (pck[1]=#$39) then pck[6]:=#$0F;
//если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же 

//что б не удерживать контрол
if FromClient and (pck[1]=#$1F) then pck[1]:=#$01;
end;
 begin
 if FromClient  and (pck[1]=#$34) and (pck[2]=#$06) then begin
 x:=1;
 SendMsg2('Включено!');
 pck:='';
 exit;
end;
   if FromClient  and (pck[1]=#$34) and (pck[2]=#$05) then begin
 x:=0;
 SendMsg2('Выключено!');
 pck:='';
 exit;
  end;
 end;
end.

а е с 3 шока