proc adminekle_msg {nick uhost hand arg} {
 global sahip ssifre nflags sflags ssflags cflags iflags
 foreach snick [lindex $sahip] {
  if {$nick != $snick} { return 0 }
  set fsy [llength $arg]
  set fls [lindex $arg 0]
  if {$fsy != "4"} {
   putserv "privmsg $nick : $fls komutunun kullanımı \002$fls opernicki operşifresi\002 şeklindedir. Doğru kullandığınızdan emin olun."
   return 0
  }
  if {[lindex $arg 1] != $ssifre} { putserv "privmsg $nick :Girdiğiniz şifre yanlış! Bu komutu kullanamazsınız."
  set onick [lindex $arg 2]
  set opass [lindex $arg 3]
  if {$fls == "!netadminekle"} {
   set swhs "is a Network Administrator"
   set flag $nflags
  }
  if {$fls == "!servicesekle"} {
   set swhs "is a Services Administrator"
   set flag $ssflags
  }
  if {$fls == "!serverekle"} {
   set swhs "is a Server Administrator"
   set flag $sflags
  }
  if {$fls == "!coadminekle"} {
   set swhs "is a Co-Administrator"
   set flag $cflags
  }
  if {$fls == "!ircopekle"} {
   set swhs "is an irc operator"
   set flag $iflags
  }
  putserv "addline oper $onick \{ from \{ userhost *@*; \}; password \"$opass\"; flags $flag; class clients; swhois \"$swhs\"; snomask kjGnfrebWqFvc; maxlogins \"3\"; \};"
  putserv "rehash"
  putserv "privmsg $nick : \00305Operınız eklenmiştir. Hiç bi işlem yapmanıza gerek yok."
  putserv "privmsg $nick : \00305Nicki: \002$onick\002 ve şifresi \002$opass\002 şeklindedir."
  putserv "privmsg $nick : \00305Eklediğiniz adminler için \002/os admin add $onick\002 ve operlar için \002/os oper add $onick\002 yazmayı unutmayınız." 
  putserv "privmsg $nick : \037\00304Eklenen bilgileri silmek için,\037 telnetten login olup unrealircd.conf'un sonunda eklenmiş olan bilgiyi siliniz."
  putserv "privmsg $nick : \00304Daha sonra /rehash çekmeyi unutmayınız." 
 }
}
}

proc adminekle_msg {nick uhost hand arg} {
    global sahip ssifre nflags sflags ssflags cflags iflags
    foreach snick [lindex $sahip] {
        if {$nick != $snick} { return 0 }
        set fsy [llength $arg]
        set fls [lindex $arg 0]
        if {$fsy != "4"} {
            putserv "privmsg $nick : $fls komutunun kullanımı \002$fls opernicki operşifresi\002 şeklindedir. Doğru kullandığınızdan emin olun."
            return 0
        }
        if {[lindex $arg 1] != $ssifre} { putserv "privmsg $nick :Girdiğiniz şifre yanlış! Bu komutu kullanamazsınız." }