İ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: Kodu kopyalamak için üzerine çift tıklayın!
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-)
}
}