Levelbot

Page 1 of 2 1 2
03/04/2010 11:28 Flasher2#1
Ich dachte mir mal Ich mache nen kleinen Lvl Bot für Metin2 da es keine
kostenlosen gibt die funktionieren. :)
Und wenn sie funktionieren dann nicht richtig oder nicht auf jedem
Server.
Also habe in den Bot schon Pick Up,Auto Hit (schlagen),fertigkeiten einsetzer
:P, Potter drinne. =)
Nur wie mache ich das er die Map scannt und wenn namen auf immer sind
(muss warscheinlich mit when/do und pixel was gemacht werden)
das er dann draufklickt. (also namen sind bei metin2 von den monstern immer
rot.
besser wäre es wenn er in einem ausgewählten radius nur die Mobs killt.

Wüsste einer wie man sowas schaffen könnte?.

PS: Habe alles andere schon fertig und ich kann ihn ja später verbessern
aber jetzt pls nur meine frage beantworten .

Danke :p

Gruß Flasher2
03/04/2010 11:30 epiTR#2
Entweder mit Memoryread oder mit Pixelsearch() (benutzt doch Autoit oder?).
Was auch eine einfache Lösung ist, dass er ab und zu immer auf die gleiche Position einen rechtsklick macht und dann dort hinläuft, so läuft er einen Kreis.
03/04/2010 12:07 Flasher2#3
Super nen Kreis :p
klar benutz ich AutoIt

Code:
GuiCreate("LevelBot 1.0 by Flasher2",843,305,259,0)
$button1=GuiCtrlCreateButton("LevelBot starten",88,25,27,43)
$button2=GuiCtrlCreateButton("Bot Pausieren",86,105,205,62)
$button3=GuiCtrlCreateButton("Bot Beenden",88,190,203,56)
$button4=GuiCtrlCreateButton("Levelradius einstellen",480,18,260,17)
$button5=GuiCtrlCreateButton("My Homepage",608,241,135,17)
$button6=GuiCtrlCreateButton("E*pvpers",608,204,163,18)
$button7=GuiCtrlCreateButton("Youtube",609,273,138,17)
$button8=GuiCtrlCreateButton("m2-tools",395,205,27,17)
$button9=GuiCtrlCreateButton("********",409,232,119,36)
GuiSetState()


Variablen
$Pause = 0
$OnOff = 0

while 1
Check()
Wend

Func Check()
$msg=GuiGetMsg()
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
If $msg=$button5 Then button5()
If $msg=$button6 Then button6()
If $msg=$button7 Then button7()
If $msg=$button8 Then button8()
If $msg=$button9 Then button9()
EndFunc

Func button1()
	if $OnOff == 0	then
	$OnOff = 1		
	Sleep (5000)
	While 1
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("1")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("2")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("3")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("4")
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Check()
		WEnd
EndFunc

Func button2()
	
$Pause = 0
While $Pause == 0
	$msg=guiGetMsg()
	If $msg=$button1 Then $Pause = 1
	If $msg=$button2 Then $Pause = 1
	If $msg=$button3  Then Exit
Wend

EndFunc

Func button3()
	Exit
EndFunc

Func button4()
EndFunc

Func button5()
	ShellExecute ("http://www.thebloodofdragon.npage.de")
EndFunc

Func button6()
	ShellExecute ("http://www.elitepvpers.com/forum")
EndFunc

Func button7()
	ShellExecute ("http://www.youtube.de/TheBlooDofDragon")
EndFunc

Func button8()
	ShellExecute ("http://www.m2-tools.de")
EndFunc

Func button9()
	ShellExecute ("http://www.************")
EndFunc
1.Also da soll noch bei button 1 rein das er bei dem eingestellten radius
hallt alle mobs anklickt (namen sind rot /muss rechtsklick sein :p )

2.und bei button 4 muss noch rein das ich den radius einstellen kann


Wüsste jemand wie das geht?
03/04/2010 12:10 epiTR#4
# gib mal deinen Code in Scite ein, da sind jedemenge Fehler drin :<
03/04/2010 12:14 Flasher2#5
Quote:
Originally Posted by dasr2142 View Post
# gib mal deinen Code in Scite ein, da sind jedemenge Fehler drin :<
ne is alles richtig der funzt auch super :)

nur mir fehlt was ich im post über dir geschrieben hab
03/04/2010 12:37 epiTR#6
Formuliere bitte nochmal deine Frage!
03/04/2010 12:39 Flasher2#7
Quote:
1.Also da soll noch bei button 1 rein das er bei dem eingestellten radius
hallt alle mobs anklickt (namen sind rot /muss rechtsklick sein )

2.und bei button 4 muss noch rein das ich den radius einstellen kann


Wüsste jemand wie das geht?
Pls hilfe

1.Also von da aus wo man steht wird ein radius gesetzt und in diesem soll er jeden anklicken
"roten namen" (mobs) mit rechtsklick anklicken

2.Halt en BUtton der bewirkt das de Radius gesetzt wird
03/04/2010 12:51 epiTR#8
Code:
func oben()
$oben = MouseGetPos()											;Position oben links

IniWrite("Settings.ini","oben","x",$oben[0])					;schreib alles in eine Inifile
IniWrite("Settings.ini","oben","y",$oben[1])
EndFunc



func unten()
$unten = MouseGetPos()											;Position unten rechts

IniWrite("Settings.ini","unten","x",$unten[0])					;schreib alles in eine Inifile
IniWrite("Settings.ini","unten","y",$unten[1])
EndFunc



