// Potash by Anka  -  Created with AC Tool 5.3.2 in 1024 x 768 resolution.
//
//This macro runs up to 18 kettles but theoretically can run any number.
// Can fit 9 kettles per row
// Fill kettles with water and ash.
// Cartographer view
// Put your mouse pointer over the top left kettle (Then dont touch the mouse)
// Alt tab to ACTool and press F2 to start the macro.
// Make sure your chat and inventory windows are not
// in front of any kettles.  A Settings box will appear.  Set it to what
// you need and click ok.
//
// Wood required is 522 for 18 kettles.

Include Objects.mac

Constants
  Col = 6
  Row = 2
  StartX = 0
  StartY = 0
  varY = 0
  R1X = 1
  RY = 27
  SetX = 0
  SetY = 0
  X1 = 70
  Y1 = 242
  AddX = 106
  AddY = 260
  PinX = 151
  PinY = 110
  CornerY = 20
  NewX = 45
  NewY = 0
  MX = 510
  MY = 440
  MDelay = 250
  Num = 1
  Done = 0
  Max = 512, 423
  OK = 580, 410
  Button = 0
  Guild = 0
  Temp = 0
  Setup = 0
  Wood = 0
  TextX = 0
  TextY = 0
End

SetConst StartX = {mousex}
SetConst StartY = {mousey}
Compute NewX = $StartX
Compute NewY = $StartY

Form Potash, Settings
  ed1=Editbox:Kettles Across:6
  ed2=Editbox:Kettles Down:2
  ed3=Checkbox:Guilded Kettles?:True
  ed4=Checkbox:Need Setup?:True
end

FormLoad Potash, Potash.frm

if ShowForm Potash
  If Potash[ed3] = True
    Set Wood = WoodG
    Set TextX = 64
    Set TextY = 188
    Compute PinY = $PinY + 8
    Compute Temp = $Y1 + 16
    Set Y1 = $Temp
    Compute Temp = $AddY - 8
    Set AddY = $Temp
  else
    Set Wood = WoodP
    Set TextX = 64
    Set TextY = 172
  End
  If Potash[ed4] = True
    Set Setup = 1
  Else
    Set Setup = 0
  End
  Set Col = Potash[ed1]
  Set Row = Potash[ed2]
else
  Stop
end

FormSave Potash, Potash.frm


MousePos 100, 20
Delay $MDelay
LeftClick
Delay 2000

If $Setup = 1
  Call Setup
End
Call Run

Procedure Setup
  Loop $Row
    Loop $Col
      MousePos $NewX, $NewY
      Compute varY = $NewY
      Delay $MDelay
      Rightclick
      Compute NewY = {mousey} - $PinY
      Compute NewX = {mousex} + $PinX
      MousePos $NewX, $NewY
      Delay $MDelay
      Rightclick
      Compute NewX = $NewX - $PinX + 1
      Compute NewY = $NewY - $CornerY + 1
      MousePos $NewX, $NewY
      Delay $MDelay
      Dragto $R1X, $RY
      Compute NewX = $StartX + $Num * 105
      Compute Num = $Num + 1
      Compute NewY = $varY
      Compute R1X = $R1X + $AddX
    end
    
    Compute Num = 1
    Compute R1X = 1
    Compute NewX = $StartX
    Compute RY = $RY + $AddY
    Compute NewY = $StartY + 105
  End
  SetConst NewX = 45
End

Procedure Run
  Set NewX = $X1
  Set NewY = $Y1
  //Ignite
  Loop $Row
    Loop $Col
      MousePos $NewX, $NewY
      Delay $MDelay
      Rightclick
      MousePos $Max
      Delay $MDelay
      Rightclick
      Compute NewX = $NewX + $AddX
    End
    SetConst NewX = $X1
    Compute NewY = $NewY + $AddY
    Delay $MDelay
  End
  
  Delay 1000
  
  //Add Wood
  Loop 8
    Case
    When {loopno} < 5
      SetConst Button = $Max
    Else
      SetConst Button = $OK
    End
    SetConst Done = 0
    SetConst NewY = $Y1
    While $Done = 0
      IsObject $Wood at $TextX, $TextY
        Loop $Row
          Loop $Col
            MousePos $NewX, $NewY
            Delay $MDelay
            RightClick
            Delay $MDelay
            MousePos $Button
            Delay $MDelay
            Rightclick
            Delay $MDelay
            Compute NewX = $NewX + $AddX
          end
          SetConst NewX = $X1
          Compute NewY = $NewY + $AddY
        end
        inc Done
        Delay $MDelay
      End
    end
  End
End
Bell Asterisk