BetaReqLanda001

[bartukus]

One more question, can autoit emulate mouseclicks? It would be real cool if it did, my mystic has some high damaging AoE's that I would like to put to work.

[WeeMan411]

Yeah, you can use

MouseClick(.......)

to simulate mouse clicks. In the brackets you need to put which button(left or right), and the co ordinates you want to click. Unless your bot kites, you'll probaboly want to lay the aoe right infront of your character. Issues with aoe and bots are, is that sometimes you can pull unwanted mobs. Been finding that out with my soul hunter. I use Arrow of Ruin which has a 4m radius, still pulling unwanted mobs.

[bartukus]

Assuming that the middle of the screen is where I want the mouse, and my resolution is 1280x1024, I would want to throw the line
Send("{Mouseclick(Leftclick)640x512}")
in?

[Jatacid]

use the window info tool, it gives you information about where ur mouse is. its included in the autoitfolder

[mekanic]

Originally Posted by Landa

#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("BetaReqLanda002", 400, 200, 678, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 190, 130, 91, 25, 0)

GUICtrlCreateLabel("Keysettings", 20, 5, 120)
GUICtrlCreateLabel("1-5 AttackSkills", 20, 30, 120)
GUICtrlCreateLabel("6 Hp Recovery", 20, 50, 120)
GUICtrlCreateLabel("BlahBlah", 20, 70, 120)
GUICtrlCreateLabel("BlahBlah", 20, 90, 120)
GUICtrlCreateLabel("BlahBlah", 20, 110, 120)
GUICtrlCreateLabel("THX to Jatacid", 20, 130, 120)
GUICtrlCreateLabel("THX to Mailman3", 20, 150, 120)
GUICtrlCreateLabel("THX to all who release stuff. ^^", 20, 170, 120)

GUICtrlCreateLabel("www.elitepvpers.com", 200, 5, 140)
GUICtrlCreateLabel("Run Requiem in WINDOWED MODE", 200, 30, 140)
GUICtrlCreateLabel("Resolution: 1680x1050", 200, 45, 140)
GUICtrlCreateLabel("ALt+STRG+X Stop Bot", 200, 70, 140)
GUICtrlCreateLabel("BlahBlah", 200, 100, 140)

GUICtrlCreateLabel("www.YOUTUBE.com/MarcLanda1981", 200, 170, 200)



GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
Do
ToolTip("Start")
WinMove("Requiem","",0,0)
sleep(1000)
WinActivate("Requiem")
$Health80 = PixelGetColor(895,953)
$greenPL = 2726951

$Mana = PixelGetColor(829,967)
$bluePL = 1189523

$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

$VictimCircleRed = PixelSearch(93, 0, 960, 950,16384000,10)



If $Health80 = $greenPL Then
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

If $VictimCircleBlue = True Then
ToolTip("Let the bodies hit the floor !")
Send("{1}")
sleep(200)
Send("{2}")
sleep(200)
Send("{3}")
sleep(200)
Send("{4}")
sleep(200)
Send("{5}")
sleep(200)
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)
$Health80 = PixelGetColor(895,953)
Else
ToolTip("Target out of sight!")
Send("{a 20}")
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)
$Health80 = PixelGetColor(895,953)
EndIf

Else
ToolTip("Hp low! ")
Sleep(200)
Send("{6}")
$Health80 = PixelGetColor(895,953)
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

EndIf




Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc


Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc


----------------------------
Download
----------------------------

I inform you link is dead no downloads

[landa123]

Project eHak first results




already did...
bot can
+modify speed+attackspeed
+read player hp+mana
+Spam ,-) *sellmode*

next steps....
+find ENEMYHP pointer if someone can give me a pointer for this i would be very thanksfull*

+built attackscript.check hp/mana...find enemy..move into enemy direction *or directionhackpointer*....move with lightspeed to enemy... ^^..attack until enemyp=0...loop

+auto buff

+auto heal/pot/rest

+loot

+multiaccbotting

+ ...

+anti anti-cheat detection . spam in chat...dance...and so on

+waypoint bot...also need pointers for x,y,z ingame coods

[qwertyuiop92]

Link is dead

[landa123]

Originally Posted by qwertyuiop92

Link is dead

just copy+paste the text from the first page into your autoit..

but thats a pixelsearch bot...working on memory read bot....stay patient to download it in future

[qwertyuiop92]

as kool as a bot is im not really interested in it. More interested in the attack and movement speed hack. I can do the movement speed cause of the pointer, but i can't find the attack speed pointer since my game crash's if i try yo.

PS. simply copying the text from 1st page into autoit gives u an error because it says

#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>

And i dont have w/e those are/ prolly other ppl as well.

[landa123]

<?xml


