MoveTo Engine Problem.

rpg-all · 10/12/2009, 20:32

Hallo Jungs..

Kan mir mal jemand sagen was ich falsche mache und warum meine Move To Engine nich funktioniert?

Hier mein bisheriger Source.. Nich wundern wenn noch Sinnloses Zeug drinsteht, ist für später..

Code:

#RequireAdmin
#include "tt6.au3"
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;Hauptmenü Start

AdlibEnable("Ort",4000) ;Für Ortsanzeige

$Form1 = GUICreate("Überlebender Bot by rpg-all", 700, 480, 193, 125)
$Button1 = GUICtrlCreateButton("Fenster Anpassen", 300, 440, 100, 25)

$Button2 = GUICtrlCreateButton("Starten", 300, 350, 100, 40, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\start.bmp", -1, 0)
GUISetState(@SW_SHOW)

   $n = GUICtrlCreatePic(@ScriptDir & "\1.jpg", 0, 0, 430, 427)

	$Checkbox1 = GUICtrlCreateCheckbox("Aktuelle Memorys?", 450, 400, 100, 20)



	While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then button1()
If $msg=$Button2 Then button2()
Wend

GUISetState(@SW_SHOW)

;Ob man gerade Lädt, Draussn ist oder in einer Stadt
Func Ort()

If  ((_memoryread($memmap,$hprocess)) = 1) then
$Label1 = GUICtrlCreateLabel("Der Bot befindet sich gerade ausserhalb einer Stadt.", 20, 440, 250, 87)
		GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
ElseIf ((_memoryread($memmap,$hprocess)) = 0) then
	$Label1 = GUICtrlCreateLabel("Der Bot befindet sich gerade innerhalb einer Stadt.", 20, 440, 250, 87)
			GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
ElseIf ((_memoryread($memmap,$hprocess)) = 2) then
		$Label1 = GUICtrlCreateLabel("Es wird gerade geladen.", 20, 440, 250, 87)
				GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
	EndIf

EndFunc
;==========================


Func  button2()
Call("_start")
endFunc

Func button1()
	Controlmove("Guild Wars", "", 0, 0, 0, 1024, 768)
	Opt("MouseCoordMode",0)
EndFunc

;Hauptmenü Ende

;Bot Start


Func _start()
;=====================================
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
	Controlmove("Guild Wars", "", 0, 0, 0, 1024, 768)
quest()
		EndFunc
;===================================== Starten von Gunnars Feste aus. Quest nicht angenommen.

func quest()

prepmoveto()
MoveTo(2,17283,-4842, True)
KeepMoveTo()
MoveTo(2,17283,-4842, True)
StopMoveTo()


	EndFunc

roho808 · 10/12/2009, 20:49

Code:

While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then button1()
If $msg=$Button2 Then button2()
Wend

da müsstest du eigentlich schon ne fehlermeldung bekommen; wenn dann eher

Code:

While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then 
button1()
ElseIf $msg=$Button2 Then 
button2()
EndIf
Wend

buFFy! · 10/12/2009, 22:21

Quote:
Originally Posted by roho808
Code:
While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then button1()
If $msg=$Button2 Then button2()
Wend
da müsstest du eigentlich schon ne fehlermeldung bekommen; wenn dann eher
Code:
While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then 
button1()
ElseIf $msg=$Button2 Then 
button2()
EndIf
Wend

Ähm..Nein?

roho808 · 10/12/2009, 22:37

Quote:

Originally Posted by u-coRe

Ähm..Nein?

?

~~kknb~~ · 10/12/2009, 23:17

warum sollte dort nen fehler kommen?

@threadstarter, deine wegpunkte sind komisch, du willst dich 2 mal an den selben ort begeben?

hf beim testen, wenn das nicht geht sind wohl die speicheradressen falsch.

Code:

$Form1 = GUICreate("Überlebender Bot by rpg-all", 700, 480, 193, 125)
$Button1 = GUICtrlCreateButton("Fenster Anpassen", 300, 440, 100, 25)

$Button2 = GUICtrlCreateButton("Starten", 300, 350, 100, 40, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\start.bmp", -1, 0)
GUISetState(@SW_SHOW)

   $n = GUICtrlCreatePic(@ScriptDir & "\1.jpg", 0, 0, 430, 427)

	$Checkbox1 = GUICtrlCreateCheckbox("Aktuelle Memorys?", 450, 400, 100, 20)



While 1
	$msg=GuiGetMsg()
	If $msg=$Button2 Then quest()
Wend



func quest()
	prepmoveto()
	MoveTo(1,17283,-4842)
	StopMoveTo()
EndFunc

buFFy! · 10/12/2009, 23:26

#moved

Poste bitte in die richtige Sektion..

roho808 · 10/13/2009, 07:22

Quote:

Originally Posted by kknb

warum sollte dort nen fehler kommen?

also wenn ich n script schreibe in dem 1. die statements in der gleichen zeile stehen, 2. auf ein if ein weiteres if folgt und 3. kein endif folgt, dann bekomme ich ne fehlermeldung. vllt ist es bei euch anders.

wenn ich es so schreiben würde wie rpg, dann ginge bei mir nix. wenn ich es so schreibe, wie ich es geposted habe, läuft alles flüssig.

Quote:

@threadstarter, deine wegpunkte sind komisch, du willst dich 2 mal an den selben ort begeben?

solange das nicht grad der startpunkt ist, wovon ich nicht ausgehe, ist es doch vollkommen egal, wie oft der das gleiche ziel angibt. wenigstens einmal hinlaufen müsste er...

~~kknb~~ · 10/13/2009, 10:03

wenn bei dir nen fehler kommt machst du was falsch, guck dir nochmal genau die autoit hilfe an.

Quote:

If <expression> Then statement

roho808 · 10/13/2009, 10:39

meine hilfe besagt:

If <expression> Then
statements

wenn ich ein so laufendes script umstelle und das statement in die gleiche zeile verlagere, krieg ich ne fehlermeldung.

abgesehen davon funktioniert es nicht, wenn endif fehlt oder auf if ein weiterer if-ausdruck und kein elseif folgt.

edit: gilt natürlich für if .. then .. else if ...

~~kknb~~ · 10/13/2009, 10:57

dann würde ich ehrlich gesagt die aktualität deiner hilfedatei checken.
wie du siehst hat er in seinem script kein else/elseif was auch völliger schwachsinn wäre.

roho808 · 10/13/2009, 11:14

du hast recht, sry. hatte es nur kurz selber probiert und nen if-elseif-ausdruck genommen, bei dem es so in der art nicht ginge. aber das braucht er ja gar nicht oO

aber wie gesagt, laufen müsste er trotz der doppelten anweisung. bleiben nur die mems.