dialog cas {
  title "Konuşan BoT Oluşturma Panali"
  size -1 -1 136 144
  option dbu
  button "Kelime Ekle", 1, 72 96 42 12
  button "Görüntüle", 2, 72 80 42 12
  button "Kelime Sil", 4, 20 96 41 12
  button "KAPAT", 5, 53 125 31 12, ok
  text "Özel konuşma", 7, 24 32 40 12
  text "Kanal Konuşma", 8, 72 32 40 12
  box "Ayarlar", 10, 8 16 119 108
  icon 12, 56 13 25 16,  bot\diger.ico, 0
  check "on", 13, 38 45 19 10
  check "on", 14, 87 45 19 10
  button "Dosya ekle", 3, 20 80 41 12
  text "Bot\dosyanızınadı.txt", 6, 35 67 54 10
  text "Bot Dosya Kullanımı", 15, 35 57 49 8
  text "Metininiz", 16, 91 67 25 9
  text "By MuraTT", 9, 104 128 30 8
  text "Bot kod klasörü     bot\cas.txt   dedir", 11, 20 112 103 8
}
on *:dialog:cas:sclick:1:{ if $input(Dosya örnek: bot\Dosyanız.txt kelimeniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32)  | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi.  }
}
on *:dialog:cas:sclick:2:{
  set %txtkontrolgör $input(Belge örn: bot\Dosyaadı.txt,eo,TXT Görüntüleme Paneli)
  if %txtkontrolgör == $null { goto zıpzıp }
  else {
    $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
    loadbuf @Görüntüleme $!
  }
}
on *:dialog:cas:sclick:3:{
  run notepad.exe $+(bot\,$$?="Dosya adı:")
}
on *:dialog:cas:sclick:4:{
  if $input(Dosya örnek: bot\dosya.txt satır başlangıcı,e,Metin silme paneli) != $null { 
    if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32)  } 
    else { echo -a Böyle bir satır bulunamadı }
  }
}
on *:dialog:cas:init:*: {
  if ($group(#ozelmuhabbet).status == on )  did -c cas 13
  if ($group(#kanalmuhabbet).status == on )   did -c cas 14
}
on *:dialog:cas:sclick:13: {
  if ($group(#ozelmuhabbet).status == on ) { .disable #ozelmuhabbet  }
  else {  /.enable #ozelmuhabbet  }
}
on *:dialog:cas:sclick:14: {
  if ($group(#kanalmuhabbet).status == on ) { .disable #kanalmuhabbet  }
  else {  /.enable #kanalmuhabbet }
}