#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <GameUDF.au3>
HotKeySet("{ESC}", "_Exit")
HotKeySet("{SPACE}", "_Talk")
_GDIPlus_Startup()
Global $GUIWidth = 450, $GUIHeight = 250
Global $Link = 1
Global $Talk = 0
Global $Lauf = 1

Global $Tree = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Tree.PNG")
; _GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageKiste, $KistePos1, $KistePos2, 25, 25) ;Trägt Kiste in Buffer ein
; _GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageKiste, $KistePos1, $KistePos2, 25, 25) ; Trägt Kiste auch ein
Global $MunzeZahl = 0
Global $ImageFileHintergrund = @ScriptDir & "\Hintergrund450x250.PNG"
Global $ImageFileLinkUnten = @ScriptDir & "\LinkUnten.PNG"
Global $ImageFileLinkOben = @ScriptDir & "\LinkOben.PNG"
Global $ImageFileLinkRechts = @ScriptDir & "\LinkRechts.PNG"
Global $ImageFileLinkLinks = @ScriptDir & "\LinkLinks.PNG"
Global $ImageFileKiste = @ScriptDir & "\Kiste.PNG"
Global $ImageFileMunze = @ScriptDir & "\Munze.PNG"
Global $ImageFileMunzeAnzahl0 = @ScriptDir & "\Munze03.PNG"
Global $ImageFileMunzeAnzahl1 = @ScriptDir & "\Munze13.PNG"
Global $ImageFileMunzeAnzahl2 = @ScriptDir & "\Munze23.PNG"
Global $ImageFileMunzeAnzahl3 = @ScriptDir & "\Munze33.PNG"
Global $ImageFileZiel = @ScriptDir & "\Ziel.PNG"
Global $ImageFileText = @ScriptDir & "\TextFeld400x50.png"
Global $ImageFileNpc1 = @ScriptDir & "\NPC1 25x34.PNG"


Global $PosAktuell1 = 25
Global $PosAktuell2 = 25 ;Y von Link

Global $KistePos1 = 100 ;Später für Kiste X
Global $KistePos2 = 25 ;Später für Kiste Y

Global $Munze1Pos1 = 200
Global $Munze1Pos2 = 50

Global $Munze2Pos1 = 300
Global $Munze2Pos2 = 100

Global $Munze3Pos1 = 400
Global $Munze3Pos2 = 200
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Domino Zelda --> Journy of GDI+", 450, 250, 192, 124)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Graphic = _GDIPlus_GraphicsCreateFromHWND($Form1) ;Frontbuffer
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $Graphic) ;Bitmap für Frontbuffer
$Backbuffer = _GDIPlus_ImageGetGraphicsContext($Bitmap) ;Backbuffer



$ImageHintergrund = _GDIPlus_ImageLoadFromFile($ImageFileHintergrund)
$ImageLinkUnten = _GDIPlus_ImageLoadFromFile($ImageFileLinkUnten)
$ImageLinkOben = _GDIPlus_ImageLoadFromFile($ImageFileLinkOben)
$ImageLinkRechts = _GDIPlus_ImageLoadFromFile($ImageFileLinkRechts)
$ImageLinkLinks = _GDIPlus_ImageLoadFromFile($ImageFileLinkLinks)
$ImageKiste = _GDIPlus_ImageLoadFromFile($ImageFileKiste)
$ImageMunze = _GDIPlus_ImageLoadFromFile($ImageFileMunze)
$ImageMunzeAnzahl0 = _GDIPlus_ImageLoadFromFile($ImageFileMunzeAnzahl0)
$ImageMunzeAnzahl1 = _GDIPlus_ImageLoadFromFile($ImageFileMunzeAnzahl1)
$ImageMunzeAnzahl2 = _GDIPlus_ImageLoadFromFile($ImageFileMunzeAnzahl2)
$ImageMunzeAnzahl3 = _GDIPlus_ImageLoadFromFile($ImageFileMunzeAnzahl3)
$ImageZiel = _GDIPlus_ImageLoadFromFile($ImageFileZiel)
$ImageText = _GDIPlus_ImageLoadFromFile($ImageFileText)
$ImageNPC1 = _GDIPlus_ImageLoadFromFile($ImageFileNpc1)

_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageHintergrund, 0, 0, $GUIWidth, $GUIHeight)

_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageLinkUnten, $PosAktuell1, $PosAktuell2, 25, 34)

_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $PosAktuell1, $PosAktuell2, 25, 34)

_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl0, 0, 0, 25, 34)
;Münzen

_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)

_GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $GUIWidth, $GUIHeight) ; Back to front Buffer
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_Exit()

	EndSwitch


	_Bewegung()
	_ReDraw()
