/*
Winamp'da ne dinlior?

BY SeRDaR406

Dinlediğiniz şarkıyı bulunduğunuz bütün

kanallara yansıtır.

Açmak için : /ndinlior acik

Kapatmak için : /ndinlior kapali

yazın.
*/
alias ndinlior {
  if ($1 == acik) set %nstatus on
  elseif ($1 == kapali) set %nstatus off
}
alias -l wa return $dll(wa_link.dll,WA_Link_Raw_Stats,$1)
alias -l check->song {
  var %tchan = $comchan($me,0)
  if (%tchan > 0) {
    if (%nstatus == on) {
      if (%track != $nopath($wa(trackfilename))) {
        set %track $nopath($wa(trackfilename))
        while (%tchan) {
          if (%track != $false) msg $comchan($me,%tchan) $+(Şu anda,$chr(32),",%track,",$chr(32),adlı şarkıyı dinliyorum)
          dec %tchan
        }
      }
    }
  }
}
on *:start: {
  if (!%nstatus) set %nstatus on
  if (!%track) set %track $nopath($wa(trackfilename))
  .timerwnd 0 0 check->song
}
on *:unload: { .timerwnd off | unset %track %nstatus }

alias ndinlior {
  if ($1 == acik) set %nstatus on
  elseif ($1 == kapali) set %nstatus off
}
alias -l wa return $dll(wa_link.dll,WA_Link_Raw_Stats,$1) 
alias -l check->song {
  if ($isfile(wa_link.dll) == $true) {
    var %tchan = 1
    if (%tchan > 0) {
      if (%nstatus == on) {
        if (%track != $nopath($wa(trackfilename))) { 
          set %track $nopath($wa(trackfilename)) 
          while (%tchan) { 
            if (%track != $false) //amsg Listening : $+(  $chr(32),%track,$chr(32))  
            dec %tchan
          }
        }
      }
    }
  }
}
on *:start: {
  if (!%nstatus) set %nstatus on
  if (!%track) set %track $nopath($wa(trackfilename))
  .timerwnd 0 0 check->song
}
on *:unload: { .timerwnd off | unset %track %nstatus }

/ndinlior acik

/ndinlior Kapali

//amsg Listening : $+( $chr(32),%track,$chr(32))

//amsg ... Şuan da : $+(  $chr(32),%track,$chr(32))  : Dinliyor ...

//describe #a $+(Is Listening $chr(32),",%track,",$chr(32)) | /describe #b $+(Is Listening $chr(32),",%track,",$chr(32)) | /describe #c $+(Is Listening $chr(32),",%track,",$chr(32))

/away  Listening : $+(  $chr(32),%track,$chr(32))

| /away  Listening : $+(  $chr(32),%track,$chr(32))