Nice Idea,
I have modified the script, so that multiple selections are working:
on alfred_script(q)
tell application "Finder"
set source to selection
end tell
if (count of source) is greater than 1 then
set fileList to every item of source
repeat with source in fileList
doMove(source, q)
end repeat
else
doMove(source, q)
end if
end alfred_script
on doMove(source, destination)
set source to (POSIX path of (the source as alias))
set destination to POSIX path of destination
do shell script "mv" & space & quoted form of POSIX path of source & space & quoted form of POSIX path of destination
end doMove