Ich wollte ein kleines Game machen und mir fehlt die Kolisionsabfrage, die ich nicht hinbekomme !
Spoiler anzeigen
Global $pos = 50
Global $pos1 = 20
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
GUISetBkColor(0x000000)
Global $Graphic1 = GUICtrlCreateGraphic(10, 100, 20, 70)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $Graphic2 = GUICtrlCreateGraphic(540, 100, 20, 70)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $Graphic3 = GUICtrlCreateGraphic(10, 100, 9, 9)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{UP}","up")
HotKeySet("{down}","down")
While 1
$msg = GUIGetMsg()
IF $msg = -3 Then Exit
;============================== Kolisionsabfrage==========================
rechts()
links()
WEnd
Func up()
$pos = $pos -10
GUICtrlSetPos($Graphic1,10,$pos)
If $pos = -10 Then
$pos = $pos +10
EndIf
EndFunc
Func down()
$pos = $pos +10
GUICtrlSetPos($graphic1,10,$pos)
If $pos = 400 Then
$pos = $pos -10
EndIf
EndFunc
Func links()
$random = Random(0,450,1)
Do
$pos1 = $pos1 - 10
Sleep(100)
GUICtrlSetPos($Graphic3,$pos1,$random)
Until $pos1 = 20
EndFunc
Func rechts()
$random = Random(0,450,1)
GUICtrlSetPos($Graphic2,540,$random - 20)
Do
$pos1 = $pos1 + 10
GUICtrlSetPos($Graphic3,$pos1,$random)
Sleep(100)
Until $pos1 = 530
EndFunc
Ich hoffe ihr könnt mir weiterhelfen...