IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   RadyoBoT Socked BiLGiNiZe! (https://www.ircforumlari.net/mirc-scripting-sorunlari/484095-radyobot-socked-bilginize.html)

Goemon 22 Mayıs 2012 16:21

RadyoBoT Socked BiLGiNiZe!
 
arkadaşlar öncelikle kolay gelsin biliyorum çok yazıyorum ama gerçekden herkesin ihtiyacı olan bişiyi istiyoruz alıpda biz yaptık demiyoruz diyenlerde utansın zaten kendinden.

arkadaşlar radyo sockbotu oluşturalım istiyorum herkes bir paylaşım yaparsa zaten bot kendiliğinden oluşacak eminim inş güzel olur yardımda edersiniz anlayışlarınıza ihtiyacımız çok kusurumuzda olursa özür dilerim şimdikden kolay gelsin.


botda olması gerekenleri siz belirliyebilirsiniz.size kalmış yani :)

Goemon 22 Mayıs 2012 16:25

Cevap: RadyoBoT Socked BiLGiNiZe!
 
robo-c-op istiyeceğine yapmaya çalışsan olmamı kardeşim :) benim zaten radyo sock bot için çalışmalarım var ama madem herkes bir şey paylaşırsa güzel olur demişsin :)
ozaman paylaşalım hayat paylaşınca güzel :)




