You last visited: Today at 15:52
Advertisement
[Source] Yang Maler
Discussion on [Source] Yang Maler within the Metin2 Hacks, Bots, Cheats, Exploits & Macros forum part of the Metin2 category.
08/19/2009, 13:07
#1
elite*gold: 0
Join Date: Jun 2008
Posts: 260
Received Thanks: 302
[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!
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
08/19/2009, 13:28
#2
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
Nett, nett gibt ein Thx^^.
08/19/2009, 13:30
#3
elite*gold: 0
Join Date: Aug 2009
Posts: 1,265
Received Thanks: 68
Was bringt das?
08/19/2009, 13:31
#4
elite*gold: 640
Join Date: Apr 2009
Posts: 666
Received Thanks: 116
Ja Was macht das denn Genau InGame oder Paint O.o ?^^
08/19/2009, 13:35
#5
elite*gold: 0
Join Date: Nov 2008
Posts: 3,278
Received Thanks: 583
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 ?
08/19/2009, 14:53
#6
elite*gold: 0
Join Date: Jun 2008
Posts: 260
Received Thanks: 302
Davon ist das der Sourcecode.
Wer sichs genau anschaut, der weiß schon wöfür der is.
09/17/2009, 15:54
#7
elite*gold: 7
Join Date: Jun 2008
Posts: 1,750
Received Thanks: 415
Wäre echt fein, wenn jemand das projekt aufgreifen und erweitern würde!
09/17/2009, 19:33
#8
elite*gold: 205
Join Date: Nov 2008
Posts: 67,906
Received Thanks: 19,506
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
09/17/2009, 19:36
#9
elite*gold: 0
Join Date: Nov 2008
Posts: 2,100
Received Thanks: 372
Gut gut
09/17/2009, 19:37
#10
elite*gold: 205
Join Date: Nov 2008
Posts: 67,906
Received Thanks: 19,506
Quote:
Originally Posted by
Everyway
Gut gut
autoit ist nicht vb man müsste die Befehle umschreiben aufs vb
09/17/2009, 19:38
#11
elite*gold: 0
Join Date: Nov 2008
Posts: 2,100
Received Thanks: 372
Achso, he dann lass ichs lieber bleiben^^
09/17/2009, 20:23
#12
elite*gold: 0
Join Date: Aug 2009
Posts: 28
Received Thanks: 1
lol für highlvler wer als high hackt den schon rofl da kauft man sich lieber 50 unhenge für 50 dm
09/17/2009, 20:27
#13
elite*gold: 0
Join Date: Sep 2009
Posts: 1
Received Thanks: 0
hi leute kann mir mal einer sagen ob es einen yanghck gibt wo mann sich yang hacken kann biss z 999kk
09/17/2009, 20:35
#14
elite*gold: 0
Join Date: Nov 2008
Posts: 3,278
Received Thanks: 583
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...
09/17/2009, 20:37
#15
elite*gold: 205
Join Date: Nov 2008
Posts: 67,906
Received Thanks: 19,506
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?
Need yang maler no autoit
03/01/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 0 Replies
Need yang maler no autoit
[Release]How To Make Tq Source Work + Working Source + Server ByBass + Commands
12/08/2008 - CO2 PServer Guides & Releases - 15 Replies
1: How To Make The Server Work
In fact, before other people did not just let ACC now with hi EACC Columbia landing on the settlement of the issue, and the rest is our own how to improve the content of those interested can improve the next. MY MY set and the same. INI MAP INI files and MAP with the client-to-date coverage of the account. server.dat ！ And then as long as the client will be able to modify server.dat!
127.0.0.1 192.168.0.1 192.168.1.1 IP。 Please do generally use...
All times are GMT +2. The time now is 15:52 .
![[Source] Yang Maler](https://www.elitepvpers.com/forum/iconimages/metin2-hacks-bots-cheats-exploits-macros/source-yang-maler_ltr.gif){kind=small}
