User:Anka/Macros/Multi-Tool

//  Multi Tool updated from Tale 3
// v.5
//
//  This macro does Digs, Limestone, Dirt, Loom, Hackling Rake.  You MUST have
//  your skills tab activated and make sure stats are visable.  This macro also
//  does not work on timers and will watch your End, Str and Con timers.  I
//  have not fully tested it in all resolutions but I dont think that
//  resolution will be an issue at all.  Chat me if you have problems.
//
//INSTRUCTIONS
//
//
//  Coconuts - Have coconuts in inventory.  Pin the kitchen window in the
//             top left corner.  Place mouse pointer over Seperate coconut
//             meat and coconut water.  Alt tab to ACTool(Don't move the
//             mouse) and press F2.
//
//  Dig  -   Pin the "Dig Deeper" window where ever you want it.
//           Put the mouse pointer over the "Dig Deeper" button.
//           Alt tab to ACTool(Don't move the mouse) and press F2
//           It will then dig whenever the END timer expires.
//
// Dirt -    Have a shovel in inventory and stand over dirt.
//           Put the mouse pointer over the dirt icon.  Alt tab
//           to ACTool(Don't move the mouse) and press F2.
//
// Hackling Rake - Have rotten flax on hand
//                 Make sure rake is on step 1
//                 Pin Rake window to top left corner.
//                 Put mouse pointer over step 1 option.
//                 Alt tab to ACTool (Don't touch mouse) Press F2
//
// Hookah - Simple macro that will smoke the hookah for you.  Put the 
//          window any place you want it.  Place pointer over the smoke
//          option.  Alt tab to ACTool(Don't move the mouse) and press F2.
//          It will keep trying to smoke even when the hookah is empty.
//          This one is good for those stubborn herbs.  I'll add some
//          changes to this one at a later time.
//
// Limestone - Have tools needed for collecting limestone in inventory
//             and stand over limestone.  Put the mouse pointer over the
//             limestone icon.  Alt tab to ACTool(Don't move the mouse)
//             and press F2.
//
// Loom - Load the loom
//        Pin Loom window to top left corner.
//        Put the mouse pointer over the item you want to create.
//        Alt tab to windows (Dont touch mouse) Press F2
//
// Anka

Constants
  Rounds = 0
  XOrig = 0
  YOrig = 0
  MouseX = 0
  MouseY = 0
  Button = 0
  TimerX = 0
  TimerY = 0
  Timer = 0
  FTimer = 0
  Job = 0
  Num = 0
  Done = 0
  SDelay = 100
  MDelay = 250
End

Object End
  0=0,0|0=1,0|0=2,0|0=3,0|0=4,0|
  0=0,1|0=0,2|0=0,3|
  0=0,4|0=1,4|0=2,4|0=3,4|0=4,4|
  0=0,5|0=0,6|0=0,7|
  0=0,8|0=1,8|0=2,8|0=3,8|0=4,8|
End Object

Object Focus
  0=0,0|0=1,0|0=2,0|0=3,0|0=4,0|
  0=0,1|0=0,2|0=0,3|
  0=0,4|0=1,4|0=2,4|0=3,4|0=4,4|
  0=0,5|0=0,6|0=0,7|0=0,8|
End Object

Object Con
  0=3,0|0=4,0|0=1,1|0=0,3|0=0,4|
  0=0,5|0=1,7|0=3,8|0=4,8|
End Object

Object Str
  0=2,0|0=3,0|0=4,0|0=9,0|
  0=9,1|
  0=0,2|0=8,2|0=9,2|0=10,2|
  0=9,3|
  0=2,4|0=3,4|0=4,4|0=9,4|
  0=9,5|0=6,6|0=9,6|0=9,7|
  0=2,8|0=3,8|0=4,8|0=10,8|
End Object

SetConst MouseX = {MouseX}
SetConst MouseY = {MouseY}

Form MultiTool, Choose your Job
  ed1=EditBox:Rounds:1
  ed2=Combobox:Which Job?:Coconuts,Dig,Dirt,Hackling,Hookah,Limestone,Loom
end

FormLoad MultiTool, MultiTool.frm

if ShowForm MultiTool
  Set Rounds = MultiTool[ed1]
  Case MultiTool[ed2]
  When Hookah
    SetConst Timer = Con
  When Coconuts
    setconst Timer = Str
  Else
    Setconst Timer = End
  End
else
  Stop
end
FormSave MultiTool, MultiTool.frm

Keydown @{Tab} 100
Delay 2000

Call FindTimer
Loop $Rounds
  Case MultiTool[ed2]
    timestamp MultiTool[ed2]
  When Hackling
    Call Hackling
  Else
    Call Job
  End
  Call Checkforlostfocus
End

Procedure Job
  SetConst Button = 0
  While $Button = 0
    LoadRGB $TimerX, $TimerY
    if {rgbred} < 255
      SetConst XOrig = {mousex}
      SetConst YOrig = {mousey}
      MousePos $MouseX, $MouseY
      Delay $MDelay
      Rightclick
      Delay $MDelay
      Mousepos $XOrig, $YOrig
      SetConst Button = 1
    End
  End
End

Procedure Hackling
  Loop Num = 1 to 4
    SetConst Button = 0
    While $Button = 0
      LoadRGB $TimerX, $TimerY
      if {rgbred} < 255
        SetConst XOrig = {mousex}
        SetConst YOrig = {mousey}
        If $Num < 2 or $Num > 3
          MousePos $MouseX, $MouseY
          Delay $MDelay
          Rightclick
          Delay $MDelay
          Mousepos $XOrig, $YOrig
          SetConst Button = 1
        Else
          Compute MouseY = $MouseY + 15
          MousePos $MouseX, $MouseY
          Delay $MDelay
          Rightclick
          Delay $MDelay
          Mousepos $XOrig, $YOrig
          Compute MouseY = $MouseY - 15
          SetConst Button = 1
        End  
      End  
    End
  End
End

Procedure FindTimer
  Compute TimerX = 14
  Compute TimerY = {screenheight} - 10
  SetConst Done = 0
  While $Done = 0
    IsObject $Timer at $TimerX, $TimerY
      SetConst TimerX = $TimerX
      SetConst TimerY = $TimerY
      if $FTimer = 0
        Case $Timer
        when Str
          Compute TimerY = $TimerY + 2
        When Con
          Compute TimerY = $TimerY + 4
        end
      End
      SetConst FTimer = 1
      SetConst Done = 1
    Else
      Compute $TimerY = $TimerY - 1
    End
  End
End

Procedure CheckforLostFocus
  if {activewindow} contains eGenesis
    Exit
  Else
    Stop
  End
End

Bell Asterisk
//Written with ACTool 5.3.0 by Anka