FasdUAS 1.101.10 k l  IMStatus   IMStatus l  2, version 1.0, Lantrix (http://techdebug.com) X version 1.0, Lantrix (http://techdebug.com)  l GA idea conceived from script by Jason Kenison "theWebGuy" Blog at: idea conceived from script by Jason Kenison "theWebGuy" Blog at: l 93 http://www.jasonkenison.com/blog.html?id=22f http://www.jasonkenison.com/blog.html?id=22 l l  Copyright (c) 2008, TechDebug.com Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies. THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.  Copyright (c) 2008, TechDebug.com Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies. THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.  ! l!"# "l$% $ Display Dialog%&& Display Dialog#'( 'l) )r*+ *I ,- .sysodlogaskrTEXT ,m..//8For Skype/iChat/Adium choose-01  btns 0J2234 3m5566Available478 7m99::Away8; ;m<<==Meeting1>  dflt >m  +o 0imstateimState(?@ ?l@AB AlCD C60Check App Status, to only act on apps if runningDEE`Check App Status, to only act on apps if runningBFG Fl)H HO)IJ Ir(KL K?&MN Ml$O OI$P .corecnte******** Pl Q Q6 RS R2  prcs S=TU T1  pnam UmVVWW Adium Nm$% Lo 0adiumisrunningAdiumIsRunning JmXXsevsalis Macintosh HDljH+tSystem Events.appgf CoreServices:f7 t0/:Macintosh HD:System:Library:CoreServices:System Events.app$System Events.app Macintosh HD-System/Library/CoreServices/System Events.app/GYZ Yl*G[ [O*G\] \r.F^_ ^?.B`a `l.@b bI.@c .corecnte******** cl.<d d6.<ef e2.1  prcs f=2;gh g135  pnam hm6:iijj iChat am@A _o 0ichatisrunningiChatIsRunning ]m*+kksevsalis Macintosh HDljH+tSystem Events.appgf CoreServices:f7 t0/:Macintosh HD:System:Library:CoreServices:System Events.app$System Events.app Macintosh HD-System/Library/CoreServices/System Events.app/Zlm llHen nOHeop orLdqr q?L`st slL^u uIL^v .corecnte******** vlLZw w6LZxy x2LO  prcs y=PYz{ z1QS  pnam {mTX||}} Skype tm^_ ro 0skypeisrunningSkypeIsRunning pmHI~~sevsalis Macintosh HDljH+tSystem Events.appgf CoreServices:f7 t0/:Macintosh HD:System:Library:CoreServices:System Events.app$System Events.app Macintosh HD-System/Library/CoreServices/System Events.app/m l l  Meeting Meeting lf Zf =fo lfk nfk 1gk  bhit ofg 0imstateimState mknMeeting kr lrr ga Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation) Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation) Zr ors 0adiumisrunningAdiumIsRunning Ov I| .AdumgoawnullCact  Pmsg mIn Meeting mvyAdIMalisH Macintosh HDljH+ Adium.appUJ Applications:M#Macintosh HD:Applications:Adium.app Adium.app Macintosh HDApplications/Adium.app/ l  iChat iChat Z o 0ichatisrunningiChatIsRunning O k r m  pstaaway 1  stat r mIn Meeting 1  smsg mfez!alisH Macintosh HDljH+ iChat.app{+ Applications:Y#Macintosh HD:Applications:iChat.app iChat.app Macintosh HDApplications/iChat.app/ l  Skype Skype Z o 0skypeisrunningSkypeIsRunning O k I .sendskypnullnull  cmnd m$SET USERSTATUS DND  scrp mIMStatus I .sendskypnullnull  cmnd m@SET PROFILE MOOD_TEXT In Meeting  scrp mIMStatus mSKYPalisH Macintosh HDljH+ Skype.app G Applications:Go9#Macintosh HD:Applications:Skype.app Skype.app Macintosh HDApplications/Skype.app/ l l  Away Away lM ZM = l n 1  bhit o 0imstateimState mAway kI l ga Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation) Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation) Z o 0adiumisrunningAdiumIsRunning O I .AdumgoawnullCact mAdIMalisH Macintosh HDljH+ Adium.appUJ Applications:M#Macintosh HD:Applications:Adium.app Adium.app Macintosh HDApplications/Adium.app/ l    iChat iChat Z & o   0ichatisrunningiChatIsRunning O" r! m~ ~ pstaaway 1 } } stat mfez!alisH Macintosh HDljH+ iChat.app{+ Applications:Y#Macintosh HD:Applications:iChat.app iChat.app Macintosh HDApplications/iChat.app/ l''| |   Skype   Skype {  Z'I  zy  o'*x x 0skypeisrunningSkypeIsRunning  O-E I3Dwv w.sendskypnullnullvu u cmnd m7:&SET USERSTATUS AWAYts t scrp m=@My Scripts m-0SKYPalisH Macintosh HDljH+ Skype.app G Applications:Go9#Macintosh HD:Applications:Skype.app Skype.app Macintosh HDApplications/Skype.app/zy{ lrqprqp loo  Available Available n  lN!ml !ZN"#kj "=NW$% $lNS&ih &nNS'( '1OSg g bhit (oNOf f0imstateimStateih %mSV))**Available #kZ++,- ,lZZe./e .ga Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation)/00 Adium (works with 1.2+ as per http://trac.adiumx.com/wiki/AppleScript_Support_1.2 documentation)-12 1ZZn34dc 3oZ[b b 0adiumisrunningAdiumIsRunning 4O^j56 5Idia`_ a.AdumgoavnullCact`_ 6m^a77AdIMalisH Macintosh HDljH+ Adium.appUJ Applications:M#Macintosh HD:Applications:Adium.app Adium.app Macintosh HDApplications/Adium.app/dc289 8loo^:;^ :  iChat;<< iChat9=> =Zo?@]\ ?oor[ [ 0ichatisrunningiChatIsRunning @OuAB Ak{CCDE Dr{FG Fm{~Z Z pstaaval G1~Y Y statEHX HrIJ ImKKLL J1W W smsgX BmuxMMfez!alisH Macintosh HDljH+ iChat.app{+ Applications:Y#Macintosh HD:Applications:iChat.app iChat.app Macintosh HDApplications/iChat.app/]\>NO NlVPQV P  SkypeQRR SkypeOSU SZTUTS ToR R 0skypeisrunningSkypeIsRunning UOVW VkXXYZ YIQP[ Q.sendskypnullnullP[O\] O cmnd \m^^__*SET USERSTATUS ONLINE]N`M N scrp `maabbMy ScriptMZcL cIKJd K.sendskypnullnullJdIef I cmnd emgghh*SET PROFILE MOOD_TEXTfHiG H scrp imjjkkIMStatusGL WmllSKYPalisH Macintosh HDljH+ Skype.app G Applications:Go9#Macintosh HD:Applications:Skype.app Skype.app Macintosh HDApplications/Skype.app/TSUkjmln FmnoEDCBA@Fm?>=<;:98 ?.aevtoappnull**** >0imstateimState = 0adiumisrunningAdiumIsRunning < 0ichatisrunningiChatIsRunning ; 0skypeisrunningSkypeIsRunning:98n7p65qr4 7.aevtoappnull**** pkss'ttFuuYvvlwwxxyy 3365qr2.259<10/.X-z,V+*i)|('&%$#"! )K^agj 2 btns 1 dflt0 /.sysodlogaskrTEXT .0imstateimState - prcsz , pnam +.corecnte******** * 0adiumisrunningAdiumIsRunning ) 0ichatisrunningiChatIsRunning ( 0skypeisrunningSkypeIsRunning ' bhit & Pmsg %.AdumgoawnullCact $ pstaaway # stat " smsg ! cmnd  scrp .sendskypnullnull .AdumgoavnullCact  pstaaval4mvk EO*-[,\Z81j jEUO*-[,\Za81j jE`UO*-[,\Za81j jE`UOa,aya *aal UYhO_aa*a,FOa*a,FUYhO_/a%*a a!a"a# $O*a a%a"a& $UYhYhOa,a'Wa*j UYhO_a a*a,FUYhO_a*a a(a"a) $UYhYhOa,a*sa*j +UYhO_aa,*a,FOa-*a,FUYhO_/a%*a a.a"a/ $O*a a0a"a1 $UYhYho{  bhit{||Available E boovtrue D boovtrue C boovtrueBA@ascr ޭ