The Wiki for Tale 6 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "User:Obol/Macros"

From ATITD6
Jump to navigationJump to search
Line 373: Line 373:
 
== Paint.mac ==
 
== Paint.mac ==
 
<pre>
 
<pre>
−
//Paint Macro
+
(*
−
 
+
Paint Macro
−
//Simply change Batch to = the number of paints your want (Have enough supplies on hand)
+
Setup
−
//  Written to handle 6 ingredients but you can add more easily
+
1. Change Batch to the number of paints your want (Have enough supplies on hand)
−
//  Change the Loop on each ingredient to the # of that ingredient you want to add
+
2. Change X, Y values for your screen resolution
−
//  Copy and paste the Call statement of the ingredient you want and put it in the
+
3. Change the Loops and Calls in each PAINT SUBROUTINES to match ingredients for your recipe for that color
−
//  the ingredient slot you want. Just leave the ingedient loop at zero if you dont
+
4. Place a COLOR CALL STATEMENT for each color, **ONLY HAVE 1 CALL STATEMENT UNCOMMENTED AT A TIME**
−
//  want to use that ingredient.
+
5. Uncomment the TestMenuLocations call statement to test the menu coordinates and run script
−
 
+
STARTING MACRO
−
//  Enjoy Anka
+
1. Pin pigment lab menu to top left corner of game window
 +
*)
  
 
Constants
 
Constants
 
   Batch = 1
 
   Batch = 1
−
   MDelay = 100
+
   MDelay = 200
 +
  TESTING = 0
 +
  TESTDelay = 500
 +
 
 +
  TakeX = 16
 +
  TakeY = 91
 +
 
 +
  RibbonX = 68
 +
  RibbonY = 94
 +
 
 +
  CabbageX = 16
 +
  CabbageY = 269
 +
 
 +
  CarrotsX = 16
 +
  CarrotsY = 288
 +
 
 +
  ClayX = 16
 +
  ClayY = 306
 +
 
 +
  DeadX = 16
 +
  DeadY = 324
 +
 
 +
  ToadX = 16
 +
  ToadY = 342
 +
 
 +
  EarthX = 16
 +
  EarthY = 360
 +
 
 +
  RedX = 16
 +
  RedY = 378
 +
 
 +
  LeadX = 16
 +
  LeadY = 396
 +
 
 +
  SilverX = 16
 +
  SilverY = 414
 +
 
 +
  IronX = 16
 +
  IronY = 432
 +
 
 +
  CopperX = 16
 +
  CopperY = 450
 +
 
 +
  SulfurX = 16
 +
  SulfurY = 468
 +
 
 +
  PotashX = 16
 +
  PotashY = 486
 +
 
 +
  LimeX = 16
 +
  LimeY = 504
 +
 
 +
  SaltpeterX = 16
 +
  SaltpeterY = 522
 
End
 
End
  
−
MousePos 78, 45 //Activates eGenesis window.. Don't run ACTool maximized.
+
// ***** MACRO START *****
 +
MousePos 29, 46 //Activates eGenesis window.
 
Delay $MDelay
 
Delay $MDelay
 
LeftClick
 
LeftClick
−
Delay 100
+
Delay $MDelay
 +
 
  
−
Call SandyBrown
+
// ***** COLOR CALL STATEMENTS *****
 +
Call TestMenuLocations
 +
//Call SandyBrown
 
//Call DarkOrange
 
//Call DarkOrange
 
//Call Goldenrod
 
//Call Goldenrod
Line 411: Line 469:
  
 
SetActiveWindow AC Tool 5.4.0 - C:\Macros\Paint.mac
 
SetActiveWindow AC Tool 5.4.0 - C:\Macros\Paint.mac
 +
// ***** MACRO END *****
  
  
 +
// ***** TEST SUBROUTINE *****
 +
Procedure TestMenuLocations
 +
  SetConst TESTING = 1
 +
  Call Take
 +
  //Call MakeRibbon
 +
  Call Cabbage
 +
  Call Carrots
 +
  Call Clay
 +
  Call Dead
 +
  Call Toad
 +
  Call Earth
 +
  Call Red
 +
  Call Lead
 +
  Call Silver
 +
  Call Iron
 +
  Call Copper
 +
  Call Sulfur
 +
  Call Potash
 +
  Call Lime
 +
  Call Saltpeter
 +
End
 +
 +
// ***** PAINT SUBROUTINES *****
 
// 8 Clay, 1 Carrot, 1 Lead, 1 Potash
 
// 8 Clay, 1 Carrot, 1 Lead, 1 Potash
 
Procedure SandyBrown
 
Procedure SandyBrown
 
   Loop $Batch
 
   Loop $Batch
 
     Loop 8              //# of ingredient to add
 
     Loop 8              //# of ingredient to add
−
  Call Clay
+
      Call Clay
−
End
+
    End
 
     Call Carrots
 
     Call Carrots
−
Call Lead
+
    Call Lead
 
     Call Potash
 
     Call Potash
 
   End
 
   End
−
Call Take
+
  Call Take
 
End
 
End
  
  
−
// 1 Clay, 9 Carrot, 1 Potash, 1 Saltpeter  
+
// 1 Clay, 9 Carrot, 1 Potash, 1 Saltpeter
 
Procedure DarkOrange
 
Procedure DarkOrange
 
   Loop $Batch
 
   Loop $Batch
−
  Call Clay
+
    Call Clay
 
     Loop 9              //# of ingredient to add
 
     Loop 9              //# of ingredient to add
−
    Call Carrots
+
      Call Carrots
 
     End
 
     End
−
Call Potash
+
    Call Potash
 
     Call Saltpeter
 
     Call Saltpeter
 
   End
 
   End
−
Call Take
+
  Call Take
 
End
 
End
  
Line 454: Line 536:
 
     End
 
     End
 
   End
 
   End
