так делаю, или нет, неполуается, чет тупняки:
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 = ReadFile("gun01.ini")
While Not(Eof(poz1))
ReadLine$ poz1
Wend
;
Typeofpoz$=Input$("name of entity-") ;
;FilesName$=Input$("name of File-") ;
;poz1 = WriteFile(FilesName$ +".ini") ;
;
WriteLine( poz1,Typeofpoz$+"[") ;
WriteLine( poz1, x# ) ;
WriteLine( poz1, y# ) ;
WriteLine( poz1, z# ) ;
WriteLine( poz1,"]") ;
;
CloseFile( poz1 ) ;
;
End If ;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++