While 1
west()
west()
west()
west()
west()
west()
sued()
ost()
ost()
ost()
sued()
sued()
west()
sued()
ost()
ost()
ost()
ost()
sued()
west()
west()
west()
sued()
ost()
sued()
west()
west()
sued()
ost()
sued()
ost()
sued()
ost()
ost()
sued()
west()
west()
west()
nord()
west()
sued()
west()
sued()
ost()
ost()
ost()
ost()
ost()
sued()
west()
west()
west()
west()
west()
west()
west()
west()
nord()
west()
nord()
nord()
nord()
nord()
ost()
nord()
nord()
ost()
ost()
nord()
nord()
west()
west()
	bank()
ost()
ost()
sued()
ost()
ost()
ost()
ost()
ost()
nord()
nord()
nord()
nord()
ost()
nord()
WEnd


Func _StartBot()
	$Active = 1
EndFunc

Func _PauseBot()
	$Active = 0
EndFunc

Func _EndeBot()
	Exit
EndFunc

	Func Attack()
		send("^f")
		send("{DEL}")
		sleep(100)
		send("Schnellangriff")
		sleep(1000)
		$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)

		If IsArray($Attack) Then
			MouseMove($Attack[0], $Attack[1], 1)
			sleep(500)
			MouseClick( "left" )
		EndIf
	EndFunc


Func Str1 ()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 1.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str2()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 2.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str3()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 3.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str4()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 4.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc
Func Str5()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 5.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str6()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 6.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str7()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 7.")
	sleep(1000)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func Str8()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Angriffsstärke: 8.")
	sleep(500)
	$Attack = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)
	If IsArray($Attack) Then
		Attack()
	EndIf
EndFunc

Func StrMax()
	Str1()
	Str2()
	Str3()
	;Str4()
	;Str5()
	;Str6()
	Str7()
	;Str8()
	Heal()
	loot()
EndFunc

Func Heal()
	sleep(500)
	$Lebenspunkte = PixelSearch(1413, 220, 1556, 238, 0xDF3400, 20)
		If IsArray($Lebenspunkte) Then
			MouseClick("left", 1505, 468, 1)
			sleep(40000)
		EndIf
	$Lebenspunkte = PixelSearch(1413, 220, 1556, 238, 0xD20000, 20)
		If IsArray($Lebenspunkte) Then
			MouseClick("left", 1505, 468, 1)
			sleep(40000)
		EndIf
EndFunc



Func nord ()
	MouseClick("left", 1540, 733, 1)
	StrMax()
EndFunc

Func sued ()
	MouseClick("left", 1541, 833, 1)
	StrMax()
EndFunc

Func west ()
	MouseClick("left", 1489, 786, 1)
	StrMax()
EndFunc

Func ost ()
	MouseClick("left", 1586, 784, 1)
	StrMax()
EndFunc

Func bank()
	MouseClick("left", 331, 373, 1)
	sleep(1000)
	MouseClick("left", 30, 388, 1)
	sleep(1000)
	send("5000")
	sleep(500)
	send("{ENTER}")
EndFunc

Func loot()
	send("^f")
	send("{DEL}")
	sleep(100)
	send("Nehmen")
	sleep(1000)
	$loot = PixelSearch(8, 292, 1385, 789, 0x38D878, 5)

	If IsArray($loot) Then
			MouseMove($loot[0], $loot[1], 1)
			sleep(500)
			MouseClick( "left" )
	EndIf
EndFunc