Spiel - Problem

Script-Bär

Hallo @all,

ich habe ein problem mit folgenden Skript

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

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/

crocojunk

ich glaub du solltest die bilder mit hochladen denn sonst hab ich einfach ein leeres Gui.

stayawayknight

hat er doch!

crocojunk

wo denn ich seh keine

Ubuntu

Zitat

Folgende Dateien in den Unterordner "data" kopieren:

Da sind sie doch, einfach rechtsklick und speichern unter.

mfg Ubuntu

crocojunk

achso

ok danke

name22

Ich glaube das kann man auch einfacher lösen..... (Spaghetticode) ^^.

Zeitriss

Das Problem ist das du wenn du sie neu erstellst das \Data\ vergessen hast so sonst suchst du sie Direkt im Ordner wo das Programm ist.
Übrigens solltest du dir mal Arrays ansehen damit kann man das Script auf ein 12 tel verkleinern

Fals du mir nicht glaubst

Spoiler anzeigen

[autoit]

Opt("TrayIconDebug", 1)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
$Durchlaeufe = 6
$Anzahl_der_Ziele = 10
Dim $iPos[$Durchlaeufe * $Anzahl_der_Ziele][2]
Dim $hPic[$Anzahl_der_Ziele]
For $i = 0 to $Durchlaeufe * $Anzahl_der_Ziele - 1
$iPos[$i][0] = Random(1, @DesktopWidth - 67, 1)
$iPos[$i][1] = Random(1, @DesktopHeight - 137, 1)
next
$Set = 0
;$MK = 0

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Spiel", @DesktopWidth, @DesktopHeight - 70, -1, -1)
For $i = 0 to $Anzahl_der_Ziele -1
$hPic[$i] = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $iPos[$i][0], $iPos[$i][1], 66, 66)
next
GUISetState(@SW_SHOW)
AdlibRegister("n_POS", 20000)
While 1
If _IsPressed(01) = 1 Then
$pos = MouseGetPos();0 = X 1 = Y
For $i = 0 to $Anzahl_der_Ziele - 1
If $iPos[$i + $Set * $Anzahl_der_Ziele ][0] <= $Pos[0] and $iPos[$i+$Set * $Anzahl_der_Ziele][0] >=$Pos[0] - 66 and $iPos[$i+$Set * $Anzahl_der_Ziele][1] <= $Pos[1] and $iPos[$i+$Set * $Anzahl_der_Ziele][1] >=$Pos[1] - 66 Then
GUICtrlSetImage($hPic[$i], @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($hPic[$i])
EndIf
next
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func n_POS()
For $i = 0 to $Anzahl_der_Ziele -1
GUICtrlDelete($hPic[$i])
next
$Set = $Set + 1
If $Set = $Durchlaeufe Then
msgbox(16,"","Spiel zu ende")
exit
Endif
For $i = 0 to $Anzahl_der_Ziele -1
$hPic[$i] =GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $iPos[$i+$Set * $Anzahl_der_Ziele][0], $iPos[$i+$Set * $Anzahl_der_Ziele][1], 66, 66)
next
EndFunc

[/autoit]

yxyx

noch kürzer

[autoit]

Global $ziele[10][2], $ziel[10], $count = 10
GUICreate("Spiel", @DesktopWidth, @DesktopHeight - 70)
CreateTargets()
GUISetState()
While 1
$pos = GUIGetCursorInfo()
If @error Then ContinueLoop
If $pos[2] Then
For $i = 0 to UBound($ziele)-1
If $pos[4] = $ziel[$i] Then
GUICtrlSetImage($ziel[$i], @ScriptDir & "\data\explosion.jpg")
Sleep(500)
GUICtrlDelete($ziel[$i])
$count -= 1
If $count = 0 Then CreateTargets()
EndIf
Next
EndIf
If GUIGetMsg() = -3 Then Exit
WEnd
Func CreateTargets()
$count = 10
For $i = 0 to Ubound($ziele) -1
$ziele[$i][0] = Random(1, @DesktopWidth - 67, 1)
$ziele[$i][1] = Random(1, @DesktopHeight - 137, 1)
$ziel[$i] = GUICtrlCreatePic(@ScriptDir & "\data\ziel.jpg", $ziele[$i][0], $ziele[$i][1], 66, 66)
Next
EndFunc

[/autoit]

BadBunny

Wenn man die Zielscheiben schnell nacheinander anklcikt funkt. das nicht weil die Zeit dzwichen zu lang ist also fals du da noch ein Rankingh etc einbauen willst wer es am schnellsten schafft solltest du das ändern weil sonst brauch man länger.