He is trustable, no virus
BTW: It doesnt go wild but still doesn't aim wait i make another test
Can you try to add virus scans to your posts?
Thanks
He is trustable, no virus
BTW: It doesnt go wild but still doesn't aim wait i make another test
Last edited by DontFearTheReaper; 10-13-2009 at 11:38 AM.
Right color, but it doesn't aim ingame omg
EDIT: Giving up, wating for someone to make another hack like aimbot/healthbars or anything except esp
Last edited by DontFearTheReaper; 10-13-2009 at 11:42 AM.
afternoon i work on this....
weareroadkill (10-14-2009)
hallo there cranties
i like you keep trying
on thing i dont like is you just give up on hotkeys
se there are other ways to put in hotkeys then
there is all so one when the script go thought there it checks about you clickCode:hotkeyset("{f1}","stop")
also i could add if you post the souce
also in next version show a picture
i cant w8 for the next patch to version 55 ^^
[SIZE="2"]
[ ] get 10 posts
[ ] get 50 posts
[ ] get 100 posts
[ ] Get my New multiplayer game to work (3 years back i guess
designersliver møller pedersen
online part Programming :Mathias K
Game Programming: ME ! (Rasmus Bach)
)
im searching after some more designers to my game
, you may self choose what kind of program you want to paint in(photoshop,paint ,etc) so if you are interested pm me
weareroadkill (10-14-2009)
ii tried 2.5 hack and it didnt work i scoped in pressed 1 on nuber pad nothing happens
weareroadkill (10-14-2009)
you need to find the color ...
i cant w8 for the next patch to version 55 ^^
[SIZE="2"]
[ ] get 10 posts
[ ] get 50 posts
[ ] get 100 posts
[ ] Get my New multiplayer game to work (3 years back i guess
designersliver møller pedersen
online part Programming :Mathias K
Game Programming: ME ! (Rasmus Bach)
)
im searching after some more designers to my game
, you may self choose what kind of program you want to paint in(photoshop,paint ,etc) so if you are interested pm me
weareroadkill (10-14-2009)
don't download this "aimbot" it's a downloader Trojan/Downloader.Agent.cgfw that's why it doesn;t work .....because it's only meant to infect you
weareroadkill (10-14-2009)
It's Not Virus or other....
Ok Let start with new version...
There are several other HotKeys you can see in main window....
You can see in picture....
Now i post the new version.. Remember to use it with "****************-Radar-v2.6" because he tray to search the square that he use to surround the enemy...
I use KeyPadNum 4 swith the coords from absolute to relative (i don't know what is the best...)
Use KeyPadNum 5 to set the speed of the movement of the mouse to Max
Use KeyPadNum 6 to set the speed of the movement of the mouse to Min
The HotKeys not function in game, set it before launch the game!!! I'm working on it!!!
To try the function i launch BFHeroes, i launch AutoAim, i Click in BFH PlayNow and in AutoAim Start.... Presso 6 on KeyPad to set spped to low to try...
Please one try all combination with key 5/6 and 4...
weareroadkill (10-14-2009)
Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=AutoAim v2.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GuiConstantsEx.au3> ;VARIABLES Global $LX,$LY,$RX,$RY $SquareColor=0xFF3000 $HeadSearchActive=False $HeadFireActive=False $PauseActive=False $AlertMessage=False AutoItSetOption("MouseCoordMode",1) $TargetFound=False $MouseMode=True $Speed=1 _Main() Func _Main() Global $LX,$LY,$RX,$RY ; GUI GuiCreate("AutoAim v2.8 by Cranties", 370, 240) GuiCtrlCreateLabel("Upper Left Corner X :", 10, 10) $Input_ULX = GuiCtrlCreateInput("0", 10, 30, 100, 20) GuiCtrlCreateLabel("Upper Left Corner Y :", 10, 60) $Input_ULY = GuiCtrlCreateInput("0", 10, 80, 100, 20) GuiCtrlCreateLabel("Down Right Corner X :", 250, 10) $Input_DRX = GUICtrlCreateInput("" & @DesktopWidth-1, 250, 30, 100, 20) GuiCtrlCreateLabel("Down Right Corner Y :", 250, 60) $Input_DRY = GUICtrlCreateInput("" & @DesktopHeight-1, 250, 80, 100, 20) $Button_START = GuiCtrlCreateButton("Start AutoAim", 60, 130, 100, 30) $Button_CLOSE = GuiCtrlCreateButton("Close AutoAim", 210, 130, 100, 30) GuiCtrlCreateLabel("Press: (NumPad 1) for Search Head (NumPad 2) for Auto Fire",20,170) GUICtrlCreateLabel(" (NumPad 3) for Pause (NumPad 8) for Exit", 32, 185) GUICtrlCreateLabel(" (NumPad 4) for Change Mode (NumPad 7) for Change Color", 32, 200) GUICtrlCreateLabel(" (NumPad 5) for MaxSpeed (NumPad 6) for LowSpeed", 32, 215) ; Run the GUI GUISetState() While 1 $msg = GUIGetMsg() if ProcessExists("BFHeroes") and $AlertMessage=true Then MsgBox(0,"ATTENTION","Battlefield Heroes is running...") $AlertMessage=true EndIf Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_START $LX = GUICtrlRead($Input_ULX) $LY = GUICtrlRead($Input_ULY) $RX = GUICtrlRead($Input_DRX) $RY = GUICtrlRead($Input_DRY) MsgBox(0, "Starting AimBot...", "Press: (NumPad 1) for Search Head, (NumPad 2) for Auto Fire, (NumPad 3) for Pause and (NumPad 8) for Exit.") Guisetstate(0) hotkeyset("{NUMPAD1}","SearchHeadActivate") hotkeyset("{NUMPAD2}","SearchFireActivate") hotkeyset("{NUMPAD3}","Pause") hotkeyset("{NUMPAD4}","ExchangeCoord") hotkeyset("{NUMPAD5}","SetMaxSpeed") hotkeyset("{NUMPAD6}","SetLowSpeed") hotkeyset("{NUMPAD7}","ChangeColor") hotkeyset("{NUMPAD8}","Stop") $HeadSearchActive=true SearchHead($LX,$LY,$RX,$RY) ExitLoop Case $msg = $Button_CLOSE stop() ExitLoop EndSelect WEnd Exit EndFunc func SearchHeadActivate() Global $LX,$LY,$RX,$RY $HeadSearchActive=not $HeadSearchActive if $HeadSearchActive=false and $HeadFireActive=false Then $PauseActive=false Pause() EndIf if $HeadSearchActive=true Then SearchHead($LX,$LY,$RX,$RY) EndIf EndFunc func SearchFireActivate() Global $LX,$LY,$RX,$RY $HeadFireActive=not $HeadFireActive if $HeadSearchActive=false and $HeadFireActive=false Then $PauseActive=false Pause() EndIf if $HeadFireActive=true Then FireHead($LX,$LY,$RX,$RY) EndIf EndFunc func FireHead($LX,$LY,$RX,$RY) Global $Speed while $HeadFireActive=true $HeadSearchActive=false $PauseActive=false if $TargetFound=false then $head=PixelSearch($LX,$LY,$RX,$RY,$SquareColor,1,1) if not @error then $head2=PixelSearch($head[0],$head[1],$head[0]+1,$head[1],$SquareColor,1,1) if not @error then $head3=PixelSearch($head2[0],$head2[1],$head2[0]+1,$head2[1],$SquareColor,1,1) if not @error then $head4=PixelSearch($head[0],$head[1],$head[0],$head[1]+1,$SquareColor,1,1) if not @error then $head5=PixelSearch($head4[0],$head4[1],$head4[0],$head4[1]+1,$SquareColor,1,1) if not @error then MouseClick("left",$head[0],$Head[1],$Speed) $TargetFound=true Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $Pos=MouseGetPos() $Clr=PixelGetColor($pos[0],$pos[1]) if $Clr=$SquareColor Then $TargetFound=true Else $TargetFound=false EndIf EndIf WEnd EndFunc func SearchHead($LX,$LY,$RX,$RY) Global $Speed while $HeadSearchActive=true $HeadFireActive=false $PauseActive=false if $TargetFound=false then $head=PixelSearch($LX,$LY,$RX,$RY,$SquareColor,1,1) if not @error then $head2=PixelSearch($head[0],$head[1],$head[0]+1,$head[1],$SquareColor,1,1) if not @error then $head3=PixelSearch($head2[0],$head2[1],$head2[0]+1,$head2[1],$SquareColor,1,1) if not @error then $head4=PixelSearch($head[0],$head[1],$head[0],$head[1]+1,$SquareColor,1,1) if not @error then $head5=PixelSearch($head4[0],$head4[1],$head4[0],$head4[1]+1,$SquareColor,1,1) if not @error then MouseMove($head[0],$head[1],$Speed) $TargetFound=true Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $TargetFound=false EndIf Else $Pos=MouseGetPos() $Clr=PixelGetColor($pos[0],$pos[1]) if $Clr=$SquareColor Then $TargetFound=true Else $TargetFound=false EndIf EndIf WEnd EndFunc func Stop () Exit EndFunc func Pause() Global $LX,$LY,$RX,$RY $PauseActive=not $PauseActive while $PauseActive=true sleep(5) wend if $PauseActive=false and $HeadSearchActive=true Then SearchHead($LX,$LY,$RX,$RY) EndIf if $PauseActive=false and $HeadFireActive=true Then FireHead($LX,$LY,$RX,$RY) EndIf if $PauseActive=false and $HeadFireActive=false and $HeadSearchActive=false Then $PauseActive=false Pause() EndIf EndFunc func ExchangeCoord() $MouseMode=not $MouseMode If $MouseMode=true Then AutoItSetOption("MouseCoordMode",1) Else AutoItSetOption("MouseCoordMode",0) EndIf EndFunc Func SetMaxSpeed() Global $Speed $Speed=1 EndFunc Func SetLowSpeed() Global $Speed $Speed=100 EndFunc Func ChangeColor() EndFunc
weareroadkill (10-14-2009)
Ok, new release with all function active... also 7 for change color...
see the code below...
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=AutoAim v2.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
;VARIABLES
Global $LX,$LY,$RX,$RY
$SquareColor=0xFF3000
$HeadSearchActive=False
$HeadFireActive=False
$PauseActive=False
$AlertMessage=True
AutoItSetOption("MouseCoordMode",1)
$TargetFound=False
$MouseMode=True
$Speed=1
_Main()
Func _Main()
Global $LX,$LY,$RX,$RY
; GUI
GuiCreate("AutoAim v2.9 by Cranties", 370, 240)
GuiCtrlCreateLabel("Upper Left Corner X :", 10, 10)
$Input_ULX = GuiCtrlCreateInput("0", 10, 30, 100, 20)
GuiCtrlCreateLabel("Upper Left Corner Y :", 10, 60)
$Input_ULY = GuiCtrlCreateInput("0", 10, 80, 100, 20)
GuiCtrlCreateLabel("Down Right Corner X :", 250, 10)
$Input_DRX = GUICtrlCreateInput("" & @DesktopWidth-1, 250, 30, 100, 20)
GuiCtrlCreateLabel("Down Right Corner Y :", 250, 60)
$Input_DRY = GUICtrlCreateInput("" & @DesktopHeight-1, 250, 80, 100, 20)
$Button_START = GuiCtrlCreateButton("Start AutoAim", 60, 130, 100, 30)
$Button_CLOSE = GuiCtrlCreateButton("Close AutoAim", 210, 130, 100, 30)
GuiCtrlCreateLabel("Press: (NumPad 1) for Search Head (NumPad 2) for Auto Fire",20,170)
GUICtrlCreateLabel(" (NumPad 3) for Pause (NumPad 8) for Exit", 32, 185)
GUICtrlCreateLabel(" (NumPad 4) for Change Mode (NumPad 7) for Change Color", 32, 200)
GUICtrlCreateLabel(" (NumPad 5) for MaxSpeed (NumPad 6) for LowSpeed", 32, 215)
; Run the GUI
GUISetState()
While 1
$msg = GUIGetMsg()
if ProcessExists("BFHeroes") and $AlertMessage=true Then
MsgBox(0,"ATTENTION","Battlefield Heroes is running...")
$AlertMessage=False
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_START
$LX = GUICtrlRead($Input_ULX)
$LY = GUICtrlRead($Input_ULY)
$RX = GUICtrlRead($Input_DRX)
$RY = GUICtrlRead($Input_DRY)
MsgBox(0, "Starting AimBot...", "Press: (NumPad 1) for Search Head, (NumPad 2) for Auto Fire, (NumPad 3) for Pause and (NumPad 8) for Exit.")
Guisetstate(0)
hotkeyset("{NUMPAD1}","SearchHeadActivate")
hotkeyset("{NUMPAD2}","SearchFireActivate")
hotkeyset("{NUMPAD3}","Pause")
hotkeyset("{NUMPAD4}","ExchangeCoord")
hotkeyset("{NUMPAD5}","SetMaxSpeed")
hotkeyset("{NUMPAD6}","SetLowSpeed")
hotkeyset("{NUMPAD7}","ChangeColor")
hotkeyset("{NUMPAD8}","Stop")
$HeadSearchActive=true
SearchHead($LX,$LY,$RX,$RY)
ExitLoop
Case $msg = $Button_CLOSE
stop()
ExitLoop
EndSelect
WEnd
Exit
EndFunc
func SearchHeadActivate()
Global $LX,$LY,$RX,$RY
$HeadSearchActive=not $HeadSearchActive
if $HeadSearchActive=false and $HeadFireActive=false Then
$PauseActive=false
Pause()
EndIf
if $HeadSearchActive=true Then
SearchHead($LX,$LY,$RX,$RY)
EndIf
EndFunc
func SearchFireActivate()
Global $LX,$LY,$RX,$RY
$HeadFireActive=not $HeadFireActive
if $HeadSearchActive=false and $HeadFireActive=false Then
$PauseActive=false
Pause()
EndIf
if $HeadFireActive=true Then
FireHead($LX,$LY,$RX,$RY)
EndIf
EndFunc
func FireHead($LX,$LY,$RX,$RY)
Global $Speed
while $HeadFireActive=true
$HeadSearchActive=false
$PauseActive=false
if $TargetFound=false then
$head=PixelSearch($LX,$LY,$RX,$RY,$SquareColor,1,1 )
if not @error then
$head2=PixelSearch($head[0],$head[1],$head[0]+1,$head[1],$SquareColor,1,1)
if not @error then
$head3=PixelSearch($head2[0],$head2[1],$head2[0]+1,$head2[1],$SquareColor,1,1)
if not @error then
$head4=PixelSearch($head[0],$head[1],$head[0],$head[1]+1,$SquareColor,1,1)
if not @error then
$head5=PixelSearch($head4[0],$head4[1],$head4[0],$head4[1]+1,$SquareColor,1,1)
if not @error then
MouseClick("left",$head[0],$Head[1],$Speed)
$TargetFound=true
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$Pos=MouseGetPos()
$Clr=PixelGetColor($pos[0],$pos[1])
if $Clr=$SquareColor Then
$TargetFound=true
Else
$TargetFound=false
EndIf
EndIf
WEnd
EndFunc
func SearchHead($LX,$LY,$RX,$RY)
Global $Speed
while $HeadSearchActive=true
$HeadFireActive=false
$PauseActive=false
if $TargetFound=false then
$head=PixelSearch($LX,$LY,$RX,$RY,$SquareColor,1,1 )
if not @error then
$head2=PixelSearch($head[0],$head[1],$head[0]+1,$head[1],$SquareColor,1,1)
if not @error then
$head3=PixelSearch($head2[0],$head2[1],$head2[0]+1,$head2[1],$SquareColor,1,1)
if not @error then
$head4=PixelSearch($head[0],$head[1],$head[0],$head[1]+1,$SquareColor,1,1)
if not @error then
$head5=PixelSearch($head4[0],$head4[1],$head4[0],$head4[1]+1,$SquareColor,1,1)
if not @error then
MouseMove($head[0],$head[1],$Speed)
$TargetFound=true
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$TargetFound=false
EndIf
Else
$Pos=MouseGetPos()
$Clr=PixelGetColor($pos[0],$pos[1])
if $Clr=$SquareColor Then
$TargetFound=true
Else
$TargetFound=false
EndIf
EndIf
WEnd
EndFunc
func Stop ()
Exit
EndFunc
func Pause()
Global $LX,$LY,$RX,$RY
$PauseActive=not $PauseActive
while $PauseActive=true
sleep(5)
wend
if $PauseActive=false and $HeadSearchActive=true Then
SearchHead($LX,$LY,$RX,$RY)
EndIf
if $PauseActive=false and $HeadFireActive=true Then
FireHead($LX,$LY,$RX,$RY)
EndIf
if $PauseActive=false and $HeadFireActive=false and $HeadSearchActive=false Then
$PauseActive=false
Pause()
EndIf
EndFunc
func ExchangeCoord()
$MouseMode=not $MouseMode
If $MouseMode=true Then
AutoItSetOption("MouseCoordMode",1)
Else
AutoItSetOption("MouseCoordMode",0)
EndIf
EndFunc
Func SetMaxSpeed()
Global $Speed
$Speed=1
EndFunc
Func SetLowSpeed()
Global $Speed
$Speed=100
EndFunc
Func ChangeColor()
Global $SquareColor
$text = InputBox("Change Color", "Please type in the color in Exadecimal and click OK")
If @error = 1 Then
MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor,6))
Else
$SquareColor="0x" & $text
MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor,6))
EndIf
EndFunc
Try please and send me back if there is someting ok....
weareroadkill (10-14-2009)
weareroadkill (10-14-2009)
Screen Play Resolution 1280x1024?
0 1279
0 1023