Cevap: Sock bot sorun
 

Ben size Komple kodu verim hocam sürekLi o hatayı veriyor.

;"bot" adlı socketımız açıldığında
on *:sockopen:bot:{
;eğer socketta bir sorun varsa işlemi durduruyoruz
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
;servera bağlanırken botun nicki gönderiliyor
swbot NICK Swtechnology
;servera bağlanırken botun identdi ve usernamei gönderiliyor
swbot USER BOT * * :Coder By osman*
;socket botun nickiyle işaretleniyor. yani $sock(bot).mark değeri botun nicki oluyor
sockmark $sockname Swtechnology
}
;serverdan socketa bilgi geldiğinde
on *:sockread:bot:{
;eğer socketta bir sorun varsa işlemi durduruyoruz
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
;%; diye bir değişken oluşturup sockettan gelen bilgiyi bu değişkene yüklüyoruz ve $1- değerini doldurması için tokenize kullanıyoruz
var %; | sockread %; | tokenize 32 %;
;eğer @sdebug penceresi yoksa pencere oluşturuluyor ve sockettan gelen bilgi o pencereye gösteriliyor
if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
;sockettan gelen bilgi ile swalias aliasını çağırıyoruz
swalias $1-
}
;socketta bilgi gönderme aliasımız, eğer bot socketı açıksa o socketa istediğimiz bilgiyi gönderiyoruz
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
;sockettan gelen bilgiyi okumak için oluşturduğumuz swalias aliası
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
if :
FINGER
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(el33t el33t2,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
}
if $3 == $sock(bot).mark { swbot privmsg #Osman,#kelebek@ Nick: %n - Mesajı: %m }
}
if $left($3,1) == $chr(35) {
var %1 = 1 | while %1 <= $lines(dosya.txt) {
if $regex(%m,$read(dosya.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1argo.küfür14• içerikli kelime kullandınız. }
inc %1
}
if $left($3,1) == $chr(35) {
var %1 = 1 | while %1 <= $lines(dosya2.txt) {
if $regex(%m,$read(dosya2.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1web.irc.channel14• vs reklam içerikli kelime kullandınız. }
inc %1
}
}
}

Kod bu

Cevap: Sock bot sorun
 

on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
swbot NICK Swtechnology
swbot USER BOT * * :Coder By osman*
sockmark $sockname Swtechnology
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
if :
FINGER
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(el33t el33t2,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
}
if $3 == $sock(bot).mark { swbot privmsg #Osman,#kelebek@ Nick: %n - Mesajı: %m }
}
if $left($3,1) == $chr(35) {
var %1 = 1 | while %1 <= $lines(dosya.txt) {
if $regex(%m,$read(dosya.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1argo.küfür14• içerikli kelime kullandınız. }
inc %1
}
var %1 = 1 | while %1 <= $lines(dosya2.txt) {
if $regex(%m,$read(dosya2.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1web.irc.channel14• vs reklam içerikli kelime kullandınız. }
inc %1
}
}
}
}

Bu şekilde, herhangi bir sorun yok.
İnceledim ve denedim.

Cevap: Sock bot sorun
 

kanaldan Komut uygulatabilirmiyiz /Swbot join #kanal değilde #X Kanalında !join #kanal sekLinde !msg selam sekLinde? !unban nick ban acması felan

Cevap: Sock bot sorun
 

Evet yapabilirsin.
Örnek veriyorum;

alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
if :
FINGER
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(nick'in,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
if $gettok(%m,1,32) == !unban { swbot mode $3 +b }
}
if $3 == $sock(bot).mark { swbot privmsg #Osman,#kelebek@ Nick: %n - Mesajı: %m }
}
if $left($3,1) == $chr(35) {
var %1 = 1 | while %1 <= $lines(dosya.txt) {
if $regex(%m,$read(dosya.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1argo.küfür14• içerikli kelime kullandınız. }
inc %1
}
var %1 = 1 | while %1 <= $lines(dosya2.txt) {
if $regex(%m,$read(dosya2.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1web.irc.channel14• vs reklam içerikli kelime kullandınız. }
inc %1
}
}
if $2 == 367 && $3 == $sock(bot).mark { swbot mode $4 -b $5 }
}
}

Kalın olarak verdiğim yelere bakarak geliştirebilirsin.

Cevap: Sock bot sorun
 

[09:27] *** Osman mod değiştirdi:+b ben!*@*
[09:27] <~Osman> !unban ben
[09:27] *** ben mod değiştirdi:+b Osman!*@*

[09:58] < :irc.hehe.net 401 ben +b :No such nick/channel
[09:58] < :irc.hehe.net 403 ben 2 :No such channel
bunun yazma sebebi hocam kanala birisi bise yazınca atmaya calısıyor galiba

Cevap: Sock bot sorun
 

İyide burada nick belirtmiyorsun'ki.
!unban tüm banları açar. Yani kullanım şekli, !unban sadece.

Cevap: Sock bot sorun
 

Ban Listteki butun banlarımı acıyor :S Belirttiqim nickin banını actıramazmıyız

Cevap: Sock bot sorun
 

Açtırabilirsin ama uzun bir iş olur.
Belirtilen nick', bir değer'e atıyacaksın. 367 raw'ında o nick' taratıcaksın.

Yanıt: Sock bot sorun
 

Sock Bot Değilse .. Botun Özeline Gelen Mesajları #XxX kanaLina YaziLmasi icin ne yapmak lazim .. ?

Cevap: Sock bot sorun
 

yapmak lazım ve birazda forumu aramak lazım..