Sign in to follow this  
Followers 0
sling331

First script

5 posts in this topic

I have written my first script and I keep getting a error on lines 24 and 62 . Can someone Please help me with this.I have been work on this for about three months now and have never seen work.I have attached a copy of the script .

mydoc.au3

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

From the looks of it, you are trying to declare a constant on line 59, then change it in the function. If I'm reading the help file correctly, you can't do that. I'm not the best at coding, so if I'm wrong on this, please let someone chime in and correct me on this.

Once created, you cannot change the value of a constant. Also, you cannot change an existing variable into a constant.

On line 24, you are using ' ' instead of "". I find using "" is a better pratice.

try this, but on line 59, I rem-ed the line.

; Play Party Poker

; Pre-initialization: set name of table
Global Const $TABLE_NAME = "Play money"

; Initialize buttons
Local Const $FOLD_BUTTON = "Afxwnd42s20"
Local Const $CALL_BUTTON = "Afxwnd42s22"
Local Const $CHECK_BUTTON = "Afxwnd42s22"
Local Const $BET_BUTTON = "Afxwnd42s24"
Local Const $RAISE_BUTTON = "Afxwnd42s24"

; Set coordinate mode to relative to window
AutoItSetOption("PixelCoordMode", 0)
AutoItSetOption("WinTitleMatchMode", 2) 

; Wait for the window of table to exist
WinWait($TABLE_NAME)

; Main loop
While WinExists($TABLE_NAME)

    Sleep(300)

    If ControlCommand($TABLE_NAME, "", $FOLD_BUTTON, "IsVisible") Then
        Sleep(Random(1500, 2500))
        Local $Action = GetAction()
        If $Action = 1 Then
    ; Fold/Check
    ; If we can check for free, then do that instead of folding
            If StringInStr(ControlGetText($TABLE_NAME, "", $CHECK_BUTTON), "Check") Then
                ControlClick($TABLE_NAME,"", $CHECK_BUTTON);
            Else
                ControlClick($TABLE_NAME, "", $FOLD_BUTTON);
            EndIf
        ElseIf $Action = 2 Then
    ; Check/Call
    ; Sleep(Random(0, 2000))
            ControlClick($TABLE_NAME, "", $CALL_BUTTON)
        ElseIf $Action = 3 Then
    ; Call/Bet
    ; If we can call then call otherwise bet
            If StringInStr(ControlGetText($TABLE_NAME, "", $CALL_BUTTON), "Call") Then
                ControlClick($TABLE_NAME,"", $CALL_BUTTON)
            Else
                ControlClick($TABLE_NAME, "", $BET_BUTTON)
            EndIf
        ElseIf $Action = 4 Then
    ; Bet/Raise
    ; Sleep(Random(0, 2000));
            ControlClick($TABLE_NAME, "", $RAISE_BUTTON);
        EndIf
    EndIf
WEnd

; Poker Inspector Actions
Func GetAction()

;Local $Ret = 1
    WinActivate("Connected to" & $TABLE_NAME)

; Red/fold
    If PixelGetColor(338, 63) = 0x0000FF Then $Ret = 1
; Yellow
    If PixelGetColor(338, 72) = 0x00FFFF Then $Ret = 2
; Blue
    If PixelGetColor(338, 85) = 0xFFFE9C Then $Ret = 3
; Green
    If PixelGetColor(338, 96) = 0x00FF00 Then $Ret = 4

    WinActivate($TABLE_NAME)
    Return $Ret

EndFunc; ==> GetAction

; Checks how many empty
Func OccupiedSeats()
    Local $Count = 0
    Local $SeatOpenColor = 0x318AAD
; Seat 1
    If PixelGetColor(517, 96) = $SeatOpenColor Then $Count = $Count + 1
; Seat 2
    If PixelGetColor(665, 133) = $SeatOpenColor Then $Count = $Count + 1
; Seat 3
    If PixelGetColor(735, 251) = $SeatOpenColor Then $Count = $Count + 1
; Seat 4
    If PixelGetColor(660, 378) = $SeatOpenColor Then $Count = $Count + 1
; Seat 5
    If PixelGetColor(493, 413) = $SeatOpenColor Then $Count = $Count + 1
; Seat 6
    If PixelGetColor(262, 413) = $SeatOpenColor Then $Count = $Count + 1
; Seat 7
    If PixelGetColor(108, 378) = $SeatOpenColor Then $Count = $Count + 1
; Seat 8
    If PixelGetColor(53, 247) = $SeatOpenColor Then $Count = $Count + 1
; Seat 9
    If PixelGetColor(126, 133) = $SeatOpenColor Then $Count = $Count + 1
; Seat 10
    If PixelGetColor(264, 96) = $SeatOpenColor Then $Count = $Count + 1
    Return $Count
EndFunc; ==> OccupiedSeats
Edited by vollyman

Share this post


Link to post
Share on other sites

I have written my first script and I keep getting a error on lines 24 and 62 . Can someone Please help me with this.I have been work on this for about three months now and have never seen work.I have attached a copy of the script .

You're saying your wrote this script? I've seen it several times over the last 10 mos, it's all over this forum... Try to do a search for key words your looking for and you may find a better example than what you have. As a matter of fact, I even know the author of this script.... should have just said you were having problems with it in general.

@vollyman... There's no difference between the 2 quotes when used in this manner.


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

I have written my first script and I keep getting a error on lines 24 and 62 . Can someone Please help me with this.I have been work on this for about three months now and have never seen work.I have attached a copy of the script .

Don't download scripts that you don't understand.

Share this post


Link to post
Share on other sites

Don't say you wrote scripts if you didn't. its not fair to the person who spent hour's writing it

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0