easy enough (added a handler to modify the text path and changed the destination path in the shell script):
on opentheFolders
-- items are passed in as a list, so get the first item
set theFolder to POSIX path of first item of theFolders
tell application "System Events"
set pathList to POSIX path of (every disk item of folder theFolder whose visible is true)
end tell
repeat with thisItem in pathList
set destingationPath to modifyPath(thisItem)
do shell script "ditto -c -k --sequesterRsrc --keepParent " & quoted form of thisItem & " " & quoted form of (destingationPath & ".zip")
end repeat
end open
on modifyPath(oldPath)
set {oldTID, my text item delimiters} to {my text item delimiters, "/"}
set pathBits to text items of oldPath
set item -2 of pathBits to item -2 of pathBits & ".1"
set newPath to pathBits as text
set my text item delimiters to oldTID
return newPath
end modifyPath