User:Akiiki Bastet

My Gravel Macro

To use:

• Uses AHK - Windows Auto Hot Keys
• Move to an open area. Drop your stones. Bring a sledgehammer. I prefer F8F8 view, zoomed moderately in - you can play with this if you get 'too far' messages. Don't wear white!
• CLOSE CHAT! It uses hotkeys, sorry
• Ctrl+F1 to get the splash screen.
• F2 to start
• F3 to pause - you'll want to exit the macro before using maps!
• It will try to use 'S' to Smash stones or Scoop gravel.
• Failing that, it will use Right Click to pick up piles of multiple gravel (which do not scoop)

F3::Pause Toggle
^F1::Setup() 
F2::Harvest()

Setup() {
	MsgBox, Graveller F2 to launch F3 to Pause
}

Harvest() {
	WinWait, eGenesis Client, 
	IfWinNotActive, eGenesis Client, , WinActivate, eGenesis Client, 
	WinWaitActive, eGenesis Client,
	WinGetActiveStats, win_Title, win_Width, win_Height, win_Xpos, win_Ypos
	ScreenWidth := win_Width
	ScreenHeight := win_Height
	PapyColour := 0xFFFFFF
	Loop {
		PixelSearch, x, y, ScreenWidth/10*4, ScreenHeight/10*4, ScreenWidth/10*6, ScreenHeight/10*6, %PapyColour%, 6, Fast RGB
		if (ErrorLevel == 0) {
			MouseMove, x, y
			Send s
			Sleep, 2000
			Click Right
			
		} else {
			PixelSearch, x, y, ScreenWidth/10*3, ScreenHeight/10*3, ScreenWidth/10*7, ScreenHeight/10*7, %PapyColour%, 6, Fast RGB
			if (ErrorLevel == 0) {
				MouseMove, x, y
				Send s
				Sleep, 2000
				Click Right

			} else {
				PixelSearch, x, y, ScreenWidth/10*2, ScreenHeight/10*2, ScreenWidth/10*8, ScreenHeight/10*8, %PapyColour%, 6, Fast RGB
				if (ErrorLevel == 0) {
					MouseMove, x, y
					Send s
					Sleep, 2000
					Click Right

				} else {
					PixelSearch, x, y, ScreenWidth/10, ScreenHeight/10, ScreenWidth/10*9, ScreenHeight/10*9, %PapyColour%, 6, Fast RGB
					if (ErrorLevel == 0) {
						MouseMove, x, y
						Send s
						Sleep, 2000
						Click Right

					}
				}
			}
		}
		Sleep, 2000
	}
}