Bot Bricht nach 1-2 runden ab

03/13/2009 18:17 shadow222#1
Hallo leute,
ich habe mein ersten bot geschriebn der lief am ersten Tag
einwandfrei und jetzt bleibt er einfach stehen
nach 1-2 runden manchmal macht er auch 5 und mehr.
Weiß nicht woran es liegen könnte.

Hir der code:

Code:
#include "tt6.au3"
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$ShaDoW_xBotMB = GUICreate("ShaDoW´s xBotMB", 500, 513, 269, 160)
$Pic1 = GUICtrlCreatePic("Data\guild-wars-logo.jpg", 0, 0, 499, 206, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Thermalquellen (HM)", 144, 224, 209, 57, 0)
$Button2 = GUICtrlCreateButton("Lutgardis Wintergarten (HM)", 144, 288, 209, 57, 0)
$Button3 = GUICtrlCreateButton("GW Fenster Einstellen", 144, 352, 209, 56, 0)
$Button4 = GUICtrlCreateButton("Beenden", 144, 416, 209, 57, 0)
$Pic2 = GUICtrlCreatePic("Data\2.jpg", 0, 205, 145, 305, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("Data\3.jpg", 352, 206, 145, 305, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("Data\4.jpg", 144, 208, 209, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("Data\5.jpg", 144, 160, 217, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$msg=GuiGetMsg()
	If $msg=-3 Then Exit
	If $msg=$Button1 Then button1()
	If $msg=$Button2 Then button2()
	If $msg=$Button3 Then button3()
	If $msg=$Button4 Then button4()
WEnd
	

Func button1()
	tm ()
EndFunc


Func button3()
	fenster ()
EndFunc

Func button4()
	Exit
EndFunc

Func button2()
	Main()
EndFunc



;=========================Fenster Einstellungen===============================;
Func fenster ()
	WinActivate ("Guild Wars")
	ControlMove ("Guild Wars","","",0,0,800,600)
	sleep (1000)
	ControlClick ($hwnd,"","","left",1,650, 44)
EndFunc



Func way_out ()
	

	PrepMoveTo()
	
	If CheckArea (18602,-16549) Then		
		MoveTo(2,18300,-16337)
		MoveTo(2,17916,-16084)
		MoveTo(2,17448,-15812)
		MoveTo(2,16956,-15601)
		MoveTo(2,16266,-15673)
		MoveTo(2,15642,-15750)
		MoveTo(2,15479,-15300)
		
	ElseIf CheckArea (15524,-15802) Then
		MoveTo(2,15477,-15297)
		ElseIf CheckArea (18602,-16695) Then	
		MoveTo(2,18300,-16337)
		MoveTo(2,17916,-16084)
		MoveTo(2,17448,-15812)
		MoveTo(2,16956,-15601)
		MoveTo(2,16266,-15673)
		MoveTo(2,15642,-15750)
		MoveTo(2,15479,-15300)
	EndIf
		KeepMoveTo()


	While (_memoryread($memmap,$hprocess)) <> 1
		Sleep(500)

	WEnd
	RndSleep(2000) 
	
	
	PrepMoveTo()
	
	KeySend("8")
	RndSleep(2000)
	KeySend("7")
	RndSleep(2000)
	KeySend("6")
	RndSleep(3000)
	KeySend("5")
	RndSleep(3000)
	KeySend("4")
	RndSleep(2000)

		
		MoveTo(2,15338,-13801)
		StopMoveTo()
		KeySend("1")
		RndSleep(3000)
		KeySend("2")
		PrepMoveTo()
		MoveTo(2,15434,-13412)
		MoveTo(2,15774,-12012)
		StopMoveTo()
	
	
	RndSleep(500)
	KeySend ("4")
	RndSleep(2000)
	KeySend("3")
	RndSleep(4000)
	KeySend ("2")
	RndSleep(2000)
	KeySend("1")
	RndSleep(1000)
	KeySend("4")
	RndSleep(1000)
	KeySend("1")
	RndSleep(3000)
	KeySend("2")
	RndSleep(4000)
	KeySend("1")
	RndSleep(6000)
	KeySend("ö")
	KeySend("SPACE")
	RndSleep(4000)
	KeySend("ö")
	KeySend("SPACE")
	RndSleep(3000)
	KeySend("ö")
	KeySend("SPACE")
	RndSleep(3000)
	KeySend("ö")
	KeySend("SPACE")
	RndSleep(3000)
	

	Resign()

EndFunc




Func test ()
		
	While (_memoryread($memmap,$hprocess)) <> 0
		Sleep(500)
	WEnd
		RndSleep(2000) 
	way_out ()
EndFunc
	
	
Func tm ()
	
	While 1
		test ()
	WEnd

EndFunc
Bitte um hilfe ;)
03/13/2009 21:14 Dunham#2
das is aber nicht der ganze code oder? post mal bitte alles
03/13/2009 21:25 shadow222#3
so habe nun den kompletten code gepostet.
03/13/2009 21:28 cab_killer#4
Mal eine ganz blöder Frage zu deinem code.
Wieso machst du RndSleep, was ich denke was RandomSleep sein soll, wenn du ihm kein Random lässt ?

Wenn dann muss das schon so sein RndSleep(2000, 2500)
So wählt er die sleepzeit zwischen 2 und 2,5 sekunden.

Sonst kann ich dir zu deinem Bot eigentlich nix sagen.
Vieleicht Postest du mal den rest vieleicht ist irgendwo anders ein Fehler drin.

MFG

/E
Du sagst er bricht einfach nach ein paar Runden ab ?
Kann es vieliecht daran liegen das du ein Spawnpoint nicht gesetzt hat und dann halt nicht mehr weiter weiß ?
Ich sehe bei dir 3 Spawnpoints, ich weiß ja nicht wo dein Bot Farmt aber kann es vieleicht wirklich sein das du einen nicht Spawnpoint nicht eingebunden hast ?
03/13/2009 21:44 shadow222#5
der bot ist in termal quellen und spawnt immer an der selben stelle die 2 Spawnpoints habe ich zusätzlich reingemacht aber hatte auch nichts geholfen
.

und das mit dem Rndsleep ist die Funktion aus der tt6.au3
03/13/2009 21:56 cab_killer#6
Mh ich kann dir leider dazu nix sagen.
Aber es gibt hier doch so viel Thermalquelen bost warum nimmst du nicht einen davon ? die haben doch um einiges mehr Funktionen.
Ja ok ich kanns Verstehen wenn du jetzt sagst das ist aber nicht meiner ich wollt was eigenes.
Aber wenn du was eigenes machen willst dann nicht umbedingt in der Thermalquelle <-- meine Meinung

MFG
03/16/2009 16:39 Neon™#7
Quote:
Originally Posted by cab_killer View Post
Mal eine ganz blöder Frage zu deinem code.
Wieso machst du RndSleep, was ich denke was RandomSleep sein soll, wenn du ihm kein Random lässt ?

Wenn dann muss das schon so sein RndSleep(2000, 2500)
So wählt er die sleepzeit zwischen 2 und 2,5 sekunden.

Sonst kann ich dir zu deinem Bot eigentlich nix sagen.
Vieleicht Postest du mal den rest vieleicht ist irgendwo anders ein Fehler drin.

MFG

/E
Du sagst er bricht einfach nach ein paar Runden ab ?
Kann es vieliecht daran liegen das du ein Spawnpoint nicht gesetzt hat und dann halt nicht mehr weiter weiß ?
Ich sehe bei dir 3 Spawnpoints, ich weiß ja nicht wo dein Bot Farmt aber kann es vieleicht wirklich sein das du einen nicht Spawnpoint nicht eingebunden hast ?

er benutzt die funktion der tt6:

Code:
; random sleep function with -+5% variation
Func RndSleep($val)
	$sle = Random($val * 0.95, $val *1.05, 1)
	Sleep($sle)
EndFunc