−
Call MakeRibbon
+
  Call MakeRibbon
 
End
 
End
  
Line 466: Line 548:
 
     Call Carrots
 
     Call Carrots
 
     Call Silver
 
     Call Silver
−
Call Take
+
    Call Take
 
   End
 
   End
 
End
 
End
Line 697: Line 779:
 
End
 
End
  
−
//Call Cabbage
+
// ***** Menu Items *****
−
//Call Carrots
 
−
//Call Clay
 
−
//Call Dead
 
−
//Call Toad
 
−
//Call Earth
 
−
//Call Red
 
−
//Call Lead
 
−
//Call Silver
 
−
//Call Iron
 
−
//Call Copper
 
−
//Call Sulfur
 
−
//Call Potash
 
−
//Call Lime
 
−
//Call Salt
 
−
//Call Saltpeter
 
−
 
 
−
//Yellow Green
 
−
//Loop $Batch
 
−
//  Loop 1              //# of ingredient to add
 
−
///    Call Clay
 
−
//  End
 
−
//  Loop 5              //# of ingredient to add
 
−
//    Call Carrots
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Lead
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Copper
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Silver
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Red
 
−
//  End
 
−
//  Call Take
 
−
//End
 
−
 
 
−
//Sprng Green
 
−
//Loop $Batch
 
−
//  Loop 6              //# of ingredient to add
 
−
//    Call Copper
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Clay
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Silver
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Lime
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Carrots
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Cabbage
 
−
//  End
 
−
//  Call Take
 
−
//End
 
−
 
 
−
 
 
−
//Purple
 
−
//9 Cabbage, 1 Sulfur, 1 Clay
 
−
//Loop $Batch
 
−
//  Loop 9              //# of ingredient to add
 
−
//    Call Cabbage
 
−
// End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Sulfur
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Clay
 
−
//  End
 
−
//  Call Take
 
−
//End
 
−
 
 
−
 
 
−
 
 
−
 
 
−
//White, Navajo
 
−
//1 Copper, 1 Lead, 2 Clay, 6 Carrots, 1 Sulfur
 
−
//Loop $Batch
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Copper
 
−
// End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Lead
 
−
//  End
 
−
//  Loop 2              //# of ingredient to add
 
−
//    Call Clay
 
−
//  End
 
−
//  Loop 6              //# of ingredient to add
 
−
//    Call Carrots
 
−
//  End
 
−
//  Loop 1              //# of ingredient to add
 
−
//    Call Sulfur
 
−
//  End
 
−
//  Call Take
 
−
//End
 
−
 
 
−
 
 
  
 
Procedure Take
 
Procedure Take
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 19, 104
+
   MousePos $TakeX, $TakeY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 10
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure MakeRibbon
 
Procedure MakeRibbon
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
MousePos 68, 94
+
  MousePos $RibbonX, $RibbonY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 10
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Cabbage
 
Procedure Cabbage
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 284
+
   MousePos $CabbageX, $CabbageY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Carrots
 
Procedure Carrots
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 302
+
   MousePos $CarrotsX, $CarrotsY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Clay
 
Procedure Clay
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 319
+
   MousePos $ClayX, $ClayY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Dead
 
Procedure Dead
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 338
+
   MousePos $DeadX, $DeadY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Toad
 
Procedure Toad
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 356
+
   MousePos $ToadX, $ToadY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Earth
 
Procedure Earth
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 374
+
   MousePos $EarthX, $EarthY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Red
 
Procedure Red
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 16, 393
+
   MousePos $RedX, $RedY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Lead
 
Procedure Lead
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 16, 412
+
   MousePos $LeadX, $LeadY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Silver
 
Procedure Silver
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 428
+
   MousePos $SilverX, $SilverY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Iron
 
Procedure Iron
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 447
+
   MousePos $IronX, $IronY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Copper
 
Procedure Copper
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 464
+
   MousePos $CopperX, $CopperY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Sulfur
 
Procedure Sulfur
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 20, 482
+
   MousePos $SulfurX, $SulfurY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Potash
 
Procedure Potash
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 500
+
   MousePos $PotashX, $PotashY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Lime
 
Procedure Lime
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 517
+
   MousePos $LimeX, $LimeY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 
Procedure Saltpeter
 
Procedure Saltpeter
 
   Call CheckforLostFocus
 
   Call CheckforLostFocus
−
   MousePos 17, 535
+
   MousePos $SaltpeterX, $SaltpeterY
−
   Delay 200
+
   If $TESTING = 0
−
   Rightclick
+
    Delay $MDelay
−
   Delay 200
+
    LeftClick
 +
    Delay $MDelay
 +
   Else
 +
    Delay $TESTDelay
 +
   End
 
End
 
End
  
 +
 +
// ***** Kill Script *****
 
Procedure CheckforLostFocus
 
Procedure CheckforLostFocus
 
   If {activewindow} contains AC Tool 5.4.0 - C:\Macros\Paint.mac
 
   If {activewindow} contains AC Tool 5.4.0 - C:\Macros\Paint.mac

Revision as of 15:31, 1 May 2012

ClaySlateV2.mac

1. Change the path in the CheckforLostFocus function to match where you saved the macro 


//General purpose grass, slate and clay collector.  Works best without water jugs
//or a fishing pole.  To begin, hover your mouse over the icon
//you wish to collect in ATITD (i.e. be over a patch of clay or a piece of
//slate and have this program active.  Press F2, and the macro will start.
Constants
  clay = 0
  Red = 0
  Green = 0
  Blue = 0
  XPos = 0
  YPos = 0
  CurrKey = 0
  OrigX = 0
  OrigY = 0
  
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}
Rightclick


