Input Box für runden würd ich mit ini machen
Iniread
Iniwrite
Iniread
Iniwrite
Quote:
Global $memoryx = IniRead("settings.ini", "settings", "Memory X", "0")
Hier der Gui+++++++++++++
func Set()
$data = GuiCtrlRead($Input1)
IniWrite("settings.ini", "settings", "Memory X", $data)
Endfunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$case
EndSwitch
SetValues()
sleep(5)
WEnd
;man muss schon in der UW² sein :-)
send("6")
send("7")
send("8")
Sleep(4900)
send("{w down}")
sleep(7200)
send("{w up}")
send("{d down}")
sleep(500)
send("{d up}")
send("{w down}")
Sleep(3900)
send("{w up}")
send("{a down}")
sleep(520)
send("{a up}")
send("{w down}")
Sleep(8100)
send("{w up}")
send("5")
send("3")
sleep(3200)
send("1")
sleep(5000)
send("6")
send("7")
send("8")
sleep(4900)
send("2")
send("5")
Sleep(22600)
send("1")
sleep(6000)
send("6")
send("7")
send("8")
sleep(4900)
;das ganze ist auch ohne items aufsammeln etc
Send("{Tab}")
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
$1 = Random(500, 3000)
Sleep($1)
Send("{Tab}")
$1 = Random(500, 550)
Sleep($1)
Send("{Tab}")
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Space}")
Sleep(4500)
Send("{Tab}")
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Sleep($1)
Send("{Tab}")
Naja, aufheben geht eigentlich sehr einfach. Du legst "nächsten gegenstand aufheben" z.B auf o.Quote:
so das ganze noch mit nem start, loot und ende und der bot wär nicht schlecht :-) (weil im hm droppt es ja doch nicht so schlecht)PHP Code:;das ganze ist auch ohne items aufsammeln etc
send("o")
sleep(100)
send("o")
;Bei eigenen abbrechen des Bottes
func beenden()
Exit
endfunc
;Noch einen Hotkey, damit man den Bot auch beenden kann...
hotkeyset("{end}","beenden")
;Wenn der bot die Mission/Gebiet beenden soll
send("{enter}/resign")
sleep(200)
Mouseclick(x,y,geschwinidkeit)
sleep(6000)
;bis halt der Aussenposten geladen hat...
;Starten(jetzt ohne Gui, geht trotzdem gut)
$i = 0
$Runden = Inputbox("Runden","Geb hier ein wieviel Runden du farmen willst")
;Home = Pos1
Hotkeyset("{Home}","Farmen")
Func Farmen()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
For $i = $Runden to 1 step -1
;alles Bot
Endfunc
ja nur weiß man halt nich wieviele gegenstände droppen und wie weit sie weg sind, ich denke mal das problem kann man mit ner pixel abfrage lösen (weil der gegenstand wird ja oben in nem schwarzenkaste angezeigt) nur ich weiß halt nicht wie man das macht :-)Quote:
Naja, aufheben geht eigentlich sehr einfach. Du legst "nächsten gegenstand aufheben" z.B auf o.
Dann einfach
dann versiert er den nächsten gegenstand an, drückt leertaste geht hin und nimmt auf ;)PHP Code:send("o")
sleep(100)
send("o")
;Bei eigenen abbrechen des Bottes
func beenden()
Exit
endfunc
;Noch einen Hotkey, damit man den Bot auch beenden kann...
hotkeyset("{end}","beenden")
Func RS($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc
;Starten(jetzt ohne Gui, geht trotzdem gut)
$i = 0
$Runden = Inputbox("1","Geb hier ein wieviel Runden du farmen willst")
;Home = Pos1
Hotkeyset("{Home}","Farmen")
Func Farmen()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
For $i = $Runden to 1 step -1
;Weg zur UW²
send("o")
RS(0,2000)
send("{space}")
RS(13000,15000)
;UW²
send("6")
send("7")
send("8")
sleep(4900)
send("{w down}")
sleep(7200)
send("{w up}")
send("{d down}")
sleep(500)
send("{d up}")
send("{w down}")
sleep(3900)
send("{w up}")
send("{a down}")
sleep(520)
send("{a up}")
send("{w down}")
sleep(8100)
send("{w up}")
send("5")
send("3")
sleep(3200)
send("1")
sleep(5000)
send("6")
send("7")
send("8")
sleep(4900)
send("2")
send("5")
Sleep(22600)
send("1")
sleep(6000)
send("6")
send("7")
send("8")
sleep(4900)
;aufheben
For $i = 10 to 1 Step -1
send("o")
sleep(1000)
send("o")
Next
;ende
send("{enter}/resign")
sleep(200)
Mouseclick(657,536,8000)
sleep(5000)
Next
Endfunc
; Script Start - Add your code below here
#include<GUIConstants.au3>
;Bei eigenen abbrechen des Bottes
func beenden()
Exit
endfunc
;Noch einen Hotkey, damit man den Bot auch beenden kann...
hotkeyset("{end}","beenden")
Func RS($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc
;Starten(jetzt ohne Gui, geht trotzdem gut)
$Runden = Inputbox("1","Geb hier ein wieviel Runden du farmen willst")
$i = $Runden
;Home = Pos1
Hotkeyset("{Home}","Farmen")
Func Farmen()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
For $i = $Runden to 1 step -1
;Weg zur UW²
sleep(250)
send("o")
RS(0,2000)
send("{space}")
RS(13000,15000)
;UW²
send("6")
send("7")
send("8")
sleep(4900)
send("{w down}")
sleep(7200)
send("{w up}")
send("{d down}")
sleep(500)
send("{d up}")
send("{w down}")
sleep(3900)
send("{w up}")
send("{a down}")
sleep(520)
send("{a up}")
send("{w down}")
sleep(8100)
send("{w up}")
send("5")
send("3")
sleep(3200)
send("1")
sleep(5000)
send("6")
send("7")
send("8")
sleep(4900)
send("2")
send("5")
Sleep(22600)
send("1")
sleep(6000)
send("6")
send("7")
send("8")
sleep(4900)
;aufheben
For $i = 10 to 1 Step -1
send("o")
sleep(1000)
send("o")
Next
;ende
send("{enter}/resign")
sleep(200)
Mouseclick(657,536,8000)
sleep(5000)
Next
Endfunc
GUICreate("Nichts")
GuiSetState(@SW_Show)
GUICtrlCreateLabel("Starten mit POS1 oder Home, beenden mit Ende",10,0)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Quote:
joa das hab ich jetzt einfachmal mit ner schleife "gelöst" nur das problem ist halt jetzt das der scheiß nicht startet :-)
$anwahl = 0
While $anwahl <> 17
$anwahl += 1
ControlSend ("Guild Wars","","","{TAB}")
Randomsleep (200,250)
WEnd
ControlSend ("Guild Wars","","","{2}")
Randomsleep (700,800)
ControlSend ("Guild Wars","",""," ")
Randomsleep (2000,3000)
$anwahl2 = 0
While $anwahl2 <> 7
$anwahl2 += 1
ControlSend ("Guild Wars","","","{TAB}")
Randomsleep (500,600)
WEnd
ControlSend ("Guild Wars","",""," ")
; Script Start - Add your code below here
#include<GUIConstants.au3>
;Bei eigenen abbrechen des Bottes
func beenden()
Exit
endfunc
;Noch einen Hotkey, damit man den Bot auch beenden kann...
hotkeyset("{end}","beenden")
Func RS($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc
;Starten(jetzt ohne Gui, geht trotzdem gut)
$Runden = Inputbox("1","Geb hier ein wieviel Runden du farmen willst")
$i = $Runden
;Home = Pos1
Hotkeyset("{Home}","Farmen")
Func Farmen()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
For $i = $Runden to 1 step -1
;Weg zur UW²
send("o")
RS(0,2000)
send("{space}")
RS(13000,15000)
;UW²
send("6")
send("7")
send("8")
sleep(4900)
send("{w down}")
sleep(7200)
send("{w up}")
send("{d down}")
sleep(500)
send("{d up}")
send("{w down}")
sleep(3900)
send("{w up}")
send("{a down}")
sleep(370)
send("{a up}")
send("{w down}")
sleep(7500)
send("{w up}")
send("5")
send("3")
sleep(3200)
send("1")
sleep(5000)
send("6")
send("7")
send("8")
sleep(4900)
send("2")
send("5")
sleep(10000)
Send("2")
Sleep(12600)
send("1")
sleep(6000)
send("6")
send("7")
send("8")
sleep(4900)
send("2")
RS(5000,6000)
;aufheben
For $i = 10 to 1 Step -1
send("o")
sleep(1000)
send("{Space}")
Next
;ende
send("{-}")
sleep(400)
send("resign")
sleep(700)
send("{enter}")
RS(2000,3000)
Mouseclick("left",657,536)
RS(5000,7000)
Next
Endfunc
GUICreate("UW²")
GuiSetState(@SW_Show)
GUICtrlCreateLabel("Starten mit POS1 oder Home, beenden mit Ende",10,0)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
For $i = $Runden to 1 step -1
For $Runden to 1 step -1