alias ban { dialog -m ban ban }
dialog ban {
title “Ban İnformation System”
size -1 -1 219 235
option dbu
text “Kanal”, 1, 6 13 51 8
box “Ban Menüsü”, 2, 2 2 213 105
edit “”, 3, 62 12 146 10
list 4, 62 27 145 75, size vsbar
text “Banlananlar”, 5, 6 28 51 8
text “Banlayan”, 6, 3 112 54 8
list 7, 62 111 144 92, size vsbar
link “Coded By daRkMoRGaN”, 8, 7 210 65 8
button “Bilgileri Ver”, 9, 86 217 37 12
button “Sıfırla”, 10, 128 217 37 12
}
on *:dialog:ban:*:*:{
if $devent == sclick {
if $did == 9 {
var %ban 1 , %ban2 $ibl($did(3),0)
while %ban <= %ban2 {
did -a ban 4 %ban $+ . Atılan : $ibl($did(3),%ban)
did -a ban 7 %ban $+ . Banı Atan : $ibl($did(3),%ban).by
inc %ban
}
}
}
}
on *:Dialog:ban:*:*:{
if $devent == sclick {
if $did == 10 {
did -r ban 4
did -r ban 7
}
}
}

Kod
alias memogonder { dialog -m memogonder memogonder }
dialog memogonder {
title \”Sevilir Oper Script Memo İşlemleri\”
size -1 -1 130 225
option dbu
text \”Mesaj Gönderilecek Nick Giriniz\”, 1, 11 19 77 8
box \”Memo Gönderme\”, 2, 5 6 120 125
edit \”\”, 3, 10 30 107 11
text \”Mesajınızı buraya yazınız\”, 4, 11 47 78 8
edit , 5, 10 59 107 48, multi return autohs autovs vsbar
button \”Gönder\”, 6, 11 111 50 12
button \”İptal\”, 7, 66 111 50 12
box \”Memo Okuma - Silme\”, 8, 5 137 120 40
button \”Oku\”, 9, 9 158 23 12
edit \”\”, 10, 36 158 23 12
edit \”\”, 11, 94 158 23 12
button \”Sil\”, 12, 68 158 23 12
text \” Numara Numara\”, 13, 8 147 111 8
box \”Diğer Memo İşlemleri\”, 14, 5 180 119 40
button \”Mesajları Listele\”, 15, 10 190 47 10
button \”Son Gelen Mesajınız\”, 16, 61 190 58 10
button \”Tümünü Sil\”, 17, 10 204 34 10
button \”Yardım\”, 18, 87 204 32 10
button \”Bilgi\”, 19, 50 204 32 10
icon 20, 102 14 12 11,$mircdirRemote/startpen/kisi.ico
}
on *:dialog:memogonder:*:*: {
if $devent == init {
did -a $dname 3 %nickmemo
did -a $dname 5 %mesajmemo
did -a $dname 10 %memoyuoku
}
if $devent == sclick {
if $did == 6 {
.ms send $did(3) $did(5)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Memo mesajınız belirttiğiniz nicke yollanmıştır. Ayrıntılı bilgi için statüse bakınız.
.dialog -x memogonder memogonder
}
if $devent == sclick {
if $did == 7 {
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo (özel mesaj) gönderimi iptal edildi.
.dialog -x memogonder memogonder
}
}
}
if $devent == sclick {
if $did == 12 {
.ms del $did(11)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız silinmiştir. Ayrıntılar için statüse bakabilirsiniz.
}
}
if $devent == sclick {
if $did == 9 {
.ms read $did(10)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız. Not mesajınızı statüste okuyabilirsiniz.
}
}
if $devent == sclick {
if $did == 15 {
.ms list
.echo -a 4«««« Uyarı : 14Tüm mesajlarınız statuste listeleniyor, lütfen statüse göz atın.
}
if $devent == sclick {
if $did == 16 {
.ms read last
.echo -a 4«««« Uyarı : 14Son gelen mesajınız listelendi lütfen statüse bakınız.
}
}
if $devent == sclick {
if $did == 17 {
.ms del all
.echo -a 4«««« Uyarı : 14Mesaj kutunuzdaki tüm mesajlarınız kalıcı olarak silinmiştir. Ayrıntılar için lütfen statüse bakınız.
}
if $devent == sclick {
if $did == 19 {
.ms info
.echo -a 4«««« Uyarı : 14Kayıtlı nickinize ait mesaj kutunuzun özellikleri statüste listelenmiştir.
}
}
if $devent == sclick {
if $did == 18 {
.ms help
.echo -a 4«««« Uyarı : 14MemoServ ile ilgili yardım konuları statüste listelenmiştir. Lütfen statüse bakınız.
}
}
}
}icon satırına dikkat ediniz lütfen bold ile