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

From ATITD6
Jump to navigationJump to search
(Created page with "Macros * ClaySlateV2.mac <pre> //General purpose grass, slate and clay collector. Works best without water jugs //or a fishing pole. To begin, hover your mouse over the icon...")
 
Line 63: Line 63:
 
   End
 
   End
 
End
 
End
 +
 +
 +
</pre>
 +
 +
 +
Clicker.mac
 +
<pre>
 +
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
 +
</pre>

Revision as of 16:00, 3 January 2012

Macros


  • ClaySlateV2.mac

//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 

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
Retrieved from "http://www.atitd.org/wiki/t6w/index.php?title=User:Obol/Macros&oldid=134743"