[Source]Schneefall

[BladeTiger12]

Hallo Epvp community,

hier ist mal eine kleine Source vom Schneefall.
War jetzt nicht wirklich schwer oder ist übelst
geschrieben. Bin auch noch nicht so gut in GDI oder in WinAPI.
Naja hier ist der Code:
(Der Transparente GUI Code gehört nicht mir)

 Spoiler

#NoTrayIcon
#include <WinApi.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global Const $width = @DesktopWidth
Global Const $height = @DesktopHeight
Global $graphics, $backbuffer, $bitmap
Global $ScreenDc, $dc, $tSize, $pSize, $tSource, $pSource, $tBlend, $pBlend, $tPoint, $pPoint, $gdibitmap

Global $Flocken[1][6] = [[0]] ;[index: 0(X) 1(Y) 2(Richtung) 4(Falltime) 5(Width)]
Global $Speed, $FlockenWidth = 5, $FlockenHeight = 5, $Anzahl, $FlockenTimer

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)
$GUI = GUICreate("", $width, $height, 0, 0, 0, $WS_EX_LAYERED + $WS_EX_TOPMOST) ;Window Must be Layered for Transparency
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($GUI)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)

If FileExists(@AppDataDir & "\Flocke.png") = False Then InetGet("http://ntprojects.1x.de/pictures/flocke.png", @AppDataDir & "\Flocke.png")
$FlockenPicture = _GDIPlus_ImageLoadFromFile(@AppDataDir & "\Flocke.png")
;_GDIPlus_GraphicsSetSmoothingMode($backbuffer, 2)
; == For transparency ==
$ScreenDc = _WinAPI_GetDC($GUI)
$gdibitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($bitmap)
$dc = _WinAPI_CreateCompatibleDC($ScreenDc)
_WinAPI_SelectObject($dc, $gdibitmap)
; == _WinAPI_UpdateLayeredWindow parameters ==
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $width)
DllStructSetData($tSize, "Y", $height)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
Global $alpha = 200
Global $alpha_steps = 5
DllStructSetData($tBlend, "Alpha", $alpha)
DllStructSetData($tBlend, "Format", 1)
$tPoint = DllStructCreate($tagPOINT)
$pPoint = DllStructGetPtr($tPoint)
DllStructSetData($tPoint, "X", 0)
DllStructSetData($tPoint, "Y", 0)
;===============================================
GUISetState()
WinSetOnTop($GUI, "", 1)

Flocken(1, 150, 15, 17, 17)

Do
    _GDIPlus_GraphicsClear($backbuffer, 0x00000000)

    Flocken(55, 55, 55, 55, 55, 2)

    $gdibitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($bitmap)
    _WinAPI_SelectObject($dc, $gdibitmap)
    _WinAPI_UpdateLayeredWindow($GUI, $ScreenDc, 0, $pSize, $dc, $pSource, 0, $pBlend, 2)
    _WinAPI_DeleteObject($gdibitmap)
Until False * Not Sleep(30)

Func Flocken($FSpeed, $FAnzahl, $Timer = 10, $W = 15, $H = 15, $Case = 0, $Place = 555)
    If $Case = 0 Then
        $Speed = $FSpeed
        $Anzahl = $FAnzahl
        $FlockenWidth = $W
        $FlockenHeight = $H
        $FlockenTimer = $Timer
        ReDim $Flocken[$Anzahl][UBound($Flocken, 2)]
        For $i = 0 To $Anzahl - 1
            $Flocken[$i][0] = Random(0, $width, 1)
            $Flocken[$i][1] = Random(0, $height, 1)
            $Flocken[$i][2] = Random(1, 2, 1)
            $Flocken[$i][3] = 0
            $Flocken[$i][4] = Random(10, 17, 1)
        Next
    ElseIf $Case = 1 Then
        $Flocken[$Place][0] = Random(0, $width, 1)
        $Flocken[$Place][1] = Random(0, 0, 1)
        $Flocken[$Place][2] = Random(1, 2, 1)
        $Flocken[$Place][3] = 0
        $Flocken[$Place][4] = Random(10, 17, 1)
    ElseIf $Case = 2 Then
        For $i = 0 To $Anzahl - 1

        If $Flocken[$i][0] < 0 Or $Flocken[$i][0] > $width - $Flocken[$i][4] Or $Flocken[$i][1] < 0 Or $Flocken[$i][1] > $height - $Flocken[$i][4] Then
            Flocken(55, 55, 55, 55, 55, 1, $i)
        EndIf

        If $Flocken[$i][2] = 1 Then
            $Flocken[$i][0] -= Random(0, 2, 1); Links
            $Flocken[$i][1] += Random(0, 2, 1); Runter
            If $Flocken[$i][3] = $FlockenTimer Then
                $Flocken[$i][3] = 0
                $Flocken[$i][2] = 2
            Else
                $Flocken[$i][3] += 1
            EndIf
        ElseIf $Flocken[$i][2] = 2 Then
            $Flocken[$i][0] += Random(0, 2, 1); Rechts
            $Flocken[$i][1] += Random(0, 2, 1);Runter
            If $Flocken[$i][3] = $FlockenTimer Then
                $Flocken[$i][3] = 0
                $Flocken[$i][2] = 1
            Else
                $Flocken[$i][3] += 1
            EndIf
        EndIf

        _GDIPlus_GraphicsDrawImageRect($backbuffer, $FlockenPicture, $Flocken[$i][0], $Flocken[$i][1], $Flocken[$i][4], $Flocken[$i][4])
    Next
    EndIf
