Kod

alias _şifre {
  var %:kşifre kanal_sifre.txt
  if (!$1) {
    echo -a < HATA > /_şifre şifreniz.
  }
  elseif $regex($1,/\W+/Six) {
    echo -a < HATA > şifre özel karakter içeremez.
  }
  else {
    write %:kşifre $1
    echo -a $1 belirlenen kanallar için şifre olarak belirlendi.
  }
}
alias şifre_değiştir { if (!$1) { echo -a < HATA > /şifre_değiştir şifreniz. } | elseif $regex($1,/\W+/Six) { echo -a < HATA > şifre özel karakter içeremez. } | else { .remove kanal_sifre.txt | .timer 1 2 write kanal_sifre.txt $1 | echo -a $1 Yeni şifre olarak belirlendi. } }
alias g_sil { if (!$1) { echo -a Lütfen nick belirtin. } | elseif !$read(girisizni.txt,w,$1) { echo -a $1 giriş izni listesinde yok. } | else { write -dl $+ $readn girisizni.txt | echo -a $1 giriş izin listesinden silindi. } }
;aktif olacağı kanalları alttaki kısımları değiştirin.
on *:join:#tr-msl,#kanal2: {
;Muaf nick eklemek isterseniz aşağıya ekleyin.
  if !$regex($nick,/ali|Mylife|muafnick1|muafnick2/iS) && !$read(girisizni.txt,w,$+(*,$nick,*)) {
    set %;knl # 
    var %:n $nick
    privmsg %:n %;knl kanalına girmek için özel şifreyi girmelisiniz. .şifre kanalşifresi
    mode %;knl +b %:n 
    kick %;knl %:n Özel şifreli bir kanaldır.

  }
}
;bu kısım kanaldan part edilirseniz girmek için tekrar kanala oto girmeniz için.
on *:part:#: { if ($nick == $me) { sajoin $me # } }
;bu kısım özel yazışmalar için.
on $*:TEXT:/[\.!][Şşs][İiı]fre/Si:?: { if (!$2) { msg $nick Lütfen şifre girin. (!şifre kanalşifresi) } | elseif !$read(kanal_sifre.txt,w,$2) { msg $nick Hatalı şifre girdiniz. Giriş izni verilmedi. } | else { msg $nick Şifre doğru. Giriş izni verildi. /join %;knl | mode %;knl -b $nick | chanserv invite %;knl $nick | sajoin $nick %:knl | write girisizni.txt $nick | .unset %;knl }  }