alias botserverip return irc.bilmem.net
alias botserverport return 6667
alias botnick return Radyocu
alias nickpass return 00000
alias opernick return Radyocu
alias operpass return 65894
alias botidentd return RadyoBoT
alias botfullname return 12RadyoBoTSocket` System
alias kanallar return #radyo,#dj,#istek
alias botopkanal return #radyo,#dj,#istek
alias botquitmsg return RadyoBoTSocked-System
alias gel {
sockopen lord $botserverip $botserverport
}
alias git {
komut quit $botquitmsg
sockclose lord
}
on *:sockopen:lord:{
if ($sockerr) { echo -s Botun Bağlantısı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:lord:{
if ($sockerr) { echo -s Botun Bağlantısı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
kayseri $1-
if $2 == 376 || $2 == 422 {
dragon identify $nickpass
dragon oper $opernick $operpass
dragon join $kanallar
dragon samode +o #botopkanal
dragon list
}
}
alias dragon { if $sock(lord) { sockwrite -n lord $1- } }
alias musti {
if $sock(lord) {
var %: = echo $color(info) -st > Socket lord:
if :VERSION iswm $4- { dragon NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Lord $+ $chr(1) }
if :FINGER iswm $4- { dragon NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Lord $+ $chr(1) }
if $1 == PING { dragon PONG $2- }
}
if ($2 == 001) { .timer 1 10 sockwrite -n $sockname Nickserv info $3 }
if ($2 == Notice) && ($remove($gettok($1,1,33),:) == Nickserv) {
if (Bu kayitli ve sifre korumali isin $right($4-,-1)) { sockwrite -n $sockname identify 00000 }
if (kayitli bir nick degil. isin $right($4-,-1)) { .timer 1 10 sockwrite -n $sockname Nickserv Register 00000 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
}


Kod Alıntıdır XcLuve ye aitdir BİLGİNİZE az oynadım denilebilir.

EMEĞE SAYGI LÜTFEN.

q0kh4n 22 Mayıs 2012 19:14

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Yazılanların hepsi IrCBastarD'a aittir. Denemedim lakin bi sorun olursa başlık altında belirtin elimden geldiği kadar yardımcı oluru



PHP- Kodu:

on *:start: {
  unset %*
  .
timer 0 3 nomercy
}

alias nomercy {
  if !
$sock(nomercy) && !$sock(duyurubot) && !$sock(nm2) && !$sock(nm3) {
    if 
$hget(mesaj) {
      
hfree mesaj
      hmake mesaj
    
}
    .
timernomercyoff
  
}
  if !
$sock(radyobot) {
    
sockopen radyobot $qsunucu $qsunucuport
  
}
}

alias qnickpass { return botnickşifresi }
alias qoperpass { return opernick operşifre }
alias qsunucu { return irc.sunucu.com/net/org }
alias qsunucuport { return 6667 }
alias qbotnick { return mIRC- }
alias qradyoip { return radyoIP }
alias qradyoport { return radyoport }
alias qradyopass { return radyoşifre }
alias qhostver { return Sunucu.Net/Com/Org }


alias shoutcast.channel {
  return 
#Radyo
}

alias shoutcast.host {
  return 
$qradyoip
}

alias shoutcast.port {
  return 
$qradyoport
}

alias shoutcast.adminpass {
  return 
$qradyopass
}

alias shoutcast.socket {
  return 
shoutcast
}

alias sw {
  if 
$sock($1).status == active {
    
sockwrite -nt $1-
  }
}

alias botfnick {
  return 
$remove($gettok($1,1,33),:)
}

alias getxmltext {
  var %
tag.open = $+(<, $1, >)
  var %
tag.close = $+(</, $1, >)
  if 
$pos($2-,%tag.open) {
    var %
start $ifmatch $len(%tag.open)
    var %
length  $calc($pos($2-, %tag.close) - %start)
    return 
$mid($2-, %start, %length)
  }
  return 
$null
}

alias djzamansay {
  
inc %djzamans
  
.timera 100 1 djzamansay
  set 
%djsure $replace($duration($calc(1800- %djzamans)),secs,-saniye,sec,-saniye,mins,-dakika,min,-dakika,hrs,-saat,hr,-saat)


alias radyodurum {
  if %
radioo {
    unset %
mesajver
    
if !%mesajver {
      .
timerradyomsgoff
      sw radyobot topic $shoutcast
.channel 11,1 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
      
sw radyobot privmsg $shoutcast.channel :-
      
sw radyobot privmsg $shoutcast.channel :0,**  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
      
sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%
radioo {
    .
timerradyomsgoff
    sw radyobot topic $shoutcast
.channel :4,4 0,1  Yayinda su an »»» 4,$+ $turkceh(%genre) $+  0,1««« bulunmaktaYayin turu4,$+ $turkceh(%servertitle) $+ 0,1 Calan parca« 4,$+ $turkceh(%songtitle) $+ 0 » 4,
    sw radyobot privmsg $shoutcast
.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    sw radyobot privmsg $shoutcast
.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0şu anda online 
    sw radyobot privmsg $shoutcast
.channel :-
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4 $qreklam 0Çalan Parça:%songtitle  
    sw radyobot privmsg $shoutcast
.channel :4,4 0,1 Radyomuzun Dinlenme Oranı4,$+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    
sw radyobot privmsg $shoutcast.channel :-
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'
nin en kaliteli sohbet platformu 4,1 $qreklam 0,1forum sitesindede sizlerle bulusuyorHemen bize katilin 0,>> 1,1 4,1http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sw radyobot privmsg $shoutcast
.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    
.timerradyomsg1 1 $r(60,85sw radyobot privmsg $shoutcast.channel :*~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    
.timerradyomsg2 1 $r(100,125sw radyobot privmsg $shoutcast.channel :*~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    
set %mesajver on
  
}
}

alias radyodj {
  if %
radioo {
    
sw radyobot privmsg $shoutcast.channel :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
  }
  if !%
radioo {
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle4,1 Dinlenme Oranı:0,$calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,%peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %
radioo {
    
sw radyobot privmsg #Dj :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  
}
  if !%
radioo {
    
sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  
}
}

alias radyoerr {
  if %
radyohata {
    
sw radyobot topic $shoutcast.channel 11,1 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır
    
sw radyobot privmsg $shoutcast.channel :-
    
sw radyobot privmsg $shoutcast.channel :0,**  0,2 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır
    
sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if 
$sock(shoutcast) {
    
sockclose $ifmatch
  
}
  
sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return 
$replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return 
$replace($1-,|,l)
}

alias tc {
  if . 
isin $calc($1- / 2) {
    return 
tek
  
}
  else {
    return 
cift
  
}
}

alias djnick {
  var %
n 1 , %ret
  
while %<= $len($1-) {
    if 
$tc(%n) == tek {
      %
ret = $+(%ret,$+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %
ret = $+(%ret,$+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    
inc %n
  
}
  return %
ret 11,1
}

alias randombilgi {
  if 
$r(1,2) == {
    return > : 
4Dinlemek icin 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  
}
  else {
    return > : 
4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}


on *:SOCKOPEN:radyobot: {
  %
radionick Techv4- $+ $r(100,9999)
  
sw $sockname NICK %radionick
  sw $sockname USER $qidentdx 
"" " $+ $iif($host,$host,$ip) $+ " : $+  $qlogo
  sockmark $sockname radyobot
}
on *:SOCKREAD:radyobot: {
  var %
s
  sockread 
%s
  tokenize 32 
%s
  
if $== PING {
    
sw $sockname PONG $2
  
}
  if $
== 376 || $== 422 {
    
sw $sockname oper $qoperpass
  
}
  if $
== 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 $
== NICK {
    if 
$right($3,-1) == $qbotnick $+ RADYO {
      
sw $sockname MODE $qbotnick $+ RADYO +BH-h
      sw $sockname ns identify $qnickpass
      sw $sockname os su $qsupass
      
.timer 1 5 sw $sockname setident Radio
      
.timer 1 5 sw $sockname sethost $qhostver
      
.timer 1 25 sw $sockname JOIN #Radyo,#Dj,#radyops
      
.timer 0 100 .radyoerr
    
}
    if 
$botfnick($1) == $qbotnick $+ RADYO {
      
sw $sockname ns ghost $qbotnick $+ RADYO $qnickpass
      sw $sockname ns release $qbotnick 
$+ RADYO $qnickpass
      
.timer 1 3 sw $sockname NICK $qbotnick $+ RADYO
    
}
  }
  if $
== JOIN {
    if 
$right($3,-1) != #BotS {
      
if $remove($gettok($1,1,33),:) == $qbotnick $+ RADYO {
        
sw $sockname mode $right($3,-1) +a $qbotnick $+ RADYO
      
}
      if  
$right($3,-1) == #Radyo {
      
if !%radioo && !%radyohata {
        
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
        sw radyobot NOTICE $remove
($gettok($1,1,33),:) 0,12 Radyo $qreklam 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) şu anda online 0,2 Çalan Parça:0,10 $turkceh(%songtitle) 0,2 Dinlenme Oranı:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
       }
      }
    }
  }
  if $2 == PRIVMSG {
    %::chan = $remove($gettok($3,1,33),:) |  %::add = $1 | %::nick = $botfnick($1)
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istek {
        if !$remove($gettok($5,1,34),:) {
          sw radyobot PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+ 
          return
        }
        if !%istek. [ $+ [ $botfnick($1) ] ] {
          inc -u180 %istek. [ $+ [ $botfnick($1) ] ] 1
          sw $sockname privmsg %::chan :4Isteginiz DJ'
lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )
          
sw $sockname PRIVMSG #Dj :Isteyen: %::nick Istek: $gettok($5-,1,34)
          
sw $sockname privmsg #Dj :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye !istekcevap  MESAJINIZ şeklinde cvp verebilirsiniz..
        
}
        else {
          if !
$masterkontrol($botfnick($1)) { 
            
sw $sockname kick %::chan %::nick Ard arda istek istemeyinizBir kisiuc 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 $
== #Radyo {
      
if $remove($gettok($4,1,34),:) == !link {
        if !%
link {
          
set -u10 %link 1
          sw $sockname privmsg 
%::chan :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1 >> 0 4,1http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls 
        }
        else {
          inc -u4 %linkkontrol 1
          if %linkkontrol > 3 {
            sw $sockname kick %::chan %::nick !link flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !dj {
        if !%dj {
          set -u10 %dj 1
          .radyodj
        }
        else {
          inc -u4 %djkontrol 1
          if %djkontrol > 3 {
            sw radyobot kick %::chan %::nick !dj flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istekbilgi {
        sw $sockname PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum $qreklam ailesine gelsin.
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !durum {
        if !%durum {
          set -u10 %durum 1
          unset %lastsong
          unset %mesajver
          .shout
          ;.radyodurum
        }
        else {
          inc -u4 %durumkontrol 1
          if %durumkontrol > 3 {
            sw radyobot kick %::chan %::nick !durum flood yapmayiniz!
          }
        }
      }
    }
  }
  if $3 == #Dj {
    if $remove($gettok($4,1,34),:) == !bilgi {
      .qradyodj
    }
  }
  if $3 == #Dj {
    if $remove($gettok($4,1,34),:) == .global {
      if $botfnick($1) == Nickin {
        sw radyobot list
      }
      else {
        sw $sockname PRIVMSG %::chan : $+ %::nick $+ : Bu komuta erişiminiz yoktur.
      }
    }
  }
  if $3 == #dj {
    if $remove($gettok($4,1,34),:) == !istekcevap {
      if $remove($gettok($5,1,33),:) {
        if $turkceh(%genre) isin %::nick {
          sw radyobot privmsg #Radyo (4Dj`12 $+ $turkceh(%genre) $+ ): $gettok($5-,1,64)
          sw radyobot privmsg %::chan Mesajınız yollanmıştır.
        }
        if $turkceh(%genre) !isin %::nick || $remove($turkceh(%genre),Dj`) !isin %::nick {
          sw radyobot privmsg %::chan %::nick $+ : Bu komuta erişiminiz yoktur.
        }
        if !$remove($gettok($5,1,33),:) {
          sw radyobot PRIVMSG %::chan :Olm kıt misin niye mesaj yazmiyosun %::nick :)
          return
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !pass {
      if !%radyopass {
        set -u10 %radyopass 1
        sw $sockname privmsg #dj :Ip: $qradyoip
        sw $sockname privmsg #dj :Port: $qradyoport
        sw $sockname privmsg #dj :Pass: $qradyopass
      }
      else {
        inc -u10 %radyopass. 1
        if %radyopass. > 2 {
          sw radyobot kick %::chan %::nick !pass flood yapmayiniz!
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !nick {
      if %::nick == $turkceh(%genre) {
        sw radyobot os raw svsnick $turkceh(%genre) $+(Dj`,$turkceh(%genre)) 0
        sw radyobot privmsg %::chan : $+ $+(,%genre,) $+ : Nickiniz onaylandı.
      }
      else {
        sw radyobot privmsg %::chan : $+ $+(,%::nick,) $+ : Nickiniz onaylanmadı, DJ değilsiniz.
      }
    }
    if $remove($gettok($4,1,34),:) == !radyo {
      if !%radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] {
        inc -u60 %radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] 1
        unset %djzamans
        .djzamansay
        ame_ 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'
tan dinlemek icin tiklayin 0,>>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        
sw radyobot PRIVMSG $chr(36) $+ *.org ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da onlineRadyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot PRIVMSG $chr(36) $+ *.net ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'
tan dinlemek icin tiklayin 0,>>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        
sw $sockname privmsg %::chan Radyo reklam mesajı tüm sunucuya duyrulmuştur.
      }
      else {
        
sw $sockname privmsg %::chan %::nick $+ : Bu komutun kullanımına ( $+ %djsure $+ ) kalmistir.
      }
    }
  }
  if $
== 322 {
    if 
!isincs ${
      if 
!isincs $&& !isincs $&& $>= && $!= #eğitim && $4 != #help && $4 != #operhelp && $4 != #sales && $4 != #radyo && $4 != #dj && $4 != Founders && $4 != #Helpers && $4 != #GlobalOps && $4 != #HelpKurul && $4 != #HelpGame {
        
sw radyobot os raw :chanserv privmsg $:0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online9,1 Radyomuzu dinlemek icin tiklayin 0,>>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
      
}
    }
  }
  if $
== 366 {
    if $
!= #radyo && $4 != #Dj && $4 != #BotS && $4 != #istek {
      
sw $sockname PART $4
    
}
  }
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  if (
$sockerr) { 
    .
timerradyomsgoff
    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-AgentMozilla/5.0 (WindowsUWindows NT 5.1en-USrv:1.7Gecko/20040614 Firefox/0.8
  sockwrite 
-n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $ifmatch
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $turkceh($ifmatch)
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {
        unset %radioo
      }
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {
        set %radioo kapali
      }
    }
    sockread -f %data
  }
}


alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,ÿ,&#xFF;,Ş,$chr(160)) } 


on 1:SOCKCLOSE:$($shoutcast.socket): {
  unset %radyohata
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .radyodurum
    .shout
  }
  if $turkceh(%genre) != $turkceh(%lastgenre) {
    sw radyobot privmsg #dj :0,2 $qgundurumu  $+ $turkceh(%genre) $+  sisteme DJ olarak tanındınız, iyi yayınlar. 
    sw radyobot sajoin $turkceh(%genre) #dj
    sw radyobot os raw svsnick Dj` $+ $turkceh(%lastgenre) $turkceh(%lastgenre) 0
    sw radyobot os raw svsnick $turkceh(%genre) Dj` $+ $turkceh(%genre) 0
    set %lastgenre $turkceh(%genre)
  }



Goemon 23 Mayıs 2012 14:55

Cevap: RadyoBoT Socked BiLGiNiZe!
 
abi bot girmedi sunucuya

Goemon 23 Mayıs 2012 15:02

Cevap: RadyoBoT Socked BiLGiNiZe!
 
alias qnickpass { return botnickşifresi }
alias qoperpass { return opernick operşifre }
alias qsunucu { return irc.sunucu.com/net/org }
alias qsunucuport { return 6667 }
alias qbotnick { return mIRC- }
alias qradyoip { return radyoIP }
alias qradyoport { return radyoport }
alias qradyopass { return radyoşifre }
alias qhostver { return Sunucu.Net/Com/Org }
alias qidentdx { return identadı }

kırmızıyla belirttiğim yeri ekle koda bot sorunsuz girecekdir ben denedim gayetde güzel çalışıyor ama çalışmıyor yada girmedi diyipde az uraşsan gerçekden bişiler yapacağına eminim sorunsuz çalışıyor.

Goemon 01 Temmuz 2012 15:46

Cevap: RadyoBoT Socked BiLGiNiZe!
 
dj yerinde rakamlar çıkıyor?

moonman 02 Temmuz 2012 03:30

Cevap: RadyoBoT Socked BiLGiNiZe!
 
DJ Nickini GENTRE Kısmına Yazarsanız DJ olan Kişinin Nicki Çıkacakır, Kolay Gelsin.

Goemon 03 Temmuz 2012 22:01

