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.