GWCA - Rata Sum Farmbot mit (jeder) Klasse

Page 6 of 8 « First 45 6 78
04/29/2010 10:18 risams55#76
ah ok danke werd mal versuchen ob ichs hinbekomme ;)

UpdateStatus("Pick up items")
$itemsdropped += MyPickupItems()

Sleep(Random(4500,5000))

PickupItems(-1, 600)

UpdateStatus("Resigning")
Cmd($CA_RESIGN)
Do
Sleep(250)
CmdCB($CA_GETDEAD)
Until $cbVar[0] = 1

UpdateStatus("Returning to Rata Sum")
Cmd($CA_RETURNTOOUTPOST)

Do
Sleep(400)
CmdCB($CA_GETMAPLOADING)
If $cbVar[0] = 1 AND TimerDiff($tDeadlock) > 2500 Then Cmd($CA_RETURNTOOUTPOST)
Until $cbVar[0] = 0

Sleep(Random(2000,2500))


so jetzt hat mein char alles aufgenommen und macht nen resign reist aber nicht zurück ;) was fehlt noch ???
04/29/2010 11:55 OlafTank#77
Cmd($CA_Resign)
$cbType = "int"
$WhileRuns = 0
while 1 And $WhileRuns < 100
$WhileRuns += 1
CmdCB($CA_GetMyMaxHP)
Sleep(200)
If $cbVar[1] = 0 Then
ExitLoop
EndIf
WEnd
Sleep(Random(1000,2000))
Cmd($CA_ReturnToOutpost)
WaitForLeave(0);

Func WaitForLeave($loading)

$MAX_WAIT_TIME = 0
;$loading should be "1" if waiting to load explorable area or "0" if outpost
Do
$cbType = "int"
CmdCB($CA_GETMAPLOADING)
sleep(Random(1000,1500))
$MAX_WAIT_TIME += 1500;

if $MAX_WAIT_TIME >= 40000 then
Return;
EndIf

Until ($cbVar[0] = $loading)
EndFunc


so habe ich es einmal aus einem anderem bot in meine übernommen und es läuft alles.

Ich denke mal du hängst einfach in einer deiner 2 schleifen.
04/29/2010 12:21 risams55#78
ich danke dir ;)
04/29/2010 13:50 ddl#79
Code:
Func Resign()
	$oldCbType = $cbType
        Cmd($CA_Resign)
        RndSleep(6000)
        Cmd($CA_ReturnToOutpost) 
	RndSleep(250)
	LoadFunc()
	$cbType = $oldCbType
EndFunc   ;==>Resign
04/29/2010 13:59 OlafTank#80
also leave town geht so:


Code:
Global $DONE_WAY_OUT = False

Func Bot()
UpdateStatus("Starting Run")
$cbType = "int"
If $mode = "hm" Then
Cmd($CA_SWITCHMODE, 1)
ElseIf $mode = "nm" Then
Cmd($CA_SWITCHMODE, 0)
EndIf


if $DONE_WAY_OUT = False then
$DONE_WAY_OUT = true;
UpdateStatus("Moving to portal")
MyMoveTo(20100, 16840, 20)

WaitLoad(1); ;wait until left town

UpdateStatus("Move back to town")
MyMoveTo(-26300, -4153, 20)

WaitLoad(0); ;back to town
EndIf


Func WaitLoad($zone)
	$loading = true
	;1 - explore area, 0-outpost
	$cbType = "int"
	Do
		Sleep(400)
		CmdCB($CA_GETMAPLOADING)
	Until $cbVar[0] = $zone
	Sleep(250)
	$loading = false
EndFunc   ;==>WaitLoad
Resign nimmst du den Code von DDL.
04/29/2010 14:38 risams55#81
ich danke euch ;)
04/29/2010 15:36 buFFy!#82
Quote:
Originally Posted by risams55 View Post
ah ok danke werd mal versuchen ob ichs hinbekomme ;)

UpdateStatus("Pick up items")
$itemsdropped += MyPickupItems()

Sleep(Random(4500,5000))

PickupItems(-1, 600)

UpdateStatus("Resigning")
Cmd($CA_RESIGN)
Do
Sleep(250)
CmdCB($CA_GETDEAD)
Until $cbVar[0] = 1

UpdateStatus("Returning to Rata Sum")
Cmd($CA_RETURNTOOUTPOST)

Do
Sleep(400)
CmdCB($CA_GETMAPLOADING)
If $cbVar[0] = 1 AND TimerDiff($tDeadlock) > 2500 Then Cmd($CA_RETURNTOOUTPOST)
Until $cbVar[0] = 0

Sleep(Random(2000,2500))


so jetzt hat mein char alles aufgenommen und macht nen resign reist aber nicht zurück ;) was fehlt noch ???
#merged: double-post
#infracted
04/29/2010 16:02 risams55#83
komisch immer noch ein error

Func_Waitload($zone)

[Error] "Func" statement has no matching "EndFunc"
04/29/2010 16:12 OlafTank#84
Code:
Func WaitLoad($zone)
	$loading = true
	;1 - explore area, 0-outpost
	$cbType = "int"
	Do
		Sleep(400)
		CmdCB($CA_GETMAPLOADING)
	Until $cbVar[0] = $zone
	Sleep(250)
	$loading = false
EndFunc   ;==>WaitLoad
Die Funktion schreibst du ganz unten in deinen Code rein. Ich habe sie dir einfach dazugefügt dachte du weißt was ich meine^^ Die steht natürlich nicht mitten in der Funktion Bot() drinnen :) Das wird dann wohl auch der Grund für deinen Fehler sein.

Wenn du es immer noch nicht hinkriegst lad den Code hoch dann bau ich es dir ein.
04/29/2010 16:16 risams55#85
habs selber grad geschafft ;) so jetzt habt ihr ruhe von mir ^^

^^hab doch noch was ;)
wie kriegt man das hin das der bot nach dem run nix in die truhe legen möchte sondern einfach nur indentifiziert und verkauft und wenn das identifizierungs werkzeug verbraucht ist ein neues kauft ?
04/30/2010 07:36 kubi61#86
wo ist denn jetzt das endgültige script für den bot iwie klappt der bei mir net
==> Unknown function name.:
GUIRegisterMsg(0x500, "WndCallback")
was muss ich da tun?
04/30/2010 12:33 ddl#87
Fehlend "Brain.exe" + GWCA Rev 219
04/30/2010 13:20 kubi61#88
wups danke aber neues problem:
If $mState[0] <> $mStateOld[0] Then ExitLoop
If $mState^ ERROR
kam schon mal hier vor nur hab ich eig alles richtig gemacht meiner meinung nach
04/30/2010 13:37 OlafTank#89
ich weiß echt nicht wie man den bot nicht zum laufen kriegen kann^^

1) du lädst die source runter
2) du packst die source, die graphics.dll und die GWCAConstants.au3 von rev219 in einen ordner
3) du startest den bot und er läuft
04/30/2010 13:54 kubi61#90
ok habs^^ is das aber nich zu auffällig? wurde einer schon gebannt mit dem bot?
bin da erst anfänger un hab keine lustr dass ich gebannt werde
Page 6 of 8 « First 45 6 78