Heldengeister BOT *KOSTENLOS

ashleggor · 12/13/2013, 17:56

Quote:

Originally Posted by leo_1988

@ashleggor

any update on using skills??

Sorry. Had no time for further changes because of work

I'll post the 1600x900 with "minimized" client I'm using atm. Hope it works for you

It's for Pan/Faun

Spoiler

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren

Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d

;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")



Func search_Mob()
	$varc = 0
	$varc = $varc + 1
	 $search = PixelSearch( 375, 150, 1270, 790, 0xFF0004 )
    If IsArray($search) Then
        MouseMove($search[0]+33, $search[1]+60, 1)
        MouseClick("left")
		sleep(4500)
		ConsoleWrite("Sucht Pixel")
		$search_loot = PixelSearch( 580, 640, 970, 735, 0x030303 )
		If IsArray($search_loot) Then
			ConsoleWrite('Monster angeclickt')
			sleep(7500)
			$vab = "kampf"
		EndIf
    EndIf
	Return $vab;
EndFunc


Func kampf()
;~ 	Kampf funktion
	ConsoleWrite('Lädt KamPf')
		$countdown = $countdown + 1
		$search_kampf = PixelSearch( 390, 720, 1220, 880, 0x080807 )
		If IsArray($search_kampf) Then
		     Send("{space}")
			 Send("{5}")
			 Send("{1}")
			 Send("{2}")
			 Send("{up}")
			 Send("{down}")
			 Send("{left}")
			 Send("{right}")
		$end_kampf = PixelSearch( 130, 50, 370, 115, 0x800303 )
		If IsArray($end_kampf) Then
			$vab = false
			$countdown = 0
		Endif


		Elseif $countdown > 5 Then
;~ 			nicht kampf
			$vab = false
			$countdown = 0

			ConsoleWrite('Nicht im kampf');
		EndIf
		Return $vab;
EndFunc

Sleep(5000)
While 1
	Sleep(1000)
	If $vab == "kampf" Then
		$vab = kampf()
	Else
		$vab = search_Mob()
	EndIf


WEnd
;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)

WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func ShowMessage()
MsgBox(4096,"","Das ist eine Nachricht.")
EndFunc

~~Frozenable~~ · 12/13/2013, 17:57

I go ahead and test it

leo_1988 · 12/14/2013, 16:36

@ashleggor no problem mate take ur time. i'll try that script

sreniaaa · 12/14/2013, 20:23

it's a bit off topic but is there a way to make these scripts work when u are doing something else on pc ?

Teuros · 12/14/2013, 22:58

Quote:

Originally Posted by hiphopmexx

Hey, wo kann man den Radius ändern? Ich würde gerne noch minimal was anpassen, undzwar das der Iris'e in einem größeren Umfeld farmt, so das das Risiko das er aufhört zu farmen minimiert wird. Zudem wäre es richtig geil wenn wir ne möglichkeit finden würden, das der bot auch einen Fremdangriff von "bothassern" als kampf ansieht und somit sich gleich wie im script verhällt und etwas wehrt

Spoiler

bei $search = PixelSearch(...,...,...,..., 0xFF0004) die Zahlen neu feststellen. die farbe so lassen^^.

Ol4fff · 12/15/2013, 16:03

Quote:

Originally Posted by sreniaaa

it's a bit off topic but is there a way to make these scripts work when u are doing something else on pc ?

Not with our scripts. They only work in the foreground.
If you want to let a bot work in background, it has to do more then our "simple" script. This is a form of hacking and reading memory etc.

sreniaaa · 12/15/2013, 17:59

Quote:

Originally Posted by Ol4fff

Not with our scripts. They only work in the foreground.
If you want to let a bot work in background, it has to do more then our "simple" script. This is a form of hacking and reading memory etc.

thanks for reply, just wondered if i can watch a film when my tune farms slyphs

Ol4fff · 12/15/2013, 18:17

Turn on your TV ^^

OptimusZero · 12/15/2013, 22:48

Iris Bot Confirmed Working through Facebook....

quanganhct · 12/16/2013, 06:34

the Vegeta's script, sometime it use skill, sometime not. I dont know anymore

