Miscellany

alias MP3 {
  if ($window(@Mp3player)) window -c @Mp3Player
  window -aCdfpk0 +d @Mp3Player -1 -1 300 350
  drawfill -r @Mp3Player $rgb(117,169,255) 0 0 0
  drawrect -rnf @Mp3Player $rgb(0,128,192)   1  0   0  300 15
  drawtext -rn  @Mp3Player $rgb(255,255,255) Tahoma 11 3   1   Mp3 Player
  drawrect -rnf @Mp3Player $rgb(255,255,255) 1  5   20 235 17
  drawrect -rnf @Mp3Player $rgb(255,255,255) 1  245 20 50  17
  draw rect $rgb(0,0,0) 1 5   20 235 17
  draw rect $rgb(0,0,0) 1 245 20 50  17
  posbar
}
alias -l draw draw $+ $1 -rn @Mp3Player $2-alias moveposbar {
  if ($mouse.key & 1) {
    .timermoveposbar -om 1 50 moveposbar $calc($mouse.dx -$window($active).x)
    var %p = $calc($1 -5) 
    if (%p < 0) var %p = 0
    if (%p > 290) var %p = 290 
    var %p = $round($calc((%p / 290) * 100),0) 
    if ($mouse.key & 1) posbar %p
  }
}
alias posbar {
  if ($1 !isnum) tokenize 32 0 
  drawrect -rnf @mp3player $rgb(117,169,255) 1 5 60 290 11 
  draw rect 0 1 5 63 290 5 
  draw fill $rgb(128,128,255) 0 6 64 
  var %x = $round($calc(($1 / 100) *240 +5),0) 
  if (%x < 5) var %x = 5 
  if (%x > 245) var %x = 245 
  drawrect -rfn @mp3player $rgb(0,128,192) 1 %x 60 50 11 
  draw rect 0 1 %x 60 50 11
}
menu @Mp3Player {
  sclick:{
    if ($inrect($mouse.x,$mouse.y,5,60,290,11) == $true) { 
      moveposbar $calc($mouse.dx -$window($active).x) 
      set %dot Posbar
    }
  }
  mouse:{
    if (%dot == Posbar) moveposbar $calc($mouse.dx -$window($active).x) 
  }
  drop:{
    if (%dot == Posbar) {
      moveposbar $calc($mouse.dx -$window($active).x) 
      //echo -a $calc($mouse.dx -$window($active).x) 
      unset %dot
    }
  }
}
menu * {
  mIRC Mp3:MP3
}
alias moveposbar {
  if ($mouse.key & 1) {
    .timermoveposbar -om 1 50 moveposbar $calc($mouse.dx -$window($active).x)
    var %p = $calc($1 -5) 
    if (%p < 0) var %p = 0
    if (%p > 290) var %p = 290 
    var %p = $round($calc((%p / 290) * 100),0) 
    if ($mouse.key & 1) posbar %p
  }
}