version="1.0"?>
<CheatTable>
<CheatEntries>
<CheatEntry>
<Description>"pointerscan result"</Description>
<Color>80000008</Color>
<VariableType>Float</VariableType>
<Address>"Requiem.exe"+00625CF0</Address>
<Offsets>
<Offset>514</Offset>
<Offset>1C0</Offset>
<Offset>56C</Offset>
<Offset>388</Offset>
<Offset>4F0</Offset>
</Offsets>
</CheatEntry>
</CheatEntries>
</CheatTable>

[seraphielx]

man that is a ugly gui..

[landa123]

bot can

-modify movement/attack speed
-read player hp
-search and defeat enemys
-loot
-rest /pot

[allupu4]

i cant put my game on 1680x1050 ;O?

[landa123]

My first REQUIEM bot.
I dont have much time to work on it...and not everything is working..UNTIL NOW

Post here if u like it or if u modified it to something better ,-)

; Done by mArc.LauDER
; Pointerscan not included because not working for 64bit systems
; Everything is BETA STUFF and tested with Requiem version 419
; Feel free to modify this code...BUT please release your stuff and share your knowledge ,-) 

#RequireAdmin

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <mis.au3>
#include <IE.au3>
;#include <Pointer.au3>


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI
$Form1_1 = GUICreate("eHak USA.419", 371, 738, 247, 145)
$Label1 = GUICtrlCreateLabel("Speedhack", 72, 48, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$SpeedValue = GUICtrlCreateInput("10", 72, 104, 73, 21)
$Label2 = GUICtrlCreateLabel("mArc.Bot  v003", 8, 208, 349, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("AttackHack", 168, 48, 71, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$AttackValue = GUICtrlCreateInput("0", 168, 104, 81, 21)
$Label4 = GUICtrlCreateLabel("Memory Stuff", 8, 24, 348, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$SpeedhackB = GUICtrlCreateButton("SET Speed", 72, 136, 75, 25, $WS_GROUP)
$AttackhackB = GUICtrlCreateButton("SET Attack", 168, 136, 83, 25, $WS_GROUP)
$Label5 = GUICtrlCreateLabel("How many F-Keys do u use ? ATTACK", 16, 240, 225, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Misc...", 8, 528, 352, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Label8 = GUICtrlCreateLabel("Spam", 8, 568, 35, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Spam = GUICtrlCreateInput("Enter your spam here,,,,", 48, 568, 225, 21)
$SpamB = GUICtrlCreateButton("SPAM it !", 280, 568, 75, 25, $WS_GROUP)
$BotOnB = GUICtrlCreateButton("BOT ON", 8, 480, 355, 41, $WS_GROUP)
$HelpB = GUICtrlCreateButton("HELP !", 240, 664, 115, 25, $WS_GROUP)
$Label9 = GUICtrlCreateLabel("HP", 288, 48, 21, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$SpeedAddress = GUICtrlCreateInput("04CC01F0", 72, 72, 73, 21)
$AttackAddress = GUICtrlCreateInput("0D4BC31C", 168, 72, 81, 21)
$HpAddress = GUICtrlCreateInput("0F1DD4B4", 272, 72, 81, 21)
$CheckHpMana = GUICtrlCreateButton("Check Hp+Mana", 272, 136, 83, 25, $WS_GROUP)
$HowTo = GUICtrlCreateButton("HowToFind Address", 240, 632, 115, 25, $WS_GROUP)
$Label6 = GUICtrlCreateLabel("Address", 8, 72, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Value", 8, 112, 36, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Load = GUICtrlCreateButton("Load", 8, 656, 107, 41, $WS_GROUP)
$Save = GUICtrlCreateButton("Save", 120, 656, 107, 41, $WS_GROUP)
$About = GUICtrlCreateButton("About", 240, 696, 115, 25, $WS_GROUP)
$Label11 = GUICtrlCreateLabel("Use Vital", 16, 320, 55, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Use Rest", 16, 384, 56, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("Use Buff", 16, 416, 53, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("Use Buff 2", 16, 448, 64, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Attackkeys = GUICtrlCreateCombo("F1", 256, 240, 97, 25)
GUICtrlSetData(-1, "F1+F2|F1-F3|F1-F4|F1-F5")
$Checkbox1 = GUICtrlCreateCheckbox("IngameKey [1]", 96, 320, 89, 17)
$RestCheck = GUICtrlCreateCheckbox("IngameKey [3]", 96, 384, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("IngameKey [F11]", 96, 416, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("IngameKey [F12]", 96, 448, 97, 17)
$Input1 = GUICtrlCreateInput("Enter here BUFF DURATION", 208, 416, 153, 21)
$Input2 = GUICtrlCreateInput("Enter here BUFF DURATION", 208, 448, 153, 21)
$Vita = GUICtrlCreateInput("Enter here HP LIMIT", 208, 320, 153, 21)
$HpLimit = GUICtrlCreateInput("HP Limit", 208, 384, 73, 21)
$Mana = GUICtrlCreateInput("Enter here MANA LIMIT", 208, 352, 153, 21)
$Spirit = GUICtrlCreateLabel("Use Spirit", 16, 352, 59, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Checkbox5 = GUICtrlCreateCheckbox("IngameKey [2]", 96, 352, 97, 17)
$Radio1 = GUICtrlCreateRadio("Use Speedhack", 16, 272, 153, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x00FF00)
$Radio2 = GUICtrlCreateRadio("Use AttackHack", 176, 272, 153, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x00FF00)
$PointerscanB = GUICtrlCreateButton("Read Pointerscan.only working for Requiem USA 419", 8, 168, 345, 25, $WS_GROUP)
$ManaLimit = GUICtrlCreateInput("Mana Limit", 288, 384, 73, 21)
GUISetState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /GUI

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBAL
Global $ManaMaxScan, $ManaScan, $HpScan, $HpMaxScan

;;;;;;;;;;;;;;;;;;;;;;;;;;;; /Global

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Mainswitch
While 1
	WinMove("Requiem", "",0,0)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			MEINEXIT()
		Case $SpamB
			Spam()
		Case $SpeedhackB
			Speedhack()
		Case $AttackhackB
			AttackHack()
		Case $BotOnB
			Attack()

		Case $HelpB
			_IECREATE("http://www.elitepvpers.com/forum/requiem/", 1, 1)
		Case $HowTo
			_IECREATE("http://www.youtube.com/watch?v=p1mzOTCelOo", 1, 1)
		Case $CheckHpMana
			Scan()
		Case $PointerscanB
			Pointerscan()
	EndSwitch
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /Mainswitch


Func Scan()
	ToolTip("Scan")
$HpAddressX = GUICtrlRead($HpAddress)
$wako = "0x" &$HpAddressX

$eins = Dec($HpAddressX )
$zwei = $eins +8
$ManaAddress = Hex($zwei)
$wako2 = "0x" &$ManaAddress

$einseins = Dec($HpAddressX )
$zweizwei = $einseins +4
$HpMaxAddress = Hex($zweizwei)
$wako3 ="0x" &$HpMaxAddress

$einszwei = Dec($HpAddressX )
$zweieins = $einszwei +12
$ManaMaxAddress = Hex($zweieins)
$wako4 ="0x" &$ManaMaxAddress


$PID= ProcessExists("Requiem.exe")
$OPENMEM= _MEMORYOPEN($PID)

Global $HpScan= _MEMORYREAD($wako, $OPENMEM)
Global $ManaScan=_MEMORYREAD($wako2, $OPENMEM)
Global $HpMaxScan=_MEMORYREAD($wako3, $OPENMEM)
Global $ManaMaxScan=_MEMORYREAD($wako4, $OPENMEM)
Tooltip("HP: "&$HpScan&" / "&$HpMaxScan&" MANA: "&$ManaScan&" / "&$ManaMaxScan)
_MEMORYCLOSE($OPENMEM)

EndFunc

Func Speedhack()
$SpeedValueX = GUICtrlRead($SpeedValue)
$SpeedAddressX = GUICtrlRead($SpeedAddress)
$wako = "0x" &$SpeedAddressX
$PID= ProcessExists("Requiem.exe")

$OPENMEM= _MEMORYOPEN($PID)
_MemoryWrite($wako, $OPENMEM, $SpeedValueX, "Float")
$SpeedH= _MEMORYREAD($SpeedAddressX, $OPENMEM)
_MEMORYCLOSE($OPENMEM)
Tooltip("Speed set to: "&$SpeedValueX)
EndFunc

Func Attackhack()
$AttackValueX = GUICtrlRead($AttackValue)
$AttackAddressX = GUICtrlRead($AttackAddress)
$wako = "0x" &$AttackAddressX
$PID= ProcessExists("Requiem.exe")
$OPENMEM= _MEMORYOPEN($PID)
_MemoryWrite($wako, $OPENMEM, $AttackValueX, "Float")
$AttackH= _MEMORYREAD($AttackAddressX, $OPENMEM)
_MEMORYCLOSE($OPENMEM)
Tooltip("Attack set to: "&$AttackValueX)
EndFunc

Func Pointerscan()

	$PID = WinGetProcess("Requiem")
	$OPENMEM = _MEMORYOPEN($PID)
	Global $ENEMYHPOFFSET[4]
	$ENEMYHPOFFSET[0] = 0
	$ENEMYHPOFFSET[1] = Dec("330")
	$ENEMYHPOFFSET[2] = Dec("0")
	$ENEMYHPOFFSET[3] = Dec("68")
	$STATICOFFSET = Dec("000EB268")
	$BASEADDR = _MEMORYGETBASEADDRESS($PID, "PhysicsReq.dll")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$ENEMYHPPOINTER = _MEMORYPOINTERREAD($FINALADDR, $OPENMEM, $ENEMYHPOFFSET)
	Tooltip("HP: "&$ENEMYHPPOINTER[4]&" / "&$FINALADDR&" MANA: "&$BASEADDR&" / "&$STATICOFFSET)

	_MEMORYCLOSE($OPENMEM)

EndFunc

Func Attack()
	WinActivate("Requiem")
while 1
		WinActivate("PristonTale II Enigma")
		$HpLimitX = GUICtrlRead($HpLimit)
		$ManaLimitX = GUICtrlRead($ManaLimit)
		$RestCheckX = GUICtrlRead($RestCheck)
		$GegnerBlau = PixelSearch( 388, 27, 651, 589, 0x0000FD, 10 )
		$GegnerRot = PixelSearch( 388, 27, 651, 589,  0xFF0000, 10 )
		$GegnerTot = PixelGetColor(455, 38)
		$TotCol = 0x0D6F0B

		$HpAddressX = GUICtrlRead($HpAddress)
		$wako = "0x" &$HpAddressX

		$eins = Dec($HpAddressX )
		$zwei = $eins +8
		$ManaAddress = Hex($zwei)
		$wako2 = "0x" &$ManaAddress ;hex hex

		$einseins = Dec($HpAddressX )
		$zweizwei = $einseins +4
		$HpMaxAddress = Hex($zweizwei)
		$wako3 ="0x" &$HpMaxAddress

		$einszwei = Dec($HpAddressX )
		$zweieins = $einszwei +12
		$ManaMaxAddress = Hex($zweieins)
		$wako4 ="0x" &$ManaMaxAddress


		$PID= ProcessExists("Requiem.exe")
		$OPENMEM= _MEMORYOPEN($PID)

		Global $HpScan= _MEMORYREAD($wako, $OPENMEM)
		Global $ManaScan=_MEMORYREAD($wako2, $OPENMEM)
		Global $HpMaxScan=_MEMORYREAD($wako3, $OPENMEM)
		Global $ManaMaxScan=_MEMORYREAD($wako4, $OPENMEM)
		_MEMORYCLOSE($OPENMEM)



		Send("{h}")
	IF  $HpScan > $HpLimitX AND $ManaScan > $ManaLimitX THEN ; first check if char is ready to fight


		IF $GegnerTot =  $TotCol Then ;gegner ausgewählt

			IF $GegnerBlau = 0  ANd $GegnerRot = 0 Then ;gegner kringel front
				Tooltip("ich seh nix")

				DO
					ToolTip("D")
					Send("{d down}")
					$GegnerBlau = PixelSearch( 388, 27, 651, 589, 0x0000FD, 10 )
					$GegnerRot = PixelSearch( 388, 27, 651, 589,  0xFF0000, 10 )
					$GegnerTot = PixelGetColor(455, 38)
				Until $GegnerBlau = 0 OR $GegnerRot = 0
				Send("{d up}")

			Else ;kein kringel front
				Tooltip("gegner gefunden")
				IF $GegnerBlau <> 0 Then  ;sichtbar aber non-aggro
					Tooltip("blau")
					send("{F1 down}")
					sleep(200)
					send("{w 50}")
					send("{F1 up}")
				EndIf
				If $GegnerRot <> 0 Then ;sichtbar und aggro
					Tooltip("rot")
					send("{F2}")
					sleep(1000)
				EndIf

			EndIf

		Else
			Tooltip("No Target")
			Send("{Tab}")

		EndIf
	Else  ;rest

		DO
		send("{6}")
		Tooltip("HP: "&$HpScan&" / "&$HpMaxScan&" MANA: "&$ManaScan&" / "&$ManaMaxScan)

		sleep(2000)
		Scan()
	Until $HpScan = $HpMaxScan AND $ManaScan = $ManaMaxScan
	send("{space}")
	EndIf


WEnd

Endfunc


Func MEINEXIT()
	ProcessClose("Requiem eHak USA.41x.exe") ;module beenden
Exit
EndFunc

Func Spam() 
	While 1
		ToolTip("Spam")
		WinActivate("Requiem")
		$SPamInput = GUICtrlRead($Spam)
		Sleep(1000)
		Send("{ENTER}")
		Sleep(1000)
		Send($SPamInput, 1)
		Sleep(2000)
		Send("{Enter}")
		Sleep(180000)
		Send("{ENTER}")
		Sleep(1000)
		Send($SPamInput, 1)
		Sleep(2000)
		Send("{Enter}")
		Sleep(180000)
	WEnd
EndFunc

[allupu4]

hey ich hab das problem der bot sieht gegner attakiert jedoch nicht