##PowerShell, <s>170</s> 167

    [int]$x,[int]$y,$e,$m="$input"-split'\W'
    $d='NESW'.indexof($e)
    switch([char[]]$m){'R'{$d++}'L'{$d--}'M'{(-split'$y++ $x++ $y-- $x--')[$d%4]|iex}}
    "$x,$y,"+'NESW'[$d%4]

Not well-golfed so far.