Цитата:
if FromServer and (pck[1]=#$16) then
case ReadD(10) of
952,951:begin // здесь пишу ID заточки
mybID:=ReadD(6);
mybX:=ReadD(14);
mybY:=ReadD(18);
mybZ:=ReadD(22);
buf:=#$1F;
WriteD(mybID);
WriteD(mybX);
WriteD(mybY);
WriteD(mybZ);
WriteC(0);
SendToServerEx( myName);
end;
end;
|
ПХ выдает что тут ошибка и не запускает ) мб чот не так?
Последний раз редактировалось NLObP, 02.08.2009 в 13:12.
Причина: исправил скрипт
|