мог ошибиться
filein = ReadFile("level.dat")
;---Считываем символы первой строки
baza_simple_X=-18 ;это для сдвига первого кубика влево от 0,0,0 на 18
;собственно цикл: считал байт, если "1" -> создал кубик и т.д. (49-это код единички)
For y=1 To 17
Symbol$=ReadLine( filein )
For x=1 To 17
;Symbol$=Symbol$+1
w$=Mid$(Symbol$,x,1)
baza_simple_X=baza_simple_X+2
baza_simple_Y=y;тут ещё можешь домножить на коефицент какой-нужно
If w$=1 Then
baza_simple = CreateCube()
PositionEntity baza_simple,baza_simple_X,baza_simple_Y,0
End If
Next
;---Закрываем файл
CloseFile( filein )