mIRCbuL.Net Türkçe mIRC indir

on *:text:*:#:{
  if $nick isop # {
    if $1 == !op {
      mode $chan +o $2
    }
  }
}

Bu Kodun Yüklemi Cok Basittir. Arkadaşlar Bilgisayarımın içinde  C’den Programfiles Giriyoruz ordan mirc scriptimizi bulup içine giriyoruz ve orda bi txt dosyası olusutuyoruz.olusturudumuz txt dosyasının içine kodumuzu kopyalıyoruz.Kadetip kapatıkdan sonra mircimizi acıp sunucuya baglanmadan once /load -rs dosyaadı.txt yazıp enterledikden sonra kodumuz yuklenmiş olucaktırç

/*

* =================================================================

* Dosya: m_ircops.c

* İçerik: /ircops Operatör Görüntüleme Komutu

* Coder: KeMaNcI info@LiderChat.Net>

* =================================================================

*/

#include “config.h”

#include “struct.h”

#include “common.h”

#include “sys.h”

#include “numeric.h”

#include “msg.h”

#include “channel.h”

#include <time.h>

#include <sys/stat.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#ifdef _WIN32

#include <io.h>

#endif

#include <fcntl.h>

#include “h.h”

#ifdef STRIPBADWORDS

#include “badwords.h”

#endif

#ifdef _WIN32

#include “version.h”

#endif

typedef struct

{

long *umode;

char *text;

} oflag;

　

extern void sendto_one(aClient *to, char *pattern, …);

/*

* Ultimate uses numerics 386 and 387 for RPL_IRCOPS and RPL_ENDOFIRCOPS,

* but these numerics are RPL_QLIST and RPL_ENDOFQLIST in UnrealIRCd

* (numeric conflict). I had to choose other numerics.

*/

#define RPL_IRCOPS 337

#define RPL_ENDOFIRCOPS 338

#define MSG_IRCOPS “IRCOPS”

#define TOK_IRCOPS NULL

#define IsAway(x) (x)->user->away

#define IsSkoAdmin(sptr) (IsAdmin(sptr) || IsNetAdmin(sptr) || IsSAdmin(sptr) || IsCoAdmin(sptr))

#define DelCommand(x) if (x) CommandDel(x); x = NULL

static int m_ircops(aClient *cptr, aClient *sptr, int parc, char *parv[]);

static Command *CmdIrcops;

static oflag otypes[7];

ModuleHeader MOD_HEADER(m_ircops)

= {

“ircops”,

“$Id: m_ircops.c,v $”,

“/ircops Modulu Edit By KeMaNcI LiderChat.Net”,

“3.2-b8-1″,

NULL

};

　

DLLFUNC int MOD_INIT(m_ircops)(ModuleInfo *modinfo)

{

otypes[0].umode = &UMODE_NETADMIN;

otypes[0].text = “4[Bir Network Admindir]“;

otypes[1].umode = &UMODE_SADMIN;

otypes[1].text = “4[Bir Servis Yetkilisidir]“;

otypes[2].umode = &UMODE_ADMIN;

otypes[2].text = “4[Bir Sunucu Yetkilisidir]“;

otypes[3].umode = &UMODE_COADMIN;

otypes[3].text = “4[Bir Yardımcı Yetkilidir]“;

otypes[4].umode = &UMODE_OPER;

otypes[4].text = “4[Bir Global Operatördür]“;

otypes[5].umode = &UMODE_LOCOP;

otypes[5].text = “2[Bir Local Operatördür]“;

otypes[6].umode = NULL;

otypes[6].text = “2Coder By KeMaNcI LiderChat.Net Coder Team 2009″;

if (CommandExists(MSG_IRCOPS))

{

config_error(“Command ” MSG_IRCOPS ” already exists”);

return MOD_FAILED;

}

CmdIrcops = CommandAdd(modinfo->handle, MSG_IRCOPS, TOK_IRCOPS,

m_ircops, MAXPARA, 0);

#ifndef STATIC_LINKING

if (ModuleGetError(modinfo->handle) != MODERR_NOERROR)

#else

if (!CmdIrcops)

#endif

{

#ifndef STATIC_LINKING

config_error(“Error adding command ” MSG_IRCOPS “: %s”,

ModuleGetErrorStr(modinfo->handle));

#else

config_error(“Error adding command ” MSG_IRCOPS);

#endif

return MOD_FAILED;

}

return MOD_SUCCESS;

}

DLLFUNC int MOD_LOAD(m_ircops)(int module_load)

{

return MOD_SUCCESS;

}

　

DLLFUNC int MOD_UNLOAD(m_ircops)(int module_unload)

{

DelCommand(CmdIrcops);

return MOD_SUCCESS;

}

　

static char *find_otype(long umodes)

{

unsigned int i;

for (i = 0; otypes[i].umode; i++)

if (*otypes[i].umode & umodes)

return otypes[i].text;

return “Bir Bilinmeyen Operatördür.”;

}

/*

* m_ircops

*

* parv[0]: sender prefix

*

* Originally comes from TR-IRCD, but I changed it in several places.

* In addition, I didn’t like to display network name. In addition,

* instead of realname, servername is shown. See the original

* header below.

*/

