Tekil Mesaj gösterimi
Alt 30 Kasım 2013, 15:25   #10
Çevrimdışı
Shiniori
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug && Hash Tables - Badnick,Reklam,Küfür Korumaları




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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver