Ответ: Как сделать такую игру
Когда я пытаюсь сохранить тип блока у меня выскакивает ошибка "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
Забыл заменить путь файла.
Последний раз редактировалось Edmundosik, 18.02.2018 в 22:39.
Причина: Решил проблему
|