Hallo @all,
ich habe ein problem mit folgenden Skript
Spoiler anzeigen
Opt("TrayIconDebug", 1)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
$z01_links = Random(1, @DesktopWidth - 67, 1)
$z01_hohe = Random(1, @DesktopHeight - 137, 1)
$z02_links = Random(1, @DesktopWidth - 67, 1)
$z02_hohe = Random(1, @DesktopHeight - 137, 1)
$z03_links = Random(1, @DesktopWidth - 67, 1)
$z03_hohe = Random(1, @DesktopHeight - 137, 1)
$z04_links = Random(1, @DesktopWidth - 67, 1)
$z04_hohe = Random(1, @DesktopHeight - 137, 1)
$z05_links = Random(1, @DesktopWidth - 67, 1)
$z05_hohe = Random(1, @DesktopHeight - 137, 1)
$z06_links = Random(1, @DesktopWidth - 67, 1)
$z06_hohe = Random(1, @DesktopHeight - 137, 1)
$z07_links = Random(1, @DesktopWidth - 67, 1)
$z07_hohe = Random(1, @DesktopHeight - 137, 1)
$z08_links = Random(1, @DesktopWidth - 67, 1)
$z08_hohe = Random(1, @DesktopHeight - 137, 1)
$z09_links = Random(1, @DesktopWidth - 67, 1)
$z09_hohe = Random(1, @DesktopHeight - 137, 1)
$z10_links = Random(1, @DesktopWidth - 67, 1)
$z10_hohe = Random(1, @DesktopHeight - 137, 1)
$z11_links = Random(1, @DesktopWidth - 67, 1)
$z11_hohe = Random(1, @DesktopHeight - 137, 1)
$z12_links = Random(1, @DesktopWidth - 67, 1)
$z12_hohe = Random(1, @DesktopHeight - 137, 1)
$z13_links = Random(1, @DesktopWidth - 67, 1)
$z13_hohe = Random(1, @DesktopHeight - 137, 1)
$z14_links = Random(1, @DesktopWidth - 67, 1)
$z14_hohe = Random(1, @DesktopHeight - 137, 1)
$z15_links = Random(1, @DesktopWidth - 67, 1)
$z15_hohe = Random(1, @DesktopHeight - 137, 1)
$z16_links = Random(1, @DesktopWidth - 67, 1)
$z16_hohe = Random(1, @DesktopHeight - 137, 1)
$z17_links = Random(1, @DesktopWidth - 67, 1)
$z17_hohe = Random(1, @DesktopHeight - 137, 1)
$z18_links = Random(1, @DesktopWidth - 67, 1)
$z18_hohe = Random(1, @DesktopHeight - 137, 1)
$z19_links = Random(1, @DesktopWidth - 67, 1)
$z19_hohe = Random(1, @DesktopHeight - 137, 1)
$z20_links = Random(1, @DesktopWidth - 67, 1)
$z20_hohe = Random(1, @DesktopHeight - 137, 1)
$z21_links = Random(1, @DesktopWidth - 67, 1)
$z21_hohe = Random(1, @DesktopHeight - 137, 1)
$z22_links = Random(1, @DesktopWidth - 67, 1)
$z22_hohe = Random(1, @DesktopHeight - 137, 1)
$z23_links = Random(1, @DesktopWidth - 67, 1)
$z23_hohe = Random(1, @DesktopHeight - 137, 1)
$z24_links = Random(1, @DesktopWidth - 67, 1)
$z24_hohe = Random(1, @DesktopHeight - 137, 1)
$z25_links = Random(1, @DesktopWidth - 67, 1)
$z25_hohe = Random(1, @DesktopHeight - 137, 1)
$z26_links = Random(1, @DesktopWidth - 67, 1)
$z26_hohe = Random(1, @DesktopHeight - 137, 1)
$z27_links = Random(1, @DesktopWidth - 67, 1)
$z27_hohe = Random(1, @DesktopHeight - 137, 1)
$z28_links = Random(1, @DesktopWidth - 67, 1)
$z28_hohe = Random(1, @DesktopHeight - 137, 1)
$z29_links = Random(1, @DesktopWidth - 67, 1)
$z29_hohe = Random(1, @DesktopHeight - 137, 1)
$z30_links = Random(1, @DesktopWidth - 67, 1)
$z30_hohe = Random(1, @DesktopHeight - 137, 1)
$z31_links = Random(1, @DesktopWidth - 67, 1)
$z31_hohe = Random(1, @DesktopHeight - 137, 1)
$z32_links = Random(1, @DesktopWidth - 67, 1)
$z32_hohe = Random(1, @DesktopHeight - 137, 1)
$z33_links = Random(1, @DesktopWidth - 67, 1)
$z33_hohe = Random(1, @DesktopHeight - 137, 1)
$z34_links = Random(1, @DesktopWidth - 67, 1)
$z34_hohe = Random(1, @DesktopHeight - 137, 1)
$z35_links = Random(1, @DesktopWidth - 67, 1)
$z35_hohe = Random(1, @DesktopHeight - 137, 1)
$z36_links = Random(1, @DesktopWidth - 67, 1)
$z36_hohe = Random(1, @DesktopHeight - 137, 1)
$z37_links = Random(1, @DesktopWidth - 67, 1)
$z37_hohe = Random(1, @DesktopHeight - 137, 1)
$z38_links = Random(1, @DesktopWidth - 67, 1)
$z38_hohe = Random(1, @DesktopHeight - 137, 1)
$z39_links = Random(1, @DesktopWidth - 67, 1)
$z39_hohe = Random(1, @DesktopHeight - 137, 1)
$z40_links = Random(1, @DesktopWidth - 67, 1)
$z40_hohe = Random(1, @DesktopHeight - 137, 1)
$z41_links = Random(1, @DesktopWidth - 67, 1)
$z41_hohe = Random(1, @DesktopHeight - 137, 1)
$z42_links = Random(1, @DesktopWidth - 67, 1)
$z42_hohe = Random(1, @DesktopHeight - 137, 1)
$z43_links = Random(1, @DesktopWidth - 67, 1)
$z43_hohe = Random(1, @DesktopHeight - 137, 1)
$z44_links = Random(1, @DesktopWidth - 67, 1)
$z44_hohe = Random(1, @DesktopHeight - 137, 1)
$z45_links = Random(1, @DesktopWidth - 67, 1)
$z45_hohe = Random(1, @DesktopHeight - 137, 1)
$z46_links = Random(1, @DesktopWidth - 67, 1)
$z46_hohe = Random(1, @DesktopHeight - 137, 1)
$z47_links = Random(1, @DesktopWidth - 67, 1)
$z47_hohe = Random(1, @DesktopHeight - 137, 1)
$z48_links = Random(1, @DesktopWidth - 67, 1)
$z48_hohe = Random(1, @DesktopHeight - 137, 1)
$z49_links = Random(1, @DesktopWidth - 67, 1)
$z49_hohe = Random(1, @DesktopHeight - 137, 1)
$z50_links = Random(1, @DesktopWidth - 67, 1)
$z50_hohe = Random(1, @DesktopHeight - 137, 1)
$z50_links = Random(1, @DesktopWidth - 67, 1)
$z50_hohe = Random(1, @DesktopHeight - 137, 1)
$z51_links = Random(1, @DesktopWidth - 67, 1)
$z51_hohe = Random(1, @DesktopHeight - 137, 1)
$z52_links = Random(1, @DesktopWidth - 67, 1)
$z52_hohe = Random(1, @DesktopHeight - 137, 1)
$z53_links = Random(1, @DesktopWidth - 67, 1)
$z53_hohe = Random(1, @DesktopHeight - 137, 1)
$z54_links = Random(1, @DesktopWidth - 67, 1)
$z54_hohe = Random(1, @DesktopHeight - 137, 1)
$z55_links = Random(1, @DesktopWidth - 67, 1)
$z55_hohe = Random(1, @DesktopHeight - 137, 1)
$z56_links = Random(1, @DesktopWidth - 67, 1)
$z56_hohe = Random(1, @DesktopHeight - 137, 1)
$z57_links = Random(1, @DesktopWidth - 67, 1)
$z57_hohe = Random(1, @DesktopHeight - 137, 1)
$z58_links = Random(1, @DesktopWidth - 67, 1)
$z58_hohe = Random(1, @DesktopHeight - 137, 1)
$z59_links = Random(1, @DesktopWidth - 67, 1)
$z59_hohe = Random(1, @DesktopHeight - 137, 1)
$z60_links = Random(1, @DesktopWidth - 67, 1)
$z60_hohe = Random(1, @DesktopHeight - 137, 1)
$Set = 0
$MK = 0
GUICreate("Spiel", @DesktopWidth, @DesktopHeight - 70, -1, -1)
$01 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z01_links, $z01_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z02_links, $z02_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z03_links, $z03_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z04_links, $z04_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z05_links, $z05_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z06_links, $z06_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z07_links, $z07_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z08_links, $z08_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z09_links, $z09_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $z10_links, $z10_hohe, 66, 66)
GUISetState(@SW_SHOW)
AdlibRegister("n_POS", 20000)
While 1
If _IsPressed(01) = 1 Then
$pos = MouseGetPos();0 = X 1 = Y
If $Set = 0 Then
Switch $pos[0]
Case $z01_links To ($z01_links + 66)
If $pos[1] >= $z01_hohe and $pos[1] <= ($z01_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z02_links To ($z02_links + 66)
If $pos[1] >= $z02_hohe and $pos[1] <= ($z02_hohe + 66) Then
GUICtrlSetImage($02, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($02)
EndIf
Case $z03_links To ($z03_links + 66)
If $pos[1] >= $z03_hohe and $pos[1] <= ($z03_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z04_links To ($z04_links + 66)
If $pos[1] >= $z04_hohe and $pos[1] <= ($z04_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z05_links To ($z05_links + 66)
If $pos[1] >= $z05_hohe and $pos[1] <= ($z05_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z06_links To ($z06_links + 66)
If $pos[1] >= $z06_hohe and $pos[1] <= ($z06_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z07_links To ($z07_links + 66)
If $pos[1] >= $z07_hohe and $pos[1] <= ($z07_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z08_links To ($z08_links + 66)
If $pos[1] >= $z08_hohe and $pos[1] <= ($z08_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z09_links To ($z09_links + 66)
If $pos[1] >= $z09_hohe and $pos[1] <= ($z09_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z10_links To ($z10_links + 66)
If $pos[1] >= $z10_hohe and $pos[1] <= ($z10_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
ElseIf $Set = 1 Then
Switch $pos[0]
Case $z11_links To ($z11_links + 66)
If $pos[1] >= $z11_hohe and $pos[1] <= ($z11_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z12_links To ($z12_links + 66)
If $pos[1] >= $z12_hohe and $pos[1] <= ($z12_hohe + 66) Then
GUICtrlSetImage($02, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($02)
EndIf
Case $z13_links To ($z13_links + 66)
If $pos[1] >= $z13_hohe and $pos[1] <= ($z13_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z14_links To ($z14_links + 66)
If $pos[1] >= $z14_hohe and $pos[1] <= ($z14_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z15_links To ($z15_links + 66)
If $pos[1] >= $z15_hohe and $pos[1] <= ($z15_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z16_links To ($z16_links + 66)
If $pos[1] >= $z16_hohe and $pos[1] <= ($z16_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z17_links To ($z17_links + 66)
If $pos[1] >= $z17_hohe and $pos[1] <= ($z17_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z18_links To ($z18_links + 66)
If $pos[1] >= $z18_hohe and $pos[1] <= ($z18_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z19_links To ($z19_links + 66)
If $pos[1] >= $z19_hohe and $pos[1] <= ($z19_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z20_links To ($z20_links + 66)
If $pos[1] >= $z20_hohe and $pos[1] <= ($z20_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
ElseIf $Set = 2 Then
Switch $pos[0]
Case $z21_links To ($z21_links + 66)
If $pos[1] >= $z21_hohe and $pos[1] <= ($z21_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z22_links To ($z22_links + 66)
If $pos[1] >= $z22_hohe and $pos[1] <= ($z22_hohe + 66) Then
GUICtrlSetImage($02, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($02)
EndIf
Case $z23_links To ($z23_links + 66)
If $pos[1] >= $z23_hohe and $pos[1] <= ($z23_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z24_links To ($z24_links + 66)
If $pos[1] >= $z24_hohe and $pos[1] <= ($z24_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z25_links To ($z25_links + 66)
If $pos[1] >= $z25_hohe and $pos[1] <= ($z25_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z26_links To ($z26_links + 66)
If $pos[1] >= $z26_hohe and $pos[1] <= ($z26_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z27_links To ($z27_links + 66)
If $pos[1] >= $z27_hohe and $pos[1] <= ($z27_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z28_links To ($z28_links + 66)
If $pos[1] >= $z28_hohe and $pos[1] <= ($z28_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z29_links To ($z29_links + 66)
If $pos[1] >= $z29_hohe and $pos[1] <= ($z29_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z30_links To ($z30_links + 66)
If $pos[1] >= $z30_hohe and $pos[1] <= ($z30_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
ElseIf $Set = 3 Then
Switch $pos[0]
Case $z31_links To ($z31_links + 66)
If $pos[1] >= $z31_hohe and $pos[1] <= ($z31_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z33_links To ($z33_links + 66)
If $pos[1] >= $z33_hohe and $pos[1] <= ($z33_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z33_links To ($z33_links + 66)
If $pos[1] >= $z33_hohe and $pos[1] <= ($z33_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z34_links To ($z34_links + 66)
If $pos[1] >= $z34_hohe and $pos[1] <= ($z34_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z35_links To ($z35_links + 66)
If $pos[1] >= $z35_hohe and $pos[1] <= ($z35_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z36_links To ($z36_links + 66)
If $pos[1] >= $z36_hohe and $pos[1] <= ($z36_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z37_links To ($z37_links + 66)
If $pos[1] >= $z37_hohe and $pos[1] <= ($z37_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z38_links To ($z38_links + 66)
If $pos[1] >= $z38_hohe and $pos[1] <= ($z38_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z39_links To ($z39_links + 66)
If $pos[1] >= $z39_hohe and $pos[1] <= ($z39_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z40_links To ($z40_links + 66)
If $pos[1] >= $z40_hohe and $pos[1] <= ($z40_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
ElseIf $Set = 4 Then
Switch $pos[0]
Case $z41_links To ($z41_links + 66)
If $pos[1] >= $z41_hohe and $pos[1] <= ($z41_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z44_links To ($z44_links + 66)
If $pos[1] >= $z44_hohe and $pos[1] <= ($z44_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z43_links To ($z43_links + 66)
If $pos[1] >= $z43_hohe and $pos[1] <= ($z43_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z44_links To ($z44_links + 66)
If $pos[1] >= $z44_hohe and $pos[1] <= ($z44_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z45_links To ($z45_links + 66)
If $pos[1] >= $z45_hohe and $pos[1] <= ($z45_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z46_links To ($z46_links + 66)
If $pos[1] >= $z46_hohe and $pos[1] <= ($z46_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z47_links To ($z47_links + 66)
If $pos[1] >= $z47_hohe and $pos[1] <= ($z47_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z48_links To ($z48_links + 66)
If $pos[1] >= $z48_hohe and $pos[1] <= ($z48_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z49_links To ($z49_links + 66)
If $pos[1] >= $z49_hohe and $pos[1] <= ($z49_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z50_links To ($z50_links + 66)
If $pos[1] >= $z50_hohe and $pos[1] <= ($z50_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
ElseIf $Set = 5 Then
Switch $pos[0]
Case $z51_links To ($z51_links + 66)
If $pos[1] >= $z51_hohe and $pos[1] <= ($z51_hohe + 66) Then
GUICtrlSetImage($01, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($01)
EndIf
Case $z55_links To ($z55_links + 66)
If $pos[1] >= $z55_hohe and $pos[1] <= ($z55_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z53_links To ($z53_links + 66)
If $pos[1] >= $z53_hohe and $pos[1] <= ($z53_hohe + 66) Then
GUICtrlSetImage($03, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($03)
EndIf
Case $z54_links To ($z54_links + 66)
If $pos[1] >= $z54_hohe and $pos[1] <= ($z54_hohe + 66) Then
GUICtrlSetImage($04, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($04)
EndIf
Case $z55_links To ($z55_links + 66)
If $pos[1] >= $z55_hohe and $pos[1] <= ($z55_hohe + 66) Then
GUICtrlSetImage($05, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($05)
EndIf
Case $z56_links To ($z56_links + 66)
If $pos[1] >= $z56_hohe and $pos[1] <= ($z56_hohe + 66) Then
GUICtrlSetImage($06, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($06)
EndIf
Case $z57_links To ($z57_links + 66)
If $pos[1] >= $z57_hohe and $pos[1] <= ($z57_hohe + 66) Then
GUICtrlSetImage($07, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($07)
EndIf
Case $z58_links To ($z58_links + 66)
If $pos[1] >= $z58_hohe and $pos[1] <= ($z58_hohe + 66) Then
GUICtrlSetImage($08, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($08)
EndIf
Case $z59_links To ($z59_links + 66)
If $pos[1] >= $z59_hohe and $pos[1] <= ($z59_hohe + 66) Then
GUICtrlSetImage($09, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($09)
EndIf
Case $z60_links To ($z60_links + 66)
If $pos[1] >= $z60_hohe and $pos[1] <= ($z60_hohe + 66) Then
GUICtrlSetImage($10, @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($10)
EndIf
EndSwitch
EndIf
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func n_POS()
GUICtrlDelete($01)
GUICtrlDelete($02)
GUICtrlDelete($03)
GUICtrlDelete($04)
GUICtrlDelete($05)
GUICtrlDelete($06)
GUICtrlDelete($07)
GUICtrlDelete($08)
GUICtrlDelete($09)
GUICtrlDelete($10)
$Set = $Set + 1
If $Set = 1 Then
$01 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z11_links, $z11_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z12_links, $z12_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z13_links, $z13_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z14_links, $z14_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z15_links, $z15_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z16_links, $z16_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z17_links, $z17_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z18_links, $z18_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z19_links, $z19_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z20_links, $z20_hohe, 66, 66)
ElseIf $Set = 2 Then
$01 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z21_links, $z21_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z22_links, $z22_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z23_links, $z23_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z24_links, $z24_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z25_links, $z25_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z26_links, $z26_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z27_links, $z27_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z28_links, $z28_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z29_links, $z29_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z30_links, $z20_hohe, 66, 66)
ElseIf $Set = 3 Then
$01 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z31_links, $z31_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z32_links, $z32_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z33_links, $z33_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z34_links, $z34_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z35_links, $z35_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z36_links, $z36_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z37_links, $z37_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z38_links, $z38_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z39_links, $z39_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z40_links, $z40_hohe, 66, 66)
ElseIf $Set = 4 Then
$01 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z41_links, $z11_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z42_links, $z42_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z43_links, $z43_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z44_links, $z44_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z45_links, $z45_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z46_links, $z46_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z47_links, $z47_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z48_links, $z48_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z49_links, $z49_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z30_links, $z40_hohe, 66, 66)
ElseIf $Set = 5 Then
$01 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z51_links, $z51_hohe, 66, 66)
$02 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z52_links, $z52_hohe, 66, 66)
$03 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z53_links, $z53_hohe, 66, 66)
$04 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z54_links, $z54_hohe, 66, 66)
$05 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z55_links, $z55_hohe, 66, 66)
$06 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z56_links, $z56_hohe, 66, 66)
$07 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z57_links, $z57_hohe, 66, 66)
$08 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z58_links, $z58_hohe, 66, 66)
$09 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z59_links, $z59_hohe, 66, 66)
$10 = GUICtrlCreatePic(@ScriptDir & "\ziel.jpg", $z60_links, $z60_hohe, 66, 66)
EndIf
EndFunc
Das Problem: alles klappt bis auf, das neupositionieren der Ziele.
Nach dem löschen der alten ziele bleibt die GUI leer.
Kennt jemand deine Lösung ???
______________________________________________________________________________-
Folgende Dateien in den Unterordner "data" kopieren:
autoit.de/wcf/attachment/10098/
autoit.de/wcf/attachment/10097/