Nabend Leute, ich hoffe mal das liest jemand noch heut abend, denn wollte eig heute abend noch das der bot farmt beenden....
Also der Bot ist für Mönchelite Toms farmen bei Lutgardis Wintergarten, diesen byzzier da (oder wie der heißt).
Zuerst läuft alels gut, der bot läuft zu seite, um zu prüfen auf welcher seite er ist (wählt Farntal/Melandrus). Danach läuft er los und läuft durchs portal...
Danach fängt es an....
Der bot dreht sich zu seite und drückt plötzlich willkürlich eine Fähigkeit (meistens die nummer 8 oder die nummer 1) dreht sich nochmal und läuft los und schaltet sich danach ab, obwohl es noch weiter geht.... Ich finde den Fehler net, hab auch keine Zahl irgendeinem anderen Ziffer zugewiesen wie drehen = a und 1 .... Vielleicht findet ihr den Fehler.... ich hoffe es^^.
Also der Bot ist für Mönchelite Toms farmen bei Lutgardis Wintergarten, diesen byzzier da (oder wie der heißt).
Zuerst läuft alels gut, der bot läuft zu seite, um zu prüfen auf welcher seite er ist (wählt Farntal/Melandrus). Danach läuft er los und läuft durchs portal...
Danach fängt es an....
Der bot dreht sich zu seite und drückt plötzlich willkürlich eine Fähigkeit (meistens die nummer 8 oder die nummer 1) dreht sich nochmal und läuft los und schaltet sich danach ab, obwohl es noch weiter geht.... Ich finde den Fehler net, hab auch keine Zahl irgendeinem anderen Ziffer zugewiesen wie drehen = a und 1 .... Vielleicht findet ihr den Fehler.... ich hoffe es^^.
Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Noobhunt3r
Script Function:
Farmt Mönch Elite Tomes bei dem Wintergarten.
#ce ----------------------------------------------------------------------------
HotKeySet("{PAUSE}", "_Pause")
HotKeySet("{END}","_Aus")
Global $runden = InputBox("Runden?","Wieviele Runden soll der Bot machen?","Bitte eingeben")
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf
MsgBox(4096, "Info" ,"Der Bot farmt die Runden und verkauft nach der angegebenen Rundenzahl (" & $runden & ") oder er verkauft automatisch noch 20 Runden.", 5)
sleep(3000)
WinActivate("Guild Wars")
_HM()
func _HM()
WinWaitActive("Guild Wars")
sleep(2000)
MouseClick("left",1143,333,1,15)
sleep(700)
Rausgehen()
EndFunc
func Rausgehen()
send("{q down}")
sleep(1000)
send("{q up}")
sleep(300)
send("z")
sleep(300)
$seite2 = PixelGetColor(662, 60)
If $seite2 = 0xAFAFAF Then
send("{SPACE}")
sleep(12000)
Send("{x}")
sleep(300)
Send("{d down}")
sleep(500)
Send("{d up}")
sleep(700)
send("r")
sleep(8000)
screen()
Else
send("z")
sleep(300)
send("{Space}")
sleep(12000)
send("r")
sleep(8000)
screen()
EndIf
EndFunc
func screen()
$karte = PixelSearch(1028, 148, 1028, 148,0x293239)
If @error Then
sleep(3000)
screen()
Else
sleep(1000)
farmen()
EndIf
EndFunc
Func farmen()
sleep(3000)
send("{a down}")
sleep(300)
send("{a up}")
sleep(600)
send("r")
send(8000)
send("s")
sleep(300)
send("{a down}")
sleep(200)
send("{a up}")
sleep(300)
send("r")
EndFunc
Func _Pause()
$Pause = NOT $Pause
While $Pause
sleep(100)
ToolTip("Script is Paused", 95,3)
WEnd
ToolTip("Script is Running", 95, 3)
EndFunc
Func _Aus()
exit 0
EndFunc
