alias ocr dialog -m ocr ocr
dialog ocr {
  title "CR Oper Ekleme-uMuT"
  size -1 -1 186 149
  option dbu
  box "Nicki Giriniz", 1, 5 2 86 31
  edit "", 2, 10 15 74 12, autohs
  box "Şifreyi Giriniz", 3, 95 2 86 31
  edit "", 4, 100 15 74 12, pass autohs
  button "Helper Ekle", 5, 10 45 74 15
  button "IRC Operator Ekle", 6, 10 65 74 15
  button "Services Admin Ekle", 7, 10 85 74 15
  button "Server Admin Ekle", 8, 10 105 74 15
  button "Root Admin Ekle", 9, 10 125 74 15
  box "", 10, 4 36 86 108  
  box "", 11, 95 36 86 108
  button "Helper Sil", 12, 100 45 74 15
  button "IRC Operatorr Sil", 13, 100 63 74 15
  button "Services Admin Sil", 14, 100 85 74 15
  button "Server Admin Sil", 15, 100 105 74 15
  button "Root Admin Sil", 16, 100 125 74 15
}

on *:dialog:ocr:sclick:*: {
  if $did == 5 { .as oper $did(2) add $did(4) h | .as oper $did(2) access add *@* | .echo -a $did(2) nickine Helper(h) Yetkisi Başarıyla Eklendi. }
  if $did == 12 { .as oper $did(2) del $did(4) h | .as oper $did(2) access del *@* | .echo -a $did(2) nickinin Helper(h) Yetkisi Başarıyla Kaldırıldı. }
  if $did == 6 { .as oper $did(2) add $did(4) gh | .as oper $did(2) access add *@* | .echo -a $did(2) nickine IRc Operator(gh) Yetkisi Başarıyla Eklendi. }
  if $did == 13 { .as oper $did(2) del $did(4) gh | .as oper $did(2) access del *@* | . echo -a $did(2) nickinin IRc Operator(gh) Yetkisi Başarıyla Kaldırıldı. }
  if $did == 7 { .as oper $did(2) add $did(4) ghs | .os opercfg $did(2) add ghs $did(4) | .as oper $did(2) access add *@* | .echo -a $did(2) nickine Services Admin(ghs) Yetkisi Başarıyla Eklendi. }
  if $did == 14 { .as oper $did(2) del $did(4) ghs | .os opercfg $did(2) del ghs $did(4) | .as oper $did(2) access del *@* | .echo -a $did(2) nickinin Services Admin(ghs) Yetkisi Başarıyla Kaldırıldı. }
  if $did == 8 { .as oper $did(2) add $did(4) ghsa | .os opercfg $did(2) add ghsa $did(4) | .as oper $did(2) access add *@* | .echo -a $did(2) nickine Server Admin(ghsa) Yetkisi Başarıyla Eklendi. }
  if $did == 15 { .as oper $did(2) del $did(4) ghsa | .os opercfg $did(2) del ghsa $did(4) | .as oper $did(2) access del *@* | .echo -a $did(2) nickinin Server Admin(ghsa) Yetkisi Başarıyla Kaldırıldı. }
  if $did == 9 { .as oper $did(2) add $did(4) ghsac | .os opercfg $did(2) add ghsac $did(4) | .as oper $did(2) access add *@* | .echo -a $did(2) nickine Root Admin(ghsac) Yetkisi Başarıyla Eklendi. }
  if $did == 16 { .as oper $did(2) del $did(4) ghsac | .os opercfg $did(2) del ghsac $did(4) | .as oper $did(2) access del *@* | .echo -a $did(2) nickinin Root Admin(ghsac) Yetkisi Başarıyla Kaldırıldı. }
}
menu channel,query,status { 
  Oper-Admin/EkleSil:/ocr 
}