Kod

on *:join:#operhelp:{
  if ($regex($address($nick,2),/(HelpDesk|HelpSop|HelpAday|RootAdmin|helpmaster|Admin|Helper|network|ircop|services|server|coadmin)/i)) { return }
  if $read(muafn.txt,$nick,32)) { halt }
  msg #operhelp Merhaba $nick
  msg #operhelp Nick/Kanal/X:Line  yardım kanalı4 #operhelp 'e hoş geldiniz.
  msg #operhelp Sorununuzu ve istekleriniz için voice(6+v) verilmesini bekleyiniz.
  msg #operhelp Yardım kanalımızda bekleme yapmak yasak ve atılma sebebidir.
  msg #operhelp Hoş sohbetler dileriz.
}

on *:text:*:#operhelp:{
  if $1 == !muafnick {
    if !$2 { msg # Eksik Komut kullanimi. Kullanimi: !muafnick ekle/sil NICK , yada !muafnick list | return }
    if $2 == ekle {
      if !$3 { msg # Lütfen Nick belirtiniz. | return }
      if $read(muafn.txt,w,$3) { msg # Belirtilen Nick listede ekli. | return }
      .write muafn.txt $3 | msg # $3 muaf nick olarak eklendi.
    }
    if $2 == sil {
      if !$3 { msg # Lütfen Nick belirtiniz. | return }
      if !$read(muafn.txt,w,$3) { msg # Belirtilen nick listede bulunmamaktadir. | return }
      .write $+(-ds,$3) muafn.txt | msg # $3 muaf nick listesinden silindi.
    }
    if $2 == list {
      if $lines(muafn.txt) == 0 { msg # Muaf Nick listesi bos. | return }
      msg # Muaf Nick Listesi
      msg # 
      var %:nick = 1 | while %:nick <= $lines(muafn.txt) {
        msg # %:nick $+ -) $read(muafn.txt,%:nick)
        inc %:nick
      }
      msg # 
      msg # Muaf Nick Listesi Sonu
    }
  }
}