-Drunken Master- Säufertitel-Bot

[aLasca]

Originally Posted by D4yw47k3r

Ich finde es leider nichtmehr.. ist garnicht solange her. In den Wartower News wurde um die G15 disskutiert. Irgendwann kam dann ein Statement von Anet, in dem gesagt wird das Auschließlich =>Makros<= benutzt werden dürfen, solange der Spieler sich noch vor dem PC befindet.

[Adroxxx]

Originally Posted by aLasca

Ich finde es leider nichtmehr.. ist garnicht solange her. In den Wartower News wurde um die G15 disskutiert. Irgendwann kam dann ein Statement von Anet, in dem gesagt wird das Auschließlich =>Makros<= benutzt werden dürfen, solange der Spieler sich noch vor dem PC befindet.

Also bot an, im hintergrund laufen lassen und pr0ns gucken , gell?

[aLasca]

Originally Posted by Adroxxx

Also bot an, im hintergrund laufen lassen und pr0ns gucken , gell?

Genau deswegen haben sie sich dort wortwörtlich "Ins Knie geschossen"
...Sie können es ja dann nichtmehr kontrollieren.

€: Hab grad mal gegooglt und ich glaub ich hab wiggles RA Bot gefunden xD

Link edited
€²:

2 Wochen Bann für Bot User: Mögliche Erklärung

--------------------------------------------------------------------------------

Seit vorgestern erhitzt eine Diskussion die Gemüter. User die während des letzten Faction Events angeblich einen Bot benutzt haben, wurden statt wie üblich permanent gebannt zu werden nur für 2 Wochen gebannt.

Leider lies sich aus der offiziellen Ankündigung nur schwer erahnen, was genau nun passiert ist. Nachdem ich nun einige Forenthreads auf Guild Wars Guru durchgelesen habe scheint das ganze wohl so abgelaufen zu sein:

Es gibt die G15 Tastatur von Logitech, mit deren Hilfe man Tastatur Makros erstellen kann.
Diese Makros wurden wohl verwendet um einige Abläufe zu automatisieren. Folgt man diesem Thread bestand zumindest hier das Makro darin den zweiten Account in die eigene Gruppe aufzunehmen, automatsich zum Spieler zu laufen und das Gebiet zu betreten.
Der eigentliche HFFF Lauf wurde jedoch vom Spieler selbergemacht.
Die automatisierten Abläufe wurden als Bot gewertet und Spieler dafür gebannt.
Das Problem an der Sache ist folgendes: Das Spielen mit der G15 und das verwenden von Makros wurde vom Support erlaubt (bzw. nahmen sie das an). Hier ist jedoch die Reglung recht schwammig. Bis wohnin geht ein einfaches Makro (/resign, /dance, Items aufheben), was erlaubt ist und ab wo beginnt ein automischer Ablauf, der verboten ist?

Die Spieler die dieses oder ein ähnliches Makro verwendet haben wurden als Bot User gebannt, sie selbst waren aber der Annahme nichst falsches zu tun, weil man es ja erlaubt hatte. Diese Spieler wurden nun wohl wieder entsperrt. Bot Using selbst ist und bleibt weiterhin verboten und wird mit einem permanenten Bann bestraft.

Leider steht noch eine offizielle Aussage aus, ob es wirklich so gelaufen ist. Wir halten euch auf dem Laufenden.

€³: Netter Bot wiggle xD

[Stoneware]

Kann man den Bot so erweitern das er nen 3min als "starter" trinkt und danach nicht nur 1 Stack sondern mehrere trinkt? Damit man auch mal über Nacht was für seinen Bierbauch tun kann?

[_revo]

klar

[Darkviper100]

naja da fehlen auch paar alks z.b grog flaschen etc

[-Anthrax-]

ist ja auch schon lange nichtmehr aktualiersiert worden, grog zb gibts ncoh nicht allzu lange, werds evtl mal nachtragen wenn cih zeit dazu bekomm, ansonsten machs eben selber, ist doch alles open source ^^

[Stoneware]

So ich hab mal versucht da was zusammen zu basteln um die Fässer altes Jägerbier über Nacht loszuwerden. Ist mit Sicherheit nichts tolles (aber nach 2 Tagen AutoIt Erfahrung =) )

