#gerekli bindler
bind pub - !identekle identekle
bind pub - !identsil identsil
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
}
proc identekle {n u h c a} {
global gnick
set gnick $n
set identname [lindex $a ]
putserv "spamfilter add u kill - sebeb ^.+!$identname+"
putserv "spamfilter del u kill - Sebeb ^.+!$identnamesil+"
}