User:Obol/Macros

Macros

• ClaySlateV2.mac - this will require you to 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
end


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

MousePos 873, 593
//MousePos 33, 141
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 822, 514
    // ok button
    MousePos 958, 647
    Compute $wait4Timer = $wait4Timer + 3000 //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 - 500 //75
  End
  
  Mousepos $XOrig, $YOrig
  Delay $wait4Timer
End

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

Object ToTired   // Test at coords 822, 514
211=0,0|219=2,0|225=4,0|227=6,0|220=8,0|223=10,0|232=12,0|232=14,0|234=16,0|231=18,0|238=20,0|229=22,0|223=24,0|225=26,0|241=28,0|222=30,0|227=32,0|226=34,0|234=36,0|222=38,0|227=40,0|218=42,0|219=44,0|215=46,0|229=48,0|219=50,0|218=52,0|227=54,0|228=56,0|224=58,0|228=60,0|220=62,0|234=64,0|227=66,0|229=68,0|224=70,0|222=72,0|226=74,0|229=76,0|231=78,0|229=80,0|228=82,0|236=84,0|235=86,0|237=88,0|237=90,0|226=92,0|236=94,0|235=96,0|232=98,0|
214=0,2|225=2,2|227=4,2|230=6,2|236=8,2|232=10,2|240=12,2|233=14,2|235=16,2|233=18,2|238=20,2|234=22,2|225=24,2|231=26,2|238=28,2|224=30,2|227=32,2|227=34,2|232=36,2|216=38,2|227=40,2|219=42,2|220=44,2|216=46,2|223=48,2|223=50,2|220=52,2|222=54,2|225=56,2|224=58,2|226=60,2|220=62,2|232=64,2|225=66,2|227=68,2|224=70,2|219=72,2|227=74,2|224=76,2|228=78,2|228=80,2|227=82,2|231=84,2|229=86,2|233=88,2|236=90,2|228=92,2|235=94,2|232=96,2|234=98,2|
216=0,4|233=2,4|56=4,4|225=6,4|231=8,4|57=10,4|235=12,4|229=14,4|233=16,4|230=18,4|235=20,4|230=22,4|226=24,4|229=26,4|237=28,4|226=30,4|228=32,4|227=34,4|227=36,4|224=38,4|232=40,4|222=42,4|225=44,4|219=46,4|225=48,4|227=50,4|228=52,4|223=54,4|229=56,4|224=58,4|231=60,4|223=62,4|231=64,4|227=66,4|229=68,4|227=70,4|230=72,4|233=74,4|229=76,4|0=78,4|227=80,4|0=82,4|238=84,4|235=86,4|237=88,4|240=90,4|236=92,4|237=94,4|233=96,4|236=98,4|
214=0,6|232=2,6|225=4,6|110=6,6|114=8,6|226=10,6|57=12,6|0=14,6|233=16,6|0=18,6|236=20,6|229=22,6|231=24,6|235=26,6|238=28,6|231=30,6|0=32,6|0=34,6|229=36,6|167=38,6|0=40,6|222=42,6|55=44,6|54=46,6|223=48,6|227=50,6|233=52,6|0=54,6|0=56,6|227=58,6|0=60,6|55=62,6|233=64,6|56=66,6|0=68,6|230=70,6|224=72,6|232=74,6|229=76,6|0=78,6|0=80,6|0=82,6|0=84,6|57=86,6|240=88,6|118=90,6|116=92,6|234=94,6|234=96,6|0=98,6|
226=0,8|232=2,8|225=4,8|169=6,8|174=8,8|233=10,8|233=12,8|232=14,8|0=16,8|0=18,8|235=20,8|233=22,8|227=24,8|234=26,8|237=28,8|229=30,8|230=32,8|230=34,8|235=36,8|224=38,8|234=40,8|0=42,8|230=44,8|225=46,8|226=48,8|231=50,8|228=52,8|227=54,8|228=56,8|0=58,8|233=60,8|224=62,8|230=64,8|226=66,8|228=68,8|0=70,8|226=72,8|238=74,8|230=76,8|0=78,8|230=80,8|0=82,8|0=84,8|236=86,8|244=88,8|241=90,8|236=92,8|0=94,8|0=96,8|238=98,8|
225=0,10|229=2,10|226=4,10|227=6,10|234=8,10|238=10,10|235=12,10|235=14,10|0=16,10|0=18,10|238=20,10|236=22,10|227=24,10|235=26,10|240=28,10|0=30,10|233=32,10|228=34,10|233=36,10|225=38,10|236=40,10|0=42,10|236=44,10|225=46,10|225=48,10|227=50,10|229=52,10|229=54,10|232=56,10|0=58,10|233=60,10|230=62,10|236=64,10|230=66,10|230=68,10|0=70,10|231=72,10|235=74,10|235=76,10|0=78,10|233=80,10|0=82,10|0=84,10|230=86,10|242=88,10|237=90,10|233=92,10|234=94,10|0=96,10|240=98,10|
224=0,12|228=2,12|232=4,12|224=6,12|234=8,12|236=10,12|57=12,12|0=14,12|235=16,12|172=18,12|0=20,12|175=22,12|220=24,12|233=26,12|235=28,12|172=30,12|0=32,12|169=34,12|230=36,12|220=38,12|231=40,12|223=42,12|0=44,12|55=46,12|227=48,12|225=50,12|227=52,12|225=54,12|0=56,12|229=58,12|0=60,12|56=62,12|231=64,12|56=66,12|0=68,12|228=70,12|232=72,12|233=74,12|235=76,12|175=78,12|0=80,12|0=82,12|0=84,12|230=86,12|242=88,12|117=90,12|0=92,12|177=94,12|238=96,12|0=98,12|
220=0,14|228=2,14|225=4,14|222=6,14|228=8,14|232=10,14|230=12,14|230=14,14|233=16,14|230=18,14|236=20,14|233=22,14|222=24,14|235=26,14|238=28,14|226=30,14|226=32,14|225=34,14|227=36,14|225=38,14|233=40,14|224=42,14|230=44,14|229=46,14|227=48,14|229=50,14|231=52,14|231=54,14|233=56,14|234=58,14|234=60,14|235=62,14|237=64,14|232=66,14|228=68,14|231=70,14|236=72,14|242=74,14|240=76,14|243=78,14|233=80,14|236=82,14|238=84,14|235=86,14|238=88,14|235=90,14|237=92,14|236=94,14|240=96,14|241=98,14|
227=0,16|229=2,16|228=4,16|225=6,16|230=8,16|241=10,16|233=12,16|232=14,16|234=16,16|234=18,16|240=20,16|233=22,16|227=24,16|231=26,16|241=28,16|228=30,16|230=32,16|229=34,16|226=36,16|230=38,16|234=40,16|224=42,16|229=44,16|230=46,16|233=48,16|232=50,16|235=52,16|233=54,16|233=56,16|235=58,16|229=60,16|232=62,16|233=64,16|223=66,16|223=68,16|230=70,16|235=72,16|232=74,16|235=76,16|234=78,16|229=80,16|226=82,16|231=84,16|230=86,16|236=88,16|236=90,16|237=92,16|233=94,16|237=96,16|237=98,16|
End