Çevrimdışı

İdent dediğin şifreli giriş mi? IRC sunucularına girmeyeli yıllar oldu. O yüzden unuttum desem yeridir. Benim yazdığım kod sana biraz farklı geldi sanırım. Senin hiçbir bilgin yok sanırım yazdığım kod hakkında. O yüzden üzerinde oynama yaparak istediğini yapamıyorsun(gerekli yerleri değiştiremiyorsun). Ben senin anlayacağın dilden kodu değiştiriyorum;

alias bağla $iif($sock(_bot),sockclose $v1) | sockopen _bot $_server $_port $_pass
;-
alias _bnick return BOTUN_NICKI
alias _server return irc.sunucuadresi.uzantısı
alias _identd return IDENT_ISMI
alias _pass return sunucu-şifresi
alias _port return 6667
alias _username return buraya botun setname-sini gir
alias _usermsg return kanala giren kullanıcılara atılacak olan mesaj.
;-
alias çıkış $iif($sock(_bot),sockclose $v1)
alias _ch if ($istok(#sohbet #gençlik,$1,32)) { return $false } | return $true
alias konuş if ($sock(_bot)) sockwrite -n $v1 privmsg $1 $2-
on *:sockopen:_bot: {
if ($sockerr) returnex
var %:- sockwrite -n _bot
%:- nick $_bnick
%:- user $_identd * * : $+ $_username
sockmark _bot $_bnick
}
on *:sockread:_bot: {
if ($sockerr) returnex
var %:- sockwrite -n _bot,%_bot,%_bn = $sock(_bot).mark
sockread -n %_bot
tokenize 32 %_bot
var %_us = $right($token($1-,1,33),-1),%_ch = $right($3,-1)
if ($1 == PING) %:- pong $2-
;botun gireceği kanallar
%:- join #sohbet,#gençlik
if (%_us == %_bn && $2 = join && $_ch(%_ch)) { %:- part %_ch }
if ($2 = join && !$_ch(%_ch)) { %:- privmsg %_us $_usermsg }
}

Koyu olarak belirttiğim yerleri kendi sunucuna göre ayarladıktan sonra; /bağla yazman yeterli olacaktır. Sanırım gayet açık oldu bu sefer.