Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Archlord
present for all x64 present for all x64
You last visited: Today at 19:52

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

present for all x64

Discussion on present for all x64 within the Archlord forum part of the MMORPGs category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2010
Posts: 94
Received Thanks: 14
present for all x64

have fun with my bot .. its still working

Code:
_GDIPlus_Startup()
Dim $STOP = True
HotKeySet("{F10}", "START1")
HotKeySet("{F11}", "STOP1")
GUICreate("3000 zeilen bot", 250, 300)
Opt("GUIOnEventMode", 1)
GUICtrlCreateButton("load", 170, 10)
GUICtrlCreateButton("load", 200, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "exit1")
GUICtrlCreateLabel("mobs", 10, 30)
$BG = GUICtrlCreateRadio("bg ? ", 50, 30)
$NORMAL = GUICtrlCreateRadio("normal ? ", 110, 30)
GUICtrlCreateLabel("Attackbar1", 10, 50)
$B_B1_1 = GUICtrlCreateCheckbox("atk1", 10, 70)
$B_B1_2 = GUICtrlCreateCheckbox("atk2", 10, 90)
$B_B1_3 = GUICtrlCreateCheckbox("atk3", 10, 110)
$B_B1_4 = GUICtrlCreateCheckbox("atk4", 10, 130)
$B_B1_5 = GUICtrlCreateCheckbox("atk5", 10, 150)
$B_B1_6 = GUICtrlCreateCheckbox("atk6", 10, 170)
$B_B1_7 = GUICtrlCreateCheckbox("atk7", 10, 190)
$B_B1_8 = GUICtrlCreateCheckbox("atk8", 10, 210)
$B_B1_9 = GUICtrlCreateCheckbox("atk9", 10, 230)
$B_B1_10 = GUICtrlCreateCheckbox("atk10", 10, 250)
GUICtrlCreateLabel("Buffbar1", 70, 50)
$B_B2_1 = GUICtrlCreateCheckbox("Buff1", 70, 70)
$B_B2_2 = GUICtrlCreateCheckbox("Buff2", 70, 90)
$B_B2_3 = GUICtrlCreateCheckbox("Buff3", 70, 110)
$B_B2_4 = GUICtrlCreateCheckbox("Buff4", 70, 130)
$B_B2_5 = GUICtrlCreateCheckbox("Buff5", 70, 150)
$B_B2_6 = GUICtrlCreateCheckbox("Buff6", 70, 170)
$B_B2_7 = GUICtrlCreateCheckbox("Buff7", 70, 190)
$B_B2_8 = GUICtrlCreateCheckbox("Buff8", 70, 210)
$B_B2_9 = GUICtrlCreateCheckbox("Buff9", 70, 230)
$B_B2_10 = GUICtrlCreateCheckbox("Buff10", 70, 250)
GUICtrlCreateLabel("Buffbar2", 130, 50)
$B_B3_1 = GUICtrlCreateCheckbox("Buff1", 130, 70)
$B_B3_2 = GUICtrlCreateCheckbox("Buff2", 130, 90)
$B_B3_3 = GUICtrlCreateCheckbox("Buff3", 130, 110)
$B_B3_4 = GUICtrlCreateCheckbox("Buff4", 130, 130)
$B_B3_5 = GUICtrlCreateCheckbox("Buff5", 130, 150)
$B_B3_6 = GUICtrlCreateCheckbox("Buff6", 130, 170)
$B_B3_7 = GUICtrlCreateCheckbox("Buff7", 130, 190)
$B_B3_8 = GUICtrlCreateCheckbox("Buff8", 130, 210)
$B_B3_9 = GUICtrlCreateCheckbox("Buff9", 130, 230)
$B_B3_10 = GUICtrlCreateCheckbox("Buff10", 130, 250)
GUICtrlCreateLabel("Buffbar3", 190, 50)
$B_B4_1 = GUICtrlCreateCheckbox("Buff1", 190, 70)
$B_B4_2 = GUICtrlCreateCheckbox("Buff2", 190, 90)
$B_B4_3 = GUICtrlCreateCheckbox("Buff3", 190, 110)
$B_B4_4 = GUICtrlCreateCheckbox("Buff4", 190, 130)
$B_B4_5 = GUICtrlCreateCheckbox("Buff5", 190, 150)
$B_B4_6 = GUICtrlCreateCheckbox("Buff6", 190, 170)
$B_B4_7 = GUICtrlCreateCheckbox("Buff7", 190, 190)
$B_B4_8 = GUICtrlCreateCheckbox("Buff8", 190, 210)
$B_B4_9 = GUICtrlCreateCheckbox("Buff9", 190, 230)
$B_B4_10 = GUICtrlCreateCheckbox("Buff10", 190, 250)
GUICtrlCreateLabel("F10 - Start Bot", 10, 10)
GUICtrlCreateLabel("F11 - Stop Bot", 90, 10)
Opt("SendKeyDelay", 10)
Opt("SendKeyDownDelay", 105)
GUISetState()
Func START1()
	$STOP = False
	If (WinExists("[CLASS:RwAppClass]")) Then
		WinMove("[CLASS:RwAppClass]", "", 0, 0)
		ControlSend("[CLASS:RwAppClass]", "", "", "{TAB}")
		WinSetTitle("[CLASS:RwAppClass]", "", "Archlord Bot gestartet")
		Call("SUCHEN")
	EndIf