While $CheckforLostFocus = 0
  GetRed  $XPos, $YPos = $Red
    GetGreen  $XPos, $YPos = $Green
      GetBlue  $XPos, $YPos = $Blue
        Set OrigX = {mousex}
        Set OrigY = {Mousey}
        MousePos $XPos, $YPos
        //delay 10
        if $clay = 1
          delay 150
        end
        RightClick
        
        MousePos $OrigX, $OrigY
        if $clay = 0
          delay 150
        end
      End
    End
  End
  Delay 60 //190
End

Function CheckforLostFocus
  if {activewindow} contains AC Tool 5.4.0 - C:\ACTool\Macros\ClaySlateV2.mac
    Compute Result = 1
    Exit
  Else
    Compute Result = 0
    Exit
  End
End


Clicker.mac

1. Change the path in the CheckforLostFocus function to match where you saved the macro
2. Use object mapper to map the To Tired OK button 

constants
  MouseX = 0
  MouseY = 0
  XOrig = 0
  YOrig = 0
  looping = 0
  wait4Timer = 2400 //6000 //10000 //23000 //15250
  add2Wait = 3000
  reduceWait = 500
end


SetConst MouseX = {MouseX}
SetConst MouseY = {MouseY}

MousePos 873, 593
Delay 150
RightClick
MousePos 873, 593
Delay 100

while $CheckforLostFocus = 0
  Call GoPick
End

MousePos 100, 100
Delay 100
Stop

Procedure GoPick
  SetConst XOrig = {mousex}
  SetConst YOrig = {mousey}
  MousePos $MouseX, $MouseY
  Delay 250
  Rightclick
  Delay 200
  
  // uh oh, dialog about being to tired
  IsObject ToTired at 935, 639
    // ok button
    MousePos 958, 647
    Compute $wait4Timer = $wait4Timer + $add2Wait //1000
    // make them wait double time this time
  	Delay $wait4Timer
  	// close dialog
    MousePos 958, 647
    If $CheckforLostFocus = 0
    	Rightclick
    End
    
    // reset mouse pointer
    Mousepos $XOrig, $YOrig
	Else
		// reduce wait time if no dialog
    Compute $wait4Timer = $wait4Timer - $reduceWait //75
  End
  
  Mousepos $XOrig, $YOrig
  Delay $wait4Timer
End

Function CheckforLostFocus
  if {activewindow} contains AC Tool 5.4.0 - C:\ACTool\Macros\aPicker.mac
    Compute Result = 1
    exit
  Else
    Compute Result = 0
    Exit
    //Stop
  End
End

