mIRCbuL.Net Türkçe mIRC indir

Sizlere son sürüm badnick koruma modülü tüm operatör için yararlı olabilecek bir kod. Adımları dikkatlice izlerseniz sorunsuz çalışacaktır.

#listele off
on ^*:hotlink:*Uyarı*:#:return
on ^*:hotlink:*Kick*:#:return
on ^*:hotlink:*Kick+ban*:#:return
on ^*:hotlink:*Badnick-Ekle*:#:return
on *:hotlink:*:#:{
if $remove($1,$chr(40),$chr(41)) == Uyarı {
var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93)
set %lastnick $strip(%line)
notice %line %line kullanmış olduğunuz nick yasaklanmıştır. Eğer 60 saniye içinde nickinizi değiştirmezseniz kanaldan uzaklaştırılıcaksınız!
$+(timer,$strip(%line)) 1 60 uzaklastir $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Kick {
var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93)
kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Kick+ban {
var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93)
mode $chan +b %line | kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Badnick-Ekle {
var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93)
badnick ekle %line
kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
}
on *:part:#:{
if $timer($nick) {
timer $+ $nick off
}
}
on *:quit:{
if $timer($nick) {
timer $+ $nick off
}
}
on ^*:join:#:{
.haltdef
if $hfind(badnick,$nick,1,W).data {
echo $chan $+(2[,$time,]) Giriş: 4 $+ $nick $+ 2 $remove($+($chr(40),$address($nick,1),$chr(41)),*,!) 5Badnick! 4(1Uyarı4) 10 4(1Kick4) 10 4(1Kick+ban4)
}
else {
echo $chan $+(2[,$time,]) Giriş: $nick $remove($+($chr(40),$address($nick,1),$chr(41)),*,!) 4(1Badnick-Ekle4)
}
}
#listele end
#kickle off
on *:join:#:{
if $hfind(badnick,$nick,1,W).data {
uzaklastir $chan $nick Badnick yasaktır. Nickinizi değiştiriniz.
}
}
#kickle end

alias badnick {
if $1 == ekle {
if !$hfind(badnick,$2,1,W).data {
hadd -m badnick $r(1000,999999) $2
hsave badnick badnick.mezarkabul
hload badnick badnick.mezarkabul
echo -a 10Badnick listesine $+(2,,$2,10) eklendi.
}
else {
echo -a 10 $+(2,,$2,10) zaten badnick listesinde mevcut.
}
}
elseif $1 == sil {
if $hfind(badnick,$2,1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.mezarkabul
hload badnick badnick.mezarkabul
echo -a 10 $+(2,,$2,10) badnick listemden silindi.
}
else {
echo -a 10 $+(2,,$2,10) zaten badnick listemde yok.
}
}
else {
echo -a 10 Komutu yalnış kullandınız.
echo -a 10 Örnek: 2 /badnick ekle nick* 10 gibi eklemelerinizde wildcard geçerlidir.
}
}
on *:nick:{
if $nick == %lastnick {
$+(.timer,%lastnick) off
}
if $hfind(badnick,$newnick,1,W).data {
var %a = 1, %b = $comchan($newnick,0)
while %a <= %b {
if $me isop $comchan($newnick,%a) {
mode $v2 +b $newnick
kick $v2 $newnick Badnick yasaktır. Nickinizi değiştiriniz.
}
inc %a
}
}
}