Ist Momentan drauf ausgelegt 4 Fässer zu leeren kann aber leicht erweitert werden!

Wär nett wenn mal jemand mit mehr Talent für AutoIt drüber gucken würde und Tipps geben könnte!

Code:

HotKeySet ("{DEL}", "position")

Global $x
Global $y
Global $x1
Global $y1
Global $x2
Global $y3


Func position()
Run ("Windowinfo.exe")
Sleep(1500)
MsgBox ( 0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
$x=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0" )
$y=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0" )
$x1=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X1-Koordinate eintragen", "0" )
$y1=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y1-Koordinate eintragen", "0" )
$x2=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X2-Koordinate eintragen", "0" )
$y2=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y2-Koordinate eintragen", "0" )
$x3=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X3-Koordinate eintragen", "0" )
$y3=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die Y3-Koordinate eintragen", "0" )
ProcessClose("Windowinfo.exe")$x=InputBox ( "Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0" )
Call ("trinken1")
EndFunc

WinActivate("Guild Wars")

Func trinken1 ()
	For $i= 1 to 50
	MouseMove ( $x, $y, 2)
	Sleep (1000)
    MouseClick("left" ,$x,$y,2)	
	Sleep (random (182000,186000))
Next
Call ("trinken2")
EndFunc

Func trinken2 ()
	For $i= 1 to 50
	MouseMove ( $x1, $y1, 2)
	Sleep (1000)
    MouseClick("left" ,$x1,$y1,2)	
	Sleep (random (182000,186000))
Next
Call ("trinken3")
EndFunc

Func trinken3 ()
	For $i= 1 to 50
	MouseMove ( $x2, $y2, 2)
	Sleep (1000)
    MouseClick("left" ,$x2,$y2,2)	
	Sleep (random (182000,186000))
Next
Call ("trinken4")
EndFunc

Func trinken4 ()
	For $i= 1 to 50
	MouseMove ( $x3, $y3, 2)
	Sleep (1000)
    MouseClick("left" ,$x3,$y3,2)	
	Sleep (random (182000,186000))
Next
Sleep (100)
EndFunc

while 1
sleep (100)
WEnd

Is zu 99% dem Orginal entnommen und ein bisschen Anfänger-Improvisation hinzugefügt!

[NBA]

Probier mal den Befehl "ControlSend" bzw. "ControlClick" aus. Damit laesst sich das ganze in den Hintergrund verschieben!

[Specter cason]

und gw dann im fenstermodus laufen lassen

[riser1337]

sehr nice, bringt mich gleich auf sehr nette ideen der bot

[Stoneware]

Versteh das mit dem im Hintergrund noch nicht so wirklich =)
Muss mich wahrscheinlich erst mal mehr mit autoit beschäftigen! Hab da noch so nen paar sachen die ich einbauen möchte aber momentan noch nicht wirklich hinbekomme aber kommt Zeit kommt Rat!

[Frutex]

Mit dem Hinzergrund.. entweder benutze die keysend func aus der tt6 oder controlsend bzw. click($hWnd,coordsx, coordsy) usw...

[Stoneware]

Werd mich erst mal dran machen die restlichen Funktionen einzubauen die ich mir noch so überlegt habe! Danach guck ich dann mal ob ich das auch so hinkrieg das es im Hintergrund läuft!

[Stoneware]

So ma neuer Stand der Dinge:

Man kann jetzt wählen ob man "nur" fässer trinkt oder ob man 1min alk mit nem starter vorweg trinkt, max sind 5 fässer oder 5 stacks alk!
Sollte eigentlich alles soweit klappen aber sicher bin ich mir nicht =)

Global $x
Global $y
Global $x1
Global $y1
Global $x2
Global $x2
Global $x3
Global $y3
Global $x4
Global $y4
Global $x5
Global $y5
Global $x6
Global $y6
Global $x7
Global $y7
Global $x8
Global $y8
Global $x9
Global $y9
Global $x10
Global $y10
Global $a
Global $a1
Global $a2
Global $a3
Global $a4
Global $a5
Global $a6
Global $a7
Global $t

$t = Inputbox("Funktionswahl", "Bitte nun 1 oder 2 eingeben je nach gewünschter Funktion! 1: Fässer trinken max. 5 Fässer! 2: 1 min Alk Mit Starter trinken max. 5 stacks!")

