The Wiki for Tale 7 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:Myn/Notes"

From ATITD7
Jump to navigationJump to search
m
m
Line 1: Line 1:
 
<pre>
 
<pre>
−
//
+
//General purpose clay collector.
−
// Config for thistle search program
+
//To begin, minimize your chat, hover your mouse over the clay icon in ATITD (i.e. be over a patch of clay and have this program active.
−
//
+
//Press F2 (or whatever your ACTool start/pause/resume hotkey is set to), and the macro will start.
−
// Any text after // will be ignored
 
  
−
num_ticks 40 // Leave at 40 unless testing things
+
Constants
−
max_dung 0 // Maximum number of dung actions
+
  Red = 0
−
max_saltpeter 0 // Maximum number of saltpeter actions
+
  Green = 0
−
do_sun 1 // Allow changing sun (otherwise assums 0 or 99)
+
  Blue = 0
−
random_per_tick 3000 // Amount of random sampling to take as well as smart smart sampling
+
  XPos = 0
−
print_unique 0 // Display list of all found requirements (as well as the specifc ones searched for)
+
  YPos = 0
−
print_history 0 // Display the full history of a recipe, for comparing differences between this and ThistleSim
+
  CurrKey = 0
 +
End
 +
SetConst XPos = {MouseX}
 +
SetConst YPos = {MouseY}
 +
LoadRGB $XPos, $YPos
 +
SetConst Red = {RGBRed}
 +
SetConst Blue = {RGBBlue}
 +
SetConst Green = {RGBGreen}
 +
SetConst CurrKey = {GlobalKeys}
  
−
// // different set for testing
+
While 1 = 1
−
// print_unique 0
+
 
−
// num_ticks 10
+
  Loop 15 //adjust this loop for the length of the clay bed to keep you on clay at all times (adjust below also)
−
// do_dung 0
+
   
−
// do_saltpeter 0
+
    KeyDown {Up} 250 //uses arrow keys to run North for 250ms (x loop number)
−
// do_sun 1
+
   
−
 
+
    GetRed  $XPos, $YPos = $Red
−
// Set these to 0 to disable these rules (voids)
+
      GetGreen  $XPos, $YPos = $Green
−
 
+
        GetBlue  $XPos, $YPos = $Blue
−
rule_Nit_Asc 1
+
         
−
rule_Car_Asc 1
+
          MousePos $XPos, $YPos
−
rule_Fol_Asc 1
+
          Delay 10
−
 
+
          RightClick
−
rule_Pot_Bio 1
+
        End
−
rule_Asc_Bio 0
+
      End
−
rule_Pyr_Bio 1
+
    End
−
 
+
   
−
rule_Thi_Car 1
+
  End Loop
−
rule_Pot_Car 0
+
 
−
rule_Asc_Car 1
+
 
−
 
+
    Loop 2
−
rule_Nia_Fol 1
+
   
−
rule_Thi_Fol 1
+
    KeyDown {Right} 250 //uses arrow keys to run East for 250ms (x loop number)
−
rule_Pot_Fol 1
+
   
−
 
+
    GetRed  $XPos, $YPos = $Red
−
rule_Asc_Nia 1
+
      GetGreen  $XPos, $YPos = $Green
−
rule_Pyr_Nia 1
+
        GetBlue  $XPos, $YPos = $Blue
−
rule_Thi_Nia 1
+
         
−
 
+
          MousePos $XPos, $YPos
−
rule_Nit_Pyr 1
+
          Delay 10
−
rule_Car_Pyr 0
+
          RightClick
−
rule_Fol_Pyr 1
+
        End
−
 
+
      End
−
rule_Asc_Thi 1
+
    End
−
rule_Car_Thi 1
+
   
−
rule_Nia_Thi 1
+
  End Loop
−
 
+
 
−
 
+
 
−
 
+
 
−
/////////////////////////////////
+
  Loop 15
−
// List of desired requirements - delete this list and replace with your own
+
   
−
// The examples before are whatever I happen to have been searching for at the time,
+
    KeyDown {Down} 250 //adjust this loop for the length of the clay bed to keep you on clay at all times
−
// along with notes to myself on which ones I've done what with
+
   
−
// Any line starting with "label:" will effectively label all those after it
+
    GetRed  $XPos, $YPos = $Red
−
 
+
      GetGreen  $XPos, $YPos = $Green
−
 
+
        GetBlue  $XPos, $YPos = $Blue
−
 
+
         
−
desired "label:Mirallie"
+
          MousePos $XPos, $YPos
−
//desired A~F~P+T-
+
          Delay 10
−
//desired A~B~F+T+
+
          RightClick
−
desired B+C+F-P+
+
        End
−
desired A+F-N+P+
+
      End
−
//desired A+C~F~N-
+
    End
−
//desired A-B+F~N+
+
   
−
//desired A-C~F+P+
+
  End Loop
−
//desired C+N~P-T+
+
 
−
 
+
 
−
 
+
 
−
// List your stock of thistles here
+
    Loop 2
−
// (use some creative find and replace after copying from ATITD, don't edit this by hand ;)
+
   
−
// Independent of the searching, this will also report if any of the desired list matches
+
    KeyDown {Left} 250 //uses arrow keys to run West for 250ms (x loop number)
−
// something in stock. The existing ones in this file might be out of date, but if
+
   
−
//  something matches what you need, you can contact Jimbly to see if it is still available.
+
    GetRed  $XPos, $YPos = $Red
−
// Any line starting with "label:" will effectively label all those after it
+
      GetGreen $XPos, $YPos = $Green
−
 
+
        GetBlue $XPos, $YPos = $Blue
−
Stock "label:Mirallie"
+
         
−
Stock "75 A+B+C-F+N+P-T-"
+
          MousePos $XPos, $YPos
−
Stock "49 A+B+C-F+N-P+T-"
+
          Delay 10
−
Stock "250 A+B+C-F+N-P-T-"
+
          RightClick
−
Stock "250 A+B+C-F+N-P~T-"
+
        End
−
Stock "200 A+B-C-F+N~P-T+"
+
      End
 +
    End
 +
   
 +
  End Loop
 +
 
 +
End
  
 
</pre>
 
</pre>

Revision as of 06:38, 14 November 2015

//General purpose clay collector.
//To begin, minimize your chat, hover your mouse over the clay icon in ATITD (i.e. be over a patch of clay and have this program active.
//Press F2 (or whatever your ACTool start/pause/resume hotkey is set to), and the macro will start.

Constants
  Red = 0
  Green = 0
  Blue = 0
  XPos = 0
  YPos = 0
  CurrKey = 0
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}

While 1 = 1
  
  Loop 15 //adjust this loop for the length of the clay bed to keep you on clay at all times (adjust below also)
    
    KeyDown {Up} 250 //uses arrow keys to run North for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
    Loop 2
    
    KeyDown {Right} 250 //uses arrow keys to run East for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
  
  Loop 15
    
    KeyDown {Down} 250 //adjust this loop for the length of the clay bed to keep you on clay at all times
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
  
  
    Loop 2
    
    KeyDown {Left} 250 //uses arrow keys to run West for 250ms (x loop number)
    
    GetRed  $XPos, $YPos = $Red
      GetGreen  $XPos, $YPos = $Green
        GetBlue  $XPos, $YPos = $Blue
          
          MousePos $XPos, $YPos
          Delay 10
          RightClick
        End
      End
    End
    
  End Loop
  
End
Retrieved from "http://www.atitd.org/wiki/t7w/index.php?title=User:Myn/Notes&oldid=34648"