Object ToTired   // Test at coords 935, 639
192=0,0|249=1,0|250=2,0|250=3,0|250=4,0|250=5,0|250=6,0|250=7,0|250=8,0|250=9,0|250=10,0|250=11,0|250=12,0|250=13,0|250=14,0|249=15,0|249=16,0|250=17,0|250=18,0|249=19,0|250=20,0|249=21,0|248=22,0|249=23,0|250=24,0|249=25,0|248=26,0|249=27,0|250=28,0|249=29,0|249=30,0|249=31,0|250=32,0|249=33,0|249=34,0|250=35,0|250=36,0|249=37,0|250=38,0|250=39,0|250=40,0|250=41,0|249=42,0|250=43,0|250=44,0|250=45,0|249=46,0|250=47,0|33=48,0|
191=0,1|249=1,1|242=2,1|241=3,1|242=4,1|242=5,1|242=6,1|241=7,1|241=8,1|242=9,1|242=10,1|241=11,1|242=12,1|241=13,1|242=14,1|238=15,1|240=16,1|242=17,1|242=18,1|240=19,1|241=20,1|239=21,1|238=22,1|239=23,1|240=24,1|239=25,1|238=26,1|239=27,1|239=28,1|240=29,1|241=30,1|241=31,1|242=32,1|241=33,1|242=34,1|242=35,1|242=36,1|241=37,1|242=38,1|241=39,1|241=40,1|241=41,1|240=42,1|242=43,1|242=44,1|242=45,1|242=46,1|87=47,1|33=48,1|
192=0,2|249=1,2|242=2,2|235=3,2|235=4,2|237=5,2|231=6,2|233=7,2|235=8,2|235=9,2|233=10,2|233=11,2|234=12,2|235=13,2|237=14,2|228=15,2|232=16,2|234=17,2|235=18,2|231=19,2|232=20,2|229=21,2|230=22,2|231=23,2|234=24,2|230=25,2|229=26,2|231=27,2|231=28,2|232=29,2|233=30,2|233=31,2|233=32,2|233=33,2|231=34,2|234=35,2|234=36,2|234=37,2|233=38,2|233=39,2|233=40,2|233=41,2|230=42,2|235=43,2|234=44,2|233=45,2|140=46,2|87=47,2|33=48,2|
194=0,3|249=1,3|241=2,3|233=3,3|225=4,3|227=5,3|222=6,3|222=7,3|223=8,3|227=9,3|222=10,3|222=11,3|222=12,3|225=13,3|227=14,3|217=15,3|223=16,3|221=17,3|227=18,3|223=19,3|222=20,3|217=21,3|216=22,3|219=23,3|222=24,3|220=25,3|217=26,3|221=27,3|222=28,3|224=29,3|226=30,3|222=31,3|222=32,3|225=33,3|224=34,3|228=35,3|227=36,3|226=37,3|225=38,3|225=39,3|226=40,3|226=41,3|222=42,3|228=43,3|228=44,3|199=45,3|140=46,3|87=47,3|33=48,3|
193=0,4|249=1,4|242=2,4|237=3,4|226=4,4|223=5,4|221=6,4|222=7,4|220=8,4|226=9,4|215=10,4|219=11,4|220=12,4|221=13,4|221=14,4|213=15,4|219=16,4|217=17,4|222=18,4|219=19,4|219=20,4|211=21,4|211=22,4|215=23,4|218=24,4|215=25,4|211=26,4|217=27,4|215=28,4|219=29,4|219=30,4|218=31,4|219=32,4|220=33,4|220=34,4|224=35,4|220=36,4|220=37,4|222=38,4|221=39,4|220=40,4|223=41,4|219=42,4|226=43,4|224=44,4|197=45,4|139=46,4|86=47,4|33=48,4|
188=0,5|249=1,5|242=2,5|237=3,5|224=4,5|222=5,5|222=6,5|221=7,5|217=8,5|221=9,5|217=10,5|220=11,5|223=12,5|221=13,5|222=14,5|215=15,5|217=16,5|217=17,5|223=18,5|218=19,5|217=20,5|214=21,5|212=22,5|217=23,5|217=24,5|215=25,5|212=26,5|218=27,5|215=28,5|219=29,5|222=30,5|222=31,5|220=32,5|220=33,5|222=34,5|224=35,5|221=36,5|221=37,5|220=38,5|222=39,5|222=40,5|226=41,5|220=42,5|224=43,5|223=44,5|199=45,5|140=46,5|87=47,5|33=48,5|
188=0,6|249=1,6|242=2,6|235=3,6|225=4,6|221=5,6|223=6,6|221=7,6|220=8,6|220=9,6|217=10,6|221=11,6|226=12,6|222=13,6|221=14,6|215=15,6|217=16,6|221=17,6|221=18,6|217=19,6|215=20,6|215=21,6|212=22,6|215=23,6|215=24,6|214=25,6|210=26,6|215=27,6|215=28,6|218=29,6|217=30,6|216=31,6|218=32,6|220=33,6|220=34,6|220=35,6|223=36,6|217=37,6|220=38,6|221=39,6|223=40,6|223=41,6|220=42,6|224=43,6|227=44,6|197=45,6|140=46,6|85=47,6|33=48,6|
191=0,7|249=1,7|242=2,7|235=3,7|224=4,7|222=5,7|223=6,7|222=7,7|221=8,7|224=9,7|218=10,7|222=11,7|227=12,7|222=13,7|217=14,7|213=15,7|216=16,7|219=17,7|222=18,7|216=19,7|211=20,7|215=21,7|213=22,7|214=23,7|216=24,7|215=25,7|214=26,7|218=27,7|220=28,7|223=29,7|222=30,7|221=31,7|221=32,7|220=33,7|221=34,7|221=35,7|226=36,7|217=37,7|222=38,7|221=39,7|223=40,7|222=41,7|223=42,7|223=43,7|224=44,7|199=45,7|142=46,7|86=47,7|33=48,7|
188=0,8|249=1,8|242=2,8|235=3,8|223=4,8|222=5,8|224=6,8|220=7,8|223=8,8|227=9,8|221=10,8|223=11,8|226=12,8|223=13,8|218=14,8|215=15,8|214=16,8|222=17,8|111=18,8|0=19,8|0=20,8|0=21,8|0=22,8|107=23,8|215=24,8|217=25,8|0=26,8|0=27,8|219=28,8|220=29,8|168=30,8|0=31,8|55=32,8|220=33,8|223=34,8|224=35,8|227=36,8|217=37,8|223=38,8|221=39,8|226=40,8|222=41,8|222=42,8|222=43,8|224=44,8|199=45,8|144=46,8|87=47,8|34=48,8|
188=0,9|249=1,9|242=2,9|235=3,9|224=4,9|221=5,9|227=6,9|219=7,9|220=8,9|224=9,9|223=10,9|223=11,9|221=12,9|221=13,9|220=14,9|217=15,9|212=16,9|110=17,9|0=18,9|109=19,9|213=20,9|215=21,9|107=22,9|0=23,9|107=24,9|218=25,9|0=26,9|0=27,9|217=28,9|163=29,9|0=30,9|55=31,9|223=32,9|221=33,9|227=34,9|227=35,9|228=36,9|220=37,9|224=38,9|220=39,9|224=40,9|220=41,9|223=42,9|223=43,9|226=44,9|199=45,9|142=46,9|86=47,9|34=48,9|
187=0,10|249=1,10|244=2,10|237=3,10|226=4,10|222=5,10|226=6,10|220=7,10|223=8,10|224=9,10|220=10,10|222=11,10|221=12,10|221=13,10|220=14,10|218=15,10|212=16,10|0=17,10|0=18,10|162=19,10|214=20,10|218=21,10|161=22,10|0=23,10|0=24,10|218=25,10|0=26,10|0=27,10|167=28,10|0=29,10|54=30,10|220=31,10|223=32,10|220=33,10|227=34,10|226=35,10|227=36,10|220=37,10|224=38,10|220=39,10|224=40,10|222=41,10|224=42,10|224=43,10|227=44,10|199=45,10|141=46,10|87=47,10|33=48,10|
191=0,11|249=1,11|244=2,11|237=3,11|227=4,11|221=5,11|224=6,11|222=7,11|223=8,11|227=9,11|217=10,11|220=11,11|220=12,11|222=13,11|220=14,11|213=15,11|214=16,11|0=17,11|0=18,11|216=19,11|215=20,11|218=21,11|218=22,11|0=23,11|0=24,11|217=25,11|0=26,11|0=27,11|0=28,11|55=29,11|220=30,11|222=31,11|224=32,11|220=33,11|223=34,11|227=35,11|227=36,11|223=37,11|224=38,11|224=39,11|228=40,11|226=41,11|227=42,11|226=43,11|228=44,11|200=45,11|140=46,11|88=47,11|34=48,11|
191=0,12|249=1,12|244=2,12|235=3,12|224=4,12|223=5,12|224=6,12|222=7,12|226=8,12|228=9,12|222=10,12|220=11,12|217=12,12|222=13,12|220=14,12|214=15,12|217=16,12|0=17,12|0=18,12|217=19,12|217=20,12|219=21,12|217=22,12|0=23,12|0=24,12|218=25,12|0=26,12|0=27,12|0=28,12|166=29,12|215=30,12|218=31,12|220=32,12|219=33,12|220=34,12|223=35,12|227=36,12|226=37,12|224=38,12|223=39,12|228=40,12|224=41,12|224=42,12|223=43,12|227=44,12|199=45,12|138=46,12|87=47,12|33=48,12|
191=0,13|249=1,13|243=2,13|235=3,13|226=4,13|224=5,13|222=6,13|222=7,13|222=8,13|228=9,13|223=10,13|219=11,13|219=12,13|217=13,13|219=14,13|215=15,13|218=16,13|0=17,13|0=18,13|217=19,13|215=20,13|215=21,13|215=22,13|0=23,13|0=24,13|217=25,13|0=26,13|0=27,13|54=28,13|0=29,13|163=30,13|215=31,13|219=32,13|220=33,13|220=34,13|222=35,13|223=36,13|223=37,13|222=38,13|223=39,13|223=40,13|227=41,13|223=42,13|223=43,13|228=44,13|200=45,13|140=46,13|87=47,13|33=48,13|
191=0,14|250=1,14|242=2,14|235=3,14|227=4,14|224=5,14|220=6,14|219=7,14|218=8,14|227=9,14|223=10,14|218=11,14|220=12,14|215=13,14|220=14,14|215=15,14|218=16,14|0=17,14|0=18,14|163=19,14|215=20,14|214=21,14|160=22,14|0=23,14|0=24,14|216=25,14|0=26,14|0=27,14|217=28,14|55=29,14|0=30,14|220=31,14|220=32,14|220=33,14|220=34,14|223=35,14|222=36,14|224=37,14|219=38,14|222=39,14|219=40,14|224=41,14|219=42,14|224=43,14|226=44,14|199=45,14|140=46,14|87=47,14|33=48,14|
190=0,15|249=1,15|242=2,15|235=3,15|223=4,15|221=5,15|220=6,15|220=7,15|218=8,15|226=9,15|223=10,15|215=11,15|221=12,15|217=13,15|220=14,15|218=15,15|221=16,15|109=17,15|0=18,15|108=19,15|212=20,15|212=21,15|106=22,15|0=23,15|107=24,15|215=25,15|0=26,15|0=27,15|217=28,15|166=29,15|0=30,15|54=31,15|221=32,15|218=33,15|219=34,15|223=35,15|226=36,15|226=37,15|219=38,15|222=39,15|220=40,15|224=41,15|220=42,15|226=43,15|224=44,15|200=45,15|142=46,15|85=47,15|33=48,15|
189=0,16|250=1,16|241=2,16|233=3,16|223=4,16|222=5,16|220=6,16|220=7,16|220=8,16|226=9,16|221=10,16|215=11,16|222=12,16|216=13,16|219=14,16|220=15,16|221=16,16|215=17,16|110=18,16|0=19,16|0=20,16|0=21,16|0=22,16|106=23,16|214=24,16|218=25,16|0=26,16|0=27,16|218=28,16|224=29,16|166=30,16|0=31,16|55=32,16|221=33,16|222=34,16|223=35,16|224=36,16|223=37,16|218=38,16|224=39,16|224=40,16|227=41,16|222=42,16|227=43,16|227=44,16|200=45,16|142=46,16|84=47,16|33=48,16|
187=0,17|250=1,17|242=2,17|237=3,17|226=4,17|223=5,17|223=6,17|223=7,17|221=8,17|228=9,17|224=10,17|216=11,17|224=12,17|220=13,17|221=14,17|220=15,17|221=16,17|218=17,17|221=18,17|218=19,17|207=20,17|215=21,17|207=22,17|212=23,17|212=24,17|218=25,17|218=26,17|218=27,17|219=28,17|221=29,17|220=30,17|217=31,17|223=32,17|218=33,17|219=34,17|222=35,17|224=36,17|224=37,17|220=38,17|223=39,17|224=40,17|226=41,17|223=42,17|227=43,17|227=44,17|197=45,17|142=46,17|84=47,17|33=48,17|
189=0,18|250=1,18|244=2,18|235=3,18|227=4,18|223=5,18|227=6,18|223=7,18|223=8,18|228=9,18|223=10,18|217=11,18|223=12,18|220=13,18|224=14,18|221=15,18|219=16,18|220=17,18|223=18,18|217=19,18|210=20,18|219=21,18|209=22,18|211=23,18|207=24,18|220=25,18|219=26,18|222=27,18|220=28,18|223=29,18|220=30,18|216=31,18|222=32,18|218=33,18|219=34,18|223=35,18|227=36,18|222=37,18|222=38,18|223=39,18|226=40,18|227=41,18|226=42,18|227=43,18|226=44,18|200=45,18|142=46,18|85=47,18|33=48,18|
188=0,19|250=1,19|244=2,19|233=3,19|225=4,19|219=5,19|224=6,19|221=7,19|226=8,19|226=9,19|217=10,19|216=11,19|222=12,19|219=13,19|223=14,19|221=15,19|216=16,19|219=17,19|218=18,19|211=19,19|206=20,19|217=21,19|210=22,19|211=23,19|209=24,19|215=25,19|217=26,19|219=27,19|221=28,19|221=29,19|221=30,19|216=31,19|222=32,19|216=33,19|219=34,19|221=35,19|226=36,19|221=37,19|221=38,19|222=39,19|222=40,19|226=41,19|224=42,19|223=43,19|226=44,19|200=45,19|142=46,19|84=47,19|33=48,19|
188=0,20|249=1,20|242=2,20|231=3,20|190=4,20|190=5,20|195=6,20|192=7,20|196=8,20|195=9,20|185=10,20|187=11,20|191=12,20|189=13,20|191=14,20|191=15,20|187=16,20|191=17,20|189=18,20|179=19,20|177=20,20|184=21,20|179=22,20|180=23,20|182=24,20|184=25,20|189=26,20|189=27,20|189=28,20|192=29,20|193=30,20|189=31,20|194=32,20|191=33,20|193=34,20|195=35,20|199=36,20|196=37,20|196=38,20|193=39,20|197=40,20|199=41,20|196=42,20|196=43,20|196=44,20|199=45,20|140=46,20|84=47,20|33=48,20|
187=0,21|249=1,21|240=2,21|135=3,21|135=4,21|137=5,21|140=6,21|138=7,21|140=8,21|139=9,21|133=10,21|135=11,21|136=12,21|137=13,21|137=14,21|137=15,21|135=16,21|136=17,21|135=18,21|130=19,21|128=20,21|130=21,21|129=22,21|129=23,21|130=24,21|130=25,21|134=26,21|135=27,21|136=28,21|137=29,21|137=30,21|135=31,21|138=32,21|136=33,21|135=34,21|137=35,21|140=36,21|137=37,21|138=38,21|137=39,21|141=40,21|140=41,21|140=42,21|140=43,21|140=44,21|144=45,21|138=46,21|84=47,21|33=48,21|
191=0,22|249=1,22|86=2,22|84=3,22|84=4,22|84=5,22|85=6,22|85=7,22|87=8,22|86=9,22|84=10,22|85=11,22|84=12,22|85=13,22|84=14,22|83=15,22|83=16,22|84=17,22|84=18,22|79=19,22|80=20,22|80=21,22|79=22,22|80=23,22|80=24,22|79=25,22|81=26,22|82=27,22|82=28,22|83=29,22|82=30,22|82=31,22|85=32,22|84=33,22|83=34,22|84=35,22|86=36,22|84=37,22|84=38,22|84=39,22|85=40,22|85=41,22|85=42,22|84=43,22|85=44,22|87=45,22|83=46,22|82=47,22|32=48,22|
End Object


