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)

  }

}