Bir daha bu şekilde bir konu açarsan silerim.
Kendin birşeyler yapıp yardım istemelisin, lakin sen direk hiçbirşey ortaya koymadan istek yapmışsın. Bu bölüm
iste-yapılsın köşesi değil ilk öncelikle. Sen birşeyler yaparsın veya yapmaya çalışırsın, takıldığın yerde gerekli kişiler sana yardımcı olur.
Mesela
socket ile IRC sunucularına nasıl bağlanır? Bunun hakkında bir makale varmı yokmu? -diye araştırdınmı? Ben sana söyleyeyim cevabını;
VAR. Ve yine istediğine benzer(socket ile sunucuya bağlanma) hakkında onlarca hazır kod olduğunuda düşünüyorum. Neyse istediğini karşılayacak kısa birşey yazdım.
Botu sunucuya bağlama Kullanma şekli: /bağla BOTISMI IRC-SUNUCUSU|IP PORT
Örnek: /bağla Security irc.zurna.net 6666
Botun bağlantısını kopartma: /çıkış
Botu konuşturma: /konuş #kanal|nick mesaj
Örnek: /konuş #gençlik mesajın.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias bağla $iif($sock(_bot),sockclose $v1) | sockopen _bot $2 $iif($3,$v1,6667) | var -g %_bname = $1
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 %_bname
%:- user fafi * * :fa fi.
sockmark _bot %_bname
}
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)
%:- join #sohbet,gençlik
if ($1 == PING) %:- pong $2-
if (%_us == %_bn && $2 = join && $_ch(%_ch)) { %:- part %_ch }
if ($2 = join && !$_ch(%_ch) && %_us != %_bn) { %:- privmsg %_us kanala giren nicklere atılacak olan mesaj. }
}
Mavi olan yere boşluk bırakarak kanallar ekleyebilirsin.
Kırmızı olan yere kanala girecek olan kullanıcının özeline yazılacak mesajı girebilirsin.
-
Kolay gelsin.
L4roXyL - (Hasan AYDENİZ)