Нет, мне не это надо. Когда карта генерируется, камни появляются в друг друге.
И можете подсказать что тут нет так?
Function DrawInventory()
For c.Inventory=Each Inventory
DrawImage c\image,c\x,100
Next
End Function
Function CreateInventory()
For a1=1 To 4
c.Inventory=New Inventory
c\x=c\x+72
c\id=1
c\image=LoadImage("cell.bmp")
Next
End Function
FPS резко падает до MAV. И ничего не рисуется. Проблема скорее всего в CreateInventory().