LOTRO Program - Captain Trainer : LOTROExtreme

Code: Select all

dim bgwHWND
dim X
dim Y
dim iteration
dim iterations

iteration = 0
iterations = 477

ownLOTROWindow


while ( iteration <= iterations)
  summonHerald
  healHerald
  dismissHerald
  debugLog "Completed iteration: " & iteration & " of " & iterations
  sleep 4000
  iteration = iteration + 1
wend
sub summonHerald
    Mouse.FullMouseMove 882, 935, 1 
    Mouse.LMouseClick 882, 935, 1, 1
    sleep 12000
end sub

sub healHerald
    Mouse.FullMouseMove 222, 148, 10
    Mouse.LMouseClick 222, 148, 1, 10

    Mouse.FullMouseMove 623, 938, 10
    Mouse.LMouseClick 623, 938, 1, 10
    sleep 12000
end sub

sub dismissHerald
    Mouse.FullMouseMove 222, 148, 10
    Mouse.RMouseClick 222, 148, 1, 10

    Mouse.FullMouseMove 273, 174, 10
    Mouse.LMouseClick  273, 174, 1, 10
    sleep 1000
end sub


sub summonBubba
    Mouse.FullMouseMove 882, 935, 10
    Mouse.LMouseClick 882, 935, 1, 10
    sleep 12000
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

sub mouseLoc
while (true)

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

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