VEGGIES.mac

(* 
	This macro plants up to 12 vegtables in a NxN grid.
 	Note: IT WILL NOT WATER THE VEG FOR YOU JUST PLANT THEM.

 	Usage:
 	Pin Plant menu where you want and place mouse over the veg that
 		you want to plant then press the F2
 	Remember to adjust seeds and dist for your specific veg in inv
 		recomend values for dist:
 		onions = 4, cabbage = 6.
	Options->One-Click and Related->Plant all crops where you stand->0ff
*)
Constants
  //User define variables
  seeds = 6 // Number of veg to plant
  dist = 7   // distance between veg (clicks on small movment) defult 4
  
  // NON user defined variables
  // button positions
  vegX = 0
  vegY = 0
  ulx = 45
  uly = 85
  lx = 36
  ly = 100
  dlx = 45
  dly = 115
  ux = 60
  uy = 78
  urx = 76
  ury = 85
  rx = 81
  ry = 100
  drx = 76
  dry = 115
  dx = 60
  dy = 125
  plantX = 26
  plantY = 162
  locX = 0
  locY = 0

  varOriginalMouseX = 0
  varOriginalMouseY = 0

end
//selects the veg
delay 20
setconst vegX = {mousex}
setconst vegY = {mousey}
MousePos $vegX, $vegY
delay 20
call main
delay 20
MousePos 954, 539

