taultunleashed

Code: Select all

dim bgwHWND
dim X
dim Y
dim iteration
dim iterations

iteration = 1
iterations = 35

ownLOTROWindow
'mouseLoc

while ( iteration <= iterations)
    plantFarm
    harvestField
    lootHarvest
   debugLog "Completed iteration: " & iteration & " of " & iterations
   iteration = iteration + 1
wend


sub plantFarm
    dim X, Y
    X = randomize(336, 278)
    Y = randomize(620, 610)
    Mouse.FullMouseMove X, Y, 1 
    Mouse.LMouseClick X, Y, 1, 1
    sleep 27000 
end sub

sub harvestField
    dim X, Y
    X = randomize(746, 665)
    Y = randomize(596, 550)
    Mouse.FullMouseMove X, Y, 1 
    Mouse.LMouseClick X, Y, 1, 1
    Mouse.RMouseClick X, Y, 1, 1
    sleep 8000
end sub

sub lootHarvest
    dim X, Y
    X = randomize(675, 592)
    Y = randomize(668, 661)
    Mouse.FullMouseMove X, Y, 1 
    Mouse.LMouseClick X, Y, 1, 1
    sleep 400
end sub

sub ownLOTROWindow
    debugLog "Attempting find the LoTRO Window"
    bgwHWND = Windows.FindWindowByTitle("The Lord of the Rings Online")
    if ( bgwHWND <= 0) then
        debugLog "Whoops, you need to launch LOTRO first..." 
    end if
    ShowWindow bgwHWND
    Sleep 500
    FocusWindow bgwHWND
    Sleep 500
    debugLog "Success! LOTRO Found " 
end sub

function randomize (max, min)
    randomize = (Int((max-min+1)*Rnd+min))
end function


sub mouseLoc
  while (true)

   X = Mouse.GetCursorPosX()
   y = Mouse.GetCursorPosY()

   debuglog "X:" & X & "\t Y:" &Y
   Sleep 1000
  wend
end sub