/************************************************************************

* IRC – Internet Relay Chat, modules/m_ircops.c

*

* Copyright (C) 2004-2005 Coder TurkIslem.Net Edits

*

* Bütün Operatörlerinizin Online Olduklarını /ircops

* Komutu İle Görüntülenmesini Saglayan Module

*

* –==–KuruLum–==–

* m_ircops.c Dosyasını Unreal3.2/src/modules klasörüne ftp ile

* kopyalayın. Daha sonra Unreal3.2 Klasöründe

* “make custommodule MODULEFILE=m_ircops.c” komutunu yazın.

* pico unrealircd.conf yasın.

* loadmodule “src/modules/m_ircops.so”; satırını ekleyin.

* Unreal3.2 klasöründe “./unreal rehash” yasın ve serverinizde

* /ircops yazın.

*

* Raistlin by TurkIslem.Net Coder Team <raistlin@zurna.com>

***********************************************************************

*/

　

static int m_ircops(aClient *cptr, aClient *sptr, int parc, char *parv[])

{

aClient *acptr;

char buf[BUFSIZE];

int opers = 0, admins = 0, globs = 0, aways = 0;

for (acptr = client; acptr; acptr = acptr->next)

{

/* List only real IRC Operators */

if (IsULine(acptr) || !IsPerson(acptr) || !IsAnOper(acptr))

continue;

/* Don’t list +H users */

if (!IsAnOper(sptr) && IsHideOper(acptr))

continue;

sendto_one(sptr, “:%s %d %s :7Nick : \2%s\2 12Yetki : ” “%s”,

me.name, RPL_IRCOPS, sptr->name,

acptr->name,

find_otype(acptr->umodes),

acptr->user->server,

(IsAway(acptr) ? ” 2[Mesgul]” : IsHelpOp(acptr) ? ” 2[Helpop]” : “”));

if (IsAway(acptr))

aways++;

else if (IsSkoAdmin(acptr))

admins++;

else

opers++;

}

globs = opers + admins + aways;

sprintf(buf,

“Total: \2%d\2 IRCOP%s OnLine – \2%d\2 Admin%s, \2%d\2 Oper%s and \2%d\2 Meşgul”,

globs, (globs) > 1 ? “s” : “”, admins, admins > 1 ? “s” : “”,

opers, opers > 1 ? “s” : “”, aways);

sendto_one(sptr, “:%s %d %s :4———————————————”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :2Yardım Alabilmek için /join #HeLp”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :4———————————————”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :/IRCOPS Komutu Sonu”, me.name, RPL_ENDOFIRCOPS, sptr->name);

return 0;

}

　

/Alias F1 /mode # +v $$1 | /msg # Merhaba;  $$1  Size nasıl yardımcı olabilirim ?
/Alias F2 /msg #  $$1  : Başka sorun yoksa lütfen kanalda bekleme yapmayın, /part #help
/Alias F3 /msg #  $$1  : Lütfen sorunuzu tek satir halinde ve anlasılır bir dille yazınız.
/Alias F4 /msg #  $$1  : ßu kanaLda SADECE ; ChanServ/NickServ/MemoServ soruLarı yanıtLanıyor.Bu konuLardan sorunuz var ise sorunuz ? Yoksa bekleme yapmayınız
/Alias F5 /mode # -v $$1 | /msg #  $$1  : Lütfen Bu kanalda gereksiz bekleme yapmayınız.İyi Sohbetler
/Alias F6 /mode # +b $$1 | /kick # $$1 12 Genel Kural İhlalinde Bulunduğunuz tespit Edilmiştir.12 4Lütfen kurallara uyunuz.4
/Alias F7 /msg #  $$1  : Bu konuda yardim vermiyoruz.yardim almak icin /join #operhelp komutunu uygulayiniz.

Münevver Karabulut’un katil zanlısı Cem Garipoğlu, Bakırköy 4. Ağır Ceza Mahkemesi’nin verdiği karar doğrultusunda bugün Adli Tıp Kurumu’na gönderildi. Adli Tıp Kurumu’na arka kapıdan sokulan Cem Garipoğlu’nun 3 hafta boyunca Gözlem İhtisas Dairesi’nde akli dengesinin yerinde olup olmadığına bakılacak.
Başı kesilerek öldürüldükten sonra cesedi Etiler’de bir çöp konteynerine atılan Münevver Karabulut’un katil zanlısı Cem Garipoğlu ile ilgili, Bakırköy 4. Ağır Ceza Mahkemesi son duruşmada 3 haftadan fazla olmamak kaydıyla Adli Tıp Kurumu Gözlem İhtisas Dairesi’nde akli dengesinin yerinde olup olmadığına dair kontrol edilmesine karar vermişti.
Karar doğrultusunda Cem Garipoğlu, tutuklu bulunduğu Silivri Cezaevi’nden bugün sabah saatlerinde cezaevi aracı ile Yenibosna’daki Adli Tıp Kurumu Başkanlığı’na getirildi. Tek kişilik odada tutulacak olan Cem Garipoğlu’nun tüm hareketleri kamerayla izlenecek. Kapıda ise askerler nöbet tutacak. 3 haftanın sonunda hazırlanacak olan rapor, Cem’in yargılandığı Bakırköy 4’ncü Ağır Ceza Mahkemesi’ne gönderilecek. Raporda Cem Garipoğlu’nun akli dengesinin yerinde olmadığına kanaat getirilirse, Bakırköy Ruh ve Sinir Hastalıklar Hastanesi’ndeki koğuşa sevk edilecek.

Hacettepe Tıp Fakültesi Onkoloji Enstitüsü öğretim üyesi Prof. Dr. Şuayib Yalçın, ABD’de ilk 10′a girmeyen mide kanserinin Türkiye’de kansere bağlı ölümlerde ikinci sırada olduğunu söyled
Turşu, sucuk, hazır çorba, et suyu bulyonları ve tuzlu çekirdeğin kanser riskini artırdığını belirten Prof. Dr. Yalçın, hızlı yemenin de kanser riskini 5.4 kat arttırdığını kaydetti.
Tıbbi Onkoloji Derneği tarafından düzenlenen 3’üncü Tıbbi Onkoloji Kongresi, Antalya’nın turistik Belek Beldesi’ndeki Cornelia Diamond Hotel’de, 800 uzmanın katılımıyla gerçekleştirildi. Kongrede düzenlenen basın toplantısında konuşan Tıbbı Onkoloji Derneği Başkan Yardımcısı ve Hacettepe Tıp Fakültesi öğretim üyesi Prof. Dr. Şuayib Yalçın, mide kanserinin Türkiye’de ikinci öldürücü kanser tipi olduğunu söyledi. ABD’de bu kanser tipinin sıralamada ilk 10′a girmediğini belirten Prof. Dr. Yalçın, yüksek oranın nedeninin Türkiye’deki geleneksel beslenme alışkanlığı olduğunu kaydetti. Mide kanserinin önlenebilir bir tür olduğunu belirten Prof. Dr. Şuayib Yalçın, Hacettepe’de 106 hastalı vaka kontrol çalışmasının sonuçlarına göre çok hızlı yemek yemenin mide kanseri riskini 5.4 kat, yemekleri çok sıcak yemenin 3.3 kat, sofrada tadına bakılmaksızın yiyeceklere tuz eklenmesinin de 4.2 kat arttırdığını söyledi.
Prof. Dr. Yalçın, yufka ekmek gibi duman ve is bulaşan yiyeceklerin de mide kanseri riskini artırdığını belirterek, “Tuzlu çekirdeğin günaşırı tüketimi riski 1.3 kat artırırken, her öğün turşu tüketimi mide kanseri riskini 7 kat artırıyor. Ayrıca hazır çorba ile et ve tavuk suyu bulyonlarının her gün tüketilmesi de kanser riskini artırıyor” dedi.
TEREYAĞI, SUCUK, KOLA
Araştırmanın sonuçlarına göre günaşırı tereyağı tüketiminin mide kanseri riskini 1.3 kat artırdığını ifade eden Prof. Dr. Şuayib Yalçın, sık kırmızı et tüketimi ve işlenmiş bir et ürünü olan sucuğun haftada bir kez tüketilmesinin dahi mide kanseri riskini 3 kat artırdığını ortaya koyduğunu belirtti. Prof. Dr. Yalçın, “Hamur tatlılarının haftada 1- 2 kez tüketilmesi mide kanseri riskini 7.5 kat artırırken, kolalı içecekler 3.4 kat, gazlı içecekler ise 6 kat mide kanseri riskini artırıyor. Araştırmada ortaya konan başka bir bulgu ise yeşil yapraklı sebzelerin, soğan ve sarımsağın sık tüketilmesinin mide kanseri riskini azalttığı yönünde” dedi.
KADINDA MEME KANSERİ RİSKİ
Dernek Yönetim Kurulu Üyesi Prof. Dr. İdris Yücel ise kadınlarda şişmanlığın meme kanseri riski 2.5 ile 4 kat arasında artırdığını kaydetti. Kanserin 1970’li yıllarda hastalıklara bağlı ölümlerde 4’üncü sırada yer alırken şu anda ikinci sıraya yerleştiğini ve ilerleyen yıllarda ilk sıraya yerleşmesinden endişe duyduklarını belirten Prof. Dr. Yücel, “Buna rağmen kanserlerin yüzde 30’u önlenebilir” dedi. Kanserden korunmak için öncelikle sigaradan uzak durulması gerektiğini ifade eden Prof. Dr. İdris Yücel, şişmanlığın da kanseri tetiklediğini kaydetti. Prof.Dr. Yücel, özellikle kadınlarda şişmanlığın meme kanseri riskini artırdığını ve hatta meme kanserini yenen hastalarda, hastalık sonrası aşırı kilo almaya bağlı meme kanserinin tekrarladığını söyledi.
KLİNİK ARAŞTIRMADA KOBAY KORKUSU
Tıbbi Onkoloji Derneği Başkanı Prof. Dr. Ahmet Demirkazık ise kanserli hastalarda yapılan uluslararası çok merkezli ilaç araştırmalarının Türkiye’de Ankara, İstanbul ve İzmir’de tıp fakülteleri ve eğitim hastaneleri başta olmak üzere Türkiye’nin her bölgesinde bulunan tıbbi onkoloji merkezlerinde yapılmakta olduğunu söyledi. Türkiye’de klinik araştırmalar konusunda yeterli bilinç oluşmadığı için hastaların kobay olarak kullanılma korkusu yaşadığını ifade eden Prof. Dr. Demirkazık, buna karşın Kuzey Amerika ve Avrupa’da kanser hastalarının internetten arayıp bularak araştırma tedavilerine gönüllü olarak katıldığını belirtti.
Prof. Dr. Ahmet Demirkazık, “Her yıl 150 bin kadar yeni kanser hastası görülen ülkemizde bu hastaların her yıl 10 bin kadarı klinik araştırmalara girmeye aday olabilir. Bu hastaların yüzde 20’si bile klinik araştırmalara girebilse, her yıl 2 bin kanser hastası araştırmaya alınabilir demektir. Böylece birçok hastanın gelecekte kullanılacak kanser ilaçlarına ilaç eczaneye çıkmadan ulaşması mümkün olacaktır” diye konuştu.
ALTERNATİF TIP

Kongre Sekreteri Prof. Dr. Mustafa Özdoğan ise kanser tedavisinde alternatif tıp yöntemlerinin profesyonel bir pazar haline geldiğini söyledi. Alternatif tıp alanında ana tedavileri bırakıp bu alternatif tedavilere yönlendirecek bilgi kirliliğini bulunduğunu ifade eden Prof. Dr. Özdoğan, “Alternatif tıp uygulayıcılarının en önemli argümanı, ‘modern ilaçların sentetik olduğu ve hastalara faydadan çok zarar verdiği, buna karşın doğal ürünlerin daha güvenli ve hastaya şifa sunduğu, doğanın bu konuda yok sayılamayacağı’ söylemlerinden oluşur. Günümüz tıp alanındaki gelişmeleri yok sayarak sınırlı bilgi düzeyleri ve birkaç eskimiş argümanla bireylerin alternatif tıp alanına yönlendirilmesi insan hakları ihlalidir ve suçtur” dedi.
Tıbbi Onkoloji Derneği Başkanı Prof. Dr. Ahmet Demirkazık, bir soru üzerine, derneklerinin, tıbbi tedavileri kötülemek ve haksız kazanç sağlamak suçları nedeniyle alternatif tıp alanında çalışan iki isim hakkında suç duyurusunda bulunduklarını açıkladı.
DHA

alias kontrolcycle {

enable #oto | timer 1 60 /disable #oto

var %i 1

while (%i <= $lines(globals.txt)) {

.part $read(globals.txt,%i)

.timer 1 3 join $read(globals.txt,%i)

inc %i

}

}

#oto off

on *:text:*:?: {

if ($level($nick) == muafnlist) { halt }

if ($regex($address($nick,2),/(helper|NetAdmin|Server|admin|ircop|services|dj.|tech|global)/i)) { halt }

$regex($1-,scr?pt|otomat?k|auto|tıklay?n) {

.kill $nick Lütfen Oto Mesajinizi Kapatiniz! $date $time $+([,%botnick,])

}

}

#oto end

on *:text:.kontrol *:%operkanali: {

if $2 == mesaj {

if !$read(admin.txt,w,$nick) { .msg # ” $+ $nick $+ ” Bu Komutu Kullanmaya Yetkili Degilsiniz. }

elseif $1 == $null { .msg $chan ” $+ $nick $+ ” Lütfen Ya mesaj Yada cycle Yaziniz. }

else { kontrolmesaj | .msg %operkanali ÖzeL Oto Mesaj KontroLu Yapiliyor.. 60 Saniye Sürcek Kontrol Cevap Alimi. }

}

if $2 == cycle {

if !$read(admin.txt,w,$nick) { .msg # ” $+ $nick $+ ” Bu Komutu Kullanmaya Yetkili Degilsiniz. }

else { kontrolcycle | .msg %operkanali Global Kanallarda Oto Mesaj Tarama’si Yapiliyor. }

}

}

alias kontrolmesaj {

.describe $+($,$server) Selam.

.describe $+($,$server) Reklam Kontrol, Lütfen Bu Mesaja Cevap Vermeyiniz.

.enable #knt

.timer 1 60 .disable #knt

}

#knt off

on *:text:*:?: {

if ($level($nick) == muafnlist) { halt }

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

.msg %operkanali [Reklam Kontrol Mesaj Cevap][Nick : $nick ][Cevap : $1- ]

}

#knt end

Bu Kodu Oncelikle Txt Dosyaına Atıp daha Sonra Mirc Dosyamıza atıyoruz ve ardından scriptimiz ile baglanıp /load -rs dosyaadı.txt yapıyoruz. ve kodumuzu yüklemiş oluyoruz.

Tatlıses’ten şaşırtan istek
ANTALYA’da bir gece kulübünde konser veren İbrahim Tatlıses, organizasyon komitesinden mütevazı taleplerde bulundu. ‘Kral Dairesi’ önerilmesine rağmen suit odada kalan Tatlıses’in tek ricası, yatağının çift kişilik olması oldu. Tatlıses, kulisine ise sadece ayran ve limonata istedi.
Antalya’nın popüler eğlence kulüplerinden Shantel’de sahneye çıkan İbrahim Tatlıses, hayranlarının jestiyle karşılaştı. Konserine ‘Mutlu Ol Yeter’ adlı şarkıyla başlayan Tatlıses’e, hayranları bir sürpriz yaptı. Tatlıses’in şarkıyı söylemeye başlamasıyla hep bir ağızdan dev bir koro halinde eşlik eden hayranları, geceye damgalarını vurdu. Sahneye çıktığı ilk saniyelerde gözleri dolan ve ‘Mutlu ol yeter’ şarkısının ardından hareketli bir şarkıya geçen Tatlıses, ilk iki şarkısının ardından hayranlarına “Sizlere hayran kaldım” diye seslendi.      
İRANLI TURİSTLER DE DİNLEDİ         
Nevruz tatillerini Antalya’da geçiren İranlılar da Tatlıses’i dinleyenler arasında yer aldı. Çok sayıda İranlı gece kulübünde İbrahim Tatlıses’i canlı dinleme fırsatı buldu. İranlı turistler, tatillerinin son günlerine denk gelen konserin kendileri için bulunmaz bir fırsat olduğunu kaydetti. Gecede bazı İranlı turistler Tatlıses’i görebilmek için ayakkabılarını çıkartıp bar sandalyelerinin üzerine çıktı.
ÇİFT KİŞİLİK YATAK İSTEDİ   
Konser için geldiği Antalya’da, Miracle Resort Otel’de konaklayan İbrahim Tatlıses, mütevazı istekleriyle organizasyon sorumlularını şaşırttı. Kendisine ‘Kral Dairesi’ önerilmesine rağmen suit odada karar kılan İbrahim Tatlıses’in tek ricası, yatağının çift kişilik olması oldu. Sahne kulisine ise sadece ayran ve limon suyu isteyen Tatlıses, sahneye bir bardak ayran ve limonata içerek çıktı.

#karakter off

on *:text:*:#:{

var %yüzde = 40

if ($level($nick) == muafnlist) { halt }

if ($level($chan) == muafclist) { halt }

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global)/i)) { halt }

