2 of 4 deleted 3 characters in body

PowerShell, 170 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.