EndFunc   ;==>Flocken

Func Close()
    ; Clean up
    _WinAPI_DeleteDC($dc)
    _WinAPI_ReleaseDC($GUI, $ScreenDc)
    _GDIPlus_GraphicsDispose($backbuffer)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_Shutdown()
    WinClose($GUI)
    Exit
EndFunc   ;==>Close

Virustotal:

Die Viren von VT kommen vom Compiler und glaube ich vom GDI+/WinApi.
Bin mir da nicht so sicher.

Die Flocken.rar ist im Anhang

[Kuzan']

Danke sieht toll aus und passt zu der Jahreszeit

[alpines]

Hmm, von mir aus okay in der Section aber gehört das nicht in den Thread mit den kleineren Releases im Coders Den?

[lolkop]

Originally Posted by BladeTiger12

Do
[...]
Until False * Not Sleep(30)

nette script idee =)

[Skriptum]

Sieht super aus!
Aber als ich das Programm öfter gestartet habe, weil ich einen Schneesturm haben wollte, machte mein Computer nach 12 gestarteten Programm langsam schlapp
Schade, es sah so schön aus...

[BladeTiger12]

Dann mach dir doch mehr Flocken
Die Source steht oben wenn du über der Do-Schleife schaust
steht da Flocken(.., 150)
Die 150 steht für die Flockenanzahl.
Erhöh die einfach dann haste massenhaft Flocken und ist schneller als 12 Programme.

[Skriptum]

Originally Posted by BladeTiger12

Dann mach dir doch mehr Flocken
Die Source steht oben wenn du über der Do-Schleife schaust
steht da Flocken(.., 150)
Die 150 steht für die Flockenanzahl.
Erhöh die einfach dann haste massenhaft Flocken und ist schneller als 12 Programme.

Wie das geht ist mir schon klar ^^
Ich programmiere selber schon einige Jahre.
Ich habe aber immoment keine IDEs installiert, weil ich mein Windows neugemacht habe. Aber ich werde es demnächst mal aus Spaß in C++ oder Delphi nachbauen

Trotzdem Danke

[.Leithian™]

Sieht echt toll aus, besser als jeder Bildschirmschoner.

[butter123]

wow wirklich schön
ich finde, sie bewegen sich nur etwas zu zackig, vllt zu viele richtungsänderungen?

wow jetzt hab ich lust bekommen auch sowas zu machen, mit nem mauszeiger, der wind verursacht aufwändig, aber das wäre geil

[alpines]

Eine nette Idee wäre es ja noch Wind einzubauen den man mit der Maus zeichnen kann, das ist sicherlich extrem viel und aus dem Rahmen aber dann würde das realistischer und vorallem schöner aussehen.
Ich hab es mir nicht komplett angeschaut aber man könnte sicherlich das so machen (wenn es nicht drinne sein sollte), dass die Flocken auf dem Boden liegen bleiben und sich stacken.

[BladeTiger12]

Danke, dachte nicht das es gut ankommt.

[Logtetsch]

Ist mal echt was Neues hier.
Schaut super aus!