WEnd
Func _Exit()
	GUISetState(@SW_HIDE)
	Exit
	_GDIPlus_ImageDispose($ImageHintergrund)
	_GDIPlus_ImageDispose($ImageLinkUnten)
	_GDIPlus_ImageDispose($ImageLinkOben)
	_GDIPlus_ImageDispose($ImageLinkRechts)
	_GDIPlus_ImageDispose($ImageLinkLinks)
	_GDIPlus_ImageDispose($ImageKiste)
	_GDIPlus_ImageDispose($ImageMunze)
	_GDIPlus_ImageDispose($ImageMunzeAnzahl0)
	_GDIPlus_ImageDispose($ImageMunzeAnzahl1)
	_GDIPlus_ImageDispose($ImageMunzeAnzahl2)
	_GDIPlus_ImageDispose($ImageMunzeAnzahl3)
	_GDIPlus_ImageDispose($ImageText)
	_GDIPlus_ImageDispose($ImageZiel)
	_GDIPlus_GraphicsDispose($Backbuffer)
	_GDIPlus_BitmapDispose($Bitmap)
	_GDIPlus_GraphicsDispose($Graphic)
	_GDIPlus_Shutdown()
EndFunc   ;==>_Exit
Func _ReDraw()
	_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageHintergrund, 0, 0, $GUIWidth, $GUIHeight)
	Switch $Link
		Case 1
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageLinkUnten, $PosAktuell1, $PosAktuell2, 25, 34)
		Case 2
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageLinkOben, $PosAktuell1, $PosAktuell2, 25, 34)
		Case 3
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageLinkRechts, $PosAktuell1, $PosAktuell2, 25, 34)
		Case 4
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageLinkLinks, $PosAktuell1, $PosAktuell2, 25, 34)
	EndSwitch



	Switch $MunzeZahl
		Case 0
			If ($PosAktuell1 >= $Munze1Pos1 - 25 And $PosAktuell1 <= $Munze1Pos1 + 25) and ($PosAktuell2 >= $Munze1Pos2 - 25 And $PosAktuell2 <= $Munze1Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 1
			ElseIf ($PosAktuell1 >= $Munze2Pos1 - 25 And $PosAktuell1 <= $Munze2Pos1 + 25) and ($PosAktuell2 >= $Munze2Pos2 - 25 And $PosAktuell2 <= $Munze2Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 2
			ElseIf ($PosAktuell1 >= $Munze3Pos1 - 25 And $PosAktuell1 <= $Munze3Pos1 + 25) and ($PosAktuell2 >= $Munze3Pos2 - 25 And $PosAktuell2 <= $Munze3Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				$MunzeZahl = 3
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl0, 346, 0, 104, 23)
		Case 1 ;Münze 1 ist bereits aufgesammelt
			If ($PosAktuell1 >= $Munze2Pos1 - 25 And $PosAktuell1 <= $Munze2Pos1 + 25) and ($PosAktuell2 >= $Munze2Pos2 - 25 And $PosAktuell2 <= $Munze2Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 12 ;Münze 1 + 2
			ElseIf ($PosAktuell1 >= $Munze3Pos1 - 25 And $PosAktuell1 <= $Munze3Pos1 + 25) and ($PosAktuell2 >= $Munze3Pos2 - 25 And $PosAktuell2 <= $Munze3Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				$MunzeZahl = 13 ;Münze 1 + 3
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl1, 346, 0, 104, 23)
		Case 2 ;Münze 2 ist bereits aufgesammelt
			If ($PosAktuell1 >= $Munze1Pos1 - 25 And $PosAktuell1 <= $Munze1Pos1 + 25) and ($PosAktuell2 >= $Munze1Pos2 - 25 And $PosAktuell2 <= $Munze1Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 21 ;Münze 2 + 1
			ElseIf ($PosAktuell1 >= $Munze3Pos1 - 25 And $PosAktuell1 <= $Munze3Pos1 + 25) and ($PosAktuell2 >= $Munze3Pos2 - 25 And $PosAktuell2 <= $Munze3Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				$MunzeZahl = 23 ;Münze 2 + 3
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl1, 346, 0, 104, 23)
		Case 3 ;Münze 3 ist bereits aufgesammelt
			If ($PosAktuell1 >= $Munze1Pos1 - 25 And $PosAktuell1 <= $Munze1Pos1 + 25) and ($PosAktuell2 >= $Munze1Pos2 - 25 And $PosAktuell2 <= $Munze1Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 31 ;Münze 3 + 1
			ElseIf ($PosAktuell1 >= $Munze2Pos1 - 25 And $PosAktuell1 <= $Munze2Pos1 + 25) and ($PosAktuell2 >= $Munze2Pos2 - 25 And $PosAktuell2 <= $Munze2Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 32 ;Münze 3 + 2
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl1, 346, 0, 104, 23)
		Case 12 ;Münze 1 + 2 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze3Pos1 - 25 And $PosAktuell1 <= $Munze3Pos1 + 25) and ($PosAktuell2 >= $Munze3Pos2 - 25 And $PosAktuell2 <= $Munze3Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				$MunzeZahl = 123 ; 1 + 2 + 3
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)
		Case 13 ;Münze 1 + 3 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze2Pos1 - 25 And $PosAktuell1 <= $Munze2Pos1 + 25) and ($PosAktuell2 >= $Munze2Pos2 - 25 And $PosAktuell2 <= $Munze2Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 123
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)
		Case 21 ;Münze 2 + 1 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze3Pos1 - 25 And $PosAktuell1 <= $Munze3Pos1 + 25) and ($PosAktuell2 >= $Munze3Pos2 - 25 And $PosAktuell2 <= $Munze3Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				$MunzeZahl = 123
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)
		Case 23 ;Münze 2 + 3 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze1Pos1 - 25 And $PosAktuell1 <= $Munze1Pos1 + 25) and ($PosAktuell2 >= $Munze1Pos2 - 25 And $PosAktuell2 <= $Munze1Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 123
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)
		Case 31 ;Münze 3 + 1 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze2Pos1 - 25 And $PosAktuell1 <= $Munze2Pos1 + 25) and ($PosAktuell2 >= $Munze2Pos2 - 25 And $PosAktuell2 <= $Munze2Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 123
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)
		Case 32 ;Münze 3 + 2 sind bereits aufgesammelt
			If ($PosAktuell1 >= $Munze1Pos1 - 25 And $PosAktuell1 <= $Munze1Pos1 + 25) and ($PosAktuell2 >= $Munze1Pos2 - 25 And $PosAktuell2 <= $Munze1Pos2 + 25) Then
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze2Pos1, $Munze2Pos2, 25, 25)
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze3Pos1, $Munze3Pos2, 25, 25)
				$MunzeZahl = 123
			Else
				_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunze, $Munze1Pos1, $Munze1Pos2, 25, 25)
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl2, 346, 0, 104, 23)

		Case 123
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageZiel, 25, 25, 24, 32)
			If $PosAktuell1 <= 49 And $PosAktuell2 <= 57 Then
				MsgBox(0, "Herzlichen Glückwunsch !", "Du hast das Spiel von EliteMattthias erfolgreich bewältigt !")
				_Exit()
			EndIf
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageMunzeAnzahl3, 346, 0, 104, 23)

	EndSwitch
	_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageNPC1, 400, 25, 25, 34)
	Switch $Talk
		Case 1
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageText, 26, 174, 399, 50)
			_GDIPlus_GraphicsDrawString($Backbuffer, "Hallo mein Freund !", 45, 180)
		Case 2
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageText, 26, 174, 399, 50)
			_GDIPlus_GraphicsDrawString($Backbuffer, "Du spielst also das Spiel von EliteMattthias ?", 45, 180)
		Case 3
			_GDIPlus_GraphicsDrawImageRect($Backbuffer, $ImageText, 26, 174, 399, 50)
			_GDIPlus_GraphicsDrawString($Backbuffer, "Lass doch mal eine Bewertung auf AutoIt.de da !" & @CRLF & "Ich denke EliteMattthias freut sich über jede Bewertung !", 45, 180)
	EndSwitch

	_TreeCreate($Backbuffer, $PosAktuell1, $PosAktuell2, 25, 34, 200, 150, $Tree) ;UDF
	_GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $GUIWidth, $GUIHeight) ; Back to front Buffer
