Constants
  TopCC=107 // Don't change the following values unless you have problems
  TopOre=120
  TopFire=89
  TopOpen=186
  TopSTake=140
  TopTakeX=162
  TopTakeY=157
  BigW=292  // Full Menu Width = 292
  BigH=228  // Full Menu Height = 228
  MenuX=111
  TopX=10
  TopY=35
  
  SetupX=10 // Temp Variable, no point changing
  SetupY=35 // Temp Variable, no point changing
  CountX=0  // Temp Variable, no point changing
  CountY=0  // Temp Variable, no point changing
  
  
  Setup=0      // If set up required = 1, if not set to 0
  // Will automatically turn off after first loop
  DTime=100    // Delay between clicks
  WaitTime=300000 // Wait for smelting to be done, defualt 5 mins
  NumberOfCycles=4 // Change this if you want it to do the macro more than once.
  
  PotsWidth=4  // Amount of Smelting Pots across
  PotsHeight=4 // Amount of Smelting Pots down
End

if $Setup = 1
  Compute Setup = 0 // Turns off setup
  Loop $PotsHeight
    Loop $PotsWidth
      // Move Mouse to drag start position
      MousePos $TopX,$TopY
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $TopX
      else
        Compute SetupX = $TopX + ($CountX * $BigW)
      end
      
      if $CountY > 0
        Compute SetupY = $TopY + ($CountY * $BigH)
      end
      DragTo $SetupX,$SetupY
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
end

Loop $NumberOfCycles
  // Add Charcoal
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $MenuX
      else
        Compute SetupX = $MenuX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopCC
      else
        Compute SetupY = $TopCC + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Delay $DTime
      Keys 23
      Keys {RETURN}
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  
  // Add Ore
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $MenuX
      else
        Compute SetupX = $MenuX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopOre
      else
        Compute SetupY = $TopOre + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Delay $DTime
      Keys 93
      Keys {RETURN}
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  
  // Fire Smelting Pot
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $MenuX
      else
        Compute SetupX = $MenuX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopFire
      else
        Compute SetupY = $TopFire + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  
  Delay $WaitTime // Wait for smelting to complete
  
  // Open Smelting Pot
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $MenuX
      else
        Compute SetupX = $MenuX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopOpen
      else
        Compute SetupY = $TopOpen + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  
  // Setup Take Smelting Pot
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $MenuX
      else
        Compute SetupX = $MenuX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopSTake
      else
        Compute SetupY = $TopSTake + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  
  // Take Smelting Pot
  Compute CountX = 0
  Compute CountY = 0
  Loop $PotsHeight
    Loop $PotsWidth
      Delay $DTime
      
      if $CountX = 0
        Compute SetupX = $TopTakeX
      else
        Compute SetupX = $TopTakeX + ($CountX * $BigW)
      end
      
      if $CountY = 0
        Compute SetupY = $TopTakeY
      else
        Compute SetupY = $TopTakeY + ($CountY * $BigH)
      end
      MousePos $SetupX,$SetupY
      Delay $DTime
      RightClick
      Compute CountX = $CountX + 1
    End
    
    if $CountX = $PotsWidth
      Compute CountX = 0
    end
    Compute CountY = $CountY + 1
  End
  Delay 2000
End