Цитата:
Сообщение от nezabudkin
Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...
|
Подтверждаю. Раньше скрипт "радар" подвешивал клиента, теперь работает.
delphi Код:
//**********************************************
//for Gracia
//Установка стрелки (радара) над чаром к цели, при использовании таргета
//Чтобы включить скрипт используйте в игре социальное действие - Yes
//Чтобы выключить скрипт используйте в игре социальное действие - No
//**********************************************
var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;
procedure SendMs(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure TargetRadar(CorX, CorY, CorZ: Integer);
begin
buf:=#$F1;
WriteD(0);
WriteD(1);
WriteD(CorX);
WriteD(CorY);
WriteD(CorZ);
SendToClient;
end;
procedure TargetRadarDrop;
begin
buf:=#$F1;
WriteD(1);
WriteD(1);
WriteD(0);
WriteD(0);
WriteD(0);
SendToClient;
end;
begin
if FromClient and (pck[1]=#$34) then
begin
SocialID:=ReadD(2);
case ord(pck[2]) of
$06:begin
Status:=1;
SendMs('Радар включен');
pck:='';
end;
$05:begin
Status:=0;
TargetRadarDrop;
SendMs('Радар выключен');
pck:='';
end;
end;
end;
if Status=1 then
begin
if FromServer and (pck[1]=#$79) then
begin
CorX:=ReadD(6);
CorY:=ReadD(10);
CorZ:=ReadD(14);
TargetRadar(CorX, CorY, CorZ);
end;
end;
end.
PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.