IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet

 Kayıt ol  Bugünki Mesajlar  Arama

ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ağustos 2016, 21:32   #1
Çevrimiçi
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Radio Bot

Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;##################
;#\\\\\\\\\\\\\\\\#
;#|| Code Start ||#
;#////////////////#
;##################
;#\\\\\\\\\\\\\\\\#
;# Bot by Radio   #
;#////////////////#
;##################
;#| ShoutCastBot |#
;##################
;# Start Settings #
;##################

; Radio channel
alias radio.chan { return #localhost }

; Radio op channel
alias radio.opchan { return #localhostop }

; Radio server
alias radio.server { return localhost }

; Radio server port
alias radio.serverport { return 6667 }

; Radio server pass
alias radio.serverpass { return localhost }

; Radio bot nick
alias radio.botnick { return TestFM }

; Radio bot nick pass
alias radio.botnickpass { return testing }

; Radio bot ident
alias radio.botident { return Test }

; Radio bot realname
alias radio.realname { return Test FM Radio Botu }

; Radio oper nick
alias radio.opernick { return test }

; Radio oper pass
alias radio.operpass { return test }

; Radio name
alias radio.name { return Test FM }

; Radio link (domain)
alias radio.link { return 88.88.88.88 }

; Radio port
alias radio.port { return 8888 }

; Radio admin pass
alias radio.pass { return testfm2010 }

; Radio opers ignore
alias radio.muafhost { return *!*@*.localhost.com }

;################
;# End Settings #
;################

;#############
;# CISS ! :d #
;#############

off 1:start:{
  unset %servertitle
  unset %currentlisteners
  unset %streamhits
  unset %songtitle
  unset %lastsong
  .radyo.bot
  .timerbotcon 1 5 .radyo.durum
}

;###########################
;# Shoutcast Socket System #
;###########################

on 1:SOCKOPEN:$($scast.socket):{
  if ($sockerr) { unset %durum }
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radio.pass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($radio.link, :, $radio.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:$($scast.socket):{
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if ($getxmltext(SERVERTITLE, %data) != $null) {
      set %servertitle $replace($ifmatch,',',&,&,ç,ç,ð,ğ,ý,ı,Ý,İ,ö,ö,þ,ş,Ç,Ç,Ð,Ğ,Ö,Ö,Þ,Ş,ü,ü,Ü,Ü,ÿ`,¯,ÿ,`)
    }
    if ($getxmltext(SONGTITLE, %data) != $null) {
      set %songtitle $replace($ifmatch,',',&,&,ç,ç,ð,ğ,ý,ı,Ý,İ,ö,ö,þ,ş,Ç,Ç,Ð,Ğ,Ö,Ö,Þ,Ş,ü,ü,Ü,Ü,ÿ`,¯,ÿ,`)
    }
    if ($getxmltext(CURRENTLISTENERS, %data) != $null) {
      set %currentlisteners $ifmatch
    }
    if ($getxmltext(STREAMHITS, %data) != $null) {
      set %streamhits $ifmatch
    }
    if ($getxmltext(STREAMSTATUS, %data) != $null) {
      if ($remove($ifmatch,ÿ,&) iswm 1) {
        unset %durum
      }
    }
    if ($getxmltext(STREAMSTATUS, %data) != $null) {
      if ($remove($ifmatch,ÿ,&) iswm 0) {
        set %durum Kapali
      }
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($scast.socket):{
  set %songtitle %songtitle
  .sockclose1
}

on 1:SOCKOPEN:$($scast.socket2):{
  if ($sockerr) { unset %durum }
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radio.pass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($radio.link, :, $radio.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:$($scast.socket2):{
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if ($getxmltext(SONGTITLE, %data) != $null) {
      set %lastsong $replace($ifmatch,',',&,&,ç,ç,ð,ğ,ý,ı,Ý,İ,ö,ö,þ,ş,Ç,Ç,Ð,Ğ,Ö,Ö,Þ,Ş,ü,ü,Ü,Ü,ÿ`,¯,ÿ,`)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($scast.socket2):{
  set %lastsong %lastsong
  .sockclose2
}

;#################################
;# Shoutcast Socket System Alias #
;#################################

alias radyo.durum {
  .timerdrmrply1 off
  .timerdrmrply2 off
  .timerdrmrply3 off
  .timerdrmrply4 off
  .timerdrmrply5 off
  .timerdrmrply6 off
  .timerdrmrply7 off
  if $sock($scast.socket) {
    sockclose $ifmatch
  }
  sockopen $scast.socket $radio.link $radio.port
}

alias radyo.durum2 {
  if $sock($scast.socket2) {
    sockclose $ifmatch
  }
  sockopen $scast.socket2 $radio.link $radio.port
}

alias scast.socket {
  return radyokontrol
}

alias scast.socket2 {
  return radyokontrol2
}

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 sockclose1 {
  if (%songtitle == %lastsong) { .timerdrmrply1 1 30 .radyo.durum2 }
  if (%songtitle !== %lastsong) { .timerdrmrply2 1 10 .radyodurum }
}

alias sockclose2 {
  if (%songtitle == %lastsong) { .timerdrmrply3 1 30 .radyo.durum }
  if (%songtitle !== %lastsong) { .timerdrmrply4 1 10 .radyodurum }
}

alias radyodurum {
  if (%songtitle == %lastsong) { .timerdrmrply5 1 30 .radyo.durum }
  if (%songtitle !== %lastsong) {
    if (%durum) {
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda kimse bulunmamaktadir. 
      ;sw $rbot.socket privmsg ChanServ :topic $radio.chan 0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
      .timerdrmrply6 1 900 .radyo.durum
    }
    if (!%durum) {
      sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :0,10 Calan parca:1,10 %songtitle 
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      sw $rbot.socket notice $radio.chan :
      ;sw $rbot.socket privmsg ChanServ :topic $radio.chan 1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir. Siradaki parca:1,10 %songtitle 
      set %lastsong %songtitle
      .timerdrmrply7 1 30 .radyo.durum
    }
  }
}

alias durumchan {
  if (%durum) {
    sw $rbot.socket notice $radio.chan :0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
  }
  if (!%durum) {
    sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :0,10 Calan parca:1,10 %songtitle 
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    sw $rbot.socket notice $radio.chan :
  }
}

alias durumopchan {
  if (%durum) {
    sw $rbot.socket notice $radio.opchan :0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
  }
  if (!%durum) {
    sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :0,10 Calan parca:1,10 %songtitle 
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    sw $rbot.socket notice $radio.opchan :
  }
}

;##############################
;# ShoutCast Socket Radio Bot #
;##############################

on 1:sockopen:$($rbot.socket):{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  sw PASS $radio.serverpass
  sw NICK $radio.botnick
  sw USER $radio.botident "" "" : $+ $radio.realname
  sockmark $sockname $rbot.socket
}

on 1:sockread:$($rbot.socket):{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %rb
  sockread %rb
  tokenize 32 %rb
  if !$window(@Radyo-Bot) { window -k0 @Radyo-Bot }
  aline -p @Radyo-Bot $timestamp $1-
  var %rb = echo $color(info) -st Socket bot:
  if :VERSION iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.9 © 2009 $+ $chr(1) }
  if :PING iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ PING $5 $+ $chr(1) }
  if :TIME iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ TIME $asctime(h:n:s) $+ $chr(1) }
  if ($1 == PING) { sw PONG $2- }
  if ($1 == ERROR) { .timerrecon 1 1 .radyo.bot }
  if ($2 == KICK) && ($4 == $sock($rbot.socket).mark) { %rb $3 kanalından $remove($gettok($1,1,33),:) tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | sw JOIN $3 }
  if ($2 == NICK) { sw oper $radio.opernick $radio.operpass }
  if ($2 == PART) {
    if ($3 == $radio.chan) && ($remove($gettok($1,1,33),:) == $radio.botnick) { sw JOIN $3 }
  }
  if ($2 == JOIN) {
    if ($remove($gettok($1,1,33),:) == $radio.botnick) {
      sw mode $right($3,-1) +oa $radio.botnick $radio.botnick
      .timer._durum 0 120 _durum
    }
    if ($remove($gettok($1,1,33),:) != $radio.botnick) && ($remove($gettok($1,1,33),:) != MerLyn) && ($right($3,-1) == $radio.chan) {
      if ($radio.muafhost iswm $address($nick,2)) { halt }
      sw NOTICE $remove($gettok($1,1,33),:) :0,2 $remove($gettok($1,1,33),:) $radio.chan kanalimiza hos geldiniz. Kesintisiz muzigin keyfine $radio.name $+ 'le yasayin. 
      sw NOTICE $remove($gettok($1,1,33),:) :9,1 Isteklerinizi ozelime  0,5 veya kanal geneline  1,8 .istek <istediginiz sarki ve mesajiniz>  0,3 seklinde yazabilirsiniz. 
      sw NOTICE $remove($gettok($1,1,33),:) :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    }
  }
  if ($2 == 376) || ($2 == 422) { radio.botconnect }
  if ($2 == 367) { .radio.bantemizle $4 }
  if ($2 == PRIVMSG) {
    if (.durum == $right($4-,-1)) || (!durum == $right($4-,-1)) || (durum == $right($4-,-1)) && ($3 == $radio.chan) {
      inc -u30 $+(%,durum1.,$nick) 1
      if ($($+(%,durum1.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else { .timerdurum1 1 1 .durumchan }
    }
    if (.durum == $right($4-,-1)) || (!durum == $right($4-,-1)) || (durum == $right($4-,-1)) && ($3 == $radio.opchan) {
      inc -u30 $+(%,durum2.,$nick) 1
      if ($($+(%,durum2.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else { .timerdurum2 1 1 .durumopchan }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.chan) {
      inc -u30 $+(%,link1.,$nick) 1
      if ($($+(%,link1.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.opchan) {
      inc -u30 $+(%,link2.,$nick) 1
      if ($($+(%,link2.,$nick),2) >= 2) {
      sw NOTICE $radio.opchan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.opchan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.botnick) {
      inc -u30 $+(%,link3.,$nick) 1
      if ($($+(%,link3.,$nick),2) >= 2) {
      sw PRIVMSG $remove($gettok($1,1,33),:) :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw PRIVMSG $remove($gettok($1,1,33),:) :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.?stek* iswm $right($4-,-1)) || (!?stek* iswm $right($4-,-1)) && ($3 == $radio.botnick) {
      if (!$5) { sw PRIVMSG $remove($gettok($1,1,33),:) :Bos istek gonderemezsiniz  $+ $remove($gettok($1,1,33),:) $+ . | return }
      inc -u300 $+(%,istek.,$nick) 1
      if ($($+(%,istek.,$nick),2) >= 2) {
      sw PRIVMSG $remove($gettok($1,1,33),:) :Bu kadar cok istekte bulunamazsiniz. Lutfen 5 dakika sonra tekrar deneyiniz. | return }
      else {
        sw PRIVMSG $remove($gettok($1,1,33),:) :Isteginiz DJ'lerimize iletilmistir $remove($gettok($1,1,33),:) $+ .
        sw PRIVMSG $remove($gettok($1,1,33),:) :Baska bir istek daha yapabilmek icin 5 dakika beklemeniz gerekiyor.
        sw PRIVMSG $remove($gettok($1,1,33),:) :Bizi dinlediginiz icin tesekkurler. Muzigin kalbi $radio.name $+ 'de atiyor.
        sw NOTICE $radio.opchan :0,10 Istek isteyen:1,10 $remove($gettok($1,1,33),:) 0,10Istegi:1,10 $5- 
      }
    }
    if (.?stek* iswm $right($4-,-1)) || (!?stek* iswm $right($4-,-1)) && ($3 == $radio.chan) {
      if (!$5) { sw NOTICE $radio.chan :Bos istek gonderemezsiniz  $+ $remove($gettok($1,1,33),:) $+ . | return }
      inc -u300 $+(%,istek.,$nick) 1
      if ($($+(%,istek.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Bu kadar cok istekte bulunamazsiniz. Lutfen 5 dakika sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.chan :Isteginiz DJ'lerimize iletilmistir $remove($gettok($1,1,33),:) $+ .
        sw NOTICE $radio.chan :Baska bir istek daha yapabilmek icin 5 dakika beklemeniz gerekiyor.
        sw NOTICE $radio.chan :Bizi dinlediginiz icin tesekkurler. Muzigin kalbi $radio.name $+ 'de atiyor.
        sw NOTICE $radio.opchan :0,10 Istek isteyen:1,10 $remove($gettok($1,1,33),:) 0,10Istegi:1,10 $5- 
      }
    }
    if (.var* iswm $right($4-,-1)) || (!var* iswm $right($4-,-1)) && ($3 == $radio.opchan) {
      if (!$5) { sw NOTICE $radio.opchan :Rumuz belirtmediniz. | sw NOTICE $radio.opchan :Kullanimi: .var <rumuz/nick> seklindedir. | return }
      sw PRIVMSG $5 :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw PRIVMSG $5 :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
      sw NOTICE $radio.chan :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw NOTICE $radio.chan :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
    }
    if (.yok* iswm $right($4-,-1)) || (!yok* iswm $right($4-,-1)) && ($3 == $radio.opchan) {
      if (!$5) { sw NOTICE $radio.opchan :Rumuz belirtmediniz. | sw NOTICE $radio.opchan :Kullanimi: .var <rumuz/nick> seklindedir. | return }
      sw PRIVMSG $5 :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw PRIVMSG $5 :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
      sw NOTICE $radio.chan :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw NOTICE $radio.chan :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
    }
    if (.mv == $right($4-,-1)) || (.massv == $right($4-,-1)) || (.massvoice == $right($4-,-1)) || (!mv == $right($4-,-1)) || (!massv == $right($4-,-1)) || (!massvoice == $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        set %radio.accessnick $remove($gettok($1,1,33),:)
        set %radio.accesschan $3
        .radio.massvoice
      }
    }
    if (.mdv == $right($4-,-1)) || (.massdv == $right($4-,-1)) || (.massdevoice == $right($4-,-1)) || (!mdv == $right($4-,-1)) || (!massdv == $right($4-,-1)) || (!massdevoice == $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        set %radio.accessnick $remove($gettok($1,1,33),:)
        set %radio.accesschan $3
        .radio.massdevoice
      }
    }
    if (.v* iswm $right($4-,-1)) || (.vo?ce* iswm $right($4-,-1)) || (!v* iswm $right($4-,-1)) || (!vo?ce* iswm $right($4-,-1)) || (vo?ce* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +v $remove($gettok($5,1,33),:)
      }
    }
    if (.dv* iswm $right($4-,-1)) || (.devo?ce* iswm $right($4-,-1)) || (!dv* iswm $right($4-,-1)) || (!devo?ce* iswm $right($4-,-1)) || (devo?ce* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 -v $remove($gettok($5,1,33),:)
      }
    }
    if (.b * iswm $right($4-,-1)) || (.ban * iswm $right($4-,-1)) || (!b * iswm $right($4-,-1)) || (!ban * iswm $right($4-,-1)) || (ban * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +b $address($5,2)
      }
    }
    if (.u iswm $right($4-,-1)) || (.unban* iswm $right($4-,-1)) || (!u iswm $right($4-,-1)) || (!unban* iswm $right($4-,-1)) || (unban* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 -b
      }
    }
    if (.k * iswm $right($4-,-1)) || (.kick * iswm $right($4-,-1)) || (!k * iswm $right($4-,-1)) || (!kick * iswm $right($4-,-1)) || (kick * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw KICK $3 $5 2Kurallara uymadiginiz icin odadan uzaklastirildiniz. 4Lutfen 2kurallara uyunuz.
      }
    }
    if (.kb * iswm $right($4-,-1)) || (.kban * iswm $right($4-,-1)) || (.kickban * iswm $right($4-,-1)) || (!kb * iswm $right($4-,-1)) || (!kban * iswm $right($4-,-1)) || (!kickban * iswm $right($4-,-1)) || (kickban * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +b $address($5,2)
        sw KICK $3 $5 2Kurallara uymadiginiz icin odadan uzaklastirildiniz. 4Lutfen 2kurallara uyunuz.
      }
    }
    var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
    if ($istok(type Dincer,%n,32)) {
      if (.hop == $gettok(%m,1,32)) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw PART %< | sw JOIN %< }
      if (.part == $gettok(%m,1,32)) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw PART %< }
      if (.join #* iswm %m) { sw JOIN $gettok(%m,2-,32) }
      if (.quit iswm %m) { sw Quit $gettok(%m,2-,32) }
    }
  }
}

alias sw { if $sock($rbot.socket) { sockwrite -n $sockname $1- } }

alias swalias {
  if $sock($rbot.socket) { . }
}

;####################################
;# ShoutCast Socket Radio Bot Alias #
;####################################

alias radyo.bot {
  if !$sock($rbot.socket) {
    sockopen $rbot.socket $radio.server $radio.serverport
  }
}

alias rbot.socket {
  return radyobot
}

alias radio.botconnect {
  sw privmsg NickServ :identify $radio.botnickpass
  sw oper $radio.opernick $radio.operpass
  sw JOIN $radio.chan
  sw JOIN $radio.opchan
}

alias radio.bantemizle {
  var %ban 1
  while %ban <=  $ibl($1,0) {
    var %bans = $addtok(%bans,$ibl($1,%ban),32)
    inc %ban
  }
  sw mode $1 -bbbbbbbbbbbb %bans
}

alias radio.massvoice {
  var %x 1
  while (%x <= $nick(%radio.accesschan,0)) {
    sw mode %radio.accesschan +vvvvvvvvvvvv $nick(%radio.accesschan,%x) $nick(%radio.accesschan,$calc(%x + 1)) $nick(%radio.accesschan,$calc(%x + 2)) $nick(%radio.accesschan,$calc(%x + 3)) $nick(%radio.accesschan,$calc(%x + 4)) $nick(%radio.accesschan,$calc(%x + 5)) $nick(%radio.accesschan,$calc(%x + 6)) $nick(%radio.accesschan,$calc(%x + 7)) $nick(%radio.accesschan,$calc(%x + 8)) $nick(%radio.accesschan,$calc(%x + 9)) $nick(%radio.accesschan,$calc(%x + 10)) $nick(%radio.accesschan,$calc(%x + 11)) $nick(%radio.accesschan,$calc(%x + 12))
    inc %x 12
  }
  unset %radio.accessnick
  unset %radio.accesschan
}

alias radio.massdevoice {
  var %x 1
  while (%x <= $nick(%radio.accesschan,0)) {
    sw mode %radio.accesschan -vvvvvvvvvvvv $nick(%radio.accesschan,%x) $nick(%radio.accesschan,$calc(%x + 1)) $nick(%radio.accesschan,$calc(%x + 2)) $nick(%radio.accesschan,$calc(%x + 3)) $nick(%radio.accesschan,$calc(%x + 4)) $nick(%radio.accesschan,$calc(%x + 5)) $nick(%radio.accesschan,$calc(%x + 6)) $nick(%radio.accesschan,$calc(%x + 7)) $nick(%radio.accesschan,$calc(%x + 8)) $nick(%radio.accesschan,$calc(%x + 9)) $nick(%radio.accesschan,$calc(%x + 10)) $nick(%radio.accesschan,$calc(%x + 11)) $nick(%radio.accesschan,$calc(%x + 12))
    inc %x 12
  }
  unset %radio.accessnick
  unset %radio.accesschan
}

alias _durum {
  set -u15 %durum 1
  unset %lastsong
  .radyo.durum
}

;############
;# The End. #
;############

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;##################
;#\\\\\\\\\\\\\\\\#
;#|| Code Start ||#
;#////////////////#
;##################
;#\\\\\\\\\\\\\\\\#
;# Bot by Radio   #
;#////////////////#
;##################
;#| ShoutCastBot |#
;##################
;# Start Settings #
;##################

; Radio channel
alias radio.chan { return #localhost }

; Radio op channel
alias radio.opchan { return #localhostop }

; Radio server
alias radio.server { return localhost }

; Radio server port
alias radio.serverport { return 6667 }

; Radio server pass
alias radio.serverpass { return localhost }

; Radio bot nick
alias radio.botnick { return TestFM }

; Radio bot nick pass
alias radio.botnickpass { return testing }

; Radio bot ident
alias radio.botident { return Test }

; Radio bot realname
alias radio.realname { return Test FM Radio Botu }

; Radio oper nick
alias radio.opernick { return test }

; Radio oper pass
alias radio.operpass { return test }

; Radio name
alias radio.name { return Test FM }

; Radio link (domain)
alias radio.link { return 88.88.88.88 }

; Radio port
alias radio.port { return 8888 }

; Radio admin pass
alias radio.pass { return testfm2010 }

; Radio opers ignore
alias radio.muafhost { return *!*@*.localhost.com }

;################
;# End Settings #
;################

;#############
;# CISS ! :d #
;#############

off 1:start:{
  unset %servertitle
  unset %currentlisteners
  unset %streamhits
  unset %songtitle
  unset %lastsong
  .radyo.bot
  .timerbotcon 1 5 .radyo.durum
}

;###########################
;# Shoutcast Socket System #
;###########################

on 1:SOCKOPEN:$($scast.socket):{
  if ($sockerr) { unset %durum }
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radio.pass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($radio.link, :, $radio.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:$($scast.socket):{
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if ($getxmltext(SERVERTITLE, %data) != $null) {
      set %servertitle $replace($ifmatch,&#x27;,',&#x26;,&,&#xE7;,ç,&#xF0;,ğ,&#xFD;,ı,&#xDD;,İ,&#xF6;,ö,&#xFE;,ş,&#xC7;,Ç,&#xD0;,Ğ,&#xD6;,Ö,&#xDE;,Ş,&#xFC;,ü,&#xDC;,Ü,&#xFF;`,¯,&#xFF;,`)
    }
    if ($getxmltext(SONGTITLE, %data) != $null) {
      set %songtitle $replace($ifmatch,&#x27;,',&#x26;,&,&#xE7;,ç,&#xF0;,ğ,&#xFD;,ı,&#xDD;,İ,&#xF6;,ö,&#xFE;,ş,&#xC7;,Ç,&#xD0;,Ğ,&#xD6;,Ö,&#xDE;,Ş,&#xFC;,ü,&#xDC;,Ü,&#xFF;`,¯,&#xFF;,`)
    }
    if ($getxmltext(CURRENTLISTENERS, %data) != $null) {
      set %currentlisteners $ifmatch
    }
    if ($getxmltext(STREAMHITS, %data) != $null) {
      set %streamhits $ifmatch
    }
    if ($getxmltext(STREAMSTATUS, %data) != $null) {
      if ($remove($ifmatch,&#xFF;,&#x26;) iswm 1) {
        unset %durum
      }
    }
    if ($getxmltext(STREAMSTATUS, %data) != $null) {
      if ($remove($ifmatch,&#xFF;,&#x26;) iswm 0) {
        set %durum Kapali
      }
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($scast.socket):{
  set %songtitle %songtitle
  .sockclose1
}

on 1:SOCKOPEN:$($scast.socket2):{
  if ($sockerr) { unset %durum }
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radio.pass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($radio.link, :, $radio.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:$($scast.socket2):{
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if ($getxmltext(SONGTITLE, %data) != $null) {
      set %lastsong $replace($ifmatch,&#x27;,',&#x26;,&,&#xE7;,ç,&#xF0;,ğ,&#xFD;,ı,&#xDD;,İ,&#xF6;,ö,&#xFE;,ş,&#xC7;,Ç,&#xD0;,Ğ,&#xD6;,Ö,&#xDE;,Ş,&#xFC;,ü,&#xDC;,Ü,&#xFF;`,¯,&#xFF;,`)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($scast.socket2):{
  set %lastsong %lastsong
  .sockclose2
}

;#################################
;# Shoutcast Socket System Alias #
;#################################

alias radyo.durum {
  .timerdrmrply1 off
  .timerdrmrply2 off
  .timerdrmrply3 off
  .timerdrmrply4 off
  .timerdrmrply5 off
  .timerdrmrply6 off
  .timerdrmrply7 off
  if $sock($scast.socket) {
    sockclose $ifmatch
  }
  sockopen $scast.socket $radio.link $radio.port
}

alias radyo.durum2 {
  if $sock($scast.socket2) {
    sockclose $ifmatch
  }
  sockopen $scast.socket2 $radio.link $radio.port
}

alias scast.socket {
  return radyokontrol
}

alias scast.socket2 {
  return radyokontrol2
}

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 sockclose1 {
  if (%songtitle == %lastsong) { .timerdrmrply1 1 30 .radyo.durum2 }
  if (%songtitle !== %lastsong) { .timerdrmrply2 1 10 .radyodurum }
}

alias sockclose2 {
  if (%songtitle == %lastsong) { .timerdrmrply3 1 30 .radyo.durum }
  if (%songtitle !== %lastsong) { .timerdrmrply4 1 10 .radyodurum }
}

alias radyodurum {
  if (%songtitle == %lastsong) { .timerdrmrply5 1 30 .radyo.durum }
  if (%songtitle !== %lastsong) {
    if (%durum) {
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda kimse bulunmamaktadir. 
      ;sw $rbot.socket privmsg ChanServ :topic $radio.chan 0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
      .timerdrmrply6 1 900 .radyo.durum
    }
    if (!%durum) {
      sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :0,10 Calan parca:1,10 %songtitle 
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
      ;sw $rbot.socket notice $radio.chan :
      sw $rbot.socket notice $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      sw $rbot.socket notice $radio.chan :
      ;sw $rbot.socket privmsg ChanServ :topic $radio.chan 1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir. Siradaki parca:1,10 %songtitle 
      set %lastsong %songtitle
      .timerdrmrply7 1 30 .radyo.durum
    }
  }
}

alias durumchan {
  if (%durum) {
    sw $rbot.socket notice $radio.chan :0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
  }
  if (!%durum) {
    sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :0,10 Calan parca:1,10 %songtitle 
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
    ;sw $rbot.socket notice $radio.chan :
    sw $rbot.socket notice $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    sw $rbot.socket notice $radio.chan :
  }
}

alias durumopchan {
  if (%durum) {
    sw $rbot.socket notice $radio.opchan :0,10 $radio.name $+ 'de su anda yayinda kimse bulunmamaktadir. 
  }
  if (!%durum) {
    sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :1,10 $radio.name $+ 0,10'de su anda yayinda1,10 %servertitle 0,10bulunmaktadir.  
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :0,10 Calan parca:1,10 %songtitle 
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :1,10 $radio.name $+ 0,10'i su anda1,10 %currentlisteners 0,10kisi dinliyor. 1,10(Dinlenme rekoru: %streamhits $+ ) 
    ;sw $rbot.socket notice $radio.opchan :
    sw $rbot.socket notice $radio.opchan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    sw $rbot.socket notice $radio.opchan :
  }
}

;##############################
;# ShoutCast Socket Radio Bot #
;##############################

on 1:sockopen:$($rbot.socket):{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  sw PASS $radio.serverpass
  sw NICK $radio.botnick
  sw USER $radio.botident "" "" : $+ $radio.realname
  sockmark $sockname $rbot.socket
}

on 1:sockread:$($rbot.socket):{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %rb
  sockread %rb
  tokenize 32 %rb
  if !$window(@Radyo-Bot) { window -k0 @Radyo-Bot }
  aline -p @Radyo-Bot $timestamp $1-
  var %rb = echo $color(info) -st Socket bot:
  if :VERSION iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.9 © 2009 $+ $chr(1) }
  if :PING iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ PING $5 $+ $chr(1) }
  if :TIME iswm $4- { sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ TIME $asctime(h:n:s) $+ $chr(1) }
  if ($1 == PING) { sw PONG $2- }
  if ($1 == ERROR) { .timerrecon 1 1 .radyo.bot }
  if ($2 == KICK) && ($4 == $sock($rbot.socket).mark) { %rb $3 kanalından $remove($gettok($1,1,33),:) tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | sw JOIN $3 }
  if ($2 == NICK) { sw oper $radio.opernick $radio.operpass }
  if ($2 == PART) {
    if ($3 == $radio.chan) && ($remove($gettok($1,1,33),:) == $radio.botnick) { sw JOIN $3 }
  }
  if ($2 == JOIN) {
    if ($remove($gettok($1,1,33),:) == $radio.botnick) {
      sw mode $right($3,-1) +oa $radio.botnick $radio.botnick
      .timer._durum 0 120 _durum
    }
    if ($remove($gettok($1,1,33),:) != $radio.botnick) && ($remove($gettok($1,1,33),:) != MerLyn) && ($right($3,-1) == $radio.chan) {
      if ($radio.muafhost iswm $address($nick,2)) { halt }
      sw NOTICE $remove($gettok($1,1,33),:) :0,2 $remove($gettok($1,1,33),:) $radio.chan kanalimiza hos geldiniz. Kesintisiz muzigin keyfine $radio.name $+ 'le yasayin. 
      sw NOTICE $remove($gettok($1,1,33),:) :9,1 Isteklerinizi ozelime  0,5 veya kanal geneline  1,8 .istek <istediginiz sarki ve mesajiniz>  0,3 seklinde yazabilirsiniz. 
      sw NOTICE $remove($gettok($1,1,33),:) :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
    }
  }
  if ($2 == 376) || ($2 == 422) { radio.botconnect }
  if ($2 == 367) { .radio.bantemizle $4 }
  if ($2 == PRIVMSG) {
    if (.durum == $right($4-,-1)) || (!durum == $right($4-,-1)) || (durum == $right($4-,-1)) && ($3 == $radio.chan) {
      inc -u30 $+(%,durum1.,$nick) 1
      if ($($+(%,durum1.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else { .timerdurum1 1 1 .durumchan }
    }
    if (.durum == $right($4-,-1)) || (!durum == $right($4-,-1)) || (durum == $right($4-,-1)) && ($3 == $radio.opchan) {
      inc -u30 $+(%,durum2.,$nick) 1
      if ($($+(%,durum2.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else { .timerdurum2 1 1 .durumopchan }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.chan) {
      inc -u30 $+(%,link1.,$nick) 1
      if ($($+(%,link1.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.chan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.opchan) {
      inc -u30 $+(%,link2.,$nick) 1
      if ($($+(%,link2.,$nick),2) >= 2) {
      sw NOTICE $radio.opchan :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.opchan :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.link == $right($4-,-1)) || (!link == $right($4-,-1)) || (link == $right($4-,-1)) || (.url == $right($4-,-1)) || (!url == $right($4-,-1)) || (url == $right($4-,-1)) && ($3 == $radio.botnick) {
      inc -u30 $+(%,link3.,$nick) 1
      if ($($+(%,link3.,$nick),2) >= 2) {
      sw PRIVMSG $remove($gettok($1,1,33),:) :Lutfen 30 saniye sonra tekrar deneyiniz. | return }
      else {
        sw PRIVMSG $remove($gettok($1,1,33),:) :0,10 Radyo yayinimizi winamp ile dinlemek icin:1,10 https:// $+ $radio.link $+ : $+ $radio.port $+ /listen.pls 0,10adresine tiklayiniz... 
      }
    }
    if (.?stek* iswm $right($4-,-1)) || (!?stek* iswm $right($4-,-1)) && ($3 == $radio.botnick) {
      if (!$5) { sw PRIVMSG $remove($gettok($1,1,33),:) :Bos istek gonderemezsiniz  $+ $remove($gettok($1,1,33),:) $+ . | return }
      inc -u300 $+(%,istek.,$nick) 1
      if ($($+(%,istek.,$nick),2) >= 2) {
      sw PRIVMSG $remove($gettok($1,1,33),:) :Bu kadar cok istekte bulunamazsiniz. Lutfen 5 dakika sonra tekrar deneyiniz. | return }
      else {
        sw PRIVMSG $remove($gettok($1,1,33),:) :Isteginiz DJ'lerimize iletilmistir $remove($gettok($1,1,33),:) $+ .
        sw PRIVMSG $remove($gettok($1,1,33),:) :Baska bir istek daha yapabilmek icin 5 dakika beklemeniz gerekiyor.
        sw PRIVMSG $remove($gettok($1,1,33),:) :Bizi dinlediginiz icin tesekkurler. Muzigin kalbi $radio.name $+ 'de atiyor.
        sw NOTICE $radio.opchan :0,10 Istek isteyen:1,10 $remove($gettok($1,1,33),:) 0,10Istegi:1,10 $5- 
      }
    }
    if (.?stek* iswm $right($4-,-1)) || (!?stek* iswm $right($4-,-1)) && ($3 == $radio.chan) {
      if (!$5) { sw NOTICE $radio.chan :Bos istek gonderemezsiniz  $+ $remove($gettok($1,1,33),:) $+ . | return }
      inc -u300 $+(%,istek.,$nick) 1
      if ($($+(%,istek.,$nick),2) >= 2) {
      sw NOTICE $radio.chan :Bu kadar cok istekte bulunamazsiniz. Lutfen 5 dakika sonra tekrar deneyiniz. | return }
      else {
        sw NOTICE $radio.chan :Isteginiz DJ'lerimize iletilmistir $remove($gettok($1,1,33),:) $+ .
        sw NOTICE $radio.chan :Baska bir istek daha yapabilmek icin 5 dakika beklemeniz gerekiyor.
        sw NOTICE $radio.chan :Bizi dinlediginiz icin tesekkurler. Muzigin kalbi $radio.name $+ 'de atiyor.
        sw NOTICE $radio.opchan :0,10 Istek isteyen:1,10 $remove($gettok($1,1,33),:) 0,10Istegi:1,10 $5- 
      }
    }
    if (.var* iswm $right($4-,-1)) || (!var* iswm $right($4-,-1)) && ($3 == $radio.opchan) {
      if (!$5) { sw NOTICE $radio.opchan :Rumuz belirtmediniz. | sw NOTICE $radio.opchan :Kullanimi: .var <rumuz/nick> seklindedir. | return }
      sw PRIVMSG $5 :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw PRIVMSG $5 :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
      sw NOTICE $radio.chan :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw NOTICE $radio.chan :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
    }
    if (.yok* iswm $right($4-,-1)) || (!yok* iswm $right($4-,-1)) && ($3 == $radio.opchan) {
      if (!$5) { sw NOTICE $radio.opchan :Rumuz belirtmediniz. | sw NOTICE $radio.opchan :Kullanimi: .var <rumuz/nick> seklindedir. | return }
      sw PRIVMSG $5 :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw PRIVMSG $5 :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
      sw NOTICE $radio.chan :Yapmis oldugunuz istek arsivimizde bulunmaktadir $5 $+ .
      sw NOTICE $radio.chan :Isteginiz yapilan istek sirasina gore degerlendirilmeye alinmistir.
    }
    if (.mv == $right($4-,-1)) || (.massv == $right($4-,-1)) || (.massvoice == $right($4-,-1)) || (!mv == $right($4-,-1)) || (!massv == $right($4-,-1)) || (!massvoice == $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        set %radio.accessnick $remove($gettok($1,1,33),:)
        set %radio.accesschan $3
        .radio.massvoice
      }
    }
    if (.mdv == $right($4-,-1)) || (.massdv == $right($4-,-1)) || (.massdevoice == $right($4-,-1)) || (!mdv == $right($4-,-1)) || (!massdv == $right($4-,-1)) || (!massdevoice == $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        set %radio.accessnick $remove($gettok($1,1,33),:)
        set %radio.accesschan $3
        .radio.massdevoice
      }
    }
    if (.v* iswm $right($4-,-1)) || (.vo?ce* iswm $right($4-,-1)) || (!v* iswm $right($4-,-1)) || (!vo?ce* iswm $right($4-,-1)) || (vo?ce* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +v $remove($gettok($5,1,33),:)
      }
    }
    if (.dv* iswm $right($4-,-1)) || (.devo?ce* iswm $right($4-,-1)) || (!dv* iswm $right($4-,-1)) || (!devo?ce* iswm $right($4-,-1)) || (devo?ce* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 -v $remove($gettok($5,1,33),:)
      }
    }
    if (.b * iswm $right($4-,-1)) || (.ban * iswm $right($4-,-1)) || (!b * iswm $right($4-,-1)) || (!ban * iswm $right($4-,-1)) || (ban * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +b $address($5,2)
      }
    }
    if (.u iswm $right($4-,-1)) || (.unban* iswm $right($4-,-1)) || (!u iswm $right($4-,-1)) || (!unban* iswm $right($4-,-1)) || (unban* iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 -b
      }
    }
    if (.k * iswm $right($4-,-1)) || (.kick * iswm $right($4-,-1)) || (!k * iswm $right($4-,-1)) || (!kick * iswm $right($4-,-1)) || (kick * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw KICK $3 $5 2Kurallara uymadiginiz icin odadan uzaklastirildiniz. 4Lutfen 2kurallara uyunuz.
      }
    }
    if (.kb * iswm $right($4-,-1)) || (.kban * iswm $right($4-,-1)) || (.kickban * iswm $right($4-,-1)) || (!kb * iswm $right($4-,-1)) || (!kban * iswm $right($4-,-1)) || (!kickban * iswm $right($4-,-1)) || (kickban * iswm $right($4-,-1)) {
      if ($remove($gettok($1,1,33),:) ison $radio.opchan) || ($remove($gettok($1,1,33),:) isop $3) || ($remove($gettok($1,1,33),:) ishop $3) {
        sw MODE $3 +b $address($5,2)
        sw KICK $3 $5 2Kurallara uymadiginiz icin odadan uzaklastirildiniz. 4Lutfen 2kurallara uyunuz.
      }
    }
    var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
    if ($istok(type Dincer,%n,32)) {
      if (.hop == $gettok(%m,1,32)) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw PART %< | sw JOIN %< }
      if (.part == $gettok(%m,1,32)) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw PART %< }
      if (.join #* iswm %m) { sw JOIN $gettok(%m,2-,32) }
      if (.quit iswm %m) { sw Quit $gettok(%m,2-,32) }
    }
  }
}

alias sw { if $sock($rbot.socket) { sockwrite -n $sockname $1- } }

alias swalias {
  if $sock($rbot.socket) { . }
}

;####################################
;# ShoutCast Socket Radio Bot Alias #
;####################################

alias radyo.bot {
  if !$sock($rbot.socket) {
    sockopen $rbot.socket $radio.server $radio.serverport
  }
}

alias rbot.socket {
  return radyobot
}

alias radio.botconnect {
  sw privmsg NickServ :identify $radio.botnickpass
  sw oper $radio.opernick $radio.operpass
  sw JOIN $radio.chan
  sw JOIN $radio.opchan
}

alias radio.bantemizle {
  var %ban 1
  while %ban <=  $ibl($1,0) {
    var %bans = $addtok(%bans,$ibl($1,%ban),32)
    inc %ban
  }
  sw mode $1 -bbbbbbbbbbbb %bans
}

alias radio.massvoice {
  var %x 1
  while (%x <= $nick(%radio.accesschan,0)) {
    sw mode %radio.accesschan +vvvvvvvvvvvv $nick(%radio.accesschan,%x) $nick(%radio.accesschan,$calc(%x + 1)) $nick(%radio.accesschan,$calc(%x + 2)) $nick(%radio.accesschan,$calc(%x + 3)) $nick(%radio.accesschan,$calc(%x + 4)) $nick(%radio.accesschan,$calc(%x + 5)) $nick(%radio.accesschan,$calc(%x + 6)) $nick(%radio.accesschan,$calc(%x + 7)) $nick(%radio.accesschan,$calc(%x + 8)) $nick(%radio.accesschan,$calc(%x + 9)) $nick(%radio.accesschan,$calc(%x + 10)) $nick(%radio.accesschan,$calc(%x + 11)) $nick(%radio.accesschan,$calc(%x + 12))
    inc %x 12
  }
  unset %radio.accessnick
  unset %radio.accesschan
}

alias radio.massdevoice {
  var %x 1
  while (%x <= $nick(%radio.accesschan,0)) {
    sw mode %radio.accesschan -vvvvvvvvvvvv $nick(%radio.accesschan,%x) $nick(%radio.accesschan,$calc(%x + 1)) $nick(%radio.accesschan,$calc(%x + 2)) $nick(%radio.accesschan,$calc(%x + 3)) $nick(%radio.accesschan,$calc(%x + 4)) $nick(%radio.accesschan,$calc(%x + 5)) $nick(%radio.accesschan,$calc(%x + 6)) $nick(%radio.accesschan,$calc(%x + 7)) $nick(%radio.accesschan,$calc(%x + 8)) $nick(%radio.accesschan,$calc(%x + 9)) $nick(%radio.accesschan,$calc(%x + 10)) $nick(%radio.accesschan,$calc(%x + 11)) $nick(%radio.accesschan,$calc(%x + 12))
    inc %x 12
  }
  unset %radio.accessnick
  unset %radio.accesschan
}

alias _durum {
  set -u15 %durum 1
  unset %lastsong
  .radyo.durum
}

;############
;# The End. #
;############
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 22 Eylül 2016, 13:25   #2
Çevrimdışı
Cevap: Radio Bot


Botu NasıL bağlıyoruz sunucuya yani nasıl calıstırıyoruz

Konu SucLu tarafından (22 Eylül 2016 Saat 14:43 ) değiştirilmiştir.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bot, radio
IRCForumu.Net - Sponsor Bağlantılar


« önceki Konu | sonraki Konu »

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, IRC Forum sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet gösterilmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
Sohbet Bizim mekan
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.