// This macro is for Dsimantling stuff. 
// Put ta stack of the comp you want to rip in bottom right slot, go to analyze terminal
// Activate macro
//--------------------------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------------------------//

Constants
  DismantleDelay= 4500 	 // How long to wait after clicking on dismantle
  MvDelay=100  // how long to wait after a move of the mouse
  DWait=600  // time to wait for dismantler to be ready
  NWait=100
  Done=0

  // Below we store X,Y values in variables
  // These values assume 1024x768 screen
  // By storing them in variables we facilitate changing of screen resolutions later.


  StackX=165
  StackY=510
  // When dismantle screen is open we have an array 3x4
  // of possible stack locations
  // these are the X and y locations
  //
  //        45    100   165
  //   330  xx    xx    xx
  //   392  xx    xx    xx
  //   454  xx    xx    xx
  //   515  xx    xx    xx

  // Position in the button to click on to activate the Dismantle
  DismButtonX = 300
  DismButtonY = 265

  // Position of the spot you drag the object to
  DismHopperX = 295
  DismHopperY = 480
End



SetActiveWindow Earth & Beyond
CommandDelay 250

OBJVAR 12  // Set 'fuzziness' for RGB values when doing object matches.

//  Initial startup 


 
Loop 250

 IsObject EmptySlot at $StackX, $Stacky
    Stop
 end
 
 MousePos $StackX, $StackY  // This is the slot of the stack to dismantle. 
 Delay $NWait
 
 DragTo $DismHopperX, $DismHopperY   // Drag to dismantler
 Delay $NWait
 LeftClick
 
 Delay $NWait
 
 
 MousePos  $DismButtonX, $DismButtonY  // Dismantle button
 Delay $DWait       // Seems to need some extra delay on the dismantle click
 LeftClick
 
 Delay $DismantleDelay
 
 IsBlue $StackX, $StackY   // can't dismantle a blue component!
    SetConst Done=1
 end
 
 
 
End

// This is an objec to text if a square for an inventory slot has nothing in it.
// Could also be used for checking if mining/ore slots are occupied by anything
// too.

Object EmptySlot
  89=0,0|94=0,8|88=0,16
  95=8,0|105=8,8|93=8,16
  89=16,0|94=16,8|88=16,16
End