; 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
}
alias kontrol.cip {
  if %ciprix {
    sw nomercy privmsg #radyo :Radyo kapalı şu anda!
  }
}
on 1:SOCKOPEN:$($shoutcast.socket): {
  set %ciprix acik
  .timer 1 30 kontrol.cip
  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,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $ifmatch
      ;  set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    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;)
    }
    sockread -f %data
  }
}
on 1:SOCKCLOSE:$($shoutcast.socket): {
   unset %ciprix
  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 >>   12http://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.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">  

Denermisin bi ? olmazsa söyle sockclose ile olacak iş değil bu