func radius()
	$ox = IniRead("Settings.ini","oben","x","")					;liest alle Werte aus der Inifile
	$oy = IniRead("Settings.ini","oben","y","")
	$ux = IniRead("Settings.ini","unten","x","")
	$uy = IniRead("Settings.ini","unten","y","")
	$Farbe =  0x ...											;der Farbwert
	
	$pixel = PixelSearch($ox,$oy,$ux,$uy,$Farbe,10)	;sucht nach dem Farbwert in dem "Radius" den du vorher bestimmt hast bzw. in der Inifile drin steht 
													; 10 ist hier der Toleranzwert
													
	;linksklick auf die Position, wo der Farbwert liegt
	MouseClick("left",$pixel[0],$pixel[1])
EndFunc
Musst halt die Funktionen in dein Gui einbauen
03/04/2010 13:24 Flasher2#9
Code:
GuiCreate("LevelBot 1.0 by Flasher2",843,305,259,0)
$button1=GuiCtrlCreateButton("LevelBot starten",88,25,27,43)
$button2=GuiCtrlCreateButton("Bot Pausieren",86,105,205,62)
$button3=GuiCtrlCreateButton("Bot Beenden",88,190,203,56)
$button4=GuiCtrlCreateButton("Levelradius einstellen",480,18,260,17)
$button5=GuiCtrlCreateButton("My Homepage",608,241,135,17)
$button6=GuiCtrlCreateButton("E*pvpers",608,204,163,18)
$button7=GuiCtrlCreateButton("Youtube",609,273,138,17)
$button8=GuiCtrlCreateButton("m2-tools",395,205,27,17)
$button9=GuiCtrlCreateButton("********",409,232,119,36)
GuiSetState()


Variablen
$Pause = 0
$OnOff = 0

func oben()
$oben = MouseGetPos()									

IniWrite("Settings.ini","oben","x",$oben[0])					
IniWrite("Settings.ini","oben","y",$oben[1])
EndFunc



func unten()
$unten = MouseGetPos()											

IniWrite("Settings.ini","unten","x",$unten[0])					
IniWrite("Settings.ini","unten","y",$unten[1])
EndFunc

Func radius()
$ox =IniRead("Settings.ini,","oben","x"," ")
$oy =IniRead("Settings.ini,","oben","y"," ")
$ux =IniRead("Settings.ini,","oben","x"," ")
$uy =IniRead("Settings.ini,","oben","y"," ")
$Farbe = 0xFF0000

$pixel = PixelSearch($ox,$oy,$ux,$uy,$Farbe,10)
MouseClick("left",$pixel[0],$pixel[1])
EndFunc

while 1
Check()
Wend

Func Check()
$msg=GuiGetMsg()
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
If $msg=$button5 Then button5()
If $msg=$button6 Then button6()
If $msg=$button7 Then button7()
If $msg=$button8 Then button8()
If $msg=$button9 Then button9()
EndFunc

Func button1()
	if $OnOff == 0	then
	$OnOff = 1		
	Sleep (5000)
	While 1
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("1")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("2")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("3")
		Sleep (500)
		Send ("y")
		Sleep (1)
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("4")
		Send ("{F1}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("{F2}")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Send ("y")
		Sleep (1)
		Check()
		WEnd
EndFunc

Func button2()
	
$Pause = 0
While $Pause == 0
	$msg=guiGetMsg()
	If $msg=$button1 Then $Pause = 1
	If $msg=$button2 Then $Pause = 1
	If $msg=$button3  Then Exit
Wend

EndFunc

Func button3()
	Exit
EndFunc

Func button4()
EndFunc

Func button5()
	ShellExecute ("http://www.thebloodofdragon.npage.de")
EndFunc

Func button6()
	ShellExecute ("http://www.elitepvpers.com/forum")
EndFunc

Func button7()
	ShellExecute ("http://www.youtube.de/TheBlooDofDragon")
EndFunc

Func button8()
	ShellExecute ("http://www.m2-tools.de")
EndFunc

Func button9()
	ShellExecute ("http://www.************")
EndFunc
So richtig:P?

kommt nähmlich fehler bei Variablen :P
03/04/2010 13:47 epiTR#10
Hab dir doch schon gesagt, dass Fehler drin sind!
Kommentar musste mit ";" einleiten!
01/01/2011 05:31 boskaoner#11
ich komm jah mal ganicht kla hir
kann mir pls einer ine dowloade seiten von einem Kostenlosen lvl bot an meine e-mail adds schicken
wehre sehr nett
e-mail : Davidschneider&@gmx.de

MFG: Boskaoner
01/01/2011 22:21 l3obn4tzer#12
Quote:
Originally Posted by boskaoner View Post
ich komm jah mal ganicht kla hir
kann mir pls einer ine dowloade seiten von einem Kostenlosen lvl bot an meine e-mail adds schicken
wehre sehr nett
e-mail : Davidschneider&@gmx.de

MFG: Boskaoner
Der LvL-Bot hier ist wie du vielleicht gelesen hast noch unter Bearbeitung, falls es welche geben sollte
1. Guck bei Metin2 Hacks/Bots/Exploits
2. Geb in SuFu ein!

Mal ne Frage nebenbei: Bin AutoIt Anfänger und könntet ihr mir sagen was ein GUI ist?
01/01/2011 22:35 AutoitScript#13
Ein GUI ist eine Benutzeroberfläche also ein Fenster mit Knöpfen und so weiter.
01/01/2011 22:45 omer36#14
stichwort: Koda(FormDesigner)
01/03/2011 13:37 TrickGamer#15
Ich will hier nicht das Projekt zerstören aber soweit ich weis
gehen autoit Funktionen bei metin2 DE NICHT mehr
also z.B Send :(
Page 1 of 2 1 2