[Crayzi]

Function UpdateStones()
	For m.Main=Each Main
		DrawImage m\stone, m\x, m\y
	    distance=Sqr((m\x-x)*(m\x-x)+(m\y-y)*(m\y-y))  
		If ImagesCollide (cursor,mx,my,0,m\stone,m\x, m\y,0) And LClick=2
			m\life=m\life-1
			lol=1
		EndIf
	
		If m\life=0 
			FreeImage m\stone
			Delete m
		EndIf 
	Next
		If KeyDown(2) Then 
                a=1
                else
                a=0
                endif
                if a=1 then
		m.Main= New Main
		m\x=MouseX()
		m\y=MouseY()
		m\stone=LoadImage("stone.bmp")
		EndIf		
End Function

А лучше KeyDown(2) замени на KeyHit(2)... если не хочеш случайно камни пачками штамповать...
П.с. вот чуть лучше по моим соображениям, если я правильно понял что ты от функции хочеш ))

Global Images%[10];прозапас чуть больше чем надо...
Images[0]=LoadImage("stone.bmp")

Function UpdateStones()
 	For m.Main=Each Main
		DrawImage Images[0], m\x, m\y
	    distance=Sqr((m\x-x)*(m\x-x)+(m\y-y)*(m\y-y))  
		If ImagesCollide (cursor,mx,my,0,m\stone,m\x, m\y,0) And LClick=2
			m\life=m\life-1
			lol=1
		EndIf
	
		If m\life=0 
			FreeImage m\stone
			Delete m
		EndIf 
	Next
	If KeyHit(2)
		m.Main= New Main
		m\x=MouseX()
		m\y=MouseY()
		m\life=10;Думаю ты чёто забыл))
	EndIf		
End Function