procedure main
  loop $seeds
    mousepos $vegX, $vegY
    delay 20
    rightclick
    delay 50
    if {loopno} = 1
      setconst locX = $ulx
      setconst locY = $uly
    end
    if {loopno} = 2
      setconst locX = $lx
      setconst locY = $ly
    end
    if {loopno} = 3
      setconst locX = $dlx
      setconst locY = $dly
    end
    if {loopno} = 4
      setconst locX = $ux
      setconst locY = $uy
    end
    if {loopno} = 5
       setconst locX = 12
       setconst locY = 71
    end
    if {loopno} = 6
      setconst locX = $dx
      setconst locY = $dy
    end
    if {loopno} = 7
      setconst locX = $urx
      setconst locY = $ury
    end
    if {loopno} = 8
      setconst locX = $rx
      setconst locY = $ry
    end
    if {loopno} = 9
      setconst locX = $drx
      setconst locY = $dry
    end
    if {loopno} = 10
      call rightshift
      setconst locX = $urx
      setconst locY = $ury
    end
    if {loopno} = 11
      call rightshift
      setconst locX = $rx
      setconst locY = $ry
    end
    if {loopno} = 12
      call rightshift
      setconst locX = $drx
      setconst locY = $dry
    end
    call plant
    delay 200
  end

//	Call CheckPlant
	
	Bell asterisk

end

procedure rightshift
  loop $dist
    mousepos $rx, $ry
    delay 20
    rightclick
  end
  delay 20
end

procedure plant
  loop $dist
    MousePos $locX, $locY
    delay 20
    rightclick
  end
  delay 20
  mousepos $plantX, $plantY
  delay 20
  rightclick
  delay 50
end

