У меня вот что написано
Function SaveLevel(name$)
File=WriteFile(name$+".txt")
For S.vcube=Each vcube
WriteString(File,S\t1)
WriteString(File,S\t2)
WriteString(File,S\t3)
WriteString(File,S\t4)
WriteString(File,S\t5)
WriteString(File,S\t6)
WriteInt(File,S\x)
WriteInt(File,S\y)
WriteInt(File,S\z)
WriteInt(File,S\sx)
WriteInt(File,S\sy)
WriteInt(File,S\sz)
WriteInt(File,S\rx)
WriteInt(File,S\ry)
WriteInt(File,S\rz)
Next
CloseFile(File)
End Function
и это в редакторе сохр левела
А это в игре при загрузке
Function LoadLevel(name$)
Delete Each cb
file=ReadFile(name$+".txt")
While Not Eof(file)
tt1=ReadString(file)
tt2=ReadString(file)
tt3=ReadString(file)
tt4=ReadString(file)
tt5=ReadString(file)
tt6=ReadString(file)
tx=ReadInt(file)
ty=ReadInt(file)
tz=ReadInt(file)
tsx=ReadInt(file)
tsy=ReadInt(file)
tsz=ReadInt(file)
trx=ReadInt(file)
try=ReadInt(file)
trz=ReadInt(file)
vcube_create(tt1,tt2,tt3,tt4,tt5,tt6,tx,ty,tz,tsx,tsy,tsz,trx,try,trz)
Wend
CloseFile(file)
End Function
А в редакторе при создании куба такой код
createvcube("pack\standart\GG01.jpg","pack\standart\GG01.jpg","pack\standart\GG01.jpg","pack\standart\GG01.jpg","pack\standart\GG01.jpg","pack\standart\GG01.jpg",xx,yy,zz,10,5,10,0,0,0)