Вот так работает:
x#=EntityX (a.MatchMan\PiwotPers)
y#=EntityY (a.MatchMan\PiwotPers)
z#=EntityZ (a.MatchMan\PiwotPers)
Text 20,20,"Pers x: "+x#
Text 20,50,"Pers z: "+y#
Text 20,80,"Pers y: "+z#
FlushKeys()
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If KeyDown( 25 )=True Then ;
;
poz1 = OpenFile("gun01.ini") ;
While Not(Eof(poz1)) ;
;
ReadLine$ poz1 ;
Wend ;
;
Typeofpoz$=Input$("name of entity-") ;
;
WriteLine( poz1,Typeofpoz$+"[") ;
WriteLine( poz1, x# ) ;
WriteLine( poz1, y# ) ;
WriteLine( poz1, z# ) ;
WriteLine( poz1,"]") ;
;
CloseFile( poz1 ) ;
;End If ;
End If ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++