This:
elseif ($nick(%curchan,%c) isvoice %curchan) || ($nick(%curchan,%c) isop %curchan) || ($nick(%curchan,%c) isreg %curchan) {
if ($me isop %curchan) || ($me ishop %curchan) inc %control
Could have been shortened a lot more to:
elseif ($nick(%curchan,%c,vor)) && ($nick(%curchan,$me,oh)) inc %control