dialog melia {
  title "Kontrol Merkezi"
  size -1 -1 60 108
  option dbu
  edit "", 1, 5 10 50 10
  box "Kanal Gir", 2, 2 1 56 23
  button "Aop Listesi Kaydet", 3, 6 27 47 12
  box "Kanal Gir", 4, 2 43 56 23
  edit "", 5, 4 52 50 10
  button "Sop Listesi Kaydet", 6, 7 69 47 12
  button "Tamam", 7, 13 92 33 12
}


on *:dialog:melia:sclick:*: {
  if ($did == 3) { .echo -a 3,0 Lütfen Bekleyin 4,0 $+ $anick | .timer 1 1 .enable #notice | .timer 1 2 .cs aop $did(1) list | .timer 1 3 .disable #notice | .timer 1 4 echo -a 3,0 İşlem Başarıyla Gerçekleştirildi. Artık Oplarınızı Kontrol Edebileceksiniz }
  if ($did == 6) { .echo -a 3,0 Lütfen Bekleyin 4,0 $+ $anick | .timer 1 1 .enable #notice | .timer 1 2 .cs sop $did(5) list | .timer 1 3 .disable #notice | .timer 1 4 echo -a 3,0 İşlem Başarıyla Tamamlandı. Artık Soplarınız Kontrolünüz Altında.. }
  if ($did == 9) { .anick $did(8) | echo -a 3,0 Founder Nickiniz Artık4,0 $anick $+ 3,0'dir.. }
}

alias aoplist {
  .enable #notice
}

#notice off
on *:notice:*:*: {
  if (1* iswm $1-) { .write access.txt $2 }
  if (2* iswm $1-) { .write access.txt $2 }
  if (3* iswm $1-) { .write access.txt $2 }
  if (4* iswm $1-) { .write access.txt $2 }
  if (5* iswm $1-) { .write access.txt $2 }
  if (6* iswm $1-) { .write access.txt $2 }
  if (7* iswm $1-) { .write access.txt $2 }
  if (8* iswm $1-) { .write access.txt $2 }
  if (9* iswm $1-) { .write access.txt $2 }
}
#notice end

menu * { 
Op Kontrol Merkezi:dialog -m melia melia
}