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

          alias ops dialog -m oekle oekle 
dialog oekle {
  title "Op Listeleme Ekleme Silme"
  size -1 -1 156 203
  option dbu
  list 1, 2 51 73 124, size
  text " Kanal Seçin :", 2, 4 3 51 8
  box "", 6, 2 -1 57 14
  text " Yetki Ekleyin :", 8, 78 52 57 8
  edit "", 9, 76 63 77 11
  button "Listele", 3, 117 2 36 23, flat
  button "Ekle", 5, 76 76 77 33, flat
  box "", 11, 76 48 77 14
  button "« « KAPAT » »", 13, 76 110 77 65, flat ok
  box "", 14, 2 174 151 16
  text " Yetkiyi silmek icin üstünü çift tıklayın", 15, 4 179 137 8
  combo 4, 60 14 56 76, group size drop
  box "", 7, 2 11 57 14
  text " Founder Kim :", 10, 4 28 50 8
  edit "", 12, 60 26 93 12, read
  edit "", 16, 2 39 151 10, read
  box "", 17, 2 -1 57 14
  text " Aop Hop Vop Seçin", 18, 4 16 51 8
  combo 19, 60 2 56 81, group size drop
  box "", 20, 2 23 57 15
  edit "", 21, 2 191 151 10, read
}
on *:dialog:oekle:init:*: { 
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(237,241,219)
  mdx SetColor $dname 1 textbg $rgb(237,241,219)
  mdx SetColor $dname 1 background $rgb(237,241,219)
  mdx SetFont $dname 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 15 950 Tahoma
  mdx SetColor $dname 2,4,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 background $rgb(237,241,219)
  mdx SetColor $dname 2,4,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 textbg $rgb(237,241,219)
  mdx SetFont $dname 2,4,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 15 950 Tahoma
  mdx SetColor $dname 14,15,16l text $rgb(199,92,2)
  did -a $dname 19 Guzyeli
  did -a $dname 19 Radyo
  did -a $dname 19 islam
  did -a $dname 19 Test
  did -a $dname 19 Yarisma
  did -a $dname 19 Kelime
  did -a $dname 19 Bilgi
  did -a $dname 19 Op
  did -a $dname 19 Dj
  did -a $dname 4 Aop
  did -a $dname 4 Hop
  did -a $dname 4 Vop
}
on *:dialog:oekle:sclick:5:{ .enable #offs | cs $$did(oekle,4).text $chr(35) $+ $$did(oekle,19).text add $did(oekle,9).text } 
on *:dialog:oekle:sclick:3:{ if ($did(19).text) && ($did(4).text) { .enable #offs | did -r $dname 1 | did -r $dname 12 | cs $lower($did(4).text) $chr(35) $+ $lower($did(19).text) list | cs info $chr(35) $+ $lower($did(19).text) 
    did -ra $dname 16 # $+ $did(19).text $did(4).text Listesi Açıldı.
} }
on *:dialog:oekle:dclick:1:{ if $did(1).seltext { var %seltext = $did(1).seltext | cs $$did(4).text $chr(35) $+ $$did(19).text del $did(1).seltext 
    did -r $dname 21 | did -a $dname 21 $qt(%seltext) Nicki Silinmiştir. | did -d $dname 1 $did(1).sel 
  }
}