on $*:text:/^~(kill|part|join|com|list)/iS:*:{
  if ($istok($names,$nick,32)) {
    if ($regml(1) = kill) { 
      blah code here
    }
    if ($regml(1) = part) {
      code here
    }
  }
}

an so on.. I know you don't do regexs but it does look cleaner.. tbh