If $t = 1 Then
	Sleep(1000)
	Call("faesser")
EndIf

If $t = 2 Then
	Sleep(2000)
	Call("alk")
EndIf




#region Fässer
Func faesser()

	Sleep(1000)
	$a = InputBox("Bitte Anzahl der Fässer eintragen", "Anzahl der Fässer:")



	If $a = 1 Then
		Call("position1")
	EndIf
	If $a = 2 Then
		Call("position2")
	EndIf
	If $a = 3 Then
		Call("position3")
	EndIf
	If $a = 4 Then
		Call("position4")
	EndIf
	If $a = 5 Then
		Call("position5")
	EndIf
EndFunc   

Func position1()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	ProcessClose("Windowinfo.exe")

	Call("trinken1")
EndFunc   

Func position2()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	$x1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die X-Koordinate des 2ten Fasses eintragen", "0")
	$y1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die Y-Koordinate des 2ten Fasses eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("trinken1")
EndFunc   


Func position3()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	$x1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die X-Koordinate des 2ten Fasses eintragen", "0")
	$y1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die Y-Koordinate des 2ten Fasses eintragen", "0")
	$x2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die X-Koordinate des 3ten Fasses eintragen", "0")
	$y2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die Y-Koordinate des 3ten Fasses eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("trinken1")
EndFunc  


