Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
mircaddon mirckodları ircforum sock güncelkorumalar socketbotlar botu sockreklambotu korumaarşiv irckorumalar korumabotları reklam mircbotları reklambotu ircreklambotu ircforumları

Sock Reklam Botu
Admin
#1
Sock Reklam Botu 
Kod:
alias bot { sockopen bot irc.sunucuadı.com 6668 }
on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  swbot NICK K9
  swbot USER mIRC * * :Kontrol.
  sockmark $sockname axwd
  .timer 1 10 /sockwrite -nt $SocknAme JOIN #Spam
  .timer 0 60 /sockwrite -nt $SocknAme JOIN #kelime
  .timer 0 59 /sockwrite -nt $SocknAme part #kelime
  .timer 0 80 /sockwrite -nt $SocknAme JOIN #yarisma
  .timer 0 79 /sockwrite -nt $SocknAme PART #yarisma
  .timer 0 60 /sockwrite -nt $SocknAme JOIN #sohbet
  .timer 0 59 /sockwrite -nt $SocknAme part #sohbet
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  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 IRC Security $+ $chr(1) }
    if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
    if $1 == PING { swbot PONG $2- }
    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(admin1 admin2,%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 *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
      }
      if * iswm %m { swbot PRIVMSG #spam Reklam < $+ $nick $+ >: $remove($4-,:) }
    }
  }
}

Cevapla


Bu Konudaki Yorumlar
Sock Reklam Botu - Yazar: Admin - 06-01-2020, 10:04 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb Fullname Reklam takip kodu 2020 Admin 0 568 08-20-2020, 05:58 PM
Son Yorum: Admin
Heart Global Reklam Atılacak Kodlar Admin 0 1,191 05-26-2020, 08:21 PM
Son Yorum: Admin
Bug Yeni Sunucu Takip Botu Admin 2 1,009 05-25-2020, 11:04 PM
Son Yorum: Admin
Bug Txt Den Okutmalı Küfür ve reklam koruması Admin 0 1,084 05-13-2020, 08:20 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 2 Ziyaretçi