Cevap: RadyoBoT Socked BiLGiNiZe!
 
#djop kanalında !radyo on dediğimizde bot sunucuya girsin !radyo off dediğimizde bot sunucudan çıksın. !radyo son dediğimizdede bot remotesini of yapsın sunucuda kalsın ama.

Toprak 03 Temmuz 2012 22:18

Cevap: RadyoBoT Socked BiLGiNiZe!
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konuyu inceleyiniz.

Goemon 03 Temmuz 2012 22:33

Cevap: RadyoBoT Socked BiLGiNiZe!
 
konu görünmüyor

Toprak 03 Temmuz 2012 22:38

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Radyo bot'u tek botmu yoksa nomercy gibi diger ek botlar mevcutmu ?

Goemon 03 Temmuz 2012 22:43

Cevap: RadyoBoT Socked BiLGiNiZe!
 
radyo botunu mırca ekledim mırc tabanlı bot

Toprak 03 Temmuz 2012 22:45

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Tek bot yani peki bot sunucuda olmadan, !radyo on dediginizde nasıl işlev görcek ?

Goemon 03 Temmuz 2012 22:47

Cevap: RadyoBoT Socked BiLGiNiZe!
 
yok tek bot değil iki bot radyobot sock zaten birde mırc tabanlı bot var radyobotun ekli olduğu mırc

Toprak 03 Temmuz 2012 22:49

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Onu soruyorum bende 5 dakika ozaman :),

Goemon 03 Temmuz 2012 22:58

Cevap: RadyoBoT Socked BiLGiNiZe!
 
komutlar işlev görmüyor usta.

Toprak 03 Temmuz 2012 23:01

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Buyrun;

Kod:

on *:text:*:#KANAL:{
  if $nick isop $chan {
    if $1 == !radyo {
      if (!$2) { msg $chan :Lutfen !radyo on - !radyo off - !radyo son komutlarini kullaniniz.  | halt }
      if $2 == on {
        sockopen radyo irc.ircforumlari.net 6667
        msg $chan Radyo Botu sunucuya giriyor.
      }
      if $2 == off {
        msg $chan Radyo Botu sunucudan cıkarıldı.
        sockclose radyo
      }
      if $2 == son {
        timers off
        msg $chan İşlevler durduruldu.
      }
    }
  }
}

Not; Kırmızı ile belırttıgım yerlerı kendınıze gore ayarlayınız.

Goemon 03 Temmuz 2012 23:07

Cevap: RadyoBoT Socked BiLGiNiZe!
 
usta peki bunu kanalda opların kullanması için

on eventindeki kodun başına

on @:text:*:#KANAL:{ kırmızıyla belirttiğim harfimi kullanacaz?

usta birde userler sunucuya girerken

if $right($3,-1) !== #Radyo {
if !%radioo && !%radyohata {
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo $qreklam 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) şu anda online 0,2 Çalan Parça:0,10 $turkceh(%songtitle) 0,2 Dinlenme Oranı:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
}
}
}
}


botun karşılama yapması gerekirken karşılama yapmıyor acaba neden.

Toprak 03 Temmuz 2012 23:15

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Yukardaki kodu tekrar al.

Burayı
Kod:

if  $right($3,-1) !== #Radyo {
Boyle yap;

Kod:

if  $right($3,-1) == #Radyo {

Goemon 03 Temmuz 2012 23:28

Cevap: RadyoBoT Socked BiLGiNiZe!
 
yaptım abi olmadı

IrCbaStarD 04 Temmuz 2012 03:06

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Kod:


alias qradyoip { return radyo.geveze.org }
alias qradyoport { return 7009 }
alias qradyopass { return "Radyopass" }
on *:SOCKOPEN:radyobot: {
  %radionick = T4- $+ $r(100,9999)
  sw $sockname NICK %radionick
  sw $sockname USER TechnicaL "" " $+ $iif($host,$host,$ip) $+ " : $+  Ayna Net Radyo botu.
}
alias botfnick {
  return $remove($gettok($1,1,33),:)
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
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 toXic sasasa
  }
  if $2 == 381 {
    sw $sockname join 0,
    sw $sockname ns ghost Radio x888481155
    sw $sockname ns release Radio x888481155
    .timer 1 2 sw $sockname NICK Radio
    .timershout 0 15 shout
  }
  if $2 == NICK {
    if $right($3,-1) == Radio {
      sw $sockname MODE $qbotnick $+ RADYO +BH-h
      sw $sockname ns identify x888481155
      sw $sockname os su adem55
      .timer 1 5 sw $sockname setident Radio
      .timer 1 5 sw $sockname sethost Radio.Ayna.Net
      .timer 1 5 sw $sockname JOIN #Radyo
      .timer 1 5 sw $sockname JOIN #Dj
    }
    if $botfnick($1) == Radio {
      sw $sockname ns ghost Radio x888481155
      sw $sockname ns release Radio x888481155
      .timer 1 3 sw $sockname NICK Radio
    }
  }
  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 #istek :Isteyen:4 %::nick Istek:4 $gettok($5-,1,34)
          sw $sockname privmsg #istek :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye 4!istekcevap  %::nick 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 #istek :Isteyen: %::nick Istek: $gettok($5-,1,34)
            sw $sockname privmsg #istek : $+ $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 Geveze 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),:) == !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 {
        ;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(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(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  4,4 0,1 Radyo Bilgileri 4,4 
        sw $sockname privmsg #dj :Ip: $qradyoip
        sw $sockname privmsg #dj :Port: $qradyoport
        sw $sockname privmsg #dj :Pass: $qradyopass
        sw $sockname privmsg #Dj 2BU bilgiler Gizlidir, Paylaşılması halinda kişi hakkında tespit ve işlem başlatılır..
        sw $sockname privmsg #Dj 4,4 0,1 Radyo Bilgileri 4,4 
      }
      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 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot PRIVMSG $chr(36) $+ *.org ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw duyurubot allsend all notice global Geveze-DUYURU 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        var %n 1
        while %n <= $lines(txt/Globl.txt) {
          sw nomercy privmsg $read(txt/Globl.txt,%n) : $+ ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
          inc %n
        }
        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 :Geveze-Org privmsg $4 :-
        ;sw radyobot os raw :Geveze-Org privmsg $4 :0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online. 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        ;sw radyobot os raw :Geveze-Org privmsg $4 :-
      }
    }
  }
  if $2 == join {
    echo -a $1-
    if $right($3,-1) == #Radyo {
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo Geveze 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) su anda online 0,2 Calan Parca:0,10 $turkceh(%songtitle) 0,2 Dinlenme Orani:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
    }
  }
  if $2 == 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
  ;echo -a %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $ifmatch
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $turkceh($ifmatch)
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {
        unset %radioo
      }
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {
        set %radioo kapali
      }
    }
    sockread -f %data
  }
}

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)
  }
}
alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return $qradyoip
}

