Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Radio Bot

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 11:31

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

Kod:
;##################
;#\\\\\\\\\\\\\\\\#
;#|| 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 http:// $+ $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 http:// $+ $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 http:// $+ $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 http:// $+ $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 http:// $+ $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 http:// $+ $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 http:// $+ $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. #
;############
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)

Benzer konular