İdent Yasaklama Sistemi

AlpereN

Misafir Editör
Katılım
16 Mart 2019
Mesajlar
351
Tepkime puanı
0
Kod:
on *:text:*:#code: {
tokenize 32 $strip($1-)
if ($1 == !ident) {
var %the = ekle / sil / list / toplam / başlat / durdur Seçenekler bunlardır .
if (!$2) { .msg $chan ( $+ $nick $+ ): Hatalı Kullanım , Lütfen doğru seçenek kullanın $qt(%the) $+ . | return }
if (!$istok(%the,$2,32)) { .msg $chan ( $+ $nick $+ ): Hatalı Kullanım , Lütfen doğru seçenek kullanın $qt(%the) $+ . | return }
if ($2 == başlat) || ($2 == açık) {
if (%theident) { .msg $chan ( $+ $nick $+ ): İdent Ban Modülü Başlatıldı . | return }
set %theident 1
.msg $chan ( $+ $nick $+ ): İdent Ban Modülü Başlatıldı .
}
if ($2 == durdur) || ($2 == kapalı) {
if (!%theident) { .msg $chan ( $+ $nick $+ ): İdent Ban Modülü Kapatıldı . | return }
set %theident 0
.msg $chan ( $+ $nick $+ ): İdent Ban Modülü Kapatıldı .
}
if ($2 == ekle) {
if (!$3) { .msg $chan ( $+ $nick $+ ): Hatalı Kullanım : İdent Bulunamadı . | return }
if ($ulist($3,ident,1)) { .msg $chan ( $+ $nick $+ ): Hatalı Kullanım , Bu $qt($3) İdent listede mevcut durumda | return }
.auser ident $3
.msg $chan ( $+ $nick $+ ): The $qt($3) İdent Listeye Başarıyla Eklendi .
}
if ($2 == sil) {
if (!$3) { .msg $chan ( $+ $nick $+ ): Hatalı Kullanım : İdent Bulunamadı . | return }
if (!$ulist($3,ident,1)) { .msg $chan ( $+ $nick $+ ): Hata: $qt($3) İdent listede mevcut değil . | return }
.ruser ident $3
.msg $chan ( $+ $nick $+ ): The $qt($3) İdent listeden başarıyla kaldırıldı .
}
if ($2 == list) {
var %t = $ulist(*,ident,0)
if (!%t) { .msg $chan ( $+ $nick $+ ): İdent listesi boş durumda . | return }
var %i = 1
while (%i <= %t) { .msg $chan ( $+ $nick $+ ): $chr(35) $+ %i -> $ulist(*,ident,%i) | inc %i }
}
if ($2 == toplam) {
var %t = $ulist(*,ident,0)
if (!%t) { .msg $chan ( $+ $nick $+ ): İdent Listesi Boş . }
else { .msg $chan ( $+ $nick $+ ): Listede bulunan ident sayısı : %t . }
 }
}

Uzun bir zamandan sonra bir arkadaşımın istekleri üzerine böyle bir kod yazma kararı aldım kodun işlevini açıklayım size .

on *:text:*:#code: { bu kısımda bulunan #code kanalı sizin komutları uygulayacagınız kanal ismi ile degiştirilebilir .
Mirc modül tarzı yaptıgım bu kodlamada belirtilen identlere cezai işlem uygulayabilmek için hazırlanmış bir kodlamadır .
Uygulanıcak olan komutlar şu şekildedir ;
!ident ekle / sil / list / toplam / başlat / durdur / açık / kapalı
Örnek ; !ident başlat , !ident durdur , !ident açık , !ident kapalı
modülde açma kapama işlemini gerçekleştirir.
!ident ekle ident
eklenecek identi belirttiginizde listeye eklemesini yapar
!ident sil ident
listede mevcut olan bir identi siler .
!ident list
mevcut identlerin listesini yansıtır .
!ident toplam
toplamda bulunan ident sayısını yansıtır .
Not : Ceza tipi olarak bir cezai işlem belirtilmemiştir kodun en alt kısımına cezai işlem yapılacak kodlama entegre edilebilir .
İsteyen kanal için isteyen sunucu girişleri için isteyenler ise spamfilter tarzında bunu entegre olarak kullanabilir .

Coder : The
 
Benzer konular Forum Tarih
T Mirc Scripting 1 248
Bozkurt Mirc Scripting 3 334

Benzer konular

İçerik sağlayıcı "paylaşım" sitelerinden biri olan Harbimekan.Com Forum, Eğlence ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Harbimekan.Com sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için info@harbimekan.com yada iletişim sayfası üzerinden iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 Gün (72 Saat) içerisinde Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.

Bu Site, Bilim ve Sağlık Haber Ajansı Üyesidir.

Yığıntı - 8kez - kaynak mağazam - Uğur Ağdaş