Kod

on 1*:text:*:#OPKANALIADI: {
  if ($nick isop #) || ($nick ishop #) {
    if ($regex($1,/^[.!]ban$/Si) && $2) {
      if ($2 ison #GlobalkanalAdı) {
        mode #GlobalkanalAdı +b $2
        kick #GlobalkanalAdı $2 $3-
        msg # $2 #GlobalkanalAdı kanalından atıldı.
      }
    }
  }
  if ($regex($1,/^[.!]unban$/Si) && $2) {
    if ($nick ishop #) || ($nick ishop #) {
      mode #GlobalKanalAdı -b $2
      msg # $2 rumuzu banı kaldırıldı.
    }
  }
  else if $regex($1,/^[.!]voice$/Si) { 
    mode #GlobalKanalAdı +v $2
    msg # $2 voice aldı.
  }
  else if $regex($1,/^[.!]devoice$/Si) {
    mode #GlobalKanalAdı -v $2
    msg # $2 devoice edildi.
  }
  else if $regex($1,/^[.!]uyar$/Si) {
    msg #GlobalKanalAdı $2 lütfen kullanıcıları rahatsız etmeyin.
    msg # $2 rumuzuna uyarı yapıldı.
  }
  else if $regex($1,/^[.!]otovoice$/Si) {
    if (!$2) { msg # hatalı kullanım nick belirtin | return }
    else {
      write otovoice.txt $2
      msg # $2 oto voice listesine eklendi.
    }
  }
  else if $regex($1,/^[.!]otolist$/si) {
    otokontrl $nick $chan
  }
  else if $regex($1,/^[.!]notekle$/Si) {
    if (!$2) { msg # hatalı kuallanım mesaj giriniz. | return }
    else {
      write haberleer.txt Not sahibi: $nick Mesajı: $2-
      memoserv send FOUNDERNİCKİBURAYA Notunuz var: $nick Mesajı: $2-
      msg # notunuz gönderildi.
    }
  }
  else if $regex($1,/^[.!]notlist$/Si) {
    if ($nick != FOUNDERNİCKİBURAYA) { msg # yetkili değilsiniz | return }
    else {
      notlst $nick $chan
    }
  }
  else if $regex($1,/^[.!]voicesil$/Si) {
    if (!$2) { msg # nick belirtin | return }
    if !$read(otovoice.txt,w,$2) { msg # Oto voice listesinde bulunamadı | return }
    else {
      write $+(-dl,$readn) otovoice.txt
      msg # $2 oto voice listesinden silindi.
    }
  }
  else if $regex($1,/^[.!]notsil$/Si) {
    if (!$2) { msg # hatalı kullanım numara belirtin. | return }
    if ($nick != FOUNDERNİCKİBURAYA) { msg # yetkili değilsiniz | return }
    else {
      write $+(-dl,$2) haberleer.txt
      msg # $2 numaralı haber silindi.
    }
  }
  else if $regex($1,/^[.!]kanalkapat$/Si) {
    mode #GlobalKanalAdı +m
    msg # Kanal konuşmaya kapatıldı.
  }
  else if $regex($1,/^[.!]kanalaç$/Si) {
    mode #GlobalKanalAdı -m
    msg # Kanal konuşmaya açıldı.
  }
  else if $regex($1,/^[.!]komutlar$/Si) {
    msg # #GlobalKanalAdı kanalı kullanılabilir komut listesi...
    msg # Kullanıcı ban+kick atmak için: .ban nick
    msg # Kullanıcı banı acmak için: .unban nick
    msg # Kullanıcı voice vermek için: .voice nick
    msg # Kullanıcı voice almak için: .devoice nick
    msg # Rahatsızlık veren kullanıcı uyarmak için: .uyar nick
    msg # Kullanıcı oto voice listesine eklemek için: .otovoice nick
    msg # Kullanıcı oto voice listesinden cıkarmak için: .voicesil
    msg # Oto voice listesine bakmak için: .otolist
    msg # Kanal Founder'ine Mesaj/Not göndermek için: .notekle mesaj
    msg # Gönderilen Mesaj/Not ları listelemek için: .notlist (sadece founder için)
    msg # Gönderilmiş olan Mesaj/Not ları silmek için: .notsil numara (sadece founder için)
    msg # Kanalı konuşmaya kapatmak için: .kanalkapat
    msg # Kanalı konuşmaya açmak için: .kanalaç
  }
}
alias otokontrl {
  if $lines(otovoice.txt) = 0 { msg $2 Oto voice listesinde kimse yok. }
  var %kod 1
  while %kod <= $lines(otovoice.txt) {
    msg # %kod $+ - $read(otovoice.txt,%kod)
    inc %kod
  }
}
alias notlst {
  if $lines(haberleer.txt) = 0 { msg $2 Herhangi bir haber bulunmuyor. }
  var %kod 1
  while %kod <= $lines(haberleer.txt) {
    msg # %kod $+ - $read(haberleer.txt,%kod)
    inc %kod
  }
}
on 1*:join:#GlobalKanalAdı: {
  if $read(otovoice.txt,w,$nick) {
    mode # +v $nick
  }
}