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:TeaAira/Macros"

From ATITD6
Jump to navigationJump to search
(Created page with " <pre> constants MouseX = 0 MouseY = 0 XOrig = 0 YOrig = 0 looping = 0 wait4Timer = 2400 //6000 //10000 //23000 //15250 add2Wait = 3000 reduceWait = 500 end S...")
 
Line 1: Line 1:
−
 
  
 
<pre>
 
<pre>
Line 93: Line 92:
  
 
</pre>
 
</pre>
 +
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

Revision as of 19:28, 17 January 2012


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

Retrieved from "http://www.atitd.org/wiki/t6w/index.php?title=User:TeaAira/Macros&oldid=141593"