« April 01, 2005 | Main | April 05, 2005 »
April 04, 2005
FlickrIt
Continuing my series of applescript utilities, I am introducing a Flickr uploader app that asks you to choose a picture file, title, and description, before uploading the photo to Flickr via email. Requires the Apple Mail application with a properly configured email account, and Mac OS X, 10.3 or later recommended.
NOTE: There is a small portion of the code that you must modify for your own Flickr account. The script will not work unless you open the script in Script Editor (located in Applications/Applescript) and modify the portion where it defines the email it will send the file to. You can find the correct email for your Flickr account by going here.
DOWNLOAD: FlickrIt | FlickrIt Source
--FlickrIt v.01b
--Created by Alan Joyce on 4/4/05
--Licensed under Creative Commons 2005
--Requires the changing of one variable, mentioned below, to fit your individual Flickr account.
set defaultLocation to path to pictures folder
copy (choose file with prompt "Please select the picture you want to upload to Flickr." default location defaultLocation invisibles "false") to chosenPicture
copy (chosenPicture) to picturepath
copy text returned of (display dialog "Please enter the desired picture title." default answer "My Picture") to desiredTitle
copy text returned of (display dialog "Please enter the desired picture description." default answer "A great photo.") to desiredDescription
tell application "Mail"
activate
end tell
tell application "Finder"
set visible of application process "Mail" to false
end tell
tell application "Mail"
set picture_message to (make new outgoing message at end of outgoing messages)
tell picture_message
make new to recipient at beginning of to recipients with properties {name:"Flickr Upload Service", address:"flickruploadaddress@flickr.com"} --Change this address to your Flickr upload address, which can be found here: http://www.flickr.com/profile_mailconf.gne
set the subject to desiredTitle
set the content to desiredDescription
tell content
make new attachment with properties {file name:picturepath} at before the first word of the first paragraph
end tell
end tell
send picture_message
end tell
Posted by Alan Joyce at 02:00 PM | Comments (0) | TrackBack
iChatterBot
I am happy to announce the release of my iChatterBot script. Upon startup, this app will choose a random name from your iChat A/V buddy list and IM that person in a semi-intelligent manner. You can customize what the bot will say, and who it will contact by downloading the source .scpt file, however, there is also a .app file available.
DOWNLOAD: iChatterBot | iChatterBot Source
--iChatterBot v.b1
--Created by Alan Joyce
--http://everythingdigital.org
--Licensed under Creative Commons 2005
set messagesSent to 0
repeat
if messagesSent is 0 then
tell application "iChat"
set buddyList to name of every account where status is available
set chatAccount to some item of buddyList
set chatMessage1 to "hey"
set chatMessage2 to "how's it going?"
set chatMessage3 to "cool, I'm not really doing much myself"
set chatMessage4 to "yeah, you think so?"
set chatMessage5 to "I agree"
set chatMessage6 to "what?"
set chatMessage7 to "no, I don't think so..."
set chatMessage8 to "really?"
set chatMessage9 to "so, I've got something really cool to tell you"
set chatMessage10 to "I am a bot"
--These messages can be customized to say anything.
set accountStatus to status of account chatAccount
if chatAccount is "Alan Joyce" then
--This should have your name as it appears in your buddy list in quotes
set chatAccount to some item of buddyList
else if accountStatus is available then
--set chatAccount to "Buddy Name"
--The two dashes at the beginning of the above line can be removed, and you can put the name of the buddy you want to have the bot IM in the quotes.
send chatMessage1 to account chatAccount
set chatWindow to "Instant Messages with " & chatAccount
set theWindow to chatAccount
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 4
close window theWindow
send chatMessage2 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 5
close window theWindow
send chatMessage3 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 5
close window theWindow
send chatMessage4 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 4
close window theWindow
send chatMessage5 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 6
close window theWindow
send chatMessage6 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 4
close window theWindow
send chatMessage7 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 4
close window theWindow
send chatMessage8 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 5
close window theWindow
send chatMessage9 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
repeat
delay 1
set windowList to name of every window
if windowList contains theWindow then
delay 5
close window theWindow
send chatMessage10 to account chatAccount
exit repeat
end if
end repeat
delay 1
close window chatWindow
set messagesSent to 1
end if
end tell
end if
if messagesSent is 1 then
exit repeat
end if
end repeat
Posted by Alan Joyce at 10:52 AM | Comments (0) | TrackBack