Hi bitte unten im anhang downlaoden
ich möchte dass wenn "krieg mich doch" und Windwomover V1.0 auf der gleichen position sind sich bei dem punkteanzeigegui die zahl um 1 erhöht , der fang mich gui verdchwindet und sich zufällig ein neuer gui bildet bei dem dann wieder alles so sein soll
Ein unbeschreibliches Problem
-
- [ gelöst ]
-
Nathax -
2. November 2009 um 18:40 -
Geschlossen -
Erledigt
-
-
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <StaticConstants.au3>Hotkeyset ("{UP}", "_WinMovehoch")
[/autoit] [autoit][/autoit] [autoit]
Hotkeyset ("{DOWN}", "_WinMoverunter")
Hotkeyset ("{LEFT}", "_WinMovelinks")
Hotkeyset ("{RIGHT}", "_WinMoverechts")
Hotkeyset ("{m}", "_WinMovemitte")
Hotkeyset ("{ESC}", "_ende")Do
[/autoit] [autoit][/autoit] [autoit]
$xpos = Random(5, 500, 1)
Until Not Mod($xpos, 30)Do
[/autoit] [autoit][/autoit] [autoit]
$ypos = Random(5, 500, 1)
Until Not Mod($ypos, 30)$gui = GUICreate("Windowmover V 1.0", 230, 210, $xpos, $ypos, -1, 0x8)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x0)
$mitteblau = GuiCtrlCreatePic("Bilddatein\mitteblau.gif",93,90,45,30)
$bhoch1 = GuiCtrlCreatePic("Bilddatein\bhoch1.gif",100,10,30,50)
$brunter1 = GuiCtrlCreatePic("Bilddatein\brunter1.gif",100,150,30,50)
$blinks1 = GuiCtrlCreatePic("Bilddatein\blinks1.gif",15,86,50,33)
$brechts1 = GuiCtrlCreatePic("Bilddatein\brechts1.gif",160,86,50,33)
$exit = GUICtrlCreateLabel("Exit",10,180,80,20)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont(-1, 12, 400, 1, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)Do
[/autoit] [autoit][/autoit] [autoit]
$xpos = Random(5, 500, 1)
Until Not Mod($xpos, 30)Do
[/autoit] [autoit][/autoit] [autoit]
$ypos = Random(5, 500, 1)
Until Not Mod($ypos, 30)
$gui2 = GUICreate("Krieg mich!", 230, 210, $xpos, $ypos)
GUISetBkColor(0x0)
GUISetState(@SW_SHOW)$gui3 = GUICreate("Punktzahl", 130, 70, 50, 50)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x0)
$punktzahl = 0
$punktelabel = GUICtrlCreateLabel("Deine Punktzahl" & @CRLF & "ist:" & $punktzahl,10,10,150,30)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont(-1, 11, 400, 1, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(10)
$msg = GUIGetMsg()Select
[/autoit] [autoit][/autoit] [autoit]
Case $msg = $bhoch1
_WinMovehoch()
Case $msg = $brunter1
_WinMoverunter()
Case $msg = $blinks1
_WinMovelinks()
Case $msg = $brechts1
_WinMoverechts()
Case $msg = $mitteblau
_WinMovemitte()
Case $msg = $exit
Exit
EndSelect
WEndFunc _Ende()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _WinMovehoch()
[/autoit] [autoit][/autoit] [autoit]
_DeSelectAll()
GUICtrlSetImage($bhoch1, "Bilddatein\bhoch2.gif")
$pos = WinGetPos("Windowmover V 1.0")
WinMove("Windowmover V 1.0", "", $pos[0], $pos[1] -30)
_Check()
EndFunc
Func _WinMoverunter()
_DeSelectAll()
GUICtrlSetImage($brunter1, "Bilddatein\brunter2.gif")
$pos = WinGetPos("Windowmover V 1.0")
WinMove("Windowmover V 1.0", "", $pos[0], $pos[1] + 30)
_Check()
EndFunc
Func _WinMovelinks()
_DeSelectAll()
GUICtrlSetImage($blinks1, "Bilddatein\blinks2.gif")
$pos = WinGetPos("Windowmover V 1.0")
WinMove("Windowmover V 1.0", "", $pos[0] -30 , $pos[1])
_Check()
EndFunc
Func _WinMoverechts()
_DeSelectAll()
GUICtrlSetImage($brechts1, "Bilddatein\brechts2.gif")
$pos = WinGetPos("Windowmover V 1.0")
WinMove("Windowmover V 1.0", "", $pos[0] +30 , $pos[1])
_Check()
EndFunc
Func _WinMovemitte()
_DeSelectAll()
$pos = WinGetPos("Windowmover V 1.0")
WinMove("Windowmover V 1.0", "", 370, 220)
_Check()
EndFuncFunc _DeSelectAll()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetImage($bhoch1, "Bilddatein\bhoch1.gif")
GUICtrlSetImage($brunter1, "Bilddatein\brunter1.gif")
GUICtrlSetImage($blinks1, "Bilddatein\blinks1.gif")
GUICtrlSetImage($brechts1, "Bilddatein\brechts1.gif")
EndFuncFunc _Check()
[/autoit] [autoit][/autoit] [autoit]
$Pos1 = WinGetPos("Windowmover V 1.0")
$Pos2 = WinGetPos("Krieg mich!")
If $Pos1[0] = $Pos2[0] And $Pos1[1] = $Pos2[1] Then
$punktzahl += 1
GUISwitch($gui3)
GUICtrlSetData($punktelabel,"Deine Punktzahl" & @CRLF & "ist:" & $punktzahl)
GUISetState(@SW_HIDE, $gui2)
Do
$xpos = Random(5, 500, 1)
Until Not Mod($xpos, 30)Do
[/autoit]
$ypos = Random(5, 500, 1)
Until Not Mod($ypos, 30)
$gui2 = GUICreate("Krieg mich!", 230, 210, $xpos, $ypos)
GUISetBkColor(0x0)
GUISetState(@SW_SHOW)
EndIf
EndFuncso?
-
Schön gemacht SEuBo.
allerdings glaub ich wird er so nie zum Profi
-
Tut mir leid, ich hab halt langeweile
-
man merkts
-
danke wieso ist mir das nicht eingefallen
nicht das ich zu nobby dafür wär mir hat nur ne idee gefehlt aber trotzdem thx