| immortaL | 20 Ağustos 2016 21:32 |
Radio Bot
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 = $+()
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 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 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 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. #
;############
|
