Elite Assa Foli v1.0

07/12/2009 12:11 Nutella Glas#1
So hab mich mal ein bisschen dran gesetzt und ein Bot für Elite Assa Foli Farmen geschreiben. Es ist zwar nur ein Projekt von ca. 5 Stunden denke aber Trotzdem mal das er mir recht gut gelungen ist :)

Der Bot Farmt den Assa Boss bei Ran Musu-Gärten mit Ele/Monk

Ich werde ihn jetz einfach mal hochladen Interface und tasten belegung ist in dem Ordner Anleitung beschrieben. Ich würde mich über Kritik und Verbesserungsvorschläge sehr freuen.

Viel spaß mit dem Bot und einen schönen Tag noch :)




hier dann noch der source

Code:
#include "tt6.au3"
#include <NomadMemory.au3>

$Form1 = GUICreate("Elite Assa Folis Farmen", 292, 95, 193, 125)
$Button1 = GUICtrlCreateButton("1) GW Fenster Anpassen", 8, 8, 129, 49, 0)
$Button2 = GUICtrlCreateButton("2) Bot Starten", 152, 8, 129, 49, 0)
$Label1 = GUICtrlCreateLabel("Nutella Glas", 115, 70, 108, 17)
GUISetState()

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

Func button1()
Call("gw_anpassen")
EndFunc

Func  button2()
Call("_start1")
endFunc



WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")


Func deathcheack()
	If _memoryread($memdeath, $hprocess) = 1 Then
	aufgeben()	; irgendwas machen
	_start1()
	EndIf
EndFunc


Func sell123()
	RndSleep(1500)
	MouseSend("left", "click", 126, 34)
	RndSleep(200)
    For $clicks = 1 To 25
		MouseSend("left", "click", 243, 530)
		RndSleep(200)
	Next
EndFunc 

Func RndSlpe($1,$2)
	$sleep = Random($1,$2)
	Sleep($sleep)
	deathcheack()
EndFunc


Func gw_anpassen()
	Controlmove("Guild Wars", "", 0, 0, 0, 800, 600)	
	Opt("MouseCoordMode",0)
EndFunc

Func RS($1,$2)
	$sleep = Random($1,$2)
	Sleep($sleep)
EndFunc

Func Hardmode()
	MouseSend("left", "click",670,40)
	Sleep(100)
EndFunc



Func aufgeben()
	Keysend("-")
	RS(70,80)
	Keysend("r")
	RS(70,80)
	Keysend("e")
	RS(70,80)
	Keysend("s")
	RS(70,80)
	Keysend("i")
	RS(70,80)
	Keysend("g")
	RS(70,80)
	Keysend("n")
	RS(70,80)
	Keysend("RETURN")	
	RS(5000,8000)
	MouseSend("left", "click",391,298)
	RS(100,300)
EndFunc

Func GildenHalle()
	Keysend("g")
	RS(50,100)
	MouseSend("left", "click",248,48)
	RS(6500,7000)
	MouseSend("left", "click",248,48)
	RS(6500,7000)
	call("_start1")
Endfunc


Func _start1()
Global $count = 0
while $count <= 20
    $count = $count + 1
;Guild Wars Fenster öffnen
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
Sleep(1000)

;Hardmode
Hardmode()

;wayout
RndSlpe(500,1000)
PrepMoveTo()
MoveTo(2, 15707, 18731)
MoveTo(2, 14623, 17840)
MoveTo(2, 14908, 16984)
MoveTo(2, 14899, 15621)
KeepMoveTo()

;Warten...
RS(9000, 9200)

;zu den Gegnern laufen
keysend("8")
RndSlpe(2500,3000)
PrepMoveTo()
MoveTo(2, 14075, 15091)
deathcheack()
MoveTo(2, 12885, 15560)
deathcheack()
StopMoveTo()

;farm anfang
keysend("1")
RndSlpe(1234,1244)
keysend("2")
RndSlpe(2055,2065)
keysend("5")
RndSlpe(1234,1244)
deathcheack()
PrepMoveTo()
MoveTo(2, 11568, 15261)
deathcheack()
MoveTo(2, 10131, 15933)
StopMoveTo()


;Gegner killen
keysend("1")
RndSlpe(1234,1244)
keysend("2")
RndSlpe(2055,2065)
keysend("7")
RndSlpe(1822,1832)
keysend("3")
RndSlpe(1830,1840)
keysend("4")
RndSlpe(10086,10096)
keysend("1")
RndSlpe(1629,1639)
keysend("2")
RndSlpe(2899,2909)
keysend("7")
RndSlpe(2642,2652)
keysend("4")
RndSlpe(2642,2652)
keysend("ö")
RndSlpe(200, 210)
Keysend("space")
RndSlpe(500, 510)
keysend("ö")
RndSlpe(200, 210)
Keysend("space")
RndSlpe(500, 510)
keysend("ö")
RndSlpe(200, 210)
Keysend("space")
RndSlpe(500, 510)


