Tuts und Erklärungen - wer hat bitte reinstellen

[NBA]

Also du nimmst die stelle an der du das haben wilslt(z.B. Gegenstand aufhben)
Dort gibst du es wie folgt ein:

PHP Code:

For $I = $10 to 1 step -a
send("ö") ; <<<<----Gegenstand aufheben(ist normal auf ö)
sleep(250) ;<---So kann er den Gegenstand auch aufheben, sonst wäre evtl. zu schnell
Next ;<---ab hier kannst du den rest des bottes machen... 


Obs noch stimmt weiß ich grad nicht, hab das lange nicht mehr benutzt. Sollte aber noch funzen.

edit. Script einfügen im post geht mit [.php].[/php] (ohne ".")oder[.CODE][./CODE] (auch ohne .)

[lightningh]

Ok danke euch also das is bis jetzt mein script:

HotKeySet("{F8}","_exitit")
Func _exitit()
	MsgBox(0,"Programm Beendet","Sie haben Thermalquellen Bot v.0.1 beendet.")
	exit 0
EndFunc
Opt("MouseCoordMode",2)
opt("SendKeyDelay", Random(100,200))
sleep(2000)
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
Sleep(7000)
MouseClick("left", 973, 78); 1095/47 ist für Vollbild-Modus
Call("main")

Func wayto()
sleep(500)
Send("ö")
Send("{space}")
Sleep(8000)
Send("r")
Sleep(2000)
Send("{d down}")
Sleep(800)
Send("{d up}")
Sleep(8000)
EndFunc

func main()
	rand()
	wayto()
	fight()
	loot()
	travel()
	main()
	
EndFunc 

Func rand()
Global  $t = random(450,550)
Global	$c = random(200, 600)
Global	$xxx = random(1,17)
Global	$a = Random(700, 999)
Global  $b = Random(10000, 11000)
Global	$g = random(1900,2500)
Global	$h = random(4000,5000)
EndFunc

Call("rand")	
Call("fight")	
func fight()  
send("8" ) 
sleep($g)  
send("7" ) 
sleep($g+1500)  
send("6" ) 
sleep($g)
Send("4")
sleep($g)
Send("5")
Sleep($b)
Send("4")
Sleep($g)
Send("{w down}")
Sleep(2500)
Send("{w up}")
Send("{e down}")
sleep(3000)
Send("{e up}")
Sleep(5000)
Send("4")
Sleep($g)
Send("1")
Sleep(1000)
Send("2")
Sleep($c)
Send("{w down}")
Sleep(6000)
Send("{w up}")
Send("2")
Send("{q down}")
Sleep($g)
Send("{q up}")
Send("4")
Sleep($g)
Send("2")
Sleep($a)
Send("3")
Sleep($g)
Send("1")
Sleep($a)
Send("2")
Sleep($b)
Send("1")
Sleep($a)
Send("2")
Sleep(20000)
EndFunc

Call("loot")
Call("rand")
Func loot()
	
	For $i = 1 To 5
		send("ö")
		sleep($c)
		send("{space}")
		sleep(2000)
	Next
	
EndFunc

Call("rand")
Call("travel")
func travel()
	sleep($c)
	send("{enter}")
	sleep($t)
	send("/resign")
	sleep($t)
	send("{enter}")
	sleep($h)
	MouseClick("left", 570, 448)
	sleep(8000+$t)

endfunc

ok und wo genau hast du jetzt gemeint soll ich das einfügen?

[kknb]

sollte so funktionieren:

HotKeySet("{F8}","_exitit")
Func _exitit()
	MsgBox(0,"Programm Beendet","Sie haben Thermalquellen Bot v.0.1 beendet.")
	exit 0
EndFunc
Opt("MouseCoordMode",2)
opt("SendKeyDelay", Random(100,200))
sleep(2000)
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
Sleep(7000)
MouseClick("left", 973, 78); 1095/47 ist für Vollbild-Modus


Global  $t = random(450,550)
Global	$c = random(200, 600)
Global	$xxx = random(1,17)
Global	$a = Random(700, 999)
Global  $b = Random(10000, 11000)
Global	$g = random(1900,2500)
Global	$h = random(4000,5000)



Func wayto()
sleep(500)
Send("ö")
Send("{space}")
Sleep(8000)
Send("r")
Sleep(2000)
Send("{d down}")
Sleep(800)
Send("{d up}")
Sleep(8000)
EndFunc

func fight()  
send("8" ) 
sleep($g)  
send("7" ) 
sleep($g+1500)  
send("6" ) 
sleep($g)
Send("4")
sleep($g)
Send("5")
Sleep($b)
Send("4")
Sleep($g)
Send("{w down}")
Sleep(2500)
Send("{w up}")
Send("{e down}")
sleep(3000)
Send("{e up}")
Sleep(5000)
Send("4")
Sleep($g)
Send("1")
Sleep(1000)
Send("2")
Sleep($c)
Send("{w down}")
Sleep(6000)
Send("{w up}")
Send("2")
Send("{q down}")
Sleep($g)
Send("{q up}")
Send("4")
Sleep($g)
Send("2")
Sleep($a)
Send("3")
Sleep($g)
Send("1")
Sleep($a)
Send("2")
Sleep($b)
Send("1")
Sleep($a)
Send("2")
Sleep(20000)
EndFunc


Func loot()
	
	For $i = 1 To 5
		send("ö")
		sleep($c)
		send("{space}")
		sleep(2000)
	Next
	
EndFunc

func travel()
	sleep($c)
	send("{enter}")
	sleep($t)
	send("/resign")
	sleep($t)
	send("{enter}")
	sleep($h)
	MouseClick("left", 570, 448)
	sleep(8000+$t)

endfunc

$runs = 0
$runs1 = 10
While True
Select
	case $runs <> $runs1
		wayto()
		fight()
		loot()
		travel()
		$runs = $runs +1
	case $runs == $runs1
		verkaufen()
                $runs = $runs - 10
EndSelect
wend

[lightningh]

danke leuts ihr seid die besten

wenn ich wieder mal ne frage hab, wend ich mich an euch