Sign in to follow this  
Followers 0
AlmarM

My first PixelSearch()

4 posts in this topic

Hey,

This is my first PixelSearch Aimbot script. It works fine. Only, he _Off() ($Aimbot = 0) wont work. I dont get it!

Can someone help me?

#Include <GUIConstants.au3>

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

Global $Aimbot = 0

HotKeySet("{INSERT}", "_On")
HotKeySet("{HOME}", "_Off")

While 1
    $oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
    $GUI = GUICreate("Chicken Hunt", 500, 540, -1, -1)
    $GUIObj = GUICtrlCreateObj($oGame, 10, 10, 480, 480)
    GUICtrlCreateLabel("INSERT = Turn Aimbot on" & @CRLF & "HOME = Turn Aimbot off", 10, 500)
    GUICtrlCreateLabel("Status:", 150, 510)
    $Status = GUICtrlCreateLabel("", 200, 510, 100, 100)
    
    With $oGame
        .bgcolor = "#000000"
        .Movie = "http://83.149.121.2/2/kippenschieten/mh_remake_loader.swf"
        .Loop = True
        .wmode = "Opaque"
    EndWith
    $SearchColor = 0xC50000
        
    GUISetState()
    While 2
        $nMsg = GUIGetMsg()
        Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        EndSelect
        If ($Aimbot = 1) Then _On()
    WEnd
WEnd

Func _On()
        While 3
        $pos = WinGetPos("Chicken Hunt")
        $Coord = PixelSearch($pos[0], $pos[1], $pos[2], $pos[3], $SearchColor)
        If IsArray($Coord) = 1 Then
            MouseClick("Left", $Coord[0], $Coord[1], 1, 0)
        EndIf
        WEnd
        GUICtrlSetData($Status, "On")           
EndFunc

Func _Off()
    $Aimbot = 0
    GUICtrlSetData($Status, "Off")
EndFunc

-AlmarM-


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites



@AlmarM...Try this...

#Include <GUIConstants.au3>

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

Global $Aimbot = 0

HotKeySet("{INSERT}", "_On")
HotKeySet("{HOME}", "_Off")


    $oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
    $GUI = GUICreate("Chicken Hunt", 500, 540, -1, -1)
    $GUIObj = GUICtrlCreateObj($oGame, 10, 10, 480, 480)
    GUICtrlCreateLabel("INSERT = Turn Aimbot on" & @CRLF & "HOME = Turn Aimbot off", 10, 500)
    GUICtrlCreateLabel("Status:", 150, 510)
    $Status = GUICtrlCreateLabel("", 200, 510, 100, 100)
   
    With $oGame
        .bgcolor = "#000000"
        .Movie = "http://83.149.121.2/2/kippenschieten/mh_remake_loader.swf"
        .Loop = True
        .wmode = "Opaque"
    EndWith
    $SearchColor = 0xC50000
       
    GUISetState()



While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            Exit
        
        EndSelect

    ;If ($Aimbot = 1) Then _On()

WEnd

Func _On()

Global $Aimbot = 1
GUICtrlSetData($Status, "On") 
        
        While $Aimbot<>0
       ;MsgBox(4096,"","")
        $pos = WinGetPos("Chicken Hunt")
        $Coord = PixelSearch($pos[0], $pos[1], $pos[2], $pos[3], $SearchColor)
        If IsArray($Coord) = 1 Then
            MouseClick("Left", $Coord[0], $Coord[1], 1, 0)
        EndIf
        
        WEnd
              
EndFunc

Func _Off()
   Global $Aimbot = 0
    GUICtrlSetData($Status, "Off")
EndFunc

Share this post


Link to post
Share on other sites

@AlmarM...Try this...

#Include <GUIConstants.au3>

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

Global $Aimbot = 0

HotKeySet("{INSERT}", "_On")
HotKeySet("{HOME}", "_Off")


    $oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
    $GUI = GUICreate("Chicken Hunt", 500, 540, -1, -1)
    $GUIObj = GUICtrlCreateObj($oGame, 10, 10, 480, 480)
    GUICtrlCreateLabel("INSERT = Turn Aimbot on" & @CRLF & "HOME = Turn Aimbot off", 10, 500)
    GUICtrlCreateLabel("Status:", 150, 510)
    $Status = GUICtrlCreateLabel("", 200, 510, 100, 100)
   
    With $oGame
        .bgcolor = "#000000"
        .Movie = "http://83.149.121.2/2/kippenschieten/mh_remake_loader.swf"
        .Loop = True
        .wmode = "Opaque"
    EndWith
    $SearchColor = 0xC50000
       
    GUISetState()



While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            Exit
        
        EndSelect

;If ($Aimbot = 1) Then _On()

WEnd

Func _On()

Global $Aimbot = 1
GUICtrlSetData($Status, "On") 
        
        While $Aimbot<>0
      ;MsgBox(4096,"","")
        $pos = WinGetPos("Chicken Hunt")
        $Coord = PixelSearch($pos[0], $pos[1], $pos[2], $pos[3], $SearchColor)
        If IsArray($Coord) = 1 Then
            MouseClick("Left", $Coord[0], $Coord[1], 1, 0)
        EndIf
        
        WEnd
              
EndFunc

Func _Off()
   Global $Aimbot = 0
    GUICtrlSetData($Status, "Off")
EndFunc

First time im trying to making an aimbot.

What should i save the file as? where should i save the file to get it to work?

Thanks For The Help muttley

Share this post


Link to post
Share on other sites

What should i save the file as? where should i save the file to get it to work?

Not sure which file you are referring to? The only file in this script is the "mh_remake_loader.swf" file, which if you want can be saved locally on your machine by using Inetget() function.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0