Click by PixelColor

[Sobiech]

While 1

Hi again

Wend

^^

This script worked today :angry

expandcollapse popup

#include-once

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 20)
Opt("SendAttachMode", 1)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("WinTitleMatchMode", 2)

HotKeySet("{F8}", "start")
HotKeySet("{F9}", "quit")
HotKeySet("{F10}", "hideshow")

$INI = @ScriptDir & "\Settings.ini"
$title = IniRead($INI, "Nvm", "D2Window", "")
$D2WHERE = IniRead($INI, "Nvm", "D2 Path", "")
$BWKey = IniRead($INI, "Nvm", "Bonewall Key", "")
$TeleKey = IniRead($INI, "Nvm", "Tele Key", "")
$hwnd = WinGetHandle($title)
$coord = PixelSearch( 0, 0, 800, 600, 0xFC2C00)
$coord1 = PixelSearch( 0, 0, 800, 600, 0x080404) 
$coord2 = PixelSearch( 0, 0, 800, 600, 0x080808)
$coord3 = PixelSearch( 0, 0, 800, 600, 0x040404)
$coord4 = PixelSearch( 0, 0, 800, 600, 0x141C08) ; back to town
$coord5 = PixelSearch( 0, 0, 800, 600, 0x101408)
$state = "show"
$window = GUICreate("")
GUISetState()

While 1
    Sleep(100)
WEnd

Func hideshow()
    If $state = "show" Then
        WinSetState($window, "", @SW_HIDE)
        $state = "hide"
    Else
        WinSetState($window, "", @SW_SHOW)
        $state = "show"
    EndIf
EndFunc

Func start()
While 1

ControlSend("", "", $hwnd, "{Enter}")
Sleep(100)
ControlSend("", "", $hwnd, "30 seconds to go")
Sleep(100)
ControlSend("", "", $hwnd, "{Enter}")
Sleep(2000)
ControlSend("", "", $hwnd, "{Enter}")
Sleep(100)
ControlSend("", "", $hwnd, "10 seconds to go")
Sleep(100)
ControlSend("", "", $hwnd, "{Enter}")
Sleep(100)
ControlSend("", "", $hwnd, $TeleKey)        
Sleep(2000)
    _MouseClickPlus($hwnd, "left", $coord[0], $coord[1], 1)
Sleep(2500)
    _MouseClickPlus($hwnd, "right", $coord1[0], $coord1[1], 1)
Sleep(2500)
    _MouseClickPlus($hwnd, "right", $coord2[0], $coord2[1], 1)
Sleep(2500)
    _MouseClickPlus($hwnd, "right", $coord3[0], $coord3[1], 1)
Sleep(1500)

Error msg is:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Administrator\Moje dokumenty\Nvm\Y.au3"

C:\Documents and Settings\Administrator\Moje dokumenty\Nvm\Y.au3 (62) : ==> Subscript used with non-Array variable.:

_MouseClickPlus($hwnd, "left", $coord[0], $coord[1], 1)

_MouseClickPlus($hwnd, "left", $coord^ ERROR

>Exit code: 1 Time: 9.865

Sometimes this working but not always

[Hawkwing]

Check @error after the pixelsearch, I'm guessing it's not finding a pixel, and so doesn't return an array.