System Socket Bot - IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

**immortaL** · 20 Ağustos 2016, 21:33

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

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.FixSohbet.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/https://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 }
}

10 Eylül 2018, 21:52

Che Nickli Üyeden Alıntı

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

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.FixSohbet.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/https://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

diss Nickli Üyeden Alıntı

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.

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.