forum.boolean.name - облака

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - облака (http://forum.boolean.name/showthread.php?t=14267)

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

Ответ: облака

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

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

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

Ответ: облака

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