так вроде лучше
delphi Код:
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 шока