-- Check message length
if charcount_tweet ≤ charcount_max then
-- Get credentials for twitter.com
tell application "Keychain Scripting"
set twitter_key to first Internet key of current keychain whose server is "twitter.com"
set twitter_login to quoted form of (account of twitter_key & ":" & password of twitter_key)
end tell

set twitter_status to quoted form of ("status=" & tweet)
try
-- Send tweet
do shell script "curl --user " & twitter_login & " -F " & twitter_status & " http://twitter.com/statuses/update.json"
-- Display success message
growlNotify("Tweet Sent", tweet)
on error
-- Display error message
growlNotify("Error Sending Tweet", "There was an error sending your Tweet.")
end try
else
-- Tweet is too long
growlNotify("Tweet Too Long", "Tweet is " & charcount_tweet & " characters long. The maximum length is " & charcount_max & " characters.")
end if
end process text
end using terms from

using terms from application "GrowlHelperApp"
-- Register Growl
on growlRegister()
tell application "GrowlHelperApp"
register as application "Tweet" all notifications {"Alert"} default notifications {"Alert"} icon of application "Script Editor.app"
end tell
end growlRegister