User:Darwishi

onion macro so far

//  IMPORTANT
//
//  1) Cartographer View
//  2) Make sure "Plant all plants at my feet" is OFF under one-click and related
//  3) Pin your plant "Onion Seeds" window in top left corner
//  4) Pin stash window at rh edge of plant window
Constants
  moss = 0 // set to zero if no moss at tower
  Ox = 675 //476 also line 163 685
  Oy = 430 //380 also line 164 440
  gapoffset = 58
  Plants = 10 //Number of seeds you have
  Loops = 999   //Number of runs
  tower = 0 // make 1 if using tower for water
  chest = 0 // use chest to stash
  runto = 1220, 470 //12=1400 8=1090 10=1230
  Water = 5
  Num = 4
  NewX = 0
  NewY = 0
  varOriginalMouseX = 0
  varOriginalMouseY = 0
  ODragX = 4
  ODragY = 90
  OWX = 50
  OWY = 120
  Onion = 1
  WaterX = 1080 //1260(1235 tower)
  WaterY = 75 //50 (122 tower)
  TWaterX = 1235 //1260(1235 tower)
  TWaterY = 122 //50 (122 tower) 106 no moss
  P1Delay = 1300
  MoveDelay = 900
  WDelay = 15000
  count = 0
  max = 720,504
End

if $plants > 9
  set wdelay = 5000
end

if $moss = 0
  set twatery = 106
end

//Activate ATITD Window
MousePos 100, 20
Delay 250
leftclick
Delay 2000

Call Onion

Procedure Onion
  Loop $Loops
    Loop $Plants  //Number of plants
      MousePos 50, 40
      Delay 200
      Rightclick
      Compute Num = $Onion * 2 - 1
      MousePos 37, 101
      Delay 200
      Loop $Num
        Rightclick
        delay 50
      End
      
      Compute Onion = $Onion + 1
      
      MousePos 32, 162
      Delay 200
      Rightclick
    End
    
    SetConst Onion = 1
    Loop $Plants  //Find and Pin Plants
      Mousepos $Ox, $Oy
      Delay 200
      //stop
      Call CheckOnions
      Compute Ox = $Ox - $gapoffset //41 60
      compute Oy = $Oy - 2
    End
    
    SetConst Onion = 1
    Loop 5
      inc count
      Loop $Plants  // Number of plants
        If $Onion = 5
          Compute OWX = {mousex} + 168
          SetConst OWY = 120
        End
        If $Onion = 9
          Compute OWX = {mousex} + 168
          SetConst OWY = 120
        End
        
        Compute NewY = $OWY - 20
        MousePos $OWX, $NewY
        Delay 200
        Rightclick
        Delay 300
        Mousepos $OWX, $OWY
        Delay 200
        Rightclick
        Compute OWY = {MouseY} + 60
        If $Onion = 1
          Delay 1300  //Plant 1 time
        Else
          Delay 900  //Move Time
        End
        Compute Onion = $Onion + 1
      End
      if $count <> 5
        if $tower = 1
          MousePos 1243, 60 //refresh tower window
          delay 250
          rightclick
          delay 250
          MousePos $TWaterX, $TWaterY
          Delay 250
          rightclick
          delay 250
        end
        Delay $WDelay  //Pause between waterings
      end
      SetConst Onion = 1
      Compute OWX = 50
      Compute OWY = 120
    End
    set count = 0
    Compute NewX = 489
    Compute NewY = 270
    Loop 3
      Loop 4
        MousePos $NewX, $NewY
        Delay 250
        Rightclick
        Compute NewY = $NewY - 60
      End
      Compute NewX = $NewX - 168
      Compute NewY = 270
    End
    if $tower <> 1
      MousePos $WaterX, $WaterY
      Delay 250
      rightclick
      delay 250
      MousePos 718, 503 //max pos
      delay 250
      rightclick
      delay 3000
    end
    if $chest = 1
      call stashchest
    end
    MousePos $runto //run back to
    delay 200
    leftclick
    Delay 4000
    set Onion = 1
    set ODragX = 4
    set ODragY = 90
    set Ox = 675
    set Oy = 430
    set OWX = 50
    set OWY = 120
  End
  
End


Procedure CheckOnions
  setconst varOriginalMouseX = {mousex}
  setconst varOriginalMouseY = {mousey}
  set NewY = $varOriginalMouseY
  Loop 30
    RightClick
    Delay 100 //400
    LoadRGB {MouseX}, {MouseY}
    if {RGBBlue} < 80
      Compute Oy = $Oy + 1
      MousePos $varOriginalMouseX, $Oy
      delay 100
      rightclick
      delay 250
      Compute NewX = {mousex} + 148
      Compute NewY = {mousey} - 23
      MousePos $NewX, $NewY
      Delay 100 //200
      rightclick
      Compute NewX = {mousex} - 145
      MousePos $NewX, $NewY
      
      if $Onion > 8
        Dragto $ODragX, $ODragY
        Compute ODragY = $ODragY + 60
      End
      if $Onion = 5 or $Onion = 6 or $Onion = 7 or $Onion = 8
        Dragto $ODragX, $ODragY
        Compute ODragY = $ODragY + 60
      End
      If $Onion = 2 or $Onion = 3 or $Onion = 4
        Dragto $ODragX, $ODragY
        Compute ODragY = $ODragY + 60
      End
      if $Onion = 1
        Dragto $ODragX, $ODragY
        Compute ODragY = $ODragY + 60
      End
      Compute Onion = $Onion + 1
      If $Onion = 5
        SetConst ODragY = 90
        Compute ODragX = $ODragX + 168
      End
      If $Onion = 9
        SetConst ODragY = 90
        Compute ODragX = $ODragX + 168
      END
      Break
    Else
      Compute Oy = $Oy + 1
      MousePos $varOriginalMouseX, $Oy
      //Delay 10 //200
    End
  End
End

procedure stashchest
MousePos 234, 61
 //refresh
  delay 250
  rightclick
  delay 250
MousePos 220, 168
   //fill trough onions pos'n
  delay 250
  rightclick
  delay 250
  MousePos 719, 487 //max pos'n
  delay 250
  rightclick
  delay 250
end