Tekil Mesaj gösterimi
Alt 05 Kasım 2009, 17:20   #1
Çevrimdışı
Doktrin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Debug && Hash Tables - Badnick,Reklam,Küfür Korumaları




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 } } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver