Diese frage hatte ich schon mal in einen andren Forum^^ Also ich bräuchte einen Bot zum Abbauen also so solte es aussehen: auf platz 1 sind die booster und auf den andren plätzen im inventar sind z.b die messer max. von platz 2 bis 50( man braucht ja im invenar auch noch platz für anderes^^) Dann legt er ein >messer an und boostert es. Dass immmer so weiter bis die Bosster alle sind. Man soolte so viele Bosster wie Messer im Inventar haben. Wenn das alles fertig ist z. einen bot öffnen oder im bot eine funktion die man dann Aktiviert, die sollte so aussehen: Man steht vor den Magischen Kräutern, dann legt er vom 2. Inventar platz das erste messer ab, dann klickt er auf den magischen kräuter, dann auf ausgewählte Produktion dann Auf Blaublatt dann wartet er ca. 10 sekunden, weil dann ist Abgebaut und dann nächsten Messer anlegen und wieder weiter machen.. Wäre gut wenn wer so was machen könnte, so weit ich weiß ist es möglich aber denke nicht so leicht.Wie einige schon wissen ich kenne mich mit AutoIT leider nicht aus^^
editer Code der in meinen ersten Beitrag ist ist nur ein teil davon er sucht nur die booster im inventar mehr nicht! Das soll nur dafür sein, falls mir wer den Bot fertigstellt, er weniger arbeit hat!
mfg
edit: sorry wegen der Rechtschreibung, habe wenig zeit
Code:
AutoItSetOption("MouseCoordMode",2)
AutoItSetOption("CaretCoordMode",2)
AutoItSetOption("PixelCoordMode",2)
AutoItSetOption("MouseClickDownDelay",50)
AutoItSetOption("SendKeyDownDelay",50)
Dim $state, $search, $inventarfarbe1, $a, $b, $c, $check, $invopen, $i, $booster, $m, $boosterfarbe
$inventarfarbe1="0x556633"
$Boosterfarbe="0x999777"
$state=WinGetState("LastChaos")
WinMove("LastChaos","",0,0)
Sleep(100)
WinActivate("LastChaos")
inventaropen()
boost2()
Func inventaropen()
Send("e")
Sleep(100)
$search = PixelSearch(1, 1, 1000, 700, $inventarfarbe1) ;left top -> right bottom
If Not @error Then
farbcheck($search[0], $search[1])
If $check = "1983678581" Then
MouseMove($search[0]+20, $search[1]+230, 0)
MouseClick("left")
Sleep(200)
$invopen = 1
EndIf
Else
MsgBox(0,"boo", "open inventory not found")
$invopen = 0
EndIf
EndFunc
Func Booster()
$i = 0
Do
$i = $i + 1
If $invopen Then
Select
Case $i = 1
boost2()
If $c Then ExitLoop
Case $i = 2
MouseMove($search[0]+20, $search[1]+270, 0)
MouseClick("left")
Sleep(200)
boost2()
If $c Then ExitLoop
Case $i = 3
MouseMove($search[0]+20, $search[1]+310, 0)
MouseClick("left")
Sleep(200)
boost2()
If $c Then ExitLoop
Case $i = 4
MouseMove($search[0]+20, $search[1]+350, 0)
MouseClick("left")
Sleep(200)
boost2()
If $c Then ExitLoop
EndSelect
EndIf
Until $i = 4
EndFunc
Func boost2()
$Booster = PixelSearch($search[0]+35, $search[1]+215, $search[0]+210, $search[1]+390, $Boosterfarbe) ;left top -> right bottom
If Not @error Then
farbcheck($Booster[0], $Booster[1])
If $check = "2033039290" Then
MouseMove($booster[0]+10, $booster[1]+10,0)
$c = 1
EndIf
EndIf
EndFunc
Func farbcheck($a, $b)
$check = PixelChecksum($a, $b, $a+20, $b+20)
EndFunc
hab editiert so er such im inventar nach booster ist aber etwas ungenau wenn man bosster an erster stelle hat
edit: die messer sollen von platz 4-50 sein und die booster auf platz 3 da sonst der booster nicht angeklickt wird mit dem script der im code ist! Und wenn der booster angeklickt werden soll darf er vorher noch nicht markiert sein mit linken mausklick also, also keinen grünen rand haben
Der Code der in meinen ersten Beitrag ist ist nur ein teil davon er sucht nur die booster im inentar mehr nicht! Das soll nur dafür sein, falls mir wer den Bot fertigstellt, er weniger arbeit hat!
schieben wirs mal nach oben bitte ich brauche den dringend^^
ich werde probieren zu lernen^^ aber bitte probire dich an einen xD ein thx wäre dir von vielen leuten sicher^^ Bei mir wird es ewig dauern er ich selber einen bot machen kann.
Also. Ich hätte auch gerne so ein Ding.
Aber, es ist mir echt zu viel nach den Bildern im Inv. zu suchen.
Ich werde es mal versuchen, aber dann mit Hotkey. Also z.B.:
Booster im 1. Feld, im Prog einstellen wieviele Messer/Hämmer, Maus auf Booster, Hotkey drücken -> Umwandlung.
Wie gesagt, ich fange gleich mal damit an. Brauch das Teil auch.
Mit ImageSearch ist es sehr leicht sowas zu machen natürlich nur wenn man auf alle zusätzlichen sachen verzichtet zb. nen ordentliches Interface etc. ^^
Naja ich sach mal so wenn man Interface etc. das ganze Programm haben will dann dauerts schon länger aber wenn man nur die .au3 ausführt und dann ne kleine Anleitung in ne MSG macht ist das ne sache von 10-20 Minuten ^^
Metin2 Abbau Bot 04/28/2010 - Metin2 - 5 Replies Hey,
Ich habe eine Frage wäre es möglich das banjo oder wer anders mal einen Abbau Bot macht bei dem man das aussuchen kan was abgebaut werden soll und der bot sucht es dann auf allen karten.Wenn er es dann gefunden hat baut er es ab.
Wäre das möglich oder was haltet ihr davon?
Sozusagen ein Farmbot für metale.
suche abbau bot 04/24/2010 - Last Chaos - 1 Replies Wie oben genannt suche ich einen abbau bot.. da ich den von killer nicht nutzen kann suche ich einen anderen.
freue mich schon aufanworten.....
mfg michau
Abbau Bot gesucht 04/12/2010 - Last Chaos - 3 Replies Hallo ich suche einen abbau Bot womit man z.b. Webbersteine und Blaublatt abbauen lassen kann da es selber doch zeit in anspruch nimt.
Abbau Hack/bot 01/02/2010 - Metin2 - 3 Replies Hey Leute,
gibt es auch so einen Hack oder Bot womit mach diese Erze abbauen kann?
lg