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
}
}
}