Function DrawInventory()
For cell.Inventory=Each Inventory
DrawImage cell\image,cell\x,920
For i=1 To 5
If cellid(i)=2 Then
DrawImage istone,cell\x+10,930
EndIf
Next
Next
End Function
Function CreateInventory()
For i=1 To 5
cell.Inventory=New Inventory
cell\x=fa
fa=fa+72
cell\id=1
cellid(i)=cell\id
cell\image=LoadImage("cell.bmp")
Next
End Function
Function AddItem(ItemId)
For i=1 To 5
If finish=0 Then
If cellid(i)=1 Then
cellid(i)=ItemId
finish=1
EndIf
EndIf
Next
End Function
Можете сказать, где тут ошибка? Проблема в том, что камень рисуется сразу во всех клеточках
Также, если всё пойдёт гладко, то на этих выходных можно будет доделать игру до демки
Так называемая версия 0.0.1