Function UnpackMsg(ent,dat$)
xp=Instr(dat$,"|") ;получаем позицию символа "|"
x=Float(Left(dat$,xp)) ;получаем текст до етой позиции и превращаем его в число
dat$=Right(dat$,Len(dat$)-xp);убираем весь текст до етой позиции
zp=Instr(dat$,"|") ;получаем позицию символа "|"
z=Float(Left(dat$,zp)) ;получаем текст до етой позиции и превращаем его в число
;получаем позицию символа "|"
dat$=Right(dat$,Len(dat$)-zp);убираем весь текст до етой позиции
yaw=Float(Left(dat$,Len(dat$))) ;получаем весь оставшийся текст
yp=Instr(dat$,"|") ;получаем позицию символа "|"
y=Float(Left(dat$,yp)) ;получаем текст до етой позиции, и превращаем его в число
dat$=Right(dat$,Len(dat$)-yp);убираем весь текст до етой позиции
PositionEntity ent,x,y,z
RotateEntity ent,0,yaw,0
End Function
посмотри внимательно. ето же совем криво?
Function UnpackMsg(ent,dat$)
xp=Instr(dat$,"|") ;получаем позицию символа "|"
x=Float(Left(dat$,xp)) ;получаем текст до етой позиции и превращаем его в число
dat$=Right(dat$,Len(dat$)-xp);убираем весь текст до етой позиции
zp=Instr(dat$,"|") ;получаем позицию символа "|"
z=Float(Left(dat$,zp)) ;получаем текст до етой позиции и превращаем его в число
;получаем позицию символа "|"
dat$=Right(dat$,Len(dat$)-zp);убираем весь текст до етой позиции
yawp=Instr(dat$,"|") ;получаем позицию символа "|"
yaw=Float(Left(dat$,yawp)) ;получаем текст до етой позиции и превращаем его в число
dat$=Right(dat$,Len(dat$)-yawp);убираем весь текст до етой позиции
y=Float(dat$) ;получаем текст до етой позиции, и превращаем его в число
PositionEntity ent,x,y,z
RotateEntity ent,0,yaw,0
End Function
что то типа такого должно быть