/ScriptServ

alias cd.play {
  if (%cd.dir == $null) set %cd.dir $sdir="CD Directory"
  set %cd.size $disk(%cd.dir).size
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.recognize $readini %cd.ini %cd.size Track01
  if (%cd.recognize == $null) cd.playno
  if (%cd.recognize != $null) cd.playyes
}

alias cd.playno {
  if ($window(@CD.) != $null) { window -ar @CD. | halt }
  window -alsok0 +t @CD. 258 42 488 397 @CD.
  clear @CD.
  set %cd.put.temp $findfile(%cd.dir,*.cda,@CD.)
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.recognize $readini %cd.ini %cd.size Track01
  :end
}

menu @CD. {
  dclick {
    set %cd.randpick $1
    set %cd.temp $line(@CD.,$1)
    if (%cd.put.temp == 0) { halt }
    window -c @CD.
    run %cd.temp
    set %cd.prev %cd.temp
    set %cd.prev3 %cd.prev2
    set %cd.prev2 %cd.prev
    set %cd.size $disk(%cd.dir).size
    set %cd.nope $nopath(%cd.temp)
    set %cd.nopath $left(%cd.nope,$calc($len(%cd.nope) - 4))
    set %cd.remote.msg %cd.nopath ||| type /cd.setup to setup this cd
    if (%cd.recognize == $null) echo -a 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 CD 8,1[[4,1 $+ %cd.nopath $+ 8,1]]
    cd.unset
  }
}
alias cd.playyes {
  if ($window(@CD) != $null) { window -ar @CD | halt }
  window -alsok0 +t @CD 258 42 250 200 @CD
  clear @CD
  set %cd.artist $readini %cd.ini %cd.size Artist
  set %cd.# $findfile(%cd.dir,*.cda,0)
  if (%cd.# >= 1) iline @CD 1 %cd.artist - $readini %cd.ini %cd.size Track01
  if (%cd.# >= 2) iline @CD 2 %cd.artist - $readini %cd.ini %cd.size Track02
  if (%cd.# >= 3) iline @CD 3 %cd.artist - $readini %cd.ini %cd.size Track03
  if (%cd.# >= 4) iline @CD 4 %cd.artist - $readini %cd.ini %cd.size Track04
  if (%cd.# >= 5) iline @CD 5 %cd.artist - $readini %cd.ini %cd.size Track05
  if (%cd.# >= 6) iline @CD 6 %cd.artist - $readini %cd.ini %cd.size Track06
  if (%cd.# >= 7) iline @CD 7 %cd.artist - $readini %cd.ini %cd.size Track07
  if (%cd.# >= 8) iline @CD 8 %cd.artist - $readini %cd.ini %cd.size Track08
  if (%cd.# >= 9) iline @CD 9 %cd.artist - $readini %cd.ini %cd.size Track09
  if (%cd.# >= 10) iline @CD 10 %cd.artist - $readini %cd.ini %cd.size Track10
  if (%cd.# >= 11) iline @CD 11 %cd.artist - $readini %cd.ini %cd.size Track11
  if (%cd.# >= 12) iline @CD 12 %cd.artist - $readini %cd.ini %cd.size Track12
  if (%cd.# >= 13) iline @CD 13 %cd.artist - $readini %cd.ini %cd.size Track13
  if (%cd.# >= 14) iline @CD 14 %cd.artist - $readini %cd.ini %cd.size Track14
  if (%cd.# >= 15) iline @CD 15 %cd.artist - $readini %cd.ini %cd.size Track15
  if (%cd.# >= 16) iline @CD 16 %cd.artist - $readini %cd.ini %cd.size Track16
  if (%cd.# >= 17) iline @CD 17 %cd.artist - $readini %cd.ini %cd.size Track17
  if (%cd.# >= 18) iline @CD 18 %cd.artist - $readini %cd.ini %cd.size Track18
  if (%cd.# >= 19) iline @CD 19 %cd.artist - $readini %cd.ini %cd.size Track19
  if (%cd.# >= 20) iline @CD 20 %cd.artist - $readini %cd.ini %cd.size Track20
  if (%cd.# >= 21) iline @CD 21 %cd.artist - $readini %cd.ini %cd.size Track21
  if (%cd.# >= 22) iline @CD 22 %cd.artist - $readini %cd.ini %cd.size Track22
  if (%cd.# >= 23) iline @CD 23 %cd.artist - $readini %cd.ini %cd.size Track23
  if (%cd.# >= 24) iline @CD 24 %cd.artist - $readini %cd.ini %cd.size Track24
  if (%cd.# >= 25) iline @CD 25 %cd.artist - $readini %cd.ini %cd.size Track25
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.recognize $readini %cd.ini %cd.size Track01
  :end
}

menu @CD {
  dclick {
    set %cd.randpick $1
    set %cd.temp $line(@CD,$1)
    if (%cd.put.temp == 0) { halt }
    window -c @CD
    if (%cd.randpick == 1) set %cd.temp %cd.dir $+ \ $+ Track01.cda
    if (%cd.randpick == 2) set %cd.temp %cd.dir $+ \ $+ Track02.cda
    if (%cd.randpick == 3) set %cd.temp %cd.dir $+ \ $+ Track03.cda
    if (%cd.randpick == 4) set %cd.temp %cd.dir $+ \ $+ Track04.cda
    if (%cd.randpick == 5) set %cd.temp %cd.dir $+ \ $+ Track05.cda
    if (%cd.randpick == 6) set %cd.temp %cd.dir $+ \ $+ Track06.cda
    if (%cd.randpick == 7) set %cd.temp %cd.dir $+ \ $+ Track07.cda
    if (%cd.randpick == 8) set %cd.temp %cd.dir $+ \ $+ Track08.cda
    if (%cd.randpick == 9) set %cd.temp %cd.dir $+ \ $+ Track09.cda
    if (%cd.randpick == 10) set %cd.temp %cd.dir $+ \ $+ Track10.cda
    if (%cd.randpick == 11) set %cd.temp %cd.dir $+ \ $+ Track11.cda
    if (%cd.randpick == 12) set %cd.temp %cd.dir $+ \ $+ Track12.cda
    if (%cd.randpick == 13) set %cd.temp %cd.dir $+ \ $+ Track13.cda
    if (%cd.randpick == 14) set %cd.temp %cd.dir $+ \ $+ Track14.cda
    if (%cd.randpick == 15) set %cd.temp %cd.dir $+ \ $+ Track15.cda
    if (%cd.randpick == 16) set %cd.temp %cd.dir $+ \ $+ Track16.cda
    if (%cd.randpick == 17) set %cd.temp %cd.dir $+ \ $+ Track17.cda
    if (%cd.randpick == 18) set %cd.temp %cd.dir $+ \ $+ Track18.cda
    if (%cd.randpick == 19) set %cd.temp %cd.dir $+ \ $+ Track19.cda
    if (%cd.randpick == 20) set %cd.temp %cd.dir $+ \ $+ Track20.cda
    if (%cd.randpick == 21) set %cd.temp %cd.dir $+ \ $+ Track21.cda
    if (%cd.randpick == 22) set %cd.temp %cd.dir $+ \ $+ Track22.cda
    if (%cd.randpick == 23) set %cd.temp %cd.dir $+ \ $+ Track23.cda
    if (%cd.randpick == 24) set %cd.temp %cd.dir $+ \ $+ Track24.cda
    if (%cd.randpick == 25) set %cd.temp %cd.dir $+ \ $+ Track25.cda
    if (%cd.randpick == 1) set %cd.temp# 1
    if (%cd.randpick == 2) set %cd.temp# 2
    if (%cd.randpick == 3) set %cd.temp# 3
    if (%cd.randpick == 4) set %cd.temp# 4
    if (%cd.randpick == 5) set %cd.temp# 5
    if (%cd.randpick == 6) set %cd.temp# 6
    if (%cd.randpick == 7) set %cd.temp# 7
    if (%cd.randpick == 8) set %cd.temp# 8
    if (%cd.randpick == 9) set %cd.temp# 9
    if (%cd.randpick == 10) set %cd.temp# 10
    if (%cd.randpick == 11) set %cd.temp# 11
    if (%cd.randpick == 12) set %cd.temp# 12
    if (%cd.randpick == 13) set %cd.temp# 13
    if (%cd.randpick == 14) set %cd.temp# 14
    if (%cd.randpick == 15) set %cd.temp# 15
    if (%cd.randpick == 16) set %cd.temp# 16
    if (%cd.randpick == 17) set %cd.temp# 17
    if (%cd.randpick == 18) set %cd.temp# 18
    if (%cd.randpick == 19) set %cd.temp# 19
    if (%cd.randpick == 20) set %cd.temp# 20
    if (%cd.randpick == 21) set %cd.temp# 21
    if (%cd.randpick == 22) set %cd.temp# 22
    if (%cd.randpick == 23) set %cd.temp# 23
    if (%cd.randpick == 24) set %cd.temp# 24
    if (%cd.randpick == 25) set %cd.temp# 25
    run %cd.temp
    set %cd.prev %cd.temp
    set %cd.prev3 %cd.prev2
    set %cd.prev2 %cd.prev
    set %cd.size $disk(%cd.dir).size
    set %cd.nope $nopath(%cd.temp)
    set %cd.nopath $left(%cd.nope,$calc($len(%cd.nope) - 4))
    if (%cd.msg == $null) { set %cd.msg amsg | set %cd.say All Channels }
    set %cd.album $readini %cd.ini %cd.size album
    set %cd.nopath $readini %cd.ini %cd.size %cd.nopath
    set %cd.artist $readini %cd.ini %cd.size Artist
    set %cd.remote.msg %cd.artist - %cd.nopath
    %cd.msg 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.artist - %cd.nopath $+ 8,1]]5,4 Track 8,1[[4 %cd.randpick 8]]5,4 Album 8,1[[4,1 $+ %cd.album $+ 8]]
    cd.unset
  }
}

alias cd.rand {
  if (%cd.dir == $null) set %cd.dir $sdir="CD Directory"
  set %cd.# $findfile(%cd.dir,*.cda,0)
  set %cd.size $disk(%cd.dir).size
  set %cd.randpick $rand(1,%cd.#)
  set %cd.temp $findfile(%cd.dir,*.cda,%cd.randpick)
  set %cd.prev2 %cd.prev
  set %cd.prev %cd.temp
  run %cd.temp
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.nope $nopath(%cd.temp)
  set %cd.nopath $left(%cd.nope,$calc($len(%cd.nope) - 4))
  if (%cd.msg == $null) { set %cd.msg amsg | set %cd.say All Channels }
  set %cd.remote.msg %cd.nopath ||| type /cd.setup to setup this cd
  set %cd.recognize $readini %cd.ini %cd.size Track01
  if (%cd.recognize == $null) echo -a 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.nopath $+ 8,1]] | else {
    set %cd.album $readini %cd.ini %cd.size album
    set %cd.nopath $readini %cd.ini %cd.size %cd.nopath
    set %cd.artist $readini %cd.ini %cd.size Artist
    set %cd.remote.msg %cd.artist - %cd.nopath
    %cd.msg 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.artist - %cd.nopath $+ 8,1]]5,4 Track 8,1[[4 %cd.randpick 8]]5,4 Album 8,1[[4,1 $+ %cd.album $+ 8]]
  }
  cd.unset
}
alias cd.prev {
  if (%cd.dir == $null) set %cd.dir $sdir="CD Directory"
  set %cd.ini $mircdirprograms\Mp3player\CDplayer\CD.ini
  if (%cd.temp != $null) {
    set %cd.temp %cd.prev3
    set %cd.prev2 %cd.prev
    set %cd.prev %cd.temp
    set %cd.nopath $nopath(%cd.prev3)
    run %cd.player " $+ %cd.prev3 $+ "
    if (%cd.msg == $null) { set %cd.msg amsg | set %cd.say All Channels }
    set %cd.remote.msg %cd.temp
    set %cd.nope $nopath(%cd.temp)
    set %cd.nopath $left(%cd.nope,$calc($len(%cd.nope) - 4))
    set %cd.remote.msg %cd.nopath ||| type /cd.setup to setup this cd
    set %cd.recognize $readini %cd.ini %cd.size Track01
    if (%cd.recognize == $null) echo -a 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.nopath $+ 8,1]] | else {
      set %cd.album $readini %cd.ini %cd.size album
      set %cd.nopath $readini %cd.ini %cd.size %cd.nopath
      set %cd.artist $readini %cd.ini %cd.size Artist
      set %cd.remote.msg %cd.artist - %cd.nopath
      set %cd.randpick $left(%cd.nope,$calc($len(%cd.nope) - 4))
      %cd.msg 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.remote.msg $+ 8,1]]5,4 Track 8,1[[4 %cd.randpick 8]]5,4 Album 8,1[[4,1 $+ %cd.album $+ 8]]
    }
    else echo -a 8,1`·-=4,1ÐìÅÐéM§ ÇРޣťé®8,1=-.,5,4 Song 8,1[[4,1 $+ %cd.remote.msg $+ 8,1]]
  }
}
alias F9 {
  cd.prev
}
alias F10 {
  cd.play
}
alias F11 {
  cd.rand
}
alias F12 {
  cd.setup
}
alias cd.setup {
  if (%cd.dir == $null) set %cd.dir $sdir="CD Directory"
  set %cd.artist $$?="Artist:"
  set %cd.album $$?="Album Name:"
  set %cd.# $findfile(%cd.dir,*.cda,0)
  set %cd.size $disk(%cd.dir).size
  writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Artist %cd.artist
  writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Album %cd.album
  if (%cd.# >= 1) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track01 $$?="Name Of Track 1:"
  if (%cd.# >= 2) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track02 $$?="Name Of Track 2:"
  if (%cd.# >= 3) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track03 $$?="Name Of Track 3:"
  if (%cd.# >= 4) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track04 $$?="Name Of Track 4:"
  if (%cd.# >= 5) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track05 $$?="Name Of Track 5:"
  if (%cd.# >= 6) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track06 $$?="Name Of Track 6:"
  if (%cd.# >= 7) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track07 $$?="Name Of Track 7:"
  if (%cd.# >= 8) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track08 $$?="Name Of Track 8:"
  if (%cd.# >= 9) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track09 $$?="Name Of Track 9:"
  if (%cd.# >= 10) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track10 $$?="Name Of Track 10:"
  if (%cd.# >= 11) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track11 $$?="Name Of Track 11:"
  if (%cd.# >= 12) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track12 $$?="Name Of Track 12:"
  if (%cd.# >= 13) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track13 $$?="Name Of Track 13:"
  if (%cd.# >= 14) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track14 $$?="Name Of Track 14:"
  if (%cd.# >= 15) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track15 $$?="Name Of Track 15:"
  if (%cd.# >= 16) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track16 $$?="Name Of Track 16:"
  if (%cd.# >= 17) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track17 $$?="Name Of Track 17:"
  if (%cd.# >= 18) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track18 $$?="Name Of Track 18:"
  if (%cd.# >= 19) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track20 $$?="Name Of Track 19:"
  if (%cd.# >= 20) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track21 $$?="Name Of Track 20:"
  if (%cd.# >= 21) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track21 $$?="Name Of Track 21:"
  if (%cd.# >= 22) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track22 $$?="Name Of Track 22:"
  if (%cd.# >= 23) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track23 $$?="Name Of Track 23:"
  if (%cd.# >= 24) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track24 $$?="Name Of Track 24:"
  if (%cd.# >= 25) writeini -n $mircdirprograms\Mp3Player\CDPlayer\CD.ini %cd.size Track25 $$?="Name Of Track 25:"
}

alias cd.unset {
  unset %cd.artist
  unset %cd.recognize
}
alias cd.edit {
  if (%cd.dir == $null) set %cd.dir $sdir="CD Directory"
  set %cd.size $disk(%cd.dir).size
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.recognize $readini %cd.ini %cd.size Track01
  if (%cd.recognize == $null) { writeini -n %cd.ini %cd.size Artist $$?="Artist:" | window -c @CDeditor | cd.editor }
  if (%cd.recognize != $null) cd.editor
}

alias cd.editor {
  set %cd.artist $readini %cd.ini %cd.size Artist
  set %cd.album $readini %cd.ini %cd.size Album
  set %cd.# $findfile(%cd.dir,*.cda,0)
  if ($window(@CDeditor) != $null) { window -ar @CDeditor | halt }
  window -alsok0 +t @CDeditor 258 42 488 397 @CDeditor
  clear @CDeditor
  iline @CDeditor 1 Artist: $readini %cd.ini %cd.size Artist
  iline @CDeditor 2 Album: $readini %cd.ini %cd.size Album
  if (%cd.# >= 1) iline @CDeditor 3 Track1: %cd.artist - $readini %cd.ini %cd.size Track01
  if (%cd.# >= 2) iline @CDeditor 4 Track2: %cd.artist - $readini %cd.ini %cd.size Track02
  if (%cd.# >= 3) iline @CDeditor 5 Track3: %cd.artist - $readini %cd.ini %cd.size Track03
  if (%cd.# >= 4) iline @CDeditor 6 Track4: %cd.artist - $readini %cd.ini %cd.size Track04
  if (%cd.# >= 5) iline @CDeditor 7 Track5: %cd.artist - $readini %cd.ini %cd.size Track05
  if (%cd.# >= 6) iline @CDeditor 8 Track6: %cd.artist - $readini %cd.ini %cd.size Track06
  if (%cd.# >= 7) iline @CDeditor 9 Track7: %cd.artist - $readini %cd.ini %cd.size Track07
  if (%cd.# >= 8) iline @CDeditor 10 Track8: %cd.artist - $readini %cd.ini %cd.size Track08
  if (%cd.# >= 9) iline @CDeditor 11 Track9: %cd.artist - $readini %cd.ini %cd.size Track09
  if (%cd.# >= 10) iline @CDeditor 12 Track10: %cd.artist - $readini %cd.ini %cd.size Track10
  if (%cd.# >= 11) iline @CDeditor 13 Track11: %cd.artist - $readini %cd.ini %cd.size Track11
  if (%cd.# >= 12) iline @CDeditor 14 Track12: %cd.artist - $readini %cd.ini %cd.size Track12
  if (%cd.# >= 13) iline @CDeditor 15 Track13: %cd.artist - $readini %cd.ini %cd.size Track13
  if (%cd.# >= 14) iline @CDeditor 16 Track14: %cd.artist - $readini %cd.ini %cd.size Track14
  if (%cd.# >= 15) iline @CDeditor 17 Track15: %cd.artist - $readini %cd.ini %cd.size Track15
  if (%cd.# >= 16) iline @CDeditor 18 Track16: %cd.artist - $readini %cd.ini %cd.size Track16
  if (%cd.# >= 17) iline @CDeditor 19 Track17: %cd.artist - $readini %cd.ini %cd.size Track17
  if (%cd.# >= 18) iline @CDeditor 20 Track18: %cd.artist - $readini %cd.ini %cd.size Track18
  if (%cd.# >= 19) iline @CDeditor 21 Track19: %cd.artist - $readini %cd.ini %cd.size Track19
  if (%cd.# >= 20) iline @CDeditor 22 Track20: %cd.artist - $readini %cd.ini %cd.size Track20
  if (%cd.# >= 21) iline @CDeditor 23 Track21: %cd.artist - $readini %cd.ini %cd.size Track21
  if (%cd.# >= 22) iline @CDeditor 24 Track22: %cd.artist - $readini %cd.ini %cd.size Track22
  if (%cd.# >= 23) iline @CDeditor 25 Track23: %cd.artist - $readini %cd.ini %cd.size Track23
  if (%cd.# >= 24) iline @CDeditor 26 Track24: %cd.artist - $readini %cd.ini %cd.size Track24
  if (%cd.# >= 25) iline @CDeditor 27 Track25: %cd.artist - $readini %cd.ini %cd.size Track25
  set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
  set %cd.recognize $readini %cd.ini %cd.size Track01
  :end
}

menu @CDeditor {
  dclick {
    set %cd.randpick $1
    set %cd.temp $line(@CDeditor,$1)
    if (%cd.put.temp == 0) { halt }
    if (%cd.randpick == 1) set %cd.track Artist
    if (%cd.randpick == 2) set %cd.track Album
    if (%cd.randpick == 3) set %cd.track Track01
    if (%cd.randpick == 4) set %cd.track Track02
    if (%cd.randpick == 5) set %cd.track Track03
    if (%cd.randpick == 6) set %cd.track Track04
    if (%cd.randpick == 7) set %cd.track Track05
    if (%cd.randpick == 8) set %cd.track Track06
    if (%cd.randpick == 9) set %cd.track Track07
    if (%cd.randpick == 10) set %cd.track Track08
    if (%cd.randpick == 11) set %cd.track Track09
    if (%cd.randpick == 12) set %cd.track Track10
    if (%cd.randpick == 13) set %cd.track Track11
    if (%cd.randpick == 14) set %cd.track Track12
    if (%cd.randpick == 15) set %cd.track Track13
    if (%cd.randpick == 16) set %cd.track Track14
    if (%cd.randpick == 17) set %cd.track Track15
    if (%cd.randpick == 18) set %cd.track Track16
    if (%cd.randpick == 19) set %cd.track Track17
    if (%cd.randpick == 20) set %cd.track Track18
    if (%cd.randpick == 21) set %cd.track Track19
    if (%cd.randpick == 22) set %cd.track Track20
    if (%cd.randpick == 23) set %cd.track Track21
    if (%cd.randpick == 24) set %cd.track Track22
    if (%cd.randpick == 25) set %cd.track Track23
    set %cd.size $disk(%cd.dir).size
    set %cd.ini $mircdirprograms\Mp3Player\CDPlayer\CD.ini
    set %cd.recognize $readini %cd.ini %cd.size Track01
    set %cd.change $$?="Change to:"
    writeini -n %cd.ini %cd.size %cd.track %cd.change
    window -c @CDeditor
    cd.edit
  }
}