The Wiki for Tale 4 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.

User:Kibble/Macros

From A Tale in the Desert
< User:Kibble
Revision as of 00:53, 5 February 2009 by Kibble (talk | contribs)
Jump to navigationJump to search

Repeat Clicker

// Repeat Clicker
// coded by: kibble

// Instructions: Start the macro and hold the mouse cursor over the spot you wish to click
//               and wait for the macro to start. It will save the location, you can move the
//               cursor after the macro starts.

// Declares
constants
  objWindow = eGenesis Client        // <-- Program Window Title
  intCount = 500                     // <-- Number of Times to Repeat
  intDelay = 25                      // <-- Delay in seconds between clicks
end                                  // 15 = fish, 25 = limestone/dirt(no food)

constructs
  MousePnt = list
end

// Init
SetActiveWindow $objWindow
delay 3 sec                          // <-- Delay before the macro saves the mouse position
listadd MousePnt, {MouseX}
listadd MousePnt, {MouseY}
delay 2 sec                          // <-- Delay before the macro starts after getting mouse position.

mousepos MousePnt[1], MousePnt[2]
leftclick

// Main
loop $intCount
  delay $intDelay sec
  setactivewindow $objWindow
  mousepos MousePnt[1], MousePnt[2]
  leftclick
end

Grass Picker

// Grass Picker
// coded by: kibble

// Instructions:
// Make sure there is a grass icon in the same spot of the screen when
// stepping to the left and right.
// Start the Macro and hold your mouse over the grass icon.
// Wait for the macro to start picking grass.

// Declares
constants
  objWindow = eGenesis Client       // <-- Program Window Title
  intCount = 500                    // <-- Number of Times to Repeat
  intDelay = 5                      // <-- Seconds in delay between Picks
  bSwitch = 0
end

constructs
  MousePnt = list
end

// Init
SetActiveWindow $objWindow
delay 3 sec                         // <-- Delay before the mouse position is captured
listadd MousePnt, {MouseX}
listadd MousePnt, {MouseY}
delay 2 sec                         // <-- Delay before start after mouse capture

mousepos MousePnt[1], MousePnt[2]
leftclick

// Main
loop $intCount
  delay $intDelay sec
  call Move
  delay 1 sec
  mousepos MousePnt[1], MousePnt[2]
  leftclick
end

// Procedures
procedure Move
  if $bSwitch = 0
    keys {left}
    setconst bSwitch = 1
  else
    keys {right}
    setconst bSwitch = 0
  end
end