Kanasansoft Web Lab.

set tempUserName to "keynotter"
set tempFileName to "temp.xml"
set urlText to "http://search.twitter.com/search.atom"
set lastUpdated to "" as text
set lastTweet to "" as text
set lastUserName to "" as text
set answer to display dialog "See what's happening — right now." default answer "Kanasansoft" buttons {"cancel", "search and display"} default button 2 with icon note
if button returned of answer is "cancel" then
    return
end if
set query to "q=" & text returned of answer

tell application "Finder"
    set tempUser to path to temporary items folder from user domain
    if not (exists folder tempUserName of folder tempUser) then
        make new folder at folder tempUser with properties {name:tempUserName}
    end if
    set tempApp to folder tempUserName of tempUser
    set tempFilePath to (tempApp as text) & tempFileName
end tell
repeat
    tell application "URL Access Scripting"
        download urlText to file tempFilePath replacing yes form data query with progress
    end tell
    set tempFile to file tempFileName of tempApp as text
    tell application "System Events"
        set root to XML element "feed" of contents of XML file tempFile
        log (get properties of root) --prop
        set entries to ((XML elements of root) whose name is "entry") as list
        repeat with i from 1 to count of entries
            set entry to item i of entries
            set updated to (value of XML element "updated" of entry) as text
            set tweet to (value of XML element "title" of entry) as text
            set userName to (value of XML element "name" of XML element "author" of entry) as text
            if i is 1 then
                set firstUpdated to updated as text
                set firstTweet to tweet as text
                set firstUserName to userName as text
            end if
            if updated is lastUpdated and tweet is lastTweet and userName is lastUserName then
                set lastUpdated to firstUpdated as text
                set lastTweet to firstTweet as text
                set lastUserName to firstUserName as text
                exit repeat
            end if
            log tweet
            log userName
            if i is (count of entries) then
                set lastUpdated to firstUpdated as text
                set lastTweet to firstTweet as text
                set lastUserName to firstUserName as text
            end if
        end repeat
        delay 30
    end tell
end repeat