Nomercy socket botunu çektim ama sorun nerde anlayamadım bir türlü bağlanmıyor.
şimdiden yardım edebilen edemeyen fikir beyan eden herkese tşkler
Alıntı:
on *:sockopen:network:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | sockopen network %server | return }
sw $sockname NICK bizim $+ $r(0,99)
sw $sockname bizim Noident * * : %logo
sw $sockname oper %botopernick %botopernicksifre
sw $sockname join 0,
set %bswat %botnick $+ -Radio
sw $sockname NICK %botnick $+ -Radio
sw $sockname set %bswat %botnick $+ -Radio
sw $sockname identify %nickpass
sw $sockname join %operkanali
sw $sockname sethost NvLty.Radio
sw $sockname chghost %botnick Nohost
sw $sockname mode %operchan +o %botnick $+ -Radio
sw$sockname os raw svsmode Bizim-Radio +HB
sw $sockname swhois %botnick Bizim.Radyo.Channel
timer 0 10 sw $sockname ping %botnick $+ -Radio
sockmark $sockname %botnick $+ -Radio
}
on *:SOCKREAD:network: {
var %urs
sockread %urs
tokenize 32 %urs
if $numeric == *.* {
echo $1-
}
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper %botopernick %botopernicksifre
}
if $2 == 381 {
sw $sockname join 0,
sw $sockname os svskill Bizim-Radio cycling
.timer 1 2 sw $sockname NICK Bizim-Radio
}
alias sw $sockname { if $sock(network) { sockwrite -n network $1- } }
alias swalias {
;eğer bot socketı açıksa
if $sock(network) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION %logo $+ $chr(1) }
if :FINGER iswm $4- { sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER %logo $+ $chr(1) }
if $1 == PING { sw $sockname PiNG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(network).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | sw $sockname JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(aLLStaR roni guven,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw $sockname PART %< | sw $sockname JOIN %< }
if .join #* iswm %m { sw $sockname JOIN $gettok(%m,2-,32) }
}
}
}
}
if $2 == NICK {
if $right($3,-1) == Bizim-Radio {
sw $sockname ns identify %botnicksifre
sw $sockname join #Radyo,#Dj,#opers
.timer 1 3 sw $sockname chghost Bizim-Radio Radio.Autho.System.
.timer 0 220 sw $sockname LIST
}
if $botfnick($1) == Bizim-Radio {
sw Bizim-Radio os svskill Bizim-Radio cycling
.timer 1 3 sw $sockname NICK Bizim-Radio
}
}
if $2 == JOIN {
if $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. == Bizim-Radio {
sw $sockname mode $right($3,-1) +a Bizim-Radio
}
}
if $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. != Bizim-Radio && $right($3,-1) == #Radyo {
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 0,12 %web radyoya hos geldiniz $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. $+ !
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. -------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 0,6 Isteklerinizi, Radyo kanalina 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Shakira- afrika - Tum %web ailesine gelsin.
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. -------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 0,6DJ`lerimizden 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. -------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 10Radyomuzu dinlemek icin tiklayin: 12 && 12http://IRC.mIRCDark.Com:2222/listen.pls
}
if %::chan == #dj && $gettok(%::text,1,32) == !mesajekle {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :Olm kit misin niye mesaj yazmiyosun %::nick Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
return
}
write radyoslogan.txt $gettok(%::text,2-,32) ( $+ %::nick $+ )
sw Bizim-Radio PRIVMSG #dj :Slogan eklendi ( $+ %::nick imzali) - Radyo ile alakali seyler yazin lutfen.
}
if %::chan == #dj && $gettok(%::text,1,32) == !bulunamadi {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :kullanmak icin !bulunamadi <nick>
return
}
sw Bizim-Radio PRIVMSG #Radyo : $gettok(%::text,2,32) , isteginiz bulunamadi. Lütfen başka bir istek isteyiniz.
sw Bizim-Radio PRIVMSG #dj :istegi bulunamayan user $gettok(%::text,2,32) .
}
if %::chan == #dj {
if $gettok(%::text,1,32) == !dj {
sw Bizim-Radio os raw swhois %::nick : is a %web Dj
sw Bizim-Radio privmsg #dj : $+ %::nick Dj Olarak sisteme girisiniz onaylandi.
}
}
if %::chan == #dj && $gettok(%::text,1,32) == !istekcevap {
if !$gettok(%::text,2-,32) {
sw Bizim-Radio PRIVMSG #dj :Olm kit misin niye mesaj eklemiyorsun %::nick Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
return
}
sw Bizim-Radio PRIVMSG #dj 4:Cevap Metni (DJ- $+ %::nick imzali) - $gettok(%::text,2,32) $+ `e $+ :12 Iletilmiştir.
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32) :Istege cevap (DJ- $+ %::nick imzali) - $gettok(%::text,3-,32)
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32) Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. jlerime cevap vermeniz icin gereken komut !istekcevap mesajınız
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32) :Örnektir, !istekcevap teşekkür ederim iyi yayınlar vs vs.
}
if %::chan == #Radyo && *?stek iswm $gettok(%::text,1,32) {
if !$gettok(%::text,2,32) {
sw Bizim-Radio PRIVMSG %::chan Bos istek gondermeyiniz . " $+ %::nick $+ " " [23:14] <Bizim> !istek (istedigin sarki yaparak isticeksin istegini) "
return
}
if !%istek. [ $+ [ %::nick ] ] {
inc -u180 %istek. [ $+ [ %::nick ] ] 1
unset %istek. $+ q0kh4n
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok(%::text,2-,32) $+ )
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :Isteyen: %::nick Istek: $gettok(%::text,2-,32)
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :Istek Cevap Komutu: 4!istekcevap %::nick mesaj
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
}
else {
_kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !link {
if !%link {
set -u10 %link 1
sw Bizim-Radio PRIVMSG %::chan :0,4 ** 0,6 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >> 12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] & [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
else {
inc -u1 %linkkontrol 1
if %linkkontrol > 5 {
_kick %::chan %::nick !link flood yapmayiniz!
}
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !dj {
if !%djs {
set -u10 %djs 1
sw Bizim-Radio PRIVMSG %::chan :0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )
}
else {
inc -u1 %linkkontrols 1
if %linkkontrols > 5 {
_kick %::chan %::nick !dj flood yapmayiniz!
}
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !istekbilgi {
sw Bizim-Radio PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCTR ailesine gelsin.
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !durum {
if !%durum {
set -u10 %durum 1
unset %lastsong
shout
}
else {
inc -u1 %durumkontrol 1
if %durumkontrol > 5 {
_kick %::chan %::nick !durum flood yapmayiniz!
}
}
}
; RadyoBot
alias shoutcast.channel {
return %radiokanali
}
alias shoutcast.host {
return %radioip
}
alias shoutcast.port {
return %radioport
}
alias shoutcast.adminpass {
return %shutcastsifresi
}
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
}
on 1:SOCKOPEN:$($shoutcast.socket): {
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,ÿ,& Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,ÿ,& Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
}
if $getxmltext(BITRATE, %data) != $null {
set %bitrate $ifmatch
}
if $getxmltext(PEAKLISTENERS, %data) != $null {
set %peaklisteners $ifmatch
}
if $getxmltext(SERVERGENRE, %data) != $null {
set %genre $remove($ifmatch,ÿ,& Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hocam sağolda bu nomercy v4 değil ki ve söylediğin şeyleri ben zaten girmişim
bu radyo botunu ben sadece ayrı bir şeklde kullanmak istiyorum
yani emrax kardeşimiz mesela mirce bağlamış vermiş bir addon ama bu addon socket olursa herkes istediği mircden bağlar ve herkese lazım olcaktır eminim sockettan anlayanlar neden böle şeyler yapmaz bilmiyorum .. köütümü olur yani socket bi radyo botu olması yada bi proxy socketının olması :S
__________________ Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
hocam o kodların hepsi burda da var ben sadece o kodları bir socket botlabirleştirmek istedim eksiklerim neler görmek istiyorum socket sorunum var biraz:s
Suan Anladigim Kadariyla Kodlarin Tamami Bu Galiba , Eger bu kadar ise sw $sockname karsiligi ney acaba sw neyi karsiligi acaba eger yoksa sende sw alias'i buyur bunu kullan eger yanliş anladiysam k.bakma anlamamişimdir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}