Stuff

menu * {
  mIRC Mp3:MP3
}
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) 
      unset %dot
    }
  }
}
alias -l draw draw $+ $1 -rn @Mp3Player $2-
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 | volbar | playlist | buttons
}
;; /seeksong +1/-1
alias -l seeksong {
  if ($inmp3) {
    splay $inmp3.fname $round($calc(($inmp3.length / 100) * $1),0)
  }
}
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
}
alias volbar {
  if ($1 !isnum) tokenize 32 0
  drawrect -rnf @mp3player $rgb(117,169,255) 1 140 40 155 11
  draw rect 0 1 140 43 155 5
  draw fill $rgb(128,128,255) 0 141 44
  var %x = $round($calc(($1 / 100) *155 +140),0)
  if (%x < 140) var %x = 140
  if (%x > 205) var %x = 275
  drawrect -rfn @mp3player $rgb(0,128,192) 1 %x 40 20 11 
  draw rect 0 1 %x 40 20 11
}
alias -l playlist {
  drawrect -rnf @mp3player $rgb(255,255,255) 1 5   103 290 243
  draw rect $rgb(0,0,0) 1 5 103 290 243
  drawrect -rfn @mp3player $rgb(0,128,192)   1 280 110  10  15
  ;var %x = 1
  ;while ($readini(Mp3Player.ini,Dir,%x)) {
  ;  /noop $findfile($readini(Mp3Player.ini,Dir,%x),*.mp3,0,//echo -a $nopath($1-))
  ;  inc %x
  ;}
}
alias -l button {
  var %x = $iif($8 <= 6,4,$iif($8 == 7 || $8 == 9,2,5)) , %y = $iif($8 <= 6,2,-3)
  draw rect $rgb(228,228,228) 1 $1-4
  draw text $6 $7 -12 $calc($1 + %x - 1) $calc($2 + %y - 2) $5
}
alias buttons {
  var %x = 1, %y = 5, %z = 78, %a = 20, %b = 20
  while (%x <= 5) {
    button %y %z %a %b $gettok(9 4 ; < : 1 + - + -,%x,32) $iif($hget(mp3,sel) == %x,$rgb(0,160,210),$rgb(0,102,151)) $iif(%x <= 6,Webdings,Tahoma) %x
    inc %x | inc %y 20
  }
}