My Gift for the Auto IT CoMunnIty

[arcker]

just a simple animation, but to thanx the devs of autoit, for improving this langage, that permits me to have a job

for this year of scripting :

expandcollapse popup

;K2000 animation 2006 By Arcker
;For The AutoIt community
#include <GUIConstants.au3>
;Dim $light[9],$lightvalue[9]
_display_progress("AUTO IT VERSION 3.2.X.X", 1, 0x040000, 0xff0000, -1, 25, 30, 5, 0,3)
GUISetState(@sw_hide)
sleep(100)
_display_progress("And his community", 1, 0x040000, 0xff0000, -1, 10, 30, 5, 2,6)
GUISetState(@sw_hide)
sleep(100)
_display_progress("Wish you a merry christmas ", 1, 0x040000, 0xff0000, -1, 20, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress("and a happy new year ", 1, 0x040FFF, 0xffFF00, -1, 20, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress(" thanx for this year of code addicting ", 1, 0x040FFF, 0xffFF00, -1, 10, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress("  LONG LIFE TO AUTOIT  ", 1, 0x0F0F0F, 0xffFFFF, -1, 150, 40, 15, 1,4)
Func _display_progress($size = 5, $sizevaluefade = 1, $valuefade = 0x110000, $valuemaxcolor = 0xff0000, $croissance = -1, $delay = 50, $itemwidth = 20, $itemspace = 5, $switch = 0,$limit=0)
    Dim $tabsize, $istring = 0
    If IsInt($size) Then
        $size = $size
    Else
        $string = $size
        $size = StringLen($size)
        $istring = 1
    EndIf
    $tabsize = $size - 1
    $middle = Mod($size, 2)
    If $middle = 0 Then Exit
    $middle = $size / 2 - 0.5
    ConsoleWrite("middle = > " & $middle & @CRLF)
    Dim $light[$size], $lightvalue[$size], $currentheight[$size], $currentwidth[$size], $sizevalue[$size]
    ConsoleWrite("value fade => " & $valuefade)
    ;ConsoleWrite(Int($valuemax))
    $widthtoset = $itemwidth + $itemspace
    $width = 10 + $size * $widthtoset
    $height = 25 + $size
    $setheight = $height - $size - 5
    $Form1 = GUICreate("AForm1", $width, $height, -1, -1, $WS_POPUP)
    $totalsize = 20 + $size
    If $croissance = -1 Then
        $valuemax = $totalsize
    Else
        $valuemax = 3
    EndIf
    $widthset = 5
    For $i = 0 To $middle - 1
        $currentwidth[$i] = $widthset
        $light[$i] = GUICtrlCreateLabel("", $widthset, $setheight - $i, $itemwidth, $i + $size)
        GUICtrlSetBkColor(-1, $valuemaxcolor)
        If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
        GUICtrlSetFont(-1, $size * 1.4, 800)
        $widthset += $widthtoset
    Next
    $light[$middle] = GUICtrlCreateLabel("", $widthset, $setheight - $middle, $itemwidth, $middle + $size)
    GUICtrlSetBkColor(-1, $valuemaxcolor)
    If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
    GUICtrlSetFont(-1, $size * 1.4, 800)
    $currentwidth[$middle] = $widthset
    $widthset += $widthtoset
    ;$setheight = 0;$middle - 1
    $k = 0
    ;$scale = $size -29
    $itemheight = $setheight - $middle + 1
    $itemsize = $middle + $size - 1
    For $i = $middle + 1 To $tabsize
        $currentwidth[$i] = $widthset
        $light[$i] = GUICtrlCreateLabel("", $widthset, $itemheight, $itemwidth, $itemsize)
        GUICtrlSetBkColor(-1, $valuemaxcolor)
        If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
        GUICtrlSetFont(-1, $size * 1.4, 800)
        $widthset += $widthtoset
        $itemheight += 1
        $itemsize -= 1
    Next
    GUISetState(@SW_SHOW)
    GUISetBkColor(0x000000)
    AdlibEnable("messageHandler", 50)
    $countlimit=1
    While 1
        If $limit = 0 Then
            ;ContinueLoop
        Else
            If $countlimit = $limit Then ExitLoop
            $countlimit += 1
        EndIf
        For $i = 0 To $tabsize
            $lightvalue[$i] = $valuemaxcolor
            $sizevalue[$i] = $valuemax
            ;$switch = 0
            GUICtrlSetBkColor($light[$i], $valuemax)
            ;pour tous les éléments APRES la lumière "principale"
            If $i <= $tabsize Then
                For $current = $i + 1 To $tabsize
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            If $i > 0 Then
                For $current = $i - 1 To 0 Step - 1
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            Sleep($delay)
        Next
        
        
        For $i = $tabsize To 0 Step - 1
            $lightvalue[$i] = $valuemaxcolor
            $sizevalue[$i] = $valuemax
            GUICtrlSetBkColor($light[$i], $valuemax)
            ;pour tous les éléments APRES la lumière "principale"
            If $i < $tabsize Then
                For $current = $i + 1 To $tabsize
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            If $i > 0 Then
                For $current = $i - 1 To 0 Step - 1
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            Sleep($delay)
        Next
    WEnd
EndFunc   ;==>_display_progress
Func messageHandler()
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
EndFunc   ;==>messageHandler

[Kohr]

Nice gift. Very cool.

Kohr

[theguy0000]

cool

[Thatsgreat2345]

wow dude thats really cool , merry christmas to you too

[malu05]

Hehe.. cool one, nice usage of the K2000 style progress bar.

And merry Christmas to you m8!

[ptrex]

@arcker

great stuff !!

One of the most refreshng things I' ve seen lately

[RazerM]

Good animation and very thoughtful

[FuryCell]

That was awesome. Thanks for sharing.