Submit Hint Search The Forums LinksStatsPollsHeadlinesRSS
14,000 hints and counting!


Click here to return to the 'Updated for 2005' hint
The following comments are owned by whoever posted them. This site is not responsible for what they say.
Updated for 2005
Authored by: magnamous on Jul 12, '05 04:15:49AM
I updated the script in this hint because the company's website changed. The new version works fine on my computer in 10.4.

--burger time! 
--locate the nearest In-n-Out Burger joint
using terms from application "Address Book"
 on action property
            return "address"
      end action property
   
      on action title for p with e
          if zip of e is missing value then
                     return "In-n-Out Burger locator (zipcode required)"
           else
                  return "In-n-Out Burger locator for zipcode " & zip of e
              end if
        end action title
      
      on should enable action for p with e
          if zip of e is missing value then
                     return false
          else
                  return true
           end if
        end should enable action
      
      on perform action for p with e
                set burgerURL to "http://www.in-n-out.com/locations.asp?transaction=search&country=us&template=map_search&pWidth=450&radius=20&x=0&y=0&postalCode=" 
& zip of e
         tell application "Safari"
                     set browser to make new document
                      tell browser
                          set URL to burgerURL
                  end tell
              end tell
              return true
   end perform action
end using terms from


[ Reply to This | # ]