User:Cegaiel/Macros/Mining/Code - Revision history

Cegaiel at 01:39, 30 October 2010

2010-10-30T01:39:40Z

Cegaiel at 02:52, 28 October 2010

2010-10-28T02:52:03Z

Cegaiel at 09:20, 26 October 2010

2010-10-26T09:20:14Z

Cegaiel at 09:06, 26 October 2010

2010-10-26T09:06:29Z

Cegaiel at 09:00, 26 October 2010

2010-10-26T09:00:30Z

Cegaiel: New page:

 ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ;Date: 10/24/2010 ;Author: Cegaiel ;Credits to Ta...

2010-10-26T06:04:51Z

New page: <pre> ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ;Date: 10/24/2010 ;Author: Cegaiel ;Credits to Ta...

New page

<pre>
;Ctrl+P to pause script and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script
;Date: 10/24/2010
;Author: Cegaiel
;Credits to Takhetu for the loop/code that generates the combinations, of which mines to click.

;Last Update: 10/26/2010 - Major Revision - The combinations was still incorrect. Now they are 100% accurate. This reduces the time to run the script by 50%

;Info from Wiki:
;Alcyone - Topaz
;Celeano - Emerald
;Maia - Ruby
;Merope - Sapphire
;Sterope - Quartz
;Taygete - Opal
;Sinai - Diamond

ChatWarning = 0

Start:

; // START CONFIGURATION AREA

;Set the speed in microseconds (100 = 1/10th second, 1000 = 1 second, etc)
;If you got a slower computer or lag, then try raising it 50 or 100 at a time, ie 200, 250, 300
;This is the speed that it highlights your mine crystals

Delay = 200 ;Safe (lag) is 200+, Fast is 100 (fast computer, no lag)

;If you have problems with it not closing the popup, then try adjusting this number higher.

PopUpDelay = 300 ;Safe (lag) is 300+, Fast is 200 (fast computer, no lag)

;This is the shade at which is searches the for the color of the popup box.
;If you find yourself running all the time, ie its confusing sand with the popup, then try lowering 5 at a time (ie 20,15,etc).
;If you find it is not even seeing the popup box, then try raising 5 at a time and finetune 1 at a time (ie 30,35,etc)

Shade = 24 ;Original is 24

; // END CONFIGURATION AREA

MineNum = 0

IfWinExist eGenesis Client
{
;WinActivate

Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineNumText, Record crystal positions
Gui, Font, norm
Gui, Add, Text,,
( LTrim
Hover and middle-click (Click mouse-wheel) on each ore stone, one by one,
until you've clicked on all the crystals.

AFTER setting (middle clicking) all your stones, then click the OK button.

(Drag this box out of the way if any stones are hidden)

Reminder: Ctrl+P to Pause - Ctrl+R to Reload

)

Gui, Add, Button, default gMineSetLoops, OK
Gui, Show

WinGet, GameWinHandle, ID, eGenesis Client
loop
{

;WinActivate
CoordMode, Mouse, Relative
KeyWait, MButton, D
KeyWait, MButton
MouseGetPos, TestX, TestY, WinHandle
if (WinHandle = GameWinHandle)
{
Gosub, MineRecord
}
else
{
Gui, Destroy
break
}
}
return

MineRecord:
MineNum++
MouseGetPos, MineX%MineNum%, MineY%MineNum%
GuiControl, Text, MineNumText, %MineNum% crystals captured
return

MineSetLoops:
Gui, Submit
Gui, Destroy

SetDefaultMouseSpeed, 0

if ChatWarning = 0
Msgbox, Make sure your chat is MINIMIZED!`n`nThis message will not display again :)`n`n`n`nFYI - Wiki suggests:`n`nAclyone - Topaz`nCeleano - Emerald`nMaia - Ruby`nMerope - Sapphire`nSterope - Quartz`nTaygete - Opal`nSinai - Diamond`n`nMake sure you are mining in the correct region.

WinActivate, eGenesis Client
WinWait, eGenesis Client

WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos

;Get coordinates, for your resolutions' X,Y location of the popups that will occur later.
CenterX := Floor(Xmax/2)
CenterY := Floor(Ymax/2)+103

MainLoop := MineNum-2

