RadyoBoT Socked BiLGiNiZe! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

22 Mayıs 2012, 16:21

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

22 Mayıs 2012, 16:25

robo-c-op istiyeceğine yapmaya çalışsan olmamı kardeşim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
benim zaten radyo sock bot için çalışmalarım var ama madem herkes bir şey paylaşırsa güzel olur demişsin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ozaman paylaşalım hayat paylaşınca güzel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
}
}

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

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

    }

    .timernomercy* off

  }

  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 {

      .timerradyomsg* off

      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,4 **  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 

      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)) 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:4 %songtitle  

    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Oranı: 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,1 $qreklam 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 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,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 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(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %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,4 **  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 %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.

  }

}

 
 
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 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 $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  $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 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) == 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,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 radyobot PRIVMSG $chr(36) $+ *.net 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 $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 :chanserv 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

      }

    }

  }

  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,&#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)

  }

}

23 Mayıs 2012, 14:55

abi bot girmedi sunucuya

23 Mayıs 2012, 15:02

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.

01 Temmuz 2012, 15:46

dj yerinde rakamlar çıkıyor?

moonman · 02 Temmuz 2012, 03:30

DJ Nickini GENTRE Kısmına Yazarsanız DJ olan Kişinin Nicki Çıkacakır, Kolay Gelsin.

03 Temmuz 2012, 22:01

#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.

03 Temmuz 2012, 22:18

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konuyu inceleyiniz.

03 Temmuz 2012, 22:33

konu görünmüyor

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo socked bot yardım	Goemon	mIRC Scripting Sorunları	1	24 Nisan 2012 21:05
RadyoBot DJ Yayindan atmak	NefeS	mIRC Scripting Sorunları	10	15 Ekim 2011 01:34
Socked için kod isteği	Beklenti	Eggdrop, NeoStats, BNC	0	07 Temmuz 2011 11:47
Technology socked botu	dAtA	mIRC Scripting Sorunları	8	13 Haziran 2010 12:24
Radyobot yeni parça update sorunu..	Rei	mIRC Scripting Sorunları	0	13 Ekim 2007 14:05

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.