[Source] Yang Maler

atze19 · 08/19/2009, 13:07

Hey,

mich haben in der letzten Zeit wieder mehrere wegen meines Yang Maler angeschrieben. Nur leider habe ich keine Zeit/Lust dazu noch ein Update rauszubringen. Darum veröffentliche ich einfach den Sourcecode, sodass da evtl. jemand weiter machen könnte.
Viel Spaß und Erfolgt damit!

Spoiler

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         atze19 (www.elitepvpers.com)

#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListBoxConstants.au3>

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.com",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 ###
$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 ###
$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("! für ALT", 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 ###
$Form3 = GUICreate("YangMaler " & $Version & " - Einstellungen", 354, 304,(@DesktopWidth / 2) - (354 / 2),(@DesktopHeight / 2) - (304 / 2))
$Checkbox1 = GUICtrlCreateCheckbox("Inventar automatisch öffnen (falls geschlossen)", 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 gewählt!")
			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) <> 0x393431 Then
						If PixelGetColor(734, 72) <> 0x3F3837 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

Wems geholfen hat, einfach ein Thx geben

RoleS · 08/19/2009, 13:28

Nett, nett gibt ein Thx^^.

0wn4 · 08/19/2009, 13:30

Was bringt das?

~~Mango_x3~~ · 08/19/2009, 13:31

Ja Was macht das denn Genau InGame oder Paint O.o ?^^

THEGO90 · 08/19/2009, 13:35

so wie ichs jetzt verstehe malt er ein bild...was für ein bild weil das ist ja inder source schon vorgegeben weil ich da die verschiedenen koords sehe oder ?

atze19 · 08/19/2009, 14:53

Davon ist das der Sourcecode.
Wer sichs genau anschaut, der weiß schon wöfür der is.

~~Tazaki~~ · 09/17/2009, 15:54

Wäre echt fein, wenn jemand das projekt aufgreifen und erweitern würde!

Der-Eddy · 09/17/2009, 19:33

Quote:

Originally Posted by Kr0ch3r

Wäre echt fein, wenn jemand das projekt aufgreifen und erweitern würde!

soll ich?
würde mich morgen bis übermorgen dransetzen da ich auch noch ein rl habe

kann gerne auch jemand anderes machen

~~Everyway~~ · 09/17/2009, 19:36

Gut gut

---

aber funkt dieser code auch mit vb ?
[ wurde ja mit autoit gescripetet]

Der-Eddy · 09/17/2009, 19:37

Quote:

Originally Posted by Everyway

Gut gut

---

aber funkt dieser code auch mit vb ?
[ wurde ja mit autoit gescripetet]

autoit ist nicht vb man müsste die Befehle umschreiben aufs vb

~~Everyway~~ · 09/17/2009, 19:38

Achso, he dann lass ichs lieber bleiben^^

~~sw1~~ · 09/17/2009, 20:23

lol für highlvler wer als high hackt den schon rofl da kauft man sich lieber 50 unhenge für 50 dm

mercedesBENZ · 09/17/2009, 20:27

hi leute kann mir mal einer sagen ob es einen yanghck gibt wo mann sich yang hacken kann biss z 999kk

THEGO90 · 09/17/2009, 20:35

Quote:

Originally Posted by mercedesBENZ

hi leute kann mir mal einer sagen ob es einen yanghck gibt wo mann sich yang hacken kann biss z 999kk

wovon träumst du ??

nein gibt es nicht...

Der-Eddy · 09/17/2009, 20:37

Quote:

Originally Posted by sw1

lol für highlvler wer als high hackt den schon rofl da kauft man sich lieber 50 unhenge für 50 dm

hier gehts um einen Yangmaler um keinen Yanghack

Quote:

hi leute kann mir mal einer sagen ob es einen yanghck gibt wo mann sich yang hacken kann biss z 999kk

kann man machen dauert nur 2 Jahre + ein paar jahre hinter Gittern
noch bock drauf?