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 174: Line 174:
  
  
−
FirePit.mac
+
 
 +
* VEGGIES.mac
 
<pre>
 
<pre>
−
// FirePit 2
+
(*
−
// Double F8 camera, zoom in all the way
+
This macro plants up to 12 vegtables in a NxN grid.
−
// Place mouse over middle of firepit and hit F2
+
Note: IT WILL NOT WATER THE VEG FOR YOU JUST PLANT THEM.
−
// Alt tab to game and start pit
 
−
// Alt tab back to macro dialog and hit enter to start
 
−
 
 
  
 +
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
 
Constants
−
   Batch = 0
+
   //User define variables
−
   Job = 0
+
  seeds = 6 // Number of veg to plant
−
   StartX = 0
+
  dist = 7  // distance between veg (clicks on small movment) defult 4
−
   StartY = 0
+
 
−
   NewX = 0
+
  // NON user defined variables
−
   NewY = 0
+
  // button positions
−
   Test1 = N
+
  vegX = 0
−
   Test2 = N
+
   vegY = 0
−
   Test3 = N
+
   ulx = 45
−
   Test4 = 0
+
  uly = 85
−
   Test5 = 0
+
  lx = 36
−
   Check = Y
+
  ly = 100
−
   Number = 1
+
  dlx = 45
−
   NewNumber = 0
+
  dly = 115
−
END
+
  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
  
−
SetConst StartX = {MouseX}
+
  varOriginalMouseX = 0
−
SetConst StartY = {MouseY}
+
  varOriginalMouseY = 0
  
−
Form Stoke, Settings
+
end
−
  ed1=Editbox:Batch:50
+
//selects the veg
−
  ed2=ComboBox:Project:Stokes
+
delay 20
−
END
+
setconst vegX = {mousex}
 +
setconst vegY = {mousey}
 +
MousePos $vegX, $vegY
 +
delay 20
 +
call main
 +
delay 20
 +
MousePos 954, 539
  
−
FormLoad Stoke, Stoke.frm
+
procedure main
−
 
+
  loop $seeds
−
if ShowForm Stoke
+
    mousepos $vegX, $vegY
−
  set Batch = Stoke[ed1]
+
    delay 20
−
  case
+
    rightclick
−
  When Stoke[ed2] = Stokes
+
    delay 50
−
     set Job = Stokes
+
    if {loopno} = 1
−
  End
+
      setconst locX = $ulx
−
else
+
      setconst locY = $uly
−
  Stop
+
    end
−
End
+
    if {loopno} = 2
−
 
+
      setconst locX = $lx
−
FormSave Stoke, Stoke.frm
+
      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
  
−
MousePos 101, 56
+
// Call CheckPlant
−
//MousePos 94, 55
+
−
Delay 100
+
Bell asterisk
−
Leftclick
 
−
delay 100
 
  
 +
end
  
−
Loop $Batch
+
procedure rightshift
−
   Call $Job
+
  loop $dist
−
End
+
    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 Stokes
+
Procedure CheckPlant
−
   While $Check = Y
+
   setconst varOriginalMouseX = {mousex}
−
    ////
+
  setconst varOriginalMouseY = {mousey}
−
    Compute NewX = $StartX + 3
+
  Compute NewY = $varOriginalMouseY
−
    Compute NewY = $StartY + 8
+
  Loop 15
−
    MousePos $NewX, $NewY
+
    if $CheckforLostFocus = 0
−
    LoadRGB $NewX, $NewY
+
      RightClick
−
    delay 50
+
      Delay 400
−
    IF {RGBBlue} > 250
+
      LoadRGB {MouseX}, {MouseY}
−
      SetConst Test1 = Y
+
      if {RGBBlue} > 220
−
    Else
+
        Compute NewX = {mousex} + 145
−
    End
+
        Compute NewY = {mousey} - 23
−
    Compute NewX = $StartX + 3
+
        MousePos $NewX, $NewY
−
    Compute NewY = $StartY - 29
+
        Delay 200
−
    MousePos $NewX, $NewY
+
        Leftclick
−
    LoadRGB $NewX, $NewY
+
        Compute NewX = {mousex} - 145
−
    delay 50
+
        MousePos $NewX, $NewY
−
    IF {RGBBlue} > 250
+
       
−
      SetConst Test2 = Y
+
        if $Onion > 8
−
    Else
+
          Dragto $ODragX, $ODragY
−
    End
+
          Compute ODragY = $ODragY + 60
−
    Compute NewX = $StartX + 21
+
        End
−
    Compute NewY = $StartY - 24
+
        if $Onion = 5 or $Onion = 6 or $Onion = 7 or $Onion = 8
−
    MousePos $NewX, $NewY
+
          Dragto $ODragX, $ODragY
−
    LoadRGB $NewX, $NewY
+
          Compute ODragY = $ODragY + 60
−
    delay 50
+
        End
−
    IF {RGBBlue} > 250
+
        If $Onion = 2 or $Onion = 3 or $Onion = 4
−
       SetConst Test3 = Y
+
          Dragto $ODragX, $ODragY
−
    Else
+
          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
−
    ////
 
−
    IF $Test1 = Y and $Test2 = Y and $Test3 = Y
 
−
      SetConst $Check = N
 
−
    ELSE
 
−
    End
 
−
   
 
−
    If $CheckforLostFocus = 1
 
−
    Stop
 
−
    End
 
−
  END
 
−
  ////
 
−
 
 
−
  SetConst Test1 = N
 
−
  SetConst Test2 = N
 
−
  SetConst Test3 = N
 
−
  // STOKE
 
−
 
 
−
  MousePos 101, 56
 
−
  Delay 200
 
−
  Leftclick
 
−
  delay 200
 
−
 
−
MousePos 66, 92
 
−
  delay 200
 
−
  Leftclick
 
−
 
−
  MousePos 101, 56
 
−
  Delay 200
 
−
  Leftclick
 
−
  delay 200
 
−
 
−
  Say $Number
 
−
  Compute Number = $Number + 1
 
−
  delay 500
 
−
  keys {return}
 
−
  delay 22000
 
−
  SetConst Check = Y
 
−
 
 
−
  If $CheckforLostFocus = 1
 
−
    Stop
 
−
  End
 
−
  //
 
−
END
 
−
 
−
Function CheckforLostFocus
 
−
  If {activewindow} contains AC Tool 5.4.0 - C:\ACTool\Macros\aFirePit.mac
 
−
    Compute Result = 1
 
−
    Exit
 
−
  Else
 
−
    Compute Result = 0
 
−
    Exit
 
 
   End
 
   End
 
End
 
End
 
</pre>
 
</pre>

Revision as of 13:29, 15 April 2012

Macros


  • 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
Retrieved from "http://www.atitd.org/wiki/t6w/index.php?title=User:Obol/Macros&oldid=183847"