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


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 20 Ağustos 2016, 21:33   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 582
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 85
Post 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 }
}





 Che isimli Üye şimdilik offline konumundadır   Alıntı
Alt 10 Eylül 2018, 21:52   #2
diss
Guest
 

Bulunduğu yer:
Mesajlar: n/a
WEB Sitesi:
IRC Sunucusu:
İlgi Alanı:
Kan Grubu:
Alınan Beğeni:
Standart Cevap: System Socket Bot

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

  Alıntı
Alt 13 Mart 2019, 21:26   #3
 
Üyelik tarihi: 19 Ocak 2018
Bulunduğu yer: İstanbul
Mesajlar: 10
WEB Sitesi: Gevezeyiz.Net
IRC Sunucusu: irc.gevezeyiz.net
İlgi Alanı: Linux
Kan Grubu: 0 RH (-)
Alınan Beğeni: 4
Standart Cevap: System Socket Bot

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 Sado isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
bot, socket, system

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



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


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.