Yangmal By Atze19 [Prosto Z E*pvp.de]

ChybaJa22 · 4 Lutego 2010

Witam!

Chce wam przedstawić YangMaler 0.4 by atze. Jest to bot który maluje yangami czyli automatycznie bierze trochę yang i wyrzuca na ziemię i nadaje kształt.

Hotkey's:

Start: "4"

pauza: "Pause"(nie wiem gdzie to wcisnąć)

koniec: "End"

Bot'a trzeba używać w rozdzielczości 800x600 w trybie okienkowym.

Download:

http://w938.wrzuta.pl/plik/0KuJy8YZNit/yangmaler_0.4_by_atze19_up_by_chybaja22

skan:

http://www.virustotal.com/pl/analisis/53730e0865b41b800bf41020b840513712299d1849e5c22b66a42d810bba560d-1244991642

1/40 (nic groźnego)

Hasło:

[email protected]

Link do tematu na e*pvp.de:

Pozdro! Liczę na 5* i +. Jeżeli ten bot juz byl na forum bardzo przepraszam.

Jeżeli czegoś nie napisałem tez sorry.

Maxis1 · 4 Lutego 2010

Poco taki bot?

Maxis1 · 4 Lutego 2010

I zlapac bana, bezsensu lepiej poszukaj exp bota co sie ludzie rozmanazaja, cos takiego pelno tego na zaprzysiezonych

japrzem · 4 Lutego 2010

a skąd można więcej rysunków ??

Groszex · 4 Lutego 2010

jak wyjdzie nowa wersja to będą nowe rysunki

for-ever · 4 Lutego 2010

mi jakieś krzywe te rusunki wychodzą, np. serce to jak 8 albo B wychodzi

japrzem · 4 Lutego 2010

u mnie tez sie tak dzieje jak u UP

hanamama · 4 Lutego 2010

Fajne tylko jak tego uzywać?

F10 · 4 Lutego 2010

UP

odpal metka tego pomniejszonego -800-600 bodajze:D

Wlacz hacka,

w CountDown zeit wahlen - wybierz 5

wybierz figure lub litere i nadus Countdown starten

gdy bedzie odliczanie

kliknij ppm na metka ;p

DAJ +

14darek · 5 Lutego 2010

Wszystko działa na Metin2PL, fajny bot

StanikVip · 5 Lutego 2010

według mnie fajna sprawa działa na pl ode mnie masz +

Thers · 3 Kwietnia 2010

Fajny bocik : > .

5 i + .

pija1 · 10 Kwietnia 2010

troche malo opcji ma ];

MrOMGWTF · 11 Kwietnia 2010

Przed chwilą zdekompilowałem program, oto kod:

HotKeySet("{ESC}", "_Exit")
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
$VERSION = "0.4"
$INI = @ScriptDir & "\options.dat"
MsgBox(0, "YangMaler " & $VERSION, "Made by atze19 for elitepvpers.de", 2)
If Not FileExists($INI) Then
IniWrite($INI, "Options", "CountdownTime", 5)
IniWrite($INI, "Options", "Inventar", 1)
IniWrite($INI, "Options", "Fenster", 1)
IniWrite($INI, "Options", "Tooltip", 1)
IniWrite($INI, "Options", "FensterName", "METIN2")
EndIf
#Region ### START Koda GUI section ### Form=c:\users\XXX\desktop\yangmaler 0.4\yangmaler0.4.kxf
$FORM1 = GUICreate("YangMaler " & $VERSION, 354, 304, (@DesktopWidth / 2) - (354 / 2), (@DesktopHeight / 2) - (304 / 2))
$LABEL1 = GUICtrlCreateLabel("Zeichen wählen:", 8, 8, 83, 17)
$LABEL2 = GUICtrlCreateLabel("Countdown Zeit w^hlen:", 8, 200, 119, 17)
$LABEL3 = GUICtrlCreateLabel("Vorschau:", 144, 8, 52, 17)
$LABEL4 = GUICtrlCreateLabel(IniRead($INI, "Options", "CountdownTime", "5"), 60, 260, 25, 25)
$SLIDER1 = GUICtrlCreateSlider(3, 216, 129, 45)
GUICtrlSetLimit(-1, 15, 1)
GUICtrlSetData($SLIDER1, IniRead($INI, "Options", "CountdownTime", "5"))
$BUTTON1 = GUICtrlCreateButton("Countdown starten", 152, 240, 169, 33, 0)
$PIC1 = GUICtrlCreatePic("", 144, 32, 193, 193)
$LIST1 = GUICtrlCreateList("", 8, 32, 121, 149, BitOR($LBS_SORT, $LBS_STANDARD, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetData(-1, "Plus|1|A|B|P|R|T|Herz")
$MENUITEM1 = GUICtrlCreateMenu("&Optionen")
$MENUITEM2 = GUICtrlCreateMenuItem("&Einstellungen", $MENUITEM1)
$MENUITEM3 = GUICtrlCreateMenuItem("&Hotkeys", $MENUITEM1)
GUISetState(@SW_SHOW, $FORM1)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=c:\users\matze\desktop\yangmaler 0.4\hotkeys.kxf
$FORM2 = GUICreate("YangMaler " & $VERSION & " - Hotkeys", 354, 304, (@DesktopWidth / 2) - (354 / 2), (@DesktopHeight / 2) - (304 / 2))
$LIST2 = GUICtrlCreateList("", 8, 8, 129, 279)
GUICtrlSetData(-1, "Plus|1|A|B|P|R|T|Herz")
$LABEL5 = GUICtrlCreateLabel("Name:", 184, 64, 35, 17)
$LABEL6 = GUICtrlCreateLabel("Hotkey:", 184, 128, 41, 17)
$INPUT1 = GUICtrlCreateInput("", 184, 88, 121, 21)
$INPUT2 = GUICtrlCreateInput("", 184, 152, 121, 21)
$BUTTON2 = GUICtrlCreateButton("Speichern", 184, 264, 123, 25, 0)
$LABEL7 = GUICtrlCreateLabel("! fXr ŁLT", 184, 184, 45, 17)
$LABEL8 = GUICtrlCreateLabel("^ für Strg", 256, 184, 47, 17)
$LABEL9 = GUICtrlCreateLabel("{FX} für F-Tasten", 184, 208, 85, 17)
$LABEL10 = GUICtrlCreateLabel("(X = Zahl von 1-12)", 184, 232, 95, 17)
GUISetState(@SW_HIDE, $FORM2)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=C:\Users\XXX\Desktop\YangMaler 0.4\EInstellungen.kxf
$FORM3 = GUICreate("YangMaler " & $VERSION & " - Einstellungen", 354, 304, (@DesktopWidth / 2) - (354 / 2), (@DesktopHeight / 2) - (304 / 2))
$CHECKBOX1 = GUICtrlCreateCheckbox("Inventar automatisch Affnen (falls geschlousen)", 16, 16, 249, 17)
$CHECKBOX2 = GUICtrlCreateCheckbox("Metin2 Fenster automatisch aktivieren", 16, 48, 209, 17)
$INPUT3 = GUICtrlCreateInput("METIN2", 136, 75, 81, 21)
$LABEL7 = GUICtrlCreateLabel("Metin2 Fenstername:", 32, 80, 103, 17)
$CHECKBOX3 = GUICtrlCreateCheckbox("Tooltip mit Countdown Zeit neben Maus anzeigen", 16, 112, 265, 17)
GUISetState(@SW_HIDE, $FORM3)
#EndRegion ### END Koda GUI section ###
_SETHOTKEYS()
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
	Case $GUI_EVENT_CLOSE
		_EXIT()
	Case $BUTTON1
		If GUICtrlRead($LIST1) = "" Then
			MsgBox(64, "YangMaler " & $VERSION, "Kein Zeichen gewQhlt!")
		Else
			GUICtrlSetState($BUTTON1, $GUI_DISABLE)
			For $I = GUICtrlRead($LABEL4) To 1 Step - 1
				GUICtrlSetData($BUTTON1, "Starten in..." & $I & " Sekunde/n")
				If IniRead($INI, "Options", "Tooltip", 1) = 1 Then ToolTip("Starten in..." & $I & " Sekunde/n")
				Sleep(1000)
			Next
			GUICtrlSetData($BUTTON1, "Gestartet!")
			If IniRead($INI, "Options", "Tooltip", 1) = 1 Then ToolTip("")
			If IniRead($INI, "Options", "Fenster", 1) = 1 Then WinActivate(IniRead($INI, "Options", "FensterName", "METIN2"))
			If IniRead($INI, "Options", "Inventar", 1) = 1 Then
				If PixelGetColor(760, 219) <> 3748913 Then
					If PixelGetColor(734, 72) <> 4143159 Then
						Send("{i DOWN}")
						Sleep(200)
						Send("{i UP}")
					EndIf
				EndIf
			EndIf
			Switch GUICtrlRead($LIST1)
				Case "+"
					_DRAW_PLUS()
				Case "1"
					_DRAW_1()
				Case "A"
					_DRAW_A()
				Case "B"
					_DRAW_B()
				Case "P"
					_DRAW_P()
				Case "R"
					_DRAW_R()
				Case "T"
					_DRAW_T()
				Case "Herz"
					_DRAW_HERZ()
			EndSwitch
			GUICtrlSetData($BUTTON1, "Beendet!")
			Sleep(1000)
			GUICtrlSetState($BUTTON1, $GUI_ENABLE)
			GUICtrlSetData($BUTTON1, "Starten")
		EndIf
	Case $LIST1
		If FileExists(@ScriptDir & "\Pictures\" & GUICtrlRead($LIST1) & ".bmp") Then
			GUICtrlSetImage($PIC1, @ScriptDir & "\Pictures\" & GUICtrlRead($LIST1) & ".bmp")
		Else
			GUICtrlSetImage($PIC1, "")
		EndIf
	Case $SLIDER1
		GUICtrlSetData($LABEL4, GUICtrlRead($SLIDER1))
		IniWrite($INI, "Options", "CountdownTime", GUICtrlRead($SLIDER1))
	Case $MENUITEM3
		GUISetState(@SW_HIDE, $FORM1)
		GUISetState(@SW_SHOW, $FORM2)
		While 1
			$NMSG = GUIGetMsg()
			Switch $NMSG
				Case $GUI_EVENT_CLOSE
					GUISetState(@SW_HIDE, $FORM2)
					GUISetState(@SW_SHOW, $FORM1)
					ExitLoop
				Case $LIST2
					GUICtrlSetData($INPUT1, GUICtrlRead($LIST2))
					GUICtrlSetData($INPUT2, IniRead($INI, "Hotkeys", GUICtrlRead($INPUT1), ""))
				Case $BUTTON2
					If GUICtrlRead($INPUT2) <> "" Then
						IniWrite($INI, "Hotkeys", GUICtrlRead($INPUT1), GUICtrlRead($INPUT2))
					EndIf
					_SETHOTKEYS()
			EndSwitch
		WEnd
	Case $MENUITEM2
		GUISetState(@SW_HIDE, $FORM1)
		GUISetState(@SW_SHOW, $FORM3)
		Switch IniRead($INI, "Options", "Inventar", 1)
			Case 0
				GUICtrlSetState($CHECKBOX1, $GUI_UNCHECKED)
			Case 1
				GUICtrlSetState($CHECKBOX1, $GUI_CHECKED)
		EndSwitch
		Switch IniRead($INI, "Options", "Fenster", 1)
			Case 0
				GUICtrlSetState($CHECKBOX2, $GUI_UNCHECKED)
				GUICtrlSetState($INPUT3, $GUI_DISABLE)
			Case 1
				GUICtrlSetState($CHECKBOX2, $GUI_CHECKED)
		EndSwitch
		Switch IniRead($INI, "Options", "Tooltip", 1)
			Case 0
				GUICtrlSetState($CHECKBOX3, $GUI_UNCHECKED)
			Case 1
				GUICtrlSetState($CHECKBOX3, $GUI_CHECKED)
		EndSwitch
		If GUICtrlRead($CHECKBOX2) = $GUI_UNCHECKED Then
			GUICtrlSetState($INPUT3, $GUI_DISABLE)
		Else
			GUICtrlSetState($INPUT3, $GUI_ENABLE)
		EndIf
		While 1
			$NMSG = GUIGetMsg()
			Switch $NMSG
				Case $GUI_EVENT_CLOSE
					Switch GUICtrlRead($CHECKBOX1)
						Case $GUI_UNCHECKED
							IniWrite($INI, "Options", "Inventar", 0)
						Case $GUI_CHECKED
							IniWrite($INI, "Options", "Inventar", 1)
					EndSwitch
					Switch GUICtrlRead($CHECKBOX2)
						Case $GUI_UNCHECKED
							IniWrite($INI, "Options", "Fenster", 0)
						Case $GUI_CHECKED
							IniWrite($INI, "Options", "Fenster", 1)
					EndSwitch
					Switch GUICtrlRead($CHECKBOX3)
						Case $GUI_UNCHECKED
							IniWrite($INI, "Options", "Tooltip", 0)
						Case $GUI_CHECKED
							IniWrite($INI, "Options", "Tooltip", 1)
					EndSwitch
					IniWrite($INI, "Options", "FensterName", GUICtrlRead($INPUT3))
					GUISetState(@SW_HIDE, $FORM3)
					GUISetState(@SW_SHOW, $FORM1)
					ExitLoop
				Case $CHECKBOX2
					If GUICtrlRead($CHECKBOX2) = $GUI_UNCHECKED Then
						GUICtrlSetState($INPUT3, $GUI_DISABLE)
					Else
						GUICtrlSetState($INPUT3, $GUI_ENABLE)
					EndIf
			EndSwitch
		WEnd
EndSwitch
WEnd

Func _SETHOTKEYS()
$HOTKEYS = IniReadSection($INI, "Hotkeys")
If @error Then Return 0
For $I = 1 To $HOTKEYS[0][0]
	HotKeySet($HOTKEYS[$I][1], "_Draw_" & $HOTKEYS[$I][0])
Next
Return 1
EndFunc


Func _DRAW_PLUS()
_LINIE(8)
_LAUFENDREHEN("s", 305)
_LAUFENDREHEN("e", 980)
_LAUFENDREHEN("s", 300)
_LINIE(8)
EndFunc


Func _DRAW_1()
_LINIE(8)
_LAUFENDREHEN("q", 1500)
_LINIE(4)
EndFunc


Func _DRAW_A()
_LAUFENDREHEN("e", 100)
_LINIE(8)
_LAUFENDREHEN("e", 1500)
_LINIE(8)
_LAUFENDREHEN("s", 200)
_LAUFENDREHEN("e", 1250)
_LINIE(4)
EndFunc


Func _DRAW_B()
_DRAW_P()
_LAUFENDREHEN("e", 1600)
_LAUFENDREHEN("w", 100)
_LINIE(2)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LINIE(3)
EndFunc


Func _DRAW_P()
_LINIE(8)
_LAUFENDREHEN("e", 980)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
_LINIE(1)
_LAUFENDREHEN("e", 300)
EndFunc


Func _DRAW_R()
_DRAW_P()
_LAUFENDREHEN("e", 2150)
_LAUFENDREHEN("a", 100)
_LAUFENDREHEN("w", 100)
_LINIE(5)
EndFunc


Func _DRAW_T()
_LINIE(8)
_LAUFENDREHEN("q", 950)
_LAUFENDREHEN("w", 100)
_LINIE(2)
_LAUFENDREHEN("s", 200)
_LINIE(3, "s")
EndFunc


Func _DRAW_HERZ()
_LAUFENDREHEN("q", 450)
_LINIE(6)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 200)
_LINIE(1)
_LAUFENDREHEN("e", 200)
_LINIE(1)
_LAUFENDREHEN("e", 200)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 250)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 350)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 200)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 150)
_LINIE(1, "w", 75)
_LINIE(3)
_LAUFENDREHEN("q", 1200)
_LINIE(3)
_LAUFENDREHEN("e", 150)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 200)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 350)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 250)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 200)
_LINIE(1, "w", 75)
_LAUFENDREHEN("e", 200)
_LINIE(1)
_LAUFENDREHEN("e", 200)
_LINIE(1)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 150)
_LINIE(1)
_LAUFENDREHEN("e", 100)
_LINIE(6)
EndFunc


