OscarGraphics

#cs  Controls von Oscar, von mir in einem Objekt gewrapped

GUICtrlBatterieLevel
    Die von mir veränderten PNGs (unten als Binärdaten) stammen von "Double-J Design" (http://www.doublejdesign.co.uk/)
    Die PNGs stehen unter der "CC Attribution 4.0-License" (http://creativecommons.org/licenses/by/4.0/deed.de)

GUICtrlLightBulb
    Die von mir veränderten PNGs (unten als Binärdaten) stammen von "Artbees" (http://artbees.deviantart.com)
    Die PNGs wurden als Freeware veröffentlicht

GUICtrlTrafficLight
    Die von mir veränderten PNGs (unten als Binärdaten) stammen von "Saki" (http://sa-ki.deviantart.com)
    Die PNGs stehen unter der "GNU General Public License" (http://en.wikipedia.org/wiki/GNU_General_Public_License)

#ce

#include-once
#include "AutoitObject.au3"
#include <GDIPlus.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <WinAPIConstants.au3>

Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
OnAutoItExitRegister ("_OnExit")
_AutoItObject_StartUp()

Global Enum $LB_OFF, $LB_ON
Global Enum $TL_OFF, $TL_RED, $TL_YELLOWRED, $TL_YELLOW, $TL_GREEN

OnAutoItExitRegister('_GUICtrlBatterieLevel_Dispose')
OnAutoItExitRegister('_GUICtrlLightBulb_Dispose')
OnAutoItExitRegister('_GUICtrlTrafficLight_Dispose')


_GDIPlus_Startup()

Global $__g_ahBatterieLevelPNG[4]
For $i = 0 To 3
    $__g_ahBatterieLevelPNG[$i] = _GDIPlus_BitmapCreateFromMemory(Call('_GUICtrlBatterieLevel' & $i + 1))
Next

Global $__g_ahLightBulbPNG[2]
$__g_ahLightBulbPNG[0] = _GDIPlus_BitmapCreateFromMemory(_GUICtrlLightBulb1())
$__g_ahLightBulbPNG[1] = _GDIPlus_BitmapCreateFromMemory(_GUICtrlLightBulb2())

Global $__g_ahTrafficLightPNG[5]
For $i = 0 To 4
    $__g_ahTrafficLightPNG[$i] = _GDIPlus_BitmapCreateFromMemory(Call('_GUICtrlTrafficLight' & $i + 1))
Next


Func _OscarCtrl()
    Local $oClass = _AutoItObject_Class()
    ; GUICtrlBatterieLevel
    $oClass.AddMethod('BatterieLevel_Create', '_GUICtrlBatterieLevel_Create')
    $oClass.AddMethod('BatterieLevel_SetData', '_GUICtrlBatterieLevel_SetData')
    ; GUICtrlLightBulb
    $oClass.AddMethod('LightBulb_Create', '_GUICtrlLightBulb_Create')
    $oClass.AddMethod('LightBulb_SetData', '_GUICtrlLightBulb_SetData')
    ; GUICtrlTrafficLight
    $oClass.AddMethod('TrafficLight_Create', '_GUICtrlTrafficLight_Create')
    $oClass.AddMethod('TrafficLight_SetData', '_GUICtrlTrafficLight_SetData')
    Return $oClass.Object
EndFunc

; ==================================================================================================

Func _GUICtrlBatterieLevel_Dispose()
    For $i = 0 To 3
        _GDIPlus_BitmapDispose($__g_ahBatterieLevelPNG[$i])
    Next
    _GDIPlus_Shutdown()
EndFunc   ;==>_GUICtrlBatterieLevel_Dispose

Func _GUICtrlBatterieLevel_Create($self, $iLeft, $iTop, $iPercent = 0)
    Local $idBatterieLevel = GUICtrlCreatePic('', $iLeft, $iTop, 72, 121)
    _GUICtrlBatterieLevel_SetData(0, $idBatterieLevel, $iPercent)
    Return $idBatterieLevel
EndFunc   ;==>_GUICtrlBatterieLevel_Create

Func _GUICtrlBatterieLevel_SetData($self, $idBatterieLevel, $iPercent)
    If $iPercent < 0 Then $iPercent = 0
    If $iPercent > 100 Then $iPercent = 100
    Local $hBitmap = _GDIPlus_BitmapCreateFromScan0(72, 121) ; Eine Bitmap erstellen
    Local $hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) ; Graphic-Context der Bitmap holen
    _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $__g_ahBatterieLevelPNG[2], 0, 0, 72, 17) ; oberer Teil der Batterie
    For $i = 1 To 100
        _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $__g_ahBatterieLevelPNG[($iPercent > 100 - $i ? 1 : 0)], 0, 16 + $i, 72, 1)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $__g_ahBatterieLevelPNG[3], 0, 117, 72, 4) ; unterer Teil der Batterie
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF) ; Farbe (ARGB) der Prozentzahl
    Local $hFormat = _GDIPlus_StringFormatCreate()
    Local $hFamily = _GDIPlus_FontFamilyCreate('Verdana') ; Schriftart
    Local $hFont = _GDIPlus_FontCreate($hFamily, 12) ; Schriftgröße
    Local $tLayout = _GDIPlus_RectFCreate(40 - StringLen($iPercent) * 10, 98, 56, 20) ; Left, Top, Width, Height
    _GDIPlus_GraphicsDrawStringEx($hGfxCtxt, $iPercent & '%', $hFont, $tLayout, $hFormat, $hBrush) ; Prozentzahl anzeigen
    Local $hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
    _WinAPI_DeleteObject(GUICtrlSendMsg($idBatterieLevel, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
    ; und noch aufräumen
    $tLayout = 0
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BrushDispose($hBrush)
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_GraphicsDispose($hGfxCtxt)
    _GDIPlus_BitmapDispose($hBitmap)
EndFunc   ;==>_GUICtrlBatterieLevel_SetData

; Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20
; Danke an UEZ (www.autoit.de)

Func _GUICtrlBatterieLevel1($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $batt1
    $batt1 &= 'iVBORw0KGgoAAAANSUhEUgAAAEgAAAABCAYAAAB9uujjAAAAjklEQVR42o3Q2Q6DIBCF4R8Bd9v3f05ZxAUKWk0vO8mXkzPJ3IwAEn+OEOK3Ueq9K3mrqurJi0TKKpMXpVCZVhqlNXWm65o6a5qGtm0fXdfT9z3DMDCMI2M2TROv15tt2zDzjDGFwViDsxbrHD5zzrMsHu89YVkIIRDWwLqup3K/F/vOcRxfkZQiMabzNR+buUoBUjPH/wAAAABJRU5ErkJggg=='
    Local Const $bString = Binary(_WinAPI_Base64Decode($batt1))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\batt0.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlBatterieLevel1

Func _GUICtrlBatterieLevel2($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $batt2
    $batt2 &= 'iVBORw0KGgoAAAANSUhEUgAAAEgAAAABCAYAAAB9uujjAAAAf0lEQVR42p2QQQ4DIQhFv6A9RtPdXNPjdjEHaER0voyLdluIeXwg/MQEYNZacT7fWJFLCapKMMlN0YTv+FX/xeAr8oDymtBPkcPv1plkHdTwE8nB1RNm3rqPzltMH/BdN7dwcO/w1RkedDNMTswb9dx6wMi10T7sc/d1Hlj/cgEd2TwBQjr1ZgAAAABJRU5ErkJggg=='
    Local Const $bString = Binary(_WinAPI_Base64Decode($batt2))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\batt1.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlBatterieLevel2

Func _GUICtrlBatterieLevel3($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $batt3
    $batt3 &= 'iVBORw0KGgoAAAANSUhEUgAAAEgAAAARCAYAAAB+bOp4AAACU0lEQVR42u2Wy27TQBSG/7nYzq1p1lmFZyn7dsFrgBqVFDatSrkTKeJBWLRPADxJs8k6F6eJb/FwzsRJDGWDhKuCPNKvM+fMyOP5xueMBe6hPX12fKgd/Zm6HSUVhBCQUkKQtFZQSsHRDlzPRaVSQb1WQ6PRQLPZRBAEmM9vSXMsl0ssSHEUDYMwPP74/u110e8u7gMOmSsCZP2/BIjiIQzM0acP7wqFVDig7snzGzKdxwcH2N9vQgpJqzIgYZdnUJJ8hiRJDMxxCJbjwiNgSbJCREBCUpIkiOMI0+kMX799h0nN8M3ri0f/OiDDtiBAIECF7qFwQCe9FxZQtVq1vuu6NsUYAkPSlFoMxXU9VDxStYJGndNrD61Wy6bVbOZjMpngdrGA7/uIwgj+3EdKgC4vzkpA/zWg3ulLC6hWr2WAvBwgLtI6SyvXAmKQXKA5HRkQF2lOqfF4bAv0dDq1gCZkTZri8tV5CeghAOKr+Au9sLbFkl5cKQ3FV7Dtq58kZdbX+Tht9Jd56zn6TsyxsVxcKwtq8xyldr7errObz2P1xt66eBNALuBRFFqf4W36QRhkfn48pHhofxXCiG28HefncDyO48QY84R0zYAO6USvBoPBH7MVubMTmbO2uzH2d5K27mz+gzYSm0OwfgYsOyC22nEsFP7q1jccWapl/AVFccwb2iph0W231SrBim7CFdsV25Rq185yHTOG+ylZY8Wt2+1y/4i3cdPr9TrtdrsElAM0Go3Q7/eHvA1DgFAC+i0glIBKQCWgEtCDAFS2u40B/QCO0zJnYjM+XwAAAABJRU5ErkJggg=='
    Local Const $bString = Binary(_WinAPI_Base64Decode($batt3))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\batt2.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlBatterieLevel3

Func _GUICtrlBatterieLevel4($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $batt4
    $batt4 &= 'iVBORw0KGgoAAAANSUhEUgAAAEgAAAAECAYAAAAtd3lQAAAAuklEQVR42u1SMQ7CMAy8OCnPQGx8hIUdsdBfMCNVYuYXsCB2Fh7E0AegJk6x3SJgQmKBoWdF53MsOzrFAWirqkI9vkIRisLYezJ21DF5h1e8q++Q5RQ0gpdpJPs8gu3rdBCW3NjbPqJgrDWSCL1OOcksCc7gPm842gbmBNZKZmOOEa3cRG5Et73OiMLa0dykLr2Tegr1xQ0GfTBouVmsjtvTXsWAJ9SP+XpW2kd4mPTrR/0T1Jzz7nK4A/7AiF4c8R+fAAAAAElFTkSuQmCC'
    Local Const $bString = Binary(_WinAPI_Base64Decode($batt4))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\batt3.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlBatterieLevel4

; ==================================================================================================

Func _GUICtrlLightBulb_Create($self, $iLeft, $iTop, $fSwitch = False)
    Local $idLightBulb = GUICtrlCreatePic('', $iLeft, $iTop, 74, 128)
    _GUICtrlLightBulb_SetData(0, $idLightBulb, $fSwitch)
    Return $idLightBulb
EndFunc

Func _GUICtrlLightBulb_SetData($self, $idLightBulb, $fSwitch)
    $fSwitch = Number($fSwitch = True)
    Local $hBitmap = _GDIPlus_BitmapCreateFromScan0(74, 128) ; Eine Bitmap erstellen
    Local $hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) ; Graphic-Context der Bitmap holen
    _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $__g_ahLightBulbPNG[$fSwitch], 0, 0, 74, 128)
    _WinAPI_DeleteObject(GUICtrlSendMsg($idLightBulb, $STM_SETIMAGE, $IMAGE_BITMAP, -1)) ; den alten Inhalt des Pic-Control löschen
    Local $hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
    _WinAPI_DeleteObject(GUICtrlSendMsg($idLightBulb, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_GraphicsDispose($hGfxCtxt)
    _GDIPlus_BitmapDispose($hBitmap)
EndFunc

Func _GUICtrlLightBulb_Dispose()
    _GDIPlus_BitmapDispose($__g_ahLightBulbPNG[0])
    _GDIPlus_BitmapDispose($__g_ahLightBulbPNG[1])
    _GDIPlus_Shutdown()
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20

Func _GUICtrlLightBulb1($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $Bulb1
    $Bulb1 &= 'iVBORw0KGgoAAAANSUhEUgAAAEoAAACACAYAAACso/+jAAAzwElEQVR42tV9CZRdVZnuGe5Qc1UqVZmHqpDBIBCg1UalQZAlKiq0ItDYYIOMAQk811Jbn8vWlvUUB6ADeaDIA1zQLpqpoYk+AekEAigQeAyBEAgJqSSV1DzXHc/7vv/8/6ldJdAZIX1W7XVunXvOvXt/9/vHPfne+3SsWrUqHQTBgnQ6vQRlcblcPsj3/fm9vb0VKEM4+lB24Hob7tvAgsfWXXTRRb3vR3399+qLnnnmmWwURUehfKJUKh1TLBY/lMvlqvBWCIAiAMK6RLjuDQ8Pe3jPw71ePp+Xgvf5MQWc3wCwz4RhuDqTyaw666yzXv9vD9RLL71UidMJKF8GACeCIZMLhYLPRuPsASABQ0GQ//narts1AkUACSjPvAdg83OKYNr6ysqqe7PZzD0A74VPf/rT0X8boJ577rmF1dXV56GxZ4AdM9nQ0dFRNm7cfWhkAooLGhos74M5Ea8THDKM7/E1iz1jB+4laM/h2V/h37tOOOGE/gMWqKeffvpQVPYf0YCTAU7WbRDPBAbFR4kIBq7J9/N9vsfD7iN7eI+9Z0CbSKJE9joBDFwKQnl2O0Bdge//JRjWfcAA9dRTT83EL/pDNOYMNCZrzGADs9ms5zY4lUp5BpRPNHAvX9t7POxZHiai+FxiI/+zUL7yAIrg8Q1e4+tYNEt4JvDxedvx/09QbvrCF76Qe9+AWr16dYgGXYDyA1SmkQ0CYPqLl6MgCA0YAYMFCtgFTBqn7wvT+JpMI4b8PAPG9JcCY6AAIAFGgMoX8l6pWPKLBVwvCnC+sm8tXi/70pe+9Kf3HKjHHntsFhr3S9D/U2hAxIZXVFT4YSoVBbGoSUN5nQBNPANQX8UvUeAEiUATJX6msYSHgkPrmABFWhEQU/IURVX8Ec4+GB6p8fBxfw7Xf4zXV5155pmF9wSoRx999BM43Yoyg5Vm48GUKGYT7H0KooTKK3N8XqcIEgADiocxTSoywdIZgMYggsHXvKbXI7vfQCRIovQpongNKyu6TVnp4z1W4f/i+XPgVnTuV6Aeeuihs4MwvB4PVtAqTRAtVp76h2yJVNQEKNNJxhqzeHbNFLKxxgAwBhko+n9kusmA5VHEtdGRkUitrJ29kZERnwzLxTqNDHsN5eRzzjln434BauXKlcvwxFWpMOVT11RWVgo4WlmCFrlM4T0Ux7cDxu4j4+x/Nf+RiaJdU+ASsdPryXcRNBVRiqBPBgGUiCDx3NfXZ1YzUHEOANxWfNZJ559//iv7FKj77rvv66j8z8gWihlFiWcyiiCxko5FEzYRJIDpmz5ShZ2whQeBUlETlqABkboIvq9oKViRiZg+HzmiKs8SBBNX8+hZuru7I4gh7wnIKAWMLGvDZ3wKYdEb+wSoO++88ww08mY0KkVwWDEFi2dWtCxAASB/jE0CEsEyS0egCCaVqzUybqdYNLKhzEYq66QYEAYYgUIjIwPO9BmVuektc0pZCNTwyLDX1dlFv0sUO66TUWRegP9fwTPHL1269F39rf8SqDvuuONDqMwfwIoaNLpMvUTGaMP5fzkkiyB2FD0TO9wbAEgCJaCxKON8ZYjv6h42kkCpXxWwEAT7LtVXkQJQNhF1raHpNnEVNOxhIXsGBwcpgr6BhTPBIlAEbCW+68uXXnppcY+A+s1vfjMJH7AGDZxPBqGU0fiyVpznUsywACCFtHpyD0pQVVUVqCKXokDZ9/nacN+UM84lNh6fSZBC9eJdr10QJUjQN2XVS5GJmiuefB0zxsAq4XXRHwGzBKzRnJ/L54RRFEPqNdz/rcsvv/yaPQLqlltu+TUad5aKWJm/rjKKHOf/Zbwv4GnIUQaDeE8IsSNQ48BSoIxJvhbBCRUuqpgx/cLDNzYZSKqaSmBDmRaMzPE04+C6EgQsDxYVY8XtG6sIDC0g4s+Ayp1nVewEahTPHn3FFVe8tFtA3XzzzSei'
    $Bulb1 &= 'kvehgWSHiBwrRZDIJOolgFAiiHhPgOM1WjiKHXUTRc+AImg8475AxS5QoNiYggIfGlDmmdM4GEiUUAIVe+SxeKnIun6XWD7VWZ6+TgpFjgARHD0TNPkfz6/Cd54IZkW7BNSvf/3rLE7PgAELKVoEyo8dyBKBwmueBSgAUiJQ/F/FUXQVdZMqcgGKih3XE5DQCDpd4m1S7FgXPJtBETOoBi9hFL+TksfvUM87AWqCVSQgkcskfR2o6xDAAho4cuY1nH0NeU4DUP++S0DddNNNS1HBa6ioTexYWaYyWFhZgoTC1AavlSiCeC3iqZ66MMsYRnZZQ2jUFLBEFHEtVKDIqsCQUkYRKLKuGONaNtOfiB3vMX/KQh+CRHAMKALCQoAAVsizKXWzhLj3ZXzXXy1btix6V6B+9atfVeD0Kho4neJG/UMQSHuAUCSj8D+LgMYzf2mCSkDBvhSeoScRqLgRpMCCXUfXkAk8IgeYQNkkYHlx9pNM4315Ms+cJ7LGXAI3BtQY0VfXgAwSBqvfFBpYACiEvgr1daC+lbAOn3EKgFr5rkD98pe/PBdg3KDOpJh/cQEAkuomA6hANqHwLCJYXV0d1NTUZPE6HcZHQMBQQvWJEr1EZjBQ5RmfmVV/iOJVViSFUFr4T1GfMSuZiJxaveSsANLqAZyCOZgsoRayJyRYZJMyKuQzdB/w+iGI3+feEagbbriB/z8DkA6hyBEotWzCIJ6Z+sF7ZFaelSdgBI4+Vn19fQZgVZBRqpAFJAKmbLGG81dj/nuUcTJurVK2lbVQvEvlWKYil4GJ6YtZFJmTqQAlohjrJugk6qV8IRTRAziIBwUsghOfcym4DgKW47HzOxdedtllb70tUCtWrPhrVPwxKF4ROYKkhcAIULiNwBAsAlXAdQEKIudPmjSpEmfgnEnAUUsWOiAF2laa4yKuV5NRTqbSgJEfhSKneonXyyp6xqjIRE8VuGdAqcMZxMwqmMiFcBlSAC9U5Z4is/ia7OKZupMKvlQu/eOyy5b97G2BWr58+TVo5FJaObLJGEURI6MIFhqTJzj4384FAFusq6vLoBCokOJGcBQkea0Ahaq8KUajKGmUar3u5sCFQCgM/HIKWqLWFKiyC5QLljFK2RHEoBSEObgm4EDdpeCIhvA15JwXMRVPPVAlvwbVPw7eejQOKICUZtyDhs5GiSw8UZeAgIg+ovWh2LEAVLIpTzY1NDQQpDQVNxW4Wq+kUKE6gIyqPiJI1E+BE/sZq4oKUlGBKk8sAKVsImhhjeknFovnxKIVoMjzhZSxCB+QwsMp1U1kE8WR2dGgWCoGo7lcHuDMBVCd44C69tprj0Dj/gRl7KkXTvNPRVtU/USg8ip6eYqeliL0Urq2trZCQaLfFKrFMpBCh1XGpqwCldLcue+AxEJ3IG++k4JlgIn+UqASwDRg9s01MCtGFqnopVQMU0A3RbAASqpEZlF30UMfe4Zi+7cA6oFxQF1zzTX/Aw39MYCikydiR6DIIoJGVhEoih6uC0hgEIsHoDIAh26BhCxkExrDnoIKzVGZqedX5VRhTyZI6iNNZJToQlPqnnrkBBb4DNAIECcFq2QBtZs1UBch1ktgiwFkZzyaYh155vsALCxJTAiLSHchDpZ/cskll3x3IqPuga75HMVOgSppDGdA5U3sCBKsnAAFkEICRSOnbBKdhGh9Dj42o7HgsPpbVM5FlGp8Tq1axpKGKy6jShNAMlY14tkdZJp+TknZRHBS0CuVeN3P94xRDlAidgpWAhTZXuQ9JWEVrbF46xBBWMzCQ0uXLv1MAhT0UwYPrEPD59DiKTBlFb1EP5FRFDuChftyYF+JDiatnIUqVORkFOKoGXhviJ46KlCJL6+CN5yiCYaYxh0R2o2lJbIEoAJVNo9AI3zTJ6a0S5rEY+TAH7HIrAK+l7p1iwIVTgTKCoFSsPiZKfXgA3YejeYkvCH4m/H5iy+++OKCAHXddddNxWkzI376Q2bxyCoT'
    $Bulb1 &= 'PVXkOVo7VszETrMEDIAlW0mgcD8rUQ1gZuF6Du/n8Dz10ghdAbyuZfBLxikogf5ovvlME5hVUODYsB4VuwLIBCJI3FeB6xW41gCwdqDBPUVhU5HWLAEK19MGOO5NEySCVYrZJLqJRociC8B9dYhncmCIAfUxVH4VnUwCRSZp7Ca6Sd2CxNpR9AAQ3QKfYGkGIVKQeNAzz0AUpqphQKNKBIqA16DQ0rHRabWCvjfeVYmsN1hZVVIdRis4RNFSzzpLABTQSfiejfDGu9QNGPPEqYMKBQFJ2ZM2NhF8zXSKw2nZDfzI4l7gWHzhhRe+ZkCdicrfygZrSsX8J/HICZICxUKG5Cl27FzQVAv1EHtXDCh6nBV4phaVmoT3BvA1/QoG2ZRRVyHt+HMuWMamklo/MopOaS/KiMZ9BdAKOrhYwq9fjzIlk82+WnR0EwBLxf5TIoJpAkU28axAhRa+kNmO0ylA4dpx559//mqp2PXXX/8NNOzHjO/QeNNNInrGJtNRZBQ9cwAq8R1AIGCRZkCppxizULlXUcQoDjgP4zP6VNyqzGVQqxdqnJcAFXsLUQKUgsVgfacqcvHYmeyjours7GxFXbvxPd0ukwgScExryEIwBCCe8XxojCKTyCgCpRkE8cFUFL983nnn3eNr6PIjNPBbVLwKlOR/mD6hknSC3xxZxfQKQCqgFBUsCXlUmafSscdZiXtpzispHrivG5/F8VAZByhhlQLzdkAVFShPWdWvQMWMKjGHVyxv27ZtCeLM/0fQLIYje1QfpQFnKpeXECVljCJQLKyDC5SbmiGr8H1fA6NukYrdeOONV6N9l7KCZIeKngDFyjpA5Rmy0CMnWDzT4aRe0xQwFXpIoFT8MuwU6evrbZ08efJ2fFaNOpjmZxmrIkcE3w4oWuVu0VEECWBBkRdIqJGRkcqurq45AOolJ5USGkgoGYIDZ1JiPAXKyjig+GOpvpJcPjMJuHbJueeeK9kCpn2vRduW0tw6+fGyBcHUVS5QDILV6TR2lZRRoqdU/OgnUISHe3t7D0fA3E8QFRgrgcZ+ZFXBtXwTfCkC26MhjTGKbCr29HTPzOcLTFdv1pCFYiYuAPiWgWwCKInnUpI9IEAKlukoBSZQi+erP2XKfNnZZ5+9XIC6/fbbf4qGXa6DLSInWymV1VxUUV2FvGY6c8Ys01U6/iBQpc4vGaGo4lc/HO9R/EaUUSkVvUC9dOqf/Dswiu/14f9hV+wUqFJbW9sSgoQ69ziJubT6TWRTBi6piJ/jQ4Wqo1Jq5dwUtfX9SSjEJMHpp59+o1Tsrrvu+iEa9B1P0xnKBGGVF6dSSo7Vs9QKQcobWARK2Si9LRryDOK+CnzhfFR8KhzNjglARSZaCsjIBKDoO9XjvI1AEqRIxI5KvFxiYm7Tpk0fnzJlyhp66MYm9b7Top/KpSzZhBAaeilKM+jFtdQEoHwDy1LUBEoHlfztqaee+u8C1MqVK9ldfjXBwa8fqZcs7oEyqmSWz/wqfIAxyoqIH3Pl9KlwL73yHFjEvsEpEL8PNDY2buZ3q9h5yqJCLFredBi/DmVVWUHKqh5j2MLuYboEwiYq7oGBgcldnV0tjZMb15q1A1AJmxCCAJhSBm4YncuM6SV1OM3qjWOUMz7U13z/h0866aS1AtTDDz98Mt68m6KDBklPCoFi4S9rvpSKX14TeeKhK7MSVmkKmfcOUNxgHCbjdTU+d3FdXd0OsjTOJNCK+cMKCis8G9d36v/WNdWEM30nil6x7IBEBsEtWEB24TveUrFLmIRzxpQ5nsmoTkqLO8CEXvy/KHB1NH2HXYILJIDjhGaceOKJvQbUB3B6iQAhmBXxs+4nTzsV6C6oQjdWmQXMa6GCt64r6qZRNKAav0gdnqkAU+doZ4WBQyd0WCTNiyojrzwbEV/vGFDilTdEng82+T1MObGnykBivAf99FGAzw7LUQNJgCoom6jMY6DSBlI5wuty5Fq6cf2MBhTZ1NTU9DI+'
    $Bulb1 &= '7/DjjjsuRu73v/99Fd58Ew1qlF7WfL6s3URlBaioUX5BdU/R8dIlP6Vnso9x3TD1VXV1dQ2uVzBkwec2oXJToXj7qItQqc5YJ0WpwBv+qCOOlD0/kiFp8odormoVqjXi5KBYxxBAHY3GrLGMgLEI56y4BIVCheM3pVUniei7LoGdTfRYBQbuzc3Ntx5xxBHnjkuzPPDAAw/hxk9YUKojVMoqguJ4sihQBpZkExygeF3YVFVVCbGr4mAz+qAVuFaHxs0HUIMaitCvGiQSoT/8cTI9Dl44NopAyRhf/j+YL1USqJyT9vXA/KkIW6aCsesNJBU7gsTXscWLgYpFDz8K2MRzyK81kXOAEv+JxgggUfTOPfTQQ28dB9Q999zzP3H6J0c/RROAMi/dBYqsGiVIFENjk3Y20B2g88mSRakFUK0QxyF8bhcqRQXN10XpOvdLH4l9quA5HXBYHXql4wqlYCX0yaCTHxeLBJCW4PkO/N+rAGW0ZB1HM2NschgVEiimU1ggioHqpAQodtbOmTOHfGldsmTJlnFAwZf6azTycXUaDaRII/6yMsrAyqtiL6quElYpm3K0fswsqF/FM8OaSgA1hcADQH75AHtitKvcSwURxS8oRcGTyqyaMCh/Pl/07oO0DdogDB1DECK8+CSef1LTttkJQBGkrFq5dwZqTD8JUKbEoff81tbW5/FjfBiMKo8D6tZbb+WXvAYmzGQYYy6CAWai5yp1A8oKc06aTy/r8B8q98gyn6R4R0dH64wZM55VT7yojPXSYXQMHahiyX9MgapLp6IvjuajfyNQxiQdfVIF1+Bv8D2Pq14ygLImehQ3Br9U4gpUKtFRBMiDqJVjoCxnT0+cYof6+Qi5fjB//vwfOHpz7LjhhhuuBUhLmTfXXHfiJmgpOrFf0VHuBIlil4Q11t1OBc/YUcOhkbfeeuujLS0tq/icDvyQUSvZtH8c6wMG/Wdcr6iuIuOdNjRS+i0cxiHrWWEaBCC1woo2w1i8qrrIBSmrIGUcJqU1Py4hlGvhYnUc5+wZAqHtZBPhOHTx4sXr3hao66+//mNo0CrEZZKMsyGHDrNKDrNcfVXQ/r6cgmQ6K289OMyOMqSB78NIfwsU5Xb1qWQUXkU2OJ4J4dF8+Y+sdOB7DVUV4Rn9Q/k7FKhAOzTD9vb2o1C/HfiuLlyrMBbxjMZnVXlPBCp0SmLlLL5UJ9ObOnWqP3PmzBcgdkcecsgh0dsCdd1119FrfREmdwFZ5Sh0F6yiA5iBZICNGkCqu3LWWUqgeA9+tWawYdb06dOftMGxBAv28ZO0dgDqkbjX2JtUUxme0TeQvwNRvwElTiVY+VlYpTU6OiZjTEKpcEDKOExKW/7LYVOgbBKgKHbUq7NmzeL5ioULF17rYvMXgzSuvvrqbwGkHyHccMXvLyyg6pekU1TBypsYkl2qu3IOYBJAbdmy5VMLFiy4X/NdAlZ1VQaM8oLh0SKB8kGyhtrqzOm9fcP/WhhjFEeg1G3fvv0Y/PKrXcWtImdsyipILpssW5B44J6OnrG0CtkE/QTMCrMWLVrU+a5ALV++fAo+6A0EmhVU6o7oTQSrOKHkTQQdnZUzZinTxKXYuHHj8dBTT0LH9NmEodqa7LF0NAeHC6tYD1yqr6/JntrVO3xnoVAcVv0Udnd3z4fFm9TQ0LBeFbkAZLqJ8aGeM6a8HZBCtXCJEicGNBKoizd37lz2EN0OVp01EZe3HUgGXfVrmMiztTPU7UZKFDvdBgPJi3NWJop5Pee0iAdPa2jjF2D5PgD9MgrxW6/j0v26moqjafWGRwprlFG1AOrkrt6hewmUdmyGELuj0Jg26Kg+B6iMsskFKVHiBpIXDzuyHJjrEojIwXdi+uRjqNefdgmom2++eQka9Wd2RenkQtevSvwr12Uw8dOSt9SxKvm8KXgyKpfLNSJIXnDQQQc9boP062oqj6L1GRrJ/zlmlF9bV5M9satn8D8A1IgOsg9fffXV48hG'
    $Bulb1 &= 'Nhj/m/ed0elvWQUpqwBN1E3JsKNobLAtwxUfroAPKXoS7tHH3w6Tdxzs+tvf/vYBNOzTNrfOG4vqo7dhVcnxiwoTRNAUu1lA0UvQM8cCqEd1lHFQW1N5JMfgg1HPK1DVNVWZY3v6hh7O5wtkFAP2Gjy3YNq0aess1UtWTdBNfyF2XpydCEzszB3gNbYNIkdLRx/qZFjkB3YLqHvvvfdv8IEP88Mm9OKOC29csAwogqQ+Vk7jQwOJZ/Gr4CYcBYq/CNbSUqYA1AfZgFy+9JpUzPcqYAk/3Ns/9DiAGgIgfGY2u6sgtuxtYY9KAhTZo6xKgFImJSNpXHfALB6Aod9EB/MFMP0InKPdAorH7373uwc5aVoHcY2zgMYw1woqUCUHqIJ2ydtYKnNAOTdlPnTgEJRyFwPn6qrsQg7FL5aiLfodGTihiwcGR58dzeUIVHHr1q0fgGhs0A5Q6/kVz9wAct0CA8obG5tlrJLhkezWnz17dgALz5TvaQDprnfC4l2Beuihh47C6T91VNo4sCZmGBSkojLMRK+oHRIJq3Q0MZUm47466IVtnGJTWZGZK13xkd+hE5HCwI/mjIzmXhkdzQ3C0hXffPPNxQD2efaOaN9dWgNgY1LagHJAcpV4wig6uXCsRYkD/GcBOhle2iOgeKxevfpuVOgU+C9lm9nk6CsXqLIDVNF1RFWJU6ETJOthrkLj5+IXbcN9FdlMenogPTdhv00W8qJSc75QehNADHIthNdff30urPELOr3MxhNYci4BSkEy3WRjtIxJMoiGdYBeCiB69BdPgQ/1wLvhsCtAHYovegqVy3KyIMFy9ZU35meVXLAoap66DSZ6BArixkGxHNyR7urqmg/9sC3uLA2a4sH4wYgGqREDYwTE2/DzD+LeSjiqtXjuVfxong6kT7npXlXeWRekCYwSvcQgHWImChyvH0GbToSjWd4roHg88cQTy/FhSznnjRMFvXh0c8QcrssoFywCZEA5vTYc61mGuHmgfQhRglWevxP3V+IjmyyaiL9VzFIVghl2fPbC2k0Cqzjk5w3OlOLYcGcoj6ubMo5L4AIlClwsLNwBgoQ6IDoqHg2Re/q/wmCXgFqzZs0UsOJ5/IpTmVPXuScTvXYDScYM6Jh0y7EXNb9ehI4po3gAK2hra5sHn6gPlagHKtWMTfVX9zRfz06IEkLAzvYdO9ibMzQwMLARxdN5LKHLKNw/zsn0xiydhS4yfxBiFgAcRgT/B67G13YFg12eAfrkk09+jbPSOaEZhVl+GzVfjpk1xipllAFWcCweGVWilWlubmooFvKzqmtqUQnf+tStA9TXH0KoRdhkoHypONrV1bO+r6+PXVUcuZsyPeUqceaelFGJtWMIROVEBU42gVXduLYEr7fuU6CeeuopdpEzr34MKirzdW3st7bL9asSl8G1fDpwvzSluTmYOXP6wnQ6E8D+iBPojY0/sHrZlFhPz6VCfsTv6Ojc1tHZvQOMss7OtOWflDluJ4KBJKLHzllYuYD5cNTvcrz+l11t/25Nvv7zn/98CEcOc4QbwdIR/q5iT1ilOqpo4xbU8hGo4uTGxmDO7JmLUuls3hP9NG6MuQEzrvAo5EdLXV2dO3fs7Nqq81jSOigs62Qwyaq0N+aNh9brCyYHzF7CHViLax+bN29efr8AxeO5555jnubriNUi0D/SST+R6pQkwadgFay7ywbvc/QLflG/Ze6sRWEqO4pfu0oj+cgBK/5Anf6qnZRRuVQo9/X37ezp6d9GqwewOKov7Vg8SdZpl72InQ4Mk/mD0EdBc1MTp/2fumDBgnt2p927DdS6deu4Dss66Kna/v7+ck9PT2SKfSJQTiZU/CqdGlKcNm2qN3c2gEpnh8HKGv7iXmwYxgEVja17ICtrQK+Xh4YGdw4MjmwDSCn8UGmc05Ybx3MClBeLnHSb20g6GJBA47nXcO9hixYt2mU27RFQPN56660VqMBFNNObNm2yGeMTHVCL/5JZ'
    $Bulb1 &= 'WGb5UOFoLkTPD1NDuVy+VqeKCVAKVsIoBUuADIOo3N8/sKO7p287dFSabFJGmVtggIkPZZ2c7DCApQubwKZyqXzF4oMXX7u7bd4joHbs2LEYDXqRlmfDhg1lnSkwzlv3xvRUwek8lc6H6dOnRXPnzFwUeeEggKrn/GAetiYCj8gZoG8AZtJhCbpxR/uOjnYOxdYBGZZScUMXGXtlQMHJpTsQVFdXDxQLhZaDP/jBnvcEqJ07d9KCPIrKHkOgGF7owg5JZsHTwaoa91lIw4H8hfr6uuig1rkLAdRALp+v10Gl40RPQbelTIRhmXQARvXv3LS5bbuKnOtomhIX18DGFbDAJQign6gHbzv44IP/YU/avMer/QCspdAt123evDlCeOHpmgXjEnvemJ6ycEYyoHV1tdG8ltkLIj/NkcIN2olp660kQEW6thRFj3mximyKU/l3bn5raztY6DqZ4zIGNkZU800MV0IU1vHEQw899KH3FCh61Ti9jtCCoiizCRygkpEwThbUwMpXVlSUD5o3Z36uUO7FE40ESpcwsvnBicNpa6/AEAzX1nAGR2l4S9t2Dro3UUs78Z3oJ39sNpdM14Vuovj14POnHX744bu9JNJeAfXGG2+wElvb29unGlDeX/pUNgTa4j6ZLZVOp8pgVOvA0OirgKMSotvI7KV62Ynv5Mczu3rxPUy99DZOqp1XLJa8nR3dHd5YuJJRgEzskviOheMIwCbW9X6AdMqetnevViR77bXXHoVyPRZiKGxwRc8YZazyNPuJc56rbsyeOa1lZ2fvK+wUJYhgVHrbtm1/VV9fvwGgjECcPwiTzi7+DutuamqsP6gExnV19xGoRDcxIeAwKjBGUSkRKIQrtHzfO+qoo658X4B6+eWXfw/L9ynqKOoYN1DW1waUzJAyxZ7NptnoKe07u1/jcB4CRQsFfXfk7Nmz16JxQxs3bjwKIvMGRKbbWFJfVz0bbKzp6Ozd5ipwdTDdkcYy01T6yoOA3eQE6uJjjjnmxvcFqOeff/4BiM1J8NKT5YwmAJXEflE8PZbWr9w8ua55cDjXNTKS61KmlWj5IM6HtbS0vADLOAy2fgiWahPY0OOPTY7MNDXWzR8eyQ0NDA4PKIMMqGTMeIxPkKR9OUMVQJ17wgkn3PK+AIXY72YAdA5Mtqxs4Y3pqCSp503QVakw8MGMSd29g1y7iWwSAKnQwaKDAdQ6DrNev379EgDFMQp93pjeSdVUV0zjQhL9A8M93vgx6yJuDFlsbRddw4Cdm8xDfekzn/nMve8LUKtXr/4ufsF/ZuplQo5qXFhjg2YJVgrmGo2t6x8cbucoSGOUAjV/7ty5GyB6o6+//vrBzKcDqAHfmRJSWZFt4lpfg0Oj/QagxXY6ujfQGfKSBWU1CBT+PfaUU0557H0B6pFHHjkZp3thscQPsgEXDlBJqjhKBs4GfmU2XTM0ku+M4jnDJQMKodHcWbNmbeLgWYRGB0FH7UQjh7QfTkDJZlJM4KVHc4VBB6jA4jpjE5kE/enrWlb8ERefdtppr70vQK1cuXIKKrdVR8Ali5Haeire+F4byYBycixCkapcvtSjekuAYiPhZsxobm7exu53uB2c39JFMdREnpj8VOjXk0GFYpkjim2usogc20MHk9d1+SMZZsjQCc/XfeUrX9mtQHifAcXj7rvvfgK/3kfJKFs50UaoOJ0Qrm/lQzAqSmWZv1e062QAmMnBYTuZkgEbpgOkPoA26o0tLBFwyKIwyQ/GXacxsOXe+JoTEwk+fzyA9NI555xz2N60c6+BuvPOOy9ChVbQj7KVEn1d59eb0A9IQHQtxGzkBRzoanl2S6lM4pw7MozDrXGmZcsro3SpkmIVWh4GYTrnjfXTyWQfgkRLR5HT+tjKZzddgON9BeqOO+7gsOcNqCiHCwlQuoKrBbnReJ0VQSHl02EqO+KNpWUsAK7jLHMv7u5qQAOHOVvBxlh6wpwcFU6QzlTkHaCERQSGuXV2'
    $Bulb1 &= 'PkS68qKmak67+OKL79qjBu4roHjccsstnJn1C99ZxlZnadns88QiUqfncyPpbEXVqHZIRA5Q1QCKTOOEpRp8Zo7d5wqU1Dc3OpLlkOfKyupk2prNXeH3UOR0QqItxsyZp3OXLl26V8t27xOgbrrpJvbWPobKfUQZFelqrpGzWKkAxVhudHgwVVVdm/fHK30enGFF3UMAOVtUrKJTV394aJCJOr+mtq7ozKkTNlHcdNK0xYoE8V8uueSSZXvbxn22nvmKFSsWoVIc7zTZ11WoXdCMXWWZddAf1tY1FIxJpqM4MoUWj/8zIWdzcFxGDQ0NyETE2tr6si2mRcvGH4M9yHRVymMrw0qXFIDapS6p9wQoHldfffXRAIR9+JxwHelaCMIoTqWNFysteQP9fUF9Q2PR0WHCAJhzzsaiax0x1ctxCjZyWHUUgABQELXauvqyLvHtWyrGlLh+LidU/t1ll122W50I7wlQPH74wx/+HTOJXJ2MXdfs7Kyrq5NVoYtcQRItHhjoCxoaGkWJxz0t8WqsiBn5jKyTh0ZzKRPOcrCV9QWAocHBgHqucXITlx4Qh1KXivR6enpYyh0dHRx9vPzKK6/85r5q1z4HCkqTZvhGjoecOXOmt2DhAm/GjBkcN+7p8rZeqcypGiVZRrsXjevs7PK6ce7t6ZX3bd1zZiVZ2AWvqxAleXUTbzKRADGDAYC8rVu3elu2bOHssGN+8YtfrDlggTrvvPO+CBb8Gzsap06d4s2ZO9eb3NjopzMcC8pNJDIye4o9N6Mjox4CajCpz2dgTR1DAKmTOCKZ4HDkC5mpa8YYUJIq5msyklaOHbLw5pkj4/CgNrBtwQ033LBX2wfsb6AWA6iXp0+f5jU3T/Gm4Tx1yhS/YVKDNLyyQpb29tnDBX3Dri9vw4bX/fb27fh/yIPp96oqq5iVjKZNm8ax3zKJhzMpbJF4z8mpW78fO2RfeeUV79lnnyW7br799tvP25ft2udAnXXWWd+A2Pxs1qyZEUeMcIhPc3MTdVVUV18HECohViEX6RNgOjs7vfb2HT5Xh4bFghUrcDiCX5GtiChyFD08y+Rb5IjeuH4/jndiOvqxxx7z1q5dy7mDn4Vv98cDGqjTTz/9OCjS7yO4PXb+gvne7FmzvJhdzdA19V51TbXolhJEjGK3c2eHt23bdtEvAwODsogf9Q+VOMWOnZYEizMyDShfN6owp5L3trW1eX/4wx+Yy78f9//9T3/604EDGige559/PrvJn21tbV3Q2trizZgJfTVlSjR5ciMaXCfLdheLhagPQFGvbG3bCkZ00NKJ9SNDIG4R2chC0ePcv2Bsy4Gk348HXQSK3sqVKyHGGzyI7CoAfOayZcu2H9BA8fjGN75xw8xZMy+Yf9B8WL8ZPioe6ZBE0VEcdNHb2+O9+eYm0VGwViJ6BAIixzkpEa0lgeJkHmdx5XHjp9RK+tBL0SOPPOLZZ0CZL4VxuPE73/nOPtmiab8Adfnll38ErLi/tbVlSktLK0XOh56KJk1qZLYxAYp7IWzc+Ka34fUNPljFIdXiGnDOHAehcjocRY+Dv7iknG1yYYM2zN1gGANmRmQTdBX13nbotU9+//vff3VftWmfA3XhhRfQ2vxvAJI65JBDxeql0LhJjQ3eNFiwRugbihB3Ceof6EfDdkK/bKVC93KjtOaRuBAElI4qdRMX86J+4lHW/auoy+hrETweBH3Tpk0snN52ARzfl/a8Fe8BUF/96leb4IVfDRZ8BZYPja2nIvchhlELfCr+zxU6ocxl7yl1Ev3t27dHtHi6G4f4TRRVAqFLaHMlIrKL4ihWlO8xZGF8t23btmjNmjVU6i9AZE/G9S3f+973ynvbnv0GFI8LLriAS0e+1traMol6hkOVGyc3RtOn0fo1cSMupmlFeZNRW9u2CVC5XGzxKHqzZ8+O5s2bJ2yy8VOuMncCalkihJ2wdA/ocOI71wPML1500UW7tJXJ+wbU17/+dfaK'
    $Bulb1 &= 'vNzS0rJg3rxWj7MDmmH16lSMCFSpVI4YvlCvoHCyIwLhEbzPgfKz/EWLFkWc28v7bTF3xyUYN/qFjKOOosNJEeT2JmAet6275Zvf/OaBqcwhehzddikqeQ3dghlwOpvgQzVJ3NYIXTXJgzMpe06x43TLljZvEyzf1q3bJE1CvUNHkx45PXPqKF1iINlVjUfZ2e+Kz9FxpSJH+MLRNQ+DUWcCpN3adum9BuoU/Pp30/ehZ87GNsEzB0jiRxGwaoiW+FG9fdK4NogeHM9I9ZOnWw9IyENG8X/XPeAIOlpB6isqfL5P9+D5558nu66BWP8TQqkDdyNCHvDMp0H3XIVG/P38+fPFD2pqmsyBptGcOXPFO2fDuGLkKKxcZ1ent+WtLaKMKXpMl1A5U4dZDp46i8qb3j2ZRmUO1iX5LoomlLjoKBiGjjlz5pwMQ/H0JZdcUtr7Fu0noHicffbZ01D5Nw477LDKJUuWkBV+OpOKJjdO9hAcw4GsEKtH96B9ezvFT4CSoBgiRc+dfhRBYWH2wBJ//tj+V5GlY+hXUZk/+eSTHvUUfqQ2gPk5GJUXDmigLr300gacNh155JH1ixcvlliNpp6+kcVrzHT29fWLlWLjNm/e5A0NDcv76gJ4BpSK17gxnqareI0uAge0Ic6TvBSUOScn/QMAvP2AVeY8rrjiCs7yvhXWjhZPPHOmTZqnIDCub9BYrxgxKG5r28IwRkOYIQGAIQuzBVTqzJDSMwfISfbAxp3bbo7sUOAIZXr2TNsAtAdx/1fhme+T/T/3C1CXXXbZF3D6V4hEJcMPMoJpksmTJ0X8n42vgOjB1keDaFgcFEOZd3RE5VI56Y/jLFFmBehk6tZzyfBq25GNyp5s4/tM3D333HNk6G/w3ed997vf3aMhiO8ZUNALHCT/bbDgB5Ivr68jiyTInT1nNrOd0jA6jAxDmAZub98Oh7M9sh0Wqcw55Y3vUw/pfg6RAY+zZBcIJA/6UXQLnnrqKbDzzSL8r0vx3m0IzEcPWKB4XHjhhVyqbT2s3hzmzRsbYzNORV7LLGdlhTAj3s6tW1jV1dXt0erRRaioyEqoQ2Csc8J6oKXSyizTWXwGxoD7kkpeCmI+CkC/gB9tj0YAv2dAIXTIgA3rocznHn744RLr0YqJV657FXM46+DAIB1Eb/369RzyIzO2eA8ZAx8sipN9Dbb2+biZDTa+IYj3MBYdt3HjRk0G7hyBWH4WinzVAQ0U/Jel8IOuW7BggXfIIYeITslmMxG97JoaWD52WPoBRIt+VJfXsbPD7+npjWygB5U57pX7aSm1g1P8Kt2lQ/7ne9RTTLOwcwIAEfQSLN//ApD/jKB4n+mp/QLUueee+yOIyncoOmRFnF+qi+gmUIys4fSZGH709w9wYAUYNSJV0gVPE8boSquRdnjKCDp8riT2yDi+Tz/qiSee8B5//PENuH4wQNpnzuZ+AwrhA8eL34gGncsQph7e+KSGSTDzcf8cLRk3e4670eNdzRjMMntA8KjU4QtJfx2B1IyC+GP0r6x3hr4ZHU4+z/68+++/P9q8efNP8f63f/7zn+/Tzef3WyoYijSLBtwG8fkylxtiKljFSLccCGVnbP5PxpFBFD0dsyCMI4MIlG5hksye5fO6hrr8z6E+69ato9X7DzDsjJ/85CfD+7o9+w0oHqeeeiraU3kzfuHTyQTqHF1J37c9jqm8ma9i/onMITt0o1UBhjlwsMvnvEDmrww4imIstv3icEL0VuKH+Ape961YsWKfsmmPgYKy9s0rtpUMbddpjp2k9WK6VhVzBt751S0tLRcQFBaYfwAlK+rL/wxy8b544po3lw5PfjZFkrO5OuCQEhQCh7PoNIonQxcYjlvxIyzTgWe2662xM9F111577R4DuEtAffvb3042EbSiW0v6uiWkrxN/ZESJ7jQtZpvOI+8/4ogjlqF8j5uAxWDJjo4CFHUN/S0qfx46FlScT8szMWVMnUWw4m74XpYC'
    $Bulb1 &= 'gLoSIPxC97HxlKmRblQW6RiFyHaSdEcu80dZvnz5LoH3rkAtW7ZMluaInMXzODOAzwEMec31B2wgPHUFgAl0Y4dAN36Xwtdg1scXLly4ApWcZHuvxyyrlLRJvBQJGyubqkr3FU0+GcRYjqLGvLruhZAHcJfhcx/kzHfbgtO2u+P/XLmfBz5X9iydsBhrsmYDndXbbrst2iOgPv/5zzMd69v2b56O6eaiDFG8RYjsp6KrWcimfroOAYcu83XgFNsXmLppLnTWD/CjLqIfFTecO2/Q/BeTsQQ2pJHMihc9zQqQldIln+YM0Cvx/c/qvg9F24uUK2ArcLbAM+fHFW23Sd3YVbZzisY2C4sefvjh6MUXX4x2G6ilS5eSTaFsGxSGKd0eRGZdckA8V6/QFcFkSj2nrbIQLK5HABaldO+WQEG0bW4JeBXE7Iu1tTWf4r0EknNp4s1PCVYUzyEOude6rCkuGU1unAFAn8EPcS/qxOUlh3SDHgNr3H4QutSJ7LdlW0oRNE4C5/rMOgdHRiY/+uij0dq1a91hkrsElE+FjUoIe1BBWbRYJxBK4VKOumqhnHVR44xOiM4YYApSaKDFe9uVuaB7PT6/FcHu0WjENDibfrz3MMGKe5m4RQNFkSChUd2Dg0Nr8bu9hed60dgelEEAMsJ5ygApZzu0ceaDLsub08W+ZKFnXX1W5t9waURuRaDrMpT++Mc/lvcGKNtkwqajcocgCj6Xv65UkKRwSWwCpqzKKEgGVspA4v98Ht9Rx3Hl+BwCNg0eeyskrZ4KnFtScsBKnKwLR2AgNuHz27l6GcoggeKqZHh/AIVAcSV+gsRFB61wOV6Cw/WIWUZ00eecTi0p6A5GFMMSGLXnQHH1aK5QwSWMKGJevCceGZUARGbposZWTPzSDlgJm3TJtUoFivOJa/EePyON76uH9z4TolfPASsDA4NtAKnddoXkxmIESmc0kFH9nELr7PWXMyax4PWoMmlU987K6bp7BdnZgr9IvORAedWqVdHTTz+920AxVcIsI3UUt6oUhe3HWynJEmm2wo6tWmir7tgedhRB25TU2b3V9rbj5qgcfF+HZ6q5B5WusxLoVNmkw5ODXXVPLe5uxD2zCEw/GNWnjOIy4RQ7W3qpoGDJGnu6GGFOV0gji2S7llLs6otSp15/8MEHIwTUu6/Mjz/+eP/II4/0dQ88mTBIwKKxbYzSOqPJNs4KdVX60LaT1FXDTInbMkYietwtDfdX41pWRTWYCBStHr+Sq1nTkgEoMotiNgxABjmlVoGi8pYVGfUsC+boWgsFs3y6K27JZnvxTLxefvllDhnaM/eABy0fe0CcVVDFVbB1T2y1Vc1hJxtk6SJYtmOir2vS2WakoS52LAZARTRQoHzbF10qFwPl6U5GUrgLmyrsnK7Ob+vmScNt8x9e82Q2V7y/TaTbl7t+FI+rrrpq7x1OO+h4MjViz9iiVbbGuI4wETB1f3NbH9xT59PTRSBkMWPdcCu0jZZ1GTbbMtfmr3jqTZsXT4cy0kXlS84O3GUdZMalwBmuRDrGPXKnxNnsCUtB7244s9ux3uWXX+7HA+vjxljDSrqPORmlS5C4xZji632+rnRvxTY3tc8woJKh1BqSeLpHVqQxnO2MlIydsr3c7fXexnh7DNSeHieddFICqLOZqbu5qTcRKPPMGeDqJvaSfdD/BZD77rtvn2cK3u74/yuZaSRrBv4cAAAAAElFTkSuQmCC'
    Local Const $bString = Binary(_WinAPI_Base64Decode($Bulb1))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\bulb0.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_Bulb1

Func _GUICtrlLightBulb2($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $Bulb2
    $Bulb2 &= 'iVBORw0KGgoAAAANSUhEUgAAAEoAAACACAYAAACso/+jAAA7EElEQVR42t19B5hlVZXu3vucG+vWrdzVOdANDQgqCiiioKKIOmNAR1RUDKBPVHyIYw44yefIjDroGIYZEw6IMygjMowomAAlSdBGuoFuOqfKdeMJ+/3/2vtU3S5Q6aYQ3rtfn74nn7P/s9a//rX2Pre0eow/aXrDsFKFQ7S2h1o7tVSpVj9W15WqTig1gqm+Tan8vVh/nzGvbjxW96n/tKB8Lof/j1Cq8iylljxTqf5jlRpcolQYaHysVXbfe2tjeRSzu7FpLNJq/D6su0Upiym4Qancnca8K/r/AqgkObuCi5ykdOulSq18oVLPGgJIRmsDYPQMMLNAzdwSZzqAS7SybewSY34S+2/Ctt/sUWr6xwDsu5iuMeZTE/9PAZUkr+Z5j9GqcQYu8QqrD1mg1XOwbhVWG1xUE5k5t+C+7cx/nbeWzXvcrHXzuo3/t2Lrr7D8uzH8dwUA+ze46fXG/Hv6uAUqSU4L8P8p4JW/hGscDwvC8jOw5XBMBdhM1lL9IAt60DL+2X0sSs8uO6AItXUrYmxdj8WfYHEjAGrdCne+APdyhTE/aD+ugEqSVz1bqam/srZ8vNaL0KgjcO4jceO9chGts7Y/FFBatj+0K+5zrx4YZ3IWH4e9Aw4PCDN3YP7nOP4BfEe344F9HLz4A2N+9ogs7BEDlSSnLlKq8ffKdr9a6aWBVQdj7RqceBCtDqxWsyg5oDJg/hBQ2bLqAM4BozqAAgBujU4JoSy7bSOYrschN1uld2NFfBXWn2vMrff+yYFK2i/WysSnah183qolC5Vai7WH4DYX4qQ539isneAlbVQGyuykHmL+992W7fgGghlPqfTB35bzezH9BmvuwLXvx/zEpFJNUELrImO27Ld1HRBQSfN5RTyuT1nT9U6lFwKRI3EzhwKWXmcDYj7WWxABCrE9gEWYORY119XsHAvqtCjrtzuA3DItKM1AwokTOcS5Y4qvHZi5CfN3Yc02XGEEy7VvY7+3GjM+9agCldRPGMBdfkeZ0nOUWoy2PkXp4FCcqCpk64JZ6poqQIWYz3UAZTqAMnM4y840fF+gbIfrWb89AyrxyymWEztrXQBKxTgA3mavx/KduMJOK1pWtcFd6qXG1LY8KkAl9adBORv4e+EIq5fBm55qlTlMadMjbZGm6cwlDM4NylL5ORaVAZXpqLmcxYbHfnsGZAZE2gFU2mFRCZaTfYAT3SWcNY756zDdiOVtWKa4b/P4jTj/i4yp3zOvQCX1Y6Cgk2uUKgKZpcqap+JihwOkfoeR8m7vvclxUt5NmlYVKAdSNumO72xKBST3HfopAz6ZM6UPsRx3zLsJVobvH+B+fqScyidQmZhHaLTmJG2m7psXoJLaMci/0mvQ4KOUGsa5n4wLHwksFngLycKziz1aolwOzlHwFhXMsSjT4XqdUS+2rrHcnuuwKNvhWpnFRR3LmUXFHctph4XtwMn/DvczCZtt4XKJd12eP/wdzv9scNbuRwRUUjs2r1X8nzjhn6V6AHdMVyNQSyX8O1mYzrTVKW42tIhbKXqOeiig5roeG9b2rhV6oHQHeXc2PMJyew5Q8b5AwfUsXY8WlUJz2pu1jS/DcxxxQEG5WPynAnnQP8QjfqkJxlsHBFRcOxbPPT0fJvRRpbtx4VU499G4qRW49Zwn69SdRmsPFC9M8i55i/p9QHValPIWEvnlgt9fPQQn0eLaD2FRnUCJ+yLqgcxTHJtGOEsEo1tnVRupYbwBht7UqoDrh8a5q00/gcv8Fa9l8lP2YQGV1I/VXgifgCv8j1WlgjKLQc/HwsFWKMc7OaeTdcZHmVYiFxWxsoTJETken5rlpkA9mJ/YuJZyoHtem8mJZ6KYn9p+305+iju+Y89LtCROWIdli3mT4rgEeXQC/k5uVja3Hc8kovXhtpImmvM8XO4GXufy77XVK09rKfVQmeeK5aG66edP'
    $Bulb2 &= 'UoODcqNlPIqbrQ0PVWoB2vpUGMxSPGMCUHDH0n49COJKEuUITBEbC7CocI5FBTYDa9+oRldq+eWid725ciD1Ftfy+3dGufhBrod1aD+Ve+wAS2BRccaBdZx8L/a/B8vrcEsALICF5ZLbVJo73qqkpXHMsSfU1C23SpCy+wD1lS8sVm9543I0mDeafgSrzldpH05yBJYX4sRV71q4sK7CecBBGVAqcD4vQPH40AMXzAGqczn0rhZ5IPKWbjdL7pmush4IclhTPVgOJHNckVYEoLhM/oTrqXYbwCWOU8FZ2jSw/yiWAZKBhQWbcMUJSv532DT8Ms/ztW827Fve3phxPQGr2m3UhruepAcHu7hqMU54t0orXcqsxE0M4Va7vQSs4SKwKrMax5U8cMHDACoj704yNzNR03EWOS3nt3daVAZE0zrXS+dEwQdzlJB5imW6Xoxj4pZmaii2kZLMp3Aze7B9G+53L5ox4paDsW3A/3AAXGvUY3X4sVNq8xYJ5g6s9/3vQfXJvzqIboUcLvmMsuV3WUgBravY3OUSTxbMuLtBaieRL9NHfiJviVuW3PyD+KnTgG3HpNW+GqtzUp6bmiqzplm+mstTs1w163IAKYJVJFxOheNdYOa2jbg8qwybsTyBbdPgrQbQbL0L2dCXeK7zPtawn/185O4wD0q6+drV6ogj+nGWAtAx65UZ6KLF4CnzaWG3htPOAsIgjOZZsxajaVGwIA3X8cBKeFehzYTmvnIgy93IOZHnJO0tJO2wMN1hcS2/v09xJPx3WBQ4yS3PgAULikk3ApSNIzFCkQq8pmaKAwuNbxOwhLMMQcL2MF6PnY6EVaW3352opz2nLhZlnn50Xv/if9YwUrE9H1Kq+3xl4Goq5y5sgahhSoKG04rMwcDmKR1Ahc71TBe290rUc0DNdb1OgZl6V0rFAh1nZeE/I+ekg8yTDiC9TtpHgGaCk5pOwAJHAdgIVkiwYuguBD9KKx3d77Yb4GIargyvduPGapbH2iDlLT8fQP1M5xN7xTUNASr494uq6lUvXURrKsCd7lSmsgpBDydSQobaWY3P3eBSwROweLi3GOMsSucBVB+Wu0UWzHJUOIeTMqAyzsl7YI3XTVlSHHdEufjB5D0D1FxgvStqWhSOjykJIhbOwFnYDr7S7U0wKpC3wf0ZXm8a21khnXIcGGJdwX4V1/tfKo9rlVpW//PnVXDW6d0QuoME6jmwhKtV0IOT5Ge1kRWyVi4aouHBU7FqleclT+amgt37nX4imBl/6YzDOnnKer7hTZa9bprLXalzEZ/EPqRushkvdU4d+8DNbOy5KnZ6Soh9+ocum0inlChzw+NquMwuRQvTAUyvoHaqSv1glZi2KkZWj+5RYTUHN2tV8URyF8INztJhDw4oa9qmD/1srLMoaCSVeyZWDwBYH7VoQaYPrNNjRWTqnLeoTo7qrEdluolyoNwR5TIlnqUsLS8Hog7X67Qgz3G206L8dnJWCjlBAk8ISuo4K8b5xq/ggxId6B4E3A37a9sAp02Qo/Ds4G399ROR7vxKaq8APZfWKzScQjIxcAesaqXO9eMc4CsAAX9yloCGK+oeM4CTPA03VgYQHqgA5A3grCZH5RxQQu6h3Vc3GZtZkwOmbDMVvm/hznrXbHmy7xSUsQcu6gAq6gAukwfYnhAoJdUWJlc2wfkiWM7Ef5G35BYFpBT3Y9viqjYBkMUW2g9gq63zVbnxKcW0MG3pnG0VicRh8ejgbdRIOl9VJqxoqbiKMHVRTTGqhQejbYcLeUuuR2CCPgDV63K7fSwq9xBARd6Vyk6HPagXRnmOirzA7LQg7Y+fngNk5IDpBNKSvCObVYhxc265PQ6V8yPsNokmwaIoHzSmtOWuxzQHwKtyAltIrlZ9U6/gDRGoPJJendYqZyWTvRc6oHpEVFrRHRmZA4AQoT93FEBcKFYgCiio0O1gWBW3j+R3tCrKhG5fn4rUbEGPN8Io0csA4PmkM5vq'
    $Bulb2 &= '5KfOHC7CreCBqDEcN6pmcj420jqwnD3COuQaLZfnJWq2CpRgoT0GnH+BQ3EOOoltqwwsmY8bLliECbKZdGuwbOKJ4qdp0xQUzCzZPfRl2+x6vQqq8LCys6AUNkv/DmAhpohcaDGM5ihWBtyV4VqOz3pdWcX4+pNEvT7tDJ43Dy2mEBXZFDHRzOI6a+a2g6OSDk5yLZWuCuG0lgcxcuE/E55yJes4x9yutFhI4u6fIhPGYJnCtEHg9ZuBy05ZpQQcAdb1RJPDCDxdLwSxLZtao/LpLnIUWxHEWxf9Ik26nqzDXmcRvLHYlT1MWHTkzgpwbpmPdPCVsISspVesCRtd/UmsquDKLGrQOk1Dq6Taa3tXLDs5YXMzZZp9Oxvm1sTJOXAlVXBjEcSC2k4wChk3vG6CK1sEB30HIx4uCWAY8WDB8lTi1Omqxm8B1Eb/aJjiNBEQW7hkE1lPSyxMGzyoHO5o6fTJuiu5kcAXYBzV1sZF63TQPUCLEjMl0SP71gGsQ6ZBeOMRDggTKkMLCyrY3uOqBQZAmaKLigJU0fXKSEqTKed2h24KPVDq95D5vr0s7njlauC27YBhFIZ0cbk9ORNJrbkTy1N0O+cRUriTDAxAMephubVF6dbvHPkzYYYgtQAC7mVTAGljknmiU5NaM1w/ywxF3yZQRRsFSxsbh38XmEqgwUOWSpP+TVImSPBOBEN4Wp9rlAkcN+UWYR5PkLyGfRQnXVYOLH4zwe51XCK9H7FbLxWCILPcDo7q5KmsTu7I36WlsXBUlvdZWJJWzlVs+gRc/2YnHiWKuRqUI3PmdVTkscv5YtxL607mvZiPSOQwPHIaUp1WQ5al/dBTekHjo+HS6LMs/hXTyeLRzS1DP9cwXZ2rSN+FDkKog4LVBmABPJ1b4JSOAKVFjJvi0cC0zBncJCxMLKrkSlmmCzbRjf2r3iKmHEeJbgq9Es+Uu53jeplFZVGMFpQHUmO+u4mE3fTKvikpkLKI0vo3jnOk9BuJRckdi5aChUWx46wEAEU7sbzNRT2AlJLTYuR6bQ8Wjo9NYoOBxufya6KPCpkn08WT21sW/pdNAUwoeRfAKUiSS4tSIGyGdwl0LB6IrEK2UwRnBYMEyZE9gWIJRjMpJlAV6yyIumocKGT1pk65EHoyVx1Js50jMGlVLD3v9cC0nGCkQJQItwjLaDj77VJPxuJ6dhYo5HoqarsyS8yUBfKgvQ2GU3OuZwlUE95YV2m9BguLdBtyItfV+lr5mPY5OmkEhaRWOrW9efG/a0YVAoUJCOChYzkowhFD0VwiQMWaaGVFZDtDwPKQDosqOaBoZRSkuuSzf1ikqvnlrN4UeqACz1F2Ts9xBlTkXRLAqGkHlG16Zd8UoGy6FvdwK4CrCVCWApRASc+7FVmg24hqMXI5m/MlYjy49h5w0iQ8k1YFC03AUe0aTl9T7VZTR822zZWSb1ef3ThTR+NdBZUEp7W3rvo6T2IK3bgwbh48pAL/9OWxGHnsJmD1APuF4K2A3IWbZKQUsEqer0qeo3JKyhZqwEuGoKOPbzb/s8wldaxm60+Zlspq4JQTYwKQsyY3ie7hMelinPfX2F5XTjC2HRhCdanL81oIAvGU5K2kB4t9ARS8lECRowCw1K2wvjalWq2miiaaCkz0n30vmH6Dbm5dSuc/tb1nwSUmLMOQSo5DAl8msb7QJaZEiyI5CcnDKOCaIHidPwjtZokmsyiSedFzGkUhXEMzN2x31NDDjpQmUFmoneWo1HNURvV03ZZ3tawXBtttn49692J52ivrFslciz2BkzTI2za2unoUKwlIuegxaXvEWRS1EywqjerYv6Gi+jSCYV3He+s26Mn9R9/zR8/QjfsPoy+8OJnu+a5kggGJOO+ASt2wHD8SZR+gVEb2tKz8MhgKgDAAmiAFRZcbsmFE2fCJL8Xxk971Mo7KutCVT2mas0CJ7iIQrK6OevJu+VJw5MMkHyTOzZErdjvuF/IgrTsgBSiE'
    $Bulb2 &= 'JUa11i4cgmCS0LkRDU0owQEWhKxmArs1mO/BFQEUlHncBlDNmm7snLalleEXe542ep5urD86Z+PguDQp/FTHOFEItAO6D3WJ8UC5oWCaN2Z8oQ5AqoAWlRfZYHJLsOyBEplgnQVJ+QWEr5e7eo/u7IXJOIgfAK0mZ6sHAhTZmKp/uxeckevpFXBJ7oyqEMBqG1xtBzAA2afT0pngauaR1RSYze0UkbPjsUDulLQawKVwRwtwE1gU3A7LDZU0psH3E2JRlSNLHwuHxj+tG+ueHqo0WKlt4R4bJwai0QEVFlQ23lIro7IeYCUWFWZgOZ4CuCq3BPPdXk9xe+R4LejHMkXpsOuhFS2VjSlo+mokeapPeEczd1Ou99na0IvTXS6X89bkWkzLXOAmu1NJJ0Ey4ure0EBiOeAdzWpBa7eLbAxKvLeEFYNIclkSuQUvpbAqxYgHN03qkyoaG8N3qroP7XoFNNaVunHX8QEeVBUArDexGkjZUDCYCsu+3uQtynqO0o7oWepFDuiVOxPpRVjuttrl2JLt0xUdUHSfHqzEsm76qEcLqXvlzeJgL7YnPiXxFmWLvt61x1UHlC+jsOpq4bpqkWWFTVkAkY7AIsBRtikdCxL1EsgHuBFa7UrBJrQpPYLJcexq8JABAihEKOQBLEqAnVTJnlGd5so2V+1dq/PRJr3zF8cEVQaVNL4e+doxorSLiGIhcjWTdViKNYkmFKJ3PMUk0OksRsdwGPwM3UR+g+Uo1tiDHvB1VaIgzovzLfBAZAK07scuDM+Mr8qCnqvhWAeMud/tn9XErRuKaO0quNpOsSLkaZLUilpmpAQQOgMqmXZlFJWzKUfc+g5RqU9RlVOgClANG0CtBwmAHZnUtm/ltrjZXKtKlZZef+UTzLK+PHtVPwduOVvn4T6lPoliBELcYgYoIxwjgjQDSsovSBfDIeBXAjCQDgJUUYBSQcnLhi4sL5wt3NlR3Pi0J/NVuEKXB8pmCc3sst6A5VEf5RIXHC0t7iCr43WuZ9+mrsOTEVRKwE0AheAAtxIlnkbI3QBU4ocCpSB7AJMyXWESnDZgLAAKYjRojSEXBJADh1yeTE+epsqDVl/0kSXm9JOH6E6vBCN/28DtHFBl4RjLWrl0HnT0vZGfMp4CMFZ4CjIhKHqtZISvHEh5B5QsD7kalCSte11eJpzFY/pcn6DNRgxSmeCh2Qkf1WJnCTKmgBZVcPWu9ibJTbX1Y9el6kLeadD9nK6iRWGDHEZeShPhKAGUAhXfKb4DuKBpTagQridViOqSd0CrfbnBwuQ5rx7Qn3rHCsSgYBjmcb8u9hR0ibxS8N1TRkhQRtCJRQWe3CEPAt99xWpBCA4KIBdI4AQnYHk5ZylOJQqainAYVTtJV1uYNuUAyVzaSFeHDktHlS9joe0cE0qR2GDq73pRJMHFMQacGI9bnsvdX6DFV7FNcztcS0bbEii4EwheoixBSkWZMxdsWytgIYikTXHVMJkCjeKY8hLo4C6kHXrjzfcigBy1tqR/eREHzIeI1/o6Xex6pi3ROthjnBMgaFFWebkg1uVLw6ZjUAY4DfrJiuWxssDjWTMX8s874Al0CJUeb/XkHHvXYlpUdv2CyV4PFFwr6MfypDRUZa5FS2BPSuEIrRq/tZLXWblH0Efk+u0IlgldcKRKB9CWKUoay6ANm4hFCVBiVUnLFfpA5gaWGNBae9feYVsTx4CK0g//0x1ukMbmK56sF/bSJdQ5Jsh/RnUPCpkr5nrGdYvzRji2QPt+PKmjchnbkexKQzWBo4WxZEwlL5VqD5T0C+LG8gvR0B0eKD/wTKRGBcAAqHiPc0cKRuSSisRKjrFZzy+CQYyGVo7WevpWN7aAw/IRBV39SfuavU/i6YsxwYbyZueBAOWTZpI/3VSKdU0RoMTDlCBiS8Mfh6L/G52rqme+5lv7jo+Kf/K0ZbjivbpnKK9yZWmgZecBwTLBPhzlcr/QTzmX4wmNFV2vjCQk1rkp'
    $Bulb2 &= 'XU8aj0bm+iRX1NEudyy3kcvAAyqELMF6KxUAWEIO1hfBTYVj2KC2qyWxqkrAp9a5nJCayOa90GXUpb4LlavrU9NCfbNKwLqVzTRU5K4Rt31PctMBSC3Ys9oi3VmLyH3v5t1WrT7h7+2+QF17rAEB/req9j9fFbrxhKG8mdg6q/L9YMaRtfE9wSZwFmXyDhtdkhTIjeZIvAWGEp45nFnSmy4k0rXfwNzg2gwaLOPkl+B6iJJtJxx1AjmQH8AyXDGekJQETx60Bs7qfRJUxi643haJskLaLC0jMyBYklaZvIuakhRDfUeTvqIZixyA+eB8zvVYM09bTeE0U0E61rX8RhtNPTN/+D905JpzPsk1TzlNlbouUUWE8xzINXD9dCpwHaA2G6HCMgw4x/FXHuDD1SyXC16gMoVJ7Wy0TNzj5WLfcchWbnecBT5Teeio4hptQ5B3czMsYDM4HnKgCKBacMX2OIBDw9rsoIS1DZ+s1O5rwUlNn1IZl2GZIjyw6KIvgRKOInEjKY4mXD8f+CuVelVb6k+arsc0J4Yr5irW9B4ML+o6M3/Y3/xbJy4PBup/jkIOY+9TPT2LVR6ckSv44TyevHXWje44yorF5HxFiUlz3ivrzO79JXT2JgPLU09gtxHStzEHFAfQlABUrs+qxiZs2+qAKkOgNnfOAiUcAk5c8Bxltv2XXE98PDDe4kPrAkfeDRIRD0hl7IGNxkVQipuKGmchr2XJT8JRfKTdS2FRK8dA7qvyR1ww+QeBErC+d/jHVbF4vupGjpYHfzDx9TxldZBZlNNZ1lmYNp6/jOurE89z1DhbPdH+v9IiqP/FSk/e5TiNXV7FpQAMnFTfKJwiYwG6sa6+FcvjHDGHbzz90nIFQJUZvYlW7h5JkHGndoHHDb+WyY37YN6HHDCadiDxPLSktifyGOG/UFGm72Ccpvsf80f+n/PmYvKQQMX/cfhCxNKNqlopqAqeeK4oZRVF3eSjoPZRUMSo2E82NsFkBqRnRsNKI6y3MCti1i44CbnuD935yCslXDIPC5q+V4hb56F7utcgy9mC3Auc1Yikp9cOHAeAsU9z20wN3wkxJ73cOybaRT1GbSnsJdIdBZ6CQnBBIeVQRXCebbWlO8tUl2nds6xt4/Tw4lP+8b6HBZSAdfHaL6li+Fbd0wURzJpT0aU0Yc5FQBP418w8ubNsMiNIVfZWjA/XnrOUg0osc8lLAdR1ksRKFCwOa1tAkltb53RUAa5cfQKWYWFtJMXTLem+ssMvVHrH9yXpnRm6mL3rJleZGUTIjkefgrncLpV6U5MgwapakE4t6E1oLuS2wcDBaErlktLR//Dah8Lj9wLVvvTJhyCE3qVLSOq6Cn7oFGvoofQck9ytj4LO7YLZakPmY6xgEtR8F6xiSqus347uMfRsrVvbYTGbPFCLtC0tw/KdLgkoI6qWngSOwsNtQHfVmiJIbfeRSu/6seR2LmnuqPURYTMz3lnK8AKUlFNiYNuECHdAJS0C1cZZ8irsXQGLWhyr2Dy967jP3rZfQPHTvPTYf0OG+CamYLqIxuTzTp/QXcLANVBn3OSFaOYFcvOeN3wNyHkKPRT6rHIo+GZYmek7HMcj8qnSaoBym+OcLhyTOxoAr8c68FQN6rq4VvSOcFviyi3WdW25nvqs5qD9uFCpAVqnQ8FDaRRDXwIopCgxXI6qwpQGVDjIsauVK7qP/9zLfh8WfxCoxneetRqMd6fKtUs6ZPgMXUUTYOkwBwvznOQqCjBdKWu6wRu+fuW6aY1/4t5PaGXFBdoOn2L12NUCsi7QotZCDtyMhxCKBdvwWOgouGJtk9JtWFT1FKtGf4Ib28bOTDfq15VcPEEpmxVn5BZYIE3Zq46EGOE/iWPrQGrBotCesGzDgYOQfg5ENg6e0fvsL9x6QEDxU7v8+V/QpvZ25Fvw+RgakU86NwOUDnzux5QlMDYTS5qFnyCwnf0F8uil6kmLBBArzrJ69zdhTThf6RDo'
    $Bulb2 &= 'JnBS/DNR6HggwPo4qyIAVb/XyYPeN1q16yKKTQdcO3Jd5JIMWV/jt9k7oho5tGVelxCoKAFQETg9VlGzzSqLDnoW29zACoBYuGzgpC+++g/h8EeBmvru85eBiu608XSvak9Yl7HQDQMohhxEe0CxKeQurEA8CljOIUryhUypjFgHlCFnGWcxuZxOl50Di7oEy5ATXUeAzJ9o5U23oCr1LqufjeXfggM2uHpV5XVW7fkkgNurdL2ubQuCM0r8q7FWrkca5MTcOIXPiTURrHaio1YMNQAqaqe4xx6dHz4ID75chzUdM3TyRXc/IqD4mfjeCz+Ouz3fNlyCanKBqIGgkJN5Q+CMq1lJnwSBKufcuAmOUsaNcZLRe7SmfEH0mV34BjT6RzgX8rfSU7DuMLT3al86ZrfZc3G9DdBP4LHwCcrmn6X06PlKTUNnTSP/ayJitv27L4kDyE0sWaViSUmMCWDGrQSWBGvCt9VF5NsrVK53GC5oPrvwhf967h/D4GEBNXr5C7rRgtuQCqy29RFJIiX4FgJkDDnktExhHEcFpKa8IVjCaQKKFPutG2vAxLUy7MYa9L3Gyhv3Csq7+FzgCDsIWFPnuzSsV612uVj7aljgCTj5KnDUhwHSJORCTdsGhxrGrpogrkfFkMhoH/ZMpXEC6ZWqNkECJ0XNxDJTCasLVWHhQUywdqnUPHHxi76++49h8LDfAN39nVNO1Sb+TtqY1GltrzLQMblSaENYTkig4GqMM4G4oXapYAhXyxmJYuR7GyAJLldYOYTpD4C8X4+GstLJimiPFP8lpZG4GbvBslJkm/BjRoHA7o+CD/CwGkiyG5G4nnW9wlrGZLArikDFqY4TZHVtWlKi2s1EAzBL/isuXo2vXgTQ8J3LXvLVf3447X/YQO287GTciL7cBNFL47HdyMWmdQ58GyKM5+CCATmL2bd2usqEyvXa8GACl4O55dHwLgDR3at07yux/GQ3aldq6LEDihVQBgdm91JYa7jASaCiHcgFr1dqz7UAq45c0fkZB5pKx0ySuH4DuBwCHAJjgnyXFhWrdgMcFRub61+CDGoVO2VuwZN95vI//+bD+qWN/Xr5euslL1iJ8PNrlTR60+m9SE9bClaFDAdWBV6i25HYBazAdXPNCGVaFfVRGdxTRko09Col1U4Z+6l8LclXKqSL3de7WZuKJt13Cn6b/qWy20D40nPlTu7I20rHcOJH9sSwNFpTu5WqVjNSLeTDNl9R5SUHI72sxknbnLDqZd+48eG2fb9f53/gklM+FBbU36S1MXDEiCUF5Yq0KsMhVTYUixJSh2IwLqMw/kVjOgginoIF6qGTpN6lCquku0tG7LE+JdVTNdPTKxxFTozBWURh/FdK7bjJ5d0s+zAxdoYlKY2MEwMvwZrgaqltNmLVnAaJJ4HODy6xpYUrwFfhf65+2Tf+Yn/avf9AfeclVRDUusAkS5KJbaDnusoXjcrnQ47bsCGin7Mslzc7MWp9adi6lCbEuuFnOGCKUMX5QedqujOpTvxw5rbvIgdZh8gFd1ym1PZbZPCdZU0f/GiFzB1HceBKjEgHa9KtZmzrU5GaGmONvaK7Vxxsw0ofpII5bs3Lv/mrRxUofjZd/ooP5orm75LpnUha9yCwMbiF0IjGhqF3QQ6vki5B47R69iM22pP78LGuQlpc4UrHYY/T1OyHk1Flia9IZkBRpJWtGvmpUltuddWKfN5aXERSFBGYLNNpkW2tqbZu1iNbm2ipyfEYudyQ7jtoLfbvugHInrDmpRfv18+OHBBQW37wuiF4yAadTPfE45tUTrcAVCCTABWQzMlV/vcQvNeJ2KSpwV3U4LEuFyssdieVaKfc+y25IXDQbhmrNPNuC8cSsPZVQ+63E5Kiq+B6h2rRjH6SPk0OYImdJGg2IlUba6l6A0plYImqLFoOEg9ee8ipF1+yv20+4B+x2XrNmV8NgviMeOw+ZaJxPFyjc8XA5nLO9QLpgXdFKJ1x'
    $Bulb2 &= 'FF0xdIJTD5wgI9xk4D771Rj1snwnRFSMJ9xYg1zg3j1ixdJULaufag+8ptZ2I/TYtyC5C4c/GZwSfEQiR8oCoGBRbdVqF1VheIU2xZ69SNSXHXLqt5p/MqC2//Sc55kg+WEyuRnqeruka7k8gfIWpZ3rSUojVRjjcr9cHoKzB0CdilxtGxoeydsE2ve7ZUm0+Glg/JtskAu5qiu7xDuggBH1pqZwvAtxHCwmL8+awCawIgIVg8xbAKpRi1US9Klc31IdR8EXD3nlJWcfSHsPGKhdN7ynhMR4W1rb2ptOwv2CWIAK0aiQIl2QkoGfTiZwZQZUdUDp/lehofdDFyEVqT3g3vnloAqmI1KuwUHFHquaY8wbodz7tK1Cd3EI98T3IOZHJdezMiSa3eXgKMmBrSfzGHlzZCkLWJMPygOQDrmTV73s6z/6kwLFz95bP3qNbe1+XjJxvwp1ExgEUjEOg0AGs0hXoMr0lJEatwBVgrv1ngJL2iCVACa5UITu3ZWZ34GaKfEqqaoWkUX1MR9cptQk8sHpKWVbdal3U3DK4IvU/TASNVRMDdVsI7vBPeUXqDTor+G59S865WsH9FNujwiokds+9vcqmXxvMnEvaKShwU/IUgyiv2gp53paZ8U8cIxx3V+saVWfom0Trtfc4XUSu6OavucYx8exe1elUHA9ybmituXlrqd54lfYnuks67rIKQ9Ec6asFAAs5HattuWI5nx5gYrS6s/7n/uvJx5oWx8RUHtu/cjHAtU8P53aCCqpQ0fB9QAUEmTJWpzrzXZYiaDKOie6D4br7LbylpPkaqmG4LHS60MV25p2cqJY8VVSuG6uH67bq9TYnb6sE0rZxqauXwx5nk1oXW2WVWLp4MyDL/OVIbhi6dLi8V997YG29ZEBdcuHPhSaCCp9KyyqDsqiRbmuK+Nfb8l6qNwPtygnoUtD7InRqjliZQg0dRJT/8m9AKbLdZHVxt0gka4eP8JOu5pgoU/ZaArp4Rh8vOgsVKkZoEjrCUsvsKgQuSLFsCr1qLSW/2r4tG+85TEBau8tHzw7MNEXdAtJsm0ogsRx6K7iMvPCYiY4/bu9cLPqSjcewCaZNbkTTu52/JUvugpBDoBVhmRspcp+b4X0latCP+2AQZVdV5rKyuNeT0WR/HBNiIcQVNmdn1fppPmn4OmXvPsxAWr0lvefYoL0Kh2PyYi1IAwsgXLlc93xu5vSFNePFjWU6V4CXVl3w5tnOpLxb3oPUpJe4TA1PeK6x7p6HQzyS5IS0rAd4NRHtSqwJ7trpsIpe0mPC0CS32ZpWg7L4uszad1+PDz+u3/9mAA1dutfrjI6vQ8goZV1bQJfQ5dcL9Az3Wz8pHCtdk1+sEGXYSVsSDbsRwwO4X1qj9VFvrVVRsNGkSsiqS72eGWv3UtAiX/lozUpQMnrKK6CoLOXX5jwmbStTQqgQhD7ON3bnp1/7lVfemyAuundBoBs0TpaBGamArBGOkelJuUGx2Zv77MDsjkhhThD92Jljz3Ps3cBrEdZw2aEU2lz0tWzCpVZi2NvAQdpiA5oa50HULmScp15qXtTgXwmAy/aiJXQWe2mak/wxSB1Stef/fiHjwlQAtaN7/gacvYzjElFfEvHg7cqO9MZmsrY73R6xBUQimV5MUlewfVhkdthcXwZScavyyg45d7H0dnvbjJVidyAe2JlCl1K+bfB3NvmVsSnDDeELtOY0mZdtcbGYzzFNf1/8YsHHjOg9lx35gvgTv8NW9dBsWBNriCdDa6smblWKsOZ46m9lh2RQbGkgq5+uGq+Y3vTvWkgA2dz/veotO+YF7BdVGtOyMs9HPqo82Vcr+zfXLNuxJ2UENoESKetuo2nxlU0OrbN5PPLh1/3K3ug7XzEQG2/+nRkoslvIF4OgzXZoNwNIyi6V0S08UM1Uunrb43uEI4JAGS+b5E2+aIMjhUCbtclyTUswYTs3Sm7cCk/u6YELeaCCaJh0pgC2FVtCiUbFF2N'
    $Bulb2 &= '3bkeOCp1o1UIlK1P2fbYXtUen/7Winf+5vWPpJ2PGCh+Nl7+8temSXyx1BxLXfCGChpacGM6jRtNErcaujGy3VovByrDy+F9FXn/j+SbNKfot1YyHciDoFARoORdugyoqGWbIztUe3pc5av9Ot/dZ8NMkLJ+lSSO7KOmvPQTjY/a9sgInmH8yjXnrrv8MQdq/bf/3ESxvSZNk+eSn/KVKp54l3u3T8ZQQSm3Gqo2spuDJQBaU/UtXakKrCJ4forqk2JZPD5XKAPsbm8piecnKAMk0BPbNwOoKVVZMAwlMQAZ1eVdz8kCjsmkaybTExD9o3C78S2mkF976Ht++4j+DMG8AMXP7d940aooSn+FxHcwhOuFxbI2fJ9PKpBMUtu6PjEGTCJVn5xUg0uX6a7efvEqAtWcGtet2hRSoBwArCJz6ZnpeeYnQRRr1SbsyNatqjHdUAtWLNFdPX02h8AgP1/Aql3ift0H1qRa42O6OTJmdZK88ykfWf+wuqT+JEDx87Mvv/gEtO1KFYSVfLEkXe7OopjRo6H1OrynpSZHRtXAwgW6u7/fstcmiVrIWMb0xJ69ll1f5WpVVXr6EPxyWC4Ix8WtlsY+dmLvmGrW62p4+RLd3dtrQ46wkajK8mYkQw3jqUlkOAB+qv5DUyz92bM+eucj/rsM8woUP5dccOpz8YSvLJVLhUIhBL/nVS40SEpZw0YUQnoxtnu36umt6K5qt5UxsrC4iZERvWf7HptHGlTiT+uFed3T32Mr1W4ZJpQgd2tMT9tmM1KNGoBatlz39PXaHKJsux2piB2eUWTr03U7NjoZTY5O3F/NR8949d/+bHw+2jXvQH38vW84ZOdUad2SxYvNkqWL9erVq9Xqgw4SvdSApuF3q9mUSNaGdU1NTanx8QlM42rvXv5gO7ISuB9pqQrLGhoaUj09vapSqSggL/2GCYAtwuWy5VqtpkZA2rvxALbCNR944AFw3uin//HCf3nffLVr3oF621lvPgZ5xc+XLFlSGB5eYFesWKEWLVqk8vmcjvDE83AVI4NTlW61WnZqalqNj42riYkJXYfF0Tr4KRaLGuBYgtXd3a3K5bIOw3CmYsrjuUy3bjQacjzAsgTpnnvuoTs+60tf/pfrH7dAnXnmmQhcwSaAs3zBggV24cKFauGiYdXX26e7urpssVSSCihzMzTQ7ty5U91///1q+/YdenJyEkohVgSzt7dX83hMnFelUonn9ePWZ+7dctQKJ4CsN23aZG+//Xa1YcOGLQB27UUXXbTfnQh/MqDOOOOMQ9Gg2wEULGoYDR2C+wyq/oEB3VOt2nK5JK6FxulavWFHR0fUju076TYCVLvdlrIxLaqnp8cODuLY/n5alQaAQv5SluBoFSp1gITr0f30LbfcYm+66Sa68b9ceumlb5vPds07UK95zWuegaf7dXDLmoPATYuXLFbgKwGrr89xTd5Hstp0TXhpx44dAGoP3Uc1Wy3J2cg/dLmBgQGZAJqsC4IgA2pmAqgKIKvrrrtO/fKXv7wb+5504YUX7nhcA8XPm9/85kqz2bxm1aqVTyNY4Cs1DDmABltYFRrMlyNSPT1ds7v37Fbbtm5Tu3bt1iB1WFRLbouc1NfXJ65HoOC2wkkyus/fe/brQAQPbqyvvfZae+uttxLUq2DRZ73nPe+ZN7AeFaD4efe7330m3OYrBx20Si1dulQNLRjS/X39ttKN6JUvUIRqRDy7fft2tXHTJoC1HUCNC0cBJAW31QDY4psguXdtZv+Uxz4/o0Tw4LIaFmXvu+8+8hnP8c8417vf//73JwfciEcbqHe9610h3OQiAPWGQw89VC1cOAygFgCoPlsCCCFSG3JMvV6Thq27+261aeMmDdez7Dzt6qooHKvBTWJRsKwHWZSMsJNqnYuCcD3hqFGkLXv27LG4/nngtH/68Ic/PC9/mmnegTrrrLNW4Yl+Czd/3GGHHaaWL1+m0EBoom5alVowtABRrahoOVPI'
    $Bulb2 &= 'xzLts33bDjR2SiIY96dVkZeyictcT1B4LEm/xWHQSSIWRYlA60Tkw2zjMwgYf43P4zfqvfGNb1wMMv8C9M/L6DqDgwOqD1Fr8aJFGprKwrKg1HNsLHRUw47AArZt2wagtkMuNCWKEQxYhAaZWxI1geH+lAd0KwIHK5OoSClB0QqZoe+44w571113bUAgORH77/rEJz5xwPWnRx0ofmBVJYjL21etWnUwibx/oF8NQh4sXLhIXInRq8XcDUnwnr17yE8ESzebrZlwTyAILN0O5xJXozzgsQQH+8zQFCe63o033mjhfiT/3y5btuy14LzffOADH5gXsB41Mj/77LO/ArF5pkgEyAMAJFGMSpsNpYVMI3fbsmWzCM4HHtisxyfGLa2NacvatWv1IYccIvvTvQCWxjH7/jEi/zefaHFjY2NiUZQaBBbX+Apc9Z3vfe9748ctUG9/+9sXgiNuwpNd5lKYhYxiEI4Dkr/RndhgAKU2btyoSOjgFtFCFKNU4rREWIXM08KCwA387xCcci0uk6vIdQRJoujGjdM47jVw0x+8733ve3xa1Otf//ohEO8vMXsQOYoRj8oak0YkA2cNSeOpzKnEMzKn6zGlIQC0OEY5chBFJ4EFgBqgzKQsNCcAYXkubmcKA4Dsvffeeyeu/V7w1rXnnXfevP0xwkdDmfcizH8TlvNiRryBgUFxJYAmnMOUhA1TPimGywiZAyxxRVoHIxg5THHcOiyJvMRcj8BRfDJ/xDll2adDrB7oG264wcKNt8PVX4Z7+PU555wzLxrqUQGKn9e97nUlNPa34JiVRx11lAAVhoFwFIm90tUt12a1gBZFntq6dZsIUIZ9b1UaYAuwtBqAomGpQuaUCZgkCnKe7sfqAfI8e/PNNxPUrQgkr8S6m88999zHp+tlnzPPPPMnRxxxxIlPehL/fMqg6KBuqPIyVHY+l88yfrV58wNq/fr14JVNUpPih+5GTiO3LVq0WHgt01By09ngND8RWFrm3RCudGOkT+S0L2I6B+73+CVzmHw/GnA38q0hRj1WEMhRA4MDiGI9wkFIfMWiNm/erDZsWE8ylxSGlQOCCnA0LElcrbN6QFfkh3Ih4ZsKAJzuumvXLjmeBTxw1RT2PQ2C8+r5atO8A/WOd7xjEBx0KRpxErhkxnX6+nv1gqEhy0Yzd+MgdAKFdEOsCtFKBCetg65E16Or0bq4f1aP4jUSeQcvkZSGoHJiW3AO++tf/3odLOpNSF1uns92zTtQkAb94KcP4ObP6652MxEWoGBdGuQuSS4bxiQ3SVLJzXbs2C5ATYHM2622kDmrAayI0rVI2JVKRTiLFuYrCqLc6ZLkNUZNCk64X4RtZ2H/SyAN5u2PPT8qrve2t73N1Gq1n61cufL4JUuhzAWsHtXb16uqYiFl0UV0GXLLzp27oIP2Su2bYpEWRXBoSUxXCDTrWExf6LZSTvZ6KuMoutz111+v7rzzTh7Tgsu/EVH0svmSCI8amSPnuwhR780k8+HhBcI5LAWzV4Yjh6mDmq2mRY4nonPz5i0S9QgAwaEFskJKCyJAWcoiN+0AEl3F/anMWSFdt26dcBSDBNb/LaztfAD1+C2zvPWtb12Am78NjV18zDHHKC8K4TrdllZCi+CwIKYkO6Gmkb5QVYvgpCvRepjr0dV8x4IITqXcT9qmqXslHVJBzkfXgwtrTJZRD4HhXgD7wo997GN/9C8xPqZAwfXORWMuII8sX75cGs6KJeSBlW6nYkEFJtBpmliG8ulaXdVrNUmKeTzBYvWAQNAFaTWMcuQsWg8/5CwGC/IV94Gb6Xvuucf++Mc/TmGBT0QyvG4+2/SoAAUNFQCorwCcN6ExJF0pvg0ODbKKIIW5XM796jSBIjeNjo5J7seIRgvhvNTQsZ3rCEZWQ2f3F3NBRlQKUIJHlwNInO4/9NBDn/zJT35yv/687mMCFD9wvyLI+mK43alsHFMORik2jCBRWZNjaD2lkgvvAEiG'
    $Bulb2 &= '/fDFSFYXAJJlBCQQjJLM7ei2TIFoUVzm8dzOetRVV101iWP+/POf//zP5rs9jxpQ/Jx++uld4IpvAqSXsQbO3IxulxdCD0UHsdE9PVW1ePES0paNolishK5KIH3nppRRmAtmwPHeKThJ3Fz3wAMP1LD+dHD8lZ/+9KfnLRmeF6AQ2XizQq50F07UP5m7UAKAbItwvy+Dq04nP2VkTkEJd7LFUlHkA3IzDUCl4b4LSqIcXZCiFJPU1OmmXEdO4jK37cUH+58O4K+lVXpXFX7jtWh1sLJHlPM9bKBAjjpTxFkhzU/iJpynLmK5g2DxKRM4gMaOygAy4aPI/c6DpQSMYrQaWhMn5nKsPZF7sjpTVhVg/of0ROpNFKe0LjdeYVwmCNX1uM5p2P93PmFmmmP9wyBY4p4+gc46UOUbPPawwfujQH3wgx9kQ2X8Mr8xGX4DCBn2i5s2AMpQ57A0Mjk5SbHJ0K99FVPAxDazZs2aFx111JM/Y0zQzZSkXC4hCnZLsuxcs9dSjLpIF2icx27ZsiUDSXI5WhOtjt1TmP8FLOotAHvMuzGnlABxwjXkT4BwPe45JWj8M7nK/f6Yzb5ZYb3sssvsAQMFsUYeMXjK8lKZ4t85TJIAAHAKAUA2HwCIADdv+E1QYEmcl4mNIoj8xlM/HKB8CtJgGd0kitoznQfkHL6K79+uEtdj91UQhDLIo1AoSudCsVhiv+B/T0/XPonGTwKI2AOU4PwpJvnGvSfYHgOjBNtigoRleQUCn9TX3Ikha+32pz/9qd1voF7ykpdoWIAhUEYGj6uQ4ODEOT4cTHk0NIcL5gBYyHlMYTYBqCADzX8TKIImf4QBvPWmUql4olvf4hgnWF5bdFKaOgFOcidIhQIjHS2wC5aSm6rXG9/BNa9Do2sApEWg8B1hImAxweEy7j3GFOH+5fe9YfURf4kHy5zkL/PgQ6BSarArr7wy+zsrDx+ol7/85QYEK+9u4qICCCb+gF0BYOUxX8RF8piybwInExqfwxRywnJA0DKQuMx9cZ5uEPuR/f19zwEw/fwbBwwCdNMkceM2GQwAjFgQeC3BtvsA0o0AYjcsZAzfLKc0cH9tANTmNwHCuja2tQESpxZAaeJcnAhYm4ARIZyPvRUJLQ9Apd///vf3GygNoDSAEkviBycXUPBECngARQ9Uid+4IOcL+OaUASUWlgGWuSbXEXDcIMucfThXX6XSdRC4ahUsitpLXJFKnLxDgsY+o1NT0/ehwSNwvRpAGfdATWCqe4BoWW2sb2GdTDi+yYlA4VqNDDRaF1/rokvSwuiG69evJ1Dp/gKVWRQVtlgULpCnu2FTERfJgOqcCh4scclOoGhFmQvSTXEsrbKKqQ/zVWwv8VgI0gWQEEtwr9zGnw6ZgH7ahO2jdCmA1IZl0d0m5gDVysCiJXmgBCRvSQSrgUn+/ActCtcVq9Ly4+sq3bBhQ3rFFVcckOvRokjiAW6KbsecI+ctiq5X8BPn85n7YRLO8gAJSBlQtCgPFMGu4jy92L+C9bSkHKMnIyoaVPDjn1psCCMYgQJIbYDVwPwk1o0DCH7XaUWYyFEEKZrjdgRGvslVOC+5K5LXjxk95CeprfWup/YbqKc+9an6xBNPlKhHsGhZ/P0e7f44ceg5S76xLfQACOETEEZCD5LpnLgf9ifYFexfwXIJ6wsEllqMOi3r/ZVfAHCaiCE+AVARgKKL1bBummSOqeE5KWbU4zfBIpHTcjgBICFxzNPN+J1Y9ycWhchZab344oup0fY/6vFz9tlnMz/jjc/8PQFGQFyMkoHgmWye1sB5Th4Q6ifjczaZzwD0kVPc1QeA0AMp2msuUKwiMPwDpAQTI1uTbkaLoeX4SJcyklEWEAispzyQkEayxjb50SRuU9mfJoQ8oFa78MIL/6jwfFjKnHoqkN8KVvtMmSJXLqEV4ZMJTboQSZkgcZuPZqLJCFamx2h1HkTuJ4qfijwDiqrai0fru6sIGMM+wSBA'
    $Bulb2 &= 'tCKCQeWd+nGesh9zxWw5m3yxT2TIBRdcMH/KvPPD3I59dMrZrPa9ttppn1R1pjhcl6U4ftxANpRQ+2Va3wywHiSVnYtT1oXOdMR3gop1+TqVAMNG+3npoen4Fmv0vTZSe//MZz7z2L1d9VCfM844Q3u1vc/kwezcpj2gM1O2X2ZRGVBZeYWA+REt1neEZt+iu77xjW/M21Cfzs//BcJbzp/WrqFAAAAAAElFTkSuQmCC'
    Local Const $bString = Binary(_WinAPI_Base64Decode($Bulb2))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\bulb1.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_Bulb2

; ==================================================================================================

Func _GUICtrlTrafficLight_Dispose()
    For $i = 0 To 4
        _GDIPlus_BitmapDispose($__g_ahTrafficLightPNG[$i])
    Next
    _GDIPlus_Shutdown()
EndFunc   ;==>_GUICtrlTrafficLight_Dispose

Func _GUICtrlTrafficLight_Create($self, $iLeft, $iTop, $iState = 0)
    Local $idTrafficLight = GUICtrlCreatePic('', $iLeft, $iTop, 102, 118)
    _GUICtrlTrafficLight_SetData(0, $idTrafficLight, $iState)
    Return $idTrafficLight
EndFunc   ;==>_GUICtrlTrafficLight_Create

Func _GUICtrlTrafficLight_SetData($self, $idTrafficLight, $iState)
    If $iState < 0 Then $iState = 0
    If $iState > 4 Then $iState = 4
    Local $hBitmap = _GDIPlus_BitmapCreateFromScan0(102, 118) ; Eine Bitmap erstellen
    Local $hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) ; Graphic-Context der Bitmap holen
    _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $__g_ahTrafficLightPNG[$iState], 0, 0, 102, 118) ; oberer Teil der Batterie
    Local $hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
    _WinAPI_DeleteObject(GUICtrlSendMsg($idTrafficLight, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
    ; und noch aufräumen
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_GraphicsDispose($hGfxCtxt)
    _GDIPlus_BitmapDispose($hBitmap)
EndFunc   ;==>_GUICtrlTrafficLight_SetData

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20

Func _GUICtrlTrafficLight1($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $GUICtrlTrafficLight1
    $GUICtrlTrafficLight1 &= 'iVBORw0KGgoAAAANSUhEUgAAAGYAAAB2CAYAAAA6Ceb5AAAWPklEQVR42u2dC3BU13nHd4UEQkKSESAcBAYhoK5tMGDHPA04wgjHrkvHuC3EoXXcODHYHSedekgy0+COW1fNJCHTMfbQkLqMIS40NjYUkHiUh4l5xMg2RiDxEBYCbBCSkBBCPET//8N+O1fLfZx7d/fubpozc+bu3t2995zvd77vfOfc8+0JBlIvBQcPHjwkMzOTuah79+5DkIuysrKG9OzZE6cyTyDX4lxtRkbGiW7dutX27dv3+KJFi64kuuCuKpnoAuimvLy83hDy0xD6/B49ehQjByD8AI84F8jOzlYZgAIApLJ8Jz09/Twu8SvkNwDoeKLropNSAcyYtLS0BRDyXGSqhBK4ZAqeEHr16qUy4fBIQMzyfcAJBIPBzuvXr2+8evXqkra2tg2A1JnoylmlZAfzKvJCvoBZCkRCkczzAiYnJ0dlIyjRIl6DCWACly9f3gJIsxYsWHAx0ZU0S8kKJg35NeTvhgsaDN4Cw/iegieQ3NzcMBxjFlD8XWdnZ+DSpUuB1tbWPe3t7Y/Mnz+/KdEVjkzJCIbN+j+R50R+AJNmCkXeUzPMwBjPiRZ1dHQELl68SDgHYNZmQHO+SHTFjSkZwfwM+XtWH8IBsNQaZgpdABhh8CgOAn/H68CUBaAx1J7fPffcc19NdMWNKdnAFCIfRc60+5IRjlkWsybmS7SEWbw19jc0j4Rz5coVAnp84cKFaxMtAEmJBNMTuT9br7i3jY2N8yCol3V+TLNGj8yYKWx5LYAEhtGFFi+NgJnY5wDMmvLy8u9hjBS44447JJ+ZN29eRyKEk0gwM5E3GMGI4OKVbty44fidCDATAGZ3IoTjO5iioqL+EFDwyy+/fBCtdJX0E3RhaVYSmahF9957b+Cee+5RYFDO0mXLln0Kk3ejtrb2Sz/L4jeYV4cOHTofZij32rVrB06cODFSNIaC6Nevn8/F6ZqoUTRrw4cPV+V5++23KzHeGQOT14JzS9atW/cDv8riJ5hHkdcBTEskGGoM3NbA/fffr/qHRCWWg3CGDRtmBiYXnz32P0h+lMVPMByXrLQCc+HCBSWMRIIhEHpoNmDmgMvbfpQluGrVqm6wn9/mG/FS6PFIMjvnNmGckL58+fKJBw8enBMvMCwf3V+aIp1O3iw5gbn99ttfu/POOz8z3jNSTtHKiql///7/Hly0aFEmLtSOSl3FUU3qsYJ2WYQg2S6xovX19elVVVWXKioqcmIBhvcU19jMiyMYXF/dm5mwYgGmuLi4Cf1gDu5/3Vj3SPnonLNIJJqBMVhPgslCJdqcYHjJnPY4ffq08raqq6vbACY7WjAEwsEjr8+plttuuy08y8wGw3vSw2tpaQk0NTWpe3NeDAKOGgxc6ZY+ffrkWglaB4YORMgkOzh//vxeGIS16miGm8ypDrjE4UofOXLk0qZNm7K8guE16b3x+/n5+Wq8YTQfZoma88UXXwROnTqlNIhzY3ba4wSmsLCwFQ0hJx5AjO/BIyf4wgsv5EJQF2KpKYRy9uzZLueOHj16eevWrZlewHB8QS3hEeMgpSVWibD4PWlUhEOPDxqrytXW1qa0yguYgoKCtry8vOx4AZEM2eQFn3322Qz2McjdYgGFrZImJPKGx48fv7x9+3bXYChgCCPQu3dvBcVKS0ImIDwPJt+T/oYwjh07Fjh58qQCRXPnFgzM2CW05qx4AQmduw5L01O9e+aZZzhxWOwWgngf8p4Vpm03KwAgdHzwwQc93IKRGeK7777bstNkOWRKh9cLPU4OgyGE0ERl4JNPPlEmtrm5+RbvzQkMGkg77tEzmv5D43fHysrKhqlPnnrqqdU48UTwZvKkKRQszYTVTT///PMru3fv7u4GjEzj33XXXepZi1WSR8vypDJy9jj0xFI5AbwPGogqK7MbMCjLZZQvM16dPtsRjr9ZvHjxk+rd7Nmz/w7CehUnM3S1'
    $GUICtrlTrafficLight1 &= 'Q2w4EyvLitsVDC7z1b1792boghEThrFDYNCgQZZQpP+RZ/0ym8zrCBiBwkxTW1dXF/j0009vMWlOYHDNKwDePY59zFXkHyxZsuSn6pNp06ZlokOtwclC5DRdLaEpoOliZZxuDM/o2v79+9N1wbD1U+CcULTzvvj7yCeWojmES8ELkNATS5U//vhj5aDQpOmCwfGqWeONRR+D1InjKXiNI958883LYaNdWlo6HTfeFKkdVi4zoVCYbJE6Nz5z5sx1CKObLhgKlprCc3YjaePj5MjHyjRnoWf74cyGxMzx1b59+5Q2SV/jBAZ1vYa6pMerj8F9Hl6+fPlmdc5YyenTp6/AF2Yjd7fTFI4FWEkZE5jd3GjqeETr7IT5SNMFw9+MHTtWeWNewNCsEQw7fCMU43HLli1dBp5OYPAZ2FzvFmsgyFeQ/3v16tXfkLJ0AVNSUtIHAtsFQRThbXc7KOELaKoqwRw6dEgLjMx3TZ48WQnejSmTfkae64s3FmnKmPfs2aPMmXhwTmCgfZ0wjWkx7vS5QrQWZZj07rvvnjcFwzRhwoR8HDbjB3dHao5Mb0RC0SnI+fPnb2CQF9QBwzEHhTpp0iQlZBGcWbLq/Kkt1DQZw7Dc4okRCo/sZ+Atqu/rgEEZb+BaQbdAbORCKAdRzunl5eWNxnqZDgwwZuiFlroeL8dLZycrStxoifF9Y2OjGuDpgKHgKKyJEydqPW6WZ/vGxRahlZdK+yhsmiwZ+TPTKThw4EAAWhyeSXACg8alrhEjjaEjsRv569u2bbtl0aHlNOeQIUMyYbN/gx/OAJR0tjrjxZki+xG7AtL7AQgtMHxNgcK0hoVtlyIHmNQWIxjRGnGbZUoG4yrVWOTJqRMYDkxpDmPQx1zD2wqU9wlAMZ1dtZ2zhxudjvHHf6Gws1D5NLdaYnzPDpfTITpgZGb48ccfD7u+duZM7mFcp0xTKN4jtYOZQCh4SRs3bgycO3eOzz+0wHAyVGY2PALhWy5sWA2n5puAcs2yPgHnFBw4cOASVPA7wZvJk12leaKLqtvHwL2ml6i8MtEEnWScxGQiGBn9R6aVK1cq7eJAVgcMB6YEI3UzNgqzcyayuIFylVVVVf2QRbMVulZtkQYMGPB9mIWfBG/eKRhZGLOCGMdDtOs0BbruMiGOGDFCCUnMlJPWuEns89asWaO0RRabO4GhKaZJtgJhc44QOtm4a2trl+mUz9Uzf1RiFi7+a3preJtmV7BIYLTt7Dx1wfA9wY4bN65L/xHtY1tJe/fu5aOIQN++fcPnnMAcP368y8y5JhyaLvYjs6Bxm3XL53oxBuDcD83ZiJfU/3Q7KMYCs+NlpXTB0PywdXL0X1xcHPa2+P3I67tNDQ0NgYqKCuVmGz0+JzAESU1zAGE80n42QNMfBpSDbsroqYaw+wMh3O3QnsEoQDedQhIMhe9mdlk8Kc6Xsa8xLiL3qjn00Njp8xg5Y+0EpqamRkHVNGGcvqmGjEowiHW9WNBz08vPz6fm7AmETJqZlhiPFDIdALfPYzhuYB/AqX9+V563GJ+5uEn79+9Xg0pCiSyzExiOeQjGAkTkOfYpo6BhrjQlajBMGOcwjmUuCtFFQmamjRXmGMAtGHpVhErPCd6hEqgsviAwGeHrpCNHjgTgEanfmk3zOIE5ePBg+JG5AxwOHt+AKf5br7KNCgwGf1NRgG1OUFRJQ9PvXp75i8tLAIWFhcqsycMwao1kGbtEJpl+EYfCCqQTGM4UyAITJziwJg+gvvsSAoZs0Cm3ynUi3WVjkimdaJYvyfQ8tYdurvH5voxdBI7cn243O22dRYBOYPhYmqtuzEBEnLuB32Xj2J4oMBTkaRy+YgeF72UBXrTrymR8xCPNGicuxVuTKDHey7iuTHd1phOYyspKBVqjfzkBC1EUjVyjBoOW+nNUeoJxMGmWIJx8CGx4rJbIEoKdWRLz52bJrBOYzz77jGU+aynMUN1xv504aAVgWV4rSi5u0l8i'
    $GUICtrlTrafficLight1 &= '/zoea5eN2koI8Vq77Ouicj9uEkpxAxOr9P8VzHDkXQDTwyo+hs9Foh3VR5NGjx5tFx/DZwWT1q1bd8SPsvgthZFFRUUvoF/qzse0p06dejqZQ/3Ky8tfhxfGlZdXAOvf1q9ff8CvsvgN5m8A5sdogTnQmGpozAPJHOq3atWqXWhA90DDW0eMGPEytOWXfpXFTzDTkLcCTCvApFSoH8C0AEwOvvI1wNnmR1l87/wBpsUMTDJ3/iEwufjKHIDxp/N/5ZVX0urr679unDuKnEcyThY6xaRYpffee298TU3Nj+IFJp6hfgImPz//H0aOHLlT5zFylGkHwzCyOjo62sxuErnYInL9svF7TunQoUMtmzZtyo0FGN7Xz1A/AVNcXNyIfjA/BosxnIrSU0WUNTc3t1oJ3umRsR1IYwEOHz6sQv2iBZOIUD8B41eoH1J28Mknn8zDm2YnwTtdzAlQdXX1pc2bN2d5BcNrJCrUT8D4FeqHnBOcO3du7/b29kZdzfAK6OjRo+1bt27t6QVMokP9BExBQcHFvLy8XnEEIufygo899hifr14M3kzapsstIMZg7tixI9MtmGQI9RMwPoX6MXgpS72bOXMmn/4UeOlbdAHV1taqUD+3YJIh1E/AILVnZWXFO9SvvqysbJD6pKSkZBsOU3UEb7cs1s6LY6jfhx9+2N0NmGQJ9RMwuP5lXDueoX48rlu8ePGfSETZz9EpLsDJDCvBR6NB/F5dXZ0K9dMFk0yhfgIG1+wA8B5x7GMYJ/PPS5YseVl9Mnny5H6owDEUIEdX6G4BMdTvo48+StcFk0yhfgIGR/6tS7xC/XhsQi5etmxZU9hojx8//ruA81rk4vFYATp9+rQK9dMFk0yhfgIGVoWLwOMV6scYzG++9dZbK9U5YyXHjh27D4UcjYKkR9Pxm30X44nOAwcOpOmC4W+SJdRPwMQx1I/LnXatXr36ISlLFzBjxoz5YwiM/wGZZYTjBIjJqW9iqF9VVZUWmGQL9RMwcBY6Ue5Yh/qxk+PMy1fff//98L4Dt/ifI5HQKv43wEFOKEI3GkDyvYaGBhXqpwMm2UL9BEwcQv2oKQ3IU8vLy7s8GbUK9StGp7k9cHNsY/qnDG5NHBdjc32XDphkC/UTMDEO9aMHVo+307Zv334ysk6W05zDhw8vhPB24MeDgjb/mKELiGAYX6IDJtlC/QRMDEP9GNZ2BMevoQymy6Fs558HDBjQBxWk5vwR+xwdzbACRLeU0yE6YJIt1E/AxCjUj+arEnlGZWXlBcv6BBwSWlMvCGsNKviQVRymDiBxUXX7mGQK9RMwMQj14182rkX+Bv+K0rah6VR28ODBQRT4Dbz8dsAQ5ucGEE0ATYGuu5xMoX4CJopQP9VGkBkquRDm0/ERq6tnoAUFBd/HhX8S+l0wUnvMYDERDjtcxpbogkmmUD8B4zHUT8Vf4vgdeIBa8ZeuwYTgzEKHquIwkdOcCidHejOslC6YZAr1EzCMrxEwmnBU/CVe/yn6py1uyuiphmhlYwCnAjfMFziRhYoUnoT6uZldTpZQPwHjMtSPWsKYjekw4YfcltNz04OgSnHYqAOF7ylkdpxun8ckQ6ifgHEZ6sfDgxj7fOBFvlHZBJiCjShASTAU6mfW1xjB0AFwCyYZQv0EjJtQP+Q1qNOfe5VttDGYM2HSNjhBUSWFu0oHwMsz/0SH+gkYPsMhGLP6mZybgoa4MyFgoDH8f7MGJyg8EgzNUjTLlxIV6idgCNf4J98OcG5DfS843jQeYJggyAYUvI9ZYY0FlmmRaNeVydiIR79C/QQM+ycOfDX6lzNoiAOikWssQv3ewWGKVWHlNQSUgcLGZCUmk5+hfgaNaayvr7fcs9kgg42459MJBeMixW1RubEBxCPULyGLyv24SSj9YbW/i+QnmLHIuwDmilV8TLKG+oXAsMUw1G+/H2XxWwolAPMjgMlCy2yoq6t7VAaNHOEbp+QTkehMjBo1Khzqt2bN'
    $GUICtrlTrafficLight1 &= 'mneam5sLAeYSwPwToLiaVokm+Q1m5tChQ19CRRn60XDy5MlHkzkGU8CgIV0qLi7+1/Xr12+M/i56yW9T9luA6UjR7Ra50G/i2rVrf+9MmW2cfzLHYCYkzp+7uD7//PMjzD6MpZBWrFhRevbs2V+k8h8wZGdnL4CDsF73aarX9OKLL36uQv1wc8vN45h0Q/7s0uHDh1WoXypvt+hXqJ/a1Y+hfk1NTa1uV/rrLj6XFKtd/eR+idhu0ddd/WbPnq1C/eQLkVuUuIFl95uampo2aExKb7dYWFjYgvvlxgOI8b3a1W/OnDldQv3cCNuNNkmoXypvt9i/f/+LaAxxD/VTu/pBY3oBTKuV0K0AuYXldVc/pkTHYPq8qx/rkK3elZaW8s+Ee9vB8apNkiXUL5W3W/RpV7+zZWVl/dUn06dP/xAVGO9W2G60SUL9Unm7RR929eNx8+LFix9W76ZOnboUtvevJVrKTDOi1Sbu6rdnzx7tXf2YkiUG07CrX9xD/fD2F6+//vpLNx9OT5kyDIWvwssMM+F6MV2RsABGhfql8naLPoT6daA+I5YuXVoXtg3jxo37R2jND/GhacSU2U5/bgDBO7peWVmpvatfMsVg+rSrH8MIF65YseKn6pwU6r777ssAmGq8vCMSjm7Hb6dNsOuudvVLphhMH3b1I/Cac+fO3Sub/XTpTUeNGjUVhdyEl7y540albmBJqF8qb7cYp139OLAijMlr164N/7P5LW4OOtpHAOedoGGPmFgAklC/VN5uMQ6hfgzL4KDqkYqKih3Gepn6nyjYZPxgAzJ99vA2JF47fiYJ9Uvl7RZjHOpH83URjbBk586dtzzjsZzmLC4uHo0fcYegPIlgNtMMXUCct8IgM6W3W4xhqB9dwfOQw0MY2x02q5Pt/HNhYeEw/JhxmP2ChghmHdMVmSl4uqmpvN1iDEP9TuGaUzF8qLOqk+ODlIEDBxaiclvxcmjQJLxcFxa1gBVL5e0WYxDqR02pQh1nwEM9a1sfJzBMjMNE4d7Hhaegot2cWogZIJoAzvSm8naL0YT6hcYp62FO58BVt42/1AYTSmkFBQVLcfxWMHRHsxZiBYv2na0zlbdb9Bjqp9oHjj+Do/ESXms9tfMS6vf3MG3/EoITBmSnzky07xRGKm+36GFXP45cuSnpc/X19UvdlM/TKhmYlz/DjfkvQZzQCzpB4ZFgaAZSebtFl6F+1JJ2mNJZGCttclvGaEL9/go3/Q8ds8YkoX6pvN2iy1A/assTGPu866Wc0UaU/Q6H0TIItYLC5HVXv2SIwfSwqx87+l2o0zSvso0KDMYYNGnvOEHhawn1S+XtFt3s6odyz0B9XZuwmICBkL6CApx2giJgvO7ql+gYTA+7+rFs/TB2a0gIGCYIkv9ynufkAMjoO5W3W3Sxq18DGmJUC7FjEer3WxRkgh0UHtniU327RfZPBGNXtlCqwP1KEwrGRYrp5nGJ2G7x93XzuD9st+imTn7cJJQeRN4OMK0puto/B2CmAoznP1Vwk/yOKPsWwLzMP95G51iN8cQDyRyDadw8DmB+DCi/8qssiZNCIDATeUMyx2AiT5g3b97uRJQlkWAmI/9SQv0kOz2tjCbp9D1crB6CwvwXAPNJIoTzf8cJRrK5x67xAAAAAElFTkSuQmCC'
    Local Const $bString = Binary(_WinAPI_Base64Decode($GUICtrlTrafficLight1))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\traffic0.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlTrafficLight1

Func _GUICtrlTrafficLight2($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $GUICtrlTrafficLight2
    $GUICtrlTrafficLight2 &= 'iVBORw0KGgoAAAANSUhEUgAAAGYAAAB2CAYAAAA6Ceb5AAAaz0lEQVR42u2dC3RV1ZnHz01yQ94JgSQIKI8AVREEX4CgoEGD1TrMEmcGaplRp1YezrLOGhdt15pia+uknVa6ZoEuKq1lCXXAIgoDJCDDQypgBQRJSIIEQgCBACEhCXnP/79z9+3J5Tz2Ofep415rr3PPufees/f3O9+3v73P/s72aF++5Bk0aNDgpKQk5iGJiYmDkYekpKQMTk5OxqGk48hVOFbl9XqPx8fHV/Xt2/fYwoULW6NdcEeVjHYBVFNmZmZvCPlJCH1ur1698pE1CF/jFse01NRUkQFIAyCR5W8SEhIu4BS/Q34dgI5Fuy4q6csAZmxcXNw8CHkWMlVCCFxmCp4Q0tLSRCYcbgmIWf4ecDSPx9PZ0dGxqa2tbUljY+NGQOqMduXMUqyDeQV5AT/ALGmBUGTmcQkmPT1dZD0oqUU8BxPAaFevXv0AkKbPmzfvSrQraZRiFUwc8mLkZ/0F9XiugaHfp+AJJCMjww9HnyUo/q+zs1NramrSGhoa9jQ3Nz80d+7cS9GucGCKRTC8rf+APDPwC5g0Qyhyn5phBEZ/TGpRS0uLduXKFcI5BLP2IDTni2hXXJ9iEcyvkb9v9iUcAFOtYabQJQA9DG6lg8D/8TwwZRo0htrzlzlz5twZ7YrrU6yBGYB8FDnJ6kd6OEZZmjVpvqSWMEtvje0NzSPhtLa2EtCjCxYsWBdtAcgUTTDJyHm8e6V7e/HixdkQ1Esqf6ZZo0emzxS2/CwBSRh6F1p6aQTMxDYHYNYWFxd/H30k7YYbbpD5zOzZs1uiIZxogpmGvFEPRgouXKmrq8v2NwFgJgDM7mgIJ+JghgwZkgcBec6ePXsP7tJVEgwbaNkvCVdSATNgwABt8ODBAgx+X7hs2bKDMHldVVVVZyMpp0iDeWXo0KFzYYYy2tvbDx0/fnwUwTD37t1bGzlyZISL0zOxrWEfZ/jw4QLM22+/vR/9nbEwefU4tmT9+vU/iFRZIgnmYeT1AFMfCIaacvnyZe2mm24SkKKVcnNzBZhhw4YZgcmABj3yP0iRKEskwbBfstIKDIURTlNmlwiEWmMBZia4vB2JsnhWrVoVD/v5Xe5IL4Uej0xGx5wm9BMSli9ffvfhw4dnhhoMvSuWTZaP7Qi9LJxfqU3RJzsw/fr1W3zjjTd+Jn9vJKdgZcWUl5f3W8/ChQuTcKJmNHBt2IpBPfr3VpkX1u9bJVa0pqYmobS0tKmkpCQ9FGAII5ltE9zjTpQlHgDSYIISsK3HsTaWD5/bcawZ12cvPxRg8vPzL+Xk5KSjzh36ugfKR+WYSSJRL/pgyQSTAiE12sFwkymQ06dPi05ceXl5I8CkBgtGjhh/o6FBm3Dhgjamrk7Lau35qKUZd+9nmZna3uxs7RM4FWw3GpqahCYFAwaudH2fPn0yzAStAkMFIuqX6pk7d24aOmENKprhJHOoAy6xv9KVlZVNmzdvTnELhlqSSSj4/NTx49qdFy+aS5jlxu9REO0kzr0YfZOz2NYDTmur+fMyOzBwpRuysrLSwwFEvw8e6Z7nnnsuA4K6HEpNIZRz5871OHb06NGrW7duTXIDhmYrBX2d0fjN01VVWgY0wCh5cJ549PS59XQ/f9G6oCXUmHfS0rT1ffpobRB8/RXjkX47MPDaGjMzM1PDBURmyCbT88wzz3jZxiDHhwIKR2wvXbp0zQWPHTt2dfv27Y7BUFPY+ZwNLbkfsM1SPH4Tn56uxQNAHCB6+OyFYGBGuyDsTmhLGbY/69dPq8eNA4E7BgMz1oS7OSVcQHzHOmBpksXe008/zYHDfKcQpPch9xtg9+vr6w0LAAgtH374YS8nYPi/bAj8LrQjcz7/3BwKgCSgLYnPyuqGQ63BeTwoXxe8s05A6MAN04GybcT+H/DbOnxm2+cEDLSlORkpmPZD4X+fFxUVDRPfPPHEE6tx4DFPd3KlKRRs'
    $GUICtrlTrafficLight2 &= 'Y2Oj6UVPnDjRunv37kQnYFLRpmRDY35x8KCWCoGamS9v375aAhp6kQmHWsOOqgSDcrUTBAC3wmH4Cb4rg0ZdxDEnYKAtV1G+pHA1+khd2P5p0aJFj4u9GTNm/CuE9QoOelW1QzoGTBQqTYNVweAyt+3du9erCoYmjEP38ysrtTshUFNtAQhvTk43HGQv4AjNodbAO+uEoKkp7TCv7YDSVlurnYXj8AJ+WwevUW/S7MCgbK1erzcxjG1MG/IPlixZ8ivxzZQpU5LgbVTg4ADkOFUtYQeOpouVsbvwqVOn2vft25egCiYJ2zG40188cUJL0MyTNzf3r5mAkAmImkMHgG1LG0C0nz+vtTGjnWJeAyhvwaRdcQAG2zajmzcUbQxSJ7an4NKPePPNN6/6ezqFhYVTceHNgdph5jITCoVJO61y4TNnznQcOHAgXhUMPBFtzpkzWgHahngzKiibhJKYl6d5mXWgaNL8MOC6c9vq+3wWmjMbAPWjA3ZgUNd21CUhXG0MrvPA8uXLt4hj+npOnTp1BX4wAznRSlPYUWNDLztsRhfXmzpu4T53Hjx4ME4FDM/bibbhtydPav0gOFMwOG8PjSEYn9Z44RrTAehAOWm+pKbo87Mwd8d9j5lVwOA7sOmIDzUQ5Fbkd1avXv1tf9X09SwoKOgDge2C4IZgN9EKyl9lo6aqBFNWVqYEhsLpBRP0BgSapXXPzjBLbPClGRNtDM0YPTRoi2hjYLLace52mjMC0pm0n8IB2I52LCk5WQlMU1NTJ/pEcSFu9NnjrUKbOvHdd9+9YAiGacKECdnYbMEfRgZqDs0Wp/0EQlEpyIULF7rKy8s9KmDo3eUC/qswYwRj9SAgDp6bgAINoZaw4U+Ai82+jPDK0LnswPk6fHDa4AAIQMiLca01nAsAkCpgUMaulpYWj1MgFnIhlMOQx9Ti4uIeQxmGo2kjR45MS0lJ2YCP42VjJ2eUONES/f5FCOVz9EVUwLCDegOciiIIlWDSNOtEKNQSoSnsaMrev6e7g9mJctOkCc2hd4ay0IV+HRr1Fq6ffd11SmBwcwkZhEhj6EjsRv7mtm3brhmKMB3mHDx4cBJ63H/CHx8ElAQOSOpPLu7WgHbEqoB1cHkBQhlMIoS3DO1LJv6bZVVQfseJFdSUzEwtDiYsXvb8qTHs+bODCU0nHGpOh6//wlkfG6Bxef37K4Hh2B9HNkLQxrBTVoK+6mOActWwTlZ3ItzoBPQ//huFnQ5hxjnVEv0+3eqTaMxVTVk92oEVcAAIhtn2uSaH/2WvH+fUj5XB/nRrDc7bqTPFc6Exn0LD+kDjVMDA5fePbLgEwl0ON6zu3bv3dwCl3aw6Kk8wPQMHDlwCt/J7nu7kyq7SYeAjABUwfMj1xRdfaD+FkEZBsASToVpYAvENYtJr02jKYBK7AsbGKJ3JvDbMH6c4qYCprq4WYGTd/NfU1Vd/zEAWXah7UWlp6Q9xyPIpnvKj5f79+78Aj+yXnu4reQILY1QQfX+IWkBToNqPuQSNmYq7fCYEleEDk6JaWIW0F9oyHyaPz/llOe3A0BTTJJuBsDhGCJ28uauqqpaplM/RM/+8vLzpOPkf6a1hN86qYIHA6M2x8VQFI7w/wHwJd2h/tDXpOMYcillnlNIcmL1KTqnNyvIftwNz7NixHiPninConFTX6dC4LapldDwZA3DugOZs0rpNf4IVFH2BOSbFSqmCYY+8CebvRvxvLuBIMPTQvIplNUvvQFMW002mW617Pm8H5ujRo8K7tAGh3/LBUS36KA8AymEnZXQ1SwYN10BUaDuENwgFiFcpJMFQ+E5Gl4WLDs2Zhe8m4v+EkurLbjXnJNqep9HYxxlMLrQDU1FRodWi/6Nowjh8Uw4ZFaBz7XiyoOvpS9nZ2dScPZrPpBlpiX5Ld5sOgNMHZZxQEY/8ApyBPDgChJPiy8kOK8ABpPloU07gGvEG89fswJSVlQkwJiACj7FNGQ0Nc6QpQYNh'
    $GUICtrlTrafficLight2 &= 'Qj+HcSyzUIgeA8BGpo0VZh/AzaNl9t7T4Kk9BqHcCMASTJIv91KoyDloyn9CU0p1rrRTMIcPH/Y/MreBw87j63AU/sWtbIMCAzdzMgqwzQ6KKCmEywbd7WQMTkdio82nmYWw8xnYl1CY+a8EX44LqNhGtCVv9O0rNKbDYs6XHZhDhw75J5jYwYE1uQv1/TgqYMgGvdcGeZ5Ad1mf5JBOMNOXeM4E5HRoz0MQ0AiATgYggvEagKnBeVfCdJWjd9/BjqbNBEA7MJ9++qnoXxmBCDiGbtNVNoXN0QJDQZ7G5jorKNxnp5GVDnZeGc/lRR+EI8deCHsozGMfmLfeOH8iR769Xq0OuTwtTXz24FiL4qxMOzD79+8XnWSF9uU4LMSQYOQaNBi4gq+i0hP0nUmjBNXOBozhoZoi6+l+sKQlMHNfmijOwGQGEGqp3SQ/J2A+++wzltl0qo6sO+SxU+seioseGAfpH5D/+PWkcrX0NRhd+v8KZjjyLoDpZQSGHhtnxkQzjRkzRkS3mYDhzPSJ69evr4xEWSIdUTZqyJAhzwFAIh/Tnjp16kkJhu504AS8SCfeGLfeeqt2yy23CDDFxcWvwQvjzMtWwPqvDRs2HIpUWSIN5p8B5se4A+HxtpdDY+6SMZgURE5OToSL0zPJ2BoZ6rdq1apduIFugYY3jBgx4iVoyxuRKkskwUxB3gowDQBzjSnjcM0dd9wR1TaG5SCcQFMGMPUAwzHU+wFnWyTKEvHGH2DqjcDEcuPvA8NHQjMBJjKN/8svvxxXU1PzTX2omv4zk75RDvxONb333nvjKyoqfhQuMHL+QadCD98s2YHJzs7+91GjRu1UeYwcZNrBMIyUlpaWRqOLBE62CJy/rP+dXSorK6vfvHlzRijAiN6/7y0YRi9sIBg50sCs2sm0A5Ofn38R7WB2CCZj2BUlWUSU1dXVNZgJ3u6RsRVIfQGOHDkiQv2CBUMgnGzOczNuJisry//iBl6fjxfo4fHZPB/MyblwRvEwTsFEKtQPKdXz+OOPZ2Knzk7wdiezA1ReXt60ZcuWFLdgeA56b/w9TIp4tYidWaXmcNCRs1uoQXzsYKU9dmAiFeqHnO6ZNWtW7+bm5ouqmuEW0NGjR5u3bt2a7AaMDMngFv8XWmKWxPiZL8RcTF8CHHp8uDHE6DYnhZhFMduByc3NvZKZmZkWRiDyWKbnkUce4TOnK90zk9RNl1NAjMHcsWNHklMw/C+EIV5pQihmWsJryXPR3MnfyfaGMDgTlHPbCKrNII7TDkyEQv0YvJQi9qZNm8anP7lu2hZVQFVVVSLUzykY+TI4vmfGrNFkueTbm3g+35tj/WAIwfdOMo3PVPiwi9OQAr03OzBIzSkpKeEO9aspKiq6XnxTUFCwDZvJKoK3mhZr5cUx1O+jjz5KdAJGvrHv5ptvFvH9Zkm+RVa+lDTwRXG+l5MKJ4DXwQ0iTBqzEzA4/1WcO5yhftyuX7Ro0bdkRNmraBTn4aDXTPDBaBB/V11dLUL9VMFIE9avXz/t+uuvN4Ui2x/5Wl/54jieR4KRUJjpAHBG5cGDB68xaXZgcM4WAO8VxjaGcTI/X7JkyUvim0mTJuWgAp+jAOmqQncKiKF+n3zySYIqGN79FDgHFK28L/4/8OWkUnNYLjnXgEB8LycV+cCBA2JiRZ0uvtMODLZ8rUu4Qv24vYScv2zZskt+oz1+/PhnAWdx4OTxUAE6ffq0CPVTBUPBUlN4zKoDq39zbOAbZGnOfK/x9Wf2b5j5iPjjjz8W2iTbGjswsCqcBB6uUD/GYH7nrbfeWimO6St52223fYxCjkFBEoJp+I1+i/5E56FDh+JUwfA/KI/wxtyAoVkjGDb4eij67QcffKAUtSzBhDHUj9Oddq1evfo+WZYeYMaOHXsTBMZ3QKbo4dgBYrJrmxjqV1paqgRGjnfBxArBOzFlsp2Rr/CV3ligKWPes2ePMGfSg7MDA2ehE+UOdagfGzmOvNz5'
    $GUICtrlTrafficLight2 &= '/vvv+9cduMb/HIWEu+J/NXZyfBG6wQCSv6utrRWhfipg2OegUCdOnCiEbPVk06zxp7bw2rIPQ5MmPTFC4ZbtDLxF8XsVMGEI9aOm1CJPLi4u7vFk1CzULx+N5natu29j+FIGpyaOk7E5KVsFDAVHYd19991Kb5aVr/HVv1fZt8iC0D4KmyZL9vyZ6RRwAh+nvcqRBDswIQ71owdWg90p27dvPxlYJ9NhzuHDhw+A8Hbgz9d7LN6YoQqIYBhfogKGnylQ9K/8wrZKgR1MaosejNQa6TbLIZndu3eL0QD55NQOTAhD/RgUW4nt/SiD4XQoy/Hn/v3790EFqTnfYJujohlmgOiWcjhEBYwcGX700Uf9rq/dRA1eQ78kCU0hj8mePzOB6N9XtmnTJu38+fMMLVECE6JQP5qv/cgP7t+//7JpfTSbhLspDcJaiwreZxaHqQJIuqiqbcyZM2f4QgjhlUlNUEn6QUwmgpG9/8C0cuVKoV3syKqACUGoH1/ZuA7523wVpeWNplLZQYMGeVDg1/Hxu93XMC6AFSCaAJoCVXeZECEMISRppkI5vYmmde3atUJb5LoydmCCCPUT9wgyQyUXwHzaPmJ19Aw0Nzf3BZz4l77/eQK1xwgWE+GwwWVsiSoY7vN/48aN69F+BPuGVpn27t0rnJG+ffv6j9mBcRnqJ+Ivsf0ePECl+EvHYHxwpqNBFXGYyHF2hZNbejOslCoYmh/enez95+fn+70t/l5/PTeJN0hJSYlws/Uenx2YyspKPxhFOCL+Ep//Bu3TB07K6KqGuMvGAk4JLpgt4QQWKlB4MtTPyeiy9KQ4Xsa2Rr9ejFvNoYfGRp/bwBFrOzAOQ/2oJYzZmAoTXua0nK5vPQiqEJtNKlC4TyGz4XT6PIaaxjaAQ/9yHQC5FImbNmffvn2iU0kogeW0A+Mw1I+be9D3+dCNfIOyCTAFm1CAAo8v1M+ordGDoQPgFAy9Kv6XntPAgQOFQOXkCwKTPXyVRFMEb0j812iYxw6Mk1A/5LWo09+5lW2wMZjTYNI22kERJYW7SgfAzTN/6fISAJcRoVmTD8OoNTLLvktgksMv0qEwA2kHhs9wzvneZKsA517ciDujAgYaw/eb1dpB4ZZgaJaCmb4kh+epPXRz9c/3Zd9FwpHXpttN7yuYiDIJhnD1L/m2gZOF+l62vWg4wDBBkLUoeB+jwuoLLIdFgp1XJvtG3NKsceBSemtyQTheSz+vTHV2ph0Ytk/s+Cq0L2dwI/YPRq6hCPVbg829ZoWVnyEgLwobkpmYTIRgZZak+XMyZVZBYy7W1NSYvoNeJ4NNuOaTUQXjIIVtUrn+BiCEcM1d1iI5qTwSF/Glr2f7O0iRBHMb8i6AaTWLj+FzkWB79cEkhvpZxMfwjmGo375IlCXSUigAmB8BTAruzNrq6uqHZaeRPXyrJUQikehMjB492h/qt3bt2jV1dXUDAKYJYH4GKI6GVYJJkQYzbejQoS+iogz9qD158uTDsRyDKcHgRmrKz8//xYYNGzYFfxW1FGlT9meAaQmMWo7VGMyAqGVO9Lt73bp1XzlTZhnnH8sxmFGJ8+cqrvPnzx9h9GUohbRixYrCc+fO/ebL/AKG1NTUeXAQNoR7rc7nn3/+hAj1w8VNF49jUg35s0pHjhwRoX7hAhPOGEzdqn4RCfUTq/ox1O/SpUsNTmf6q04+lylUq/rJ60UyBjMqq/rNmDFDhPrJHwQuUeIEltV/KioqGqExQYOJRgymblW/elwvIxxA9PtiVb+ZM2f2CPVzImwn2iRD/Vy/4c8TvRhMCSYvL+8Kboawh/qJVf2gMWkA02AmdDNATmG5XdWPKdoxmBFe1Y91SBV7hYWFfJlwbys4brVJZhnq5xRMLMRgRnhVv3NFRUV54pupU6d+hAqMdypsJ9okQ/2cgomFGMwIrurH7ZZFixY9IPYmT568FLb3n2S0lJFmBKtNXNVvz549yqv6McVKDKZuVb+wh/ph'
    $GUICtrlTrafficLight2 &= '9zevvfbai90Pp++9dxgKX4qPXiPhujFdgbAARoT6qYKJpRhMCSYCoX4tqM+IpUuXVvttw7hx434CrfkhvjSMmDJa6c8JIHhHHfv371de1S+WYjAjtKofwwgXrFix4lfimCzU7bff7gWYcny8IRCOasNvpU2w68qr+knzFCsxmBFY1Y/AK86fP3+rXOynR2s6evToySjkZk0sQ2m/UKkTWDLUTxUM/xsrMZhhXtWPHSvCmLRu3Tr/m82vcXPQ0D4EOGs8ujViQgFIhvqproMZSzGYYVzVj2EZ7FQ9VFJSskNfL0P/EwWbhD9sRKbP7l+GxG3DzyRD/VTAxFoMZphW9aP5uoKbsGDnzp3XPOMxHebMz88fgz9xhaBMGcFspBmqgDhuhU6mEphYi8EMw6p+dAUvQA73oW93xKhOluPPAwYMGIY/Mw4zx6OLYFYxXYGZgqebqgIm1mIwQ7yqH0P9TuGck9F9qDark+2DlIEDBw5A5bbi41CPQXi5KixqASumAibWYjBDuKofNaUUdXwQHuo5y/rYgWFiHCYK9z5OfC8qGm93hxgBogngSK9qGxNLMZghWNVP9lM2wJzOhKtuGX+pDMaX4nJzc5di+5THd0WjO8QMFu07705VdzmWYjCDXNVP3B/Y/hqOxota94pctslNqN+/wbT9hw+OH5CVOjPRvlMYqmBiKQYziFX92HPloqRzampqljopn6tZMjAvf4sL8y1BHNDz2EHhlmBoBlTBxFIMpstV/aglzTCl09FX2uy0jMGE+v0jLvp7FbPGJEP9nIwux0oMpstV/agtj6Hv866bcgYbUfYXbMbITqgZFCa3q/rFQgymi1X92NDvQp2muJVtUGDQx6BJW2MHhZ9lqJ9TMLEQg+lmVT+U+0HU17EJCwkYCOk6FOC0HRQJxu2qftGOwXSxqh/LloO+W21UwDBBkHzLeaadAyB738FMX4pWDKaLVf1qcSMGNRE7FKF+f0ZBJlhB4ZZ3fKiWW4x0DKYEw/aJYKzK5ksluF5hVME4SCFdPC6SMZhf9cXjwraqn147wxGD+VUHcw/ydoBp+JLO9k8HmMkA4/qlCk5SpCPKngKYl/jibTSO5ehP3BXLMZj6xeMA5seA8rtIlSV6UtC0acgbYzkGE3nC7Nmzd0ejLNEEMwn5DRnqJ7Pd08pgkkrbw8nqPijMfw8wn0ZDOP8H3n5SskLulIkAAAAASUVORK5CYII='
    Local Const $bString = Binary(_WinAPI_Base64Decode($GUICtrlTrafficLight2))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\traffic1.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlTrafficLight2

Func _GUICtrlTrafficLight3($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $GUICtrlTrafficLight3
    $GUICtrlTrafficLight3 &= 'iVBORw0KGgoAAAANSUhEUgAAAGYAAAB2CAYAAAA6Ceb5AAAfyUlEQVR42u2dC5RUxZnHq18zPc+eGeaBDMpjhKgIolERQVFnFI3GmKNuFqNk1Y0K6m40Zz3GZCMmJoZkk+Duih4ieXjEuGKUCEEeSsBHRFRQHgPDa3gMIDDMDPOe6cfs/1/dNd5pbvet293Tg4l1Tp3bffv2vVXf735ffVW3vlsO8flLjmHDhg33er3MIzIyMoYjj8jOzh6elZWFXd49yLXYV+vxePa4XK7a4uLi3bNmzeoe6ILbquRAF0A3+Xy+Qgj5dgh9ZmZmZgWygPAFt9gncnJyZAYgAUAyq2PcbvcxnOK3yM8A0O6BrotO+jyAOdfpdN4LId+CTJWQAleZgieE3NxcmQmHWwJiVscDjnA4HKFgMLjM7/fPbWtrex2QQgNduVjpZAfzBPLD/ACzJKKhqMz9CkxeXp7MRlBKi3gOJoARnZ2dbwLSDffee2/rQFfSLJ2sYJzITyHf01tQh+MEGMbvFDyB5Ofn98IxZgWK/wuFQqK9vV20tLS839HRcc3MmTMbB7rC0elkBMPb+g/I06J/gEkzhaK+UzPMwBj3KS3q6uoSra2thLMJZu0qaM6nA11xYzoZwfwK+YFYP8IBiKk1zBS6AmCEwa1yEPg/ngemTEBjqD0fzpgx44KBrrgxnWxgypF3InvjHWSEY5aVWVPmS2kJs/LW2N7QPBJOd3c3AV3/8MMPLx5oAag0kGCykMt49yr3tqGhYToE9ZjOn2nW6JEZM4WtPitACobRhVZeGgEzsc0BmEXLly9/AH0kcdppp6l8aPr06V0DIZyBBHM18utGMEpw/ZV6enosj4kCMxFg1g6EcNIOZsSIEWUQkOPw4cOX4C59SYFhA636Jf2VdMCUl5eL4cOHSzA4fur8+fM3wuT11NbWHk6nnNIN5omRI0fOhBnKDwQCm/bs2TOWYJgLCwvFmDFj0lycvoltDfs4o0aNkmBefPHFDejvnAuT14x9c5csWfK9dJUlnWCuRV4CMM3RYKgpx48fF2eeeaaENFCptLRUgjn99NPNwORDg677C1I6ypJOMOyXvBAPDIXRn6bMKhEItSYOmGng8mI6yuJ46aWXXLCf3+YX5aXQ41HJbJ/dhH6C+7nnnrt4y5Yt01INht4Vy6bKx3aEXhbOr9WmGJMVmMGDBz91xhlnbFbHm8kpWVkxlZWV/cYxa9YsL07UgQbOj60c1KN/Hy/zwsbv8RIrWldX566urm5fsWJFXirAEEYW2ya4xyGUxQUAuTBBbmybsc/P8uFzAPs6cH328lMBpqKiorGkpCQPdQ4a6x4tH519MRKJetAHyyKYbAipzQpGIpkCOXjwoOzE1dTUtAFMTrJg1Ijxl1paxMRjx8T4piZR0N33UUsH7t7NPp9YV1QkPoJTwXajpb1dalIyYOBKNw8aNCg/lqB1YOhARP1yHDNnzsxFJ6xFRzPsZA51wCXurfSOHTvaV65cmZ0oGGqJj1Dw+Y49e8QFDQ2xJcxy43gUROzHuZ9C3+Qwts2A090d+3mZFRi40i0FBQV5/QHE+B088hz3339/PgR1PJWaQihHjhzps2/nzp2dq1at8iYChmYrG32dcTjmztpakQ8NMEsOnMeFnj63jvDzF9EDLaHGvJybK5YMGiT8EHxzq/lIvxUYeG1tPp8vp7+AqAzZ+Bx33XWXh20MsisVUDhi29jYeMIFd+/e3blmzRrbYKgp7HxOh5ZcAdixkgvHuPLyhAsAnIDo4LMXgoEZ7YGwQ9CWrdj+ZPBg0YwbBwK3DQZmrB13c3Z/AYnsC8LSZMlvd955JwcOK+xCUN6H+t4Cu9/c3GxaAEDoeueddzLtgOH/iiDwC9GOzNi1KzYUAHGjLXEVFIThUGtwHgfK1wPvLAQIQdwwQZTtdXz/A45twme2fXbAQFs6spCSaT80/rdr9uzZp8tfbr311oXYcaMjnBLSFAq2ra0t5kX3'
    $GUICtrlTrafficLight3 &= '7t3bvXbt2gw7YHLQphRBY36+caPIgUBjmS9PcbFwo6GXmXCoNeyoKjAoV4AgALgbDsOP8NtWaFQD9tkBA23pRPm8/dXoI/Vg+6c5c+bcLL/ddNNN34WwnsBOj652KMeAiUKlaYhXMLjM/nXr1nl0wdCEcej+vh07xAUQaExtAQhPSUkYDrIHcKTmUGvgnYUgaGpKAOY1ACj++npxGI7Dgzi2CV6j0aRZgUHZuj0eT0Y/tjF+5O/NnTv3l/KXyy67zAtvYzt2liM7dbWEHTiaLlbG6sIHDhwIrF+/3q0LxovteNzpD+3dK9widvKUln6WCQiZgKg5dADYtvgBInD0qPAzo51ifgVQnodJa7UBBlu/2c2bijYGKYTtAbj0o3//+9939vZ0pk6dWoULr4zWjlguM6FQmLTTOhc+dOhQ8OOPP3bpgoEnImYcOiQq0Ta4YlFB2RSUjLIy4WE2gKJJ64UB153b7sjnw9Cc6QBoHB2wAoO6BlAXd3+1MbjOlc8999wbcp+xnlVVVQtwwE3IGfE0hR01NvSqw2Z2caOp4xbuc2jjxo1OHTA8bwhtw2/27xeDIbiYYHDePhpDMBGt8cA1pgMQRDlpvpSmGPM9MHd7Io+ZdcDgN7AJulINBLkb+eWFCxd+s7dqxnpWVlYOgsDeheBG4GtGPCifyUZPVQlm69atWmAonEyYoGch0AIRnp0RK7HBV2ZMtjE0Y/TQoC2yjYHJCuDcAZozAjKYtB/DAViDdsyblaUFpr29PYQ+kTPFjT57vLVoUye9+uqrx0zBME2cOLEImzfwhzHRmkOzxWk/0VB0CnLs2LGempoahw4YenelgP9rmDGCifcgwAnPTUKBhlBL2PC74WKzLyO9MnQugzhfMALHDwdAAkJ+Ctd6hXMBAFIHDMrY09XV5bALJI5cCGUL5FG1fPnyPkMZpqNpY8aMyc3Ozl6Kjxepxk7NKLGjJcbvDRDKLvRFdMCwg3oanIrZECrB5Ir4iVCoJVJT2NFUvX9HuIMZQrlp0qTm0DtDWehCPwONeh7XLzrlFC0wuLmkDFKkMXQk1iJ/ZfXq1ScMRcQc5hw+fLgXPe4/4Y9XAYqbA5LGk8u7NaodiVfAJri8AKENJgPCm4/2xYf/FsQrKH/jxApqis8nnDBhLtXzp8aw588OJjSdcKg5wUj/hbM+lkLjyoYM0QLDsT+ObKSgjWGnbAX6qjcCSqdpneLdiXCj3eh//B8KewOE6bSrJcbvdKv3ozHXNWXNaAcWwAEgGGbL55oc/le9fpzTOFYG+xPWGpw3ZDDFM6Exn0DDBkHjdMDA5e8d2UgQCL9yuGFhYWHhbYASiFUdnSeYjqFDh86FW3m3I5wSsqt0GPgIQAcMH3J9+umn4scQ0lgIlmDydQtLIJFBTHptgqYMJrEnamyM0pnCa8P8cYqTDph9+/ZJMKpuvdc01Ne4z0QWPaj77Orq6kewK+5TPO1Hy0OGDHkQHtkvHOErOaILY1YQY3+IWkBToNuPaYTGVOEunwZB5UfAZOsWViOtg7bcB5PH5/yqnFZgaIppkmOBiLOPEEK8uWtra+frlM/WM/+ysrIbcPI/0lvDV2e8gkUDozfHxlMXjPT+APMx3KFD0NbkYR9zKmadUUozYPZ2cEptQUHvfiswu3fv7jNyrgmHykl1vQEa94ZuGW1PxgCc86E5y0TY9LvjQTEWmGNSrJQuGPbI22H+zsD/ZgKOAkMPzaNZ1ljpZWjKU3ST6VYbns9bgdm5c6f0Li1AGLd8cFSPPsqVgLLFThkTmiWDhmsoKrQGwhuGArh0CkkwFL6d0WXpokNzbsFvk/B/QsmJ5EQ1Zz/anjvR2DtNJhdagdm+fbuoR/9H04Rx+KYGMqpE59r2ZMGEpy8VFRVRc94XEZNmpiXGLd1tOgB2H5RxQoUL+UE4A2VwBAgnO5KzbFaAA0j3oU3Zi2u4TOavWYHZunWrBBMDRPQ+tinjoGG2NCVpMEzo5zCO5RYU'
    $GUICtrlTrafficLight3 &= 'os8AsJlpY4XZB0jk0TJ777nw1G6EUM4AYAXGG8mZGhU5Ak35L2hKtcGVtgtmy5YtvY/MLeCw8/gMHIV/S1S2SYGBmzkFBVhtBUWWFMJlg57oZAxOR2KjzaeZU2Hn8/FdQWHmv9yR7Iyq2OtoS54tLpYaE4wz58sKzKZNm3onmFjBgTW5EPX9YEDAkA16ry3qPNHusjGpIZ1kpi/xnG7kPGjPNRDQaIDOAiCC8ZiAqcN5X4DpqkHvPsiOpsUEQCswn3zyiexfmYGI2oduUyebwo6BAkNBHsTmlHhQ+J2dRlY62XllPJcHfRCOHHsg7JEwj4Ng3gpx/gyOfHs8ogm5JjdXfnZgX5fmrEwrMBs2bJCdZI32ZQ8sxIhk5Jo0GLiCv0alJxo7k2YJql0EGKNSNUXWEX6wJNzM/K5MFGdgMgMItdRqkp8dMJs3b2aZY07VUXWHPN4W4aG4gQNjI/0z8h+/mFSul74AY0j/qGBGIb8LMJlmYOixcWbMQKbx48fL6LYYYDgzfdKSJUt2pKMs6Y4oGztixIj7ASCDj2kPHDhwu4ooU2ETsdqotAgD1z777LPF2LFjJZjly5c/DS+MMy+7Aet/li5duiltZUlz3f8VYB7FHQiPN1ADjblQacyQIUMEfktzcfommjHeIKNHj5ZgXnrppXdxA50NDW/BvsegLc+mqyzpBHMZ8ioIvwVgTNuYcePG9WvUslUqKCiQnly0KQOYZoDhGOoVgLM6HWVJe+MPMM2xwJysjX8EDB8JTQOY9DT+jz/+uLOuru4rxlA142cmY6Mc/Ztu+vOf/3zR9u3bv59qMOqBnHF6VUijl2+WrMAUFRX9EO3P2zqPkZNMbzEMI7urq6vN7CLRky2i5y8bj7NKW7dubV65cmV+KsCol/1kedGzd8ruZeSXnt7PDhEQ7R1+OaodPas/UTAVFRUNJSUlRSmYjGFVlCwZUdbU1NQSS/BWj4zjgTQWYNu2bTLUL1kw/D0vL1vkZwfEhLMaxPhRjaKkoEsU5PqFy9kjjrd5RGNLhti82yfe21wkDjVkyWdB7e3Ww1ZWYNIV6oeU47j55pt9+NJkJXirk1kBqqmpaX/jjTeyEwXDc+TnZ8OsZogbLjkgrrv4IEDEkbIjPJS5viZfPLt4hGjvYlRCW1ztsQKTrlA/5DzHLbfcUtjR0dGgqxmJAtq5c2fHqlWrshIBw5f3+PJzRGlhl5jx9V1iWFm7qWD5WMjpzhZOFyf7RSLKekLieEtAzHt1kPh4R54c4e7oMJ3KZQmmtLS01efz5fYjELXP57juuuv4zKnVEU7apssuIMZgvvXWW167YPjfwgKfqLrgsPjGFfuF22XeqDvdOcLlyRcubJ0uLxTGIzVG9NAZ6BKhQIf46wdCzFtUIlpb20yDZK3ApCnUj8FL2fLb1Vdfzac/pYm0LbqAamtrZaifXTCFBXli9Gkd4pHbtolYbSahuDMKkX0SjtOVJRzUGkGNCYpQsBNg2kTAf1ws+ItDLHknXzQ0HD/Bc7MCg9SRnZ3d36F+dbNnzz5V/lJZWbkamyk6go83LTaeF8dQv/feey/DDhj+lp+XKZ64exMaePMwcGqGO7NYeDKLAKZIuCScXFzbK9uZnh6/1Jagv1kEuptEZ1uDeOjJHLH/cLjNsQMGUDpR1v4M9eN2yZw5c76qIsp+Dd//Xuz0xBJ8MhrE4/bt2ydD/XTB8D8+X7745pV7xVUXHhWxEjXE4y1FLgagQRIONYda5ACYUKgbUFpEEFD8XcdEoLNe7NzbJB753xLR0to37t8KDMrWhfYusx/bGMbJ/HTu3LmPyV8mT55cAm9lFwqQpyt0u4AY6vfRRx+5dcFkZHjEqKFd4kd37RaeOIPObm+JyJBgmEvC2gNIBEZtCgXaoSmNwg8g/s6jyEfk9rnX/GLRmnzR1vbZ60yswGDL17r0V6gft43IFfPnz2/stdoXXXTRPYDzVPTk8VQBOnjwoAz10wVDV/j26w6L'
    $GUICtrlTrafficLight3 &= 'aye1iNiDDQ7hySqTUDK82GYpQGUSEj20ALREwug4IrfdnYflds/eY+Lunw7SCvVTYGBVOAm8v0L9GIN52/PPP/9CuGaGdN55532Ago5HQdzJNPxmx3766aehTZs2OXXAhN+e5BdPP3xAnFYWig+GICJwJCDCyYTmQGvoNge6j0vz1d15JKIthBSG863/zBGHG61D/RSYfgz143SndxcuXHj5ZzUzpHPPPfdMCIzvgMw2wrECxGTVNjHUr7q6WgsMheN2tovfPVov4JTFN2VoV5QZ6zVlcARc7ly6a9IjY/sS6GoIm7Kuo+EtNOjRp93inU9yRVZWthaYtra2EMqd6lA/TqPlyMsFr732Wu+6Ayc4oGORcFf8VbCTE4nQTQaQOq6+vl6G+umA4cTAYl+r+O+HWkUhwGTGGaVxAgDbFE9mpPHPLPzMZaZXFvKLIF3lCBxp2rrC7c2TC9xi0eockZdfpAWmH0L9qCn1yFOWL1/e58lorFC/Cr/fv0aE+zamL2Wwa+I4GZuTsnXA8NhhZS3i5w/4pcbkZIk4yfGZlmQU9HpkNGNyhllPAGDgLgdaIprTKL2zUKBVzHvZKf6wxCsGFcePKFNgUhzqRw+sDl8vW7Nmzf4TaxUjjRo1qhzCewt/PtUR540ZuoAobMaX6ILJcjeK38zqkWAK8kTc5HBmyA6mK4M9/zyAyUJ5MmT12MHsQc8/6G+TbnPA3yQBMT0+T4jFb2WJssHlWmBSGOpHH30HtlesXbvWdDpU3PHnIUOGDHK73dScL7HN0dGMWIAY8MNQP11T1tZSL55/IiB8aCqYMy2eBtA1DkOBtri9Qo2VCdnz70buECF/q9Qclf59tkt8sDVPFBcXa4FJUagfzdcG5Ks2bNhwPLYdsEglJSW5ENYieGuXx4rD1AHECnEWo27jz8nbv3igS4we1iN80Jj8HKuSKkCZ4UHMyHMaDmKynSEYQlKJXnLV3V4RcvjkO2t0wKQg1I+vbFyM/E2+ijJuPXQqO2zYMAcK/Aw+fjt8DfMCxANELaAp0O3HHDt2WHzt0k7x9Uq/1BiC8aZwOsDmnU5xx6xsqS3qCa0VmCRC/eS9gMxQyYd37dpl+XjV1jPQ0tLSB3HiX0T+54jWHjNYTITDGEzGluiCIcisjHbx2D3NorggDCYvJ77rbCf94Kls8e4n3l6PTAdMgqF+Mv4S27v37t2rFX9pG0wEzg3oAMo4TIdDPo2KWzi1pTfDSumCkYvvtDWLi8Z2iFu/0ibB5GaHszuxaQe9afWHGeKHz3C1jLw+8xmswOzYsaMXjCYcGX+Jz19D+/SmnTImNGsA6n8uBLcCFyxScKILZSwskwr1szO6HF6yqkPMuLFRjBvtD4PJCrvPiWpOY7ND3PbDYuEPclWMvlFlVmBshvpRSxizUQUTvtVuOROezlFYWDgVm2U6UPidkyLYcNp9HuP3d4kcb7f47i1HRKGvR0LJgTyzvYm1OT94ukis35YFD857QjmtwNgM9ePmEvR93klEvknNs4E3swwFqHREQv3M2hojGLYbdsFwkJFe1dDSLnHj5fWivDQooSgwXhyeoRHG3NnlEPNeLRTL3suF1+Y2ndljBcZOqB/yItTpnxKVbbIxmFfDpL1uBUWWFGaJDkAiz/wJx+lERjs6dcIxcfG4ZpGV2RdMhjts3jgeGaUIYtNOr/jlgjLR1OoSwdCJGq0LZuPGjRKMWf1M9l2KG/HtAQEDjeH7zeqtoHBLMHQAkpm+xPO4nA5xalm7+Oqkw2LwIL/seBKMR4Fxfgano8spFr5ZLN78kC9Z6BHBYGKhfgrMxx9/3Ocl3xZwClDf4yLBlIpQv3oUfJBZYY0F5mRtmrNk55XxnJkZLojZCTe6U4we2oJttyjKByRPj2hp94jjrR5Rsy9X7D6YI4F0detFllmBWb9+PV8hqdO+HMKNOCQZuaYi1O8VbC6NVVj1ORgMelDYlMzEZGIbIReRy3BGnu1HRhpESLDr'
    $GUICtrlTrafficLight3 &= '0O3nM52g9ixMHTDQmIa6urqY76A3yGAZzO/tAwrGRvpiUrmN9AUYQ/pHBXMe8rsA020Ghq40lyCJ5TGlIzHUjyMBMcDwjmGo3/p0lCXdUqgEmO8DTDbuzPp9+/Zdq0L9ODIQbwmRdCTeGAyeYrgfwSxatOiVpqamcoBpB5ifAIqtYZVkUrrBXD1y5MiHUFGGftTv37//WqUxdKftNNT9kagt55xzzglgcCO1V1RU/Hzp0qXLkr+KXkq3KfsbwHRFRy0zUpiCKCkpSWNxTkxqfbMYyy1yot/Fixcv/rszZXHj/PnKrPPPP39AG3+Wg3BOijh/ruJ63333jTb7MZVCWrBgwdQjR448+Xl+AUNOTs69cBCW9vdand/5znf2ylA/XDzm4nFMuiF/8dK2bdtkqF9/gVFlTDT+UgdMukL95Kp+DPVrbGxssTvTX3fyuUqpWtVPXU+tRG4Wfk4w6m1PzLov+jmpVvW76aabZKifOiB6iRI7sOL9Z/v27W3QmKTBEAgnT/CcXLuMsflq8Wxem+Nx9PD47IdPG9V6BGZrktkFU15e3ozr5fcHEON3uarftGnT+oT62RG2HW1SoX4Jv+EP56D3xuOLiork8u5Woe3UHL74jdOOqEHsxMbTHiswZWVlrbgZ+j3UT67qB43JBZiWWEKPBcgurERX9WNSy2Jxiw6q1JJYSb7DLLLML69NOPT4YErlYwc+E4q1kuxJsqof65Ajv02dOpUvEy6MBydRbVJZhfrZBRMOYPLJZeUJJZaWRGyzPBfNnTpOtTeEwdU4OOmQoPwma2meJKv6HZk9e3aZ/KWqquo9VOAiu8K2o00q1M8uGGoK85gxY2J6M7wezZwydTyHmv1CMIRAgVNj+F5LPuzi/DDdGMw0rurH7Rtz5sy5Un6bMmXKPNjef1HRUmaakaw2cVW/999/X3tVPybu54IIZ511lhzHipUIJDc3Vx7Dz0preF02/uHZNp3SCeB1oLnSpDHbAZOOUD98ffLpp59+KPxw+tJLT0fhq/HRYybcRExXNCyAkaF+umCUCRs8eLA49dRTY0JR7Q8BEg63hMPzKDAKCjMdAE515fP7aJNmBSYNoX5dqM/oefPm7eu1DRMmTPgRtOYR/GgaMWW20p8dQPCOghs2bNBe1Y93PwXOAcV43hf/r8ydykpzWE71vmcCYSYMZj6/58SKJsMamwO8qh/DCB9esGDBL+U+Vagvf/nLHoCpwcfTouHoNvzxtAl2XXtVP2WeqCncF+8lQoTA/gyBqK3KNGeEomCoJYfVBPcPPvhAapNqawZwVT8C33706NFz1GI/fVrTcePGTUEhVwq5DKX1QqV2YKlQP10w/O95550nvbFEwNCsEQwbfCMU4/bNN9+0tXJsP63qx44VYUxevHhx75vNT3Bz0NBeAzivOAxrxKQCkAr1010Hk3fx5MmTpeDtmDLVzngj61sqbyzalDHDGZHmzGq2fz+u6sewDHaqrlmxYsVbxnqZ+p8o2GT84XVk+uy9y5Ak2vAzqVA/HTDsc1CokyZNkkKO93bZWI0/tYXXV30YmjTliREKt2xn4MbL43XApDjUj+arFTdh5dtvv33CM56Yw5wVFRXj8SeuEORTEcxmmqELiONW6GRqgaHgKKyLL7641/2Nl3gMgSgoPN4dWfGC2kdh02Spnj8znQIuosD5yGokIY2r+tEVPAY5XI6+3TazOsUdfy4vLz8df2YcZonDEMGsY7qiMwVPN1UHDD9ToJWVlb3CjpeiO5jUFiMYpTXKbVZDMmvXrpWjAerJaZpW9WOo3wGccwq6D/ti1cnyQcrQoUPLUblV+DjSYRJerguLWsCK6YBRI8PXX399r+tr9bJsXkOdi8fSFHKf6vkzE4hxwseyZcsEPCEu76UFJgWhftSUatTxKnioR+LWxwoME+MwUbjXcOJLUVGX1R1iBogmgCO9um0Mp6JWVVVJr0xpgk4yDmIyEYzq/UenF154IfySOp9PC0wy'
    $GUICtrlTrafficLight3 &= 'oX6RfspSmNNpcNXjxl9qg4kkZ2lp6Txs73BErmh2h8SCRfvOu1PXXWY/gy+mppCUmUrlK+bpjCxatEhqC+HogEkw1E/eH9j+Co7GQyK8IpdlSiTU7z9g2n4WgdMLKJ46M9G+Uxi6YPidd/2ECRP6tB86b6zVSevWrZNeogol1wGTwKp+7LlyUdIZdXV18+yUL6FZMjAvX8eF+ZYgDug5rKBwSzA0A7pgaH54PHv/8BB7vS0eb7xOIolRYeg3SDfb6PGleFU/akkHTOkN6CuttFvGZEL9voWL/k7HrDGpUD87o8vKk+J4GdsadSxzoppDD42NPrfRI9YpXtWP2nIj+j6vJlLOZCPKPsRmvOqExoLClOiqfmyb2AZw6F9Np+UxxmcudhJjXNipNJsnncJV/djQv4s6XZaobJMCgz4GTdorVlD4WYX62QVDr4qaQ88JrrsUqJp8QWCqh6+TGA5eXV0t/2s2zJPKVf1Q7qtQX9smLCVgIKRTUICDVlAUmERX9VMuLwGg0yvNmnoYRq1RWfVdopMaflEORSyQKVzVj2UrQd+tfkDAMEGQfMu5z8oBUL3vZKYvqeF5ag/dXOPzfdV3UXDUdel205tK86p+9bgRk5qInYpQv7+hIBPjQeGWd3yqlltUHViaNQ5cKm+NUHgd3gTGeWW6szOtwLB9Iph4ZYukFbje1AEFYyOldPE4QohnlpT5szNl9h918bh+W9XPqJ3yhQ39NHf57xXMJchrAKblczrbPw9gpgBMwi9VsJPSHVF2B8A8xhdvo3GsQX/iQmN8DJ+LJNurTyYxBtMYH2NcPA5gHgWU36arLAMnBSGuRn79ZI7BRJ44ffr0tQNRloEEMxn5WRXqp3J/ruqn0/ZwsnoECvM3AOaTgRDO/wONCU6yDCUBawAAAABJRU5ErkJggg=='
    Local Const $bString = Binary(_WinAPI_Base64Decode($GUICtrlTrafficLight3))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\traffic2.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlTrafficLight3

Func _GUICtrlTrafficLight4($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $GUICtrlTrafficLight4
    $GUICtrlTrafficLight4 &= 'iVBORw0KGgoAAAANSUhEUgAAAGYAAAB2CAYAAAA6Ceb5AAAbJklEQVR42u2dCZRU1ZnHb1VXVVfvdNOLoVGEFiajgkiMrIoKCkmMIUecDEbJaCYaMc7E5IyHmEzEHBOHeExwZgQPCVk4YhxIlAhB9gBKBFFQ2ddmaRCaprvp7uru6upl/v9bdcvXxau31NqV5Dvnnlf1ann33t/7vvvd5XvXITJPHIMGDbrS6/UyDfZ4PFciDc7Nzb0yJycHp7zHkapxrtrtdh/PysqqLi0tPTZnzpyOdGfcViHTnQGrUlRUVIxKfgCVPis7O7sKSaDyBY84J/Ly8mQCIAFAMqnvuFyuC/iLXyG9BEDH0l0WK5IJYK53Op2PopLvRaJKyApXiRVPCPn5+TIRDo8ExKS+DzjC4XB0d3V1rQ4EAvN9Pt+bgNSd7sJFk74O5lmk2XwBsyQioajE8wpMQUGBTFpQSov4HxSAEe3t7RsAadqjjz7aku5C6klfBeNEehHpm+GMOhyXwNC+Z8UTSGFhYRiONilQ/F13d7dobW0Vzc3N29va2j43a9ashnQXOFL6Ihje1r9FmhH5AUyaLhT1npqhB0Z7TmmR3+8XLS0thLMbZu0OaM7ZdBdcK30RzM+QHo/2IRyAqFrDxEpXALQweFQOAn/H/4EpE9AYas97jzzyyGfTXXCt9DUwlUhHkLxGX9LC0UvKrCnzpbSESXlrbG9oHgmno6ODgO6aPXv2inRXgJJ0gslBquDdq9zb+vr6maiop638mGaNHpk2sbLVawVIwdC60MpLI2AK2xyAWb5mzZrH0UcSV1xxhUofz5w505+OykknmKlIb2rBqIpLlvT09Jh+JwLMWIDZlo7KSTmYwYMHV6CCHOfOnbsJd+lS1U7QhaVZSadQi6677jpx7bXXSjDI55RFixZ9BJPXU11dfS6VeUk1mGeHDBkyC2aosLOzc/fx48eHK41hRZSVlaU4O72FGkWzNnToUJmfV199dRf6O9fD5DXh3PyVK1d+L1V5SSWYLyCtBJimSDDUGLit4oYbbpDtQ7qE+SCcq666Sg9MIT6780+QVOQllWDYL3klGpiLFy/KykgnGAKhh2YAZga4vJqKvDiWLl2aBfv5Db5RXgo9HiV65+wK+gmuxYsXj9u7d++MZIFh/uj+0hRZaeT1xAzMZZdd9uKnP/3pPdprRtZTvHVFqaio+IVjzpw5XvxRGwoVwFEO6rGARklVgkpGwoLW1NS49u3b17p27dqCRIDhNZVrrOfFEQz+X16bibASAaaqqqoB7WABrt+lLXtk/Vg5F0VI1I0+WA7B5KIQPjMYsSQOe5w5c0Z6WwcPHvQBTF68YAiEnUf+P4da+vXrFx5l5g3Da9LDa2pqEg0NDfLaHBdDBccNBq50U//+/QujVbQVGFYgok7yHLNmzcpHJ6zZimbYSRzqgEscLvThw4db161blxsrGP4nvTd+v6SkRPY3tOZDT6g5Z8+eFadPn5YaxLExI+0xA1NZWdmMG6EgGUC078GjwPHYY48VoqIuJlJTCKW2trbXuSNHjrRv3LjRGwsY9i+oJTyiHyS1JJoQFr+nbirCoccHjZX58vl8UqtiAVNeXu4rKirKSxYQlVA3RY6HHnrIzTYGKSsRUHhX0oREXvDYsWPtmzdvtg2GFYzKEMXFxRJKNC0JmYDwOJj6nmpvCOPo0aPi1KlTEhTNnV0wMGOtuJtzkwUkdK4LliZHvvv617/OgcMquxCU96Hes8C07XoZAAT/22+/nW0XjBohvuaaa6I2msyHGtLh/4Wmk8NgCCE0UCk+/PBDaWIbGxsv8d7MwOAGacM1cuJpPyz87ujcuXOvkp/cd999y3DibkdQYtIUVizNRLSLnjhxomPbtm0eO2DUMP7VV18t51qiiZpaVjOVkaPHoRlL6QTwOrhBZF6Z7IBBXtqRP2+yGn3eRzj+Yd68effId9OnT/8uKutZnHRb1Q5lwyksLAtulDG4zIF3'
    $GUICtrlTrafficLight4 &= '333XbRWMMmHoO4jLL788KhTV/qi5fjWazP9RYBQUJprakydPio8++ugSk2YGBv/ZAeCeJLYxAaTvzZ8//3n5yS233OJFg3oIJyuRnFa1hKaApouFMbswPKPOnTt3uqyC4d3PCueAopH3xd9HzlgqzSFcVrwCEpqxlOmDDz6QDgpNmlUwOAb0bt5EtDGQbhxPw2sc9pvf/KY9bLSnTJkyGRdeF6kd0VxmQmFl8o60cuGPP/64C5WRZRUMK5aawnNGPWntdHLktDLNWWhuP5x4IzGxf7Vjxw6pTaqtMQODsnaiLK5ktTG4zu2LFy9eL89pCzl58uQl+MJ0JI+RprAvwEKqPoHexbWmjkfcnd0wH06rYPibUaNGSW8sFjA0awTDBl8LRXvcsGFDr46nGRh8BjZdWYkGgtSB9Ptly5Z9VeWlF5hJkyb1R4VtRUUMxluPEZTwH1hUVYLZv3+/JTBqvGvChAmy4u2YMtXOqHl95Y1FmjKm7du3S3OmPDgzMNC+bphGZ4Ibfa4QrUYexr/++usXdMFQxo4dW4LDevzgmkjNUcMbkVCsZOTChQs96OQ5rIBhn4OVOn78eFnJquL0JFrjT22hpqk+DPOtPDFC4ZHtDLxF+X0rYJDHHvyXwy4Qg3ohlL3I5+Q1a9bUa8ul2zFAnyEfd+oqvByjGju1osSOlmjf19fXyw6eFTCsOFbWuHHjLE03q7l97WKL0MpLqX2sbJos1fNnolOwe/duAS0OjySYgcHNJf8jQRpDR2Ib0uc3bdp0yaLDqMOcV155pRc2+w/44R2A4uJdp/1zSmQ7YpRBej8AYQkMX7NCYVrDlW0kkR1MaosWjNIa5TarIRn0q+TNomZOzcCwY0pzmIA2phNv1yK/dwOK7uiq4Zg93GgX+h//h8xOQ+GddrVE+54NLodDrIBRI8N33XVX2PU1MmfqGtp1yjSFynukdjARCCteyerVq8X58+c5/2EJDAdD1chGjED4lgsblsGpuR9QOqOWR5iLY+DAgfNRwIcdQYnJrtI80UW12sbAvaaXKL0ypQlWRDuISSEY1fuPlFdeeUVqFzuyVsCwY0owqmzam0LvnE5d9CBfc/ft2/cks2ZY6ZZKCxkwYMB3YBaecwSv5IjMjF5GtP0h2nWaAqvuMiEOGzZMVpIyU2ZaY0fY5i1fvlxqi1psbgaGppgmORoIg3OE0M2bu7q6epGV/Nma80chpuHPf0dvDW+dRhmLBEbbzsbTKhi+J9jRo0f3aj/inbZV8u6773IqQpSWlobPmYE5duxYr5Fzi3BoutiOTIPGrbeaP9uLMQDnBmjOaryk/ruMoGgzzIaXhbIKhuaHdyd7/1VVVWFvi9+P/H+7UldXJ9auXSvdbK3HZwaGIKlpJiC0R9rPOmj67YCy104eYyoh7P5AVO5maM8gZCDLSiYJhpVvZ3RZeVIcL2Nbo11EHqvm0ENjo89j5Ii1GZhDhw5JqBZNGIdvDqKOJqETa3uxYMy3XklJCTVnuwiZND0t0R5ZyXQA7M7HsN/ANoBD//yumm/RzrnYkZ07d8pOJaFE5tkMDPs8BBMFROQ5tikjoGG2NCVuMBT0cxjHci8y0auG9EwbC8w+gF0w9KoIlZ4TvENZoWrxBYGpHr4VOXz4sIBHJH+rN8xjBmbv3r3hKXMTOOw8vgRT/G+x1m1cYND5m4gMbDKDInMaGn6PZc5fubwEUFlZKc2amgyj1qik+i6RooZflEMRDaQZGI4UqAUmZnBgTW5EeXekBQzZoFFuVv8T6S5rRQ3pxLN8SQ3PU3vo5mrn91XfRcFR16fbzUbbyiJAMzCcluaqGz0QEed68Ls8HNvSBYYVeQaHTxlB4Xu1AC/edWWqf8QjzRoHLpW3pqLEeC3tujKrqzPNwOzatUuCttC+HIeFGBxPvcYNBnfqz1HosdrOpJ6gckpQYUMTtUSWEIzMkjJ/dpbMmoHZs2cP81wbtTJDZcf13sLBUgBW1P+Kk4sd+Wek'
    $GUICtrlTrafficLight4 &= '3yVj7bJWWwkhWWuXU7qoPBUXCUnSwCRK/lbBDEXaCjDZ0eJjOC8Sb68+Hhk5cqRRfAznCsavXLnycCrykupaGD548ODH0C55OE17+vTpB1SnkQ02KyWdYHhtjjIMHz5cglmzZs0CeGFcedkBWP+zatWq3SnLS4rL/q8A8xTuwAKAOAiNuVFpzIABA+QS2HQKzRhvEI5qE8zSpUu34ga6FhrejHNPQ1t+maq8pBLMLUgbUfnNAKPbxowYMSKpUctmQlNKTy7SlAFME8AU4Cu3Ac6mVOQl5Y0/wDRFA9NXG/8QmEJ8ZQbApKbxf+aZZ5w1NTWf144dRY4jaQcLzWJSoskf//jHMYcOHfp+osFoO5xqjj/WcD8zMCUlJT9E+/OWlWnkOGULwzBy/X6/T+8ikYstItcva79nJvv3729at25dYSLAqIf95HjdwuHkTaMqoif82iE6RWtbcJ7f6vMDzMBUVVXVl5WVlSRgMYZZVnJkRFljY2NztIo3mzI2AqnNwIEDB2SoX7xg+HlBQa4ozO0Uo6+uFyOHNoiyfn7RLz8gspw94qLPLRqaPWLPsSLxzp4S8XF9Tmh1jPmwlRmYVIX6QfIc99xzTxHeNJpVvNmfmQE6ePBg6/r163NjBcP/KCzMhVn1iGk3nRZ3jjsDEAa17HBKvdl5sFD8csVg0erndLXPUHvMwKQq1A+pwHHvvfcWt7W11VvVjFgBHTlypG3jxo05sYCRK1kK80R5sV888uWjYlBFq27FclrI6coVzqxsvHbzBNqabnGxuVMsfL2/+OBwgRzhbmvTD5Q1A1NeXt5SVFSUn0Qg6lyR48477+T8aosjKJZNl11AjMHcsmWL1y4Y/ra4X5GY/Nlz4iu3nRKuLP1G3enKE1nuQpGFozPLC4VxS40RPXQG/KK7s038eYcQC5eXiZYWX6/1ZVbBpCjUj8FLufLd1KlTOftTHkvbYhVQdXW1DPWzC6a4X4EYdkWbePL+AyJam0koLk8xUpGE48zKEQ5qjaDGdInurnaA8YnOwEWx5E8OsfLtQlFff9FyqJ8CA2nLzc1Ndqhfzdy5cy+Xn0yaNGkTDhOtVLzRslgjL46hfu+8847HDhh+VliQLZ59eDcaeP3HJlMzXNmlwp1dAjAlIkvCyce1vbKd6ekJSG3pCjSJzo5G0e6rF0+8kCdOnQu2OXbAAEo78prMUD8eV86bN++LKqLs5/D9H8VJd7SKj0eD+L2TJ0/KUD+rYIKhfoXiq7efEHfceF5EE2qI21uOVApA/SUcag61yAEw3d0dgNIsugAl4L8gOtvrxJETjeLJ/y0TzS2tvUyaGRjkzY/2LjuJbQzjZH4yf/78p+UnEyZMKIO3chQZKLBa6XYBMdTv/fffd1kF4/G4xdCBfvGjh44Jt8FiGJe3THgkGKayoPYAEoFRm7o7W6EpDSIAIIH280i18rj4jYBYvrlQ+HyfxPybgcGRj3VJVqgfjw1IVYsWLWoIW+0xY8Z8E3BejFw8nihAZ86ckaF+VsHQFX7gznPiC+ObRfTBBodw51RIKB4vjjkKUIWERA+tE1oiYbTVymNH+zl5PH7ignj4J/17tTNmYGBVuAg8WaF+jMG8/+WXX34lWDKNjBo1agcyOhIZccXT8Ot99+zZs927d+92WgETDJ0IiAWzT4srKrqNwRBECI4ERDjZ0BxoDd3mzo6L0nx1tNeGtIWQgnC+9p954lyDNzzMZAYmiaF+XO60ddmyZbd+UjKNXH/99f+ICuMzIHO1cMwAUczaJob67du3zxIYVo7L2Sp+/VSdgFNmbMrQrigzFjZlcASyXPl016RHxval018fNGX+88EjNOipBS7x9of5Iicn1xIYn8/XjXwnOtSPy2g58vLZN954I7zvwCUO6HAI7oo/C3ZyQhG68QBS36urq5OhflbAcGFgaVGL+O8nWkQxwGQbjNI4AYBtijs71PhnF3/iMtMr6w6ILrrKITjStPmD7c0LS1xi+aY8'
    $GUICtrlTrafficLight4 &= 'UVBYYglMEkL9qCl1SBPXrFnTa2Y0WqhfVSAQ2CyCfRvdhzLYNXFcjM31XVbA8LuDKprFTx8PSI3JMwwoc3yiJZ5+YY+MZkw+/qunE2DgLnc2hzSnQXpn3Z0tYuHvneK3K72if+kAS2ASHOpHD6wGb2/ZvHnzqUtLFUWGDh1aicrbgh9f7jB4YoZVQKxsxpdYBZPjahC/mNMjwfQrEIbicHpkBzPLw55/AcDw4QseWTx2MHvQ8+8K+KTb3BlolIAozywUYsWWHFFxWaUlMAkM9aOPfhjH27Zt26a7HMpw/HnAgAH9XS4XNecf2OZY0YxogBhSwVA/q6bM11wnXn62UxShqWDKNpkNoGschAJtcTFUIzhWJmTPvwOpTXQHWqTmKPn3uVlix/6CcIyMGZgEhfrRfO1CumPXrl0Xo9sBEykrK8tHZS2Ht3ZrtDhMK4DU0yisNv5cvP3c434xbFCPKILGFOaZ5VQByg4OYobmaTiIyXaGYAhJCb3kyQ97RbejSMbJWAGTgFA/PrJxBdJX+ShKw3JYKeygQYMcyPBLePmN4DX0M2AEiFpAU2C1H3PhwjnxpZvbxZcnBaTGEIw3gcsB9hxxigfn5EptMXsAgwITR6ifvBeQGCo5++jRo6bTq7bmQMvLy7+DP34u9DtHpPbowaIQDlfcM7bEKhiCzPG0iqe/2SRK+wXBFOQZu8525Acv5oqtH3rDHpkVMDGG+sn4SxwfPnHihKX4S9tgQnCmoQMo4zAdDjkbZZg5daQ3w0JZBSM33/E1iTHD28R9n/dJMPm5weSKbdlBWDa95xE/fImPNynotZ7BDAzjaxQYi3Bk/CVefwnt0wY7eYxp1QDU/3pU3FpcsETBicyUNrMUFepnZ3Q5+AC4NvHI3Q1ixLBAEExO0H2OVXMamhzi/h+WikAXQwZ7h6ibgbEZ6kctYczGZJjw/XbzGfNyjuLi4ik4rLYChe+5KIINp935mEDAL/K8HeK799aK4qIeCSUP9Znrja3N+cGCErHzQA48uEuDbM3A2Az14+Em9H3ejqV+41pnA29mNTIwyREK9dNra7Rg2G7YBSNX78OrGljuF3ffWicqy7skFAXGi6973OZ5bfc7xMLXi8Xqd/Lhtbl0V/aYgbET6oe0HGX6p1jrNt4YzKkwaW+aQZE5hVmiAxDLnD/hOJ1IaEenjL4gxo1oEjnZvcF4XEHzxvHICEUQu494xfNLKkRjS5bo6r5Uo62C4eMaCUavfDrnbsaN+FZawEBj+HyzOjMoPBIMHYB4li/xf7KcDnF5Rav44vhz4rL+AdnxJBi3AuP8BE6b3ymWbSgVG97j05UYyGTspZqBYRyn9iHfJnD6obwXRYySiFC/OmS8v15mtRlWT0CKd10Z/zPbk4VqdsKNbhfDBjbj2CFKCgHJ3SOaW93iYotbHDyZL46dyZNA/B1dlp7vbwaGoeh8xo2F9uVj3IgD4qnXRIT6vYbDzdEyq153dXW5kdmErMSkqEDYbI8zNLcfGmkQ3YJdh44A53S6bO3iZEFj6mtqaqLu2aypg9Uwvw+kFYwN+fuichvydzAa+VsFMwppK8B06IGhK633GJFUCkP9OBIQBQzvGIb67UxFXlJdC5MA5vsAk4s7s+7kyZNf6Mu7+i1fvvy1xsbGSoBpBZgfA4qtYZV4JNVgpg4ZMuQJFJShH3WnTp3KCDC4kVqrqqp+umrVqtXxX8WapNqU/QVg/Bm63SIX+o1bsWLFX50pM4zzz5DtFlMX589dXL/1rW8N0/swkZW0ZMmSKbW1tS9k8gMY8vLyHoWDsMrqg1NjlW9/+9snZKgfLh518ziK1ZA/Izlw4IAM9cvk7RZTFeond/VjqF9DQ0Oz3ZX+VhefK0nUrn7qeunYbjGlu/pNnz5dhvqpL0RuUWIHltFvDh065IPGZPR2i5WVlU24XmEygGjfy139ZsyY0SvUz05l29EmFeqXydstVlRUtOBmSHqon9zVDxqTDzDN0So9'
    $GUICtrlTrafficLight4 &= 'GiC7sGLd1Y/SV7ZbTFGoH8uQJ99NmTKFDxMuNoITqzappEL9Mnm7xRTt6lc7d+7cCvnJ5MmT30EBxtitbDvapEL9Mnm7xRTs6sfj+nnz5t0u302cOHEhbO+/qGgpPc2IV5u4q9/27dst7+pH6WvbLaYi1A9vX1iwYMETwcnpm2++Cpnfh5duvcqNxXRFwgIYGeqXydstpiDUz4/yDFu4cOHJsG0YPXr0j6A1T+JD3YgpvZ3+7ACCd9S1a9cuy7v69cXtFpO8qx/DCGcvWbLkeXlOZeozn/mMG2AO4uUVkXCsNvxG2gS7bmtXv7643WISQ/0I/ND58+evU5v99GpNR4wYMRGZXIeXvLjpRqV2YKlQv0zebjFJu/qxY0UYE1asWBF+svklbg4a2s8BzmsOzR4xiQCkQv0yebvFJIT6MSyDnarPrV27dou2XLr+JzI2AT94E4k+e3gbklgbfooK9cvk7RYTHOpH89WCm3DSW2+9dckcT9RhzqqqqpH4EXcIKlIRzHqaYRUQx63Qyczo7RYTGOpHV/AC6uFW9O0O6JXJcPy5srLyKvyYcZhlDk0EsxXTFZlY8XRTM3m7xQSG+p3Gf05E9+FktDKZTqQMHDiwEoXbiJdDHDrh5VZhUQtYsEzebjEBoX7UlH0o4x3wUGsNy2MGhsI4TGTuDfzxzSholtkdogeIJoAjvZm83WI8oX6hfsoqmNMZcNUN4y8tgwmJs7y8fCGODzpCV9S7Q6LBon3n3ZnJ2y3GGOon7w8cfwZH4wm8tjRrF0uo33/AtP1XCE4YkJE6U2jfWRmZvN1iDLv6sefKTUkfqampWWgnfzGtkoF5+TIuzKcEcUDPYQaFR4KhGcjk7RZthvpRS9pgSqehr7TObh7jCfX7Gi76aytmjaJC/TJ5u0WboX7UlrvR93k9lnzGG1H2Hg4jVSc0GhRKrLv69aXtFm2E+rGh34oy3RJr3cYFBn0MmrTXzKDwtQr1y+TtFu3s6od834Hy2jZhCQGDSvoUMnDGDIoCE+uufn1lu0Ubu/oxb2Xou9WlBQwFFcmnnBeZOQCq953J2y3a2NWvDjdiXAuxExHq9xdkZKwRFB55x2f6dotsnwjGKG8hWYvrTUkrGBuS0M3j0rHd4l/r5nF/327RTplScZGQ3IS0GWCaM3S1fwHATASYmB+qYEdSHVH2IMA8zQdvo3E8iP7Ejdr4mL623aJ28ziAeQpQfpWqvKSvFoSYivSm6jSyh6+3Q0Uqhc4EN7BToX5IY2fOnLktHXlJJ5gJSL9UoX4qJXNXPyttDxerh6AwfQVgPkxH5fw/fRRCsjYVZ88AAAAASUVORK5CYII='
    Local Const $bString = Binary(_WinAPI_Base64Decode($GUICtrlTrafficLight4))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\traffic3.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlTrafficLight4

Func _GUICtrlTrafficLight5($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $GUICtrlTrafficLight5
    $GUICtrlTrafficLight5 &= 'iVBORw0KGgoAAAANSUhEUgAAAGYAAAB2CAYAAAA6Ceb5AAAapElEQVR42u2dC5QU1ZnHb3X3TPf0Y3pmgBllkNcAm0VFISaIImBAIYnrskfcXYxhTdw8hLgncXdzSHLOBvck67I5ScjZFXPckM2yYgxslAiLvCSiEkEjRJE3MjwG5DHMu3tmunt69v+v7jvWNFVdVf1m1wv3VHdNd9W936++73738fVVxNWXlFGjRo32eDzMY8rLy0cjj/F6vaMrKipwynMSuRHnGsvKyk46nc7GoUOHnli2bFmk2AW3VcliF8BqCgaD1RDyFyD0xW63uwFZQPiCR5wTPp9PzQAkAEjN8jMul+syLvFz5J8C0Ili18VKuhrATHY4HEsg5AeQqRKqwGWm4AnB7/ermXB4JCBm+XnAEYqixPv6+jZHo9GVoVDoJUCKF7tyRqnUwTyBvJQvYJZEKhSZeV6CCQQCataCklrEazABjOjp6XkZkOYvWbKkq9iV1EulCsaB/CTyVwcKqihXwNC+p+AJpLKycgCONktQ/F48HhfhcFh0dnbu6e7u/vTixYtbi13h1FSKYPhY/yfywtQ/wKTpQpHvqRl6YLTnpBb19vaKrq4uwtkPs3Y3NOd8sSuuTaUI5kfI3zD6IxwAQ61hptAlAC0MHqWDwO/xOjBlAhpD7fn9I4888oliV1ybSg1MPfJxZE+6D2nh6GVp1qT5klrCLL01tjc0j4QTiUQI6N6lS5duKLYAZCommArkOj690r1taWlZBEE9buXLNGv0yLSZwpavJSAJQ+tCSy+NgJnY5gDM+i1btnwDfSQxcuRImT9YtGhRbzGEU0ww85Bf0oKRgstX6u/vN/1MCphpALO7GMIpOJgxY8bUQUDKhQsX7sBTula2E3RhaVaKmahFN910k7jhhhtUMCjn3FWrVr0Lk9ff2Nh4oZBlKTSYJ8aOHbsYZqgyFovtP3ny5I1SYyiIYcOGFbg4gxM1imZt/Pjxanmee+65fejvTIbJ68C5lRs3bvxWocpSSDCfRd4IMB2pYKgxcFvFLbfcorYPxUosB+GMGzdOD0wl/nbP/yAVoiyFBMN+ybNGYNrb21VhFBMMgdBDSwNmIbg8V4iyKGvXrnXCfn6Jb6SXQo9HJr1zdhP6Ca7Vq1ffduDAgYX5AsPy0f2lKbLSyOslMzDXXHPNkx/72Mfe094zVU7Zyoqprq7u35Vly5Z5cKFuVCqKozqoxwqmy1IIMqdLrGhTU5Pr4MGD4a1btwZyAYb3lK6xnhdHMLi+em9mwsoFmIaGhla0gwHcv09b91T5WDlnkEi0DH2wCoLxohIhMxiZZA57nDt3TvW2jhw5EgIYX7ZgCISdR16fQy1VVVUDo8x8YHhPengdHR2itbVVvTfHxSDgrMHAle4YMmRIpZGgrcCwAhEy8SmLFy/2oxPWaUUz7GQOdcAlHqj0sWPHwtu2bfNmCobXpPfGz9fU1Kj9Da350EvUnPPnz4uzZ8+qGsSxsXTaYwamvr6+Ew9CIB9AtO/BI6A8+uijlRBUey41hVAuXrw46Nzx48d7duzY4ckEDPsX1BIe0Q9StcQoERY/Jx8qwqHHB41VyxUKhVStygRMbW1tKBgM+vIFRGbIJqh8+ctfLmMbg+zMBRQ+lTQhqTc8ceJEz86dO22DoYAhDFFdXa1CMdKSpAkYGAeTn5PtDWG8//774syZMyoomju7YGDGwniavfkCkjzXB0tTob57+OGHOXDYYBeC9D7ke1aYtl2vAIDQ+/rrr7vtgpEjxNdff71ho8lyyCEdXi85nTwAhhCSA5XinXfeUU1sW1vbFd6bGRg8IN24R0U27YeF772/fPnycepfHnzwwXU4cZ+SSBlpCgVLM2F001OnTkV2795dbgeMHMafOHGiOtdilOTUspypTB09Ts5Yqk4A74MHRC0rsx0wKEsPyufJV6PP5wjHX69YseJ+9d2CBQv+FsJ6AifLrGqHtOFMrCwrnq5gcJmj'
    $GUICtrlTrafficLight5 &= 'b775ZplVMNKEoe8grrvuOkMosv2Rc/1yNJnXkWAkFGaa2tOnT4t33333CpNmBgbXjAB4eR7bmCjyt1auXPlD9S+zZs3yoEE9ipP1yA6rWkJTQNPFypjdGJ5RbO/evS6rYPj0U+AcUEznffH7qTOWUnMIl4KXQJIzlmr+wx/+oDooNGlWweAY1Xt4c9HGIMVxPAuvccIvfvGLngGjPXfu3Dm48bZU7TBymQmFwuQTaeXGH3zwQR+E4bQKhoKlpvBcup60djo5dVqZ5iw5tz+Q+SAxs3/11ltvqdok2xozMKhrDHVx5auNwX3uWr169Xb1nLaSc+bMWYMPLEAuT6cp7AuwkrJPoHdzranjEU9nHObDYRUMvzNlyhTVG8sEDM0awbDB10LRHl9++eVBHU8zMPgb2PQ5cw0EOYL83+vWrfucLMsgMLNnzx4Cge2CIMbgbXk6KAMXsKiqBHPo0CFLYOR41/Tp01XB2zFlsp2R8/rSG0s1Zcx79uxRzZn04MzAQPviMI2OHDf6XCHaiDLc/sILL1zWBcM0bdq0Ghy24wvXp2qOHN5IhWKlIJcvX+5HJ0+xAoZ9Dgr19ttvV4UsBaeXjBp/ags1TfZhWG7piREKj2xn4C2qn7cCBmXsx7UUu0DSyIVQDqCcc7Zs2dKirZduxwB9Bj+e1E14eats7OSKEjtaon3f0tKidvCsgKHgKKzbbrvN0nSznNvXLrZIrrxUtY/CpsmSPX9mOgX79+8X0OKBkQQzMHi41GvkSGPoSOxG/swrr7xyxaJDw2HO0aNHe2Czf40v3g0oLj512oszpbYj6QpI7wcgLIHhawoUpnVA2OlSageT2qIFI7VGus1ySAb9KvVhkTOnZmDYMaU5zEEbE8PbrSjvfYCiO7qadswebrQL/Y9fobDzUXmHXS3RvmeDy+EQK2DkyPC999474PqmM2fyHtp1yjSF0nukdjATCAUv0+bNm8WlS5c4/2EJDAdD5chGhkD4lgsb1sGp+TygxAzrI8yTMmLEiJWo4FeURMrIrtI80UW12sbAvaaXqHplUhOsJO0gJhPByN5/anr22WdV7WJH1goYdkwJRtZN+1DondORRT/KtfzgwYPfZtHSCt1SbZGGDx/+GMzCD5TEnZTUwugVRNsfol2nKbDqLhPihAkTVCFJM2WmNXYS27z169er2iIXm5uBoSmmSTYCkeYcIcT5cDc2Nq6yUj5bc/6oxHxc/Jf01vDWka5gqcBo29l4WgXD9wQ7derUQe1HttO2Mr355pucihBDhw4dOGcG5sSJE4NGzi3CoeliOzIfGrfdavlsL8YAnFugOZvxkvrvSgdFW2A2vKyUVTA0P3w62ftvaGgY8Lb4+dTr203Nzc1i69atqput9fjMwBAkNc0EhPZI+9kMTb8LUA7YKWNGNYTdHwHh7oT2jEIBnFYKSTAUvp3RZelJcbyMbY12EXmmmkMPjY0+j6kj1mZgjh49qkK1aMI4fHMEMpqNTqztxYIZP3o1NTXUnD0iadL0tER7pJDpANidj2G/gW0Ah/75WTnfop1zsZP27t2rdioJJbXMZmDY5yEYAxCp59imTIKG2dKUrMEwoZ/DOJYHUIhBEtIzbaww+wB2wdCrIlR6TvAOVYHKxRcEJnv4VtKxY8cEPCL1u3rDPGZgDhw4MDBlbgKHncefwhT/TaayzQoMOn8zUYBXzKCoJU0Ov2cy5y9dXgKor69XzZqcDKPWyCz7LqlJDr9Ih8IIpBkYjhTIBSZmcGBNPon6vlUUMGSDRrlTXifVXdYmOaSTzfIlOTxP7aGbq53fl30XCUfen243G20riwDNwHBamqtu9ECknOvH93w4dhcLDAV5Dodr00Hhe7kAL9t1ZbJ/xCPNGgcupbcmo8R4L+26MqurM83A7Nu3TwVtoX05CQsxJhu5Zg0GT+qPUelp2s6kXoJwaiCw8blaIksI6cySNH92lsyagXnvvfdY5ouGwkzWHfd7DQdLAViG18qS'
    $GUICtrlTrafficLight5 &= 'i530l8i/zMfaZa22EkK+1i4XdFF5IW6STHkDk6v0/xXMeORdAOM2io/hvEi2vfps0s0335wuPoZzBbdv3LjxWCHKUmgp3DhmzJhH0S6Vc5r27NmzXyjlUL8tW7Y8BS+MKy8jgPWvmzZt2l+oshQazF8DzHfxBAagMUegMZ8s5VC/tWvX7sIDdAM0vHPChAmPQ1t+VqiyFBLMLOQdANMJMFdVqB/AdABMAB/5FOC8UoiyFLzxB5gOPTCl3PgnwVTiIwsBpjCN//e+9z1HU1PTZ7RjR6njSNrBQrOYFKP0m9/85tajR49+J19g8hnqJ8HU1NT8w4033vialWnkLNOrDMPw9vb2hvRukrrYInX9svZzZunQoUMd27Ztq8wFGN63kKF+EkxDQ0ML2sGaHCzGMCtKhRpR1tbW1mkkeLMp43QgtQU4fPiwGuqXLZhihPpJMIUK9UPyKffff38Qb9rMBG92MTNAR44cCW/fvt2bKRheo1ihfhJMoUL9kAPKAw88UN3d3d1iVTMyBXT8+PHuHTt2VGQCptihfhJMbW1tVzAY9OcRiDwXVO655x7Or3YpiWTZdNkFxBjMV1991WMXTCmE+kkwBQr1Y/CSV303b948zv7UZtK2WAXU2NiohvrZBVMKoX4SDFK31+vNd6hf0/Lly69T/zJ79uxXcJhpRfDplsWm8+IY6vfGG2+U2wFTKqF+Egyu34Nr5zPUj8eNK1as+BMZUfZjNIpLcLLMSPDZaBA/d/r0aTXUzyqYUgr1k2BwzV4Ad+exjWGczD+tXLnycfUv06dPH4YKvI8CBKwK3S4ghvq9/fbbLqtgSinUT4LBkT/rkq9QPx5bkRtWrVrVOmC0b7311q8CzpOpi8dzBejcuXNqqJ9VMKUU6ifBwKpwEXi+Qv0Yg/n5Z5555ln1nLaSU6ZMeQuFvBkFcWXT8Ot9Fv2J+P79+x1WwfA7pRLqJ8HkMdSPy512rVu37k5ZlkFgJk+e/McQGH8D0quFYwaIyaxtYqjfwYMHLYEptVA/CQbOQhzlznWoHxs5jrx84sUXXxzYd+AK//NGJDwVvxXs5CQjdLMBJD/X3NyshvpZAVNqoX4STB5C/agpzcgzt2zZMmhm1CjUrwGN5k6R6Nvo/iiDXRPHxdhc32UFTKmF+kkwOQ71owfWhLezdu7ceSa1TobDnOPHj6+H8F7Fl69T0vxihlVABMP4EitgSi3UT4LJYagfw9qO4fgplEF3OVTa8efhw4cPQQWpOX/ENseKZhgBolvK4RArYEot1E+CyVGoH83XPuS79+3b125YH2GS8DT5Iaz1qOCdRnGYVgBJF9VqG1NKoX4STA5C/fiTjRuQP8efokz7oFmp7KhRoxQU+Kd4+SWhCfOzA4gmgKbAqrtcSqF+EkwWoX7qM4LMUMmlMJ+mU6y25kBra2sfw4V/kPyekqo9erCYCIcNLmNLrIIppVA/CSbDUD81/hLHr8ADtBR/aRtMEs58NKhqHCayw6xw8khvhpWyCqaUQv0kGMbXSDAW4ajxl3j9p2ifXrZTxoxqiKdsMuBsxQ1rJJzUQqUKT4b62RldLpVQPwnGZqgftYQxG3Ngwg/ZLWfGjx4ENReHzVag8D2FzIbT7nxMKYT6STA2Q/14uAN9n9czkW9WNgGmYDMKMFtJhvrptTVaMHQA7IIphVA/CcZOqB/yetTpzzOVbbYxmPNg0l4yg6KWFO4qHYBM5vyLHeonwXAOh2D06qdzbgYexNeKAgYaw983azaDwiPB0Cxls3ypWKF+Egzhan/k2wROFerbbnrTfIBhgiCbUfAheoXVFlgOi2S7rkz2jXgsVKifBMP2iR1fC+3LB3gQh2cj11yE+j2PwwyjwsrXEFAZCpuTlZhMhQz102hMS1NTk+GezRoZbMY9v1BUMDZS3haVax+AfIT6FWVReSFukkwfrfa3kQoJZgryLoCJGMXHlGqoXxIMnxiG+u0tRFkKLYXZAPMdgPHiyWw+ffr0'
    $GUICtrlTrafficLight5 &= 'Z2WnkT187ZB8MRKdiUmTJg2E+q1fv/75tra2eoAJA8z3AcXWsEo2qdBg5o0dO/abqChDP5rPnDnz2VLeB1OCwYMUbmho+JdNmzZttnCbnKRCm7LfAUzvVbqrHxf63bZhw4b/c6bsozh/G0nhLq5f+9rXJuj9MZdCWrNmzdyLFy/+5Gre1c/n8y2Bg7DJ6mxqpunrX//6KTXUDzc33DxOW2mmdEuX0qXDhw+roX453dXPXS5cnjLhjA/uZMYVhl5ERbQnmutd/QoS6qfu6sdQv9bW1k67K/2tLj6XKZe7+vmCPuFQHKJ9dFS0jYuKnuo+EQnERdzVL8o7nMLd4RDBk2Wi6liZcEQU0d11Fe7qt2DBAjXUT08bMgnLMPrO0aNHQ9CYjMHwGhXeCuFxe8TliRFx6u6QiHnSmywFinLt7gpR/3qFqkGhjlC2u/p1oK9VmQ8g2vfqrn4LFy4cFOpnR9h2tEmG+mW6qx+1pN+jiMbPhEXreOP+jsvhFOXOcuF0JEaZ4/1x4TwfF9c9Xy4qmh0i3BXOeFe/urq6rsrKyryH+qm7+kFj/ADTaSR0I0B2YWWzq19ldVC0j48CirGWqE9auVdUlOF6LrcKSCTBRPvQ1gCG/7cxUbezvNR39eMArU99N3fuXP6YcHU6OJlqk8wy1M8uGH8wIPpqHeK9h9tFv8FEJdubgMcv/G6fCsdTBjBOF/oCCTCRWER0R3tEqDcsgr+KiMB+RXS0tJfqrn4Xly9fXqf+Zc6cOW+gkLfaFbYdbZKhfnZ39fP6feLAQ+0iXGf8y0wBt18EKypFZRJORXmFKHeh4ce/WLxP9MZ6RSgSFp09XaKrrVNc+6M+EW+NiFBXye3qx+P2FStW3KW+mzlz5tNoFB+S0VJ6mpGtNnFXvz179tja1Y8m7IOp3eLsLGOPqsxZJqq9QVFVwQw4FQHhAxxqDTUp1hcT4Ui3CqWjp1O0dbeLyP4OMWK1M5Nd/fIe6oe3P3nqqae+mZicnjFjHAp4kPXUE24mpisVFsCooX6Wd/XzeUW81ikOPNwh+suN/X6armpflajxVgFQlagCpKAnAcfJX8qAGSOUtu4O0RZuE63hdtGCo39tj6h6xyE6WzosgylAqF8vHJ0JTz/99OmBGk+dOvUfoTXfxh91I6b0dvqzA+j8+fN9+/bts7yrn9vnEedn9IrLM+DeOo3BVAJCjQqmeuBIUNXQIDe0hlrSChAtoTYVSGuoVX3d9X6bGP1vjlLa1Y9hhEvXrFnzQ/WcrODHP/7xMoA5gpcjU+FYbfjTadOFCxds7+rX+NWoiI102gJDranxVaumze2CB9bbBRgJKC2EojnWPx4VzvYPHYAi7upH4EcvXbp0k9zsZ1CNJ02aNBNPzzZBUVjYqNQOLBnqZ3VXv4gzJpr+DtetcsHA2jBlajtTCVPmFS7FmTBlgNMGE8b2JaE1baoWVf0MLvR7oti7+rHHSxjTN2zYMPDL5lfUeOLEiZ8GnOcVzR4xuQAkQ/2s7rgU9kfE5UfdcOIhNLfxgj5t4x9MNv70zDyuROMfjcdEd7Lxb+/pEO3hDtEKQO1ocwJoZ/y74ipEK2DyEOrHsAz2dj+9devWV7X10n0UUbDp+MJLyPTZB7YhybThZ5KhflZ39euqi4rQl/zQGNzel/5XluguEwjNGqF46S47E7+MId3lcG+3qjntaHMIhX0b94sh4X2pVwwJ1FgCk+NQP5qvLliH2a+99toVczyGNqKhoeFmfIk7BAVlBLOeZlgFxDVe6GRa3tWv3R0SkceGQGMAJZh+jfLgDmaF2vMvS4LpA5gIev6yg9kFzQlHEz+571zdKrw7o6JuSK0lMDkM9aOPfhlyuBN9u8N6dUo7/lxfXz8OX2Yc5jBFE8GsB8hMmyhsRmRZ3dXvUudl0b/smkQbEwSc8vTrk9nLp0nikEw5Gn2XIxmDySGZWFT0QGto0ngcSD84LwIHFFFXW9Bd/RjqdxbXnInuw2nj+pik'
    $GUICtrlTrafficLight5 &= 'ESNG1ENzduDlWEUnvNwqLJonVszOrn6xx4aiAGUJjQlY+y1OpzqIWZYYxEwOycTQztAJSE2uJWdFdcxfyF39qCkHUce74aEa7hFgCQwT4zBRuBdx4RlwDJxmT4geIJoA/tqeVXf57PlzInKnR/TdgYa50pnQGnduosnUcp2OCvfSC4Xa1U/2UzahjVp47ty5sGn5bNTFUVtb+zSOX1SSd9R7QoxgsdFkhLDlXf062kXIGxHhh3wJKJXJ7LRTZOPk/q8O4d7ZK2prPvwR7jzt6scDfxzuR6dOnfomXluaTs0k1O/vYdr+OQlnAFA6dWZiD5uemZ1d/Vrb20TPJ5yiZ4Y7ASUAjfE72dpnBcV1PCr8T7SLgD/vu/qx98pNSR9pamp62k4ZM6phdXX1n+HG/JUgDugpZlB4JBiaAbu7+nXDzW29zyn6RibbGb8j4T5nqDlKb7+o/m6ncIdcwleR1139qCXdMP3z0bneZrucGdUuAeevcNP/sGLWpJDZcNqdjwn3hEVvoE9cnq8ktIYa43PwZ4hMPTW9VPlsj6h4Iyb8Ht+gMlsBYzPUj9pyH/o+L2Qi32wjyn6Pw82yE2oEhSmbXf16Ij2ie2S/aJsWF/FqDRgPcoXDmvZATIHtMVH5YrQQu/qxod+FOs3KVLZZgfH5fDRpz5tB4WsZ6pfprn50efvK+0XztJjoGSM+BONREprDqQGOqem0P67mfjHsmT5RfqYfDJ0F2dUPZb4b9bVtwnICxuv1XosCnDODIsFkvasfH3v8b2+IipbJERH3J+EQCrMrmQknWYTKtxUxdLOirphR+tNXN4e7+tEFH4a+W3NRwDBBkPyV86CZAyBD/XKxq58C08X5/9A1MdFVHxXRIDQKfUROqLl6kLsdwnfGKQLHncLZi05mX8F39WvGg5jVZji5CPX7HQoyLR0UdcwK7m8utluUSQ31c6Ijy86sjszj/BeL53RXP8ZgEoyhMD+s/1bcc25RwdhIH+3qZ6dOhbhJMn202t9GKiSYO5B3AkznVbqrXwB/mwkwGf+ogp1UaCl8EWAe5w9vo3E8curUqU+WcqifdvM4gPkuoPy8UGUp3uMpxDzkl0o51A952qJFi3YXQzjFBDMd+WclDuYvAOadYgjnfwGFG06y8fNx/gAAAABJRU5ErkJggg=='
    Local Const $bString = Binary(_WinAPI_Base64Decode($GUICtrlTrafficLight5))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\traffic4.png", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_GUICtrlTrafficLight5

; ==================================================================================================

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode


Func _OnExit()
    _AutoItObject_Shutdown()
EndFunc  ;==>_OnExit

Func _ErrFunc()
    ConsoleWrite("! COM Error !  Number: 0x" & Hex($oError.number, 8) & "   ScriptLine: " & $oError.scriptline & " - " & $oError.windescription & @CRLF)
    Return
EndFunc  ;==>_ErrFunc