Admin DiaLogu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

bLaсk · 25 Ekim 2009, 18:22

Merhaba ArkadaşLar . Bir Tane Admin Dialogu Hazırlamaya Çalıştım ve iLk defa yapıyorum iLk çalışmamıda sizlerle Paylaşmak istedim Umarım Birazda oLsa Birşeyler yapabiLmişimdir Beğenmenizi Umuyorum . iLk oLdugu içinde Çok Uğraştım. Bana Bu Çalışmada Destek Olan IrCbaStarD 'a StanteaR' a ve Rohit'e Çok teşekkür Ediyorum.

Mdx.Dll yi Mırc Ana dizinindeki Dlls Dosyasına atmanız gerekmektedir. Remoteye Eklemek ıcınde Kodu alıp Alt+R yaparak Remote Bolumunde Yeni Bir sayfaya pastelıyorsunuz. Görüntüsü Aşağıdaki Gibi oLucaktır.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog Admin-Komutları {
  title "Admin"
  size -1 -1 294 295
  option dbu
  button "Zline At", 1, 7 11 37 12
  button "zline ac", 3, 7 28 37 12
  box "ZLine ", 4, 2 2 48 42
  box "Akill", 5, 50 2 48 42
  button "Akill At", 7, 55 11 37 12
  button "Akill Aç", 8, 55 28 37 12
  button "Shun At", 9, 103 11 37 12
  button "Shun Ac", 10, 103 28 37 12
  box "Shun", 13, 98 2 48 42
  button "Kline At", 14, 153 11 37 12
  button "Kline Aç", 15, 153 28 37 12
  box "Kline", 2, 148 2 48 42
  button "Rehash", 11, 7 54 37 12
  button "Kline", 12, 55 54 37 12
  button "Akill", 16, 103 54 37 12
  box "Remove ", 17, 2 47 143 22
  box "Kill", 19, 202 2 45 24
  box "Samode", 6, 202 28 45 24
  box "Sajoin", 18, 202 55 45 24
  button "Kill At", 20, 206 11 37 12
  button "Koy", 21, 206 36 37 12
  button "Gir", 22, 206 63 37 12
  box "Restart", 23, 147 47 50 22
  button "Restart Cek", 24, 153 54 37 12
  box "Admin Panel", 25, 248 2 42 50
  button "Open", 26, 250 11 37 12
  button "Close", 27, 250 36 37 12
  box "Global Mesajlar", 28, 2 73 75 100
  button "Auto Uyarısı", 29, 10 84 54 12
  button "Para Uyarısı", 30, 10 101 54 12
  button "Servsiler Geldi", 31, 10 136 54 12
  button "Ozel Mesaj", 32, 10 154 54 12
  button "Servisler Gitti", 33, 10 118 54 12
  button "Flood Ban", 35, 96 84 54 12
  button "Reklam Ban", 36, 96 102 54 12
  box "Ban Cesitleri", 37, 85 73 75 100
  button "Auto Mesaj Ban", 34, 96 120 54 12
  button "Auto DCC Ban", 38, 96 137 54 13
  button "Kufur Ban", 39, 96 154 54 13
  box "Services Admin", 40, 165 82 115 91
  box "Nick", 41, 171 91 51 73
  box "Kanal", 42, 223 91 51 73
  button "ListChans", 43, 177 103 37 12
  button "Setpass", 44, 177 121 37 12
  button "Drop", 45, 177 140 37 12
  button "FTransfer", 46, 228 103 37 12
  button "Setpass", 47, 228 121 37 12
  button "Drop", 48, 228 140 37 12
  box "Oper Listesi", 49, 2 176 159 31
  button "Oper Listesi", 50, 10 187 45 12
  button "Ban Listesi", 51, 61 187 45 12
  button "Qline Listesi", 52, 113 187 45 12
  box "Proxy İslemleri", 53, 2 208 159 28
  button "Ekle", 54, 9 217 45 12
  button "Sil", 55, 62 217 45 12
  button "Listele", 56, 113 217 45 12
  box "Diger", 57, 22 238 104 29
  button "ServStart", 58, 30 248 37 12
  button "WebAdmin", 59, 80 248 37 12
  box "Bot İslemleri", 60, 165 178 115 32
  box "Oper", 62, 165 210 115 31
  button "Sok", 61, 176 185 37 10
  button "Cıkar", 63, 176 197 37 10
  button "Msg Add", 64, 233 185 37 10
  button "Msg Del", 65, 233 197 37 10
  button "Ekle", 66, 176 216 37 10
  button "Sil", 67, 233 216 37 10
  button "List", 68, 233 228 37 10
  button "İnfo", 69, 176 228 37 10
  box "Kanal", 70, 226 246 54 41
  box "Nick", 72, 169 246 54 41
  button "Ekle", 71, 177 253 37 9
  button "Sil", 73, 177 264 37 9
  button "Listele", 74, 177 275 37 10
  button "Ekle", 75, 233 253 37 9
  button "Sil", 76, 233 264 37 9
  button "Listele", 77, 233 276 37 9
  box "AdmisServ", 78, 163 172 122 122
  box "Forbit", 79, 165 240 118 51
  box "Fjoin", 80, 248 55 42 24
  button "Sok", 81, 251 63 37 12
  button "Tamam/Kapat", 82, 10 272 146 18
}

