User:Myn/Notes

//General purpose clay collector.
//To begin, minimize your chat, hover your mouse over the clay icon in ATITD (i.e. be over a patch of clay and have this program active.
//Press F2 (or whatever your ACTool start/pause/resume hotkey is set to), and the macro will start.

Constants
  Red = 0
  Green = 0
  Blue = 0
  XPos = 0
  YPos = 0
  CurrKey = 0
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}

While 1 = 1
  
  Loop 15 //adjust this loop for the length of the clay bed to keep you on clay at all times (adjust below also)
    
    KeyDown {Up} 250 //uses arrow keys to run North for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
    Loop 2
    
    KeyDown {Right} 250 //uses arrow keys to run East for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
  
  Loop 15
    
    KeyDown {Down} 250 //adjust this loop for the length of the clay bed to keep you on clay at all times
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
  
    Loop 2
    
    KeyDown {Left} 250 //uses arrow keys to run West for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
End