This makes "Snow" fall on your Desktop, (See Pic Below)
Requires BlueGui, and an image of Snow or a SnowFlake, (Maximum Snowflake Size = 50x50), My snowflake Pic is attached to the post below, (50x50 bmp)
Its actually about 23 lines of code, but if you remove all the rems and spaces, then it would be 20
` General Settings
Set Window On : StartBlue "",""
Desktop = CreateGadgetFromWindow(DesktopWindow())
Dim Snow(0)
Do : GetEvent
If Rnd(50) = 0 Then GoSub AddSnow
` Update Snow
For n = 0 to Array Count(snow())-1
If Snow(n) > 0 : PositionGadget Snow(n),GadgetX(Snow(n)),gadgety(Snow(n))+1
If GadgetY(Snow(n)) > gadgetHeight(Desktop)+50 Then Snow(n) = DeleteGadget(Snow(n))
EndIf : Next n : Loop
AddSnow: For n = 0 to Array Count(snow())-1
If Snow(n) = 0
AddSnow2: g = CreatePanel(Rnd(GadgetWidth(Desktop)+50),-50,50,50,Desktop)
Setgadgetshape g,"Snow.bmp"
Setpanelimage g,"Snow.bmp"
Snow(n) = g
Return
EndIf : next n
Add To Stack snow()
Inc n,1
Goto AddSnow2
you could if you wanted change the picture to anythink, falling sheep or cows maybe
, but just remember black is transparant.
Let me know what you think
Everyone Be Cool, You, Be Cool.
