#by wiebe @ QuakeNet

setudef flag nohostchange

bind sign - * nohostchange

proc nohostchange { nick uhost handle chan reason } {
  set reason [string tolower $reason]
  if { $reason == "registered" } {
    if { ![channel get $chan nohostchange] } { return 0 }
    if { ![botisop $chan] && ![botishalfop $chan] } { return 0 }
    if { [matchattr $handle bfvhomn|fvhomn $chan] } { return 0 }
    if { [isop $nick $chan] || [ishalfop $nick $chan] } { return 0 }
    if { [expr [clock seconds] - [getchanjoin $nick $chan]] > "120" } { return 0 }
    if { [getchanjoin $nick $chan] == "0" } { return 0 }
    putkick $chan $nick "please register and set usermode x before joining."
  }
}