# OperServ nickini belirtiniz.
set irc(operserv) "OperServ"

# IRC domain'i belirtiniz.
set irc(domain) "irc.domain.com"

# Services ismini belirtiniz.
set irc(services) "services.domain.com"

bind mode - * modes
proc modes {nick uhost hand chan mode victim} {
global botnick irc
    if {[string match -nocase $irc(operserv) $nick] || [string match -nocase $irc(domain) $nick] || [string match -nocase $irc(services) $nick]} { return 0 }
    if {$mode == "-o" && $victim == $botnick} {
        putquick "mode $chan +o $victim"
    }
    if {$mode == "-a" && $victim == $botnick} {
        putquick "mode $chan +a $victim"
    }
    if {$mode == "-oa" && $victim == $botnick} {
        putquick "mode $chan +oa $victim $victim"
    }
    if {$mode == "-ao" && $victim == $botnick} {
        putquick "mode $chan +ao $victim $victim"
    }
}