IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


mIRC Scripting Hazır Kodlar

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.



4Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Eylül 2017, 17:23   #11
Çevrimdışı
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 20 mesajınız olması gerekir.
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>

!badekle nick
!badsil nick
!muafekle nick
!muafsil nick
şeklinde nasıl yapabiliriz bu kodu?

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Cevapla

Etiketler
andand, badnick, debug, hash, korumasi, kufur, mirc download, mirc indir, reklam, tables

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


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