Кружок нубов(Вопрос-Ответ)

[MyNickName]

Здравствуйте. Есть один скрипт

Begin

if FromClient and (pck[1]=#$01) then begin
pck := pck + Hstr('01 00 00 00');

end;

Добавляет в конец пакета MoveToLocation флаг, что мол при выборе куда идти использовалась мышь. Если этот скрипт будет править пакеты оффгейм волкера, то все хорошо. А если ингейм волкера, то получается, что в пакете и так присутствует этот флаг, а тут еще и скрипт добавляет еще один. Как сделать, чтобы если этот флаг уже присутствует, то пакет не правился и наоборот?

Я в программировании ничего не понимаю, так что пожалуйста скиньте кусок кода =)

//J-Fobos: добавьте проверку длинны пакета. Функция Length();

begin
if FromClient and (pck[1]=#$01) then begin
if Length(pck) <> 29 then
pck := pck + Hstr('01 00 00 00');

end;

Так да? Или считать вместе с размером и писать 31 вместо 29?