If it can helps, I then give the new version of the two scripts

• create .fileloc file for the selected items of the Finder:

  tell application "Finder"
  	repeat with elt in (get selection)
  		set filepath to POSIX path of (elt as string)
  		set filename to name of elt
  		set parentdir to container of elt
  		set fileurl to do shell script "/bin/echo -n file://" & filepath & " | ruby -ruri -p -e '$_=URI.encode$_'"
  		
  		make new internet location file at parentdir to fileurl with properties {name:filename}
  	end repeat
  end tell
  

• create .afploc file for the selected items of the Finder:

  tell application "Finder"
  	repeat with elt in (get selection)
  		set filepath to do shell script "echo " & (POSIX path of (elt as string)) & " | sed 's:^/Volumes::'"
  		set filename to name of elt
  		set parentdir to container of elt
  		set s to text returned of (display dialog "Enter the afp server for " & filepath default answer "afp://")
  		set afpurl to s & (do shell script "/bin/echo -n " & filepath & " | ruby -ruri -p -e '$_=URI.encode$_'")
  		
  		make new internet location file at parentdir to afpurl with properties {name:filename}
  	end repeat
  end tell