Abend Pvpers,
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:
Thx für die hilfe im Vorraus
Ich werde (wenn das Problem gelöst ist) selbstverständlich sofort releasen.
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.