sunucu giriş adresi : server irc.bilmem.net
sunucu giriş part ident : 6667
Botun rumuzu : koruma
Botun şifresi : *****
Botun identi : koruma@
Botun full namesi :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Botun Görevi : Services admin ( flagların yarısı açık olcak. )
Botun Gireceği Kanallar : #yönetim,#operhelp
Botun auto op Kanallar : #yönetim,#operhelp
Botun operpası : ******
Botun çıkış mesajı : guit services sockbot.koruma

arkadaşlar ben bu şekilde sizden bir radyo socked bot oluşturulmasını istemiştim bu kod XcLuve HaLiL in yazdığı kodun aliaslarını kendi istediğime göre çevirdim bot sunucuya giriyor sağolsun.

Arkadaşlar şimdi aliaslar yapmış olduğum gibi özelliklerin yarısı botda yok önce o eksiklerimi düzeltmem gerekiyor onun için yardımlarınıza ihtiyacım var ben socked olayını öğrenmek için çabalıyorum inş yardım edersiniz.

acaba botda bir eksiklik varmı eklediklerimle.


alias botserverip return irc.bilmem.netalias botserverport return 6667
alias botnick return RadyoBoT
alias nickpass return 123456
alias botidentd return bilmemalias operpass return 654321
alias botfullname return RadyoSocket` System
alias kanallar return #radyo,#dj,#djbilgi
alias botopkanal return #radyo,#dj,#djbilgi
alias botquitmsg return RadyoBoTSocked-System
alias gel {
komut quit $botquitmsg
sockclose bot
sockopen bot $botserverip $botserverport
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Bağlantı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Bağlantı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut identify $nickpass
komut oper $operpass
komut join $kanallar
komut samode +o #botopkanal
komut list
}
}
alias komut { if $sock(bot) { sockwrite -n bot $1- } }
alias ciprix {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :
FINGER
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $1 == PING { komut PONG $2- }
}
if $2 == PRIVMSG {
if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
}
if $2 == PRIVMSG && *#* !iswm $3 {
komut privmsg robo-c-op < $gettok($1,1,33) > $4-
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !gir #radyo
}
else {
komut privmsg robo-c-op $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!çık* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !çık #dj
}
else {
komut privmsg robo-c-op $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
}

 

[17:49] * Giriş: RadyoBoT (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[17:50] * IRC`den Çıktı: RadyoBoT (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Client exited)

botu denedim çalışıyor ama eksikleri var.

 

