http://www.atitd.org/wiki/t6w/index.php?action=history&feed=atom&title=User%3ACegaiel%2FMacros%2FBricks%2FCode 2026-06-02T16:02:08Z Revision history for this page on the wiki MediaWiki 1.35.2 http://www.atitd.org/wiki/t6w/index.php?title=User:Cegaiel/Macros/Bricks/Code&diff=149003&oldid=prev 2012-02-03T05:18:14Z

<p>Created page with &quot;&lt;pre&gt; ;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 3/17/2010 ;Last Update: 11/14/201...&quot;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> ;Ctrl+P to pause script and Ctrl+P again to resume<br /> ;The AHK icon in system tray will turn red while paused.<br /> ;Ctrl+R to reload script<br /> ;Date 3/17/2010<br /> ;Last Update: 11/14/2010 - Made all GUI's appear on upper left corner, so you do not need to drag out of way, anymore.<br /> <br /> <br /> ;Explanation of Seconds variable below:<br /> <br /> ;If you find the bricks are getting done slightly late:<br /> ;(ie it begins making more bricks before they are done), then add 1 second at a time, below<br /> <br /> ;If you find the bricks are forming before the timer is done,<br /> ;(ie there is 1 or more seconds remaining on timer when bricks get done) then decrease 1 second at a time<br /> <br /> ;It takes about 33 seconds for the bricks to form, but the time it takes from when the first rack is loaded<br /> ;until the time the last one is loaded is the reason that time varies<br /> <br /> <br /> ;About 32s for 6 racks<br /> ;About 28s for 20 racks<br /> ; ? About 25s for 25 racks<br /> ; ? About 16s for 48 racks<br /> <br /> Seconds = 34<br /> <br /> <br /> <br /> <br /> <br /> <br /> IfWinExist eGenesis Client<br /> {<br /> WinActivate<br /> <br /> Gui, Add, Text,, Brick Type:<br /> Gui, Add, DropDownList, vBrick Choose1, Bricks|Firebricks|Clay Bricks<br /> Gui, Add, Button, gRecord, GO<br /> Gui, Show, x0 y25<br /> return<br /> <br /> <br /> Record:<br /> Gui, Submit<br /> Gui, Destroy<br /> Gui, +AlwaysOnTop +ToolWindow<br /> Gui, Font, bold<br /> Gui, Add, Text, vMineNumText, Set brick rack locations<br /> Gui, Font, norm<br /> Gui, Add, Text,,<br /> ( LTrim<br /> Hover and middle-click (Click mouse-wheel) on each rack, one by one,<br /> until you've clicked on all the racks you want to use. Then click the OK button.<br /> <br /> (Drag this box out of the way if any racks are hidden)<br /> <br /> Make sure you chat is minimized and that your screen is locked (Alt+L)<br /> <br /> AFTER setting brick rack locations, Press OK...<br /> <br /> )<br /> <br /> Gui, Add, Button, default gMineSetLoops, OK<br /> Gui, Show, x0 y25<br /> <br /> MineNum = 0<br /> NumPulls = 100<br /> <br /> <br /> <br /> if (Brick == &quot;Bricks&quot;) {<br /> Bricks := &quot;B&quot;<br /> } else if (Brick == &quot;Firebricks&quot;) {<br /> Bricks := &quot;F&quot;<br /> } else if (Brick == &quot;Clay Bricks&quot;) {<br /> Bricks := &quot;C&quot;<br /> }<br /> <br /> <br /> <br /> WinGet, GameWinHandle, ID, eGenesis Client<br /> loop<br /> {<br /> WinActivate<br /> CoordMode, Mouse, Relative<br /> KeyWait, MButton, D<br /> KeyWait, MButton<br /> MouseGetPos, TestX, TestY, WinHandle<br /> if (WinHandle = GameWinHandle)<br /> {<br /> Gosub, MineRecord<br /> }<br /> else<br /> {<br /> Gui, Destroy<br /> break<br /> }<br /> }<br /> return<br /> <br /> MineRecord:<br /> MineNum++<br /> MouseGetPos, MineX%MineNum%, MineY%MineNum%<br /> GuiControl, Text, MineNumText, %MineNum% brick racks captured<br /> TotalRacks := MineNum<br /> return<br /> <br /> <br /> MineSetLoops:<br /> Gui, Submit<br /> Gui, Destroy<br /> Gui, +AlwaysOnTop +ToolWindow<br /> Gui, Font, bold<br /> Gui, Add, Text, vMineCycleText, 5 seconds to drag window out of way<br /> Gui, Font, norm<br /> Gui, Show, x0 y25<br /> GuiControl, Text, MineCycleText, 5 seconds to drag window out of way<br /> <br /> <br /> Delay = 5<br /> ;You got 5 seconds to drag the status window out of the way<br /> Loop, %Delay%<br /> {<br /> GuiControl, Text, MineCycleText, %Delay%s to drag window out of way<br /> Delay --<br /> Sleep 1000<br /> }<br /> <br /> <br /> <br /> SetDefaultMouseSpeed, 0<br /> <br /> <br /> loop, %NumPulls%<br /> {<br /> <br /> <br /> MineNum = 1<br /> MouseGetPos, OldMX, OldMY<br /> <br /> <br /> ;Make Bricks Loop<br /> loop, %TotalRacks% {<br /> <br /> WinActivate, eGenesis Client<br /> <br /> ;BlockInput, MouseMove<br /> GuiControl, Text, MineCycleText, Making Bricks - Rack: %MineNum% <br /> MinePosX := MineX%MineNum%<br /> MinePosY := MineY%MineNum%<br /> MouseMove, %MinePosX%, %MinePosY%, 0<br /> sleep 100<br /> Send {%Bricks%}<br /> Sleep, 100 <br /> MineNum++<br /> }<br /> <br /> <br /> MouseMove, %OldMX%, %OldMY%, 0 <br /> <br /> SecondsCountDown := Seconds<br /> <br /> loop, %Seconds% {<br /> GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for bricks to complete <br /> SecondsCountdown := SecondsCountdown - 1<br /> sleep 1000<br /> }<br /> <br /> MineNum = 1<br /> <br /> <br /> <br /> ;Take Bricks<br /> <br /> loop, %TotalRacks% {<br /> <br /> WinActivate, eGenesis Client<br /> <br /> GuiControl, Text, MineCycleText, Taking Bricks - Rack: %MineNum% <br /> MinePosX := MineX%MineNum%<br /> MinePosY := MineY%MineNum%<br /> MouseMove, %MinePosX%, %MinePosY%, 0<br /> Sleep, 100 <br /> Send {T}<br /> Sleep, 100 <br /> MineNum++<br /> }<br /> <br /> <br /> <br /> <br /> GuiControl, Text, MineCycleText, 2s Pause, Hit Ctrl+P to STOP BRICKS <br /> Sleep 2000<br /> <br /> <br /> }<br /> <br /> <br /> Gui, Destroy<br /> Gui, Add, Text,, Middle-click on this window to end the script.<br /> Gui, Show<br /> return<br /> }<br /> <br /> ^r::reload<br /> ^p::Pause<br /> &lt;/pre&gt;</div>

Cegaiel