bind pub - !deop deop
#PROC
proc deop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -o $text"
putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"
}

proc msg_+user {nick uhost hand rest} { 
   global botnick thehosts default-flags cmdtbslg 
   if {![matchattr $hand Q]} {puthelp "NOTICE $nick :$cmdtbslg Kendinizi henuz tanitmadiniz. Ornek: \[/msg $botnick auth <sifreniz>\] seklinde tanitmalisiniz." ; return 0}
    set who [lindex [split $rest] 0] 
   if {![string length $who]} { puthelp "NOTICE $nick :$cmdtbslg Komut: /msg $botnick +kullanici <tanim> \[ip_adres\] \[flaglari\]" ; return 0}
    if {[validuser $who]} { puthelp "NOTICE $nick :$cmdtbslg $who Zaten kullanici listemde kayitli." ; return 0}
    set hostmask [lindex [split $rest] 1] 
   if {![string length $hostmask]} { 
      foreach chan [channels] { 
         if {[onchan $who $chan]} { 
            set hostmask [getchanhost $who $chan] ; set found 1 
         } 
      } 
      if {![info exists found]} { 
         puthelp "NOTICE $nick :$cmdtbslg $who Bulundugum kanal(lar) icinde yok, komut icinde bir  <hostmask> olmali." ; return 0
       } 
      set hostmask [maskhost $who!$hostmask] 
   } else { 
      foreach hostsuser $thehosts { 
         set hostuser $hostsuser 
         if {[string equal $hostmask $hostuser]} {puthelp "NOTICE $nick :$cmdtbslg Hostmask: \[$hostmask\] dogru sekilde tanimlanmamis." ; return 0}
       } 
   } 
   adduser $who $hostmask ; puthelp "NOTICE $nick :$cmdtbslg $who simdi kullanici listeme hostmaskiyla eklendi: \[$hostmask\]."
    set addflags [lindex [split $rest] 2] 
   if {![string length $addflags]} { 
      puthelp "NOTICE $nick :$cmdtbslg bir kullanici flag belirtilmedi, bu kullanici icin varsayilan bir flag \[${default-flags}\] eklendi."
       set addflags ${default-flags} 
   } 
   chattr $who $addflags 
   puthelp "NOTICE $nick :$cmdtbslg Standart bir kullanici flagi $addflags tanim olarak eklendi: $who ."
    puthelp "NOTICE $nick :$cmdtbslg Kullanici dosyasi korunuyor." 
   save 
   puthelp "NOTICE $who :Merhaba $who Bir sifre belirlemelisiniz. Ornek : /msg $botnick pass <yeni-sifreniz>."
    puthelp "NOTICE $who :Birkez sifre ayarladiktan sonra : Ornek: /msg $botnick auth <sifreniz> komutuyla her iRC girisinizde kendinizi bota tanitmalisiniz."
    putcmdlog "$cmdtbslg <<$nick>> !$hand! +user $who \[$hostmask\]." ; return 0
 }

if {![isop $nick $chan]} {return 0} 

bind pub - !deop deop

proc deop {nick uhand host chan text} {

  if {[isop $nick $chan] || [onchan $nick "#opers"]} {

    putquick "os mode $chan -o $text"

    putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"

  }

}