Procedure CheckPlant
  setconst varOriginalMouseX = {mousex}
  setconst varOriginalMouseY = {mousey}
  Compute NewY = $varOriginalMouseY
  Loop 15
    if $CheckforLostFocus = 0
      RightClick
      Delay 400
      LoadRGB {MouseX}, {MouseY}
      if {RGBBlue} > 220
        Compute NewX = {mousex} + 145
        Compute NewY = {mousey} - 23
        MousePos $NewX, $NewY
        Delay 200
        Leftclick
        Compute NewX = {mousex} - 145
        MousePos $NewX, $NewY
        
        if $Onion > 8
          Dragto $ODragX, $ODragY
          Compute ODragY = $ODragY + 60
        End
        if $Onion = 5 or $Onion = 6 or $Onion = 7 or $Onion = 8
          Dragto $ODragX, $ODragY
          Compute ODragY = $ODragY + 60
        End
        If $Onion = 2 or $Onion = 3 or $Onion = 4
          Dragto $ODragX, $ODragY
          Compute ODragY = $ODragY + 60
        End
        if $Onion = 1
          Dragto $ODragX, $ODragY
          Compute ODragY = $ODragY + 60
        End
        Compute Onion = $Onion + 1
        If $Onion = 5
          SetConst ODragY = 90
          Compute ODragX = $ODragX + 168
        End
        If $Onion = 9
          SetConst ODragY = 90
          Compute ODragX = $ODragX + 168
        END
        Break
      Else
        Compute Oy = $Oy + 1
        MousePos $varOriginalMouseX, $Oy
        Delay 200
      End
    End
  End
End


Paint.mac

(*
Paint Macro
Setup
1. Change Batch to the number of paints your want (Have enough supplies on hand)
2. Change X, Y values for your screen resolution
3. Change the Loops and Calls in each PAINT SUBROUTINES to match ingredients for your recipe for that color
4. Place a COLOR CALL STATEMENT for each color, **ONLY HAVE 1 CALL STATEMENT UNCOMMENTED AT A TIME**
5. Uncomment the TestMenuLocations call statement to test the menu coordinates and run script
STARTING MACRO
1. Pin pigment lab menu to top left corner of game window
*)

Constants
  Batch = 1
  MDelay = 200
  TESTING = 0
  TESTDelay = 500
  
  TakeX = 16
  TakeY = 91
  
  RibbonX = 68
  RibbonY = 94
  
  CabbageX = 16
  CabbageY = 269
  
  CarrotsX = 16
  CarrotsY = 288
  
  ClayX = 16
  ClayY = 306
  
  DeadX = 16
  DeadY = 324
  
  ToadX = 16
  ToadY = 342
  
  EarthX = 16
  EarthY = 360
  
  RedX = 16
  RedY = 378
  
  LeadX = 16
  LeadY = 396
  
  SilverX = 16
  SilverY = 414
  
  IronX = 16
  IronY = 432
  
  CopperX = 16
  CopperY = 450
  
  SulfurX = 16
  SulfurY = 468
  
  PotashX = 16
  PotashY = 486
  
  LimeX = 16
  LimeY = 504
  
  SaltpeterX = 16
  SaltpeterY = 522
End

// ***** MACRO START *****
MousePos 29, 46 //Activates eGenesis window.
Delay $MDelay
LeftClick
Delay $MDelay


// ***** COLOR CALL STATEMENTS *****
Call TestMenuLocations
//Call SandyBrown
//Call DarkOrange
//Call Goldenrod
//Call SkyBlue
//Call DeepSkyBlue
//Call SlateBlue
//Call Tomato
//Call Violet
//Call LightSeaGreen
//Call ForestGreen
//Call SpringGreen
//Call Yellow
//Call Turquoise
//Call BlueViolet
//Call Crimson

SetActiveWindow AC Tool 5.4.0 - C:\Macros\Paint.mac
// ***** MACRO END *****


// ***** TEST SUBROUTINE *****
Procedure TestMenuLocations
  SetConst TESTING = 1
  Call Take
  //Call MakeRibbon
  Call Cabbage
  Call Carrots
  Call Clay
  Call Dead
  Call Toad
  Call Earth
  Call Red
  Call Lead
  Call Silver
  Call Iron
  Call Copper
  Call Sulfur
  Call Potash
  Call Lime
  Call Saltpeter
End

// ***** PAINT SUBROUTINES *****
// 8 Clay, 1 Carrot, 1 Lead, 1 Potash
Procedure SandyBrown
  Loop $Batch
    Loop 8              //# of ingredient to add
      Call Clay
    End
    Call Carrots
    Call Lead
    Call Potash
  End
  Call Take
End


// 1 Clay, 9 Carrot, 1 Potash, 1 Saltpeter
Procedure DarkOrange
  Loop $Batch
    Call Clay
    Loop 9              //# of ingredient to add
      Call Carrots
    End
    Call Potash
    Call Saltpeter
  End
  Call Take
End


// 6 Copper, 2 Silver, 2 Clay
Procedure LightSeaGreen
  Loop $Batch
    Loop 6              //# of ingredient to add
      Call Copper
    End
    Loop 2              //# of ingredient to add
      Call Silver
    End
    Loop 2              //# of ingredient to add
      Call Clay
    End
  End
  Call MakeRibbon
End

// 7 Clay, 1 Lead, 1 Carrot, 1 Silver
Procedure Goldenrod
  Loop $Batch
    Loop 7              //# of ingredient to add
      Call Clay
    End
    Call Lead
    Call Carrots
    Call Silver
    Call Take
  End
End

//1 Copper, 1 Silver, 1 Saltpeter, 1 Clay, 1 Sulfur, 7 Cabbage
Procedure SkyBlue
  Loop $Batch
    Call Copper
    Call Silver
    Call Saltpeter
    Call Clay
    Call Sulfur
    Loop 7              //# of ingredient to add
      Call Cabbage
    End
    Call Take
  End
End

//5 RedSand, 4 Carrot, 1 DeadTongue
Procedure Crimson
  Loop $Batch
    Loop 5              //# of ingredient to add
      Call Red
    End
    Loop 4              //# of ingredient to add
      Call Carrots
    End
    Loop 1              //# of ingredient to add
      Call Dead
    End
    Call Take
  End
End

//8 Cabbage, 1 Lead, 1 Saltpeter, 1 Clay,
Procedure BlueViolet
  Loop $Batch
    Loop 8              //# of ingredient to add
      Call Cabbage
    End
    Loop 1              //# of ingredient to add
      Call Lead
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 1              //# of ingredient to add
      Call Clay
    End
  End
