BigSteve, a shorter approach is to use $nick(#,$nick,)
if ($nick($chan,$nick,~)) { ... } elseif ($nick($chan,$nick,&)) { ... } so on and so forth..
compared to the use of > if ($left($nick($chan,$nick).pnick,1) == ) {