LOTROExtreme - Melee Bot : LOTROExtreme

Code: Select all

'######################
'### Navigation Bot ###
'### Ver. 01        ###
'### By Pimpoo      ###
'######################


ImportScript ".\includes\LOTROService.vbs"
RunScript "includes\Navigation.vbs"

dim LotroWindow

ownLOTROWindow

        MoveTo 28752,19987 '# Calls funktion 

function MoveTo(x,y)
dim deg
dim deltax
dim deltay
dim Korrekt
dim twinkel
dim distance

        while getplayerheading() <> 90
        setkeydelay GetRandomNumber(1,5)
            if getplayerheading <90> 0 and deltax > 0 and  deltay > 0 then Korrekt = getplayerheading()- abs(twinkel) 
if twinkel <0> 0 and  deltay <0> 0 and deltax < 0 and  deltay < 0 then Korrekt = getplayerheading() + abs(twinkel) + 90
if twinkel < 0 and deltax <0> 0 then Korrekt = getplayerheading() + abs(twinkel) + 180

    while getplayerheading() <> Korrekt
    setkeydelay GetRandomNumber(1,5)
        if getplayerheading() <Korrekt> 2 
        setkeydelay 90
        debuglog "Distance: " & distance
        distance = Math.Distance2D(getplayerx(),getplayery(),x,y)
        keyboard.sendkeys("w")
    wend
end function 

'-----------------------------------------------------------------
sub ownLOTROWindow
    debugLog "Attempting find the LOTR:SOA window..."
    LOTROWindow = Windows.FindWindowByClass("Turbine Device Class")
    if ( LOTROWindow <= 0) then
        debugLog "Whoops, you need to launch LOTR:SOA first..." 
    end if
    ShowWindow LOTROWindow
    Sleep 500
    FocusWindow LOTROWindow
    Sleep 500
    debugLog "Success!  LOTR:SOA Found ..." 
end sub
'-----------------------------------------------------------------
Function winkel (xp,yp,xt,yt) 
    const pi = 3.1415926535897932384626433832795
    if abs(xp-xt) = 0 then 
    debuglog "**********************"
    exit function
    else
    end if
    winkel = (yp-yt) / (xp-xt)
    winkel = atn(winkel) * (180/pi)
End Function 
'-----------------------------------------------------------------
Function GetRandomNumber(ByVal Untergrenze, ByVal Obergrenze)
    Zufallszahl = Int(rnd - 89089)
    Randomize
    GetRandomNumber = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
End Function 
'-----------------------------------------------------------------