mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası

mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası (http://www.mircforum.com/)
-   Hazır Kodlar (http://www.mircforum.com/hazir-kodlar/)
-   -   System Socket Bot (http://www.mircforum.com/hazir-kodlar/4725-system-socket-bot.html)

Che 20 Ağustos 2016 21:33

System Socket Bot
 
Kod:

alias botnick return System
alias password return brusk
alias oper return Che brusk
alias supass return oktaybaba
alias ident return 06
alias operchan return #opers
alias komut { sockwrite -nt ajan $1- }
alias sunucu return irc.gevezeyiz.net 6667

alias sistem {
  if ($1 == on) {
    $iif($sock(ajan),echo -a Zaten bot devrede!)
    sockopen ajan $sunucu
    echo -a Bot Devreye Girmistir.
  }
  if ($1 == off) {
    $iif(!$sock(ajan),echo -a Zaten bot devrede degil.)
    sockclose ajan
    echo -a Bot Devre dısıdır.
  }
}

on *:SOCKOPEN:ajan: {
  komut nick Guard $+ $r(0,99)
  komut USER $ident " " : $+ $botnick Pro v1 (Yapimci by System)
}

on *:sockread:ajan: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    sistem off
    sistem on
  }
  if ($regex($1,PING)) { komut PONG $2 }
  if ($regex($2,001$)) {
    komut oper $oper
    komut join 0,
    komut nick $botnick
    komut identify $password
    komut join $operchan
    komut stats o
    .timerlist 0 5 komut list
    var %s 1
    while (%s <= $ulist(*,globalchan,0)) {
      komut join $ulist(*,globalchan,%s)
      inc %s
    }
    komut sethost System.Pro.Security.v1
  }
  if ($regex($2,243$)) {
    %operler = $addtok(%operler,$7,32)
  }
  if ($regex($2,352$)) {
    proxy $6
  }
  if ($2 == 322) {
    if ($5 >= 2) {
      komut sajoin $botnick $4
    }
    if ($5 <= 1) && (!$ulist($4,globalchan,1)) && ($4 !== $operchan) { komut part $4 }
    halt
  }
  if ($regex($2,^PRIVMSG$)) {
    var %nick = $gettok($gettok($1,1,33),1,58),%text = $right($4-,-1), %chan = $3,%address $gettok($1,2,64) 
    tokenize 32 %text
    if ($regex($1,/^[.!]voice$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut mode %chan +v %nick | halt }
      komut mode %chan $+(+,$str(v,$numtok($2-,32))) $2-
    }
    if ($regex($1,/^[.!]devoice$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut mode %chan -v %nick | halt }
      komut mode %chan $+(-,$str(v,$numtok($2-,32))) $2-
    }
    if ($regex($1,/^[.!]k$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
      if (!$3) { komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
      komut kick %chan $2 $3-
    }
    if ($regex($1,/^[.!]kb$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
      if (!$3) { komut mode %chan +b $2 | komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
      komut kick %chan $2 $3-
    }
    if ($regex($1,/^[.!]temizle$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      var %s 1
      while (%s <= 50) {
        komut privmsg %chan $chr(2)
        inc %s
      }
      komut primvsg %chan Kanal temizlenmistir!
    }
    if ($ulist(%chan,globalchan,1)) && (!$ulist(%nick,muafnlist,1)) {
      if ($istok($+(:,$chr(41)) :d :s :p :* :\ $+(:,$chr(40)),$1-,32)) && ($numtok($1-,32) == 1) { halt }
      if ($kufur($1-)) {
        komut mode %chan +b $+(*@,%address)
        .timer 1 900 komut mode %chan -b $+(*@,%address)
        komut privmsg %chan $qt(%nick) argo kelime kullandiginiz icin 15 dakika banlandiniz.
      }
      if ($reklam($1-)) {
        komut mode %chan +b $+(*@,%address)
        .timer 1 900 komut mode %chan -b $+(*@,%address)
        komut privmsg %chan $qt(%nick) reklam kelime kullandiginiz icin 15 dakika banlandiniz.
      }
      if (%tekrar == Acik) {
        hinc -mu3 flood $+(%nick,%chan)
        if ($hget(flood,$+(%nick,%chan)) == 7) {
          komut mode %chan +b $+(*@,%address)
          .timer 1 300 komut mode %chan -b $+(*@,%address)
          komut privmsg %chan $qt(%nick) tekrar yaptığınız için 5 dakika banlandınız..
          hdel flood $+(%nick,%chan)
        }
      }
      if (%buyuk == Acik) {
        if ($regex($1-,/([A-ZŞĞİÜÖÇ])/g) >= 30) {
          hinc -mu30 buyuk $+(%chan,%nick) 1
          if ($hget(buyuk,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Büyük harf kullanmaya devam ederseniz banlancaksiniz.. }
          if ($hget(buyuk,$+(%chan,%nick)) == 2) {
            komut mode %chan +b $+(*@,%address)
            .timer 1 300 komut mode %chan -b $+(*@,%address)
            komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen buyuk harf yazmaya devam edip kurallara uymadiginiz icin banlandiniz.
            hdel buyuk $+(%chan,%nick)
          }
        }
      }
      if (%uzun == acik) {
        if $regex($1-,/([[:alpha:]]|ÖÇŞĞÜİı)\1/gi) >= 10 {
          hinc -mu30 uzun $+(%chan,%nick) 1
          if ($hget(uzun,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Harflari uzatmaya devam ederseniz banlancaksiniz.. }
          if ($hget(uzun,$+(%chan,%nick)) == 2) {
            komut mode %chan +b $+(*@,%address)
            .timer 1 300 komut mode %chan -b $+(*@,%address)
            komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen harf uzatmaya devam edip kurallara uymadiginiz icin banlandiniz.
            hdel uzun $+(%chan,%nick)
          }   
        }
      }
    }
    if (%chan == $botnick) {
      if ($regex($1,/([!.:+]panel$)/i)) {
        komut privmsg %nick 1 1[5 Kanal Operatorleri Komut Paneli Open 1]
        komut privmsg %nick 1 4*1 birine yada birilerine voice yapmak icin 5!voice nick nick1 nick2
        komut privmsg %nick 1 4*1 birine yada birilerine devoice yapmak icin 5!devoice nick nick1 nick2
        komut privmsg %nick 1 4*1 birini kanaldan banlamak icin 5!kb nick
        komut privmsg %nick 1 4*1 birini kanaldan kicklemek icin 5!k nick
        komut privmsg %nick 1 4*1 kanal ekranini temizlemek icin 5!temizle
        komut privmsg %nick 1 4*1 benim hakkimda bilgi almak icin 5!sistem
        komut privmsg %nick 1[5 Operatorlerin Komut Paneli The End 1]
      }
      if ($regex($1,/([!.:+]sistem$)/i)) {
        komut privmsg %nick 1 Merhaba %nick , Ben Sunucu Korumak Icın Yapilmis Bir Robotum.
        komut privmsg %nick 1 -
        komut privmsg %nick 1 Version $botnick Pro v1 Socket Sistem
        komut privmsg %nick 1 Yapimci by Sinan [" System " 06@]
        komut privmsg %nick 1 iLetisim system@hotmail.com
      }
    }
    if (%chan == $operchan) {
      tokenize 32 %text
      if ($regex($1,/([!.:+]panel$)/i)) {
        komut privmsg %chan $qt(%nick) sistem notice ile bildirilmistir.
        komut notice %nick 1 1[ Oper Komut Paneli Open 1]
        komut notice %nick 1 -
        komut notice %nick 1 4*1 proxy korumasi komutlari !proxy on 1*/* !proxy off
        komut notice %nick 1 4*1 agresif giris korumasi komutlari !agresif on 1*/* !agresif off
        komut notice %nick 1 4*1 yasak ident ekleme komutlari !identekle Nick 1*/* !identsil Nick 1*/* !identlist
        komut notice %nick 1 4*1 argo kelime ekleme komutlari !argoekle Kelime 1*/* !argosil Kelime 1*/* !argolist
        komut notice %nick 1 4*1 reklam kelime ekleme komutlari !reklamekle Kelime 1*/* !reklamsil Kelime 1*/* !reklamlist
        komut notice %nick 1 4*1 badnick korumasi ekleme komutlari !badekle Nick 1*/* !badsil Nick 1*/* !badlist
        komut notice %nick 1 4*1 tekrar yazi korumasi komutlari !tekrar on 1*/* !tekrar off
        komut notice %nick 1 4*1 buyuk yazi korumasi komutlari !buyuk on 1*/* !buyuk off
        komut notice %nick 1 4*1 uzun yazi korumasi komutlari !uzun on 1*/* !uzun off
        komut notice %nick 1 4*1 bota global kanal ekleme komutlari !gkekle #kanal 1*/* !gksil #kanal 1*/* !gklist
        komut notice %nick 1 4*1 bota muaf nick ekleme komutlari !muafnekle Nick 1*/* !muafnsil Nick 1*/* !muafnlist
        komut notice %nick -
        komut notice %nick 1[ Oper Komut Paneli The End 1]
      }
      if ($regex($1,/([!.:+]proxy$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%proxy == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %proxy Acik
        }   
        if ($2 == off) {
          if (%proxy == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %proxy Kapali
        }   
      }
      if ($regex($1,/([!.:+]agresif$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%agresif == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %agresif Acik
        }   
        if ($2 == off) {
          if (%agresif == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %agresif Kapali
        }   
      }
      if ($regex($1,/([!.:+]tekrar$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%tekrar == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %tekrar Acik
        }   
        if ($2 == off) {
          if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %tekrar Kapali
        }   
      }
      if ($regex($1,/([!.:+]uzun$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%uzun == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %uzun Acik
        }   
        if ($2 == off) {
          if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %uzun Kapali
        }   
      }
      if ($regex($1,/([!.:+]buyuk$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%buyuk == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %buyuk Acik
        }   
        if ($2 == off) {
          if (%buyuk == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %buyuk Kapali
        }   
      } 
      if ($regex($1,/([!.:+]identekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
        if ($ulist($2,ident,1)) { .komut privmsg %chan  $2  zaten yasak ident listemde bulunuyor. | halt }
        .auser ident $2 |  .komut privmsg %chan  $2 yasak ident listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]identsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
        if (!$ulist($2,ident,1)) { komut privmsg %chan  $2  zaten yasak ident listemde bulunmuyor. | halt }
        .ruser ident $2 |  .komut privmsg %chan  $2 yasak ident listesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]identlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,ident,0) == 0) { komut privmsg %chan $qt(%nick) yasak ident listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick yasak ident listesi..
        while (%s <= $ulist(*,ident,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,ident,%s)
          inc %s
        }
        komut privmsg %nick yasak ident listesi sonu..
      }
      if ($regex($1,/([!.:+]gkekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
        if (#* !iswm $2) { .komut privmsg %chan Lutfen Kanal Yaziniz Ornek: !gkekle #sohbet | halt }
        if ($ulist($2,globalchan,1)) { .komut privmsg %chan  $2  zaten global kanal listemde bulunuyor. | halt }
        .auser globalchan $2 |  .komut privmsg %chan  $2 global kanal listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]gksil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
        if (#* !iswm $2) { komut privmsg %chan Lutfen Kanal Yaziniz Ornek: !gksil #sohbet | halt }
        if (!$ulist($2,globalchan,1)) { komut privmsg %chan  $2  zaten global kanal listemde bulunmuyor. | halt }
        .ruser globalchan $2 |  .komut privmsg %chan  $2 global kanal listesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]gklist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,globalchan,0) == 0) { komut privmsg %chan $qt(%nick) global chan listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick global chan listesi..
        while (%s <= $ulist(*,globalchan,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,globalchan,%s)
          inc %s
        }
        komut privmsg %nick global chan listesi sonu..
      }
      if ($regex($1,/([!.:+]muafnekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (#* iswm $2) { .komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
        if ($ulist($2,muafnlist,1)) { .komut privmsg %chan  $2  zaten muaf nick listemde bulunuyor. | halt }
        .auser muafnlist $2 |  .komut privmsg %chan  $2 muaf nick listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]muafnsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (#* iswm $2) { komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
        if (!$ulist($2,muafnlist,1)) { komut privmsg %chan  $2  zaten muaf nick listemde bulunmuyor. | halt }
        .ruser muafnlist $2 |  .komut privmsg %chan  $2 muaf nick istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]muafnlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,muafnlist,0) == 0) { komut privmsg %chan $qt(%nick) muaf nick listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick muaf nick listesi..
        while (%s <= $ulist(*,muafnlist,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,muafnlist,%s)
          inc %s
        }
        komut privmsg %nick muaf nick listesi sonu..
      }
      if ($regex($1,/([!.:+]badekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if ($ulist($2,badnick,1)) { .komut privmsg %chan  $2  badnick listemde bulunuyor. | halt }
        .auser badnick $2 |  .komut privmsg %chan  $2 badnick listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]badsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (!$ulist($2,badnick,1)) { komut privmsg %chan  $2  badnick listemde bulunmuyor. | halt }
        .ruser badnick $2 | .komut privmsg %chan  $2 bnick istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]badlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,badnick,0) == 0) { komut privmsg %chan $qt(%nick) badnick listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick badnick listesi..
        while (%s <= $ulist(*,badnick,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,badnick,%s)
          inc %s
        }
        komut privmsg %nick badnick listesi sonu..
      }
      if ($regex($1,/([!.:+]argoekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if ($ulist($2-,argo,1)) { .komut privmsg %chan  $2-  zaten argo kelime listemde bulunuyor. | halt }
        .auser argo $2- |  .komut privmsg %chan  $2- argo kelime listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]argosil)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if (!$ulist($2-,argo,1)) { komut privmsg %chan  $2  zaten argo kelime listemde bulunmuyor. | halt }
        .ruser argo $2- | .komut privmsg %chan  $2- argo kelime istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]argolist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,argo,0) == 0) { komut privmsg %chan $qt(%nick) argo kelime listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick argo kelime listesi..
        while (%s <= $ulist(*,argo,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,argo,%s)
          inc %s
        }
        komut privmsg %nick argo kelime listesi sonu..
      }
      if ($regex($1,/([!.:+]reklamekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if ($ulist($2-,reklam,1)) { .komut privmsg %chan  $2  zaten reklam kelime listemde bulunuyor. | halt }
        .auser reklam $2- |  .komut privmsg %chan  $2- reklam kelime listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]reklamsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen  kelime yaziniz. | halt }
        if (!$ulist($2-,reklam,1)) { komut privmsg %chan  $2  zaten reklam kelime listemde bulunmuyor. | halt }
        .ruser reklam $2- |  .komut privmsg %chan  $2- reklam kelime istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]reklamlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,reklam,0) == 0) { komut privmsg %chan $qt(%nick) reklam kelime listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick reklam kelime listesi..
        while (%s <= $ulist(*,reklam,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,reklam,%s)
          inc %s
        }
        komut privmsg %nick reklam kelime listesi sonu..
      }
    }
  }
  if ($regex($2,^NOTICE$)) {
    if ($regex($4,VERSION)) {
      var %nick $right($gettok($1,1,33),-1)
      if $regex($4-,/(v6.31|v6.16|v5.5|X-Chat|v5.71|Litmus|urumle)/i)
      komut gzline %nick +1h Botnet girisimi olarak algilandiniz , sistem sebebiyle sunucudan uzaklastirildiniz. $+([,$botnick,])
      komut privmsg $operchan [Botnet Version] %nick - $right($4-,-1)
    }
    if ($regex($9,whois)) {
      hinc -mu120 whois $5 1
      if ($hget(whois,$5) == 1) {
        komut privmsg $5 Merhaba $qt($5) ,Operatorlerin kullanacagi komut paneli icin !panel yaziniz.
        komut privmsg $5 Benim hakkimda bilgi almak icin !sistem yaziniz..
      }
    }
    if ($regex($8,^connecting$)) {
      var %ip = $gettok($left($right($13,-1),-1),2,64),%ident $gettok($left($right($13,-1),-1),1,64),%nick = $12
      komut privmsg %nick $+($chr(1),version)
      if ($ulist(%ident,ident,1)) { komut gzline %nick +0 [Sistem/Ident] | halt }
      if (%agresif == Acik) {
        hinc -mu6 agresif %ip 1
        if ($hget(agresif,%ip) == 4) {
          komut gzline %nick 1h Agresif baglanti girisimi! [Sistem/Agresif]
          hdel agresif %ip
          halt
        }
      }
      $iif(%proxy == Acik,komut who +I $+(*,%ip,*)) 
    }
  }
  if ($regex($2,JOIN)) {
    var %nick = $gettok($gettok($1,1,33),1,58),%chan = $right($3,-1),%address $gettok($1,2,64) 
    if ($regex(%nick,$botnick)) {
      komut mode %chan +h $botnick
      halt
    }
    if ($ulist(%nick,badnick,1)) {
      komut mode %chan +b %nick
      komut kick %chan %nick [Sistem/Badnick] /nick Newnick Open!
    }
  }
  if ($regex($2,MODE)) {
    var %chan = $3 | var %nick = $5 | var %mnick = $right($gettok($1,1,33),-1)
    if ($regex($4,\+(o|a|q))) && (%mnick !== $botnick) {
      komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
      komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
    }
    if ($regex($4,\+(h))) && (*services* iswm $1) {
      komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
      komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
    }
  }
}
alias hasopso {
  if (q isin $1) { return 1. seviye [Mode: Owner] | halt }
  if (a isin $1) { return 2. seviye [Mode: Protect] | halt }
  if (o isin $1) { return 3. seviye [Mode: Op] | halt }
  if (h isin $1) { return 4. seviye [Mode: Halfop] | halt }
}
alias proxy {
  if ($1) {
    var %xxx $rand(0,999999999999999999999999)
    sockopen $+(tor*,%xxx) anonymouse.org 80
    sockmark $+(tor*,%xxx) $1
  }
}
on *:sockopen:tor*:{
  var %s sockwrite -n $sockname
  %s GET /cgi-bin/anon-www.cgi/http://www.ircnet.com/cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: anonymouse.org
  %s $crlf
}
on *:sockread:tor*:{
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
    komut gzline $+(*@,$sock($sockname).mark) +0 [System/Tor Proxy]
    halt
  }
  if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
    komut gzline $+(*@,$sock($sockname).mark) +0 [System/Proxy]
    sockclose $sockname
  }
}
alias kufur {
  var %:text = $1-
  %:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
  %:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,$,s,Ø,o,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i)
  %:text = $regsubex(%:text,/([[:digit:]])/g,$null)
  %:text = $regsubex(%:text,/(.)\1+/g,\1)
  if ($level(%text) == argo) { return $true }
  else { return $false }
}

alias reklam {
  var %:text = $1-
  %:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
  %:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,Ø,o,$,s,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i) 
  %:text = $regsubex(%:text,/(.)\1+/g,\1)
  if ($level(%text) == reklam) { return $true }
  else { return $false }
}


diss 10 Eylül 2018 21:52

Cevap: System Socket Bot
 
Alıntı:

Che Nickli Üyeden Alıntı (Mesaj 6744)
Kod:

alias botnick return System
alias password return brusk
alias oper return Che brusk
alias supass return oktaybaba
alias ident return 06
alias operchan return #opers
alias komut { sockwrite -nt ajan $1- }
alias sunucu return irc.gevezeyiz.net 6667

alias sistem {
  if ($1 == on) {
    $iif($sock(ajan),echo -a Zaten bot devrede!)
    sockopen ajan $sunucu
    echo -a Bot Devreye Girmistir.
  }
  if ($1 == off) {
    $iif(!$sock(ajan),echo -a Zaten bot devrede degil.)
    sockclose ajan
    echo -a Bot Devre dısıdır.
  }
}

on *:SOCKOPEN:ajan: {
  komut nick Guard $+ $r(0,99)
  komut USER $ident " " : $+ $botnick Pro v1 (Yapimci by System)
}

on *:sockread:ajan: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    sistem off
    sistem on
  }
  if ($regex($1,PING)) { komut PONG $2 }
  if ($regex($2,001$)) {
    komut oper $oper
    komut join 0,
    komut nick $botnick
    komut identify $password
    komut join $operchan
    komut stats o
    .timerlist 0 5 komut list
    var %s 1
    while (%s <= $ulist(*,globalchan,0)) {
      komut join $ulist(*,globalchan,%s)
      inc %s
    }
    komut sethost System.Pro.Security.v1
  }
  if ($regex($2,243$)) {
    %operler = $addtok(%operler,$7,32)
  }
  if ($regex($2,352$)) {
    proxy $6
  }
  if ($2 == 322) {
    if ($5 >= 2) {
      komut sajoin $botnick $4
    }
    if ($5 <= 1) && (!$ulist($4,globalchan,1)) && ($4 !== $operchan) { komut part $4 }
    halt
  }
  if ($regex($2,^PRIVMSG$)) {
    var %nick = $gettok($gettok($1,1,33),1,58),%text = $right($4-,-1), %chan = $3,%address $gettok($1,2,64) 
    tokenize 32 %text
    if ($regex($1,/^[.!]voice$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut mode %chan +v %nick | halt }
      komut mode %chan $+(+,$str(v,$numtok($2-,32))) $2-
    }
    if ($regex($1,/^[.!]devoice$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut mode %chan -v %nick | halt }
      komut mode %chan $+(-,$str(v,$numtok($2-,32))) $2-
    }
    if ($regex($1,/^[.!]k$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
      if (!$3) { komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
      komut kick %chan $2 $3-
    }
    if ($regex($1,/^[.!]kb$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      if (!$2) { komut privmsg %chan $qt(%nick) Lutfen nick belirtiniz. | halt }
      if (!$3) { komut mode %chan +b $2 | komut kick %chan $2 (Sebeb Belirtilmedi) | halt }
      komut kick %chan $2 $3-
    }
    if ($regex($1,/^[.!]temizle$/i)) {
      if (%nick ishop %chan) { komut privmsg %chan $qt(%nick) kanalda yetkili degilsiniz yada sistemime tanitilmamissiniz. | halt }
      var %s 1
      while (%s <= 50) {
        komut privmsg %chan $chr(2)
        inc %s
      }
      komut primvsg %chan Kanal temizlenmistir!
    }
    if ($ulist(%chan,globalchan,1)) && (!$ulist(%nick,muafnlist,1)) {
      if ($istok($+(:,$chr(41)) :d :s :p :* :\ $+(:,$chr(40)),$1-,32)) && ($numtok($1-,32) == 1) { halt }
      if ($kufur($1-)) {
        komut mode %chan +b $+(*@,%address)
        .timer 1 900 komut mode %chan -b $+(*@,%address)
        komut privmsg %chan $qt(%nick) argo kelime kullandiginiz icin 15 dakika banlandiniz.
      }
      if ($reklam($1-)) {
        komut mode %chan +b $+(*@,%address)
        .timer 1 900 komut mode %chan -b $+(*@,%address)
        komut privmsg %chan $qt(%nick) reklam kelime kullandiginiz icin 15 dakika banlandiniz.
      }
      if (%tekrar == Acik) {
        hinc -mu3 flood $+(%nick,%chan)
        if ($hget(flood,$+(%nick,%chan)) == 7) {
          komut mode %chan +b $+(*@,%address)
          .timer 1 300 komut mode %chan -b $+(*@,%address)
          komut privmsg %chan $qt(%nick) tekrar yaptığınız için 5 dakika banlandınız..
          hdel flood $+(%nick,%chan)
        }
      }
      if (%buyuk == Acik) {
        if ($regex($1-,/([A-ZŞĞİÜÖÇ])/g) >= 30) {
          hinc -mu30 buyuk $+(%chan,%nick) 1
          if ($hget(buyuk,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Büyük harf kullanmaya devam ederseniz banlancaksiniz.. }
          if ($hget(buyuk,$+(%chan,%nick)) == 2) {
            komut mode %chan +b $+(*@,%address)
            .timer 1 300 komut mode %chan -b $+(*@,%address)
            komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen buyuk harf yazmaya devam edip kurallara uymadiginiz icin banlandiniz.
            hdel buyuk $+(%chan,%nick)
          }
        }
      }
      if (%uzun == acik) {
        if $regex($1-,/([[:alpha:]]|ÖÇŞĞÜİı)\1/gi) >= 10 {
          hinc -mu30 uzun $+(%chan,%nick) 1
          if ($hget(uzun,$+(%chan,%nick)) == 1) { komut privmsg %chan $qt(%nick) Harflari uzatmaya devam ederseniz banlancaksiniz.. }
          if ($hget(uzun,$+(%chan,%nick)) == 2) {
            komut mode %chan +b $+(*@,%address)
            .timer 1 300 komut mode %chan -b $+(*@,%address)
            komut privmsg %chan $qt(%nick) Uyarilmaniza rahmen harf uzatmaya devam edip kurallara uymadiginiz icin banlandiniz.
            hdel uzun $+(%chan,%nick)
          }   
        }
      }
    }
    if (%chan == $botnick) {
      if ($regex($1,/([!.:+]panel$)/i)) {
        komut privmsg %nick 1 1[5 Kanal Operatorleri Komut Paneli Open 1]
        komut privmsg %nick 1 4*1 birine yada birilerine voice yapmak icin 5!voice nick nick1 nick2
        komut privmsg %nick 1 4*1 birine yada birilerine devoice yapmak icin 5!devoice nick nick1 nick2
        komut privmsg %nick 1 4*1 birini kanaldan banlamak icin 5!kb nick
        komut privmsg %nick 1 4*1 birini kanaldan kicklemek icin 5!k nick
        komut privmsg %nick 1 4*1 kanal ekranini temizlemek icin 5!temizle
        komut privmsg %nick 1 4*1 benim hakkimda bilgi almak icin 5!sistem
        komut privmsg %nick 1[5 Operatorlerin Komut Paneli The End 1]
      }
      if ($regex($1,/([!.:+]sistem$)/i)) {
        komut privmsg %nick 1 Merhaba %nick , Ben Sunucu Korumak Icın Yapilmis Bir Robotum.
        komut privmsg %nick 1 -
        komut privmsg %nick 1 Version $botnick Pro v1 Socket Sistem
        komut privmsg %nick 1 Yapimci by Sinan [" System " 06@]
        komut privmsg %nick 1 iLetisim system@hotmail.com
      }
    }
    if (%chan == $operchan) {
      tokenize 32 %text
      if ($regex($1,/([!.:+]panel$)/i)) {
        komut privmsg %chan $qt(%nick) sistem notice ile bildirilmistir.
        komut notice %nick 1 1[ Oper Komut Paneli Open 1]
        komut notice %nick 1 -
        komut notice %nick 1 4*1 proxy korumasi komutlari !proxy on 1*/* !proxy off
        komut notice %nick 1 4*1 agresif giris korumasi komutlari !agresif on 1*/* !agresif off
        komut notice %nick 1 4*1 yasak ident ekleme komutlari !identekle Nick 1*/* !identsil Nick 1*/* !identlist
        komut notice %nick 1 4*1 argo kelime ekleme komutlari !argoekle Kelime 1*/* !argosil Kelime 1*/* !argolist
        komut notice %nick 1 4*1 reklam kelime ekleme komutlari !reklamekle Kelime 1*/* !reklamsil Kelime 1*/* !reklamlist
        komut notice %nick 1 4*1 badnick korumasi ekleme komutlari !badekle Nick 1*/* !badsil Nick 1*/* !badlist
        komut notice %nick 1 4*1 tekrar yazi korumasi komutlari !tekrar on 1*/* !tekrar off
        komut notice %nick 1 4*1 buyuk yazi korumasi komutlari !buyuk on 1*/* !buyuk off
        komut notice %nick 1 4*1 uzun yazi korumasi komutlari !uzun on 1*/* !uzun off
        komut notice %nick 1 4*1 bota global kanal ekleme komutlari !gkekle #kanal 1*/* !gksil #kanal 1*/* !gklist
        komut notice %nick 1 4*1 bota muaf nick ekleme komutlari !muafnekle Nick 1*/* !muafnsil Nick 1*/* !muafnlist
        komut notice %nick -
        komut notice %nick 1[ Oper Komut Paneli The End 1]
      }
      if ($regex($1,/([!.:+]proxy$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%proxy == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %proxy Acik
        }   
        if ($2 == off) {
          if (%proxy == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %proxy Kapali
        }   
      }
      if ($regex($1,/([!.:+]agresif$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%agresif == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %agresif Acik
        }   
        if ($2 == off) {
          if (%agresif == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %agresif Kapali
        }   
      }
      if ($regex($1,/([!.:+]tekrar$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%tekrar == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %tekrar Acik
        }   
        if ($2 == off) {
          if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %tekrar Kapali
        }   
      }
      if ($regex($1,/([!.:+]uzun$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%uzun == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %uzun Acik
        }   
        if ($2 == off) {
          if (%tekrar == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %uzun Kapali
        }   
      }
      if ($regex($1,/([!.:+]buyuk$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { komut privmsg %chan Lutfen sistem panalindeki gibi $+(,$1) on yada $+(,$1) off seklinde deneyiniz. | halt }
        if ($2 == on) {
          if (%buyuk == Acik) { komut privmsg %chan Sistem zaten aktif durumda. | halt }
          .komut privmsg %chan Sistem aktiflestirilmistir.
          set %buyuk Acik
        }   
        if ($2 == off) {
          if (%buyuk == Kapali) { komut privmsg %chan Sistem zaten daktif durumda. | halt }
          .komut privmsg %chan Sistem deaktiflestirilmistir.
          set %buyuk Kapali
        }   
      } 
      if ($regex($1,/([!.:+]identekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
        if ($ulist($2,ident,1)) { .komut privmsg %chan  $2  zaten yasak ident listemde bulunuyor. | halt }
        .auser ident $2 |  .komut privmsg %chan  $2 yasak ident listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]identsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen ident yaziniz. | halt }
        if (!$ulist($2,ident,1)) { komut privmsg %chan  $2  zaten yasak ident listemde bulunmuyor. | halt }
        .ruser ident $2 |  .komut privmsg %chan  $2 yasak ident listesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]identlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,ident,0) == 0) { komut privmsg %chan $qt(%nick) yasak ident listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick yasak ident listesi..
        while (%s <= $ulist(*,ident,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,ident,%s)
          inc %s
        }
        komut privmsg %nick yasak ident listesi sonu..
      }
      if ($regex($1,/([!.:+]gkekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
        if (#* !iswm $2) { .komut privmsg %chan Lutfen Kanal Yaziniz Ornek: !gkekle #sohbet | halt }
        if ($ulist($2,globalchan,1)) { .komut privmsg %chan  $2  zaten global kanal listemde bulunuyor. | halt }
        .auser globalchan $2 |  .komut privmsg %chan  $2 global kanal listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]gksil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kanal yaziniz. | halt }
        if (#* !iswm $2) { komut privmsg %chan Lutfen Kanal Yaziniz Ornek: !gksil #sohbet | halt }
        if (!$ulist($2,globalchan,1)) { komut privmsg %chan  $2  zaten global kanal listemde bulunmuyor. | halt }
        .ruser globalchan $2 |  .komut privmsg %chan  $2 global kanal listesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]gklist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,globalchan,0) == 0) { komut privmsg %chan $qt(%nick) global chan listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick global chan listesi..
        while (%s <= $ulist(*,globalchan,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,globalchan,%s)
          inc %s
        }
        komut privmsg %nick global chan listesi sonu..
      }
      if ($regex($1,/([!.:+]muafnekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (#* iswm $2) { .komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
        if ($ulist($2,muafnlist,1)) { .komut privmsg %chan  $2  zaten muaf nick listemde bulunuyor. | halt }
        .auser muafnlist $2 |  .komut privmsg %chan  $2 muaf nick listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]muafnsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (#* iswm $2) { komut privmsg %chan Lutfen nick yaziniz kanal degil. | halt }
        if (!$ulist($2,muafnlist,1)) { komut privmsg %chan  $2  zaten muaf nick listemde bulunmuyor. | halt }
        .ruser muafnlist $2 |  .komut privmsg %chan  $2 muaf nick istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]muafnlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,muafnlist,0) == 0) { komut privmsg %chan $qt(%nick) muaf nick listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick muaf nick listesi..
        while (%s <= $ulist(*,muafnlist,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,muafnlist,%s)
          inc %s
        }
        komut privmsg %nick muaf nick listesi sonu..
      }
      if ($regex($1,/([!.:+]badekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if ($ulist($2,badnick,1)) { .komut privmsg %chan  $2  badnick listemde bulunuyor. | halt }
        .auser badnick $2 |  .komut privmsg %chan  $2 badnick listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]badsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen nick yaziniz. | halt }
        if (!$ulist($2,badnick,1)) { komut privmsg %chan  $2  badnick listemde bulunmuyor. | halt }
        .ruser badnick $2 | .komut privmsg %chan  $2 bnick istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]badlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,badnick,0) == 0) { komut privmsg %chan $qt(%nick) badnick listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick badnick listesi..
        while (%s <= $ulist(*,badnick,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,badnick,%s)
          inc %s
        }
        komut privmsg %nick badnick listesi sonu..
      }
      if ($regex($1,/([!.:+]argoekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if ($ulist($2-,argo,1)) { .komut privmsg %chan  $2-  zaten argo kelime listemde bulunuyor. | halt }
        .auser argo $2- |  .komut privmsg %chan  $2- argo kelime listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]argosil)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if (!$ulist($2-,argo,1)) { komut privmsg %chan  $2  zaten argo kelime listemde bulunmuyor. | halt }
        .ruser argo $2- | .komut privmsg %chan  $2- argo kelime istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]argolist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,argo,0) == 0) { komut privmsg %chan $qt(%nick) argo kelime listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick argo kelime listesi..
        while (%s <= $ulist(*,argo,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,argo,%s)
          inc %s
        }
        komut privmsg %nick argo kelime listesi sonu..
      }
      if ($regex($1,/([!.:+]reklamekle$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen kelime yaziniz. | halt }
        if ($ulist($2-,reklam,1)) { .komut privmsg %chan  $2  zaten reklam kelime listemde bulunuyor. | halt }
        .auser reklam $2- |  .komut privmsg %chan  $2- reklam kelime listesine eklendi. | halt
      } 
      if ($regex($1,/([!.:+]reklamsil$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if (!$2) { .komut privmsg %chan Lütfen  kelime yaziniz. | halt }
        if (!$ulist($2-,reklam,1)) { komut privmsg %chan  $2  zaten reklam kelime listemde bulunmuyor. | halt }
        .ruser reklam $2- |  .komut privmsg %chan  $2- reklam kelime istesinden silindi. | halt
      }
      if ($regex($1,/([!.:+]reklamlist$)/i)) {
        if (!$istok(%operler,%nick,32)) { komut privmsg %chan $qt(%nick) bu komutu kullanmaya yetkili degilsiniz. | halt }
        if ($ulist(*,reklam,0) == 0) { komut privmsg %chan $qt(%nick) reklam kelime listesi suan bos durumda. | halt }
        var %s 1
        komut privmsg %chan $qt(%nick) bilgiler ozelinize kopyalandi.
        komut privmsg %nick reklam kelime listesi..
        while (%s <= $ulist(*,reklam,0)) {
          komut privmsg %nick $qt(%s) $ulist(*,reklam,%s)
          inc %s
        }
        komut privmsg %nick reklam kelime listesi sonu..
      }
    }
  }
  if ($regex($2,^NOTICE$)) {
    if ($regex($4,VERSION)) {
      var %nick $right($gettok($1,1,33),-1)
      if $regex($4-,/(v6.31|v6.16|v5.5|X-Chat|v5.71|Litmus|urumle)/i)
      komut gzline %nick +1h Botnet girisimi olarak algilandiniz , sistem sebebiyle sunucudan uzaklastirildiniz. $+([,$botnick,])
      komut privmsg $operchan [Botnet Version] %nick - $right($4-,-1)
    }
    if ($regex($9,whois)) {
      hinc -mu120 whois $5 1
      if ($hget(whois,$5) == 1) {
        komut privmsg $5 Merhaba $qt($5) ,Operatorlerin kullanacagi komut paneli icin !panel yaziniz.
        komut privmsg $5 Benim hakkimda bilgi almak icin !sistem yaziniz..
      }
    }
    if ($regex($8,^connecting$)) {
      var %ip = $gettok($left($right($13,-1),-1),2,64),%ident $gettok($left($right($13,-1),-1),1,64),%nick = $12
      komut privmsg %nick $+($chr(1),version)
      if ($ulist(%ident,ident,1)) { komut gzline %nick +0 [Sistem/Ident] | halt }
      if (%agresif == Acik) {
        hinc -mu6 agresif %ip 1
        if ($hget(agresif,%ip) == 4) {
          komut gzline %nick 1h Agresif baglanti girisimi! [Sistem/Agresif]
          hdel agresif %ip
          halt
        }
      }
      $iif(%proxy == Acik,komut who +I $+(*,%ip,*)) 
    }
  }
  if ($regex($2,JOIN)) {
    var %nick = $gettok($gettok($1,1,33),1,58),%chan = $right($3,-1),%address $gettok($1,2,64) 
    if ($regex(%nick,$botnick)) {
      komut mode %chan +h $botnick
      halt
    }
    if ($ulist(%nick,badnick,1)) {
      komut mode %chan +b %nick
      komut kick %chan %nick [Sistem/Badnick] /nick Newnick Open!
    }
  }
  if ($regex($2,MODE)) {
    var %chan = $3 | var %nick = $5 | var %mnick = $right($gettok($1,1,33),-1)
    if ($regex($4,\+(o|a|q))) && (%mnick !== $botnick) {
      komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
      komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
    }
    if ($regex($4,\+(h))) && (*services* iswm $1) {
      komut privmsg %chan $qt(%nick) operatör konumuna geçti. $hasopso($4)
      komut notice %nick Yetkili Olduğunuz Kanalda Kullanılabilir Komutları Görmek için Özelime : .komutlar Yazınız
    }
  }
}
alias hasopso {
  if (q isin $1) { return 1. seviye [Mode: Owner] | halt }
  if (a isin $1) { return 2. seviye [Mode: Protect] | halt }
  if (o isin $1) { return 3. seviye [Mode: Op] | halt }
  if (h isin $1) { return 4. seviye [Mode: Halfop] | halt }
}
alias proxy {
  if ($1) {
    var %xxx $rand(0,999999999999999999999999)
    sockopen $+(tor*,%xxx) anonymouse.org 80
    sockmark $+(tor*,%xxx) $1
  }
}
on *:sockopen:tor*:{
  var %s sockwrite -n $sockname
  %s GET /cgi-bin/anon-www.cgi/http://www.ircnet.com/cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: anonymouse.org
  %s $crlf
}
on *:sockread:tor*:{
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
    komut gzline $+(*@,$sock($sockname).mark) +0 [System/Tor Proxy]
    halt
  }
  if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
    komut gzline $+(*@,$sock($sockname).mark) +0 [System/Proxy]
    sockclose $sockname
  }
}
alias kufur {
  var %:text = $1-
  %:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
  %:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,$,s,Ø,o,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i)
  %:text = $regsubex(%:text,/([[:digit:]])/g,$null)
  %:text = $regsubex(%:text,/(.)\1+/g,\1)
  if ($level(%text) == argo) { return $true }
  else { return $false }
}

alias reklam {
  var %:text = $1-
  %:text = $remove(%:text,:,/,.,-,!,",',^,%,+,&,|,\,[,],{,},<,>)
  %:text = $replace(%:text,¡,j,¢,c,£,e,¥,y,§,s,©,c,®,r,Æ,a,×,x,Ø,o,$,s,?,b,ß,b,à,a,á,a,â,a,ã,a,ä,a,å,a,æ,a,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,!,i,?,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,?,y,?,y,ÿ,y,?,a,?,a,?,a,?,c,?,c,?,c,?,c,?,d,?,d,?,e,?,e,?,e,?,e,?,e,?,g,ğ,g,?,g,?,g,?,h,?,h,?,i,?,i,?,i,?,i,ı,i,?,j,?,n,?,n,?,n,?,n,?,n,?,o,?,o,?,o,?,r,?,r,?,r,?,s,?,s,ş,s,$,s,š,s,?,u,?,u,?,u,?,u,?,u,?,u,?,y,?,z,?,z,?,z,?,o,?,u,|2,r,İ,i) 
  %:text = $regsubex(%:text,/(.)\1+/g,\1)
  if ($level(%text) == reklam) { return $true }
  else { return $false }
}


Sanırım denemedin. sürekli devrede devre dışı diye uyarı verip duruyor. ancak hiç girmiyor

Sado 13 Mart 2019 21:26

Cevap: System Socket Bot
 
Alıntı:

diss Nickli Üyeden Alıntı (Mesaj 21928)
Sanırım denemedin. sürekli devrede devre dışı diye uyarı verip duruyor. ancak hiç girmiyor



sizler kodu denedinizmi acaba status 'te /sistem on yazın girer.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:52.

Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.