mIRCMerkez

 Basit fakat kullanışlı bir clone taraması, mIRC’ınızda remote bölümüne (alt+r) ekledikten sonra “/remote on” komutu ile remotelerle birlikte kodu aktif edebilirsiniz.

alias Clone {
var %ğ = $nick(#,0)
while %ğ {
if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
else { hinc host $address($nick(#,%ğ),2) }
dec %ğ
}
echo 4 -st # kanalı için clone taraması başlatıldı…
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%ı).item — 10Bağlı kullanıcı sayısı: $hget(host,%ı).data — 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}

menu channel {
.-
.Clone Tara:.Clone #
}

Sunucu yöneticilerinin işini kolaylaştırılmak için yazılmış bir dizi koddur.

.» OperServ
..&K-Line
…Kullanıcıyı KILL le:/kill $$?=”Kullanıcı / nick:” $?=”Sebep:”
…Kullanıcıyı KILLLINE Et:/kline $$?=”Tam olarak kullanıcı bilgisi? $crlf $+ kullancı@bağlantı” $$?=”Sebep?”
…Kill-Line ı Kaldır:/unkline $$?=”Tam olarak kullanıcı bilgisi? $crlf $+ kullanıcı@bağlantı”
…Kill-Line Listesini Temizle:/clearakills
…-
…Cloneler:/kline $$?=”Domain?” too_man_clones_from_your_domain
…Botlar:/kline $$?=”Domain?” bot_are_not_allowed_on_this_server
…Abusive Kullanıcılar:/kline $$?=”Domain?” too_many_abusive_users_from_this_site
..&G-Line
…Ekle:/quote gline @ + $+ $?=”User@Host” $time : $+ $?=”Reason”
…Kaldır:/quote gline @ - $+ $?=”User@Host”
…Botlar:/gline $$?=”Domain?” bot_are_not_allowed_on_this_server
…Abusive Kullanıcılar:/gline $$?=”Domain?” too_many_abusive_users_from_this_site
..&Mesaj
…Chatops:/chatops $$?=”Mesaj?”
…Globops:/globops $$?=”Mesaj?”
…Localops:/localops $$?=”Mesaj?”
…Wallops:/wallops $$?=”Mesaj?”
…-
…server Going Down:/.msg $ $+ $server Server going down, sorry for any hassles
…server Upgrade:/.msg $ $+ $server Server going down for upgrade, sorry for any hassles, it will be up again as soon as possible
…server Relocating:/.msg $ $+ $server Relocating server, Please stand by for a split!!
…-
…own Message:/.msg $ $+ $server $$?=”Mesajınız?”
…own Notice:/notice $ $+ $server $$?=”Mesajınız?”
…own Describe:/describe $ $+ $server $$?=”Mesajınız?”
..&Şifre Öğren
…&Kanal Şifresi Öğren:/.msg chanserv getpass $$?=”Hangi Kanalın Şifresini Öğrenmek istiyorsunuz?”
…&NICK Şifresi Öğren:/.msg nickserv getpass $$?=”Hangi NICK in Şifresini Öğrenmek istiyorsunuz?”
..&Bağlan
…&Regular:/connect $$?=”Link Server?”
…&Remote:/connect $$?=”<Server1> ve <Port>” $$?=”Server 2?”
..&Modlar
…OP Modu
….&Bana OP Ver://samode $$?=”Hangi Kanalda OP Olmak İstiyorsunuz?” +o $me
….&OP umu Al://samode $$?=”Hangi Kanaldan OP unuzun Alınmasını İstiyorsunuz?” -o $me
….&NICK in OP unu Al://samode $$?=”Kanal Adı?” -o $$?=”Op u Alınacak NICK?”
….&NICK e OP Ver://samode $$?=”Kanal adı?” +o $$?=”Op Verilecek NICK?”
…&Yardım Modu
….&Aktif://mode +h $me
….&Kapalı://mode -h $me
…&Log On
….&Oper On:/oper $?=”Acc?” $?=”Oper Şifresini Giriniz”
….&Oper Off:/mode $me -o
…&Motd
….&Motd ( $+ $server $+ ):motd
….&Motd (other):motd $$?=”Server?”
..&Server
…&Rehash:/raw rehash
…&Restart:/restart
…&Die:/raw die
..&Listeler
…&K-Line Listesi:stats k
…&I-Line Listesi:stats i
…&O-Line Listesi:stats o
…&G-Liine Listesi:stats g
…-
…?-&Line Listesi:stats $$?=”?-Line (Örnek : k”
..-
..Diğer
…Girilemiyen Kanala Gir:/sajoin $$?=”Kanal Adı?”
… # Modunu Değiştir:/samode $$?=”Kanal adı” $$?=”Mod?”
..-
..&Squit:/squit $$?=”SERVER ı Girin” $$?=”Sebep Ne?”
• Oper Admin
.Oper OL:/.oper $$?=”Nick” $$?*=”Şifre”
.De Oper:/mode $me -o
.Rehash:/rehash
.Restart:/os RESTART
.Update:/os update
.-
.Global Mesaj:/operserv global $$?=”Servera Yolluyacağınız Mesaj:”
.-
.Kill:/kill $$?=”Kill Atılacak Nick:” $$?=”Kill Sebebi:”
.K-Line
..K-Line Ekle:/kline $$?=”ip” $$?=”Sebep”
..K-Line Sil:/kline -$$?=”ip”
..K-Line List:/stats k
..-
.A-KiLL
..A-KiLL Ekle:/operserv akill add $$?=”Zaman:” $$?=”@hostmask+ip:” $$?=”AKiLL Konulcak Sebep:”
..A-KiLL Sil:/operserv akill del $$?=”@*mask*:”
..A-KiLL Listesi:/operserv akill list
..-
.G-Lines
..G-LINES Ekle:/gline @ + $+ $$?=”User@Host” $time : $+ $$?=”Sebep”
..-
..G-LINES Sil:/gline @ - $+ $$?=”User@Host”
..G-LINES List:/stats g
..-
.V-Line
..V-LINE Ekle:/operserv VLINE ADD $$?=”Nick:” $$?=”Sebep:”
..-
..V-LINE Sil:/operserv VLINE DEL $$?=”Nick:”
..V-LINE Liste:/operserv VLINE LIST $$?=”Mask:”
..V-LINE Ayrıntı:/operserv VLINE WIEW $$?=”Mask:”
..-
.-
.Kayıtlı Nickler:/NickServ List *@*
.Kayıtlı Kanallar:/cs list *#*
.-
.Kişi İşlemleri
..Kişiyi Kanala Sok:/operserv raw :operserv svsjoin $$?=”Şuanki Nicki:” #
..Kişiyi Kanaldan çıkart:/operserv raw :operserv svspart $$?=”Şuanki Nicki:” #
..Kişinin Nickini Değiştir:/operserv raw svsnick $$?=”Şuanki Nicki:” $$?=”Yapılacak Nick:” 0:1
..Kişinin nick şifresini değiştir:/ns set $$?=”nick:” password $$?*=”şifre:”
..Kişinin Nickine Flags Ekle:/operserv raw svsmode $$?=”Flags Eklenecek Nick:” $$?=”Eklenecek Flaglar ex:oisaSA:”
..Zaman Aşımından Çıkar:/nickserv set $$?=”Nick:” noexpire on
..Zaman Aşımına Ekle:/nickserv set $$?=”Nick:” noexpire off
..Auth Kodunu Öğren:/nickserv getauth $$?=” Nick?:”
..-
.-
.Kanal İşlemleri
..Kanalı Üstüne Alma:/chanserv set # founder $me
..Kanalı Başkasına Verme:/chanserv set # founder $$?=”Kanalı vereceğiniz Nick:”
..Kanalda Op AL:/os mode # +o $$?=” Nickiniz?:”
..Kanalda Deop oL:/os mode # -o $$?=” Nickiniz?:”
..Kanalda Voice AL:/samode # +v $$?=” Nickiniz?:”
..Kanalda Voice Geri ver:/samode # -v $$?=” Nickiniz?:”
..Kanalda Kişi Banla:/samode # +b $$?=” Nicki?:”
..Kanalda Ban Aç:/samode # -b $$?=” Nickiniz?:”
..Kanala Mode Koy:/operserv MODE # $$?=”Koyacağınız Modeler(+mi-lk gibi):”
..Zaman Aşımından Çıkar:/chanserv set # noexpire on
..Zaman Aşımına Ekle:/chanserv set # noexpire off
..Kanalı Yasakla:/cs forbid #
..-
.-
.Bot İslemleri
..BoT Yapma:/operserv raw nick $$?=”Botun Nicki:” 1 1 $$?=”Botun ident’i:” $$?=”Botun ip Adrsi(mesela:193.192.76.Noktam-22731):” $$?=”Botun Servicesi(mesela:services.Noktam.net):” $$?=”Botun İsmi(Whois çekildiğinde isim yerinde yazar):”
..Botu Kanala Sokma:/operserv raw $$?=”Botun Nicki(mesela :TARIK):” join #
..Botu Kanaldan Çıkartma:/operserv raw $$?=”Servicesin ismi (mesela :Nickserv):” part #
..Botu Konuşturma:/operserv raw $$?=”Konuşturmak istediğiniz Botun Nicki(mesela :TARIK):” privmsg # $$?=”Mesajınız(her keslime arasına alt+231 yapın):”
..-
.-
.Raw KomutLarı
..Nick Değiştir:/operserv raw :nickserv svsnick $$?=”Nicki Yazın?” $$?=”Yeni Nickini Yazın?” 0
..Chanserv`i Konuştur:/operserv raw :chanserv privmsg # $$?=”Mesajınızı Yazın?”
..Nickserv`i Konuştur:/operserv raw :nickserv privmsg # $$?=”Mesajınızı Yazın?”
..Memoserv`i Konuştur:/operserv raw :memoserv privmsg # $$?=”Mesajınızı Yazın?”
..-
.-
.Sifre Öğren
..Nick Şifresi Öğrenme:/nickserv getpass $$?=”Şifresini öğrenmek istediğiniz Nick:”
..Kanal Şifresi Öğrenme:/chanserv getpass #
..-
.Nick Yasakla
..Ekle:/ns forbid $$?=”Yasaklancak Nick:” $$?=”Yasaklama Sebebi:”
..Sil:/ns drop $$?=Yasağı Silinecek Nick:”
..Liste:/stats q
..-
.-
.Zombie Alma
..Zombie Moda Alma:/operserv zombie $$?=”Zombie moda alınacak Nick:”
..Zombie moddan Silme:/operserv unzombie $$?=”Zombie modu Kalsırılacak Nick:”
..-
.-
.Servisler
..Kanala sok
…Chanserv:/operserv raw :chanserv join #
…Nickserv:/operserv raw :nickserv join #
…Memoserv:/operserv raw :memoserv join #
…Operserv:/operserv raw :operserv join #
…Helpserv:/operserv raw :helpserv join #
…-
..Kanaldan Çıkar
…Chanserv:/operserv raw :chanserv part #
…Nickserv:/operserv raw :nickserv part #
…Memoserv:/operserv raw :memoserv part #
…Operserv:/operserv raw :operserv part #
…Helpserv:/operserv raw :helpserv part #
…-
.-
.OperNews
..OperNews Ekle:/operserv opernews add $$?=”Operlara Yazılacak Mesaj:”
..-
..OperNews Sil:/operserv opernews del $$?=”Silinecek Mesajın Nosu(num):”
..OperNews Listesi:/operserv opernews list
..-
.LogonNews
..LogonNews Ekle:/operserv logonnews add $$?=”Yazılacak Mesaj:”
..-
..LogonNews Sil:/operserv logonnews del $$?=”Silinecek Mesajın Nosu(num):”
..LogonNews Listesi:/operserv logonnews list
..-
.-
.Admin
..-
..Admin Ekle :/os admin add $$?=”Admin Eklenecek Nick:”
..-
..Admin Silme:/os admin del $$?=”Adminlikten Silinecek Nick:”
..Admin Listesi:/os admin list
..-
.İRCop
..İrcop Ekle:/os oper add $$?=”Oper Eklenecek Nick:”
..-
..Oper Sil:/os oper del $$?=”Operlikten Silinecek Nick:”
..İrcOp Listesi:/os oper list

Kullanışlı bir Flood (Tekrar) korumasıdır,  aşağıdaki kodu mIRC’ınızda remote bölümüne (alt+r) ekleyerek aktif edebilirsiniz. Remotelerin açık olduğundan emin değilseniz, “/remote on” komutunu kullanarak açınız..

on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}

Kod Hakkında Bilgi: Kullanışlı bir operatör panelidir, kodu çalıştırmak için  aşağııdaki kodu mIRC’ınızda Remote bölümüne (alt+r) eklemeniz gerekmektedir. Ardından manual çalışmak isterseniz. “/dialog -m conslone console” komutunu kullanabilir veya menü’den seçebilirsiniz..

Kod Yazarı: Anonim

————————————–

alias oconsole { dialog -m console console }
dialog console {
title “Kanal Operatör Menüsü”
size -1 -1 350 320
button “Bu Menüyü Kapa”,1,33 283 285 30,ok flat
list 2, 195 30 140 237,sort
box “”,3,6 6 339 267
box “ChanServ Komutları”,4,20 19 165 130, flat
button “Aop Ekle”,5,33 40 60 25, flat
button “Sop Ekle”,6,33 75 60 25, flat
button “Aop Sil”,7,110 40 60 25, flat
button “Sop Sil”,8,110 75 60 25, flat
button “Akick Ekle”,9,33 110 60 25, flat
button “Akick Sil”,10,110 110 60 25, flat
button “Op Ver”,11, 33 160 60 25, flat
button “Deop Yap”,12,110 160 60 25, flat
button “Kick/Ban”,13,33 195 60 25, flat
button “Kick At”,14,110 195 60 25, flat
button “Voice Ver”,15,33 230 60 25, flat
button “Voice Al”,16,110 230 60 25, flat
text “”,17, 235 17 70 13
}

on *:dialog:console:sclick:5:{ if ($me isop %c-cha) .chanserv aop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:6:{ if ($me isop %c-cha) .chanserv sop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:7:{ if ($me isop %c-cha) .chanserv aop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:8:{ if ($me isop %c-cha) .chanserv sop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:9:{ if ($me isop %c-cha) .chanserv akick %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:10:{ if ($me isop %c-cha) .chanserv akick %c-cha del $remove($remove($did(console,2,$did(console,2).sel).text,@,+),@,+) }
on *:dialog:console:sclick:11:{ if ($me isop %c-cha) mode %c-cha +o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:12:{ if ($me isop %c-cha) mode %c-cha -o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:13:{ if ($me isop %c-cha) ban %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) 3 | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:14:{ if ($me isop %c-cha) kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:15:{ if ($me isop %c-cha) mode %c-cha +v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:sclick:16:{ if ($me isop %c-cha) mode %c-cha -v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:init:0:{
set %c-cha $active
did -a $dname 17 Toplam: $nick(%c-cha,0) Kişi
set %c-ops 0
set %c-voi 0
set %c-reg 0
:lewp-o
inc %c-ops
if ($opnick(%c-cha,%c-ops) != $null) goto op
else { goto lewp-v }
:op
did -a $dname 2 @ $+ $opnick(%c-cha,%c-ops)
goto lewp-o
:lewp-v
inc %c-voi
if ($vnick(%c-cha,%c-voi) != $null) goto voice
else goto lewp-r
:voice
did -a $dname 2 + $+ $vnick(%c-cha,%c-voi)
goto lewp-v
:lewp-r
inc %c-reg
if ($nick(%c-cha,%c-reg,r) != $null) goto regular
else halt
:regular
did -a $dname 2 $nick(%c-cha,%c-reg,r)
goto lewp-r
}