Цитата:
Сообщение от Vklu4atel^^
Здраствуите нужен маленький скрипт имеем пакет на забратие пухи с ВХ 32 01 00 00 00 6B A2 14 10 01 00 00 00 и дествие Unvare 1B 08 00 00 00
можыте ли помоч со скриптом чтоб по нажатию Social Unware я забирал пуху с ВХ ? (очень нада спс)
|
delphi Код:
const
Name='имя чара'; //сюда вписать имя чара для которого запускаем скрипт, с соблюдением регистра букв
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//*****************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//*****************************************************
begin
//*****************************************************
//не обрабатываем пустые пакеты
if pck='' then exit;
//*************************************************
if (ConnectName=Name) and FromClient then begin
case pck[1] of
#$1B: begin
case ReadD(2) of
//социальное действие Unaware
8: begin
buf:=HStr('32 01 00 00 00 6B A2 14 10 01 00 00 00');
SendToClientEx(Name);
//не передаем серверу социальное действие
pck:='';
end;
end;
end;
end; //case
end;
end.