If you you are playing a Captain, you can easily complete these two deeds with eXhume.
You can take something like the code below - find the appropriate X/Y locations for summoning your herold, dismissing him, and casting Word of Courage - and then find a nice, out of the way place to go run it.
You can complete the Captian's Valour in one day, but the Words of Courage has a 100 use cap per day on it, so you are looking at a minimum of five day's to cap it out.
Enjoy.
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
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