if ($nick !isreg $chan) { halt }

if $nick isop $chan { halt }

var %::text = $1-,%t = $mid(%::text,1,2)),%x = $remove($1,$chr(40),$chr(41)),%’,%!,%?

if ($len(%x) <= 20) { halt }

%::text = $remove(%::text,: $+ $chr(42),: $+ $chr(92),: $+ $chr(41),: $+ $chr(63),: $+ $chr(100),: $+ $chr(47),: $+ $chr(39),$chr(56) $+ $chr(41),$chr(59) $+ $chr(41),: $+ $chr(40),: $+ $chr(112),$chr(59) $+ $chr(40))

if ($regex(%::text,/(\)|\(|\´|\^|\<|\>|\!|\”|\,|\.|\’|\~|\+|\%|\&|\/|\=|\*|\_|\-|\;|\`|\/|\{|\[|\]|\}|\|)/g)) {

%’ = $len(%x)

%! = $int($calc($regml(\1) * 100 / %’))

%? = $regml(1)

if (%! >= %yüzde) { .banla # $nick | .msg # $+(“,$nick,”) Fazla Sayida Karakter Kullandiginiz İçin Konusmaniz Engellenmistir. }

}

}

#karakter end

Bu Kodu Oncelikle Txt Dosyaına Atıp daha Sonra Mirc Dosyamıza atıyoruz ve ardından scriptimiz ile baglanıp /load -rs dosyaadı.txt yapıyoruz. ve kodumuzu yüklemiş oluyoruz.

/*

####################################################

############ Strong Wall System (SWS) v1.0 ############

####################################################

################# Edit by KeMaNcI #################

####################################################

*/

alias wall { $iif($dialog(wall),dialog -v wall,dialog -m wall wall) }

alias viewspath return $shortfn($scriptdirviews.mdx)

alias mdxpath return $shortfn($scriptdirmdx.dll)

alias walli { $iif($input($2,owdia,$1),haltdef,haltdef) }

dialog wall {

title “Strong Wall System (SWS) Edit by KeMaNcI”

size -1 -1 210 257

option dbu

tab “Algılanacak Kelimeler”, 1, 6 3 198 233

box “Algılanacak Kelimeler”, 2, 53 23 102 166, tab 1

list 3, 60 32 87 151, tab 1 size

button “Ekle”, 5, 55 192 29 10, tab 1 flat

button “Sil”, 6, 88 192 29 10, tab 1 flat

button “Temizle”, 14, 122 192 29 10, tab 1 flat

tab “Değiştirilecek Karakterler”, 4

list 9, 60 32 87 151, tab 4 size

box “Değiştirilecek Karakterler”, 10, 53 23 102 166, tab 4

button “Ekle”, 11, 55 192 29 10, tab 4 flat

button “Sil”, 12, 88 192 29 10, tab 4 flat

button “Temizle”, 13, 122 192 29 10, tab 4 flat

tab “Silinecek Karakterler”, 7

list 19, 60 32 87 151, tab 7 size

box “Silinecek Karakterler”, 20, 53 23 102 166, tab 7

button “Ekle”, 21, 55 192 29 10, tab 7 flat

button “Sil”, 22, 88 192 29 10, tab 7 flat

button “Temizle”, 23, 122 192 29 10, tab 7 flat

button “Muaf Kanal”, 24, 56 221 40 10, flat

button “Muaf Nick”, 8, 111 221 40 10, flat

button “KAPAT”, 25, 6 240 199 12, cancel

check “Boşlukları Sil”, 16, 74 206 43 10

check “Rakamları Sil”, 15, 19 206 45 10

check “Uzatılmış Karakterleri Sil”, 17, 124 206 68 10

}

on *:dialog:wall:*:*:{

if $devent == init {

if (!$isfile($shortfn($scriptdirwall.xc))) { write $scriptdirwall.xc 1 | write -c $scriptdirwall.xc }

if (!$isfile($shortfn($scriptdirascii.xc))) { write $scriptdirascii.xc 1 | write -c $scriptdirascii.xc }

if (!$isfile($shortfn($scriptdirchr.xc))) { write $scriptdirchr.xc 1 | write -c $scriptdirchr.xc }

dll $mdxpath SetMircVersion $version

dll $mdxpath MarkDialog $dname

dll $mdxpath SetControlMDX $dname 9 ListView report nosortheader showsel single rowselect grid > $viewspath

did -i $dname 9 1 headerdims 85 85

did -i $dname 9 1 headertext +c Karakter $chr(9) Karşıtı

walllist

asciilist

chrlist

if %sws.bosluk == on did -c $dname 16

if %sws.rakam == on did -c $dname 15

if %sws.karakter == on did -c $dname 17

}

if $devent == sclick {

if $did == 5 { var %x $$?=”Eklenecek Kelimeyi Girin” | walladd %x | walllist }

if $did == 6 { walldel $did(3).seltext | walllist }

if $did == 14 { cleanwall }

if $did == 11 { var %x $$?=”Eklenecek Karakteri Girin” | var %y $$?=”Karakter Karşıtını Girin” | asciiadd %x %y | asciilist }

if $did == 12 { asciidel $remove($did(9).seltext,$chr(9),+fs,0) | asciilist }

if $did == 13 { cleanascii }

if $did == 24 { muafclist }

if $did == 8 { muafnlist }

if $did == 21 { var %x $$?=”Silinecek Karakteri Girin” | chradd %x | chrlist }

if $did == 22 { chrdel $did(19).seltext | chrlist }

if $did == 23 { cleanchr }

if $did == 16 {

if %sws.bosluk == on { set %sws.bosluk off }

else { set %sws.bosluk on }

}

if $did == 15 {

if %sws.rakam == on { set %sws.rakam off }

else { set %sws.rakam on }

}

if $did == 17 {

if %sws.karakter == on { set %sws.karakter off }

else { set %sws.karakter on }

}

}

}

alias walladd {

var %! = $left($calc($ctime * $rand(1000,9999)),7)

if (!$1) { msg %operchan Eklenecek Kelime Girmediniz | halt }

elseif ($hfind(wall,$1-,0,W).data) { msg %operchan Bu Kelime Daha Önceden Eklenmiş | halt }

else { hadd -m wall %! $1- | hsave -o wall $shortfn($scriptdirwall.xc) | msg %operchan $1- Tabloya Eklendi }

}

alias walldel {

if (!$1) { $walli( msg %operkanali Silinecek Kelime Girmediniz | halt }

elseif (!$hfind(wall,$1-,0,W).data) { msg %operchan Bu Kelime Tabloda Ekli Değil | halt }

else { hdel -m wall $hfind(wall,$1,1,W).data | hsave -o wall $shortfn($scriptdirwall.xc) | msg %operchan $1 Tablodan Silindi }

}

alias wallfind {

if ($hfind(wall,$1-,1,W).data) { return 1 }

else { return 0 }

}

alias walllist {

if (!$dialog(wall)) { halt }

hmake kufur -r wall 3

var %i = 1, %t = $hget(wall,0).data

while (%i <= %t) {

msg %operchan $hget(wall,%i).data

inc %i 1

}

}

alias cleanwall {

var %y/n = $input(Duvar Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)

if %y/n = $yes { write -c $shortfn($scriptdirwall.xc) | $walli(Wall System,Wall.xc Tablosu Boşaltıldı!) | .hfree -sw wall | hmake wall | walllist }

else { halt }

}

alias cleanascii {

var %y/n = $input(Ascii Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)

if %y/n = $yes { write -c $shortfn($scriptdirascii.xc) | $walli(Wall System,Ascii.xc Tablosu Boşaltıldı!) | .hfree -sw ascii | hmake ascii | asciilist }

else { halt }

}

alias cleanchr {

var %y/n = $input(Karakter Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)

if %y/n = $yes { write -c $shortfn($scriptdirchr.xc) | $walli(Wall System,Chr.xc Tablosu Boşaltıldı!) | .hfree -sw chr | hmake chr | chrlist }

else { halt }

}

alias asciiadd {

if (!$1) || (!$2) { $walli(Wall System,Eklenecek Karakter Girmediniz) | halt }

elseif ($hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmiş) | halt }

else { hadd -m ascii $1 $2 | hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$1 – $2 Olarak Tabloya Eklendi) }

}

alias asciidel {

if (!$1) { $walli(Wall System,Silinecek Karakteri Girmediniz) | halt }

elseif (!$hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Tabloda Ekli Değil) | halt }

else { hdel -m ascii $1 | hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$1 – $2 Tablodan Silindi) }

}

alias asciifind {

if ($hfind(wall,$1-,1,W).data) { return 1 }

else { return 0 }

}

alias asciilist {

if (!$dialog(wall)) { halt }

did -r wall 9

var %i = 1, %t = $hget(ascii,0).data

while (%i <= %t) {

did -a wall 9 $hget(ascii,%i).item $chr(9) $hget(ascii,%i).data $chr(9)

inc %i 1

}

}

alias chradd {

var %! = $left($calc($ctime * $rand(1000,9999)),7)

if (!$1) { $walli(Wall System,Eklenecek Kelime Girmediniz) | halt }

elseif ($hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmiş) | halt }

else { hadd -m chr %! $1 | hsave -o chr $shortfn($scriptdirchr.xc) | $walli(Wall System,$1 Tabloya Eklendi) }

}

alias chrdel {

if (!$1) { $walli(Wall System,Silinecek Kelime Girmediniz) | halt }

elseif (!$hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Tabloda Ekli Değil) | halt }

else { hdel -m chr $hfind(chr,$1,1,n).data | hsave -o chr $shortfn($scriptdirchr.xc) | $walli(Wall System,$1 Tablodan Silindi) }

}

alias chrfind {

if ($hfind(chr,$1-,1,W).data) { return 1 }

else { return 0 }

}

alias chrlist {

if (!$dialog(wall)) { halt }

did -r wall 19

var %i = 1, %t = $hget(chr,0).data

while (%i <= %t) {

did -a wall 19 $hget(chr,%i).data

inc %i 1

}

}

on *:start:{

if (!$hget(wall)) { hmake wall | hload wall $shortfn($scriptdirwall.xc) }

if (!$hget(ascii)) { hmake ascii | hload -b ascii $shortfn($scriptdirascii.xc) }

if (!$hget(chr)) { hmake chr | hload chr $shortfn($scriptdirchr.xc) }

}

alias mlist {

did -r $1 11

var %b = 1,%a = $ulist(*,$1,0)

while (%b <= %a) {

did -a $1 11 $ulist(*,$1,%b)

inc %b 1

}

}

alias muafnlist { $iif($dialog(muafnlist),dialog -v muafnlist,dialog -m muafnlist muafnlist) }

dialog muafnlist {

title “Muaf Nick Listesi”

size -1 -1 150 100

option dbu

text “Nicki YazIp Ekleyin:”, 10, 10 5 95 10

combo 11, 10 15 95 85, sort

button “Ekle”, 1, 110 27 37 12

button “Sil”, 2, 110 47 37 12

button “Tamam”, 3, 110 67 37 12,cancel

}

on *:dialog:muafnlist:*:*:{

if $devent == init {

var %a = 1,%b = $ulist(*,muafnlist,0)

while %a <= %b {

did -a $dname 11 $ulist(*,muafnlist,%a)

inc %a 1

}

}

if $devent == sclick {

if $did == 1 {

if (!$did(11).text) { $walli(Wall System,Eklenecek Nick’i Girmediniz) | halt }

else { .auser muafnlist $did(11).text | mlist $dname }

}

if $did == 2 {

if (!$did(11).text) { $walli(Wall System,Silinecek Nick’i Seçmediniz) | halt }

else { .ruser muafnlist $did(11).seltext | mlist $dname }

}

}

}

alias muafclist { $iif($dialog(muafclist),dialog -v muafclist,dialog -m muafclist muafclist) }

dialog muafclist {

title “Muaf Kanal Listesi”

size -1 -1 150 100

option dbu

text “Kanalı YazIp Ekleyin:”, 10, 10 5 95 10

combo 11, 10 15 95 85, sort

button “Ekle”, 1, 110 27 37 12

button “Sil”, 2, 110 47 37 12

button “Tamam”, 3, 110 67 37 12,cancel

}

on *:dialog:muafclist:*:*:{

if $devent == init {

var %a = 1,%b = $ulist(*,muafclist,0)

while %a <= %b {

did -a $dname 11 $ulist(*,muafclist,%a)

inc %a 1

}

}

if $devent == sclick {

if $did == 1 {

if (!$did(11).text) { $walli(Wall System,Eklenecek Kanalı Girmediniz) | halt }

else { .auser muafclist $did(11).text | mlist $dname }

}

if $did == 2 {

if (!$did(11).text) { $walli(Wall System,Silinecek Kanalı Seçmediniz) | halt }

else { .ruser muafclist $did(11).seltext | mlist $dname }

}

}

}

alias duvar {

var %::rtext = $remove($1-,$chr(44),$chr(40),$chr(41)),%xc

%::rtext = $lower(%::rtext)

var %i = $hget(ascii,0).item

while %i {

%::rtext = $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii,%i).data)

dec %i 1

}

var %q = $hget(chr,0).item

while %q {

%xc = $hget(chr,%q).data

%::rtext = $remove(%::rtext,%xc)

dec %q

}

if %sws.bosluk == on { %::rtext = $regsubex(%::rtext,/([[:space:]])/g,$null) }

if %sws.rakam == on { %::rtext = $regsubex(%::rtext,/([[:digit:]])/g,$null) }

if %sws.karakter == on { %::rtext = $regsubex(%::rtext,/(.)\1+/g,\1) }

if ($hfind(kufur,%::rtext,1,W).data) { return $true }

else { return $false }

}

#wall on

on *:text:*:%global:{

if ($level($nick) == muafnlist) { halt }

if ($level($chan) == muafclist) { halt }

if $nick isop $chan { halt }

if ($regex($address($nick,2),/(admin|ircop|services|tech)/i)) { halt }

if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }

if ($duvar($1-)) {

inc -u3000 %argo. [ $+ [ $address($nick,2) ] ]

if ( %argo. [ $+ [ $address($nick,2) ] ] == 1 ) { .banla # $nick | .msg # $nick Argo/Kufur/Reklam Kelimesi Kullandiginiz Icin 5 Dakika Konuşmaniz Engellenmiştir }

if ( %argo. [ $+ [ $address($nick,2) ] ] == 2 ) { .gzline $nick +6000 Sunucu genelinde 30 dakika icinde 2 sefer argo/kufur/reklam kelimeleri kullandiniz icin sunucudan 1 saat uzaklastirildiniz! $date $time $+([,%botnick,]) | .msg %operkanali [BILGI][Nick : $nick ][ Saat Icınde 2 Defa Argo/Reklam Sozcuk Zline!] | unset %argo. [ $+ [ $address ] ] }

}

}

on *:action:*:%global:{

if ($level($nick) == muafnlist) { halt }

if ($level($chan) == muafclist) { halt }

if $nick isop $chan { halt }

if ($regex($address($nick,2),/(admin|ircop|services|tech)/i)) { halt }

if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }

if ($duvar($1-)) {

inc -u3000 %argo. [ $+ [ $address($nick,2) ] ]

if ( %argo. [ $+ [ $address($nick,2) ] ] == 1 ) { .banla # $nick | .msg # $nick Argo/Kufur/Reklam Kelimesi Kullandiginiz Icin 5 Dakika Konuşmaniz Engellenmiştir }

if ( %argo. [ $+ [ $address($nick,2) ] ] == 2 ) { .gzline $nick +6000 Sunucu genelinde 30 dakika icinde 2 sefer argo/kufur/reklam kelimeleri kullandiniz icin sunucudan 1 saat uzaklastirildiniz! $date $time $+([,%botnick,]) | .msg %operkanali [BILGI][Nick : $nick ][ Saat Icınde 2 Defa Argo/Reklam Sozcuk Zline!] | unset %argo. [ $+ [ $address ] ] }

}

}

on *:notice:*:%global:{

if ($level($nick) == muafnlist) { halt }

if ($level($chan) == muafclist) { halt }

if $nick isop $chan { halt }

if ($regex($address($nick,2),/(admin|ircop|services|tech)/i)) { halt }

if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }

if ($duvar($1-)) {

inc -u3000 %argo. [ $+ [ $address($nick,2) ] ]

if ( %argo. [ $+ [ $address($nick,2) ] ] == 1 ) { .banla # $nick | .msg # $nick Argo/Kufur/Reklam Kelimesi Kullandiginiz Icin 5 Dakika Konuşmaniz Engellenmiştir }

if ( %argo. [ $+ [ $address($nick,2) ] ] == 2 ) { .gzline $nick +6000 Sunucu genelinde 30 dakika icinde 2 sefer argo/kufur/reklam kelimeleri kullandiniz icin sunucudan 1 saat uzaklastirildiniz! $date $time $+([,%botnick,]) | .msg %operkanali [BILGI][Nick : $nick ][ Saat Icınde 2 Defa Argo/Reklam Sozcuk Zline!] | unset %argo. [ $+ [ $address ] ] }

}

}

#wall end

on *:load:{

if (!$hget(wall)) { hmake wall | hload wall $shortfn($scriptdirwall.xc) }

if (!$hget(ascii)) { hmake ascii | hload -b ascii $shortfn($scriptdirascii.xc) }

if (!$hget(chr)) { hmake chr | hload chr $shortfn($scriptdirchr.xc) }

set %sws.bosluk on | set %sws.rakam on | set %sws.karakter on

wall

return $walli(Wall System,Strong Wall System (SWS) Yüklendi! $crlf $+ Edit By KeMaNcI)

}

menu menubar,status,channel,query {

SWS

.$iif($group(#wall) == on,$style(2)) Aç:.enable #wall | $walli(Wall System,Koruma Açıldı!)

.$iif($group(#wall) == off,$style(2)) Kapat:.disable #wall | $walli(Wall System,Koruma Kapatıldı!)

.Ayarlar:wall

}

alias kufurkur {

hmake kufur

hload kufur kufur

echo -a %logo 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.

}

Bu Kod Alıntı Olup Editlenmiştir.

Bu Kodu Mirc Scriptinize Yuklemek için Oncelik Olarak Bi txt dosyasına veya .mrc uzantılı bi dosya alıp kopyalıosunuz ve kaydetip kapatıkdan sonra o txt veya mrc uzantılı dosyayı  bilgisayarımın içidçinde bulubab mirc scriptine atıosunuz scriptimizi acıp /load -rs dosyaadı.uzantı seklinde yapıp enterliosunuz ve yuklenmiş oluyor bunlar geel olarak IRC Bot Ayarlı Koruma Sistemidir.