alias qradyoip { return radyo.geveze.org }
alias qradyoport { return 7009 }
alias qradyopass { return "Radyopass" }
on *:SOCKOPEN:radyobot: {
  %radionick = T4- $+ $r(100,9999)
  sw $sockname NICK %radionick
  sw $sockname USER TechnicaL "" " $+ $iif($host,$host,$ip) $+ " : $+  Ayna Net Radyo botu.
}
alias botfnick {
  return $remove($gettok($1,1,33),:)
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKREAD:radyobot: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname oper toXic sasasa
  }
  if $2 == 381 {
    sw $sockname join 0,
    sw $sockname ns ghost Radio x888481155
    sw $sockname ns release Radio x888481155
    .timer 1 2 sw $sockname NICK Radio
    .timershout 0 15 shout
  }
  if $2 == NICK {
    if $right($3,-1) == Radio {
      sw $sockname MODE $qbotnick $+ RADYO +BH-h
      sw $sockname ns identify x888481155
      sw $sockname os su adem55 
      .timer 1 5 sw $sockname setident Radio
      .timer 1 5 sw $sockname sethost Radio.Ayna.Net
      .timer 1 5 sw $sockname JOIN #Radyo
      .timer 1 5 sw $sockname JOIN #Dj
    }
    if $botfnick($1) == Radio {
      sw $sockname ns ghost Radio x888481155
      sw $sockname ns release Radio x888481155
      .timer 1 3 sw $sockname NICK Radio
    }
  }
  if $2 == PRIVMSG {
    %::chan = $remove($gettok($3,1,33),:) |  %::add = $1 | %::nick = $botfnick($1)
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istek {
        if !$remove($gettok($5,1,34),:) {
          sw radyobot PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+ 
          return
        }
        if !%istek. [ $+ [ $botfnick($1) ] ] {
          inc -u180 %istek. [ $+ [ $botfnick($1) ] ] 1
          sw $sockname privmsg %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )
          sw $sockname PRIVMSG #istek :Isteyen:4 %::nick Istek:4 $gettok($5-,1,34)
          sw $sockname privmsg #istek :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye 4!istekcevap  %::nick MESAJINIZ şeklinde cvp verebilirsiniz..
        }
        else {
          if !$masterkontrol($botfnick($1)) { 
            sw $sockname kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.
          }
          if $masterkontrol($botfnick($1)) { 
            sw $sockname privmsg %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )
            sw $sockname PRIVMSG #istek :Isteyen: %::nick Istek: $gettok($5-,1,34)
            sw $sockname privmsg #istek : $+ $turkceh(%genre) $+  istek'te bulunan kişiye !istekcevap  MESAJINIZ şeklinde cvp verebilirsiniz..
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !link {
        if !%link {
          set -u10 %link 1
          sw $sockname privmsg %::chan :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1 >> 0 4,1http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls 
        }
        else {
          inc -u4 %linkkontrol 1
          if %linkkontrol > 3 {
            sw $sockname kick %::chan %::nick !link flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !dj {
        if !%dj {
          set -u10 %dj 1
          .radyodj
        }
        else {
          inc -u4 %djkontrol 1
          if %djkontrol > 3 {
            sw radyobot kick %::chan %::nick !dj flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istekbilgi {
        sw $sockname PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum Geveze ailesine gelsin.
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !durum {
        if !%durum {
          set -u10 %durum 1
          unset %lastsong
          unset %mesajver
          .shout
          ;.radyodurum
        }
        else {
          inc -u4 %durumkontrol 1
          if %durumkontrol > 3 {
            sw radyobot kick %::chan %::nick !durum flood yapmayiniz!
          }
        }
      }
    }
  }
  if $3 == #dj {
    if $remove($gettok($4,1,34),:) == !istekcevap {
      if $remove($gettok($5,1,33),:) {
        if $turkceh(%genre) isin %::nick {
          sw radyobot privmsg #Radyo (4Dj`12 $+ $turkceh(%genre) $+ ): $gettok($5-,1,64)
          sw radyobot privmsg %::chan Mesajınız yollanmıştır.
        }
        ;if $turkceh(%genre) !isin %::nick {
        ;sw radyobot privmsg %::chan %::nick $+ : Bu komuta erişiminiz yoktur.
        ;}
        if !$remove($gettok($5,1,33),:) {
          sw radyobot PRIVMSG %::chan :Olm kıt misin niye mesaj yazmiyosun %::nick :)
          return
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !saatler {
      if !%saatler {
        set -u10 %saatler 1
        var %f 1
        while %f <= $lines(djsaat.txt) {
          sw $sockname privmsg %::chan : $+ $gettok($read(txt/djsaat.txt,%f),1,36)
          inc %f
        }
      }
      else {
        inc -u10 %djsaat 1
        if %djsaat > 2 {
          sw radyobot kick %::chan %::nick !saatler flood yapmayiniz!
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !kurallar {
      if !%djkurallar {
        set -u10 %djkurallar 1
        var %f 1
        while %f <= $lines(djkural.txt) {
          sw $sockname privmsg %::chan : $+ $gettok($read(txt/djkural.txt,%f),1,36)
          inc %f
        }
      }
      else {
        inc -u10 %ddjkural 1
        if %ddjkural > 2 {
          sw radyobot kick %::chan %::nick !kurallar flood yapmayiniz!
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !pass {
      if !%radyopass {
        set -u10 %radyopass 1
        sw $sockname privmsg #Dj  4,4 0,1 Radyo Bilgileri 4,4 
        sw $sockname privmsg #dj :Ip: $qradyoip
        sw $sockname privmsg #dj :Port: $qradyoport
        sw $sockname privmsg #dj :Pass: $qradyopass
        sw $sockname privmsg #Dj 2BU bilgiler Gizlidir, Paylaşılması halinda kişi hakkında tespit ve işlem başlatılır..
        sw $sockname privmsg #Dj 4,4 0,1 Radyo Bilgileri 4,4 
      }
      else {
        inc -u10 %radyopass. 1
        if %radyopass. > 2 {
          sw radyobot kick %::chan %::nick !pass flood yapmayiniz!
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !nick {
      if %::nick == $turkceh(%genre) {
        sw radyobot os raw svsnick $turkceh(%genre) $+(Dj`,$turkceh(%genre)) 0
        sw radyobot privmsg %::chan : $+ $+(,%genre,) $+ : Nickiniz onaylandı.
      }
      else {
        sw radyobot privmsg %::chan : $+ $+(,%::nick,) $+ : Nickiniz onaylanmadı, DJ değilsiniz.
      }
    }
    if $remove($gettok($4,1,34),:) == !radyo {
      if !%radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] {
        inc -u1800 %radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] 1
        unset %djzamans
        .djzamansay
        sw radyobot PRIVMSG $chr(36) $+ *.com 
ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot PRIVMSG $chr(36) $+ *.org 
ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw duyurubot allsend all notice global Geveze-DUYURU 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        var %n 1
        while %n <= $lines(txt/Globl.txt) {
          sw nomercy privmsg $read(txt/Globl.txt,%n) : $+ 
ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
          inc %n
        }
        sw $sockname privmsg %::chan Radyo reklam mesajı tüm sunucuya duyrulmuştur.
      }
      else {
        sw $sockname privmsg %::chan %::nick $+ : Bu komutun kullanımına ( $+ %djsure $+ ) kalmistir.
      }
    }
  }
  if $2 == 322 {
    if s !isincs $6 {
      if s !isincs $6 && O !isincs $6 && $5 >= 5 && $4 != #eğitim && $4 != #help && $4 != #operhelp && $4 != #sales && $4 != #radyo && $4 != #dj && $4 != Founders && $4 != #Helpers && $4 != #GlobalOps && $4 != #HelpKurul && $4 != #HelpGame {
        ;sw radyobot os raw :Geveze-Org privmsg $4 :-
        ;sw radyobot os raw :Geveze-Org privmsg $4 :0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online. 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        ;sw radyobot os raw :Geveze-Org privmsg $4 :-
      }
    }
  }
  if $2 == join {
    echo -a $1-
    if $right($3,-1) == #Radyo {
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo Geveze 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) su anda online 0,2 Calan Parca:0,10 $turkceh(%songtitle) 0,2 Dinlenme Orani:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
    }
  }
  if $2 == 366 {
    if $4 != #radyo && $4 != #Dj && $4 != #BotS && $4 != #istek {
      sw $sockname PART $4
    }
  }
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  if ($sockerr) { 
    .timerradyomsg* off
    set %radyohata var
    unset %radioo
  }
  ;  .timerciprix 1 200 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
  ;echo -a %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;)
      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $turkceh($ifmatch)
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {
        unset %radioo
      }
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {
        set %radioo kapali
      }
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
  unset %radyohata
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .radyodurum
  }
  if $turkceh(%genre) != $turkceh(%lastgenre) {
    sw radyobot privmsg #dj :0,2 $qgundurumu  $+ $turkceh(%genre) $+  sisteme DJ olarak tanındınız, iyi yayınlar. 
    sw radyobot sajoin $turkceh(%genre) #istek
    sw radyobot os raw svsnick Dj` $+ $turkceh(%lastgenre) $turkceh(%lastgenre) 0
    sw radyobot os raw svsnick $turkceh(%genre) Dj` $+ $turkceh(%genre) 0
    set %lastgenre $turkceh(%genre)
  }
}
alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return $qradyoip
}

alias shoutcast.port {
  return $qradyoport
}

alias shoutcast.adminpass {
  return $qradyopass
}

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 radyodurum {
  if %radioo {
    unset %mesajver
    if !%mesajver {
      .timerradyomsg* off
      sw radyobot topic $shoutcast.channel : 11,1 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%radioo {
    .timerradyomsg* off
    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 
    sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    sw radyobot privmsg $shoutcast.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0su anda online 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4Geveze 0Calan Parca:4 $turkceh(%songtitle) 
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Orani: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    set %mesajver on
  }
}
alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias radyodj {
  if %radioo {
    sw radyobot privmsg $shoutcast.channel :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %radioo {
    sw radyobot privmsg #Dj :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

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 ayrac {
  return $replace($1-,|,l)
}

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,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return %ret 11,1
}

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

alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,&#xDE;,Ş,ÿ,$chr(160),&#xE9;,é) }
alias turkish {
  return $replace($1-,c,c,s,s,i,i,o,o,g,g,u,u,ş,s)
}

[03:04:20] <Radio> ♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
[03:04:20] <Radio> 4,4-0,1 Radyo DJlermizden 4$háíñ 0su anda online 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyo 4Geveze 0Calan Parca:4 Göksel - Acıyor 
[03:04:20] <Radio> 4,4 0,1 Radyomuzun Dinlenme Orani: 4,1( 285 ) 0kisi dinliyor 4(rekor: 735) 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http://radyo.geveze.org:7009/listen.pls 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
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">

Kendine göre editleyeceğin yerler var oraları yaptıkdan sonra kullanabilirsin.
    

on *:start: {

  unset %*

  .timer 0 3 nomercy

}

 
alias nomercy {

  if !$sock(nomercy) && !$sock(duyurubot) && !$sock(nm2) && !$sock(nm3) {

    if $hget(mesaj) {

      hfree mesaj

      hmake mesaj

    }

    .timernomercy* off

  }

  if !$sock(radyobot) {

    sockopen radyobot $qsunucu $qsunucuport

  }

}

 
alias qnickpass { return botnickşifresi }

alias qoperpass { return opernick operşifre }

alias qsunucu { return irc.sunucu.com/net/org }

alias qsunucuport { return 6667 }

alias qbotnick { return mIRC- }

alias qradyoip { return radyoIP }

alias qradyoport { return radyoport }

alias qradyopass { return radyoşifre }

alias qhostver { return Sunucu.Net/Com/Org }

 
 
alias shoutcast.channel {

  return #Radyo

}

 
alias shoutcast.host {

  return $qradyoip

}

 
alias shoutcast.port {

  return $qradyoport

}

 
alias shoutcast.adminpass {

  return $qradyopass

}

 
alias shoutcast.socket {

  return shoutcast

}

 
alias sw {

  if $sock($1).status == active {

    sockwrite -nt $1-

  }

}

 
alias botfnick {

  return $remove($gettok($1,1,33),:)

}

 
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 djzamansay {

  inc %djzamans

  .timera 100 1 djzamansay

  set %djsure $replace($duration($calc(1800- %djzamans)),secs,-saniye,sec,-saniye,mins,-dakika,min,-dakika,hrs,-saat,hr,-saat)

} 

 
alias radyodurum {

  if %radioo {

    unset %mesajver

    if !%mesajver {

      .timerradyomsg* off

      sw radyobot topic $shoutcast.channel : 11,1 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 

      sw radyobot privmsg $shoutcast.channel :-

      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 

      sw radyobot privmsg $shoutcast.channel :-

    }

  }

  if !%radioo {

    .timerradyomsg* off

    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 

    sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪

    sw radyobot privmsg $shoutcast.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0şu anda online 

    sw radyobot privmsg $shoutcast.channel :-

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4 $qreklam 0Çalan Parça:4 %songtitle  

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Oranı: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 

    sw radyobot privmsg $shoutcast.channel :-

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 

    sw radyobot privmsg $shoutcast.channel :-

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1 $qreklam 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪

    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.

    set %mesajver on

  }

}

 
alias radyodj {

  if %radioo {

    sw radyobot privmsg $shoutcast.channel :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 

  }

  if !%radioo {

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)

  }

}

 
alias qradyodj {

  if %radioo {

    sw radyobot privmsg #Dj :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 

  }

  if !%radioo {

    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)

  }

}

 
alias radyoerr {

  if %radyohata {

    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 

    sw radyobot privmsg $shoutcast.channel :-

    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 

    sw radyobot privmsg $shoutcast.channel :-

  }

}

 
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 ayrac {

  return $replace($1-,|,l)

}

 
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,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )

    }

    else {

      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )

    }

    inc %n

  }

  return %ret 11,1

}

 
alias randombilgi {

  if $r(1,2) == 1 {

    return > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

  }

  else {

    return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.

  }

}

 
 
on *:SOCKOPEN:radyobot: {

  %radionick = Techv4- $+ $r(100,9999)

  sw $sockname NICK %radionick

  sw $sockname USER $qidentdx "" " $+ $iif($host,$host,$ip) $+ " : $+  $qlogo

  sockmark $sockname radyobot

}

on *:SOCKREAD:radyobot: {

  var %s

  sockread %s

  tokenize 32 %s

  if $1 == PING {

    sw $sockname PONG $2

  }

  if $2 == 376 || $2 == 422 {

    sw $sockname oper $qoperpass

  }

  if $2 == 381 {

    sw $sockname join 0,

    sw $sockname ns ghost $botnick $+ RADYO $qnickpass

    sw $sockname ns release $qbotnick $+ RADYO $qnickpass

    .timer 1 2 sw $sockname NICK $qbotnick $+ RADYO

    .timershout 0 15 shout

  }

  if $2 == NICK {

    if $right($3,-1) == $qbotnick $+ RADYO {

      sw $sockname MODE $qbotnick $+ RADYO +BH-h

      sw $sockname ns identify $qnickpass

      sw $sockname os su $qsupass

      .timer 1 5 sw $sockname setident Radio

      .timer 1 5 sw $sockname sethost $qhostver

      .timer 1 25 sw $sockname JOIN #Radyo,#Dj,#radyops

      .timer 0 100 .radyoerr

    }

    if $botfnick($1) == $qbotnick $+ RADYO {

      sw $sockname ns ghost $qbotnick $+ RADYO $qnickpass

      sw $sockname ns release $qbotnick $+ RADYO $qnickpass

      .timer 1 3 sw $sockname NICK $qbotnick $+ RADYO

    }

  }

  if $2 == JOIN {

    if $right($3,-1) != #BotS {

      if $remove($gettok($1,1,33),:) == $qbotnick $+ RADYO {

        sw $sockname mode $right($3,-1) +a $qbotnick $+ RADYO

      }

      if  $right($3,-1) == #Radyo {

      if !%radioo && !%radyohata {

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo $qreklam 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) şu anda online 0,2 Çalan Parça:0,10 $turkceh(%songtitle) 0,2 Dinlenme Oranı:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

        sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤

       }

      }

    }

  }

  if $2 == PRIVMSG {

    %::chan = $remove($gettok($3,1,33),:) |  %::add = $1 | %::nick = $botfnick($1)

    if $3 == #Radyo {

      if $remove($gettok($4,1,34),:) == !istek {

        if !$remove($gettok($5,1,34),:) {

          sw radyobot PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+ 

          return

        }

        if !%istek. [ $+ [ $botfnick($1) ] ] {

          inc -u180 %istek. [ $+ [ $botfnick($1) ] ] 1

          sw $sockname privmsg %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )

          sw $sockname PRIVMSG #Dj :Isteyen: %::nick Istek: $gettok($5-,1,34)

          sw $sockname privmsg #Dj :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye !istekcevap  MESAJINIZ şeklinde cvp verebilirsiniz..

        }

        else {

          if !$masterkontrol($botfnick($1)) { 

            sw $sockname kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.

          }

          if $masterkontrol($botfnick($1)) { 

            sw $sockname privmsg %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )

            sw $sockname PRIVMSG #Dj :Isteyen: %::nick Istek: $gettok($5-,1,34)

            sw $sockname privmsg #Dj : $+ $turkceh(%genre) $+  istek'te bulunan kişiye !istekcevap  MESAJINIZ şeklinde cvp verebilirsiniz..

          }

        }

      }

    }

    if $3 == #Radyo {

      if $remove($gettok($4,1,34),:) == !link {

        if !%link {

          set -u10 %link 1

          sw $sockname privmsg %::chan :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1 >> 0 4,1http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls 

        }

        else {

          inc -u4 %linkkontrol 1

          if %linkkontrol > 3 {

            sw $sockname kick %::chan %::nick !link flood yapmayiniz!

          }

        }

      }

    }

    if $3 == #Radyo {

      if $remove($gettok($4,1,34),:) == !dj {

        if !%dj {

          set -u10 %dj 1

          .radyodj

        }

        else {

          inc -u4 %djkontrol 1

          if %djkontrol > 3 {

            sw radyobot kick %::chan %::nick !dj flood yapmayiniz!

          }

        }

      }

    }

    if $3 == #Radyo {

      if $remove($gettok($4,1,34),:) == !istekbilgi {

        sw $sockname PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum $qreklam ailesine gelsin.

      }

    }

    if $3 == #Radyo {

      if $remove($gettok($4,1,34),:) == !durum {

        if !%durum {

          set -u10 %durum 1

          unset %lastsong

          unset %mesajver

          .shout

          ;.radyodurum

        }

        else {

          inc -u4 %durumkontrol 1

          if %durumkontrol > 3 {

            sw radyobot kick %::chan %::nick !durum flood yapmayiniz!

          }

        }

      }

    }

  }

  if $3 == #Dj {

    if $remove($gettok($4,1,34),:) == !bilgi {

      .qradyodj

    }

  }

  if $3 == #Dj {

    if $remove($gettok($4,1,34),:) == .global {

      if $botfnick($1) == Nickin {

        sw radyobot list

      }

      else {

        sw $sockname PRIVMSG %::chan : $+ %::nick $+ : Bu komuta erişiminiz yoktur.

      }

    }

  }

  if $3 == #dj {

    if $remove($gettok($4,1,34),:) == !istekcevap {

      if $remove($gettok($5,1,33),:) {

        if $turkceh(%genre) isin %::nick {

          sw radyobot privmsg #Radyo (4Dj`12 $+ $turkceh(%genre) $+ ): $gettok($5-,1,64)

          sw radyobot privmsg %::chan Mesajınız yollanmıştır.

        }

        if $turkceh(%genre) !isin %::nick || $remove($turkceh(%genre),Dj`) !isin %::nick {

          sw radyobot privmsg %::chan %::nick $+ : Bu komuta erişiminiz yoktur.

        }

        if !$remove($gettok($5,1,33),:) {

          sw radyobot PRIVMSG %::chan :Olm kıt misin niye mesaj yazmiyosun %::nick :)

          return

        }

      }

    }

    if $remove($gettok($4,1,34),:) == !pass {

      if !%radyopass {

        set -u10 %radyopass 1

        sw $sockname privmsg #dj :Ip: $qradyoip

        sw $sockname privmsg #dj :Port: $qradyoport

        sw $sockname privmsg #dj :Pass: $qradyopass

      }

      else {

        inc -u10 %radyopass. 1

        if %radyopass. > 2 {

          sw radyobot kick %::chan %::nick !pass flood yapmayiniz!

        }

      }

    }

    if $remove($gettok($4,1,34),:) == !nick {

      if %::nick == $turkceh(%genre) {

        sw radyobot os raw svsnick $turkceh(%genre) $+(Dj`,$turkceh(%genre)) 0

        sw radyobot privmsg %::chan : $+ $+(,%genre,) $+ : Nickiniz onaylandı.

      }

      else {

        sw radyobot privmsg %::chan : $+ $+(,%::nick,) $+ : Nickiniz onaylanmadı, DJ değilsiniz.

      }

    }

    if $remove($gettok($4,1,34),:) == !radyo {

      if !%radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] {

        inc -u60 %radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] 1

        unset %djzamans

        .djzamansay

        ame_ 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

        sw radyobot PRIVMSG $chr(36) $+ *.org ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

        sw radyobot PRIVMSG $chr(36) $+ *.net 
ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

        sw $sockname privmsg %::chan Radyo reklam mesajı tüm sunucuya duyrulmuştur.

      }

      else {

        sw $sockname privmsg %::chan %::nick $+ : Bu komutun kullanımına ( $+ %djsure $+ ) kalmistir.

      }

    }

  }

  if $2 == 322 {

    if s !isincs $6 {

      if s !isincs $6 && O !isincs $6 && $5 >= 5 && $4 != #eğitim && $4 != #help && $4 != #operhelp && $4 != #sales && $4 != #radyo && $4 != #dj && $4 != Founders && $4 != #Helpers && $4 != #GlobalOps && $4 != #HelpKurul && $4 != #HelpGame {

        sw radyobot os raw :chanserv privmsg $4 :0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online. 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls

      }

    }

  }

  if $2 == 366 {

    if $4 != #radyo && $4 != #Dj && $4 != #BotS && $4 != #istek {

      sw $sockname PART $4

    }

  }

}

 
on 1:SOCKOPEN:$($shoutcast.socket): {

  if ($sockerr) { 

    .timerradyomsg* off

    set %radyohata var

    unset %radioo

  }

  ;  .timerciprix 1 200 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;)

      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)

    }

    if $getxmltext(BITRATE, %data) != $null {

      set %bitrate $ifmatch

    }

    if $getxmltext(PEAKLISTENERS, %data) != $null {

      set %peaklisteners $ifmatch

    }

    if $getxmltext(SERVERGENRE, %data) != $null {

      set %genre $turkceh($ifmatch)

    }

    if $getxmltext(STREAMSTATUS, %data) != $null {

      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {

        unset %radioo

      }

    }

    if $getxmltext(STREAMSTATUS, %data) != $null {

      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {

        set %radioo kapali

      }

    }

    sockread -f %data

  }

}

 
 
alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,ÿ,&#xFF;,Ş,$chr(160)) } 

 
 
on 1:SOCKCLOSE:$($shoutcast.socket): {

  unset %radyohata

  if %songtitle != %lastsong {

    set %lastsong %songtitle

    .radyodurum

    .shout

  }

  if $turkceh(%genre) != $turkceh(%lastgenre) {

    sw radyobot privmsg #dj :0,2 $qgundurumu  $+ $turkceh(%genre) $+  sisteme DJ olarak tanındınız, iyi yayınlar. 

    sw radyobot sajoin $turkceh(%genre) #dj

    sw radyobot os raw svsnick Dj` $+ $turkceh(%lastgenre) $turkceh(%lastgenre) 0

    sw radyobot os raw svsnick $turkceh(%genre) Dj` $+ $turkceh(%genre) 0

    set %lastgenre $turkceh(%genre)

  }

}