Program Adı: Kelebek Script®

Versiyon: v.eLite

Kategori: Internet / Sohbet / Eğlence

Üretici Firma: Klavye Bilgisayar (KBSC)

Üretici Firma URL: KBSC - Klavye Bilgisayar Script Coders

Lisans: Shareware (Ücretsiz)

System: Windows 2000/2003/XP/Vista

Dosya Boyutu: 4.65 mb

Download Adresi:

http://eliteupdate.kelebek.gen.tr/ozel/kelebek11.rar


Açıklama: Kelebek Script® v.eLite , çağın gereksinimlerini, isteklerini en iyi şekilde

karşılamak amacıyla, mIRC mantığını aşmamaya özen gösterilerek tasarlanmıştır. Kelebek

Script® v.eLite bir çok virüs taramasından geçirilmiş ve herhangi bir sorun vermemiştir.

Defalarca beta sürümleri çıkartılarak birçok testera farklı kategorilerde teste tabi

tutulmuş ve düzenlenmeye çalışılmıştır. KBSC olarak siz değerli sohbet severlere en kaliteli

hizmeti sunmaya devam edeceğiz. Kelebek Script® v.eLite içerisinde alıntı codeler'de

bulunmaktadır. Bununla ilgili detaylı bilgiyi, Code bilgilendirme menüsünde bulabilirsiniz.

Kelebek Script® Tescilli bir marka olup, download adresi sadece

Kelebek.Gen.TR - Kelebek Script Download Merkezi ve Kelebek Script® - Kelebek Script Türkiye - Software Official Site den yapılmalıdır. Tüm

mIRC kullanıcılarının bunlara dikkat etmesini güvenlikleri sebebiyle önemle rica ederiz.

Scriptin Özellikleri:

*** Öne Çıkan Belirgin Nitelikler
- v.eLite - Kolay Kullanım Özelliğine sahip, Koruma ve Ayarlar Paneli
- v.eLite - Windows Başlat Menüsü Sistemi gibi, v.eLite Başlat Sistemi
- v.eLite - MSN Tip, Smiley Sistemi
- v.eLite - MSN Tip, Emoticon (Göz kırpmaları) Sistemi
- v.eLite - MSN Tip, Titreşim Sistemi
- v.eLite - MSN Tip, Notification Sistemi
- v.eLite - MSN Tip, Winampta Ne Dinliyorum özelliği

*** Koruma Sistemi
A. Kanal Koruma Sistemi
- Reklam
- Küfür
- Renkli Yazı
- Alt Çizgili Yazı
- Kalın Yazı
- Death Yazı
- Kötü Nick
- Kötü Ident
- Kara Liste
- Proxy Listesi
- Büyük Harf
- Uzatmalı Yazı
- Telefon Numarası
- Çok Uzun Yazı
- Tekrar
- Join Part
- Çok Fazla enter/Paste
- Özele Küfürde Kanallardan Ban
- Özele Reklamda Kanallardan Ban
- Yeni Nickte Küfür
- Kanala Saldırı
- Nick değiştirme Flood
- Saniyelik Giriş/Çıkış
- Argo Kickletme
- Clone
- Litmus
- Topic
- Mode
- Client Quit
- Zlined Quit
- Excess Quit
- Killed Quit
- Ban Enforce
- Ban Protection
- Kick Sayacı
- Girilen Kanalın IP Listesini alma
- Nick Takip Sistemi
- Koruma Muaf Listesi Sistemi
- Giriş Çıkış Botlarına Görünmezlik
- Bütün Giriş ve Çıkışları Gizleyebilme
- Yanlış Banlara Karşı Korumalı Banlar
- ilave TakeOver Koruması
- Mass Kick
- Mass Ban
- Mass Deop
- Mass Op
- Mass Voice
- Mass Devoice

B. Özel Koruma Sistemi ve Eklentiler
- Reklam
- Küfür
- Notice
- Text Flood
- Action Flood
- CTCP Flood
- Invite Flood
- Ban
- Deop
- Cinsel İçerik
- Özele Küfürde Kanallardan Ban
- Özele Reklamda Kanallardan Ban
- Özele Limit
- Otomatik Voice Listesi
- Otomatik Op Listesi
- Otomatik ASL Gönderim Sistemi
- Otomatik Mesaj Sistemi
- AME Mesaj Kanal iptali
- AMSG Mesaj Kanal iptali
- Mode ve Exception Teşekkürleri
- Op, Voice Bildirimleri


