a good way to find the color is to take a screen shot of it
put in paint and find the color there
this dosent allways work but maybe here
Whats the colour of AAR 2.6 red box? please answer me or PM me
a good way to find the color is to take a screen shot of it
put in paint and find the color there
this dosent allways work but maybe here
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
MY PROUD BOT... Hope it work, posting a comment ee if it workshotkeyset("{F10}","stop")
hotkeyset("{f9}","pause")
HotKeySet("{F8}","Aimboton")
Tooltip("F8= Aimboton/off, F9 = Pause, F10 = Exit bot", 0, 0)
Dim $pause=false
Dim $shoot = False
Func Aimboton()
If $shoot = False Then
$shoot = True
ToolTip("Aiming",0,0)
Else
$shoot = False
Tooltip("F8 = Aimboton/off, F9 = Pause, F10 = Exit bot", 0, 0)
EndIf
EndFunc
while $shoot=true
Dim $cordinates = PixelSearch( 0, 0, @DesktopWidth, @DesktopHeight, 0x00FF00)
If Not @error Then
MouseClick( "left", $cordinates[0], $cordinates[1], 1, 10)
EndIf
Sleep(500)
WEnd
func stop ()
Exit
EndFunc
func pause()
$pause=not $pause
if $pause=true Then
Do
sleep (5)
until $pause=False
EndIf
EndFunc
Dont works for you guys, i have chams
Omg.. No bot works in game whwen playing... O Well i can make flash game bots
Btw: Sumsar, thx for informate me about this prog, it owns
EDIT: Now with on/off button ;D
EDIT 2: Fixed some stuff
Last edited by DontFearTheReaper; 10-13-2009 at 01:13 AM.
DontFearTheReaper, Great BOT! I'll test it now, this is tested by you already?
Edit : Man this script works perfectly!
the only thing that drives me insane is that I can't get the right color!
every char has a different color of shoes, head, shirt, pants and so on...
It's aiming at the target and shooting perfectly... but the only problem is the target. its not the char. ><"
If someone gets the right color, please, post it here!
Last edited by oren007x; 10-12-2009 at 03:06 PM.
i most say impressiv
you never did any scripting before?
but i see you could do something instead of
and then sayCode:while true if $shoot = True Then
and then remove the endif at the end..Code:while $shoot=true
more simple
also i se you made a function where you need to click before you can start the aimbot right?
you can just put the whole script into a function and make this outsite of a function
then it just w8 until you click a hotkeyCode:while 1 sleep (5) wend
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
I make this script:
#include <GuiConstantsEx.au3>
;VARIABLES
hotkeyset("{f5}","pause")
hotkeyset("{f8}","stop")
$pause=false
_Main()
Func _Main()
; GUI
GuiCreate("AutoAim by Cranties", 370, 220)
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)
GuiCtrlCreateLabel("Color :", 170, 100)
$Input_COLOR = GUICtrlCreateInput("0x00FF00", 140, 120, 100, 20)
$Button_START = GuiCtrlCreateButton("Start AutoAim", 60, 160, 100, 30)
$Button_CLOSE = GuiCtrlCreateButton("Close AutoAim", 210, 160, 100, 30)
GuiCtrlCreateLabel("Press (F5) for Pause | Press (F8) to Exit", 85, 200)
; Run the GUI
GUISetState()
While 1
$msg = GUIGetMsg()
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)
$CL = GUICtrlRead($Input_COLOR)
MsgBox(0, "Starting AimBot...", "Press (F5) for Pause and use (F8) for Exit.")
Guisetstate(0)
play($LX,$LY,$RX,$RY,$CL)
ExitLoop
Case $msg = $Button_CLOSE
stop()
ExitLoop
EndSelect
WEnd
Exit
EndFunc
func play($LX,$LY,$RX,$RY,$CL)
while 1
$head_search=PixelSearch($LX,$LY,$RX,$RY,$CL,5,1)
if $head_search= not @error then
mouseclick ("left",$head_search[0],$head_search[1],1,10)
EndIf
sleep (5)
WEnd
EndFunc
func stop ()
Exit
EndFunc
func pause()
$pause=not $pause
if $pause=true Then
Do
sleep (2)
until $pause=False
EndIf
EndFunc
I think is usefull...
Help me on discovery the exact colour...
I attach also the exe file...
I have found a little bug...
change inCode:func play($LX,$LY,$RX,$RY,$CL) while 1 $head_search=PixelSearch($LX,$LY,$RX,$RY,$CL,5,1) if $head_search= not @error then mouseclick ("left",$head_search[0],$head_search[1],1,10) EndIf sleep (5) WEnd EndFunc
ok.. i recompile all and add a new exe build of AutoAimCode:func play($LX,$LY,$RX,$RY,$CL) while 1 $head_search=PixelSearch($LX,$LY,$RX,$RY,$CL,5,1) if not @error then mouseclick ("left",$head_search[0],$head_search[1],1,10) EndIf sleep (5) WEnd EndFunc
pirate1000 (04-17-2014)
fast learners at this place O_o
you could play a little bit with the design colors ? or something
also if you want to go future with your gui then go to the help file and look after
guictrlcreatemenu
then you can make it as a tab but go ahead and try
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
It's not for me ^ ^. I can anyone make such a
Thanks
Sorry for my bad English
My life-goal is reached, I AM A NEWB!
[] Be a Newb
Just one more thing I want:
[] Be a world famous über AWESOME Superman cool guy RAPPER
what is wrong with it?Code:hotkeyset("{f1}","stop") hotkeyset("{f2}","pause") $color=0xFF0000 $pause=false while 1 $head_search=PixelSearch(0,0,1280,1024,$color,5,1) if $head_search= not @error then MouseClick ("left",$head_search[0],$head_search[1],1,1) EndIf sleep (5) WEnd func stop () Exit EndFunc func pause() $pause=not $pause if $pause=true Then Do sleep (5) until $pause=False EndIf EndFunc
i put it my 1280 x 1024 res in there, red color for the game, and compiled to .exe doesnt do anything help!!
Nevermid, I posted that then left and right when I came back I noticed the problem lol
Updated:
If anyone is interested I made this after I fixed the problem because I was trying it out with Counter Strike and wanted to make it more legit.Code:hotkeyset("{f1}","stop") hotkeyset("{f2}","pause") $color=0xFFFFFF $pause=false while 1 $head_search=PixelSearch(0,0,1279,1023,$color,5,1) if not @error then MouseClick ("left",$head_search[0],$head_search[1],1,3) EndIf sleep (5) WEnd func stop () Exit EndFunc func pause() $pause=not $pause if $pause=true Then Do sleep (5) until $pause=False EndIf EndFunc
Enjoy! - ak0 (nickmacs)Code:$pos = MouseGetPos() $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor) If IsArray($coord) = 1 Then MouseMove($coord[0], $coord[1], 0)
*EDIT*
for the pixel search i made it 10 around, this is sort of like fov (field of view) raise it higher if you need, i wouldnt go over 100 if your trying to look legit.
Last edited by nickmacs; 11-01-2009 at 02:16 AM. Reason: added info