Ayarlar Bu kadar.! DOKUNMAYIN!!!
#Gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile login oldum. :)"
  putserv "sajoin #Myops"
  putserv "mode #Myops +h Ajan"
  putserv "umode +c"
 }
proc opver {n u h c a} {
  global gnick
 set gnick $n
        set kanal [lindex $a 0]
 putserv "sajoin $kanal $n"
      putserv "mode $kanal +o $n"
  
}
proc deop {n u h c a} { 
   global gnick 
   set gnick $n 
   set kanal [lindex $a 0] 
   putserv "sajoin $gnick :$kanal " 
   putserv "mode $kanal -o :$n" 
   putserv "PRIVMSG $c :$n $kanal 4k2analinda 4d2eop 4o2ldu." 
   putserv "WALLOPS :$n $kanal 4k2analinda 4d2eop 4o2ldu." 
}