*** Script Ayar ve Özellikleri- 10 Farklı Mause seçeneği
- 7 Farklı Yazıtip seçeneği
- 5 Farklı Font ve Boyut seçeneği
- 3 Farklı Tema Seçeneği
- Aktif Editbox tamamlama Sistemi
- Saat Göstergesi
- Otomatik Ping Göstergesi
- Notice Penceresi
- Snotice Penceresi
- Baloncuklu Uyarı
- Nickleri Bold Gösterme
- Ses Sistemi
- Otomatik Selam alıcı
- Otomatik Sohbet (Kanal ve Özel)
- Ban Penceresi
- Nick Uyarıcı
- Nick değişikliği Belirtici
- Otomatik Connect
- KLBK Asistan Sistemi
- Küfür Menüsü
- Random Ident Özelliği
- Mp3 Player
- Radyo Player ve Bilgi Gösterici
- Hızlı Menü ile List'lere Hızlı erişim
- Log gösterici
- Away Sistemi
- Özelleri kapayabilme Özelliği
- Sohbet Modu Özelliği
- Dalnet ve Undernet Servicesleri
- IRCServices Komutvericiler ve Panelleri
- Ekstra Oper / Admin Paneli
- Ekstra Oper Korumaları

*** Kanal Ekstaları
- Clone Taraması
- Idle Taraması
- Away Taraması

*** Özel Ekstraları
- Ignore Panel Sistemi
- Asl bilgileri
- Renkli, Çiçekli, Kalpli Yazılar

*** Sağ Tuş eklentileri
- UnLimited Flooder Bot Kontrol Sistemi
- Bütün Kanallardan Op/deop Özelliği
- Bütün Userlerin Nicklerini yazıp Seslenme özelliği
- Bir Kanalın Tüm Banlarını Açabilme Özelliği
- Winamp'ta Ne dinliyorum özelliği

*** Diğer Eklentiler
- Kelime Tamamlayıcı
- Ascii Listesi
- Anti Spam Bot
- Güncel Proxy Listesi
- mIRC Notepad
- Alarm Sistemi
- RGB Editör
- mIRC Paint
- Hesap Makinesi
- Audio CD Player

*** Interaktif Özellikler
- Idda Sonucları
- Sayısal Loto
- Şans Topu
- Şarkı Sözü Arama
- Rüya Tabirleri
- Hava Durumu
- Günlük burc yorumlayıcı
- Uyumluluk Analizi
- Yükselen Burcu Öğren
- Baş harflere göre aşk
- Ünlülerin burçları
- Kimlerle Anlaşılır
- Burçlar ve Sağlık
- Burçlar ve Arkadaşlık
- Yıldızını Öğren
- Çin Burcunuz ve Özellikleri
- Ağaç Falı
- Arama Motorları
- MSN'de sizi Kim Sildi?

*** Oyunlar
- Same
- Satranç
- Snake
- Tetris
- Kelebek Avı

*** Oper Fonksiyonları
- Gelişmiş Oper Paneli
- Bağlanınca veya Şifre girince Otomatik Oper açma
- Client Exited Ban
- Whois Çekeni 3 Uyarı + Kill
- Sc5 Koruması
- Server Join Flood Koruması
- Server Giriş, Versiyon Koruması
- Kanal Giriş, Clone Koruması
- Ban Sebep ve Süresi Ayarlayabilme Paneli
- Whois Çekeni Göstertme Özelliği
- sNotice Penceresi
- sNotice Penceresi (XL)
- Gelişmiş Oper Komut Paneli
- Bütün Kanallardan Deop / Op Özelliği
- Bütün Kanallar +m/-m
- Bütün Kanallar +M/-M
- Bütün Kanallar +R/-R
- Bütün Zline/Kline/Shun Açabilme
- Bütün Şifreli Şifresiz Kanallara Girebilme


