; RadyoBot

alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return 8.255.116.29
}

alias shoutcast.port {
  return 8070
}

alias shoutcast.adminpass {
  return SohbetTr.Be
}

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,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      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): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .timer 1 7 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ topic $shoutcast.channel : 0,4 C*    0,5 Turkiye'nin en kaliteli DJ'lerinden  0,1 $+ %genre $+  0,5Suan online   0,4 C*  
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayinda su an <<8 $+ %genre $+ 0,1>> bulunmakta. 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayin turu: << 8 %servertitle 0,1>> 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Çalan parca:0,10 %songtitle 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Dinlenme Oranı: 0,6 Su anda  %currentlisteners  kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu dinlemek icin tiklayin 12http://88.255.116.29:8070/listen.pls 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu WEB'den dinlemek icin tiklayin 4,1|0 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyoslogan.txt))),^genre,%genre)   > : $randombilgi  ~~*
}

alias randombilgi {
  if $r(1,2) == 1 {
    return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
  }
  else {
    return 4Dinlemek icin > 12http://8.255.116.29:8070/listen.pls  
  }
}