alias ValStart {
  /timerVal1 0 30 /CHECK
  /echo Valhalla Tunes 1.0 Started. Type /ValEnd to Deactivate.
}
alias ValEnd {
  /timerVal1 off
  /echo Valhalla Tunes 1.0 Deactivated
}
alias CHECK {
  if ($com(it) == $null) {
    .comopen it iTunes.Application 
  }
  if ($com(ct)) {
    .comclose ct 
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Name,3)
  set %verif1 $com(ct).result
  .echo -q $com(ct,Artist,3)
  set %verif2 $com(ct).result 
  .echo -q $com(ct,Album,3)
  set %verif3 $com(ct).result 
  if (%verif1 == %song) { if (%verif2 == %artist) { if (%verif3 == %album) { /halt } } }
  else { /ValTunes }
}
Alias ValTunes {
  if ($com(it) == $null) { 
    .comopen it iTunes.Application 
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  set %artist $com(ct).result
  .echo -q $com(ct,Album,3)
  set %album $com(ct).result
  .echo -q $com(ct,Year,3)
  set %year $com(ct).result
  .echo -q $com(ct,Name,3)
  set %song $com(ct).result
  .echo -q $com(ct,Genre,3)
  set %Genre $com(ct).result
  .echo -q $com(ct,Time,3)
  set %time $com(ct).result
  .echo -q $com(ct,Playedcount,3)
  set %plays $com(ct).result
  /msg #viper 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
  /msg #a7x 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
  /msg #raypec 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
}

Alias iTunes {
  if ($com(it) == $null) { 
    .comopen it iTunes.Application 
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  set %artist $com(ct).result
  .echo -q $com(ct,Album,3)
  set %album $com(ct).result
  .echo -q $com(ct,Year,3)
  set %year $com(ct).result
  .echo -q $com(ct,Name,3)
  set %song $com(ct).result
  .echo -q $com(ct,Genre,3)
  set %Genre $com(ct).result
  .echo -q $com(ct,Time,3)
  set %time $com(ct).result
  .echo -q $com(ct,Playedcount,3)
  set %plays $com(ct).result
  /msg $chan 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
}
menu menubar {
  -
  ValTunes 1.0
  .Information:/dialog -m ValTunes.dialog ValTunes.dialogtable
  .-
  .Start:/ValStart
  .Stop:/ValEnd
  .Instructions:/dialog -m InstructTunes.dialog InstructTunes.dialogtable
}


dialog ValTunes.dialogtable {
  title "ValTunes Info"
  size -1 -1 260 110
  text "ValTunes 1.0", 25, 3 3 100 22
  text "Scripted by Valhalla of SwiftIRC.net", 35, 3 17 10000 3000, nowrap
  text "JevK39@hotmail.com (email only)", 40, 50 84 10000 3000, nowrap
  text "Highlight Castellorizon in #Island", 68, 50 97 10000 3000, nowrap
}
dialog InstructTunes.dialogtable {
  title "ValTunes 1.0 Instructions"
  size -1 -1 400 280,
  text "ValTunes 1.0 Instructions", 25, 5 5 125 20, nowrap
  tab "Variables", 39, 5 47 390 230
  tab "Editing", 40
}

on $*:TEXT:*!itunes*:#: {
  if ($com(it) == $null) { 
    .comopen it iTunes.Application 
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  set %artist $com(ct).result
  .echo -q $com(ct,Album,3)
  set %album $com(ct).result
  .echo -q $com(ct,Year,3)
  set %year $com(ct).result
  .echo -q $com(ct,Name,3)
  set %song $com(ct).result
  .echo -q $com(ct,Genre,3)
  set %Genre $com(ct).result
  .echo -q $com(ct,Time,3)
  set %time $com(ct).result
  .echo -q $com(ct,Playedcount,3)
  set %plays $com(ct).result
  /msg $chan 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
}

on $*:TEXT:*@itunes*:#: {
  if ($com(it) == $null) { 
    .comopen it iTunes.Application 
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  set %artist $com(ct).result
  .echo -q $com(ct,Album,3)
  set %album $com(ct).result
  .echo -q $com(ct,Year,3)
  set %year $com(ct).result
  .echo -q $com(ct,Name,3)
  set %song $com(ct).result
  .echo -q $com(ct,Genre,3)
  set %Genre $com(ct).result
  .echo -q $com(ct,Time,3)
  set %time $com(ct).result
  .echo -q $com(ct,Playedcount,3)
  set %plays $com(ct).result
  /msg $chan 12[4iTunes12] 12Current Song:4 %song 12By:4 %artist 12Album:4 %album 12Year:4 %year 12Time:4 %time 12Play Count:4 %plays
}