*** Diğer
- Gelişmiş Yardımlar
- Band, Lag, Ram göstergeleri
- ADSL baglantı gösterimi
- Şifreli Nickler için, Şifre girme Dialogu
- Nick Sabitleyici
- Otomatik Ghost ve Release Özelliği
- Otomatik Identify Özelliği
- Otomatik Perform Sistemi (İlk Bağlantıda size Özel komut çalıştırtma, 3 adet)
- Otomatik vHost Giriş Paneli
- Otomatik Join Sistemi
- Şifre Girişi isteyen sunucularda, Otomatik Dialog Paneli
- mIRC Açılış şifresi koyabilme özelliği

on *:snotice:*client connecting*: {
if $nick == irc.sunucu.com {
%::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1)
cf %::Con.nick.on %::Con.ident.on %::Con.ip.on
}
}
alias cf {
;Connect Flood -1-
hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3)
if %t == 2 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -2-
hinc -mu2 cf $3 1 | var %t $hget(cf,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -3-
hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}


NOT1: txt dosyası oluşturup flood.txt gibi script dosyasına txt i atın
scriptinizde /load -rs flood.txt yapin

NOT2: ALINTIDIR!...

Bot Özellikleri:

Helper Kanalından Bot Yönetimi
Help Kanalına Girip Op Olmayana Otomatik Voice Sistemi
Helperlere Oto Host Ve Name Sistemi
Nerdeyse Bütün Servis Komutları
İstek Şikayet Bölümü
Ana Menüden Ayarlanabilir Giriş Çıkış Mesajları
Ban Seçenekleri

Ve Daha Niceleri

Download: http://addon.muhabbet.tv/helper.rar

Pass: ciprix

Kodun Çalışması için Bot Nick'inin Oper Olması Gerek ve Aynı Mirc Üzerinden Denemeyin Farklı Mirc Açıp Deneyin.