alias radyo.kanal {
return #radyo
}
alias radyo.host {
return 64.56.66.142
}
alias radyo.port {
return 8886
}
alias radyo.adminpass {
return benimradyom
}
alias radyo.sock {
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:$($radyo.sock): {
sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyo.adminpass,&mode=viewxml HTTP/1.1)
sockwrite -n $sockname Host: $+($radyo.host, :, $radyo.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:$($radyo.sock): {
var %data
sockread -f %data
while $sockbr > 0 && $sockerr == 0 {
if $getxmltext(SERVERTITLE, %data) != $null {
set %servertitle $remove($ifmatch,&#xFF;,&#x26
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,&#xFF;,&#x26
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,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
sockread -f %data
}
}
on 1:SOCKCLOSE:$($radyo.sock): {
if %songtitle != %lastsong {
set %lastsong %songtitle
var %msg = 0,4 %genre su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
set %msg2 0,4 %genre su anda online 0,2 Siradaki parca: %songtitle 0,4<< 0,5 Radyomuzu dinlemek icin tiklayin 0,4 >>  http://208.98.57.80:4444/listen.pls
msg $radyo.kanal Yayinda su an << $+ %genre $+ >> bulunmakta. * Yayin turu: %servertitle * Calan parca: >>>>> %songtitle <<<<<
msg $radyo.kanal %msg
}
}
alias shout {
if $sock(shoutcast) {
sockclose $ifmatch
}
sockopen $radyo.sock $radyo.host $radyo.port
}
on 1:text:*:#radyo:{
if *!durum* iswm $1- {
set -u10 %durum 1
unset %lastsong
.timer shout 0 5
}
}


arkadaşlar bunu sockede nasıl eklerim yardımcı olurmusunuz.

 

alias botserverip return irc.hodri.net
alias botserverport return 6667
alias botnick return LoRdLaR
alias nickpass return 123456
alias opernick return LoRdLaR
alias operpass return 65894
alias botidentd return KRALASLAN
alias botfullname return LoRdLaRSocket` System
alias kanallar return #deneme
alias botopkanal return #deneme
alias botquitmsg return LoRdLaRSocked-System
alias gel {
sockopen bot $botserverip $botserverport
}
alias kopar {
komut quit $botquitmsg
sockclose bot
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Botun Bağlantısı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Botun Bağlantısı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut identify $nickpass
komut oper $opernick $operpass
komut join $kanallar
komut samode +o #botopkanal
komut list
}
}
alias komut { if $sock(bot) { sockwrite -n bot $1- } }
alias ciprix {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :
FINGER
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $1 == PING { komut PONG $2- }
}
if $2 == PRIVMSG {
if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
}
if $2 == PRIVMSG && *#* !iswm $3 {
komut privmsg robo-c-op < $gettok($1,1,33) > $4-
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !gir #radyo
}
else {
komut privmsg robo-c-op $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!çık* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !çık #dj
}
else {
komut privmsg robo-c-op $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
}


NoT: eksik olan kısımları kırmızıyla belirtdim.ayrıca kopar aliasıda ekledim lazım olur diye denedimde gayet çalışıyor.

*** Giriş: LoRdLaR (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
*** LoRdLaR (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) Çıktı ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

 

usta olmuş saol birde radyo kodu yayınladım onada bir bakarmısın yolunu sölesen bile kafi.

 

daha usta olamadım.
Neyse sadade gelcem msj atmışsın bana botu konuşturabilirmiyiz die neden olmasın konuşturabiliriz tabikide




KoD :

alias botserverip return irc.hodri.net
alias botserverport return 6667
alias botnick return LoRdLaR
alias nickpass return 00000
alias opernick return LoRdLaR
alias operpass return 65894
alias botidentd return KRALASLAN
alias botfullname return 12LoRdLaRSocket` System
alias kanallar return #deneme
alias botopkanal return #deneme
alias botquitmsg return LoRdLaRSocked-System
alias gel {
sockopen bot $botserverip $botserverport
}
alias kopar {
komut quit $botquitmsg
sockclose bot
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Botun Bağlantısı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Botun Bağlantısı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut identify $nickpass
komut oper $opernick $operpass
komut join $kanallar
komut samode +o #botopkanal
komut list
}
}
alias komut { if $sock(bot) { sockwrite -n bot $1- } }
alias ciprix {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :
FINGER
iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $1 == PING { komut PONG $2- }
}
if $2 == PRIVMSG {
if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
}
if $2 == PRIVMSG && *#* !iswm $3 {
komut privmsg robo-c-op < $gettok($1,1,33) > $4-
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !gir #radyo
}
else {
komut privmsg robo-c-op $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!çık* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !çık #dj
}
else {
komut privmsg robo-c-op $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}
alias konus {
if (!$1) { echo -a Botun Sock ismini yazmadiniz! Ornek: /konus Bot #Kanal Mesajiniz | halt }
if (!$2) { echo -a Botun Mesaj Yazacagi Kanali Girmediniz! | halt }
if (!$3) { echo -a Mesaj Yazmadiniz! | halt }
sw bot privmsg $2 $3-
}





Kırmızı renkde olan yeri ekledim bende çalışıyor birde sen dene bakalım.

/komut botunnicki kanal mesajın şeklinde botu kanalda konuşturabilirsin

Örn:

/komut LoRdLaR #sohbet nbr la robo-c-op
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde botu kanalda konuşturabilirsin.

 

oldu hocam saol tşk ederim birde radyo koduna yardımcı olsan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

üzerinde çalışırsan yaparsın ben hoca moca değilim senin paylaştığın koddan yola çıkdım.

 

sockedden radyobotunu yapabilmen için yardım alman lazım? robo-c-op

 

yardım edecek kimse yokmu yani?