Make sure you keep reading, it's not just a CS Aim bot
I was really bored last night and made a simple little script, for CS.
I found a CS skin for the players head, which made it a pure red color.
So I got to thinking, and made this color aim bot.
Now... for the WoW part of this.
I'm not too experienced with model editing, but if it's possible to change the look of your bobber, to one solid color, then you could turn this in to a pretty nifty fishing bot. 6):
(otherwise, it might still work with just the normal bobber color if you can click it and there is no other colors with the same color code on your screen)
(Obviously to make a fully afk-able fishing bot, you would have to add a loop and tell it to click when the color changes from the coordinate, etc.)
F1-F11, HOME, END, etc. seem to work perfectly as hot keys.
Letters and numbers worked for a few of my friends, but for me it did not, not too sure why, though.:yuck:
I might take out the hotkeys and use _IsPressed instead, but as I said, I was bored and whipped it up pretty fast last night.
Anyway, here is my source.
The actual core part:
Code:
;Reads the color hotkeys from the ini file.
$GetColor = IniRead("Color.ini", "HotKeys", "GetColor", "")
$ClickColor = IniRead("Color.ini", "HotKeys", "ClickColor", "")
;Sets hotkeys
While 1
HotKeySet ("{"&$GetColor&"}", "GetColor")
HotKeySet ("{"&$ClickColor&"}", "ClickColor")
WEnd
;The color it clicks is absolute
Opt("PixelCoordMode", 1)
Func GetColor()
;Gets mouse coordinates.
$Coords = MouseGetPos()
;Gets color of the pixel at mouse coordinates.
$Color = PixelGetColor($Coords[0], $Coords[1])
;Writes the color to an ini file.
IniWrite("Color.ini", "Target", "Color", $Color)
EndFunc
Func ClickColor()
;Reads the color from the ini file.
$Color = IniRead("Color.ini", "Target", "Color", "")
;Pixel search for the color.
$Click = PixelSearch (0, 0, @DesktopWidth, @DesktopHeight, $Color)
;If successful, Clicks the first instance of that color
If @error = 0 Then
MouseClick ("left", $Click[0], $Click[1], 1, 0)
;If unsuccessful, sleeps for 0ms, (prevents crashing).
ElseIf @Error = 1 Then
Sleep (0)
EndIf
EndFunc
Next is this simple "setup" I made to go with it:
Code:
MsgBox(0, "Reminder", "When you get asked for hotkeys," & @CRLF & "use things such as: F1-F8, HOME, etc." & @CRLF & "You may use many more, though.")
$GetColor = InputBox("GetColor Hotkey", "Choose your hotkey for" & @CRLF & "Getting your Color")
$ClickColor = InputBox("ClickColor Hotkey", "Choose your hotkey for" & @CRLF & "Clicking your Target color.")
IniWrite("Color.ini", "HotKeys", "GetColor", $GetColor)
IniWrite("Color.ini", "HotKeys", "ClickColor", $ClickColor)
MsgBox(0, "Success!", "You may now start using your new Color Aimbot!")
And last but not least, the INI file:
Code:
[HotKeys]
GetColor=
ClickColor=
[Target]
Color=
P.S. Any model editor who can make a solid red, solid blue bobber, etc. should pst me.
Thanks to all who took the time to give this a look! :wave: