| RedLine | 22 Ocak 2008 02:36 |
Cevap: Mümkünmüdür ?
Kod:
; RadyoBot
alias shoutcast.channel {
return #Radyo
}
alias shoutcast.host {
return 64.86.135.133
}
alias shoutcast.port {
return vs.vs.
}
alias shoutcast.adminpass {
return vs.vs.
}
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-Alive: 300
sockwrite -n $sockname Connection: keep-alive
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,ÿ,&)
}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $ifmatch
; set %songtitle $remove($ifmatch,ÿ,&)
}
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,ÿ,&)
}
sockread -f %data
}
}
on 1:SOCKCLOSE:$($shoutcast.socket): {
if %songtitle != %lastsong {
set %lastsong %songtitle
; .timer 1 7 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%description)
; .timer 1 20 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%description)
;var %msg = 4,4 0,5 $fants(%genre) su anda online. 0,2 Çalan Parça : %songtitle $+ .
.timerradyomsg1 off
.timerradyomsg2 off
sw nomercy topic $shoutcast.channel : 11,1 Yayinda su an »»» $+ %genre $+ ««« bulunmakta. * Yayin turu: $+ %servertitle $+ * Calan parca: « $+ %songtitle $+ »
sw nomercy privmsg $shoutcast.channel :-
sw nomercy privmsg $shoutcast.channel :0,4 ** 0,6 DJlerimizden 0,4 $fants(%genre) şu anda online
sw nomercy privmsg $shoutcast.channel :-
sw nomercy privmsg $shoutcast.channel :0,4 ** 0,2 Çalan Parça:0,10 %songtitle
sw nomercy privmsg $shoutcast.channel :0,4 ** 0,2 Dinlenme Oranı:0,6 ( $calc(6+ %currentlisteners ) ) kisi dinliyor ( rekor: $calc(30+ %peaklisteners $+ ) $+ )
sw nomercy privmsg $shoutcast.channel :-
sw nomercy privmsg $shoutcast.channel :0,4 ** 9,1 Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >> 12 http://64.86.135.133:3046/listen.pls
; sw nomercy privmsg $shoutcast.channel :0,4 ** 0,1 Radyomuzu WEB'den dinlemek icin tiklayin 0,4 >> 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw nomercy privmsg $shoutcast.channel :-
.timerradyomsg1 1 130 sw nomercy privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J $djnick(%genre) $randombilgi
.timerradyomsg2 1 60 sw nomercy privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J $djnick(%genre) $randombilgi
}
}
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
}
}
alias djnick {
var %n 1 , %ret
while %n <= $len($1-) {
if $tc(%n) == tek {
%ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
else {
%ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
inc %n
}
return %ret 11,1
}
alias randombilgi {
if $r(1,2) == 1 {
return > : 4Dinlemek icin > 12http://64.86.135.133:3046/listen.pls
}
else {
return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
}
}
Bu da botumdaki koddur. |
