[Nikich]

Спасибо за совет.
Сейчас наработал цикл для того, чтобы камни были вместе. Это не очень удобно так как, когда их много и они далеко друг от друга передвигаться почти невозможно.

For i=1 To imax
		m.Main=New Main
		m\stone=LoadImage("stone.bmp")
		stonex(i)=Int(Rnd(0,1280)/32)
		stoney(i)=Int(Rnd(0,1024)/32)
		If i Mod 2 = 0 Then
		chance=Rnd(3)
		If chance=1 Then
		stonex(i)=stonex(i-1)+1
		stoney(i)=stoney(i-1)+1
		EndIf
		If chance=2 Then
		stonex(i)=stonex(i-1)-1
		stoney(i)=stoney(i-1)-1
		EndIf
		EndIf
		m\x=stonex(i)*32
		m\y=stoney(i)*32
		m\life=10
		
	Next

Но всё равно, большие горы не получаются Может у кого-нибудь есть другие идеи?