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