for erik

;;----------------------------------------------------------;; 
;; iTunes script by Kvn Pfc :: http://rseos.com/EchoScript/ ;; 
;;----------------------------------------------------------;; 
alias -l c1 { return $+($chr(3),14) } 
alias -l c2 { return $+($chr(3),13) } 
alias -l c3 { return $+($chr(3),14) } 
alias -l c4 { return $+($chr(3),06) } 
alias -l l { return $+($chr(2),$c3,»,$chr(3),$chr(2)) } 
alias -l ll { return $+($c2,$1-,$c3,:,$c1) } 
alias -l it { return $+($c2,[,$c4,iTunes,$c2,],$chr(2),$c3 —›,$chr(2)) } 
alias -l lll { return $+($c2,[,$c1,$1-,$c2,]) } 
alias itunes { _iTunes | .timeriTunes 0 480 noop $!_itunes } 
alias itunesoff { .timeriTune* off } 

alias _itunes { 
  if (!$chkprg(iTunes.exe)) { 
    if (!$isid) { 
      var %x = $?!="Would you like to run iTunes?" 
      if (%x) { run iTunes.exe | echo -at $c1 $+ ** $it $+($c2,Now running,$chr(32),$c1,iTunes.exe,$c2,. Type /itunes again when iTunes finishes opening and you have started playing music.) } 
      else { echo -at $c1 $+ ** $it $+ $c2 No action taken.  } 
    } 
    .timeriTune* off 
    return 
  } 
  scid $activecid 
  var %p = iTunes, %i = IITTrack, %b = $chr(2), %% = $+(%b,$c3,»,$chr(3),%b), $& 
    %chans = #pc #idle #irchelp #rsmarket 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%i,Name,2), %name = $com(%i).result, $& 
      %k = $com(%i,Artist,2), %artist = $com(%i).result, $& 
      %k = $com(%i,Year,2), %year = $com(%i).result 
    var %k = $com(%i,Duration,2), %k = $com(%p,PlayerPosition,2), $& 
      %k = $com(%p,PlayerState,2), %st = $com(%p).result, $& 
      %k = $com(%i,PlayedCount,2), %played = $com(%i).result 
    var %msg = $it $ll(Track) %name $iif(!%st,$lll(Paused)) $& 
      %% $ll(Artist) %artist $iif(%year,$lll(%year)) $& 
      %% $ll(PlayedCount) %played $+ $chr(15) 
    $iif($active ischan && !$istok(%chans,$active,32),msg $active,noop) $iif(c !isincs $chan($active).mode,%msg,$strip(%msg,c))) 
  } 
  :error 
  while ($com(0)) { .comclose $com(1) } 
} 

alias pause { 
  if (!$chkprg(iTunes.exe)) { return } 
  .comopen iTunes iTunes.Application 
  noop $com(iTunes,Pause,3) 
  echo -at $c1 $+ ** $it $c2 $+ Music Paused. 
  .comclose iTunes 
} 

alias resume { 
  if (!$chkprg(iTunes.exe)) { return } 
  .comopen iTunes iTunes.Application 
  noop $com(iTunes,Play,3) 
  echo -at $c1 $+ ** $it $c2 $+ Music Resumed. 
  .comclose iTunes 
} 

alias setrating { 
  if (!$1) { return } 
  var %p = iTunes, %i = IITTrack 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%i,Rating,4,long,$calc($1 *20)), $& 
      %k = $com(%i,Name,2), %n = $com(%i).result 
    echo -at $c1 $+ ** $it $+($c2,Rating for:,$c1,$chr(32),%n,$chr(32),$c2,changed to,$c1,$chr(32),$1,$c2,.) 
  } 
  :error 
  while ($com(0)) { .comclose $com(1) } 
} 

alias next { 
  if (!$chkprg(iTunes.exe)) { return } 
  var %p = iTunes, %i = IITTrack 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%p,NextTrack,3) 
    .timer 1 .5 _next 
  } 
  while ($com(0)) { .comclose $com(1) } 
} 

alias back { 
  if (!$chkprg(iTunes.exe)) { return } 
  var %p = iTunes, %i = IITTrack 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%p,PreviousTrack,3) 
    .timer 1 .5 _back 
  } 
  while ($com(0)) { .comclose $com(1) } 
} 

alias -l _back { 
  var %p = iTunes, %i = IITTrack 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%i,Name,2) 
    echo -at $c1 $+ ** $it $+($c2,Advanced to previous track:,$c1) $com(%i).result 
  } 
  while ($com(0)) { .comclose $com(1) } 
} 

alias -l _next { 
  var %p = iTunes, %i = IITTrack 
  .comopen iTunes iTunes.Application 
  if ($comerr) { .timeriTunes off | return } 
  if $com(%p,CurrentTrack,3,dispatch* %i) { 
    var %k = $com(%i,Name,2) 
    echo -at $c1 $+ ** $it $+($c2,Advanced to next track:,$c1) $com(%i).result 
  } 
  while ($com(0)) { .comclose $com(1) } 
} 

alias chkprg { 
  .fopen -o processes processes.txt 
  .fclose processes 
  var %% = aline @@, %x = processes.txt 
  window -h @@ 
  %% Dim z, x, t 
  %% Set z = CreateObject("Scripting.FileSystemObject") 
  %% Set x = z.OpenTextFile(" $+ $mircdir $+ %x $+ ", 2, 1) 
  %% t = "." 
  %% For Each obj In GetObject("winmgmts://" & t & "/root/cimv2").ExecQuery("SELECT * FROM Win32_Process") 
  %% x.Write(obj.Description & vbCrLf) 
  %% Next 
  savebuf @@ pro.vbs 
  window -c @@ 
  .comopen q wscript.shell  
  .comclose q $com(q,run,3,bstr,wscript " $+ $mircdir $+ pro.vbs",uint,5,bool,true) 
  return $read(processes.txt,r,$1)