[Edmundosik]

Когда я пытаюсь сохранить тип блока у меня выскакивает ошибка "Stream does not exist"

Вот код

Type block
    Field x,y
    Field img
    Field id
    Field isclick
End Type

Type savetmp
    Field idget
    Field idnum
End Type

Graphics 800,600,32,2
SetBuffer BackBuffer()

Global rcube
Global generate

DrawCubes()

While Not (KeyHit(1))
    Flip
Wend
End

Function DrawCubes()
    generate = 0
    tmp.savetmp = New savetmp
    tmp\idnum = 0
    tmp\idget = 0
    For i = 1 To 9
        SeedRnd MilliSecs()
        For a = 1 To 9
            cubetmp = OpenFile("data\cubedata\cubetmp.dat")
            rcube = Rand(1,3)
            If rcube = 1 Then
                b.block = New block
                b\img = LoadImage("data\gfx\cube_1.jpg")
                tmp\idnum = tmp\idnum+1
                tmp\idget = rcube
                WriteInt(cubetmp,tmp\idget)
            EndIf
            If rcube = 2 Then
                b.block = New block
                b\img = LoadImage("data\gfx\cube_2.jpg")
                tmp\idnum = tmp\idnum+1
                tmp\idget = rcube
                WriteInt(cubetmp,tmp\idget)
            EndIf
            If rcube = 3 Then
                b.block = New block
                b\img = LoadImage("data\gfx\cube_3.jpg")
                tmp\idnum = tmp\idnum+1
                tmp\idget = rcube
                WriteInt(cubetmp,tmp\idget)
            EndIf
            
            DrawBlock b\img,a*60,i*60
        Next
    Next
    DebugLog "Cubes Generated"
    generate = 1
    CloseFile sav
End Function 


Забыл заменить путь файла.