iTunes Manager - v2.02
Platform: mIRC
Published May 06, 2008
Updated Oct 27, 2008
Ok, well, since buying my touch, i've had to use itunes, possibly the biggest pile of shait to arrive at any computer system in history. If you've had the displeasure of having to use this application, and want to integrate this into your mIRC. This is the perfect script for you!
Latest Version: 2.02
How to use this script is ALL explained within the readme.txt file found in the zip archive at the download link
::::
Primary Instructions::::
1. Download this file;
http://www.mediafire.com/?sharekey=4eae37f804008fb2d2db6fb9a8902bda
2. Extract it
3. Open readme.txt and follow the further instructions
:::
Screenshot::::
; iTunes Script by Jonesy44 ========;
; irc.chatscape.net // #chatscape ==;
; Version 2.02======================;
; ==================================;
; Command: /itunes =================;
; Message: /itunes.show ============;
; MessageOptions: /itunes.msgopt ===;
; Find DLL's: /itunes.locatefiles ==;
; Restart: /itunes.restart =========;
; Close: /itunes.close =============;
; ==================================;
; Play: /itunes.play ===============;
; Stop: /itunes.stop ===============;
; Pause: /itunes.pause =============;
; Next: /itunes.next ===============;
; Previous: /itunes.prev ===========;
; ==================================;
; DO NOT EDIT ANYTHING IN THIS FILE=;
; UNLESS YOU KNOW WHAT YOU'RE DOING=;
; ==================================;
; ==================================;
on *:START: {
if (%itunes.opt.toolbar) {
itunes.toolbar.on
}
}
on *:LOAD: {
noop $input(Welcome to the iTunes Manager by Jonesy44. $crlf $+ $crlf $+ It is recommended that you read the help file first. You will be prompted to when you first open the manager if this is your first time. $crlf $+ $crlf $+ Enjoy!,io,Welcome to iTunes Manager - Version $itunes.scriptversion )
}
on *:UNLOAD: {
if ($input(Thank you for using iTunes Manager. Before you finish unloading this script; would you like to remove all variables set by it? (Recomended if you are not going to use this script again),qy,iTunes Manager - Remove Variables?) == $true) {
unset %itunes.*
}
.timeritunes* off
}
menu * {
.iTunes
..Manager $chr(9) /itunes: itunes
..-
..$iif($itunes.state == Stopped,Play $chr(9) |>,Pause $chr(9) ||): $iif($itunes.state == Stopped,itunes.play,itunes.pause)
..-
..Next $chr(9) »: itunes.next
..Previous $chr(9) «: itunes.prev
..-
..Message $chr(9) /itunes.show:itunes.show
..Message Options $chr(9) /itunes.msgopt:itunes.msgopt
}
alias itunes {
if (!%itunes.used) {
if ($input(Is this the first time you're using this script? It is recommended that you read the help file $crlf $+ $crlf $+ Would you like to read the help file now? $crlf $+ (Note: You can always view the help file in -> Help -> Help Topics),qy,iTunes Manager - Firs Time) == $true) {
itunes.help
set %itunes.used 1
halt
}
set %itunes.used 1
}
dialog $iif($dialog(itunes.manager),-v,- $+ $iif(%itunes.d,d,) $+ m) itunes.manager itunes.manager
inc %itunes.used
}
alias volume {
$iif($isid,return,echo -a) $round($calc(($vol(master) / 65535) * 100),0) $+ %
}
alias itunes.help {
dialog $iif($dialog(itunes.help),-v,-m) itunes.help itunes.help
}
alias itunes.restart {
if ($dialog(itunes.manager)) {
dialog -x itunes.manager
}
dialog - $+ $iif(%itunes.d,d,) $+ m itunes.manager itunes.manager
}
alias itunes.close {
.timeritunes off
if ($dialog(itunes.manager)) {
dialog -x itunes.manager
}
}
alias itunes.locatefiles {
dialog $iif($dialog(itunes.locatefiles),-v,-m) itunes.locatefiles itunes.locatefiles
}
alias itunes.msgopt {
dialog $iif($dialog(itunes.msgopt),-v,-m) itunes.msgopt itunes.msgopt
}
alias say {
msg $active $$1-
}
alias me {
describe $active $$1-
}
alias itunes.show {
if (!$active) {
noop $input(You are not in an active channel/query window,ow,iTunes Manager - Message Error)
}
elseif ($active == Status Window) {
noop $input(You cannot message to the Status Window,ow,iTunes Manager - Message Error)
}
else {
var %textdeco = $iif(%itunes.msgopt.bold,,) $+ $iif(%itunes.msgopt.underline, ,)
var %openmodule = $+ %itunes.msgopt.openbracketcol $+ %itunes.msgopt.openbracket, %closemodule = $+ %itunes.msgopt.closebracketcol $+ %itunes.msgopt.closebracket
var %prim = $+ %itunes.msgopt.primary, %sec = $+ %itunes.msgopt.secondary
var %extramodules = $iif(%itunes.msgopt.bit,%openmodule $+ %prim $+ Bitrate: $+ %sec $+ $itunes.bitrate KB/s $+ %closemodule,) $iif(%itunes.msgopt.sample,%openmodule $+ %prim $+ Sample Rate: $+ %sec $+ $itunes.samplerate Hz $+ %closemodule,) $iif(%itunes.msgopt.play,%openmodule $+ %prim $+ Play Count: $+ %sec $+ $itunes.playcount $+ %closemodule,) $iif(%itunes.msgopt.rating,%openmodule $+ %prim $+ Rating: $+ %sec $+ $str(@,$itunes.rating) $+ %prim $+ $str(@,$calc(5 - $itunes.rating)) $+ %closemodule,)
%itunes.msgopt.method %textdeco $+ %openmodule $+ %prim $+ $iif(%itunes.msgopt.intro,%itunes.msgopt.intro,Now Playing) $+ %closemodule %openmodule $+ %sec $+ $itunes.artist %prim $+ - $+ %sec $itunes.title $+ %closemodule %extramodules
}
}
alias itunes.selimg {
set %itunes.icons $$sdir(Select Image Pack,Select Image Pack)
}
alias itunes.dl {
$iif($lock(run),noop $input(* /run: command is blocked. Visit the website manually here; http://wfs.myartsonline.com/downloads,oi,iTunes Manager - /run command is blocked),run http://wfs.myartsonline.com/downloads)
}
alias itunes.d {
if ($1 == 1) {
return $iif(%itunes.d,Set,)
}
if ($1 == 2) {
return $iif(!%itunes.d,Set,)
}
}
alias itunes.s {
if ($1 == 1) {
return $iif(%itunes.opt.pbar.default,Set,)
}
if ($1 == 2) {
return $iif(!%itunes.opt.pbar.default,Set,)
}
}
alias itunes.t {
if ($1 == 1) {
return $iif(%itunes.opt.toolbar,Set,)
}
if ($1 == 2) {
return $iif(!%itunes.opt.toolbar,Set,)
}
}
alias itunes.toolbar.on {
itunes.toolbar.off
toolbar -si $calc($toolbar(0) + 1) itunes.sep1
toolbar -az1 itunes.prev.btn "iTunes - Previous Track" $itunes.icons(prev.ico) /itunes.prev
toolbar -az1 itunes.pause.btn "iTunes - Pause" $itunes.icons(pause.ico) /itunes.pause
toolbar -az1 itunes.play.btn "iTunes - Play" $itunes.icons(play.ico) /itunes.play
toolbar -az1 itunes.next.btn "iTunes - Next Track" $itunes.icons(next.ico) /itunes.next
}
alias itunes.toolbar.off {
if ($toolbar(itunes.sep1)) { toolbar -d itunes.sep1 }
if ($toolbar(itunes.prev.btn)) { toolbar -d itunes.prev.btn }
if ($toolbar(itunes.pause.btn)) { toolbar -d itunes.pause.btn }
if ($toolbar(itunes.play.btn)) { toolbar -d itunes.play.btn }
if ($toolbar(itunes.next.btn)) { toolbar -d itunes.next.btn }
}
alias itunes.mini {
if ($dialog(itunes.manager).w == %itunes.manager.w && $dialog(itunes.manager).h == %itunes.manager.h) {
var %x = $dialog(itunes.manager).h
var %y = 76
while (%x >= %y) {
dialog -s itunes.manager $dialog(itunes.manager).x $dialog(itunes.manager).y 500 %x
dec %x 4
}
set %itunes.manager.minih $dialog(itunes.manager).h
}
elseif ($dialog(itunes.manager).w = %itunes.manager.w && $dialog(itunes.manager).h == %itunes.manager.minih) {
var %x = $dialog(itunes.manager).h
var %y = 220
while (%x <= %y) {
dialog -s itunes.manager $dialog(itunes.manager).x $dialog(itunes.manager).y 500 %x
inc %x 4
}
}
else {
itunes.restart
noop $input(An error occured with the iTunes Manager dialog. It has been restarted and you should now be able to continue,wo,iTunes Manager - Dialog Error)
}
}
dialog itunes.manager {
size -1 -1 500 200
option pixels
title "iTunes Manager"
icon 1, 0 0 500 76, $qt($itunes.icons(itunes_bg_stopped.jpg)), noborder
icon 2, 0 57 500 149, $qt($itunes.icons(itunes_main.jpg)), noborder
text "", 3, 173 22 60 13, right
text "", 4, 240 13 230 13, center
text "", 5, 240 30 230 13, center
text "Progress Bar Failed to Load", 6, 240 22 170 13
text "", 7, 420 22 60 13
text "Bit Rate", 10, 220 85 100 20
text "Sample Rate", 11, 220 115 100 20
text "Play Count", 12, 220 145 100 20
text "Rating", 13, 220 175 50 20
text "", 14, 290 85 50 20
text "", 15, 290 115 50 20
text "", 16, 290 145 50 20
icon 17, 272 172 100 20, $qt($itunes.icons(itunes_rating_0.jpg)), noborder
check "", 100, 201 86 12 12
check "", 101, 201 116 12 12
check "", 102, 201 146 12 12
check "", 103, 201 176 12 12
button "Message", 200, 400 172 80 20
menu "File", 1000
item iTunes Version $chr(9) $itunes.itunesversion , 1001, 1000
item iTunes Script Version $chr(9) $itunes.scriptversion , 1002, 1000
item iTunes DLL Version $chr(9) $itunes.dllversion , 1003, 1000
item break, 1004, 1000
item Restart $chr(9) /itunes.restart, 1005, 1000
item Close $chr(9) /itunes.close, 1006, 1000
menu "Tools", 1100
item Locate DLL/MDX Extensions $chr(9) /itunes.locatefiles, 1107, 1100
item Locate Image Pack $chr(9) /itunes.selimg, 1108, 1100
item break, 1109, 1100
item Download DLL Files $chr(9) /itunes.dl, 1110, 1100
item break, 1111, 1100
item Message Options $chr(9) /itunes.msgopt, 1112, 1100
menu "Open As..", 1113, 1100
item Open as New Dialog $chr(9) | $itunes.d(1), 1114, 1113
item Open within mIRC $chr(9) | $itunes.d(2), 1115, 1113
menu "Default Shown..", 1116, 1100
item Title && Artist $chr(9) | $itunes.s(2), 1118, 1116
item Progress Bar $chr(9) | $itunes.s(1), 1117, 1116
menu "iTunes Toolbar", 1119, 1100
item On $chr(9) | $itunes.t(1), 1120, 1119
item Off $chr(9) | $itunes.t(2), 1121, 1119
menu "Help", 1200
item Help Topics $chr(9) /itunes.help, 1201, 1200
menu "Mini Mode", 1300
item Switch $chr(9) /itunes.mini, 1301, 1300
}
on *:DIALOG:itunes.manager:init:*: {
dll $itunes.dll(mdx.dll) MarkDialog $dname
dll $itunes.dll(mdx.dll) SetMircVersion $version
dll $itunes.dll(mdx.dll) SetColor 3 background $rgb(235,237,213)
dll $itunes.dll(mdx.dll) SetColor 3 textbg $rgb(235,237,213)
dll $itunes.dll(mdx.dll) SetColor 7 background $rgb(235,237,213)
dll $itunes.dll(mdx.dll) SetColor 7 textbg $rgb(235,237,213)
dll $itunes.dll(mdx.dll) SetColor 4 background $rgb(244,246,222)
dll $itunes.dll(mdx.dll) SetColor 4 textbg $rgb(244,246,222)
dll $itunes.dll(mdx.dll) SetColor 5 background $rgb(222,226,199)
dll $itunes.dll(mdx.dll) SetColor 5 textbg $rgb(222,226,199)
dll $itunes.dll(mdx.dll) SetColor 10,11,12,13,14,15,16 background $rgb(241,244,249)
dll $itunes.dll(mdx.dll) SetColor 10,11,12,13,14,15,16 textbg $rgb(241,244,249)
dll $itunes.dll(mdx.dll) SetControlMDX $dname 6 ProgressBar smooth > $itunes.dll(ctl_gen.mdx)
set %itunes.opt.pbar $iif(%itunes.opt.pbar.default,1,0)
set %itunes.manager.w $dialog(itunes.manager).w
set %itunes.manager.h $dialog(itunes.manager).h
itunes.manager.np ovr
itunes.manager.np
.timeritunes 0 1 itunes.manager.np
if ($vol(master).mute && $os != Vista) {
if ($input(The master volume is muted (Volume: $volume $+ ) $crlf $+ $crlf $+ Would you like to Unmute it?,qy,iTunes Manager - Unmute?) == $true) {
vol -vu2
}
}
}
on *:DIALOG:itunes.manager:menu:*: {
if ($did isnum 1001-1003) {
echo -a $+ %itunes.msgopt.primary $+ ======================================================
echo -a $+ %itunes.msgopt.secondary $+ iTunes Version ( $+ $itunes.itunesversion $+ )
echo -a $+ %itunes.msgopt.secondary $+ iTunes Script Version ( $+ $itunes.scriptversion $+ )
echo -a $+ %itunes.msgopt.secondary $+ iTunes DLL Version ( $+ $itunes.dllversion $+ )
echo -a $+ %itunes.msgopt.primary $+ ======================================================
}
if ($did == 1005) {
itunes.restart
}
if ($did == 1006) {
itunes.close
}
if ($did == 1107) {
itunes.locatefiles
}
if ($did == 1108) {
itunes.selimg
itunes.restart
}
if ($did == 1110) {
itunes.dl
}
if ($did == 1112) {
itunes.msgopt
}
if ($did isnum 1114-1115) {
set %itunes.d $iif($did == 1114,1,0)
itunes.restart
}
if ($did isnum 1117-1118) {
set %itunes.opt.pbar.default $iif($did == 1117,1,0)
itunes.restart
}
if ($did isnum 1120-1121) {
set %itunes.opt.toolbar $iif($did == 1120,1,0)
itunes.toolbar. $+ $iif($did == 1120,on,off)
itunes.restart
}
if ($did == 1201) {
itunes.help
}
if ($did == 1301) {
itunes.mini
}
}
on *:DIALOG:itunes.manager:sclick:*: {
if ($mouse.x isnum 157-168 && $mouse.y isnum 22-34) {
set %itunes.opt.pbar $iif(%itunes.opt.pbar == 1,0,1)
}
if ($mouse.x isnum 50-85 && $mouse.y isnum 10-45) {
$iif($itunes.state == Playing,itunes.pause,itunes.play)
}
if ($mouse.x isnum 12-42 && $mouse.y isnum 15-41) {
itunes.prev
itunes.manager.np ovr
}
if ($mouse.x isnum 91-123 && $mouse.y isnum 15-41) {
itunes.next
itunes.manager.np ovr
}
if ($did == 100) {
$iif($did(100).state == 1,set,unset) %itunes.msgopt.bit 1
}
if ($did == 101) {
$iif($did(101).state == 1,set,unset) %itunes.msgopt.sample 1
}
if ($did == 102) {
$iif($did(102).state == 1,set,unset) %itunes.msgopt.play 1
}
if ($did == 103) {
$iif($did(103).state == 1,set,unset) %itunes.msgopt.rating 1
}
if ($did == 200) {
itunes.show
}
itunes.manager.np
}
on *:DIALOG:itunes.manager:close:*: {
.timeritunes off
}
dialog itunes.locatefiles {
option dbu
size -1 -1 200 60
title "iTunes Manager - Locate Files"
text "mdx.dll", 1, 2 3 40 10, right
edit %itunes.mdx.dll , 2, 44 2 140 10, autohs
button "...", 3, 186 2 12 10
text "irctunes.dll", 4, 2 14 40 10, right
edit %itunes.irctunes.dll , 5, 44 13 140 10, autohs
button "...", 6, 186 13 12 10
text "ctl_gen.mdx", 7, 2 25 40 10, right
edit %itunes.ctl_gen.mdx , 8, 44 24 140 10, autohs
button "...", 9, 186 24 12 10
text "bars.mdx", 10, 2 36 40 10, right
edit %itunes.bars.mdx , 11, 44 35 140 10, autohs
button "...", 12, 186 35 12 10
button "Done", 200, 144 46 40 12
button "X", 201, 186 46 12 12, cancel
text "You can download these files at" , 202, 2 46 135 6, right
link "http://wfs.myartsonline.com/downloads", 203, 41 52 100 10
}
on *:DIALOG:itunes.locatefiles:sclick:*: {
if ($did == 3 || $did == 6 || $did == 9 || $did == 12) {
did -ra itunes.locatefiles $calc($did - 1) $$sfile(*.dll;*.mdx,Select File ( $+ $did($calc($did - 2)).text $+ ))
}
if ($did == 200) {
did -rab itunes.locatefiles 200 Saving..
set %itunes.mdx.dll $did(2).text
set %itunes.irctunes.dll $did(5).text
set %itunes.ctl_gen.mdx $did(8).text
set %itunes.bars.mdx $did(11).text
dialog -x itunes.locatefiles
itunes.restart
itunes.manager.np
.timeritunes 0 1 itunes.manager.np
}
if ($did == 203) {
itunes.dl
}
}
on *:DIALOG:itunes.locatefiles:close:*: {
if (%itunes.mdx.dll != $did(2).text || %itunes.irctunes.dll != $did(5).text || %itunes.ctl_gen.mdx != $did(8).text || %itunes.bars.mdx != $did(11).text) {
if ($input(DLL Locations have changed! $crlf $+ Would you like to save changes?,qy,iTunes Manager - Save DLL Locations?) == $true) {
set %itunes.mdx.dll $did(2).text
set %itunes.irctunes.dll $did(5).text
set %itunes.ctl_gen.mdx $did(8).text
set %itunes.bars.mdx $did(11).text
}
}
}
dialog itunes.msgopt {
size -1 -1 200 100
title "iTunes Manager - Message Options"
option dbu
box "Colors", 1, 2 2 125 43
text "Primary Color", 2, 7 14 50 10
combo 3, 50 13 70 10, drop
text "Seconday Color", 4, 7 28 50 10
combo 5, 50 27 70 10, drop
box "Brackets", 6, 2 50 125 43
text "Opening Bracket", 7, 7 64 50 10
edit %itunes.msgopt.openbracket, 8, 50 63 10 10, drop
combo 9, 62 63 58 10, drop
text "Closing Bracket", 10, 7 78 50 10
edit %itunes.msgopt.closebracket, 11, 50 77 10 10, drop
combo 12, 62 77 58 10, drop
box "Other", 13, 130 2 65 70
check "Bold", 14, 137 12 50 10
check "Underline", 15, 137 22 50 10
radio "Describe (/me)", 16, 137 34 50 10
radio "Message (/say)", 17, 137 44 50 10
edit "", 18, 137 56 50 10, autohs
button "Done", 100, 130 80 52 12
button "X", 101, 184 80 12 12, cancel
}
on *:DIALOG:itunes.msgopt:init:*: {
var %x = Black Dark-Blue Dark-Green Red Brown Purple Orange Yellow Green Aqua Light-Blue Blue Pink Dark-Grey Light-Grey
var %y = 1
while (%y <= $numtok(%x,32)) {
did -a itunes.msgopt 3,5,9,12 $gettok(%x,%y,32)
inc %y
}
did -c $dname 3 %itunes.msgopt.primary
did -c $dname 5 %itunes.msgopt.secondary
did -c $dname 9 %itunes.msgopt.openbracketcol
did -c $dname 12 %itunes.msgopt.closebracketcol
did $iif(%itunes.msgopt.bold,-c,-u) $dname 14
did $iif(%itunes.msgopt.underline,-c,-u) $dname 15
did -c $dname $iif(%itunes.msgopt.method == /me,16,17)
did -ra $dname 18 $iif(!%itunes.msgopt.intro,Intro..,%itunes.msgopt.intro)
}
on *:DIALOG:itunes.msgopt:sclick:*: {
if ($did == 100) {
set %itunes.msgopt.primary $base($did(3).sel,10,10,2)
set %itunes.msgopt.secondary $base($did(5).sel,10,10,2)
set %itunes.msgopt.openbracket $did(8).text
set %itunes.msgopt.openbracketcol $base($did(9).sel,10,10,2)
set %itunes.msgopt.closebracket $did(11).text
set %itunes.msgopt.closebracketcol $base($did(12).sel,10,10,2)
set %itunes.msgopt.bold $did(14).state
set %itunes.msgopt.underline $did(15).state
set %itunes.msgopt.method $iif($did(16).state == 1,/me,/say)
set %itunes.msgopt.intro $iif($did(18).text != Intro..,$did(18).text,)
dialog -x $dname
}
}
on *:DIALOG:itunes.msgopt:close:*: {
if (%itunes.msgopt.primary != $did(3).sel || %itunes.msgopt.secondary != $did(5).sel || %itunes.msgopt.openbracket != $did(8).text || %itunes.msgopt.openbracketcol != $did(9).sel || %itunes.msgopt.closebracket != $did(11).text || %itunes.msgopt.closebracketcol != $did(12).sel || %itunes.msgopt.bold != $did(14).state || %itunes.msgopt.underline != $did(15).state || %itunes.msgopt.intro != $remove($did(18).text,Intro..) || $did($iif(%itunes.msgopt.method == /me,16,17)).state != $iif(%itunes.msgopt.method == /me,1,0)) {
if ($input(Message Options have changed! $crlf $+ Would you like to save changes?,qy,iTunes Manager - Save Message Options?) == $true) {
set %itunes.msgopt.primary $base($did(3).sel,10,10,2)
set %itunes.msgopt.secondary $base($did(5).sel,10,10,2)
set %itunes.msgopt.openbracket $did(8).text
set %itunes.msgopt.openbracketcol $base($did(9).sel,10,10,2)
set %itunes.msgopt.closebracket $did(11).text
set %itunes.msgopt.closebracketcol $base($did(12).sel,10,10,2)
set %itunes.msgopt.bold $did(14).state
set %itunes.msgopt.underline $did(15).state
set %itunes.msgopt.method $iif($did(16).state == 1,/me,/say)
set %itunes.msgopt.intro $iif($did(18).text != Intro..,$did(18).text,)
}
dialog -x $dname
}
}
dialog itunes.help {
size -1 -1 200 150
option dbu
title "iTunes Manger - Help"
edit "Loading .. (Connecting)", 1, 0 0 200 135, multi read disabled
button "Close", 2, 150 136 49 13, cancel
text "Loading .. (Connecting)", 3, 3 140 145 13, disabled
}
on *:DIALOG:itunes.help:init:*: {
if ($sock(itunes.load.help)) {
sockclose itunes.load.help
}
sockopen itunes.load.help wfs.myartsonline.com 80
}
on *:DIALOG:itunes.help:close:*: {
sockclose itunes.*
if (!%itunes.used && !$dialog(itunes.manager)) {
if ($input(Would you like to now open the iTunes Manager?,qy,iTunes Manager - Open now?) == $true) {
itunes
}
}
}
on *:SOCKOPEN:itunes.load.help: {
if ($sockerr) {
.timer 1 0 noop $!input(There was an error connecting to the help file $crlf $+ $crlf $+ Socket Error REF# $+ $sockerr ,oh,iTunes Manager - Socket Error)
did -ra itunes.help 1,3 Disconnected .. (Socket Error REF# $+ $sockerr $+ )
sockclose itunes.*
}
else {
sockwrite -nt $sockname GET /itunes/index.php HTTP/1.1
sockwrite -nt $sockname Host: wfs.myartsonline.com
sockwrite -nt $sockname $crlf
did -ra itunes.help 1,3 Loading .. (Downloading Data)
}
}
on *:SOCKREAD:itunes.load.help: {
var %x
sockread %x
if ($regex(%x,/Latest Version.*/)) {
did -rae itunes.help 3 $iif($itunes.scriptversion == $gettok(%x,3,32),Your script is up to date (Version: $itunes.scriptversion $+ ),Your script is out of date. ( $+ $itunes.scriptversion // Current: $gettok(%x,3,32) $+ ))
}
if ($regex(%x,/<!help>.*/)) {
did -rae itunes.help 1 $replace($gettok(%x,2-,32),//,$crlf $+)
}
}
alias itunes.manager.np {
if ($dialog(itunes.manager)) {
if (%itunes.opt.pbar) {
did -h itunes.manager 4,5
did -v itunes.manager 6,7
}
else {
did -v itunes.manager 4,5
did -h itunes.manager 6,7
}
if ($itunes.state == Playing || $1 == ovr) {
if ($qt($did(itunes.manager,1)) != $itunes.icons(itunes_bg_playing.jpg) && $itunes.state == Playing) {
did -g itunes.manager 1 $itunes.icons(itunes_bg_playing.jpg)
}
if (%itunes.opt.pbar) {
did -ra itunes.manager 3 $asctime($itunes.position,n:ss)
did -ra itunes.manager 7 - $+ $asctime($calc($itunes.length - $itunes.position),n:ss)
did -ra itunes.manager 6 $round($calc(($itunes.position / $itunes.length) * 100),0)
}
else {
did -ra itunes.manager 3 $asctime($itunes.position,n:ss) $+ $iif($itunes.length,/,) $+ $iif($itunes.length,$asctime($itunes.length,n:ss),)
did -ra itunes.manager 4 $replace($itunes.title,&,&&)
did -ra itunes.manager 5 $replace($itunes.artist,&,&&)
}
did -ra itunes.manager 14 $itunes.bitrate KB/s
did -ra itunes.manager 15 $itunes.samplerate HZ
did -ra itunes.manager 16 $itunes.playcount
did $iif(%itunes.msgopt.bit,-c,-u) itunes.manager 100 | did $iif(%itunes.msgopt.bit,-e,-b) itunes.manager 10 | did $iif(%itunes.msgopt.bit,-e,-b) itunes.manager 14
did $iif(%itunes.msgopt.sample,-c,-u) itunes.manager 101 | did $iif(%itunes.msgopt.sample,-e,-b) itunes.manager 11 | did $iif(%itunes.msgopt.sample,-e,-b) itunes.manager 15
did $iif(%itunes.msgopt.play,-c,-u) itunes.manager 102 | did $iif(%itunes.msgopt.play,-e,-b) itunes.manager 12 | did $iif(%itunes.msgopt.play,-e,-b) itunes.manager 16
did $iif(%itunes.msgopt.rating,-c,-u) itunes.manager 103 | did $iif(%itunes.msgopt.rating,-e,-b) itunes.manager 13 | did $iif(%itunes.msgopt.rating,-e,-b) itunes.manager 17
if ($qt($did(itunes.manager,17)) != $itunes.icons(itunes_rating_ $+ $itunes.rating $+ .jpg)) {
did -g itunes.manager 17 $qt($itunes.icons(itunes_rating_ $+ $itunes.rating $+ .jpg))
}
}
else {
if ($qt($did(itunes.manager,1)) != $itunes.icons(itunes_bg_stopped.jpg)) {
did -g itunes.manager 1 $itunes.icons(itunes_bg_stopped.jpg)
}
}
}
else {
.timeritunes* off
}
}
alias itunes.dll {
if ($1) {
var %x = %itunes. [ $+ [ $1 ] $+ ]
if ($isfile(%x)) {
return $shortfn(%x)
echo -a $shortfn(%x)
}
else {
itunes.close
if ($input(Some required files were not found or are not located properly ( $+ $1 $+ ). Would you like to locate them now?,vyq,iTunes Manager - Locate Files) == $yes) {
.timer 1 0 itunes.locatefiles
}
halt
}
}
}
alias itunes.icons {
var %x = %itunes.icons $+ $1
if ($isfile(%x)) {
return $qt(%x)
}
else {
.timeritunes* off
if ($input(The image pack is missing files ( $+ $1 $+ ). Would you like to locate it now?,vyq,iTunes Manager - Locate Image Pack) == $yes) {
itunes.selimg
itunes.restart
}
else {
itunes.close
}
}
}
alias -l itunes.scriptversion return 2.02
alias -l itunes.dllversion return $gettok($dll($itunes.dll(irctunes.dll), getVersion, 0),2,32)
alias -l itunes.itunesversion return $dll($itunes.dll(irctunes.dll), getiTunesVersion, 0)
alias -l itunes.title return $dll($itunes.dll(irctunes.dll), getTitle, 0)
alias -l itunes.artist return $dll($itunes.dll(irctunes.dll), getArtist, 0)
alias -l itunes.position return $dll($itunes.dll(irctunes.dll), getPosition, 0)
alias -l itunes.length return $dll($itunes.dll(irctunes.dll), getLength, 0)
alias -l itunes.url return $dll($itunes.dll(irctunes.dll), getURL, 0)
alias -l itunes.state return $dll($itunes.dll(irctunes.dll), getState, 0)
alias -l itunes.bitrate return $dll($itunes.dll(irctunes.dll), getBitrate, 0)
alias -l itunes.samplerate return $dll($itunes.dll(irctunes.dll), getSampleRate, 0)
alias -l itunes.playcount return $dll($itunes.dll(irctunes.dll), getPlayCount, 0)
alias -l itunes.rating return $dll($itunes.dll(irctunes.dll), getRating, 0)
alias -l itunes.size return $dll($itunes.dll(irctunes.dll), getSize, 0)
alias itunes.next dll $itunes.dll(irctunes.dll) next
alias itunes.prev dll $itunes.dll(irctunes.dll) previous
alias itunes.stop dll $itunes.dll(irctunes.dll) stop
alias itunes.play dll $itunes.dll(irctunes.dll) play
alias itunes.pause dll $itunes.dll(irctunes.dll) pause
; ==================================;
; END OF iTUNES SCRIPT==============;
; ==================================;
