MoveTo Engine Problem.

10/12/2009 20:32 rpg-all#1
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.. :D

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
10/12/2009 20:49 roho808#2
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
10/12/2009 22:21 buFFy!#3
Quote:
Originally Posted by roho808 View Post
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?
10/12/2009 22:37 roho808#4
Quote:
Originally Posted by u-coRe View Post
Ähm..Nein?
?
10/12/2009 23:17 kknb#5
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
10/12/2009 23:26 buFFy!#6
#moved

Poste bitte in die richtige Sektion..
10/13/2009 07:22 roho808#7
Quote:
Originally Posted by kknb View Post
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...
10/13/2009 10:03 kknb#8
wenn bei dir nen fehler kommt machst du was falsch, guck dir nochmal genau die autoit hilfe an.

Quote:
If <expression> Then statement
10/13/2009 10:39 roho808#9
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 ...
10/13/2009 10:57 kknb#10
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.

[Only registered and activated users can see links. Click Here To Register...]
10/13/2009 11:14 roho808#11
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.