;Aufgeben

aufgeben()

RS(7000,7510)

WEnd  
call("_ident")
Endfunc

Func _ident()
			keysend(".")
			RS(500,600)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)
			MouseSend("left", "click",32,60); Slot 1
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",65,60); Slot 2
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",97,60); Slot 3
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",127,60); Slot 4
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",159,60); Slot 5
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",32,105); Slot 6
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",65,105); Slot 7
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",97,105); Slot 8
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",127,105); Slot 9
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",159,105); Slot 10
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",32,145); Slot 11
			RS(250,260)	
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",65,145); Slot 12
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",97,145); Slot 13
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",127,145); Slot 14
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",159,145); Slot 15
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",32,182); Slot 16
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",65,182); Slot 17
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",97,182); Slot 18
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",127,182); Slot 19
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",159,182); Slot 20
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",32,251); Slot 21
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",65,251); Slot 22
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",97,251); Slot 23
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",127,251); Slot 24
			RS(250,260)
			MouseSend("left", "dclick",32,459);ident packet 1
			RS(250,260)			
			MouseSend("left", "click",159,251); Slot 25
			keysend(".")
			RS(240,260)
call("_sell")
EndFunc

Func _sell()
PrepMoveTo()
MoveTo(2, 15707, 18731)
MoveTo(2, 14623, 17840)
MoveTo(2, 14265, 17635)
StopMoveto()
RS(200,210)
keysend("v")
RS(200,210)
Keysend("space")
RS(1500,1550)
sell123()

GildenHalle()
EndFunc
07/12/2009 12:38 Neon™#2
5 Stunden? WTF?? O.o
07/12/2009 12:39 Nutella Glas#3
bin halt noch anfänger und musste mich komplett durchschlagen und durch probieren
07/12/2009 12:47 Frutex#4
Nette Idee mit dem Randomsleep den Deathcheck zu callen xD
Kann es sein das du auch ein bissl c&p benutzt hast?
Und du brauchst den deathcheck nicht noch extra callen..
Eine Sache zur ident..das geht auch einfacher
07/12/2009 12:51 kknb#5
ist zwar noch ne menge zu überarbeiten, aber fürs erste projekt ganz ok, vor allem gabs den bot hier noch nicht.
07/12/2009 13:03 Syc0n#6
Für das 1. Projekt sehr gut.

Versteh zwar nich wieso das:
Quote:
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
da drin is, weil der Bot ja eh im Hintergrund läuft, aber trotzdem gute Arbeit.
07/12/2009 14:25 Hokler#7
Quote:
Originally Posted by kknb View Post
ist zwar noch ne menge zu überarbeiten, aber fürs erste projekt ganz ok, vor allem gabs den bot hier noch nicht.
Doch einen Bot der an der stelle Elite-Tomes farmt gab es schonmal :) und zwar von mir :) war mein erster Bot den ich hier public gestellt hab xD. Der bot läuft sogar noch :p

hier der link
[Only registered and activated users can see links. Click Here To Register...]

mfg
Hokler
07/12/2009 14:37 Nutella Glas#8
misst und ich hab gedacht ich hätte mal was neues :'(

achso und was ist c&p ?
07/12/2009 14:44 in MIND#9
copy & paste, also kopieren und einfügen
07/12/2009 14:51 Frutex#10
Es soll keine direkte Anschuldigung sein..
mir kommen ein paar funcs bekannt vor
07/12/2009 14:56 Nutella Glas#11
ja nen paar sachen habe ich kopiert :) waren so die sachen wo ich nicht weiter wusste.

@indisturbalcha wie mienst du das das das identen einfacher geht?
07/12/2009 17:10 in MIND#12
er meint mit arrays

[Only registered and activated users can see links. Click Here To Register...] ist gut erklärt, was ein array is (link ursprünglich von Moep)

schau dir doch auch inner tt6 an wies dort gelöst is
07/12/2009 19:20 Nutella Glas#13
alles klar ok also bei array verstehe ich nur bahnhof wenn sich mein hirn beruhigt hat gucke ich mal in der tt6. danke aber für die schnelle antwort :)
01/19/2010 13:59 agali09#14
öhhm vielleicht ne doofe frage aber wie starte ich den ? hab noch überhaupt keine ahnung davon und finde da keine exe oder so :D
01/19/2010 15:14 Mavygr#15
it is outdated i think... to try it first download autoitv3, create a new autoitv3 script, copy and paste the code and run it.