User:TeaAira/Macros

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 703, 537
    // ok button
    MousePos 703, 537
    Compute $wait4Timer = $wait4Timer + $add2Wait //1000
    // make them wait double time this time
  	Delay $wait4Timer
  	// close dialog
    MousePos 703, 537
    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:\Users\Tea\Documents\macros\clicker.mac
    Compute Result = 1
    exit
  Else
    Compute Result = 0
    Exit
    //Stop
  End
End

Object ToTired   // Test at coords 703, 537
217=0,0|221=1,0|217=2,0|220=3,0|223=4,0|221=5,0|222=6,0|215=7,0|217=8,0|217=9,0|223=10,0|218=11,0|217=12,0|214=13,0|212=14,0|217=15,0|217=16,0|215=17,0|212=18,0|218=19,0|215=20,0|219=21,0|222=22,0|222=23,0|220=24,0|220=25,0|222=26,0|224=27,0|221=28,0|221=29,0|220=30,0|222=31,0|222=32,0|
220=0,1|220=1,1|217=2,1|221=3,1|226=4,1|222=5,1|221=6,1|215=7,1|217=8,1|221=9,1|221=10,1|217=11,1|215=12,1|215=13,1|212=14,1|215=15,1|215=16,1|214=17,1|210=18,1|215=19,1|215=20,1|218=21,1|217=22,1|216=23,1|218=24,1|220=25,1|220=26,1|220=27,1|223=28,1|217=29,1|220=30,1|221=31,1|223=32,1|
221=0,2|224=1,2|218=2,2|222=3,2|227=4,2|222=5,2|217=6,2|213=7,2|216=8,2|219=9,2|222=10,2|216=11,2|211=12,2|215=13,2|213=14,2|214=15,2|216=16,2|215=17,2|214=18,2|218=19,2|220=20,2|223=21,2|222=22,2|221=23,2|221=24,2|220=25,2|221=26,2|221=27,2|226=28,2|217=29,2|222=30,2|221=31,2|223=32,2|
223=0,3|227=1,3|221=2,3|223=3,3|226=4,3|223=5,3|218=6,3|215=7,3|214=8,3|222=9,3|111=10,3|0=11,3|0=12,3|0=13,3|0=14,3|107=15,3|215=16,3|217=17,3|0=18,3|0=19,3|219=20,3|220=21,3|168=22,3|0=23,3|55=24,3|220=25,3|223=26,3|224=27,3|227=28,3|217=29,3|223=30,3|221=31,3|226=32,3|
220=0,4|224=1,4|223=2,4|223=3,4|221=4,4|221=5,4|220=6,4|217=7,4|212=8,4|110=9,4|0=10,4|109=11,4|213=12,4|215=13,4|107=14,4|0=15,4|107=16,4|218=17,4|0=18,4|0=19,4|217=20,4|163=21,4|0=22,4|55=23,4|223=24,4|221=25,4|227=26,4|227=27,4|228=28,4|220=29,4|224=30,4|220=31,4|224=32,4|
223=0,5|224=1,5|220=2,5|222=3,5|221=4,5|221=5,5|220=6,5|218=7,5|212=8,5|0=9,5|0=10,5|162=11,5|214=12,5|218=13,5|161=14,5|0=15,5|0=16,5|218=17,5|0=18,5|0=19,5|167=20,5|0=21,5|54=22,5|220=23,5|223=24,5|220=25,5|227=26,5|226=27,5|227=28,5|220=29,5|224=30,5|220=31,5|224=32,5|
223=0,6|227=1,6|217=2,6|220=3,6|220=4,6|222=5,6|220=6,6|213=7,6|214=8,6|0=9,6|0=10,6|216=11,6|215=12,6|218=13,6|218=14,6|0=15,6|0=16,6|217=17,6|0=18,6|0=19,6|0=20,6|55=21,6|220=22,6|222=23,6|224=24,6|220=25,6|223=26,6|227=27,6|227=28,6|223=29,6|224=30,6|224=31,6|228=32,6|
226=0,7|228=1,7|222=2,7|220=3,7|217=4,7|222=5,7|220=6,7|214=7,7|217=8,7|0=9,7|0=10,7|217=11,7|217=12,7|219=13,7|217=14,7|0=15,7|0=16,7|218=17,7|0=18,7|0=19,7|0=20,7|165=21,7|215=22,7|218=23,7|220=24,7|219=25,7|220=26,7|223=27,7|227=28,7|226=29,7|224=30,7|223=31,7|228=32,7|
222=0,8|228=1,8|223=2,8|219=3,8|219=4,8|217=5,8|219=6,8|215=7,8|218=8,8|0=9,8|0=10,8|217=11,8|215=12,8|215=13,8|215=14,8|0=15,8|0=16,8|217=17,8|0=18,8|0=19,8|54=20,8|0=21,8|163=22,8|215=23,8|219=24,8|220=25,8|220=26,8|222=27,8|223=28,8|223=29,8|222=30,8|223=31,8|223=32,8|
218=0,9|227=1,9|223=2,9|218=3,9|220=4,9|215=5,9|220=6,9|215=7,9|218=8,9|0=9,9|0=10,9|163=11,9|215=12,9|214=13,9|160=14,9|0=15,9|0=16,9|216=17,9|0=18,9|0=19,9|217=20,9|55=21,9|0=22,9|220=23,9|220=24,9|220=25,9|220=26,9|223=27,9|222=28,9|224=29,9|219=30,9|222=31,9|219=32,9|
218=0,10|226=1,10|223=2,10|215=3,10|221=4,10|217=5,10|220=6,10|218=7,10|221=8,10|109=9,10|0=10,10|108=11,10|212=12,10|212=13,10|106=14,10|0=15,10|107=16,10|215=17,10|0=18,10|0=19,10|217=20,10|165=21,10|0=22,10|54=23,10|221=24,10|218=25,10|219=26,10|223=27,10|226=28,10|226=29,10|219=30,10|222=31,10|220=32,10|
220=0,11|226=1,11|221=2,11|215=3,11|222=4,11|216=5,11|219=6,11|220=7,11|221=8,11|215=9,11|110=10,11|0=11,11|0=12,11|0=13,11|0=14,11|106=15,11|214=16,11|218=17,11|0=18,11|0=19,11|218=20,11|224=21,11|165=22,11|0=23,11|55=24,11|221=25,11|222=26,11|223=27,11|224=28,11|223=29,11|218=30,11|224=31,11|224=32,11|
221=0,12|228=1,12|224=2,12|216=3,12|224=4,12|220=5,12|221=6,12|220=7,12|221=8,12|218=9,12|221=10,12|218=11,12|207=12,12|215=13,12|207=14,12|212=15,12|212=16,12|218=17,12|218=18,12|218=19,12|219=20,12|221=21,12|220=22,12|217=23,12|223=24,12|218=25,12|219=26,12|222=27,12|224=28,12|224=29,12|220=30,12|223=31,12|224=32,12|
223=0,13|228=1,13|223=2,13|217=3,13|223=4,13|220=5,13|224=6,13|221=7,13|219=8,13|220=9,13|223=10,13|217=11,13|210=12,13|219=13,13|209=14,13|211=15,13|207=16,13|220=17,13|219=18,13|222=19,13|220=20,13|223=21,13|220=22,13|216=23,13|222=24,13|218=25,13|219=26,13|223=27,13|227=28,13|222=29,13|222=30,13|223=31,13|226=32,13|
End Object

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:\Users\Tea\Documents\macros\clay slateV2.mac
   Compute Result = 1
   Exit
 Else
   Compute Result = 0
   Exit
 End

End