iChat status message scroll
iChat status message scroll
- Subject: iChat status message scroll
- From: Mátyás Ferenc Farkas <email@hidden>
- Date: Sun, 25 Jul 2004 15:01:33 +0200
Hi all,
I've made a tiny script, that scrolls the status bar of the buddy list
with the given text. The bad thing is, that it counts as a to much and
to quickly typing, so I have to stop the script, and wait a little to
type, or increase the delay.
Anyway, if anyone likes it, it's free to use:
---------- script start ----------
-- idea and script: email@hidden
set a to every character in ":) ;) :( :/ :O :D :* :P :[ 8) >:O O:) :'(
:X :$ "
set h to ""
set i to 1
set c to count every item in a
repeat
repeat with n from 1 to c
repeat with m from 1 to c
set h to h & item i of a
if (n = 1 or n mod c = 1) and i = (c) then
set i to i - (c - 2)
else if i = (c) then
set i to i - (c - 1)
else if m = c then
set i to i + 2
else
set i to i + 1
end if
end repeat
tell application "iChat"
delay 0.09
set status message to h & ""
set h to ""
end tell
end repeat
set i to 1
end repeat
---------- script end ----------
--
Regards,
Ferenc Farkas MATYAS
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.