dialog try {
  title "Winamp"
  size 300 150 330 400
  text { %secs } , 1 , 40 23 62 24, center
  text { Daina: %track $+ $chr(46) $+ %song } , 2 , 12 200 200 13
  button "|<" , 18 , 12 60 25 25
  button ">" , 19 , 45 60 25 25,
  button "||" , 20 , 78 60 25 25,
  button "X" , 21 , 111 60 25 25
  button ">|" , 22 , 144 60 25 25
  button "rep" , 24 , 175 60 25 15 hide
  icon 23, 12 10 96 50, pics\play.gif
}


alias winamp {
  set %song $dll(dll\winamp.dll,Winamp,get track title)
  set %secs $wslen($dll(dll\winamp.dll,Winamp,get track pos))
  set %track $dll(dll\winamp.dll,Winamp,get track index)
  if ($len($dialog(try)) > 0) {
    did -r try 1-2
    did -a try 1 %secs
    did -a try 2 Daina: %track $+ $chr(46) $+ %song
  }
  elseif (%kart == on) {
    dialog -m try try 
    set %kart on
  }
  if (%kart == on) {
    .timer 1 1 winamp
  }
}

on *:dialog:try:close:*: {
  set %kart off
  .timer 1 2 set %kart on
}

on *:dialog:try:sclick:*: {
  if ($did = 18) {
    .echo -q $dll(dll\winamp.dll, Winamp,prev track)
    halt
  }
  if ($did = 19) {
    .echo -q $dll(dll\winamp.dll, Winamp,play)
    halt
  }
  if ($did = 20) {
    .echo -q $dll(dll\winamp.dll,Winamp,pause)
    halt
  }
  if ($did = 21) {
    .echo -q $dll(dll\winamp.dll,Winamp,stop)
    halt
  }
  if ($did = 22) {
    .echo -q $dll(dll\winamp.dll,Winamp,next track)
    halt
  }
  if ($did = 24) {
    .echo -q $dll(dll\winamp.dll,Winamp,set repeat on)
  }
}