|
|
| (2 intermediate revisions by the same user not shown) |
| Line 1: |
Line 1: |
| | + | [[Users:Gemstar/Barley|Bellamoon's Barley Macro]] for ACTool <br> |
| | This was sent to me by Bellamoon. I have cleaned it up and posted here for general use with her permission. | | This was sent to me by Bellamoon. I have cleaned it up and posted here for general use with her permission. |
| − | [[Users:Gemstar/Barley|Bellamoon's Barley Macro]] for ACTool | + | <br><br> |
| − | <pre> | + | [[Users:Gemstar/icongather|Icon Gather Macro]]<br> |
| − | Constants
| + | Great for gathering grass, clay or slate. Have ATITD up in the background so you can see the icon you wish to gather, put your cursor on the icon and press the F2 key to start the macro, then run around gathering. If doing clay, it is wise to have your run point be beyond the clay patch, nothing worse than running out of water and being stuck. If that happens, do a very quick Alt-Tab back into ACTool followed by a very quick Alt to activate the menus so that you can break the macro and move to refill your waterjugs. |
| − | // Insert constants here
| + | <br><br> |
| − | | + | [[Users:Gemstar/paints|Guild Paints]]<br> |
| − | NumberOfLoops = 2 //This is the number of loops, and with luck is the only thing you will
| + | note: currently T3 data as a starting point |
| − | //have to change to suit your own needs. I personally use 8 with +2str
| + | <br><br> |
| − | //(and dex from acro).
| + | [[Users:Gemstar/gearratios|Gearbox Ratios]] |
| − |
| |
| − | SleepTime = 200 //If you're having major problems with lag try moving this to a higher
| |
| − | //number (these are in milliseconds). This delay is used between most
| |
| − | //commands
| |
| − |
| |
| − | MoveSleepTime = 1500 //This is the delay used for when the character is actually moving.
| |
| − | //Again this is in milliseconds, if lag is troubling you, try
| |
| − | //Upping this number.
| |
| − |
| |
| − | LoopWaitTime = 1000 //This is used in the loop to check if it should feed or water the
| |
| − | //barley more. If you Change the times above up or down you may need
| |
| − | //to do the inverse with this in order to not waste fertilizer or
| |
| − | //worse, harvest the barley before it's done.
| |
| − |
| |
| − | | |
| − | XCoordsOfPlantBarley = 973 //If you don't want the barley planting box in the upper right,
| |
| − | //can change this (and the Y value below this).
| |
| − | YCoordsOfPlantBarley = 47 //See above comment
| |
| − | | |
| − | NumToDo = 8 //This is actually equipped to handle doing anywhere between 1 and 8
| |
| − | //patches of barley at a time. Use this to set the number (recommended
| |
| − | //that you use 8, the others have not been extensively tested
| |
| − | | |
| − | | |
| − | varX = 0
| |
| − | varY = 0
| |
| − | Adding = 0
| |
| − | LoopNum = 0
| |
| − | NumberAdded = 0
| |
| − | varColourY = 0
| |
| − | varColourX = 0
| |
| − | varAddX = 0
| |
| − | | |
| − | varOriginalMouseX = 0
| |
| − | varOriginalMouseY = 0
| |
| − | | |
| − | MousePosX = 0
| |
| − | MousePosY = 0
| |
| − | varDelay = 0
| |
| − | | |
| − | End
| |
| − | | |
| − | MousePos 100, 20
| |
| − | Delay 250
| |
| − | LeftClick
| |
| − | | |
| − | call MakeBarley
| |
| − | //call GetPixelAtMouse
| |
| − | | |
| − | | |
| − | Procedure MakeBarley
| |
| − | SetActiveWindow eGenesis Client //On my computer I commented this line because it messes my computer
| |
| − | //up. Try that if you're having issues
| |
| − | loop $NumberOfLoops //How many times to run through the loop. I use 8 usually and have
| |
| − | //carry food going (+2 str, +3 or more dex will do for 8)
| |
| − | //SetConst NumToDo = 5 //Possible to do less than 8 at a time.
| |
| − | //<1 or >8 will break this
| |
| − | //SetConst sleeptime = 200 //How much time to wait
| |
| − | SetConst Adding = 1 //Tells it we're still adding, used in a later Function
| |
| − | SetConst LoopNum = 0 //Which Loop Number we're at. Used in the main loop
| |
| − |
| |
| − | //****** 1 ******
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2 //plant barley spot
| |
| − | loop 1000 //This is a loop because the drag function misses sometimes.
| |
| − | //This keeps trying until it thinks it succeeds
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − |
| |
| − | SetConst varDelay = 1 //Delay is because the game is kinda slow in bringing
| |
| − | //up a window. See RightClick2 function
| |
| − | call RightClick2 // click on barley
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 103, 44 //Drag Barley to appropriate spot
| |
| − | Call SetMousePos
| |
| − | LoadRGB 105, 166 //Load the colours for a location
| |
| − | if {RGBBlue} > 240 //Check for heavy blue to make sure the window
| |
| − | //got where intended
| |
| − | break //If it did, exit this loop
| |
| − | else //otherwise click in a spot in the bottom right to clear the screen
| |
| − | delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | end
| |
| − | end
| |
| − | | |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 198
| |
| − | SetConst MousePosY = 47
| |
| − | call RightClick2 //This pins the window open
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 1
| |
| − | Call TestColourWhich //Go add the fertilizer and water
| |
| − | if $NumToDo > 1 //A statement like this that will be gone through for each number >1
| |
| − | //****** 2 ******
| |
| − |
| |
| − | SetConst MousePosX = 760
| |
| − | SetConst MousePosY = 392
| |
| − | call LeftClick2 //This moves your character so you plant in a new spot
| |
| − | Delay 1500
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | Delay $sleeptime
| |
| − | SetConst varDelay = 1
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | Delay $sleeptime
| |
| − | call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 315, 44
| |
| − | Call SetMousePos
| |
| − | LoadRGB 314, 163
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | end
| |
| − | end
| |
| − | delay $sleeptime
| |
| − | SetConst MousePosX = 411
| |
| − | SetConst MousePosY = 48
| |
| − | call LeftClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 2
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 2
| |
| − | //****** 3 ******
| |
| − | SetConst MousePosX = 760
| |
| − | SetConst MousePosY = 392
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 528, 44
| |
| − | Call SetMousePos
| |
| − | LoadRGB 521, 163
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | end
| |
| − | end
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 621
| |
| − | SetConst MousePosY = 48
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 3
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 3
| |
| − | //****** 4 ******
| |
| − | SetConst MousePosX = 760
| |
| − | SetConst MousePosY = 392
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 740, 44
| |
| − | Call SetMousePos
| |
| − | LoadRGB 753, 163
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | MousePos 743, 611
| |
| − | RightClick
| |
| − | end
| |
| − | end
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 832
| |
| − | SetConst MousePosY = 48
| |
| − | call LeftClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 4
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 4
| |
| − | //****** 5 ******
| |
| − | SetConst MousePosX = 500
| |
| − | SetConst MousePosY = 620
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 105, 265
| |
| − | Call SetMousePos
| |
| − | LoadRGB 135, 382
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | End
| |
| − | End
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 197
| |
| − | SetConst MousePosY = 270
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − |
| |
| − | SetConst NumberAdded = 5
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 5
| |
| − | //****** 6 ******
| |
| − | SetConst MousePosX = 245
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2 //move to left
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2 //Click on Plant Barley
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2 //Click on Barley
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | Delay $sleeptime
| |
| − | DragTo 103, 530 //Drag Window
| |
| − | Call SetMousePos
| |
| − | LoadRGB 92, 665
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | End
| |
| − | end
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 197
| |
| − | SetConst MousePosY = 526
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 6
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 6
| |
| − |
| |
| − | //****** 7 ******
| |
| − | SetConst MousePosX = 245
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | DragTo 316, 530
| |
| − | Call SetMousePos
| |
| − | LoadRGB 308, 665
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | end
| |
| − | end
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 411
| |
| − | SetConst MousePosY = 526
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 7
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | if $NumToDo > 7
| |
| − | //****** 8 ******
| |
| − | SetConst MousePosX = 245
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | SetConst MousePosX = $XCoordsOfPlantBarley
| |
| − | SetConst MousePosY = $YCoordsOfPlantBarley
| |
| − | call RightClick2
| |
| − | loop 1000
| |
| − | SetConst varDelay = 1
| |
| − | SetConst MousePosX = 510
| |
| − | SetConst MousePosY = 425
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | Call GetMousePos
| |
| − | MousePos 610, 330
| |
| − | Delay $sleeptime
| |
| − | DragTo 529, 530
| |
| − | Call SetMousePos
| |
| − | LoadRGB 519, 665
| |
| − | if {RGBBlue} > 240
| |
| − | break
| |
| − | else
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 743
| |
| − | SetConst MousePosY = 611
| |
| − | call RightClick2
| |
| − | end
| |
| − | end
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 621
| |
| − | SetConst MousePosY = 526
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst NumberAdded = 8
| |
| − | Call TestColourWhich
| |
| − | end
| |
| − | SetConst Adding = 0
| |
| − | loop 63 //This is the main loop
| |
| − | SetConst LoopNum = {LoopNo} //Need this variable below so we don't keep
| |
| − | //feeding the early ones
| |
| − | Delay $LoopWaitTime
| |
| − | Call TestColourWhich //Go to the functions to test the colour,
| |
| − | //see if we need to add
| |
| − | //ToolTip, %a_index%
| |
| − | //;send, {BS}
| |
| − | //;send, {BS}
| |
| − | //;send, %a_index%
| |
| − | end
| |
| − | delay $sleeptime
| |
| − |
| |
| − | SetConst MousePosX = 110
| |
| − | SetConst MousePosY = 230
| |
| − | call RightClick2 // harvest
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 190
| |
| − | SetConst MousePosY = 110
| |
| − | Call RightClick2 // close pinned window
| |
| − | Delay $sleeptime
| |
| − |
| |
| − | if $NumToDo > 1
| |
| − | SetConst MousePosX = 325
| |
| − | SetConst MousePosY = 230
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 403
| |
| − | SetConst MousePosY = 108
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 2
| |
| − | SetConst MousePosX = 530
| |
| − | SetConst MousePosY = 230
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 617
| |
| − | SetConst MousePosY = 108
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 3
| |
| − | SetConst MousePosX = 746
| |
| − | SetConst MousePosY = 230
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 829
| |
| − | SetConst MousePosY = 108
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 4
| |
| − | SetConst MousePosX = 110
| |
| − | SetConst MousePosY = 448
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 191
| |
| − | SetConst MousePosY = 327
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 5
| |
| − | SetConst MousePosX = 110
| |
| − | SetConst MousePosY = 718
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 192
| |
| − | SetConst MousePosY = 600
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 6
| |
| − | SetConst MousePosX = 325
| |
| − | SetConst MousePosY = 718
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 403
| |
| − | SetConst MousePosY = 600
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − | if $NumToDo > 7
| |
| − | SetConst MousePosX = 530
| |
| − | SetConst MousePosY = 718
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | SetConst MousePosX = 617
| |
| − | SetConst MousePosY = 600
| |
| − | call RightClick2
| |
| − | Delay $sleeptime
| |
| − | end
| |
| − |
| |
| − | if $NumToDo > 4 //This means we need to go up 1 section as well
| |
| − | SetConst MousePosX = 500
| |
| − | SetConst MousePosY = 167
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | if $NumToDo < 8 //Each of the below is to move back to the left 1 section
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | if $NumToDo < 7
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | if $NumToDo < 6
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | else //4 or below
| |
| − | if $NumToDo > 1 //for each greater than 1, move to the left once
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | if $NumToDo > 2
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | if $NumToDo > 3
| |
| − | SetConst MousePosX = 240
| |
| − | SetConst MousePosY = 393
| |
| − | call LeftClick2
| |
| − | Delay $MoveSleepTime
| |
| − | end
| |
| − | end
| |
| − | end
| |
| − | End
| |
| − | //;*********************************************************** | |
| − | | |
| − | | |
| − | Procedure TestColourWhich //This function figures out which coordinates to call.
| |
| − | //No it is not terribly good code, but this was written first for AutoHotKey
| |
| − | loop $NumberAdded //This is for the water
| |
| − | if {LoopNo} < 5
| |
| − | SetConst varColourY = 164
| |
| − | if {LoopNo} = 1
| |
| − | SetConst varColourX = 179
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} = 2
| |
| − | SetConst varColourX = 391
| |
| − | SetConst varAddX = 408
| |
| − | end
| |
| − | if {LoopNo} = 3
| |
| − | SetConst varColourX = 606
| |
| − | SetConst varAddX = 621
| |
| − | end
| |
| − | if {LoopNo} = 4
| |
| − | SetConst varColourX = 815
| |
| − | SetConst varAddX = 833
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 5
| |
| − | SetConst varColourY = 384
| |
| − | SetConst varColourX = 179
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} > 5
| |
| − | SetConst varColourY = 652
| |
| − | if {LoopNo} = 6
| |
| − | SetConst varColourX = 170
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} = 7
| |
| − | SetConst varColourX = 391
| |
| − | SetConst varAddX = 408
| |
| − | end
| |
| − | if {LoopNo} = 8
| |
| − | SetConst varColourX = 606
| |
| − | SetConst varAddX = 621
| |
| − | end
| |
| − | end
| |
| − | if $adding = 1 //This little section is to click a 2nd time when first planting the barley
| |
| − | if {LoopNo} = $numberadded
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 1
| |
| − | if $LoopNum < 46
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 2
| |
| − | if $LoopNum < 49
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 3
| |
| − | if $LoopNum < 52
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 4
| |
| − | if $LoopNum < 55
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 5
| |
| − | if $LoopNum < 58
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 6
| |
| − | if $LoopNum < 61
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 7
| |
| − | if $LoopNum < 64
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 8
| |
| − | if $LoopNum < 67
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | end
| |
| − | loop $NumberAdded //This is for the fertlizer
| |
| − | if {LoopNo} < 5
| |
| − | SetConst varColourY = 184
| |
| − | if {LoopNo} = 1
| |
| − | SetConst varColourX = 179
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} = 2
| |
| − | SetConst varColourX = 391
| |
| − | SetConst varAddX = 408
| |
| − | end
| |
| − | if {LoopNo} = 3
| |
| − | SetConst varColourX = 606
| |
| − | SetConst varAddX = 621
| |
| − | end
| |
| − | if {LoopNo} = 4
| |
| − | SetConst varColourX = 815
| |
| − | SetConst varAddX = 833
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 5
| |
| − | SetConst varColourY = 404
| |
| − | SetConst varColourX = 179
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} > 5
| |
| − | SetConst varColourY = 673
| |
| − | if {LoopNo} = 6
| |
| − | SetConst varColourX = 170
| |
| − | SetConst varAddX = 197
| |
| − | end
| |
| − | if {LoopNo} = 7
| |
| − | SetConst varColourX = 391
| |
| − | SetConst varAddX = 408
| |
| − | end
| |
| − | if {LoopNo} = 8
| |
| − | SetConst varColourX = 606
| |
| − | SetConst varAddX = 621
| |
| − | end
| |
| − | end
| |
| − | if $adding = 1 //This if block is to make it click a 2nd time when first planting
| |
| − | if {LoopNo} = $numberadded
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 1
| |
| − | if $LoopNum < 43
| |
| − | call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 2
| |
| − | if $LoopNum < 46
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 3
| |
| − | if $LoopNum < 49
| |
| − | call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 4
| |
| − | if $LoopNum < 52
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 5
| |
| − | if $LoopNum < 55
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 6
| |
| − | if $LoopNum < 58
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 7
| |
| − | if $LoopNum < 61
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | if {LoopNo} = 8
| |
| − | if $LoopNum < 64
| |
| − | Call TestColour
| |
| − | end
| |
| − | end
| |
| − | end
| |
| − | end
| |
| − | | |
| − | Procedure TestColour //This actually tests the colours based on the position set in TestColourWhich
| |
| − | LoadRGB $varColourX, $varColourY
| |
| − | if {RGBBlue} > 220 //If it's really high in blue content
| |
| − | else
| |
| − | Call GetMousePos
| |
| − | SetConst MousePosX = $varAddX
| |
| − | SetConst MousePosY = $varColourY
| |
| − | call RightClick2
| |
| − | Call SetMousePos
| |
| − | Delay 100
| |
| − |
| |
| − | end
| |
| − | | |
| − | end
| |
| − | | |
| − | Procedure GetMousePos //find the original coords of the mouse
| |
| − | SetConst varOriginalMouseX = {MouseX}
| |
| − | SetConst varOriginalMouseY = {MouseY}
| |
| − | End
| |
| − | Procedure SetMousePos //set the mouse back where it came from
| |
| − | MousePos $varOriginalMouseX, $varOriginalMouseY
| |
| − | End
| |
| − | | |
| − | Procedure LeftClick2
| |
| − | call GetMousePos
| |
| − | MousePos $MousePosX, $MousePosY
| |
| − | if $varDelay = 1
| |
| − | delay 200
| |
| − | end
| |
| − | LeftClick
| |
| − | //delay 200
| |
| − | SetConst varDelay = 0
| |
| − | Call SetMousePos
| |
| − | End
| |
| − | Procedure RightClick2
| |
| − | Call GetMousePos
| |
| − | MousePos $MousePosX, $MousePosY
| |
| − | if $varDelay = 1
| |
| − | delay 200
| |
| − | end
| |
| − | RightClick
| |
| − | SetConst varDelay = 0
| |
| − | //delay 400
| |
| − | Call SetMousePos
| |
| − | End
| |
| − | | |
| − | | |
| − | Procedure GetPixelAtMouse //This was a test Procedure for finding coordinates and values, etc
| |
| − | //SetActiveWindow eGenesis Client
| |
| − | Loop 1
| |
| − | //SetConst testpixel = 0
| |
| − | | |
| − | //LoadRGB {MouseX}, {MouseY}
| |
| − | //keys {RGBBlue}
| |
| − | keys {MouseX}
| |
| − | keys :
| |
| − | keys {MouseY}
| |
| − | End
| |
| − | End
| |
| − | | |
| − | | |
| − | </pre>
| |
