Sign in to follow this  
Followers 0
arcker

My Gift for the Auto IT CoMunnIty

8 posts in this topic

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 :

;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

-- Arck System _ Soon -- Ideas make everything

"La critique est facile, l'art est difficile"

Projects :

[list] [*]Au3Service : Run your exe as service V3 / Updated 29/07/2013 Get it Here [/list]

Share this post


Link to post
Share on other sites



cool


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

wow dude thats really cool :P, merry christmas to you too

Share this post


Link to post
Share on other sites

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

And merry Christmas to you m8! :P


[center][u]WoW Machinima Tool[/u] (Tool for Machinima Artists) [/center]

Share this post


Link to post
Share on other sites

Good animation and very thoughtful :P


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0