on *:text:*:#:{
  if $1 == !helper {
    if !$2 { msg $chan  :Lütfen !helper ekle/sil/list Nick Şeklinde belirtiniz. | halt }
    if $2 == ekle { 
      if !$3 { msg $chan :Lütfen !helper ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan :Lütfen !helper ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$read(helper.txt,w,$3) {
        as oper $3 add $4 h 
        as oper $3 access add *@* 
        msg $chan :[ $3 ] Nicki Helper Listesine eklenmişdir 
        write helper.txt $3
      }
      else {
        msg $chan :[ $3 ] Nicki Helper Listesinde ekli.
      }
    }
    if $2 == sil {
      if !$3 { msg $chan :Lütfen !helper sil Nick Şifre Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan :Lütfen !helper sil Nick Şifre Şeklinde belirtiniz. | halt }
      if $read(helper.txt,w,$3) {
        as oper $3 del $4 h 
        as oper $3 access del *@* 
        msg $chan :[ $3 ] Nicki Helper listesinden silinmişdir.
        write $+(-dl,$readn) helper.txt
      }
      else {
        msg $chan :[ $3 ] Nicki Helper Listesinde ekli degildir.
      }
    }
    if $2 == list {
      if $lines(helper.txt) == 0 { msg $chan Helper listesi boş. | halt }
      var %hlist 1
      while %hlist <= $lines(helper.txt) {
        msg $chan %hlist $+ .4) $read(helper.txt,%hlist)
        inc %hlist
      }
    }
  }
  if $1 == !oper {
    if !$2 { msg $chan  :Lütfen !oper ekle/sil/list Nick Şeklinde belirtiniz. | halt }
    if $2 == ekle { 
      if !$3 { msg $chan  :Lütfen !oper ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !oper ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$read(oper.txt,w,$3) {
        as oper $3 add $4 gh 
        as oper $3 access add *@* 
        msg $chan :[ $3 ] Nicki Oper olarak eklenmişdir.
        write oper.txt $3
      }
      else {
        msg $chan :[ $3 ] Nicki Oper Listesinde ekli.
      }
    }
    if $2 == sil { 
      if !$3 { msg $chan  :Lütfen !oper sil Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !oper sil Nick Şifre Şeklinde belirtiniz. | halt }
      if $read(oper.txt,w,$3) {
        as oper $3 del $4 gh 
        as oper $3 access del *@* 
        msg $chan :[ $3 ] Nicki Oper listesinden silinmişdir. 
        write $+(-dl,$readn) oper.txt
      }
      else {
        msg $chan :[ $3 ] Nicki Oper Listesinde ekli degildir.
      }
    }
    if $2 == list {
      if $lines(oper.txt) == 0 { msg $chan Oper listesi boş. | halt }
      var %olist 1
      while %olist <= $lines(oper.txt) {
        msg $chan %olist $+ .4) $read(oper.txt,%olist)
        inc %olist
      }
    }
  }
  if $1 == !services {
    if !$2 { msg $chan  :Lütfen !services ekle/sil/list Nick Şeklinde belirtiniz. | halt }
    if $2 == ekle {
      if !$3 { msg $chan  :Lütfen !services ekle Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !services ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$read(services.txt,w,$3) {
        as oper $3 add $4 ghs 
        os opercfg $3 add ghs $4 
        as oper $3 access add *@*
        msg $chan :[ $3 ] Nicki Services Admin olarak eklenmişdir
        write services.txt $3
      }
      else { 
        msg $chan :[ $3 ] Nicki Services Admin Listesinde ekli.
      }
    }
    if $2 == sil {
      if !$3 { msg $chan  :Lütfen !services sil Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !services sil Nick Şifre Şeklinde belirtiniz. | halt }
      if $read(services.txt,w,$3) {
        as oper  $3 del $4 hgs 
        os opercfg $3 del ghs $4
        as oper $3 access del *@* 
        msg $chan :[ $3 ] Nicki Services Admin listesinden silinmişdir. 
        write $+(-dl,$readn) services.txt
      }
      else {
        msg $chan :[ $3 ] Nicki Services Admin Listesinde ekli degil.
      }
    }
    if $2 == list {
      if $lines(services.txt) == 0 { msg $chan Services Admin listesi boş. | halt }
      var %slist 1
      while %slist <= $lines(services.txt) {
        msg $chan %slist $+ .4) $read(services.txt,%slist)
        inc %slist
      }
    }
  }

  if $1 == !server {
    if !$2 { msg $chan  :Lütfen !server ekle/sil/list Nick Şeklinde belirtiniz. | halt }
    if $2 == ekle {
      if !$3 { msg $chan  :Lütfen !server ekle Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !server ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$read(server.txt,w,$3) {
        as oper $3 add $4 ghsa 
        os opercfg $3 add ghsa $4 
        as oper $3 access add *@*
        msg $chan :[ $3 ] Nicki Server Admin olarak eklenmişdir
        write server.txt $3
      }
      else { 
        msg $chan :[ $3 ] Nicki Server Admin Listesinde ekli.
      }
    }
    if $2 == sil {
      if !$3 { msg $chan  :Lütfen !server sil Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !server sil Nick Şifre Şeklinde belirtiniz. | halt }
      if $read(server.txt,w,$3) {
        as oper $3 del $4 hgsa 
        os opercfg $3 del ghsa $4
        as oper $3 access del *@*       
        msg $chan :[ $3 ] Nicki Server Admin listesinden silinmişdir. 
        write $+(-dl,$readn) server.txt
      }
      else {
        msg $chan :[ $3 ] Nicki Server Admin Listesinde ekli degil.
      }
    }
    if $2 == list {
      if $lines(server.txt) == 0 { msg $chan Server Admin listesi boş. | halt }
      var %slist 1
      while %slist <= $lines(server.txt) {
        msg $chan %slist $+ .4) $read(server.txt,%slist)
        inc %slist
      }
    }
  }
  if $1 == !root {
    if !$2 { msg $chan  :Lütfen !root ekle/sil/list Nick Şeklinde belirtiniz. | halt }
    if $2 == ekle { 
      if !$3 { msg $chan  :Lütfen !root ekle Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !root ekle Nick Şifre Şeklinde belirtiniz. | halt }
      if !$read(root.txt,w,$3) {
        as oper $3 add $4 ghsac 
        os opercfg $3 add root $4
        as oper $3 access add *@*
        msg $chan :[ $3 ] Nicki Root olarak eklenmişdir.
        write root.txt $3
      }
      else {
        msg $chan :[ $3 ] Nicki Root Listesinde ekli.
      }
    }
    if $2 == sil { 
      if !$3 { msg $chan  :Lütfen !root sil Nick Şeklinde belirtiniz. | halt }
      if !$4 { msg $chan  :Lütfen !root sil Nick Şifre Şeklinde belirtiniz. | halt }
      if $read(root.txt,w,$3) {
        as oper $3 del $4 ghsac 
        os opercfg $3 del root $4 
        as oper $3 access del *@*
        msg $chan :[ $3 ] Nicki Root listesinden silinmişdir. 
        write $+(-dl,$readn) Root.txt
      }
      else {
        msg $chan :[ $3 ] Nicki Root Listesinde ekli degildir.
      }
    }
    if $2 == list {
      if $lines(root.txt) == 0 { msg $chan Root listesi boş. | halt }
      var %rlist 1
      while %rlist <= $lines(root.txt) {
        msg $chan %rlist $+ .4) $read(root.txt,%rlist)
        inc %rlist
      }
    }
  }
}

!helper ekle Nick Şifre
!helper sil Nick Şifre
!helper list

!oper ekle Nick Şifre
!oper sil Nick Şifre
!oper list

!server ekle Nick Şifre
!server sil Nick Şifre
!server list

!services ekle Nick Şifre
!services sil Nick Şifre
!services list

!root ekle Nick
!root sil Nick
!root list