Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Admin DiaLogu

Ana Sayfa » internet » IRC » Admin DiaLogu
Admin DiaLogu

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.

 

Kod:
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 {

Admin DiaLogu - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

irc invex komutu

irc invex komutu 17 Ocak 2011

irc notify kullanımı

irc notify kullanımı 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

RASTGELE İÇERİKLER

Web Sohbet Güncellendi Sanal alemdeki geyikler Kene çıkarmada izlenecek yöntemler Özel sektör 2009 yılı borçları BEREKET MATB.AMB.SAN VE TİC.LTD.ŞTİ Ya Biz Kazanırsak Minik işitme cihazı

FACEBOOK'TA BİZ

Hoşgeldiniz

kelebek.gen.tr – kelebek mirc - Tüm Hakları Saklıdır