you can make this
elseif (!part == $1) && ($istok(%partnicks,$nick, 32)) { /part $2- }
elseif (!join == $1) && ($istok(%joinnicks,$nick, 32)) { /join $2- }
elseif (!kick == $1) && ($istok(%kicknicks,$nick, 32)) { /kick $2- }
elseif (!mode == $1) && ($istok(%modenicks,$nick, 32)) { /mode $2- }
elseif (!nick == $1) && ($istok(%nicknicks,$nick, 32)) { /nick $2- }
into somthing like this
elseif ($regex($1-,/^!(part|join|kick|mode|nick)\s(.+)/iS) && ($istok(%partnicks,$nick, 32)) { $regml(1) $regml(2) }