Func position4()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	$x1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die X-Koordinate des 2ten Fasses eintragen", "0")
	$y1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die Y-Koordinate des 2ten Fasses eintragen", "0")
	$x2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die X-Koordinate des 3ten Fasses eintragen", "0")
	$y2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die Y-Koordinate des 3ten Fasses eintragen", "0")
	$x3 = InputBox("Bitte nun die Koordinaten des 4ten Fasses eintragen", "Bitte nun die X-Koordinate des 4ten Fasses eintragen", "0")
	$y3 = InputBox("Bitte nun die Koordinaten des 4ten Fasses eintragen", "Bitte nun die Y-Koordinate des 4ten Fasses eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("trinken1")
EndFunc   


Func position5()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	$x1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die X-Koordinate des 2ten Fasses eintragen", "0")
	$y1 = InputBox("Bitte nun die Koordinaten des 2ten Fasses eintragen", "Bitte nun die Y-Koordinate des 2ten Fasses eintragen", "0")
	$x2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die X-Koordinate des 3ten Fasses eintragen", "0")
	$y2 = InputBox("Bitte nun die Koordinaten des 3ten Fasses eintragen", "Bitte nun die Y-Koordinate des 3ten Fasses eintragen", "0")
	$x3 = InputBox("Bitte nun die Koordinaten des 4ten Fasses eintragen", "Bitte nun die X-Koordinate des 4ten Fasses eintragen", "0")
	$y3 = InputBox("Bitte nun die Koordinaten des 4ten Fasses eintragen", "Bitte nun die Y-Koordinate des 4ten Fasses eintragen", "0")
	$x4 = InputBox("Bitte nun die Koordinaten des 5ten Fasses eintragen", "Bitte nun die X-Koordinate des 5ten Fasses eintragen", "0")
	$y4 = InputBox("Bitte nun die Koordinaten des 5ten Fasses eintragen", "Bitte nun die Y-Koordinate des 5ten Fasses eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("trinken1")
EndFunc  

WinActivate("Guild Wars")
WinWaitActive("Guild Wars")

Func trinken1()

	For $i = 1 to 50
		MouseMove($x, $y, 2)
		Sleep(1000)
		MouseClick("left", $x, $y, 2)
		Sleep(random(182000, 186000))
	Next
	If $a >= 2 Then
		Call("trinken2")
	EndIf
EndFunc  

Func trinken2()
	For $i = 1 to 50
		MouseMove($x1, $y1, 2)
		Sleep(1000)
		MouseClick("left", $x1, $y1, 2)
		Sleep(random(182000, 186000))
	Next
	If $a >= 3 then
		Call("trinken3")
	EndIf
EndFunc  

Func trinken3()
	For $i = 1 to 50
		MouseMove($x2, $y2, 2)
		Sleep(1000)
		MouseClick("left", $x2, $y2, 2)
		Sleep(random(182000, 186000))
	Next
	If $a >= 4 then
		Call("trinken4")
	EndIf
EndFunc   

Func trinken4()
	For $i = 1 to 50
		MouseMove($x3, $y3, 2)
		Sleep(1000)
		MouseClick("left", $x3, $y3, 2)
		Sleep(random(182000, 186000))
	Next
	If $a >= 5 then
		Call("trinken5")
	EndIf

EndFunc   

Func trinken5()
	For $i = 1 to 50
		MouseMove($x4, $y4, 2)
		Sleep(1000)
		MouseClick("left", $x4, $y4, 2)
		Sleep(random(182000, 186000))
	next
EndFunc  

#endregion

#region 1min
Func alk()
	Sleep(1000)

	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des 3 min Starter zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x10 = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die X-Koordinate eintragen", "0")
	$y10 = InputBox("Bitte nun die Koordinaten eintragen", "Bitte nun die Y-Koordinate eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("anzahl1")
EndFunc  


Func anzahl1()
	$a1 = InputBox("Bitte Anzahl der Stacks eintragen", "Anzahl der Stacks:", "0")


	If $a1 = 1 Then
		Call("anzahlflaschen")
	EndIf
	If $a1 = 2 Then
		Call("anzahlflaschen")
	EndIf
	If $a1 = 3 Then
		Call("anzahlflaschen")
	EndIf
	If $a1 = 4 Then
		Call("anzahlflaschen")
	EndIf
	If $a1 = 5 Then
		Call("anzahlflaschen")
	EndIf
EndFunc   


Func anzahlflaschen()
	Sleep(2000)
	If $a1 >= 1 Then
		$a3 = InputBox("Anzahl der Flaschen", "Bitte Anzahl der Flaschen in Stack 1 angeben!", "250")
	EndIf

	Sleep(2000)

	If $a1 = 1 Then
		Call("position6")
	EndIf

	If $a1 >= 2 Then
		$a4 = InputBox("Anzahl der Flaschen", "Bitte Anzahl der Flaschen in Stack 2 angeben!", "250")
	EndIf

	If $a1 = 2 Then
		Call("position7")
	EndIf

	If $a1 >= 3 Then
		$a5 = InputBox("Anzahl der Flaschen", "Bitte Anzahl der Flaschen in Stack 3 angeben!", "250")
	EndIf

	If $a1 = 3 Then
		Call("position8")
	EndIf

	If $a1 >= 4 Then
		$a6 = InputBox("Anzahl der Flaschen", "Bitte Anzahl der Flaschen in Stack 4 angeben!", "250")
	EndIf

	If $a1 = 4 Then
		Call("position9")
	EndIf

	If $a1 >= 5 Then
		$a7 = InputBox("Anzahl der Flaschen", "Bitte Anzahl der Flaschen in Stack 5 angeben!", "250")
	EndIf

	If $a1 = 5 Then
		Call("position10")
	EndIf

EndFunc   

Func position6()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die X-Koordinate für Stack 1 eintragen", "0")
	$y5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen ", "Bitte nun die Y-Koordinate für Stack 1 eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("starter")
EndFunc  


Func position7()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die X-Koordinate für Stack 1 eintragen", "0")
	$y5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die Y-Koordinate für Stack 1 eintragen", "0")
	$x6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die X-Koordinate für Stack 2 eintragen", "0")
	$y6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die Y-Koordinate für Stack 2 eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("starter")
EndFunc   


Func position8()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die X-Koordinate für Stack 1 eintragen", "0")
	$y5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die Y-Koordinate für Stack 1 eintragen", "0")
	$x6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die X-Koordinate für Stack 2 eintragen", "0")
	$y6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die Y-Koordinate für Stack 2 eintragen", "0")
	$x7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die X-Koordinate für Stack 3 eintragen", "0")
	$y7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die Y-Koordinate für Stack 3 eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("starter")
EndFunc   

Func position9()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die X-Koordinate für Stack 1 eintragen", "0")
	$y5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die Y-Koordinate für Stack 1 eintragen", "0")
	$x6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die X-Koordinate für Stack 2 eintragen", "0")
	$y6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die Y-Koordinate für Stack 2 eintragen", "0")
	$x7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die X-Koordinate für Stack 3 eintragen", "0")
	$y7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die Y-Koordinate für Stack 3 eintragen", "0")
	$x8 = InputBox("Bitte nun die Koordinaten für Stack 4 eintragen", "Bitte nun die X-Koordinate für Stack 4 eintragen", "0")
	$y8 = InputBox("Bitte nun die Koordinaten für Stack 4 eintragen", "Bitte nun die Y-Koordinate für Stack 4 eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("starter")
EndFunc   

Func position10()
	Run("Windowinfo.exe")
	Sleep(1500)
	MsgBox(0, "Positionsfinder", "Um die Koordinaten des Alkohols zu bestimmen öffnet das Inventar und haltet die Maus über die Alkoholsorte die ihr Trinken möchtet.")
	$x5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die X-Koordinate für Stack 1 eintragen", "0")
	$y5 = InputBox("Bitte nun die Koordinaten für Stack 1 eintragen", "Bitte nun die Y-Koordinate für Stack 1 eintragen", "0")
	$x6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die X-Koordinate für Stack 2 eintragen", "0")
	$y6 = InputBox("Bitte nun die Koordinaten für Stack 2 eintragen", "Bitte nun die Y-Koordinate für Stack 2 eintragen", "0")
	$x7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die X-Koordinate für Stack 3 eintragen", "0")
	$y7 = InputBox("Bitte nun die Koordinaten für Stack 3 eintragen", "Bitte nun die Y-Koordinate für Stack 3 eintragen", "0")
	$x8 = InputBox("Bitte nun die Koordinaten für Stack 4 eintragen", "Bitte nun die X-Koordinate für Stack 4 eintragen", "0")
	$y8 = InputBox("Bitte nun die Koordinaten für Stack 4 eintragen", "Bitte nun die Y-Koordinate für Stack 4 eintragen", "0")
	$x9 = InputBox("Bitte nun die Koordinaten für Stack 5 eintragen", "Bitte nun die X-Koordinate für Stack 5 eintragen", "0")
	$y9 = InputBox("Bitte nun die Koordinaten für Stack 5 eintragen", "Bitte nun die Y-Koordinate für Stack 5 eintragen", "0")
	ProcessClose("Windowinfo.exe")
	Call("starter")
EndFunc   

Func starter()

	WinActivate("Guild Wars")
	WinWaitActive("Guild Wars")

	MouseMove($x10, $y10, 2)
	Sleep(1000)
	MouseClick("left", $x10, $y10, 2)
	Sleep(random(57900, 59000))
	Call("trinken7")
EndFunc   


Func trinken7()

	For $i = 1 to $a3
		MouseMove($x5, $y5, 2)
		Sleep(1000)
		MouseClick("left", $x5, $y5, 2)
		Sleep(random(57900, 59000))
	Next
	If $a1 >= 2 Then
		Call("trinken8")
	EndIf
EndFunc  

Func trinken8()

	For $i = 1 to $a4
		MouseMove($x6, $y6, 2)
		Sleep(1000)
		MouseClick("left", $x6, $y6, 2)
		Sleep(random(57900, 59000))
	Next
	If $a1 >= 3 Then
		Call("trinken9")
	EndIf
EndFunc  


Func trinken9()

	For $i = 1 to $a5
		MouseMove($x7, $y7, 2)
		Sleep(1000)
		MouseClick("left", $x7, $y7, 2)
		Sleep(random(57900, 59000))
	Next
	If $a1 >= 4 Then
		Call("trinken10")
	EndIf
EndFunc  

Func trinken10()

	For $i = 1 to $a5
		MouseMove($x8, $y8, 2)
		Sleep(1000)
		MouseClick("left", $x8, $y8, 2)
		Sleep(random(57900, 59000))
	Next
	If $a1 >= 5 Then
		Call("trinken11")
	EndIf
EndFunc  

Func trinken11()

	For $i = 1 to $a6
		MouseMove($x9, $y9, 2)
		Sleep(1000)
		MouseClick("left", $x9, $y9, 2)
		Sleep(random(57900, 59000))
	Next

EndFunc  

#endregion

while 1
	sleep(100)
WEnd

Edit: Paar flüchtigkeitsfehler behoben!