ВОПРОСИК У НОВИЧКА!

[QaK]

Сообщение от skymanrus

седня узнал о этой проге и тут же попытался написать какой-то свой скрипт вот пример:

var ID, xpos, ypos, mob: string;
MyID: integer;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin
if FromServer and (pck[1]=#$04) then MyID:=ReadD(18); //получаю ид моего чара
if FromServer and (pck[1]=#$01) and (ReadD(2)=MyID) then //если на серваке ктото перемещается
//по карте и если у него мой ид значит это я! :)
begin
ID:=IntToStr(ReadD(2));
ypos:=IntToStr(ReadD(6));
xpos:=IntToStr(ReadD(10));
SendMsg('id-'+ID+' xpos-'+ypos+' xpos-'+xpos); //пишу в игре своой ид и коордиаты!
end;
end.

смысл скрипта прост- когда я перемещаюсь печатать мои координаты точные на карте но фишка в том что помимо моих координат прога засекает ещё кучу какого то мусора включая нули и даже когда я стою на месте и не рыпаюсь она всеравно показывает чьи то координаты :(
вопрос: что я сделал не так ? как мне убрать посторонюю информацию так чтоб когда я стоял на месте она бред не писала а когда тыкал куда нидь она писала только мои координаты ????

помогите плиз :)

жиным выделены дополнения, попробуй так.