Kod

on 5*:join:#help: { if $nick(#help,0,oh) > 3 { .timer 1 1 kontrolet $nick $chan } }
alias kontrolet {
  if ($1 != $me) && ($1 !isop $2) && ($1 !ishop $2)  && ($1 !ison #helpers) {
    if $1 isreg $2 {
      var %oper 1
      :basla
      var %Hero = $nick(#help,$rand(1,$nick(#help,0,oh)),oh)
      var %Kod = $nick(#help,$rand(1,$nick(#help,0,oh)),oh)
      if $istok(Zadrich ,%Kod,32) { goto basla }
      if $istok(Zadrich %Kod ,%Hero,32) { goto basla }
      while %oper <= $lines(voicelist\operler.txt) {
        if $1 == $read(voicelist\operler.txt,%oper) {
          msg #helpers 2 $+ $1 2 4 Oper/Admin girişi yapıldı.!
        }
        inc %oper
      }
      .msg #helpers 0,4[USER-GİRİŞ-UYARISI]; 2 $+ $1 5 Rumuzu 4#Help 5Kanalına Girdi 4YARDIM5 Bekliyor
    }
    .msg #helpers 0,4[USER-GİRİŞ-UYARISI]:1 $regsubex($str(-,$nick(#help,0,oh)),/./g, $iif(!$read(muaf.txt,w,$nick(#help,\n)),$chr(32) $nick(#help,\n) $chr(45)))  :4 Online değilseniz #help kanalında DEOP olmalısınız.
  }
}
on *:text:*:#egitim:{ 
  if $regex($1,/^[!.]muafekle$/Si) {
    if $read(muaf.txt,w,$2) { .msg # Muaf liste'de ekli | return } 
    .write muaf.txt $2 
    .msg # [5 $2 ] 2#Help Giriş Seslenme Kodu'n dan Muaf Ekle'ndi, Artık BOT Tarafından Seslenilmiyecek; Muaf nick'ler:4 $regsubex($str(-,$lines(muaf.txt)),/./g, $read(muaf.txt,\n) $chr(45))
  }
  if $regex($1,/^[!.]muafs[ıiİ]l$/Si) {
    if !$read(muaf.txt,w,$2) { .msg # Muaf liste'de ekli değil. | return } 
    .write $+(-,ds,$2) muaf.txt
    .msg # [5 $2 ] 2 #Help Giriş Seslenme Kodu'n dan, Muafnick verisinden Sil'indi; Artık BOT Tarafından Seslenilecektir.
  }
}
alias nickler {
  var %i = 1, %t = $nick(#helpers,0)
  while (%i <= %t) {
    if !$regex($nick(#helpers,%i).pnick,~|+) && ($nick(#helpers,%i) !isreg #helpers) {
      var = %nickler $addtok(%nickler,$nick(#helpers,%i),32)
    }
    inc %i
  }
  return $remove(%nickler,$me,Zadrich)
}