PixelSearch Loop

[Schoening]

Hey i am trying to do a PixelSearch on the Screen, in a 3D environment.

The Idea is that the PixelSearch "Rotates Arround " In the 3D evironment, until it finds the Color. Then Moves Toward The Color.

To accomplish this, i made the PixelSearch Thin, But Tall:

PixelSearch(620,0,660,512, 0xFE4335,10)

(My resolution is 1280x1024 so the Center of X is 640)

Here is My Script:

WinActivate("3D Application")
Sleep(5000)

$KeyToPress = "w"
$D_Down  = "d"
Global $color = PixelSearch(540,0,740,512, 0xFE4335,50)


Func Spin()
Send ("{"&$D_Down&" DOWN}")
    Sleep (200)
    Send ("{"&$D_Down&" UP}")
EndFunc

Func WalkDistance()
Send ("{"&$KeyToPress&" DOWN}")
Sleep ($color[1]*2000)
Send ("{"&$KeyToPress&" UP}")
EndFunc


Select
Case Not @error
  Sleep(10)
  MouseMove ($color[0],$color[1],10)
        Call("WalkDistance")
Case @error
  Sleep(10)
  Call("Spin")
Case Else
     MsgBox(0,"Error","Error")
EndSelect
MsgBox(0,"Message","Done")

The First Case Works, But is not Shutting Down.

The Second Case Steps in when there are no Pixels of that Color, and Rotates

I want to Repeat the Select until the Application Window is No Longer The Active window.

How can i Repeat The Select Case?

Can i Run a Select Case inside a Select Case by using If ... Then ?

Is Select Case a Good Way to Make a Programm work with Diffrent Scenarios (Cases) or is there a better way?

This Language is Fast and fun to Learn !

Edited January 12, 2012 by Schoening

[Schoening]

bump

[JLogan3o13]

Hi, Schoening. Please don't bump in less than 24 hours. It gives us the chance to have our coffee and review your question

[Schoening]

Hi, Schoening. Please don't bump in less than 24 hours. It gives us the chance to have our coffee and review your question

Allrigh, sorry

[Schoening]

So now i have tried to Put the Select Case into a Function:

expandcollapse popup

WinActivate("3D Application")
Sleep(5000)
$KeyToPress = "w"
$D_Down  = "d"
Global $color = PixelSearch(540,0,740,512, 0xFE4335,20)
While 1
Sleep(1000)
Sleep(4000)
Call("_select")
WEnd

Func Spin()
Send ("{"&$D_Down&" DOWN}")
    Sleep (200)
    Send ("{"&$D_Down&" UP}")
EndFunc

Func WalkDistance()
Send ("{"&$KeyToPress&" DOWN}")
Sleep (2000)
Send ("{"&$KeyToPress&" UP}")
EndFunc

Func _select()
Select
Case Not @error
  Sleep(10)
  MouseMove ($color[0],$color[1],10)
        Call("WalkDistance")
Case @error
  Sleep(10)
  Call("Spin")
Case Else
     MsgBox(0,"Error","Error")
EndSelect
EndFunc
MsgBox(0,"Message","Done")

But Instead of Calling Case @error when there is no Pixel of the Righ Color. It just Crashes

Error Message:

(38) : ==> Subscript used with non-Array variable.:

In that line:

MouseMove ($color[0],$color[1],10)

So the first Case Repeats If the PixelSearch that runs before the Loop was Not @error. Else It Crashes..

Also, The PixelSearch is Defined before the Loop, and does not change. I need to Start PixelSearch everytime The Loop Calls for Func _Select()so the Values of $color change before the Select Statement or i get trapped in a Infinite Loop of Case Not @error

Edited January 12, 2012 by Schoening

[jaberwacky]

Oh my, this wouldn't happen to be for a game would it, Pinhead Larry?

[kaotkbliss]

One hint: Your edit pretty much sums up your fix...

This smells of game automation....

[Schoening]

@LaCastiglione Spongebob fan ?

@kaotkbliss Yeah well.. It's Like the Durian Fruit.. The Smell is bad, but it's still a good tasting fruit.

One hint: Your edit pretty much sums up your fix...

I will Look into It.. But i can't see it Right Now

Ps. For Future Topics i will be less specific, i don't want to get a ban for Giving a Idea of what i am doing

Edited January 12, 2012 by Schoening

[JLogan3o13]

Ps. For Future Topics i will be less specific, i don't want to get a ban for Giving a Idea of what i am doing

Or you could just follow the rules

[Schoening]

Im gonna Try a Return Function

[Schoening]

One hint: Your edit pretty much sums up your fix...

This smells of game automation....

I think i got what you mean:

Func _select()
Local $color = PixelSearch(540,0,740,512, 0xFE4335,20)
Select
Case Not @error
  Sleep(10)
MouseMove ($color[0],$color[1],10)
        Call("WalkDistance")
Case @error
  Sleep(10)
  Call("Spin")
Case Else
     MsgBox(0,"Error","Error")
EndSelect
EndFunc

That works, thx for help all

[Melba23]

Schoening,

Please make sure you follow the Forum Rules in future.

M23

[Schoening]

Schoening,

Please make sure you follow the Forum Rules in future.

M23

Yeah i will.. I though i did though