Kod

alias -l getsong return $dll(winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (!%wnd.s) set %wnd.s on
  if (%song != $getsong) {
    var %i $comchan($me,0)
    if (%i > 0) && (%wnd.s == on) && ($getsong != $false) {
      set %song $getsong
      while (%i) {
        winmsg $comchan($me,%i)  0===> 10Şuan 4Winamp10 üzerinde çalan parça: 0===>4 %song 0<===
        dec %i
      }
    }
  }
}
alias winmsg {
  if !$istok(#Kanal #Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$1,32) { 
msg $1 $2- } }
alias ndinliorum {
  var %s $getsong , %song
  if ($1 == on) {
    set %wnd.s on
    if (!%song) set %song %s
    .timerwnd 0 0 kontrol->et
  }
  elseif ($1 == off) { set %wnd.s off | .timerwnd off }
}

menu * {
  .[WiNAMP]
  ..Open:/ndinliorum on | /echo 12Winamp Opened.
  ..Close:/ndinliorum off | /echo 4Winamp Closed.
}