Kod

menu channel,status {
  Giriş İzin Diyalogu: diyalog -m giriSizInn
}

dialog giriSizInn {
  title "Giriş İzin Diyalogu"
  size -1 -1 200 120

  edit "Kanal:", 1, 10 10 180 20
  button "Giriş İzni Ver", 2, 10 40 80 20
  button "Giriş İznini Sil", 3, 100 40 90 20
  button "Listele", 4, 10 70 180 20

  on 2:button: { 
    if ($did(1).text) {
      write girisizinn.txt $did(1).text | msg $did(1).text için giriş izni verildi.
    }
    else {
      echo -a Hata: Kanal adı boş olamaz!
    }
  }

  on 3:button: { 
    if ($did(1).text) {
      if ($read(girisizinn.txt, w, $did(1).text)) { 
        write $+(-dl,$did(1).text) girisizinn.txt | msg $did(1).text Giriş izin listesinden silindi.
      }
      else {
        echo -a Hata: Bu kanalın giriş izni zaten yok!
      }
    }
    else {
      echo -a Hata: Kanal adı boş olamaz!
    }
  }

  on 4:button: { 
    if ($lines(girisizinn.txt) == 0) {
      echo -a Giriş izin listesi boş.
    }
    else {
      msg # Giriş izni verilen kanallar listeleniyor... | .play # girisizinn.txt 1000
    }
  }
}

on *:join:#: { 
  if ($nick == $me) && !$read(girisizinn.txt, w, #) {  
    part # 
  } 
  else { 
    return 
  }
}