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 5 sw $sockname JOIN #Radyo,#Dj,#istek,#BotS
.timer 0 180 .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 $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) == IrCbaStarD {
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),:) == !saatler {
if !%saatler {
set -u10 %saatler 1
var %f 1
while %f <= $lines(txt/djsaat.txt) {
sw $sockname privmsg %::chan : $+ $gettok($read(txt/djsaat.txt,%f),1,36)
inc %f
}
}
else {
inc -u10 %djsaat 1
if %djsaat > 2 {
sw radyobot kick %::chan %::nick !saatler flood yapmayiniz!
}
}
}
if $remove($gettok($4,1,34),:) == !kurallar {
if !%djkurallar {
set -u10 %djkurallar 1
var %f 1
while %f <= $lines(txt/djkural.txt) {
sw $sockname privmsg %::chan : $+ $gettok($read(txt/djkural.txt,%f),1,36)
inc %f
}
}
else {
inc -u10 %ddjkural 1
if %ddjkural > 2 {
sw radyobot kick %::chan %::nick !kurallar flood yapmayiniz!
}
}
}
if $remove($gettok($4,1,34),:) == !pass {
if !%radyopass {
set -u10 %radyopass 1
sw $sockname privmsg #dj :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 -u1800 %radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] 1
unset %djzamans
.djzamansay
sw radyobot PRIVMSG $chr(36) $+ *.com ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >> 12 http:// $+ $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 >> 12 http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw radyobot PRIVMSG $chr(36) $+ *.gen.tr ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >> 12 http:// $+ $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 :mIRCIndir-Net privmsg $4 :-
sw radyobot os raw :mIRCIndir-Net privmsg $4 :0,4 D 0,2 J $djnick($turkceh(%genre)) $+ 0,5 şu anda online. 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >> 12 http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw radyobot os raw :mIRCIndir-Net privmsg $4 :-
}
}
}
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,ÿ,&)
}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $ifmatch
set %songtitle $remove($ifmatch,ÿ,&)
; 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,ÿ,&) iswm 1 {
unset %radioo
}
}
if $getxmltext(STREAMSTATUS, %data) != $null {
if $remove($ifmatch,ÿ,&) iswm 0 {
set %radioo kapali
}
}
sockread -f %data
}
}
on 1:SOCKCLOSE:$($shoutcast.socket): {
unset %radyohata
if %songtitle != %lastsong {
set %lastsong %songtitle
.radyodurum
}
if $turkceh(%genre) != $turkceh(%lastgenre) {
sw radyobot privmsg #dj :0,2 $qgundurumu $+ $turkceh(%genre) $+ sisteme DJ olarak tanındınız, iyi yayınlar.
sw radyobot sajoin $turkceh(%genre) #istek
sw radyobot os raw svsnick Dj` $+ $turkceh(%lastgenre) $turkceh(%lastgenre) 0
sw radyobot os raw svsnick $turkceh(%genre) Dj` $+ $turkceh(%genre) 0
set %lastgenre $turkceh(%genre)
}
}
bi de bu dosyası var .