alias shoutcast.port {
  return $qradyoport
}

alias shoutcast.adminpass {
  return $qradyopass
}

alias shoutcast.socket {
  return shoutcast
}

alias 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 radyodurum {
  if %radioo {
    unset %mesajver
    if !%mesajver {
      .timerradyomsg* off
      sw radyobot topic $shoutcast.channel : 11,1 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%radioo {
    .timerradyomsg* off
    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 
    sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    sw radyobot privmsg $shoutcast.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0su anda online 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4Geveze 0Calan Parca:4 $turkceh(%songtitle) 
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Orani: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    set %mesajver on
  }
}
alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias radyodj {
  if %radioo {
    sw radyobot privmsg $shoutcast.channel :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %radioo {
    sw radyobot privmsg #Dj :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return $replace($1-,|,l)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return %ret 11,1
}

alias randombilgi {
  if $r(1,2) == 1 {
    return > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  }
  else {
    return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}

alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,&#xDE;,Ş,ÿ,$chr(160),&#xE9;,é) }
alias turkish {
  return $replace($1-,c,c,s,s,i,i,o,o,g,g,u,u,ş,s)
}

Kod:

[03:04:20] <Radio> ♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
[03:04:20] <Radio> 4,4-0,1 Radyo DJlermizden 4$háíñ 0su anda online 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyo 4Geveze 0Calan Parca:4 Göksel - Acıyor 
[03:04:20] <Radio> 4,4 0,1 Radyomuzun Dinlenme Orani: 4,1( 285 ) 0kisi dinliyor 4(rekor: 735) 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http://radyo.geveze.org:7009/listen.pls 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
göre editleyeceğin yerler var oraları yaptıkdan sonra kullanabilirsin.

Goemon 25 Temmuz 2012 22:42

Cevap: RadyoBoT Socked BiLGiNiZe!
 
:Server.GunceLsohbet.Com 441 RadyoBoT RadyoBiLgi #Radyo :They aren't on that channel

:Server.GunceLsohbet.Com 482 RadyoBoT #Dj :You're not channel operator

usta bot böle bir bilgi gönderdi ve mırcı kasıyor kapanıyor acaba neden.

SucLu 28 Temmuz 2012 17:27

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Alıntı:

IrCbaStarD Nickli Üyeden Alıntı (Mesaj 1041158959)
Kod:


alias qradyoip { return radyo.geveze.org }
alias qradyoport { return 7009 }
alias qradyopass { return "Radyopass" }
on *:SOCKOPEN:radyobot: {
  %radionick = T4- $+ $r(100,9999)
  sw $sockname NICK %radionick
  sw $sockname USER TechnicaL "" " $+ $iif($host,$host,$ip) $+ " : $+  Ayna Net Radyo botu.
}
alias botfnick {
  return $remove($gettok($1,1,33),:)
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
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 toXic sasasa
  }
  if $2 == 381 {
    sw $sockname join 0,
    sw $sockname ns ghost Radio x888481155
    sw $sockname ns release Radio x888481155
    .timer 1 2 sw $sockname NICK Radio
    .timershout 0 15 shout
  }
  if $2 == NICK {
    if $right($3,-1) == Radio {
      sw $sockname MODE $qbotnick $+ RADYO +BH-h
      sw $sockname ns identify x888481155
      sw $sockname os su adem55
      .timer 1 5 sw $sockname setident Radio
      .timer 1 5 sw $sockname sethost Radio.Ayna.Net
      .timer 1 5 sw $sockname JOIN #Radyo
      .timer 1 5 sw $sockname JOIN #Dj
    }
    if $botfnick($1) == Radio {
      sw $sockname ns ghost Radio x888481155
      sw $sockname ns release Radio x888481155
      .timer 1 3 sw $sockname NICK Radio
    }
  }
  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 #istek :Isteyen:4 %::nick Istek:4 $gettok($5-,1,34)
          sw $sockname privmsg #istek :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye 4!istekcevap  %::nick 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 #istek :Isteyen: %::nick Istek: $gettok($5-,1,34)
            sw $sockname privmsg #istek : $+ $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 Geveze 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),:) == !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 {
        ;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(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(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  4,4 0,1 Radyo Bilgileri 4,4 
        sw $sockname privmsg #dj :Ip: $qradyoip
        sw $sockname privmsg #dj :Port: $qradyoport
        sw $sockname privmsg #dj :Pass: $qradyopass
        sw $sockname privmsg #Dj 2BU bilgiler Gizlidir, Paylaşılması halinda kişi hakkında tespit ve işlem başlatılır..
        sw $sockname privmsg #Dj 4,4 0,1 Radyo Bilgileri 4,4 
      }
      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 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot PRIVMSG $chr(36) $+ *.org ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw duyurubot allsend all notice global Geveze-DUYURU 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        var %n 1
        while %n <= $lines(txt/Globl.txt) {
          sw nomercy privmsg $read(txt/Globl.txt,%n) : $+ ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
          inc %n
        }
        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 :Geveze-Org privmsg $4 :-
        ;sw radyobot os raw :Geveze-Org privmsg $4 :0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online. 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        ;sw radyobot os raw :Geveze-Org privmsg $4 :-
      }
    }
  }
  if $2 == join {
    echo -a $1-
    if $right($3,-1) == #Radyo {
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo Geveze 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) su anda online 0,2 Calan Parca:0,10 $turkceh(%songtitle) 0,2 Dinlenme Orani:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
      sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
    }
  }
  if $2 == 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
  ;echo -a %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $ifmatch
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $turkceh($ifmatch)
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {
        unset %radioo
      }
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {
        set %radioo kapali
      }
    }
    sockread -f %data
  }
}

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)
  }
}
alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return $qradyoip
}

