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.
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...