Показать сообщение отдельно
Старый 30.04.2009, 19:18   #16
Местный
 
Регистрация: 06.02.2008
Сообщений: 103
Сказал Спасибо: 13
Имеет 8 спасибок в 6 сообщенях
Stasrus
По умолчанию

Пробуй
ДА-вкл скрипт
НЕТ-выключить
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.

Последний раз редактировалось Stasrus, 30.04.2009 в 19:34. Причина: Исправил скрипт
Stasrus вне форума   Ответить с цитированием
За это сообщение Stasrus нажился спасибкой от: