sling331 Posted January 3, 2006 Share Posted January 3, 2006 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 Link to comment Share on other sites More sharing options...
Bert Posted January 3, 2006 Share Posted January 3, 2006 (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. expandcollapse popup; 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 January 3, 2006 by vollyman The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted January 3, 2006 Moderators Share Posted January 3, 2006 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. 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. Link to comment Share on other sites More sharing options...
Ozi Posted July 2, 2007 Share Posted July 2, 2007 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. Link to comment Share on other sites More sharing options...
Raffle Posted July 2, 2007 Share Posted July 2, 2007 Don't say you wrote scripts if you didn't. its not fair to the person who spent hour's writing it Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now