IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

İlk öncelikle bir bot oluşturacaksın socket olarak.
Sonra gelen veriye göre işlev yapıcaksın.
Mesela tam olarak bilmiyorum ama;
if (*client connect* iswm $1-) { sockwrite -n socket-bot $3 mesajın. }
Gibi.
Ben sana bir kod vereceğim, bundan yola çıkarak birşeyler yapabilirsin.

/sockbot irc.deneme.net 6667 şeklinde bot'u istediğin sunucuya bağla.
/re oper nick pass şeklinde oper girdir.
@Data penceresine gelen veriye göre işlev yap.

Not: Data penceresine veriler verdiğim /ok alias'ı sayesinde;
$(1)Bu $(2)veri $(3)sunucudan $(4)gelen $(5)veridir.
Şeklinde gelecektir.

Kod:

 

alias sockbot if ($1 && $2) { sockopen bot $1-2 }

alias re sockwrite -n bot $1-

alias ok var %s = 1,%q | while (%s <= $numtok($1-,32)) { %q = $addtok(%q,$+($chr(40),$chr(36),%s,$chr(41),$gettok($1-,%s,32)),32) | inc %s } | $iif($window(@data),aline -p @data $timestamp Veri: $+($chr(2),%q))

on *:sockopen:bot:{

if ($sockerr) { echo -at Bağlantı başarısız. | halt }

re nick BOT | re user ident * * :sckbot | sockmark bot BOT

}

on *:sockread:bot:{

if ($sockerr) { echo -at Bağlantı başarısız. | halt }

var %1 | sockread %1 | tokenize 32 %1 

$iif(!$window(@data),window -k0 @data) 

ok $1- | sckbt $1-

}

alias sckbt {

if ($sock(bot)) { 

$iif($regex($1,^ping$/i),re PONG $2-) 

}

}