облака

[MucT]

Здравствуйте ) подскажите пожалуста как сделать облака ) нужна в общем обычная картинка(несколько) напоминающая облако xD вот как заставить перемещаться её допустим с права на лево незнаю (

[FireOwl]

http://www.videogamesprites.net/Supe...-%20Triple.gif
http://www.xnadevelopment.com/sprites/images/Cloud.png
http://wiki.laptop.org/images/4/44/Cloud_sprite.png

Graphics 800,600,32,2
SetBuffer BackBuffer()

SeedRnd MilliSecs()

image=LoadImage("sprite.png")
MaskImage image,255,15,245

Type Cloud
	Field x,y,speed
End Type

ClsColor 140,180,255
While Not KeyHit(1)
	Cls
	If Rand(1,100)=1 Then AddCloud()
	UpdateClouds(image)
	Flip
Wend

Function AddCloud()
	c.Cloud = New Cloud
	c\x=-163
	c\y=Rand(-10,140)
	c\speed=Rand(1,3)
End Function
Function UpdateClouds(image)
	For c.Cloud=Each Cloud
		c\x=c\x+c\speed
		DrawImage image,c\x,c\y
		If(c\x>800) Then Delete c
	Next
End Function

Случайное количество облаков, взял спрайт по последней ссылке и залил фон розовым. А вообще облака легко нарисовать.

Вот еще интересные:
Одна, вторая.

[MucT]

огромнейшее спасибо!! выручил =)