Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

[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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

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

 

Çevrimdışı

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