/ScriptServ

alias wav.help {
  window -ek0w @Wav.Help 1 1 800 478 fixedsys
  echo -a 4,1Thank you for using8,1`·-=4,1ÐìÅÐéM§ §ºµñÐ §¥§±éM8,1=-.,4,1by þHí£MµÇKí±±!
  echo -a 4,1Instructions, Shortcuts, and Commands:
  echo -a 4,1F3	5,4Opens a window to choose the wave you want to hear
  echo -a 4,1F4	5,4Plays the last wave again
  echo -a 4,1Self	5,4Echoes Wav message to you and you alone
  echo -a 4,1Active	5,4Wav message goes to the channel you are currently viewing
  echo -a 4,1All	5,4Wav message goes to ALL channels you are on
  echo -a 
  echo -a 4,1For further information visit www.angelcities.com/members/philmuckitt/Diadems.html
  echo -a 
  echo -a 4,1DOUBLE CLICK ANYWHERE IN THIS WINDOW TO CLOSE
}
menu @Wav.Help {
  dclick:window -c @Wav.Help
}
alias mp3.help {
  window -ek0w @Mp3.Help 1 1 800 478 fixedsys
  echo -a 4,1Thank you for using8,1`·-=4,1ÐìÅÐéM§ §ºµñÐ §¥§±éM8,1=-.,4,1by þHí£MµÇKí±±!
  echo -a 4,1Instructions, Shortcuts, and Commands:
  echo -a 4,1F5	5,4Plays the previous Mp3
  echo -a 4,1F6	5,4Opens a window to choose the Mp3 you want to hear
  echo -a 4,1F7	5,4Plays a random Mp3
  echo -a 4,1F8	5,4Stops current Mp3
  echo -a 4,1Self	5,4Echoes Mp3 message to you and you alone
  echo -a 4,1Active	5,4Mp3 message goes to the channel you are currently viewing
  echo -a 4,1All	5,4Mp3 message goes to ALL channels you are on
  echo -a 
  echo -a 4,1For further information visit www.angelcities.com/members/philmuckitt/Diadems.html
  echo -a 
  echo -a 4,1DOUBLE CLICK ANYWHERE IN THIS WINDOW TO CLOSE
}
menu @Mp3.Help {
  dclick:window -c @Mp3.Help
}
alias cd.help {
  window -ek0w @CD.Help 1 1 800 478 fixedsys
  echo -a 4,1Thank you for using8,1`·-=4,1ÐìÅÐéM§ §ºµñÐ §¥§±éM8,1=-.,4,1by þHí£MµÇKí±±!
  echo -a 4,1Instructions, Shortcuts, and Commands:
  echo -a 4,1F9	5,4Plays the previous CD track
  echo -a 4,1F10	5,4Opens a window to choose the CD track you want to hear
  echo -a 4,1F11	5,4Plays a random CD track
  echo -a 4,1F12	5,4Starts the setup for the current CD in the drive
  echo -a 4,1Self	5,4Echoes CD message to you and you alone
  echo -a 4,1All	5,4CD message goes to ALL channels you are on
  echo -a 
  echo -a 4,1For further information visit www.angelcities.com/members/philmuckitt/Diadems.html
  echo -a 
  echo -a 4,1DOUBLE CLICK ANYWHERE IN THIS WINDOW TO CLOSE
}
menu @CD.Help {
  dclick:window -c @CD.Help
}

alias mp3length {
  set %len1 $duration($calc($iif($1 == $null,$mp3(%mp3.temp).length,$1) / 1000))
  set %len2 $replace(%len1,mins,:,min,:)
  if ($len(%len2) == 2) { set %len3 %len2 $+ 00 | return %len3 | halt }
  set %len3 $remove(%len2,$chr(32),secs,sec)
  if (: isin $right(%len3,2)) { set %len3 $left(%len3,$calc($len(%len3) - 2)) $+ :0 $+ $right(%len3,1) }
  if ($len(%len3) == 2) { set %len3 0: $+ %len3 }
  if ($len(%len3) == 1) { set %len3 0:0 $+ %len3 }
  if (%len3 <= 0) { return 0:01 | halt }
  if (- isin %len3) set %len3 $replace(%len3,-,0)
  set %mp3.time.msg %len3
  return %mp3.time.msg
}
alias mp3timerlength {
  return $int($calc($mp3(%mp3.temp).length / 1000))
}
alias mp3msg {
  if (%mp3.amsg == $null) set %mp3.amsg All Chan
  if (($right(%mp3.temp,4) != .mp3) || ($inmp3 == $false)) { echo -a -8,4ERROR4,1 That is not a valid .mp3 file, please try again | goto end }
  if (($chan(1) == $null) || ($server == $null) || (%mp3.amsg == self)) { echo -a 8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-.,5,4 Mp3 8,1[[4,17 $+ $nopath($inmp3.fname) $+ 8,1]]5,4 length 8,1[[4,1 $mp3length 8,1]]5,4 size 8,1[[4,1 $round($calc($file($inmp3.fname).size / 1000000),2) $+ MB 8,1]]5,4 bitrate 8,1[[4,1 $mp3($inmp3.fname).bitrate 8,1]]5,4 kHz 8,1[[4,1 $left($mp3($inmp3.fname).sample,2) 8,1]]5,4 Quality 8,1[[4,1 $mp3($inmp3.fname).mode 8,1]] | halt }
  if (%mp3.amsg == all chan) { amsg 8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-.,5,4 Mp3 8,1[[4,17 $+ ! $+ $me $nopath($inmp3.fname) $+ 8,1]]5,4 length 8,1[[4,1 $mp3length 8,1]]5,4 size 8,1[[4,1 $round($calc($file($inmp3.fname).size / 1000000),2) $+ MB 8,1]]5,4 bitrate 8,1[[4,1 $mp3($inmp3.fname).bitrate 8,1]]5,4 kHz 8,1[[4,1 $left($mp3($inmp3.fname).sample,2) 8,1]]5,4 Quality 8,1[[4,1 $mp3($inmp3.fname).mode 8,1]] | halt }
  if (%mp3.amsg == active chan) { msg # 8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-.,5,4 Mp3 8,1[[4,17 $+ ! $+ $me $nopath($inmp3.fname) $+ 8,1]]5,4 length 8,1[[4,1 $mp3length 8,1]]5,4 size 8,1[[4,1 $round($calc($file($inmp3.fname).size / 1000000),2) $+ MB 8,1]]5,4 bitrate 8,1[[4,1 $mp3($inmp3.fname).bitrate 8,1]]5,4 kHz 8,1[[4,1 $left($mp3($inmp3.fname).sample,2) 8,1]]5,4 Quality 8,1[[4,1 $mp3($inmp3.fname).mode 8,1]] | halt }
    :end
  }