Protection for this addop script

[stevegarbz]

Ok, well this is part of my script:

Code: Select all

proc h:addop:msg {nick host hand chan text} {    
     set user [lindex $text 0] 
     set address "*!*@[lindex [split [getchanhost $user] "@"] 1]" 
     if {[string match -nocase $text ""]} { 
     return 0 
  } 
     if {![onchan $text $chan]} { 
     return 0 
    } 
    addhost Op $address
putquick "MODE $chan +o $user"
}

Ok so, now I want to make it so if the person's address deops 3 people in the channel, I want it to delhost them.