User:Cegaiel/Macros/Glassbench/Code

; Glass Bench
; Date: 5/29/2010
; Author: Cegaiel

; Ctrl+P (once to Pause, again to resume
; Ctrl+R to reload/reset script

; Note: The timer adds 6 seconds to your project (ie a 60s project will take 66s). 
; This is to ensure teppy time and lag doesn't make it click too soon.
; If you want to adjust this extra 6 seconds, scroll down, half way down the script and look for: seconds := (seconds + 6)
; Change the + 6 to however many seconds you want to offset the default project timer.


; This is the location of the heat bar (the first bar).  Use my GetMouse Position macro to determine the coordinates
; at your resolution if you are changing it. The below 106 and 138 is correct for 1024x768 resolution (pinned uppper left corner).
; You are only configuring the X position, the Y position is gathered while the script runs (it asks you to click the bar to get Y)

; Configuration: ========

curHeatMinX = 106 ; Around 1600-1650
curHeatMaxX = 138 ;Around 2200 degrees

; =======================



	Gui, Add, Text,, Choose amount of seconds for your project:
	Gui, Add, Text,,
	( LTrim
	60s: Glass Rod
	90s: Glass Pipe, Find Glass Pipe, Fine Glass Rod
	120s: Glass Blade, Sheet Glass

	)

	Gui, Add, DropDownList, vSeconds Choose1, 60|90|120

	Gui, Add, Text,, How many?
	Gui, Add, Edit, vQty wp number

	Gui, Add, Button, gSubmit, Next Step	
	Gui, Show
	return


	Submit:
	Gui, Submit

	if (Qty < 0)
	{
	Msgbox, You did not enter a Qty!`n`nTry again...
	RELOAD
	PAUSE
	}


	Gui, Destroy
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, normal
	Gui, Add, Text, vRefresh,
	( LTrim
	Now middle click (click mouse-wheel) a spot on pinup to refresh screen.

	(Hover over around where it says "This is a/your Glazier's Bench"

	)
	Gui, Show

	WinGet, GameWinHandle, ID, eGenesis Client
		WinActivate, eGenesis Client


	loop
	{
		WinActivate, eGenesis Client
		CoordMode, Mouse, Relative
		KeyWait, MButton, D
		KeyWait, MButton
		MouseGetPos, TestX, TestY, WinHandle
		if (WinHandle = GameWinHandle)
		{

			Gosub, Record
		}
		else
		{
			Gui, Destroy
			break
		}
	}
	return

; MineNum1 = Refresh
; MineNum2 = Project Location
; MineNum3 = Temperature Bar Y Position


	Record:
	MineNum++
	MouseGetPos, MineX%MineNum%, MineY%MineNum%


	if (MineNum = 1) {
	GuiControl, Text, Refresh,  Step 2:  Middle click Glass Project on Menu (ie Make a Glass Jar)`n`n`n
	return


	} else if (MineNum = 2) {
	GuiControl, Text, Refresh,  Step 3: Click Y position of the Heat bar`n`nIt is the first bar (above Temperature: 0)`n`nClick anywhere in the bar...
	return


	} else  {
	Gui, Destroy
	}



	Gui, +AlwaysOnTop +ToolWindow
	Gui, Add, Text, vMineNumText, Stand by, the macro will begin very shortly...`n`n`n`n`n`n`n
	Gui, Font, norm
	Gui, Show



	seconds := (seconds + 6)
	gseconds = 0
	cseconds = 0
	counter = 0


	GuiControl, Text, MineNumText, Press F2 when the heat is at operating`ntemperature and has stopped spiking.`n`nThe macro will then take over.`n`nIdea range to hit F2 is 1800-2000.
	KeyWait, F2, D





	SetDefaultMouseSpeed, 0

	#Persistent 
	SetTimer, MakeGlass, %gseconds%


	Loop
	{


			WinActivate, eGenesis Client

			;curHeatMin := FindRed(curHeatMinX, MineY3)
			curHeatMax := FindRed(curHeatMaxX, MineY3)

			if (curHeatMax = 1)
			{
			MouseGetPos, OldMX, OldMY
			ImageSearch, OutputX, OutputY, 9, 42, 283, 299, *50 add2cc.PNG
			OutputX := OutputX +50
			OutputY := OutputY + 2
			Click, %OutputX%, %OutputY% ;Add 2 cc
			MouseMove, %OldMX%, %OldMY%, 0			
			cseconds = 100
			Sleep 98000

			} else if (curHeatMax = 0) {
			GuiControl, Text, MineNumText, %gseconds%s remaining for next project`n%cseconds%s until next 2cc add.`n`nMaking %counter% of %qty% glass projects`n`nHeat too high, cooling down!
			}

	}



FindRed(TX, TY)
{	
	PixelSearch, PX, PY, TX, TY, TX+1, TY+1, 0x830605, 55, Fast|RGB
	return ErrorLevel
}

MakeGlass:

if (gseconds = 0)
{
WinActivate, eGenesis Client
curHeatMin := FindRed(curHeatMinX, MineY3)
curHeatMax := FindRed(curHeatMaxX, MineY3)
}

;if (gseconds = 0) and (curHeatMin = 0) and (curHeatMax = 1)
if (gseconds = 0) and (curHeatMin = 1) and (curHeatMax = 1)
{
WinActivate, eGenesis Client
MouseGetPos, OldMX, OldMY
Click, %MineX1%, %MineY1% ;Refresh
Sleep 100
Click %MineX2%, %MineY2% ;Make glass project
gseconds := seconds
MouseMove, %OldMX%, %OldMY%, 0			


	if (counter = qty) and (cseconds = 0)
	{
	Msgbox, All done!`n`nExiting script...
	EXIT
	} else {
	counter ++
	}

}

gseconds -- ;glass timer
cseconds -- ;cc timer

if (cseconds < 0)
cseconds = 0

if (gseconds < 0)
gseconds = 0


if (curHeatMin = 0) and (curHeatMax = 1)
{
GuiControl, Text, MineNumText, %gseconds%s remaining for next project`n%cseconds%s until next 2cc add.`n`nMaking %counter% of %qty% glass projects

} else if (curHeatMin = 1) {
GuiControl, Text, MineNumText, %gseconds%s remaining for next project`n%cseconds%s until next 2cc add.`n`nMaking %counter% of %qty% glass projects`n`nHeat too low, standby while the temp increases.
}


sleep 1000
return

^r::reload
^p::Pause