alias song {
  set %chan $1
  if ($1 == $null) set %chan #
  if ($dll(WinAmpI.dll, IsRunning, 0) == false) {
    amsg WinAmp isn't running!
    halt
  }
  set %color1 
  set %color2 
  set %shf $dll(WinAmpI.dll, GetShuffle, 0)
  set %state $dll(WinAmpI.dll, GetPlayState, 0)
  set %vol $dll(WinAmpI.dll, GetVolume, 0)
  set %song  $dll(WinAmpI.dll, GetSong, 0)
  set %poslen $dll(WinAmpI.dll, GetSongPosition, 0) $+ / $+ $dll(WinAmpI.dll, GetSongLength, 0)
  set %track $dll(WinAmpI.dll, GetSongNumber,0) $+ / $+ $dll(WinAmpI.dll, GetSongCount,0)
  set %bitrate $dll(WinAmpI.dll, GetBitRate, 0) $+ kbps
  set %repeat $dll(WinAmpI.dll, GetRepeat, 0)
  if (c isincs $gettok($chan(#).mode,1,32)) {
    amsg 4« 12Winamp1™4» 1: 12°·1.ılı4lıl12ılı. 1 %song  12.ılı4lıl1ılı1. 12·° 4« 12Volume 4» 1: 4 % $+ %vol  
    halt
  }
  if (%shf == true) {
    set %shf1 Açık
  }
  if (%shf == false) {
    set %shf1 Kapalı
  }
  if (%repeat == true) {
    set %repeat Açık
  }
  if (%repeat == false) {
    set %repeat Kapalı
    set %Ethem Ethem
  }

  amsg 4« 12Winamp1™4» 1: 12°·1.ılı4lıl12ılı. 1 %song  12.ılı4lıl1ılı1. 12·° 4« 12Volume 4» 1: 4 % $+ %vol 
halt }   
}

buda sizin yaptığınız kod

alias amsg {
  var %:amsg = $chan(0) | while %:amsg {
    if !$regex($1-,/(Winamp|Çalan Şarkı|Parça)/Si) { msg $chan(%:amsg) $1- }
    elseif !$istok(#Radyo ,$chan(%:amsg),32) { msg $chan(%:amsg) $1- }
    dec %:amsg
  }
}