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

sdsng · 24 Nisan 2020, 14:42

Merhaba,
Elimde basit bir sockbot kodu var buna sadece badnick kouruması eklemek istiyorum. ben aşağıdaki gibi join kısmına badnick.txt'deki nickleri okutturmak istedim ama başarılı olamadım. Yardımcı olabilir misiniz?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

off 1:start: { bağlan }
alias boty {
  if !$sock(bot) {
    sockopen bot serverismi 6667
  } 
}

on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  swbot nick botnicki
  swbot USER botiden* * :botfullname
  sockmark $sockname botnick
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $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 guARdiANof[THE]Light $+ $chr(1) }
    if $1 == PING { swbot PONG $2- }
    if $2 == 474 { %: $4 kanalında banlı. }
    if $2 == 366 { %: $4 kanalına girdi.  }
    if $2 == JOIN {
      if !$read(badnick.txt,w,$3) {
        sw $sockname kick $right($3,-1) $botfnick($1)  Badnick
        sw $sockname mode $right($3,-1) +b $botfnick($1)
      }
    }
    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(nick1 nick2 nick3,%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) }
      }
    }
  }
}

Toprak · 24 Nisan 2020, 14:52

Böyle kullanabilirsin, badnickleri mirc klasörü içerisine badnick.txt içerisine alt alta ekleyiniz;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:start:boty
alias boty $iif(!$sock(bot),sockopen bot serverismi 6667)
on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. }
  else {
    swbot nick botnicki
    swbot USER botiden* * :botfullname
    sockmark $sockname botnick
  }
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. }
  else {
    var %; | sockread %; | tokenize 32 %;
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug),window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug)
    aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $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) }
    elseif :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER guARdiANof[THE]Light $+ $chr(1) }
    elseif $1 == PING { swbot PONG $2- }
    elseif $2 == 474 { %: $4 kanalında banlı. }
    elseif $2 == 366 { %: $4 kanalına girdi.  }
    elseif $2 == JOIN {
      if $read(badnick.txt,w,$gettok($gettok($1,1,33),1,58)) {
        swbot kick $right($3,-1) $gettok($gettok($1,1,33),1,58) Badnick
        swbot mode $right($3,-1) +b $gettok($gettok($1,1,33),1,58)
      }
    }
    elseif $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
    elseif $2 == PRIVMSG {
      var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
      if $istok(nick1 nick2 nick3,%n,32) {
        if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
        elseif .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
        elseif .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
      }
    }
  }
}

diEfoRyoU · 25 Nisan 2020, 00:38

Alıntı:

örn: txt içerisindeki *fantaz*!*@*

bu şekilde eklerseniz txt dosyasına; içinde ! ve @ karakterleri olan nickleri de aramak zorun kalır kod.

eğer nick : fantazi_boy nickini yakalamak istersen aşağıdaki gibi eklemen gerekiyor.
*fantaz*

Alper · 25 Nisan 2020, 21:14

sdsng Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hocam ilgin ve desteğin için teşekkür ederim. direkt nick olarak atıyor, ancak badnick.txt içerisinde *, ? kullanarak yakalamak istediğim nickler konusunda sorun yaşıyorum.

örn: txt içerisindeki *fantaz*!*@*
nick : fantazi_boy

atmıyor.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alternatif olarak users kısmını kullanabilirsin badnick için

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $read(badnick.txt,w,$gettok($gettok($1,1,33),1,58)) {

kısmı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $ulist($remove($1,:),badnick,1) {

olarak değişip.

Botun ekranı açıkken

/auser badnick *fantaz*!*@*

olarak ekleme yaparsan istediğin şekilde ban attırabilirsin.

!*@* kısmı kullanmazsan

/auser badnick *fantaz*

olarak ekleme yaparsan nick kısmında mı ident kısmında mı yoksa host kısmında mı her yeri kontrol eder.

:deneme123!WebNevar@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]90D32.......IP JOIN :#kanal

Botun baz aldığı kısım kırmızılı ile renklendirdiğim yer.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Badnick badnick.db varsa guest yapsın	alphae	Eggdrop, NeoStats, BNC	2	08 Şubat 2018 17:16
sockbot whois	Goemon	mIRC Scripting Sorunları	4	26 Temmuz 2012 12:53
Sockbot Radyo HeLp Me?	Goemon	mIRC Scripting Sorunları	9	22 Mayıs 2012 14:49
SockBot	RedLine	mIRC Scripting Sorunları	2	12 Ocak 2008 03:16
SockBot koruma	local	mIRC Scripting Sorunları	5	30 Kasım 2007 21:57

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.