Hallo ich habe eine problem.
es wahren früher 1 pixel farbe
abber es ist jetz 4 ich lade hier das alte Global Const $cTablePixelColor = 0x364C63
aber ich muss es auf vier integirien.
hier die neuen pixel farben kode :+ 0x29100B 0x081A0C 0x01030F
Spoiler anzeigen
#include-once
#Include "Lobby.au3"
#Include "Blind.au3"
#Include "Seat.au3"
#Include "Debug.au3"
Global $iSitStuck = 0
Global $aTop[2]
Global $sTableChecksums = StringSplit(FileRead('..\data\table.txt'),',')
Global $iBlind = 0
Global $tableBuyin=20
Global $bPaused=False
Global $sTableChecksums = StringSplit(FileRead(@ScriptDir & '\data\table.txt'), ',')
Global $TableLastPos
Global Const $cTablePixelColor = 0x364C63
Func _Table()
local $BlankArray[2]
$Windowhandle = wingethandle($browserTitle)
;first, check if the table has moved since we last checked
If _TableVerifyChecksum ($TableLastPos) Then
Return $TableLastPos
EndIf
;default - search screen
$SearchLeft =0
$searchRight = @DesktopWidth
$searchTop = 0
$searchBottom = @DesktopHeight
If IsHWnd($WindowHandle) Then
;search only in the window's area
$aWinPos = WinGetPos($WindowHandle)
If IsArray($aWinPos) Then
$SearchLeft =$aWinPos[0]
$searchRight =$aWinPos[0]+$aWinPos[2]
$searchTop = $aWinPos[1]
$searchBottom =$aWinPos[1]+$aWinPos[3]
EndIf
EndIf
;if the window is moved so only part of it is showing...
If $searchTop < 1 Then $searchTop = 1
If $SearchLeft < 1 Then $SearchLeft = 1
If $searchRight > @DesktopWidth Then $searchRight = @DesktopWidth
If $searchBottom > @DesktopHeight Then $searchBottom = @DesktopHeight
While $searchTop < $searchBottom
$aPos = PixelSearch($SearchLeft,$searchTop,$searchRight,$searchBottom, $cTablePixelColor)
If @error Then
Return $BlankArray
Else
If _TableVerifyChecksum($aPos) Then
$TableLastPos = $aPos
Return $TableLastPos
EndIf
EndIf
$searchTop = $aPos[1]+1 ;continue on from the next row
WEnd
Return $BlankArray
EndFunc
Func _TableVerifyChecksum ($aPos)
If Not IsArray ($aPos) Then Return False
$x = $aPos[0]
$y = $aPos[1]
$iChecksum = PixelChecksum($x-1,$y-1,$x,$y)
For $i = 1 to $sTableChecksums[0]
If $iChecksum==Int($sTableChecksums[$i]) Then
Return True
EndIf
Next
Return False
EndFunc
Func _TableStand()
MouseClick('left',$aTop[0]+710,$aTop[1]+35,1,0) ;changed from 10 to 0 so he stands instantly
Sleep(1000)
EndFunc
Func _TableStand2()
$aResult = _FindBMP("SCREEN",$sDataPath & "\bmp\stand_up.bmp")
If $aResult[1]==True Then
_Log('_Stand Up')
MouseClick('left',$aResult[3],$aResult[4],1,0)
Sleep(1000)
Return True
EndIf
EndFunc
Func _TableStanding()
Local $iChecksum = PixelChecksum($aTop[0]+710,$aTop[1]+35,$aTop[0]+715,$aTop[1]+40)
If $iChecksum == 3486926225 Or $iChecksum == 3416933765 Then
Return True
EndIf
Return False
EndFunc
Func _TableBank($iSeat=0,$iBuyin=0)
If $TABLEBUYIN > 180 Then
$TABLEBUYIN = 180
EndIf
$TABLEBUYIN2 = Random($TABLEBUYIN, ($TABLEBUYIN * 1.1), 1)
If $IBUYIN == 0 Then $IBUYIN = $IBLIND * $TABLEBUYIN2
_TABLESTAND()
_TABLESIT($ISEAT, $IBUYIN)
;If $iBuyin==0 Then $iBuyin = $iBlind * $tableBuyin
;_TableStand()
;_TableSit($iSeat,$iBuyin)
EndFunc
Func _TablePause()
_TableStand()
$bPaused = True
_Lobby()
EndFunc
Func _TableSit($iSeat=0,$iBuyin=0)
If $TABLEBUYIN > 180 Then
$TABLEBUYIN = 180
EndIf
$TABLEBUYIN2 = Random($TABLEBUYIN, ($TABLEBUYIN * 1.1), 1)
While $bPaused
Sleep(1000)
Wend
If $iSitStuck > 5 Then
$iSitStuck = 0
_PopupClose()
Return False
ElseIf $aTop[0] Then
If Not $iSeat Then $iSeat = _SeatAvailable()
If $iSeat Then
If Not $iBlind Then $iBlind = _Blind()
If Not $iBuyin Then $iBuyin = $iBlind * $tableBuyin2
If Not $iBuyin Then
_Log('_TableSit: unknown blinds')
Return False
Else
$aSeat = _SeatPosition($iSeat)
MouseClick('left',$aTop[0]+$aSeat[0],$aTop[1]+$aSeat[1], 1, 0) ; changed to 5
Sleep(2000)
Send($iBuyin)
Send("{ENTER}")
MouseMove($aTop[0],$aTop[1],0)
$iCashChange = False
$just_banked = _totalchips()
$iSitStuck = $iSitStuck+1
Return True
EndIf
EndIf
EndIf
EndFunc
Func _TableBuyin($iBuyin=0)
$aResult = _FindBMP("SCREEN",$sDataPath & "\bmp\table_buyin.bmp")
;$xBank = 0 ; sets forcebank to false
;$yBank = 0 ; sets forcebank to false
;$zBank = 0 ; sets forcebank to false
;$cWon = False ; we lost
$just_banked = _totalchips()
If $TABLEBUYIN > 180 Then
$TABLEBUYIN = 180
EndIf
$TABLEBUYIN2 = Random($TABLEBUYIN, ($TABLEBUYIN * 1.1), 1)
If $aResult[1]==True Then
_Log('_TableBuyin')
If Not $iBuyin Then $iBuyin = $iBlind * $tableBuyin2
If Not $iBuyin Then
MouseClick('left',$aResult[3],$aResult[4],1,0)
MouseMove($aTop[0],$aTop[1],0)
Return True
Else
$iCashChange = False
Send($iBuyin)
Send("{ENTER}")
MouseMove($aTop[0],$aTop[1],0)
Return True
EndIf
EndIf
EndFunc
könt mir helfen
danke jetzt schon für ihr hilfe