Public feed
#378134
;-----
; Configurable AutoMiner v0.0
; CC-BY-NC-SA
; Copyright 2007 Allen Parker
;-----
#include <GUIConstants.au3>
#include <Color.au3>
#include "variables.au3"
AutoItSetOption( "MouseCoordMode", 1 )
#cs
Window Sizing for non-fullscreen:
w + 6; h + 25 (4 left/2 right, 22 top/3 bottom)
Fullscreen will register as proper resolution for offset math
-----
"items" offset ->
1024fs x: 858 y: 420
1024w x: 862 y: 442 @ topleft=0:0
items colors: 1116 1117x 442 - 164/165 pixels from the right hand side
RGB: Hex: 0x6D6C77 Dec: 7171191
#ce
; Let's see if we're in windowed mode and set appropriate variable whatever the result
WinActivate("EVE")
sleep(5000)
$EveWin = WinGetPos("EVE")
If $EveWin[2] <> @DesktopWidth Then
$FullScreen = 0
Else
$FullScreen = 1
EndIf
If $FullScreen = 0 Then
; Let's get current positions
$EveWin = WinGetPos("EVE")
; And set the position to a useful one for math
If $EveWin[0] <> 0 OR $EveWin[1] <> 0 Then
WinWait("EVE")
WinActivate("EVE")
WinWaitActive("EVE")
WinMove("EVE", "", 0, 0)
EndIf
Global $baseX = 5
Global $baseY = 22
ElseIf $FullScreen = 1 Then
; No need for current positions, only lame defines
Global $baseX = 0
Global $baseY = 0
Else
; We should never get here
EndIf
; Calculate the edge of the screen, since we're counting pixels from the right, not the left
$Xoffset = $ItemTabOffsetX + $baseX
$TabLocX = $EveWin[2] - $Xoffset
$TabLocY = $ItemTabOffsetY + $baseY
CheckItemsTab()
Func CheckItemsTab()
MouseMove($TabLocX, $TabLocY, 0)
If PixelGetColor($TabLocX, $TabLocY) = Dec($ItemTextColor) AND PixelGetColor($TabLocX, $TabLocY - 3) = Dec($ItemTextColor) Then
; if we get here, it worked and it's safe to drag
; let's make sure the items window is selected
MouseClick("left", $TabLocX, $TabLocY)
Else
ClickItemsTab()
; CheckItemsTab()
EndIf
EndFunc
;MouseMove($TabLocY, $TabLocX, 0)
;MsgBox(0, "yay!", "it worked")
Func ClickItemsTab() ; x:1120 y:400 for items @ 1280x1024
$ClickX = $EveWin[2] - 160
$ClickY = $baseY + 400
MouseClick("left", $ClickX, $ClickY)
EndFunc
;------------------ end of main.au3
;------------------ start of variables.au3
; Main Globals
Global $EveWin
Global $Fullscreen
; Item Defines
Global $ItemTabOffsetX = 192
Global $ItemTabOffsetY = 418
Global $ItemTextColor = "676671" ;7171191