EndFunc   ;==>_ReDraw
Func _LinksDraw()
	If $PosAktuell1 <= 25 Then
		$PosAktuell1 = 25
	Else
		$PosAktuell1 -= 3
	EndIf
EndFunc   ;==>_LinksDraw
Func _RechtsDraw()
	If $PosAktuell1 >= 400 Then
		$PosAktuell1 = 400
	ElseIf $PosAktuell1 <= 425 And $PosAktuell1 >= 375 And $PosAktuell2 <= 59 Then
	Else
		$PosAktuell1 += 3
	EndIf
EndFunc   ;==>_RechtsDraw
Func _ObenDraw()
	If $PosAktuell2 <= 25 Then
		$PosAktuell2 = 25
	ElseIf $PosAktuell1 <= 425 And $PosAktuell1 >= 377 And $PosAktuell2 <= 62 Then
	Else
		$PosAktuell2 -= 3
	EndIf
EndFunc   ;==>_ObenDraw
Func _UntenDraw()
	If $PosAktuell2 >= 191 Then
		$PosAktuell2 = 191
	Else
		$PosAktuell2 += 3
	EndIf
EndFunc   ;==>_UntenDraw
Func _Talk()
	If $PosAktuell1 <= 425 And $PosAktuell1 >= 375 And $PosAktuell2 <= 62 Then
		$Lauf = 0
		Switch $Talk
			Case 0
				$Talk = 1
			Case 1
				$Talk = 2
			Case 2
				$Talk = 3
			Case 3
				$Talk = 0
				$Lauf = 1
		EndSwitch
	EndIf
EndFunc   ;==>_Talk
Func _Bewegung()
	If _IsPressed("25") And $Lauf = 1 Then
		$Link = 4
		_LinksDraw()
	EndIf
	If _IsPressed("27") And $Lauf = 1 Then
		$Link = 3
		_RechtsDraw()
	EndIf
	If _IsPressed("28") And $Lauf = 1 Then
		$Link = 1
		_UntenDraw()
	EndIf
	If _IsPressed("26") And $Lauf = 1 Then
		$Link = 2
		_ObenDraw()
	EndIf
EndFunc   ;==>_Bewegung