[Source]Schneefall

12/07/2013 19:32 BladeTiger12#1

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

Code:

#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: [Only registered and activated users can see links. Click Here To Register...]

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

12/07/2013 19:34 Kuzan'#2

Danke sieht toll aus und passt zu der Jahreszeit :D

12/07/2013 19:54 alpines#3

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

12/08/2013 18:21 lolkop#4

Quote:
Originally Posted by BladeTiger12
Code:
Do
[...]
Until False * Not Sleep(30)

:D

nette script idee =)

12/08/2013 18:49 Skriptum#5

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...

12/08/2013 18:56 BladeTiger12#6

Dann mach dir doch mehr Flocken :D
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.

12/08/2013 19:00 Skriptum#7

Quote:

Originally Posted by BladeTiger12

Dann mach dir doch mehr Flocken :D
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 :D

12/08/2013 19:02 .Leithian�#8

Sieht echt toll aus, besser als jeder Bildschirmschoner. :D

12/08/2013 19:11 butter123#9

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 :D aufw�ndig, aber das w�re geil :D

12/08/2013 19:19 alpines#10

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.

12/08/2013 19:19 BladeTiger12#11

Danke, dachte nicht das es gut ankommt.

12/08/2013 19:49 Logtetsch#12

Ist mal echt was Neues hier.
Schaut super aus!

12/08/2013 22:47 butter123#13

so faszination hat mich gepackt :D
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

12/08/2013 22:54 FacePalmMan#14

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

[Only registered and activated users can see links. Click Here To Register...]

12/09/2013 00:50 MrSm!th#15

#moved