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 100
RightClick
MousePos 873, 593
Delay 50

while $CheckforLostFocus = 0
  Call GoPick
End

MousePos 100, 100
Delay 50
Stop

Procedure GoPick
  SetConst XOrig = {mousex}
  SetConst YOrig = {mousey}
  MousePos $MouseX, $MouseY
  Delay 50
  Rightclick
  Delay 50
  
  // uh oh, dialog about being to tired
  IsObject ToTired at 698, 534
    // 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:\ACMacros\clicker.mac
    Compute Result = 1
    exit
  Else
    Compute Result = 0
    Exit
    //Stop
  End
End

Object ToTired   // Test at coords 698, 534
235=0,0|235=1,0|237=2,0|231=3,0|233=4,0|235=5,0|235=6,0|233=7,0|233=8,0|234=9,0|235=10,0|237=11,0|228=12,0|232=13,0|234=14,0|235=15,0|231=16,0|232=17,0|229=18,0|230=19,0|231=20,0|234=21,0|230=22,0|229=23,0|231=24,0|231=25,0|232=26,0|233=27,0|233=28,0|233=29,0|233=30,0|231=31,0|234=32,0|234=33,0|234=34,0|233=35,0|233=36,0|233=37,0|233=38,0|230=39,0|235=40,0|
233=0,1|225=1,1|227=2,1|222=3,1|222=4,1|223=5,1|227=6,1|222=7,1|222=8,1|222=9,1|225=10,1|227=11,1|217=12,1|223=13,1|221=14,1|227=15,1|223=16,1|222=17,1|217=18,1|216=19,1|219=20,1|222=21,1|220=22,1|217=23,1|221=24,1|222=25,1|224=26,1|226=27,1|222=28,1|222=29,1|225=30,1|224=31,1|228=32,1|227=33,1|226=34,1|225=35,1|225=36,1|226=37,1|226=38,1|222=39,1|228=40,1|
237=0,2|226=1,2|223=2,2|221=3,2|222=4,2|220=5,2|226=6,2|215=7,2|219=8,2|220=9,2|221=10,2|221=11,2|213=12,2|219=13,2|217=14,2|222=15,2|219=16,2|219=17,2|211=18,2|211=19,2|215=20,2|218=21,2|215=22,2|211=23,2|217=24,2|215=25,2|219=26,2|219=27,2|218=28,2|219=29,2|220=30,2|220=31,2|224=32,2|220=33,2|220=34,2|222=35,2|221=36,2|220=37,2|223=38,2|219=39,2|226=40,2|
237=0,3|224=1,3|222=2,3|222=3,3|221=4,3|217=5,3|221=6,3|217=7,3|220=8,3|223=9,3|221=10,3|222=11,3|215=12,3|217=13,3|217=14,3|223=15,3|218=16,3|217=17,3|214=18,3|212=19,3|217=20,3|217=21,3|215=22,3|212=23,3|218=24,3|215=25,3|219=26,3|222=27,3|222=28,3|220=29,3|220=30,3|222=31,3|224=32,3|221=33,3|221=34,3|220=35,3|222=36,3|222=37,3|226=38,3|220=39,3|224=40,3|
235=0,4|225=1,4|221=2,4|223=3,4|221=4,4|220=5,4|220=6,4|217=7,4|221=8,4|226=9,4|222=10,4|221=11,4|215=12,4|217=13,4|221=14,4|221=15,4|217=16,4|215=17,4|215=18,4|212=19,4|215=20,4|215=21,4|214=22,4|210=23,4|215=24,4|215=25,4|218=26,4|217=27,4|216=28,4|218=29,4|220=30,4|220=31,4|220=32,4|223=33,4|217=34,4|220=35,4|221=36,4|223=37,4|223=38,4|220=39,4|224=40,4|
235=0,5|224=1,5|222=2,5|223=3,5|222=4,5|221=5,5|224=6,5|218=7,5|222=8,5|227=9,5|222=10,5|217=11,5|213=12,5|216=13,5|219=14,5|222=15,5|216=16,5|211=17,5|215=18,5|213=19,5|214=20,5|216=21,5|215=22,5|214=23,5|218=24,5|220=25,5|223=26,5|222=27,5|221=28,5|221=29,5|220=30,5|221=31,5|221=32,5|226=33,5|217=34,5|222=35,5|221=36,5|223=37,5|222=38,5|223=39,5|223=40,5|
235=0,6|223=1,6|222=2,6|224=3,6|220=4,6|223=5,6|227=6,6|221=7,6|223=8,6|226=9,6|223=10,6|218=11,6|215=12,6|214=13,6|222=14,6|111=15,6|0=16,6|0=17,6|0=18,6|0=19,6|107=20,6|215=21,6|217=22,6|0=23,6|0=24,6|219=25,6|220=26,6|168=27,6|0=28,6|55=29,6|220=30,6|223=31,6|224=32,6|227=33,6|217=34,6|223=35,6|221=36,6|226=37,6|222=38,6|222=39,6|222=40,6|
235=0,7|224=1,7|221=2,7|227=3,7|219=4,7|220=5,7|224=6,7|223=7,7|223=8,7|221=9,7|221=10,7|220=11,7|217=12,7|212=13,7|110=14,7|0=15,7|109=16,7|213=17,7|215=18,7|107=19,7|0=20,7|107=21,7|218=22,7|0=23,7|0=24,7|217=25,7|163=26,7|0=27,7|55=28,7|223=29,7|221=30,7|227=31,7|227=32,7|228=33,7|220=34,7|224=35,7|220=36,7|224=37,7|220=38,7|223=39,7|223=40,7|
237=0,8|226=1,8|222=2,8|226=3,8|220=4,8|223=5,8|224=6,8|220=7,8|222=8,8|221=9,8|221=10,8|220=11,8|218=12,8|212=13,8|0=14,8|0=15,8|162=16,8|214=17,8|218=18,8|161=19,8|0=20,8|0=21,8|218=22,8|0=23,8|0=24,8|167=25,8|0=26,8|54=27,8|220=28,8|223=29,8|220=30,8|227=31,8|226=32,8|227=33,8|220=34,8|224=35,8|220=36,8|224=37,8|222=38,8|224=39,8|224=40,8|
237=0,9|227=1,9|221=2,9|224=3,9|222=4,9|223=5,9|227=6,9|217=7,9|220=8,9|220=9,9|222=10,9|220=11,9|213=12,9|214=13,9|0=14,9|0=15,9|216=16,9|215=17,9|218=18,9|218=19,9|0=20,9|0=21,9|217=22,9|0=23,9|0=24,9|0=25,9|55=26,9|220=27,9|222=28,9|224=29,9|220=30,9|223=31,9|227=32,9|227=33,9|223=34,9|224=35,9|224=36,9|228=37,9|226=38,9|227=39,9|226=40,9|
235=0,10|224=1,10|223=2,10|224=3,10|222=4,10|226=5,10|228=6,10|222=7,10|220=8,10|217=9,10|222=10,10|220=11,10|214=12,10|217=13,10|0=14,10|0=15,10|217=16,10|217=17,10|219=18,10|217=19,10|0=20,10|0=21,10|218=22,10|0=23,10|0=24,10|0=25,10|165=26,10|215=27,10|218=28,10|220=29,10|219=30,10|220=31,10|223=32,10|227=33,10|226=34,10|224=35,10|223=36,10|228=37,10|224=38,10|224=39,10|223=40,10|
235=0,11|226=1,11|224=2,11|222=3,11|222=4,11|222=5,11|228=6,11|223=7,11|219=8,11|219=9,11|217=10,11|219=11,11|215=12,11|218=13,11|0=14,11|0=15,11|217=16,11|215=17,11|215=18,11|215=19,11|0=20,11|0=21,11|217=22,11|0=23,11|0=24,11|54=25,11|0=26,11|163=27,11|215=28,11|219=29,11|220=30,11|220=31,11|222=32,11|223=33,11|223=34,11|222=35,11|223=36,11|223=37,11|227=38,11|223=39,11|223=40,11|
235=0,12|227=1,12|224=2,12|220=3,12|219=4,12|218=5,12|227=6,12|223=7,12|218=8,12|220=9,12|215=10,12|220=11,12|215=12,12|218=13,12|0=14,12|0=15,12|163=16,12|215=17,12|214=18,12|160=19,12|0=20,12|0=21,12|216=22,12|0=23,12|0=24,12|217=25,12|55=26,12|0=27,12|220=28,12|220=29,12|220=30,12|220=31,12|223=32,12|222=33,12|224=34,12|219=35,12|222=36,12|219=37,12|224=38,12|219=39,12|224=40,12|
235=0,13|223=1,13|221=2,13|220=3,13|220=4,13|218=5,13|226=6,13|223=7,13|215=8,13|221=9,13|217=10,13|220=11,13|218=12,13|221=13,13|109=14,13|0=15,13|108=16,13|212=17,13|212=18,13|106=19,13|0=20,13|107=21,13|215=22,13|0=23,13|0=24,13|217=25,13|165=26,13|0=27,13|54=28,13|221=29,13|218=30,13|219=31,13|223=32,13|226=33,13|226=34,13|219=35,13|222=36,13|220=37,13|224=38,13|220=39,13|226=40,13|
233=0,14|223=1,14|222=2,14|220=3,14|220=4,14|220=5,14|226=6,14|221=7,14|215=8,14|222=9,14|216=10,14|219=11,14|220=12,14|221=13,14|215=14,14|110=15,14|0=16,14|0=17,14|0=18,14|0=19,14|106=20,14|214=21,14|218=22,14|0=23,14|0=24,14|218=25,14|224=26,14|165=27,14|0=28,14|55=29,14|221=30,14|222=31,14|223=32,14|224=33,14|223=34,14|218=35,14|224=36,14|224=37,14|227=38,14|222=39,14|227=40,14|
237=0,15|226=1,15|223=2,15|223=3,15|223=4,15|221=5,15|228=6,15|224=7,15|216=8,15|224=9,15|220=10,15|221=11,15|220=12,15|221=13,15|218=14,15|221=15,15|218=16,15|207=17,15|215=18,15|207=19,15|212=20,15|212=21,15|218=22,15|218=23,15|218=24,15|219=25,15|221=26,15|220=27,15|217=28,15|223=29,15|218=30,15|219=31,15|222=32,15|224=33,15|224=34,15|220=35,15|223=36,15|224=37,15|226=38,15|223=39,15|227=40,15|
235=0,16|227=1,16|223=2,16|227=3,16|223=4,16|223=5,16|228=6,16|223=7,16|217=8,16|223=9,16|220=10,16|224=11,16|221=12,16|219=13,16|220=14,16|223=15,16|217=16,16|210=17,16|219=18,16|209=19,16|211=20,16|207=21,16|220=22,16|219=23,16|222=24,16|220=25,16|223=26,16|220=27,16|216=28,16|222=29,16|218=30,16|219=31,16|223=32,16|227=33,16|222=34,16|222=35,16|223=36,16|226=37,16|227=38,16|226=39,16|227=40,16|
233=0,17|225=1,17|219=2,17|224=3,17|221=4,17|226=5,17|226=6,17|217=7,17|216=8,17|222=9,17|219=10,17|223=11,17|221=12,17|216=13,17|219=14,17|218=15,17|211=16,17|206=17,17|217=18,17|210=19,17|211=20,17|209=21,17|215=22,17|217=23,17|219=24,17|221=25,17|221=26,17|221=27,17|216=28,17|222=29,17|216=30,17|219=31,17|221=32,17|226=33,17|221=34,17|221=35,17|222=36,17|222=37,17|226=38,17|224=39,17|223=40,17|
End Object