Song ( Winampda Dinlediğini Kanallara Yansitmak )

CooL: ADMİNİSTRATOR; Yaş : 38
Mesaj Sayısı : 1384
Kayıt Tarihi : 09/05/09

Post n°1

Song ( Winampda Dinlediğini Kanallara Yansitmak )

tarafından CooL Cuma Eyl. 04 2009, 18:08

alias song {
set %chan $1
if ($1 == $null) set %chan #
if ($dll(WinAmpI.dll, IsRunning, 0) == false) {
msg %chan 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 2 %state $+ 2 Song: 2 %song $+ 2 Position/Length: 2 %poslen 2 $+ 2 Track: 2 %track 2 $+ 2 BitRate: %bitrate 2 $+
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 %state $+ 2 Song: 2 %song $+ 2 Position/Length: 2 %poslen 2 $+ 2 Track: 2 %track 2 $+ 2 BitRate: %bitrate 2 $+
}

Alt + R yaparak remote klasörüne yerleştiriniz