on *:SOCKREAD:Network: {
  var %urs
  sockread %urs
  tokenize 32 %urs
  if $numeric == *.* {
    echo $1-
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname oper NoMercy Şifreniz
  }
  if $2 == 381 {
    sw $sockname join 0,
    sw NoMercy svskill mIRCDark-RADYO cycling
    .timer 1 2 sw $sockname NICK mIRCDark-RADYO
  }
  if $2 == NICK {
    if $right($3,-1) == mIRCDark-RADYO {
      sw NoMercy os raw svsmode mIRCDark-RADYO +HB
      sw $sockname identify Şifreniz
      sw $sockname join #Radyo,#Dj
      .timer 1 3 sw $sockname chghost mIRCDark-RADYO Radio.System.mIRCDark.Com
      .timermIRCDark-RADYO 0 220 sw $sockname LIST
    }
    if $botfnick($1) == mIRCDark-RADYO {
      sw NoMercy os svskill mIRCDark-RADYO cycling
      .timer 1 3 sw $sockname NICK mIRCDark-RADYO
    }
  }
  if $2 == JOIN {
    if $remove($gettok($1,1,33),:) == mircdark-radyo {
      sw $sockname mode $right($3,-1) +a mircdark-radyo
    }
     if $remove($gettok($1,1,33),:) != mircdark-radyo && $right($3,-1) == #Radyo {
      sw $sockname NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo mIRCDark'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
      sw $sockname NOTICE $remove($gettok($1,1,33),:) 0,6 Isteklerinizi Radyo kanalina 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCDark ailesine gelsin. 
      sw $sockname NOTICE $remove($gettok($1,1,33),:) 0,6DJlerimizden 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )  
      sw $sockname NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12 && 12http://IRC.mIRCDark.Com:2222/listen.pls
    }
    if %::chan == #dj && $gettok(%::text,1,32) == !mesajekle {
        if !$gettok(%::text,2-,32) {
          sw $sockname PRIVMSG #dj :Olm kit misin niye mesaj yazmiyosun %::nick :)
          return
        }
        write radyoslogan.txt $gettok(%::text,2-,32) ( $+ %::nick $+ )
        sw mircdark-radyo PRIVMSG #dj :Slogan eklendi ( $+ %::nick imzali) - Radyo ile alakali seyler yazin lutfen.
      }
      if %::chan == #dj && $gettok(%::text,1,32) == !bulunamadi {
        if !$gettok(%::text,2-,32) {
          sw $sockname PRIVMSG #dj :kullanmak icin !bulunamadi <nick>
          return
        }
        sw mircdark-radyo PRIVMSG #Radyo : $gettok(%::text,2,32) , isteginiz bulunamadi. Lütfen başka bir istek isteyiniz. 
        sw mircdark-radyo PRIVMSG #dj :istegi bulunamayan user $gettok(%::text,2,32) .
      }
      if %::chan == #dj {
        if $gettok(%::text,1,32) == !dj {
          sw nomercy os raw swhois %::nick : is a mIRCDark Dj
          sw nomercy chghost %::nick Dj.mIRCDark.Com
          sw nomercy privmsg #dj : $+ %::nick Dj Olarak sisteme girisiniz onaylandi.
        }
      }
      if %::chan == #dj && $gettok(%::text,1,32) == !istekcevap {
        if !$gettok(%::text,2-,32) {
          sw mircdark-radyo PRIVMSG #dj :Olm kit misin niye mesaj eklemiyorsun %::nick :)
          return
        }
        sw mircdark-radyo PRIVMSG #dj 4:Cevap Metni (DJ- $+ %::nick imzali) - $gettok(%::text,2,32) $+ `e $+ :12 Iletilmiştir.
        sw mircdark-radyo PRIVMSG $gettok(%::text,2,32) :Istege cevap (DJ- $+ %::nick imzali) - $gettok(%::text,3-,32)
        sw mircdark-radyo PRIVMSG $gettok(%::text,2,32) :Djlerime cevap vermeniz icin gereken komut !istekcevap mesajınız
        sw mircdark-radyo PRIVMSG $gettok(%::text,2,32) :Örnektir, !istekcevap teşekkür ederim iyi yayınlar vs vs.
      }
      if %::chan == #Radyo && *?stek iswm $gettok(%::text,1,32) {
        if !$gettok(%::text,2,32) {
          sw mircdark-radyo PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+  " [19:14] <SaLiHa> !istek istedigin sarki yaparak isticeksin istegini "
          return
        }
        if !%istek. [ $+ [ %::nick ] ] {
          inc -u180 %istek. [ $+ [ %::nick ] ] 1
          unset %istek. $+ q0kh4n
          sw mircdark-radyo PRIVMSG %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok(%::text,2-,32) $+ )
          sw mircdark-radyo PRIVMSG #dj :Isteyen: %::nick Istek: $gettok(%::text,2-,32)
          sw mircdark-radyo PRIVMSG #dj :Istek Cevap Komutu: 4!istekcevap %::nick mesaj 
          sw mircdark-radyo PRIVMSG #dj :----------------------------------------------------------------------------------------------
        }
        else {
          _kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.
        }
      }
      if %::chan == #Radyo && $gettok(%::text,1,32) == !link {
        if !%link {
          set -u10 %link 1
          sw mircdark-radyo PRIVMSG %::chan :0,4 ** 0,6 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>  12http://radyo.mircdark.com  & http://IRC.mIRCDark.Com:2222/listen.pls 
        }
        else {
          inc -u1 %linkkontrol 1
          if %linkkontrol > 5 {
            _kick %::chan %::nick !link flood yapmayiniz!
          }
        }
      }
      if %::chan == #Radyo && $gettok(%::text,1,32) == !dj {
        if !%djs {
          set -u10 %djs 1
          sw mircdark-radyo PRIVMSG %::chan :0,4 $fants(%genre)  su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )  
        }
        else {
          inc -u1 %linkkontrols 1
          if %linkkontrols > 5 {
            _kick %::chan %::nick !dj flood yapmayiniz!
          }
        }
      }
      if %::chan == #Radyo && $gettok(%::text,1,32) == !istekbilgi {
        sw mircdark-radyo PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCTR ailesine gelsin.
      }
      if %::chan == #Radyo && $gettok(%::text,1,32) == !durum {
        if !%durum {
          set -u10 %durum 1
          unset %lastsong
          shout
        }
        else {
          inc -u1 %durumkontrol 1
          if %durumkontrol > 5 {
            _kick %::chan %::nick !durum flood yapmayiniz!
          }
        }
      }
    }  
  }
}
; RadyoBot
 
; Radyo
 
alias shoutcast.channel {
  return #Radyo
}
 
alias shoutcast.host {
  return 212.175.158.58
}
 
alias shoutcast.port {
  return 2222
}
 
alias shoutcast.adminpass {
  return Şifreniz
}
 
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 mIRCDark-RADYO PRIVMSG $shoutcast.channel : $djnick(%genre)
    ;.timer 1 20 sw mIRCDark-RADYO 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 mIRCDark-RADYO topic $shoutcast.channel : 0,4 ** 0,2 Yayinda su an » 0,4 $fants(%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 mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Calan parca : 0,4 %songtitle 
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Dinlenme Oranı : 0,14  %currentlisteners $+   kisi dinliyor 0,4 (rekor: %peaklisteners $+ ) 
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,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 mIRCDark-RADYO privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw mIRCDark-RADYO privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 0,4 ** 0,20,2 Calan parca:0,4 %songtitle 
    sw mIRCDark-RADYO privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
  }
}
 
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://212.175.158.58:2222/listen.pls  
  }
}