alias uzaklastir {
mode $1 +b $2
kick $1 $2 $3-
}
alias badkoruma{
if $1 == listele {
echo -a Artık badnckler kanalınıza girdiğinde fare ile manuel işlem yapabiliceksiniz.
enable #listele
hload badnick badnick.mezarkabul
}
elseif $1 == kickle {
if $2 == on {
echo -a Artık badnickler otomatik olarak atılıcaktır.
enable #kickle
hload badnick badnick.mezarkabul
}
elseif $2 == off {
echo -a Kickleme durumu kapatıldı.
disable #kickle
}
}
elseif $1 == durum {
if !%ilkcalisma {
hmake badnick
set %ilkcalisma 1
echo -a Addon ilk defa çalıştırıldığı için herhangi bir badkoruma açık değil.
echo -a Lütfen /badkoruma durum komutunu tekrar deneyin.
}
else {
echo -a Sistemdeki badkorumaların durumu:
echo -a Manuel Kontrol: $iif($group(#listele).status == on,Aktif,Çalışmıyor)
echo -a Otomatik Kontrol: $iif($group(#kickle).status == on,Aktif,Çalışmıyor)
echo -a Zamanlı listeleme: $iif(%listeleme,Aktif,Çalışmıyor)
if $group(#kickle).status == off && $group(#listele).status == off {
echo -a Şuanda kanalınız korunaksız.
echo -a Herhangi birini açmak için: /badkoruma listele|kickle kullanabilirsiniz.
echo -a Otomatik olarak badnick listelemek için: /badkoruma listele saniye #kanal kapatmak için /badkoruma listeleme #kanaladı şeklinde yapabilirsiniz.
}
}
}
elseif $1 == listele {
if $2 && $3 {
set %listeleme $addtok(%listeleme,$3,32)
$+(.timer,$3) 0 $2 badtara $3
echo -a Sistem artık $2 saniyede bir $3 kanalını badnick süzgecinden geçiricek.
}
}
elseif $1 == listeleme {
if $2 {
set %listeleme $remtok(%listeleme,$2,32)
$+(.timer,$2) off
echo -a $2 kanalı için badnick kontrolü durduruldu.
}
}
elseif $1 == off {
disable #kickle
disable #listele
echo -a Tüm badkorumalar kapandı. Kanalınız korumasız durumda!
}
else {
echo -a Yalnış komut kullanımı.
echo -a Lütfen /badkoruma durum komutunu kullanın.
}
}

alias badtara {
if $1 {
var %/ 1
while %/ <= $hget(badnick,*).item {
if $hfind(badnick,$nick($1,%/),1,W).data {
mode $chan +b $nick($1,%/) | kick $chan $nick($1,%/) Badnick yasaktır. Nickinizi değiştiriniz.
}
inc %/
}
}
}
on *:op:#:$iif($opnick == $me,badtara $chan,return)

Kodu remotenize ekledikten sonra uygulayacağınız komut ; /badkoruma durum
Hazır olarak badnickler eklenti şeklinde eklenmiştir. Kolaylıkla indirebilirsiniz , rardan cıkan badnick.mezarkabul dosyasını root dizinine atmanız yeterlidir.

Badnick Listesini indirmek için tıklayın.

Özellinize Yazanlara Oto Mesaj Atmak için Size Uygun Bir Kod…

Ekleyeceğiniz Kod:

on *:open:?:*:{
msg $nick Merhaba $nick
msg $nick Bugün $date ve saat $time(HH:nn.ss)
msg $nick $duration($idle) süredir kimseyle konuşmadım.
msg $nick Şu an $+($query(0),.) özelsin ve toplamda %q! kişi pencere açtı Sana nasıL yardımcı oLabilirim $nick ?
inc %q!
}

Bu kod sayesinde çok kullandığınız cümleleri Kısaltabilirsiniz Eklemek Istediginizde “if ” leri Çoğaltarak Eklemelerde Yapabilirisiniz..

Ekleyeceğiniz Kod:

on 1:INPUT:*: {
if ($mid($1,1,1) == /) { goto doit }
:doit
if ($1- == efem) { say Efendim? | halt }
if ($1- == h.g) { say Hoş Geldin | halt }
if ($1- == h.b) { say Hoş Buldum | halt }
if ($1- == slm) { say Selam | halt }
if ($1- == mrb) { say Merhaba | halt }
if ($1- == nbr) { say Naber ? | halt }
if ($1- == rica) { say Rica Ederim. | halt }
}

Belirlediğiniz kanala kod ile girmeye izin veren bir mirc hazır kodudur. Örnek olarak #Ayna kanalına girdiniz kanaldan sapart ( admin yetkisi) olarak kanaldan cıkartılıyorsunuz. Özelinize bir kod yazılacak siz onu !kode KOD seklinde girdiğinizde kanala otomatik sajoin ( admin yetkisi) ediliceksiniz.

Ekleyeceğiniz Kod:

;www.mircbul.net mirc snippets
on *:join:#kanal:{
if $nick isin %nick { halt }
if $nick isin $me { halt }
set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sapart $nick #kanal
msg $nick Lütfen
msg #kanal Verilen kod => 2 %kod
msg $nick Lütfen Kanala girebilmek için 4!kode %kod yazınız
}

on *:text:*:?:{
if $1 == !kode {
if $2 == %kod {
set %nick $nick
sajoin $nick #kanal
}
}
}

Mirc Clone Koruması, Mirc Clone Koruması Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

menu status,menubar, {
.-
.• © MezarkabuL Koruma !
..• Açık !:.enable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi AÇıldi. %logo
..• Kapalı !:.disable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi Kapatildi.. %logo
.-
}

#sericlone on
on *:snotice:*:{
if *Client*connecting*on* iswm $1- {
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 5 {
.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :1t4h1e4 1b4y 1a3B4s1o
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
}

#sericlone end

Mirc Kick Sayacı, Mirc Kick Sayacı Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

..• Açık !:.enable #mezarflood | .echo -a 0,14 9 Excess Flood. Korumasi açık %logo
..• Kapalı !:.disable #mezarflood | .echo -a 0,14 9 Excess Flood Korumasi kapatildi.. %logo
.-
}

#mezarflood on

on *:snotice:*: {
if *[Excess Flood]* iswm $1- {
gzline *@ $+ $remove($gettok($7,2,64),$chr(41)) :1t4h1e4 1b4y 1a3B4s1o
}
}

#mezarflood end

Mirc Tüm Raw Komutları, Mirc Tüm Raw Komutları Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

raw 1:*:{ /echo 12Hoşgeldin4 $8 0,7 | halt }
raw 2:*:{ /echo 12Server versionu:4 $8 | halt }
raw 3:*:{ /echo 12Server Kuruluş Tarihi:4 $6 $7 $8 $6 $11 | halt }
raw 4:*:{ /echo 12Sunucu Adı:4 $2 12Çalışan Version:4 $3 | halt }
raw 5:*:{ /echo 12Server bilgi:4 $6 $7 $8 $6 $10 | halt }
raw 250:*:{ /echo 12Toplam bağlantı4 $4 12kişi. | halt }
raw 251:*:{ /echo 12Toplam kullanıcı sayısı:4 $4 | halt }
raw 251:*:{ /echo 12Görünmeyen kullanıcı sayısı:4 $7 | halt }
raw 251:*:{ /echo 12Toplam Server sayısı:4 $10 | halt }
raw 252:*:{ /echo 12IRC’de olan IRCop sayısı:4 $2 | halt }
raw 253:*:{ /echo 12Bilinmeyen bağlantı sayısı:4 $2 | halt }
raw 254:*:{ /echo 12Aktif kanal sayısı:4 $2 | halt }
raw 255:*:{ /echo 12Alıcılar4 $4 12tane – Yerel kullanıcılar4 $7 12tane. | halt }
raw 301:*:{ /echo -a 14* 6 $2 »3 Su Anda Away: 6 $3- | halt }
raw 306:*:{ /echo -a 4***12 Şu andan ihtibaren awaysiniz. | halt }
raw 307:*: { echo -a %whoischange 14* 6 Rumuz Bilgi:3 $2 Sifreli ve Tanitilmis Bir Nicktir | halt }

raw 310:*: { /echo -a %whoischange 14* 6 $2 3Bir Helper(IRC YardImcI) dır. | halt }
raw 311:*: { /echo -a %whoischange 4© © © ©14 [6 Whois $2 14]4 © © © © | /echo -a %whoischange 14* 6 Adres: 3 $3 $+ @ $+ $4 | /echo -a %whoischange 14* 6 İsim: 3 $6- | if ( %mynick == $2 ) { set %myaddress *!*@ $+ $4 | halt } | halt }
raw 312:*: { /echo -a %whoischange 14* 6 Server: 3 $3 $4 $5- | halt }
raw 313:*: { /echo -a %whoischange 14* 6 IRCop: 3 $2 $3- | halt }
raw 317:*: { /set -a %onlineT $calc($ctime – $4) | /echo -a %whoischange 14* 6 Konuşmadığı Süre: 3 $replace($duration($3),secs,Saniye,mins,Dakika,hrs,Saat,days,Gün,wk,Hafta) | /echo -a %whoischange 14* 6 Sunucuya Giriş Saati: 3 $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık) | halt }
raw 318:*: { /echo -a %whoischange 4© © © ©14 [6 Whois Sonu 14]4 © © © © | halt }
raw 319:*: { echo -a %whoischange 14* 6 Kanallar: 3 $3- | halt }
raw 328:*:{ /echo 4***12 $2 URL: $3 | halt }
raw 332:* { /echo -a 10 $2 4[ 12Topic:3 $3-  4] | halt }
raw 333:* { /echo -a 10 $2 3* 4Kanal Kuruluş Tarihi:12 $asctime($4) | /echo -a 10 $2 3* 4Topic Kurucusu:12 $3 | halt }
raw 366:*: { /echo -a 10 $2 3* 4Kanalda Op:12 $opnick($2,0) 4Voice:12 $vnick($2,0) 4Toplam:12 $nick($2,0) 12kişi bulunuyor. } { /echo -a 3 $str(¯,60) | halt }
raw 352:*:{ /echo 4***12 $2- | halt }
raw 375:*:{ /echo 4«[12 Server Motd Başlangıcı 4]» | halt }
raw 376:*:{ /echo – | /echo %c 4«[12 Server Motd Sonu 4]» | /echo – | halt }
raw 381:*:{ /echo -a 4***12 IRCop Oldun. Tebrikler | halt }
raw 401:*:{ /echo -a 4***12 $2 Kişi bulunamadı.. | halt }
raw 404:*:{ /echo -a 4***12 $2 Kanalına Gönderilmedi. | halt }
raw 405:*:{ /echo -a 4***12 Daha fazla kanala giremezsiniz. | halt }
raw 412:*:{ /echo -a 4***12 $2 yazdığınız gitmedi. | halt }
raw 421:*:{ /echo -a 4***12 $2 Yalnış komut. | Halt }
raw 430:*:{ /echo -a 4***12 $2 IRCop komutudur. Kullanamazsınız. | halt }
raw 433:*:{ .nick SohbetcVmIRC $+ $rand(1,9) $+ $rand(1,9) | halt }
raw 441:*:{ /echo -a 4***12 $2 $3 Kanalında bulunamadı. | Halt }
raw 471:*: { echo -a 4***12 $2 Kanalında limit var ve şu anda kanal limiti dolu. Daha sonra tekrar deneyiniz… | halt }
raw 472:*:{ /echo -a 4***12 $2 Yalnış mode ayarı. | halt }
raw 473:*: { echo -a 4***12 $2 Kanalına şu anda giremezsiniz. Kanal davetsel konumda (+i). Daha sonra tekrar deneyiniz… | halt }
raw 474:*: { echo -a 4***12 $2 Kanalına giremezsiniz. Banlısınız… | halt }
raw 475:*: { echo -a 4***12 $2 Kanalı şifreli konumda. (+k) Şifreyi bilmeden giremezsiniz. | halt }
raw 437:*: { echo -a 4***12 $2 Kanalında iken nick değiştiremezsiniz. Kanal nick değiştirmeye kapalı durumda. (+N) | halt }
raw 478:*:{ /echo -a 4***12 $2 Ban List dolu.. ( $3 ) | Halt }
raw 481:*:{ /echo -a 4***12 IRCop değilsiniz. Bu komutu kullanamazsınız. | halt }
raw 482:*:{ /echo -a 4***12 $2 Kanalında op değilsin. | halt }
raw 493:* {
echo -a %logo 0,12 0,4 $2 0,12 Nickinin Özeli Kapalı Olduğu Icin Mesajınız Kendisine Ulaşamadı..
halt
}
raw 461:* {
echo -a %logo 0,12 Yeterli Parametre Girmediniz.!!
halt
}

raw 432:* {
echo -a %logo 0,4 $2 0,12 Kullanmaya Calıştığınız Nick Yasaklı Bir Nick.!! Lütfen Başka Bir Nick Deneyin..
halt
}

raw 464:* {
echo -a %logo 0,4 ===> 0,12 Kullanmış Olduğunuz Sifre Yanlış.! Lütfen Tekrardan Deneyin..
halt
}

raw 386:* {
echo -a %logo 0,4 ( $+ $2 $+ ) 0,12 Sifreniz Kabul Edildi.
halt
}
on *:notice:*password accapted*:*:{
if ($nick == Nickserv) { echo -a %logo 0,12 Şifreniz Kabul Edildi. }
}
on *:notice:*password incorrect*:*:{
if ($nick == Nickserv) { echo -a %logo 0,12 Yanlış Şifre.!! }
}
on *:notice:*ifre kabul*:*:{
if ($nick == Nickserv) { echo -a %logo 0,12 Şifreniz Kabul Edildi. }
}
on *:notice:*ge*ersiz*ifre*:*:{
if ($nick == Nickserv) { echo -a %logo 0,12 Yanlış Şifre.!! }
}
on *:notice:*ifre*ge*ersiz*:*:{
if ($nick == Nickserv) { echo -a %logo 0,12 Yanlış Şifre! }
}
on *:notice:*t registered*:*:{
if ($nick == Nickserv) { echo -a %logo 0,4 $3 12,0 Nicki Sifreli Değil, Şifrelemek Istiyorsanız 4,0 /nickserv register sifre e-m@il 12,0 Yazarak Sifreleyin  }
}
on *:notice:*kay*tl* de*il*:*:{
if ($nick == Nickserv) { echo -a %logo 0,4 $3 12,0 Nicki Sifreli Değil, Şifrelemek Istiyorsanız 4,0 /nickserv register sifre e-m@il 12,0 Yazarak Sifreleyin  }
}
on *^:ERROR:*Excess Flood*:{ /echo -a 4*** 12Flood Yaptığınız için Bağlantınız Kesildi.. | halt }
on *^:ERROR:*has been throttled*:{ /echo -a 4*** 12Serverda Clone Koruması var. Tekrar Bağlanmak için 15 Saniye Bekleniyor… | halt }
on *^:ERROR:*Kill By*:{ /echo -a 4*** 12 $+ $gettok($4,1,33) 3Tarafından Kill Yediniz! (Sebep: $5- ) | halt }
on *^:ERROR:*BANNED*:{ .nick mIRCbuLUser $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) | .identd on mIRCbuL@mIRCbuL.Net | .server irc.mircbul.net | halt }

Mirc Clone Uyarıcı, Mirc Clone Uyarıcı Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo $chan 2*** 0,4 Clone Tespit Edildi:0,3 $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}

Mirc Op Paneli, Mirc Op Paneli Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

alias oppanel {
if ($dialog(oppanel)) {
dialog -x oppanel oppanel
dialog -m oppanel oppanel
}
else {
dialog -m oppanel oppanel
}
}
alias -l error {
if ($input($1-,ow,Op menü Hata Bildirimi)) { halt }
}
alias -l isop {
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) { paneluser | return $true }
}
alias -l panelchan {
return $did(oppanel,20).seltext
}
alias -l paneluser {
if ($did(oppanel,1).seltext = $null) { edialog Listeden Nick Seçmediniz! | halt }
else { return %onick }
}
alias -l refresh {
did -r oppanel 1,24,25
%c = $nick($did(oppanel,20).seltext,0)
%i = 1
while (%i <= %c) {
did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
inc %i
}
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
else {
did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -b oppanel 28,29
}
}
alias -l trefresh {
.timer -m 1 500 refresh
}
alias -l ccm {
;Teşekkürler
var %ccm.modes = mMiRcsptnlk
var %ccm.ch = $panelchan
if ($1 == $null) {
if ($len($gettok($chan(%ccm.ch).mode,1,32)) < { mode %ccm.ch $+(-,$remove($gettok($chan(%ccm.ch).mode,1,32),+)) $iif(k isin $gettok($chan(%ccm.ch).mode,1,32),$+(-,$chan(%ccm.ch).key)) | halt }
else {
var %ccm.m2 = $mid($gettok($chan(%ccm.ch).mode,1,32),8)
mode %ccm.ch $+(-,$remove($left($gettok($chan(%ccm.ch).mode,1,32),7),+)) $iif(k isin $left($gettok($chan(%ccm.ch).mode,1,32),7),$+(-,$chan(%ccm.ch).key))
mode %ccm.ch $+(-,%ccm.m2) $iif(k isin %ccm.m2,$+(-,$chan(%ccm.ch).key))
halt
}
}
var %ccm.nm = $1 | var %ccm.nparms $calc($0 - 1) | if (%ccm.nparms > 0) { var %ccm.nmp1 = $remove($2,+) } | if (%ccm.nparms > 1) { var %ccm.nmp2 = $remove($3,+) }
var %ccm.om = $remove($gettok($chan(%ccm.ch).mode,1,32),+)
if ((l isincs %ccm.om) && (k isincs %ccm.om)) {
if ($pos(%ccm.om,l,1) < $pos(%ccm.om,k,1) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32)) | var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,3,32),+) }
else { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) | var %ccm.oml = $gettok($chan(%ccm.ch).mode,3,32) }
}
elseif (l isincs %ccm.om) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32) }
elseif (k isincs %ccm.om) { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) }
if ((- isin %ccm.nm) && ($right(%ccm.nm,1) != -)) { echo 4 -a * | halt }
var %ccm.check = $remove(%ccm.nm,+) | var %ccm.c = 0 | var %ccm.n = $len(%ccm.check) | unset %ccm.nm
while (%ccm.c < %ccm.n) {
inc %ccm.c
if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.modes) {
halt
}
if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.nm) { var %ccm.nm = %ccm.nm $+ $mid(%ccm.check,%ccm.c,1) }
}
var %ccm.err = $calc($calc(%ccm.nparms - $iif(k isincs %ccm.nm,1)) - $iif(l isincs %ccm.nm,1))
if (%ccm.err < 0) {
echo 14 -a You entered: $+($1-,.)
if ((%ccm.err == -1) && (l isincs %ccm.nm) && (%ccm.nmp1 !isnum)) { echo 4 -a * }
else { echo 4 -a * }
halt
}
if (%ccm.err > 0) {
echo 14 -a You entered: $+($1-,.)
echo 4 -a *
if (%ccm.nparms < 3) { echo -a * }
echo 14 -a * )
halt
}
if ((l isincs %ccm.nm) && (k isincs %ccm.nm)) {
if ($pos(%ccm.nm,l,1) < $pos(%ccm.nm,k,1)) { var %ccm.nml = %ccm.nmp1 | var %ccm.nmk = %ccm.nmp2 }
else { var %ccm.nmk = %ccm.nmp1 | var %ccm.nml = %ccm.nmp2 }
}
elseif (l isincs %ccm.nm) { var %ccm.nml = %ccm.nmp1 }
elseif (k isincs %ccm.nm) { var %ccm.nmk = %ccm.nmp1 }
if ((%ccm.nml != $null) && (%ccm.nml !isnum)) { echo 14 -a * | halt }
var %ccm.n = $len(%ccm.om) | var %ccm.c = 0
while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.om,%ccm.c,1) !isincs %ccm.nm)) { var %ccm.negm = %ccm.negm $+ $mid(%ccm.om,%ccm.c,1) } }
var %ccm.n = $len(%ccm.nm) | var %ccm.c = 0
while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.nm,%ccm.c,1) !isincs %ccm.om) || ($mid(%ccm.nm,%ccm.c,1) == k) || ($mid(%ccm.nm,%ccm.c,1) == l)) { var %ccm.posm = %ccm.posm $+ $mid(%ccm.nm,%ccm.c,1) } }
if ((l isincs %ccm.posm) && (%ccm.nml === %ccm.oml)) { var %ccm.posm = $remove(%ccm.posm,l) }
if ((k isincs %ccm.posm) && (%ccm.nmk === %ccm.omk)) { var %ccm.posm = $remove(%ccm.posm,k) }
if ((k isincs %ccm.negm) && (k !isincs %ccm.posm)) { var %ccm.nmk = $+(-,%ccm.omk) }
var %ccm.tm = $calc($len(%ccm.negm) + $len(%ccm.posm))
if (%ccm.tm > 6) {
var %ccm.nm2 = $mid($+(%ccm.negm,%ccm.posm),7,1)
var %ccm.snm2 = $iif($len(%ccm.negm) <= 7,+,-)
}
if (%ccm.negm) { var %ccm.negm = – $+ %ccm.negm }
if (%ccm.posm) { var %ccm.posm = + $+ %ccm.posm }
var %ccm.negposm = $replace(%ccm.negm $+ %ccm.posm,++,+)
var %ccm.newmodes1 = $iif(%ccm.nm2,$left(%ccm.negposm,$calc($pos(%ccm.negposm,%ccm.nm2,1) – 1)),%ccm.negposm)
if ((l isincs %ccm.newmodes1) && (k isincs %ccm.newmodes1)) { var %ccm.newmodes1 = %ccm.newmodes1 $iif($pos(%ccm.newmodes1,l,1) < $pos(%ccm.newmodes1,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
else { var %ccm.newmodes1 = %ccm.newmodes1 $iif(l isincs %ccm.newmodes1,%ccm.nml) $iif(k isincs %ccm.newmodes1,%ccm.nmk) }
if (%ccm.nm2) {
var %ccm.newmodes2 = $+(%ccm.snm2,$mid(%ccm.negposm,$pos(%ccm.negposm,%ccm.nm2,1)))
if ((l isincs %ccm.newmodes2) && (k isincs %ccm.newmodes2)) { var %ccm.newmodes2 = %ccm.newmodes2 $iif($pos(%ccm.newmodes2,l,1) < $pos(%ccm.newmodes2,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
else { var %ccm.newmodes2 = %ccm.newmodes2 $iif(l isincs %ccm.newmodes2,%ccm.nml) $iif(k isincs %ccm.newmodes2,%ccm.nmk) }
}
if (%ccm.newmodes1) { mode %ccm.ch %ccm.newmodes1 | if (%ccm.newmodes2) { mode %ccm.ch %ccm.newmodes2 } }
}
dialog oppanel {
title “.::[ oPeratör Menü ]::.”
size -1 -1 131 187
option dbu
list 1, 3 6 67 126, size vsbar
button “Op”, 2, 71 7 28 12
button “Deop”, 3, 99 7 30 12
button “Voice”, 4, 71 19 28 12
button “Devoice”, 5, 99 19 30 12
button “+o/-v”, 6, 71 31 28 12
button “-o/+v”, 7, 99 31 30 12
button “Sop Yaz”, 8, 71 43 28 12
button “Sop Sil”, 9, 99 43 30 12
button “Aop Yaz”, 10, 71 55 28 12
button “Aop Sil”, 11, 99 55 30 12
button “+Vop”, 12, 71 67 28 12
button “-Vop”, 13, 99 67 30 12
button “Kick”, 14, 71 83 28 12
button “Akick”, 15, 99 83 30 12
button “Ban”, 16, 71 95 28 12
button “İp ban”, 17, 99 95 30 12
button “Kick+Ban”, 18, 71 107 28 12
button “KBan IP?”, 19, 99 107 30 12
combo 20, 20 161 70 100, size drop
text “Kanal”, 21, 1 162 17 8
button “Kapat”, 22, 93 174 37 10, ok cancel
button “Yenile”, 23, 93 161 37 10
edit “”, 24, 20 135 70 10, disable autohs
edit “”, 25, 20 147 70 10, disable autohs
text “Topik”, 26, 1 136 18 8
text “Modlar”, 27, 1 148 18 8
button “Topic Kaydet”, 28, 93 135 37 10, disable
button “Mod Kaydet”, 29, 93 148 37 10, disable
button “Süreli KB”, 30, 71 119 28 12
button “Süreli Ban”, 31, 99 119 30 12
}
on 1:dialog:oppanel:init:0: {
mdx MarkDialog $dname
mdx SetBorderStyle 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,22,23,28,29,30,31 staticedge
mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 +a 13 500 tahoma
var %i = 1
while ($chan(%i)) {
did -a oppanel 20 $ifmatch
inc %i
}
did -c oppanel 20 1
%chan = $did(20).seltext
%i = 1
while ($nick(%chan,%i).pnick) {
did -a oppanel 1 $ifmatch
inc %i
}
did -a oppanel 24 $chan(%chan).topic
did -a oppanel 25 $chan(%chan).mode
if ((*o* iswm $usermode) || ($me isop %chan)) {
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
}
on 1:dialog:oppanel:close:0: {
unset %onick, %chan
}
on 1:dialog:oppanel:sclick:1: {
%formatnick = $did(oppanel,1).seltext
if ($left(%formatnick,1) isin @+%~?*!) {
set %onick $remove(%formatnick,$left(%formatnick,1))
unset %formatnick
if ($left(%onick,1) isin @+%~?*!) {
set %onick $remove(%onick,$left(%onick,1))
if ($left(%onick,1) isin @+%~?*!) {
set %onick $remove(%onicknick,$left(%onick,1))
}
}
}
else {
set %onick $did(oppanel,1).seltext
}
}
on 1:dialog:oppanel:sclick:2: {
if ($isop) { mode $panelchan +o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:3: {
if ($isop) { mode $panelchan -o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:4: {
if ($isop) { mode $panelchan +v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:5: {
if ($isop) { mode $panelchan -v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:6: {
if ($isop) { mode $panelchan -v+o $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:7: {
if ($isop) { mode $panelchan -o+v $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:8: {
if ($isop) { chanserv SOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:9: {
if ($isop) { chanserv SOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:10: {
if ($isop) { chanserv AOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:11: {
if ($isop) { chanserv AOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:12: {
if ($isop) { chanserv VOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:13: {
if ($isop) { chanserv VOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:14: {
if ($isop) { kick $panelchan $paneluser 1Kicked.! | trefresh }
}
on 1:dialog:oppanel:sclick:15: {
if ($isop) { chanserv akick $panelchan $?=”Add/Del?” $paneluser Auto Kick.! }
}
on 1:dialog:oppanel:sclick:16: {
if ($isop) { ban $panelchan $paneluser }
}
on 1:dialog:oppanel:sclick:17: {
if ($isop) { ban $panelchan $paneluser $?=”Ban Şekli?”) }
}
on 1:dialog:oppanel:sclick:18: {
if ($isop) { ban $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are banned.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:19: {
if ($isop) { ban $panelchan $paneluser $?=”Ban Şekli?”) | kick $panelchan $paneluser 2You are banned.!7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:20: {
did -r oppanel 1,24,25
%c = $nick($did(oppanel,20).seltext,0)
%i = 1
while (%i <= %c) {
did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
inc %i
}
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
else {
did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -b oppanel 28,29
}
}
on 1:dialog:oppanel:sclick:23: {
dialog -x oppanel oppanel
dialog -m oppanel oppanel
}
on 1:dialog:oppanel:sclick:28: {
%oldtopic = $chan($did(oppanel,20).seltext).topic
if (%oldtopic != $did(oppanel,24)) {
topic $did(oppanel,20).seltext $did(oppanel,24)
}
}
on 1:dialog:oppanel:sclick:29: {
ccm $did(oppanel,25)
}
on 1:dialog:oppanel:sclick:30: {
if ($isop) { ban $+(-u,$calc($input(Kaç Dakika Banlı olsun ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are Kick+ban.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:31: {
if ($isop) { ban $+(-u,$calc($input(Kaç dakika? ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 }
}

Mirc Kick Sayacı, Mirc Kick Sayacı Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

menu status,menubar,channel {
.-
.• © Kick Sayacı
..• Açık:.enable #KCounter | .echo -a 0,4 Kick Sayacı Açıldı 
..• Kapalı:.disable #KCounter | .echo -a 0,4 Kick Sayacı Kapatıldı 
.-
}
#KCounter on

on *:kick:#:if ( $nick == $me ) inc %kicks 1

alias kick { if ($me isop $1) && ($2 ison $1) { kick $1 $2 $3- 4K1ick= 4 • $+ %kicks $+ • } }

#KCounter End