New and improved Aimbot/Monster Grinder

[RogFleming]

I trying to make this a general purpose Aimbot/Monster Bot, I play Last Chaos and the final version will have some specific RPG settings.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WINAPI.au3>
#include <sendmessage.au3>
#include <Misc.au3>
#include <Array.au3>
HotKeySet("{f1}", "_Exit")
HotKeySet("{f3}", "chosecolor")
HotKeySet("{f5}", "start")
; f6 to stop function
HotKeySet("{f6}", "stop")
HotKeySet("{f7}", "newtarget")
Global $color, $coord, $ON, $hGUI, $len
$len = 0
$hi = 0
ToolTip("Targeting System starting up.",10,50)
While 1
    Sleep(100)
    ; if on is set to true
    If $ON = True Then
    $coord = PixelSearch(0 + $hi,0 + $len,1024,1280,$color,40)
    $len = $len + 10
    $hi = $hi + 10
    If $len > 1024 Then $len = 0
    If $hi > 1280 Then $hi = 0
    ;Sleep(500)
    ToolTip("Targeting System finding color." & " " & $len,10,50)
    If IsArray($coord) = 1 Then
                ;mouse the mouse point to the center of the targettting box
        MouseMove($coord[0]+50,$coord[1]+95)
        GUISetState(@SW_HIDE)
                ;runs the targetting box function
        targetbox($coord)
        EndIf
    EndIf
WEnd
; Create RED graphic
Func targetbox($coord)
                ToolTip("Targeting System finding color." & " " & $len,10,50)
                $hGUI = GUICreate("Targeting", 100, 200, $coord[0], $coord[1], $WS_POPUP, $WS_EX_LAYERED)
                GUISetBkColor(0xABCDEF)
                $hGraph_1 = GUICtrlCreateGraphic(0, 0, 90, 190)
                GUICtrlSetColor(-1, 0xff0000)
                GUICtrlSetGraphic(-1, $GUI_GR_HINT, 1)
                _WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 250)
                GUISetState($WS_EX_TOPMOST)
                ;newtarget()                
            EndFunc
Func newtarget()
    $len = $len + 100
    $hi = $hi + 100
EndFunc
Func start()
    ToolTip("Targeting System creating targeting box.",10,50)
    $ON = True
EndFunc
Func stop()
    $ON = False
EndFunc
Func _Exit()
    ToolTip("Targeting System shutting down.",10,50)
    Exit
EndFunc

Func chosecolor()
    $color = _ChooseColor(2, 0x0080c0, 2, " ")
    ToolTip("Getting color. " & $color,10,50)
EndFunc

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; #############################################
; You are NOT ALLOWED to remove the following lines
; Function Name: _WinAPI_SetLayeredWindowAttributes
; Author(s): Prog@ndy
; #############################################
    If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03

    If Not $isColorRef Then
        $i_transcolor = Hex(String($i_transcolor), 6)
        $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
    EndIf
    Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
    Select
        Case @error
            Return SetError(@error, 0, 0)
        Case $Ret[0] = 0
            Return SetError(4, _WinAPI_GetLastError(), 0)
        Case Else
            Return 1
    EndSelect
EndFunc  ;==>_WinAPI_SetLayeredWindowAttributes

[hot202]

u should make it soit aims 4 the colour when u click a hotkey like shift