dialog botcuk {
  title "BOT Banali"
  size -1 -1 136 156
  option dbu
  button "Kelime Ekle", 1, 72 96 37 12
  button "Görüntüle", 2, 72 80 37 12
  button "Kelime Oku", 3, 24 80 37 12
  button "Kelime Sil", 4, 24 96 37 12
  button "Boto kapat", 5, 53 112 31 12, ok
  text "Özel konuşma", 7, 15 48 40 12
  text "Kanal Konuşma", 8, 72 48 40 12
  text "By_MuraTT", 9, 88 135 30 11
  box "Bot Ayar Menüsü", 10, 9 5 119 123
  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 11, 15 136 58 10
  icon 12, 51 26 25 16,  C:\Documents and Settings\aziz\Desktop\aziz\icon\diger.ico, 0
  check "on", 13, 22 60 19 10
  check "on", 14, 81 59 19 10
}
 
 
on *:dialog:botcuk:sclick:1:{ if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
}
on *:dialog:botcuk:sclick:2:{
  $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
  titlebar @Görüntüleme aziz\h.g.txt içeriği
  loadbuf @Görüntüleme aziz\h.g.txt
}
on *:dialog:botcuk:sclick:3:{ //echo -a $read(aziz\h.g.txt,$$?="numarası:")  }
on *:dialog:botcuk:sclick:4:{
  if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 
    if $read(aziz\h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\h.g.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\h.g.txt | goto zıpzıp } 
    else { echo -a Böyle bir satır bulunamadı }
  }
}
on *:dialog:botcuk:init:*: {
  if ($group(#ozelmuhabbet).status == on )  did -c bot 13
  if ($group(#kanalmuhabbet).status == on )   did -c bot 14
}
on *:dialog:botcuk:sclick:13: {
  if ($group(#ozelmuhabbet).status == on ) { .disable #ozelmuhabbet  }
  else {  /.enable #ozelmuhabbet  }
}
on *:dialog:botcuk:sclick:14: {
  if ($group(#kanalmuhabbet).status == on ) { .disable #kanalmuhabbet  }
  else {  /.enable #kanalmuhabbet }
}
#kanalmuhabbet off
on *:text:*h.g*:#:{ msg # $read $mircdiraziz\h.g.txt | halt }
 
#kanalmuhabbet end
 
;****************************************************************************************;
#ozelmuhabbet off
on *:text:*olabilir*:?: /.timer 1 5 /msg $nick $read $mircdiraziz\h.g.txt
 
#ozelmuhabbet end