Mirc Admin menu addonu

Kod:

 

menü durumu, menü çubu?unun, kanal (
  . EXLove Admin Menü: / dialog-m exlove exlove
)
ileti?im eXLove (
  Ba?l?k “Admin Menü ” eXLove
  boyutu -1 -1 165 296
  seçenek dBu
  dü?mesine “Nick Yasakla ”, 2, 11 15 37 10
  dü?mesine “Nick Yasa? Sil “, 3, 52 15 37 10
  dü?mesine “Yasakl? Nickleri Listele “, 4, 58 240 57 10
  dü?mesine “Nickin Kayd? n? Yasakla “, 5, 58 253 57 10
  dü?mesine “Nickin Kayd? n? Sil “, 6, 11 27 46 10
  dü?mesine “Kanal Yasakla ”, 7, 93 15 37 10
  dü?mesine “Nicke GETPASS ”, 8, 62 27 38 10
  dü?mesine “Kanala GETPASS ”, 9, 105 27 41 10
  “Global dü?mesine ” At, 10, 107 121 37 10
  dü?mesine “Adminleri Listele ”, 11, 93 52 45 9
  dü?mesine “Yönetici Ekle ”, 12, 11 52 37 9
  dü?mesine “Yönetici Sil ”, 13, 52 52 37 9
  dü?mesine “Oper Sil ”, 14, 52 63 31 9
  dü?mesine “Spam Sil ”, 15, 56 85 37 10
  dü?mesine “Oper Ekle ”, 16, 11 63 37 9
  dü?mesine “Oper Listele ”, 17, 87 63 37 9
  dü?mesine “Host -? göçük De? i? ”, 18, 30 214 49 10
  dü?mesine “Spam Ekle ”, 19, 14 85 37 10
  dü?mesine “Blok Ekle ”, 20, 14 98 37 9
  dü?mesine “Block Sil ”, 24, 55 98 37 9
  dü?mesine “Spam Listele ”, 25, 97 85 37 10
  dü?mesine “Operlere Air Video ”, 21, 16 121 43 10
  dü?mesine “Özellere Air Video ”, 22, 62 121 42 10
  dü?mesine “Reklam Kontrol B?R Kere ”, 23, 12 162 61 10
  dü?mesine “Reklam Kontrol 3 dk. ‘Da B?R “, 26, 76 162 72 10
  dü?mesine “Restrart Atma ”, 27, 96 98 41 9
  dü?mesine “Serveri Kapa ”, 28, 61 176 37 10
  dü?mesine “Servicesleri Dü? ür ”, 29, 12 176 48 10
  dü?mesine “Useri Kanala Sok ”, 30, 86 200 43 10
  dü?mesine “AKILL Ekle ”, 31, 16 134 29 10
  dü?mesine “Userin Nickini De? i? ”, 32, 82 214 51 10
  dü?mesine “Girilmeyen Kanala Gir ”, 33, 99 176 55 10
  dü?mesine “Useri Kanaldan Ç? kar ”, 34, 30 200 52 10
  dü?mesine “AKILL Sil ”, 35, 48 134 37 10
  dü?mesine “AKILL Listele ”, 1, 87 134 37 10
  kutu “1 ”, 36, Menü 5 7 146 33
  kutu “Menü2 ”, 37, 8 44 136 30
  kutu “Menü 3 ”, 38, 9 77 135 33
  kutu “4 ”, 39, Menü 12 113 138 34
  kutu “5 ”, 40, Menü 8 154 151 36
  kutu “6 ”, 41, Menü 25 192 114 36
  kutu “7 ”, 42, Menü 53 232 67 34
  “Yazan de?i?tir eXLove ”, 43, 62 268 47 10, okumak
  “ Düzenlerim? Leti? Im: c0d3rs@w.cn ”, 44, 55 280 61 11, okumak
)
* Do?um: dialog: eXLove :*:*: (
== Sclick ($ devent) (if
/ SQLINE $ eklemek ($ did == 2) (if? = “Eklenecek Nick? ”)
/ SQLINE $ eklemek ($ did == 3) (if? = “Silinecek Nick? ”)
($ Did == 4) (/ SQLINE liste) e?er
NickServ $ $ korusun ($ did == 5) (if /? = “Kayd? Yasaklanacak Nick? “)
($ Did == 6) (/ NickServ drop $ $ olur? = “Kayd? Silinecek Nick? “?imdi)
$ $ Korusun ($ did == 7) (if / cs? = “Yasaklanacak # Kanal? ”)
($ Did == (if / NickServ $ GETPASS? = “Nick? ”)
($ Did == 9) (/ ChanServ GETPASS $ olur? = “# Kanal? ”)
/ Global $ $ os ($ did == 10) (if? = “Air Video? N? ”)
/) Admin listesini os ($ did == 11) (if
/ Os ($ did == 12) (if admin $ eklemek? = “Eklenecek Nick? ”)
($ Did == 13) (/ os admin del $ olur? = “Silicenek Nick? ”)
/ Del $ oper os ($ did == 14) (if? = “Silinecek Nick? ”)
del cpNn ($ did == 15) (/ spamfilter e?er gzline 2d $ $? = “sebep? ” $ + $ $ ^? = “Silinecek spamfilter? ” $ + $ )
/ Os ($ did == 16) (if oper $ eklemek? = “Nick? ”)
/) Oper listesinde os ($ did == 17) (if
/ Setident $ $? = “Ident ” | / sethost $ $ ($ did == 18) (if? = “Host ”)
/ Spamfilter cpNn gzline 2d $ eklemek ($ did == 19) (if? = “Sebep? ” $ + $ $ ^? = “Eklenecek spamfilter? ” $ + $ )
/ Spamfilter cpNn blok 2d $ eklemek ($ did == 20) (if? = “Sebep? ” $ + $ $ ^? = “Block Eklenecek Kelime? ” $ + $)
“$ + $ $ ^ ($ Did == 21) (/ spamfilter del cpNn blok 2d $ olur? = ” Sebep? ? = “Block Silinecek Kelime? ” $ + $)
($ Did == 22) (/ os spamfilter) e?er
/ $ $ Globops ($ did == 23) (if? = “Air Video? N)
/ Irc.Sunucun.com? “$ $ $ $? ” $ Tan?mlamak ($ did == 24) (if? = “Air Video? N? ”)
/ Irc.Sunucun.com? “$ $ $ $? ” $ Tan?mlamak ($ did == 25) (if? = “Reklam Kontrol Air Video? N? ”)
($ Did == 26) (0 180 / irc.Sunucun.com? “$ $ $ $? ” $ Tan?mlamak / zamanlay?c? olur? = “Reklam Kontrol Air Video? N? ”
OperServ) dinlenme ($ did == 27) (/ if
/ $ $ Die ($ did == 28) (if? = “Eee Server? Iresini Yaz Bakim? ”)
OperServ) ç?kmak ($ did == 29) (/ if
/ $ $ Sajoin ($ did == 30) (if? = Nick? “$ $? = ” # Kanal “)
/ Os ($ did == 31) (if AKILL 2d $ eklemek? = “* @ IP Adresi? ” $ $? = “Sebep? ”)
($ Did == 32) (/ OperServ raw svsnick $ $? = “? Uanki Nicki? ” $ $ Olur? = “De? I? Ecek Hali? ”: 0 )
/ J $ $? = “# Kanal? ”) ($ Did == 33) (if
($ Did == 34) (/ part $ $? = “Nick? ”) If
($ Did == 35) (/ os AKILL del 2d $ $? = “* @ IP Adresi? ”) If
($ Did == 36) (/ AKILL Listesi) e?er
)

Küfür Koruması

 

menu channelstatusmenubar {
® KüFüR KoRuMa
.GösTeR:.dialog -m king king
.Aç:.enable #real | .enable #real2 | echo -a 91Korumalar Aktif Edildi Lütfen Ban Ayarlarınız Kontrol Edinizzz!!!…
.Kapat:.disable #real | .disable #real2 | echo -a 81 Korumalar Şuanda Pasif Konumda….
}
dialog king {
title ” . . . . . : : : : : Küfür Koruma : : : : : . . . . “
size -1 -1 190 208
option dbu
button “EKLE” 2 82 8 19 9
button “SiL” 3 105 8 19 9
edit “” 4 4 167 184 10 autohs
button “” 5 52 183 77 22 ok
box “BiLGi ALANI << BY: ReaL_KinG >>” 7 81 103 106 61
radio “SADECE BAN” 6 82 33 48 10 push
radio “KONUŞAMASIN” 8 134 47 48 10 push
radio “KiCK + BAN” 9 82 47 48 10 push
radio “SADECE KiCK” 10 134 33 48 10 push
edit “” 11 99 89 53 10 autohs
check “Ban Süresini Belirlemek İstiyorum” 12 82 66 103 10
text “BAN SÜRESİ SN.” 13 99 79 52 8 center
edit “” 1 5 8 72 10 autohs
list 14 5 19 73 146 size
text “” 16 82 111 103 52
}
on 1:dialog*:*:{
if ($devent == sclick) {
if ($did == 2) {
var %ekle $did(1).text
if (%ekle == $null) { halt $input(Eklemek İçin Birşeyler YazmalısınowudHATA) }
elseif $read(küfür.txtw%ekle) { halt $input(Ekelemek İstediğiniz Kelime Listede MevcutoiudBİLGİ) }
else { write küfür.txt %ekle | did -a $dname 14 $did(1).text | did -r $dname 1 $did(1).text | did -a $dname 16 Kelime Başarı ile Eklendi }
}
if ($did == 3) {
if ($did(14).sel == 0) { halt $input(Seçim Yapmadan Silenide İlk Kez GörüyorumowudHATA) }
else { write -dl $+ $did(14).sel küfür.txt | did -d $dname 14 $did(14).sel }
}
if ($did == 6) {
if ($did(6).state == 1) { set %ban sadeban | set %bantip ban -u | .enable #real | .disable #real2 }
}
if ($did == {
if ($did(8).state == 1) { set %ban konuşma | .enable #real2 | .disable #real | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanırsanız Süre Kullanamazsınız!!oiudBiLGi) }
}
if ($did == 9) {
if ($did(9).state == 1) { set %ban kickban | set %değer kick | .enable #real | .disable #real2 }
}
if ($did == 10) {
if ($did(10).state == 1) { set %ban kick | unset %bantip .enable #real | .disable #real2 | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanırsanız Süre Kullanamazsınız!!oiudBiLGi) }
}
if ($did == 12) {
if ($did(12).state == 1) { set %süre açık | did -e $dname 11 }
if ($did(12).state == 0) { set %süre kapalı | did -b $dname 11 }
}
if ($did == 5) {
if ($did(4) == $null) { halt $input(Kick Mesajı Belirlemediniz!!oiudBiLGi) }
if ($did(11) == $null) && ($did(12).state == 1) { did -u $dname 12 | did -b $dname 11 | set %süre kapalı | halt $input(Zaman Belirlemediğiniz için Ban Tipi Süresize ÇevirildioiudBiLGi) }
else { set %kickmsg $did(4) | set %zaman $did(11) }
}
}
if ($devent == init) {
loadbuf -o $dname 14 $shortfn(küfür.txt)
if (%ban == sadeban) { did -c $dname 6 | unset %değer }
if (%ban == konuşma) { did -c $dname 8 }
if (%ban == kickban) { did -c $dname 9 }
if (%ban == kick) { did -c $dname 10 | unset %bantip | unset %zaman | did -b $dname 11 }
if (%süre == açık) { did -c $dname 12 }
if (%süre == kapalı) { did -b $dname 11 | unset %zaman }
did -a $dname 4 %kickmsg
did -a $dname 11 %zaman
}
if ($devent == mouse) {
if ($did == 6) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Eğer Süre Belirtirseniz Kişi Sadece Belirlediğiniz süre Boyunca Ban ‘lı Kalır.. Eğer Süre Belirlenmemiş ise Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == did -ra $dname 16 Bu Seçeneği Tıkladığınızda Süre belirtemezsiniz.. Kişi Kanala Girip Çıkabilir Fakat Kanala Yazı Yazamaz..
if ($did == 2) did -ra $dname 16 Bu Buton ile istediğiniz Bir Kelimeyi Listenize Ekleyebilirsiniz.. Kelimenin Başına (*) işaretini Koyarsanız Kelimeden Önce Yazılan Yazıyıda Kapsar. Eğer Sonuna (*) işareti Koyarsanız Kelimeden Sonra Yazılan Yazıyıda Kapsar.. Eğer iki Tarafada Yıldız Koyarsanız Kelimeyi Yazılan Metnin içinde Arar.
if ($did == 3) did -ra $dname 16 Bu Buton ile Listede Seçilmiş Olan Kelimeyi Silebilirsiniz.. Eğer Listeden Seçim yapılmadıysa Silemezsiniz.. Silmek için Bir Kelime Seçmek Zorunludur..
if ($did == 9) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Eğer Süre Belirtirseniz Kişi Kanaldan Hem BAN ‘lanır Ve Kick Edilir.Belirtilen Sürenin Sonunda BAN Kendi Çözülür.. Eğer Süre Belirtilmemiş İse Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == 10) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Süre Belirtemezsiniz.. Kişi Sadece Kanaldan Kick Edilir.. Büyük Bir ihtimalle Tekrar Gelecektir..
if ($did == 14) did -ra $dname 16 Bu Liste Sizin Eklemek İstediğiniz Kelimeleri Gösterir.. Eğer Aynı Kelimeyi Eklemek isterseniz Sizi Uyarır..
if ($did == 5) did -ra $dname 16 Bu Buton Tıkladığınızda Eksik yada Yanlış Birşeyler Var ise Size Uyarı Verecektir.. Ve Ayarları Kaydedip ileti Kutusunu Kapatır..
if ($did == 12) did -ra $dname 16 Bu Seçenek BAN Tipi Seçtiğinizde Size BAN Süresi Belirlemek Gibi Bir Seçenek Sunar.. Eğer Süre Belirtilmeyen Bir BAN Tipi Seçerseniz Otmatik Ayarlanır..
if ($did == 1) did -ra $dname 16 Listeye Eklemek istediğiniz Kelimeyi Buraya Yazınız.. Varolan Kelimeleri Eklemezsiniz…
if ($did == 11) did -ra $dname 16 Bu Kutucuğa Ban Süresini Yazabilirsiniz.. Eğer Harf Girmeyi Denerseniz Bu Mümkün Olmayacaktır.. Sadece Rakam Olarak Ban Süresi .sn Olarak Yazılabilir. Yada Boş Bırakılır.. örnek : 600 }
if ($did == 4) did -ra $dname 16 Bu Kutucuğa Kendi Kick Mesajınızı Yazabilirsiniz.. Kişi Kanaldan Sizin Tarafınızdan Kick Edilirse Bu Mesaj Görüntülenir.. Karizma Birşey Olması Şartıyla
if ($devent == edit) {
if ($did == 11) && ($did(11) !isnum) did -r $dname 11
}
}
#real off
on 1@:TEXT:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %değer $chan $nick %kickmsg }
inc %t
}
}
#real end
#real2 off
on 1@:TEXT:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
inc %t
}
}
#real2 end
#real off
on 1@:ACTION:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %değer $chan $nick %kickmsg }
inc %t
}
}
#real end
#real2 off
on 1@:ACTION:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
inc %t
}
}
#real2 end
on *:LOAD:{
write küfür.txt Beni silermisin plss..
echo -a Küfür Koruma Yüklendi
echo -a BY : ReaL_KinG
echo -a Sağ Click ‘e Tıklayıp ® KüfüR KoRuMa sekmesinden ulaşabirsin

alias optes {
if (%opvote == off) { dialog -m opvotes opvotes 180 200 280 180 | dialog -t opvotes Op-Voice Teşekkür Modu Kapalı. | did -b opvotes 9 | did -b opvotes 10 | did -b opvotes 11 | did -b opvotes 12 }
if (%opvote == on) { dialog -m opvotes opvotes 180 200 280 180 | dialog -t opvotes Op-Voice Teşekkür Modu Açık. }
}
dialog opvotes {
size 180 200 296 186
box “”, 505, 1 -5 293 190
title “.::[ Op-Voice Teşekkür ]::.”
button “Kaydet ve Çık”,1,20 150 125 25,ok
button “Vazgeç”,2,155 150 125 25,cancel
text “Op (+o) Mesajı ->”,3,20 47 100 20
text “DeOp (-o) Mesajı ->”,4,20 72 100 20
text “Voice (+v) Mesajı ->”,5,20 97 100 20
text “Devoice (-v) Mesajı ->”,6,20 119 110 20
box “”,7,13 135 274 10
box “”,8,15 1 265 43,
edit %optemsg ,9,125 45 155 20,autohs
edit %deoptemsg ,10,125 69 155 20,autohs
edit %votemsg ,11,125 93 155 20,autohs
edit %devotemsg ,12,125 117 155 20,autohs
radio “Açık”,13,125 13 50 25,group
radio “Kapalı”,14,190 13 50 25
text “Durum:” 501, 70 18 35 15
}
on *:dialog:opvotes:sclick:1: { set %optemsg $did(9) | set %deoptemsg $did(10) | set %votemsg $did(11) | set %devotemsg $did(12) }
on *:dialog:opvotes:sclick:13: { set %opvote on | dialog -t opvotes Op-Voice Teşekkür Açıldı. | did -e opvotes 9 | did -e opvotes 10 | did -e opvotes 11 | did -e opvotes 12 }
on *:dialog:opvotes:sclick:14 { set %opvote off | dialog -t opvotes Op-Voice Teşekkür Kapandı. | did -b opvotes 9 | did -b opvotes 10 | did -b opvotes 11 | did -b opvotes 12 }
on *:dialog:opvotes:init:0:{
if (%opvote == on) { did -c opvotes 13 }
if (%opvote == off) { did -c opvotes 14 }
}
on ^*:OP:#:{ if ($opnick == $me) && (%opvote == on) && ($nick != $me) { msg $chan $nick %optemsg } }

 

on ^*:DEOP:#:{ if ($opnick == $me) && (%opvote == on) && ($nick != $me) { msg $chan $nick %deoptemsg } }

on ^*:VOICE:#:{ if ($vnick == $me) && (%opvote == on) && ($nick != $me) { msg $chan $nick %votemsg } }

on ^*:DEVOICE:#:{ if ($vnick == $me) && (%opvote == on) && ($nick != $me) { msg $chan $nick %devotemsg } }

menu menubar,status,channel {
Op voice Tesekkur :/dialog -m opvotes opvotes
}

identify (şifre) kutucugu kodu

eklendi: 08.01.2011

kod:

on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre } on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }

dialog sifre {
title “Şifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: “, 3, 10 10 23 13
edit “”, 5, 45 8 60 10, style(pass)
edit “”, 6, 45 20 60 10

button “Uygula”, 1, 10 35 40 15, ok
button “I&ptal”, 2, 60 35 40 15, cancel

}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}

İdentify Kutucugu

Etiketler: identfiy kutucugu, mirc identify kutucugu kodu, şifre kutucugu