Kelime Tamamlama Addon 2020

[code]menu status,channel,menubar {
  -
  Kelime Tamamlama: ktamamla
  -
}
alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } |  dialog -ma ktamamla ktamamla }
dialog ktamamla {
  title "Kelime Tamamlama"
  size -1 -1 215 134
  option dbu
  edit "", 1, 7 9 50 10, autohs
  text " yazdığında", 2, 58 10 30 8
  button "Sil", 3, 51 117 74 12
  edit "", 4, 89 9 80 10, autohs
  text " olarak yazacak", 5, 169 10 38 8
  button "Ekle", 6, 7

Online süresi 5 gün ve fazlası olanlara oto voice

Kullanım;
Belirtilen kanalla giren bütün kullanıcılara info ceker ve online süresi 5 gün ve üstü olan kulllanıcılara oto voice verir.
Sürekli saldırı/flood vb. illegal olayların bir nebze önüne gecilmesi için hazırlanmıştır.
Kırmızı ile işaretlediğim yerlere aktif olmasını istediğiniz kanalları yazmalısınız.



[code]on *:join:#kanal: { .timer 1 1 .denetlee $nick $chan | set %:Mylife $nick }
alias den

RANDOM Nick/Ident Koruması

[code]on *notice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(7000 7005 1453,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
    ;- Muaf IP e

[size=small]10 saniye içerisinde aynı IP adresi üzerinden 3 giriş yapıldığı anda giriş yapan nickleri KILL ile sunucudan uzaklaştırır. bu olay 100 saniye içerisinde 2 defa tekrar edildiğinde bu IP adresi üzerine GZLINE atılmaktadır. Mevcut proxy koruması üzerinden parçalayıp, alelacele koyduğum için meydana gelebilecek olan aksaklıkları bu konunun altına ileten arkadaşlara yardımcı olabilirim. Clone korumasından etkilenmesini istemediğiniz ip veya ip maskesini !ipekle muaf IP veya !ipekle muaf I

#Kanal yazdigin yerde belirtigin mesajlari yazar, Mesaj diye yazdigim yerlerede kendin doldurursun.

#Opers yazan yerde komut calisir, kodu denemedim, hata verirse belirtirsen düzeltirim.


[code]on $*:text:/[!.]rezilet/i:#opers: {
  if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
  shun $2 +0 Rezilet.
  msg # $2 rezil etme olayi tamam'dir.
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2)

Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN

[code]on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) ebeb.
  echo 4 $target IP: %_ip - NICK: %_ni

Sunucunuzdaki sqline listesini tek tek silmek yerine, bu kod sayesinde sqlineyi temizleyebileceksiniz. mIRC Remote kısmına ekleyin ve /_temizle yazarak sqline listesini temizleyin..

[code]alias _temizle { .set -u3 %qline on | echo -a Sqline List Temizleniyor.. | os sqline list }
on *:notice:*:?:{
  if %qline == on {
    if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) {
      if (Aktüel liste: isin $1-) { return }
      os sqline del $1
    }
  }
}[/

Kod'u Kopyalayın Bot Yapacağınız mIRC ' de ALT R Yaparak Dosya Sekmesinden Yeni Seçeneğini TıklayıN. Açılan Yeni Pencereye Bu Kod'u Yapıştırıyoruz Hepsi Bu Kadar.

Not : Kod Sadece #Dj Kanalında Çalışmaktadır #Dj Kanalına Ve Dj'lere Özel Olduğu İçin

Kırmızı İle Belirttiğim Yerleri Kendinize Göre Ayarlayın

[code]on *:Join:#dj: {
  msg $chan  14------------------------------
  msg $chan  4 Hoşgeldiniz  5 Dj' $nick
  msg $chan  14------------------------------
  msg $chan  14

Kanal belirlediğiniz flood saldırısında, kanalı belirlediğiniz süre ile +m moduna alıp, temizle.mrc dosyasındaki verilerle kanalı temizleyip tekrar kanalaı açmak için kullanılan bir kod

[code]alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true
  else return $false
}
alias temizle {
  var %t 1
  while %t <= $lines(temizle.mrc) {
    msg $1 $read(temizle.mrc,%t)
    inc %t
  }
}
on @*:text:*:#: {

MultiJOIN 7 Saniyeli Sistem

[code];Botun Nicki
alias botnick return JoinServ

;Botun Nick Sifresi
alias nickpass return brusk

;Botun Operi ve Sifresi
alias opers return Sistem brusk

;Botun Girecegi Sunucu ve Portu
alias sunucu return irc.lamerler.com 6667

;Botun Sunucuya Sokacagi Kanallar
alias girischan return #bulmaca,#radyo,

;Botun Bekletme Suresi
alias beklemesure return 7

;Botun Giriste Uygulatacagi Parametreler --
;Join Parametresi - Giriste 7 Saniye Sta