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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Sockbot Badnick (https://www.ircforumlari.net/mirc-scripting-sorunlari/867109-sockbot-badnick.html)

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:

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) }

      }

    }

  }

}

Cevap: Sockbot Badnick

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

Kod:

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) }

      }

    }

  }

}

Cevap: Sockbot Badnick

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*

Cevap: Sockbot Badnick

Alıntı:

sdsng Nickli Üyeden Alıntı (Mesaj 1042293629)

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. :)

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

Kod:

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

kısmı

Kod:

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.