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
Случайное количество облаков, взял спрайт по последней ссылке и залил фон розовым. А вообще облака легко нарисовать.
Вот еще интересные:
Одна,
вторая.