Проверьте пожалуйста , правильно ли я все сконфигурировал.
Код:
begin
////////////////////////////////////////Блок проверки количество человек в пати
if FromServer and (pck[1] = #$4E) and (ConnectName=Name) then begin
//Блок перебора количества в пати человек
if (ReadD(10)=2) then // в пати 2-а человека
begin
buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
SendToServer;
end
else if (ReadD(10)=3) then // в пати 3-а человека
begin
buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
SendToServer;
end
else if (ReadD(10)=4) then // в пати 4-а человека
begin
buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
SendToServer;
end
else if (ReadD(10)=5) then // в пати 5-а человека
begin
buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
SendToServer;
end
else if (ReadD(10)=6) then // в пати 6-а человека
begin
buf:=Hstr('49 12 04 20 00 3F 04 30 04 42 04 38 04 20 00 37 00 2D 00 3C 04 4C 04 20 00 47 04 35 04 3B 04 3E 04 32 04 35 04 3A 04 00 00 03 00 00 00');
SendToServer;
timer.enabled:=true;
TimerStep:=13;
end;
end;