Oni. at 18:33, 15 February 2009

2009-02-15T18:33:04Z

Oni.: New page: Starting Position screenie
Image:Firepit.bmp Runs on 1680x1050 only
have Iron Poker on you Put mouse in starting picture from image above *Tab over and start the ma...

2009-02-15T18:30:02Z

New page: *Starting Position screenie Image:Firepit.bmp * Runs on 1680x1050 only *have Iron Poker on you *Put mouse in starting picture from image above *Tab over and start the ma...

New page

*Starting Position screenie 

[[Image:Firepit.bmp]]

* Runs on 1680x1050 only
 
*have [[Iron Poker]] on you
*Put mouse in starting picture from image above
*Tab over and start the macro.
*when you get the menu, Tab back over and light the firepit.
*Tab back to ACTool and click OK
*works best with video settings shown in pic.
 

====Paste the following in to ACTool.====

<Pre>
// FirePit 2

//

Constants
Batch = 0
Job = 0
StartX = 0
StartY = 0
NewX = 0
NewY = 0
Test1 = N
Test2 = N
Test3 = N
Test4 = 0
Test5 = 0
Check = Y
Number = 1
NewNumber = 0
END

SetConst StartX = {MouseX}
SetConst StartY = {MouseY}

Form Stoke, Settings
ed1=Editbox:Batch:50
ed2=ComboBox:Project:Stokes
END

FormLoad Stoke, Stoke.frm

if ShowForm Stoke
set Batch = Stoke[ed1]
case
When Stoke[ed2] = Stokes
set Job = Stokes
End
else
Stop
End

Loop $Batch
Call $Job
End

Procedure Stokes
While $Check = Y
////
Compute NewX = $StartX + 3
Compute NewY = $StartY + 8
MousePos $NewX, $NewY
LoadRGB $NewX, $NewY
delay 50
IF {RGBBlue} > 250
SetConst Test1 = Y
Else
End
Compute NewX = $StartX + 3
Compute NewY = $StartY - 29
MousePos $NewX, $NewY
LoadRGB $NewX, $NewY
delay 50
IF {RGBBlue} > 250
SetConst Test2 = Y
Else
End
Compute NewX = $StartX + 21
Compute NewY = $StartY - 24
MousePos $NewX, $NewY
LoadRGB $NewX, $NewY
delay 50
IF {RGBBlue} > 250
SetConst Test3 = Y
Else
End
////
IF $Test1 = Y and $Test2 = Y and $Test3 = Y
SetConst $Check = N
ELSE
End
END
////

SetConst Test1 = N
SetConst Test2 = N
SetConst Test3 = N
// STOKE
MousePos 94, 55
Delay 100
Leftclick
delay 100
MousePos 83, 90
delay 100
Leftclick
Say $Number
Compute Number = $Number + 1
delay 500
keys {return}
delay 26000
SetConst Check = Y
//
END

</Pre>

@@ Line 6: / Line 6: @@
 <br>
 *have [[Iron Poker]] on you
 *Put mouse in starting picture from image above
 *Tab over and start the macro.
@@ Line 12: / Line 13: @@
 *works best with video settings shown in pic.
 <br>
+* The macro tests 3 spots on the fire, when all 3 spots turn white or RGBblue > 250, it stokes, then waits 26 seconds.
 ====Paste the following in to ACTool.====

User:Oni/firepit - Revision history

Oni. at 18:33, 15 February 2009

Oni.: New page: *Starting Position screenie Image:Firepit.bmp * Runs on 1680x1050 only *have Iron Poker on you *Put mouse in starting picture from image above *Tab over and start the ma...

Oni.: New page: Starting Position screenie
Image:Firepit.bmp Runs on 1680x1050 only
have Iron Poker on you Put mouse in starting picture from image above *Tab over and start the ma...