Global stone = LoadImage("h.bmp"); камень
;в функцию CreateStone вторым параметром передаем ссылку на картинку (stone).
Function CreateStone(imax%=0,image)
For i=1 To imax
m.Main=New Main; создаём новый элемент типа, далее следует то, что храним в этом элементе
m\stone=image; используем уже загруженную картинку
m\x=Rnd(100,700); координата х
m\y=Rnd(100,500); координата y
m\life=10; жизнь
Next
End Function