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." }

Eggdrop v1.6.18 (C) 1997 Robey Pointer (C) 2006 Eggheads
[00:35] --- Loading eggdrop v1.6.18 (Mon Jan 25 2010)
[00:35] Module loaded: channels
[00:35] Module loaded: server
[00:35] Module loaded: ctcp
[00:35] Module loaded: irc
[00:35] Module loaded: notes            (with lang support)
[00:35] Module loaded: console          (with lang support)
[00:35] Module loaded: blowfish
[00:35] Listening at telnet port 1125 (all).
[00:35] ReaL Kanal Loglama v1: Use .mel +chan <channel>.

STARTING BOT IN USERFILE CREATION MODE.
Telnet to the bot and enter 'NEW' as your nickname.
OR go to IRC and type:  /msg ScanX hello
This will make the bot recognize you as the master.
[00:35] === ScanX: 10 channels, 0 users.
I detect ScanX already running from this directory.
If this is incorrect, erase the 'pid.ScanX'