Func _LINIE($ANZAHLHAUFEN, $RICHTUNG = "w", $ABSTAND = 100)
For $I = 1 To $ANZAHLHAUFEN
	_DROPYANG()
	Send("{" & $RICHTUNG & " DOWN}")
	Sleep($ABSTAND)
	Send("{" & $RICHTUNG & " UP}")
Next
EndFunc


Func _LAUFENDREHEN($TASTE, $DAUER)
Send("{" & $TASTE & " DOWN}")
Sleep($DAUER)
Send("{" & $TASTE & " UP}")
EndFunc


Func _DROPYANG()
MouseClick("left", 775, 569, 1, 2)
Send("{ENTER}")
MouseClick("left", 407, 338, 1, 2)
MouseClick("left", 363, 353, 1, 2)
EndFunc


Func _EXIT()
Send("{w UP}")
Send("{a UP}")
Send("{s UP}")
Send("{d UP}")
Send("{e UP}")
Send("{q UP}")
Exit

EndFunc

x12 · 16 Kwietnia 2010

@up

i co to niby ma dac?

3rn! · 26 Kwietnia 2010

Lol, Sry za double posta ; / Kliknęło mi się przez przypadek.

Zaloguj się

👋 Witaj na MPCForum!

Yangmal By Atze19 [Prosto Z E*pvp.de]

Rekomendowane odpowiedzi

ChybaJa22

ChybaJa22

Maxis1

Maxis1

Maxis1

Maxis1

japrzem

japrzem

Groszex

Groszex

for-ever

for-ever

japrzem

japrzem

hanamama

hanamama

F10

F10

14darek

14darek

StanikVip

StanikVip

Thers

Thers

pija1

pija1

MrOMGWTF

MrOMGWTF

x12

x12

3rn!

3rn!

Zarchiwizowany