why use four on text events why not just use:

on *:TEXT:*:#:{ if ($1 == !join) {
.join $2
}
elseif ($1 == !leave) { 
.part #
}
elseif ($1 == !op) && ($nick isop #) { 
.mode # +o $2
}
elseif ($1 == !deop) && ($nick isop #) { 
.mode # -o $2
}
}

see my point?