#ifndef _mr_movement_
#define _mr_movement_
objectdef MovememntKeyMap
{
    variable string MoveForwardKey = "w"
}

objectdef MRNavigation
{
    variable bool MoveToRequested = FALSE
    variable point3f MoveToPoint
    variable float Percision = 5

    method SetPercision(float persision)
    {
        Percision:Set[${persision}]
    }

    method MoveTo(point3f point)
    {
        MoveToRequested:Set[TRUE]
        MoveToPoint:Set[${point.X}, ${point.Z}, ${point.Z}]
    }

    method MoveToComplete()
    {
        MoveToRequested:Set[FALSE]
    }
}

variable(global) MRNavigation MRNav
variable MovememntKeyMap MRMoveKeyMap

variable jsonvalue _debounceChecks = "{}";
function Debounce(string command, string id, int interval)
{
    if !${_debounceChecks.Has["${id}"]} || !${_debounceChecks.Get["${id}"]}
    {
        variable weakref commandRef = "${command}"
        _debounceChecks:Set["${id}", TRUE]
        execute ${command}
        TimedCommand ${interval} Script["${Script.Filename}"].Variable["_debounceChecks"]:Erase["${id}"]
    }
}

function FacePoint(point3f point)
{
    call Debounce "face ${point.X} ${point.Z}" "face" 3
}

function MoveTo(point3f point)
{
    
    while ${Math.Distance[${Me.X},${Me.Z},${MRNav.MoveToPoint.X},${MRNav.MoveToPoint.Z}]} > ${MRNav.Percision}
    {
        call FacePoint ${point}

        if !${Me.IsMoving}
        {
            
            call Debounce "press -hold ${MRMoveKeyMap.MoveForwardKey}" "moveForward" 5
        }
        wait 1

        call Debounce "echo Distance ${Math.Distance[${Me.X},${Me.Z},${MRNav.MoveToPoint.X},${MRNav.MoveToPoint.Z}]} > ${MRNav.Percision}" "debugDistance" 5
    }
    press -release ${MRMoveKeyMap.MoveForwardKey}
    MRNav:MoveToComplete
}

function main()
{
    while 1
    {
        if !${MRNav.MoveToRequested} 
        {
            continue
        }

        call Debounce "call MoveTo ${MRNav.MoveToPoint}" "move" 5
        
    }

}
#endif