Mein Noob Hfffbot xD Frage...

08/14/2008 10:25 darthwitch#1
Quote:
; Script Start - Add your code below here
Opt("SendKeyDelay", 25)
Opt("SendKeyDownDelay", 5)
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
hotkeyset("{F8}","end")
Global $mousespeed = 4
Global $name = "der name"
Global $j = 0
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
Sleep(5000)
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
func end()
Exit
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Do
call("rausgehencheck")
call("questen")
sleep(500)
$j=$j+1
Until $j=9999999
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Func rausgehencheck()
Send("{u}")
Sleep(Random(700,1000))
If PixelGetColor(568,416)= 0xFFFFFF Then
Send("{x}")
Sleep(Random(200,300))
Send("{d down}")
Sleep(Random(500,550))
Send("{d up}")
Sleep(Random(400,500))
Send("{o}")
Sleep(Random(200,230))
Send("{o}")
Sleep(Random(200,230))
Send("{space}")
Sleep(Random(11500,12000))
Send("{r}")
Sleep(Random(400,500))
Send("{a down}")
Sleep(Random(100,110))
Send("{a up}")
Sleep(Random(16000,17000))
ElseIf PixelGetColor(571,394)= 0xFFFFFF Then
Send("{x}")
Sleep(Random(200,300))
Send("{d down}")
Sleep(Random(500,550))
Send("{d up}")
Sleep(Random(400,500))
Send("{o}")
Sleep(Random(200,230))
Send("{o}")
Sleep(Random(200,230))
Send("{space}")
Sleep(Random(7500,8000))
Send("{r}")
Sleep(Random(400,500))
Send("{a down}")
Sleep(Random(250,300))
Send("{a up}")
Sleep(Random(16000,17000))
ElseIf PixelGetColor(571,334)= 0xFFFFFF Then
Sleep(Random(200,500))
Send("{d down}")
Sleep(Random(500,550))
Send("{d up}")
Sleep(Random(400,500))
Send("{o}")
Sleep(Random(200,230))
Send("{o}")
Sleep(Random(200,230))
Send("{space}")
Sleep(Random(8900,9100))
Send("{r}")
Sleep(Random(400,500))
Send("{a down}")
Sleep(Random(400,480))
Send("{a up}")
Sleep(Random(16000,17000))
Else
Send("{g}")
Sleep(Random(500,600))
MouseClick("left",Random(355,360),Random(67,69),1, 4)
Sleep(Random(9500,10000))
MouseClick("left",Random(355,360),Random(67,69),1, 4)
Sleep(Random(9500,10000))
Send("{g}")
Sleep(Random(500,550))
Send("p")
Sleep(Random(1000,1288))
MouseClick("left",Random(246,250),Random(128,129), 1,$mousespeed) ;-Wechseln zum Gruppenfenster /gl/
Sleep(Random(200,250))
MouseClick("left",Random(234,236),Random(311,312), 2,$mousespeed) ;-Gefolgsmann1
Sleep(Random(200,250))
MouseClick("left",Random(283,286),Random(397,398), 2,$mousespeed) ;-Gefolgsmann2
Sleep(Random(200,250))
MouseClick("left",Random(258,259),Random(481,482), 2,$mousespeed) ;-Gefolgsmann3
Send("{p}")
Sleep(Random(500,550))
Call("zwischenstop")
EndIf

EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Func questen()
Send("{NUMPAD3}")
Sleep(Random(100, 150))
MouseClick("left", Random(620, 624), Random(224, 226), 2, $mousespeed)
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD1}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
MouseClick("left", Random(511, 515), Random(221, 225), 2, $mousespeed)
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD2}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
MouseClick("left", Random(785, 795), Random(305, 315), 2, $mousespeed)
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPADDOT}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
MouseClick("left", Random(741, 743), Random(656, 658), 2, $mousespeed)
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD9}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
$rndnumber = Random(900, 1100)
Sleep($rndnumber)
Send("{NUMPAD4}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD5}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("{NUMPAD6}")
$rndnumber = Random(100, 150)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(8000, 8100)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(8000, 8100)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(100, 200)
Sleep($rndnumber)
Send("{NUMPAD6}")
$rndnumber = Random(200, 250)
Sleep($rndnumber)
Send("{NUMPAD3}")
$rndnumber = Random(200, 250)
Sleep($rndnumber)
MouseClick("left", Random(678, 679), Random(120, 122), 2, $mousespeed)
$rndnumber = Random(7000, 7100)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(8000, 8100)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(8000, 8100)
Sleep($rndnumber)
Send("0")
$rndnumber = Random(500, 1000)
Sleep($rndnumber)
Send("{e down}")
Sleep(Random(2500,3000))
Send("{e up}")
Sleep(Random(200,500))
Send("{space}")
Sleep(Random(1000,1100))
MouseClick("left", Random(786, 787), Random(706, 708), 2, $mousespeed)
Sleep(Random(400,650))
MouseClick("left", Random(585, 590), Random(653, 654), 2, $mousespeed)
Sleep(Random(11500,12000))
Send("{space}")
Sleep(Random(500,700))
MouseClick("left", Random(612, 614), Random(607, 608), 2, $mousespeed)
Sleep(1000)
Send("{e down}")
Sleep(Random(200,300))
Send("{e up}")
Sleep(Random(500,700))
Send("{enter}")
Sleep(Random(500,800))
Send("/resign")
Sleep(Random(500,800))
Send("{enter}")
Sleep(Random(3000,3500))
Send("{u}")
Sleep(Random(1000,1500))
MouseClick("left", Random(632, 642), Random(534, 535), 2, $mousespeed)
Sleep(Random(16000,17000))
send("{h}")
sleep(500)
if pixelgetcolor(1240, 274)= 0x6E537B then ;Kurzickpunkte checken
Sleep(1000)
send("{h}")
call("spenden")
Else
Sleep(Random(200,500))
send("{h}")
Call("rausgehencheck")
EndIf
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Func spenden()
Send("{g}")
Sleep(Random(500,600))
MouseClick("left",Random(355,360),Random(67,69),1, 4)
Sleep(Random(16000,17000))
Send("{q down}")
Sleep(2050)
Send("{q up}")
Sleep(Random(200,600))
Send("{r}")
Sleep(1050)
Send("{s}")
Sleep(Random(200,600))
Send("{space}")
Sleep(Random(1500,1700))
MouseClick("left",Random(629,638),Random(650,652), 1,$mousespeed)
Sleep(Random(500,600))
MouseClick("left",Random(614,626),Random(570,572), 1,$mousespeed)
Sleep(Random(200,600))
Send($name)
Sleep(Random(500,600))
MouseClick("left",Random(720,724),Random(740,741), 2,$mousespeed)
Sleep(Random(1400,1600))
MouseClick("left",Random(720,724),Random(740,741), 2,$mousespeed)
Sleep(Random(1500,1600))
MouseClick("left",Random(355,360),Random(67,69),1, $mousespeed)
Sleep(Random(16000,17000))
Send("{g}")
Sleep(Random(500,588))
Send("p")
Sleep(Random(1000,1288))
MouseClick("left",Random(246,250),Random(128,129), 1,$mousespeed) ;-Wechseln zum Gruppenfenster /gl/
Sleep(Random(200,250))
MouseClick("left",Random(234,236),Random(311,312), 2,$mousespeed) ;-Gefolgsmann1
Sleep(Random(200,250))
MouseClick("left",Random(283,286),Random(397,398), 2,$mousespeed) ;-Gefolgsmann2
Sleep(Random(200,250))
MouseClick("left",Random(258,259),Random(481,482), 2,$mousespeed) ;-Gefolgsmann3
Send("{p}")
Sleep(Random(500,550))
Sleep(7000)
Call("rausgehencheck")
EndFunc


Func zwischenstop()
Sleep(Random(500,1000))
Call ("rausgehencheck")
EndFunc
Das Problem ist, dass er jedes 2te mal, nach dem Verlassen von Lw, in die Gh reist.
Also er macht den ersten Run also geht raus, setztfahnen also macht halt alles so dann reist er zu Lw back und checkt punkte dann macht er wieder pixelcheck wo er steht und rennt raus, dann wenn er drausen ist macht er die map weg mit "u" und reist gh dann reist er wieder Lw, und läd die gefolgsleute ein dann checkt er wo er steht udn ja immer wieder so also macht ein run dann beim 2ten reist er gh und läd wieder ein... wo ist der fehler finde ihn einfach nicht!
08/14/2008 12:08 blauwiggle#2
einfach zu ungenau, versuch es doch mal mit checksum
*edit: lass mal tidy drüber laufen :/
08/14/2008 12:25 darthwitch#3
Hmm ja versuche es mal mit checksum aber komishc ist ja das er wirklich jedes 2te mal dann gh reist... und was ist tidy ´?
08/14/2008 12:46 solos#4
Bei Scite auf Tools --> Tidy Autoit Source, is zum aufräumen:
What can Tidy do for you:
Clean up the indentation with spaces or Tabs.
Change all Functions/Keywords/Macros to proper case as defined in the files
au3.api
UserFunctions.txt
All user functions from Userfunctions.txt and all FUNC in the script are loaded into the Functions table. This option only works in combination with the previous option.
Change all Variables to Uppercase or Lowercase or "as Dim/Global/Local or First occurrence"
Add spaces around operators and remove extra spaces around operators/keywords/function.
Remove empty lines.
Remove trailing spaces.
Add a comment after EndFunc to easily identity which Func end with this EndFunc
e.g. "EndFunc ; ==> FunctionName"
Generate a Documentation file with program logic and Xref reports for Variables and UDF's.
check for coding errors like missing EndIF/Wend or Func inside and IF/DO/FOR loop.
Sort all Func-Endfunc Blocks in sequence and when #Region-#EndRegion is used sort them within that scope.
08/14/2008 12:48 Ganf#5
Das ist eine erweiterung die mit dem SciTE-Editor mitgelievert wird. Macht deinen Sourcecode besser lesbar...
Wenn du SciTE hast einfach Rechtsklick auf das skript und auf Tidy klicken!

Schaut dann so aus wie in dem file!

MFG
Ganf
08/14/2008 13:02 blauwiggle#6
evtl. brauchst du noch den richtigen editor und nicht den abgespeckten
08/14/2008 13:14 darthwitch#7
Ja das hat aber jetz schon geklappt muss jetzt nur ncohmal mit checksum ausprobieren thx trotzdem schonmal an euch alle