newb- help with ichat script

I’ve been looking for an easy way to save the current ichat buddy icon for some time now, and I think applescript is the way to go

I got this from a script to copy the buddy icon to address book, i just don’t know how to save it to a file

tell application "iChat"
 set modifiedList to {}
 set modifiedListRef to a reference to modifiedList
 repeat with curAccount from 1 to number of items in accounts
   set nameVar to the name of account curAccount
   if exists image of account nameVar then
     set theImage to the image of account nameVar
     tell application "Address Book"
       -- don't overwrite my own picture
       if ¬
       (last name of my card is not equal to last name of person nameVar) ¬
       or ¬
       (first name of my card is not equal to first name of person nameVar) ¬
       then
         set image of person nameVar to theImage
         copy nameVar to end of modifiedListRef
       end if
     end tell
   end if
 end repeat
 -- output the list of modified entries
 set AppleScript's text item delimiters to {", "}
 display dialog "The following entries were modified: " & modifiedList
end tell