Ich bin gerade dabei einen Bot fürs Proph Tut zu schreiben. Wer jetzt denkt, dass bringt doch nichts, hat sich geirrt.
Mein Bot farmt nähmlich die "Getragenen-Gürtel" wecher Nicholas sammelt. Somit lässt sich damit viel Geld (für Tut) verdienen.
Allerdings gibt es noch 1 Problem, und zwar macht er erfolgreich einen Run, kommt dann in der Stadt an und läuft nur noch im Kreis.
Mein Code:
Quote:
;#####################Includes
#include-once
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <tt6.au3>
#include <NomadMemory.au3>
Global $Runs = 0
Global $Pickups = 0
$Pickups = $Runs*3
#Region ### START Koda GUI section ### Form=C:\Users\Nils\Coding\AutoIt\Projekte\Tuturial Bot\AutoitVrsn\Zusatz\Main GUI.kxf
$Form1 = GUICreate("Getragene Gürtel - Bot by little_nhm", 463, 317, 333, 170)
$Tab1 = GUICtrlCreateTab(0, 88, 345, 225)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Statics")
$Label1 = GUICtrlCreateLabel("Made by little_nhm", 88, 120, 161, 28)
GUICtrlSetFont(-1, 14, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("- Kaufmann ganz links oben", 24, 160, 200, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("- F9 ganz links oben", 24, 192, 146, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Runs:", 48, 232, 51, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel($Runs, 64, 264, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Pick Ups:", 112, 232, 79, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel($Pickups, 136, 264, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$TabSheet2 = GUICtrlCreateTabItem("Settings")
$Group1 = GUICtrlCreateGroup("Updates", 184, 120, 145, 137)
$Button3 = GUICtrlCreateButton("Update Mem.", 200, 144, 113, 49, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Update Bot", 200, 200, 113, 49, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Advances", 8, 120, 161, 137)
$Checkbox1 = GUICtrlCreateCheckbox("Indent.", 16, 136, 137, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Sell", 16, 168, 137, 33)
$Checkbox3 = GUICtrlCreateCheckbox("Extra-Safe-Mod", 16, 208, 145, 33)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Skillcode", 8, 264, 121, 41, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("All Bot-Settings")
$Label6 = GUICtrlCreateLabel("- Kaufmann ganz links oben", 54, 123, 200, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("- F9 ganz links oben", 55, 153, 146, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Window", 16, 240, 145, 57, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Credits", 176, 240, 145, 57, $WS_GROUP)
$Label8 = GUICtrlCreateLabel("- [K] ganz klein und rechts oben", 56, 184, 229, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")
$Pic1 = GUICtrlCreatePic("PicOne.jpg", 0, 0, 153, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Run", 344, 96, 113, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Exit", 344, 168, 113, 41, $WS_GROUP)
$Pic2 = GUICtrlCreatePic("Icon.jpg", 344, 216, 113, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("PicTwo.jpg", 152, 0, 161, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("PicThree.jpg", 312, 0, 145, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Input2 = GUICtrlCreateInput("How Many Runs?", 352, 144, 97, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Main()
Case $Button2
End()
Case $Button7
Skillcode()
Case $Button6
Credits()
Case $Button3
UpdateMem()
Case $Button4
UpdateBot()
Case $Button5
Window()
EndSwitch
WEnd
;#####################Window
Func Window()
WinActivate("Guild Wars")
WinMove("Guild Wars", "", 0, 0, 1050, 750)
EndFunc
;#####################End
Func End()
Exit
EndFunc
;#####################Credtis
Func Credits()
$MsgBox1 = MsgBox(0,"Credits", "Thanks to elitepvpers.com and thanks to a good fried: Oli_Flaig", 3)
$MsgBox2 = MsgBox(1, "Credits", "And if you want post me a tweet [or follow me] on Twitter [little_nhm]", 5)
If $MsgBox2 = 2 Then
WinClose("Feedback")
ElseIf $MsgBox2 = 1 Then
$oIE = _IECreate("http://twitter.com/little_nhm")
EndIf
EndFunc
;#####################UpdateBot
Func Updatebot()
$oIE = _IECreate("http://google.de")
EndFunc
;#####################UpdateMem
Func UpdateMem()
InetGet("http://weedman.bplaced.net/filemanager/update.ini","update.ini")
MsgBox(0, "Update!", "Update Finished!")
EndFunc
;#####################SafeMod
Func SafeMode()
If $Checkbox3 = True Then
Global $SafeMode = True
EndIf
EndFunc
;#####################Skillcode
Func Skillcode()
$MsgBox3 = MsgBox (1,"Skillcode", "Please copy the Code and Paste into your Skilllog", 3)
If $MsgBox3 = 2 Then
WinClose("Skillcode")
ElseIf $MsgBox3 = 1 Then
WinActivate ("Guild Wars")
ControlMove ("Guild Wars","","", 0,0,1050, 750)
RandomSleep(250,350)
Keysend ("k")
RandomSleep(150,250)
ControlClick ("Guild Wars","","","left",1,860,91)
RandomSleep(150,250)
ControlClick ("Guild Wars","","","left",1,910,184)
EndIf
EndFunc
;#####################RandomSleep
Func RandomSleep($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc
;#####################Main
Func Main()
WinActivate("Guild Wars")
WinMove("Guild Wars", "", 0, 0, 1050, 750)
While $Runs <= $Input2
GoOut()
WEnd
EndFunc
Func GoOut()
If checkarea(-12135,-8432) Then
RandomSleep(1000,1300)
PrepMoveTo()
moveto(1,-12107,-8399)
moveto(1,-12063,-8335)
moveto(1,-12029,-8275)
moveto(1,-11999,-8222)
moveto(1,-11980,-8179)
moveto(1,-11960,-8115)
moveto(1,-11938,-8043)
moveto(1,-11900,-7920)
moveto(1,-11880,-7862)
moveto(1,-11865,-7813)
moveto(1,-11838,-7727)
moveto(1,-11826,-7681)
moveto(1,-11807,-7608)
moveto(1,-11772,-7478)
moveto(1,-11757,-7427)
moveto(1,-11736,-7354)
moveto(1,-11696,-7222)
moveto(1,-11675,-7153)
moveto(1,-11655,-7085)
moveto(1,-11613,-6956)
moveto(1,-11588,-6888)
moveto(1,-11569,-6836)
moveto(1,-11532,-6716)
moveto(1,-11525,-6650)
moveto(1,-11517,-6575)
moveto(1,-11499,-6457)
moveto(1,-11468,-6395)
moveto(1,-11421,-6336)
KeepMoveTo()
LoadOut()
Way()
ElseIf checkarea(-12960,-7790) Then
RandomSleep(1000,1300)
PrepMoveTo()
moveto(1,-12953,-7771)
moveto(1,-12931,-7706)
moveto(1,-12903,-7624)
moveto(1,-12880,-7557)
moveto(1,-12834,-7420)
moveto(1,-12806,-7338)
moveto(1,-12765,-7220)
moveto(1,-12731,-7121)
moveto(1,-12710,-7058)
moveto(1,-12688,-7019)
moveto(1,-12643,-6949)
moveto(1,-12594,-6874)
moveto(1,-12557,-6817)
moveto(1,-12531,-6784)
moveto(1,-12454,-6720)
moveto(1,-12344,-6629)
moveto(1,-12281,-6580)
moveto(1,-12192,-6550)
moveto(1,-12093,-6518)
moveto(1,-12012,-6491)
moveto(1,-11930,-6462)
moveto(1,-11818,-6423)
moveto(1,-11743,-6397)
moveto(1,-11676,-6375)
moveto(1,-11594,-6349)
moveto(1,-11538,-6334)
moveto(1,-11421,-6310)
KeepMoveTo()
LoadOut()
Way()
ElseIf checkarea(-11880,-5615) Then
RandomSleep(1000,1300)
PrepMoveTo()
moveto(1,-11865,-5648)
moveto(1,-11830,-5724)
moveto(1,-11788,-5816)
moveto(1,-11771,-5852)
moveto(1,-11736,-5916)
moveto(1,-11692,-5999)
moveto(1,-11648,-6082)
moveto(1,-11613,-6115)
moveto(1,-11509,-6172)
moveto(1,-11432,-6214)
KeepMoveTo()
LoadOut()
Way()
ElseIf checkarea(-11568,-6306) Then
moveto(1,-11455,-6274)
moveto(1,-11439,-6270)
moveto(1,-11366,-6248)
moveto(1,-11357,-6245)
keepMoveTo()
Loadout()
Way()
ElseIf checkarea(-12502,-8763) Then
moveto(1,-12462,-8701)
moveto(1,-12406,-8615)
moveto(1,-12332,-8500)
moveto(1,-12258,-8384)
moveto(1,-12193,-8284)
moveto(1,-12102,-8142)
moveto(1,-12029,-8027)
moveto(1,-11966,-7910)
moveto(1,-11909,-7802)
moveto(1,-11820,-7611)
moveto(1,-11768,-7491)
moveto(1,-11721,-7379)
moveto(1,-11650,-7176)
moveto(1,-11580,-6972)
moveto(1,-11516,-6783)
moveto(1,-11464,-6594)
moveto(1,-11493,-6463)
moveto(1,-11396,-6330)
KeepMoveTo()
Loadout()
Way()
EndIf
EndFunc
Func Way()
;Way
RandomSleep(700,1200)
moveto(1,-10950,-6249)
moveto(1,-10865,-6275)
moveto(1,-10774,-6303)
moveto(1,-10675,-6333)
moveto(1,-10586,-6361)
moveto(1,-10027,-6427)
moveto(1,-9916,-6417)
moveto(1,-9825,-6410)
moveto(1,-9511,-6423)
moveto(1,-9380,-6429)
moveto(1,-8892,-6432)
moveto(1,-8845,-6432)
moveto(1,-8822,-6428)
moveto(1,-8719,-6406)
moveto(1,-8611,-6383)
moveto(1,-8456,-6302)
moveto(1,-8380,-6248)
moveto(1,-8348,-6225)
moveto(1,-8289,-6203)
moveto(1,-8208,-6175)
moveto(1,-8129,-6147)
moveto(1,-8036,-6115)
moveto(1,-7918,-6072)
moveto(1,-7847,-6034)
moveto(1,-7752,-5983)
moveto(1,-7658,-5932)
moveto(1,-7598,-5879)
moveto(1,-7590,-5753)
moveto(1,-7584,-5663)
moveto(1,-7578,-5560)
moveto(1,-7571,-5421)
moveto(1,-7574,-5332)
moveto(1,-7579,-5220)
moveto(1,-7583,-5113)
moveto(1,-7451,-4493)
moveto(1,-7426,-4424)
moveto(1,-7248,-4348)
moveto(1,-7148,-4320)
moveto(1,-7121,-4312)
moveto(1,-7064,-4280)
moveto(1,-6971,-4227)
moveto(1,-6941,-4211)
moveto(1,-6917,-4187)
moveto(1,-6857,-4127)
moveto(1,-6797,-4065)
moveto(1,-6615,-3696)
moveto(1,-6567,-3603)
moveto(1,-6524,-3521)
moveto(1,-6477,-3429)
Fight()
EndFunc
Func Fight()
;Fight
moveto(1,-6477,-3429)
Sleep(1500)
moveto(1,-6543,-3216)
KeySend("c")
RandomSleep(200,300)
KeySend ("1")
RandomSleep(900,1100)
KeySend ("2")
RandomSleep(1000,1200)
KeySend ("space")
RandomSleep(1000,1500)
KeySend ("3")
Sleep (8000)
PickUp()
EndFunc
Func PickUp()
;Pickup
KeySend ("o")
KeySend ("space")
RandomSleep(800,1200)
KeySend ("o")
KeySend ("space")
RandomSleep(800,1200)
KeySend ("o")
KeySend ("space")
RandomSleep(800,1200)
KeySend ("o")
KeySend ("space")
BackToTown()
EndFunc
Func BackToTown()
;BackToTown
KeySend("-")
Sleep(100)
keysend("r")
Sleep(100)
keysend("e")
Sleep(100)
keysend("s")
Sleep(100)
keysend("i")
Sleep(100)
keysend("g")
Sleep(100)
keysend("n")
Sleep(100)
keysend("RETURN")
randomSleep(3500,4800)
ControlClick("Guild Wars","","","left",1,511,385)
$Runs =+1
Loadout()
RandomSleep(1200,1600)
Main()
EndFunc
Thx für die hilfe im Vorraus
Ich werde (wenn das Problem gelöst ist) selbstverständlich sofort releasen.
