using terms from application "iChat"
 on message received theMessage for theChat
  my writeTheMessage(theMessage)
 end message received
end using terms from

on writeTheMessage(theMessage)
 set p to path to "cusr"
 set theFile to (p as string) & "iChat.txt"
 set f to (open for access file theFile with write permission)
 try
  write theMessage to f
  close access f
 on error
  close access f
 end try
end writeTheMessage