[Source] Yang Maler

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! :D
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 :)