#kontrol kanalında !sockserv yazınca sockserv devreye girsin
#kontrol kanalında !servisgetir yazınca services ler devreye girsin
#kontrol kanalında !nickdegis Nick YeniNick yapınca nick deiştirsin
bunların Bi arada oLdugu Bi kod iStiyorum. mümkünmüdür Acaba ? /sockserv Şeklinde Çalıstırıorum da Maksatım kontrol kanalında bulunan diger root lar da bunu uygulayabilsinler. !nickdegis nick için Kod un bi kısmını aşağıda ekledim. Bi yardımcı oLursanız Sevinirim. iYi ÇalıŞMaLAr..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
;### Link Conf.
alias -l linkname return Fantasy.ConferenceRoom.com
alias -l linkpass return Fantasy
alias -l irchost return irc.sunucuismi.com
alias -l ircport return 7044
alias SockServ {
sockclose SockServ
sockopen SockServ $irchost $ircport
echo $color(info) -a :SockServ Açıldı
}
alias SetNick {
if $sock(SockServ) {
sockwrite -nt SockServ $+(:,$1) NICK $2
}
else {
echo $color(info) -at Socket bağlantı hatası
}
}
;## Sock Code
on *:sockopen:SockServ:{
sockwrite -tn $sockname PASS $linkpass $+ $crlf $+ $&
server $linkname 1 Bot Services Agent
}
on *:sockread:SockServ:{
if ($sockerr) { echo $color(info) -at Socket botun bağlantısı kesildi. | return }
sockread %data
if PING* iswm %data { sockwrite -tn $sockname PONG $gettok(%data,2,32) | echo -a :pong }
;### Gelen verileri echo için. Aktif etmek için aşağı satır başındaki ';' işaretini kaldırın
;if !$window(@SocketServ) { window -k0 @SocketServ } | aline -p @SocketServ $timestamp < %data
}