End

//1 Carrot, 1 Saltpeter, 6 Copper, 1 Clay, 1 Silver, 1 Cabbage
Procedure Turquoise
  Loop $Batch
    Loop 1              //# of ingredient to add
      Call Carrots
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 6              //# of ingredient to add
      Call Copper
    End
    Loop 1              //# of ingredient to add
      Call Clay
    End
    Loop 1              //# of ingredient to add
      Call Silver
    End
    Loop 1              //# of ingredient to add
      Call Cabbage
    End
    Call Take
  End
End

//Green, Sprng
//6 Copper, 1 Clay, 1 Silver, 1 Lime, 1 Carrot, 1 Cabbage
Procedure SpringGreen
  Loop $Batch
    Loop 6              //# of ingredient to add
      Call Copper
    End
    Loop 1              //# of ingredient to add
      Call Clay
    End
    Loop 1              //# of ingredient to add
      Call Silver
    End
    Loop 1              //# of ingredient to add
      Call Lime
    End
    Loop 1              //# of ingredient to add
      Call Carrots
    End
    Loop 1              //# of ingredient to add
      Call Cabbage
    End
    Call Take
  End
End

//Blue, Deep Sky
//1 Silver, 1 Saltpeter, 8 Copper, 1 Clay
Procedure DeepSkyBlue
  Loop $Batch
    Loop 1              //# of ingredient to add
      Call Silver
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 8              //# of ingredient to add
      Call Copper
    End
    Loop 1              //# of ingredient to add
      Call Clay
    End
    Call Take
  End
End

//Blue, Slate
//6 Cabbage, 1 Saltpeter, 4 Clay
Procedure SlateBlue
  Loop $Batch
    Loop 6              //# of ingredient to add
      Call Cabbage
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 4              //# of ingredient to add
      Call Clay
    End
    Call Take
  End
End

//Tomato
//1 Clay, 8 Carrots, 1 Sulfur, 1 Potash, 1 Lime, 1 Cabbage
Procedure Tomato
  Loop $Batch
    Loop 1              //# of ingredient to add
      Call Clay
    End
    Loop 8              //# of ingredient to add
      Call Carrots
    End
    Loop 1              //# of ingredient to add
      Call Sulfur
    End
    Loop 1              //# of ingredient to add
      Call Potash
    End
    Loop 1              //# of ingredient to add
      Call Lime
    End
    Loop 1              //# of ingredient to add
      Call Cabbage
    End
    Call Take
  End
End

//Violet
//8 Cabbage, 1 Sulfur, 1 Potash, 1 Carrots, 1 Lead
Procedure Violet
  Loop $Batch
    Loop 8              //# of ingredient to add
      Call Cabbage
    End
    Loop 1              //# of ingredient to add
      Call Sulfur
    End
    Loop 1              //# of ingredient to add
      Call Potash
    End
    Loop 1              //# of ingredient to add
      Call Carrots
    End
    Loop 1              //# of ingredient to add
      Call Lead
    End
    Call Take
  End
End


Procedure ForestGreen
  Loop $Batch
    Loop 4              //# of ingredient to add
      Call Lead
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 6              //# of ingredient to add
      Call Silver
    End
    Call Take
  End
End

//Yellow
Procedure Yellow
  Loop $Batch
    Loop 1              //# of ingredient to add
      Call Clay
    End
    Loop 1              //# of ingredient to add
      Call Silver
    End
    Loop 1              //# of ingredient to add
      Call Sulfur
    End
    Loop 1              //# of ingredient to add
      Call Iron
    End
    Loop 1              //# of ingredient to add
      Call Saltpeter
    End
    Loop 7              //# of ingredient to add
      Call Carrots
    End
    Call Take
  End
End

// ***** Menu Items *****

Procedure Take
  Call CheckforLostFocus
  MousePos $TakeX, $TakeY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure MakeRibbon
  Call CheckforLostFocus
  MousePos $RibbonX, $RibbonY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Cabbage
  Call CheckforLostFocus
  MousePos $CabbageX, $CabbageY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Carrots
  Call CheckforLostFocus
  MousePos $CarrotsX, $CarrotsY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Clay
  Call CheckforLostFocus
  MousePos $ClayX, $ClayY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Dead
  Call CheckforLostFocus
  MousePos $DeadX, $DeadY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Toad
  Call CheckforLostFocus
  MousePos $ToadX, $ToadY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Earth
  Call CheckforLostFocus
  MousePos $EarthX, $EarthY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Red
  Call CheckforLostFocus
  MousePos $RedX, $RedY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Lead
  Call CheckforLostFocus
  MousePos $LeadX, $LeadY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Silver
  Call CheckforLostFocus
  MousePos $SilverX, $SilverY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Iron
  Call CheckforLostFocus
  MousePos $IronX, $IronY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Copper
  Call CheckforLostFocus
  MousePos $CopperX, $CopperY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Sulfur
  Call CheckforLostFocus
  MousePos $SulfurX, $SulfurY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Potash
  Call CheckforLostFocus
  MousePos $PotashX, $PotashY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Lime
  Call CheckforLostFocus
  MousePos $LimeX, $LimeY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End

Procedure Saltpeter
  Call CheckforLostFocus
  MousePos $SaltpeterX, $SaltpeterY
  If $TESTING = 0
    Delay $MDelay
    LeftClick
    Delay $MDelay
  Else
    Delay $TESTDelay
  End
End


// ***** Kill Script *****
Procedure CheckforLostFocus
  If {activewindow} contains AC Tool 5.4.0 - C:\Macros\Paint.mac
    Stop
  End
End
Retrieved from "http://www.atitd.org/wiki/t6w/index.php?title=User:Obol/Macros&oldid=188748"