on *:input:#:{
  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 Ş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 Ş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 Ş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 $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 !$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 $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 !$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 $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 !$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 $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
      }
    }
  }
}