Loop %MainLoop%
{

FirstStone := A_Index
; NumToRun1 := 6-A_Index
NumToRun1 := MineNum-A_Index-1

Loop, %NumToRun1%
{
SecondStone := FirstStone+A_Index
;NumToRun2 := 5-A_Index
NumToRun2 := MineNum-SecondStone

Loop, %NumToRun2%
{
ThirdStone := SecondStone+A_Index

MouseMove, MineX%FirstStone%, MineY%FirstStone%
;Msgbox, FirstStone: MineX%FirstStone%, MineY%FirstStone%
Sleep %Delay%
Send {A}
Sleep %Delay%
MouseMove, MineX%SecondStone%, MineY%SecondStone%
;Msgbox, SecondStone: MineX%SecondStone%, MineY%SecondStone%
Sleep %Delay%
Send {A}
Sleep %Delay%
MouseMove, MineX%Thirdstone%, MineY%Thirdstone%
;Msgbox, ThirdStone: MineX%Thirdstone%, MineY%Thirdstone%
Sleep %Delay%
Send {A}
Sleep %Delay%
Send {S}
Sleep %Delay%

FileAppend, %FirstStone% %SecondStone% %ThirdStone%`n, C:\temp\subwebs\atitd\macros\sandmine_results-8stones.txt

Gosub, Popup

}
}
}

if ChatWarning = 0
{
Msgbox, Done, Click the mine and get a new workload!`n`nThis message will not display again :)
ChatWarning = 1
}

Gosub, Start
return
}

Popup:

;Search for the RBG color of 0xECDFBD (Same as HTML code: #ECDFBD)

PixelSearch, Px, Py, %CenterX%, %CenterY%, %CenterX%, %CenterY%, 0xECDFBD, %shade%, Fast|RGB

if ErrorLevel = 0
{
MouseMove, %CenterX%, %CenterY%
Sleep %PopupDelay%
;Msgbox, %CenterX%, %CenterY%
;Click, %CenterX%, %CenterY%
Click
Sleep %PopupDelay%
}
return

^r::reload
^p::Pause
</pre>

@@ Line 3: / Line 3: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
-;Date: 10/24/2010
+;Release Date: 10/24/2010
 ;Author: Cegaiel
 ;Credits to Takhetu for the loop/code that generates the combinations, of which mines to click.
 ;Last Update: 10/26/2010 - Major Revision - The combinations was still incorrect. Now they are 100% accurate. This reduces the time to run the script by 50%
@@ Line 169: / Line 170: @@

@@ Line 10: / Line 10: @@
@@ Line 117: / Line 109: @@
 	if ChatWarning = 0
-	Msgbox, Make sure your chat is MINIMIZED!`n`nThis message will not display again :)`n`n`nFYI - Wiki suggests:`n`nAclyone - Topaz`nCeleano - Emerald`nMaia - Ruby`nMerope - Sapphire`nSterope - Quartz`nTaygete - Opal`nSinai - Diamond`n`nMake sure you are mining in the correct region.`n`nAnd Dammit, look at line 2, in this popup again!`n`nMake sure your chat is MINIMIZED!
+	Msgbox, Make sure your chat is MINIMIZED!`n`nThis message will not display again :)
@@ Line 171: / Line 163: @@
 ;Msgbox, ThirdStone: MineX%Thirdstone%, MineY%Thirdstone%
 Sleep %Delay%
-Send {A}
+;Send {A}
-Sleep %Delay%
+;Sleep %Delay%
 Send {S}
 Sleep %Delay%
-;FileAppend, %FirstStone% %SecondStone% %ThirdStone%`n, C:\temp\subwebs\atitd\macros\sandmine_results-7stones.txt
+FileAppend, %FirstStone% %SecondStone% %ThirdStone%`n, C:\temp\subwebs\atitd\macros\sandmine_results-7stones.txt

@@ Line 32: / Line 32: @@
 	;This is the speed that it highlights your mine crystals
-		Delay = 100  ;Safe (lag) is 200+, Fast is 100 (fast computer, no lag)
+		Delay = 200  ;Safe (lag) is 200+, Fast is 100 (fast computer, no lag)
 	;If you have problems with it not closing the popup, then try adjusting this number higher.
-		PopUpDelay = 200  ;Safe (lag) is 300+, Fast is 200 (fast computer, no lag)
+		PopUpDelay = 300  ;Safe (lag) is 300+, Fast is 200 (fast computer, no lag)
 	;This is the shade at which is searches the for the color of the popup box.
@@ Line 206: / Line 206: @@
 			if ErrorLevel = 0
+			{
 			MouseMove, %CenterX%, %CenterY%
 			Sleep %PopupDelay%
 			Click
 			Sleep %PopupDelay%

@@ Line 18: / Line 18: @@
 ;Taygete - Opal
 ;Sinai - Diamond
@@ Line 118: / Line 117: @@
 	if ChatWarning = 0
-	Msgbox, Make sure your chat is MINIMIZED!`n`nThis message will not display again :)`n`n`n`nFYI - Wiki suggests:`n`nAclyone - Topaz`nCeleano - Emerald`nMaia - Ruby`nMerope - Sapphire`nSterope - Quartz`nTaygete - Opal`nSinai - Diamond`n`nMake sure you are mining in the correct region.
+	Msgbox, Make sure your chat is MINIMIZED!`n`nThis message will not display again :)`n`n`nFYI - Wiki suggests:`n`nAclyone - Topaz`nCeleano - Emerald`nMaia - Ruby`nMerope - Sapphire`nSterope - Quartz`nTaygete - Opal`nSinai - Diamond`n`nMake sure you are mining in the correct region.`n`nAnd Dammit, look at line 2, in this popup again!`n`nMake sure your chat is MINIMIZED!
@@ Line 132: / Line 131: @@
 MainLoop := MineNum-2
@@ Line 175: / Line 177: @@
-FileAppend, %FirstStone% %SecondStone% %ThirdStone%`n, C:\temp\subwebs\atitd\macros\sandmine_results-8stones.txt
+;FileAppend, %FirstStone% %SecondStone% %ThirdStone%`n, C:\temp\subwebs\atitd\macros\sandmine_results-7stones.txt
@@ Line 200: / Line 202: @@
 			;Search for the RBG color of 0xECDFBD (Same as HTML code: #ECDFBD)
-			PixelSearch, Px, Py, %CenterX%, %CenterY%, %CenterX%, %CenterY%, 0xECDFBD, %shade%, Fast|RGB
+			PixelSearch, Px, Py, %CenterX%, %CenterY%, %CenterX%, %CenterY%, 0xEBDDBB, %shade%, Fast|RGB
 			if ErrorLevel = 0