Çevrimdışı

bu bot tcl degil. socket bot. işimi görmüor o verdiginiz.

on 1:SOCKCLOSE:$($shoutcast.socket): {
if %songtitle != %lastsong {
set %lastsong %songtitle
;.timer 1 7 sw Bot PRIVMSG $shoutcast.channel : $djnick(%genre)
.timer 1 7 sw Bot PRIVMSG $shoutcast.channel : $djnick(%genre)
var %msg = D J $fants(%genre) Su anda online! Siradaki parcamiz: " %songtitle "
sw Bot topic $shoutcast.channel : Yayında Şuan << $+ %genre $+ >> Bulunmakta. * Yayın Türü: %servertitle * Çalan Parça: > %songtitle <
sw Bot privmsg $shoutcast.channel :Radyomuzu su anda " %currentlisteners " kisi dinliyor. En yuksek " %peaklisteners " $gget($+(genre,$right($sockname,-9)))
sw Bot privmsg $shoutcast.channel : $+ %msg
sw Bot privmsg $shoutcast.channel :Radyomuzu Winamp'tan dinlemek icin $+ $shoutcast.linkwinamp($1) $+
sw Bot privmsg $shoutcast.channel :Radyomuzu WEB'den dinlemek icin $+ $shoutcast.linkweb($1) $+
sw Bot privmsg $shoutcast.channel :Hem Genç, Hem Formda - Super bi Paylasim ve Eglence Platformu : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] << Hadi TIKLA!!
sw Bot privmsg $shoutcast.channel : Radyo İle İlgili Sorularınız, Sorunlarınız İçin #RadyoHelp Kanalını Kullanabilir, DJ'lerimizden Yardım Alabilirsiniz.
sw Bot privmsg $shoutcast.channel :Istekleriniz icin $+ !istek <istediginiz sarki ve mesaj> $+ seklinde gonderebilirsiniz.
sw Bot privmsg $shoutcast.channel : -
}
}




on 1:SOCKREAD:$($shoutcast.socket): {
var %data
sockread -f %data
while $sockbr > 0 && $sockerr == 0 {
if $getxmltext(SERVERTITLE, %data) != $null {
set %servertitle $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(BITRATE, %data) != $null {
set %bitrate $ifmatch
}
if $getxmltext(PEAKLISTENERS, %data) != $null {
set %peaklisteners $ifmatch
}
if $getxmltext(SERVERGENRE, %data) != $null {
set %genre $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
sockread -f %data
}
}