EndFunc
Func SUCHEN()
	MsgBox(4096, "Info", "Bot gestartet", 1)
	While $STOP = False
		$SIZE = WinGetPos("[CLASS:RwAppClass]")
		_ScreenCapture_Capture("C:\Users\Public\a.png", 419, 58, 449, 88)
		_ScreenCapture_Capture("C:\Users\Public\b.png", 410, 40, 430, 60)
		GUISetState()
		$A = _GDIPlus_ImageLoadFromFile("C:\Users\Public\a.png")
		$B = _GDIPlus_ImageLoadFromFile("C:\Users\Public\b.png")
		If (GUICtrlRead($BG) = 1) Then
			If Call("_GDIPLUS_GETPIXEL", $B, 8, 9) = 4287862933 Then
				Call("ZIELEN")
			EndIf
		EndIf
		If (GUICtrlRead($NORMAL) = 1) Then
			If Call("_GDIPLUS_GETPIXEL", $A, 15, 15) = 4280030996 Then
				If Call("_GDIPLUS_GETPIXEL", $A, 10, 10) = 4281219384 Then
					If Call("_GDIPLUS_GETPIXEL", $A, 11, 11) = 4280758577 Then
						If Call("_GDIPLUS_GETPIXEL", $A, 12, 12) = 4280956212 Then
							Call("ZIELEN")
						EndIf
					EndIf
				EndIf
			EndIf
		EndIf
		_GDIPlus_ImageDispose($A)
		_GDIPlus_ImageDispose($B)
		If (GUICtrlRead($B_B1_1) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
		EndIf
		If (GUICtrlRead($B_B1_2) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
		EndIf
		If (GUICtrlRead($B_B1_3) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
		EndIf
		If (GUICtrlRead($B_B1_4) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
		EndIf
		If (GUICtrlRead($B_B1_5) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
		EndIf
		If (GUICtrlRead($B_B1_6) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
		EndIf
		If (GUICtrlRead($B_B1_7) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
		EndIf
		If (GUICtrlRead($B_B1_8) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
		EndIf
		If (GUICtrlRead($B_B1_9) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
		EndIf
		If (GUICtrlRead($B_B1_10) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
		EndIf
	WEnd
EndFunc
Func ZIELEN()
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 1
	If (GUICtrlRead($B_B2_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B2_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B2_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B2_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B2_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B2_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B2_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B2_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B2_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B2_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 2
	If (GUICtrlRead($B_B3_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B3_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B3_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B3_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B3_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B3_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B3_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B3_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B3_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B3_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 3
	If (GUICtrlRead($B_B4_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B4_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B4_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B4_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B4_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B4_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B4_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B4_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B4_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B4_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 4
	ControlSend("[CLASS:RwAppClass]", "", "", "{TAB}")
EndFunc
Func STOP1()
	WinSetTitle("[CLASS:RwAppClass]", "", "Archlord Bot paused")
	MsgBox(4096, "Info", "Bot gestoppt", 1)
	If ($BAR = 2) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	If ($BAR = 3) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	If ($BAR = 4) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	$STOP = True
	$COUNTER = 0
EndFunc
Func EXIT1()
	_GDIPlus_GraphicsDispose($A)
	_GDIPlus_Shutdown()
	FileDelete("C:\Users\Public\a.png")
	Exit
EndFunc
While 1
	Sleep(100)
WEnd
Cyberghost77 is offline  
Old 11/20/2011, 17:50   #2
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2010
Posts: 219
Received Thanks: 21
Yousay have fun with my bot and you give us a code to a bot...

C'mon m8 such a little liar you are. But one thing is good. No leechers will try it out cause most of the lechers are to retarded to understand what that is But GJ m8

#//approved
kingkevin96 is offline  
Old 11/25/2011, 21:00   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2010
Posts: 94
Received Thanks: 14
'mon m8 such a little liar you are.

mad ? idot -.- whats wrong ?
Cyberghost77 is offline  
Reply

« [MYSTERIOUS] Training server extended | New Duping or 2X stats :) »

Similar Threads Similar Threads
[Present]Radio.de
07/26/2011 - Tutorials - 0 Replies
Hallö zusammen! Da ich gerade aus reinem Zufall darauf gestoßen bin hab ich nicht viel zur Einleitung zu schreiben, außer dass sich Folgendes um eine richtig nette Seite zum Radiostreamen dreht... http://www.hit-lounge-radio.com/images/partner/ra dio.de.png Was ist Radio.de? Radio.de ist eine Plattform über welche man alle (ich habe noch keine entdeckt, die fehlen) Radiosender bequem übers Netz empfangen kann, selbst die dazugehörige App für's iPhone/ für den iPod ist gratis! Was mich...
ABOUT PRESENT CHEATS
06/16/2011 - Soldier Front Philippines - 18 Replies
GUYS WAG KAU MANINIWALA SA MGA NAG LALAGAY NG CHEAT D2, HINDI NYO ALAM MAY KEYLOGGER NA PALA.. UNG VIRUS NA NADEDETECT NG AV(ANTI-VIRUS) AY FALSE ALARM... JAN KAU NAG KAKAMALI. TRY NYO MINSAN YUNG PRESENT WH AT YUNG MAY VERSION CHEAT TAS I-SCAN NYO USING YOUR OWN AV AT SA VIRUS TOTAL. THEN CYMPRE MAY RESULT, SEARCH NYO YUNG RESULTA YUNG POSITIVE DETECTION TIGNAN NYO ANG DESCRIPTION NG BAWAT RESULTA. MAGUGULAT NA LANG KAYO NINANAKAWAN NA KAU NG DATA HEHEHE. :rtfm: TAS MAGUGULAT NA LANG KAYO...
PSG Networking Present
12/29/2010 - Metin2 PServer Advertising - 99 Replies
Guten abend ihr Epvpeer.. :D Ihr sucht bestimmt schon lange einen server wo es viele neue interessante dinge zu entdecken gibt oder? Ja das tue ich auch. UND ICH HAB DIE LÖSUNG PSG-NETWORKING .. der beste P-server überhaupt auf dem Markt.. :) Hier gibt es die: Entbuggte reittiere Neue Maps Neu designte Skills Nette und zuverlässig Teamler Ein Netter SGA
PSG Networking Present
10/27/2010 - Metin2 Private Server - 3 Replies
Guten abend ihr Epvpeer.. :D Ihr sucht bestimmt schon lange einen server wo es viele neue interessante dinge zu entdecken gibt oder? Ja das tue ich auch. UND ICH HAB DIE LÖSUNG PSG-NETWORKING .. der beste P-server überhaupt auf dem Markt.. :) Hier gibt es die: Entbuggte reittiere Neue Maps Neu designte Skills Nette und zuverlässig Teamler Ein Netter SGA
CR 1.0.4 up to the present
07/07/2008 - Cabal Hacks, Bots, Cheats, Exploits & Macros - 6 Replies
guy's i've been reading a lot of topics here in the forums that is really repetetive, even when some of them have already been answered... if some you guys are still having difficulties trying to run the newest version of Cabal Riders maybe here are some quick solutions... 1. if you have anti-virus installed whatever the heck it is, disable it, cuz it's messing with the 1.0.4 version of CR... 2. for PC's with DeepFreeze programs installed, disable it as well, in order for the 1.0.5 and...



All times are GMT +1. The time now is 19:53.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.