Nippelboard à la TV Total

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Nippelboard.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <Misc.au3>
Local $brush[4]
local $1, $2, $3, $4, $5, $6, $7=0
$vUser32DLL = DllOpen("User32.dll")
$iGUIWidth = @DesktopWidth
$iGUIHeight = @DesktopHeight
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $iGUIWidth)
DllStructSetData($tSize, "Y", $iGUIHeight)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
$hWnd = GUICreate("", $iGUIWidth, $iGUIHeight, 0, 0, BitOR(0x80000000, 0x08000000), BitOR(0x00080000, 0x00000008, 0x00000080))
GUISetState()
$hDC_Window = _WinAPI_GetDC($hWnd)
$hDC_Buffer = _WinAPI_CreateCompatibleDC($hDC_Window)
$hBitmap_Buffer = _WinAPI_CreateCompatibleBitmap($hDC_Window, $iGUIWidth, $iGUIHeight)
_WinAPI_SelectObject($hDC_Buffer, $hBitmap_Buffer)
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHDC($hDC_Buffer)
$brush[0] = _GDIPlus_BrushCreateSolid(0xFFFFFF00)
$brush[1] = _GDIPlus_BrushCreateSolid(0xFFFF0000)
$brush[3]= _gdiplus_brushcreatesolid(0xFF000000)
while 1
for $i= 0 to 600 step 100
_GDIPlus_GraphicsFillEllipse($hgraphics, $i, 0, 60, 60, $brush[1])
next
_GDIPlus_GraphicsFillEllipse($hgraphics, 15, 15, 30, 30, $brush[$1])
_GDIPlus_GraphicsFillEllipse($hgraphics, 115, 15, 30, 30, $brush[$2])
_GDIPlus_GraphicsFillEllipse($hgraphics, 215, 15, 30, 30, $brush[$3])
_GDIPlus_GraphicsFillEllipse($hgraphics, 315, 15, 30, 30, $brush[$4])
_GDIPlus_GraphicsFillEllipse($hgraphics, 415, 15, 30, 30, $brush[$5])
_GDIPlus_GraphicsFillEllipse($hgraphics, 515, 15, 30, 30, $brush[$6])
_GDIPlus_GraphicsFillEllipse($hgraphics, 615, 15, 30, 30, $brush[$7])
If _ispressed(31, $vuser32dll) then
$1= 3
Soundplay(@scriptdir&"\Das geht doch nicht.wma")
else
$1=0
EndIf
If _ispressed(32, $vuser32dll) then
$2= 3
Soundplay(@scriptdir&"\Der Hodensack.wma")
else
$2=0
EndIf
If _ispressed(33, $vuser32dll) then
$3= 3
Soundplay(@scriptdir&"\Der Döner.wma")
else
$3=0
EndIf
If _ispressed(34, $vuser32dll) then
$4= 3
Soundplay(@scriptdir&"\Spaß.wma")
else
$4=0
EndIf
If _ispressed(35, $vuser32dll) then
$5= 3
Soundplay(@scriptdir&"\Eier.wma")
else
$5=0
EndIf
If _ispressed(36, $vuser32dll) then
$6= 3
Soundplay(@scriptdir&"\Definitiv nein.wma")
else
$6=0
EndIf
If _ispressed(37, $vuser32dll) then
$7= 3
Soundplay(@scriptdir&"\Viele Namen.wma")
else
$7=0
EndIf
_WinAPI_UpdateLayeredWindow($hWnd, $hDC_Window, 0, $pSize, $hDC_Buffer, $pSource, 0, $pBlend, 2)
wend