alias shoutcast.port {
  return $qradyoport
}

alias shoutcast.adminpass {
  return $qradyopass
}

alias shoutcast.socket {
  return shoutcast
}

alias 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 radyodurum {
  if %radioo {
    unset %mesajver
    if !%mesajver {
      .timerradyomsg* off
      sw radyobot topic $shoutcast.channel : 11,1 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
      sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%radioo {
    .timerradyomsg* off
    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 
    sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    sw radyobot privmsg $shoutcast.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0su anda online 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4Geveze 0Calan Parca:4 $turkceh(%songtitle) 
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Orani: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw radyobot privmsg $shoutcast.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    set %mesajver on
  }
}
alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias radyodj {
  if %radioo {
    sw radyobot privmsg $shoutcast.channel :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %radioo {
    sw radyobot privmsg #Dj :0,2 Yayin bosta oldugundan radyo su anda deaktif durumdadir. 
  }
  if !%radioo {
    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1su anda online 4,1 Calan Parca:0,1 $turkceh(%songtitle) 4,1 Dinlenme Orani:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafindan kapali oldugundan deaktif durumdadir. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return $replace($1-,|,l)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return %ret 11,1
}

alias randombilgi {
  if $r(1,2) == 1 {
    return > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  }
  else {
    return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}

alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,&#xDE;,Ş,ÿ,$chr(160),&#xE9;,é) }
alias turkish {
  return $replace($1-,c,c,s,s,i,i,o,o,g,g,u,u,ş,s)
}

Kod:

[03:04:20] <Radio> ♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
[03:04:20] <Radio> 4,4-0,1 Radyo DJlermizden 4$háíñ 0su anda online 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyo 4Geveze 0Calan Parca:4 Göksel - Acıyor 
[03:04:20] <Radio> 4,4 0,1 Radyomuzun Dinlenme Orani: 4,1( 285 ) 0kisi dinliyor 4(rekor: 735) 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http://radyo.geveze.org:7009/listen.pls 
[03:04:20] <Radio> -
[03:04:20] <Radio> 4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1Geveze 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
göre editleyeceğin yerler var oraları yaptıkdan sonra kullanabilirsin.



Hocam Sunucuya Sokmak icin ne yapmamız lazım herseyi ayrladım remoteye ekledim ama ama bağlanmadı bunun icin / bağla / bağlan vs ne yapıyoruz

Toprak 28 Temmuz 2012 17:30

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Sunucuya sokmak için;

Kod:

sockopen radyobot irc.sunucu.com port
Kısaca /bagla komutu ile;

Kod:

alias bagla { sockopen radyobot irc.sunucu.com port }

SucLu 28 Temmuz 2012 17:35

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Hocam onu Remotenin neresine tam olarak yazıyoruz.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:35 -->-> Daha önceki mesaj 02:33 --

Hocam hallettim saol yardımın icin.

Toprak 28 Temmuz 2012 17:36

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Radyo kodlarını eklediginiz yerın en altına ekleye bilirsiniz.

Kod:

alias bagla { sockopen radyobot irc.sunucu.com port

SucLu 28 Temmuz 2012 17:47

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Hocam en üst kısmına ekledim oldu 1 sorun olmaz dimi

SucLu 18 Ağustos 2012 13:32

Cevap: RadyoBoT Socked BiLGiNiZe!
 
Alıntı:

q0kh4n Nickli Üyeden Alıntı (Mesaj 1041125912)
Yazılanların hepsi IrCBastarD'a aittir. Denemedim lakin bi sorun olursa başlık altında belirtin elimden geldiği kadar yardımcı oluru



PHP- Kodu:

on *:start: {
  unset %*
  .
timer 0 3 nomercy
}

alias nomercy {
  if !
$sock(nomercy) && !$sock(duyurubot) && !$sock(nm2) && !$sock(nm3) {
    if 
$hget(mesaj) {
      
hfree mesaj
      hmake mesaj
    
}
    .
timernomercyoff
  
}
  if !
$sock(radyobot) {
    
sockopen radyobot $qsunucu $qsunucuport
  
}
}

alias qnickpass { return botnickşifresi }
alias qoperpass { return opernick operşifre }
alias qsunucu { return irc.sunucu.com/net/org }
alias qsunucuport { return 6667 }
alias qbotnick { return mIRC- }
alias qradyoip { return radyoIP }
alias qradyoport { return radyoport }
alias qradyopass { return radyoşifre }
alias qhostver { return Sunucu.Net/Com/Org }


alias shoutcast.channel {
  return 
#Radyo
}

alias shoutcast.host {
  return 
$qradyoip
}

alias shoutcast.port {
  return 
$qradyoport
}

alias shoutcast.adminpass {
  return 
$qradyopass
}

alias shoutcast.socket {
  return 
shoutcast
}

alias sw {
  if 
$sock($1).status == active {
    
sockwrite -nt $1-
  }
}

alias botfnick {
  return 
$remove($gettok($1,1,33),:)
}

alias getxmltext {
  var %
tag.open = $+(<, $1, >)
  var %
tag.close = $+(</, $1, >)
  if 
$pos($2-,%tag.open) {
    var %
start $ifmatch $len(%tag.open)
    var %
length  $calc($pos($2-, %tag.close) - %start)
    return 
$mid($2-, %start, %length)
  }
  return 
$null
}

alias djzamansay {
  
inc %djzamans
  
.timera 100 1 djzamansay
  set 
%djsure $replace($duration($calc(1800- %djzamans)),secs,-saniye,sec,-saniye,mins,-dakika,min,-dakika,hrs,-saat,hr,-saat)


alias radyodurum {
  if %
radioo {
    unset %
mesajver
    
if !%mesajver {
      .
timerradyomsgoff
      sw radyobot topic $shoutcast
.channel 11,1 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
      
sw radyobot privmsg $shoutcast.channel :-
      
sw radyobot privmsg $shoutcast.channel :0,**  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
      
sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%
radioo {
    .
timerradyomsgoff
    sw radyobot topic $shoutcast
.channel :4,4 0,1  Yayinda su an »»» 4,$+ $turkceh(%genre) $+  0,1««« bulunmaktaYayin turu4,$+ $turkceh(%servertitle) $+ 0,1 Calan parca« 4,$+ $turkceh(%songtitle) $+ 0 » 4,
    sw radyobot privmsg $shoutcast
.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    sw radyobot privmsg $shoutcast
.channel :4,4-0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0şu anda online 
    sw radyobot privmsg $shoutcast
.channel :-
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4 $qreklam 0Çalan Parça:%songtitle  
    sw radyobot privmsg $shoutcast
.channel :4,4 0,1 Radyomuzun Dinlenme Oranı4,$+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    
sw radyobot privmsg $shoutcast.channel :-
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'
nin en kaliteli sohbet platformu 4,1 $qreklam 0,1forum sitesindede sizlerle bulusuyorHemen bize katilin 0,>> 1,1 4,1http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sw radyobot privmsg $shoutcast
.channel :♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪♫♪
    
.timerradyomsg1 1 $r(60,85sw radyobot privmsg $shoutcast.channel :*~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    
.timerradyomsg2 1 $r(100,125sw radyobot privmsg $shoutcast.channel :*~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    
set %mesajver on
  
}
}

alias radyodj {
  if %
radioo {
    
sw radyobot privmsg $shoutcast.channel :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır
  }
  if !%
radioo {
    
sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle4,1 Dinlenme Oranı:0,$calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,%peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %
radioo {
    
sw radyobot privmsg #Dj :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  
}
  if !%
radioo {
    
sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  
}
}

alias radyoerr {
  if %
radyohata {
    
sw radyobot topic $shoutcast.channel 11,1 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır
    
sw radyobot privmsg $shoutcast.channel :-
    
sw radyobot privmsg $shoutcast.channel :0,**  0,2 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır
    
sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if 
$sock(shoutcast) {
    
sockclose $ifmatch
  
}
  
sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return 
$replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return 
$replace($1-,|,l)
}

alias tc {
  if . 
isin $calc($1- / 2) {
    return 
tek
  
}
  else {
    return 
cift
  
}
}

alias djnick {
  var %
n 1 , %ret
  
while %<= $len($1-) {
    if 
$tc(%n) == tek {
      %
ret = $+(%ret,$+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %
ret = $+(%ret,$+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    
inc %n
  
}
  return %
ret 11,1
}

alias randombilgi {
  if 
$r(1,2) == {
    return > : 
4Dinlemek icin 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  
}
  else {
    return > : 
4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}


on *:SOCKOPEN:radyobot: {
  %
radionick Techv4- $+ $r(100,9999)
  
sw $sockname NICK %radionick
  sw $sockname USER $qidentdx 
"" " $+ $iif($host,$host,$ip) $+ " : $+  $qlogo
  sockmark $sockname radyobot
}
on *:SOCKREAD:radyobot: {
  var %
s
  sockread 
%s
  tokenize 32 
%s
  
if $== PING {
    
sw $sockname PONG $2
  
}
  if $
== 376 || $== 422 {
    
sw $sockname oper $qoperpass
  
}
  if $
== 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 $
== NICK {
    if 
$right($3,-1) == $qbotnick $+ RADYO {
      
sw $sockname MODE $qbotnick $+ RADYO +BH-h
      sw $sockname ns identify $qnickpass
      sw $sockname os su $qsupass
      
.timer 1 5 sw $sockname setident Radio
      
.timer 1 5 sw $sockname sethost $qhostver
      
.timer 1 25 sw $sockname JOIN #Radyo,#Dj,#radyops
      
.timer 0 100 .radyoerr
    
}
    if 
$botfnick($1) == $qbotnick $+ RADYO {
      
sw $sockname ns ghost $qbotnick $+ RADYO $qnickpass
      sw $sockname ns release $qbotnick 
$+ RADYO $qnickpass
      
.timer 1 3 sw $sockname NICK $qbotnick $+ RADYO
    
}
  }
  if $
== JOIN {
    if 
$right($3,-1) != #BotS {
      
if $remove($gettok($1,1,33),:) == $qbotnick $+ RADYO {
        
sw $sockname mode $right($3,-1) +a $qbotnick $+ RADYO
      
}
      if  
$right($3,-1) == #Radyo {
      
if !%radioo && !%radyohata {
        
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
        sw radyobot NOTICE $remove
($gettok($1,1,33),:) 0,12 Radyo $qreklam 'a hos geldiniz $remove($gettok($1,1,33),:) $+ ! 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) şu anda online 0,2 Çalan Parça:0,10 $turkceh(%songtitle) 0,2 Dinlenme Oranı:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ ) 
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
       }
      }
    }
  }
  if $2 == PRIVMSG {
    %::chan = $remove($gettok($3,1,33),:) |  %::add = $1 | %::nick = $botfnick($1)
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istek {
        if !$remove($gettok($5,1,34),:) {
          sw radyobot PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+ 
          return
        }
        if !%istek. [ $+ [ $botfnick($1) ] ] {
          inc -u180 %istek. [ $+ [ $botfnick($1) ] ] 1
          sw $sockname privmsg %::chan :4Isteginiz DJ'
lerimize iletilmistir2 %::nick 5( $+ $gettok($5-,1,34) $+ )
          
sw $sockname PRIVMSG #Dj :Isteyen: %::nick Istek: $gettok($5-,1,34)
          
sw $sockname privmsg #Dj :Dj` $+ $turkceh(%genre) $+  istek'te bulunan kişiye !istekcevap  MESAJINIZ şeklinde cvp verebilirsiniz..
        
}
        else {
          if !
$masterkontrol($botfnick($1)) { 
            
sw $sockname kick %::chan %::nick Ard arda istek istemeyinizBir kisiuc 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 $
== #Radyo {
      
if $remove($gettok($4,1,34),:) == !link {
        if !%
link {
          
set -u10 %link 1
          sw $sockname privmsg 
%::chan :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1 >> 0 4,1http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls 
        }
        else {
          inc -u4 %linkkontrol 1
          if %linkkontrol > 3 {
            sw $sockname kick %::chan %::nick !link flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !dj {
        if !%dj {
          set -u10 %dj 1
          .radyodj
        }
        else {
          inc -u4 %djkontrol 1
          if %djkontrol > 3 {
            sw radyobot kick %::chan %::nick !dj flood yapmayiniz!
          }
        }
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !istekbilgi {
        sw $sockname PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum $qreklam ailesine gelsin.
      }
    }
    if $3 == #Radyo {
      if $remove($gettok($4,1,34),:) == !durum {
        if !%durum {
          set -u10 %durum 1
          unset %lastsong
          unset %mesajver
          .shout
          ;.radyodurum
        }
        else {
          inc -u4 %durumkontrol 1
          if %durumkontrol > 3 {
            sw radyobot kick %::chan %::nick !durum flood yapmayiniz!
          }
        }
      }
    }
  }
  if $3 == #Dj {
    if $remove($gettok($4,1,34),:) == !bilgi {
      .qradyodj
    }
  }
  if $3 == #Dj {
    if $remove($gettok($4,1,34),:) == .global {
      if $botfnick($1) == Nickin {
        sw radyobot list
      }
      else {
        sw $sockname PRIVMSG %::chan : $+ %::nick $+ : Bu komuta erişiminiz yoktur.
      }
    }
  }
  if $3 == #dj {
    if $remove($gettok($4,1,34),:) == !istekcevap {
      if $remove($gettok($5,1,33),:) {
        if $turkceh(%genre) isin %::nick {
          sw radyobot privmsg #Radyo (4Dj`12 $+ $turkceh(%genre) $+ ): $gettok($5-,1,64)
          sw radyobot privmsg %::chan Mesajınız yollanmıştır.
        }
        if $turkceh(%genre) !isin %::nick || $remove($turkceh(%genre),Dj`) !isin %::nick {
          sw radyobot privmsg %::chan %::nick $+ : Bu komuta erişiminiz yoktur.
        }
        if !$remove($gettok($5,1,33),:) {
          sw radyobot PRIVMSG %::chan :Olm kıt misin niye mesaj yazmiyosun %::nick :)
          return
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !pass {
      if !%radyopass {
        set -u10 %radyopass 1
        sw $sockname privmsg #dj :Ip: $qradyoip
        sw $sockname privmsg #dj :Port: $qradyoport
        sw $sockname privmsg #dj :Pass: $qradyopass
      }
      else {
        inc -u10 %radyopass. 1
        if %radyopass. > 2 {
          sw radyobot kick %::chan %::nick !pass flood yapmayiniz!
        }
      }
    }
    if $remove($gettok($4,1,34),:) == !nick {
      if %::nick == $turkceh(%genre) {
        sw radyobot os raw svsnick $turkceh(%genre) $+(Dj`,$turkceh(%genre)) 0
        sw radyobot privmsg %::chan : $+ $+(,%genre,) $+ : Nickiniz onaylandı.
      }
      else {
        sw radyobot privmsg %::chan : $+ $+(,%::nick,) $+ : Nickiniz onaylanmadı, DJ değilsiniz.
      }
    }
    if $remove($gettok($4,1,34),:) == !radyo {
      if !%radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] {
        inc -u60 %radyokont. [ $+ [ $remove($gettok($4,1,34),:) ] ] 1
        unset %djzamans
        .djzamansay
        ame_ 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'
tan dinlemek icin tiklayin 0,>>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        
sw radyobot PRIVMSG $chr(36) $+ *.org ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da onlineRadyomuzu winamp'tan dinlemek icin tiklayin 0,4 >>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        sw radyobot PRIVMSG $chr(36) $+ *.net ACTION 11,1 $fants($turkceh(%genre)) 9,1şu an da online. Radyomuzu winamp'
tan dinlemek icin tiklayin 0,>>   12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
        
sw $sockname privmsg %::chan Radyo reklam mesajı tüm sunucuya duyrulmuştur.
      }
      else {
        
sw $sockname privmsg %::chan %::nick $+ : Bu komutun kullanımına ( $+ %djsure $+ ) kalmistir.
      }
    }
  }
  if $
== 322 {
    if 
!isincs ${
      if 
!isincs $&& !isincs $&& $>= && $!= #eğitim && $4 != #help && $4 != #operhelp && $4 != #sales && $4 != #radyo && $4 != #dj && $4 != Founders && $4 != #Helpers && $4 != #GlobalOps && $4 != #HelpKurul && $4 != #HelpGame {
        
sw radyobot os raw :chanserv privmsg $:0,4 D 0,2 J  $djnick($turkceh(%genre)) $+ 0,5 şu anda online9,1 Radyomuzu dinlemek icin tiklayin 0,>>  12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
      
}
    }
  }
  if $
== 366 {
    if $
!= #radyo && $4 != #Dj && $4 != #BotS && $4 != #istek {
      
sw $sockname PART $4
    
}
  }
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  if (
$sockerr) { 
    .
timerradyomsgoff
    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-AgentMozilla/5.0 (WindowsUWindows NT 5.1en-USrv:1.7Gecko/20040614 Firefox/0.8
  sockwrite 
-n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $ifmatch
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
      ; set %songtitle $remove($ifmatch,#x,26;,&#,FF;,&)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $turkceh($ifmatch)
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 1 {
        unset %radioo
      }
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      if $remove($ifmatch,&#xFF;,&#x26;) iswm 0 {
        set %radioo kapali
      }
    }
    sockread -f %data
  }
}


alias turkceh { return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,ÿ,&#xFF;,Ş,$chr(160)) } 


on 1:SOCKCLOSE:$($shoutcast.socket): {
  unset %radyohata
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .radyodurum
    .shout
  }
  if $turkceh(%genre) != $turkceh(%lastgenre) {
    sw radyobot privmsg #dj :0,2 $qgundurumu  $+ $turkceh(%genre) $+  sisteme DJ olarak tanındınız, iyi yayınlar. 
    sw radyobot sajoin $turkceh(%genre) #dj
    sw radyobot os raw svsnick Dj` $+ $turkceh(%lastgenre) $turkceh(%lastgenre) 0
    sw radyobot os raw svsnick $turkceh(%genre) Dj` $+ $turkceh(%genre) 0
    set %lastgenre $turkceh(%genre)
  }















Hocam Botu sunucuya Nasıl sokuyoruz /gir /bagla vs gibi 1 komut uygulanıyormu?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:33.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk