Help for making a colourbot

[technotronix]

[AlmarM]

@ technotronix

Is het een Flash Game waarmee je dat probeert?

Of een echt Online-Game?

AlmarM

[technotronix]

een echte online game (first person shhoter game) kheb al gekleurde skins rood en blauw

[Kip]

http://autoit.de/

Why does everybody think the Netherlands and Belgium are the same as Germany? Edited September 25, 2008 by Kip

[technotronix]

ok, im about to pay for one, Ill give 25 for the person that makes one (a)

[GotX]

Yay! I was bored. Here you go

expandcollapse popup

$Pause = 500
$DllUser32 = DllOpen('user32.dll')
HotKeySet('{ESC}', 'Quit')
MsgBox(0,'Select a Color','Put the mouse over the color then press {F1} to select it.')
$PauseOff = 0
While 1
    If _IsPressed(112) Then
        $Color = PixelGetColor(MouseGetPos('left'),MouseGetPos('top'))
        MsgBox(0,'ColorClicker','To toggle play and pause press {F2}.')
    EndIf
    If $PauseOff And _IsPressed(113) Then
        $PauseOff = 0
        TrayTip('ColorCliker','Pause is ON',1)
        While _IsPressed(113)
        WEnd
    ElseIf _IsPressed(113) Then
        $PauseOff = 1
        TrayTip('ColorCliker','Pause is OFF',1)
        While _IsPressed(113)
        WEnd
    EndIf
    If $PauseOff And $Color = PixelGetColor(MouseGetPos('left'),MouseGetPos('top')) Then
        MouseClick('left')
        Sleep($Pause)
    EndIf
WEnd
Func _IsPressed($hexKey)
   Local $aR
   $aR = DllCall($DllUser32, "int", "GetAsyncKeyState", "int", $hexKey)
   If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
      Return 1
   Else
      Return 0
   EndIf
EndFunc  ;==>_IsPressed
Func quit()
    $ans = MsgBox(4,'ColorClicker','Are you sure you want to quit?')
    If $ans <> 7 Then
        DllClose($DllUser32)
        Exit
    EndIf
EndFunc

Change the $Pause variable as you like. It is the break between clicks in miliseconds.

Edited September 30, 2008 by GotX

[technotronix]

Thanks for this dude now tell me how to run this :$

[GotX]

Thanks for this dude now tell me how to run this :$

If you've downloaded AutoIt all you need to do is open a text document paste the code in and save it as an .au3 file.

Autoit can run those files directly or you can compile it into a .exe file

Edited September 30, 2008 by GotX

[technotronix]

ok so far so good, now i only need to know how to save it

ansi?

Unicode?

x64

console?

I know the game i have haves a console, so i save it as cosnole?

[technotronix]

ok when i saved it to the exe. and want to start it, it asks me to select a colour, i do than i click ok, but the game doesnt run >_< stuk

[GotX]

ok when i saved it to the exe. and want to start it, it asks me to select a colour, i do than i click ok, but the game doesnt run >_< stuk

Oh sorry for not clarifying... you click OK first then hover your mouse over the color then press F1 to get the color. Then click OK on the pop up and press F2 to run and pause and ESC to exit.

By the way... this is the one that clicks when your mouse is over the color... it doesn't follow the color around the screen

Edited September 30, 2008 by GotX

[technotronix]

ok, good enough but i just checked it and i didt what u said but the game doesnt show up ether :s:d maybe add me to msn to talk bout it i PM u my addy

[GotX]

what do u mean the game window wont show up? If it's run full screen i could disable the notifications but msn me aaron.cake@gmail.com so i know what your talking about

[GotX]

Alright i changed it around a bit and here it is...

Numpad 7 (Home) -> Exit Script

Numpad 8 (up arrow) -> Start/Pause

Numpad 9 (Pgup) -> select color

expandcollapse popup

$Pause = 500
$DllUser32 = DllOpen('user32.dll')
HotKeySet('{NUMPAD7}', 'Quit')
MsgBox(0,'Select a Color','Put the mouse over the color then press 9 (PgUp) to select it. (Close this dialog first)')
$PauseOff = 0
$win = 0
While 1
    If _IsPressed(105) Then
        $Color = PixelGetColor(MouseGetPos('left'),MouseGetPos('top'))
    EndIf
    If $PauseOff And _IsPressed(104) Then
        $PauseOff = 0
        While _IsPressed(104)
        WEnd
    ElseIf _IsPressed(104) Then
        $PauseOff = 1
        While _IsPressed(104)
        WEnd
    EndIf
    If $PauseOff And $Color = PixelGetColor(MouseGetPos('left'),MouseGetPos('top')) Then
        MouseClick('left')
        Sleep($Pause)
    EndIf
WEnd
Func _IsPressed($hexKey)
   Local $aR
   $aR = DllCall($DllUser32, "int", "GetAsyncKeyState", "int", $hexKey)
   If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
      Return 1
   Else
      Return 0
   EndIf
EndFunc  ;==>_IsPressed
Func quit()
    DllClose($DllUser32)
    Exit
EndFunc

Edited September 30, 2008 by GotX