User:Chet Bastet

// This line is necessary to select the proper window SetActiveWindow Asheron's Call

Constants

 // Insert constants here

NumberOfLoops = 5 //This is the number of loops, and with luck is the only thing you will //have to change to suit your own needs. I personally use 8 with +2str //(and dex from acro).

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 = 8 //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

---

MASTERPIECES - COOKING 4

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Stickler Hedge.
 6 Onions. 1 Oxyrynchus Fish. 1 Peppers. 

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Grilled Fish. 1 Carrot Juice.
 
6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Iron Knot Mushrooms. 1 Verdant Squill. 


6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Abdju Fish. 1 Stickler Hedge. 


6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Honey. 1 Barley (Burnt). 

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Dates. 1 Malt (Burnt).

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Carp Fish. 1 Tilapia Fish.

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Oil. 1 Malt (Medium Roasted).  
1 hour, -2 str,-1 dex, +2 end,-1 focus +2 per

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Dates. 1 Malt (Burnt).
59m34sec -1str,-1dex,1end,-1const,-1 focus,1per

6 Camel Meat. 6 Garlic. 6 Dead Tongue Mushrooms. 1 Dark Ochoa. 1 Oxyrynchus Fish.
 1 Peppers. 6 Carp Fish. 1 Tilapia Fish.  
1hour 1 sec -1 str,-2 dex,-1 end,-1 speed,-1 const,2focus,2per


COOKING 1 Data
6 Mutton. 1 Anansi. 12m32sec 1speed 1focus
13 Mutton. 1 Anansi. 12m 1speed 1focus
6 Cabbage Juice. 1 Black Pepper Plant. 4m33sec 1end 1per
13 Cabbage Juice. 1 Black Pepper Plant. 3m48sec 1end 1per

Base(s)	Additive(s)	STR	DEX	END	SPD	CON	FOC	PER	Duration	Creator
6 Cabbage	1 Barley Burnt	0	1	1	0	0	0	0	less than 1 min	Chet
6 Cabbage	1 Barley dark	0	1	1	0	0	0	0	6 minutes	Chet
6 Cabbage	1 Barley light	0	1	1	0	0	0	0	11 minutes	Chet
6 Cabbage	1 Barley raw	0	1	1	0	0	0	0	4 minutes	Chet
6 Cabbage	1 leek	0	1	1	0	0	0	0	1 minutes	Chet
6 Cabbage	1 honey	0	1	1	0	0	0	0	1 minutes	Chet
6 Cabbage	1 mutton	0	1	1	0	0	0	0	2 minutes	Chet
6 Cabbage	1 grilled onion	0	1	1	0	0	0	0	2 minutes	Chet
6 Cabbage	1 grilled carrots	0	1	1	0	0	0	0	7 minutes	Chet
6 Cabbage	1 sweetgrass	0	1	1	0	0	0	1	9 minutes	Chet
6 Cabbage	1 perch	0	1	1	0	0	1	0	13 minutes	Chet
6 Cabbage	1 wild lettuce	0	1	1	0	0	0	0	9 minutes	Chet
6 Cabbage	1 houseleek	0	1	1	0	0	0	0	10 minutes	Chet
6 garlic	1 barley Burnt	0	0	0	0	1	1	1	5 minutes	Chet
6 garlic	1 barley raw	0	0	0	1	0	1	1	10 minutes	Chet
6 garlic	1 grilled garlic	0	0	1	0	0	1	1	8 minutes	Chet
6 garlic	1 carrot	0	0	0	0	0	0	1	9 minutes	Chet
6 honey	1 barley med	0	0	0	1	0	0	0	10 minutes	Chet
6 honey	1 carrot	1	0	0	1	0	0	1	11 minutes	Chet
6 honey	1 garlic	0	0	0	1	0	0	1	6 minutes	Chet
6 honey	1 leeks	0	1	0	1	1	0	0	12 minutes	Chet
6 honey	1 cabbage	0	0	0	1	0	0	0	1 minutes	Chet
6 honey	1 ashoka	0	0	0	0	1	0	1	10 minutes	Chet
6 carrots	1 leek	1	0	0	0	0	0	1	7 minutes	Chet
6 carrots	1 garlic	1	0	0	0	0	0	1	8 minutes	Chet
6 carrots	1 honey	1	0	0	0	0	0	1	10 minutes	Chet
6 oil	1 garlic	0	0	0	0	1	0	1	5 minutes	Chet
6 oil	1 AC shroom	0	0	0	0	1	0	1	2 minutes	Chet
6 onions	1 bluebottle clover	1	1	0	0	-1	1	0	15 minutes	Chet