Debug && Hash Tables - Badnick,Reklam,Küfür Korumaları - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Doktrin · 05 Kasım 2009, 17:20

Başlıktan da anlaşılacağı gibi debug ve hash tablo kullanarak yazdığım badnick,reklam ve küfür korumaları.Korumaların çalışabilmesi için kanalda op olmalı veya usermode'larınızda "o" mode'unun olması gerekmektedir.Umarım debug kullanımına ve hash tablolarının kullanımına basit bir örnek olmuştur.

Kullanım şekli:
Kodların çalışması için öncelikle /debug -i on _prots komutunu uyguluyoruz.(debug verilerinin algılanabilmesi için)

/ekle <badnick|reklam|kufur> <eklenecek>
/sil <badnick|reklam|kufur> <silinecek>

Ekleme yaparken wilcard(*) kullanabilirsiniz.
Kayıt dosyaları : badnick.doktrin kufur.doktrin reklam.doktrin

Örn:
/ekle reklam *http*
/sil badnick camda_*

İşte kodlar :

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

on *:start:{
  hmake badnick
  hmake kufur
  hmake reklam
  hload badnick badnick.doktrin
  hload kufur kufur.doktrin
  hload reklam reklam.doktrin
}
alias _prots {
  tokenize 32 $1-
  if ($1 = <-) {
    if ($3 = JOIN) {
      var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
      if $me isop %chan || o isin $usermode {
        if $hfind(badnick,%nick,1,W).data {
          ban -k %chan %nick 2 badnick
        }
      }
    }
    elseif ($3 = PRIVMSG) {
      if ($4 ischan) {
        var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
        if $me isop %chan || o isin $usermode {
          if $hfind(kufur,%text,1,W).data {
            ban -k %chan %nick 2 kufur
          }
          if $hfind(reklam,%text,1,W).data {
            ban -k %chan %nick 2 reklam
          }
        }
      }
    }
  }
}
alias ekle {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /ekle <badnick|kufur|reklam> <eklenecek>  | return }
  if $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek badnicki girmediniz. | return }
    else {
      hadd -m badnick $r(1000,999999) $2
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek küfürü girmediniz. | return }
    else {
      hadd -m kufur $r(1000,999999) $2-
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek reklamı girmediniz. | return }
    else {
      hadd -m reklam $r(1000,999999) $2-
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
}
alias sil {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /sil <badnick|kufur|reklam> <silinecek>  | return }
  if $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek badnicki girmediniz. | return } 
    if $hfind(badnick,$2,1,W).data {
      hdel badnick $ifmatch
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek küfürü girmediniz. | return } 
    if $hfind(kufur,$2,1,W).data {
      hdel kufur $ifmatch
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek reklamı girmediniz. | return } 
    if $hfind(reklam,$2,1,W).data {
      hdel reklam $ifmatch
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
}

ponderadom · 02 Ocak 2010, 11:41

ErmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:start:{
hmake badnick
hmake kufur
hmake reklam
hload badnick badnick.doktrin
hload kufur kufur.doktrin
hload reklam reklam.doktrin
}
alias _prots {
tokenize 32 $1-
if ($1 = <-) {
if ($3 = JOIN) {
var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
if $me isop %chan || o isin $usermode {
if $hfind(badnick,%nick,1,W).data {
ban -k %chan %nick 2 badnick
}
}
}
elseif ($3 = PRIVMSG) {
if ($4 ischan) {
var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
if $me isop %chan || o isin $usermode {
if $hfind(kufur,%text,1,W).data {
ban -k %chan %nick 2 kufur
}
if $hfind(reklam,%text,1,W).data {
ban -k %chan %nick 2 reklam
}
}
}
}
}
}
alias ekle {
if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /ekle <badnick|kufur|reklam> <eklenecek> | return }
if $1 == badnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek badnicki girmediniz. | return }
else {
hadd -m badnick $r(1000,999999) $2
hsave badnick badnick.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
}
}
elseif $1 == kufur {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek küfürü girmediniz. | return }
else {
hadd -m kufur $r(1000,999999) $2-
hsave kufur kufur.doktrin
echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
}
}
elseif $1 == reklam {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek reklamı girmediniz. | return }
else {
hadd -m reklam $r(1000,999999) $2-
hsave reklam reklam.doktrin
echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
}
}
}
alias sil {
if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /sil <badnick|kufur|reklam> <silinecek> | return }
if $1 == badnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek badnicki girmediniz. | return }
if $hfind(badnick,$2,1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == kufur {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek küfürü girmediniz. | return }
if $hfind(kufur,$2,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == reklam {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek reklamı girmediniz. | return }
if $hfind(reklam,$2,1,W).data {
hdel reklam $ifmatch
hsave reklam reklam.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
}
[/code]

Bunlara uyarı muaf nick muaf kanal ekleyemezmiyiz acaba?

Orhan_VeLi · 11 Ocak 2010, 01:09

ponderadom Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bunlara uyarı muaf nick muaf kanal ekleyemezmiyiz acaba?

Eklense Süper olur valla. /ekle muafnick nick /ekle muafkanal kanal şeklinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Doktrin · 11 Ocak 2010, 02:54

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

on *:start: { 
  hmake badnick
  hmake kufur
  hmake reklam
  hload badnick badnick.doktrin
  hload kufur kufur.doktrin
  hload reklam reklam.doktrin
  if !$isfile(muafkanal.db) { .write muafkanal.db } 
  if !$isfile(muafnick.db) { .write muafnick.db } 
}
alias _prots {
  tokenize 32 $1-
  if ($1 = <-) {
    if ($3 = JOIN) {
      var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
      if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
      if $me isop %chan || o isin $usermode {
        if $hfind(badnick,%nick,1,W).data {
          ban -k %chan %nick 2 badnick
        }
      }
    }
    elseif ($3 = PRIVMSG) {
      if ($4 ischan) {
        var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
        if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
        if $me isop %chan || o isin $usermode {
          if $hfind(kufur,%text,1,W).data {
            ban -k %chan %nick 2 kufur
          }
          if $hfind(reklam,%text,1,W).data {
            ban -k %chan %nick 2 reklam
          }
        }
      }
    }
  }
}
alias ekle {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /ekle <muafnick|muafkanal|badnick|kufur|reklam> <eklenecek>  | return }
  if $1 == muafnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek muafnicki girmediniz. | return }
    else {
      write muafnick.db $2      
      echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == muafkanal {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek muafkanalı girmediniz. | return }
    else {
      write muafnick.db $2      
      echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek badnicki girmediniz. | return }
    else {
      hadd -m badnick $r(1000,999999) $2
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek küfürü girmediniz. | return }
    else {
      hadd -m kufur $r(1000,999999) $2-
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek reklamı girmediniz. | return }
    else {
      hadd -m reklam $r(1000,999999) $2-
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
}
alias sil {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /sil <muafnick|muafkanal|badnick|kufur|reklam> <silinecek>  | return }
  if $1 == muafnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek muafnicki girmediniz. | return } 
    if $read(muafnick.db,w,$2) {
      write $+(-ds,$2) muafnick.db
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == muafkanal {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek muafkanalı girmediniz. | return } 
    if $read(muafkanal.db,w,$2) {
      write $+(-ds,$2) muafkanal.db
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek badnicki girmediniz. | return } 
    if $hfind(badnick,$2,1,W).data {
      hdel badnick $ifmatch
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek küfürü girmediniz. | return } 
    if $hfind(kufur,$2,1,W).data {
      hdel kufur $ifmatch
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek reklamı girmediniz. | return } 
    if $hfind(reklam,$2,1,W).data {
      hdel reklam $ifmatch
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
}

/ekle <muafnick|muafkanal> <kanal|nick>
/sil <muafnick|muafkanal> <kanal|nick>

Converse · 07 Kasım 2010, 15:21

bunu badnicklerin hostlarına değilde nicklere yada wildcardlara ban atıcak şekilde yapabilirmiyiz?

eRCi · 08 Kasım 2010, 10:22

Bunu Botlar icin Tasarlayamazmıyız ? !kotusoz !reklam !muafnick vs komutları için

Nykshemera · 20 Mayıs 2012, 16:43

Converse Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunu badnicklerin hostlarına değilde nicklere yada wildcardlara ban atıcak şekilde yapabilirmiyiz?

alias _prots {
tokenize 32 $1-
if ($1 = <-) {
if ($3 = JOIN) {
var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
if $me isop %chan || o isin $usermode {
if $hfind(badnick,%nick,1,W).data {
ban -k %chan %nick 2 badnick
}
}
}
elseif ($3 = PRIVMSG) {
if ($4 ischan) {
var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
if $me isop %chan || o isin $usermode {
if $hfind(kufur,%text,1,W).data {
ban -k %chan %nick 2 kufur
}
if $hfind(reklam,%text,1,W).data {
ban -k %chan %nick 2 reklam
}
}
}
}
}
}

Yukarda kırmızı ile verdiğim yerleri ;

ban -k %chan %nick 5

olarak değiştirirsen sadece nicke ban atar.

BrainDamaged · 07 Haziran 2012, 20:15

Kodlar için teşekkürler arşive attım lazım olur ileride
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Seth · 30 Aralık 2012, 18:40

Tşkler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Shiniori · 30 Kasım 2013, 15:25

Doktrin Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Başlıktan da anlaşılacağı gibi debug ve hash tablo kullanarak yazdığım badnick,reklam ve küfür korumaları.Korumaların çalışabilmesi için kanalda op olmalı veya usermode'larınızda "o" mode'unun olması gerekmektedir.Umarım debug kullanımına ve hash tablolarının kullanımına basit bir örnek olmuştur.

Kullanım şekli:
Kodların çalışması için öncelikle /debug -i on _prots komutunu uyguluyoruz.(debug verilerinin algılanabilmesi için)

/ekle <badnick|reklam|kufur> <eklenecek>
/sil <badnick|reklam|kufur> <silinecek>

Ekleme yaparken wilcard(*) kullanabilirsiniz.
Kayıt dosyaları : badnick.doktrin kufur.doktrin reklam.doktrin

Örn:
/ekle reklam *http*
/sil badnick camda_*

İşte kodlar :

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

on *:start:{
  hmake badnick
  hmake kufur
  hmake reklam
  hload badnick badnick.doktrin
  hload kufur kufur.doktrin
  hload reklam reklam.doktrin
}
alias _prots {
  tokenize 32 $1-
  if ($1 = <-) {
    if ($3 = JOIN) {
      var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
      if $me isop %chan || o isin $usermode {
        if $hfind(badnick,%nick,1,W).data {
          ban -k %chan %nick 2 badnick
        }
      }
    }
    elseif ($3 = PRIVMSG) {
      if ($4 ischan) {
        var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
        if $me isop %chan || o isin $usermode {
          if $hfind(kufur,%text,1,W).data {
            ban -k %chan %nick 2 kufur
          }
          if $hfind(reklam,%text,1,W).data {
            ban -k %chan %nick 2 reklam
          }
        }
      }
    }
  }
}
alias ekle {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /ekle <badnick|kufur|reklam> <eklenecek>  | return }
  if $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek badnicki girmediniz. | return }
    else {
      hadd -m badnick $r(1000,999999) $2
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek küfürü girmediniz. | return }
    else {
      hadd -m kufur $r(1000,999999) $2-
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek reklamı girmediniz. | return }
    else {
      hadd -m reklam $r(1000,999999) $2-
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
    }
  }
}
alias sil {
  if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /sil <badnick|kufur|reklam> <silinecek>  | return }
  if $1 == badnick {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek badnicki girmediniz. | return } 
    if $hfind(badnick,$2,1,W).data {
      hdel badnick $ifmatch
      hsave badnick badnick.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == kufur {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek küfürü girmediniz. | return } 
    if $hfind(kufur,$2,1,W).data {
      hdel kufur $ifmatch
      hsave kufur kufur.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
  elseif $1 == reklam {
    if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek reklamı girmediniz. | return } 
    if $hfind(reklam,$2,1,W).data {
      hdel reklam $ifmatch
      hsave reklam reklam.doktrin
      echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
    }
    else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
  }
}

dediklerini yaptım

/ekle badnick _camda yazdım EKLE Unknown command hatası alıyorum.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Özel ve Kanal Korumaları (Hash)	Doktrin	mIRC Scripting Hazır Kodlar	22	14 Ağustos 2014 20:17
Küfür Reklam Badnick Korumalarina nick'ban atmak ?	olcays	mIRC Scripting Sorunları	5	11 Ekim 2008 20:10
Hash Tables	RedLine	mIRC Scripting Sorunları	1	18 Şubat 2008 19:58
Küfür & Reklam Korumaları	тєαм	mIRC Scripting Hazır Kodlar	7	18 Haziran 2007 17:24
Hash Tables	Utku	mIRC Scripting Dersleri	4	23 Şubat 2006 18:58

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.