[butter123]

so faszination hat mich gepackt
hab mal quick 'n dirty ne gui mit flocken gefüllt, dabei aber mehr auf flockenbewegung geachtet. bis 60 flocken gehts bei mir, danach nicht mehr^^

 Spoiler

flocke.bmp muss vorher noch im skriptordner gespeichert werden

PHP Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$iFlocken = 60
Dim $aCoords[$iFlocken][2],$aSpeed[$iFlocken][2],$aFlocken[$iFlocken],$aWind[2]
$tTotalTime = TimerInit()
$aWind[0] = 20
$aWind[1] = 0
$tLastmove = TimerInit()


$Form1 = GUICreate("Form1", 1026, 768, 192, 124)
For $i = 0 to $iFlocken-1
    $iRand = Random(25,35)
    $aFlocken[$i] = GUICtrlCreatePic("flocke.bmp",110,110,$iRand,$iRand)
    $aCoords[$i][0] = Random(0,1000)
    $aCoords[$i][1] = Random(0,700)
    $aSpeed[$i][0] = Random(-10,10)
    $aSpeed[$i][1] = Random(0,20)
Next
GUISetBkColor(0xFFFFFF)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


    EndSwitch

    If TimerDiff($tLastmove) > 18 Then
        _move()
        _GuiUpdate()
    EndIf



WEnd


Func _move()

    $iHorzMaxSpeed = 80
    $iUpMaxSpeed = 8
    $iDownMaxSpeed = 60
    $iHorzChange = 10
    $iVertChange = 10

    $iHorzMaxWind = 20
    $iVertMaxWind = 15
    $iHorzWindChange = 5
    $iVertWindChange = 2




    $aWind[0] += Random(-$iHorzWindChange,$iHorzWindChange)
    $aWind[1] += Random(-$iVertWindChange,$iVertWindChange)
    Local $diff =$iHorzMaxWind- Abs($aWind[0])
    If $diff <0 Then $aWind[0]+=Sign($aWind[0])*$diff
    $diff =$iVertMaxWind- Abs($aWind[1])
    If $diff <0 Then $aWind[1]+=Sign($aWind[1])*$diff
    $aWind[0] += Sin(TimerDiff($tTotalTime)/3000*3.14)*30



    For $i = 0 to $iFlocken-1 ;bewegungsgeschwindigkeit verändern
        $aSpeed[$i][0] += Random(-$iHorzChange,$iHorzChange)
        $aSpeed[$i][1] += Random(-$iVertChange,$iVertChange)
        $diff =$iHorzMaxSpeed- Abs($aSpeed[$i][0])
        If $diff < 0 Then $aSpeed[$i][0] += Sign($aSpeed[$i][0])*$diff
        $diff =$iDownMaxSpeed - $aSpeed[$i][1]
        If $diff > $iDownMaxSpeed + $iUpMaxSpeed Then $aSpeed[$i][1] = $iUpMaxSpeed
        If $diff < 0 Then $aSpeed[$i][1] += Sign($aSpeed[$i][1])*$diff
    Next


    For $i = 0 to $iFlocken-1 ;koordinaten setzen
        $aCoords[$i][0] += TimerDiff($tLastmove)*($aSpeed[$i][0]+  $aWind[0])/1000
        $aCoords[$i][1] += TimerDiff($tLastmove)*($aSpeed[$i][1]+ $aWind[1]+10)/1000

        ;wenn aus der einen seite raus, dann auf der anderen wieder rein
        If $aCoords[$i][1] > 768 then $aCoords[$i][1] = -10
        If $aCoords[$i][0] > 1046 then $aCoords[$i][0] = -80
        If $aCoords[$i][0] < -100  then $aCoords[$i][0] = 1026
    Next
EndFunc

Func _GuiUpdate()
    For $i = 0 to $iFlocken-1
        GUICtrlSetPos($aFlocken[$i],$aCoords[$i][0],$aCoords[$i][1])
    Next
    $bChanged = False
    $tLastmove = TimerInit()
EndFunc



Func Sign($iInt)
    If $iInt >=0 then
        Return 1
    Else
        Return -1
    EndIf
EndFunc 


[FacePalmMan]

einfach einzigartig! hebt bei mir richtig die stimmung! hast echt ein lob verdient. hier hast n keks.

[MrSm!th]

#moved