raw 340:*:{
if $2- == $null { msg #dns Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }
set %ulkenick $remove($gettok($2-,1,61),*)
set %ulkeip $gettok($2-,2,64)
ulkebul
halt
}
alias ulkebul {
sockclose ulke
sockopen ulke www.melissadata.com 80
}
on *:sockopen:ulke:{
if ($sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }
sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip HTTP/1.1
sockwrite -n $sockname Host: www.melissadata.com $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:ulke:{
var %ulkeoku
sockread %ulkeoku
if (%ulkeoku != $null) {
if (*>City<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }
if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }
if (*>Country<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }
if (*>ISP<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !ulke) {
if ($sock(ulke)) { msg #dns Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %ulkenick $remove($2,*)
set %mesajnick $nick
userip $2
msg $chan Lütfen Bekleyiniz...
msg $chan $2 Nick'inin ISP Adresi Kontrol Ediliyor..
}
}


Kodu remoteye ekledikten sonra #dns kanalında !ulke nick komutunu kullanarak kişilerin nerden bağlandığına bakabilirsiniz..

Örnek :

[17:18:11] <Nick> !ulke Maria
[17:18:11] <Bot> Lütfen Bekleyiniz...
[17:18:11] <Botl> Maria Nick'inin ISP Adresi Kontrol Ediliyor..
[17:18:13] <Bot> Ozgur MaRiA Sehir : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Bolge : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Ulke : TURKEY
[17:18:13] <Bot> Ozgur MaRiA Baglandigi ADSL : TT ADSL-ALCATEL DYNAMIC_GAY.

[17:13:35] <Nick> !ulke ESmer_CaDi
[17:13:35] <Bot> Lütfen Bekleyiniz...
[17:13:35] <Bot> ESmer_CaDi Nick'inin ISP Adresi Kontrol Ediliyor..
[17:13:39] <Bot> Ozgur ESmer_CaDi Sehir : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Bolge : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Ulke : TURKEY
[17:13:39] <Bot> Ozgur ESmer_CaDi Baglandigi ADSL : TT ADSL-ALCATEL_ULU.


NOT : ALINTIDIR!..
Kod Sahibi : HaLiL (XcLusive)

s_user.c dosyasının içerisindeki

Kod:
if (TStime() < sptr->nexttarget)
{
sptr->since += TARGET_DELAY; /* lag them up */
sptr->nexttarget += TARGET_DELAY;
sendto_one(sptr, err_str(ERR_TARGETTOOFAST), me.name, sptr->name,
name, sptr->nexttarget - TStime());

return 1;
}


satırı aşağıdaki gibi değiştirin.

Kod:
if (TStime() < sptr->nexttarget)
{
sptr->since += TARGET_DELAY; /* lag them up */
sptr->nexttarget += TARGET_DELAY;
sendto_one(sptr, err_str(ERR_TARGETTOOFAST), me.name, sptr->name,
name, sptr->nexttarget - TStime());
return place_host_ban(sptr, BAN_ACT_GZLINE, "Aşırı mesaj yolladığınız için sunucudan 15 dk. süreliğine uzaklaştırıldınız.", 900);
return 1;
}

cd Unreal3.2
cd src
cd modules
pico m_message.c

Kod:
if (parc < 3 || *parv[2] == '\0')
{
sendto_one(sptr, err_str(ERR_NOTEXTTOSEND), me.name, parv[0]);
return -1;
}


Yukarıdaki satırı bulup altına ;

Kod:
if (strstr(parv[2],"\1ACTION")) {
sendto_one(sptr, ":%s %d %s :ame/me/decribe komutlari kapatilmistir.", me.name, RPL_INFO, sptr->name);
return 0;
}


ekleyin
make yapıp sunucunuzu yeniden başlatın

cd Unreal3.2
cd src
cd modules
pico m_tkl.c
Dosyanın içine Girin ve aşağıdaki satırları bulun

Kod:
char *tkllayer[9] = {
me.name, /*0 server.name */
NULL, /*1 +|- */
NULL, /*2 G */
NULL, /*3 user */
NULL, /*4 host */
NULL, /*5 setby */
"0", /*6 expire_at */
NULL, /*7 set_at */
"no reason" /*8 reason */


Son Satırdaki no reason yazısını değiştirebilirsiniz

Kod:
char *tkllayer[9] = {
me.name, /*0 server.name */
NULL, /*1 +|- */
NULL, /*2 G */
NULL, /*3 user */
NULL, /*4 host */
NULL, /*5 setby */
"0", /*6 expire_at */
NULL, /*7 set_at */
"Server Kurallarina Uymadiginiz Gerekcesi ile Serverdan uzaklastirildiniz. " /*8 reason */


make yapıp sunucunuzu yeniden baslatın
Sadece 8'inci Satırda Editleme Yaparak gline zline kline mesajlarında no reason yerine sizin istediğiniz mesajı iletebilirsiniz.

Telnet'e login girisimizi yaptiktan sonraa


cd Unreal3.2
cd src
cd modules

wget http://www.angrywolf.org/hideserver.tar.gz
tar -zxvf http://www.angrywolf.org/hideserver.tar.gz
cd ../..
make custommodule MODULEFILE=hideserver


Alttaki kodlarıda unrealircd.conf'una yerlestiriyruz.

rehash cekiyoruz


Kod:
loadmodule "src/modules/hideserver.so";
hideserver
{
disable-map yes;
disable-links yes;
map-deny-message "/map Komutu Guvenlik Nedeniyle Yasaklanmistir.";
links-deny-message "/links Komutu Guvenlik Nedeniyle Yasaklanmistir.";
};

Spamfilter spam,reklam,worm ve diğer türlerde ki istenmeyen durumlara karşı yeni bir sistemdir. Badwords sistemi ile benzer çalışır fakat birçok avantajı vardır.

Spamfilter kullanımı aşağıda gösterilmiştir:

/spamfilter [add|del|remove|+|-] [tip] [eylem] [tklsüresi] [sebep] [düzenli-ifade]

[tip]

c channel Kanal mesajları
p private Özel mesajlar (kullanıcı->kullanıcı)
n private-notice Özel notice
N channel-notice Kanala notice
P part Part sebebi
q quit Quit sebebi
d dcc DCC dosya ismi
a away Away mesajı
t topic Belirtilen topic
u user Kullanıcı banı, nick!user@host:realname ile eşleşecektir
Çoklu hedefler belirtebilirsiniz, cpNn gibi.

[eylem]

kill Kullanıcıya kill atılır
tempshun Kullanıcının o anlık oturumuna shun atılır (eğer yeniden bağlanırsa shun kalkacaktır)
shun Hosta shun atılır
kline Host için kline eklenir
gline Host için gline eklenir
zline Host için zline eklenir
gzline Host için gzline (global zline) eklenir
block Sadece mesaj bloklanır
dccblock Kullanıcı işaretlenir böylelikle kullanıcı DCC gönderimi yapamaz
viruschan Bütün kanallardan çıkartılır, set::spamfilter::virus-help-channel ile belirtilen kanala giriş yaptırılır, PONG, ADMIN , ve set::spamfilter::virus-help-channel ile belirtilen kanala msg/notice hariç hiçbir komutu kullanamaz

[tklsüresi]

Spamfilter tarafından eklenen *line/shun için geçerli olma süresidir, başlangıç değeri için ‘-’ kullanın veya atlayın (Ör: eğer eylem = ‘block’ ise)

[sebep]

Block/*line/shun sebebidir. Burada belirtilen sebep içinde boşluk kullanamazsınız, alt çizgiler (’_') boşluk olarak değerlendirilir. Ve çift altçizgi (’__’) (’_') olarak değerlendirilir. Yine aynı şekilde başlangıç değeri için, ‘-’ kullanın

Kod:
official-channels {
"#Zurna" { topic " www.TurkMETRO.NeT "; };
};

Merhaba. Bu aralar reklamcı lamerlerin sıkça tercih ettiği reklam türü away mesajına reklam eklemek. Böylelikle spamfilter, adwords gibi reklam korumalarından da muaf kalıp, istedikleri gibi reklamlarını yazabiliyorlar malesef. ve farketmesi güç olabiliyor. Bunun birkaç çözüm yöntemi var; biri şimdi vereceğim kod ile scriptinize kolayca away taraması yaptırtabilirsiniz. ikinci seçenek ise Unreal?inizi editleyerek away olmayı yasaklayabilir veya kayıtsız nicklerin away olmalarını engelleyebilirsiniz. Ben açıkçası 2. şıkka karşıyım. Şu yüzden karşıyım mirc de reklam yapan lamerlerin reklamlarını engellemek için user?lerimizin away haklarını ellerinden almamamız gerektiğine inanıyorum. O kodu da IRC makaleleri bölümünde yakında paylaşacağım fakat bence mirc ile tarama yaptırmak daha mantıklı. Şayet güzelim Unreal IRCd?in özelliklerini lamerleri engellemek için kapatırsak biz kaybederiz, IRC kaybeder. Neyse lafı uzatmadan kodu vereyim sizlere;

on *:text:!awaytara &:#takip:{ tarama $2 }

Alias tarama { msg #Takip 4 $1 5kanalında away taraması başlatıldı... | unset %awayscan | .enable #awayscan | who $1 }

#awayscan off

raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }

raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | msg #Takip 4 $iif($numtok(%awayscan,32) > 0,$2 5kanalında 4 $ifmatch 5tane away nick bulundu $+ $chr(44) away mesajlarına bakılıyor:,$2 5kanalında kimse away değil.) } }
#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { msg #Takip 5 Away nick : $+( 4,$2, 4) 5 Mesaj : $+( 4,$3-, 4) } }

Yukarıdaki kodu Mirc?inizin remote bölümüne eklemelisiniz. (Alt + R ile açabilirsiniz)

Kodun çalışma prensibi şu şekilde, away kanalında !awaytara #kanaladi yazıldığında mirc?iniz o kanaldaki away kişileri tarıyor, ve takip kanalında size bildiriyor.. Away mesajları ve nickleri ile birlikte. sizde kolayca tespit edip lamerleri sunucunuzdan uzaklaştırıyorsunuz.. Kod bana ait değildir. Mirc?imde kullandığım kodlardan biri hatırlamıyorum kime aitti.. Örnek vermek gerekirse kod şu şekilde;

kanalda away yok iken.

[00:41] < 04PeRi > !awaytara #Sohbet

[00:41] < 04y0q > 4 #Sohbet 5kanalında away taraması başlatıldı?

[00:41] < 04y0q > 4 #Sohbet 5kanalında kimse away değil.

Kanalda away birileri var iken;

[00:42] < 04PeRi > !awaytara #Sohbet

[00:42] < 04y0q > 4 #Sohbet 5kanalında away taraması başlatıldı?

[00:42] < 04y0q > 4 #Sohbet 5kanalında 4 1 5tane away nick bulundu, away mesajlarına bakılıyor:

[00:42] < 04y0q > 5 Away nick : 4Womanizer 4 5 Mesaj : 4hebelelele

alias doldur {
var %ik 1
var %ikss $3
while (%ikss >= %ik) {
/sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1
dec %ikss
}
}


NOT: ALINTIDIR!...

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else {
if (%a == $numtok($1-,32)) {
%d = $+($right(%c,1),..)
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

mircreklam.txt isimli bir dosya oluşturup, reklam olarak nitelendirdiğiniz kelimeleri alt alta ekleyin. dosyayı mirc klasörünün içine atın. Bu dosyaya eklediğiniz reklam mesajları, kanal genelinde geçtiğinde, yazan kullanıcıyı kanaldan otomatik olarak uzaklaştırırsınız. Ayrıca isteğe bağlı olarak mircreklam.txt dosyasına küfür mesajlarıda ekleyebilir bu sayede korumamızı küfür koruması olarakta kullanabilirsiniz. mIRC remote bölümüne eklemeniz gereken kod;

on @*:text:*:#: {
if $read(mircreklam.txt, w, $1-) {
.mode # +b $nick
.kick # $nick Bu kanalda reklam yapmak yasaktır. Daha detaylı bilgi için /motd yazarak sunucu genel kurallarını okuyunuz.
}
}

NOT : ALINTIDIR!...

on *:join:#Sohbet: {
msg $nick merhaba $nick, #kanal kanalına hoşgeldiniz.
msg $nick kanalımızda güzel vakit geçirmenizi dileriz. iyi sohbetler.
}

;##############################################
;# by SpecifiC - 29/07/07
;#
on *:snotice:*Client*connecting*: {
var %dx = $gettok($right($left($10,-1),-1),2,64)
var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
if %re == DONE {
kline $9 Blocked HOSTNAME
goto end
}
;##############################################
;# Türkiye IP başlangıç haneleri. 88.147.44.55
;# Buraya bu ip numaralarını aralarında boşluk bırakarak ekleyebiliriz.
;# Böylece bu ip numaraları ile başlaan girişleri, servere almayacak.
;#
if $istok(81 85 88 80 212 195,%re,32) == $false {
kline $9 Blocked HOSTNAME
}
:end
}
;# End code
;###############################################

on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
$iif($hget(atsz),hfree atsz) | var %s | sockread %s
if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
hinc -m atsz $replacecs(%s, ,•,♥,•,$chr(32),½) 1
if ($hget(atsz,0).item == $r(1,10)) sockclose atsz
}
}
alias slct var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32))
alias kick kick $1 $2 $iif($3,$3-,%&) | atasozu


NOT : ALINTIDIR!..

on 1:start:{
.echo -a 5,15[°°°<0TM5,15Script>°°°].echo -a 2-
.echo -a 4 Script Yapımcısı: TURKMETRO
.echo -a 2-
.echo -a 4 Test Edenler : 13 Cehennem, ParadiSe
.echo -a 2-
.echo -a 4 Script Adresi : 13 www.TurkMETRO.NeT
.echo -a 2-
.echo -a 4 İletişim Adresi : 13 Admin@turkmetro.net
.echo -a 2-
.echo -a 4 Tarih : 13 $date
.echo -a 2-
.echo -a 4 Saat : 13 $time
.echo -a 2-
.echo -a 4 Kullanmakta Olduğunuz Rumuz : 13 $me
.echo -a 2-
.echo -a 4 Bilgi : 13 .echo -a 2-
.echo -a 5,15[°°°<0TM5,15Script>°°°]
}

NOT : Yukarıdaki ALINTI TurkMETRO Script İçin Tasarlanmıştır.

alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #Cinsel
}
}
}
}

on *^:join:#:{
;multi join[tüm adresler]
inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) {
mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ])
.unset %mjj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad = $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] )
mode $chan +b %ad
unset %mj. [ $+ [ %ad ] ]
}
}

alias ccrc {
goto $1
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6
}
;### Clone join conf
:cjhafıza {
RETURN 1
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 1
}
:cjlimit {
RETURN 2
}
}