Debug Hash Tables – Badnick,Reklam Küfür Korumaları
Yazan: Doktrin
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 :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
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 } } } |
önceki yazımızda « Sondakika bulten bildirim makelemiz var.
165
yorum yok 
EtiketlerDebug Hash Tables – Badnick,Reklam Küfür Korumaları İle Benzer Sohbet Yazıları
Debug Hash Tables – Badnick,Reklam Küfür Korumaları yazına yapılan yorumlar