( anyone can explain ?

Visstick · 12/17/2013, 09:33

When will there be a world boss bot? I am missing out both WB's due to timezone. It really sucks. Also make the world boss bot work on 2 screens (if possible). TY

Ol4fff · 12/18/2013, 01:09

Quote:

Originally Posted by quanganhct

the Vegeta's script, sometime it use skill, sometime not. I dont know anymore ( anyone can explain ?

Don't know it exactly, but maybe, the countdown is too low, and the script doesn't find the fight.
Do you use an .EXE file or do you use the .AU3 script

Quote:

Originally Posted by Visstick

When will there be a world boss bot? I am missing out both WB's due to timezone. It really sucks. Also make the world boss bot work on 2 screens (if possible). TY

I am very sorry, but I don't using any WB-Bot this time. Maybe you will find another one who can make such a bot.
My programming skills are not that good, but maybe one day I try to make such bots
2 screens is difficult nevertheless, because the script has to know, where the screens are, and like the actual bots it needs active screens. If one screen is active, the other gets inactive, so the script could only switch between the 2 screens and works one by one.

Have the same problem here, cause I have 2 accounts ^^

quanganhct · 12/18/2013, 08:07

Quote:

Originally Posted by Ol4fff

Don't know it exactly, but maybe, the countdown is too low, and the script doesn't find the fight.
Do you use an .EXE file or do you use the .AU3 script

I use exe file. the one that appear little box with the Vegeta' copyright and 3 lines of 'BLOCK' 'BLOCK' 'BLOCK'

Ol4fff · 12/18/2013, 23:25

Quote:

Originally Posted by quanganhct

I use exe file. the one that appear little box with the Vegeta' copyright and 3 lines of 'BLOCK' 'BLOCK' 'BLOCK'

Okay, then try to use the CODE of vegetas script from here:

This is the scriptfile, which you can copy and paste into a new file. Just rename this file into xyz.au3
If you don't have AutoIt installed, so please install this program.
You can open au3 files whit it, and run the script with it.

In this script there you should try to find this:

Code:

		Elseif $countdown > 5 Then
;~ 			nicht kampf
			$vab = false;
			$countdown = 0

			ConsoleWrite('Nicht im kampf');
		EndIf

Change the 5 into a 6 or 7

I think at your pc the fighting routine doesnt start, because the countdown is over sometimes and then the script starts at beginning and your character doesn't do anything in fight.

With AutoIt you can make an EXE file, too, if you want.
You can open the au3 file and compile it into an EXE with "Tools"--> Compile
Think this was it. If I am wrong so anybody could help here.
I'm at work so I'm not sure ^^

icetor · 12/19/2013, 09:03

Quote:

Originally Posted by Vegeta17

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren

Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d

;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")
$size_y= 900
$size_x= 1500

$abstandx = @DesktopWidth-$size_x
$abstandy = @DesktopHeight-$size_y
;~ 75 x 90

 $mob_x = (65 + ($abstandx/2))
 $mob_y = (84 + ($abstandy/2))

 $mob_x2 = (1323 + ($abstandx/2))

 $mob_y2 = (776 + ($abstandy/2))

$cccount = 0

Func search_Mob()
	$varc = 0
 	 $search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFF0004 )
	 $cccount = $cccount + 1

    If IsArray($search) Then
		$cccount = 0
		ToolTip("")
        MouseMove($search[0]+33, $search[1]+60, 1)
		$search2 = PixelSearch( $search[0], $search[1], $search[0]+100, $search[1]+100, 0xD8D0C8 )
		If IsArray($search2) Then
			MouseClick("left")
			sleep(2000)
			$varc=1
		EndIf
		ConsoleWrite("Sucht Pixel")
;~ 			nicht ein monster angreifen was bereits angegriffen wird

		$search_loot = PixelSearch( 556 + ($abstandx/2), 685  + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 )
		If IsArray($search_loot) Then
			ConsoleWrite('Monster angeclickt')
			sleep(5000)
			$vab = "kampf"
		Else
				if($varc == 1) Then
					$sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK"  & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17')
					MouseMove(400, 400, 1)
					WinSetOnTop('hallo','',1)
				EndIf
		EndIf
	Else
;~  		Portal()
;~  		sleep(1000)
					ConsoleWrite($varc)

	EndIf
	if($cccount > 100) Then
			MouseMove(1498-90+($abstandx/2), 190-75+($abstandy/2), 1)
			MouseClick("left")
			sleep(500)
			MouseMove(529-90+($abstandx/2), 700-75+($abstandy/2), 1)
			MouseClick("left")
			sleep(500)
			MouseMove(488-90+($abstandx/2), 159-75+($abstandy/2), 1)
			MouseClick("left")
			$cccount=0
	Endif

	Return $vab;

EndFunc


Func kampf()
;~ 	Kampf funktion
	ConsoleWrite('Lädt Kampf')
		$countdown = $countdown + 1
		$search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 )
		If IsArray($search_kampf) Then
			 Send("{1}")
			 Send("{2}")
			 Send("{up}")
			 Send("{down}")
			 Send("{left}")
			 Send("{right}")
		$end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 )
		If IsArray($end_kampf) Then
			$vab = false
			$countdown = 0
		Endif


		Elseif $countdown > 5 Then
;~ 			nicht kampf
			$vab = false;
			$countdown = 0

			ConsoleWrite('Nicht im kampf');
		EndIf
		Return $vab;
EndFunc
Func Portal()
	;~ 		Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
		$search = PixelSearch( 415-90+($abstandx/2), 180-75+($abstandy/2), 1350-90+($abstandx/2), 918-75+($abstandy/2), 0x070906 )
		If IsArray($search) Then
			$movey=460
			$movex=860
			if($search[0] < 700) Then
				$movex = 1000
			Else
				$movex = 600
			EndIf

			if($search[1] < 300) Then
				$movey = 650
			Else
				$movex = 350
			EndIf


 		MouseMove($movex, $movey, 1)
        MouseClick("left")
	Else
			MouseClick("left",Random(439,1309,1),Random(273,760,1))
			Sleep(1000)
		EndIf
EndFunc
Sleep(5000)
While 1
	Sleep(300)
	If $vab == "kampf" Then
		$vab = kampf();
	Else
 		$vab = search_Mob()
	EndIf
WEnd
;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)

WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func ShowMessage()
MsgBox(4096,"","Das ist eine Nachricht.")
EndFunc

this worked perfect for me thx mate