Çevrimdışı

; X-RadyoBot
alias shoutcast.channel {
return #Radyo
}
alias shoutcast.host {
return X-host
}
alias shoutcast.port {
return 2244
}
alias shoutcast.adminpass {
return pass
}
alias shoutcast.socket {
return shoutcast
}
alias getxmltext {
var %tag.open = $+(<, $1, >)
var %tag.close = $+(</, $1, >)
if $pos($2-,%tag.open) {
var %start = $ifmatch + $len(%tag.open)
var %length = $calc($pos($2-, %tag.close) - %start)
return $mid($2-, %start, %length)
}
return $null
}
on 1:SOCKOPEN:$($shoutcast.socket): {
sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.port)
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -n $sockname *.*, */*
; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
sockwrite -n $sockname Accept-Encoding: gzip,deflate
sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
sockwrite -n $sockname Keep-AGibi: 300
sockwrite -n $sockname Connection: keep-aGibi
sockwrite -n $sockname $crlf
}
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
}
}
on 1:SOCKCLOSE:$($shoutcast.socket): {
if %songtitle != %lastsong {
set %lastsong %songtitle
sw radyo topic $shoutcast.channel : 0,4 ** 0,2 Yayinda su an » 0,4 %genre 0,2 « bulunmakta 0,4 ** 0,2 Yayin turu: 0,14 %servertitle 0,2 0,4 ** 0,2 Calan parca: 0,14 %songtitle 0,2 0,4 ** 
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 0,2 Calan parca : 0,4 %songtitle 
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 0,2 Dinlenme Oranı : 0,14 %currentlisteners kisi dinliyor 0,4 (rekor: %peaklisteners $+ ) 
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12Link
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 9,1 Radyomuzu web'den dinlemek icin tiklayin 0,4 >>  12Link
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw radyo privmsg $shoutcast.channel :0,4 < ** > 0,0 9,1 Türkiyenin Yapla??ms?z Ve Doyumsuz Tek Payla??m Form`u Hadi Sende Kat?l 0,4 >>  12Link
sw radyo privmsg $shoutcast.channel :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
}
}
alias shout {
if $sock(shoutcast) {
sockclose $ifmatch
}
sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}
alias fants {
return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o ,Ó,n,ñ)
}
alias tc {
if . isin $calc($1- / 2) {
return tek
}
else {
return cift
}
}