railshot wrote:beergeek, my problem when it misses a coplication is back with a vengeance. Now it does it all the time. I rechecked the coords of the cancel button--does not help. The funny thing is, if I stop the script and restart, it takes care of the complication just fine until the next complication occurs and then it's off (and not slightly) again.
It never went away in the current release version. I have a fix for it in the version I'm running, but can't release that right now as it is in the middle of having a significant feature coded in.
In the meantime, try patching this procedure in acbinclude.vbs, overwriting the old. It is near the bottom of the file. Make sure you backup the old procedure first, in case I made some incompatible change I forgot about...
Code: Register to unlock hidden link
sub performCompRemedy()
if debugState then debugLog "sub performCompRemedy, skipRemedy = " & skipRemedy end if
if Not skipRemedy then
action = convInt(Left(activeComps(numActiveComps,1),1))
if debugState then debugLog "action list: " & activeComps(numActiveComps,1) & " desired remedy action: " & action end if
if activeComps(numActiveComps,2) >= 0 then
actionInfo = compData(activeComps(numActiveComps,2),action + 1)
if debugState then debugLog "action info: " & actionInfo end if
actionType = Left(actionInfo,1)
if debugState then debugLog "action type: " & actionType end if
if actionType = "2" then
idChangeToolBag(Right(actionInfo,(Len(actionInfo)-1)))
end if
end if
For i = 1 to numActiveComps
Mouse.LMouseClick (CC_X+(50*i)+40), (CC_Y-30), 1, 1
Next
if debugState then debugLog "Click comp: " & (CC_X+(50*numActiveComps)+40) & ", " & (CC_Y-30) end if
select case activeComps(numActiveComps,3) 'number of comp remedies
case 1
Mouse.LMouseClick (CC_X+140), (CC_Y+60), 1, 1
if debugState then debugLog "Click remedy1: " & (CC_X+140) & ", " & (CC_Y+60) end if
case 2
Mouse.LMouseClick (CC_X+(action*50)+65), (CC_Y+60), 1, 1
if debugState then debugLog "Click remedy2: " & (CC_X+(action*50)+65) & ", " & (CC_Y+60) end if
case 3
Mouse.LMouseClick (CC_X+(action*50)+40), (CC_Y+60), 1, 1
if debugState then debugLog "Click remedy3: " & (CC_X+(action*50)+40) & ", " & (CC_Y+60) end if
case 4
Mouse.LMouseClick (CC_X+(action*50)+15), (CC_Y+60), 1, 1
if debugState then debugLog "Click remedy4: " & (CC_X+(action*50)+15) & ", " & (CC_Y+60) end if
end select
if debugState then debugLog "case for click (number remedies avail): " & activeComps(numActiveComps,3) end if
sleep 2500
end if
end sub