taultunleashed

Code: Register to unlock hidden link

    If Parley_hasWon then       'Check to see if we won or lost before attempting to play a card.
        VGSendText HK3
        Sleep 500
        VGSendText HK4
        Sleep 500
        ParleysWon = ParleysWon + 1
        debugLog " Parleys Won  : " & ParleysWon
        debugLog " Parleys Lost : " & ParleysLost
        debugLog " Success Rate : " & ParleysWon / TotalParleys * 100 & "%"     '  <--- problem line
    ElseIf Parley_hasLost then
        VGSendText HK3
        Sleep 500
        TotalParleys = totalParleys + 1
        ParleysLost = ParleysLost + 1
        debugLog " Parleys Won  : " & ParleysWon
        debugLog " Parleys Lost : " & ParleysLost
    End If

Code: Register to unlock hidden link

    If Parley_hasWon then       'Check to see if we won or lost before attempting to play a card.
        VGSendText HK3
        Sleep 500
        VGSendText HK4
        Sleep 500
        TotalParleys = totalParleys + 1    '  <--- ADDED
        ParleysWon = ParleysWon + 1
        debugLog " Parleys Won  : " & ParleysWon
        debugLog " Parleys Lost : " & ParleysLost
        debugLog " Success Rate : " & ParleysWon / TotalParleys * 100 & "%"
    ElseIf Parley_hasLost then
        VGSendText HK3
        Sleep 500
        TotalParleys = totalParleys + 1     '  <--- ADDED
        ParleysLost = ParleysLost + 1
        debugLog " Parleys Won  : " & ParleysWon
        debugLog " Parleys Lost : " & ParleysLost
    End If

Code: Register to unlock hidden link

        For a = 1 to 4
            TellCheck
            If Opponent1Moves Then
                MoveToMob getTarget
            End If
            VGSendText HK2
            sleep 500

            for b = 1 to 3
                Mouse.LMouseClick CD_X, CD_Y, 1, 0
                sleep LagDelay
                Mouse.LMouseClick CD_X, CD_Y, 1, 0
                sleep 500
                If Parley_inParley then
                    FaceMob getTarget
                    exit for
                End If
            next

            If Parley_inParley then
                TotalParleys = TotalParleys + 1    <-- should increase here
                debugLog " We have engaged in parley with Opponent " & CurrentOpponent + 1
            Else
                debugLog " We attempted to engage in parley with Opponent " & CurrentOpponent + 1 & ", but they weren't ready."
                exit for
            End If

            While Parley_inParley
                Parley
            Wend
        Sleep 500
        Next

Code: Register to unlock hidden link

function determineParleyPixelColor(x,y)        'Support function for determineParleyType(x,y) -- returns 1 if found red button, 2 for green, 3 for blue, 4 for yellow.  Returns 0 if no match

dim pixelColor
dim rval, bval, gval
dim csum
dim rratio, bratio, gratio
dim rtest, btest, gtest

    determineParleyPixelColor = 0
    pixelColor = GetPixelColor(x,y)
    rval= ExtractRGB_Red(pixelColor)
    bval= ExtractRGB_Blue(pixelColor)
    gval= ExtractRGB_Green(pixelColor)
    csum = rval + bval + gval
    if csum > 200 AND csum < 430 then       'filter dark pixels and most light background pixels to save processing time
        rratio = rval / csum
        bratio = bval / csum
        gratio = gval / csum
        'red (demand) check
        rtest = ABS(rratio - 0.66) - 0.015
        gtest = ABS(gratio - 0.19) - 0.015
        btest = ABS(bratio - 0.15) - 0.02
        if (rtest <= 0) AND (gtest <= 0) AND (btest <= 0) then
            determineParleyPixelColor = 1
            exit function
        end if
        'green (reason) check
        rtest = ABS(rratio - 0.28) - 0.015
        gtest = ABS(gratio - 0.47) - 0.02
        btest = ABS(bratio - 0.25) - 0.01
        if (rtest <= 0) AND (gtest <= 0) AND (btest <= 0) then
            determineParleyPixelColor = 2
            exit function
        end if
        'blue (inspire) check
        rtest = ABS(rratio - 0.27) - 0.01
        gtest = ABS(gratio - 0.31) - 0.015
        btest = ABS(bratio - 0.42) - 0.01
        if (rtest <= 0) AND (gtest <= 0) AND (btest <= 0) then
            determineParleyPixelColor = 3
            exit function
        end if
        'yellow (flattery) check
        rtest = ABS(rratio - 0.47) - 0.015
        gtest = ABS(gratio - 0.42) - 0.015
        btest = ABS(bratio - 0.13) - 0.025
        if (rtest <= 0) AND (gtest <= 0) AND (btest <= 0) then
            determineParleyPixelColor = 4
            exit function
        end if
    end if
end function

function determineParleyType(x,y)           'Takes x,y coordinate of center of inkwell in inkwell icon.  Returns 1 if interview, 2 if entertain, 3 if gossip, 4 if convince, 5 if incite.  Returns 0 if no match (error)

dim foundDemand, foundReason, foundInspire, foundFlattery
dim i
dim pixelColor
    
    determineParleyType = 0
    foundDemand = FALSE
    foundReason = FALSE
    foundInspire = FALSE
    foundFlattery = FALSE
    for i = 66 to 206
        pixelColor = determineParleyPixelColor(x+i, y)
       ' debugLog pixelColor
        select case pixelColor
            case 1 foundDemand = TRUE
            case 2 foundReason = TRUE
            case 3 foundInspire = TRUE
            case 4 foundFlattery = TRUE    
        end select
    next
    if foundDemand AND foundReason AND foundInspire AND foundFlattery then
        determineParleyType = 1
        exit function
    elseif foundReason AND foundInspire AND foundFlattery then
        determineParleyType = 2
        exit function
    elseif foundDemand AND foundInspire AND foundFlattery then
        determineParleyType = 3
        exit function
    elseif foundDemand AND foundReason AND foundFlattery then
        determineParleyType = 4
        exit function
    elseif foundDemand AND foundReason AND foundInspire then
        determineParleyType = 5
        exit function
    else
        debugLog "Could not determine parley type!  Possibly the X,Y coordinates aren't correct."
    end if

end function