Can I get some help?

[AlmarM]

Arg,

Ive tried all!

PixelCheckSum()

PixelGetColor()

PixelSearch()

It wont work!

Can somebody test it for me?

Ull need this:

My resolution = 1280 x 800

Mayby my x and y arnt good?

expandcollapse popup

#include <GUIConstants.au3>

Opt("GUICloseOnEsc", 1)

Global $Red = 0, $Blue = 0, $Purple = 0, $Green = 0

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

$oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$GUI = GUICreate("Super Crazy Guitar Maniac Dexuxe 3", 734 + 20, 414 + 20, -1, -1)
$GUIObj = GUICtrlCreateObj($oGame, 10, 10, 734, 414)

With $oGame
    .bgcolor = 0x000000
    .Movie = "http://www.notdoppler.com/files/supercrazyguitarmaniacdeluxe3.swf"
    .Loop = True
    .wmode = "Opaque"
EndWith

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE ; -3
        Exit
    EndSelect
WEnd

Func _All()
    MsgBox(64, "Status", "Status: On")
    _Red()
EndFunc

Func _Red()
    If PixelGetColor(365, 254) = 0x990000 Then
    Sleep(50)
    Send("{UP}")
    EndIf
EndFunc

Func _Off()
    Global $Red = 0, $Blue = 0, $Purple = 0, $Green = 0
EndFunc

(Its about the _Red() Func!)

-AlmarM-

[TehWhale]

This seems because, you call the _Red() Functions once, and as soon as the color isnt there, it returns, back to your loop. It doesn't keep tring, as I think your tring to get.

[Bert]

Opt("PixelCoordMode", 2)

add this at the top of your script

[AlmarM]

So why doenst this work?

expandcollapse popup

#include <GUIConstants.au3>

Opt("GUICloseOnEsc", 1)
Opt("PixelCoordMode", 2)

Global $Red = 0, $Blue = 0, $Purple = 0, $Green = 0

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

$oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$GUI = GUICreate("Super Crazy Guitar Maniac Dexuxe 3", 734 + 20, 414 + 20, -1, -1)
$GUIObj = GUICtrlCreateObj($oGame, 10, 10, 734, 414)

With $oGame
    .bgcolor = 0x000000
    .Movie = "http://www.notdoppler.com/files/supercrazyguitarmaniacdeluxe3.swf"
    .Loop = True
    .wmode = "Opaque"
EndWith

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE ; -3
        Exit
    EndSelect
WEnd

Func _All()
    MsgBox(64, "Status", "Status: On")
    _Red()
EndFunc

Func _Red()
    While 2
        If PixelSearch(345, 234, 377, 272, 0x990000) = True Then
            MsgBox(0, "Test", "Test")
        EndIf
    WEnd
EndFunc

Func _Off()
    Global $Red = 0, $Blue = 0, $Purple = 0, $Green = 0
EndFunc

It DOES work. Only like 10 seconds AFTHER the PixelSearch and sometimes it wont stop Giving the MsgBox()

Edited June 16, 2008 by AlmarM