My first PixelSearch()

[AlmarM]

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?

expandcollapse popup

#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-

[DjDeep00]

@AlmarM...Try this...

expandcollapse popup

#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

[Eirik]

@AlmarM...Try this...

expandcollapse popup

#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

[DjDeep00]

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.