bind join - * nameedit

proc nameedit {nick uhost hand chan } {
set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]]
if {[string match -nocase "$ident" "ahmet"]} { putquick "chgname $nick mehmet" }
}