alias kekle { if !$hmatch(kfr,$1) { hadd -m kfr $1 1 | hsave -i kfr kfr.db } }
alias rekle { if !$hmatch(rklm,$1) { hadd -m rklm $1 1 | hsave -i rklm rklm.db } }
alias bekle { if !$hmatch(bdnick,$1) { hadd -m bdnick $1 1 | hsave -i bdnick bdnick.db } }
alias koruekle { if !$hmatch(klonkoru,$1) { hadd -m klonkoru $1 1 | hsave -i klonkoru klonkoru.db } }
alias btbg { sockopen bt %sunucu %port }
alias vsvs { dialog -x cprot cprot | dialog -m cprot cprot } 
alias ayr { return $remove($gettok($1-,1,33),$chr(58)) }
alias km { sockwrite -n bt $1- }
alias kps { return $+($chr(2),$1-,$chr(2)) }
alias cprtdlg { if !$dialog(cprot) { dialog -m cprot cprot } } 
alias mdx { dll mdx.dll $1 $2- return }
on *:start: { 
  if $isfile(kfr.db) { hmake kfr 100 | hload -i kfr kfr.db } | else { hmake kfr 100 | hsave -i kfr kfr.db } 
  if $isfile(rklm.db) { hmake rklm 100 | hload -i rklm rklm.db } | else { hmake rklm 100 | hsave -i rklm rklm.db } 
  if $isfile(bdnick.db) { hmake bdnick 100 | hload -i bdnick bdnick.db } | else { hmake bdnick 100 | hsave -i bdnick bdnick.db } 
  if $isfile(kanallar.db) { hmake kanallar 100 | hload -i kanallar kanallar.db } | else { hmake kanallar 100 | hsave -i kanallar kanallar.db }
  if $isfile(klonkoru.db) { hmake klonkoru 100 | hload -i klonkoru klonkoru.db } | else { hmake klonkoru 100 | hsave -i klonkoru klonkoru.db }
  if !%uzunyazı { set %uzunyazı 250 } | if !%tkr-lmt { set %tkr-lmt 5 } | if !%tkr-sny { set %tkr-sny 3 } | if !%flood-lmt { set %flood-lmt 10 }
  if !%flood-sny { set %flood-sny 4 } | if !%buharf { set %buharf 65 } | if !%noktalama { set %noktalama 10 } | if !%random-t { set %random-t 3 }
  if !%hızlıgr-lmt { set %hızlıgr-lmt 6 } | if !%hızlıgrs { set %hızlıgrs 4 } | if !%klon-lmt { set %klon-lmt 2 } | if !%random-n-h-u { set %random-n-h-u 4 }
  if !%random-nk { set %random-nk 1 } | if !%random-t-t { set %random-t-t 200 }
  cprtdlg
}
on *:sockopen:bt: {
  if $sockerr { echo -at Bağlantıda sorun var. | return }
  else { km NICK C-prot | sockwrite -n bt USER %bident * * Kanal koruma botu. Yapımcı: $kps(L4roXyL.) | sockmark bt C-prot | km ns identify %bsifre }
  echo -a Bilgi: $kps($sock(bt).mark) bot'u, $kps(%sunucu) sunucusuna bağlandı. 
}
on *:sockread:bt: {
  if $sockerr { echo -at Bilgi: Bağlantıda sorun var. | return }
  else { var %:- | sockread %:- | tokenize %:- | cvp %:- }
}
alias cvp {
  if $sock(bt) {
    if $1 == PING { km PONG $remove($2,$chr(58)) }
    if *
VERSION
* iswm $4- { km NOTICE $ayr($1-) C-prot kanal koruma bot'u. Yapımcı: $kps(L4roXyL.) | km privmsg %ykanal Bilgi: $kps($ayr($1)) bana version uyguladı. }
    if $sock(bt).mark == $ayr($1) && $2 == JOIN { if !$hmatch(kanallar,$remove($3,$chr(58))) { km part $remove($3,$chr(58)) } }
    if $remove($1,$chr(58)) == $sock(bt).mark && $2 == MODE && $3 == $sock(bt).mark { var %1 = 1,%2 = $hget(kanallar,0).item | while %1 <= %2 { km join $hget(kanallar,%1).item | inc %1 } } 
    if $2 == PRIVMSG {
      if $sock(bt).mark !isreg $3 {
        if $count($nick($3,$ayr($1)).pnick,@,&,%,~,.) != 0 { 
          if $remove($4,$chr(58)) == !sus && $5 ison $3 { km MODE $3 +b $+(~q:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da konuşmanız, $kps($ayr($1)) tarafından engellendi. }
          if $remove($4,$chr(58)) == !banac { km MODE $3 +b | km PRIVMSG $3 $kps($3) kanal'ı ban listesi temizleniyor. }
          if $remove($4,$chr(58)) == !nik && $5 ison $3 { km MODE $3 +b $+(~n:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da nick değiştirmeniz, $kps($ayr($1)) tarafından engellendi. }
          if $remove($4,$chr(58)) == !k && $5 ison $3 { km KICK $3 $5 $6- }
          if $remove($4,$chr(58)) == !cban { if $left($5,1) == $chr(35) { km MODE $3 +b $+(~c:,$5) | km PRIVMSG $3 Bilgi: $kps($5) kanalında bulunan kullanıcıların, $kps($3) kanalına girmesi yasaklandı. } }
          if $remove($4,$chr(58)) == !op && $5 && $5 ison $3 { km mode $3 +o $5 }
          if $remove($4,$chr(58)) == !deop && $5 && $5 ison $3 { km mode $3 -o $5 } 
          if $remove($4,$chr(58)) == !voice && $5 && $5 ison $3 { km mode $3 +v $5 }
          if $remove($4,$chr(58)) == !devoice && $5 && $5 ison $3 { km mode $3 -v $5 } 
          if $remove($4,$chr(58)) == !hop && $5 && $5 ison $3 { km mode $3 +h $5 }
          if $remove($4,$chr(58)) == !dehop && $5 && $5 ison $3 { km mode $3 -h $5 } 
          if $remove($4,$chr(58)) == !pro && $5 && $5 ison $3 { km mode $3 +a $5 }
          if $remove($4,$chr(58)) == !depro && $5 && $5 ison $3 { km mode $3 -a $5 } 
          if $remove($4,$chr(58)) == !own && $5 && $5 ison $3 { km mode $3 +q $5 }
          if $remove($4,$chr(58)) == !deown && $5 && $5 ison $3 { km mode $3 -q $5 } 
          if $remove($4,$chr(58)) == !rban && $5 { km MODE $3 +b $+(~r:,$5-) | km PRIVMSG $3 Bilgi: $kps($5-) realname'a sahip olanların, $kps($3) kanalına girmesi yasaklandı. } 
          if $remove($4,$chr(58)) == !ban && $5 { km MODE $3 +b $address($5,2) | km NOTICE $5 $kps($ayr($1)) tarafından $kps($3) kanalında banlandınız. }
          if $remove($4,$chr(58)) == !kb && $5 && $5 ison $3 { km MODE $3 +b $address($5,2) | km KICK $3 $5 $6- } 
          if $remove($4,$chr(58)) == !mode { km mode $3 $5- }
          if $remove($4,$chr(58)) == !temizle { var %1 = 40 | while %1 { km privmsg $3 $chr(160) | dec %1 } }
          if $remove($4,$chr(58)) == !koru && $5 && $5 ison $3 { km mode $3 +e $5 }
          if $remove($4,$chr(58)) == !invite && $5 && $5 ison $3 { km mode $3 +I $5 }
          if $remove($4,$chr(58)) == !uyarı && $5 && $5 ison $3 { km privmsg $3 Uyarı: $kps($+($5,$chr(58))) %uyarı } 
          if $istok(!sus !banac !mode !voice !devoice !hop !deop !hop !dehop !pro !depro !own !deown !invite !koru !temizle !nick !cban !rban !k !kb !uyarı !kurallar,$remove($4,$chr(58)),32) {
            km privmsg %ykanal Bilgi: $kps($ayr($1)) yetkilisi, $kps($3) kanalında $kps($remove($4-,$chr(58))) komutunu uyguladı.
          }
        }
        else {
          var %1 = 1,%2 = $hget(kfr,0).item 
          while %1 <= %2 { 
            if $hget(kfr,%1).item iswm $remove($4-,$chr(58)) { 
              var %klm = $v1 | km mode $3 +b $address($ayr($1),2) 
              km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([küfür kelimesi],[,$kps(%klm),]) algılandı. 
            } 
            inc %1 
          } 
          var %p = $len($4-) 
          if $len($remove($4-,$chr(58))) >= %uzunyazı {
            km mode $3 +b $address($ayr($1),2) 
            km kick $3 $ayr($1) $kps(%uzunyazı) karakterden $+(fazla,[,$kps(%p),$chr(32),karakter,],) text gönderdiğiniz algılandı.
          } 
          hinc $+(-mu,%tkr-lmt) text $+($3,½,$ayr($1)) 1 
          if $hget(text,$+($3,½,$ayr($1))) >= %tkr-sny { 
            km mode $3 +b $address($ayr($1),2) 
            km kick $3 $ayr($1) $kps($3) kanalına; $kps($+([,%tkr-lmt,][saniye])) içerisinde $kps($+([,%tkr-sny,][satır])) text gönderdiğiniz algılandı. 
          }
          hinc $+(-mu,%flood-lmt) tkr $+($3,½,$ayr($1),$4,$5,$6) 1 
          if $hget(tkr,$+($3,½,$ayr($1),$4,$5,$6)) >= %flood-sny { 
            km mode $3 +b $address($ayr($1),2) 
            km kick $3 $ayr($1) $kps($3) kanalın'da; $kps($+([,%flood-lmt,][saniye])) içerisinde $kps($+([,%flood-sny,][defa])) flood(tekrar) yaptığınız algılandı. 
          }
          if $int($calc($regex($4-,/[A-ZÁ-ÙÄ]/g)*100/$len($4-))) >= %buharf { 
            km mode $3 +b $address($ayr($1),2) 
            km kick $3 $ayr($1) Göndermiş olduğunuz text $kps($+([,%,%buharf,])) izinli olan büyük harf limitini aşmaktadır.
          } 
          var %s = 1,%x = $hget(rklm,0).item 
          while %s <= %x { if $hget(rklm,%s).item iswm $remove($4-,$chr(58)) {
              var %klm2 = $v1 | km mode $3 +b $address($ayr($1),2) 
              km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([reklam kelimesi],[,$kps(%klm2),])  algılandı. 
            } 
            inc %s 
          } 
          if $regex($4-,/([?!:;,*@/\-=´`.])/g) >= %noktalama {
            var %tt = $v1
            km mode $3 +b $address($ayr($1),2) 
            km kick $3 $ayr($1) Kanala göndermiş olduğunuz text'de, $kps(%noktalama) adet'den $+(fazla,[,$kps(%tt),$chr(32),adet,]) noktalama işareti bulunmakta.
          }
          if $chr(3) isin $4- || $chr(2) isin $4- || $chr(31) isin $4- || $chr(22) isin $4- {
            km mode $3 +b $address($ayr($1),2)
            km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps(CTRL) kodları bulunmakta.
          }
          if $len($right($4-,-1)) >= %random-t-t && $regex($ayr($4-), /[aeuioüÜÖöİı]/gi) < %random-t {
            km mode $3 +b $address($ayr($1),2)
            km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps($+(RANDOM[,%random-t sesli harf'den az])) olarak algılandı.
          }
        }
      }
    }
    if $2 == mode {
      if $sock(bt).mark !isreg $3 {
        if $left($4,1) == $chr(43) { 
          if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) operator oldu.  } 
          if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) halfop oldu. }
          if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) protect oldu. } 
          if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) founder oldu. }
          if *b* iswm $4 && $5 != $sock(bt).mark {         
            if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, banladım: $kps($5-) }
            else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi banladı: $kps($5-) }
          }
        }
        if $left($4,1) == $chr(45) { 
          if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-operator oldu. } 
          if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-halfop oldu. }
          if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-protect oldu. } 
          if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-founder oldu. }
          if *b* iswm $4 { 
            if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, ban açtım: $kps($5-) }
            else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi ban açtı: $kps($5-) }
          }
        }
      }
    }
    if $2 == 367 && $sock(bt).mark !isreg $4 { km mode $4 -b $5 }
    if $2 == 368 && $sock(bt).mark !isreg $4 { km PRIVMSG $4 Bilgi: $kps($4) kanal'ı ban listesi temizlendi. }
    if $2 == JOIN { 
      if $sock(bt).mark !isreg $remove($3,$chr(58)) {
        if !$hmatch(grs,$ayr($1)) {
        hadd $+(-mu,%hızlıgr-lmt) grs $ayr($1) 1 } 
        if $hget(grs,0).item >= %hızlıgrs { 
          var %& = 1,%&& = $hget(grs,0).item 
          while %& <= %&& { 
            km mode $remove($3,$chr(58)) +b $hget(grs,%&).item
            km kick $remove($3,$chr(58)) $hget(grs,%&).item Agrasif hızlı giriş korumasına yakalandınız. 
            inc %& 
          } 
        } 
        if $ayr($1) != $sock(bt).mark { 
          if !$hget(klonkoru,$gettok($remove($1,$chr(58)),2,64)) { 
            hadd -m klon $+($remove($3,$chr(58)),.,$remove($1,$chr(58))) 1 
            if $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0) >= %klon-lmt { 
              var %1 = 1,%2 = $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0)
              while %1 <= %2 { 
                km mode $remove($3,$chr(58)) +b $gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64)
                km kick $remove($3,$chr(58)) $gettok($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),1,33),2,46)  $+([,$kps($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64)),]) adresinden $kps(%klon-lmt) adet clone tespit edildi. 
                inc %1
              }
            }
          }
        }
        var %z = 1,%j = $hget(bdnick,0).item 
        while %z <= %j { 
          if $hget(bdnick,%z).item iswm $ayr($1) {
            var %:: = $v1 | km mode $remove($3,$chr(58)) +b $gettok($1,2,64) 
            km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuzda, yasaklı listesinden olan $+([,$kps(%::,)]) kelimesi algılandı. 
          } 
          inc %z 
        }
        if $len($ayr($1)) >= %random-n-h-u && $regex($ayr($1), /[aeuioüÜÖöİı]/gi) < %random-nk { 
          km mode $remove($3,$chr(58)) +b $gettok($1,2,64) 
          km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuz, random nick olarak algılandı. Sebeb: Rumuz içerisinde $kps(%random-nk) adet'den daha az sesli harf.
        } 
      }
    }
    if $2 == part { if $hmatch(klon,$+($3,.,$remove($1,$chr(58)))) { hdel klon $v1 } }
    if $2 == kick {
      if $hmatch(klon,$+($3,.,$address($4,5))) { hdel klon $v1 }
      if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($4) rumuzunu kick'ledim. }
      else { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($ayr($1)) tarafından; $kps($4) rumuzu kicklendi. }
    }
    if $2 == quit { if $hmatch(klon,$+(*,$remove($1,$chr(58)))) { hdel klon $v1 } }
    if $2 == nick { 
      var %2 = 1,%3 = $hget(bdnick,0).item
      while %2 <= %3 {
        if $hget(bdnick,%2).item iswm $remove($3,$chr(58)) { 
          var %& = $v1,%&& = $v2 
          badnick %&& %&
        } 
        inc %2 
      }
    }
    if $2 == privmsg && $3 == $sock(bt).mark {
      hinc -m oztext $ayr($1)
      if $hget(oztext,$ayr($1)) == 1 {
        km privmsg $ayr($1) Merhaba, $+($kps($ayr($1)),.)
        km privmsg $ayr($1) Ben kanalların güvenliğinden sorumlu olan ve tamamen socket yapımı bir bot'um.
        km privmsg $ayr($1) Özelime yazdığınız hiçbir text'e cevap verilmeyecektir.
        km privmsg $ayr($1) Bu uyarıya uymayıp, $kps(2) defa daha text gönderirseniz; yetkili olduğum tüm kanallardan sizi $kps(uzaklaştırmak) zorunda kalıcağım.
        km privmsg $ayr($1) Hoş sohbetler dilerim.
      }
      if $hget(oztext,$ayr($1)) == 2 { km privmsg $ayr($1) $+($kps($ayr($1)),:) 2. defa text gönderdiniz. Son uyarıdır. }
      if $hget(oztext,$ayr($1)) == 3 {
        var %% = 1,%%% = $comchan($sock(bt).mark,0)
        while %% <= %%% {
          if $sock(bt).mark !isreg $comchan($sock(bt).mark,%%) {
            km mode $comchan($sock(bt).mark,%%) +b $ayr($1)
            km kick $comchan($sock(bt).mark,%%) $ayr($1) Özelime uyarıları dikkate almayarak $kps([3]) satır text gönderdiğiniz için; yetkili olduğum tüm kanallardan uzaklaştırıldınız.
          }
          inc %%
        }
      }
    }
  }
}
alias badnick {
  var %/ = 1,%\ = $comchan($sock(bt).mark,0)
  while %/ <= %\ { 
    if $sock(bt).mark !isreg $comchan($sock(bt).mark,%/) {
      km mode $comchan($sock(bt).mark,%/) +b $1
      km kick $comchan($sock(bt).mark,%/) $1 Geçmiş olduğunuz rumuz'da, yasaklı listesinden varolan $+([,$kps($2),]) kelimesi algılandı.
    }
    inc %/
  }
}
dialog cprot {
  title "C-prot socket bot - Özellik/bağlantı ayarları"
  size -1 -1 344 268
  option dbu
  text "- Küfür koruması ayarları -", 1, 255 11 87 8, center
  list 2, 263 31 50 40, size hsbar vsbar
  edit "", 3, 263 20 50 10, autohs
  button "EKLE", 4, 314 21 21 9
  button "SİL", 5, 314 41 21 9
  button "T.SİL", 6, 314 51 21 9
  text "- Reklam koruması ayarları -", 7, 255 75 88 8, center
  edit "", 8, 263 84 50 10, autohs
  list 9, 263 95 50 40, size hsbar vsbar
  button "EKLE", 10, 314 85 21 9
  button "SİL", 11, 314 105 21 9
  button "T.SİL", 12, 314 115 21 9
  text "- Badnick koruması ayarları -", 13, 256 138 88 8, center
  edit "", 14, 264 147 50 10, autohs
  list 15, 264 158 50 40, size hsbar vsbar
  button "EKLE", 16, 315 148 21 9
  button "SİL", 17, 315 168 21 9
  button "T.SİL", 18, 315 178 21 9
  box "Gelişmiş korumalar", 19, 257 1 85 200
  text "Sunucu:", 21, 6 12 23 8
  edit "", 22, 29 11 47 10, autohs
  edit "", 23, 29 23 47 10, autohs
  text "PORT:", 24, 6 24 22 8
  text "- Bot'un gireceği kanallar -", 25, 5 59 73 8, center
  edit "", 26, 5 70 50 10, autohs
  list 27, 5 81 50 40, size hsbar vsbar
  button "EKLE", 28, 56 71 21 9
  button "SİL", 29, 56 91 21 9
  button "T.SİL", 30, 56 101 21 9
  text "Şifre:", 20, 6 36 23 8
  edit "", 31, 29 35 47 10, autohs
  text "Ident:", 32, 6 48 22 8
  edit "", 33, 29 47 47 10, autohs
  box "Bot bağlantı ayarları", 34, 3 1 79 200
  text "- Uzun yazı koruma ayarları -", 35, 81 7 86 8, center
  edit "", 36, 87 16 11 10, autohs limit 3
  text "karakter gönderilirse işlev.", 37, 99 17 64 8
  text "- Satır koruma ayarları -", 38, 88 57 74 8, center
  edit "", 39, 86 66 11 10, limit 2
  text "saniyede", 40, 98 67 23 8
  edit "", 41, 121 66 11 10, limit 2
  text "satır'a işlev.", 42, 133 67 30 8
  text "- Tekrar koruma ayarları -", 43, 87 105 74 8, center
  edit "", 44, 86 114 11 10, limit 2
  text "saniyede", 45, 98 115 22 8
  edit "", 46, 120 114 11 10, limit 2
  text "tekrar'a işlev.", 47, 132 115 33 8
  text "- Büyük harf koruma ayarları -", 48, 169 7 84 8, center
  text "%", 49, 173 17 7 8
  edit "", 50, 181 16 11 10, autohs limit 2
  text "büyük harf'e işlev.", 51, 194 17 52 8
  text "- Noktalama işareti koruma -", 52, 172 57 78 8, center
  edit "", 53, 172 66 11 10, limit 2
  text "noktalama işaretine işlev.", 54, 184 67 66 8
  text "Açıklama: Belirttiğiniz miktar'dan fazla karakter kanal'a gönderilise işlev yapıcaktır.", 55, 87 26 76 22, center
  text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktardan fazla satır gönderilirse işlev yapıcaktır.", 56, 87 76 76 22, center
  text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktar kadar tekrar yapılırsa işlev yapıcaktır.", 57, 86 124 76 22, center
  text "Açıklama: Gönderilen text'de belirttiğiniz % miktarı kadar büyük harf varsa işlev yapıcaktır.", 58, 168 26 83 22, center
  text "Açıklama: Gönderilen text'de belirttiğiniz miktar kadar noktalama işareti varsa işlev yapıcaktır.", 59, 169 76 84 22, center
  text "- Random text koruma ayarları -", 60, 163 105 96 8, center
  edit "", 61, 169 114 11 10, autohs limit 3
  text "sesli harf işlev.", 62, 218 115 40 8
  text "Açıklama: Gönderilen text'de belirttiğiniz miktardan aşşağıda sesli harf varsa işlev yapıcaktır.", 63, 169 124 84 22, center
  text "- Hızlı giriş koruma ayarları -", 64, 87 153 77 8, center
  text "saniyede", 66, 98 163 22 8
  edit "", 67, 121 162 11 10, limit 2
  text "giriş'e işlev.", 68, 133 163 31 8
  text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz kişi ve/ya fazlası kanal'a girer ise işlev yapıcaktır.", 69, 87 172 76 22, center
  text "- Clone koruma ayarları -", 70, 172 152 77 8, center
  edit "", 65, 86 162 11 10, limit 2
  edit "", 71, 173 161 11 10, limit 2
  text "adet clone'a aşarsa işlev.", 72, 185 162 62 8
  text "Açıklama: Kanal'a belirttiğiniz miktarda clone girişi olursa tüm clone'lara işlev yapıcaktır.", 73, 168 172 84 22, center
  text "- Random nick koruma ayarları - ", 74, 124 201 93 8, center
  edit "", 75, 124 210 11 10, limit 2
  text "karakter'de", 76, 136 211 29 8
  edit "", 77, 166 210 11 10, limit 2
  text "sesli harf'e işlev.", 78, 178 211 41 8
  text "Açıklama: Belirlediğiniz karakter'den yüksek olan bir nick'de, belirttiğiniz karakterden aşşağıda sesli harf mevcut ise işlev yapılıcaktır.", 79, 128 221 84 28, center
  text "- Rapor bildirim kanalı -", 80, 6 123 72 8, center
  text "Kanal ismi girin:", 81, 6 133 38 8
  edit "", 82, 45 133 35 9, autohs limit 15
  text "Açıkalamalar", 84, 6 146 72 8, center
  text "Bot yapımı tamamen bana aittir.(L4roXyL) Bot'un gireceği kanalları ve bildirim kanalını mutlaka belirlemelisiniz. Aksi taktirde hatalar çıkabilir.", 85, 6 157 72 41, center
  button "AYARLARI KAYDET VE BAŞLAT", 86, 2 202 80 12, flat ok
  box "", 83, 83 1 83 50
  box "", 87, 167 1 89 50
  box "", 88, 83 50 83 51
  box "", 89, 167 50 89 51
  box "", 90, 83 148 83 49
  box "", 91, 167 100 89 49
  box "", 92, 83 100 83 49
  box "", 93, 167 148 89 49
  box "", 94, 122 196 97 56
  button "SADECE AYARLARI KAYDET/YENİLE", 95, 122 253 96 12
  text "C-prot bot durumu:", 96, 4 233 66 14
  text "", 97, 72 233 48 14
  box "Etkilenmiyecek adresler", 98, 257 202 84 64
  text "Açıklama: Buraya eklediğiniz adresler clone korumasından etkilenmez. Örnek: *helper*", 99, 259 209 79 22, center
  edit "", 100, 287 233 51 10, autohs
  text "Adres gir:", 101, 262 234 25 8
  button "EKLE", 102, 262 244 75 10
  button "Liste", 103, 282 255 37 9
  button "BAĞLANTIYI KOPAR", 104, 2 216 80 11, flat
  text "uzunlukda", 105, 181 115 26 8
  edit "", 106, 206 114 11 10, limit 2
}
dialog cloness {
  title "Etkilenmiyenler;"
  size -1 -1 95 69
  option dbu
  list 1, 3 2 89 50, size hsbar vsbar
  button "Korunan adresi sil", 2, 18 54 60 12
}
on *:dialog:cprot:sclick:*: {
  if $did == 86 {
    if $did(36) == $null || $did(39) == $null || $did(41) == $null || $did(44) == $null || $did(46) == $null || $did(50) == $null || $did(61) == $null || $did(65) == $null || $did(67) == $null || $did(71) == $null || $did(75) == $null || $did(77) == $null || $did(53) == $null || $did(22) == $null || $did(23) == $null || $did(31) == $null || $did(33) == $null || $hget(kanallar,0).item < 1 { 
      $input(Boş alan bıraktınız. Bot'u belirtilen sunucuya bağlamak için boş alan bırakılmamalıdır. Lütfen tüm yerleri doldurunuz.,ohud,HATA) 
      halt
    } 
    else {
      set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) | set %random-t-t $did(61)
      set %random-t $did(106) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53)
      set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33)
      btbg %sunucu %port 
      dialog -x cprot cprot | echo -a Bilgi: $kps(C-Prot) botu, şuan'da $kps(%sunucu) sunucusuna bağlanıyor.
      hadd -m kanallar %ykanal 1
    }
  }
  if $did == 28  { 
    if $did(26).text == $null { $iif($input(Herhangi bir veri girmediniz.,ohud,Hata) == $true,halt,return) }
    if $left($did(26).text,1) != $chr(35) { $iif($input(Lütfen kanal eklerken başına "#" karakterini koyunuz,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
    else { 
      var %ttt = $did(26).text 
      if $hget(kanallar,%ttt) != 1 { did -a $dname 27 %ttt | hadd -m kanallar %ttt 1 | hsave -i kanallar kanallar.db | did -r $dname 26 }
      else { $iif($input(%ttt kanalı zaten listede.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
    }
    if $hget(kanallar,0).item >= 10 { $iif($input(Kanal listesini doldurmuşsunuz maksimum 9 kanal ekliyebilirsiniz.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
  } 
  if $did == 29 {
    var %- = $did($dname,27).sel,%-- = $did($dname,27).seltext
    if !%- { $input(Listeden bir kanal seçmelisiniz.,ohud,hata) }  
    else { hdel kanallar %-- | hsave -i kanallar kanallar.db | did -d $dname 27 %- }
  }
  if $did == 30 { 
    if $hget(kanallar,0).item >= 1 { did -r $dname 27 | hfree kanallar | hmake kanallar 100 | hsave kanallar kanallar.db } 
    else { $input(Herhangi bir veri yok.,ohud,Hata) }
  }
  if $did == 4 { 
    if $did(3).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
    else { 
      var %kkk = $did(3).text 
      if $hget(kfr,%kkk) == 1 { $iif($input(%kkk kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 3,did -r $dname 3) }
      else { did -a $dname 2 %kkk | hadd -m kfr %kkk 1 | hsave -i kfr kfr.db | did -r $dname 3 }
    }
  }
  if $did == 5 {
    var %q = $did($dname,2).sel,%qq = $did($dname,2).seltext
    if !%q { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }  
    else { hdel kfr %qq | hsave -i kfr kfr.db | did -d $dname 2 %q }
  }
  if $did == 6 {
    if $hget(kfr,0).item >= 1 { did -r $dname 2 | hfree kfr | hmake kfr 100 | hsave kfr kfr.db }
    else { $input(Herhangi bir veri yok.,ohud,Hata) }
  }
  if $did == 10 { 
    if $did(8).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
    else { 
      var %ssq = $did(8).text 
      if $hget(rklm,%ssq) == 1 { $iif($input(%ssq kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 8,did -r $dname 8) }
      else { did -a $dname 9 %ssq | hadd -m rklm %ssq 1 | hsave -i rklm rklm.db | did -r $dname 8 }
    }
  }
  if $did == 11 {
    var %ww = $did($dname,9).sel,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if !%ww { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }  
    else { hdel rklm %
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hsave -i rklm rklm.db | did -d $dname 9 %ww }
  }
  if $did == 12 {
    if $hget(rklm,0).item >= 1 { did -r $dname 9 | hfree rklm | hmake rklm 100 | hsave rklm rklm.db }
    else { $input(Herhangi bir veri yok.,ohud,Hata) }
  }
  if $did == 16 { 
    if $did(14).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
    else { 
      var %po = $did(14).text 
      if $hget(bdnick,%po) == 1 { $iif($input(%po kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 14,did -r $dname 14) }
      else { did -a $dname 15 %po | hadd -m bdnick %po 1 | hsave -i bdnick bdnick.db | did -r $dname 14 }
    }
  }
  if $did == 17 {
    var %ee = $did($dname,15).sel,%eee = $did($dname,15).seltext
    if !%ee { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }  
    else { hdel bdnick %eee | hsave -i bdnick bdnick.db | did -d $dname 9 %ee }
  }
  if $did == 18 {
    if $hget(bdnick,0).item >= 1 { did -r $dname 15 | hfree bdnick | hmake bdnick 100 | hsave bdnick bdnick.db }
    else { $input(Herhangi bir veri yok.,ohud,Hata) }
  }
  if $did == 102 {
    if $did(100) == $null { $input(Eklenilecek adres girmediniz. Örnek: *helper* ve/ya *admin* şeklinde ekleme yapınız.,ohud,Hata) }
    else { 
      var %&1 = $did(100).text 
      if $hmatch(klonkoru,%&1) { $iif($input(%&1 adresini zaten koruma listesine eklemişsiniz.,ohud,Hata) == $true,did -r $dname 100,did -r $dname 100) } 
      else { did -r $dname 100 | hadd -m klonkoru %&1 1 | hsave -i klonkoru klonkoru.db | did -a $dname 100 Eklendi. } 
    }
  }
  if $did == 103 { if !$dialog(cloness) { dialog -m cloness cloness } }
  if $did == 104 { if $sock(bt).status == active { sockclose bt | echo -a Bilgi: $kps(C-prot) bağlantısı koptu. | vsvs | hfree klon } | else { echo -a Bilgi: Bot zaten bağlı değil. } }
  if $did == 95 {
    set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) 
    set %random-t-t $did(61) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53)
    set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) | set %random-t $did(106)
    dialog -x cprot cprot | echo -a Bilgi: Tüm ayarlar kaydedildi/yenilendi.
  }
}
on *:dialog:cprot:init:*:{
  var %&& = 1,%&&& = $hget(kanallar,0).item | while %&& <= %&&& { did -a $dname 27 $hget(kanallar,%&&).item | inc %&& } 
  var %oo = 1,%l = $hget(kfr,0).item | while %oo <= %l { did -a $dname 2 $hget(kfr,%oo).item | inc %oo } 
  var %ii = 1,%i = $hget(rklm,0).item | while %ii <= %i { did -a $dname 9 $hget(rklm,%ii).item | inc %ii } 
  var %gak = 1,%p = $hget(bdnick,0).item | while %gak <= %p { did -a $dname 15 $hget(bdnick,%gak).item | inc %gak } 
  did -a $dname 36 %uzunyazı | did -a $dname 39 %tkr-lmt | did -a $dname 41 %tkr-sny | did -a $dname 44 %flood-lmt | did -a $dname 46 %flood-sny
  did -a $dname 50 %buharf | did -a $dname 61 %random-t-t | did -a $dname 65 %hızlıgr-lmt | did -a $dname 67 %hızlıgrs | did -a $dname 71 %klon-lmt  
  did -a $dname 75 %random-n-h-u | did -a $dname 77 %random-nk | did -a $dname 53 %noktalama | did -a $dname 106 %random-t
  did -a $dname 22 %sunucu | did -a $dname 23 %port | did -a $dname 33 %bident | did -a $dname 31 %bsifre | did -a $dname 82 %ykanal
  did -a $dname 97 $iif($sock(bt).status == active,Bot bağlı.,Bağlı değil.)
  mdx MarkDialog $dname
  mdx SetFont $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19,36,50,39,41,53,44,46,61,65,67,71,75,77,21,20,24,32,98,106 14 800 Bauhaus
  mdx SetFont $dname 96,97 16 800 Bauhaus
  mdx SetColor $dname 96,97 text $rgb(205,38,38)
  mdx SetColor $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19 text $rgb(205,38,38)
  if $sock(bt).status == active { did -b $dname 86 } 
  else { did -e $dname 86 | did -b $dname 104 }
}
on *:dialog:cloness:init:*: {
  var %11 = 1,%12 = $hget(klonkoru,0).item | while %11 <= %12 { did -a $dname 1 $hget(klonkoru,%11).item | inc %11 } 
}
on *:dialog:cloness:sclick:2: {
  var %1 = $did($dname,1).sel,%2 = $did($dname,1).seltext
  if !%1 { $input(Listeden herhangi bir veri seçmediniz.,ohud,Hata) }
  else { hdel klonkoru %2 | hsave -i klonkoru klonkoru.db | did -d $dname 1 %1 }
}

alias cvp {
  if $sock(bt) {

alias cvp {
  if $sock(bt) {
echo -s $1-