Snowfall

[Gianni]

it's snowing....

#include <WindowsConstants.au3>
#include <WINAPI.au3>
Local $isnowflakes = 500 ; number of snowflakes
Local $iMinR = 5 ; minimum length of the snowflake's side
Local $iMaxR = 8 ; max length
Local $aSnow[$isnowflakes][5]
Local $AlphaKey = 0xABABAB, $hBackground = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUPWINDOW, $WS_EX_LAYERED + $WS_EX_TOPMOST)
GUISetBkColor($AlphaKey, $hBackground)
_WinAPI_SetLayeredWindowAttributes($hBackground, $AlphaKey, 0, $LWA_COLORKEY)
GUISetState(@SW_SHOW, $hBackground)

For $i = 0 To UBound($aSnow) - 1
    _Randomize($aSnow, $i, $iMinR, $iMaxR)
    $aSnow[$i][3] = GUICtrlCreateLabel("", $aSnow[$i][1], $aSnow[$i][2], $aSnow[$i][0], $aSnow[$i][0])
    GUICtrlSetBkColor(-1, 16777215) ; snow white
Next

While 1
    For $i = 0 To UBound($aSnow) - 1
        $aSnow[$i][2] += $aSnow[$i][4] ; increment y pos
        GUICtrlSetPos($aSnow[$i][3], $aSnow[$i][1], $aSnow[$i][2])
        If $aSnow[$i][2] > @DesktopHeight Then
            _Randomize($aSnow, $i, $iMinR, $iMaxR)
            GUICtrlSetPos($aSnow[$i][3], $aSnow[$i][1], $aSnow[$i][2], $aSnow[$i][0], $aSnow[$i][0])
        EndIf
    Next
WEnd

Func _Randomize(ByRef $aSnow, $i, $iMinR, $iMaxR)
    $aSnow[$i][0] = Random($iMinR, $iMaxR, 0) ; dimension of snow
    $aSnow[$i][1] = Random(0 - $iMaxR, @DesktopWidth + $iMaxR, 0) ; x position
    $aSnow[$i][2] = 0 - $iMaxR ; y position (out of screen at startup)
    $aSnow[$i][4] = Random(0.1, $iMaxR * 3)
EndFunc   ;==>_Randomize

 

[Valuater]

Nice!!

[TheDcoder]

Much smoother and nicer with

$isnowflakes = 20

TD

Edited December 25, 2015 by TheDcoder

[Jos]

Very nice

[Gianni]

WOW, Thank you all for the appreciation,
sometime even a very simple script it's enough to make a funny effect.
Thanks and happy holidays to all

 

[Melba23]

Chimp,

Made my day - thanks a lot.

M23

Edited December 25, 2015 by Melba23
Wrong button - too soon

[aa2zz6]

Whoa! That's pretty neat!

[mLipok]

Very nice, all the more so when I look out the window it is still a lack of snow
Thanks Chimp

mLipok

 

[Lakes]

What others say, good effect from a simple script.