on *:dialog:Admin-Komutları:init:*: {
  mdx SetDialog  $dname  bgcolor  $rgb(225,225,225)
  mdx SetColor $dname 11,12,17,26 textbg $rgb(225,225,225)
  mdx SetColor $dname 11,12,17,26 background $rgb(225,225,225)
  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,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83 12 700 Franklin Gothic Medium
  mdx SetBorderStyle 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,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82, staticedge 
  dll dlls\mdx.dll SetMircVersion $version | dll dlls\mdx.dll MarkDialog $dname
  dll dlls\mdx.dll 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,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82 12 700 Franklin Gothic Medium
  dll dlls\mdx.dll SetFont +b 3,26,27 700 Tahoma
}


on *:Dialog:Admin-Komutları:Sclick:*:{
  if $did == 1 {
    zline $$?"Nick veya İp adresi?" Sebeb 
  }
  if $did == 3 {
    Unzline $$?"İp adresi?" 
  }
  if $did == 7 {
    Akill $$?"Nick veya İp adresi?" Sebeb 
  }
  if $did == 8 {
    rakill $$?"İp adresi?" 
  }
  if $did == 9 {
    shun $$?="Kimi Susturacaksın?" %sustur 
  }
  if $did == 10 {
    Unshun $$?"Kaldırılacak Nick?" 
  }
  if $did == 14 {
    kline $$?"Nick veya İp adresi?" 
  }
  if $did == 15 {
    unkline $$?"İp adresi nedir?" 
  }
  if $did == 11 {
    rehash 
  }
  if $did == 12 {
    unkline *@* 
  }
  if $did == 16 {
    rakill *@*
  }
  if $did == 20 {
    kill $$?"İp adresi veya nick?" 
  }
  if $did == 21 {
    samode $$?="Kanal Adı?" $$?="Mode?"
  }
  if $did == 22 {
    sj $$?="Hangi Kanala Gireceksiniz?" 
  }
  if $did == 24 {
    restart 
  }
  if $did == 26 {
    cs open $$?="Açılacak Kanalın Adını Girin?" 
  }
  if $did == 27 {
    cs close $$?="Kapanacak Kanalın Adını Girin?"
  }
  if $did == 29 {
    nflash 4Lütfen 2Auto Message ve Auto DCC4'leri 2/remote off 4Yazarak Kapatınız. Aksi Taktirde 2Server4`dan Uzaklaştırılacaksınız.
  }
  if $did == 30 {
    nflash 4Servislerde Kayıtlı Bulunan Nick ve Kanallar 2Sunucuya ve Yönetime 4Aittir. Para Karşılığı 2Kanal veya Nick Satılamaz 4, Kiralanamaz. Tespit Edildiği Taktirde Server Yöneticileri 2Nicki/Kanalı 4Geri Alma Yetkisine Sahiptir.
  }
  if $did == 31 {
    nflash 4Servisler Kısa Bir Süre Sonra 2Aktif 4Hale Geçecektir. Lütfen 2Kanal ve Nick 4Şifrelerinizi Kimseye Vermeyiniz..
  }
  if $did == 32 {
    nflash 4Servisler 2Aktif 4Hale Geçmistir. Lütfen 2Nicklerinizin 4Şifresini Girin.
  }
  if $did == 33 {
    nflash 2Özellerinize Gelen websitesi adresleri ve 4Server adresleri içerikli Mesajlara dikkat almayınız,Atılan Site reklamına tıkladıgınızda site uzerinden makinenize 2virüs-trojen-Dbc ve benzeri makine için zararlı programlar giriyor.4Bu mesajları okumadan direk kapatip en yakın @(operatör) İrcop(ircYöneticisi) Bildiriniz.
  }
  if $did == 35 {
    kline $$?="Host Mask? (Flood Ban)"
  }
  if $did == 36 {
    kline $$?="Host Mask? (Reklam Ban)"
  }
  if $did == 34 {
    /shun $$?="Nick? (Auto Mesaj Shun)"
  }
  if $did == 38 {
    kline $$?="Host Mask? (ADcc Ban)"
  }
  if $did == 39 {
    kline $$?="Host Mask? (Küfür Ban)"
  }
  if $did == 43 {
    ns listchans $$?="Yetkisi Öğrenilecek Nick?"
  }
  if $did == 44 {
    ns setpass $$?="SetPass Yapılacak Nicki Girin" $$?="Yeni Şifreyi Girin?"
  }
  if $did == 45 {
    ns drop $$?"Droplanıcak nick?"
  }
  if $did == 46 {
    cs ftransfer $$?="Devredilecek Kanal Adı?" $$?="Kanalın Yeni Sahibi?"
  }
  if $did == 47 {
    cs setpass $$?="SetPass Çekilecek Kanalın Adını Girin?" $$?="SetPass Çekilecek Kanalın Yeni Şifresini Girin?"
  }
  if $did == 48 {
    cs drop $$?"Droplanıcak kanal"?
  }
  if $did == 50 {
    stats o
  }
  if $did == 51 {
    stats k
  }
  if $did == 52 {
    stats q
  }
  if $did == 54 {
    proxyekle
  }
  if $did == 55 {
    proxyekle
  }
  if $did == 56 {
    proxyekle
  }
  if $did == 58 {
    servstart
  }
  if $did == 59 {
    wepadmin
  }
  if $did == 61 {
    as chan $$?="#Kanal Adı?" add
  }
  if $did == 63 {
    as chan $$?="#Kanal Adı?" de
  }
  if $did == 64 {
    as chan $$?="#Kanal Adı" greeting append $$?="Greet Msg?"
  }
  if $did == 65 {
    as chan $$?="#Kanal Adı" greeting del $$?="Msg Numarası?"
  }
  if $did == 66 {
    as oper  $$?="Nick?" add $$?="Sifre?" $$?="Flag?" | /as oper $$?="Tekrar Nick Yazın?" access add *@*
  }
  if $did == 67 {
    as oper $$?="Nick?" DEL
  }
  if $did == 68 {
  as oper   }
  if $did == 69 {
    as oper $$?="Nick?" List
  }
  if $did == 71 {
    as security nonick add $$?="Nick?" $$?="Sebep?"
  }
  if $did == 73 {
    as security nonick Del $$?="Nick?"
  }
  if $did == 74 {
    as security nonick list
  }
  if $did == 75 {
    As security nochan add $$?="#Kanal Adı?" $$?="Sebep?"
  }
  if $did == 76 {
    As security nochan DEL $$?="#Kanal Adı?"
  }
  if $did == 77 {
    As security nochan list
  }
  if $did == 81 {
    fjoin #$$?="Kullanıcının sokulacağı kanal:" $$?="Kanala sokulacak kullanıcının nicki:"
  }
  if $did == 82 {
    dialog -x $dname

  }

}

İyi ForumLar...

dhan · 25 Ekim 2009, 21:22

Dialog Cali$malarin Harika ..
Tebrik Ederim.

bLaсk · 25 Ekim 2009, 21:24

Yardımlarınız İçin Tekrar Teşekkürler İnşallah Geliştiricem kendimi daha iyi Çalışmalara imza atıcam .

İyi ForumLar...

Editor · 26 Ekim 2009, 00:03

Azmin zaferi Emeğine sağlık.

Fr33 · 18 Şubat 2010, 13:17

black, öncelikle emek edip bu kodu hazırladığın için teşk ederim emeğine sağlık fakat anlamadığım bir nokta var konu hakkında bilgi verirsen memnun kalırım ''Mdx.Dll yi Mırc Ana dizinindeki Dlls Dosyasına atmanız gerekmektedir. Remoteye Eklemek ıcınde Kodu alıp Alt+R yaparak Remote Bolumunde Yeni Bir sayfaya pastelıyorsunuz. Görüntüsü Aşağıdaki Gibi oLucaktır.''
Mdx.Dll Dlls? bunlar nedir anlamadım ben kodu txt olarak ekleyemem mi? yada eklemek konusunda biraz daha açıklar mısın boş bir sayfa falan oraları anladım Mdx? Dlls? kafamı karıştırdı(;

bLaсk · 19 Şubat 2010, 00:20

Şöyle Açıklayayım Arkadaşım , Mirc Ana dizininde Genellikle dll Dosyası Bulunur Sarı Bir Dosya Ben Ayrıyeten dlls Dsyasıda kurdum Ama Hıc Kafanı karıştırmadan Şöyle yapabilirsin . Zaten Mirc Ana Klasorunde dll diye Bir klasor bulunur Onun İçerisinde mdx.dll diye bir dosya bulunmaktadır. Kodun Su kısmını

on *:dialog:Admin-Komutları:init:*: {
mdx SetDialog $dname bgcolor $rgb(225,225,225)
mdx SetColor $dname 11,12,17,26 textbg $rgb(225,225,225)
mdx SetColor $dname 11,12,17,26 background $rgb(225,225,225)
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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82,83 12 700 Franklin Gothic Medium
mdx SetBorderStyle 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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82, staticedge
dll dlls\mdx.dll SetMircVersion $version | dll dlls\mdx.dll MarkDialog $dname
dll dlls\mdx.dll 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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82 12 700 Franklin Gothic Medium
dll dlls\mdx.dll SetFont +b 3,26,27 700 Tahoma
}

Bu şekilde değişirsen alttaki gibi;

on *:dialog:Admin-Komutları:init:*: {
mdx SetDialog $dname bgcolor $rgb(225,225,225)
mdx SetColor $dname 11,12,17,26 textbg $rgb(225,225,225)
mdx SetColor $dname 11,12,17,26 background $rgb(225,225,225)
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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82,83 12 700 Franklin Gothic Medium
mdx SetBorderStyle 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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82, staticedge
dll dll\mdx.dll SetMircVersion $version | dll dll\mdx.dll MarkDialog $dname
dll dll\mdx.dll 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,32,33,34,35,36,3 7,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70 ,71,72,73,74,75,76,77,78,79,80,81,82 12 700 Franklin Gothic Medium
dll dll\mdx.dll SetFont +b 3,26,27 700 Tahoma
}

Bir sorunla karşılaşacagını sanmıyorum Dialogu çalıştırmak içinde
/dialog -m Admin-Komutları Admin-Komutları Şeklinde çalıştırabilirsin.

FaNTaSTiCa · 11 Mart 2010, 23:13

bLack emegine saglik oncelikle, ama sunu anlayamadim..
Alt+R yaptik.. ekledik.. Normal Kanalda Mause'ye Sag tıkladiğimizda acilmiyor? nasıl olucak o konudada yadimci olursan Sevinirim.. Tskler simdiden..

bLaсk · 18 Mart 2010, 01:02

Öncelikle arkadaşım şöyle anlatayım Listende Çıkmasını istiyorsan Kodun Kodun En üst Kısmına

alias adm1 dialog -m Admin-Komutları Admin-Komutları
Bu Kodu Yazıyorsun Daha Sonrada Kodun En alt Kısmına geliyorsun Şekilli parantezlerin altına Yani dediğim gibi En alt kısıma iniyorsun orayada

menu channel,query,status {
Admin Komutları:/adm1
}

Bu Kodu Ekliyorsun . Bu Kodu Eklediğinde Kanala , Özele ve Status kısmına sag tıkladıgında Admin Komutları Dİye Bir Seçenek Gelicek tıkladığınız zaman dialog otomatik Olarak açılacaktır ...

İyi Forumlar...

Kemanci_ · 18 Mart 2010, 09:23

addon hoşmuş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
test edildi onaylandı.. iyi çalışmalar..

basbeLasi · 18 Mart 2010, 11:03

guzel elıne saglık.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Forbid Dialogu	Kimimben	mIRC Scripting Hazır Kodlar	6	07 Ekim 2014 19:41
MemoServ Dialogu	Kimimben	mIRC Scripting Hazır Kodlar	0	04 Ekim 2014 15:39
Szline Dialogu	Kimimben	mIRC Scripting Hazır Kodlar	1	28 Ağustos 2014 01:15
Uyarı dialogu	Realinferno	mIRC Scripting Sorunları	6	23 Haziran 2006 21:07

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.